adding clrscr.s

2017-02-25 22:10:13 +01:00
parent 4f1d007fb4
commit 1497330cc0
3 changed files with 36 additions and 0 deletions
--- a/libsrc/telestrat/clrscr.s
+++ b/libsrc/telestrat/clrscr.s
@@ -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