RosettaCodeData/Task/Terminal-control-Inverse-video/Z80-Assembly/terminal-control-inverse-video.z80
2023-07-01 13:44:08 -04:00

27 lines
317 B
Z80 Assembly

.org &8000
PrintChar equ &BB5A
InvertTextColors equ &BB9C
;main
call InvertTextColors
ld hl, HelloAddr
call PrintString
call InvertTextColors
ld hl,HelloAddr
jp PrintString ;and return to basic after that.
HelloAddr: byte "Hello",0
PrintString:
ld a,(hl)
or a
ret z
call PrintChar
inc hl
jp PrintString