;license:MIT
;(c) 2021 by 4am
;
!cpu 6502
!to "build/FX.INDEXED/SHR.SOFTIRIS.IN",plain
*=$A000

mirror_rows = $106        ; $C8 bytes
shrlo    = $200           ; $C8 bytes
shrhi    = $300           ; $C8 bytes
coords   = $9F00          ; $1F41 bytes
CoordinatesFileCopy = $BE42; $11 bytes
mirror_cols = $BE60       ; $A0 bytes but clobbers $27 previous bytes during construction

         !source "src/fx/macros.a"

         +SHR_STAGE_1 shrlo, shrhi, mirror_rows, mirror_cols
         jmp   stage2

!pseudopc *-$300 {
stage2
         +LOAD_SHR_COORDINATES_AT coords, CoordinatesFile, CoordinatesFileCopy
         +SHR_REVERSE coords
         +SHR_STAGE_2 startzp, endzp
         rts

startzp
!pseudopc 0 {
stage3
         +SHR_STAGE_3 coords, shrlo, shrhi, mirror_rows, mirror_cols
}
endzp
}

CoordinatesFile
         !byte 18
         !text "FX/SHR.SFIRIS.DATA"