2019-01-08 03:36:25 +00:00
|
|
|
|
|
|
|
.include "apple2.inc"
|
2021-03-07 23:29:51 +00:00
|
|
|
.include "more_apple2.inc"
|
2019-01-08 03:36:25 +00:00
|
|
|
|
|
|
|
.org $4000
|
|
|
|
|
2019-01-08 05:45:39 +00:00
|
|
|
jsr CROUT
|
2019-01-08 03:36:25 +00:00
|
|
|
ldx #0
|
2019-01-08 05:45:39 +00:00
|
|
|
: lda str,x
|
2019-01-08 03:36:25 +00:00
|
|
|
beq done
|
2019-01-08 05:45:39 +00:00
|
|
|
ora #$80
|
2019-01-08 03:36:25 +00:00
|
|
|
jsr COUT
|
2019-01-08 05:45:39 +00:00
|
|
|
inx
|
2019-01-08 03:36:25 +00:00
|
|
|
jmp :-
|
|
|
|
|
|
|
|
done: jsr CROUT
|
2021-03-07 23:29:51 +00:00
|
|
|
|
|
|
|
clc
|
2019-01-08 03:36:25 +00:00
|
|
|
rts
|
|
|
|
|
|
|
|
str: .byte "Hello, world!", 0
|