From: jede <jede@oric.org>
Date: Sat, 25 Feb 2017 21:20:17 +0000 (+0100)
Subject: adding gotox.s gotoy.s wherex.s wherey.s
X-Git-Tag: V2.16~38^2~1
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=7bc3bff83f682f9c511e272e30ae3736ca3681aa;p=cc65

adding gotox.s gotoy.s wherex.s wherey.s
---

diff --git a/libsrc/telestrat/clrscr.s b/libsrc/telestrat/clrscr.s
index 8c45aeeec..891c4162d 100644
--- a/libsrc/telestrat/clrscr.s
+++ b/libsrc/telestrat/clrscr.s
@@ -1,3 +1,7 @@
+;
+; jede jede@oric.org 2017-02-25
+; 
+
     .export    _clrscr
 	
     .importzp  sp
@@ -25,7 +29,7 @@
 	; reset display position
 	lda     #$01
     sta     SCRY
-    lda     #$02
+    lda     #$00
     sta     SCRX	
     rts
 .endproc	
diff --git a/libsrc/telestrat/gotox.s b/libsrc/telestrat/gotox.s
new file mode 100644
index 000000000..d6af0e4dd
--- /dev/null
+++ b/libsrc/telestrat/gotox.s
@@ -0,0 +1,16 @@
+;
+; jede jede@oric.org 2017-02-25
+;
+    .export    _gotox
+	
+    .import    popa
+	
+    .importzp  sp
+
+    .include   "telestrat.inc"
+
+
+.proc _gotox
+   sta    SCRX
+   rts
+.endproc	
diff --git a/libsrc/telestrat/gotoxy.s b/libsrc/telestrat/gotoxy.s
index fb659d968..7aa83b71d 100644
--- a/libsrc/telestrat/gotoxy.s
+++ b/libsrc/telestrat/gotoxy.s
@@ -1,3 +1,6 @@
+;
+; jede jede@oric.org 2017-02-25
+;
     .export    _gotoxy
 	
     .import    popa
@@ -10,8 +13,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
+   sta    SCRY
+   jsr    popa
+   sta    SCRX
    rts
 .endproc	
diff --git a/libsrc/telestrat/gotoy.s b/libsrc/telestrat/gotoy.s
new file mode 100644
index 000000000..d71570f10
--- /dev/null
+++ b/libsrc/telestrat/gotoy.s
@@ -0,0 +1,14 @@
+;
+; jede jede@oric.org 2017-02-25
+;
+    .export    _gotoy
+
+    .importzp  sp
+
+    .include   "telestrat.inc"
+
+
+.proc _gotoy
+   sta     SCRY
+   rts
+.endproc	
diff --git a/libsrc/telestrat/wherex.s b/libsrc/telestrat/wherex.s
new file mode 100644
index 000000000..6d9587ba8
--- /dev/null
+++ b/libsrc/telestrat/wherex.s
@@ -0,0 +1,15 @@
+;
+; jede jede@oric.org 2017-02-25
+;
+    .export    _wherex
+	
+    .importzp  sp
+
+    .include   "telestrat.inc"
+
+
+.proc _wherex
+    ldx    #$00
+    lda    SCRX
+    rts
+.endproc	
diff --git a/libsrc/telestrat/wherey.s b/libsrc/telestrat/wherey.s
new file mode 100644
index 000000000..e211ed5b9
--- /dev/null
+++ b/libsrc/telestrat/wherey.s
@@ -0,0 +1,15 @@
+;
+; jede jede@oric.org 2017-02-25
+; 
+    .export    _wherey
+	
+    .importzp  sp
+
+    .include   "telestrat.inc"
+
+
+.proc _wherey
+    ldx    #$00
+    lda    SCRY
+    rts
+.endproc