Adding files for telemon30
This commit is contained in:
51
libsrc/telemon30/graphics.s
Normal file
51
libsrc/telemon30/graphics.s
Normal file
@@ -0,0 +1,51 @@
|
||||
.export _paper,_hires,_text,_circle,_curset, _switchOffCursor
|
||||
.importzp sp,tmp2,tmp3,tmp1
|
||||
|
||||
.include "telemon30.inc"
|
||||
|
||||
.proc _paper
|
||||
ldx #0 ; First window
|
||||
; A contains the paper
|
||||
BRK_TELEMON XPAPER
|
||||
rts
|
||||
.endproc
|
||||
|
||||
; XINK is bugged, it corrupt memory : removing from export
|
||||
.proc _ink
|
||||
ldx #0 ; First window
|
||||
; A contains the ink
|
||||
BRK_TELEMON XINK
|
||||
rts
|
||||
.endproc
|
||||
|
||||
; can be optimized with a macro
|
||||
.proc _hires
|
||||
BRK_TELEMON XHIRES
|
||||
rts
|
||||
.endproc
|
||||
|
||||
.proc _text
|
||||
BRK_TELEMON XTEXT
|
||||
rts
|
||||
.endproc
|
||||
|
||||
.proc _curset
|
||||
sta HRSX
|
||||
sty HRSY
|
||||
BRK_TELEMON XCURSE
|
||||
rts
|
||||
.endproc
|
||||
|
||||
.proc _circle
|
||||
sta HRS1
|
||||
BRK_TELEMON XCIRCL
|
||||
rts
|
||||
.endproc
|
||||
|
||||
.proc _switchOffCursor
|
||||
ldx #0
|
||||
BRK_TELEMON XCOSCR
|
||||
rts
|
||||
.endproc
|
||||
|
||||
|
||||
Reference in New Issue
Block a user