2019-01-08 03:36:25 +00:00
|
|
|
|
|
|
|
|
.include "apple2.inc"
|
|
|
|
|
|
|
|
|
|
CROUT := $FD8E
|
|
|
|
|
COUT := $FDED
|
|
|
|
|
|
|
|
|
|
.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
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
str: .byte "Hello, world!", 0
|
