1
0
mirror of https://github.com/cc65/cc65.git synced 2024-11-19 06:31:31 +00:00

Merge pull request #450 from greg-king5/gotoxy-label

Add a missing label to some conio cursor movement functions.
This commit is contained in:
Oliver Schmidt 2017-06-16 09:20:29 +02:00 committed by GitHub
commit 98a2c324f8
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,17 +1,24 @@
;
; jede jede@oric.org 2017-02-25
; 2017-02-25, jede <jede@oric.org>
; 2017-06-15, Greg King
;
.export _gotoxy
; void gotoxy (unsigned char x, unsigned char y);
;
.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
; 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