]> github.com/historicalsource and other repositories - asteroids-7800.git/blob - EXPLODE.S
Initial import.
[asteroids-7800.git] / EXPLODE.S
1 *         2150    251083\r
2 *\r
3 *\r
4 ** EXPLODE.S **\r
5 ** ASTEROIDS FOR THE ATARI 3600 **\r
6 ** THIS FILE CONTAINS THE EXPLOSION HANDLING ROUTINE. **\r
7 \r
8 EXPLODE:\r
9         LDY     #32\r
10 EXPLLOOP:\r
11         LDA     STATUS,Y\r
12         BPL     NEXTEXPL\r
13         CMP     #$FF\r
14         BEQ     NEXTEXPL\r
15 \r
16         TYA                     ;GET NEW ANIMATION INDEX\r
17         ASL\r
18         ADC     FRMCNT\r
19         LSR\r
20         AND     #$3             ;3 ANDED WITH FRMCNT TO DECIDE\r
21         BNE     NEXTEXPL        ;WHEN NEXT ANIMATION\r
22 \r
23         LDA     STATUS,Y\r
24         AND     #$0F\r
25         TAX\r
26         LDA     ACYC,Y\r
27         CMP     EHBOUND,X\r
28         BNE     NEXTECYC\r
29 \r
30         CPX     #3\r
31         BCS     DONULL\r
32 \r
33         LDX     PLAYER\r
34         DEC     ROCKTOT,X       ;ONE LESS ROCK FOR CURRENT PLAYER\r
35 \r
36 DONULL:\r
37         LDA     #$FF\r
38         STA     STATUS,Y\r
39         BMI     NEXTEXPL\r
40 \r
41 NEXTECYC:\r
42         CLC\r
43         ADC     ESIZE,X\r
44         STA     ACYC,Y\r
45 \r
46 NEXTEXPL:\r
47         DEY\r
48         BPL     EXPLLOOP\r
49         RTS\r
50 \r
51 ESIZE:\r
52         .DC.B   1,2,3,2,1,2,0\r