support for .zeropage segment in GEOS

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

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)