adding clrscr.s

diff --git a/asminc/telestrat.inc b/asminc/telestrat.inc
index ab209e520d96d79db29486960f386cf075e00bee..8a51e1c32a3894a97a31ff2c9dd0fe6753e9ec99 100644 (file)
--- a/asminc/telestrat.inc
+++ b/asminc/telestrat.inc
@@ -133,6 +133,9 @@ XPING            = $9D
 ; Page $200
 SCRX             := $220
 SCRY             := $224
+ADSCRL           := $218
+ADSCRH           := $21C
+
 
 ; ---------------------------------------------------------------------------
 ; Page $500

diff --git a/libsrc/telestrat/clrscr.s b/libsrc/telestrat/clrscr.s
new file mode 100644 (file)
index 0000000..8c45aee
--- /dev/null
+++ 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       

diff --git a/libsrc/telestrat/gotoxy.s b/libsrc/telestrat/gotoxy.s
index 18e010ae21ea8b675617a558b0b53f3357aac08e..fb659d968a3c1a12e624e9bcff1e32b4ff56f903 100644 (file)
--- a/libsrc/telestrat/gotoxy.s
+++ b/libsrc/telestrat/gotoxy.s
@@ -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