6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-02-10 09:31:08 +00:00
Code Issues Projects Releases Wiki Activity

Merge pull request #390 from jedeoric/master

Browse Source 
Adding some conio's function
This commit is contained in:
Oliver Schmidt 2017-02-28 12:34:18 +01:00 committed by GitHub
commit 2306c3bde2
8 changed files with 120 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
asminc/telestrat.inc
View File

@ -107,6 +107,7 @@ XWR0 = $10
XWSTR0 = $14 XWSTR0 = $14
XTEXT = $19 XTEXT = $19
XHIRES = $1A XHIRES = $1A
XFILLM = $1C
XMINMA = $1F XMINMA = $1F
XFREAD = $27 ; only in TELEMON 3.0 XFREAD = $27 ; only in TELEMON 3.0
XOPEN = $30 ; only in TELEMON 3.0 XOPEN = $30 ; only in TELEMON 3.0
@ -128,6 +129,13 @@ XINK = $93
XEXPLO = $9C XEXPLO = $9C
XPING = $9D XPING = $9D
; ---------------------------------------------------------------------------
; Page $200
SCRX := $220
SCRY := $224
ADSCRL := $218
ADSCRH := $21C
; --------------------------------------------------------------------------- ; ---------------------------------------------------------------------------
; Page $500 ; Page $500

2
doc/telestrat.sgml
View File

@ -141,7 +141,7 @@ Telestrat manages also mouse, but it had been no handled yet in this version.
Telestrat has a RS232 port, but it's not used Telestrat has a RS232 port, but it's not used
</descrip>< </descrip>
<sect>Limitations<label id="limitations"><p> <sect>Limitations<label id="limitations"><p>

35
libsrc/telestrat/clrscr.s Normal file
View File

@ -0,0 +1,35 @@
;
; jede jede@oric.org 2017-02-25
;
.export _clrscr
.importzp sp
.include "telestrat.inc"
.proc _clrscr
lda #<SCREEN
ldy #>SCREEN
sta RES
sty RES+1
ldy #<(SCREEN+SCREEN_XSIZE*SCREEN_YSIZE)
ldx #>(SCREEN+SCREEN_XSIZE*SCREEN_YSIZE)
lda #' '
BRK_TELEMON XFILLM
; reset prompt position
lda #<(SCREEN+40)
sta ADSCRL
lda #>(SCREEN+40)
sta ADSCRH
; reset display position
lda #$01
sta SCRY
lda #$00
sta SCRX
rts
.endproc

16
libsrc/telestrat/gotox.s Normal file
View File

@ -0,0 +1,16 @@
;
; jede jede@oric.org 2017-02-25
;
.export _gotox
.import popa
.importzp sp
.include "telestrat.inc"
.proc _gotox
sta SCRX
rts
.endproc

19
libsrc/telestrat/gotoxy.s Normal file
View File

@ -0,0 +1,19 @@
;
; jede jede@oric.org 2017-02-25
;
.export _gotoxy
.import popa
.importzp sp
.include "telestrat.inc"
.proc _gotoxy
; This function move only cursor for display, it does not move the prompt position
; in telemon, there is position for prompt, and another for the cursor
sta SCRY
jsr popa
sta SCRX
rts
.endproc

13
libsrc/telestrat/gotoy.s Normal file
View File

@ -0,0 +1,13 @@
;
; jede jede@oric.org 2017-02-25
;
.export _gotoy
.importzp sp
.include "telestrat.inc"
.proc _gotoy
sta SCRY
rts
.endproc

14
libsrc/telestrat/wherex.s Normal file
View File

@ -0,0 +1,14 @@
;
; jede jede@oric.org 2017-02-25
;
.export _wherex
.importzp sp
.include "telestrat.inc"
.proc _wherex
ldx #$00
lda SCRX
rts
.endproc

14
libsrc/telestrat/wherey.s Normal file
View File

@ -0,0 +1,14 @@
;
; jede jede@oric.org 2017-02-25
;
.export _wherey
.importzp sp
.include "telestrat.inc"
.proc _wherey
ldx #$00
lda SCRY
rts
.endproc