6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2026-04-25 22:18:27 +00:00
Code Issues Projects Releases Wiki Activity

New version from Oliver Schmidt

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@3421 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz
2005-03-26 17:03:30 +00:00
parent fe2d8f26ed
commit 071c58bda2
27 changed files with 512 additions and 598 deletions
Download Patch File Download Diff File Expand all files Collapse all files
libsrc/apple2/cclear.s
+10 -10
View File
@@ -1,19 +1,19 @@
;
; Ullrich von Bassewitz, 08.08.1998
;
; void cclearxy (unsigned char x, unsigned char y, unsigned char length);
; void cclear (unsigned char length);
; void __fastcall__ cclearxy (unsigned char x, unsigned char y, unsigned char length);
; 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