Created
September 17, 2017 08:15
-
-
Save einstein95/d2defbbcaceaa14067e74ae41edc581f to your computer and use it in GitHub Desktop.
Imperium Galactum source
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
BEQ S405E | |
CMP #5 | |
BNE S405F | |
S405E STA WRK3 | |
LDX TURN | |
CPX #10 | |
BEQ S405J | |
BNE S405F1 | |
S405F LDA #0 | |
STA WRK3 | |
S405F1 LDA MISSON | |
AND #127 | |
LDX ATDEF | |
BNE S405G | |
CMP #2 | |
BNE S405F2 | |
CMP ANS | |
BEQ S405J | |
S405F2 LDX TURN | |
CPX #10 | |
BNE S405F3 | |
LDX ANS | |
CPX #2 | |
BEDIPL | |
CMP #2 | |
BCC S305F1 | |
LDX X | |
INX | |
CPX #3 | |
BCC S305G | |
S305H LDX PASS | |
LDA Y | |
STA AP,X | |
JMP S305F1 | |
SUB405 LDX #0 | |
LDA MISSON | |
BPL S405A | |
LDA #32 | |
LDX #128 | |
S4050 STA PLAYMS-1,X | |
DEX | |
BNE S4050 | |
S405A STX ATDEF | |
LDA #0 | |
STA TA,X | |
CPX #0 | |
BEQ S405A1 | |
LDX #3 | |
SSR GTDIPL | |
BNE S305D1 | |
JSR REVPL | |
JSR GTDIPL | |
BNE S305D1 | |
LDX PASS | |
LDA X | |
STA DP,X | |
INC PASS | |
LDX X | |
STX PL | |
LDX PLN1 | |
STX APL | |
JSR GTDIPL | |
CMP #2 | |
BCS S305D1 | |
JSR REVPL | |
JSR GTDIPL | |
CMP #2 | |
BCS S305D1 | |
JSR SUB300 | |
JMP S305B2 | |
S305E LDX #1 | |
STX PASS | |
LDX #S305B | |
S305A1 LDX PLN1 | |
INX | |
CPX #4 | |
BCC S305A | |
RTS | |
S305B LDX #0 | |
S305B1 STX PLN2 | |
CPX PLN1 | |
BNE S305C | |
S305B2 LDX PLN2 | |
INX | |
CPX #4 | |
BCC S305B1 | |
BCS S305A1 | |
S305C LDA EX,X | |
BEQ S305B2 | |
STX PL | |
LDA PLN1 | |
STA APL | |
JSR GTDIPL | |
CMP #2 | |
BCS S305C1 | |
JSR REVPL | |
JSR |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Q S405J | |
BNE S405I | |
S405F3 CMP ANS | |
BEQ S405I | |
CMP #2 | |
BNE S405J | |
LDA WRK3 | |
BNE S405J | |
BEQ S405I | |
S405G CMP #3 | |
BEQ S405H | |
LDA WRK3 | |
BNE S405J | |
BEQ S405I | |
S405H LDA WRK3 | |
BEQ S405J | |
JSR RAND | |
CMP #28 | |
BCS S405J | |
S405I LDX APL | |
LDA TF | |
STA PLAYMS,X | |
INC APL | |
S40405A1 STX PASS | |
LDA AP,X | |
S405A2 STA PL | |
CMP #4 | |
BNE S405B | |
JMP S405M1 | |
S405B LDA MISSON | |
BMI S405C | |
JMP S405K | |
S405C JSR STPLMS | |
STX APL | |
LDX #0 | |
S405D STX TF | |
LDY #5 | |
JSR GETTF | |
CMP SYST | |
BNE S405J | |
LDY #7 | |
LDA (ZWORK),Y | |
STA ANS | |
CMP #9 | |
BCS S405J | |
CMP #4 | |
0 | |
S305F STX Y | |
LDA EX,X | |
BNE S305F2 | |
S305F1 LDX Y | |
INX | |
CPX #4 | |
BCC S305F | |
RTS | |
S305F2 CPX PLN1 | |
BEQ S305F1 | |
STX PL | |
LDA PLN1 | |
STA APL | |
JSR GTDIPL | |
BNE S305F1 | |
JSR REVPL | |
JSR GTDIPL | |
BNE S305F1 | |
LDX #0 | |
S305G STX X | |
LDA DP,X | |
STA PL | |
CMP #4 | |
BEQ S305H | |
JSR GTGTDIPL | |
CMP #2 | |
BCC S305B2 | |
S305C1 LDA PLN1 | |
STA AP | |
LDA PLN2 | |
STA DP | |
LDA #1 | |
STA PASS | |
LDX #0 | |
S305D STX X | |
LDA EX,X | |
BNE S305D2 | |
S305D1 LDX X | |
INX | |
CPX #4 | |
BCC S305D | |
BCS S305E | |
S305D2 CPX PLN2 | |
BEQ S305D1 | |
CPX PLN1 | |
BEQ S305D1 | |
STX APL | |
LDA PLN2 | |
STA PL | |
J |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
5J LDX TF | |
INX | |
CPX #32 | |
BCS S405J1 | |
JMP S405D | |
S405J1 LDA APL | |
AND #31 | |
BEQ S405K | |
LDX APL | |
LDA #32 | |
STA PLAYMS,X | |
S405K JSR SUB34 | |
BNE S405L1 | |
LDX PASS | |
S405K1 LDA #4 | |
INX | |
CPX #3 | |
BEQ S405L | |
CPX #6 | |
BEQ S405L | |
LDA AP,X | |
S405L DEX | |
STA AP,X | |
INX | |
CMP #4 | |
BNE |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
REEN | |
RTS | |
DRMP2A JSR MULT32 | |
CLC | |
ADC #40 | |
STA PASS | |
LDY #0 | |
STY NUM2 | |
INC SCREEN | |
JSR PRCHAR | |
INC SCREEN | |
JSR PRCHAR | |
JSR ADD127 | |
JSR PRCHAR | |
DRMP2B INC SCREEN | |
JSR PRCHAR | |
LDX #0 | |
STX AVGEFF | |
LDA APL | |
STA PL | |
JSR FINDTF | |
DRWMP4 BMI DRWMP7 | |
INC AVGEFF | |
LDY DMPTC3 | |
LDA #0 | |
DMPTC3 CMP #10 | |
BCC DMPTC4 | |
LDA #10 | |
DMPTC4 STA CY | |
CLC | |
ADC #9 | |
STA EY | |
BNE DRWMAP | |
DRMPST LDA #0 | |
STA CX | |
STA CY | |
STA MAP | |
LDA #39 | |
STA EX | |
STA EY | |
DRWMAP JSR HGR | |
LDX #0 | |
DRWMP0 STX SYST | |
JSR GETSYS | |
LDY #0 | |
LDA (ZWORK),Y | |
BNE DRWMP2 | |
DRWSKP ASL | |
ASL | |
ASL | |
STA PASS | |
CPY #2 | |
BCC DRTSK0 | |
LDY #2 | |
LDA MAP | |
BEQ DRTSK1 | |
INY | |
BNE DRTSK1 | |
DRTSK0 LDY #0 | |
DRTSK1 JSR GETPOS | |
LDY #0 | |
STY NUM2 | |
LDA PL | |
AND #1 | |
BEQ DRTSK2 | |
INC SCREEN | |
INC SCREEN | |
LDA MAP | |
BEQ DRTSK2 | |
INC SCREEN | |
DRTSK2 JMP PRCHAR | |
GETPLN LDY #2 | |
LDA #0 | |
RTS | |
MULT0 LDA #0 | |
STA NUM1+1 | |
STX NUM1 | |
STY NUM2 | |
LDA #0 | |
STA WRK3 | |
STA ANS | |
STA ANS+1 | |
LDY #8 | |
MULT1 LSR NUM1+1 | |
ROR NUM1 | |
BCC MULT2 | |
CLC | |
ADC NUM2 | |
MULT2 ROR | |
ROR ANS+1 | |
ROR ANS | |
DEY | |
BNE MULT1 | |
LDY NUM1 | |
BEQ MULT3 | |
LDY #8 | |
INC WRK3 | |
JMP MULT1 | |
1 | |
CMP #31 | |
BEQ SUB34F | |
LDA PLAYMS,X | |
CMP #32 | |
BCS SUB34D | |
TAX | |
LDY #6 | |
JSR GETTF | |
CLC | |
ADC AVGEFF | |
STA AVGEFF | |
JMP SUB34E | |
SUB34D LDY AVGEFF+1 | |
LDA PLAYMS,Y | |
LDX APL | |
STA PLAYMS,X | |
LDA #32 | |
STA PLAYMS,Y | |
DEC AVGEFF+1 | |
SUB34E LDX APL | |
JMP SUB34B | |
SUB34F LDX P S405K1 | |
DEX | |
CPX PASS | |
BNE S405M | |
S405L1 LDX PASS | |
INX | |
CPX #3 | |
BEQ S405M1 | |
CPX #6 | |
BEQ S405M1 | |
STX PASS | |
S405M LDX PASS | |
JMP S405A1 | |
S405M1 LDX ATDEF | |
BNE S405M2 | |
INX | |
JMP S405A | |
S405M2 RTS | |
REVPL LDA APL | |
PHA | |
LDA PL | |
STA APL | |
PLA | |
STA PL | |
RTS | |
GTDIPL JSR GET |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#7 | |
LDA MISSON | |
CMP #10 | |
BEQ DRWMP6 | |
CMP (ZWORK),Y | |
BEQ DRWMP6 | |
JSR FNDTF1 | |
JMP DRWMP4 | |
DRWMP6 JSR DRWTSK | |
DRWMP7 LDA AVGEFF | |
BNE DRWMPC | |
LDY #0 | |
DRWMPB STY TYPE | |
LDX PLN1,Y | |
CPX #75 | |
BCS DWMPBA | |
JSR GETPLN | |
LDY #9 | |
LDA (ZWORK2),Y | |
JSR DIV32 | |
TAY | |
DEY | |
CPY JMP DRWMPH | |
DRWMP1 LDA (ZWORK),Y | |
AND #127 | |
DRWMP2 STA TYPE,Y | |
INY | |
CPY #5 | |
BCC DRWMP1 | |
LDY #1 | |
JSR GETPOS | |
BNE DRWSKP | |
LDA TYPE | |
LDY MAP | |
BNE DRMP2A | |
ASL | |
ASL | |
ASL | |
ADC #24 | |
STA PASS | |
LDA ODEVEN | |
STA NUM2 | |
JMP DRMP2B | |
ADD127 LDA SCREEN | |
CLC | |
ADC #127 | |
STA SC0 | |
JSR MULT0 | |
CLC | |
ADC #PLANET&255 | |
STA ZWORK2 | |
TXA | |
ADC #PLANET/256 | |
STA ZWORK2+1 | |
RTS | |
DRMPTC LDA #15 | |
STA MAP | |
LDA X | |
SEC | |
SBC #10 | |
BPL DMPTC1 | |
LDA #0 | |
DMPTC1 CMP #20 | |
BCC DMPTC2 | |
LDA #20 | |
DMPTC2 STA CX | |
CLC | |
ADC #19 | |
STA EX | |
LDA Y | |
SEC | |
SBC #5 | |
BPL MULT3 LDY WRK3 | |
BNE MULT4 | |
LDY ANS+1 | |
STY ANS | |
STA ANS+1 | |
MULT4 LDX ANS+1 | |
LDA ANS | |
RTS | |
GETTF LDA #TSKFRC/256 | |
CLC | |
ADC PL | |
STA ZWORK+1 | |
TXA | |
ASL | |
ASL | |
ASL | |
ADC #TSKFRC&255 | |
STA ZWORK | |
BCC GTTFE | |
INC ZWORK+1 | |
GTTFE LDA (ZWORK),Y | |
RTS | |
DRWTSK LDA PL | |
TAY | |
L | |
LDA AVGEFF | |
STA NP,X | |
LDX ATDEF | |
CLC | |
ADC TA,X | |
BCC SUB34G | |
LDA #255 | |
SUB34G STA TA,X | |
LDA AVGEFF | |
BNE SUB34H | |
JSR STPLMS | |
LDA PLAYMS,X | |
CMP #32 | |
BEQ SUB34H | |
INC AVGEFF | |
SUB34H LDA AVGEFF | |
RTS | |
¾ GTPOS2 | |
INC ANS+1 | |
GTPOS2 STA SCREEN | |
LDA ANS+1 | |
STA SCREEN+1DV | |
LDY #5 | |
LDA (SCREEN),Y | |
RTS | |
STPLMS LDA PL | |
ASL | |
ASL | |
ASL | |
ASL | |
ASL | |
TAX | |
RTS | |
SUB34 LDA #0 | |
STA AVGEFF | |
JSR STPLMS | |
SUB34A LDA PLAYMS,X | |
CMP #32 | |
BEQ SUB34C | |
INX | |
TXA | |
AND #31 | |
BNE SUB34A | |
SUB34C STX AVGEFF+1 | |
DEC AVGEFF+1 | |
SUB34B DEX | |
STX APL | |
TXA | |
AND #3 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
APL | |
BEQ DRWMPC | |
DWMPBA LDY TYPE | |
INY | |
CPY #2 | |
BCC DRWMPB | |
BCS DRWMPH | |
DRWMPC LDX #0 | |
DRMPCA STX PL | |
CPX APL | |
BEQ DRWMPG | |
JSR FINDTF | |
BMI DRWMPG | |
JSR DRWTSK | |
DRWMPG LDX PL | |
INX | |
CPX #4 | |
BCC DRMPCA | |
DRWMPH LDX SYST | |
INX | |
CPX #50 | |
BCS DRWMPI | |
JMP DRWMP0 | |
DRWMPI |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
STY WRK1 | |
LDY #7 | |
LDA (ZWORK2),Y | |
STA SIZ | |
CMP #2 | |
BCS LDSP1 | |
ASL WTECH | |
CMP #1 | |
BCS LDSP1 | |
ASL WTECH | |
LDSP1 LDY #3 | |
LDA (ZWORK2),Y | |
STA EV | |
LDY WRK1 | |
LDSP2 STY WRK1 | |
LDA (ZWORK2),Y | |
CLC | |
ADC WTECH | |
STA PB,Y | |
TAX | |
LDA #25 | |
SEC | |
SBC WEFF | |
TAY | |
JSR MULT0 | |
VSHP INY | |
LDA (ZWORK),Y | |
JSR DIV32 | |
STA CLASS,X | |
DEY | |
LDA (ZWORK),Y | |
JSR DIV32 | |
STA TECH,X | |
LDA (ZWORK),Y | |
AND #31 | |
STA EFF,X | |
RTS | |
LODSHP CMP PL | |
BEQ LDSP02 | |
PHA | |
LDA PDS | |
BPL LDSP0 | |
LDX #0 | |
STX NRG | |
STX PB | |
LDY #32 | |
STY MS | |
AND #127 | |
CMP SHIP | |
BEQ LDS1 | |
FNDSH2 INX | |
BNE FNDSH1 | |
FNDSHE RTS | |
FNDWSH STX TURN | |
LDA SHIP1 | |
SEC | |
LDY AP,X | |
SBC NP,Y | |
BCC FNDW1 | |
STA SHIP1 | |
INX | |
BNE FNDWSH | |
FNDW1 STY PL | |
INC SHIP1 | |
JSR FNDSHP | |
FNDW2 BEQ FNDW5A | |
INY | |
LDA (ZWORK),Y | |
AND #31 | |
STA VALUE | |
JSR CMPTSK | |
BEQ FNDW5 | |
DEC SHIND5 TAX | |
INX | |
RTS | |
RAND TXA | |
PHA | |
LDA #0 | |
STA VARAND+1 | |
STA VARAND | |
LDA #6 | |
STA VWRK3 | |
RNDNUM LDA VARWRK | |
SEC | |
ADC VARWRK+4 | |
ADC VARWRK+5 | |
STA VARWRK | |
LDX #4 | |
NXTDGT LDA VARWRK,X | |
STA VARWRK+1,X | |
DEX | |
BPL NXTDGT | |
CLC | |
LDA VARWRK+1 | |
ADC VARAND | |
STA VARAND | |
L#127 | |
CMP Y | |
BNE FNDSY3 | |
RTS | |
FNDSY2 LDX SYST | |
STX TYPE | |
FNDSY3 INC SYST | |
LDX SYST | |
CPX #50 | |
BCC FNDSY1 | |
RTS | |
DIV STA NUM1 | |
TXA | |
STY NUM2 | |
LDY #0 | |
STY ANS | |
LDY #8 | |
SEC | |
SBC NUM2 | |
LOOP PHP | |
ROL ANS | |
ASL NUM1 | |
ROL | |
PLP | |
BCC ADD | |
SBC NUM2 | |
JMP NEXT | |
ADD ADC RTS | |
PRCHAR LDX PASS | |
LDA SHAPES,X | |
LDY NUM2 | |
BEQ PRCHR1 | |
LDX TYPE | |
CPX #4 | |
BNE PRCHR0 | |
AND #127 | |
LSR A | |
BNE PRCHR3 | |
PRCHR0 ASL | |
AND #127 | |
BCC PRCHR1 | |
PRCHR3 ORA #128 | |
PRCHR1 LDY #0 | |
STA (SCREEN),Y | |
INC PASS | |
LDA PASS | |
AND #7 | |
BEQ PRCHR2 | |
LDA SCREEN+1 | |
CLC | |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
LDY #25 | |
JSR DIV | |
ASL | |
CMP NUM2 | |
BCC LDSP20 | |
INC ANS | |
LDSP20 LDY WRK1 | |
LDA PB,Y | |
SEC | |
SBC ANS | |
STA PB,Y | |
INY | |
CPY #3 | |
BEQ LDSP3 | |
CPY #6 | |
BCC LDSP2 | |
LDSP3 RTS | |
SETTEC LDA PDS | |
BMI STEC2 | |
LDA TECH,X | |
SEC | |
SBC TECH,Y | |
BCS STEC1 | |
STEC2 LDA #0 | |
STEC1 STA WTECH | |
P00 | |
BCS LDSP01 | |
LDSP00 STX MS | |
STY NRG | |
LDSP01 LDA PDA | |
BMI LDSP03 | |
LSR MS | |
LSR NRG | |
LDSP03 PLA | |
JMP LDSP3 | |
LDSP0 PLA | |
LDSP02 ASL | |
ASL | |
ASL | |
ORA CLASS,X | |
ASL | |
ASL | |
ASL | |
ADC #DESIGN&255 | |
STA ZWORK2 | |
LDA #0 | |
ADC #DESIGN/256 | |
STA ZWORK2+1 | |
LDA EFF,X | |
STA WEFF | |
P1 | |
BEQ FNDW6 | |
FNDW5 LDX SHIP2 | |
DEY | |
JSR FNDSH3 | |
JMP FNDW2 | |
FNDW5A LDA #4 | |
STA PL | |
FNDW6 RTS | |
CMPTSK JSR STPLMS | |
CMPTS1 LDA PLAYMS,X | |
AND #63 | |
CMP #32 | |
BEQ CMPTS3 | |
CMP VALUE | |
BEQ CMPTS2 | |
INX | |
TXA | |
AND #31 | |
BEQ CMPTS3 | |
BNE CMPTS1 | |
CMPTS2 LDA #1 | |
CMPTS3 RTS | |
MODA VARAND+1 | |
ADC #0 | |
STA VARAND+1 | |
DEC VWRK3 | |
BNE RNDNUM | |
PLA | |
TAX | |
LDA VARAND | |
RTS | |
DIV32 LSR | |
LSR | |
LSR | |
LSR | |
LSR | |
RTS | |
FNDSHP TYA | |
LDY #0 | |
LDX #0 | |
JSR GTSHIP | |
FNDSH1 STX SHIP2 | |
STY SHIP4 | |
LDA (ZWORK),Y | |
BNE FNDSHE | |
FNDSH3 INY | |
INY | |
BNE FNDSH2 | |
INC ZWORK+NUM2 | |
NEXT DEY | |
BNE LOOP | |
BCS LAST | |
ADC NUM2 | |
CLC | |
LAST ROL ANS | |
LDY ANS | |
RTS | |
RANDOM STA NUM2 | |
BEQ RAND5 | |
LDX #0 | |
RAND2 LDA NUM2 | |
ASL | |
BCS RAND3 | |
ASL NUM2 | |
INX | |
BNE RAND2 | |
RAND3 JSR RAND | |
CMP NUM2 | |
BCS RAND3 | |
CPX #0 | |
BEQ RAND5 | |
RAND4 LSR | |
DEX | |
BNE RAND4 | |
RAADC #4 | |
STA SCREEN+1 | |
BNE PRCHAR | |
PRCHR2 LDA SCREEN+1 | |
AND #$23 | |
STA SCREEN+1 | |
RTS | |
FNDSYS LDA #50 | |
STA TYPE | |
LDX #0 | |
FNDSY1 STX SYST | |
JSR GETSYS | |
LDY #0 | |
LDA (ZWORK),Y | |
BEQ FNDSY2 | |
LDY #3 | |
LDA (ZWORK),Y | |
AND #127 | |
CMP X | |
BNE FNDSY3 | |
INY | |
LDA (ZWORK),Y | |
AND |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
RTS | |
EXPLOD LDA #5 | |
STA SOUND | |
LDA #255 | |
STA SOUND+1 | |
LDA #2 | |
STA SOUND+2 | |
JSR H94A2 | |
LDA #$82 | |
STA SOUND+2 | |
LDA #$1E | |
STA SOUND | |
H94A2 SEC | |
INC SOUND | |
LDX SOUND+1 | |
H94A7 ROL $00 | |
ROL $01 | |
TXA | |
BEQ H94AF | |
DEX | |
H94AF BNE H94B8 | |
BCC H94B8 | |
LDA $C030 | |
LDX SOUND+ |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
DA | |
AND #127 | |
BNE CMBT42 | |
CMBT45 JMP CMBT9 | |
CMBT43 LDA MS | |
BEQ CMBT5 | |
JSR RANDOM | |
STX ANS | |
LDA AM | |
ASL | |
ASL | |
ADC AM | |
JSR RANDOM | |
CPX ANS | |
BEQ CMBT46 | |
BCS CMBT5 | |
CMBT46 JSR RAND | |
AND #7 | |
BEQ CMBT5 | |
JSR DAMAGE | |
BMI CMBT44 | |
CMBT5 LDX SHIP | |
INX | |
CPX MXSHIP | |
BCS C#4 | |
LDA PL | |
JSR LODSHP | |
LDA PB | |
BEQ CMBT41 | |
JSR RAND | |
AND #15 | |
BNE CMBT41 | |
JSR RAND | |
AND #15 | |
CMP EV | |
BCC CMBT41 | |
LDA PB | |
JSR DAMAGE | |
BMI CMBT44 | |
BEQ CMBT42 | |
CMBT41 LDA NRG | |
BEQ CMBT43 | |
JSR RAND | |
AND #3 | |
BEQ CMBT43 | |
JSR RAND | |
AND #15 | |
CMP EV | |
BCC CMBT43 | |
LDMBT6A | |
CMBT04 PHA | |
LDA PDS | |
ORA #128 | |
STA PDS | |
PLA | |
CMBT01 STA MXSHIP | |
LDX #0 | |
CMBT02 STX SHIP | |
JSR RAND | |
AND #15 | |
BEQ CMBT1 | |
CMBT05 JMP CMBT5 | |
CMBT1 JSR GETATK | |
BMI CMBT03 | |
BNE CMBT05 | |
CMP #0 | |
BNE CMBT21 | |
JMP ATKTRN | |
CMBT21 JSR RANDOM | |
STA SHIP1 | |
STA SHIP3 | |
L),Y | |
JSR EXPLOD | |
JSR ADJDV | |
LDX TF | |
DEC TA,X | |
LDX PL | |
DEC NP,X | |
LDY SHIP4 | |
INY | |
LDA (ZWORK),Y | |
AND #31 | |
STA VALUE | |
AND #0 | |
STA (ZWORK),Y | |
LDX VALUE | |
LDY #6 | |
JSR GETTF | |
BEQ DAMAG7 | |
SEC | |
SBC #1 | |
STA (ZWORK),Y | |
BNE DAMAG7 | |
JMP CONDNS | |
DAMAG7 LDA #0 | |
RTS | |
COM1 | |
H94B8 ROR | |
ROR | |
ROR | |
EOR $01 | |
ASL | |
ASL | |
ASL | |
PHP | |
LDA SOUND+2 | |
BEQ H94D9 | |
DEY | |
BNE H94D9 | |
TAY | |
BMI H94D4 | |
LDA SOUND+1 | |
BEQ H94D9 | |
DEC SOUND+1 | |
TYA | |
BNE H94D9 | |
H94D4 INC SOUND+1 | |
AND #$7F | |
TAY | |
H94D9 PLP | |
DEC VARAND+1 | |
BNE H94A7 | |
DEC SOUND | |
BNE H94A7 | |
RTS | |
D |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
MBT6 | |
JMP CMBT02 | |
CMBT6 JMP CMBT03 | |
CMBT6A LDA #1 | |
SEC | |
SBC ATDEF | |
STA ATDEF | |
LDA PDS | |
AND #127 | |
STA PDS | |
LDX PASS | |
INX | |
CPX #64 | |
BCS CMBT7 | |
JMP CMBT0 | |
ATKTRN JSR DESTRN | |
BMI CMBT9 | |
BPL CMBT5 | |
CMBT7 LDX #0 | |
CMBT8 STX ATDEF | |
LDA MANEUV,X | |
BNE CMBTA | |
CMBT8A LDX A NRG | |
JSR RANDOM | |
STX ANS | |
LDA AR | |
LSR | |
STA ANS+1 | |
JSR RANDOM | |
TXA | |
CLC | |
ADC ANS+1 | |
STA ANS+1 | |
LDA ANS | |
SEC | |
SBC ANS+1 | |
BCC CMBT43 | |
BEQ CMBT43 | |
JSR DAMAGE | |
BMI CMBT44 | |
BNE CMBT43 | |
CMBT42 JMP CMBT5 | |
CMBT44 LDA ATDEF | |
BNE CMBT45 | |
LDA PDS | |
BNE CMBT42 | |
LDA PDX TF | |
BEQ CMBT3 | |
LDX #3 | |
CMBT3 JSR FNDWSH | |
LDA PL | |
CMP #4 | |
BNE CMBT31 | |
JMP CMBT44 | |
CMBT31 JSR SURPRS | |
BPL CMBT32 | |
JMP CMBT5 | |
CMBT32 LDY SHIP4 | |
LDX TF | |
JSR MOVSHP | |
LDX ATDEF | |
LDY TF | |
JSR SETTEC | |
LDY #0 | |
LDA APL | |
JSR LODSHP | |
LDX TF | |
LDY ATDEF | |
JSR SETTEC | |
LDY BAT JSR RAND | |
AND #1 | |
STA ATDEF | |
LDX #0 | |
CMBT0 STX PASS | |
LDY ATDEF | |
LDA MANEUV,Y | |
BEQ COMBT | |
JSR RAND | |
AND #3 | |
BEQ CMBT00 | |
COMBT LDA TA,Y | |
BNE CMBT01 | |
CMBT03 LDY ATDEF | |
BEQ CMBT00 | |
LDA PDS | |
BMI CMBT00 | |
LDA PDA | |
AND #127 | |
CLC | |
ADC PDS | |
BNE CMBT04 | |
CMBT00 JMP CAMAGE LDX SIZ | |
BEQ DAMAG1 | |
ASL | |
DEX | |
BEQ DAMAG1 | |
ASL | |
DAMAG1 STA WRK1 | |
LDX TF | |
LDA EFF,X | |
SEC | |
SBC WRK1 | |
BCS DAMAG2 | |
LDA #0 | |
DAMAG2 STA WEFF | |
STA EFF,X | |
LDY SHIP4 | |
LDA (ZWORK),Y | |
AND #$E0 | |
ORA WEFF | |
STA (ZWORK),Y | |
LDA WEFF | |
BEQ DAMAG3 | |
RTS | |
DAMAG3 STA (ZWORK |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment