39 lines
585 B
ArmAsm
39 lines
585 B
ArmAsm
;
|
|
; Ullrich von Bassewitz, 2005-03-28
|
|
; Oleg A. Odintsov, Moscow, 2024
|
|
;
|
|
; unsigned char __fastcall__ revers (unsigned char onoff)
|
|
; unsigned char __fastcall__ flash (unsigned char onoff)
|
|
;
|
|
|
|
.export _revers, _flash
|
|
|
|
.include "agat.inc"
|
|
|
|
_revers:
|
|
tax
|
|
beq noinv
|
|
lda TATTR
|
|
and #$D7
|
|
sta TATTR
|
|
rts
|
|
noinv:
|
|
lda TATTR
|
|
ora #$20
|
|
sta TATTR
|
|
rts
|
|
|
|
_flash:
|
|
tax
|
|
beq noflash
|
|
lda TATTR
|
|
and #$DF
|
|
ora #$08
|
|
sta TATTR
|
|
rts
|
|
noflash:
|
|
lda TATTR
|
|
ora #$20
|
|
sta TATTR
|
|
rts
|