1 SECTION code_driver 2 3 PUBLIC asm_del_char 4 5 GLOBAL __console_x 6 GLOBAL __console_y 7 GLOBAL asm_scroll 8 GLOBAL asm_setchar 9 GLOBAL asm_del_char 10 11 INCLUDE "target/gb/def/gb_globals.def" 12 13asm_del_char: 14 ;; Delete a character 15 CALL rew_curs 16 ld a,(__console_x) 17 ld c,a 18 ld a,(__console_y) 19 ld b,a 20 LD A,' ' 21 jp asm_setchar 22 23 ;; Rewind the cursor 24rew_curs: 25 PUSH HL 26 LD HL,__console_x ; X coordinate 27 XOR A 28 CP (HL) 29 jr z,rew_curs_1 30 DEC (HL) 31 JR rew_curs_2 32rew_curs_1: 33 LD (HL),MAXCURSPOSX 34 LD HL,__console_y ; Y coordinate 35 XOR A 36 CP (HL) 37 JR Z,rew_curs_2 38 DEC (HL) 39rew_curs_2: 40 POP HL 41 RET 42 43