; void __fastcall__ cclear (unsigned char length);
;
- .export _cclearxy, _cclear
- .import popa, _gotoxy, chlinedirect
+ .export _cclearxy, _cclear
+ .import popa, _gotoxy, chlinedirect
_cclearxy:
- pha ; Save the length
- jsr popa ; Get y
- jsr _gotoxy ; Call this one, will pop params
- pla ; Restore the length and run into _cclear
+ pha ; Save the length
+ jsr popa ; Get y
+ jsr _gotoxy ; Call this one, will pop params
+ pla ; Restore the length and run into _cclear
_cclear:
- ldx #' ' | $80 ; Blank, screen code
- jmp chlinedirect
+ ldx #' ' | $80 ; Blank, screen code
+ jmp chlinedirect