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