2019-10-21 23:00:14 +00:00
|
|
|
;license:MIT
|
|
|
|
;(c) 2019 by 4am
|
|
|
|
;
|
|
|
|
copymasks = $0200 ; $100 bytes but sparse, index is 0..6 but in high 3 bits, so $00, $20, $40, $60, $80, $A0, $C0
|
2019-10-23 18:19:34 +00:00
|
|
|
mirror_copymasks = $0201
|
2019-10-21 23:00:14 +00:00
|
|
|
hgrlo = $0300 ; $C0 bytes
|
2019-10-23 05:15:33 +00:00
|
|
|
hgrlomirror = $BD40 ; $C0 bytes
|
|
|
|
mirror_cols = $BE00 ; $28 bytes
|
2019-10-21 23:00:14 +00:00
|
|
|
hgr1hi = $BE40 ; $C0 bytes
|
2019-10-23 05:15:33 +00:00
|
|
|
hgr1himirror = $BF40 ; $C0 bytes
|
2019-10-21 23:00:14 +00:00
|
|
|
|
|
|
|
!source "src/fx/macros.a"
|
|
|
|
|
2019-10-24 19:41:08 +00:00
|
|
|
!macro BUILD_MIRROR_COLS .mirror_cols {
|
2019-10-21 23:00:14 +00:00
|
|
|
; build lookup table to get $27-y for y in $00..$27
|
|
|
|
ldx #$27
|
|
|
|
ldy #$00
|
|
|
|
- tya
|
2020-09-06 18:02:11 +00:00
|
|
|
sta .mirror_cols, x
|
2019-10-21 23:00:14 +00:00
|
|
|
iny
|
|
|
|
dex
|
|
|
|
bpl -
|
2019-10-24 19:41:08 +00:00
|
|
|
}
|
2019-10-21 23:00:14 +00:00
|
|
|
|
2019-10-24 19:41:08 +00:00
|
|
|
!macro BUILD_SPARSE_BITMASKS .copymasks, .mirror_copymasks {
|
2019-10-21 23:00:14 +00:00
|
|
|
; build sparse lookup tables for bitmasks
|
|
|
|
lda #%10000001
|
2019-10-26 02:12:45 +00:00
|
|
|
sta .copymasks
|
|
|
|
sta .mirror_copymasks+$C0
|
2019-10-21 23:00:14 +00:00
|
|
|
|
|
|
|
lda #%10000010
|
2019-10-26 02:12:45 +00:00
|
|
|
sta .copymasks+$20
|
|
|
|
sta .mirror_copymasks+$A0
|
2019-10-21 23:00:14 +00:00
|
|
|
|
|
|
|
lda #%10000100
|
2019-10-26 02:12:45 +00:00
|
|
|
sta .copymasks+$40
|
|
|
|
sta .mirror_copymasks+$80
|
2019-10-21 23:00:14 +00:00
|
|
|
|
|
|
|
lda #%10001000
|
2019-10-26 02:12:45 +00:00
|
|
|
sta .copymasks+$60
|
|
|
|
sta .mirror_copymasks+$60
|
2019-10-21 23:00:14 +00:00
|
|
|
|
|
|
|
lda #%10010000
|
2019-10-26 02:12:45 +00:00
|
|
|
sta .copymasks+$80
|
|
|
|
sta .mirror_copymasks+$40
|
2019-10-21 23:00:14 +00:00
|
|
|
|
|
|
|
lda #%10100000
|
2019-10-26 02:12:45 +00:00
|
|
|
sta .copymasks+$A0
|
|
|
|
sta .mirror_copymasks+$20
|
2019-10-21 23:00:14 +00:00
|
|
|
|
|
|
|
lda #%11000000
|
2019-10-26 02:12:45 +00:00
|
|
|
sta .copymasks+$C0
|
|
|
|
sta .mirror_copymasks
|
2019-10-24 19:41:08 +00:00
|
|
|
}
|
2019-10-21 23:00:14 +00:00
|
|
|
|
2019-10-24 19:41:08 +00:00
|
|
|
!macro ROW_X_TO_BASE_ADDRESSES {
|
2020-09-06 18:02:11 +00:00
|
|
|
lda hgrlo, x
|
|
|
|
sta <dest1
|
|
|
|
sta <src1
|
|
|
|
lda hgr1hi, x
|
|
|
|
sta <dest1+1
|
2019-10-24 19:41:08 +00:00
|
|
|
eor #$60
|
2020-09-06 18:02:11 +00:00
|
|
|
sta <src1+1
|
|
|
|
lda hgrlo+1, x
|
|
|
|
sta <dest2
|
|
|
|
sta <src2
|
|
|
|
lda hgr1hi+1, x
|
|
|
|
sta <dest2+1
|
2019-10-21 23:00:14 +00:00
|
|
|
eor #$60
|
2020-09-06 18:02:11 +00:00
|
|
|
sta <src2+1
|
2019-10-24 19:41:08 +00:00
|
|
|
}
|
2019-10-23 00:14:30 +00:00
|
|
|
|
2019-10-24 19:41:08 +00:00
|
|
|
!macro ROW_X_TO_MIRROR_ADDRESSES {
|
2020-09-06 18:02:11 +00:00
|
|
|
lda hgrlomirror, x
|
|
|
|
sta <mirror_dest1
|
|
|
|
sta <mirror_src1
|
|
|
|
lda hgr1himirror, x
|
|
|
|
sta <mirror_dest1+1
|
2019-10-23 00:14:30 +00:00
|
|
|
eor #$60
|
2020-09-06 18:02:11 +00:00
|
|
|
sta <mirror_src1+1
|
|
|
|
lda hgrlomirror+1, x
|
|
|
|
sta <mirror_dest2
|
|
|
|
sta <mirror_src2
|
|
|
|
lda hgr1himirror+1, x
|
|
|
|
sta <mirror_dest2+1
|
2019-10-23 00:14:30 +00:00
|
|
|
eor #$60
|
2020-09-06 18:02:11 +00:00
|
|
|
sta <mirror_src2+1
|
2019-10-24 19:41:08 +00:00
|
|
|
}
|
2019-10-23 00:14:30 +00:00
|
|
|
|
2019-10-24 19:41:08 +00:00
|
|
|
!macro HIGH_3_LOW_5 .input {
|
2019-10-21 23:00:14 +00:00
|
|
|
and #%11100000 ; second value: high 3 bits = index into tables to find bitmasks
|
|
|
|
tax
|
2020-09-06 18:02:11 +00:00
|
|
|
eor (<.input), y ; second value: low 5 bits = byte offset within the row (implicitly "and #%00011111")
|
2019-10-23 00:14:30 +00:00
|
|
|
tay
|
2019-10-24 19:41:08 +00:00
|
|
|
}
|
2019-10-21 23:00:14 +00:00
|
|
|
|
2019-10-24 19:41:08 +00:00
|
|
|
!macro INC_INPUT_AND_LOOP .loop {
|
2020-09-06 18:02:11 +00:00
|
|
|
inc <input
|
2019-10-24 19:41:08 +00:00
|
|
|
beq +
|
|
|
|
jmp .loop
|
|
|
|
+ bit $c000
|
|
|
|
bmi +
|
2020-09-06 18:02:11 +00:00
|
|
|
inc <input+1
|
2019-10-24 19:41:08 +00:00
|
|
|
jmp .loop
|
|
|
|
+ rts
|
|
|
|
}
|
2019-10-21 23:00:14 +00:00
|
|
|
|
2019-10-24 19:41:08 +00:00
|
|
|
!macro DEC_INPUT_AND_LOOP .loop {
|
|
|
|
lda input
|
|
|
|
beq +
|
|
|
|
dec input
|
|
|
|
dec input
|
|
|
|
jmp .loop
|
|
|
|
+ dec input
|
|
|
|
dec input
|
|
|
|
dec input+1
|
|
|
|
bit $c000
|
|
|
|
bmi +
|
|
|
|
jmp .loop
|
|
|
|
+ rts
|
|
|
|
}
|
|
|
|
|
|
|
|
!macro FX_PRECOMPUTED_1BIT .coords {
|
|
|
|
+BUILD_HGR_LOOKUP_TABLES hgrlo, hgr1hi
|
|
|
|
+BUILD_HGR_MIRROR_LOOKUP_TABLES hgrlomirror, hgr1himirror
|
|
|
|
+BUILD_MIRROR_COLS mirror_cols
|
|
|
|
+BUILD_SPARSE_BITMASKS copymasks, mirror_copymasks
|
2020-09-06 18:02:11 +00:00
|
|
|
ldx #(end-start) ; copy InputLoop code to zero page
|
|
|
|
- lda start-1, x
|
|
|
|
sta $FF, x
|
|
|
|
dex
|
|
|
|
bne -
|
2020-11-13 20:14:20 +00:00
|
|
|
jmp InputLoop
|
2020-09-06 18:02:11 +00:00
|
|
|
start
|
|
|
|
!pseudopc 0 {
|
2019-10-24 19:41:08 +00:00
|
|
|
Exit1Bit rts
|
|
|
|
InputLoop
|
|
|
|
ldy #0
|
2020-09-06 18:02:11 +00:00
|
|
|
input=*+1
|
|
|
|
lda .coords, y ; first value: HGR row (only 0..95 will be in input array)
|
2019-10-24 19:41:08 +00:00
|
|
|
bmi Exit1Bit ; if > 127 then we're done
|
|
|
|
tax
|
|
|
|
+ROW_X_TO_BASE_ADDRESSES
|
|
|
|
+ROW_X_TO_MIRROR_ADDRESSES
|
|
|
|
|
|
|
|
inc input
|
2020-09-06 18:02:11 +00:00
|
|
|
lda (input), y
|
2019-10-24 19:41:08 +00:00
|
|
|
+HIGH_3_LOW_5 input
|
|
|
|
|
|
|
|
; main 1x2 block in top-left quadrant
|
2020-09-06 18:02:11 +00:00
|
|
|
src1=*+1
|
|
|
|
lda $FDFD, y
|
|
|
|
eor (<dest1), y
|
|
|
|
and copymasks, x
|
|
|
|
eor (<dest1), y
|
|
|
|
dest1=*+1
|
|
|
|
sta $FDFD, y
|
|
|
|
src2=*+1
|
|
|
|
lda $FDFD, y
|
|
|
|
eor (<dest2), y
|
|
|
|
and copymasks, x
|
|
|
|
eor (<dest2), y
|
|
|
|
dest2=*+1
|
|
|
|
sta $FDFD, y
|
2019-10-21 23:00:14 +00:00
|
|
|
|
|
|
|
; corresponding 1x2 block in top-right quadrant (same row, opposite column)
|
2020-09-06 18:02:11 +00:00
|
|
|
lda mirror_cols, y
|
2019-10-21 23:00:14 +00:00
|
|
|
tay
|
2019-10-23 18:19:34 +00:00
|
|
|
+COPY_BIT src1, dest1, mirror_copymasks
|
|
|
|
+COPY_BIT src2, dest2, mirror_copymasks
|
2019-10-21 23:00:14 +00:00
|
|
|
|
|
|
|
; corresponding 1x2 block in bottom-right quadrant (opposite row, opposite column)
|
2020-09-06 18:02:11 +00:00
|
|
|
mirror_src1=*+1
|
|
|
|
lda $FDFD, y
|
|
|
|
eor (<mirror_dest1), y
|
|
|
|
and mirror_copymasks, x
|
|
|
|
eor (<mirror_dest1), y
|
|
|
|
mirror_dest1=*+1
|
|
|
|
sta $FDFD, y
|
|
|
|
mirror_src2=*+1
|
|
|
|
lda $FDFD, y
|
|
|
|
eor (<mirror_dest2), y
|
|
|
|
and mirror_copymasks, x
|
|
|
|
eor (<mirror_dest2), y
|
|
|
|
mirror_dest2=*+1
|
|
|
|
sta $FDFD, y
|
2019-10-21 23:00:14 +00:00
|
|
|
|
|
|
|
; corresponding 1x2 block in bottom-left quadrant (opposite row, original column)
|
2020-09-06 18:02:11 +00:00
|
|
|
lda mirror_cols, y
|
2019-10-21 23:00:14 +00:00
|
|
|
tay
|
2019-10-26 02:20:10 +00:00
|
|
|
+COPY_BIT mirror_src1, mirror_dest1, copymasks
|
|
|
|
+COPY_BIT mirror_src2, mirror_dest2, copymasks
|
2019-10-21 23:00:14 +00:00
|
|
|
|
2019-10-24 19:41:08 +00:00
|
|
|
+INC_INPUT_AND_LOOP InputLoop
|
2020-09-06 18:02:11 +00:00
|
|
|
}
|
|
|
|
end
|
2019-10-23 17:59:08 +00:00
|
|
|
!if * and 1 {
|
2019-10-24 19:41:08 +00:00
|
|
|
!byte 0 ;align 2 but avoids the fake allocation bug if it was aligned already
|
2019-10-23 12:16:47 +00:00
|
|
|
}
|
2019-10-21 23:00:14 +00:00
|
|
|
}
|