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

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