git.sur5r.net Git - cc65/blob - libsrc/osic1p/clrscr.s

   1 ;\r
   2 ; void clrscr (void);\r
   3 ;\r
   4         .export         _clrscr\r
   5         .import         plot\r
   6         .include        "extzp.inc"\r
   7         .include        "osic1p.inc"\r
   8 \r
   9 ; Adapted from the Challenger Character Graphics\r
  10 ; Reference Manual, "2.3.3 MACHINE LANGUAGE SCREEN CLEAR"\r
  11 ; This is self-modifying code!\r
  12 BANKS = VIDEORAMSIZE / $100\r
  13 \r
  14 _clrscr:\r
  15         lda       #$20          ; ' '\r
  16         ldy       #BANKS\r
  17         ldx       #$00\r
  18 staloc:\r
  19         sta       SCRNBASE,X\r
  20         inx\r
  21         bne       staloc\r
  22         inc       staloc+2\r
  23         dey\r
  24         bne       staloc\r
  25         lda       #>(SCRNBASE)  ; Load high byte\r
  26         sta       staloc+2      ; Restore base address\r
  27 \r
  28         lda       #$00          ; Cursor in upper left corner\r
  29         sta       CURS_X\r
  30         sta       CURS_Y\r
  31         jmp       plot          ; Set the cursor position\r