Apple-2-Tools/4cade
1
0
Fork 0
mirror of https://github.com/a2-4am/4cade.git synced 2024-06-25 21:29:43 +00:00
Code Issues Projects Releases Wiki Activity

use some descriptive constants

Browse Source
This commit is contained in:
4am 2024-05-28 21:17:10 -04:00
parent 7922873dbf
commit eb07d7798c
45 changed files with 196 additions and 196 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/fx/fx.dgr.fizzle.a
View File

@ -29,9 +29,9 @@ loop2 txa
clc
adc #$7C
sta <src+2
sta $C004
sta WRITEMAINMEM
bmi +
sta $C005
sta WRITEAUXMEM
+ jsr src
txa
lsr
@ -41,7 +41,7 @@ loop2 txa
tay
bcc loop2
bne loop
bit $C000
bit KBD
bmi exit
txa
bne loop1

20
src/fx/fx.dhgr.2bit.fizzle.a
View File

@ -16,9 +16,9 @@ copymasks = $6200 ; [256 bytes, page-aligned, duplicated in a
-- ldy #$40 ; create identical copymask tables in main and aux memory
ora #%10000000
- sta copymasks, x
sta $C005
sta WRITEAUXMEM
sta copymasks, x
sta $C004
sta WRITEMAINMEM
inx
dey
bne -
@ -29,14 +29,14 @@ copymasks = $6200 ; [256 bytes, page-aligned, duplicated in a
-- ldy #$20 ; create identical address tables in main and aux memory
tya
- sta addrs, x
sta $C005
sta WRITEAUXMEM
sta addrs, x
sta $C004
sta WRITEMAINMEM
eor #$A0
sta addrs+1, x
sta $C005
sta WRITEAUXMEM
sta addrs+1, x
sta $C004
sta WRITEMAINMEM
eor #$A0
adc #1
inx
@ -51,7 +51,7 @@ start
!pseudopc 0 {
!byte %00000011
;Y=0 on entry to copyaux
copyaux sta $C003 ; copy $4000/aux to $8000/main
copyaux sta READAUXMEM ; copy $4000/aux to $8000/main
ldx #$20
a lda $4000, y
b sta $8000, y
@ -61,7 +61,7 @@ b sta $8000, y
inc b+2
dex
bne a
sta $C002
sta READMAINMEM
sta $C001 ; 80STORE mode
; X,Y=0 on entry to LFSR
loop txa
@ -86,7 +86,7 @@ dst sta $FD00, y ; write the result
tay
bcc loop2 ; C modified by ror
bne loop ; Z modified by tay
lda $C000
lda KBD
bmi exit
txa
bne loop1
@ -112,7 +112,7 @@ auxdst sta $FD00, y
tay
bcc loop2
bne loop
lda $C000
lda KBD
bmi exit
txa
bne loop1

8
src/fx/fx.dhgr.2pass.lr.a
View File

@ -34,11 +34,11 @@ rowloop
- sec
src lda $FDFD, y ; SMC
dst sta $FDFD ,y ; SMC
sta $C003
sta $C005
sta READAUXMEM
sta WRITEAUXMEM
bcc -
sta $C002
sta $C004
sta READMAINMEM
sta WRITEMAINMEM
inx
inx
cpx #$C0

6
src/fx/fx.dhgr.48boxes.common.a
View File

@ -350,7 +350,7 @@ NextBox dex
lda j+2
beq + ; if we didn't draw anything in any box, we're done
stx j+2 ; X=0 here
bit $C000 ; check for key
bit KBD ; check for key
bpl MainLoop
+ sta $C000 ; 80STORE off
; execution falls through here
@ -605,7 +605,7 @@ codegen_maskindex
CopyAuxDHGRToMain
; X=0
sta $C003 ; copy $4000-5FFF/aux to $9000-AFFF/main
sta READAUXMEM ; copy $4000-5FFF/aux to $9000-AFFF/main
ldy #$20
@a lda $4000, x
@b sta $9000, x
@ -615,7 +615,7 @@ CopyAuxDHGRToMain
inc <@b+2
dey
bne @a
sta $C002
sta READMAINMEM
; X=0,Y=0
rts
}

8
src/fx/fx.dhgr.bar.dissolve.a
View File

@ -66,11 +66,11 @@ dst2 sta $FDFD, y ; SMC
dec row2
inc row1
bne loop
tomain sta $C002
sta $C004
tomain sta READMAINMEM
sta WRITEMAINMEM
exit rts
toaux sta $C003
sta $C005
toaux sta READAUXMEM
sta WRITEAUXMEM
rts
}
end

22
src/fx/fx.dhgr.diagonal.a
View File

@ -19,9 +19,9 @@ copymasks= $02C1 ; [$08 bytes, different values in main and
- lda copymasks_main-1, y
sta copymasks-1, y
lda copymasks_aux-1, y
sta $C005
sta WRITEAUXMEM
sta copymasks-1, y
sta $C004
sta WRITEMAINMEM
dey
bne -
@ -76,7 +76,7 @@ rowloop lda <row
jsr DHGRBlockCopy
+ dec <row
bpl rowloop
lda $C000
lda KBD
bmi exit
dec <col
dec <counter
@ -111,12 +111,12 @@ dst sta $FDFD, y
sta <src+2
eor #$60
sta <dst+2
sta $C003
sta $C005
sta READAUXMEM
sta WRITEAUXMEM
dec <pass
bne --
sta $C002
sta $C004
sta READMAINMEM
sta WRITEMAINMEM
rts
DHGRBlockCopy
@ -137,8 +137,8 @@ DHGRBlockCopy
sta <src+2
eor #$60
sta <dst+2
sta $C003
sta $C005
sta READAUXMEM
sta WRITEAUXMEM
ldx #7
clc
- lda (<src+1), y
@ -150,8 +150,8 @@ DHGRBlockCopy
sta <dst+2
dex
bpl -
sta $C002
sta $C004
sta READMAINMEM
sta WRITEMAINMEM
rts
row !byte 23

32
src/fx/fx.dhgr.dither.radial.a
View File

@ -61,12 +61,12 @@ LoopBL ; bottom-left quadrant (opposite row, origi
+COPY_BIT_DITHER mirror_src1, mirror_dest1, copymasks1bit, oddrow_ptr
+COPY_BIT_DITHER mirror_src2, mirror_dest2, copymasks1bit, evenrow_ptr
+ bcs +
sta $C003
sta $C005
sta READAUXMEM
sta WRITEAUXMEM
sec
bcs -
+ sta $C002
sta $C004
+ sta READMAINMEM
sta WRITEMAINMEM
+DEC_INPUT_AND_LOOP input, LoopBL
DoneBL
@ -87,12 +87,12 @@ LoopTL ; top-left quadrant
+COPY_BIT_DITHER src1, dest1, copymasks1bit, evenrow_ptr
+COPY_BIT_DITHER src2, dest2, copymasks1bit, oddrow_ptr
+ bcs +
sta $C003
sta $C005
sta READAUXMEM
sta WRITEAUXMEM
sec
bcs -
+ sta $C002
sta $C004
+ sta READMAINMEM
sta WRITEMAINMEM
+INC_INPUT_AND_LOOP input, LoopTL
DoneTL
@ -115,12 +115,12 @@ LoopTR ; top-right quadrant (same row, opposite co
+COPY_BIT_DITHER src1, dest1, mirror_copymasks1bit, evenrow_ptr
+COPY_BIT_DITHER src2, dest2, mirror_copymasks1bit, oddrow_ptr
+ bcs +
sta $C003
sta $C005
sta READAUXMEM
sta WRITEAUXMEM
sec
bcs -
+ sta $C002
sta $C004
+ sta READMAINMEM
sta WRITEMAINMEM
+DEC_INPUT_AND_LOOP input, LoopTR
DoneTR
@ -143,12 +143,12 @@ LoopBR ; bottom-right quadrant (opposite row, oppo
+COPY_BIT_DITHER mirror_src1, mirror_dest1, mirror_copymasks1bit, oddrow_ptr
+COPY_BIT_DITHER mirror_src2, mirror_dest2, mirror_copymasks1bit, evenrow_ptr
+ bcs +
sta $C003
sta $C005
sta READAUXMEM
sta WRITEAUXMEM
sec
bcs -
+ sta $C002
sta $C004
+ sta READMAINMEM
sta WRITEMAINMEM
+INC_INPUT_AND_LOOP input, LoopBR
DoneBR
rts

32
src/fx/fx.dhgr.dither.radial.common.a
View File

@ -57,12 +57,12 @@ Loop ldy #0
+COPY_BIT_DITHER src1, dest1, copymasks1bit, evenrow_ptr
+COPY_BIT_DITHER src2, dest2, copymasks1bit, oddrow_ptr
+ bcs +
sta $C003
sta $C005
sta READAUXMEM
sta WRITEAUXMEM
sec
bcs -
+ sta $C002
sta $C004
+ sta READMAINMEM
sta WRITEMAINMEM
; bottom-right quadrant (opposite row, opposite column, original input order)
lda mirror_cols,y
@ -73,12 +73,12 @@ Loop ldy #0
+COPY_BIT_DITHER mirror_src1, mirror_dest1, mirror_copymasks1bit, oddrow_ptr
+COPY_BIT_DITHER mirror_src2, mirror_dest2, mirror_copymasks1bit, evenrow_ptr
+ bcs +
sta $C003
sta $C005
sta READAUXMEM
sta WRITEAUXMEM
sec
bcs -
+ sta $C002
sta $C004
+ sta READMAINMEM
sta WRITEMAINMEM
ldy #0
lda (reverse_input),y
@ -96,12 +96,12 @@ Loop ldy #0
+COPY_BIT_DITHER mirror_src1, mirror_dest1, copymasks1bit, oddrow_ptr
+COPY_BIT_DITHER mirror_src2, mirror_dest2, copymasks1bit, evenrow_ptr
+ bcs +
sta $C003
sta $C005
sta READAUXMEM
sta WRITEAUXMEM
sec
bcs -
+ sta $C002
sta $C004
+ sta READMAINMEM
sta WRITEMAINMEM
; top-right quadrant (same row, opposite column, reverse input order)
lda mirror_cols,y
@ -112,12 +112,12 @@ Loop ldy #0
+COPY_BIT_DITHER src1, dest1, mirror_copymasks1bit, evenrow_ptr
+COPY_BIT_DITHER src2, dest2, mirror_copymasks1bit, oddrow_ptr
+ bcs +
sta $C003
sta $C005
sta READAUXMEM
sta WRITEAUXMEM
sec
bcs -
+ sta $C002
sta $C004
+ sta READMAINMEM
sta WRITEMAINMEM
inc input
bne +

8
src/fx/fx.dhgr.fizzle.a
View File

@ -27,7 +27,7 @@ addrs=$BF ; [$40 bytes]
start
!pseudopc 0 {
;Y=0 on entry to copyaux
copyaux sta $C003 ; copy $4000/aux to $8000/main
copyaux sta READAUXMEM ; copy $4000/aux to $8000/main
ldx #$20
a lda $4000, y
b sta $8000, y
@ -37,7 +37,7 @@ b sta $8000, y
inc b+2
dex
bne a
sta $C002
sta READMAINMEM
sta $C001 ; 80STORE mode
;X,Y=0 on entry to LFSR
loop txa
@ -59,7 +59,7 @@ dst sta $FD00, y
tay
bcc loop2
bne loop
bit $C000
bit KBD
bmi exit
txa
bne loop1
@ -81,7 +81,7 @@ auxdst sta $FD00, y
tay
bcc loop2
bne loop
lda $C000
lda KBD
bmi exit
txa
bne loop1

10
src/fx/fx.dhgr.flick.a
View File

@ -45,11 +45,11 @@ rowloop lda hgrlo, x
bankloop sec
src lda $FDFD, y
dst sta $FDFD, y
sta $C003
sta $C005
sta READAUXMEM
sta WRITEAUXMEM
bcc bankloop
sta $C002
sta $C004
sta READMAINMEM
sta WRITEMAINMEM
inx
dec <rowcount
bne rowloop
@ -73,7 +73,7 @@ nextcolumn
sta <rowcounts_by_column, y
++ dey
bpl -
lda $C000
lda KBD
bmi exit
lda <rowcounts_by_column+$27
cmp #$80

8
src/fx/fx.dhgr.precomputed.1bit.a
View File

@ -122,14 +122,14 @@ mirror_dest2=*+1
+COPY_BIT_ZP_DITHER src2, dest2, mirror_copymask, oddrow_ptr
+
bcs +
sta $C003
sta $C005
sta READAUXMEM
sta WRITEAUXMEM
y=*+1
ldy #$FD
sec
jmp bankloop
+ sta $C002
sta $C004
+ sta READMAINMEM
sta WRITEMAINMEM
next
inc <input

16
src/fx/fx.dhgr.precomputed.2bit.a
View File

@ -84,12 +84,12 @@ src2=*+1
dest2=*+1
sta $FDFD, y
+ bcs +
sta $C003
sta $C005
sta READAUXMEM
sta WRITEAUXMEM
sec
bcs -
+ sta $C002
sta $C004
+ sta READMAINMEM
sta WRITEMAINMEM
; corresponding 2x2 block in right half (same row, opposite column)
lda mirror_cols, y
@ -100,12 +100,12 @@ dest2=*+1
+COPY_BIT_DITHER src1, dest1, mirror_copymasks2bit, evenrow_ptr
+COPY_BIT_DITHER src2, dest2, mirror_copymasks2bit, oddrow_ptr
+ bcs +
sta $C003
sta $C005
sta READAUXMEM
sta WRITEAUXMEM
sec
bcs -
+ sta $C002
sta $C004
+ sta READMAINMEM
sta WRITEMAINMEM
next
inc <input

14
src/fx/fx.dhgr.r.by.pixel.a
View File

@ -18,9 +18,9 @@ copymasks= $02C1 ; [$07 bytes, different values in main and
- lda copymasks_main-1, y
sta copymasks-1, y
lda copymasks_aux-1, y
sta $C005
sta WRITEAUXMEM
sta copymasks-1, y
sta $C004
sta WRITEMAINMEM
dey
bne -
@ -77,16 +77,16 @@ src eor $FDFD, y ; SMC
and copymasks, x ; bank-specific copymasks are at the same address in main and auxmem, which is neat
eor (<dst+1), y
dst sta $FDFD, y ; SMC
+ sta $C003
sta $C005
+ sta READAUXMEM
sta WRITEAUXMEM
bcc -
sta $C002
sta $C004
sta READMAINMEM
sta WRITEMAINMEM
dec <rowindex
bne rowloop
dec <maskindex
bpl maskloop
bit $C000
bit KBD
bmi exit
iny
cpy #$28

32
src/fx/fx.dhgr.radial.a
View File

@ -44,12 +44,12 @@ LoopBL ; bottom-left quadrant (opposite row, origi
+COPY_BIT mirror_src1, mirror_dest1, copymasks1bit
+COPY_BIT mirror_src2, mirror_dest2, copymasks1bit
+ bcs +
sta $C003
sta $C005
sta READAUXMEM
sta WRITEAUXMEM
sec
bcs -
+ sta $C002
sta $C004
+ sta READMAINMEM
sta WRITEMAINMEM
+DEC_INPUT_AND_LOOP input, LoopBL
DoneBL
@ -70,12 +70,12 @@ LoopTL ; top-left quadrant
+COPY_BIT src1, dest1, copymasks1bit
+COPY_BIT src2, dest2, copymasks1bit
+ bcs +
sta $C003
sta $C005
sta READAUXMEM
sta WRITEAUXMEM
sec
bcs -
+ sta $C002
sta $C004
+ sta READMAINMEM
sta WRITEMAINMEM
+INC_INPUT_AND_LOOP input, LoopTL
DoneTL
@ -98,12 +98,12 @@ LoopTR ; top-right quadrant (same row, opposite co
+COPY_BIT src1, dest1, mirror_copymasks1bit
+COPY_BIT src2, dest2, mirror_copymasks1bit
+ bcs +
sta $C003
sta $C005
sta READAUXMEM
sta WRITEAUXMEM
sec
bcs -
+ sta $C002
sta $C004
+ sta READMAINMEM
sta WRITEMAINMEM
+DEC_INPUT_AND_LOOP input, LoopTR
DoneTR
@ -126,12 +126,12 @@ LoopBR ; bottom-right quadrant (opposite row, oppo
+COPY_BIT mirror_src1, mirror_dest1, mirror_copymasks1bit
+COPY_BIT mirror_src2, mirror_dest2, mirror_copymasks1bit
+ bcs +
sta $C003
sta $C005
sta READAUXMEM
sta WRITEAUXMEM
sec
bcs -
+ sta $C002
sta $C004
+ sta READMAINMEM
sta WRITEMAINMEM
+INC_INPUT_AND_LOOP input, LoopBR
DoneBR
rts

32
src/fx/fx.dhgr.radial.common.a
View File

@ -42,12 +42,12 @@ Loop ldy #0
+COPY_BIT src1, dest1, copymasks1bit
+COPY_BIT src2, dest2, copymasks1bit
+ bcs +
sta $C003
sta $C005
sta READAUXMEM
sta WRITEAUXMEM
sec
bcs -
+ sta $C002
sta $C004
+ sta READMAINMEM
sta WRITEMAINMEM
; bottom-right quadrant (opposite row, opposite column, original input order)
lda mirror_cols,y
@ -58,12 +58,12 @@ Loop ldy #0
+COPY_BIT mirror_src1, mirror_dest1, mirror_copymasks1bit
+COPY_BIT mirror_src2, mirror_dest2, mirror_copymasks1bit
+ bcs +
sta $C003
sta $C005
sta READAUXMEM
sta WRITEAUXMEM
sec
bcs -
+ sta $C002
sta $C004
+ sta READMAINMEM
sta WRITEMAINMEM
ldy #0
lda (reverse_input),y
@ -81,12 +81,12 @@ Loop ldy #0
+COPY_BIT mirror_src1, mirror_dest1, copymasks1bit
+COPY_BIT mirror_src2, mirror_dest2, copymasks1bit
+ bcs +
sta $C003
sta $C005
sta READAUXMEM
sta WRITEAUXMEM
sec
bcs -
+ sta $C002
sta $C004
+ sta READMAINMEM
sta WRITEMAINMEM
; top-right quadrant (same row, opposite column, reverse input order)
lda mirror_cols,y
@ -97,12 +97,12 @@ Loop ldy #0
+COPY_BIT src1, dest1, mirror_copymasks1bit
+COPY_BIT src2, dest2, mirror_copymasks1bit
+ bcs +
sta $C003
sta $C005
sta READAUXMEM
sta WRITEAUXMEM
sec
bcs -
+ sta $C002
sta $C004
+ sta READMAINMEM
sta WRITEMAINMEM
inc input
bne +

32
src/fx/fx.dhgr.radial3.a
View File

@ -50,12 +50,12 @@ Loop ldy #0
+COPY_BIT src1, dest1, copymasks1bit
+COPY_BIT src2, dest2, copymasks1bit
+ bcs +
sta $C003
sta $C005
sta READAUXMEM
sta WRITEAUXMEM
sec
bcs -
+ sta $C002
sta $C004
+ sta READMAINMEM
sta WRITEMAINMEM
; bottom-right quadrant (opposite row, opposite column, original input order)
lda mirror_cols,y
@ -66,12 +66,12 @@ Loop ldy #0
+COPY_BIT mirror_src1, mirror_dest1, mirror_copymasks1bit
+COPY_BIT mirror_src2, mirror_dest2, mirror_copymasks1bit
+ bcs +
sta $C003
sta $C005
sta READAUXMEM
sta WRITEAUXMEM
sec
bcs -
+ sta $C002
sta $C004
+ sta READMAINMEM
sta WRITEMAINMEM
ldy #0
lda (reverse_input),y
@ -89,12 +89,12 @@ Loop ldy #0
+COPY_BIT mirror_src1, mirror_dest1, copymasks1bit
+COPY_BIT mirror_src2, mirror_dest2, copymasks1bit
+ bcs +
sta $C003
sta $C005
sta READAUXMEM
sta WRITEAUXMEM
sec
bcs -
+ sta $C002
sta $C004
+ sta READMAINMEM
sta WRITEMAINMEM
; top-right quadrant (same row, opposite column, reverse input order)
lda mirror_cols,y
@ -105,12 +105,12 @@ Loop ldy #0
+COPY_BIT src1, dest1, mirror_copymasks1bit
+COPY_BIT src2, dest2, mirror_copymasks1bit
+ bcs +
sta $C003
sta $C005
sta READAUXMEM
sta WRITEAUXMEM
sec
bcs -
+ sta $C002
sta $C004
+ sta READMAINMEM
sta WRITEMAINMEM
inc input
bne +

20
src/fx/fx.dhgr.redlines.a
View File

@ -37,7 +37,7 @@ row2=*+1
beq +
jsr DrawBlackLine
+
lda $C000
lda KBD
bmi exit
inc row1
dec row2
@ -59,7 +59,7 @@ loop2 jsr WaitForVBL
ldx row2
inx
jsr CopyLine
lda $C000
lda KBD
bmi exit
inc row1
dec row2
@ -81,14 +81,14 @@ DrawRedLine
reddst1 sta $FDFD, y ; SMC
dey
bpl -
sta $C005
sta WRITEAUXMEM
ldy #$27
lda #$08
- eor #$2A
reddst2 sta $FDFD, y ; SMC
dey
bpl -
sta $C004
sta WRITEMAINMEM
rts
DrawBlackLine
@ -104,9 +104,9 @@ DrawBlackLine
blackdst sta $FDFD, y ; SMC
dey
bpl blackdst
sta $C005
sta WRITEAUXMEM
bcc --
sta $C004
sta WRITEMAINMEM
rts
CopyLine
@ -125,11 +125,11 @@ copysrc lda $FDFD, y ; SMC
copydst sta $FDFD, y ; SMC
dey
bpl copysrc
sta $C003
sta $C005
sta READAUXMEM
sta WRITEAUXMEM
bcc -
sta $C002
sta $C004
sta READMAINMEM
sta WRITEMAINMEM
rts
}
end

8
src/fx/fx.dhgr.soft.diagonal.a
View File

@ -127,8 +127,8 @@ RowLoop
+COPY_BYTE 6
+COPY_BYTE 7
@switchtoaux
sta $C003
sta $C005
sta READAUXMEM
sta WRITEAUXMEM
+BRANCH_IF_Y_IS_OFFSCREEN @block6_aux
+COPY_BYTE 0
+COPY_BYTE 1
@ -187,8 +187,8 @@ RowLoop
+COPY_WITH_OFFSET_AND_MASK 3, %11000000
+COPY_WITH_OFFSET_AND_MASK 4, %11000000
@switchtomain
sta $C002
sta $C004
sta READMAINMEM
sta WRITEMAINMEM
iny
jmp RowLoop

2
src/fx/fx.gr.fizzle.a
View File

@ -46,7 +46,7 @@ dst sta $FD00, y ; SMC high byte
tay
bcc loop2
bne loop
bit $C000
bit KBD
bmi exit
txa
bne loop1

2
src/fx/fx.hgr.1bit.fizzle.a
View File

@ -59,7 +59,7 @@ dst sta $FD00, y ; write the result
tay
bcc loop2 ; C modified by ror
bne loop ; Z modified by tay
bit $C000
bit KBD
bmi exit
txa
bne loop1

2
src/fx/fx.hgr.2bit.fizzle.a
View File

@ -60,7 +60,7 @@ dst sta $FD00, y ; write the result
tay
bcc loop2 ; C modified by ror
bne loop ; Z modified by tay
bit $C000
bit KBD
bmi exit
txa
bne loop1

2
src/fx/fx.hgr.48boxes.common.a
View File

@ -549,7 +549,7 @@ NextBox dex
bpl <BoxLoop
lda <j+2
bpl + ; if we didn't draw anything in any box, we're done
lda $C000
lda KBD
sta <j+2
bpl <MainLoop
+ rts

2
src/fx/fx.hgr.checkerboard.fizzle.a
View File

@ -139,7 +139,7 @@ dst sta $FD00, y ; write the result
tay
bcc loop2 ; C modified by ror
bne loop ; Z modified by tay
bit $C000
bit KBD
bmi exit
txa
bne loop1

2
src/fx/fx.hgr.circle.stripes.a
View File

@ -100,7 +100,7 @@ RowLoop
lda #13
sta mask2
+
bit $C000
bit KBD
bmi Exit
inc row1
dec row2

2
src/fx/fx.hgr.diagonal.stripes.a
View File

@ -92,7 +92,7 @@ RowLoop
lda #13
sta mask2
+
bit $C000
bit KBD
bmi Exit
inc row1
dec row2

2
src/fx/fx.hgr.diamond.stripes.a
View File

@ -100,7 +100,7 @@ RowLoop
lda #15
sta mask2
+
bit $C000
bit KBD
bmi Exit
inc row1
dec row2

2
src/fx/fx.hgr.fizzle.a
View File

@ -36,7 +36,7 @@ loop2 txa
tay
bcc loop2
bne loop
bit $C000
bit KBD
bmi exit
txa
bne loop1

2
src/fx/fx.hgr.palette.fizzle.a
View File

@ -49,7 +49,7 @@ dst sta $FD00, y ; SMC high byte
tay
bcc loop2
bne loop
lda $C000
lda KBD
bmi exit
txa
bne loop1

2
src/fx/fx.shr.2pass.lr.a
View File

@ -32,7 +32,7 @@ dst sta $0000, y ; SMC
inx
cpx #$C8
bcc loop3
lda $C000
lda KBD
bmi @exit
iny
cpy #$A0

2
src/fx/fx.shr.80boxes.common.a
View File

@ -148,7 +148,7 @@ NextBox dex
lda <stage+1
beq exit ; if we didn't draw anything in any box, we're done
stx <stage+1 ; X=0 here
bit $C000
bit KBD
bpl MainLoop
exit
setV rts

2
src/fx/fx.shr.diagonal.a
View File

@ -49,7 +49,7 @@ dst sta $FDFD, y ; SMC
cmp #$FF
bne +
dec <startcolhi
+ lda $C000
+ lda KBD
bmi exit
dec <counter
bne colloop

14
src/fx/fx.shr.fadein.a
View File

@ -15,7 +15,7 @@ palettes = $BC00 ; $200 bytes
!source "src/fx/macros.a"
sta $C005
sta WRITEAUXMEM
ldy #0 ; copy pixel data
sty src
sty dst
@ -36,22 +36,22 @@ palettes = $BC00 ; $200 bytes
iny
bne -
sta $C004
sta WRITEMAINMEM
- lda $9E00, y ; Back up palettes to alternate location in main memory.
sta palettes, y ; The CPU in a 64K Apple ][+/][e w/VidHD ignores STA $C004/5
sta palettes, y ; The CPU in a 64K Apple ][+/][e w/VidHD ignores STA WRITEMAINMEM/5
lda $9F00, y ; but VidHD respects them, so we can't clear the palettes
sta palettes+$100, y ; in auxmem until we copy them in mainmem. Whee.
iny
bne -
sta $C005
sta WRITEAUXMEM
lda #0
- sta $9E00, y ; now clear the palettes
sta $9F00, y
iny
bne -
sta $C004
sta WRITEMAINMEM
lda #>palettes
sta src+1
ldx #$0F ; palette counter ($0F -> $00, not used as index)
@ -163,14 +163,14 @@ g_step_loop
ldx #$1D
ldy #$00
copyloop jsr WaitForVBL
sta $C005
sta WRITEAUXMEM
copy1 lda $4400, y ; SMC
sta $9E00, y
copy2 lda $4500, y ; SMC
sta $9F00, y
iny
bne copy1
sta $C004
sta WRITEMAINMEM
inc copy1+2
inc copy1+2
inc copy2+2

2
src/fx/fx.shr.fizzle.a
View File

@ -46,7 +46,7 @@ src lda $FD00, y ; SMC high byte
tay
bcc loop2
bne loop
bit $C000
bit KBD
bmi exit
txa
bne loop1

2
src/fx/fx.shr.lr.a
View File

@ -32,7 +32,7 @@ loop2 lda shrlo-1, x
dst sta $0000, y ; SMC
dex
bne loop2
lda $C000
lda KBD
bmi @exit
iny
cpy #$A0

2
src/fx/fx.shr.lr2.a
View File

@ -30,7 +30,7 @@ loop3 lda shrlo-1, x
dst sta $0000, y ; SMC
dex
bne loop3
lda $C000
lda KBD
bmi @exit
iny
iny

8
src/fx/fx.shr.radial.a
View File

@ -46,7 +46,7 @@ LoopBL ldx last_coords ; SMC
plp
bne LoopBL
dec <LoopBL+2
bit $C000
bit KBD
bpl LoopBL
rts
@ -61,7 +61,7 @@ LoopTL ldx coords ; SMC
inc <LoopTL+1
bne LoopTL
inc <LoopTL+2
bit $C000
bit KBD
bpl LoopTL
rts
@ -81,7 +81,7 @@ LoopTR ldx last_coords ; SMC
plp
bne LoopTR
dec <LoopTR+2
bit $C000
bit KBD
bpl LoopTR
rts
@ -100,7 +100,7 @@ LoopBR ldx coords ; SMC
inc <LoopBR+1
bne LoopBR
inc <LoopBR+2
bit $C000
bit KBD
bpl LoopBR
copy
lda shrlo, x

2
src/fx/fx.shr.radial2.a
View File

@ -73,7 +73,7 @@ reverse_input
plp
bne +
dec <reverse_input+2
+ bit $C000
+ bit KBD
bpl input
copy
lda shrlo, x

2
src/fx/fx.shr.ud.a
View File

@ -41,7 +41,7 @@ rdst sta $0000, y ; SMC
iny
cpy #$A0
bcc loop2
lda $C000
lda KBD
bmi exit
dex
bne loop

4
src/fx/macros.dhgr.a
View File

@ -11,7 +11,7 @@
lda #$00
sta $FE
tay
sta $C005
sta WRITEAUXMEM
- lda ($FE),y
sta ($FE),y
iny
@ -19,7 +19,7 @@
inc $FF
dex
bne -
sta $C004
sta WRITEMAINMEM
}
_FX_MACROS_DHGR_=*

4
src/fx/macros.shr.a
View File

@ -54,7 +54,7 @@
; out: X=0
; Z=1
; WRITEAUXMEM active
sta $C005
sta WRITEAUXMEM
- lda $9D00, x
sta $9D00, x
lda $9E00, x
@ -161,7 +161,7 @@ input ldx .coords ; first value: SHR row (only 0..99 will be
inc <input+1
bne input
inc <input+2
bit $C000
bit KBD
bpl input
copy_block_from_x

2
src/prelaunch/ape.escape.a
View File

@ -22,7 +22,7 @@
+READ_RAM2_NO_WRITE
jsr EnableAccelerator
bit $C010
bit CLEARKBD
jsr $94E4 ; decompress game
lda MockingboardStuff

2
src/prelaunch/ardy.aardvark.a
View File

@ -16,7 +16,7 @@
jmp $27BF ; decompress
callback1
lda $C000
lda KBD
bpl callback1
ldy #(callback2_e - callback2) - 1
- lda callback2, y

2
src/prelaunch/aztec.a
View File

@ -32,7 +32,7 @@
jmp $1B00
keypress
lda $C000
lda KBD
bpl keypress
cmp #$8D
bne keypress

2
src/prelaunch/spikes.cheat.a
View File

@ -33,7 +33,7 @@ callback1
jsr $9503
+DISABLE_ACCEL
jsr $BC6C
sta $C010
sta CLEARKBD
callback2
+READ_RAM2_NO_WRITE

4
src/prelaunch/sputnik.attack.a
View File

@ -28,9 +28,9 @@
jsr DisableAccelerator
+READ_ROM_NO_WRITE
- lda $C000
- lda KBD
bpl -
lda $C010
lda CLEARKBD
jmp $8A60
callback