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

   1
   2         .export         PLOT
   3
   4         .include        "pce.inc"
   5         .include        "extzp.inc"
   6
   7 PLOT:   bcs     @getpos
   8
   9         tya
  10         ;clc                    ; already cleared
  11         adc     plotlo,x
  12         sta     SCREEN_PTR
  13
  14         cla
  15         adc     plothi,x
  16         sta     SCREEN_PTR+1
  17 @getpos:
  18         ldx     CURS_Y
  19         ldy     CURS_X
  20         rts
  21
  22 .rodata
  23
  24 plotlo: .repeat screenrows,line
  25         .byte   <($0000+(line*$80))
  26         .endrepeat
  27
  28 plothi: .repeat screenrows,line
  29         .byte   >($0000+(line*$80))
  30         .endrepeat