This article has a talk page!A turn-based strategy game themed after the Battle of Normandy.
Uncompiled Source Code#
The disk data contains two huge fragments of uncompiled source code spanning multiple tracks.
Fragment 1#
This fragment starts at Track 15, Sector 6, and ends at Track 33, Sector 5.
P13LN3 MOVE.L (A0),SYSV39
MOVE.L (A0),SYSV37
JSR M24A
CMPI.W #4,SYSV41
BEQ AMP131B
CMPI.W #100,SYSV41
BEQ AMP131B
JSR M9A
CMPI.W #1,SYSV43
BEQ AMP131B
MOVE.L #ARROWCUR,A6
MOVE.W (A6),D1
SUBQ.W #2,D1
MOVE.W D1,SYSV6
MOVE.W 2(A6),SYSV7
JSR N813A
JSR N801A
MOVE.L #SPACES4,SYSV22
JSR N812A
JSR N806A
MOVE.L SYSV22,A5
JSR N809B
MOVE.L #XCURSOR,SYSV19
JSR N817CA
MOVE.L SYSV5,A6
CLR.W 20(A6)
MOVE.W (A6),SYSV24
MOVE.W SYSV6,8(A6)
MOVE.W SYSV6,12(A6)
MOVE.W SYSV7,10(A6)
MOVE.W SYSV7,14(A6)
MOVE.L #ADJPOS,A5
MOVE.W SY MOVE.L A7,A5
MOVE.L 4(A5),A5
MOVE.L $C(A5),D0
ADD.L $14(A5),D0
ADD.L $1C(A5),D0
ADD.L #$500,D0
MOVE.L D0,D1
ADD.L A5,D1
AND.L #-2,D1
MOVE.L D1,A7
MOVE.L D0,-(SP)
MOVE.L A5,-(SP)
CLR.W -(SP)
MOVE.W #$4A,-(SP)
TRAP #1
ADD.L #12,SP
TST.L D0
BNE ERROR
MOVE.W #-1,-(SP)
MOVE.L #$78000,-(SP)
MOVE.L #$78000,-(SP)
MOVE.W #5,-(SP)
TRAP #14
ADD.L #12,SP
MOVE.W #0,-(SP)
PEA FILNAM1
MOVE.W #$3D,-(SP)
TRAP #1
ADD.L #8,SP
TST.L D0
BMI ERROR
MOVE.W D0,HANDLE
PEA DISFILE
MOVE.L #10000,-(SP)
MOVE.W HANDLE,-(SP)
MOVE.W #$3F,-(SP)
TRAP #1
ADD.L #12,SP
TST.L D0
BMI ERROR
CMP.L #10000,D0
BNE ERROR
BSR CLOSEFIL
MOVE.W #0,-(SP)
PEA FILNAM2
MOVE.W #$3D,-(SP)
TRAP #1
ADD.L #8,SP
TST.L D0
BMI ERROR
MOVE.W D0,HANDLE
PEA UDGFILE
MOVE.L #32000,-(SP)
MOVE.W HANDLE,-(SP)
MOVE.W #$3F,-(SP)
TRAP #1
ADD.L #12,SP
TST.L D0
BMI ERROR
CMP.L #32000,D0
BNE ERROR
BSR CLOSEFIL
MOVE.W #0,-(SP)
PEA FILNAM3
MOVE.W #$3D,-(SP)
TRAP #1
ADD.L #8,SP
TST.L D0
BMI ERROR
MOVE.W D0,HANDLE
PEA ARMYFILE
MOVE.L #3780,-(SP)
MOVE.W HANDLE,-(SP)
MOVE.W #$3F,-(SP)
TRAP #1
ADD.L #12,SP
TST.L D0
BMI ERROR
CMP.L #3780,D0
BNE ERROR
BSR CLOSEFIL
MOVE.W #0,-(SP)
PEA FILNAM4
MOVE.W #$3D,-(SP)
TRAP #1
ADD.L #8,SP
TST.L D0
BMI ERROR
MOVE.W D0,HANDLE
PEA MAPDATA
MOVE.L #5600,-(SP)
MOVE.W HANDLE,-(SP)
MOVE.W #$3F,-(SP)
TRAP #1
ADD.L #12,SP
TST.L D0
BMI ERROR
CMP.L #5600,D0
BNE ERROR
BSR CLOSEFIL
MOVE.L #VECT,-(SP)
MOVE.L #PARAM,-(SP)
MOVE.W #0,-(SP)
MOVE.W #0,-(SP)
TRAP #14
ADD.L #12,SP
MOVE.W #16,-(SP)
MOVE.W #11,-(SP)
TRAP #13
ADDQ.L #4,SP
MOVE.W #0,-(SP)
MOVE.W #21,-(SP)
TRAP #14
ADDQ.L #4,SP
MOVE.L #PALETTE,-(SP)
MOVE.W #6,-(SP)
TRAP #14
ADDQ.L #6,SP
S JSR CURSORC
MOVE.W #1,SYSV30
JSR N800IA
JSR N800MA
JSR LOADGAME
GLA JSR N823A
JSR NPR26A
GLRS1 JSR N503A
CMPI.W #49,D0
BEQ GL1
CMPI.W #50,D0
BEQ GL2
CMPI.W #51,D0
BEQ GL3
BRA GLRS1
GL1 MOVE.W #4,D1
BRA GLCOMMON
GL2 MOVE.W #6,D1
BRA GLCOMMON
GL3 MOVE.W #8,D1
GLCOMMON MOVE.W #6,D7
MOVE.L #ARMYFILE,A6
ADD.L #1890,A6
GLRS3 MOVE.L A6,A5
ADD.L #30,A5
MOVE.W #5,D6
GLRS2 MOVE.W D1,4(A5)
ADD.L #40,A5
DBRA D6,GLRS2
ADD.L #270,A6
DBRA D7,GLRS3
JSR N823A
START JSR N864A
BRA START
BRA END
EVEN
PALETTE DC.W $000,$333,$321,$321,$543,$753,$600,$720
DC.W $030,$777,$050,$770,$660,$004,$037,$067
VECT RTS
PARAM DC.B 0,0,0,0,0
EVEN
ERROR MOVE.L #TEXT7,-(SP)
MOVE.W #9,-(SP)
TRAP #1
ADDQ.L #6,SP
TERMINAT MOVE.W #0,-(SP)
TRAP #1
CLOSEFIL MOVE.W HANDLE,-(SP)
MOVE.W #$3E,-(SP)
TRAP #1
ADDQ.L #4,SP
BMI ERROR
RTS
EVEN
HANDLE DS.W 1
FILNAM1 DC.B 'UISFILE.DAT',0
FILNAM2 DC.B 'UDGFILE.DAT',0
FILNAM3 DC.B 'URMYFILE.DAT',0
FILNAM4 DC.B 'UAPDATA.DAT',0
EVEN
TEXT7 DC.B 'ERROR',13,10,0
EVEN
END MOVE.W #$FF,-(SP)
MOVE.W #6,-(SP)
TRAP #1
ADDQ.L #4,SP
TST.L D0
BEQ END
BRA TERMINAT
EVEN
DISFILE DSBSS.W 5000
UDGFILE DSBSS.B 32000
ARMYFILE DSBSS.B 3780
MAPDATA DSBSS.B 5600
AMP1A MOVE.W #2,SYSV8
MOVE.W #20,SYSV9
MOVE.W #6,D7
MOVE.L #ARMYFILE,A6
AMP1RS1 MOVEM.L D7/A6,-(SP)
MOVE.L A6,SYSV11
MOVE.W SYSV8,SYSV6
MOVE.W SYSV9,SYSV7
JSR N813A
JSR N801A
JSR NHQ6A
MOVE.L SYSV15,SYSV12
JSR N808A
JSR N806A
JSR N809A
MOVE.W SYSV8,SYSV6
ADDQ.W #2,SYSV6
JSR N813A
JSR N801A
JSR NHQDESA
MOVE.L SYSV15,SYSV12
JSR N808A
JSR N806A
JSR N809A
MOVEM.L (SP)+,D7/A6
ADDA.L #270,A6
ADDQ.W #2,SYSV9
DBRA D7,AMP1RS1
RTS
AMP2A CMPI.W #2,SYSV30
BCS AMP2LN1A
RTS
AMP2LN1A JSR N504A
JSR N823A
JSR NPR1AA
JSR NPR7A
JSR N503A
AMP2LN2A MOVE.W D0,SYSV23
CMP.W #65,D0
BCS AMP2LN1
CMP.W #77,D0
BCS AMP2LN2
AMP2LN1 JSR NSC1AA
BRA AMP2LN2A
AMP2LN2 JSR N504A
JSR N823A
MOVE.W SYSV23,D1
SUB.W #64,D1
BSR AMP2AA
CMPI.W #1,4(A6)
BEQ AMP2LN1A
MOVE.W #1,4(A6)
MOVE.W 12(A6),SYSV6
MOVE.W 14(A6),SYSV7
MOVE.L A6,-(SP)
JSR N813A
JSR N801A
MOVE.L (SP)+,A6
MOVE.L SYSV13,A5
MOVE.W 10(A6),(A5)
MOVE.W 10(A6),SYSV26
CMPI.W #412,10(A6)
BEQ AMP2LN4
MOVE.W 10(A6),D5
ADDQ.W #1,D5
MOVE.L SYSV14,A5
MOVE.W D5,(A5)
AMP2LN4 JSR N806A
MOVE.W SYSV26,D1
JSR NSC6B
MOVE.L SYSV16,A1
JSR NSC7A
MOVE.W SYSV26,D5
CMPI.W #412,D5
BEQ AMP2LN5
ADDQ.W #1,D5
MOVE.W D5,D1
JSR NSC6B
MOVE.L SYSV17,A1
JSR NSC7A
AMP2LN5 BSR AMP3A
CMPI.W #5,SYSV10
BCS AMP2LN1A
RTS
AMP3A CLR.W SYSV10
MOVE.L #LANDBECH,A6
MOVE.W #11,D7
AMP3RS1 CMPI.W #1,4(A6)
BNE AMP3LN1
ADDQ.W #1,SYSV10
AMP3LN1 ADD.L #16,A6
DBRA D7,AMP3RS1
RTS
AMP2AA MOVE.L #LANDBECH,A6
SUB.L #16,A6
MOVE.W D1,D2
MULU #16,D2
ADD.L D2,A6
MOVE.L A6,SYSV31
RTS
AMP5A MOVE.W #0,SYSV10
AMP5RS1 CLR.L D0
JSR N504A
JSR N823A
BSR AMP1A
BSR AMP6A
MOVE.W #1,SYSV125
JSR NHQ16A
AMP5LN1 JSR NPR1A
JSR NPR22A
JSR N503A
MOVE.W D0,SYSV23
CMPI.W #65,SYSV23
BEQ AMP5LNA
CMPI.W #84,SYSV23
BEQ AMP5RET
BSR AMP7A
CMPI.W #65,D0
BEQ AMP5LNA
CMPI.W #84,D0
BEQ AMP5RET
JSR NSC1AA
CMPI.W #65,D0
BEQ AMP5LNA
CMPI.W #84,D0
BEQ AMP5RET
BRA AMP5LN1
AMP5LNA JSR N504A
MOVE.W SYSV18,SYSV25
JSR NU4A
BSR AMP8A
BSR AMP9A
BSR AMP6A
CLR.W SYSV125
AMP5LN2 JSR N823A
JSR NPR1A
JSR NPR3A
JSR N503A
CMPI.W #85,D0
BEQ AMP5LNU
CMPI.W #69,D0
BEQ AMP5RS1
BSR AMP7A
CMPI.W #85,D0
BEQ AMP5LNU
CMPI.W #69,D0
BEQ AMP5RS1
JSR NSC1AA
CMPI.W #85,D0
BEQ AMP5LNU
CMPI.W #69,D0
BEQ AMP5RS1
BRA AMP5LN2
AMP5LNU CMPI.W #7,SYSV18
BCC AMP5LN2
MOVE.W SYSV18,D7
JSR SUB8A
MOVE.W SYSV30,D1
CMPI.W #2,D1
BCC AMP5PAS1
CMPI.W #2,26(A6)
BEQ AMP5LN2
CMPI.W #1,26(A6)
BEQ AMP5LN2
AMP5PAS1 TST.W 20(A6)
BEQ AMP5LN2
TST.W 2(A6)
BEQ AMP5LN2
AMP5LN3A JSR N504A
JSR N823A
JSR NPR4A
CLR.L D0
JSR N503A
MOVE.W D0,SYSV23
CMPI.W #65,SYSV23
BCS AMP5LN3
CMPI.W #77,SYSV23
BCS AMP5LN4
AMP5LN3 JSR NSC1AA
BRA AMP5LN3A
AMP5LN4 JSR N504A
MOVE.W SYSV23,D1
SUB.W #64,D1
BSR AMP2AA
BSR AMP10A
BSR AMP11AA
BSR AMP11A
MOVE.L SYSV31,A4
TST.W 4(A4)
BEQ AMP5LN2
TST.W 8(A4)
BNE AMP5LN2
MOVE.L SYSV32,A4
TST.W 6(A4)
BNE AMP5LN2
MOVE.L #COMMONC,A0
MOVE.L (A0),SYSV6
SUBQ.W #2,SYSV6
JSR N813A
JSR N801A
MOVE.L #SPACES4,SYSV22
JSR N812A
JSR N806A
MOVE.L SYSV22,A5
JSR N809B
MOVE.L SYSV5,A4
CLR.W 20(A4)
MOVE.L SYSV32,A3
MOVE.W (A3),8(A4)
MOVE.W (A3),SYSV6
MOVE.W 2(A3),10(A4)
MOVE.W 2(A3),SYSV7
JSR N813A
JSR SUB4A
JSR SUB1C
MOVE.L SYSV32,A3
MOVE.L SYSV5,A4
MOVE.W (A4),6(A3)
MOVE.L SYSV11,A4
CMPI.W #1,22(A4)
BEQ AMP5LN2
MOVE.W #1,22(A4)
TST.W (A3)
BEQ AMP5LN4A
MOVE.W (A3),4(A4)
SUBQ.W #2,4(A4)
MOVE.W 2(A3),6(A4)
BRA AMP5LN5
AMP5LN4A MOVE.W (A3),4(A4)
MOVE.W 2(A3),6(A4)
ADDQ.W #2,6(A4)
AMP5LN5 MOVE.W 4(A4),SYSV6
MOVE.W 6(A4),SYSV7
JSR N813A
JSR SUB6A
MOVE.L SYSV15,SYSV12
JSR SUB1B
ADDQ.W #1,SYSV10
BRA AMP5LN2
CLR.L D0
CLR.W SYSV23
AMP5RET RTS
AMP6A MOVE.W #4,SYSV6
MOVE.W #20,SYSV7
JSR N813A
MOVE.W #1,SYSV18
MOVE.L #ARROWCUR,SYSV19
JSR PC1A
JSR N819A
JSR N818A
JSR PC2A
RTS
AMP7A MOVE.L #COMMONC,A0
MOVE.L (A0),SYSV6
AMP7RS2 JSR N805A
CMP.W #80,D0
BNE AMP7LN1
JSR N813A
CMPI.W #32,SYSV7
BEQ AMP7RET
MOVE.L #ARROWCUR,SYSV19
JSR N817CA
ADDQ.W #2,SYSV7
ADDQ.W #1,SYSV18
BRA AMP7LNA
AMP7LN1 CMP.W #81,D0
BNE AMP7RET
JSR N813A
CMPI.W #20,SYSV7
BEQ AMP7RET
MOVE.L #ARROWCUR,SYSV19
JSR N817CA
SUBQ.W #2,SYSV7
SUBQ.W #1,SYSV18
AMP7LNA JSR NHQ16A
MOVE.L #COMMONC,A0
MOVE.L SYSV6,(A0)
JSR N813A
JSR N816A
JSR N806A
JSR N820A
JSR N818A
JSR PC2A
MOVE.W #40000,D7
AMP7RS1 DBRA D7,AMP7RS1
BRA AMP7RS2
AMP7RET RTS
AMP8A MOVE.W #2,SYSV26
MOVE.W #20,SYSV27
MOVE.W #6,D7
AMP8LNS MOVE.W #1,D6
MOVE.W SYSV26,SYSV6
MOVE.W SYSV27,SYSV7
AMP8RS1 MOVEM.L D6/D7,-(SP)
JSR N813A
JSR N801A
MOVE.L #SPACES4,SYSV12
JSR SUB1B
MOVEM.L (SP)+,D6/D7
MOVE.W SYSV26,D5
ADDQ.W #2,D5
MOVE.W D5,SYSV6
DBRA D6,AMP8RS1
ADDQ.W #2,SYSV27
DBRA D7,AMP8LNS
RTS
AMP9A MOVE.W #2,SYSV26
MOVE.W #20,SYSV27
JSR SUB2A
AMP9LNS MOVEM.L D6/A6,-(SP)
MOVE.L A6,SYSV5
MOVE.W SYSV26,SYSV6
MOVE.W SYSV27,SYSV7
TST.W 20(A6)
BEQ AMP9LN1
TST.W 2(A6)
BEQ AMP9LN1
JSR N813A
JSR SUB1A
BRA AMP9NXTU
AMP9LN1 JSR N813A
JSR N801A
MOVE.L #SPACES4,SYSV12
JSR SUB1B
AMP9NXTU MOVEM.L (SP)+,D6/A6
ADD.L #40,A6
ADDQ.W #2,SYSV27
DBRA D6,AMP9LNS
RTS
AMP10A MOVE.L #BEACHBOX,A5
SUB.L #8,A5
MOVE.W D1,D2
MULU #8,D2
ADD.L D2,A5
MOVE.L A5,SYSV32
RTS
AMP11AA MOVE.W #11,D7
MOVE.L #LANDBECH,A4
AMP11ARS CLR.W 8(A4)
ADD.L #16,A4
DBRA D7,AMP11ARS
RTS
AMP11A MOVE.W #11,D4
MOVE.L #LANDBECH,A4
AMP11LNS MOVE.W #13,D7
MOVE.L #ARMYFILE,A5
AMP11RS2 MOVE.W #5,D6
ADD.L #30,A5
AMP11RS1 MOVE.W (A4),D2
CMP.W 8(A5),D2
BNE AMP11NU
MOVE.W 2(A4),D2
CMP.W 10(A5),D2
BEQ AMP11F
AMP11NU ADD.L #40,A5
DBRA D6,AMP11RS1
DBRA D7,AMP11RS2
AMP11RS3 ADD.L #16,A4
DBRA D4,AMP11LNS
RTS
AMP11F MOVE.W #1,8(A4)
BRA AMP11RS3
AMP12A MOVE.W #11,D7
MOVE.L #LANDBECH,A6
MOVE.L #BEACHBOX,A5
AMP12LNS MOVE.W D7,-(SP)
MOVE.L A6,-(SP)
MOVE.L A5,-(SP)
TST.W 6(A5)
BEQ AMP12NXB
TST.W 8(A6)
BNE AMP12NXB
MOVE.W 6(A5),SYSV24
BSR AMP12AA
JSR M19A
JSR M4A
MOVE.L (SP)+,A5
MOVE.L (SP)+,A6
MOVE.L A6,-(SP)
MOVE.L A5,-(SP)
MOVE.L SYSV5,A4
CLR.W 20(A4)
MOVE.W (A6),12(A4)
MOVE.W 2(A6),14(A4)
JSR N814A
MOVE.L SYSV5,A4
MOVE.W 12(A4),8(A4)
MOVE.W 14(A4),10(A4)
JSR NN1A
JSR N813A
JSR N815A
AMP12NXB MOVE.L (SP)+,A5
MOVE.L (SP)+,A6
MOVE.W (SP)+,D7
CLR.W 6(A5)
ADD.L #16,A6
ADD.L #8,A5
DBRA D7,AMP12LNS
RTS
AMP12AA MOVE.L #ADJPOS,A1
MOVE.W (A6),(A1)
MOVE.W 2(A6),2(A1)
AMP12AB JSR M3A
MOVE.L SYSV34,A1
ADD.L #14,A1
AMP12A2 TST.W (A1)
BEQ AMP12A1
ADDQ.W #2,A1
BRA AMP12A2
AMP12A1 MOVE.W SYSV24,(A1)
RTS
AMP13A CMPI.W #2,SYSV30
BCS AMP13LNS
RTS
AMP13LNS JSR N823A
JSR NPR8A
JSR N504A
JSR N503A
AMP13RS1 JSR N504A
JSR N823A
BSR AMP1A
BSR AMP6A
MOVE.W #1,SYSV125
JSR NHQ16A
AMP13LN1 JSR N823A
JSR NPR1A
JSR NPR22A
JSR N503A
MOVE.W D0,SYSV23
CMPI.W #65,SYSV23
BEQ AMP13LNA
BSR AMP7A
CMPI.W #65,D0
BEQ AMP13LNA
CMPI.W #84,D0
BNE AMP13AA
RTS
AMP13AA JSR NSC1AA
CMPI.W #65,D0
BEQ AMP13LNA
BRA AMP13LN1
AMP13LNA JSR N504A
MOVE.W SYSV18,SYSV25
CMPI.W #1,SYSV25
BEQ AMP13A1
CMPI.W #6,SYSV25
BNE AMP13LN1
AMP13A1 JSR NU4A
MOVE.L SYSV11,A1
TST.W 22(A1)
BEQ AMP13LN1
BSR AMP8A
BSR AMP9A
BSR AMP6A
CLR.W SYSV125
AMP13LN2 JSR N823A
JSR NPR1A
JSR NPR3A
JSR N503A
CMPI.W #85,D0
BEQ AMP13LNU
CMPI.W #69,D0
BEQ AMP13RS1
JSR AMP7A
CMPI.W #85,D0
BEQ AMP13LNU
CMPI.W #69,D0
BEQ AMP13RS1
JSR NSC1AA
CMPI.W #85,D0
BEQ AMP13LNU
CMPI.W #69,D0
BEQ AMP13RS1
BRA AMP13LN2
AMP13LNU CMPI.W #7,SYSV18
BCC AMP13LN2
MOVE.W SYSV18,D7
MOVE.L SYSV11,A6
ADD.L #30,A6
AMP13RS2 SUBQ.W #1,D7
BEQ AMP13UID
ADD.L #40,A6
BRA AMP13RS2
AMP13UID MOVE.L A6,SYSV5
CMPI.W #1,30(A6)
BNE AMP13LN2
TST.W 20(A6)
BEQ AMP13LN2
JSR N504A
MOVE.L #XCURSOR,SYSV19
JSR PC1A
MOVE.W #6,SYSV6
MOVE.W #26,SYSV7
JSR N813A
JSR N819A
JSR N823A
AMP131A JSR NPR9A
AMP131B JSR N821A
JSR PC2A
TST.W SYSV23
BEQ AMP131A
CMPI.W #$14,SYSV23
BEQ AMP13LNT
BRA AMP131B
AMP13LNT JSR N504A
MOVE.W #11,D7
MOVE.L #LANDBECH,A6
AMP13T1 TST.W 4(A6)
BEQ AMP13NB
MOVE.L #COMMONC,A0
MOVE.W (A0),D6
SUB.W (A6),D6
CMPI.W #5,D6
BCS AMP13TSC
CMPI.W #65532,D6
BCS AMP13NB
AMP13TSC MOVE.W 2(A0),D6
SUB.W 2(A6),D6
CMPI.W #5,D6
BCS AMP13LN3
CMPI.W #65532,D6
BCC AMP13LN3
AMP13NB ADD.L #16,A6
DBRA D7,AMP13T1
BRA AMP131B
AMP13LN3 MOVE.L (A0),SYSV39
MOVE.L (A0),SYSV37
JSR M24A
CMPI.W #4,SYSV41
BEQ AMP131B
CMPI.W #100,SYSV41
BEQ AMP131B
JSR M9A
CMPI.W #1,SYSV43
BEQ AMP131B
MOVE.L #ARROWCUR,A6
MOVE.W (A6),D1
SUBQ.W #2,D1
MOVE.W D1,SYSV6
MOVE.W 2(A6),SYSV7
JSR N813A
JSR N801A
MOVE.L #SPACES4,SYSV22
JSR N812A
JSR N806A
MOVE.L SYSV22,A5
JSR N809B
MOVE.L #XCURSOR,SYSV19
JSR N817CA
MOVE.L SYSV5,A6
CLR.W 20(A6)
MOVE.W (A6),SYSV24
MOVE.W SYSV6,8(A6)
MOVE.W SYSV6,12(A6)
MOVE.W SYSV7,10(A6)
MOVE.W SYSV7,14(A6)
MOVE.L #ADJPOS,A5
MOVE.W SYSV6,(A5)
MOVE.W SYSV7,2(A5)
MOVE.W #1,SYSV35
JSR N815A
BSR AMP12AB
JSR N823A
MOVE.L #ARROWCUR,SYSV19
JSR PC1A
BRA AMP13LN2
LANDBECH DC.W 6,2,0,0,0,412,5,2
DC.W 6,10,0,0,0,412,5,10
DC.W 10,12,0,0,0,413,10,14
DC.W 14,14,0,0,0,413,14,16
DC.W 16,20,0,0,0,412,15,20
DC.W 18,24,0,0,0,412,16,24
DC.W 18,26,0,0,0,412,16,26
DC.W 18,30,0,0,0,412,17,30
DC.W 18,34,0,0,0,412,16,34
DC.W 6,40,0,0,0,412,5,40
DC.W 6,44,0,0,0,412,5,44
DC.W 6,48,0,0,0,412,4,48
BEACHBOX DC.W 0,2,0,0
DC.W 0,10,0,0
DC.W 6,16,0,0
DC.W 10,18,0,0
DC.W 10,20,0,0
DC.W 10,24,0,0
DC.W 10,26,0,0
DC.W 12,30,0,0
DC.W 12,34,0,0
DC.W 0,40,0,0
DC.W 0,44,0,0
DC.W 0,48,0,0
BK1A MOVE.W #13,D7
MOVE.L #ARMYFILE,A6
BK1LNRS CLR.W SYSV57
CLR.W SYSV58
MOVE.W #6,D6
MOVE.L A6,A5
ADD.L #30,A5
BK1LN3 TST.W 2(A5)
BEQ BK1LN1
MOVE.W SYSV57,D1
ADD.W 2(A5),D1
MOVE.W D1,SYSV57
ADDQ.W #1,SYSV58
BK1LN1 SUBQ.W #1,D6
BEQ BK1LN2
ADD.L #40,A5
BRA BK1LN3
BK1LN2 MOVE.W SYSV58,2(A6)
MOVE.W SYSV57,12(A6)
ADD.L #270,A6
DBRA D7,BK1LNRS
RTS
BK1AA MOVE.W #13,D7
MOVE.L #ARMYFILE,A6
BK1ALNRS CLR.W SYSV58
MOVE.W #6,D6
MOVE.L A6,A5
ADD.L #30,A5
BK1ALN3 CMPI.W #1,20(A5)
BEQ BK1ALN1
ADDQ.W #1,SYSV58
BK1ALN1 SUBQ.W #1,D6
BEQ BK1ALN2
ADD.L #40,A5
BRA BK1ALN3
BK1ALN2 MOVE.W SYSV58,2(A6)
ADD.L #270,A6
DBRA D7,BK1ALNRS
RTS
BK2A JSR SCO1A
JSR SCO2A
JSR SCO3A
JSR SCO4A
JSR SCO5A
JSR SCO6A
JSR SCO7BA
JSR SCO8A
JSR SCO9A
JSR SCO10A
JSR SCO11A
JSR SCO12A
JSR SCO13A
JSR SCO14A
JSR SCO15A
JSR SCO16A
JSR SCO18A
JSR SCO17A
JSR SCO19A
RTS
BK3A MOVE.W #6,D7
TST.W SYSV55
BEQ BK3LN1
MOVE.L #ARMYFILE,A6
ADD.L #1890,A6
BRA BK3LN2
BK3LN1 MOVE.L #ARMYFILE,A6
BK3LN2 TST.W 2(A6)
BEQ BK3LN3
MOVE.L A6,A5
ADD.L #30,A5
MOVE.W #6,D6
BK3LN4 MOVE.L A5,SYSV5
MOVE.W (A5),SYSV24
MOVE.L A6,-(SP)
JSR M22A
MOVE.W #2,(A6)
CLR.W 2(A6)
MOVE.W 6(A5),4(A6)
MOVE.L (SP)+,A6
ADD.L #40,A5
SUBQ.W #1,D6
BEQ BK3LN3
BRA BK3LN4
BK3LN3 ADD.L #270,A6
DBRA D7,BK3LN2
RTS
BK4A MOVE.W #139,D7
MOVE.L #MAPDATA,A6
BK4LNS MOVE.L D7,-(SP)
MOVE.L A6,SYSV51
MOVE.L A6,ADJAREAS
TST.W 14(A6)
BEQ BK4LNND
CLR.L D1
CLR.L D2
BK4LNRS1 CMPI.W #43,14(A6)
BCC BK4LN1
MOVE.W #1,D1
BRA BK4LN2
BK4LN1 MOVE.W #1,D2
BK4LN2 CMPI.W #1,D1
BNE BK4LN3
CMPI.W #1,D2
BEQ BK4LN4
BK4LN3 ADDQ.L #2,A6
TST.W 14(A6)
BEQ BK4LNADJ
BRA BK4LNRS1
BK4LN4 MOVE.L SYSV51,A6
BK4LNRS2 TST.W 14(A6)
BEQ BK4LNND
MOVE.W 14(A6),SYSV24
MOVE.L A6,-(SP)
JSR M19A
JSR M4A
MOVE.L (SP)+,A6
MOVE.L SYSV5,A5
MOVE.W #1,22(A5)
ADDQ.L #2,A6
BRA BK4LNRS2
BK4LNADJ BSR BK4AA
CMPI.W #1,SYSV43
BEQ BK4LN4
BK4LNND MOVE.L SYSV51,A6
ADD.L #40,A6
MOVE.L (SP)+,D7
DBRA D7,BK4LNS
RTS
BK4AA MOVEM.L D1/D2,-(SP)
CLR.W SYSV43
JSR NU1A
MOVE.W #7,D7
MOVE.L #ADJAREAS,A6
BK4ALNS TST.L 4(A6)
BEQ BK4ALNND
MOVE.L 4(A6),A5
MOVEM.L (SP)+,D1/D2
MOVEM.L D1/D2,-(SP)
BK4ARS1 TST.W 14(A5)
BEQ BK4ALNND
MOVE.W 14(A5),D3
SUBQ.W #1,D1
BEQ BK4ALN1
ADDQ.W #1,D1
CMPI.W #43,D3
BCS BK4AEND
BRA BK4ALNC
BK4ALN1 ADDQ.W #1,D1
CMPI.W #43,D3
BCC BK4AEND
BK4ALNC ADDQ.L #2,A5
BRA BK4ARS1
BK4ALNND DBRA D7,BK4ALNC1
BRA BK4ALNE1
BK4ALNC1 ADDQ.L #4,A6
BRA BK4ALNS
BK4AEND MOVE.W #1,SYSV43
BK4ALNE1 MOVEM.L (SP)+,D1/D2
RTS
BK5A MOVE.W #13,D7
MOVE.L #ARMYFILE,A6
BK5LN2 ADD.L #30,A6
MOVE.W #5,D6
BK5LN1 CLR.W 22(A6)
CLR.W 18(A6)
ADD.L #40,A6
DBRA D6,BK5LN1
DBRA D7,BK5LN2
RTS
BK6A MOVE.W #13,D7
MOVE.L #ARMYFILE,A6
BK6LNS MOVE.W 4(A6),D1
MOVE.W 6(A6),D2
MOVE.W D1,D3
MOVE.W D2,D4
ADD.L #30,A6
MOVE.W #5,D6
BK6LNRS1 TST.W 20(A6)
BNE BK6LN1
SUB.W 8(A6),D1
CMPI.W #9,D1
BCS BK6LN2
CMPI.W #-8,D1
BCS BK6HOLD
BK6LN2 SUB.W 10(A6),D2
CMPI.W #9,D2
BCS BK6LN1
CMPI.W #-8,D2
BCS BK6HOLD
BK6LN1 ADD.L #40,A6
MOVE.W D3,D1
MOVE.W D4,D2
DBRA D6,BK6LNRS1
DBRA D7,BK6LNS
RTS
BK6HOLD MOVE.W D3,12(A6)
MOVE.W D4,14(A6)
BRA BK6LN1
BK7A BSR BK8A
BSR BK9A
BSR BK10A
BSR BK11A
BSR BK13A
BSR BK15A
BSR BK12A
JSR REINF
RTS
BK8A MOVE.W #139,D7
MOVE.L #MAPDATA,A6
BK8LN5 MOVE.L A6,SYSV51
MOVE.L D7,-(SP)
CLR.L D1
CLR.L D2
MOVEM.L D1/D2,-(SP)
BK8LN4 MOVE.L A6,SYSV59
TST.W 14(A6)
BEQ BK8LN3
MOVE.W 14(A6),SYSV24
JSR M19A
JSR M4A
MOVE.L SYSV5,A5
CMPI.W #43,(A5)
BCC BK8LN1
MOVEM.L (SP)+,D1/D2
ADD.W 2(A5),D1
MOVEM.L D1/D2,-(SP)
BRA BK8LN2
BK8LN1 MOVEM.L (SP)+,D1/D2
ADD.W 2(A5),D2
MOVEM.L D1/D2,-(SP)
BK8LN2 MOVE.L SYSV59,A6
ADDQ.L #2,A6
BRA BK8LN4
BK8LN3 MOVE.L SYSV51,A6
MOVEM.L (SP)+,D1/D2
MOVE.W D1,4(A6)
MOVE.W D2,6(A6)
MOVE.L (SP)+,D7
DBRA D7,BK8NMAPA
RTS
BK8NMAPA ADD.L #40,A6
BRA BK8LN5
BK9A MOVE.W #139,D7
MOVE.L #MAPDATA,A6
BK9LNRS CLR.W 8(A6)
CLR.W 10(A6)
CLR.W 34(A6)
ADD.L #40,A6
DBRA D7,BK9LNRS
RTS
BK10A MOVE.W #6,D7
MOVE.L #ARMYFILE,A6
CLR.W D1
BK10RS1 TST.W 22(A6)
BEQ BK10NXTA
ADDQ.W #1,D1
BK10NXTA ADD.L #270,A6
DBRA D7,BK10RS1
TST.W D1
BNE BK10CONT
RTS
BK10CONT MOVE.W D1,SYSV60
MOVE.W #2,D1
BK10LNS MOVE.W #7,D7
MOVE.L #ARMYFILE,A6
MOVE.W SYSV60,D2
CLR.L D3
BK10RS2 TST.W 22(A6)
BEQ BK10LNP1
CMPI.W #1,D1
BNE BK10PASS
ADD.W 6(A6),D3
BRA BK10LNP1
BK10PASS ADD.W 4(A6),D3
BK10LNP1 SUBQ.W #1,D7
BEQ BK10LNE
ADD.L #270,A6
BRA BK10RS2
BK10LNE DIVU D2,D3
BCLR #0,D3
MOVE.L #SYSV61,A5
CMPI.W #2,D1
BEQ BK10LN6
ADDQ.L #2,A5
BK10LN6 MOVE.W D3,(A5)
SUBQ.W #1,D1
BEQ BK10AJST
BRA BK10LNS
BK10AJST BSR BK10AA
RTS
BK10AA MOVE.L #SYSV61,A5
MOVE.L #TEMPRECU,A6
MOVE.W (A5),8(A6)
MOVE.W 2(A5),10(A6)
CLR.W 12(A6)
CLR.W 14(A6)
MOVE.W #2,D1
BK10ARS2 MOVE.L D1,-(SP)
MOVE.L A6,SYSV5
JSR M7A
JSR M10A
JSR M8A
MOVE.L (SP)+,D1
ADDQ.W #1,D1
MOVE.L #SYSV37,A4
TST.W (A4)
BNE BK10ANB
TST.W 2(A4)
BNE BK10ANB
BRA BK10ABS
BK10ANB MOVE.L #POSFRONT,A3
BK10ARS1 TST.W (A3)
BEQ BK10ANM
MOVE.W (A4),D4
CMP.W (A3),D4
BNE BK10ANL
MOVE.W 2(A4),D4
CMP.W 2(A3),D4
BEQ BK10ASET
BK10ANL ADDQ.L #4,A3
BRA BK10ARS1
BK10ANM MOVE.L #TEMPRECU,A6
MOVE.W (A4),8(A6)
MOVE.W 2(A4),10(A6)
BRA BK10ARS2
BK10ABS RTS
BK10ASET MOVE.L #SYSV61,A5
BK10ARS3 SUBQ.W #2,(A5)
SUBQ.W #2,2(A5)
SUBQ.W #1,D1
BEQ BK10ARET
BRA BK10ARS3
BK10ARET RTS
BK10BA MOVE.L #SYSV61,A6
MOVE.W (A6),SYSV6
MOVE.W 2(A6),SYSV7
JSR N801A
MOVE.L SYSV13,A5
CMPI.W #111,(A5)
BCS BK10BRET
CMPI.W #261,(A5)
BCC BK10BRET
MOVE.L #BASETERR,SYSV22
JSR N803A
MOVE.L #BASEUDG,SYSV12
JSR N808A
BK10BRET RTS
BK10CA MOVE.L #SYSV61,A6
MOVE.W (A6),SYSV6
MOVE.W 2(A6),SYSV7
JSR N801A
MOVE.L SYSV13,A5
CMPI.W #282,(A5)
BNE BK10CRET
MOVE.L #BASETERR,SYSV22
JSR N812A
BK10CRET RTS
BK11A MOVE.L #AREAFRNT,A5
MOVE.W #49,D7
BK11RS1 CLR.L (A5)+
DBRA D7,BK11RS1
MOVE.L #POSFRONT,A5
MOVE.W #99,D7
BK11RS2 CLR.L (A5)+
DBRA D7,BK11RS2
RTS
BK12A MOVE.W #11,D7
MOVE.L #LANDBECH,A6
BK12LNS CMPI.W #1,4(A6)
BNE BK12NXTB
MOVEM.L D7/A6,-(SP)
MOVE.L #ADJPOS,A5
MOVE.W (A6),(A5)
MOVE.W 2(A6),2(A5)
JSR M3A
MOVE.W #1,34(A2)
MOVEM.L (SP)+,D7/A6
BK12NXTB DBRA D7,BK12LN1
RTS
BK12LN1 ADD.L #16,A6
BRA BK12LNS
BK13A MOVE.W #11,D7
MOVE.L #LANDBECH,A6
BK13LNS CMPI.W #1,4(A6)
BNE BK13NXTB
MOVE.L D7,-(SP)
MOVE.L A6,-(SP)
MOVE.L #ADJPOS,A5
MOVE.W (A6),(A5)
MOVE.W 2(A6),2(A5)
JSR M3A
TST.W 6(A2)
BEQ BK13NB
TST.W 4(A2)
BNE BK13NB
MOVE.L (SP)+,A6
MOVE.L A6,-(SP)
MOVE.W 12(A6),SYSV6
MOVE.W 14(A6),SYSV7
JSR N801A
MOVE.L SYSV13,A4
CMPI.W #91,(A4)
BCS BK13NB
CLR.W 4(A6)
MOVE.W #411,(A4)
CMPI.W #413,10(A6)
BNE BK13NB
MOVE.W #406,(A4)
MOVE.L SYSV14,A4
MOVE.W #407,(A4)
BK13NB MOVE.L (SP)+,A6
MOVE.L (SP)+,D7
BK13NXTB DBRA D7,BK13LN1
RTS
BK13LN1 ADD.L #16,A6
BRA BK13LNS
BK13AA MOVE.W #11,D7
MOVE.L #LANDBECH,A6
BK13ALNS CMPI.W #1,4(A6)
BEQ BK13ANXB
MOVE.L D7,-(SP)
MOVE.L A6,-(SP)
MOVE.L #ADJPOS,A5
MOVE.W (A6),(A5)
MOVE.W 2(A6),2(A5)
JSR M3A
TST.W 6(A2)
BNE BK13ANB
TST.W 4(A2)
BEQ BK13ANB
MOVE.L (SP)+,A6
MOVE.L A6,-(SP)
MOVE.W 12(A6),SYSV6
MOVE.W 14(A6),SYSV7
JSR N801A
MOVE.L SYSV13,A4
CMPI.W #91,(A4)
BCS BK13ANB
MOVE.W #1,4(A6)
MOVE.W 10(A6),(A4)
CMPI.W #412,10(A6)
BEQ BK13ANB
MOVE.L SYSV14,A4
MOVE.W #414,(A4)
BK13ANB MOVE.L (SP)+,A6
MOVE.L (SP)+,D7
BK13ANXB DBRA D7,BK13ALN1
RTS
BK13ALN1 ADD.L #16,A6
BRA BK13ALNS
BK15A CLR.W D1
CLR.W D2
MOVE.W #13,D7
MOVE.L #ARMYFILE,A6
BK15LNS CMPI.W #8,(A6)
BCC BK15LN1
ADD.W 12(A6),D1
MOVE.W D1,SYSV62
BRA BK15NXTA
BK15LN1 ADD.W 12(A6),D2
MOVE.W D2,SYSV63
BK15NXTA DBRA D7,BK15LN2
RTS
BK15LN2 ADD.L #270,A6
BRA BK15LNS
BYPASSA MOVE.W #13,D7
MOVE.L #ARMYFILE,A6
BYPLNS TST.W 22(A6)
BEQ BYPNEXTA
MOVE.L A6,A5
ADD.L #30,A5
MOVE.W #6,D6
BYPLNRS1 CMPI.W #1,20(A5)
BEQ BYPNEXTU
CMPI.W #14,8(A5)
BCC BYPLHIN
CMPI.W #36,10(A5)
BCS BYPLHIN
CMPI.W #56,10(A5)
BCC BYPLHIN
CMPI.W #14,12(A5)
BCS BYPTST2
CMPI.W #50,14(A5)
BCC BYPLHIN
BYPTST2 CMPI.W #20,14(A5)
BCC BYPLHIN
MOVE.W #14,12(A5)
MOVE.W #48,14(A5)
BRA BYPNEXTU
BYPLHIN CMPI.W #14,12(A5)
BCC BYPCOT
CMPI.W #36,14(A5)
BCS BYPCOT
CMPI.W #46,10(A5)
BCC BYPCOT
CMPI.W #14,8(A5)
BCS BYPCOT
MOVE.W #14,12(A5)
MOVE.W #48,14(A5)
BRA BYPNEXTU
BYPCOT CMPI.W #18,8(A5)
BCC BYPCOTIN
CMPI.W #16,10(A5)
BCC BYPCOTIN
CMPI.W #16,14(A5)
BCS BYPCOTIN
MOVE.W #18,12(A5)
MOVE.W #10,14(A5)
BRA BYPNEXTU
BYPCOTIN CMPI.W #18,12(A5)
BCC BYPNEXTU
CMPI.W #16,14(A5)
BCC BYPNEXTU
CMPI.W #16,10(A5)
BCS BYPNEXTU
MOVE.W #18,12(A5)
MOVE.W #10,14(A5)
BYPNEXTU SUBQ.W #1,D6
BEQ BYPNEXTA
ADD.L #40,A5
BRA BYPLNRS1
BYPNEXTA DBRA D7,BYPCONT
RTS
BYPCONT ADD.L #270,A6
BRA BYPLNS
CBT1A MOVE.W #6,D7
TST.W SYSV55
BEQ CBT1LN1
MOVE.L #ARMYFILE,A6
ADD.L #1890,A6
BRA CBT1LN2
CBT1LN1 MOVE.L #ARMYFILE,A6
CBT1LN2 MOVE.L A6,SYSV65
CMPI.W #1,16(A6)
BEQ CBT1LNZ1
MOVE.W (A6),SYSV25
MOVE.W (A6),SYSV66
ADD.L #30,A6
MOVE.W #6,D6
CBT1RS2 MOVE.W (A6),SYSV24
MOVE.W (A6),SYSV67
MOVE.L A6,SYSV5
MOVE.L A6,SYSV68
MOVEM.L D6/D7,-(SP)
JSR M21A
CMPI.W #1,SYSV43
BEQ CBT1LNZ
JSR M3AA
JSR M3A
BSR CBT2A
MOVE.L #ADJUNITS,A6
TST.W (A6)
BEQ CBT1LNZ
MOVE.L A6,SYSV69
BSR CBT5A
MOVE.L #ADJUNITS,SYSV69
CMPI.W #1,SYSV43
BEQ CBT1LNZ
CBT1RS1 BSR CBT1AA
JSR NU6A
MOVE.L SYSV69,A6
MOVE.W (A6),SYSV24
JSR M19A
JSR M4A
JSR M21A
CMPI.W #1,SYSV43
BEQ CBT1NAU
JSR M3AA
JSR M3A
BSR CBT1BA
BSR CBT3A
BSR CBT6A
CMPI.W #1,SYSV81
BEQ CBT1LNRD
MOVE.W SYSV77,SYSV89
JSR N854A
TST.W SYSV83
BEQ CBT1LNAR
BSR CBT9A
BRA CBT1LNAR
CBT1LNRD MOVE.L SYSV5,A6
BSR CBT7A
CBT1LNAR JSR NU7A
CMPI.W #1,SYSV80
BEQ CBT1LNRA
MOVE.W SYSV76,SYSV89
JSR N854A
TST.W SYSV82
BEQ CBT1NAU
BSR CBT10A
BRA CBT1NAU
CBT1LNRA MOVE.L SYSV5,A6
BSR CBT7A
BRA CBT1LNZ
CBT1NAU JSR NU7A
MOVE.L SYSV69,A6
ADDQ.L #2,A6
TST.W (A6)
BEQ CBT1LNZ
MOVE.L A6,SYSV69
BRA CBT1RS1
CBT1LNZ MOVEM.L (SP)+,D6/D7
SUBQ.W #1,D6
BEQ CBT1LNZ1
MOVE.L SYSV68,A6
ADD.L #40,A6
BRA CBT1RS2
CBT1LNZ1 DBRA D7,CBT1CONT
RTS
CBT1CONT MOVE.L SYSV65,A6
ADD.L #270,A6
BRA CBT1LN2
CBT1AA CLR.L D1
MOVE.L SYSV5,A5
TST.W 18(A5)
BEQ CBT1ALN1
MOVE.W 2(A5),D1
DIVU #4,D1
CBT1ALN1 MOVE.W 2(A5),D2
SUB.W D1,D2
MOVE.W D2,SYSV70
MOVE.W 4(A5),SYSV72
MOVE.W 26(A5),SYSV74
RTS
CBT1BA CLR.L D1
MOVE.L SYSV5,A5
TST.W 18(A5)
BEQ CBT1BLN1
MOVE.W 2(A5),D1
DIVU #4,D1
CBT1BLN1 MOVE.W 2(A5),D2
SUB.W D1,D2
MOVE.W D2,SYSV71
MOVE.W 4(A5),SYSV73
MOVE.W 26(A5),SYSV75
RTS
CBT2A MOVE.W #8,D7
MOVE.L #ADJUNITS,A6
CBT2LN1 CLR.W (A6)+
DBRA D7,CBT2LN1
MOVE.L #ADJUNITS,SYSV69
MOVE.L #ADJPOS,A6
ADDQ.L #4,A6
MOVE.W #8,SYSV44
TST.W SYSV55
BEQ CBT2LN2
MOVE.L #ARMYFILE,A5
BRA CBT2LN3
CBT2LN2 MOVE.L #ARMYFILE,A5
ADD.L #1890,A5
CBT2LN3 MOVE.L A5,SYSV45
CBT2LNS JSR M5LN2
TST.W SYSV44
BEQ CBT2RET
SUBQ.W #1,SYSV44
ADDQ.L #4,A6
MOVE.L SYSV69,A4
MOVE.W (A5),(A4)
ADDQ.L #2,SYSV69
TST.W SYSV44
BEQ CBT2RET
BRA CBT2LNS
CBT2RET RTS
CBT3A MOVE.W #10,RNDNOMAX
JSR M1A
MOVE.W D1,SYSV78
ADD.W D1,SYSV70
JSR M1A
MOVE.W D1,SYSV79
ADD.W D1,SYSV71
CBT3B MOVE.W SYSV70,D1
SUB.W SYSV71,D1
MOVE.W D1,SYSV76
MOVE.W SYSV71,D1
SUB.W SYSV70,D1
MOVE.W D1,SYSV77
BSR CBT4A
MOVE.W SYSV74,D1
MULU #3,D1
ADD.W SYSV76,D1
ADD.W SYSV72,D1
MOVE.W D1,SYSV76
MOVE.W SYSV75,D1
MULU #3,D1
ADD.W SYSV77,D1
ADD.W SYSV73,D1
MOVE.W D1,SYSV77
MOVE.W #2,D7
MOVE.W SYSV76,D1
CBT3LNS ADDQ.W #1,D1
CMPI.W #1000,D1
BCC CBT3LNL4
CMPI.W #25,D1
BCC CBT3NL
CMPI.W #15,D1
BCC CBT3LNL1
CMPI.W #10,D1
BCC CBT3LNL2
BRA CBT3LNL3
CBT3LNL4 MOVE.W #4,D1
BRA CBT3LNE1
CBT3NL CLR.W D1
BRA CBT3LNE1
CBT3LNL1 MOVE.W #1,D1
BRA CBT3LNE1
CBT3LNL2 MOVE.W #2,D1
BRA CBT3LNE1
CBT3LNL3 MOVE.W #3,D1
CBT3LNE1 SUBQ.W #1,D7
BEQ CBT3LNE2
MOVE.W D1,SYSV76
BRA CBT3LNRS
CBT3LNE2 MOVE.W D1,SYSV77
BRA CBT3MOR
CBT3LNRS MOVE.W SYSV77,D1
BRA CBT3LNS
CBT3MOR MOVE.W SYSV76,D1
MOVE.W #2,D7
CBT3LNS1 CMPI.W #3,D1
BCS CBT3LNM0
CMPI.W #4,D1
BCS CBT3LNM1
MOVE.W #2,D1
BRA CBT3LNM
CBT3LNM0 CLR.W D1
BRA CBT3LNM
CBT3LNM1 MOVE.W #1,D1
CBT3LNM SUBQ.W #1,D7
BEQ CBT3LNE3
MOVE.W D1,SYSV72
BRA CBT3RS1
CBT3LNE3 MOVE.W D1,SYSV73
RTS
CBT3RS1 MOVE.W SYSV77,D1
BRA CBT3LNS1
CBT4A MOVE.L SYSV93,A6
MOVE.W 8(A6),SYSV39
MOVE.W 10(A6),SYSV40
JSR M24A
CMPI.W #1,SYSV41
BNE CBT4LND
MOVE.W #3,D1
SUB.W D1,SYSV76
CBT4LND MOVE.L SYSV5,A6
MOVE.W 8(A6),SYSV39
MOVE.W 10(A6),SYSV40
JSR M24A
CMPI.W #3,SYSV41
BNE CBT4LN3
MOVE.W #3,D1
BRA CBT4ADD
CBT4LN3 CMPI.W #4,SYSV41
BNE CBT4LN4
MOVE.W #4,D1
BRA CBT4ADD
CBT4LN4 CMPI.W #5,SYSV41
BNE CBT4LN5
MOVE.W #3,D1
BRA CBT4ADD
CBT4LN5 CMPI.W #6,SYSV41
BNE CBT4END
MOVE.W #2,D1
CBT4ADD ADD.W D1,SYSV77
CBT4END BSR CBT4AA
RTS
CBT4AA MOVE.L SYSV5,A6
MOVE.W (A6),SYSV24
JSR M19A
JSR NU4A
MOVE.L SYSV11,A6
TST.W 16(A6)
BEQ CBT4ARET
ADDI.W #2,SYSV77
CBT4ARET RTS
CBT5A MOVE.L SYSV65,A6
TST.W 20(A6)
BEQ CBT5RSET
BSR CBT1AA
JSR NU6A
MOVE.L SYSV69,A6
CBT5LNRS MOVE.W (A6),SYSV24
JSR M19A
JSR M4A
JSR M21A
CMPI.W #1,SYSV43
BEQ CBT5LNNU
JSR M3AA
JSR M3A
BSR CBT1BA
BSR CBT3B
CMPI.W #3,SYSV76
BCC CBT5LNNO
BRA CBT5LNNU
CBT5LNE JSR NU7A
CBT5RSET CLR.W SYSV43
RTS
CBT5LNNO JSR NU7A
MOVE.W #1,SYSV43
RTS
CBT5LNNU MOVE.L SYSV69,A6
ADDQ.L #2,A6
TST.W (A6)
BEQ CBT5LNE
MOVE.L A6,SYSV69
BRA CBT5LNRS
CBT6A MOVE.W #2,D7
MOVE.L SYSV93,A6
MOVE.W SYSV72,D1
MOVE.W SYSV76,D2
MOVE.W #1,18(A6)
CBT6LNRS TST.W D1
BEQ CBT6LN1
TST.W 4(A6)
BEQ CBT6LN1
CBT6LN2 SUBQ.W #1,4(A6)
BEQ CBT6LN1
SUBQ.W #1,D1
BNE CBT6LN2
CBT6LN1 TST.W D2
BEQ CBT6LN3
TST.W 2(A6)
BEQ CBT6LN3
CBT6LN4 SUBQ.W #1,2(A6)
BEQ CBT6LN3
SUBQ.W #1,D2
BNE CBT6LN4
CBT6LN3 SUBQ.W #1,D7
BEQ CBT6LN5
MOVE.L SYSV5,A6
MOVE.W SYSV73,D1
MOVE.W SYSV77,D2
MOVE.W #1,18(A6)
BRA CBT6LNRS
CBT6LN5 MOVE.L #SYSV80,A5
CLR.L (A5)
CLR.L 4(A5)
TST.W 2(A6)
BEQ CBT6LN6
MOVE.W SYSV77,D1
CMP.W SYSV76,D1
BEQ CBT6LN7
BCS CBT6LN7
TST.W SYSV73
BEQ CBT6LN7
MOVE.W #1,SYSV83
BRA CBT6LN7
CBT6LN6 MOVE.W #1,SYSV81
CBT6LN7 MOVE.L SYSV93,A6
TST.W 2(A6)
BEQ CBT6LN8
TST.W SYSV83
BEQ CBT6LN9
CBT6LN10 MOVE.W #1,SYSV82
RTS
CBT6LN9 TST.W SYSV81
BNE CBT6LN10
RTS
CBT6LN8 MOVE.W #1,SYSV80
RTS
CBT7A MOVE.L A6,SYSV84
BSR CBT8A
MOVE.L SYSV84,A6
MOVE.W #1,20(A6)
JSR N850A
MOVE.L SYSV84,A6
MOVE.W #65534,8(A6)
MOVE.W #65534,10(A6)
MOVE.W #65534,12(A6)
MOVE.W #65534,14(A6)
RTS
CBT8A MOVE.L SYSV34,A5
MOVE.W (A6),D1
CBT8LN2 CMP.W 14(A5),D1
BEQ CBT8LN1
ADDQ.L #2,A5
TST.W 14(A5)
BEQ CBT8RET
BRA CBT8LN2
CBT8LN1 CLR.W 14(A5)
MOVEA.L A5,A6
ADD.L #14,A6
JSR M18AA
CBT8RET RTS
CBT9A MOVE.L SYSV93,A6
MOVE.W 8(A6),SYSV85
MOVE.W 10(A6),SYSV86
MOVE.L SYSV5,A6
MOVE.W 8(A6),12(A6)
MOVE.W 8(A6),SYSV87
MOVE.W 10(A6),14(A6)
MOVE.W 10(A6),SYSV88
MOVE.W SYSV85,8(A6)
MOVE.W SYSV86,10(A6)
JSR M7A
JSR M10A
MOVE.W #3,D6
CBT9LN5 MOVE.L D6,-(SP)
CBT9LN4 JSR M8A
JSR M16A
CMPI.W #1,SYSV43
BEQ CBT9LN1
MOVE.L SYSV5,A6
MOVE.L #SYSV37,A5
MOVE.W (A5),8(A6)
MOVE.W 2(A5),10(A6)
BRA CBT9LN2
CBT9LN1 JSR M10B
CMPI.W #1,SYSV43
BEQ CBT9LN3
BRA CBT9LN4
CBT9LN2 MOVE.L (SP)+,D6
SUBQ.W #1,D6
BEQ CBT9LN3A
BRA CBT9LN5
CBT9LN3 MOVE.L (SP)+,D6
CBT9LN3A MOVE.W 8(A6),12(A6)
MOVE.W 10(A6),14(A6)
MOVE.W SYSV87,8(A6)
MOVE.W SYSV88,10(A6)
JSR N851A
MOVE.W #4,D6
CBT9LN6 MOVE.L D6,-(SP)
JSR M26A
MOVE.L (SP)+,D6
SUBQ.W #1,D6
BEQ CBT9RET
BRA CBT9LN6
CBT9RET RTS
CBT10A MOVE.W #2,D6
CBT10LN1 MOVE.L D6,-(SP)
JSR M26A
MOVE.L (SP)+,D6
DBRA D6,CBT10LN1
RTS
CURSUB1 MOVE.W #31,D7
CURSUB1A MOVE.L (A2)+,(A1)+
DBRA D7,CURSUB1A
RTS
CURSUB2 MOVE.W D1,(A1)
ADDQ.W #1,D1
MOVE.W D1,2(A1)
RTS
CURSORC MOVE.W #280,D1
JSR NSC6B
MOVE.L #ARROWCUR,A1
ADD.L #10,A1
BSR CURSUB1
MOVE.W #280,D1
BSR CURSUB2
CURSORCB MOVE.W #271,D1
JSR NSC6B
MOVE.L #XCURSOR,A1
ADD.L #10,A1
BSR CURSUB1
MOVE.W #271,D1
BSR CURSUB2
MOVE.W #273,D1
JSR NSC6B
MOVE.L #RCURSOR,A1
ADD.L #10,A1
BSR CURSUB1
MOVE.W #273,D1
BSR CURSUB2
MOVE.W #275,D1
JSR NSC6B
MOVE.L #LCURSOR,A1
ADD.L #10,A1
BSR CURSUB1
MOVE.W #275,D1
BSR CURSUB2
RTS
ARROWCUR DS.B 144
COMMONC DS.B 144
XCURSOR DS.B 144
RCURSOR DS.B 144
LCURSOR DS.B 144
EVEN
ADJPOS DS.W 18
PARMYSEQ DS.W 26
CARMYSEQ DS.W 26
MOVESORT DS.W 48
UNITMOVE DS.W 252
ADJAREAS DS.W 18
AREAFRNT DS.W 100
POSFRONT DS.W 200
TEMPRECU DS.W 20
BASETERR DS.W 2
BASEUDG DC.W 282,283
ADJUNITS DS.W 9
TEMPUDG DS.W 2
RTEMPUDG DS.W 1
XTEMPUDG DS.W 1
LTEMPUDG DS.W 1
FLCROSS DS.W 21
ENGAGEA DS.W 168
ENGAGEP DS.W 66
REINF1 DC.W 0,20,80,18,78,18,80,20,76,20,78,22,78,22,80
REINF2 DC.W 0,48,0,46,0,46,2,48,2,50,0,50,2,52,0
REINF3 DC.W 0,58,38,58,20,58,22,58,24,58,56,58,58,58,60
REINF4 DC.W 0,26,80,24,80,24,78,26,76,26,78,28,78,28,80
EVEN
HQUDG DC.W 75,76,75,76,75,76,75,76,75,76,73,74,77,78
DC.W 79,80,71,72,81,82,83,84,85,86,87,86,89,72
HQDES DC.W 5,112,6,112,7,112,8,112,9,112,10,112,11,112
DC.W 55,112,56,112,57,112,58,112,59,112,60,112,61,112
SPACES4 DC.W 112,112
HQTERR DC.W 0,0,0,0,0,0,0,0,0,0,0,0,0,0
DC.W 231,231,111,111,0,0,111,111,0,0,0,0,0,0
EVEN
M1A MOVEM.L D2-D7/A0-A6,-(SP)
MOVE.W #17,-(SP)
TRAP #14
ADDQ.L #2,SP
CLR.L D1
MOVE.B D0,D1
MOVE.W RNDNOMAX,D2
SUBQ.W #1,D2
MOVE.L #255,D3
TST.W D2
BNE M1CONT
M1SET1 MOVE.W #1,D1
BRA M1END
M1CONT DIVU D2,D3
TST.W D3
BEQ M1SET1
DIVU D3,D1
ADDQ.W #1,D1
M1END MOVE.W D1,RANDOMNO
MOVEM.L (SP)+,D2-D7/A0-A6
RTS
RNDNOMAX DS.W 1
RANDOMNO DS.W 1
M2A MOVE.L #ADJPOS,A1
MOVE.W (A1),D1
SUBQ.W #2,D1
MOVE.W 2(A1),D2
SUBQ.W #2,D2
ADDQ.L #4,A1
MOVE.W D2,D3
MOVE.W #2,D0
M2LN3 MOVE.W #2,D4
M2LN1 CMPI.W #1,D0
BNE M2LN2
CMP.W D4,D0
BNE M2LN2
SUBQ.W #1,D4
ADDQ.W #2,D2
M2LN2 MOVE.W D1,(A1)+
MOVE.W D2,(A1)+
ADDQ.W #2,D2
DBRA D4,M2LN1
DBRA D0,M2LN4
RTS
M2LN4 ADDQ.W #2,D1
MOVE.W D3,D2
BRA M2LN3
M3A BSR M2A
MOVE.L #ADJPOS,A1
M3LNRS MOVE.W #10,D1
MOVE.L #MAPDATA,A2
MOVE.W (A1),D2
M3LN2 CMP.W (A2),D2
BEQ M3LN1
BCS M3LN3
ADD.L #560,A2
SUBQ.W #1,D1
BNE M3LN2
BRA M3LN3
M3LN1 MOVE.W #14,D1
MOVE.W 2(A1),D2
M3LN4 CMP.W 2(A2),D2
BEQ M3LNE
BCS M3LN3
ADD.L #40,A2
SUBQ.W #1,D1
BNE M3LN4
M3LN3 ADDQ.L #4,A1
BRA M3LNRS
M3LNE MOVE.L A2,SYSV34
RTS
M3AA MOVE.L SYSV5,A6
M3AB MOVE.L #ADJPOS,A1
MOVE.W 8(A6),(A1)
MOVE.W 10(A6),2(A1)
RTS
M4A MOVE.L #ARMYFILE,A3
SUB.L #270,A3
MOVE.W SYSV25,D4
MULU #270,D4
ADD.L D4,A3
MOVE.W SYSV24,D4
ADD.L #30,A3
M4LN1 CMP.W (A3),D4
BEQ M4LNE
ADD.L #40,A3
BRA M4LN1
M4LNE MOVE.L A3,SYSV5
RTS
M5A MOVE.L #ADJPOS,A6
ADDQ.L #4,A6
MOVE.W #8,SYSV44
M5LN2 MOVE.L SYSV45,A5
M5B ADD.L #30,A5
CLR.W SYSV43
MOVE.W #6,D6
M5LN6 MOVE.W #5,D5
M5LN5 MOVE.W 8(A5),D1
CMP.W (A6),D1
BEQ M5LN3
M5LN12 ADD.L #40,A5
DBRA D5,M5LN5
DBRA D6,M5LN7
BRA M5LN8
M5LN7 ADD.L #30,A5
BRA M5LN6
M5LN8 SUBQ.W #1,SYSV44
BEQ M5RET
ADDQ.L #4,A6
BRA M5LN2
M5LN3 MOVE.W 10(A5),D1
CMP.W 2(A6),D1
BEQ M5LN11
BRA M5LN12
M5LN11 MOVE.W #1,SYSV43
M5RET RTS
M5AA CMPI.W #43,SYSV24
BCS M5ALN1
MOVE.L #ARMYFILE,A6
BRA M5ALN2
M5ALN1 MOVE.L #ARMYFILE,A6
ADD.L #1890,A6
M5ALN2 MOVE.L A6,SYSV45
BSR M5A
MOVE.L SYSV5,A6
MOVE.W SYSV43,16(A6)
RTS
M5BA MOVE.W #84,D7
MOVE.W #13,D6
M5BRS MOVE.W #6,D5
M5BLN2 MOVE.W D7,SYSV24
MOVE.W D6,SYSV25
MOVEM.L D5/D6/D7,-(SP)
BSR M4A
BSR M5AA
MOVEM.L (SP)+,D5/D6/D7
SUBQ.W #1,D5
BEQ M5BLN1
SUBQ.W #1,D7
BRA M5BLN2
M5BLN1 DBRA D6,M5BLN3
RTS
M5BLN3 SUBQ.W #1,D7
BRA M5BRS
M6A MOVE.L SYSV5,A6
MOVE.W 8(A6),D1
MOVE.W 10(A6),D2
M6B MOVE.W 12(A6),D3
MOVE.W 14(A6),D4
CMP.W D3,D1
BNE M6LN1
CMP.W D4,D2
BNE M6LN1
CLR.W (A5)
CLR.W 2(A5)
CLR.W 4(A5)
RTS
M6LN1 BSR M6AA
CMP.W D3,D1
BEQ M6LNE
CMP.W D4,D2
BEQ M6LNE
CMP.W D3,D1
BCS M6LNA
MOVE.W D1,D7
SUB.W D3,D7
BRA M6LNB
M6LNA MOVE.W D3,D7
SUB.W D1,D7
M6LNB MOVE.W D7,D5
CMP.W D4,D2
BCS M6LND
MOVE.W D2,D7
SUB.W D4,D7
BRA M6LNF
M6LND MOVE.W D4,D7
SUB.W D2,D7
M6LNF MOVE.W D7,D6
CMPI.W #2,D5
BNE M6LNC
CMPI.W #2,D6
BEQ M6LNE
M6LNC CMP.W D6,D5
BEQ M6LNE
BCS M6LNG
CMPI.W #2,D6
BNE M6LNE
CMP.W D4,D2
BCS M6LNH
BRA M6LNI
M6LNG CMPI.W #2,D5
BNE M6LNE
CMP.W D3,D1
BCS M6LNL
BRA M6LNM
M6LNH CMP.W D3,D1
BCS M6LNJ
BRA M6LNK
M6LNI CMP.W D3,D1
BCS M6LNK
BRA M6LNJ
M6LNL CMP.W D4,D2
BCS M6LNK
BRA M6LNJ
M6LNM CMP.W D4,D2
BCS M6LNJ
BRA M6LNK
M6LNE MOVE.W (A5),D7
ADDQ.L #2,A5
SUBQ.W #1,D7
MOVE.W D7,(A5)
ADDQ.L #2,A5
ADDQ.W #2,D7
MOVE.W D7,(A5)
SUBQ.L #4,A5
MOVE.W #2,D7
M6LNRS CMPI.W #9,(A5)
BEQ M6LNE1
TST.W (A5)
BEQ M6LNE2
M6LNRS1 ADDQ.L #2,A5
DBRA D7,M6LNRS
RTS
M6LNE1 MOVE.W #1,(A5)
BRA M6LNRS1
M6LNE2 MOVE.W #8,(A5)
BRA M6LNRS1
M6LNJ CMPI.W #8,(A5)
BEQ M6LNJ1
ADDQ.W #1,(A5)
BRA M6LNE
M6LNJ1 MOVE.W #1,(A5)
BRA M6LNE
M6LNK SUBQ.W #1,(A5)
BRA M6LNE
M6AA CMP.W D3,D1
BEQ M6ALN2
BCS M6ALN3
CMP.W D4,D2
BEQ M6ALN4
BCS M6ALN5
MOVE.W #8,(A5)
RTS
M6ALN4 MOVE.W #1,(A5)
RTS
M6ALN5 MOVE.W #2,(A5)
RTS
M6ALN2 CMP.W D4,D2
BCS M6ALN6
MOVE.W #7,(A5)
RTS
M6ALN6 MOVE.W #3,(A5)
RTS
M6ALN3 CMP.W D4,D2
BEQ M6ALN8
BCS M6ALN9
MOVE.W #6,(A5)
RTS
M6ALN8 MOVE.W #5,(A5)
RTS
M6ALN9 MOVE.W #4,(A5)
RTS
M7A MOVE.L #SYSV46,A5
BSR M6A
RTS
M8A MOVE.L SYSV5,A6
MOVE.L #SYSV37,A5
MOVE.L 8(A6),(A5)
M8B CMPI.W #1,SYSV49
BNE M8LN1
SUBQ.W #2,(A5)
RTS
M8LN1 CMPI.W #2,SYSV49
BNE M8LN2
SUBQ.W #2,(A5)
M8LN1A ADDQ.W #2,2(A5)
RTS
M8LN2 CMPI.W #3,SYSV49
BNE M8LN3
BRA M8LN1A
M8LN3 CMPI.W #4,SYSV49
BNE M8LN4
ADDQ.W #2,(A5)
BRA M8LN1A
M8LN4 CMPI.W #5,SYSV49
BNE M8LN5
ADDQ.W #2,(A5)
RTS
M8LN5 CMPI.W #6,SYSV49
BNE M8LN6
ADDQ.W #2,(A5)
M8LN5A SUBQ.W #2,2(A5)
RTS
M8LN6 CMPI.W #7,SYSV49
BNE M8LN7
BRA M8LN5A
M8LN7 SUBQ.W #2,(A5)
BRA M8LN5A
M9A MOVE.L #SYSV37,A6
MOVE.W #1,SYSV44
MOVE.L #ARMYFILE,A5
BSR M5B
CMPI.W #1,SYSV43
BEQ M9RET
MOVE.W #1,SYSV44
MOVE.L #ARMYFILE,A5
ADD.L #1890,A5
BSR M5B
M9RET RTS
M10A MOVE.L #SYSV46,SYSV50
MOVE.W #1,SYSV48
BRA M10LN1
M10B CMPI.W #3,SYSV48
BEQ M10LN2
ADDQ.L #2,SYSV50
ADDQ.W #1,SYSV48
M10LN1 CLR.W SYSV43
MOVE.L SYSV50,A5
MOVE.W (A5),SYSV49
RTS
M10LN2 MOVE.W #1,SYSV43
RTS
M13A JSR N814A
MOVE.L SYSV5,A6
MOVE.L #SYSV37,A5
MOVE.L (A5),8(A6)
JSR N815A
RTS
M16A CLR.W SYSV43
MOVE.L #SYSV37,A5
CMPI.W #254,(A5)
BEQ M16LNE
CMPI.W #60,(A5)
BEQ M16LNE
CMPI.W #254,2(A5)
BEQ M16LNE
CMPI.W #82,2(A5)
BEQ M16LNE
RTS
M16LNE MOVE.W #1,SYSV43
RTS
M17A MOVE.L SYSV37,ADJPOS
BSR M2A
CMPI.W #43,SYSV24
BCS M17LN1
MOVE.L #ARMYFILE,SYSV45
BRA M17LN2
M17LN1 MOVE.L #ARMYFILE,SYSV45
ADDI.L #1890,SYSV45
M17LN2 BSR M5A
TST.W SYSV43
BEQ M17RET
MOVE.L SYSV5,A5
CMPI.W #1,16(A5)
BEQ M17RET
CLR.W SYSV43
M17RET RTS
M18A MOVE.L SYSV34,A6
MOVE.W SYSV24,D1
ADD.L #14,A6
M18LN2 CMP.W (A6),D1
BEQ M18LN1
ADDQ.L #2,A6
TST.W (A6)
BEQ M18RET
BRA M18LN2
M18LN1 CLR.W (A6)
BSR M18AA
MOVE.L SYSV52,A6
ADD.L #14,A6
M18LN4 TST.W (A6)
BEQ M18LN5
ADDQ.L #2,A6
BRA M18LN4
M18LN5 MOVE.W D1,(A6)
M18RET RTS
M18AA ADDQ.L #2,A6
TST.W (A6)
BEQ M18ARET
MOVE.W (A6),D2
SUBQ.L #2,A6
MOVE.W D2,(A6)
ADDQ.L #2,A6
CLR.W (A6)
BRA M18AA
M18ARET RTS
M19A CLR.L D1
MOVE.W SYSV24,D1
SUBQ.W #1,D1
DIVU #6,D1
ADDQ.W #1,D1
MOVE.W D1,SYSV25
RTS
M20A MOVE.W SYSV25,D1
MULU #6,D1
SUBQ.W #5,D1
MOVE.W D1,SYSV24
RTS
M21A MOVE.L SYSV5,A6
CMPI.W #1,20(A6)
BEQ M21LN1
CLR.W SYSV43
RTS
M21LN1 MOVE.W #1,SYSV43
RTS
M22A MOVE.W SYSV24,D1
MULU #6,D1
SUBQ.L #4,D1
MOVE.L #UNITMOVE,A6
SUBQ.L #2,A6
ADD.L D1,A6
MOVE.L A6,SYSV53
RTS
M23A MOVE.L SYSV34,A6
MOVE.L A6,-(SP)
MOVE.L SYSV37,ADJPOS
BSR M3A
MOVE.L A2,SYSV52
MOVE.L (SP)+,A6
MOVE.L A6,SYSV34
RTS
M24A MOVE.L #DISFILE,A6
TST.W SYSV39
BEQ M24LN1
MOVE.W SYSV39,D7
MULU #82,D7
ADD.L D7,A6
M24LN1 CLR.L D7
MOVE.W SYSV40,D7
ADD.L D7,A6
CMPI.W #111,(A6)
BEQ M24LNE1
CMPI.W #91,(A6)
BCS M24LNE1A
CMPI.W #401,(A6)
BCC M24LNE2
CMPI.W #115,(A6)
BNE M24LNA
MOVE.W #6,SYSV41
RTS
M24LNA CMPI.W #151,(A6)
BCS M24LNB
CMPI.W #181,(A6)
BCC M24LNB
MOVE.W #1,SYSV41
RTS
M24LNB CMPI.W #231,(A6)
BCS M24LNC
CMPI.W #241,(A6)
BCC M24LNC
MOVE.W #5,SYSV41
RTS
M24LNC CMPI.W #241,(A6)
BCS M24LND
CMPI.W #243,(A6)
BCC M24LND
MOVE.W #4,SYSV41
RTS
M24LND CMPI.W #251,(A6)
BCS M24LNE1
CMPI.W #261,(A6)
BCC M24LNE1
MOVE.W #3,SYSV41
RTS
M24LNE1 CLR.W SYSV41
RTS
M24LNE2 MOVE.W #100,SYSV41
RTS
M24LNE1A BSR M24AA
RTS
M24AA MOVE.W #13,D7
MOVE.L #ARMYFILE,A4
M24ALNS MOVE.W SYSV39,D2
CMP.W 4(A4),D2
BNE M24ANXTA
MOVE.W SYSV40,D2
CMP.W 6(A4),D2
BNE M24ANXTA
MOVE.L A4,SYSV11
JSR NHQ5A
MOVE.L SYSV33,A3
CMPI.W #401,(A3)
BCC M24ASETS
CLR.W SYSV41
RTS
M24ASETS MOVE.W #100,SYSV41
RTS
M24ANXTA ADD.L #270,A4
DBRA D7,M24ALNS
RTS
M25A BSR M23A
M25B MOVE.L #SYSV37,A6
MOVE.W (A6),SYSV39
MOVE.W 2(A6),SYSV40
CMPI.W #32,SYSV39
BNE M25CNT
CMPI.W #4,SYSV40
BEQ M25100
M25CNT BSR M24A
MOVE.W #2,D1
TST.W SYSV41
BEQ M25LNC
ADDQ.W #1,D1
CMPI.W #1,SYSV41
BEQ M25LNC
CMPI.W #3,SYSV41
BEQ M25LNC
CMPI.W #4,SYSV41
BEQ M25LNC
CMPI.W #5,SYSV41
BEQ M25LNC
CMPI.W #6,SYSV41
BEQ M25LNC
CMPI.W #100,SYSV41
BNE M25LND
M25100 MOVE.W #100,D1
BRA M25LNC
M25LND MOVE.W #3,D1
M25LNC MOVE.W D1,SYSV54
BSR M22A
MOVE.L SYSV53,A6
MOVE.W 4(A6),D2
CMP.W (A6),D2
BCS M25LN1
MOVE.W (A6),D2
ADD.W 2(A6),D2
MOVE.W D2,2(A6)
MOVE.W 4(A6),D2
SUB.W (A6),D2
MOVE.W D2,4(A6)
BRA M25LN3
M25LN1 MOVE.W 2(A6),D2
ADD.W 4(A6),D2
MOVE.W D2,2(A6)
CLR.W 4(A6)
M25LN3 MOVE.W SYSV54,D1
CMP.W 2(A6),D1
BEQ M25LN4
BCS M25LN4
CLR.W SYSV43
RTS
M25LN4 SUB.W D1,2(A6)
MOVE.W #1,SYSV43
RTS
M26A MOVE.L SYSV5,A6
MOVE.L #ADJPOS,A1
MOVE.L 8(A6),(A1)
BSR M3A
BSR M5AA
BSR M7A
TST.W SYSV46
BEQ M26RET
BSR M10A
M26LN3 BSR M8A
BSR M9A
CMPI.W #1,SYSV43
BEQ M26LN1
BSR M17A
CMPI.W #1,SYSV43
BEQ M26LN1
BSR M16A
CMPI.W #1,SYSV43
BEQ M26LN1
BSR M25A
TST.W SYSV43
BEQ M26RET
BSR M13A
BRA M26LN2
M26LN1 BSR M10B
CMPI.W #1,SYSV43
BEQ M26RET
BRA M26LN3
M26LN2 BSR M18A
M26RET RTS
M27A CMPI.W #4,D7
BNE M27LN1
BSR M27BA
BRA M27LN2
M27LN1 BSR M20A
M27LN2 MOVE.W #6,D6
M27LNUS DBRA D6,M27LNU
RTS
M27LNU MOVE.L D6,-(SP)
BSR M4A
BSR M21A
CMPI.W #1,SYSV43
BEQ M27POPB
BSR M26A
M27POPB MOVE.L (SP)+,D6
ADDQ.W #1,SYSV24
BRA M27LNUS
M27AA MOVE.W (A1),SYSV25
BSR M20A
BSR NU4A
TST.W SYSV55
BEQ M27ALN1
MOVE.L SYSV11,A6
ADD.L #30,A6
MOVE.W #5,D7
M27ALNRS CMPI.W #1,22(A6)
BEQ M27ALN1
ADD.L #40,A6
DBRA D7,M27ALNRS
RTS
M27ALN1 JSR N853A
MOVE.L SYSV11,A6
MOVE.W 4(A6),SYSV6
MOVE.W 6(A6),SYSV7
JSR N813A
JSR N806A
JSR N848A
RTS
M27BA MOVE.L SYSV51,A1
BSR M27AA
RTS
M28A CMPI.W #1,SYSV55
BEQ M28LN1
MOVE.L #PARMYSEQ,A1
BRA M28LNRS1
M28LN1 MOVE.L #CARMYSEQ,A1
M28LNRS1 MOVE.L A1,SYSV51
TST.W (A1)
BEQ M28RET
MOVE.W #4,D7
M28LNRS2 MOVE.L D7,-(SP)
BSR M27A
MOVE.L (SP)+,D7
SUBQ.W #1,D7
BNE M28LNRS2
MOVE.L SYSV51,A1
ADDQ.L #2,A1
BRA M28LNRS1
M28RET RTS
M29A MOVE.L #MOVESORT,A1
MOVE.W #23,D7
M29LN1 CLR.L (A1)+
DBRA D7,M29LN1
CMPI.W #1,SYSV55
BEQ M29LN2
MOVE.L #PARMYSEQ,A1
MOVE.L #ARMYFILE,A6
BRA M29LN3
M29LN2 MOVE.L #CARMYSEQ,A1
MOVE.L #ARMYFILE,A6
ADD.L #1890,A6
M29LN3 MOVE.W #12,D7
M29LN5 CLR.L (A1)+
DBRA D7,M29LN5
MOVE.W #6,D7
MOVE.L #MOVESORT,A5
M29LN6 TST.W 2(A6)
BEQ M29LN6A
MOVE.W (A6),(A5)
MOVE.W 4(A6),2(A5)
ADDQ.L #4,A5
M29LN6A ADD.L #270,A6
DBRA D7,M29LN6
M29LNRS CLR.W SYSV56
MOVE.L #MOVESORT,A6
MOVE.L A6,A5
ADDQ.L #4,A5
M29LNS3 TST.W (A5)
BEQ M29LNS1
MOVE.W 2(A6),D1
CMP.W 2(A5),D1
BEQ M29LNS4
BCC M29LNS2
M29LNS4 ADDQ.L #4,A6
ADDQ.L #4,A5
BRA M29LNS3
M29LNS2 MOVE.W (A6),D2
MOVE.W (A5),(A6)
MOVE.W 2(A5),2(A6)
MOVE.W D2,(A5)
MOVE.W D1,2(A5)
MOVE.W #1,SYSV56
BRA M29LNS4
M29LNS1 CMPI.W #1,SYSV56
BEQ M29LNRS
CMPI.W #1,SYSV55
BEQ M29LNE1
MOVE.L #PARMYSEQ,A6
BRA M29LNE2
M29LNE1 MOVE.L #CARMYSEQ,A6
M29LNE2 MOVE.L #MOVESORT,A5
M29LNE3 TST.W (A5)
BEQ M29RET
MOVE.W (A5),(A6)
ADDQ.L #2,A6
ADDQ.L #4,A5
BRA M29LNE3
M29RET RTS
N503A MOVEM.L D1-D7/A0-A6,-(SP)
MOVE.W #7,-(SP)
TRAP #1
ADDQ.L #2,SP
MOVEM.L (SP)+,D1-D7/A0-A6
RTS
N504A MOVEM.L D1-D7/A0-A6,-(SP)
N504RS1 MOVE.W #$FF,-(SP)
MOVE.W #6,-(SP)
TRAP #1
ADDQ.L #4,SP
TST.L D0
BNE N504RS1
MOVEM.L (SP)+,D1-D7/A0-A6
RTS
N800IA MOVE.W #13,D7
MOVE.L #ARMYFILE,A6
N800ILNS ADD.L #30,A6
MOVE.W #6,D6
N800IRS CMPI.W #1,20(A6)
BEQ N800ILN1
MOVE.W (A6),SYSV26
MOVE.L A6,SYSV5
BSR N807A
MOVE.W 8(A6),SYSV6
MOVE.W 10(A6),SYSV7
BSR N801A
BSR N802A
BSR N803A
BSR N808A
N800ILN1 ADD.L #40,A6
SUBQ.W #1,D6
BEQ N800ILN2
BRA N800IRS
N800ILN2 DBRA D7,N800ILNS
RTS
N800MA MOVE.W #13,D7
MOVE.L #ARMYFILE,A5
N800MRS3 MOVE.W #5,D6
ADD.L #30,A5
N800MRS2 CMPI.W #1,20(A5)
BEQ N800MNXU
MOVE.L A5,SYSV5
MOVEM.L D6/D7/A5,-(SP)
JSR M3AA
JSR M3A
MOVEM.L (SP)+,D6/D7/A5
N800MRS1 TST.W 14(A2)
BEQ N800MSET
ADDQ.W #2,A2
BRA N800MRS1
N800MSET MOVE.W (A5),14(A2)
N800MNXU ADD.L #40,A5
DBRA D6,N800MRS2
DBRA D7,N800MRS3
RTS
N800AA MOVE.W #13,D7
MOVE.L #ARMYFILE,A6
N800ALNS ADD.L #30,A6
MOVE.W #6,D6
N800ARS CMPI.W #1,20(A6)
BEQ N800ALN1
MOVE.L A6,SYSV5
BSR N878A
TST.W SYSV35
BEQ N800ALN1
MOVE.W (A6),SYSV26
BSR N807A
MOVE.W 8(A6),SYSV6
MOVE.W 10(A6),SYSV7
BSR N801A
BSR N808A
N800ALN1 ADD.L #40,A6
SUBQ.W #1,D6
BEQ N800ALN2
BRA N800ARS
N800ALN2 DBRA D7,N800ALNS
RTS
N801A MOVE.L #DISFILE,A3
CLR.L D4
MOVE.W SYSV6,D4
TST.W D4
BEQ N801LN1
MULU #82,D4
ADD.L D4,A3
N801LN1 CLR.L D3
MOVE.W SYSV7,D3
ADD.L D3,A3
MOVE.L A3,SYSV13
ADD.L #82,A3
MOVE.L A3,SYSV14
RTS
N802A MOVE.L #UNITTERR,A4
SUBQ.L #4,A4
MOVE.W SYSV26,D4
MULU #4,D4
ADD.L D4,A4
MOVE.L A4,SYSV22
RTS
N803A MOVE.L SYSV22,A4
MOVE.L SYSV13,A5
MOVE.W (A5),(A4)
MOVE.L SYSV14,A5
MOVE.W (A5),2(A4)
RTS
N804A MOVE.L #$78000,A1
MOVE.L #DISFILE,A5
MOVE.W #0,D2
MOVE.W #0,D3
MOVE.L A1,D6
MOVE.L A1,D4
MOVE.L A5,D5
N804RS1 JSR NSC6A
JSR NSC7A
ADDQ.W #1,D2
CMP.W #20,D2
BEQ N804AA
ADDQ.L #2,A5
ADDQ.L #8,D4
MOVE.L D4,A1
BRA N804RS1
N804AA MOVE.W #0,D2
ADD.L #$500,D6
MOVE.L D6,D4
MOVE.L D6,A1
ADD.L #82,D5
MOVE.L D5,A5
ADDQ.W #1,D3
CMP.W #22,D3
BNE N804RS1
RTS
N805A MOVEM.L D1-D7/A0-A6,-(SP)
N805RS1 MOVE.W #$FF,-(SP)
MOVE.W #6,-(SP)
TRAP #1
ADDQ.L #4,SP
TST.L D0
BEQ N805RS1
MOVEM.L (SP)+,D1-D7/A0-A6
RTS
N806A MOVE.L #$78000,A5
CLR.L D4
MOVE.W SYSV6,D4
SUB.W SYSV1,D4
TST.W D4
BEQ N806LN1
MULU #$500,D4
ADD.L D4,A5
N806LN1 CLR.L D3
MOVE.W SYSV7,D3
SUB.W SYSV2,D3
TST.W D3
BEQ N806LN2
MULU #4,D3
ADD.L D3,A5
N806LN2 MOVE.L A5,SYSV16
ADD.L #$500,A5
MOVE.L A5,SYSV17
RTS
N807A MOVE.L SYSV5,A6
MOVE.L #UNITUDG,A5
SUBQ.L #4,A5
MOVE.W (A6),D4
MULU #4,D4
ADD.L D4,A5
MOVE.L A5,SYSV12
RTS
N808A MOVE.L SYSV12,A5
N808B MOVE.L SYSV13,A4
MOVE.W (A5),(A4)
MOVE.L SYSV14,A4
MOVE.W 2(A5),(A4)
RTS
N809A MOVE.L SYSV12,A5
N809B JSR NSC6A
MOVE.L SYSV16,A1
JSR NSC7A
ADDQ.L #2,A5
JSR NSC6A
MOVE.L SYSV17,A1
JSR NSC7A
RTS
N811A MOVE.L SYSV5,A4
N811B MOVE.W (A4),SYSV26
BSR N802A
RTS
N812A MOVE.L SYSV22,A5
N812B MOVE.L SYSV13,A4
MOVE.W (A5),(A4)
MOVE.L SYSV14,A4
MOVE.W 2(A5),(A4)
RTS
N813A MOVE.W SYSV2,D1
TST.W D1
BEQ N813LN1
MOVE.W SYSV7,D3
ADDQ.W #8,D1
CMP.W D3,D1
BCS N813LN1
JSR NSC3A
BRA N813A
N813LN1 MOVE.W SYSV2,D1
CMP.W #42,D1
BEQ N813LN2
MOVE.W SYSV7,D3
ADD.W #30,D1
CMP.W D3,D1
BCC N813LN2
JSR NSC2A
BRA N813LN1
N813LN2 MOVE.W SYSV1,D2
TST.W D2
BEQ N813LN3
MOVE.W SYSV6,D4
ADDQ.W #6,D2
CMP.W D4,D2
BCS N813LN3
JSR NSC5A
BRA N813LN2
N813LN3 MOVE.W SYSV1,D2
CMP.W #38,D2
BEQ N813LN4
MOVE.W SYSV6,D4
ADD.W #14,D2
CMP.W D4,D2
BCC N813LN4
JSR NSC4A
BRA N813LN3
N813LN4 RTS
N814A JSR NN1A
BSR N870A
BSR N879A
BSR N878A
MOVE.L SYSV22,A5
BSR N809B
RTS
N815A JSR NN1A
JSR SUB4A
TST.W SYSV35
BEQ N815LN1
JSR SUB1C
N815LN1 RTS
N816A BSR N801A
MOVE.L #COMMONC,A3
ADDQ.L #4,A3
MOVE.L A3,SYSV22
BSR N803A
RTS
N817A BSR N806A
MOVE.L #COMMONC,A5
ADDQ.L #4,A5
BSR N809B
RTS
N817AA TST.W SYSV100
BEQ N817ALN1
MOVE.L #LCURSOR,SYSV19
BSR N817CA
N817ALN1 TST.W SYSV99
BEQ N817ALN2
MOVE.L #RCURSOR,SYSV19
BSR N817CA
N817ALN2 TST.W SYSV98
BEQ N817ARET
MOVE.L #XCURSOR,SYSV19
BSR N817CA
N817ARET RTS
N817CA JSR PC1A
BSR N817BA
BSR N813A
BSR N817A
BSR N818AA
RTS
N817BA MOVE.L #COMMONC,A0
MOVE.L (A0),SYSV6
RTS
N818A BSR N801A
MOVE.L #COMMONC,A2
ADD.L #138,A2
MOVE.L A2,SYSV22
BSR N812A
RTS
N818AA BSR N801A
MOVE.L #COMMONC,A2
ADDQ.L #4,A2
MOVE.L A2,SYSV22
BSR N812A
RTS
N819A MOVE.L #COMMONC,A0
MOVE.L SYSV6,(A0)
BSR N816A
BSR N806A
BSR N820A
RTS
N820A MOVE.L #COMMONC,A2
ADD.L #10,A2
MOVE.L SYSV16,A1
BSR NSC7A
MOVE.L SYSV17,A1
BSR NSC7A
RTS
N821A BSR N817BA
BSR N813A
BSR N805A
SWAP D0
MOVE.W D0,SYSV23
CMPI.W #$4B,D0
BNE N821LN3
TST.W SYSV7
BEQ N821RET
BSR N817A
SUBQ.W #2,SYSV7
BRA N821LNA
N821LN3 CMPI.W #$50,D0
BNE N821LN4
CMPI.W #58,SYSV6
BEQ N821RET
BSR N817A
ADDQ.W #2,SYSV6
BRA N821LNA
N821LN4 CMPI.W #$48,D0
BNE N821LN5
TST.W SYSV6
BEQ N821RET
BSR N817A
SUBQ.W #2,SYSV6
BRA N821LNA
N821LN5 CMPI.W #$4D,D0
BNE N821LNR
CMPI.W #80,SYSV7
BEQ N821RET
BSR N817A
ADDQ.W #2,SYSV7
BRA N821LNA
N821LNR CLR.W SYSV36
N821RET RTS
N821LNA MOVE.L #COMMONC,A0
MOVE.L SYSV6,(A0)
BSR N813A
BSR N816A
BSR N806A
BSR N820A
CMPI.W #1,SYSV36
BEQ N821LNRK
MOVE.W #60000,D7
N821LN6 SUB.W #1,D7
BNE N821LN6
MOVE.W #1,SYSV36
RTS
N821LNRK MOVE.W #6000,D7
N821LN10 SUB.W #1,D7
BNE N821LN10
RTS
N823A MOVE.W #3,D6
MOVE.L #$7EE00,A1
MOVE.L A1,A4
N823RS2 MOVE.L A1,A6
MOVE.W #20,D2
N823RS1 CLR.L D1
MOVE.W #441,D1
JSR NSC6B
JSR NSC7A
SUBQ #1,D2
TST.W D2
BEQ N823LN1
ADDQ.L #8,A6
MOVE.L A6,A1
BRA N823RS1
N823LN1 SUBQ.W #1,D6
TST.W D6
BNE N823LN2
RTS
N823LN2 ADD.L #$500,A4
MOVE.L A4,A1
BRA N823RS2
N824A JSR NPR10A
JSR NPR11A
JSR PAPRA
RTS
N824BA JSR NPR10A
JSR NPR11A
JSR CAPRA
RTS
N825A JSR NPR12A
JSR NPR13A
RTS
N826A JSR NPR14A
JSR NPR13A
RTS
N827A JSR NPR15A
JSR NPR13A
RTS
N828A JSR NPR16A
RTS
N833A BSR N823A
N8331IA BSR N824A
N833LN1I JSR N503A
MOVE.W D0,SYSV23
CMPI.W #49,D0
BCS N833LN1I
CMPI.W #69,D0
BNE N833CONT
RTS
N833CONT CMPI.W #56,D0
BCC N833LN1I
BSR N823A
BSR N504A
MOVE.W SYSV23,D4
SUBI.W #48,D4
MOVE.W D4,SYSV97
JSR NHQ14A
MOVE.W D4,SYSV18
JSR NU4B
JSR CURCOLA
MOVE.L SYSV11,A6
MOVE.W (A6),SYSV25
TST.W 2(A6)
BEQ N8331IA
BSR N823A
CLR.W SYSV101
JSR NPI1A
TST.W SYSV43
BEQ N833NXT3
N833LNS MOVE.L SYSV11,A6
MOVE.W 4(A6),SYSV6
MOVE.W 6(A6),SYSV7
BSR N813A
MOVE.W #1,SYSV98
MOVE.W #1,SYSV99
MOVE.W #1,SYSV100
MOVE.L #XCURSOR,A6
MOVE.L A6,SYSV19
JSR PC1A
BSR N819A
N833LN1A BSR N825A
N833LN1 BSR N821A
JSR PC2A
TST.W SYSV23
BEQ N833LN1A
CMPI.W #20,SYSV23
BEQ N833LNT
CMPI.W #18,SYSV23
BEQ N833LNER
BRA N833LN1
N833LNT MOVE.W #2,SYSV98
N833LNER BSR N833AA
MOVE.L #RCURSOR,A6
MOVE.L A6,SYSV19
JSR PC1A
BSR N819A
N833LN2B BSR N826A
N833LN2 BSR N821A
JSR PC2A
TST.W SYSV23
BEQ N833LN2B
CMPI.W #20,SYSV23
BEQ N833LNT1
CMPI.W #18,SYSV23
BEQ N833LNEL
BRA N833LN2
N833LNT1 MOVE.W #2,SYSV99
N833LNEL BSR N833AA
MOVE.L #LCURSOR,A6
MOVE.L A6,SYSV19
JSR PC1A
BSR N819A
N833LN3B BSR N827A
N833LN3 BSR N821A
JSR PC2A
TST.W SYSV23
BEQ N833LN3B
CMPI.W #20,SYSV23
BEQ N833LNT2
CMPI.W #18,SYSV23
BEQ N833LNEE
BRA N833LN3
N833LNT2 MOVE.W #2,SYSV100
N833LNEE BSR N833AA
BSR N817AA
JSR NPI5A
CMPI.W #1,SYSV101
BEQ N833LNQ
N833NXT3 MOVE.W #1,SYSV101
JSR NPI1A
TST.W SYSV43
BEQ N833LNQ
BRA N833LNS
N833LNQ BSR N828A
N833LNQ1 JSR N503A
CMPI.W #65,D0
BEQ N833LNQ2
CMPI.W #68,D0
BEQ N833LNQ3
CMPI.W #69,D0
BNE N833LNQ1
MOVE.L SYSV11,A6
CLR.W 16(A6)
MOVE.W #1,20(A6)
BRA N833END
N833LNQ2 MOVE.L SYSV11,A6
CLR.W 16(A6)
CLR.W 20(A6)
BRA N833END
N833LNQ3 MOVE.L SYSV11,A6
MOVE.W #1,16(A6)
CLR.W 20(A6)
N833END JSR N504A
BSR N823A
RTS
N833AA BSR N818A
JSR N504A
BSR N823A
RTS
N839AA MOVE.L #TEMPUDG,A5
JSR NSC6A
MOVE.L SYSV16,A1
JSR NSC7A
MOVE.L #TEMPUDG,A5
ADDQ.L #2,A5
JSR NSC6A
MOVE.L SYSV17,A1
JSR NSC7A
RTS
N841A BSR N801A
MOVE.L SYSV13,A5
JSR NSC6A
MOVE.L SYSV16,A1
JSR NSC7A
MOVE.L SYSV14,A5
JSR NSC6A
MOVE.L SYSV17,A1
JSR NSC7A
RTS
N846A JSR AMP5A
N846LN2A BSR N504A
BSR N823A
JSR NPR17A
JSR NPR11A
JSR N503A
CMPI.W #69,D0
BEQ N846LNE
CMPI.W #79,D0
BEQ N846LN1
CMPI.W #67,D0
BEQ N846LNC
CMPI.W #68,D0
BEQ N846LND
JSR NSC1AA
BRA N846LN2A
N846LN1 BSR N823A
BSR N833A
BRA N846LN2A
N846LNC BSR N823A
JSR MVAWA
BRA N846LN2A
N846LND BSR N823A
JSR NUD1A
BRA N846LN2A
N846LNE BSR N823A
JSR NHQ15A
RTS
NT1A RTS
NUD1A JSR N823A
JSR NPR23A
NUD1RS1 JSR N503A
CMPI.W #81,D0
BNE NUD1CONT
CLR.L SYSV1
JSR N804A
RTS
NUD1CONT CMPI.W #65,D0
BEQ NUD1LNA
CMPI.W #71,D0
BEQ NUD1LNG
BRA NUD1RS1
NUD1LNA CLR.W SYSV27
JSR N823A
JSR N824A
NUD1RS2 JSR N503A
MOVE.W D0,SYSV23
CMPI.W #49,D0
BCS NUD1RS2
CMPI.W #69,D0
BEQ NUD1A
CMPI.W #56,D0
BCC NUD1RS2
JSR N823A
MOVE.W SYSV23,D4
SUBI.W #48,D4
MOVE.W D4,SYSV97
JSR NU4B
MOVE.L SYSV11,A6
MOVE.W (A6),SYSV25
BRA NUD1COMN
NUD1LNG MOVE.W #1,SYSV27
JSR N823A
JSR N824BA
NUD1RS3 JSR N503A
MOVE.W D0,SYSV23
CMPI.W #49,D0
BCS NUD1RS3
CMPI.W #69,D0
BEQ NUD1A
CMPI.W #56,D0
BCC NUD1RS3
JSR N823A
MOVE.W SYSV23,D4
SUBI.W #41,D4
MOVE.W D4,SYSV97
JSR NU4B
MOVE.L SYSV11,A6
MOVE.W (A6),SYSV25
NUD1COMN MOVE.W #5,D6
MOVE.L A6,A5
ADD.L #30,A5
NUD1RS6 TST.W 20(A5)
BNE NUD1NXU
CMPI.W #43,(A5)
BCS NUD1NCU
TST.W 22(A5)
BEQ NUD1NXU
NUD1NCU MOVE.L #TEMPUDG,A3
MOVE.L #ASTUDG,A4
MOVE.W 2(A5),D5
NUD1RS4 SUBQ.W #1,D5
BEQ NUD1SST
ADDQ.L #2,A4
BRA NUD1RS4
NUD1SST MOVE.W (A4),(A3)
TST.W SYSV27
BEQ NUD1PMOR
MOVE.W #112,2(A3)
BRA NUD1SP
NUD1PMOR MOVE.W 4(A5),D5
MOVE.L #AMUDG,A4
NUD1RS5 TST.W D5
BEQ NUD1SMOR
SUBQ.W #1,D5
ADDQ.L #2,A4
BRA NUD1RS5
NUD1SMOR MOVE.W (A4),2(A3)
NUD1SP MOVE.L A3,SYSV12
MOVEM.L D6/A5,-(SP)
MOVE.W 8(A5),SYSV6
MOVE.W 10(A5),SYSV7
JSR N813A
JSR N806A
JSR N809A
MOVEM.L (SP)+,D6/A5
NUD1NXU ADD.L #40,A5
DBRA D6,NUD1RS6
MOVE.L SYSV11,A6
MOVE.W 4(A6),SYSV6
MOVE.W 6(A6),SYSV7
JSR N813A
JSR NPR25A
NUD1RS7 JSR N503A
CMPI.W #81,D0
BEQ NUD1QUIT
BRA NUD1RS7
NUD1QUIT TST.W SYSV27
BEQ NUD1LNA
BRA NUD1LNG
ASTUDG DC.W 460
DC.W 461
DC.W 462
DC.W 463
DC.W 464
DC.W 465
DC.W 466
DC.W 467
DC.W 468
DC.W 469
DC.W 470
DC.W 471
DC.W 472
DC.W 473
DC.W 474
DC.W 475
DC.W 476
DC.W 477
DC.W 478
DC.W 479
AMUDG DC.W 480
DC.W 481
DC.W 482
DC.W 483
DC.W 484
DC.W 485
DC.W 486
N848A MOVE.W #9,D6
N848LNS MOVE.L SYSV16,A1
MOVE.W #7,D7
N848RS1 NOT.L (A1)
NOT.L 4(A1)
ADD.L #160,A1
DBRA D7,N848RS1
MOVE.W #7,D7
MOVE.L SYSV17,A1
N848RS2 NOT.L (A1)
NOT.L 4(A1)
ADD.L #160,A1
DBRA D7,N848RS2
MOVE.W #65000,D7
N848RS3 DBRA D7,N848RS3
DBRA D6,N848LNS
RTS
N850A MOVE.L SYSV84,A6
MOVE.W 8(A6),SYSV6
MOVE.W 10(A6),SYSV7
BSR N813A
BSR N806A
BSR N848A
MOVE.L SYSV84,A4
BSR N801A
BSR N811B
BSR N812A
MOVE.L SYSV22,A5
BSR N809B
RTS
N851A MOVE.L SYSV5,A6
MOVE.W 12(A6),SYSV6
MOVE.W 14(A6),SYSV7
BSR N813A
RTS
N853A MOVE.L #400000,D7
N853RS SUB.L #1,D7
BNE N853RS
RTS
N854A MOVE.L SYSV5,A6
MOVE.W 8(A6),SYSV6
MOVE.W 10(A6),SYSV7
BSR N813A
BSR N806A
BSR N848A
TST.W SYSV89
BEQ N854RET
JSR NU8AA
BSR N839AA
BSR N853A
BSR N841A
N854RET RTS
N864A CLR.W SYSV55
CMPI.W #2,SYSV30
BCC N864LN1
BSR N804A
JSR AMP2A
N864LN1 JSR SAVEGAME
BSR N823A
JSR BK1A
JSR BK1AA
JSR NR2A
JSR BK8A
JSR BK13AA
JSR BK3A
JSR BK4A
BSR N800AA
CLR.L SYSV1
JSR BK10A
JSR BK10BA
BSR N870A
BSR N804A
JSR NSC1A
JSR AMP13A
BSR N823A
JSR BK10CA
BSR N874A
JSR AMP12A
JSR BK1A
JSR BK1AA
JSR M29A
JSR BK6A
JSR SUP1A
JSR SUP2A
JSR BYPASSA
JSR M28A
JSR BK4A
BSR N800AA
CLR.L SYSV1
BSR N870A
BSR N804A
BSR N823A
BSR N870A
BSR N873A
JSR BK3A
JSR CBT1A
JSR BK1A
JSR BK1AA
JSR NHQ1A
JSR NHQ13A
MOVE.W #1,SYSV55
JSR BK5A
JSR BK4A
JSR BK1A
JSR BK1AA
JSR NR2A
JSR BK7A
JSR BK2A
JSR BK3A
BSR N800AA
CLR.L SYSV1
BSR N870A
BSR N804A
BSR N823A
BSR N870A
BSR N875A
JSR M29A
JSR BK6A
JSR BYPASSA
JSR M28A
JSR BK4A
BSR N800AA
CLR.L SYSV1
BSR N870A
BSR N804A
BSR N823A
BSR N870A
BSR N873A
JSR BK3A
JSR CBT1A
JSR BK1A
JSR BK1AA
JSR BK15A
JSR NHQ1A
JSR NHQ13A
JSR BK5A
JSR VC1A
RTS
N870A MOVE.L #200000,D7
N870RS1 SUB.L #1,D7
BNE N870RS1
RTS
N873A MOVE.W #23,SYSV8
MOVE.W #16,SYSV9
BSR NN5A
MOVE.L #TEXTF20,A6
BSR NN7A
RTS
N874A MOVE.W #23,SYSV8
MOVE.W #12,SYSV9
BSR NN5A
MOVE.L #TEXTF19,A6
BSR NN7A
RTS
N875A MOVE.W #23,SYSV8
MOVE.W #12,SYSV9
BSR NN5A
MOVE.L #TEXTF21,A6
BSR NN7A
RTS
N878A CLR.W SYSV35
MOVE.L SYSV5,A1
CMPI.W #43,(A1)
BCC N878LN1
N878LN2 MOVE.W #1,SYSV35
RTS
N878LN1 TST.W 22(A1)
BNE N878LN2
RTS
N879A BSR N813A
BSR N801A
BSR N811A
BSR N812A
BSR N806A
RTS
SYSV5 DS.L 1
SYSV6 DS.W 1
SYSV7 DS.W 1
SYSV8 DS.W 1
SYSV9 DS.W 1
SYSV10 DS.W 1
SYSV11 DS.L 1
SYSV12 DS.L 1
SYSV13 DS.L 1
SYSV14 DS.L 1
SYSV15 DS.L 1
SYSV16 DS.L 1
SYSV17 DS.L 1
SYSV18 DS.W 1
SYSV19 DS.L 1
SYSV22 DS.L 1
SYSV23 DS.W 1
SYSV24 DS.W 1
SYSV25 DS.W 1
SYSV26 DS.W 1
SYSV27 DS.W 1
SYSV28 DS.L 1
SYSV29 DS.L 1
SYSV30 DS.W 1
SYSV31 DS.L 1
SYSV32 DS.L 1
SYSV33 DS.L 1
SYSV34 DS.L 1
SYSV35 DS.W 1
SYSV36 DS.W 1
SYSV37 DS.W 1
SYSV38 DS.W 1
SYSV39 DS.W 1
SYSV40 DS.W 1
SYSV41 DS.W 1
SYSV42 DS.W 1
SYSV43 DS.W 1
SYSV44 DS.W 1
SYSV45 DS.L 1
SYSV46 DS.W 3
SYSV48 DS.W 1
SYSV49 DS.W 1
SYSV50 DS.L 1
SYSV51 DS.L 1
SYSV52 DS.L 1
SYSV53 DS.L 1
SYSV54 DS.W 1
SYSV55 DS.W 1
SYSV56 DS.W 1
SYSV57 DS.W 1
SYSV58 DS.W 1
SYSV59 DS.L 1
SYSV60 DS.W 1
SYSV61 DS.L 1
SYSV62 DS.W 1
SYSV63 DS.W 1
SYSV64 DS.W 1
SYSV65 DS.L 1
SYSV66 DS.W 1
SYSV67 DS.W 1
SYSV68 DS.L 1
SYSV69 DS.L 1
SYSV70 DS.W 1
SYSV71 DS.W 1
SYSV72 DS.W 1
SYSV73 DS.W 1
SYSV74 DS.W 1
SYSV75 DS.W 1
SYSV76 DS.W 1
SYSV77 DS.W 1
SYSV78 DS.W 1
SYSV79 DS.W 1
SYSV80 DS.W 1
SYSV81 DS.W 1
SYSV82 DS.W 1
SYSV83 DS.W 1
SYSV84 DS.L 1
SYSV85 DS.W 1
SYSV86 DS.W 1
SYSV87 DS.W 1
SYSV88 DS.W 1
SYSV89 DS.W 1
SYSV90 DS.L 1
SYSV91 DS.W 1
SYSV92 DS.W 1
SYSV93 DS.L 1
SYSV94 DS.L 1
SYSV95 DS.L 1
SYSV96 DS.L 1
SYSV97 DS.W 1
SYSV98 DS.W 1
SYSV99 DS.W 1
SYSV100 DS.W 1
SYSV101 DS.W 1
SYSV102 DS.W 1
SYSV103 DS.W 1
SYSV104 DS.W 1
SYSV105 DS.W 1
SYSV106 DS.W 1
SYSV107 DS.L 1
SYSV108 DS.W 1
SYSV109 DS.W 1
SYSV110 DS.L 1
SYSV111 DS.W 1
SYSV112 DS.W 1
SYSV113 DS.W 1
SYSV114 DS.W 1
SYSV115 DS.W 1
SYSV116 DS.W 1
SYSV117 DS.W 1
SYSV118 DS.W 1
SYSV119 DS.W 1
SYSV120 DS.W 1
SYSV121 DS.L 1
SYSV122 DS.W 1
SYSV123 DS.W 1
SYSV124 DS.L 1
SYSV125 DS.W 1
NHQDESA MOVE.L SYSV11,A6
CLR.L D1
MOVE.W (A6),D1
MOVE.L #HQDES,A5
SUBQ.L #4,A5
MULU #4,D1
ADD.L D1,A5
MOVE.L A5,SYSV15
RTS
NHQ1A MOVE.W #13,D7
MOVE.L #ARMYFILE,A6
NHQ1LNS MOVE.L A6,SYSV51
TST.W 2(A6)
BEQ NHQ1NA
MOVE.W #2,D1
NHQ1RS2 MOVE.L SYSV51,A5
ADD.L #30,A5
MOVE.W #6,D6
MOVE.W 2(A6),D5
CLR.L D4
NHQ1RS1 CMPI.W #1,20(A5)
BEQ NHQ1NU
CMPI.W #1,D1
BNE NHQ1PASS
MOVE.W 10(A5),D3
BRA NHQ1LNP1
NHQ1PASS MOVE.W 8(A5),D3
NHQ1LNP1 ADD.W D3,D4
NHQ1NU SUBQ.W #1,D6
BEQ NHQ1CALC
ADD.L #40,A5
BRA NHQ1RS1
NHQ1CALC DIVU D5,D4
SUBQ.W #1,D1
BEQ NHQ1LN4
BCLR #0,D4
BEQ NHQ1LN5
CMPI.W #8,(A6)
BCS NHQ1LN5
ADDQ.W #2,D4
NHQ1LN5 MOVE.W D4,8(A6)
BRA NHQ1RS2
NHQ1LN4 BCLR #0,D4
BEQ NHQ1L5A
CMPI.W #8,(A6)
BCS NHQ1L5A
ADDQ.W #2,D4
NHQ1L5A MOVE.W D4,10(A6)
NHQ1NA DBRA D7,NHQ1CONT
RTS
NHQ1CONT MOVE.L SYSV51,A6
ADD.L #270,A6
BRA NHQ1LNS
NHQ2A MOVE.L SYSV11,A6
CLR.W SYSV64
MOVE.L #SYSV37,A5
MOVE.W 4(A6),(A5)
MOVE.W 6(A6),2(A5)
JSR M9A
CMPI.W #1,SYSV43
BEQ NHQ2LN1
RTS
NHQ2LN1 MOVE.W #1,SYSV64
RTS
NHQ3A MOVE.L SYSV11,A6
TST.W 2(A6)
BEQ NHQ3CONT
RTS
NHQ3CONT MOVE.W 4(A6),SYSV39
MOVE.W 4(A6),SYSV6
MOVE.W 6(A6),SYSV40
MOVE.W 6(A6),SYSV7
BSR NHQ4A
CMPI.W #71,D1
BCS NHQ3RET
CMPI.W #91,D1
BCC NHQ3RET
BSR NHQ5A
JSR N801A
MOVE.L SYSV33,A5
JSR N812B
BSR NHQ3BA
NHQ3RET RTS
NHQ3AA MOVE.W #13,D7
MOVE.L #ARMYFILE,A6
NHQ3ALN1 MOVEM.L D7/A6,-(SP)
MOVE.L A6,SYSV11
BSR NHQ3A
MOVEM.L (SP)+,D7/A6
ADD.L #270,A6
DBRA D7,NHQ3ALN1
RTS
NHQ3BA MOVE.L SYSV11,A6
CMPI.W #8,(A6)
BCC NHQ3BLN5
MOVE.W #0,D1
MOVE.W #0,D2
BRA NHQ3BLN6
NHQ3BLN5 MOVE.W #0,D1
MOVE.W #58,D2
NHQ3BLN6 MOVE.W D1,4(A6)
MOVE.W D1,8(A6)
MOVE.W D2,6(A6)
MOVE.W D2,10(A6)
CLR.W 22(A6)
RTS
NHQ4A MOVE.L #DISFILE,A6
MOVE.W SYSV39,D2
TST.W D2
BEQ NHQ4LN1
MULU #82,D2
ADD.L D2,A6
NHQ4LN1 MOVE.W SYSV40,D2
ADD.L D2,A6
MOVE.W (A6),D1
RTS
NHQ5A MOVE.L SYSV11,A6
MOVE.W (A6),D1
MOVE.L #HQTERR,A5
SUBQ.L #4,A5
MULU #4,D1
ADD.L D1,A5
MOVE.L A5,SYSV33
RTS
NHQ6A MOVE.L SYSV11,A6
CLR.L D1
MOVE.W (A6),D1
MOVE.L #HQUDG,A5
SUBQ.L #4,A5
MULU #4,D1
ADD.L D1,A5
MOVE.L A5,SYSV15
RTS
NHQ7A MOVE.W #13,D7
MOVE.L #ARMYFILE,A6
CLR.W SYSV43
NHQ7LNRS MOVE.L #SYSV37,A5
MOVE.W (A5),D1
CMP.W 4(A6),D1
BEQ NHQ7LN1
BRA NHQ7NA
NHQ7LN1 MOVE.W 2(A5),D1
CMP.W 6(A6),D1
BEQ NHQ7SET
NHQ7NA ADD.L #270,A6
DBRA D7,NHQ7LNRS
RTS
NHQ7SET MOVE.W #1,SYSV43
RTS
NHQ9A MOVE.L SYSV11,A6
MOVE.W 4(A6),SYSV6
MOVE.W 6(A6),SYSV7
JSR N801A
BSR NHQ5A
MOVE.L SYSV33,A5
JSR N812B
NHQ9B MOVE.L SYSV11,A6
MOVE.L #SYSV37,A5
MOVE.W (A5),4(A6)
MOVE.W 2(A5),6(A6)
MOVE.W 4(A6),SYSV6
MOVE.W 6(A6),SYSV7
JSR N801A
BSR NHQ5A
BSR NHQ10A
BSR NHQ6A
MOVE.L SYSV15,A5
JSR N808B
RTS
NHQ10A MOVE.L SYSV33,A4
MOVE.L SYSV13,A5
MOVE.W (A5),(A4)
MOVE.L SYSV14,A5
MOVE.W (A5),2(A4)
RTS
NHQ11A BSR NHQ5A
MOVE.L #SYSV37,A5
MOVE.W (A5),D1
MOVE.W 2(A5),D2
MOVEM.L D1/D2/A5,-(SP)
BSR NHQ2A
MOVE.W (A5),SYSV26
JSR N802A
MOVEM.L (SP)+,D1/D2/A5
MOVE.W D1,(A5)
MOVE.W D2,2(A5)
MOVE.L SYSV22,A1
MOVE.L SYSV33,A2
MOVE.W (A2),(A1)
MOVE.W 2(A2),2(A1)
BSR NHQ9B
RTS
NHQ12A CMPI.W #1,SYSV55
BEQ NHQ12LN1
MOVE.L #PARMYSEQ,A6
BRA NHQ12LNS
NHQ12LN1 MOVE.L #CARMYSEQ,A6
NHQ12LNS MOVE.L A6,SYSV51
TST.W (A6)
BEQ NHQ12RET
MOVE.W (A6),SYSV25
JSR NU4A
BSR NHQ2A
MOVE.L SYSV11,A6
MOVE.L #ADJPOS,A1
MOVE.W 4(A6),(A1)
MOVE.W 6(A6),2(A1)
JSR M2A
MOVE.L SYSV11,A6
MOVE.L #TEMPRECU,A5
MOVE.W 4(A6),8(A5)
MOVE.W 6(A6),10(A5)
MOVE.W 8(A6),12(A5)
MOVE.W 10(A6),14(A5)
MOVE.L A5,SYSV5
JSR M7A
MOVE.L #SYSV46,A1
TST.W (A1)
BEQ NHQ12NHQ
JSR M10A
NHQ12LN3 JSR M8A
JSR M9A
CMPI.W #1,SYSV43
BEQ NHQ121A
BSR NHQ7A
CMPI.W #1,SYSV43
BEQ NHQ121A
JSR M16A
CMPI.W #1,SYSV43
BNE NHQ12LN2
NHQ121A JSR M10B
CMPI.W #1,SYSV43
BEQ NHQ12NHQ
BRA NHQ12LN3
NHQ12LN2 CMPI.W #1,SYSV64
BEQ NHQ12LNA
BSR NHQ9A
BRA NHQ12NHQ
NHQ12LNA BSR NHQ11A
NHQ12NHQ MOVE.L SYSV51,A6
ADDQ.L #2,A6
BRA NHQ12LNS
NHQ12RET RTS
NHQ13A MOVE.W #3,D7
NHQ13LN1 MOVE.L D7,-(SP)
BSR NHQ12A
MOVE.L (SP)+,D7
DBRA D7,NHQ13LN1
BSR NHQ3AA
RTS
NHQ14A MOVEM.L D0-D7/A0-A6,-(SP)
MOVE.W D4,SYSV25
JSR NU4A
TST.W 22(A3)
BEQ NHQ14RET
BSR NHQ2A
TST.W SYSV64
BEQ NHQ14LN1
NHQ14RET MOVEM.L (SP)+,D0-D7/A0-A6
RTS
NHQ14LN1 MOVE.L SYSV11,A6
MOVE.L 4(A6),SYSV6
JSR N813A
JSR N801A
MOVE.L SYSV11,A6
MOVE.W (A6),D1
MOVE.L #HQDUDG,A5
SUBQ.L #4,A5
MULU #4,D1
ADD.L D1,A5
MOVE.L A5,SYSV15
MOVE.L SYSV15,SYSV12
JSR N808A
JSR N806A
JSR N809A
BRA NHQ14RET
NHQ15A MOVE.W #6,D7
MOVE.L #ARMYFILE,A6
NHQ15RS1 MOVEM.L D7/A6,-(SP)
TST.W 22(A6)
BEQ NHQ15LN1
MOVE.L A6,SYSV11
BSR NHQ2A
TST.W SYSV64
BNE NHQ15LN1
MOVE.L SYSV11,A6
MOVE.L 4(A6),SYSV6
JSR N801A
BSR NHQ6A
MOVE.L SYSV15,SYSV12
JSR N808A
NHQ15LN1 MOVEM.L (SP)+,D7/A6
ADD.L #270,A6
DBRA D7,NHQ15RS1
RTS
NHQ16A MOVEM.L D0-D7/A0-A6,-(SP)
TST.W SYSV125
BEQ NHQ16RET
MOVE.W SYSV18,SYSV25
JSR NU4A
MOVE.W #5,D6
ADD.L #30,A3
NHQ16RS1 TST.W 20(A3)
BEQ NHQ16NXU
TST.W 2(A3)
BEQ NHQ16NXU
BRA NHQ16LN1
NHQ16NXU ADD.L #40,A3
DBRA D6,NHQ16RS1
NHQ16RET MOVEM.L (SP)+,D0-D7/A0-A6
RTS
NHQ16LN1 MOVE.L SYSV6,SYSV28
BSR NHQ17A
MOVE.L SYSV28,SYSV6
SUBQ.W #2,SYSV6
JSR N813A
JSR N801A
MOVE.L SYSV11,A6
MOVE.W (A6),D1
MOVE.L #HQDUDG,A5
SUBQ.L #4,A5
MULU #4,D1
ADD.L D1,A5
MOVE.L A5,SYSV15
MOVE.L SYSV15,SYSV12
JSR N808A
JSR N806A
JSR N809A
MOVE.L SYSV28,SYSV6
BRA NHQ16RET
NHQ17A MOVE.W #2,SYSV8
MOVE.W #20,SYSV9
MOVE.L SYSV11,SYSV29
MOVE.W #6,D7
MOVE.L #ARMYFILE,A6
NHQ17RS1 MOVEM.L D7/A6,-(SP)
MOVE.L A6,SYSV11
MOVE.W SYSV8,SYSV6
MOVE.W SYSV9,SYSV7
JSR N813A
JSR N801A
BSR NHQ6A
MOVE.L SYSV15,SYSV12
JSR N808A
JSR N806A
JSR N809A
MOVEM.L (SP)+,D7/A6
ADD.L #270,A6
ADDQ.W #2,SYSV9
DBRA D7,NHQ17RS1
MOVE.L SYSV29,SYSV11
RTS
HQDUDG DC.W 381,386,382,386,383,386,384,386,385,386,387,388
DC.W 389,390
EVEN
NN1A MOVE.L SYSV5,A1
MOVE.W 8(A1),SYSV6
MOVE.W 10(A1),SYSV7
RTS
NN5A MOVEM.L D0-D7/A0-A6,-(SP)
MOVE.L #TESTPR,A1
MOVE.W SYSV8,D1
MOVE.W SYSV9,D2
ADDI.W #32,D1
ADDI.W #32,D2
MOVE.B D1,2(A1)
MOVE.B D2,3(A1)
MOVE.L #TESTPR,-(SP)
MOVE.W #9,-(SP)
TRAP #1
ADDQ.L #6,SP
MOVEM.L (SP)+,D0-D7/A0-A6
RTS
TESTPR DC.B 27,89,55,33,0
EVEN
NN6A MOVE.W #22,SYSV8
MOVE.W #0,SYSV9
BSR NN5A
MOVE.L #TEXTF1,A6
BSR NN7A
MOVE.W #23,SYSV8
BSR NN5A
MOVE.L #TEXTF2,A6
BSR NN7A
RTS
TEXTF1 DC.B 'USE ARROW KEYS TO SCROLL MAP',0
TEXTF2 DC.B 'ARMY ORDERS A : MOVEMENT 0',0
EVEN
NN7A MOVE.L A6,-(SP)
MOVE.W #9,-(SP)
TRAP #1
ADDQ.L #6,SP
RTS
NPR1AA MOVE.W #22,SYSV8
MOVE.W #0,SYSV9
BSR NN5A
MOVE.L #TEXTF1,A6
BSR NN7A
RTS
NPR1A MOVE.W #22,SYSV8
MOVE.W #0,SYSV9
BSR NN5A
MOVE.L #TEXTF3,A6
BSR NN7A
RTS
NPR2A MOVE.W #23,SYSV8
MOVE.W #0,SYSV9
BSR NN5A
MOVE.L #TEXTF4,A6
BSR NN7A
RTS
TEXTF3 DC.B 'POINTER RIGHT P LEFT Q',0
TEXTF4 DC.B 'ACCESS ARMY A EXIT E',0
EVEN
NPR3A MOVE.W #23,SYSV8
MOVE.W #0,SYSV9
BSR NN5A
MOVE.L #TEXTF5,A6
BSR NN7A
RTS
NPR4A MOVE.W #23,SYSV8
MOVE.W #0,SYSV9
BSR NN5A
MOVE.L #TEXTF6,A6
BSR NN7A
RTS
TEXTF5 DC.B 'ACCESS UNIT U EXIT E',0
TEXTF6 DC.B 'SET BEACH A TO L ',0
TEXTF7 DC.B 'SET INVASION BEACH PRESS A TO L',0
TEXTF8 DC.B 'AIRBORNE PHASE PRESS ANY KEY',0
TEXTF9 DC.B 'MOVE CURSOR TO DROP ZONE PRESS T',0
EVEN
NPR7A MOVE.W #23,SYSV8
MOVE.W #0,SYSV9
BSR NN5A
MOVE.L #TEXTF7,A6
BSR NN7A
RTS
NPR8A MOVE.W #23,SYSV8
MOVE.W #0,SYSV9
BSR NN5A
MOVE.L #TEXTF8,A6
BSR NN7A
RTS
NPR9A MOVE.W #23,SYSV8
MOVE.W #0,SYSV9
BSR NN5A
MOVE.L #TEXTF9,A6
BSR NN7A
RTS
NPR10A MOVE.W #23,SYSV8
MOVE.W #0,SYSV9
BSR NN5A
MOVE.L #TEXTF10,A6
BSR NN7A
RTS
NPR11A MOVE.W #24,SYSV8
MOVE.W #0,SYSV9
BSR NN5A
MOVE.L #TEXTF11,A6
BSR NN7A
RTS
NPR12A MOVE.W #22,SYSV8
MOVE.W #0,SYSV9
BSR NN5A
MOVE.L #TEXTF12,A6
BSR NN7A
RTS
NPR13A MOVE.W #23,SYSV8
MOVE.W #0,SYSV9
BSR NN5A
MOVE.L #TEXTF13,A6
BSR NN7A
RTS
NPR14A MOVE.W #22,SYSV8
MOVE.W #0,SYSV9
BSR NN5A
MOVE.L #TEXTF14,A6
BSR NN7A
RTS
NPR15A MOVE.W #22,SYSV8
MOVE.W #0,SYSV9
BSR NN5A
MOVE.L #TEXTF15,A6
BSR NN7A
RTS
NPR16A MOVE.W #23,SYSV8
MOVE.W #0,SYSV9
BSR NN5A
MOVE.L #TEXTF16,A6
BSR NN7A
RTS
NPR17A MOVE.W #22,SYSV8
MOVE.W #0,SYSV9
BSR NN5A
MOVE.L #TEXTF17,A6
BSR NN7A
RTS
NPR18A MOVE.W #23,SYSV8
MOVE.W #12,SYSV9
BSR NN5A
MOVE.L #TEXTF18,A6
BSR NN7A
RTS
NPR22A MOVE.W #23,SYSV8
MOVE.W #0,SYSV9
BSR NN5A
MOVE.L #TEXTF22,A6
BSR NN7A
RTS
NPR23A MOVE.W #22,SYSV8
MOVE.W #0,SYSV9
BSR NN5A
MOVE.L #TEXTF23,A6
BSR NN7A
MOVE.W #23,SYSV8
BSR NN5A
MOVE.L #TEXTF24,A6
BSR NN7A
RTS
NPR25A MOVE.W #23,SYSV8
MOVE.W #0,SYSV9
BSR NN5A
MOVE.L #TEXTF25,A6
BSR NN7A
RTS
NPR26A MOVE.W #23,SYSV8
MOVE.W #0,SYSV9
BSR NN5A
MOVE.L #TEXTF26,A6
BSR NN7A
RTS
NPR27A MOVE.W #23,SYSV8
MOVE.W #0,SYSV9
BSR NN5A
MOVE.L #TEXTF27,A6
BSR NN7A
NPR28A MOVE.W #24,SYSV8
MOVE.W #0,SYSV9
BSR NN5A
MOVE.L #TEXTF28,A6
BSR NN7A
RTS
NPR29A MOVE.W #22,SYSV8
MOVE.W #0,SYSV9
BSR NN5A
MOVE.L #TEXTF29,A6
BSR NN7A
MOVE.W #23,SYSV8
MOVE.W #0,SYSV9
BSR NN5A
MOVE.L #TEXTF30,A6
BSR NN7A
RTS
TEXTF10 DC.B ' =1 =2 =3 =4 =5 =6 =7',0
TEXTF11 DC.B 'EXIT E',0
TEXTF12 DC.B 'USE CURSOR TO SET CENTRE POSITION',0
TEXTF13 DC.B 'PRESS T : EXIT E',0
TEXTF14 DC.B 'USE CURSOR TO SET RIGHT FLANK',0
TEXTF15 DC.B 'USE CURSOR TO SET LEFT FLANK',0
TEXTF16 DC.B 'ATTACK A DEFEND D DISCRETION E',0
TEXTF17 DC.B 'ORDER O : DETAILS D : CURRENT ORDERS C ',0
TEXTF18 DC.B 'UNIT DISBANDS',0
TEXTF19 DC.B 'ALLIED MOVEMENT',0
TEXTF20 DC.B 'COMBAT',0
TEXTF21 DC.B 'GERMAN MOVEMENT',0
TEXTF22 DC.B 'ACCESS ARMY A TERMINATE T',0
TEXTF23 DC.B 'ALLIED ARMY ACCESS A',0
TEXTF24 DC.B 'GERMAN ARMY ACCESS G QUIT Q',0
TEXTF25 DC.B 'QUIT Q',0
TEXTF26 DC.B 'ENTER GAME LEVEL 1,2 OR 3',0
TEXTF27 DC.B 'TO SAVE GAME : LOAD DISC : PRESS S',0
TEXTF28 DC.B 'ELSE PRESS RETURN',0
TEXTF29 DC.B 'TO LOAD PREVIOUSLY SAVED GAME :',0
TEXTF30 DC.B 'LOAD DISC : PRESS L',0
EVEN
NPI1A CLR.W SYSV43
MOVE.L SYSV11,A6
MOVE.W #3,D7
ADD.L #30,A6
CMPI.W #1,SYSV101
BEQ NPI1NXTS
BRA NPI1CONT
NPI1NXTS ADD.L #120,A6
NPI1CONT MOVE.W (A6),SYSV24
MOVE.L A6,SYSV5
TST.W 20(A6)
BNE NPI1NXTU
MOVE.W #1,SYSV43
MOVEM.L D7/A6,-(SP)
BSR NPI2A
MOVEM.L (SP)+,D7/A6
NPI1NXTU SUBQ.W #1,D7
BEQ NPI1RET
ADD.L #40,A6
BRA NPI1CONT
NPI1RET RTS
NPI2A JSR N807A
CMPI.W #3,D7
BEQ NPI2B3
CMPI.W #2,D7
BEQ NPI2B2
MOVE.W 2(A5),LTEMPUDG
MOVE.W #279,2(A5)
BRA NPI2LN1
NPI2B2 MOVE.W 2(A5),XTEMPUDG
MOVE.W #277,2(A5)
BRA NPI2LN1
NPI2B3 MOVE.W 2(A5),RTEMPUDG
MOVE.W #278,2(A5)
NPI2LN1 MOVE.L SYSV5,A6
MOVE.W 8(A6),SYSV6
MOVE.W 10(A6),SYSV7
JSR N813A
JSR N801A
JSR SUB1B
RTS
NPI5A MOVE.L SYSV11,A6
MOVE.W #3,D7
ADD.L #30,A6
CMPI.W #1,SYSV101
BEQ NPI5NXTS
BRA NPI5CONT
NPI5NXTS ADD.L #120,A6
NPI5CONT CMPI.W #1,20(A6)
BEQ NPI5NXTU
MOVE.W (A6),SYSV24
MOVE.L A6,SYSV5
MOVEM.L D7/A6,-(SP)
JSR N807A
CMPI.W #3,D7
BEQ NPI5B3
CMPI.W #2,D7
BEQ NPI5B2
TST.W 20(A6)
BNE NPI5LN1A
MOVE.W LTEMPUDG,2(A5)
SUBQ.W #1,SYSV100
BEQ NPI5LN1
MOVE.L #LCURSOR,A4
MOVE.W (A4),12(A6)
MOVE.W 2(A4),14(A6)
BRA NPI5LN1
NPI5B2 TST.W 20(A6)
BNE NPI5LN1A
MOVE.W XTEMPUDG,2(A5)
SUBQ.W #1,SYSV98
BEQ NPI5LN1
MOVE.L #XCURSOR,A4
MOVE.W (A4),12(A6)
MOVE.W 2(A4),14(A6)
BRA NPI5LN1
NPI5B3 TST.W 20(A6)
BNE NPI5LN1A
MOVE.W RTEMPUDG,2(A5)
SUBQ.W #1,SYSV99
BEQ NPI5LN1
MOVE.L #RCURSOR,A4
MOVE.W (A4),12(A6)
MOVE.W 2(A4),14(A6)
NPI5LN1 MOVE.W 8(A6),SYSV6
MOVE.W 10(A6),SYSV7
JSR N813A
JSR N801A
JSR SUB1B
NPI5LN1A MOVEM.L (SP)+,D7/A6
NPI5NXTU SUBQ.W #1,D7
BEQ NPI5RET
ADD.L #40,A6
BRA NPI5CONT
NPI5RET RTS
PAPRA MOVE.W #5,TEMPUDG
PAPRB MOVE.W #6,D6
MOVE.L #$7F300,SYSV28
PAPRRS MOVE.L #TEMPUDG,A5
JSR NSC6A
MOVE.L SYSV28,A1
JSR NSC7A
DBRA D6,PAPRLN1
RTS
PAPRLN1 ADDQ.W #1,TEMPUDG
ADD.L #24,SYSV28
BRA PAPRRS
CAPRA MOVE.W #55,TEMPUDG
BSR PAPRB
RTS
NR1A MOVE.W 8(A6),SYSV6
MOVE.W 10(A6),SYSV7
MOVE.L A6,SYSV84
JSR N813A
JSR N806A
JSR NPR18A
JSR N848A
JSR N848A
JSR N870A
JSR N823A
MOVE.L SYSV84,A6
JSR N801A
MOVE.L A6,A4
JSR N811B
JSR N812A
MOVE.L SYSV22,A5
JSR N809B
RTS
NR2A MOVE.W #13,D7
MOVE.L #ARMYFILE,A6
NR2LNS MOVE.L A6,SYSV11
CMPI.W #3,2(A6)
BCS NR2LN1
ADD.L #30,A6
MOVE.W #6,D6
NR2LNRS3 MOVEM.L D6/D7,-(SP)
CMPI.W #9,2(A6)
BCC NR2LN2
CMPI.W #1,20(A6)
BEQ NR2LN2
MOVE.W 2(A6),SYSV102
BSR NR2AA
CLR.W 2(A6)
CLR.W 22(A6)
MOVE.W #1,20(A6)
BSR NR1A
MOVE.L SYSV84,A6
MOVE.W #65534,8(A6)
MOVE.W #65534,10(A6)
MOVE.W #65534,12(A6)
MOVE.W #65534,14(A6)
MOVE.L SYSV11,A6
SUBQ.W #1,2(A6)
NR2LNRS2 ADD.L #30,A6
MOVE.W #6,D6
MOVE.W SYSV102,SYSV103
NR2LNRS1 TST.W SYSV102
BEQ NR2LN1A
CMPI.W #1,20(A6)
BEQ NR2LN3
CMPI.W #19,2(A6)
BCC NR2LN3
ADDQ.W #1,2(A6)
SUBQ.W #1,SYSV102
NR2LN3 ADD.L #40,A6
SUBQ.W #1,D6
BEQ NR2LN4
BRA NR2LNRS1
NR2LN4 MOVE.W SYSV102,D1
CMP.W SYSV103,D1
BEQ NR2LN1A
MOVE.L SYSV11,A6
BRA NR2LNRS2
NR2LN2 MOVEM.L (SP)+,D6/D7
ADD.L #40,A6
SUBQ.W #1,D6
BEQ NR2LN1
BRA NR2LNRS3
NR2LN1A MOVEM.L (SP)+,D6/D7
NR2LN1 MOVE.L SYSV11,A6
ADD.L #270,A6
DBRA D7,NR2LNS
RTS
NR2AA MOVE.L A6,-(SP)
JSR M3AB
JSR M3A
MOVE.L (SP)+,A6
MOVE.L A6,-(SP)
JSR CBT8A
MOVE.L (SP)+,A6
RTS
NSC1A JSR N504A
JSR N823A
NSC1RS1 JSR NN6A
JSR N805A
TST.L D0
BEQ NSC1RS1
CMP.B #48,D0
BNE NSC1LN1
RTS
NSC1LN1 CMP.B #65,D0
BNE NSC1LN2
JSR N846A
BRA NSC1RS1
NSC1LN2 SWAP D0
CMP.B #$4B,D0
BNE NSC1LN3
BSR NSC3A
BRA NSC1RS1
NSC1LN3 CMP.B #$4D,D0
BNE NSC1LN4
BSR NSC2A
BRA NSC1RS1
NSC1LN4 CMP.B #$50,D0
BNE NSC1LN5
BSR NSC4A
BRA NSC1RS1
NSC1LN5 CMP.B #$48,D0
BNE NSC1RS1
BSR NSC5A
BRA NSC1RS1
NSC2A MOVE.W SYSV2,D0
CMP.W #42,D0
BNE NSC2LNS
RTS
NSC2LNS CLR.L D0
CLR.L D2
MOVE.L #DISFILE,A5
MOVE.W SYSV1,D2
CMP.W #0,D2
BEQ NSC2LN1
MULU #82,D2
ADD.L D2,A5
NSC2LN1 MOVE.W SYSV2,D0
ADD.L #40,A5
ADD.L D0,A5
MOVE.L A5,SYSV3
ADDQ.W #2,SYSV2
MOVE.L #$78098,SYSV4
MOVE.L #$78000,A1
MOVE.L #$78008,A3
MOVE.W #21,D6
NSC2RS3 MOVE.W #7,D7
NSC2RS2 MOVE.W #18,D2
NSC2RS1 MOVE.L (A3)+,(A1)+
MOVE.L (A3)+,(A1)+
DBRA D2,NSC2RS1
ADDQ.L #8,A1
ADDQ.L #8,A3
DBRA D7,NSC2RS2
DBRA D6,NSC2RS3
MOVE.W #21,D2
MOVE.L SYSV3,A5
MOVE.L SYSV4,A1
NSC2RS4 BSR NSC6A
BSR NSC7A
DBRA D2,NSC2LN2
RTS
NSC2LN2 ADD.L #82,A5
BRA NSC2RS4
NSC3A MOVE.W SYSV2,D0
CMP.W #0,D0
BNE NSC3LNS
RTS
NSC3LNS CLR.L D0
CLR.L D2
MOVE.L #DISFILE,A5
MOVE.W SYSV1,D2
CMP.W #0,D2
BEQ NSC3LN1
MULU #82,D2
ADD.L D2,A5
NSC3LN1 MOVE.W SYSV2,D0
SUBQ.W #2,D0
ADD.L D0,A5
MOVE.L A5,SYSV3
MOVE.W D0,SYSV2
MOVE.L #$78000,SYSV4
MOVE.L #$7EE00,A1
MOVE.L #$7EDF8,A3
MOVE.W #21,D6
NSC3RS3 MOVE.W #7,D7
NSC3RS2 MOVE.W #18,D2
NSC3RS1 MOVE.L -(A3),-(A1)
MOVE.L -(A3),-(A1)
DBRA D2,NSC3RS1
SUBQ.L #8,A1
SUBQ.L #8,A3
DBRA D7,NSC3RS2
DBRA D6,NSC3RS3
MOVE.W #21,D2
MOVE.L SYSV3,A5
MOVE.L SYSV4,A1
NSC3RS4 BSR NSC6A
BSR NSC7A
DBRA D2,NSC3LN2
RTS
NSC3LN2 ADD.L #82,A5
BRA NSC3RS4
NSC4A MOVE.W SYSV1,D0
CMP.W #38,D0
BNE NSC4LNS
RTS
NSC4LNS CLR.L D0
CLR.L D2
MOVE.L #DISFILE,A5
ADD.L #1804,A5
MOVE.W SYSV1,D2
TST.W D2
BEQ NSC4LN1
MULU #82,D2
ADD.L D2,A5
NSC4LN1 MOVE.W SYSV2,D0
ADD.L D0,A5
MOVE.L A5,SYSV3
ADDQ.W #2,SYSV1
MOVE.L #$7E400,SYSV4
MOVE.L #$78000,A1
MOVE.L #$78A00,A3
MOVE.W #19,D6
NSC4RS3 MOVE.W #7,D7
NSC4RS2 MOVE.W #19,D2
NSC4RS1 MOVE.L (A3)+,(A1)+
MOVE.L (A3)+,(A1)+
DBRA D2,NSC4RS1
DBRA D7,NSC4RS2
DBRA D6,NSC4RS3
MOVE.W #2,D6
MOVE.L SYSV3,A5
MOVE.L SYSV4,A1
MOVE.L A5,A4
NSC4RS5 MOVE.L A1,A6
MOVE.W #20,D2
NSC4RS4 BSR NSC6A
BSR NSC7A
SUBQ.W #1,D2
TST.W D2
BEQ NSC4LN2
ADDQ.W #2,A5
ADDQ.L #8,A6
MOVE.L A6,A1
BRA NSC4RS4
NSC4LN2 SUBQ.W #1,D6
TST.W D6
BNE NSC4LN3
RTS
NSC4LN3 ADD.L #82,A4
MOVE.L A4,A5
MOVE.L #$7E900,A1
BRA NSC4RS5
NSC5A MOVE.W SYSV1,D0
CMP.W #0,D0
BNE NSC5LNS
RTS
NSC5LNS CLR.L D0
CLR.L D2
MOVE.L #DISFILE,A5
ADD.L #2952,A5
MOVE.W SYSV1,D2
MOVE.W #38,D0
SUB.W D2,D0
MULU #82,D0
SUB.L D0,A5
MOVE.W SYSV2,D0
ADD.L D0,A5
MOVE.L A5,SYSV3
SUBQ.W #2,SYSV1
MOVE.L #$78000,SYSV4
MOVE.L #$7EE00,A1
MOVE.L #$7E400,A3
MOVE.W #19,D6
NSC5RS3 MOVE.W #7,D7
NSC5RS2 MOVE.W #19,D2
NSC5RS1 MOVE.L -(A3),-(A1)
MOVE.L -(A3),-(A1)
DBRA D2,NSC5RS1
DBRA D7,NSC5RS2
DBRA D6,NSC5RS3
MOVE.W #2,D6
MOVE.L SYSV3,A5
MOVE.L SYSV4,A1
MOVE.L A5,A4
NSC5RS5 MOVE.L A1,A6
MOVE.W #20,D2
NSC5RS4 BSR NSC6A
BSR NSC7A
SUBQ.W #1,D2
TST.W D2
BEQ NSC5LN2
ADDQ.W #2,A5
ADDQ.L #8,A6
MOVE.L A6,A1
BRA NSC5RS4
NSC5LN2 SUBQ.W #1,D6
TST.W D6
BNE NSC5LN3
RTS
NSC5LN3 ADD.L #82,A4
MOVE.L A4,A5
MOVE.L #$78500,A1
BRA NSC5RS5
NSC6A MOVE.L #0,D1
MOVE.W (A5),D1
NSC6B MULU #64,D1
ADD.L #UDGFILE,D1
MOVE.L D1,A2
RTS
NSC7A MOVE.W #7,D7
N7RS1 MOVE.L (A2),(A1)
MOVE.L 4(A2),4(A1)
ADDQ.L #8,A2
ADD.L #160,A1
DBRA D7,N7RS1
RTS
NSC1AA JSR N805A
TST.L D0
BEQ NSC1ARET
SWAP D0
CMP.B #$4B,D0
BNE NSC1ALN1
BSR NSC3A
BRA NSC1AA
NSC1ALN1 CMP.B #$4D,D0
BNE NSC1ALN2
BSR NSC2A
BRA NSC1AA
NSC1ALN2 CMP.B #$50,D0
BNE NSC1ALN3
BSR NSC4A
BRA NSC1AA
NSC1ALN3 CMP.B #$48,D0
BNE NSC1ARET
BSR NSC5A
BRA NSC1AA
NSC1ARET SWAP D0
RTS
EVEN
SYSV1 DS.W 1
SYSV2 DS.W 1
SYSV3 DS.L 1
SYSV4 DS.L 1
EVEN
NU1A MOVE.L #ADJAREAS,A4
MOVE.L ADJAREAS,A5
MOVE.L A5,4(A4)
SUBI.L #40,4(A4)
MOVE.L A5,8(A4)
ADDI.L #40,8(A4)
MOVE.L A5,12(A4)
SUBI.L #600,12(A4)
MOVE.L A5,16(A4)
ADDI.L #600,16(A4)
MOVE.L A5,20(A4)
SUBI.L #560,20(A4)
MOVE.L A5,24(A4)
ADDI.L #560,24(A4)
MOVE.L A5,28(A4)
SUBI.L #520,28(A4)
MOVE.L A5,32(A4)
ADDI.L #520,32(A4)
MOVE.W #7,D7
MOVE.L #MAPDATA,A1
MOVE.L #5560,A2
ADD.L A1,A2
MOVE.L #ADJAREAS,A6
NU1LN3 CMP.L 4(A6),A1
BEQ NU1LN4
BCC NU1LN1
CMP.L 4(A6),A2
BCS NU1LN1
NU1LN4 ADDQ.L #4,A6
DBRA D7,NU1LN3
BSR NU1AA
RTS
NU1LN1 CLR.L 4(A6)
BRA NU1LN4
NU1AA MOVE.W #7,D7
MOVE.L #ADJAREAS,A6
MOVE.L (A6),A5
NU1ALNRS TST.W 4(A6)
BEQ NU1ALN1
MOVE.L 4(A6),A4
MOVE.W 2(A4),D1
SUB.W 2(A5),D1
CMPI.W #7,D1
BCS NU1ALN1
CMPI.W #-6,D1
BCC NU1ALN1
CLR.L 4(A6)
NU1ALN1 ADDQ.L #4,A6
DBRA D7,NU1ALNRS
RTS
NU2A MOVE.L SYSV107,A5
MOVE.L (A5),A6
TST.L (A5)
BEQ NU2LN1
MOVE.W #1,SYSV43
NU2LN2 ADDQ.L #4,SYSV107
RTS
NU2LN1 CLR.W SYSV43
BRA NU2LN2
NU4A MOVE.W SYSV25,D4
NU4B MOVE.L #ARMYFILE,A3
SUB.L #270,A3
MULU #270,D4
ADD.L D4,A3
MOVE.L A3,SYSV11
RTS
NU6A MOVE.W SYSV24,SYSV91
MOVE.W SYSV25,SYSV92
MOVE.L SYSV5,SYSV93
MOVE.L SYSV34,SYSV94
MOVE.L SYSV52,SYSV95
RTS
NU7A MOVE.W SYSV91,SYSV24
MOVE.W SYSV92,SYSV25
MOVE.L SYSV93,SYSV5
MOVE.L SYSV94,SYSV34
MOVE.L SYSV95,SYSV52
RTS
NU8AA MOVE.W SYSV89,D1
TST.W D1
BEQ NU8ARET
MOVE.L SYSV5,A1
CMPI.W #43,(A1)
BCS NU8ALNP
MOVE.W #450,D2
MOVE.W #451,D3
BRA NU8ARS1
NU8ALNP MOVE.W #442,D2
MOVE.W #443,D3
NU8ARS1 SUBQ.W #1,D1
BEQ NU8ALN2
ADDQ.W #2,D2
ADDQ.W #2,D3
BRA NU8ARS1
NU8ALN2 MOVE.L #TEMPUDG,A5
MOVE.W D2,(A5)
MOVE.W D3,2(A5)
NU8ARET RTS
PC1A MOVE.W #35,D7
MOVE.L SYSV19,A3
MOVE.L #COMMONC,A4
PC1RS1 MOVE.L (A3)+,(A4)+
DBRA D7,PC1RS1
RTS
PC2A MOVE.W #35,D7
MOVE.L SYSV19,A3
MOVE.L #COMMONC,A4
PC2RS1 MOVE.L (A4)+,(A3)+
DBRA D7,PC2RS1
RTS
REINF CMPI.W #1,REINF1
BEQ REINFLNA
MOVE.W #3,D7
MOVE.L #LANDBECH,A6
ADD.L #144,A6
REINFRS1 CMPI.W #1,4(A6)
BEQ REINFLN1
SUBQ.W #1,D7
BEQ REINFLN2
ADD.L #16,A6
BRA REINFRS1
REINFLN2 MOVE.W #10,D1
SUB.W SYSV30,D1
MOVE.W D1,RNDNOMAX
JSR M1A
CMPI.W #1,D1
BNE REINFLNA
REINFLN1 MOVE.L #REINF1,A6
MOVE.L #ARMYFILE,A5
ADD.L #2970,A5
MOVE.L A5,SYSV11
BSR REINFA
REINFLNA MOVE.L #REINF2,A6
MOVE.L #ARMYFILE,A5
ADD.L #2430,A5
MOVE.L A5,SYSV11
BSR REINFA
REINFLNB CMPI.W #1,REINF3
BEQ REINFLNC
MOVE.W #10,D1
SUB.W SYSV30,D1
MOVE.W D1,RNDNOMAX
JSR M1A
CMPI.W #1,D1
BNE REINFLNC
MOVE.L #REINF3,A6
MOVE.L #ARMYFILE,A5
ADD.L #3240,A5
MOVE.L A5,SYSV11
BSR REINFA
REINFLNC CMPI.W #1,REINF4
BEQ REINFRET
MOVE.W #12,D1
SUB.W SYSV30,D1
MOVE.W D1,RNDNOMAX
JSR M1A
CMPI.W #1,D1
BNE REINFRET
MOVE.L #REINF4,A6
MOVE.L #ARMYFILE,A5
ADD.L #3510,A5
MOVE.L A5,SYSV11
BSR REINFA
REINFRET RTS
REINFA CMPI.W #1,(A6)
BNE REINFAA
RTS
REINFAA MOVE.W #1,(A6)
MOVE.W #1,22(A5)
MOVE.W 2(A6),4(A5)
MOVE.W 2(A6),8(A5)
MOVE.W 2(A6),SYSV6
MOVE.W 4(A6),6(A5)
MOVE.W 4(A6),10(A5)
MOVE.W 4(A6),SYSV7
MOVEM.L A5/A6,-(SP)
JSR SUB6A
MOVE.L SYSV15,A5
JSR N808B
MOVEM.L (SP)+,A5/A6
MOVE.W #5,D7
ADD.L #30,A5
REINFARS TST.W 2(A5)
BEQ REINFANU
MOVE.W (A5),SYSV24
CLR.W 20(A5)
MOVE.L A5,SYSV5
MOVE.W 6(A6),8(A5)
MOVE.W 6(A6),12(A5)
MOVE.W 6(A6),SYSV6
MOVE.L #ADJPOS,A4
MOVE.W 6(A6),(A4)
MOVE.W 8(A6),10(A5)
MOVE.W 8(A6),14(A5)
MOVE.W 8(A6),SYSV7
MOVE.W 8(A6),2(A4)
MOVEM.L D7/A5/A6,-(SP)
JSR SUB4A
JSR N807A
JSR N808A
JSR AMP12AB
MOVEM.L (SP)+,D7/A5/A6
REINFANU DBRA D7,REINFAL1
RTS
REINFAL1 ADD.L #40,A5
ADDQ.L #4,A6
BRA REINFARS
SCO1A CLR.W SYSV104
CLR.W SYSV105
CLR.W SYSV57
MOVE.L #SYSV57,A5
MOVE.L #ARMYFILE,A6
MOVE.W #2,D5
SCO1RS3 MOVE.W #6,D7
SCO1RS2 MOVE.W #5,D6
ADD.L #30,A6
SCO1RS1 CMPI.W #1,20(A6)
BEQ SCO1LN1
CLR.W D1
MOVE.W 2(A6),D1
ADD.W D1,(A5)
SCO1LN1 ADD.L #40,A6
DBRA D6,SCO1RS1
CMPI.W #2,D5
BEQ SCO1LN2
MOVE.L #SYSV105,A5
BRA SCO1LN3
SCO1LN2 MOVE.L #SYSV104,A5
SCO1LN3 MOVE.W SYSV57,D1
ADD.W D1,(A5)
CLR.W SYSV57
MOVE.L #SYSV57,A5
DBRA D7,SCO1RS2
SUBQ.W #1,D5
BEQ SCO1LN4
BRA SCO1RS3
SCO1LN4 MOVE.W SYSV104,D1
CMP.W SYSV105,D1
BCS SCO1LN5
MOVE.W SYSV105,D2
ADDI.W #25,D2
CMP.W D2,D1
BCS SCO1LN6
MOVE.W #2,SYSV106
RTS
SCO1LN5 CLR.W SYSV106
RTS
SCO1LN6 MOVE.W #1,SYSV106
RTS
SCO2A MOVE.W #6,D7
MOVE.L #ARMYFILE,A6
ADD.L #1890,A6
SCO2LNS MOVE.L D7,-(SP)
MOVE.L A6,-(SP)
MOVE.L #ADJPOS,A5
MOVE.W 4(A6),(A5)
MOVE.W 6(A6),2(A5)
TST.W 2(A6)
BEQ SCO2NXTA
TST.W 22(A6)
BEQ SCO2NXTA
JSR M3A
MOVE.L A2,ADJAREAS
JSR NU1A
MOVE.W #8,D7
MOVE.L #ADJAREAS,SYSV107
CLR.W SYSV108
CLR.W SYSV109
SCO2RS1 JSR NU2A
TST.W SYSV43
BEQ SCO2NXTM
MOVE.W 4(A6),D1
ADD.W D1,SYSV108
MOVE.W 6(A6),D1
ADD.W D1,SYSV109
SCO2NXTM DBRA D7,SCO2RS1
MOVE.L (SP)+,A6
MOVE.L A6,-(SP)
TST.W SYSV106
BEQ SCO2LN1
CMPI.W #1,SYSV106
BEQ SCO2LN2
BRA SCO2LN3
SCO2LN1 ADDI.W #10,SYSV109
BRA SCO2LN3
SCO2LN2 ADDI.W #5,SYSV109
SCO2LN3 MOVE.W SYSV109,D1
ADDI.W #20,SYSV108
CMP.W SYSV108,D1
BCC SCO2ATT
ADDI.W #20,D1
CMP.W SYSV108,D1
BCC SCO2DIS
MOVE.W #2,14(A6)
BRA SCO2NXTA
SCO2DIS MOVE.W #1,14(A6)
BRA SCO2NXTA
SCO2ATT CLR.W 14(A6)
SCO2NXTA MOVE.L (SP)+,A6
MOVE.L (SP)+,D7
DBRA D7,SCO2CONT
RTS
SCO2CONT ADD.L #270,A6
BRA SCO2LNS
SCO3A MOVE.W #6,D7
MOVE.L #ARMYFILE,A6
ADD.L #1890,A6
SCO3RS2 CLR.W 18(A6)
CLR.W 24(A6)
CLR.W 26(A6)
MOVE.W #5,D6
ADD.L #30,A6
SCO3RS1 CLR.W 24(A6)
ADD.L #40,A6
DBRA D6,SCO3RS1
DBRA D7,SCO3RS2
RTS
SCO4A MOVE.W #9,D7
MOVE.L #MAPDATA,A6
ADD.L #520,A6
MOVE.L A6,SYSV110
SCO4LNS MOVE.L A6,SYSV51
MOVE.W #13,D6
SCO4RS1 MOVEM.L D6/D7,-(SP)
CMPI.W #1,12(A6)
BEQ SCO4NSCN
BSR SCO7A
CMPI.W #1,SYSV43
BEQ SCO4SETF
MOVEM.L (SP)+,D6/D7
MOVE.L SYSV51,A6
SUBA.L #40,A6
MOVE.L A6,SYSV51
DBRA D6,SCO4RS1
BRA SCO4NXTS
SCO4NSCN MOVEM.L (SP)+,D6/D7
SCO4NXTS ADDI.L #560,SYSV110
MOVE.L SYSV110,A6
DBRA D7,SCO4LNS
RTS
SCO4SETF BSR SCO7AA
BRA SCO4NSCN
SCO5A MOVE.W #13,D7
MOVE.L #MAPDATA,A6
ADD.L #5560,A6
MOVE.L A6,SYSV110
SCO5LNS MOVE.L A6,SYSV51
MOVE.W #9,D6
SCO5RS1 MOVEM.L D6/D7,-(SP)
CMPI.W #1,12(A6)
BEQ SCO5NSCN
BSR SCO7A
CMPI.W #1,SYSV43
BEQ SCO5SETF
MOVEM.L (SP)+,D6/D7
MOVE.L SYSV51,A6
SUBA.L #560,A6
MOVE.L A6,SYSV51
DBRA D6,SCO5RS1
BRA SCO5NXTS
SCO5NSCN MOVEM.L (SP)+,D6/D7
SCO5NXTS SUBI.L #40,SYSV110
MOVE.L SYSV110,A6
DBRA D7,SCO5LNS
RTS
SCO5SETF BSR SCO7AA
BRA SCO5NSCN
SCO6A CMPI.W #1,SYSV111
BNE SCO6CONT
RTS
SCO6CONT MOVE.W #9,D7
MOVE.L #MAPDATA,A6
ADD.L #5040,A6
MOVE.L A6,SYSV110
SCO6LNFragment 2#
This fragment starts at Track 40, Sector 7, and ends at Track 50, Sector 4. This appears to follow where Fragment 1 ends.
S MOVE.L A6,SYSV51
MOVE.W #13,D6
SCO6RS1 MOVEM.L D6/D7,-(SP)
CMPI.W #1,12(A6)
BEQ SCO6NSCN
BSR SCO7A
CMPI.W #1,SYSV43
BEQ SCO6SETF
MOVEM.L (SP)+,D6/D7
MOVE.L SYSV51,A6
ADDA.L #40,A6
MOVE.L A6,SYSV51
DBRA D6,SCO6RS1
BRA SCO6NXTS
SCO6NSCN MOVEM.L (SP)+,D6/D7
SCO6NXTS SUBI.L #560,SYSV110
MOVE.L SYSV110,A6
DBRA D7,SCO6LNS
RTS
SCO6SETF BSR SCO7AA
BRA SCO6NSCN
SCO7AA MOVE.L SYSV51,A6
MOVE.L #AREAFRNT,A5
SCO7ARS2 TST.L (A5)
BEQ SCO7ASTP
MOVE.W (A5),D1
CMP.W (A6),D1
BEQ SCO7ATSC
SCO7ARS3 ADDQ.L #4,A5
BRA SCO7ARS2
SCO7ATSC MOVE.W 2(A5),D1
CMP.W 2(A6),D1
BEQ SCO7ARET
BRA SCO7ARS3
SCO7ASTP MOVE.W #1,8(A6)
MOVE.L (A6),(A5)
SCO7ARET RTS
SCO7BA MOVE.L #AREAFRNT,A6
SCO7BLNS MOVE.L A6,SYSV51
MOVE.L SYSV51,A5
ADDQ.L #4,A5
TST.L (A5)
BNE SCO7BCNT
RTS
SCO7BCNT MOVE.W (A5),D1
SUB.W (A6),D1
CMPI.W #7,D1
BCS SCO7BTSC
CMPI.W #65530,D1
BNE SCO7BFDA
SCO7BTSC MOVE.W 2(A5),D1
SUB.W 2(A6),D1
CMPI.W #7,D1
BCS SCO7BNXT
CMPI.W #65530,D1
BEQ SCO7BNXT
SCO7BFDA CLR.W D7
SCO7BRS1 TST.L (A5)
BEQ SCO7BNXT
MOVE.W (A5),D1
SUB.W (A6),D1
CMPI.W #7,D1
BCS SCO7BCOL
CMPI.W #65530,D1
BNE SCO7BNXP
SCO7BCOL MOVE.W 2(A5),D1
SUB.W 2(A6),D1
CMPI.W #7,D1
BCS SCO7BADJ
CMPI.W #65530,D1
BEQ SCO7BADJ
SCO7BNXP ADDQ.W #1,D7
ADDQ.L #4,A5
BRA SCO7BRS1
SCO7BADJ MOVE.L (A5),SYSV110
MOVE.L A5,A6
SUBQ.L #4,A6
SCO7BRS2 MOVE.L (A6),(A5)
SUBQ.L #4,A6
SUBQ.L #4,A5
SUBQ.W #1,D7
BNE SCO7BRS2
MOVE.L SYSV51,A6
ADDQ.L #4,A6
MOVE.L SYSV110,(A6)
SCO7BNXT MOVE.L SYSV51,A6
ADDQ.L #4,A6
BRA SCO7BLNS
SCO7A MOVE.L SYSV51,A6
MOVE.L A6,ADJAREAS
JSR NU1A
MOVE.W #8,D7
MOVE.L #ADJAREAS,SYSV107
SCO7RS1 JSR NU2A
TST.W SYSV43
BEQ SCO7NXTM
TST.W 4(A6)
BNE SCO7DIAG
SCO7NXTM DBRA D7,SCO7RS1
CLR.W SYSV43
RTS
SCO7DIAG MOVE.L ADJAREAS,A5
MOVE.W (A5),D1
CMP.W (A6),D1
BEQ SCO7SET
MOVE.W 2(A5),D1
CMP.W 2(A6),D1
BEQ SCO7SET
BRA SCO7NXTM
SCO7SET MOVE.W #1,SYSV43
RTS
SCO8A MOVE.L #AREAFRNT,A6
SCO8LNS TST.L (A6)
BNE SCO8CONT
SCO8RET RTS
SCO8CONT CMPI.W #28,(A6)
BCS SCO8PASS
MOVE.W #1,SYSV111
SCO8PASS CMPI.W #50,(A6)
BCC SCO8DEL
CMPI.W #2,2(A6)
BEQ SCO8DEL
ADDQ.L #4,A6
BRA SCO8LNS
SCO8DEL ADDQ.L #4,A6
TST.W (A6)
BEQ SCO8RET
CLR.L (A6)
BRA SCO8DEL
SCO9A MOVE.W #139,D7
MOVE.L #MAPDATA,A6
SCO9LNS CLR.W D1
TST.W 8(A6)
BEQ SCO9LN1
ADDQ.W #1,D1
SCO9LN1 TST.W 4(A6)
BEQ SCO9LN2
ADDQ.W #1,D1
CMPI.W #20,4(A6)
BCS SCO9LN2
ADDQ.W #1,D1
CMPI.W #35,4(A6)
BCS SCO9LN2
ADDQ.W #1,D1
SCO9LN2 TST.W 34(A6)
BEQ SCO9LN4
ADDQ.W #3,D1
SCO9LN4 MOVE.W D1,10(A6)
ADD.L #40,A6
DBRA D7,SCO9LNS
RTS
SCO10A MOVE.W #6,D7
MOVE.L #ARMYFILE,A6
ADD.L #1890,A6
SCO10LNS MOVE.L #AREAFRNT,A5
TST.W 2(A6)
BEQ SCO10NXA
SCO10RS1 TST.L (A5)
BEQ SCO10NXA
MOVE.W (A5),D1
SUB.W 4(A6),D1
CMPI.W #13,D1
BCS SCO10TSC
CMPI.W #-12,D1
BCS SCO10NXP
SCO10TSC MOVE.W 2(A5),D1
SUB.W 6(A6),D1
CMPI.W #13,D1
BCS SCO10WR
CMPI.W #-12,D1
BCC SCO10WR
SCO10NXP ADDQ.L #4,A5
BRA SCO10RS1
SCO10NXA ADD.L #270,A6
DBRA D7,SCO10LNS
RTS
SCO10WR MOVE.W #1,18(A6)
BRA SCO10NXA
SCO11A MOVE.L #POSFRONT,A6
MOVE.L #TEMPRECU,A4
MOVE.L #AREAFRNT,A5
MOVE.L A5,A2
SCO11LNS TST.L (A5)
BNE SCO11RS1
RTS
SCO11RS1 MOVE.W (A5),(A6)
MOVE.W (A5),8(A4)
MOVE.W 2(A5),2(A6)
MOVE.W 2(A5),10(A4)
MOVE.L A2,A5
TST.L 4(A5)
BNE SCO11PAS
RTS
SCO11PAS MOVE.W 4(A5),12(A4)
MOVE.W 6(A5),14(A4)
MOVEM.L A2/A4/A5/A6,-(SP)
MOVE.L A4,SYSV5
JSR M7A
JSR M10A
JSR M8A
MOVEM.L (SP)+,A2/A4/A5/A6
MOVE.L #SYSV37,A3
MOVE.W (A3),D1
CMP.W 4(A5),D1
BNE SCO11SP
MOVE.W 2(A3),D1
CMP.W 6(A5),D1
BNE SCO11SP
ADD.L #4,A6
ADD.L #4,A5
MOVE.L A5,A2
BRA SCO11LNS
SCO11SP MOVE.L A3,A5
ADD.L #4,A6
BRA SCO11RS1
SCO12A MOVE.W #20,D7
MOVE.L #FLCROSS,A6
SCO12RS CLR.W (A6)+
DBRA D7,SCO12RS
MOVE.W #6,D7
MOVE.L #ARMYFILE,A6
ADD.L #1890,A6
SCO12LNS MOVE.L D7,-(SP)
MOVE.L A6,-(SP)
TST.W 2(A6)
BEQ SCO12NXA
TST.W 22(A6)
BEQ SCO12NXA
MOVE.L #TEMPRECU,A4
MOVE.L #SYSV37,A3
MOVE.W 4(A6),8(A4)
MOVE.W 4(A6),(A3)
MOVE.W 6(A6),10(A4)
MOVE.W 6(A6),2(A3)
MOVE.L SYSV61,12(A4)
BRA SCO12NBS
SCO12RS2 MOVE.L #SYSV37,A3
MOVE.L #SYSV61,A2
MOVE.W (A3),D0
CMP.W (A2),D0
BNE SCO12NXM
MOVE.W 2(A3),D0
CMP.W 2(A2),D0
BEQ SCO12BS
BRA SCO12NXM
SCO12MVE MOVE.L #TEMPRECU,A4
MOVE.L A4,SYSV5
JSR M7A
JSR M10A
JSR M8A
SCO12NBS MOVE.L #POSFRONT,A1
SCO12RS1 TST.W (A1)
BEQ SCO12RS2
MOVE.L #SYSV37,A3
MOVE.W (A3),D0
CMP.W (A1),D0
BNE SCO12NXL
MOVE.W 2(A3),D0
CMP.W 2(A1),D0
BEQ SCO12SET
SCO12NXL ADDQ.L #4,A1
BRA SCO12RS1
SCO12NXM MOVE.L #SYSV37,A3
MOVE.L #TEMPRECU,A4
MOVE.L (A3),8(A4)
BRA SCO12MVE
SCO12BS MOVE.L (SP)+,A6
MOVE.L A6,-(SP)
BSR SCO12AA
BRA SCO12NXA
SCO12SET MOVE.L (SP)+,A6
MOVE.L A6,-(SP)
MOVE.L SYSV37,8(A6)
SCO12NXA MOVE.L (SP)+,A6
MOVE.L (SP)+,D7
ADD.L #270,A6
DBRA D7,SCO12LNS
MOVE.W #6,D7
MOVE.L #ARMYFILE,A6
ADD.L #1890,A6
SCO12S1 TST.W 18(A6)
BNE SCO12NA
TST.W 2(A6)
BEQ SCO12NA
TST.W 22(A6)
BEQ SCO12NA
MOVE.L A6,A5
ADD.L #30,A5
MOVE.W #5,D6
SCO12RS3 CMPI.W #1,20(A5)
BEQ SCO12NU
MOVE.L 8(A6),12(A5)
CMPI.W #10,24(A6)
BEQ SCO12NU
MOVE.W #1,24(A5)
SCO12NU ADD.L #40,A5
DBRA D6,SCO12RS3
BRA SCO12NA
SCO12S3 DBRA D7,SCO12S1
BRA SCO12S2
SCO12NA ADD.L #270,A6
BRA SCO12S3
SCO12S2 MOVE.W #6,D7
MOVE.L #ARMYFILE,A6
ADD.L #1890,A6
MOVE.L #FLCROSS,A5
SCO12S4 TST.W 18(A6)
BEQ SCO12ARM
MOVE.W 8(A6),(A5)
MOVE.W 10(A6),2(A5)
MOVE.W (A6),4(A5)
ADDQ.L #6,A5
SCO12ARM ADD.L #270,A6
DBRA D7,SCO12S4
MOVE.L #POSFRONT,A4
CLR.W D1
SCO12RS5 MOVE.W #6,D7
MOVE.L #FLCROSS,A5
TST.L (A4)
BEQ SCO12END
SCO12RS4 MOVE.W (A4),D0
CMP.W (A5),D0
BEQ SCO12TC
SCO12RS6 ADDQ.L #6,A5
DBRA D7,SCO12RS4
ADDQ.L #4,A4
BRA SCO12RS5
SCO12TC MOVE.W 2(A4),D0
CMP.W 2(A5),D0
BEQ SCO12SN
BRA SCO12RS6
SCO12SN ADDQ.W #1,D1
MOVE.W 4(A5),SYSV25
MOVEM.L D1/D7/A4/A5,-(SP)
JSR NU4A
MOVEM.L (SP)+,D1/D7/A4/A5
MOVE.W D1,24(A3)
BRA SCO12RS6
SCO12END RTS
SCO12AA MOVE.L #TEMPRECU,A4
MOVE.L #SYSV37,A3
MOVE.L (A3),8(A4)
MOVE.L 4(A6),12(A4)
MOVE.L A6,-(SP)
MOVE.L A4,SYSV5
JSR M7A
JSR M10A
MOVE.L (SP)+,A6
MOVE.L A6,-(SP)
MOVE.L #TEMPRECU,A4
MOVE.L 4(A6),8(A4)
SCO12AS2 MOVE.L A4,SYSV5
JSR M8A
MOVE.L #SYSV37,A3
CMPI.W #58,(A3)
BEQ SCO12ASB
CMPI.W #0,(A3)
BEQ SCO12ASB
CMPI.W #0,2(A3)
BEQ SCO12ASB
CMPI.W #80,2(A3)
BEQ SCO12ASB
MOVE.L #POSFRONT,A5
SCO12AS1 TST.L (A5)
BEQ SCO12ANM
MOVE.L #SYSV37,A3
MOVE.L (A3),D0
CMP.L (A5),D0
BNE SCO12ANL
BRA SCO12ASP
SCO12ANL ADDQ.L #4,A5
BRA SCO12AS1
SCO12ANM MOVE.L #TEMPRECU,A4
MOVE.L (A3),8(A4)
BRA SCO12AS2
SCO12ASB MOVE.L (SP)+,A6
MOVE.W 4(A6),8(A6)
MOVE.W #80,10(A6)
MOVE.W #10,24(A6)
RTS
SCO12ASP MOVE.L (SP)+,A6
MOVE.L (A3),8(A6)
RTS
SCO13A CLR.W D1
MOVE.L #AREAFRNT,A6
SCO13RS1 TST.L (A6)
BEQ SCO13END
ADDQ.W #1,D1
ADDQ.L #4,A6
BRA SCO13RS1
SCO13END MOVE.W D1,SYSV112
RTS
SCO14A MOVE.W #1,SYSV115
MOVE.W #6,D7
MOVE.L #ARMYFILE,A6
ADD.L #1890,A6
CLR.W SYSV113
SCO14RS1 TST.W 18(A6)
BEQ SCO14NXA
TST.W 24(A6)
BEQ SCO14NXA
CMPI.W #8,24(A6)
BCC SCO14NXA
ADDQ.W #1,SYSV113
SCO14NXA ADD.L #270,A6
DBRA D7,SCO14RS1
TST.W SYSV113
BNE SCO14CNT
SCO14RET RTS
SCO14CNT MOVE.L #AREAFRNT,SYSV51
TST.W SYSV112
BEQ SCO14RET
SCO14S1 BSR SCO14AA
BSR SCO14CA
TST.W SYSV43
BEQ SCO14RET
SUBQ.W #1,SYSV113
ADDQ.W #1,SYSV115
BSR SCO14FA
TST.W SYSV112
BEQ SCO14RET
CMPI.W #1000,SYSV112
BCC SCO14RET
CMPI.W #8,SYSV115
BCC SCO14RET
BRA SCO14S1
SCO14AA CLR.L D1
MOVE.W SYSV112,D1
CLR.L D2
MOVE.W SYSV113,D2
MOVE.L D2,D3
DIVU #2,D3
TST.W D2
BEQ SCO14AS1
DIVU D2,D1
TST.W D1
BEQ SCO14AS1
MOVE.W D1,SYSV114
SWAP D1
CMP.W D1,D3
BCS SCO14AS2
BRA SCO14AS3
SCO14AS2 ADDQ.W #1,SYSV114
SCO14AS3 CMPI.W #4,SYSV114
BCC SCO14AS4
RTS
SCO14AS4 MOVE.W #3,SYSV114
RTS
SCO14AS1 MOVE.W #1,SYSV114
RTS
SCO14CA CLR.W SYSV43
MOVE.W SYSV115,D1
MOVE.W #6,D7
MOVE.L #ARMYFILE,A6
ADD.L #1890,A6
SCO14CRS CMP.W 24(A6),D1
BEQ SCO14CF
ADD.L #270,A6
DBRA D7,SCO14CRS
RTS
SCO14CF MOVE.W #1,SYSV43
MOVE.L A6,SYSV11
RTS
SCO14FA MOVE.L SYSV11,A6
MOVE.W SYSV114,D1
SCO14FR1 CMP.W 2(A6),D1
BCS SCO14FL1
SUBQ.W #1,D1
BEQ SCO14FL1
BRA SCO14FR1
SCO14FL1 MOVE.L SYSV51,A5
MOVE.L (A5),8(A6)
CMPI.W #2,D1
BCS SCO14FT1
CMPI.W #3,D1
BCS SCO14FT2
BRA SCO14FT3
SCO14FT1 ADDQ.L #4,SYSV51
SUBQ.W #1,SYSV112
SCO14FSK TST.W D1
BEQ SCO14FN1
CMPI.W #1,D1
BEQ SCO14FN3
CMPI.W #2,D1
BEQ SCO14FN6
MOVE.W #8,D1
BRA SCO14FTL
SCO14FT2 BSR SCO14GA
CMPI.W #1,SYSV43
BEQ SCO14F2A
MOVE.W #1,D1
BRA SCO14FT1
SCO14F2A MOVE.W #2,D1
SCO14FS2 ADDQ.L #4,SYSV51
SUBQ.W #1,SYSV112
BEQ SCO14FSK
BRA SCO14FT1
SCO14FT3 BSR SCO14GA
CMPI.W #1,SYSV43
BEQ SCO14FTS
MOVE.W #1,D1
BRA SCO14FT1
SCO14FS3 ADDQ.L #4,SYSV51
SUBQ.W #1,SYSV112
BEQ SCO14FSK
MOVE.W #3,D1
BRA SCO14FS2
SCO14FN1 MOVE.W #1,D1
BRA SCO14FTL
SCO14FN3 MOVE.W #3,D1
BRA SCO14FTL
SCO14FN6 MOVE.W #6,D1
SCO14FTL MOVE.W D1,26(A6)
RTS
SCO14FTS ADDQ.L #4,SYSV51
BSR SCO14GA
SUBQ.L #4,SYSV51
CMPI.W #1,SYSV43
BEQ SCO14FS3
BRA SCO14F2A
SCO14GA CLR.W SYSV43
MOVE.L SYSV51,A1
MOVE.L A1,A2
ADDQ.L #4,A2
MOVE.W (A1),D6
SUB.W (A2),D6
CMPI.W #7,D6
BCS SCO14GTC
CMPI.W #65530,D6
BNE SCO14GRT
SCO14GTC MOVE.W 2(A1),D6
SUB.W 2(A2),D6
CMPI.W #7,D6
BCS SCO14GST
CMPI.W #65530,D6
BNE SCO14GRT
SCO14GST MOVE.W #1,SYSV43
SCO14GRT RTS
SCO15A MOVE.W #6,D7
MOVE.L #ARMYFILE,A6
ADD.L #1890,A6
SCO15LNS TST.W 18(A6)
BEQ SCO15NXA
CMPI.W #2,26(A6)
BCS SCO15SHQ
MOVE.W 26(A6),SYSV116
MOVE.W 2(A6),SYSV117
MOVE.L #POSFRONT,A5
SCO15TSN TST.L (A5)
BEQ SCO15NXA
MOVE.L (A5),D4
CMP.L 8(A6),D4
BEQ SCO15STP
ADDQ.L #4,A5
BRA SCO15TSN
SCO15STP MOVE.L A6,A4
ADD.L #30,A4
MOVE.W #5,D6
SCO15RS1 CMPI.W #1,20(A4)
BEQ SCO15NU
CLR.L D1
MOVE.W SYSV116,D2
MOVE.W SYSV117,D3
CMP.W D2,D3
BCC SCO15NSP
ADDQ.W #1,D1
SCO15NSP MOVE.L (A5),12(A4)
ADDQ.L #4,A5
TST.W D1
BEQ SCO15SP1
ADDQ.L #4,A5
SUBQ.W #1,D2
SCO15SP1 SUBQ.W #1,D2
MOVE.W D2,SYSV116
SUBQ.W #1,SYSV117
TST.W (A5)
BEQ SCO15HQ1
SCO15NU ADD.L #40,A4
DBRA D6,SCO15RS1
SCO15NXA ADD.L #270,A6
DBRA D7,SCO15LNS
RTS
SCO15HQ1 DBRA D6,SCO15CNT
BRA SCO15NXA
SCO15CNT ADD.L #40,A4
CMPI.W #1,20(A4)
BEQ SCO15HQ1
MOVE.L 8(A6),12(A4)
BRA SCO15HQ1
SCO15SHQ MOVE.W #6,D6
MOVE.L A6,A4
ADD.L #30,A4
SCO15RS2 CMPI.W #1,20(A4)
BEQ SCO15NU1
MOVE.L 8(A6),12(A4)
SCO15NU1 SUBQ.W #1,D6
BEQ SCO15NXA
ADD.L #40,A4
BRA SCO15RS2
SCO16A BSR SCO16AA
MOVE.W #6,D7
MOVE.L #ARMYFILE,A6
ADD.L #1890,A6
SCO16LNS TST.W 22(A6)
BEQ SCO16NXA
TST.W 18(A6)
BEQ SCO16NXA
CMPI.W #10,24(A6)
BEQ SCO16NXA
CMPI.W #2,14(A6)
BEQ SCO16CNF
TST.W 14(A6)
BEQ SCO16ATT
CLR.W 16(A6)
MOVE.W #1,20(A6)
MOVE.W 8(A6),D1
SUB.W 4(A6),D1
CMPI.W #3,D1
BCS SCO16TDC
CMPI.W #65534,D1
BCS SCO16CF
SCO16TDC MOVE.W 10(A6),D1
SUB.W 6(A6),D1
CMPI.W #3,D1
BCS SCO16NXA
CMPI.W #65534,D1
BCC SCO16NXA
BRA SCO16CF
SCO16ATT CLR.W 16(A6)
CLR.W 20(A6)
MOVE.W 8(A6),D1
SUB.W 4(A6),D1
CMPI.W #5,D1
BCS SCO16TAC
CMPI.W #65532,D1
BCS SCO16CF
SCO16TAC MOVE.W 10(A6),D1
SUB.W 6(A6),D1
CMPI.W #5,D1
BCS SCO16NXA
CMPI.W #65532,D1
BCC SCO16NXA
BRA SCO16CF
SCO16CNF MOVE.W #1,16(A6)
CLR.W 20(A6)
SCO16CF MOVE.L A6,A5
ADD.L #30,A5
MOVE.W #5,D6
SCO16RS1 TST.W 20(A5)
BNE SCO16NU
MOVE.W #1,24(A5)
SCO16NU ADD.L #40,A5
DBRA D6,SCO16RS1
SCO16NXA ADD.L #270,A6
DBRA D7,SCO16LNS
RTS
SCO16AA MOVE.W #6,D7
MOVE.L #ARMYFILE,A6
ADD.L #1890,A6
SCO16ARS CMPI.W #6,26(A6)
BCS SCO16ANA
MOVE.L #POSFRONT,A5
SCO16ANP TST.L (A5)
BEQ SCO16ANA
MOVE.L (A5),D4
CMP.L 8(A6),D4
BEQ SCO16AST
ADDQ.L #4,A5
BRA SCO16ANP
SCO16AST TST.L 12(A5)
BEQ SCO16ANA
MOVE.L 12(A5),8(A6)
SCO16ANA ADD.L #270,A6
DBRA D7,SCO16ARS
RTS
SCO17A MOVE.W #6,D7
MOVE.L #ARMYFILE,A6
ADD.L #1890,A6
SCO17LNS MOVEM.L D7/A6,-(SP)
TST.W 18(A6)
BEQ SCO17NXA
TST.W 22(A6)
BEQ SCO17NXA
CMPI.W #10,24(A6)
BEQ SCO17NXA
ADD.L #30,A6
MOVE.W #5,D6
SCO17RS2 MOVE.L D6,-(SP)
MOVE.L A6,-(SP)
CMPI.W #1,20(A6)
BEQ SCO17NXU
CMPI.W #1,24(A6)
BEQ SCO17NXU
MOVE.L 8(A6),ADJPOS
JSR M3A
MOVE.L A2,ADJAREAS
JSR NU1A
MOVE.L SYSV34,A6
MOVE.W 10(A6),SYSV122
CLR.W SYSV118
MOVE.L (SP)+,A6
MOVE.L A6,-(SP)
MOVE.L SYSV34,A5
MOVE.L A5,SYSV121
MOVE.W (A5),D1
SUB.W 8(A6),D1
MOVE.W D1,SYSV119
MOVE.W 2(A5),D1
SUB.W 10(A6),D1
MOVE.W D1,SYSV120
MOVE.W #8,D7
MOVE.L #ADJAREAS,SYSV107
SCO17RS1 JSR NU2A
TST.W SYSV43
BEQ SCO17NXM
MOVE.W SYSV122,D1
CMP.W 10(A6),D1
BCC SCO17NXM
MOVE.W #1,SYSV118
MOVE.W 10(A6),SYSV122
MOVE.L A6,SYSV121
SCO17NXM DBRA D7,SCO17RS1
TST.W SYSV118
BEQ SCO17NXU
MOVE.L SYSV121,A6
MOVE.W (A6),D1
SUB.W SYSV119,D1
MOVE.W D1,D2
MOVE.W 2(A6),D1
SUB.W SYSV120,D1
MOVE.W D1,D3
MOVE.L (SP)+,A6
MOVE.L A6,-(SP)
MOVE.W D2,12(A6)
MOVE.W D3,14(A6)
MOVE.W #1,24(A6)
SCO17NXU MOVE.L (SP)+,A6
MOVE.L (SP)+,D6
ADD.L #40,A6
DBRA D6,SCO17RS2
SCO17NXA MOVEM.L (SP)+,D7/A6
ADD.L #270,A6
DBRA D7,SCO17LNS
RTS
SCO18A JSR E2A
JSR E6A
RTS
E1A MOVE.W #83,D7
MOVE.L #ENGAGEA,A6
E1RS CLR.L (A6)+
DBRA D7,E1RS
RTS
E2A BSR E1A
MOVE.W #6,D7
MOVE.L #ARMYFILE,A6
ADD.L #1890,A6
E2RS2 CLR.L D0
TST.W 22(A6)
BEQ E2NEXTA
TST.W 2(A6)
BEQ E2NEXTA
CMPI.W #2,14(A6)
BEQ E2NEXTA
CLR.W D6
MOVE.W #5,D2
E2RS1 BSR E3A
CMP.W 2(A6),D0
BEQ E2NEXTA
SUBQ.W #1,D2
BEQ E2NEXTA
ADDQ.W #2,D6
BRA E2RS1
E2NEXTA ADD.L #270,A6
DBRA D7,E2RS2
RTS
E3A MOVEM.L D0-D7/A0-A6,-(SP)
BSR E5A
MOVEM.L (SP)+,D0-D7/A0-A6
MOVE.W #6,D5
MOVE.L #ARMYFILE,A0
E3RS3 TST.W 2(A0)
BEQ E3NXA
TST.W 22(A0)
BEQ E3NXA
MOVE.W #5,D4
MOVE.L A0,A1
ADD.L #30,A1
E3RS2 TST.W 20(A1)
BNE E3NEXTU
MOVE.L #ENGAGEP,A5
MOVE.L 8(A1),D1
E3RS1 CMPI.W #50000,(A5)
BEQ E3NEXTU
CMP.L (A5)+,D1
BEQ E3UNITID
BRA E3RS1
E3NEXTU ADD.L #40,A1
DBRA D4,E3RS2
E3NXA ADD.L #270,A0
DBRA D5,E3RS3
RTS
E3UNITID MOVEM.L D0-D7/A0-A6,-(SP)
BSR E4A
MOVEM.L (SP)+,D0-D7/A0-A6
TST.W SYSV43
BEQ E3NEXTU
ADDQ.W #1,D0
CMP.W 2(A6),D0
BNE E3NEXTU
RTS
E4A CLR.W SYSV43
MOVE.L #ENGAGEA,A5
MOVE.W (A6),D7
SUBQ.W #7,D7
E4RS1 SUBQ.W #1,D7
BEQ E4LN1
ADD.L #48,A5
BRA E4RS1
E4LN1 MOVE.L A5,A4
MOVE.W #5,D7
MOVE.W (A1),D1
E4RS2 CMP.W (A5),D1
BEQ E4RET
ADDQ.W #8,A5
DBRA D7,E4RS2
MOVE.W #1,SYSV43
MOVE.L A4,A5
E4FREE TST.L (A5)
BEQ E4SPACE
ADD.L #8,A5
BRA E4FREE
E4SPACE MOVE.W (A1),(A5)
MOVE.L 8(A1),2(A5)
E4RET RTS
E5A MOVE.L #ENGAGEP,A5
MOVE.W #32,D3
E5RS1 CLR.L (A5)+
DBRA D3,E5RS1
MOVE.L #ENGAGEP,A5
MOVE.W 4(A6),D2
SUB.W D6,D2
MOVE.W 6(A6),D3
SUB.W D6,D3
MOVE.W D3,D5
MOVE.W D6,D0
ADDQ.W #1,D0
E5RS2 MOVE.W D2,(A5)+
MOVE.W D5,(A5)+
ADDQ.W #2,D5
SUBQ.W #1,D0
BNE E5RS2
TST.W D6
BEQ E5END
MOVE.W D2,D4
ADDQ.W #2,D4
MOVE.W D6,D0
SUBQ.W #1,D0
E5RS3 MOVE.W D4,(A5)+
MOVE.W D3,(A5)+
ADDQ.W #2,D4
SUBQ.W #1,D0
BNE E5RS3
MOVE.W 4(A6),D2
ADD.W D6,D2
MOVE.W 6(A6),D3
ADD.W D6,D3
MOVE.W D3,D5
MOVE.W D6,D0
ADDQ.W #1,D0
E5RS4 MOVE.W D2,(A5)+
MOVE.W D5,(A5)+
SUBQ.W #2,D5
SUBQ.W #1,D0
BNE E5RS4
MOVE.W D2,D4
SUBQ.W #2,D4
MOVE.W D6,D0
SUBQ.W #1,D0
E5RS5 MOVE.W D4,(A5)+
MOVE.W D3,(A5)+
SUBQ.W #2,D4
SUBQ.W #1,D0
BNE E5RS5
E5END MOVE.W #50000,(A5)+
RTS
E6A MOVE.W #6,D7
MOVE.L #ARMYFILE,A6
ADD.L #1890,A6
E6RS TST.W 22(A6)
BEQ E6NEXTA
TST.W 2(A6)
BEQ E6NEXTA
CMPI.W #2,14(A6)
BEQ E6NEXTA
MOVE.L #ENGAGEA,A5
MOVE.W (A6),D1
SUBQ.W #7,D1
E6RS1 SUBQ.W #1,D1
BEQ E6RS3
ADD.L #48,A5
BRA E6RS1
E6RS3 MOVE.W #100,D0
TST.W (A5)
BEQ E6NEXTA
MOVE.W #6,D5
MOVE.L A6,A4
ADD.L #30,A4
MOVE.W #5,D6
E6RS2 TST.W 20(A4)
BNE E6NEXTU
TST.W 24(A4)
BNE E6NEXTU
CMPI.W #2,6(A5)
BEQ E6NXENU
MOVE.W 2(A5),D1
CMP.W 8(A4),D1
BCS E6REVL
SUB.W 8(A4),D1
BRA E6LN1
E6REVL MOVE.W 8(A4),D1
SUB.W 2(A5),D1
E6LN1 MOVE.W 4(A5),D2
CMP.W 10(A4),D2
BCS E6REVC
SUB.W 10(A4),D2
BRA E6LN2
E6REVC MOVE.W 10(A4),D2
SUB.W 4(A5),D2
E6LN2 CMP.W D1,D2
BCS E6HIGHD
MOVE.W D2,D1
E6HIGHD CMP.W D1,D0
BCS E6NEXTU
MOVE.W D1,D0
MOVE.L A4,A3
E6NEXTU ADD.L #40,A4
DBRA D6,E6RS2
CMPI.W #9,D0
BCC E6NXENU
MOVE.L 2(A5),12(A3)
MOVE.W #1,24(A3)
ADDQ.W #1,6(A5)
CMPI.W #2,6(A5)
BEQ E6NXENU
MOVE.W (A5),SYSV24
MOVEM.L D0-D7/A0-A6,-(SP)
JSR M19A
JSR M4A
MOVEM.L (SP)+,D0-D7/A0-A6
MOVE.L SYSV5,A2
MOVE.W 26(A2),D3
MULU #3,D3
MOVE.W 26(A3),D4
MULU #3,D4
ADD.W 2(A2),D3
ADD.W 2(A3),D4
CMP.W D3,D4
BCS E6RS3
ADDQ.W #1,6(A5)
E6NXENU SUBQ.W #1,D5
BEQ E6NEXTA
ADD.L #8,A5
BRA E6RS3
E6NEXTA ADD.L #270,A6
DBRA D7,E6RS
RTS
SCO19A MOVE.W #6,D7
MOVE.L #ARMYFILE,A6
ADD.L #1890,A6
SCO19RS2 TST.W 22(A6)
BEQ SCO19NXA
CMPI.W #10,24(A6)
BNE SCO19NXA
CMPI.W #48,6(A6)
BCS SCO19STB
CLR.W D2
MOVE.W #100,D1
BRA SCO19FU
SCO19STB MOVE.W #32,D1
MOVE.W #80,D2
SCO19FU MOVE.L A6,A5
ADD.L #30,A5
MOVE.W #5,D6
SCO19RS1 TST.W 20(A5)
BNE SCO19NXU
TST.W 24(A5)
BNE SCO19NXU
CMPI.W #100,D1
BEQ SCO19COL
MOVE.W D1,12(A5)
SCO19COL MOVE.W D2,14(A5)
SCO19NXU ADD.L #40,A5
DBRA D6,SCO19RS1
SCO19NXA ADD.L #270,A6
DBRA D7,SCO19RS2
RTS
SUB1A JSR N801A
SUB1C JSR N807A
SUB1B JSR N808A
JSR N806A
JSR N809A
RTS
SUB2A MOVE.W #5,D6
MOVE.L SYSV11,A6
ADD.L #30,A6
MOVE.L A6,SYSV5
RTS
SUB3A MOVE.L SYSV11,A6
ADD.L #30,A6
SUB3LN1 CMP.W (A6),D7
BEQ SUB3LNE
ADD.L #40,A6
BRA SUB3LN1
SUB3LNE MOVE.L A6,SYSV5
RTS
SUB4A JSR N801A
JSR N811A
JSR N803A
RTS
SUB6A JSR N801A
JSR NHQ5A
JSR NHQ10A
JSR NHQ6A
RTS
SUB8A MOVE.L SYSV11,A6
ADD.L #30,A6
SUB8RS1 SUBQ.W #1,D7
BEQ SUB8LN1
ADD.L #40,A6
BRA SUB8RS1
SUB8LN1 MOVE.L A6,SYSV5
RTS
SUP1A BSR SUP1AA
MOVE.W #6,D7
MOVE.L #ARMYFILE,A6
SUP1RS2 MOVE.L #SYSV61,A5
CMPI.W #11,SYSV30
BCS SUP1LN1
MOVE.W #23,D1
MOVE.W #-22,D2
BRA SUP1LN2
SUP1LN1 MOVE.W SYSV30,D1
MULU #2,D1
MOVE.W D1,D2
NEG.W D2
SUP1LN2 MOVE.W (A5),D3
SUB.W 4(A6),D3
CMP.W D1,D3
BCS SUP1TSTC
CMP.W D2,D3
BCS SUP1NXTT
SUP1TSTC MOVE.W 2(A5),D3
SUB.W 6(A6),D3
CMP.W D1,D3
BCS SUP1SETF
CMP.W D2,D3
BCS SUP1NXTT
SUP1SETF MOVE.W #1,28(A6)
BRA SUP1NXTA
SUP1NXTT BSR SUP1BA
SUP1NXTA DBRA D7,SUP1LN3
RTS
SUP1LN3 ADD.L #270,A6
BRA SUP1RS2
SUP1AA MOVE.W #6,D7
MOVE.L #ARMYFILE,A6
SUP1ARS1 CLR.W 28(A6)
DBRA D7,SUP1ALN1
RTS
SUP1ALN1 ADD.L #270,A6
BRA SUP1ARS1
SUP1BA MOVE.W #11,D6
MOVE.L #LANDBECH,A4
SUP1BLNS TST.W 4(A4)
BEQ SUP1BNB
MOVE.W (A4),D1
SUB.W 4(A6),D1
CMPI.W #9,D1
BCS SUP1BTC
CMPI.W #-8,D1
BCS SUP1BNB
SUP1BTC MOVE.W 2(A4),D1
SUB.W 6(A6),D1
CMPI.W #9,D1
BCS SUP1BSF
CMPI.W #-8,D1
BCS SUP1BNB
SUP1BSF MOVE.W #1,28(A6)
RTS
SUP1BNB ADD.L #16,A4
DBRA D6,SUP1BLNS
RTS
SUP2A MOVE.W #6,D7
MOVE.L #ARMYFILE,A6
SUP2LNS MOVE.L A6,A5
CMPI.W #1,28(A6)
BEQ SUP2NXTA
CMPI.W #1,22(A6)
BNE SUP2NXTA
MOVE.W #5,D6
ADD.L #30,A5
SUP2RS1 CMPI.W #1,20(A5)
BEQ SUP2NXTU
MOVE.L #SYSV61,A4
MOVE.W (A4),12(A5)
MOVE.W 2(A4),14(A5)
SUP2NXTU DBRA D6,SUP2CONT
BRA SUP2NXTA
SUP2CONT ADD.L #40,A5
BRA SUP2RS1
SUP2NXTA DBRA D7,SUP2NXT
RTS
SUP2NXT ADD.L #270,A6
BRA SUP2LNS
UNITUDG DC.W 1,5,3,5,2,5,1,5,3,5,2,5
DC.W 1,6,2,6,1,6,2,6,1,6,2,6
DC.W 2,7,1,7,2,7,0,7,1,7,2,7
DC.W 2,8,0,8,0,8,2,8,0,8,2,8
DC.W 2,9,0,9,2,9,0,9,2,9,2,9
DC.W 22,10,23,10,21,10,21,10,24,10,22,10
DC.W 22,11,23,11,21,11,22,11,23,11,22,11
DC.W 52,55,52,55,52,55,52,55,52,55,52,55
DC.W 51,56,53,56,51,56,53,56,51,56,53,56
DC.W 52,57,52,57,52,57,53,57,52,57,52,57
DC.W 52,58,52,58,53,58,52,58,53,58,52,58
DC.W 51,59,53,59,51,59,51,59,53,59,51,59
DC.W 53,60,51,60,53,60,51,60,53,60,51,60
DC.W 53,61,52,61,51,61,52,61,51,61,53,61
UNITTERR DC.W 0,0,0,0,0,0,0,0,0,0,0,0
DC.W 0,0,0,0,0,0,0,0,0,0,0,0
DC.W 0,0,0,0,0,0,0,0,0,0,0,0
DC.W 0,0,0,0,0,0,0,0,0,0,0,0
DC.W 0,0,0,0,0,0,0,0,0,0,0,0
DC.W 0,0,0,0,0,0,0,0,0,0,0,0
DC.W 0,0,0,0,0,0,0,0,0,0,0,0
DC.W 111,237,111,111,231,236,111,237,231,231,111,111
DC.W 153,154,111,111,111,111,111,111,111,111,111,111
DC.W 0,0,0,0,0,0,0,0,0,0,0,0
DC.W 111,111,111,111,111,111,111,308,111,111,111,111
DC.W 0,0,0,0,0,0,0,0,0,0,0,0
DC.W 0,0,0,0,0,0,0,0,0,0,0,0
DC.W 0,0,0,0,0,0,0,0,0,0,0,0
EVEN
VC1A ADDQ.W #1,SYSV30
CMPI.W #320,SYSV63
BCS VC1END
CMPI.W #320,SYSV62
BCS VC1END
JSR AMP3A
TST.W SYSV10
BEQ VC1END
MOVE.L #ADJPOS,A1
MOVE.W #32,(A1)
MOVE.W #80,2(A1)
JSR M3A
TST.W 4(A2)
BNE VC1END
RTS
VC1END CLR.L D1
MOVE.W SYSV62,D1
BSR VC1AA
MOVE.L #VCPR19,A6
MOVE.B D2,2(A6)
MOVE.B D3,3(A6)
CLR.L D1
MOVE.W SYSV63,D1
BSR VC1AA
MOVE.L #VCPR20,A6
MOVE.B D2,2(A6)
MOVE.B D3,3(A6)
MOVE.W SYSV62,D2
MOVE.W SYSV63,D3
CMP.W D2,D3
BCS VC1PLVCT
SUB.W D2,D3
CMPI.W #118,D3
BCC VC1DGV
CMPI.W #59,D3
BCC VC1SGV
MOVE.L #VCPR9,A1
BRA VC1VCPR
VC1SGV MOVE.L #VCPR11,A1
BRA VC1VCPR
VC1DGV MOVE.L #VCPR13,A1
BRA VC1VCPR
VC1PLVCT SUB.W D3,D2
CMPI.W #118,D2
BCC VC1DAV
CMPI.W #59,D2
BCC VC1SAV
MOVE.L #VCPR8,A1
BRA VC1VCPR
VC1SAV MOVE.L #VCPR10,A1
BRA VC1VCPR
VC1DAV MOVE.L #VCPR12,A1
VC1VCPR BSR VC2A
VC1RS1 JSR N503A
CMPI.W #89,D0
BNE VC1RS1
CLR.L SYSV1
JSR N804A
JSR N823A
RTS
VC1AA MULU #100,D1
DIVU #840,D1
MOVE.W D1,D2
CLR.L D1
MOVE.W D2,D1
DIVU #10,D1
MOVE.W D1,D2
SWAP D1
MOVE.W D1,D3
ADD.W #48,D2
ADD.W #48,D3
RTS
VC2A MOVE.L #VCPR3,A2
BSR VC2AA
MOVE.W #2,D7
MOVE.L #VCPR7,A2
MOVE.W #2,SYSV8
MOVE.W #6,SYSV9
VC2RS1 JSR NN5A
BSR VC2AA
ADDQ.W #1,SYSV8
DBRA D7,VC2RS1
MOVE.L #VCPR2,A2
BSR VC2AA
MOVE.L #VCPR5,A2
BSR VC2AA
MOVE.W #3,SYSV8
MOVE.W #7,SYSV9
JSR NN5A
MOVE.L A1,A2
BSR VC2AA
MOVE.L #VCPR3,A2
BSR VC2AA
MOVE.W #10,D7
MOVE.L #VCPR7,A2
MOVE.W #9,SYSV8
MOVE.W #6,SYSV9
VC2RS2 JSR NN5A
BSR VC2AA
ADDQ.W #1,SYSV8
DBRA D7,VC2RS2
MOVE.L #VCPR1,A2
BSR VC2AA
MOVE.L #VCPR6,A2
BSR VC2AA
MOVE.W #11,SYSV8
MOVE.W #8,SYSV9
JSR NN5A
MOVE.L #VCPR14,A2
BSR VC2AA
MOVE.W #14,SYSV8
MOVE.W #10,SYSV9
JSR NN5A
MOVE.L #VCPR15,A2
BSR VC2AA
MOVE.W #15,SYSV8
MOVE.W #10,SYSV9
JSR NN5A
MOVE.L #VCPR17,A2
BSR VC2AA
MOVE.W #14,SYSV8
MOVE.W #22,SYSV9
JSR NN5A
MOVE.L #VCPR16,A2
BSR VC2AA
MOVE.W #15,SYSV8
JSR NN5A
MOVE.L #VCPR17,A2
BSR VC2AA
MOVE.W #17,SYSV8
MOVE.W #11,SYSV9
JSR NN5A
MOVE.L #VCPR19,A2
BSR VC2AA
MOVE.W #23,SYSV9
JSR NN5A
MOVE.L #VCPR20,A2
BSR VC2AA
MOVE.W #23,SYSV8
MOVE.W #5,SYSV9
JSR NN5A
MOVE.L #VCPR18,A2
BSR VC2AA
RTS
VC2AA MOVEM.L D0-D7/A0-A6,-(SP)
MOVE.L A2,-(SP)
MOVE.W #9,-(SP)
TRAP #1
ADDQ.L #6,SP
MOVEM.L (SP)+,D0-D7/A0-A6
RTS
VCPR1 DC.B 27,99,43,0
VCPR2 DC.B 27,99,32,0
VCPR3 DC.B 27,99,38,0
VCPR4 DC.B 27,99,41,0
VCPR5 DC.B 27,98,41,0
VCPR6 DC.B 27,98,32,0
VCPR7 DC.B 32,32,32,32,32,32,32,32,32,32,32,32,32,32
DC.B 32,32,32,32,32,32,32,32,32,32,32,32,32,32,0
VCPR8 DC.B 'MARGINAL ALLIED VICTORY',0
VCPR9 DC.B 'MARGINAL GERMAN VICTORY',0
VCPR10 DC.B 'SUBSTANTIAL ALLIED VICTORY',0
VCPR11 DC.B 'SUBSTANTIAL GERMAN VICTORY',0
VCPR12 DC.B 'DECISIVE ALLIED VICTORY',0
VCPR13 DC.B 'DECISIVE GERMAN VICTORY',0
VCPR14 DC.B ' CURRENT EFFECTIVENESS ',0
VCPR15 DC.B ' ALLIED ',0
VCPR16 DC.B ' GERMAN ',0
VCPR17 DC.B ' ARMY ',0
VCPR18 DC.B ' TO CONTINUE THIS GAME PRESS Y ',0
VCPR19 DC.B 32,32,32,32,37,32,0
VCPR20 DC.B 32,32,32,32,37,32,0
EVEN
LOADGAME JSR N823A
JSR NPR29A
JSR NPR28A
LGRS1 JSR N503A
CMPI.W #76,D0
BEQ LGLN1
SWAP D0
CMPI.W #$1C,D0
BEQ LGRET
BRA LGRS1
LGLN1 BSR LOADGA
JSR N823A
LGRET RTS
LOADGA MOVE.W #2,-(SP)
PEA SAVE1
MOVE.W #$3D,-(SP)
TRAP #1
ADD.L #8,SP
TST.L D0
BMI ERROR
MOVE.W D0,HANDLE
PEA DISFILE
MOVE.L #10000,-(SP)
MOVE.W HANDLE,-(SP)
MOVE.W #$3F,-(SP)
TRAP #1
ADD.L #12,SP
TST.L D0
BMI ERROR
CMPI.L #10000,D0
BNE ERROR
BSR CLOSEFIL
MOVE.W #2,-(SP)
PEA SAVE2
MOVE.W #$3D,-(SP)
TRAP #1
ADD.L #8,SP
TST.L D0
BMI ERROR
MOVE.W D0,HANDLE
PEA ARMYFILE
MOVE.L #3780,-(SP)
MOVE.W HANDLE,-(SP)
MOVE.W #$3F,-(SP)
TRAP #1
ADD.L #12,SP
TST.L D0
BMI ERROR
CMPI.L #3780,D0
BNE ERROR
BSR CLOSEFIL
MOVE.W #2,-(SP)
PEA SAVE3
MOVE.W #$3D,-(SP)
TRAP #1
ADD.L #8,SP
TST.L D0
BMI ERROR
MOVE.W D0,HANDLE
PEA MAPDATA
MOVE.L #5600,-(SP)
MOVE.W HANDLE,-(SP)
MOVE.W #$3F,-(SP)
TRAP #1
ADD.L #12,SP
TST.L D0
BMI ERROR
CMPI.L #5600,D0
BNE ERROR
BSR CLOSEFIL
MOVE.W #2,-(SP)
PEA SAVE4
MOVE.W #$3D,-(SP)
TRAP #1
ADD.L #8,SP
TST.L D0
BMI ERROR
MOVE.W D0,HANDLE
PEA SAVEG4
MOVE.L #1000,-(SP)
MOVE.W HANDLE,-(SP)
MOVE.W #$3F,-(SP)
TRAP #1
ADD.L #12,SP
TST.L D0
BMI ERROR
CMPI.L #1000,D0
BNE ERROR
BSR CLOSEFIL
MOVE.L #SAVEG4,A6
MOVE.L #HQTERR,A5
MOVE.W #13,D7
LOADGRS1 MOVE.L (A6)+,(A5)+
DBRA D7,LOADGRS1
MOVE.L #REINF1,A5
MOVE.W #29,D7
LOADGRS2 MOVE.L (A6)+,(A5)+
DBRA D7,LOADGRS2
MOVE.L #LANDBECH,A5
MOVE.W #47,D7
LOADGRS3 MOVE.L (A6)+,(A5)+
DBRA D7,LOADGRS3
MOVE.L #UNITTERR,A5
MOVE.W #83,D7
LOADGRS4 MOVE.L (A6)+,(A5)+
DBRA D7,LOADGRS4
MOVE.L #SYSV30,A5
MOVE.W (A6)+,(A5)
RTS
SAVEGAME JSR N823A
JSR NPR27A
SGRS1 JSR N503A
CMPI.W #83,D0
BEQ SGLN1
SWAP D0
CMPI.W #$1C,D0
BEQ SGRET
BRA SGRS1
SGLN1 BSR SAVEGA
JSR N823A
SGRET RTS
SAVEGA MOVE.W #0,-(SP)
PEA SAVE1
MOVE.W #$3C,-(SP)
TRAP #1
ADD.L #8,SP
TST.L D0
BMI ERROR
MOVE.W D0,HANDLE
PEA DISFILE
MOVE.L #10000,-(SP)
MOVE.W HANDLE,-(SP)
MOVE.W #$40,-(SP)
TRAP #1
ADD.L #12,SP
TST.L D0
BMI ERROR
BSR CLOSEFIL
MOVE.W #0,-(SP)
PEA SAVE2
MOVE.W #$3C,-(SP)
TRAP #1
ADD.L #8,SP
TST.L D0
BMI ERROR
MOVE.W D0,HANDLE
PEA ARMYFILE
MOVE.L #3780,-(SP)
MOVE.W HANDLE,-(SP)
MOVE.W #$40,-(SP)
TRAP #1
ADD.L #12,SP
TST.L D0
BMI ERROR
BSR CLOSEFIL
MOVE.W #0,-(SP)
PEA SAVE3
MOVE.W #$3C,-(SP)
TRAP #1
ADD.L #8,SP
TST.L D0
BMI ERROR
MOVE.W D0,HANDLE
PEA MAPDATA
MOVE.L #5600,-(SP)
MOVE.W HANDLE,-(SP)
MOVE.W #$40,-(SP)
TRAP #1
ADD.L #12,SP
TST.L D0
BMI ERROR
BSR CLOSEFIL
MOVE.L #SAVEG4,A6
MOVE.L #HQTERR,A5
MOVE.W #13,D7
SAVEGRS1 MOVE.L (A5)+,(A6)+
DBRA D7,SAVEGRS1
MOVE.L #REINF1,A5
MOVE.W #29,D7
SAVEGRS2 MOVE.L (A5)+,(A6)+
DBRA D7,SAVEGRS2
MOVE.L #LANDBECH,A5
MOVE.W #47,D7
SAVEGRS3 MOVE.L (A5)+,(A6)+
DBRA D7,SAVEGRS3
MOVE.L #UNITTERR,A5
MOVE.W #83,D7
SAVEGRS4 MOVE.L (A5)+,(A6)+
DBRA D7,SAVEGRS4
MOVE.L #SYSV30,A5
MOVE.W (A5),(A6)+
MOVE.W #0,-(SP)
PEA SAVE4
MOVE.W #$3C,-(SP)
TRAP #1
ADD.L #8,SP
TST.L D0
BMI ERROR
MOVE.W D0,HANDLE
PEA SAVEG4
MOVE.L #1000,-(SP)
MOVE.W HANDLE,-(SP)
MOVE.W #$40,-(SP)
TRAP #1
ADD.L #12,SP
TST.L D0
BMI ERROR
BSR CLOSEFIL
RTS
SAVE1 DC.B 'SAVE1.DAT',0
SAVE2 DC.B 'SAVE2.DAT',0
SAVE3 DC.B 'SAVE3.DAT',0
SAVE4 DC.B 'SAVE4.DAT',0
SAVEG4 DSBSS.B 1000
EVEN
CURCOLA MOVE.W #271,D1
JSR NSC6B
MOVE.L #XCURCOL1,A1
BSR CCCA
MOVE.W #272,D1
JSR NSC6B
MOVE.L #XCURCOL2,A1
BSR CCCA
MOVE.W #273,D1
JSR NSC6B
MOVE.L #RCURCOL1,A1
BSR CCCA
MOVE.W #274,D1
JSR NSC6B
MOVE.L #RCURCOL2,A1
BSR CCCA
MOVE.W #275,D1
JSR NSC6B
MOVE.L #LCURCOL1,A1
BSR CCCA
MOVE.W #276,D1
JSR NSC6B
MOVE.L #LCURCOL2,A1
BSR CCCA
MOVE.W #277,D1
JSR NSC6B
MOVE.L #XUNITCOL,A1
BSR CCCA
MOVE.W #278,D1
JSR NSC6B
MOVE.L #RUNITCOL,A1
BSR CCCA
MOVE.W #279,D1
JSR NSC6B
MOVE.L #LUNITCOL,A1
BSR CCCA
JSR CURSORCB
RTS
CCCA BSR IDCOLA
CLR.L D5
MOVE.W #8,D3
CCCRS4 MOVE.W #1,D7
MOVE.W #128,D5
CCCRS3 MOVE.W D5,D4
NOT.W D4
MOVE.W 2(A1),D6
CCCRS1 CMPI.W #2,4(A1)
BEQ CCCPAPER
MOVE.W D1,D0
BRA CCCSETP
CCCPAPER MOVE.W D2,D0
CCCSETP BSR SETPIXA
ADDQ.W #1,D7
CMPI.W #9,D7
BEQ CCCRSD5
DIVU #2,D5
CCCRS2 SUBQ.W #1,D6
BEQ CCCNXREC
MOVE.W D5,D4
NOT.W D4
BRA CCCRS1
CCCRSD5 MOVE.W #128,D5
BRA CCCRS2
CCCNXREC ADDQ.L #6,A1
TST.W (A1)
BEQ CCCNXSCN
BSR IDPIXA
BRA CCCRS3
CCCNXSCN ADDQ.L #8,A2
ADDQ.L #2,A1
SUBQ.W #1,D3
BNE CCCRS4
RTS
IDPIXA MOVE.W #1,D5
CMPI.W #1,(A1)
BEQ IDSET128
CMPI.W #9,(A1)
BEQ IDSET128
CMPI.W #2,(A1)
BEQ IDSET64
CMPI.W #10,(A1)
BEQ IDSET64
CMPI.W #3,(A1)
BEQ IDSET32
CMPI.W #11,(A1)
BEQ IDSET32
CMPI.W #4,(A1)
BEQ IDSET16
CMPI.W #12,(A1)
BEQ IDSET16
CMPI.W #5,(A1)
BEQ IDSET8
CMPI.W #13,(A1)
BEQ IDSET8
CMPI.W #6,(A1)
BEQ IDSET4
CMPI.W #14,(A1)
BEQ IDSET4
CMPI.W #7,(A1)
BEQ IDSET2
CMPI.W #15,(A1)
BEQ IDSET2
RTS
IDSET128 LSL.W #1,D5
IDSET64 LSL.W #1,D5
IDSET32 LSL.W #1,D5
IDSET16 LSL.W #1,D5
IDSET8 LSL.W #1,D5
IDSET4 LSL.W #1,D5
IDSET2 LSL.W #1,D5
RTS
SETPIXA CMPI.W #9,D7
BCC SETPIXOD
CMPI.W #8,D0
BCS SETPIX1
OR.B D5,(A2)
SUBQ.W #8,D0
BRA SETPIX1A
SETPIX1 AND.B D4,(A2)
SETPIX1A CMPI.W #4,D0
BCS SETPIX2
OR.B D5,2(A2)
SUBQ.W #4,D0
BRA SETPIX2A
SETPIX2 AND.B D4,2(A2)
SETPIX2A CMPI.W #2,D0
BCS SETPIX3
OR.B D5,4(A2)
SUBQ.W #2,D0
BRA SETPIX3A
SETPIX3 AND.B D4,4(A2)
SETPIX3A CMPI.W #1,D0
BCS SETPIX4
OR.B D5,6(A2)
SUBQ.W #1,D0
RTS
SETPIX4 AND.B D4,6(A2)
RTS
SETPIXOD CMPI.W #8,D0
BCS SETPIX5
OR.B D5,1(A2)
SUBQ.W #8,D0
BRA SETPIX5A
SETPIX5 AND.B D4,1(A2)
SETPIX5A CMPI.W #4,D0
BCS SETPIX6
OR.B D5,3(A2)
SUBQ.W #4,D0
BRA SETPIX6A
SETPIX6 AND.B D4,3(A2)
SETPIX6A CMPI.W #2,D0
BCS SETPIX7
OR.B D5,5(A2)
SUBQ.W #2,D0
BRA SETPIX7A
SETPIX7 AND.B D4,5(A2)
SETPIX7A CMPI.W #1,D0
BCS SETPIX8
OR.B D5,7(A2)
SUBQ.W #1,D0
RTS
SETPIX8 AND.B D4,7(A2)
RTS
IDCOLA CMPI.W #1,SYSV18
BNE IDCOLLN1
MOVE.W #0,D1
MOVE.W #7,D2
RTS
IDCOLLN1 CMPI.W #2,SYSV18
BNE IDCOLLN2
MOVE.W #9,D1
MOVE.W #1,D2
RTS
IDCOLLN2 CMPI.W #3,SYSV18
BNE IDCOLLN3
MOVE.W #9,D1
MOVE.W #11,D2
RTS
IDCOLLN3 CMPI.W #4,SYSV18
BNE IDCOLLN4
MOVE.W #9,D1
MOVE.W #6,D2
RTS
IDCOLLN4 CMPI.W #5,SYSV18
BNE IDCOLLN5
MOVE.W #9,D1
MOVE.W #12,D2
RTS
IDCOLLN5 CMPI.W #6,SYSV18
BNE IDCOLLN6
MOVE.W #0,D1
MOVE.W #9,D2
RTS
IDCOLLN6 MOVE.W #9,D1
MOVE.W #0,D2
RTS
XCURCOL1 DC.W 1,16,1,0
DC.W 1,1,1,2,14,2,16,1,1,0
DC.W 1,1,1,2,14,2,16,1,1,0
DC.W 1,1,1,2,14,2,16,1,1,0
DC.W 1,1,1,2,3,2,5,1,1,6,6,2,12,1,1,13,3,2,16,1,1,0
DC.W 1,1,1,2,3,2,5,2,1,7,4,2,11,2,1,13,3,2,16,1,1,0
DC.W 1,1,1,2,4,2,6,2,1,8,2,2,10,2,1,12,4,2,16,1,1,0
DC.W 1,1,1,2,5,2,7,4,1,11,5,2,16,1,1,0
XCURCOL2 DC.W 1,1,1,2,5,2,7,4,1,11,5,2,16,1,1,0
DC.W 1,1,1,2,4,2,6,2,1,8,2,2,10,2,1,12,4,2,16,1,1,0
DC.W 1,1,1,2,3,2,5,2,1,7,4,2,11,2,1,13,3,2,16,1,1,0
DC.W 1,1,1,2,3,2,5,1,1,6,6,2,12,1,1,13,3,2,16,1,1,0
DC.W 1,1,1,2,14,2,16,1,1,0
DC.W 1,1,1,2,14,2,16,1,1,0
DC.W 1,1,1,2,14,2,16,1,1,0
DC.W 1,16,1,0
RCURCOL1 DC.W 1,16,1,0
DC.W 1,1,1,2,14,2,16,1,1,0
DC.W 1,1,1,2,14,2,16,1,1,0
DC.W 1,1,1,2,14,2,16,1,1,0
DC.W 1,1,1,2,4,2,6,5,1,11,5,2,16,1,1,0
DC.W 1,1,1,2,4,2,6,6,1,12,4,2,16,1,1,0
DC.W 1,1,1,2,4,2,6,2,1,8,2,2,10,2,1,12,4,2,16,1,1,0
DC.W 1,1,1,2,4,2,6,5,1,11,5,2,16,1,1,0
RCURCOL2 DC.W 1,1,1,2,4,2,6,5,1,11,5,2,16,1,1,0
DC.W 1,1,1,2,4,2,6,2,1,8,1,2,9,3,1,12,4,2,16,1,1,0
DC.W 1,1,1,2,4,2,6,2,1,8,2,2,10,2,1,12,4,2,16,1,1,0
DC.W 1,1,1,2,4,2,6,2,1,8,3,2,11,1,1,12,4,2,16,1,1,0
DC.W 1,1,1,2,14,2,16,1,1,0
DC.W 1,1,1,2,14,2,16,1,1,0
DC.W 1,1,1,2,14,2,16,1,1,0
DC.W 1,16,1,0
LCURCOL1 DC.W 1,16,1,0
DC.W 1,1,1,2,14,2,16,1,1,0
DC.W 1,1,1,2,14,2,16,1,1,0
DC.W 1,1,1,2,14,2,16,1,1,0
DC.W 1,1,1,2,4,2,6,2,1,8,8,2,16,1,1,0
DC.W 1,1,1,2,4,2,6,2,1,8,8,2,16,1,1,0
DC.W 1,1,1,2,4,2,6,2,1,8,8,2,16,1,1,0
DC.W 1,1,1,2,4,2,6,2,1,8,8,2,16,1,1,0
LCURCOL2 DC.W 1,1,1,2,4,2,6,2,1,8,8,2,16,1,1,0
DC.W 1,1,1,2,4,2,6,2,1,8,8,2,16,1,1,0
DC.W 1,1,1,2,4,2,6,6,1,12,4,2,16,1,1,0
DC.W 1,1,1,2,4,2,6,6,1,12,4,2,16,1,1,0
DC.W 1,1,1,2,14,2,16,1,1,0
DC.W 1,1,1,2,14,2,16,1,1,0
DC.W 1,1,1,2,14,2,16,1,1,0
DC.W 1,16,1,0
XUNITCOL DC.W 1,16,1,0
DC.W 1,1,1,2,14,2,16,1,1,0
DC.W 1,1,1,2,5,2,7,1,1,8,2,2,10,1,1,11,5,2,16,1,1,0
DC.W 1,1,1,2,6,2,8,2,1,10,6,2,16,1,1,0
DC.W 1,1,1,2,6,2,8,2,1,10,6,2,16,1,1,0
DC.W 1,1,1,2,5,2,7,1,1,8,2,2,10,1,1,11,5,2,16,1,1,0
DC.W 1,1,1,2,14,2,16,1,1,0
DC.W 1,16,1,0
RUNITCOL DC.W 1,16,1,0
DC.W 1,1,1,2,14,2,16,1,1,0
DC.W 1,1,1,2,5,2,7,3,1,10,6,2,16,1,1,0
DC.W 1,1,1,2,5,2,7,1,1,8,2,2,10,1,1,11,5,2,16,1,1,0
DC.W 1,1,1,2,5,2,7,3,1,10,6,2,16,1,1,0
DC.W 1,1,1,2,5,2,7,1,1,8,2,2,10,1,1,11,5,2,16,1,1,0
DC.W 1,1,1,2,14,2,16,1,1,0
DC.W 1,16,1,0
LUNITCOL DC.W 1,16,1,0
DC.W 1,1,1,2,14,2,16,1,1,0
DC.W 1,1,1,2,5,2,7,1,1,8,8,2,16,1,1,0
DC.W 1,1,1,2,5,2,7,1,1,8,8,2,16,1,1,0
DC.W 1,1,1,2,5,2,7,1,1,8,8,2,16,1,1,0
DC.W 1,1,1,2,5,2,7,4,1,11,5,2,16,1,1,0
DC.W 1,1,1,2,14,2,16,1,1,0
DC.W 1,16,1,0
EVEN
MVAWA JSR N823A
JSR NPR23A
MVAWRS1 JSR N503A
CMPI.W #81,D0
BNE MVAWCONT
CLR.L SYSV1
JSR N804A
RTS
MVAWCONT CMPI.W #65,D0
BEQ MVAWLNA
CMPI.W #71,D0
BEQ MVAWLNG
BRA MVAWRS1
MVAWLNA CLR.W SYSV27
JSR N823A
JSR N824A
MVAWRS2 JSR N503A
MOVE.W D0,SYSV23
CMPI.W #49,D0
BCS MVAWRS2
CMPI.W #69,D0
BEQ MVAWA
CMPI.W #56,D0
BCC MVAWRS2
JSR N823A
MOVE.W SYSV23,D4
SUBI.W #48,D4
MOVE.W D4,SYSV97
JSR NU4B
BRA MVAWCOMN
MVAWLNG MOVE.W #1,SYSV27
JSR N823A
JSR N824BA
MVAWRS3 JSR N503A
MOVE.W D0,SYSV23
CMPI.W #49,D0
BCS MVAWRS3
CMPI.W #69,D0
BEQ MVAWA
CMPI.W #56,D0
BCC MVAWRS3
JSR N823A
MOVE.W SYSV23,D4
SUBI.W #41,D4
MOVE.W D4,SYSV97
JSR NU4B
MVAWCOMN MOVE.L SYSV11,A6
MOVE.L 4(A6),SYSV6
MOVE.L A6,-(SP)
JSR N813A
MOVE.L (SP)+,A6
MVAWRS MOVE.W #5,D6
ADD.L #30,A6
MVAWRS4 MOVEM.L D6/A6,-(SP)
CLR.W SYSV123
TST.W 20(A6)
BNE MVAWNXU
CMPI.W #43,(A6)
BCS MVAWPLU
TST.W 22(A6)
BEQ MVAWNXU
MVAWPLU MOVE.L A6,SYSV5
JSR M7A
TST.W SYSV46
BEQ MVAWNXU
MOVE.W SYSV46,CIND
JSR M10A
JSR M8A
MOVE.L SYSV37,CMOVE
MOVE.L SYSV5,A6
MOVE.L 12(A6),D1
CMP.L SYSV37,D1
BNE MVAWM7A
BSR MVAW1AA
TST.W SYSV43
BNE MVAWNXU
BSR MVAW2AA
TST.W SYSV43
BNE MVAWNXU
BSR MW1A
BRA MVAWNXU
MVAWM7A MOVE.L #SYSV46,A5
MOVE.L SYSV5,A6
MOVE.L #CMOVE,A4
MOVE.W (A4),D1
MOVE.W 2(A4),D2
JSR M6B
MOVE.W SYSV46,NIND
JSR M10A
MOVE.L SYSV5,A6
MOVE.L #SYSV37,A5
MOVE.L CMOVE,(A5)
BSR MVAW1AA
TST.W SYSV43
BNE MVAWNXU
BSR MVAW2AA
TST.W SYSV43
BNE MVAWNXU
JSR M8B
MOVE.L SYSV37,NMOVE
BSR MW2A
MOVE.L SYSV5,A6
CMPI.W #43,(A6)
BCS MVAWNCPU
ADDQ.W #1,SYSV123
CMPI.W #4,SYSV123
BCS MVAWNCPU
BRA MVAWNXU
MVAWNCPU MOVE.L 12(A6),D1
CMP.L SYSV37,D1
BNE MVAWCON
BSR MVAW1AA
TST.W SYSV43
BNE MVAWNXU
BSR MVAW2AA
TST.W SYSV43
BNE MVAWNXU
BSR MW3A
BRA MVAWNXU
MVAWCON MOVE.W NIND,CIND
MOVE.L NMOVE,CMOVE
BRA MVAWM7A
MVAWNXU MOVEM.L (SP)+,D6/A6
ADD.L #40,A6
DBRA D6,MVAWRS4
JSR NPR25A
JSR N503A
CMPI.W #81,D0
BEQ MVAWQUIT
JSR NSC1AA
CMPI.W #81,D0
BEQ MVAWQUIT
MOVE.L SYSV11,A6
BRA MVAWRS
MVAWQUIT TST.W SYSV27
BEQ MVAWLNA
BRA MVAWLNG
MVAW1AA MOVE.L SYSV11,SYSV124
MOVEM.L D0-D7/A0-A6,-(SP)
JSR M25B
MOVEM.L (SP)+,D0-D7/A0-A6
MOVE.L SYSV124,SYSV11
CMPI.W #100,SYSV54
BEQ MVAW1AST
CLR.W SYSV43
RTS
MVAW1AST MOVE.W #1,SYSV43
RTS
MVAW2AA MOVEM.L D0-D7/A0-A6,-(SP)
JSR M9A
MOVEM.L (SP)+,D0-D7/A0-A6
RTS
MW1A TST.W SYSV27
BEQ MW1LN1
MOVE.W #13,D0
BRA MW1LN2
MW1LN1 MOVE.W #9,D0
MW1LN2 MOVE.W CIND,D1
MOVE.L CMOVE,SYSV6
BSR MW4A
BSR MW5A
RTS
MW2A TST.W SYSV27
BEQ MW2LN1
MOVE.W #13,D0
BRA MW2LN2
MW2LN1 MOVE.W #9,D0
MW2LN2 MOVE.W CIND,D1
MOVE.L CMOVE,SYSV6
CMP.W NIND,D1
BNE MW2LN3
CMPI.W #1,D1
BNE MW2LN4
MOVE.W #3,D1
MOVE.W #4,D2
BRA MW2SETU
MW2LN4 CMPI.W #2,D1
BNE MW2LN5
MOVE.W #15,D1
MOVE.W #16,D2
BRA MW2SETU
MW2LN5 CMPI.W #3,D1
BNE MW2LN6
MOVE.W #7,D1
MOVE.W #8,D2
BRA MW2SETU
MW2LN6 CMPI.W #4,D1
BNE MW2LN7
MOVE.W #11,D1
MOVE.W #12,D2
BRA MW2SETU
MW2LN7 CMPI.W #5,D1
BNE MW2LN8
MOVE.W #1,D1
MOVE.W #2,D2
BRA MW2SETU
MW2LN8 CMPI.W #6,D1
BNE MW2LN9
MOVE.W #9,D1
MOVE.W #10,D2
BRA MW2SETU
MW2LN9 CMPI.W #7,D1
BNE MW2LN10
MOVE.W #5,D1
MOVE.W #6,D2
BRA MW2SETU
MW2LN10 MOVE.W #13,D1
MOVE.W #14,D2
BRA MW2SETU
MW2LN3 CMPI.W #1,D1
BNE MW2LN11
CMPI.W #2,NIND
BNE MW2LN12
MOVE.W #15,D1
MOVE.W #4,D2
BRA MW2SETU
MW2LN12 MOVE.W #13,D1
MOVE.W #4,D2
BRA MW2SETU
MW2LN11 CMPI.W #2,D1
BNE MW2LN13
CMPI.W #1,NIND
BNE MW2LN14
MOVE.W #3,D1
MOVE.W #16,D2
BRA MW2SETU
MW2LN14 MOVE.W #39,D1
MOVE.W #40,D2
BRA MW2SETU
MW2LN13 CMPI.W #3,D1
BNE MW2LN15
CMPI.W #2,NIND
BNE MW2LN16
MOVE.W #21,D1
MOVE.W #22,D2
BRA MW2SETU
MW2LN16 MOVE.W #23,D1
MOVE.W #24,D2
BRA MW2SETU
MW2LN15 CMPI.W #4,D1
BNE MW2LN17
CMPI.W #3,NIND
BNE MW2LN18
MOVE.W #35,D1
MOVE.W #36,D2
BRA MW2SETU
MW2LN18 MOVE.W #11,D1
MOVE.W #2,D2
BRA MW2SETU
MW2LN17 CMPI.W #5,D1
BNE MW2LN19
CMPI.W #4,NIND
BNE MW2LN20
MOVE.W #1,D1
MOVE.W #12,D2
BRA MW2SETU
MW2LN20 MOVE.W #1,D1
MOVE.W #10,D2
BRA MW2SETU
MW2LN19 CMPI.W #6,D1
BNE MW2LN21
CMPI.W #5,NIND
BNE MW2LN22
MOVE.W #9,D1
MOVE.W #2,D2
BRA MW2SETU
MW2LN22 MOVE.W #33,D1
MOVE.W #34,D2
BRA MW2SETU
MW2LN21 CMPI.W #7,D1
BNE MW2LN23
CMPI.W #6,NIND
BNE MW2LN24
MOVE.W #19,D1
MOVE.W #20,D2
BRA MW2SETU
MW2LN24 MOVE.W #17,D1
MOVE.W #18,D2
BRA MW2SETU
MW2LN23 CMPI.W #1,NIND
BNE MW2LN25
MOVE.W #3,D1
MOVE.W #14,D2
BRA MW2SETU
MW2LN25 MOVE.W #37,D1
MOVE.W #38,D2
MW2SETU BSR MW5A
RTS
MW3A TST.W SYSV27
BEQ MW3LN1
MOVE.W #13,D0
BRA MW3LN2
MW3LN1 MOVE.W #9,D0
MW3LN2 MOVE.W NIND,D1
MOVE.L NMOVE,SYSV6
BSR MW4A
BSR MW5A
RTS
MW4A CMPI.W #1,D1
BNE MW4LN1
CLR.W D1
MOVE.W #3,D2
RTS
MW4LN1 CMPI.W #2,D1
BNE MW4LN2
CLR.W D1
MOVE.W #31,D2
RTS
MW4LN2 CMPI.W #3,D1
BNE MW4LN3
MOVE.W #27,D1
MOVE.W #28,D2
RTS
MW4LN3 CMPI.W #4,D1
BNE MW4LN4
MOVE.W #32,D1
CLR.W D2
RTS
MW4LN4 CMPI.W #5,D1
BNE MW4LN5
MOVE.W #2,D1
CLR.W D2
RTS
MW4LN5 CMPI.W #6,D1
BNE MW4LN6
MOVE.W #29,D1
CLR.W D2
RTS
MW4LN6 CMPI.W #7,D1
BNE MW4LN7
MOVE.W #25,D1
MOVE.W #26,D2
RTS
MW4LN7 CLR.W D1
MOVE.W #30,D2
RTS
MW5A MOVE.W SYSV6,D3
MOVE.W SYSV7,D4
CMP.W SYSV1,D3
BCS MW5RET
MOVE.W SYSV1,D5
ADDI.W #22,D5
CMP.W D5,D3
BCC MW5RET
CMP.W SYSV2,D4
BCS MW5RET
MOVE.W SYSV2,D5
ADDI.W #40,D5
CMP.W D5,D4
BCS MW5LN1
MW5RET RTS
MW5LN1 TST.W D1
BEQ MW5LN2A
JSR N806A
MOVE.L SYSV16,A2
BSR MW5AA
MW5LN2 MOVE.W D2,D1
TST.W D1
BNE MW5LN3
RTS
MW5LN2A JSR N806A
BRA MW5LN2
MW5LN3 MOVE.L SYSV17,A2
BSR MW5AA
RTS
MW5AA MOVE.L #MVARD1,A1
MW5ARS1 SUBQ.W #1,D1
BEQ MW5ALN1
ADD.L #64,A1
BRA MW5ARS1
MW5ALN1 CLR.L D5
MOVE.W #8,D3
MW5ARS5 MOVE.W (A1),D7
MW5ARS4 TST.W (A1)
BEQ MW5ANSCN
JSR IDPIXA
MOVE.W D5,D4
NOT.W D4
MOVE.W 2(A1),D6
MW5ARS2 MOVE.L D0,-(SP)
BSR SETPIXA
MOVE.L (SP)+,D0
ADDQ.W #1,D7
CMPI.W #9,D7
BEQ MW5ARSD5
DIVU #2,D5
MW5ARS3 SUBQ.W #1,D6
BEQ MW5ANXR
MOVE.W D5,D4
NOT.W D4
BRA MW5ARS2
MW5ARSD5 MOVE.W #128,D5
BRA MW5ARS3
MW5ANXR ADDQ.L #4,A1
BRA MW5ARS5
MW5ANSCN ADD.L #160,A2
ADDQ.L #2,A1
SUBQ.W #1,D3
BNE MW5ARS5
RTS
CIND DS.W 1
CMOVE DS.W 2
NIND DS.W 1
NMOVE DS.W 2
MVARD1 DC.W 0
DC.W 0
DC.W 7,4,0
DC.W 7,4,0
DC.W 7,4,0
DC.W 7,4,0
DC.W 7,4,0
DC.W 7,4,0
DC.W 0,0,0,0,0,0,0,0,0,0,0,0
MVARD2 DC.W 7,4,0
DC.W 7,4,0
DC.W 5,8,0
DC.W 6,6,0
DC.W 7,4,0
DC.W 8,2,0
DC.W 0
DC.W 0
DC.W 0,0,0,0,0,0,0,0,0,0,0,0
MVARD3 DC.W 0
DC.W 0
DC.W 8,2,0
DC.W 7,4,0
DC.W 6,6,0
DC.W 5,8,0
DC.W 7,4,0
DC.W 7,4,0
DC.W 0,0,0,0,0,0,0,0,0,0,0,0
MVARD4 DC.W 7,4,0
DC.W 7,4,0
DC.W 7,4,0
DC.W 7,4,0
DC.W 7,4,0
DC.W 7,4,0
DC.W 0
DC.W 0
DC.W 0,0,0,0,0,0,0,0,0,0,0,0
MVARD5 DC.W 0
DC.W 0
DC.W 0
DC.W 0
DC.W 6,1,0
DC.W 5,2,0
DC.W 4,11,0
DC.W 3,12,0
DC.W 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
MVARD6 DC.W 3,12,0
DC.W 4,11,0
DC.W 5,2,0
DC.W 6,1,0
DC.W 0
DC.W 0
DC.W 0
DC.W 0
DC.W 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
MVARD7 DC.W 0
DC.W 0
DC.W 0
DC.W 0
DC.W 11,1,0
DC.W 11,2,0
DC.W 3,11,0
DC.W 3,12,0
DC.W 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
MVARD8 DC.W 3,12,0
DC.W 3,11,0
DC.W 11,2,0
DC.W 11,1,0
DC.W 0
DC.W 0
DC.W 0
DC.W 0
DC.W 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
MVARD9 DC.W 0
DC.W 13,1,0
DC.W 12,3,0
DC.W 11,5,0
DC.W 10,5,0
DC.W 9,5,0
DC.W 8,5,0
DC.W 7,5,0
DC.W 0,0,0,0,0,0,0,0,0,0
MVARD10 DC.W 3,1,6,5,0
DC.W 3,7,0
DC.W 3,6,0
DC.W 3,5,0
DC.W 3,5,0
DC.W 3,6,0
DC.W 0
DC.W 0
DC.W 0,0,0,0,0,0,0,0,0,0
MVARD11 DC.W 0
DC.W 4,1,0
DC.W 3,3,0
DC.W 2,5,0
DC.W 3,5,0
DC.W 4,5,0
DC.W 5,5,0
DC.W 6,5,0
DC.W 0,0,0,0,0,0,0,0,0,0
MVARD12 DC.W 7,5,14,1,0
DC.W 8,7,0
DC.W 9,6,0
DC.W 10,5,0
DC.W 10,5,0
DC.W 9,6,0
DC.W 0
DC.W 0
DC.W 0,0,0,0,0,0,0,0,0,0
MVARD13 DC.W 0
DC.W 0
DC.W 3,6,0
DC.W 3,5,0
DC.W 3,5,0
DC.W 3,6,0
DC.W 3,7,0
DC.W 3,1,6,5,0
DC.W 0,0,0,0,0,0,0,0,0,0
MVARD14 DC.W 7,5,0
DC.W 8,5,0
DC.W 9,5,0
DC.W 10,5,0
DC.W 11,5,0
DC.W 12,3,0
DC.W 13,1,0
DC.W 0
DC.W 0,0,0,0,0,0,0,0,0,0
MVARD15 DC.W 0
DC.W 0
DC.W 9,6,0
DC.W 10,5,0
DC.W 10,5,0
DC.W 9,6,0
DC.W 8,7,0
DC.W 7,5,14,1,0
DC.W 0,0,0,0,0,0,0,0,0,0
MVARD16 DC.W 6,5,0
DC.W 5,5,0
DC.W 4,5,0
DC.W 3,5,0
DC.W 2,5,0
DC.W 3,3,0
DC.W 4,1,0
DC.W 0
DC.W 0,0,0,0,0,0,0,0,0,0
MVARD17 DC.W 0
DC.W 0
DC.W 3,6,0
DC.W 3,5,0
DC.W 3,5,0
DC.W 3,6,0
DC.W 3,12,0
DC.W 3,1,6,9,0
DC.W 0,0,0,0,0,0,0,0,0,0
MVARD18 DC.W 7,8,0
DC.W 8,7,0
DC.W 0
DC.W 0
DC.W 0
DC.W 0
DC.W 0
DC.W 0
DC.W 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
MVARD19 DC.W 0
DC.W 0
DC.W 0
DC.W 0
DC.W 0
DC.W 0
DC.W 8,7,0
DC.W 7,8,0
DC.W 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
MVARD20 DC.W 3,1,6,9,0
DC.W 3,12,0
DC.W 3,6,0
DC.W 3,5,0
DC.W 3,5,0
DC.W 3,6,0
DC.W 0
DC.W 0
DC.W 0,0,0,0,0,0,0,0,0,0
MVARD21 DC.W 0
DC.W 0
DC.W 9,6,0
DC.W 10,5,0
DC.W 10,5,0
DC.W 9,6,0
DC.W 3,12,0
DC.W 3,9,14,1,0
DC.W 0,0,0,0,0,0,0,0,0,0
MVARD22 DC.W 3,8,0
DC.W 3,7,0
DC.W 0
DC.W 0
DC.W 0
DC.W 0
DC.W 0
DC.W 0
DC.W 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
MVARD23 DC.W 0
DC.W 0
DC.W 0
DC.W 0
DC.W 0
DC.W 0
DC.W 3,7,0
DC.W 3,8,0
DC.W 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
MVARD24 DC.W 3,9,14,1,0
DC.W 3,12,0
DC.W 9,6,0
DC.W 10,5,0
DC.W 10,5,0
DC.W 9,6,0
DC.W 0
DC.W 0
DC.W 0,0,0,0,0,0,0,0,0,0
MVARD25 DC.W 0
DC.W 0
DC.W 0
DC.W 0
DC.W 14,1,0
DC.W 13,2,0
DC.W 12,5,0
DC.W 11,6,0
DC.W 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
MVARD26 DC.W 11,6,0
DC.W 12,5,0
DC.W 13,2,0
DC.W 14,1,0
DC.W 0
DC.W 0
DC.W 0
DC.W 0
DC.W 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
MVARD27 DC.W 0
DC.W 0
DC.W 0
DC.W 0
DC.W 3,1,0
DC.W 3,2,0
DC.W 1,5,0
DC.W 1,6,0
DC.W 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
MVARD28 DC.W 1,6,0
DC.W 1,5,0
DC.W 3,2,0
DC.W 3,1,0
DC.W 0
DC.W 0
DC.W 0
DC.W 0
DC.W 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
MVARD29 DC.W 11,1,14,1,0
DC.W 11,5,0
DC.W 11,6,0
DC.W 11,5,0
DC.W 11,5,0
DC.W 11,6,0
DC.W 0
DC.W 0
DC.W 0,0,0,0,0,0,0,0,0,0
MVARD30 DC.W 0
DC.W 0
DC.W 11,6,0
DC.W 11,5,0
DC.W 11,5,0
DC.W 11,6,0
DC.W 11,5,0
DC.W 11,1,14,1,0
DC.W 0,0,0,0,0,0,0,0,0,0
MVARD31 DC.W 0
DC.W 0
DC.W 1,6,0
DC.W 2,5,0
DC.W 2,5,0
DC.W 1,6,0
DC.W 2,5,0
DC.W 3,1,6,1,0
DC.W 0,0,0,0,0,0,0,0,0,0
MVARD32 DC.W 3,1,6,1,0
DC.W 2,5,0
DC.W 1,6,0
DC.W 2,5,0
DC.W 2,5,0
DC.W 1,6,0
DC.W 0
DC.W 0
DC.W 0,0,0,0,0,0,0,0,0,0
MVARD33 DC.W 0
DC.W 13,1,0
DC.W 12,3,0
DC.W 11,5,0
DC.W 6,1,10,5,0
DC.W 5,2,9,5,0
DC.W 4,9,0
DC.W 3,9,0
DC.W 0,0,0,0,0,0
MVARD34 DC.W 3,9,0
DC.W 4,6,0
DC.W 5,2,0
DC.W 6,1,0
DC.W 0
DC.W 0
DC.W 0
DC.W 0
DC.W 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
MVARD35 DC.W 0
DC.W 4,1,0
DC.W 3,3,0
DC.W 2,5,0
DC.W 3,5,11,1,0
DC.W 4,5,11,2,0
DC.W 5,9,0
DC.W 6,9,0
DC.W 0,0,0,0,0,0
MVARD36 DC.W 7,8,0
DC.W 8,6,0
DC.W 11,2,0
DC.W 11,1,0
DC.W 0
DC.W 0
DC.W 0
DC.W 0
DC.W 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
MVARD37 DC.W 0
DC.W 0
DC.W 0
DC.W 0
DC.W 6,1,0
DC.W 5,2,0
DC.W 4,6,0
DC.W 3,8,0
DC.W 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
MVARD38 DC.W 3,9,0
DC.W 4,9,0
DC.W 5,2,9,5,0
DC.W 6,1,10,5,0
DC.W 11,5,0
DC.W 12,3,0
DC.W 13,1,0
DC.W 0
DC.W 0,0,0,0,0,0
MVARD39 DC.W 0
DC.W 0
DC.W 0
DC.W 0
DC.W 11,1,0
DC.W 11,2,0
DC.W 8,6,0
DC.W 7,8,0
DC.W 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
MVARD40 DC.W 6,9,0
DC.W 5,9,0
DC.W 4,5,11,2,0
DC.W 3,5,11,1,0
DC.W 2,5,0
DC.W 3,3,0
DC.W 4,1,0
DC.W 0
DC.W 0,0,0,0,0,0(Source: Atarimania)
References#
- C+VG REVIEWS: OVERLORD - Computer + Video Games, Issue 80, June 1988↩︎
- LES BOFS: OVERLORD - ST Magazine, Issue 25, December 1988↩︎
- Club 68000 ad - ST Action, Volume 1, Issue 9, January 1989↩︎