From f6002a149c84f9b97f9a0838c3977cff2e443d07 Mon Sep 17 00:00:00 2001 From: jede Date: Sat, 25 Feb 2017 21:32:06 +0100 Subject: [PATCH] adding gotoxy.s --- asminc/telestrat.inc | 5 +++++ libsrc/telestrat/gotoxy.s | 15 +++++++++++++++ 2 files changed, 20 insertions(+) create mode 100644 libsrc/telestrat/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