.define putchr putchr: push hl push de push bc cp 0x0A jr nz,1f ld a,0x1F 1: ld c,a 2: in a,0xF1 and 4 jr z,2b ld a,c out 0xF0,a pop bc pop de pop hl ret