10 *= 18125
12 .D ML.ENERGY..
13 .S
14 .P
18 JMP EL100
20 ENERGYS .BYTE 4
22 EEACHL .BYTE 160 168 176 184 192 200
24 EEACHH .BYTE 43 43 43 43 43 43
26 ECOUNT .BYTE 0
28 ENERGYL .BYTE 208
30 ENERGYH .BYTE 46
100 EL100 LDA ECOUNT
110 CLC
120 ADC #1
130 CMP #6
140 BNE EL160
150 LDA #0
160 EL160 STA ECOUNT
170 TAX
180 LDA EEACHL,X
190 STA 2
200 LDA EEACHH,X
210 STA 3
220 LDA ENERGYL
230 STA 4
240 LDA ENERGYH
250 STA 5
260 LDY #0
270 EL270 LDA (2),Y
280 STA (4),Y
290 INY
300 CPY #8
310 BNE EL270
320 RTS
999 .END TX.ENERGY..