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:
   8         bcs     @getpos
   9
  10         tya
  11         clc
  12         adc     _plotlo,x
  13         sta     SCREEN_PTR
  14
  15         lda     _plothi,x
  16         adc     #0
  17         sta     SCREEN_PTR+1
  18 @getpos:
  19         ldx     CURS_Y
  20         ldy     CURS_X
  21         rts
  22
  23         .rodata
  24
  25 _plotlo:
  26         .repeat screenrows,line
  27         .byte   <($0000+(line*$80))
  28         .endrepeat
  29
  30 _plothi:
  31         .repeat screenrows,line
  32         .byte   >($0000+(line*$80))
  33         .endrepeat
  34
  35 ;-------------------------------------------------------------------------------
  36 ; force the init constructor to be imported
  37
  38         .import initconio
  39 conio_init      = initconio