Added a missing label to some conio cursor movement functions.

It had prevented other functions, e.g. cputs(), from being linked into a program.

diff --git a/libsrc/atmos/gotoxy.s b/libsrc/atmos/gotoxy.s
index 80d4d52510fc94c7b86912ab26cfbd8a627a4b8b..6652c94193ba40a9f28c58a72d86f91980f3bc28 100644 (file)
--- a/libsrc/atmos/gotoxy.s
+++ b/libsrc/atmos/gotoxy.s
@@ -1,14 +1,18 @@
 ;
-; Ullrich von Bassewitz, 2003-04-13
+; 2003-04-13, Ullrich von Bassewitz
+; 2017-06-15, Greg King
 ;
 ; void gotoxy (unsigned char x, unsigned char y);
 ;
 
-        .export         _gotoxy
+        .export         gotoxy, _gotoxy
+
         .import         popa
 
         .include        "atmos.inc"
 
+gotoxy: jsr     popa            ; Get Y
+
 .proc   _gotoxy
 
         sta     CURS_Y          ; Set Y
@@ -17,5 +21,3 @@
         rts
 
 .endproc
-
-

diff --git a/libsrc/creativision/gotoxy.s b/libsrc/creativision/gotoxy.s
index 12ce0abeac95b37cd01cac3e0f2af03038831240..588dd83a01ad705f8a07c3bef8ce6944fbc9f63d 100644 (file)
--- a/libsrc/creativision/gotoxy.s
+++ b/libsrc/creativision/gotoxy.s
@@ -1,15 +1,19 @@
 ;
-; Ullrich von Bassewitz, 06.08.1998
+; 1998-08-06, Ullrich von Bassewitz
+; 2017-06-15, Greg King
 ;
 ; void gotoxy (unsigned char x, unsigned char y);
 ;
 
-        .export         _gotoxy
+        .export         gotoxy, _gotoxy
+
         .import         setcursor
         .import         popa
 
         .include        "creativision.inc"
 
+gotoxy: jsr     popa            ; Get Y
+
 .proc   _gotoxy
 
         sta     CURSOR_Y        ; Set Y

diff --git a/libsrc/gamate/gotoxy.s b/libsrc/gamate/gotoxy.s
index 4a4871444d934a5fd815f1fc47c32861ad40b962..d49bd2967ee8f7d774541967da94fa47c8fd38ae 100644 (file)
--- a/libsrc/gamate/gotoxy.s
+++ b/libsrc/gamate/gotoxy.s
@@ -9,7 +9,7 @@
         .include        "extzp.inc"
 
 gotoxy:
-        jsr     popa            ; Get X
+        jsr     popa            ; Get Y
 
 _gotoxy:
         sta     CURS_Y          ; Set Y
@@ -20,6 +20,4 @@ _gotoxy:
 ;-------------------------------------------------------------------------------
 ; force the init constructor to be imported
 
-        .import initconio
-conio_init      = initconio
-
+        .forceimport    initconio

diff --git a/libsrc/telestrat/gotoxy.s b/libsrc/telestrat/gotoxy.s
index e0c8154e350ce97141328b3cea85c006dc5fccef..e1470f8485c41887cd4c6b8f596edd159f760c0f 100644 (file)
--- a/libsrc/telestrat/gotoxy.s
+++ b/libsrc/telestrat/gotoxy.s
@@ -1,19 +1,26 @@
 ;
-; jede jede@oric.org 2017-02-25
+; 2017-02-25, jede <jede@oric.org>
+; 2017-06-15, Greg King
 ;
-    .export    _gotoxy
-       
-    .import    popa
-       
-    .importzp  sp
+; void gotoxy (unsigned char x, unsigned char y);
+;
+
+        .export         gotoxy, _gotoxy
+
+        .import         popa
+        .importzp       sp
 
-    .include   "telestrat.inc"
+        .include        "telestrat.inc"
+
+gotoxy: jsr     popa            ; Get Y
 
 .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
-   rts
-.endproc       
+
+; This function moves only the display cursor; it does not move the prompt position.
+; In telemon, there is a position for the prompt, and another for the cursor.
+
+        sta     SCRY
+        jsr     popa
+        sta     SCRX
+        rts
+.endproc