mirror of https://github.com/a2-4am/4cade.git
38 lines
858 B
Plaintext
38 lines
858 B
Plaintext
;license:MIT
|
|
;(c) 2021 by 4am
|
|
;
|
|
!cpu 6502
|
|
!to "build/FX.INDEXED/SHR.IRIS.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 16
|
|
!text "FX/SHR.IRIS.DATA"
|