prodos-path/hello.cmd.s


        .include "apple2.inc"

CROUT   := $FD8E
COUT    := $FDED

        .org    $4000

        jsr     CROUT
        ldx     #0
:       lda     str,x
        beq     done
        ora     #$80
        jsr     COUT
        inx
        jmp     :-

done:   jsr     CROUT
        clc
        rts

str:    .byte   "Hello, world!", 0
wip 2019-01-07 19:36:25 -08:00
			`.include "apple2.inc"`

			`CROUT := $FD8E`
			`COUT := $FDED`

			`.org $4000`

works 2019-01-07 21:45:39 -08:00			`jsr CROUT`
wip 2019-01-07 19:36:25 -08:00			`ldx #0`
works 2019-01-07 21:45:39 -08:00			`: lda str,x`
wip 2019-01-07 19:36:25 -08:00			`beq done`
works 2019-01-07 21:45:39 -08:00			`ora #$80`
wip 2019-01-07 19:36:25 -08:00			`jsr COUT`
works 2019-01-07 21:45:39 -08:00			`inx`
wip 2019-01-07 19:36:25 -08:00			`jmp :-`

			`done: jsr CROUT`
Preserve INBUF 2019-01-08 22:55:06 -08:00			`clc`
wip 2019-01-07 19:36:25 -08:00			`rts`

			`str: .byte "Hello, world!", 0`