Added a missing label to some conio cursor movement functions.

It had prevented other functions, e.g. cputs(), from being linked into a program.
This commit is contained in:
Greg King 2017-06-15 16:44:46 -04:00
parent f44406c46f
commit 30f941ba39
4 changed files with 35 additions and 24 deletions

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -1,19 +1,26 @@
;
; jede jede@oric.org 2017-02-25
; 2017-02-25, jede <jede@oric.org>
; 2017-06-15, Greg King
;
; void gotoxy (unsigned char x, unsigned char y);
;
.export _gotoxy
.import popa
.importzp sp
.include "telestrat.inc"
.export gotoxy, _gotoxy
.import popa
.importzp sp
.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