2019-09-27 07:38:51 +00:00
|
|
|
;
|
|
|
|
|
; 2016-02-28, Groepaz
|
|
|
|
|
; 2019-09-25, Greg King
|
|
|
|
|
;
|
|
|
|
|
; unsigned char cpeekrevers (void);
|
|
|
|
|
; /* Return the reverse attribute from the current cursor position.
|
|
|
|
|
; ** If the character is reversed, then return 1; return 0 otherwise.
|
|
|
|
|
; */
|
|
|
|
|
;
|
|
|
|
|
|
|
|
|
|
.export _cpeekrevers
|
|
|
|
|
|
|
|
|
|
.include "cx16.inc"
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
_cpeekrevers:
|
|
|
|
|
php
|
|
|
|
|
sei ; don't let cursor blinking interfere
|
|
|
|
|
stz VERA::CTRL ; use port 0
|
|
|
|
|
lda CURS_Y
|
|
|
|
|
sta VERA::ADDR+1 ; set row number
|
|
|
|
|
stz VERA::ADDR+2
|
|
|
|
|
lda CURS_X ; get character column
|
2019-11-16 18:11:40 +00:00
|
|
|
asl a ; each character has two bytes
|
2019-09-27 07:38:51 +00:00
|
|
|
sta VERA::ADDR
|
|
|
|
|
lda VERA::DATA0 ; get screen code
|
|
|
|
|
plp
|
|
|
|
|
and #%10000000 ; get reverse bit
|
|
|
|
|
asl a
|
|
|
|
|
tax ; ldx #>$0000
|
|
|
|
|
rol a ; return boolean value
|
|
|
|
|
rts
|
