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

diff --git a/libsrc/telestrat/clrscr.s b/libsrc/telestrat/clrscr.s
index 8c45aeeec13abf1fb5d1ad46a70c702e2f1fd158..891c4162dbc46421736256d98a0f2628506da044 100644 (file)
--- 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 (file)
index 0000000..d6af0e4
--- /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 fb659d968a3c1a12e624e9bcff1e32b4ff56f903..7aa83b71d149c69c1f9179805a4a31c1e8404336 100644 (file)
--- 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 (file)
index 0000000..d71570f
--- /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 (file)
index 0000000..6d9587b
--- /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 (file)
index 0000000..e211ed5
--- /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