mirror of https://github.com/a2-4am/4cade.git
37 lines
650 B
Plaintext
37 lines
650 B
Plaintext
;license:MIT
|
|
;(c) 2021 by 4am
|
|
|
|
!macro BUILD_SHR_LOOKUP_TABLES .lo, .hi {
|
|
ldx #$C8
|
|
lda #$60
|
|
ldy #$9C
|
|
- sta .lo-1, x
|
|
!if .hi < $100 {
|
|
sty .hi-1, x
|
|
} else {
|
|
pha
|
|
tya
|
|
sta .hi-1, x
|
|
pla
|
|
}
|
|
sec
|
|
sbc #$A0
|
|
bcs +
|
|
dey
|
|
+ dex
|
|
bne -
|
|
}
|
|
|
|
!macro COPY_SCB_AND_PALETTES {
|
|
sta $C005
|
|
ldy #0
|
|
- lda $9D00, y
|
|
sta $9D00, y
|
|
lda $9E00, y
|
|
sta $9E00, y
|
|
lda $9F00, y
|
|
sta $9F00, y
|
|
iny
|
|
bne -
|
|
}
|