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:
@@ -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)
|
||||
|
||||
Reference in New Issue
Block a user