mirror of
https://github.com/a2-4am/4cade.git
synced 2024-10-16 21:24:12 +00:00
35 lines
535 B
Plaintext
35 lines
535 B
Plaintext
!ifndef MACROS {
|
|
!macro HGR_CALC {
|
|
asl
|
|
tax
|
|
and #$F0
|
|
bpl @calc1
|
|
ora #$05
|
|
@calc1 bcc @calc2
|
|
ora #$0A
|
|
@calc2 asl
|
|
asl
|
|
sta $26
|
|
txa
|
|
and #$0E
|
|
adc #$10
|
|
asl $26
|
|
rol
|
|
sta $27
|
|
eor #$60
|
|
sta $3d
|
|
lda $26
|
|
sta $3c
|
|
}
|
|
|
|
!macro HGR_INC_WITHIN_BLOCK {
|
|
lda $27
|
|
adc #$04
|
|
sta $27
|
|
eor #$60
|
|
sta $3d
|
|
}
|
|
|
|
MACROS=*
|
|
}
|