adding gotoxy.s

diff --git a/asminc/telestrat.inc b/asminc/telestrat.inc
index 2c3502ba8821a0f769cdcabd93ecfb61d25fe983..ab209e520d96d79db29486960f386cf075e00bee 100644 (file)
--- a/asminc/telestrat.inc
+++ b/asminc/telestrat.inc
@@ -107,6 +107,7 @@ XWR0             = $10
 XWSTR0           = $14 
 XTEXT            = $19
 XHIRES           = $1A
+XFILLM           = $1C
 XMINMA           = $1F
 XFREAD           = $27          ; only in TELEMON 3.0
 XOPEN            = $30          ; only in TELEMON 3.0
@@ -128,6 +129,10 @@ XINK             = $93
 XEXPLO           = $9C 
 XPING            = $9D
 
+; ---------------------------------------------------------------------------
+; Page $200
+SCRX             := $220
+SCRY             := $224
 
 ; ---------------------------------------------------------------------------
 ; Page $500

diff --git a/libsrc/telestrat/gotoxy.s b/libsrc/telestrat/gotoxy.s
new file mode 100644 (file)
index 0000000..18e010a
--- /dev/null
+++ b/libsrc/telestrat/gotoxy.s
@@ -0,0 +1,15 @@
+    .export    _gotoxy
+       
+    .import    popa
+       
+    .importzp  sp,tmp2,tmp3,tmp1
+
+    .include   "telestrat.inc"
+
+
+.proc _gotoxy
+   sta SCRY
+   jsr popa
+   sta SCRX
+   rts
+.endproc