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

   1 ;\r
   2 ; void clrscr (void);\r
   3 ;\r
   4         .export         _clrscr\r
   5         .include        "c1p.inc"\r
   6 \r
   7 ; Adapted from the Challenger Character Graphics\r
   8 ; Reference Manual, "2.3.3 MACHINE LANGUAGE SCREEN CLEAR"\r
   9 ; This is self-modifying code!\r
  10 BANKS = VIDEORAMSIZE / $100\r
  11 \r
  12 _clrscr:\r
  13         lda #$20 ;' '\r
  14                 ldy #BANKS\r
  15                 ldx #$00\r
  16 staloc:\r
  17                 sta SCRNBASE,X\r
  18                 inx\r
  19                 bne staloc\r
  20                 inc staloc+2\r
  21                 dey\r
  22                 bne staloc\r
  23                 lda #>(SCRNBASE) ; load high byte\r
  24                 sta staloc+2     ; restore base address\r
  25                 rts\r