RosettaCodeData/Task/Loops-Infinite/Z80-Assembly/loops-infinite.z80
2023-07-01 13:44:08 -04: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"