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

   1 ;\r
   2 ; void clrscr (void);\r
   3 ;\r
   4         .export         _clrscr\r
   5         .import         plot\r
   6         .importzp       CURS_X, CURS_Y\r
   7         .include        "c1p.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