git.sur5r.net Git - cc65/blob - libsrc/telestrat/graphics.s

   1 ; jede jede@oric.org 2017-01-22
   2
   3     .export         _paper,_hires,_text,_circle,_curset, _switchOffCursor
   4
   5     .include        "zeropage.inc"
   6     .include        "telestrat.inc"
   7     .import         popa
   8
   9
  10 .proc _paper
  11     ldx #0 ; First window
  12     ; A contains the paper
  13     BRK_TELEMON XPAPER
  14     rts
  15 .endproc
  16
  17 ; XINK is bugged, it corrupt memory : removing from export
  18 .proc _ink
  19     ldx #0 ; First window
  20     ; A contains the ink
  21     BRK_TELEMON XINK
  22     rts
  23 .endproc
  24
  25 ; can be optimized with a macro
  26 .proc _hires
  27     BRK_TELEMON XHIRES
  28     rts
  29 .endproc
  30
  31 .proc _text
  32     BRK_TELEMON XTEXT
  33     rts
  34 .endproc
  35
  36 .proc _curset
  37     jsr popa ; Pixel
  38     jsr popa
  39         sta HRSX
  40     jsr popa
  41     sta HRSY
  42     BRK_TELEMON XCURSE
  43     rts
  44 .endproc
  45
  46 .proc _circle
  47     sta HRS1
  48     BRK_TELEMON XCIRCL
  49     rts
  50 .endproc
  51
  52 .proc _switchOffCursor
  53     ldx #0
  54     BRK_TELEMON XCOSCR
  55     rts
  56 .endproc
  57
  58