mirror of
https://github.com/cc65/cc65.git
synced 2024-10-01 00:57:11 +00:00
50 lines
1015 B
ArmAsm
50 lines
1015 B
ArmAsm
|
|
||
|
|
||
|
.include "atari5200.inc"
|
||
|
.export setcursor
|
||
|
.import cursor ; from conio/_cursor.s
|
||
|
|
||
|
|
||
|
|
||
|
.proc setcursor
|
||
|
|
||
|
rts
|
||
|
|
||
|
.if 0
|
||
|
ldy #0
|
||
|
|
||
|
lda ROWCRS_5200
|
||
|
jsr mul20
|
||
|
clc
|
||
|
; adc SAVMSC ; add start of screen memory
|
||
|
; sta OLDADR
|
||
|
txa
|
||
|
; adc SAVMSC+1
|
||
|
; sta OLDADR+1
|
||
|
lda COLCRS_5200
|
||
|
; adc OLDADR
|
||
|
; sta OLDADR
|
||
|
bcc nc
|
||
|
; inc OLDADR+1
|
||
|
nc:;;; lda (OLDADR),y
|
||
|
; sta OLDCHR
|
||
|
|
||
|
ldx cursor ; current cursor setting as requested by the user
|
||
|
beq off
|
||
|
ldx #0
|
||
|
beq cont
|
||
|
|
||
|
off: inx
|
||
|
cont:;;; stx CRSINH ; update system variable
|
||
|
|
||
|
beq turnon
|
||
|
and #$7f ; clear high bit / inverse flag
|
||
|
finish: ;;;sta (OLDADR),y ; update on-screen display
|
||
|
rts
|
||
|
|
||
|
turnon: ora #$80 ; set high bit / inverse flag
|
||
|
bne finish
|
||
|
.endif
|
||
|
|
||
|
.endproc
|