home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
telefisk.org
/
virusCollection.lzx
/
VirusCollectie
/
z
/
ZIB
/
LoadWB-Org.asm
< prev
next >
Wrap
Assembly Source File
|
1989-04-01
|
11KB
|
429 lines
; IRA V1.02 (Sep 6 1993) (c)1993 Tim Ruehsen
ABSEXECBASE EQU $4
EXT_0001 EQU $20283330
SECTION S_0,CODE
SECSTRT_0:
LINK A5,#-64 ;000: 4E55FFC0
MOVEM.L D2-D3/D5-D7/A2-A3/A6,-(A7) ;004: 48E73732
MOVEA #$0004,A0 ;008: 307C0004
MOVEA.L (A0),A2 ;00C: 2450
MOVEA.L A2,A0 ;00E: 204A
MOVEQ #20,D7 ;010: 7E14
MOVE.L A0,48(A7) ;012: 2F480030
LEA LAB_0016(PC),A1 ;016: 43FA021A
MOVEQ #36,D0 ;01A: 7024
MOVEA.L A2,A6 ;01C: 2C4A
JSR -552(A6) ;01E: 4EAEFDD8
MOVEA.L D0,A3 ;022: 2640
MOVEA.L A3,A0 ;024: 204B
MOVE.L A0,44(A7) ;026: 2F48002C
MOVE.L A3,D0 ;02A: 200B
BEQ LAB_0014 ;02C: 670001EA
MOVEQ #15,D0 ;030: 700F
MOVEQ #0,D1 ;032: 7200
LEA -32(A5),A0 ;034: 41EDFFE0
LAB_0000:
MOVE.B D1,(A0)+ ;038: 10C1
DBF D0,LAB_0000 ;03A: 51C8FFFC
LEA LAB_0017(PC),A0 ;03E: 41FA01FE
MOVE.L A0,D1 ;042: 2208
LEA -32(A5),A6 ;044: 4DEDFFE0
MOVE.L A6,D2 ;048: 240E
MOVEQ #0,D3 ;04A: 7600
MOVEA.L A3,A6 ;04C: 2C4B
JSR -798(A6) ;04E: 4EAEFCE2
MOVE.L D0,40(A7) ;052: 2F400028
TST.L D0 ;056: 4A80
BNE.S LAB_0001 ;058: 6610
JSR -132(A6) ;05A: 4EAEFF7C
MOVE.L D0,D1 ;05E: 2200
MOVE.L D3,D2 ;060: 2403
JSR -474(A6) ;062: 4EAEFE26
BRA LAB_0012 ;066: 60000196
LAB_0001:
LEA LAB_0018(PC),A1 ;06A: 43FA0216
MOVEQ #36,D0 ;06E: 7024
MOVEA.L A2,A6 ;070: 2C4A
JSR -552(A6) ;072: 4EAEFDD8
MOVE.L D0,36(A7) ;076: 2F400024
TST.L D0 ;07A: 4A80
BEQ LAB_0011 ;07C: 67000176
SUBA.L A2,A2 ;080: 95CA
SUBA.L A0,A0 ;082: 91C8
MOVE.L A0,D7 ;084: 2E08
MOVE.L A0,-36(A5) ;086: 2B48FFDC
TST.L -24(A5) ;08A: 4AADFFE8
BEQ.S LAB_0002 ;08E: 6708
MOVE.B #$2E,LAB_002D ;090: 13FC002E000003FE
LAB_0002:
MOVEA.L D3,A1 ;098: 2243
MOVEA.L 48(A7),A6 ;09A: 2C6F0030
JSR -294(A6) ;09E: 4EAEFEDA
MOVEA.L D0,A0 ;0A2: 2040
MOVE.L 172(A0),D1 ;0A4: 222800AC
ASL.L #2,D1 ;0A8: E581
MOVE.L D1,D6 ;0AA: 2C01
MOVE.L D0,32(A7) ;0AC: 2F400020
TST.L D6 ;0B0: 4A86
BEQ.S LAB_0007 ;0B2: 6766
MOVEA.L D6,A1 ;0B4: 2246
MOVE.L 8(A1),D6 ;0B6: 2C290008
BRA.S LAB_0007 ;0BA: 605E
LAB_0003:
MOVEQ #8,D0 ;0BC: 7008
MOVE.L #$00010001,D1 ;0BE: 223C00010001
MOVEA.L 48(A7),A6 ;0C4: 2C6F0030
JSR -198(A6) ;0C8: 4EAEFF3A
MOVEA.L D0,A3 ;0CC: 2640
MOVE.L A3,D0 ;0CE: 200B
BEQ.S LAB_0006 ;0D0: 6742
MOVE.L A2,D0 ;0D2: 200A
BNE.S LAB_0004 ;0D4: 6604
MOVEA.L A3,A2 ;0D6: 244B
BRA.S LAB_0005 ;0D8: 600A
LAB_0004:
MOVE.L A3,D0 ;0DA: 200B
ASR.L #2,D0 ;0DC: E480
MOVEA.L -36(A5),A0 ;0DE: 206DFFDC
MOVE.L D0,(A0) ;0E2: 2080
LAB_0005:
MOVEA.L A3,A0 ;0E4: 204B
MOVE.L D6,D0 ;0E6: 2006
ASL.L #2,D0 ;0E8: E580
MOVEA.L D0,A1 ;0EA: 2240
MOVE.L (A1),D6 ;0EC: 2C11
MOVEA.L 44(A7),A3 ;0EE: 266F002C
MOVE.L A0,-36(A5) ;0F2: 2B48FFDC
MOVE.L A0,52(A7) ;0F6: 2F480034
MOVE.L 4(A1),D1 ;0FA: 22290004
MOVEA.L A3,A6 ;0FE: 2C4B
JSR -96(A6) ;100: 4EAEFFA0
MOVEA.L 52(A7),A0 ;104: 206F0034
MOVE.L D0,4(A0) ;108: 21400004
TST.L D0 ;10C: 4A80
BNE.S LAB_0007 ;10E: 660A
MOVEQ #20,D7 ;110: 7E14
BRA.S LAB_0007 ;112: 6006
LAB_0006:
MOVEQ #20,D7 ;114: 7E14
MOVEA.L 44(A7),A3 ;116: 266F002C
LAB_0007:
TST.L D6 ;11A: 4A86
BEQ.S LAB_0008 ;11C: 6704
TST.L D7 ;11E: 4A87
BEQ.S LAB_0003 ;120: 679A
LAB_0008:
TST.L D7 ;122: 4A87
BNE LAB_000D ;124: 66000082
MOVEQ #0,D6 ;128: 7C00
MOVEQ #0,D5 ;12A: 7A00
BRA.S LAB_000B ;12C: 6018
LAB_0009:
MOVE.L D5,D0 ;12E: 2005
EXT.L D0 ;130: 48C0
ASL.L #2,D0 ;132: E580
TST.L -32(A5,D0.L) ;134: 4AB508E0
BEQ.S LAB_000A ;138: 670A
MOVE.L D5,D0 ;13A: 2005
EXT.L D0 ;13C: 48C0
MOVEQ #1,D1 ;13E: 7201
ASL.L D0,D1 ;140: E1A1
OR.L D1,D6 ;142: 8C81
LAB_000A:
ADDQ #1,D5 ;144: 5245
LAB_000B:
MOVEQ #4,D0 ;146: 7004
CMP D0,D5 ;148: BA40
BLT.S LAB_0009 ;14A: 6DE2
MOVEQ #0,D1 ;14C: 7200
MOVEA.L A3,A6 ;14E: 2C4B
JSR -126(A6) ;150: 4EAEFF82
MOVEA.L 32(A7),A1 ;154: 226F0020
MOVEA.L 164(A1),A0 ;158: 206900A4
CLR.L 164(A1) ;15C: 42A900A4
MOVE.L D0,44(A7) ;160: 2F40002C
MOVE.L A0,52(A7) ;164: 2F480034
MOVEA.L 36(A7),A0 ;168: 206F0024
JSR LAB_001A(PC) ;16C: 4EBA0126
MOVE.L A2,D0 ;170: 200A
ASR.L #2,D0 ;172: E480
MOVE.L D0,D1 ;174: 2200
MOVE.L D6,D0 ;176: 2006
MOVEA.L 36(A7),A6 ;178: 2C6F0024
JSR -42(A6) ;17C: 4EAEFFD6
MOVEA.L 32(A7),A0 ;180: 206F0020
MOVE.L 52(A7),164(A0) ;184: 216F003400A4
MOVE D0,56(A7) ;18A: 3F400038
MOVE.L 44(A7),D1 ;18E: 222F002C
MOVEA.L A3,A6 ;192: 2C4B
JSR -126(A6) ;194: 4EAEFF82
MOVE 56(A7),D0 ;198: 302F0038
EXT.L D0 ;19C: 48C0
BEQ.S LAB_000C ;19E: 6704
SUBA.L A2,A2 ;1A0: 95CA
BRA.S LAB_0010 ;1A2: 603C
LAB_000C:
MOVEQ #5,D7 ;1A4: 7E05
BRA.S LAB_0010 ;1A6: 6038
LAB_000D:
MOVEA.L A3,A6 ;1A8: 2C4B
JSR -132(A6) ;1AA: 4EAEFF7C
MOVE.L D0,D1 ;1AE: 2200
MOVEQ #0,D2 ;1B0: 7400
JSR -474(A6) ;1B2: 4EAEFE26
BRA.S LAB_0010 ;1B6: 6028
LAB_000E:
MOVE.L 4(A2),D0 ;1B8: 202A0004
BEQ.S LAB_000F ;1BC: 6708
MOVE.L D0,D1 ;1BE: 2200
MOVEA.L A3,A6 ;1C0: 2C4B
JSR -90(A6) ;1C2: 4EAEFFA6
LAB_000F:
MOVE.L (A2),D0 ;1C6: 2012
MOVE.L D0,32(A7) ;1C8: 2F400020
MOVEA.L A2,A1 ;1CC: 224A
MOVEQ #8,D0 ;1CE: 7008
MOVEA.L 48(A7),A6 ;1D0: 2C6F0030
JSR -210(A6) ;1D4: 4EAEFF2E
MOVE.L 32(A7),D0 ;1D8: 202F0020
ASL.L #2,D0 ;1DC: E580
MOVEA.L D0,A2 ;1DE: 2440
LAB_0010:
MOVE.L A2,D0 ;1E0: 200A
BNE.S LAB_000E ;1E2: 66D4
MOVEA.L 48(A7),A2 ;1E4: 246F0030
MOVEA.L 36(A7),A1 ;1E8: 226F0024
MOVEA.L A2,A6 ;1EC: 2C4A
JSR -414(A6) ;1EE: 4EAEFE62
BRA.S LAB_0012 ;1F2: 600A
LAB_0011:
MOVEQ #122,D1 ;1F4: 727A
MOVEQ #0,D2 ;1F6: 7400
MOVEA.L A3,A6 ;1F8: 2C4B
JSR -474(A6) ;1FA: 4EAEFE26
LAB_0012:
TST.L 40(A7) ;1FE: 4AAF0028
BEQ.S LAB_0013 ;202: 670A
MOVE.L 40(A7),D1 ;204: 222F0028
MOVEA.L A3,A6 ;208: 2C4B
JSR -858(A6) ;20A: 4EAEFCA6
LAB_0013:
MOVEA.L A3,A1 ;20E: 224B
MOVEA.L A2,A6 ;210: 2C4A
JSR -414(A6) ;212: 4EAEFE62
BRA.S LAB_0015 ;216: 6010
LAB_0014:
MOVEA #$0004,A0 ;218: 307C0004
MOVEA.L (A0),A1 ;21C: 2250
MOVEA.L 276(A1),A0 ;21E: 20690114
MOVEQ #122,D0 ;222: 707A
MOVE.L D0,148(A0) ;224: 21400094
LAB_0015:
MOVE.L D7,D0 ;228: 2007
MOVEM.L (A7)+,D2-D3/D5-D7/A2-A3/A6 ;22A: 4CDF4CEC
UNLK A5 ;22E: 4E5D
RTS ;230: 4E75
LAB_0016:
DC.W $646F ;232
DC.W $732E ;234
DC.W $6C69 ;236
BHI.S LAB_001B ;238: 6272
BSR.S LAB_001B+2 ;23A: 6172
DC.W $7900 ;23C
LAB_0017:
MOVE.L D4,17730(A6) ;23E: 2D444542
SUBQ #2,D7 ;242: 5547
MOVE.L (A3),11332(A7) ;244: 2F532C44
DC.W $454C ;248
DC.W $4159 ;24A
DC.W $2F53 ;24C
MOVEA.L D3,A6 ;24E: 2C43
DC.W $4C45 ;250
DC.W $414E ;252
SUBQ #2,(A0) ;254: 5550
MOVE.L (A3),11342(A7) ;256: 2F532C4E
DC.W $4557 ;25A
ADDQ #8,D1 ;25C: 5041
ADDQ #2,A0 ;25E: 5448
MOVE.L (A3),36(A7) ;260: 2F530024
ADDQ #3,D5 ;264: 5645
DC.W $523A ;266
DC.W $206C ;268
DC.W $6F61 ;26A
DC.W $6477 ;26C
BHI.S LAB_0019 ;26E: 6220
DC.W $3338 ;270
MOVE.L EXT_0001,D7 ;272: 2E3920283330
DC.W $2E33 ;278
DC.W $2E39 ;27A
DC.W $3229 ;27C
DC.W $0A0D ;27E
DC.W $0000 ;280
LAB_0018:
DC.W $776F ;282
MOVEQ #107,D1 ;284: 726B
DC.W $6265 ;286
DC.W $6E63 ;288
BVC.S LAB_001E+2 ;28A: 682E
DC.W $6C69 ;28C
BHI.S LAB_0021 ;28E: 6272
LAB_0019:
BSR.S LAB_0021+2 ;290: 6172
DC.W $7900 ;292
LAB_001A:
MOVEM.L A2-A3/A6,-(A7) ;294: 48E70032
MOVEA.L A0,A2 ;298: 2448
MOVEA.L ABSEXECBASE,A6 ;29A: 2C7900000004
JSR -132(A6) ;2A0: 4EAEFF7C
CMPI #$0025,20(A2) ;2A4: 0C6A00250014
BNE.S LAB_001D ;2AA: 6608
LAB_001B:
CMPI #$0084,22(A2) ;2AC: 0C6A00840016
BEQ.S LAB_001F ;2B2: 670A
LAB_001D:
JSR -138(A6) ;2B4: 4EAEFF76
LAB_001E:
MOVEM.L (A7)+,A2-A3/A6 ;2B8: 4CDF4C00
RTS ;2BC: 4E75
LAB_001F:
BTST #1,45(A2) ;2BE: 082A0001002D
BNE.S LAB_001D ;2C4: 66EE
BTST #7,44(A2) ;2C6: 082A0007002C
BNE.S LAB_001D ;2CC: 66E6
MOVE.L #$000000A4,D0 ;2CE: 203C000000A4
MOVE.L #$00000001,D1 ;2D4: 223C00000001
JSR -684(A6) ;2DA: 4EAEFD54
MOVEA.L D0,A3 ;2DE: 2640
LSR.L #2,D0 ;2E0: E488
BEQ.S LAB_001D ;2E2: 67D0
MOVEA.L A3,A0 ;2E4: 204B
LEA LAB_0023(PC),A1 ;2E6: 43FA0076
MOVE.L #$00000028,D1 ;2EA: 223C00000028
LAB_0020:
MOVE.L (A1)+,(A0)+ ;2F0: 20D9
DBF D1,LAB_0020 ;2F2: 51C9FFFC
MOVE.L 36(A2),(A3) ;2F6: 26AA0024
MOVE.L D0,36(A2) ;2FA: 25400024
JSR -636(A6) ;2FE: 4EAEFD84
LAB_0021:
LEA 4(A3),A0 ;302: 41EB0004
MOVE.L A0,D0 ;306: 2008
MOVEA.L A2,A1 ;308: 224A
MOVEA #$FFDC,A0 ;30A: 307CFFDC
JSR -420(A6) ;30E: 4EAEFE5C
MOVE.L D0,144(A3) ;312: 27400090
LEA 86(A3),A0 ;316: 41EB0056
MOVE.L A0,D0 ;31A: 2008
MOVEA.L A2,A1 ;31C: 224A
MOVEA #$FFF4,A0 ;31E: 307CFFF4
JSR -420(A6) ;322: 4EAEFE5C
MOVE.L D0,148(A3) ;326: 27400094
BSET #7,44(A2) ;32A: 08EA0007002C
LEA LAB_002E(PC),A1 ;330: 43FA00D0
MOVEQ #37,D0 ;334: 7025
JSR -552(A6) ;336: 4EAEFDD8
MOVE.L D0,152(A3) ;33A: 27400098
BEQ LAB_001D ;33E: 6700FF74
MOVEA.L D0,A6 ;342: 2C40
SUBA.L A2,A2 ;344: 95CA
LEA LAB_002F+1(PC),A1 ;346: 43FA00C9
SUBA.L A0,A0 ;34A: 91C8
JSR -150(A6) ;34C: 4EAEFF6A
MOVE.L D0,156(A3) ;350: 2740009C
MOVEA.L ABSEXECBASE,A6 ;354: 2C7900000004
BRA LAB_001D ;35A: 6000FF58
LAB_0023:
ORI.B #$00,D0 ;35E: 00000000
CMPI.L #$00000008,D0 ;362: 0C8000000008
BNE.S LAB_0024 ;368: 6606
BCLR #1,44(A6) ;36A: 08AE0001002C
LAB_0024:
MOVE.L D2,-(A7) ;370: 2F02
MOVE.L D0,D2 ;372: 2400
MOVEA.L LAB_0029(PC),A0 ;374: 207A0078
JSR (A0) ;378: 4E90
CMPI.L #$00000064,D2 ;37A: 0C8200000064
BNE.S LAB_0025 ;380: 660A
LEA LAB_002D(PC),A0 ;382: 41FA007A
MOVE.B (A0),D0 ;386: 1010
BEQ.S LAB_0025 ;388: 6702
MOVE.L A0,D0 ;38A: 2008
LAB_0025:
MOVE.L LAB_002C(PC),D1 ;38C: 223A006C
BEQ.S LAB_0027 ;390: 671E
MOVEA.L D1,A0 ;392: 2041
MOVEA.L D0,A1 ;394: 2240
MOVE.L D2,D0 ;396: 2002
MOVE.L LAB_002B(PC),D2 ;398: 243A005C
EXG D2,A6 ;39C: C58E
JSR -72(A6) ;39E: 4EAEFFB8
TST.L D0 ;3A2: 4A80
BEQ.S LAB_0026 ;3A4: 6708
MOVEA.L D0,A0 ;3A6: 2040
MOVE.B (A0),D1 ;3A8: 1210
BNE.S LAB_0026 ;3AA: 6602
MOVEQ #0,D0 ;3AC: 7000
LAB_0026:
EXG D2,A6 ;3AE: C58E
LAB_0027:
MOVE.L (A7)+,D2 ;3B0: 241F
RTS ;3B2: 4E75
MOVE.L LAB_002A(PC),-(A7) ;3B4: 2F3A003C
CMPI #$0001,32(A6) ;3B8: 0C6E00010020
BNE.S LAB_0028 ;3BE: 662C
MOVE.L LAB_002B(PC),D0 ;3C0: 203A0034
BEQ.S LAB_0028 ;3C4: 6726
MOVE.L A6,-(A7) ;3C6: 2F0E
MOVEA.L D0,A6 ;3C8: 2C40
MOVEA.L LAB_002C(PC),A0 ;3CA: 207A002E
JSR -36(A6) ;3CE: 4EAEFFDC
MOVEA.L A6,A1 ;3D2: 224E
MOVEA.L ABSEXECBASE,A6 ;3D4: 2C7900000004
JSR -414(A6) ;3DA: 4EAEFE62
MOVEQ #0,D0 ;3DE: 7000
LEA LAB_002B(PC),A0 ;3E0: 41FA0014
MOVE.L D0,(A0)+ ;3E4: 20C0
MOVE.L D0,(A0)+ ;3E6: 20C0
MOVE.L D0,(A0) ;3E8: 2080
MOVEA.L (A7)+,A6 ;3EA: 2C5F
LAB_0028:
RTS ;3EC: 4E75
LAB_0029:
ORI.B #$00,D0 ;3EE: 00000000
LAB_002A:
ORI.B #$00,D0 ;3F2: 00000000
LAB_002B:
ORI.B #$00,D0 ;3F6: 00000000
LAB_002C:
ORI.B #$00,D0 ;3FA: 00000000
LAB_002D:
ORI.B #$00,D0 ;3FE: 00000000
LAB_002E:
DC.W $6C6F ;402
DC.W $6361 ;404
DC.W $6C65 ;406
MOVEA.L 26978(A4),A7 ;408: 2E6C6962
MOVEQ #97,D1 ;40C: 7261
MOVEQ #121,D1 ;40E: 7279
LAB_002F:
DC.W $0073 ;410
DC.W $7973 ;412
DC.W $2F77 ;414
DC.W $6F72 ;416
DC.W $6B62 ;418
DC.W $656E ;41A
DC.W $6368 ;41C
MOVEA.L -(A3),A7 ;41E: 2E63
DC.W $6174 ;420
DC.W $616C ;422
DC.W $6F67 ;424
DC.W $0000 ;426
END