6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-01-12 17:30:50 +00:00
Code Issues Projects Releases Wiki Activity

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

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
libsrc/atmos/gotoxy.s
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); ; void gotoxy (unsigned char x, unsigned char y);
; ;
.export _gotoxy .export gotoxy, _gotoxy
.import popa .import popa
.include "atmos.inc" .include "atmos.inc"
gotoxy: jsr popa ; Get Y
.proc _gotoxy .proc _gotoxy
sta CURS_Y ; Set Y sta CURS_Y ; Set Y
@ -17,5 +21,3 @@
rts rts
.endproc .endproc

8
libsrc/creativision/gotoxy.s
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); ; void gotoxy (unsigned char x, unsigned char y);
; ;
.export _gotoxy .export gotoxy, _gotoxy
.import setcursor .import setcursor
.import popa .import popa
.include "creativision.inc" .include "creativision.inc"
gotoxy: jsr popa ; Get Y
.proc _gotoxy .proc _gotoxy
sta CURSOR_Y ; Set Y sta CURSOR_Y ; Set Y

6
libsrc/gamate/gotoxy.s
View File

@ -9,7 +9,7 @@
.include "extzp.inc" .include "extzp.inc"
gotoxy: gotoxy:
jsr popa ; Get X jsr popa ; Get Y
_gotoxy: _gotoxy:
sta CURS_Y ; Set Y sta CURS_Y ; Set Y
@ -20,6 +20,4 @@ _gotoxy:
;------------------------------------------------------------------------------- ;-------------------------------------------------------------------------------
; force the init constructor to be imported ; force the init constructor to be imported
.import initconio .forceimport initconio
conio_init = initconio

17
libsrc/telestrat/gotoxy.s
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 .import popa
.importzp sp .importzp sp
.include "telestrat.inc" .include "telestrat.inc"
gotoxy: jsr popa ; Get Y
.proc _gotoxy .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 sta SCRY
jsr popa jsr popa
sta SCRX sta SCRX