RosettaCodeData/Task/Loops-Infinite/Z80-Assembly/loops-infinite.z80
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

14 lines
157 B
Z80 Assembly

org $4000
txt_output: equ $bb5a
start: ld hl,spam
print: ld a,(hl)
cp 0
jr z,start
call txt_output
inc hl
jr print
spam: defm "SPAM\r\n\0"