Initial Agat support
This commit is contained in:
24
libsrc/agat/vtabz.s
Normal file
24
libsrc/agat/vtabz.s
Normal file
@@ -0,0 +1,24 @@
|
||||
;
|
||||
; 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
|
||||
Reference in New Issue
Block a user