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

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