mirror of
https://github.com/cc65/cc65.git
synced 2024-12-23 19:29:37 +00:00
Remove duplicate code
This commit is contained in:
parent
7e7f9ffa58
commit
770b22e14d
@ -23,7 +23,6 @@
|
||||
; definitely not allow direct access to the variables.
|
||||
;
|
||||
|
||||
.export _setcursor
|
||||
.export gotoxy, _gotoxy, _gotox, _gotoy, _wherex, _wherey
|
||||
.export CURS_X, CURS_Y
|
||||
.constructor init_cursor
|
||||
@ -31,6 +30,7 @@
|
||||
|
||||
.importzp sp
|
||||
.import _zones
|
||||
.import cursor
|
||||
.import pusha, incsp1, pusha0, pushax, popax
|
||||
.include "atari7800.inc"
|
||||
.include "extzp.inc"
|
||||
@ -46,8 +46,6 @@ CURS_X:
|
||||
.byte 0
|
||||
CURS_Y:
|
||||
.byte 0
|
||||
_cursor_visible:
|
||||
.byte 1
|
||||
blink_time:
|
||||
.byte 140
|
||||
|
||||
@ -79,18 +77,6 @@ umula0:
|
||||
lda ptr7800 ; Load the result
|
||||
rts
|
||||
|
||||
;-----------------------------------------------------------------------------
|
||||
; Enable/disable cursor
|
||||
;
|
||||
.proc _setcursor
|
||||
|
||||
ldx _cursor_visible
|
||||
sta _cursor_visible
|
||||
txa
|
||||
rts
|
||||
|
||||
.endproc
|
||||
|
||||
;-----------------------------------------------------------------------------
|
||||
; Calculate cursorzone address
|
||||
; You also need to set the cursorzone to point to the correct cursor Header
|
||||
@ -147,7 +133,7 @@ umula0:
|
||||
pla
|
||||
sta CURS_Y
|
||||
jsr calccursorzone
|
||||
lda _cursor_visible
|
||||
lda cursor
|
||||
beq @L1
|
||||
lda #30 ; enable cursor
|
||||
@L1: ldy #1
|
||||
|
Loading…
Reference in New Issue
Block a user