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

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	

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	

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	

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	

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	

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