2021-12-16 02:59:32 +00:00
|
|
|
;license:MIT
|
|
|
|
|
;(c) 2021 by 4am
|
|
|
|
|
;
|
|
|
|
|
!cpu 6502
|
|
|
|
|
!to "build/FX.INDEXED/SHR.IRIS",plain
|
|
|
|
|
*=$A000
|
|
|
|
|
|
2021-12-18 01:14:02 +00:00
|
|
|
shrlo = $201 ; $C8 bytes
|
|
|
|
|
CoordinatesFileCopy = $2C8; $11 bytes
|
|
|
|
|
shrhi = $301 ; $C8 bytes
|
|
|
|
|
mirror_cols = $1E29 ; $A0 bytes but clobbers $28 bytes before
|
|
|
|
|
mirror_rows = $1F01 ; $C7 bytes
|
|
|
|
|
coords = $9F00 ; $1F41 bytes
|
|
|
|
|
|
|
|
|
|
!source "src/fx/macros.a"
|
|
|
|
|
!source "src/fx/fx.shr.common.a"
|
|
|
|
|
|
|
|
|
|
+SHR_STAGE_1 shrlo, shrhi, mirror_rows, mirror_cols
|
|
|
|
|
jmp stage2
|
|
|
|
|
|
|
|
|
|
!pseudopc *-$300 {
|
|
|
|
|
stage2
|
|
|
|
|
+LOAD_SHR_COORDINATES_AT coords, CoordinatesFile, CoordinatesFileCopy
|
|
|
|
|
;WRITEMAINMEM active
|
|
|
|
|
|
|
|
|
|
+COPY_TO_0 startzp, endzp
|
|
|
|
|
|
|
|
|
|
+WRITE_AUX
|
|
|
|
|
jsr stage3
|
|
|
|
|
+WRITE_MAIN
|
|
|
|
|
|
|
|
|
|
+SHR_RESTORE_FROM_STAGE_2
|
|
|
|
|
+READ_RAM1_WRITE_RAM1
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
startzp
|
|
|
|
|
!pseudopc 0 {
|
|
|
|
|
stage3
|
|
|
|
|
+SHR_STAGE_3 coords, shrlo, shrhi, mirror_rows, mirror_cols
|
|
|
|
|
}
|
|
|
|
|
endzp
|
|
|
|
|
}
|
2021-12-16 02:59:32 +00:00
|
|
|
|
|
|
|
|
CoordinatesFile
|
|
|
|
|
!byte 16
|
|
|
|
|
!text "FX/SHR.IRIS.DATA"
|
