mirror of
https://github.com/a2-4am/4cade.git
synced 2024-09-29 09:55:29 +00:00
remove unused code
This commit is contained in:
parent
8d1d9c0bc5
commit
ba8559c3cf
@ -1,727 +0,0 @@
|
|||||||
;license:MIT
|
|
||||||
;(c) 2018-2020 by 4am/qkumba
|
|
||||||
;
|
|
||||||
coord = $FE
|
|
||||||
CoordinatesDHGR = $A000 ; $1E01 bytes ($1E00 on disk + 1 byte EOF marker)
|
|
||||||
EndCoordinatesDHGR=CoordinatesDHGR+$1E00
|
|
||||||
|
|
||||||
jmp Start
|
|
||||||
|
|
||||||
!source "src/wait.a"
|
|
||||||
!source "src/fx/fx.hgr.common.a"
|
|
||||||
+HGR_HALF_BLOCK_COPY_ROUTINES
|
|
||||||
+HGR_WHITE_ROUTINES
|
|
||||||
!source "src/fx/fx.dhgr.common.a"
|
|
||||||
|
|
||||||
Start
|
|
||||||
|
|
||||||
!macro FX_INITONCE_DHGR .CoordinatesFile, .Start {
|
|
||||||
InitOnce
|
|
||||||
bit .Start
|
|
||||||
lda #$4C
|
|
||||||
sta InitOnce
|
|
||||||
+READ_RAM2_WRITE_RAM2
|
|
||||||
+LOAD_FILE_AT .CoordinatesFile, CoordinatesDHGR
|
|
||||||
+READ_RAM1_WRITE_RAM1
|
|
||||||
}
|
|
||||||
|
|
||||||
!macro FX_RIPPLE_DHGR {
|
|
||||||
ldx #$0f
|
|
||||||
- lda ptrtbl, x
|
|
||||||
sta $c0, x
|
|
||||||
dex
|
|
||||||
bpl -
|
|
||||||
|
|
||||||
lda #$66
|
|
||||||
sta $fe
|
|
||||||
ldx #3
|
|
||||||
stx $ff
|
|
||||||
|
|
||||||
- lda CoordinatesDHGR + 2, x
|
|
||||||
sta $80, x
|
|
||||||
dex
|
|
||||||
bpl -
|
|
||||||
dex
|
|
||||||
- lda CoordinatesDHGR + 22 - 254, x
|
|
||||||
sta $86, x
|
|
||||||
lda CoordinatesDHGR + 34 - 254, x
|
|
||||||
sta $88, x
|
|
||||||
lda CoordinatesDHGR + 44 - 254, x
|
|
||||||
sta $8a, x
|
|
||||||
lda CoordinatesDHGR + 68 - 254, x
|
|
||||||
sta $8c, x
|
|
||||||
lda CoordinatesDHGR + 698 - 254, x
|
|
||||||
sta $8e, x
|
|
||||||
lda CoordinatesDHGR + 1396 - 254, x
|
|
||||||
sta $90, x
|
|
||||||
inx
|
|
||||||
bne -
|
|
||||||
|
|
||||||
--- ldx #$10
|
|
||||||
-- lda $bf, x
|
|
||||||
bmi +
|
|
||||||
ldy $be, x
|
|
||||||
jsr aslmod2
|
|
||||||
sty $be, x
|
|
||||||
sta $bf, x
|
|
||||||
sty $fc
|
|
||||||
clc
|
|
||||||
adc #>CoordinatesDHGR
|
|
||||||
sta $fd
|
|
||||||
ldy #0
|
|
||||||
!byte $a9
|
|
||||||
- sec
|
|
||||||
lda ($fc), y
|
|
||||||
pha
|
|
||||||
lda $7e, x
|
|
||||||
sta ($fc), y
|
|
||||||
pla
|
|
||||||
sta $7e, x
|
|
||||||
inx
|
|
||||||
iny
|
|
||||||
bcc -
|
|
||||||
dex
|
|
||||||
dex
|
|
||||||
+ dex
|
|
||||||
dex
|
|
||||||
bne --
|
|
||||||
dex
|
|
||||||
lda $fe
|
|
||||||
eor #<(871 - 5)
|
|
||||||
bne +
|
|
||||||
stx $cd
|
|
||||||
stx $cf
|
|
||||||
+ eor #<(871 - 5) xor <(871 - 174)
|
|
||||||
bne +
|
|
||||||
lda $ff
|
|
||||||
eor #>(871 - 174)
|
|
||||||
bne +
|
|
||||||
stx $c5
|
|
||||||
stx $c9
|
|
||||||
+ dec $fe
|
|
||||||
bne ---
|
|
||||||
dec $ff
|
|
||||||
bpl ---
|
|
||||||
bmi ++ ; always branches
|
|
||||||
aslmod2 jsr aslmod
|
|
||||||
aslmod cmp #$0F
|
|
||||||
pha
|
|
||||||
tya
|
|
||||||
adc #0
|
|
||||||
asl
|
|
||||||
tay
|
|
||||||
pla
|
|
||||||
rol
|
|
||||||
cmp #$1E
|
|
||||||
bcc +
|
|
||||||
sbc #$1E
|
|
||||||
+ rts
|
|
||||||
ptrtbl !word 2, 4, 22, 34, 44, 68, 698, 1396
|
|
||||||
++
|
|
||||||
}
|
|
||||||
|
|
||||||
!macro FX_RADIAL2_DHGR .coords {
|
|
||||||
ldx #$0d
|
|
||||||
- lda ptrtbl, x
|
|
||||||
sta $c0, x
|
|
||||||
dex
|
|
||||||
bpl -
|
|
||||||
|
|
||||||
ldx #3
|
|
||||||
- lda .coords, x
|
|
||||||
sta $80, x
|
|
||||||
lda .coords + 50, x
|
|
||||||
sta $88, x
|
|
||||||
dex
|
|
||||||
bpl -
|
|
||||||
dex
|
|
||||||
|
|
||||||
stx $fe
|
|
||||||
lda #7
|
|
||||||
sta $ff
|
|
||||||
|
|
||||||
- lda .coords + 18 - 254, x
|
|
||||||
sta $86, x
|
|
||||||
lda .coords + 22 - 254, x
|
|
||||||
sta $88, x
|
|
||||||
lda .coords + 336 - 254, x
|
|
||||||
sta $8e, x
|
|
||||||
inx
|
|
||||||
bne -
|
|
||||||
|
|
||||||
--- ldx #$0e
|
|
||||||
-- lda $bf, x
|
|
||||||
bmi +
|
|
||||||
ldy $be, x
|
|
||||||
jsr aslmod
|
|
||||||
sty $be, x
|
|
||||||
sta $bf, x
|
|
||||||
sty $fc
|
|
||||||
clc
|
|
||||||
adc #>.coords
|
|
||||||
sta $fd
|
|
||||||
ldy #0
|
|
||||||
!byte $a9
|
|
||||||
- sec
|
|
||||||
lda ($fc), y
|
|
||||||
pha
|
|
||||||
lda $7e, x
|
|
||||||
sta ($fc), y
|
|
||||||
pla
|
|
||||||
sta $7e, x
|
|
||||||
inx
|
|
||||||
iny
|
|
||||||
bcc -
|
|
||||||
dex
|
|
||||||
dex
|
|
||||||
+ dex
|
|
||||||
dex
|
|
||||||
bne --
|
|
||||||
ldx #$0a
|
|
||||||
ldy #$ff
|
|
||||||
- lda $fe
|
|
||||||
eor zerochk, x
|
|
||||||
bne +
|
|
||||||
lda $ff
|
|
||||||
eor zerochk + 1, x
|
|
||||||
beq ++
|
|
||||||
+ dex
|
|
||||||
dex
|
|
||||||
bpl -
|
|
||||||
!byte $2c
|
|
||||||
++ sty $c3, x
|
|
||||||
+++ dec $fe
|
|
||||||
bne ---
|
|
||||||
dec $ff
|
|
||||||
bpl ---
|
|
||||||
bmi posttransform ; always branches
|
|
||||||
|
|
||||||
aslmod
|
|
||||||
pha
|
|
||||||
tya
|
|
||||||
asl
|
|
||||||
tay
|
|
||||||
pla
|
|
||||||
rol
|
|
||||||
cmp #$0F
|
|
||||||
bcc +++
|
|
||||||
bne +
|
|
||||||
cpy #4
|
|
||||||
bcc +++
|
|
||||||
+ pha
|
|
||||||
tya
|
|
||||||
sbc #4
|
|
||||||
tay
|
|
||||||
pla
|
|
||||||
sbc #$0F
|
|
||||||
cmp #$1E
|
|
||||||
bcc +
|
|
||||||
bne ++
|
|
||||||
cpy #8
|
|
||||||
bcc +
|
|
||||||
++ pha
|
|
||||||
tya
|
|
||||||
sbc #6
|
|
||||||
tay
|
|
||||||
pla
|
|
||||||
sbc #$1E
|
|
||||||
+ rts
|
|
||||||
+++ pha
|
|
||||||
tya
|
|
||||||
adc #6
|
|
||||||
tay
|
|
||||||
pla
|
|
||||||
adc #$0F
|
|
||||||
rts
|
|
||||||
|
|
||||||
ptrtbl !word 0, 2, 18, 22, 50, 52, 336
|
|
||||||
zerochk !word 2046 - 433
|
|
||||||
!word 2046 - 663
|
|
||||||
!word 2046 - 251
|
|
||||||
!word 2046 - 68
|
|
||||||
!word 2046 - 363
|
|
||||||
!word 2046 - 19
|
|
||||||
posttransform
|
|
||||||
}
|
|
||||||
|
|
||||||
!macro FX_RADIAL3_DHGR .coords {
|
|
||||||
ldx #$15
|
|
||||||
- lda ptrtbl, x
|
|
||||||
sta $c0, x
|
|
||||||
dex
|
|
||||||
bpl -
|
|
||||||
|
|
||||||
ldx #7
|
|
||||||
- lda .coords + 2, x
|
|
||||||
sta $80, x
|
|
||||||
dex
|
|
||||||
bpl -
|
|
||||||
|
|
||||||
ldx #4
|
|
||||||
stx $ff
|
|
||||||
|
|
||||||
dex
|
|
||||||
- lda .coords + 34, x
|
|
||||||
sta $8c, x
|
|
||||||
dex
|
|
||||||
bpl -
|
|
||||||
dex
|
|
||||||
|
|
||||||
lda #$aa
|
|
||||||
sta $fe
|
|
||||||
|
|
||||||
- lda .coords + 18 - 254, x
|
|
||||||
sta $8a, x
|
|
||||||
lda .coords + 24 - 254, x
|
|
||||||
sta $8c, x
|
|
||||||
lda .coords + 58 - 254, x
|
|
||||||
sta $92, x
|
|
||||||
lda .coords + 300 - 254, x
|
|
||||||
sta $94, x
|
|
||||||
lda .coords + 344 - 254, x
|
|
||||||
sta $96, x
|
|
||||||
inx
|
|
||||||
bne -
|
|
||||||
|
|
||||||
--- ldx #$16
|
|
||||||
-- lda $bf, x
|
|
||||||
bmi +
|
|
||||||
ldy $be, x
|
|
||||||
jsr aslmod
|
|
||||||
sty $be, x
|
|
||||||
sta $bf, x
|
|
||||||
sty $fc
|
|
||||||
clc
|
|
||||||
adc #>.coords
|
|
||||||
sta $fd
|
|
||||||
ldy #0
|
|
||||||
!byte $a9
|
|
||||||
- sec
|
|
||||||
lda ($fc), y
|
|
||||||
pha
|
|
||||||
lda $7e, x
|
|
||||||
sta ($fc), y
|
|
||||||
pla
|
|
||||||
sta $7e, x
|
|
||||||
inx
|
|
||||||
iny
|
|
||||||
bcc -
|
|
||||||
dex
|
|
||||||
dex
|
|
||||||
+ dex
|
|
||||||
dex
|
|
||||||
bne --
|
|
||||||
ldy #$ff
|
|
||||||
ldx #$14
|
|
||||||
- lda $fe
|
|
||||||
eor zerochk, x
|
|
||||||
bne +
|
|
||||||
lda $ff
|
|
||||||
eor zerochk + 1, x
|
|
||||||
beq ++
|
|
||||||
+ dex
|
|
||||||
dex
|
|
||||||
bpl -
|
|
||||||
!byte $2c
|
|
||||||
++ sty $c1, x
|
|
||||||
+++ dec $fe
|
|
||||||
bne ---
|
|
||||||
dec $ff
|
|
||||||
bpl ---
|
|
||||||
bmi posttransform
|
|
||||||
|
|
||||||
aslmod
|
|
||||||
pha
|
|
||||||
tya
|
|
||||||
asl
|
|
||||||
tay
|
|
||||||
pla
|
|
||||||
rol
|
|
||||||
pha
|
|
||||||
tya
|
|
||||||
asl
|
|
||||||
tay
|
|
||||||
pla
|
|
||||||
rol
|
|
||||||
cmp #$1E
|
|
||||||
bcc +
|
|
||||||
bne ++
|
|
||||||
cpy #8
|
|
||||||
bcc +
|
|
||||||
++ pha
|
|
||||||
tya
|
|
||||||
sbc #8
|
|
||||||
tay
|
|
||||||
pla
|
|
||||||
sbc #$1E
|
|
||||||
- cmp #$1E
|
|
||||||
bcc +++
|
|
||||||
bne ++
|
|
||||||
cpy #8
|
|
||||||
bcc +++
|
|
||||||
++ pha
|
|
||||||
tya
|
|
||||||
sbc #6
|
|
||||||
tay
|
|
||||||
pla
|
|
||||||
sbc #$1E
|
|
||||||
bcs -
|
|
||||||
+++ rts
|
|
||||||
+ pha
|
|
||||||
tya
|
|
||||||
adc #6
|
|
||||||
tay
|
|
||||||
pla
|
|
||||||
adc #0
|
|
||||||
rts
|
|
||||||
|
|
||||||
ptrtbl !word 2, 4, 6, 8, 18, 24, 34, 36, 58, 300, 344
|
|
||||||
zerochk !word 1194 - 493
|
|
||||||
!word $7fff
|
|
||||||
!word 1194 - 503
|
|
||||||
!word 1194 - 673
|
|
||||||
!word 1194 - 82
|
|
||||||
!word 1194 - 59
|
|
||||||
!word 1194 - 130
|
|
||||||
!word 1194 - 225
|
|
||||||
!word 1194 - 406
|
|
||||||
!word 1194 - 24
|
|
||||||
!word 1194 - 55
|
|
||||||
posttransform
|
|
||||||
}
|
|
||||||
|
|
||||||
!macro FX_RADIAL4_DHGR .coords {
|
|
||||||
ldx #$11
|
|
||||||
- lda ptrtbl, x
|
|
||||||
sta $c0, x
|
|
||||||
dex
|
|
||||||
bpl -
|
|
||||||
|
|
||||||
ldx #3
|
|
||||||
- lda .coords, x
|
|
||||||
sta $80, x
|
|
||||||
dex
|
|
||||||
bpl -
|
|
||||||
dex
|
|
||||||
|
|
||||||
lda #$1a
|
|
||||||
sta $fe
|
|
||||||
lda #7
|
|
||||||
sta $ff
|
|
||||||
|
|
||||||
- lda .coords + 8 - 254, x
|
|
||||||
sta $86, x
|
|
||||||
lda .coords + 12 - 254, x
|
|
||||||
sta $88, x
|
|
||||||
lda .coords + 292 - 254, x
|
|
||||||
sta $8a, x
|
|
||||||
lda .coords + 352 - 254, x
|
|
||||||
sta $8c, x
|
|
||||||
lda .coords + 744 - 254, x
|
|
||||||
sta $8e, x
|
|
||||||
lda .coords + 1348 - 254, x
|
|
||||||
sta $90, x
|
|
||||||
lda .coords + 2208 - 254, x
|
|
||||||
sta $92, x
|
|
||||||
inx
|
|
||||||
bne -
|
|
||||||
|
|
||||||
--- ldx #$12
|
|
||||||
-- lda $bf, x
|
|
||||||
bmi +
|
|
||||||
ldy $be, x
|
|
||||||
jsr aslmod
|
|
||||||
sty $be, x
|
|
||||||
sta $bf, x
|
|
||||||
sty $fc
|
|
||||||
clc
|
|
||||||
adc #>.coords
|
|
||||||
sta $fd
|
|
||||||
ldy #0
|
|
||||||
!byte $a9
|
|
||||||
- sec
|
|
||||||
lda ($fc), y
|
|
||||||
pha
|
|
||||||
lda $7e, x
|
|
||||||
sta ($fc), y
|
|
||||||
pla
|
|
||||||
sta $7e, x
|
|
||||||
inx
|
|
||||||
iny
|
|
||||||
bcc -
|
|
||||||
dex
|
|
||||||
dex
|
|
||||||
+ dex
|
|
||||||
dex
|
|
||||||
bne --
|
|
||||||
ldy #$ff
|
|
||||||
ldx #$0e
|
|
||||||
- lda $fe
|
|
||||||
eor zerochk, x
|
|
||||||
bne +
|
|
||||||
lda $ff
|
|
||||||
eor zerochk + 1, x
|
|
||||||
beq ++
|
|
||||||
+ dex
|
|
||||||
dex
|
|
||||||
bpl -
|
|
||||||
!byte $2c
|
|
||||||
++ sty $c3, x
|
|
||||||
+++ dec $fe
|
|
||||||
bne ---
|
|
||||||
dec $ff
|
|
||||||
bpl ---
|
|
||||||
bmi posttransform
|
|
||||||
|
|
||||||
aslmod
|
|
||||||
pha
|
|
||||||
tya
|
|
||||||
asl
|
|
||||||
tay
|
|
||||||
pla
|
|
||||||
rol
|
|
||||||
pha
|
|
||||||
tya
|
|
||||||
asl
|
|
||||||
tay
|
|
||||||
pla
|
|
||||||
rol
|
|
||||||
cmp #$1E
|
|
||||||
bcc +
|
|
||||||
bne ++
|
|
||||||
cpy #8
|
|
||||||
bcs ++
|
|
||||||
+ pha
|
|
||||||
tya
|
|
||||||
adc #6
|
|
||||||
tay
|
|
||||||
pla
|
|
||||||
adc #0
|
|
||||||
rts
|
|
||||||
++ cmp #$3C
|
|
||||||
bcc +
|
|
||||||
bne ++
|
|
||||||
cpy #$10
|
|
||||||
bcs ++
|
|
||||||
+ eor #$ff
|
|
||||||
pha
|
|
||||||
tya
|
|
||||||
eor #$ff
|
|
||||||
adc #9
|
|
||||||
tay
|
|
||||||
pla
|
|
||||||
adc #$3C
|
|
||||||
rts
|
|
||||||
++ cmp #$5A
|
|
||||||
bcc +
|
|
||||||
bne ++
|
|
||||||
cpy #$18
|
|
||||||
bcs ++
|
|
||||||
+ sec
|
|
||||||
pha
|
|
||||||
tya
|
|
||||||
sbc #$0E
|
|
||||||
tay
|
|
||||||
pla
|
|
||||||
sbc #$3C
|
|
||||||
rts
|
|
||||||
++ eor #$ff
|
|
||||||
pha
|
|
||||||
tya
|
|
||||||
eor #$ff
|
|
||||||
adc #$1C
|
|
||||||
tay
|
|
||||||
pla
|
|
||||||
adc #$78
|
|
||||||
rts
|
|
||||||
|
|
||||||
ptrtbl !word 0, 2, 8, 12, 292, 352, 744, 1348, 2208
|
|
||||||
zerochk !word 1819 - 361
|
|
||||||
!word 1819 - 1494
|
|
||||||
!word 1819 - 55
|
|
||||||
!word 1819 - 28
|
|
||||||
!word 1819 - 45
|
|
||||||
!word 1819 - 21
|
|
||||||
!word 1819 - 12
|
|
||||||
!word 1819 - 10
|
|
||||||
posttransform
|
|
||||||
}
|
|
||||||
|
|
||||||
!macro FX_RADIAL5_DHGR .coords {
|
|
||||||
lda #<(.coords + 1004)
|
|
||||||
sta $c4
|
|
||||||
ldx #3 ; >(.coords + 1004)
|
|
||||||
stx $c5
|
|
||||||
lda #<(.coords + 452)
|
|
||||||
sta $c2
|
|
||||||
dex
|
|
||||||
stx $c0
|
|
||||||
dex ; >(Coordinates + 452)
|
|
||||||
stx $c3
|
|
||||||
lda #0
|
|
||||||
sta $c1
|
|
||||||
|
|
||||||
lda #$fc
|
|
||||||
sta $fe
|
|
||||||
lda #$0e
|
|
||||||
sta $ff
|
|
||||||
|
|
||||||
- lda .coords + 2, x
|
|
||||||
sta $80, x
|
|
||||||
lda .coords + 452, x
|
|
||||||
sta $82, x
|
|
||||||
lda .coords + 1004, x
|
|
||||||
sta $84, x
|
|
||||||
dex
|
|
||||||
bpl -
|
|
||||||
|
|
||||||
--- ldx #6
|
|
||||||
-- lda $bf, x
|
|
||||||
bmi +
|
|
||||||
ldy $be, x
|
|
||||||
jsr aslmod
|
|
||||||
sty $be, x
|
|
||||||
sta $bf, x
|
|
||||||
sty $fc
|
|
||||||
clc
|
|
||||||
adc #>.coords
|
|
||||||
sta $fd
|
|
||||||
ldy #0
|
|
||||||
!byte $a9
|
|
||||||
- sec
|
|
||||||
lda ($fc), y
|
|
||||||
pha
|
|
||||||
lda $7e, x
|
|
||||||
sta ($fc), y
|
|
||||||
pla
|
|
||||||
sta $7e, x
|
|
||||||
inx
|
|
||||||
iny
|
|
||||||
bcc -
|
|
||||||
dex
|
|
||||||
dex
|
|
||||||
+ dex
|
|
||||||
dex
|
|
||||||
bne --
|
|
||||||
dex
|
|
||||||
lda $fe
|
|
||||||
eor #<(3837 - 2)
|
|
||||||
bne +
|
|
||||||
stx $c3
|
|
||||||
+ eor #<(3837 - 2) xor <(3837 - 6)
|
|
||||||
bne +
|
|
||||||
stx $c5
|
|
||||||
+ dec $fe
|
|
||||||
bne ---
|
|
||||||
dec $ff
|
|
||||||
bpl ---
|
|
||||||
bmi posttransform
|
|
||||||
|
|
||||||
aslmod
|
|
||||||
sec
|
|
||||||
pha
|
|
||||||
tya
|
|
||||||
sbc #2
|
|
||||||
tay
|
|
||||||
pla
|
|
||||||
sbc #0
|
|
||||||
pha
|
|
||||||
tya
|
|
||||||
asl
|
|
||||||
tay
|
|
||||||
pla
|
|
||||||
rol
|
|
||||||
pha
|
|
||||||
tya
|
|
||||||
asl
|
|
||||||
tay
|
|
||||||
pla
|
|
||||||
rol
|
|
||||||
cmp #$1E
|
|
||||||
bpl +
|
|
||||||
eor #$ff
|
|
||||||
pha
|
|
||||||
tya
|
|
||||||
eor #$ff
|
|
||||||
clc
|
|
||||||
adc #$FF
|
|
||||||
tay
|
|
||||||
pla
|
|
||||||
adc #$1D
|
|
||||||
rts
|
|
||||||
+ cmp #$3C
|
|
||||||
bcc +
|
|
||||||
bne ++
|
|
||||||
cpy #8
|
|
||||||
bcs ++
|
|
||||||
+ sec
|
|
||||||
sbc #$1E
|
|
||||||
rts
|
|
||||||
++ cmp #$5A
|
|
||||||
bcc +
|
|
||||||
bne ++
|
|
||||||
cpy #$10
|
|
||||||
bcs ++
|
|
||||||
+ eor #$ff
|
|
||||||
pha
|
|
||||||
tya
|
|
||||||
eor #$ff
|
|
||||||
clc
|
|
||||||
adc #$0B
|
|
||||||
tay
|
|
||||||
pla
|
|
||||||
adc #$5A
|
|
||||||
rts
|
|
||||||
++ pha
|
|
||||||
tya
|
|
||||||
sbc #$0C
|
|
||||||
tay
|
|
||||||
pla
|
|
||||||
sbc #$5A
|
|
||||||
rts
|
|
||||||
posttransform
|
|
||||||
}
|
|
||||||
|
|
||||||
!macro FX_PRECOMPUTED_DHGR .copy, .coords, .wait {
|
|
||||||
lda #<.coords
|
|
||||||
sta coord
|
|
||||||
lda #>.coords
|
|
||||||
sta coord+1
|
|
||||||
ldy #0
|
|
||||||
@loop
|
|
||||||
lda (coord),y
|
|
||||||
bpl +
|
|
||||||
lda #.wait
|
|
||||||
beq @nowait
|
|
||||||
jsr WaitForKeyWithTimeout
|
|
||||||
@nowait bit $C000
|
|
||||||
bmi @exit
|
|
||||||
bpl @next
|
|
||||||
+ tax
|
|
||||||
iny
|
|
||||||
lda (coord),y
|
|
||||||
lsr
|
|
||||||
bcs @aux
|
|
||||||
sta $c003
|
|
||||||
sta $c005
|
|
||||||
bcc + ; always branches
|
|
||||||
@aux sta $c002
|
|
||||||
sta $c004
|
|
||||||
+
|
|
||||||
tay
|
|
||||||
txa
|
|
||||||
jsr .copy
|
|
||||||
@next
|
|
||||||
inc coord
|
|
||||||
bne +
|
|
||||||
inc coord+1
|
|
||||||
+ inc coord
|
|
||||||
bne +
|
|
||||||
inc coord+1
|
|
||||||
+ ldy #$00
|
|
||||||
lda ($FE),y
|
|
||||||
cmp #$80
|
|
||||||
bne @loop
|
|
||||||
@exit sta $c002
|
|
||||||
sta $c004
|
|
||||||
}
|
|
Loading…
Reference in New Issue
Block a user