6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-12-23 04:30:10 +00:00
Code Issues Projects Releases Wiki Activity

add gotox, gotoy, and gotoxy

Browse Source
This commit is contained in:
Christian Groessler 2014-03-13 02:38:35 +01:00
parent 84c655a907
commit 30b418c734
4 changed files with 73 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
asminc/atari5200.inc
View File

@ -1,4 +1,26 @@
;-------------------------------------------------------------------------
; ATASCII CHARACTER DEFS
;-------------------------------------------------------------------------
ATCLR = $7D ;CLEAR SCREEN CHARACTER
ATRUB = $7E ;BACK SPACE (RUBOUT)
ATTAB = $7F ;TAB
ATEOL = $9B ;END-OF-LINE
ATDELL = $9C ;delete line
ATINSL = $9D ;insert line
ATCTAB = $9E ;clear TAB
ATSTAB = $9F ;set TAB
ATBEL = $FD ;CONSOLE BELL
ATDEL = $FE ;delete char.
ATINS = $FF ;insert char.
ATURW = $1C ;UP-ARROW
ATDRW = $1D ;DOWN-ARROW
ATLRW = $1E ;LEFT-ARROW
ATRRW = $1F ;RIGHT-ARROW
ATESC = $1B ;ESCAPE
;-------------------------------------------------------------------------
; Zero Page
;-------------------------------------------------------------------------
@ -34,6 +56,10 @@ PADDL6 = $17 ;POT6 "
PADDL7 = $18 ;POT7 "
.importzp COLCRS_5200
.importzp ROWCRS_5200
;-------------------------------------------------------------------------
; Page #2
;-------------------------------------------------------------------------

15
libsrc/atari5200/gotox.s Normal file
View File

@ -0,0 +1,15 @@
;
; Christian Groessler, 13-Mar-2014
;
; void gotox (unsigned char x);
;
.include "atari5200.inc"
.export _gotox
.import setcursor
_gotox:
sta COLCRS_5200 ; Set X
lda #0
sta COLCRS_5200+1
jmp setcursor

19
libsrc/atari5200/gotoxy.s Normal file
View File

@ -0,0 +1,19 @@
;
; Christian Groessler, 13-Mar-2014
;
; void gotoxy (unsigned char x, unsigned char y);
;
.include "atari5200.inc"
.export _gotoxy
.import popa
.import setcursor
_gotoxy: ; Set the cursor position
sta ROWCRS_5200 ; Set Y
jsr popa ; Get X
sta COLCRS_5200 ; Set X
lda #0
sta COLCRS_5200+1 ;
jmp setcursor

13
libsrc/atari5200/gotoy.s Normal file
View File

@ -0,0 +1,13 @@
;
; Christian Groessler, 13-Mar-2014
;
; void gotoy (unsigned char y);
;
.include "atari5200.inc"
.export _gotoy
.import setcursor
_gotoy:
sta ROWCRS_5200 ; Set Y
jmp setcursor