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

   1
   2                 .include "pce.inc"
   3
   4                 .export _clrscr
   5 _clrscr:
   6
   7                 st0     #VDC_MAWR
   8                 st1     #<$0000
   9                 st2     #>$0000
  10
  11                 st0     #VDC_VWR
  12                 ldy     #$40
  13 rowloop:        ldx     #$80
  14 colloop:        lda #' '
  15                 staio VDC_DATA_LO
  16                 lda #$02
  17                 staio VDC_DATA_HI
  18
  19                 dex
  20                 bne     colloop
  21                 dey
  22                 bne     rowloop
  23
  24                 rts
  25