0 Members and 3 Guests are viewing this topic.
bufClr: ld d, h ld e, l inc de ld (hl), 0 ld bc, 767 ldir ret
#define DWAIT in a, ($10) \ or a \ jp m, $-3saveDisp: ld a, $80 out ($10), a ld c, $20saveColumn: DWAIT ld a, c out ($10), a cp $2C ret z ld b, 64 ld de, 12 DWAIT in a, ($11)saveByte: DWAIT in a, ($11) ld (hl), a add hl, de djnz saveByte ld de, -767 add hl, de inc c jr saveColumn