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

   1         .export         _clrscr
   2
   3         .import         plot
   4
   5         .include        "pce.inc"
   6         .include        "extzp.inc"
   7
   8 _clrscr:
   9         st0     #VDC_MAWR
  10         st1     #<$0000
  11         st2     #>$0000
  12
  13         st0     #VDC_VWR
  14         ldy     #$40
  15 rowloop:
  16         ldx     #$80
  17 colloop:
  18         lda     #' '
  19         sta     VDC_DATA_LO
  20         lda     #$02
  21         sta     VDC_DATA_HI
  22
  23         dex
  24         bne     colloop
  25         dey
  26         bne     rowloop
  27
  28 ; Go to the home position.
  29
  30         stz     CURS_X
  31         stz     CURS_Y
  32         jmp     plot
  33
  34 ;-------------------------------------------------------------------------------
  35 ; force the init constructor to be imported
  36
  37                 .import initconio
  38 conio_init      = initconio