the10thwiz/cc65
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

support for .zeropage segment in GEOS

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@1834 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
izydorst
2002-12-23 22:14:14 +00:00
parent 31e4d80ac8
commit dc207514dd
13 changed files with 33 additions and 173 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
libsrc/geos/conio/cclear.s
View File

@@ -8,10 +8,10 @@
.include "../inc/jumptab.inc"
.include "../inc/geossym.inc"
.include "../inc/cursor.inc"
.export _cclearxy, _cclear
.import popa, _gotoxy, fixcursor
.importzp cursor_x, cursor_y, cursor_c
_cclearxy:
pha ; Save the length

2
libsrc/geos/conio/cgetc.s
View File

@@ -9,10 +9,10 @@
.export _cgetc
.import update_cursor
.importzp cursor_x, cursor_y, cursor_flag
.include "../inc/jumptab.inc"
.include "../inc/geossym.inc"
.include "../inc/cursor.inc"
_cgetc:
; show cursor if needed

2
libsrc/geos/conio/chline.s
View File

@@ -8,10 +8,10 @@
.include "../inc/jumptab.inc"
.include "../inc/geossym.inc"
.include "../inc/cursor.inc"
.export _chlinexy, _chline
.import popa, _gotoxy, fixcursor
.importzp cursor_x, cursor_y, cursor_c
_chlinexy:
pha ; Save the length

2
libsrc/geos/conio/cpputs.s
View File

@@ -15,11 +15,11 @@
.import _gotoxy
.import popa
.importzp cursor_x, cursor_y
.include "../inc/const.inc"
.include "../inc/geossym.inc"
.include "../inc/jumptab.inc"
.include "../inc/cursor.inc"
_cpputsxy:
sta r0L ; Save s for later

2
libsrc/geos/conio/cputc.s
View File

@@ -13,11 +13,11 @@
.import _gotoxy, fixcursor
.import popa
.import xsize,ysize
.importzp cursor_x, cursor_y, cursor_c, cursor_r
.include "../inc/const.inc"
.include "../inc/geossym.inc"
.include "../inc/jumptab.inc"
.include "../inc/cursor.inc"
_cputcxy:
pha ; Save C

14
libsrc/geos/conio/cursor.s
View File

@@ -2,15 +2,16 @@
;
; Maciej 'YTM/Elysium' Witkowiak
;
; 27.10.2001
; 27.10.2001, 23.12.2002
; unsigned char cursor (unsigned char onoff);
.exportzp cursor_x, cursor_y, cursor_flag
.exportzp cursor_c, cursor_r
.export _cursor
.import update_cursor
.include "../inc/jumptab.inc"
.include "../inc/geossym.inc"
.include "../inc/cursor.inc"
_cursor:
@@ -26,3 +27,12 @@ _cursor:
jsr update_cursor ; place it on screen
L1: pla
rts
.zeropage
cursor_x: .res 2 ; Cursor column (word)
cursor_y: .res 1 ; Cursor row
cursor_flag: .res 1 ; Cursor on/off (0-off)
cursor_c: .res 1 ; Cursor column (0-39/79)
cursor_r: .res 1 ; Cursor row (0-24)

2
libsrc/geos/conio/cvline.s
View File

@@ -8,10 +8,10 @@
.include "../inc/jumptab.inc"
.include "../inc/geossym.inc"
.include "../inc/cursor.inc"
.export _cvlinexy, _cvline
.import popa, _gotoxy, fixcursor
.importzp cursor_x, cursor_y, cursor_r
_cvlinexy:
pha ; Save the length

2
libsrc/geos/conio/gotoxy.s
View File

@@ -11,9 +11,9 @@
.export _gotox, _gotoy, _gotoxy, fixcursor
.import popa
.importzp cursor_x, cursor_y, cursor_c, cursor_r
.include "../inc/jumptab.inc"
.include "../inc/cursor.inc"
_gotox: sta cursor_c
jmp fixcursor

3
libsrc/geos/conio/where.s
View File

@@ -9,10 +9,9 @@
; unsigned char wherey (void);
.export _wherex, _wherey
.importzp tmp1, tmp2
.importzp cursor_c, cursor_r
.include "../inc/jumptab.inc"
.include "../inc/cursor.inc"
_wherex: lda cursor_c
rts