git.sur5r.net Git - cc65/blob - libsrc/apple2/cclear.s

   1 ;
   2 ; Ullrich von Bassewitz, 08.08.1998
   3 ;
   4 ; void __fastcall__ cclearxy (unsigned char x, unsigned char y, unsigned char length);
   5 ; void __fastcall__ cclear (unsigned char length);
   6 ;
   7
   8         .export         _cclearxy, _cclear
   9         .import         popa, _gotoxy, chlinedirect
  10
  11 _cclearxy:
  12         pha                     ; Save the length
  13         jsr     popa            ; Get y
  14         jsr     _gotoxy         ; Call this one, will pop params
  15         pla                     ; Restore the length and run into _cclear
  16
  17 _cclear:
  18         ldx     #' ' | $80      ; Blank, screen code
  19         jmp     chlinedirect