From: jede <jede@oric.org>
Date: Sat, 25 Feb 2017 20:32:06 +0000 (+0100)
Subject: adding gotoxy.s
X-Git-Tag: V2.16~38^2~4
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=f6002a149c84f9b97f9a0838c3977cff2e443d07;p=cc65

adding gotoxy.s
---

diff --git a/asminc/telestrat.inc b/asminc/telestrat.inc
index 2c3502ba8..ab209e520 100644
--- 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
index 000000000..18e010ae2
--- /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