mirror of
https://github.com/thelbane/Apple-6502-Scaffold.git
synced 2025-01-15 16:30:02 +00:00
23 lines
641 B
Plaintext
23 lines
641 B
Plaintext
print subroutine
|
|
pla
|
|
sta $06
|
|
pla
|
|
sta $07
|
|
ldy #0
|
|
.loop
|
|
inc $06
|
|
bne .next
|
|
inc $07
|
|
.next
|
|
lda ($06),y
|
|
beq .done
|
|
ora #$80
|
|
jsr COUT
|
|
bne .loop
|
|
.done
|
|
jsr CROUT
|
|
inc $06
|
|
bne .end
|
|
inc $07
|
|
.end
|
|
jmp ($06) |