4cade/src/fx/fx.shr.common.a

;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 BUILD_SHR_REVERSE_LOOKUP_TABLES .lo, .hi {
         ldx   #$C8
         lda   #$00
         ldy   #$20
-        sta   .lo-1, x
!if .hi < $100 {
         sty   .hi-1, x
} else {
         pha
         tya
         sta   .hi-1, x
         pla
}
         clc
         adc   #$A0
         bcc   +
         iny
+        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   -
}