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

   1
   2         .include        "gamate.inc"
   3         .include        "extzp.inc"
   4
   5         .import plot
   6         .export _clrscr
   7 _clrscr:
   8         ldy     #$0
   9         tya
  10 rowloop:
  11         sty     LCD_X
  12
  13         sta     LCD_Y
  14
  15         ldx     #$0
  16 colloop:
  17         sta     LCD_DATA
  18
  19         inx
  20         bne     colloop
  21
  22         iny
  23         bne     rowloop
  24
  25 ; Go to the home position.
  26
  27         sta     CURS_X
  28         sta     CURS_Y
  29         jmp     plot
  30
  31 ;-------------------------------------------------------------------------------
  32 ; force the init constructor to be imported
  33
  34                 .import initconio
  35 conio_init      = initconio