mirror of
https://github.com/cc65/cc65.git
synced 2026-04-20 02:17:07 +00:00
Konstantin
25 lines
285 B
ArmAsm
25 lines
285 B
ArmAsm
;
|
|
; Oleg A. Odintsov, Moscow, 2024
|
|
;
|
|
; VTABZ routine
|
|
;
|
|
|
|
.export VTABZ
|
|
.include "agat.inc"
|
|
|
|
VTABZ:
|
|
lda CV
|
|
ror
|
|
ror
|
|
ror
|
|
and #$C0
|
|
sta BASL
|
|
lda CV
|
|
lsr
|
|
lsr
|
|
eor BASH
|
|
and #$07
|
|
eor BASH
|
|
sta BASH
|
|
rts
|