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

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