6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-06-07 07:29:33 +00:00
Code Issues Projects Releases Wiki Activity

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
SCRX := $220
SCRY := $224
ADSCRL := $218
ADSCRH := $21C
; ---------------------------------------------------------------------------
; 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
; 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