mirror of
https://github.com/cc65/cc65.git
synced 2024-12-24 11: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:
commit
98a2c324f8
@ -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
|
||||
|
||||
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user