Add files via upload
[edfries-anteater.git] / bl1ant.src
1 10 BOARDRAW
2 20       LDA #$90
3 30       STA NEWSCRN
4 40       LDX #16
5 50       LDA #$B8
6 60       STA TEMP1
7 70       LDA NEWSCRN+1
8 80       STA TEMP2
9 90       LDA #$45
10 0100     LDY #39
11 0110     JMP BD2LOOP
12 0120 BD1LOOP LDY #39
13 0130     LDA #$44
14 0140     STA (TEMP1),Y
15 0150     LDA #$41
16 0160     JMP BDPATCH
17 0170 BD2LOOP STA (TEMP1),Y
18 0180 BDPATCH DEY 
19 0190     BNE BD2LOOP
20 0200     CMP #$45
21 0210     BEQ BD2PATCH
22 0220     LDA #$44
23 0230 BD2PATCH STA (TEMP1),Y
24 0240     LDA #40
25 0250     CLC 
26 0260     ADC TEMP1
27 0270     STA TEMP1
28 0280     BCC BDOK
29 0290     INC TEMP2
30 0300 BDOK DEX 
31 0310     BPL BD1LOOP
32 0320     LDY #39
33 0330 BDXLOOP LDA #$40
34 0340     STA (NEWSCRN),Y
35 0350     LDA #$5E
36 0360     STA SCBASE+$28,Y
37 0370     STA SC2BASE+$28,Y
38 0380     STA SCBASE,Y
39 0390     STA SC2BASE,Y
40 0400     LDA #$44
41 0410     STA (TEMP1),Y
42 0420     DEY 
43 0430     BPL BDXLOOP
44 0440     LDA #$40
45 0450     STA NEWSCRN
46 0460 ; PLACE ROCKS
47 0470     LDA #$05
48 0480     STA AMXSAVE
49 0490 BD4LOOP LDX AMXSAVE
50 0500     LDY RDATY,X
51 0510     STY TEMP4
52 0520     LDA RDATX,X
53 0530     STA TEMP2
54 0540     TAX 
55 0550     LDA #$C2
56 0560     JSR PLOT
57 0570     LDY TEMP4
58 0580     INY 
59 0590     LDX TEMP2
60 0600     LDA #$43
61 0610     JSR PLOT
62 0620     DEC AMXSAVE
63 0630     BPL BD4LOOP
64 0640 ; SETUP ANT HOME
65 0650     LDX #$00
66 0660     STX AMXSAVE
67 0670 BD5LOOP LDY SPECY,X
68 0680     BEQ BD5END
69 0690     LDA SPECX,X
70 0700     STA TEMP1
71 0710     LDA TYPE,X
72 0720     LDX TEMP1
73 0730     JSR PLOT
74 0740     INC AMXSAVE
75 0750     LDX AMXSAVE
76 0760     JMP BD5LOOP
77 0770 BD5END
78 0780 ; INITIALIZE SUGAR CUBES
79 0790     LDX #$00
80 0800     LDA #$00
81 0810 CUBEWIPE STA MBASE,X
82 0820     DEX 
83 0830     BNE CUBEWIPE
84 0840     LDX PTURN
85 0850     STA CUBE,X
86 0860     LDX #$03
87 0870     LDY #$03
88 0880     LDA PTURN
89 0890     BEQ CBWCONT
90 0900     LDY #$07
91 0910 CBWCONT LDA #$C0
92 0920     STA TEMP1
93 0930 ST4LOOP LDA MXDATA,X
94 0940     STA MXLOC,Y
95 0950     STA $D004,X
96 0960     LDA MYDATA,X
97 0970     STA MYLOC,Y
98 0980     DEY 
99 0990     DEX 
100 1000     BPL ST4LOOP
101 1010     RTS 
102 1020 MXDATA .BYTE $3F,$3C,$3A,$38
103 1030 MYDATA .BYTE $45,$45,$42,$45
104 1040 RDATX .BYTE 5,8,17,23,29,36
105 1050 RDATY .BYTE 5,16,7,5,13,9
106 1060 SPECX .BYTE 36,37,38,39,36,37,38,39
107 1070     .BYTE 36,37,38,39
108 1080     .BYTE 0,1
109 1090     .BYTE 0,1,2,3
110 1100 SPECY .BYTE 17,17,17,17
111 1110     .BYTE 18,18,18,18,19,19,19,19
112 1120     .BYTE 2,2
113 1130     .BYTE 3,3,3,3,0
114 1140 TYPE .BYTE $46,$40,$40,$48,$40,$40,$40,$5D
115 1150     .BYTE $47,$40,$40,$49
116 1160     .BYTE $CD,$CE
117 1170     .BYTE $44,$44,$44,$44
118 1180 ANTDRAW
119 1190     LDY #$0B
120 1200     LDA # >PLR0
121 1210     STA TEMP2
122 1220     LDA YLOC
123 1230     CLC 
124 1240     ADC #$05
125 1250     STA TEMP1
126 1260     LDA #$00
127 1270     STA (TEMP1),Y
128 1280     DEY 
129 1290     LDA ANTROT
130 1300     CLC 
131 1310     ADC #$01
132 1320     ASL A
133 1330     SEC 
134 1340     SBC #$01
135 1350     PHA 
136 1360     LDA XLOC
137 1370     EOR YLOC
138 1380     AND #$04
139 1390     BEQ ADNSHF
140 1400     PLA 
141 1410     SEC 
142 1420     SBC #$0A
143 1430     PHA 
144 1440 ADNSHF PLA 
145 1450     TAX 
146 1460 ADLOOP LDA ANTPIC,X
147 1470     STA (TEMP1),Y
148 1480     DEX 
149 1490     DEY 
150 1500     BNE ADLOOP
151 1510     LDA #$00
152 1520     STA (TEMP1),Y
153 1530     LDA XLOC
154 1540     STA HPOS0
155 1550     RTS 
156 1560 ANTPIC
157 1570     .BYTE $00,$00,$00,$00,$00,$20,$6A,$7E,$2A,$49
158 1575     .BYTE $00,$00,$00,$00,$00,$20,$6A,$7E,$2A,$16
159 1580     .BYTE $00,$01,$06,$02,$03,$06,$02,$07,$02,$00
160 1585     .BYTE $00,$04,$03,$02,$06,$03,$02,$07,$02,$00
161 1590     .BYTE $00,$00,$00,$00,$00,$02,$2B,$3F,$2A,$49
162 1595     .BYTE $00,$00,$00,$00,$00,$02,$2B,$3F,$2A,$34
163 1600     .BYTE $00,$02,$07,$02,$03,$06,$02,$03,$04,$00
164 1605     .BYTE $00,$02,$07,$02,$06,$03,$02,$06,$01,$00
165 1610 DLINT
166 1620     PHA 
167 1630     TXA 
168 1640     PHA 
169 1650     LDA #$2A
170 1660     LDX DLVAR
171 1670     STA WSYNC
172 1680     STA $D409
173 1690     LDA SKYTAB,X
174 1700     STA $D01A
175 1710     INX 
176 1720     CPX #$04
177 1730     BEQ DLOUT
178 1740     STX DLVAR
179 1750 DLEXIT PLA 
180 1760     TAX 
181 1770     PLA 
182 1780     RTI 
183 1790 DLOUT LDA #$00
184 1800     STA DLVAR
185 1810     LDA # <DL2INT
186 1820     STA $0200
187 1830     LDA # >DL2INT
188 1840     STA $0201
189 1850     JMP DLEXIT
190 1860 DL2INT
191 1870     PHA 
192 1880     TXA 
193 1890     PHA 
194 1900     STA WSYNC
195 1910     INC DLVAR
196 1920     LDA DLVAR
197 1930     CMP #$08
198 1940     BNE DLIN2CONT
199 1950     LDA #$00
200 1960     STA DLVAR
201 1970     LDA # <DLINT
202 1980     STA $0200
203 1990     LDA # >DLINT
204 2000     STA $0201
205 2010 DLIN2CONT CMP #$02
206 2020     BNE DLINCONT
207 2030     LDA #$00
208 2040     STA $D01A
209 2050     LDA DLVAR
210 2060 DLINCONT TAX 
211 2070     LDA DLDAT,X
212 2080     STA $D017
213 2090     PLA 
214 2100     TAX 
215 2110     PLA 
216 2120     RTI 
217 2130 SKYTAB .BYTE $88,$86,$84,$80
218 2140 DLDAT .BYTE $FF,$14,$60,$90,$10,$D0,$02,$E0