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

   1
   2         .export         PLOT
   3
   4         .include        "gamate.inc"
   5         .include        "extzp.inc"
   6
   7 PLOT:
   8         bcs     @getpos
   9
  10         sty     LCD_X
  11         ;clc                    ; already cleared
  12         lda     _plotlo,x
  13         sta     LCD_Y
  14
  15 @getpos:
  16         ldx     CURS_Y
  17         ldy     CURS_X
  18         rts
  19
  20         .export         _plotlo
  21         .rodata
  22
  23 _plotlo:
  24         .repeat screenrows,line
  25         .byte   <($0000+(line*$8))
  26         .endrepeat
  27
  28 ;-------------------------------------------------------------------------------
  29 ; force the init constructor to be imported
  30
  31         .import initconio
  32 conio_init      = initconio