empathicqubit/cc65
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

adding clrscr.s

Browse source
This commit is contained in:
jede 2017-02-25 22:10:13 +01:00
parent 4f1d007fb4
commit 1497330cc0
3 changed files with 36 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
asminc/telestrat.inc
View file

@ -133,6 +133,9 @@ XPING = $9D
; Page $200 ; Page $200
SCRX := $220 SCRX := $220
SCRY := $224 SCRY := $224
ADSCRL := $218
ADSCRH := $21C
; --------------------------------------------------------------------------- ; ---------------------------------------------------------------------------
; Page $500 ; Page $500

31
libsrc/telestrat/clrscr.s Normal file
View file

@ -0,0 +1,31 @@
.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 #$02
sta SCRX
rts
.endproc

2
libsrc/telestrat/gotoxy.s
View file

@ -8,6 +8,8 @@
.proc _gotoxy .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 sta SCRY
jsr popa jsr popa
sta SCRX sta SCRX