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                 sta     a:VDC_DATA_LO
  16                 lda     #$02
  17                 sta     a:VDC_DATA_HI
  18
  19                 dex
  20                 bne     colloop
  21                 dey
  22                 bne     rowloop
  23
  24                 rts
  25
  26 ;-------------------------------------------------------------------------------
  27 ; force the init constructor to be imported
  28
  29                 .import initconio
  30 conio_init = initconio