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         .rodata
  23
  24 _plotlo:
  25         .repeat screenrows,line
  26         .byte   <($0000+(line*$80))
  27         .endrepeat
  28
  29 _plothi:
  30         .repeat screenrows,line
  31         .byte   >($0000+(line*$80))
  32         .endrepeat
  33
  34 ;-------------------------------------------------------------------------------
  35 ; force the init constructor to be imported
  36
  37         .import initconio
  38 conio_init      = initconio