home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
telefisk.org
/
virusCollection.lzx
/
VirusResearch
/
zakapior
/
PoolMem
/
PatchRAM.asm
< prev
next >
Wrap
Assembly Source File
|
1984-07-04
|
11KB
|
431 lines
; IRA V1.02 (Sep 6 1993) (c)1993 Tim Ruehsen
ABSEXECBASE EQU $4
EXT_0001 EQU $FFFFFD54
SECTION S_0,CODE
SECSTRT_0:
MOVEQ #0,D5 ;000: 7A00
LEA SECSTRT_2,A4 ;002: 49F90000011C
LEA SECSTRT_5,A5 ;008: 4BF900000444
MOVEA.L (ABSEXECBASE).W,A6 ;00E: 2C780004
MOVE.L A6,(A4) ;012: 288E
MOVE.L A6,4(A5) ;014: 2B4E0004
MOVEA.L D5,A1 ;018: 2245
JSR -294(A6) ;01A: 4EAEFEDA
MOVEA.L D0,A2 ;01E: 2440
TST.L 172(A2) ;020: 4AAA00AC
BNE.S LAB_0000 ;024: 6614
LEA 92(A2),A0 ;026: 41EA005C
JSR -384(A6) ;02A: 4EAEFE80
LEA 92(A2),A0 ;02E: 41EA005C
JSR -372(A6) ;032: 4EAEFE8C
MOVE.L D0,8(A4) ;036: 29400008
LAB_0000:
MOVEA.L (A4),A6 ;03A: 2C54
LEA SECSTRT_4,A1 ;03C: 43F90000041C
MOVEQ #37,D0 ;042: 7025
JSR -552(A6) ;044: 4EAEFDD8
MOVE.L D0,4(A4) ;048: 29400004
BEQ LAB_0002 ;04C: 6700004E
TST.L 8(A4) ;050: 4AAC0008
BNE.S LAB_0001 ;054: 661A
MOVEA.L D0,A6 ;056: 2C40
LEA 32(A5),A0 ;058: 41ED0020
MOVE.L #LAB_0009+1,D1 ;05C: 223C0000010D
MOVE.L A0,D2 ;062: 2408
MOVEQ #0,D3 ;064: 7600
JSR -798(A6) ;066: 4EAEFCE2
MOVE.L D0,12(A4) ;06A: 2940000C
BEQ.S LAB_0003 ;06E: 672E
LAB_0001:
MOVEA.L 4(A4),A6 ;070: 2C6C0004
MOVE.L #LAB_0026,D1 ;074: 223C00000428
MOVEQ #9,D2 ;07A: 7409
MOVE.L #SECSTRT_3-4,D3 ;07C: 263C00000128
LSR.L #2,D3 ;082: E48B
MOVE.L #$00000200,D4 ;084: 283C00000200
JSR -138(A6) ;08A: 4EAEFF76
TST.L D0 ;08E: 4A80
BEQ.S LAB_0002 ;090: 670A
CLR.L -4(A4) ;092: 42ACFFFC
MOVEQ #0,D5 ;096: 7A00
BRA LAB_0003 ;098: 60000004
LAB_0002:
MOVEQ #20,D5 ;09C: 7A14
LAB_0003:
MOVEA.L (A4),A6 ;09E: 2C54
MOVE.L 4(A4),D0 ;0A0: 202C0004
BEQ.S LAB_0005 ;0A4: 6716
MOVE.L 12(A4),D1 ;0A6: 222C000C
BEQ.S LAB_0004 ;0AA: 6708
MOVEA.L D0,A6 ;0AC: 2C40
JSR -858(A6) ;0AE: 4EAEFCA6
MOVEA.L (A4),A6 ;0B2: 2C54
LAB_0004:
MOVEA.L 4(A4),A1 ;0B4: 226C0004
JSR -414(A6) ;0B8: 4EAEFE62
LAB_0005:
TST.L 8(A4) ;0BC: 4AAC0008
BEQ.S LAB_0006 ;0C0: 670C
JSR -132(A6) ;0C2: 4EAEFF7C
MOVEA.L 8(A4),A1 ;0C6: 226C0008
JSR -378(A6) ;0CA: 4EAEFE86
LAB_0006:
MOVE.L D5,D0 ;0CE: 2005
RTS ;0D0: 4E75
MOVEA.L A1,A0 ;0D2: 2049
MOVE.L -8(A0),D0 ;0D4: 2028FFF8
LSR.L #2,D0 ;0D8: E488
SUBQ #2,D0 ;0DA: 5540
BRA.S LAB_0008 ;0DC: 6002
LAB_0007:
CLR.L (A0)+ ;0DE: 4298
LAB_0008:
DBF D0,LAB_0007 ;0E0: 51C8FFFC
RTS ;0E4: 4E75
DC.W $0000 ;0E6
SECTION S_1,DATA
SECSTRT_1:
DC.W $2456 ;0E8
DC.W $4552 ;0EA
DC.W $3A20 ;0EC
DC.W $5061 ;0EE
DC.W $7463 ;0F0
DC.W $6852 ;0F2
DC.W $414D ;0F4
DC.W $2031 ;0F6
DC.W $2E32 ;0F8
DC.W $3020 ;0FA
DC.W $2832 ;0FC
DC.W $312E ;0FE
DC.W $362E ;100
DC.W $3938 ;102
DC.W $2920 ;104
DC.W $A920 ;106
DC.W $5448 ;108
DC.W $4F52 ;10A
LAB_0009:
DC.W $0050 ;10C
DC.W $4F52 ;10E
DC.W $5450 ;110
DC.W $4154 ;112
DC.W $4348 ;114
DC.W $2F53 ;116
DS.W 2 ;118
SECTION S_2,BSS
SECSTRT_2:
DS.L 4 ;11C
SECTION S_3,CODE
SECSTRT_3:
LEA SECSTRT_5,A5 ;12C: 4BF900000444
LEA SECSTRT_4,A1 ;132: 43F90000041C
MOVEA.L 4(A5),A6 ;138: 2C6D0004
MOVEQ #37,D0 ;13C: 7025
JSR -552(A6) ;13E: 4EAEFDD8
MOVE.L D0,(A5) ;142: 2A80
BEQ.S LAB_000C ;144: 6704
BSR.S LAB_000F ;146: 6138
BRA.S LAB_000D ;148: 600E
LAB_000C:
MOVE.L #$07030000,D7 ;14A: 2E3C07030000
SUBA.L A5,A5 ;150: 9BCD
JSR -108(A6) ;152: 4EAEFF94
MOVEQ #20,D0 ;156: 7014
LAB_000D:
MOVE.L D0,-(A7) ;158: 2F00
MOVEA.L 4(A5),A6 ;15A: 2C6D0004
JSR -132(A6) ;15E: 4EAEFF7C
MOVE.L (A5),D0 ;162: 2015
BEQ.S LAB_000E ;164: 6716
MOVEA.L D0,A6 ;166: 2C40
MOVE.L #SECSTRT_3-4,D1 ;168: 223C00000128
LSR.L #2,D1 ;16E: E489
JSR -156(A6) ;170: 4EAEFF64
MOVEA.L A6,A1 ;174: 224E
MOVEA.L (A5),A6 ;176: 2C55
JSR -414(A6) ;178: 4EAEFE62
LAB_000E:
MOVE.L (A7)+,D0 ;17C: 201F
RTS ;17E: 4E75
LAB_000F:
MOVEA.L 4(A5),A6 ;180: 2C6D0004
MOVEQ #0,D4 ;184: 7800
MOVEQ #0,D6 ;186: 7C00
MOVEQ #36,D0 ;188: 7024
LEA LAB_0028+1,A1 ;18A: 43F900000431
JSR -552(A6) ;190: 4EAEFDD8
MOVE.L D0,12(A5) ;194: 2B40000C
BEQ LAB_0016 ;198: 670000EA
MOVEA.L 276(A6),A1 ;19C: 226E0114
LEA 92(A1),A1 ;1A0: 43E9005C
MOVE.L A1,16(A5) ;1A4: 2B490010
JSR -666(A6) ;1A8: 4EAEFD66
MOVE.L D0,20(A5) ;1AC: 2B400014
BEQ LAB_0015 ;1B0: 670000C6
MOVE.L #LAB_0027,D1 ;1B4: 223C0000042C
MOVEA.L (A5),A6 ;1BA: 2C55
MOVEQ #0,D2 ;1BC: 7400
JSR -642(A6) ;1BE: 4EAEFD7E
MOVE.L D0,D6 ;1C2: 2C00
BEQ LAB_0015 ;1C4: 670000B2
MOVEA.L (A5),A6 ;1C8: 2C55
MOVEQ #14,D1 ;1CA: 720E
JSR -654(A6) ;1CC: 4EAEFD72
TST.L D0 ;1D0: 4A80
BEQ LAB_0013 ;1D2: 6700007C
MOVE.L D0,D1 ;1D6: 2200
MOVE.L D0,D5 ;1D8: 2A00
MOVE.L #LAB_0026,D2 ;1DA: 243C00000428
MOVEQ #4,D3 ;1E0: 7604
JSR -684(A6) ;1E2: 4EAEFD54
TST.L D0 ;1E6: 4A80
BEQ.S LAB_0012 ;1E8: 675E
MOVEA.L D0,A3 ;1EA: 2640
MOVEA.L 8(A3),A0 ;1EC: 206B0008
MOVE.L A0,8(A5) ;1F0: 2B480008
MOVE.L 16(A0),28(A5) ;1F4: 2B680010001C
MOVEQ #-1,D4 ;1FA: 78FF
TST.L 32(A5) ;1FC: 4AAD0020
BEQ.S LAB_0010 ;200: 6720
MOVEA.L 4(A4),A6 ;202: 2C6C0004
JSR -120(A6) ;206: 4EAEFF88
MOVEA.L 8(A3),A0 ;20A: 206B0008
LEA LAB_0021(PC),A1 ;20E: 43FA019C
MOVE.B #$03,14(A0) ;212: 117C0003000E
MOVE.L A1,16(A0) ;218: 21490010
JSR -126(A6) ;21C: 4EAEFF82
BRA.S LAB_0012 ;220: 6026
LAB_0010:
MOVE.L 16(A5),8(A3) ;222: 276D00100008
LAB_0011:
MOVE.L D5,D1 ;228: 2205
MOVEQ #12,D2 ;22A: 740C
JSR -690(A6) ;22C: 4EAEFD4E
MOVE.L D0,D5 ;230: 2A00
BEQ.S LAB_0012 ;232: 6714
MOVEA.L D0,A0 ;234: 2040
MOVE.L 8(A0),D0 ;236: 20280008
CMP.L 8(A5),D0 ;23A: B0AD0008
BNE.S LAB_0011 ;23E: 66E8
MOVE.L 16(A5),8(A0) ;240: 216D00100008
BRA.S LAB_0011 ;246: 60E0
LAB_0012:
MOVEA.L (A5),A6 ;248: 2C55
MOVEQ #14,D1 ;24A: 720E
JSR -660(A6) ;24C: 4EAEFD6C
LAB_0013:
MOVEA.L (A5),A6 ;250: 2C55
MOVE.L D6,D1 ;252: 2206
JSR -648(A6) ;254: 4EAEFD78
TST.L D4 ;258: 4A84
BEQ.S LAB_0014 ;25A: 6702
BSR.S LAB_0017 ;25C: 6128
LAB_0014:
MOVEA.L 4(A5),A6 ;25E: 2C6D0004
LEA (EXT_0001).W,A0 ;262: 41F8FD54
MOVEA.L A6,A1 ;266: 224E
MOVE.L 24(A5),D0 ;268: 202D0018
JSR -420(A6) ;26C: 4EAEFE5C
MOVEA.L 20(A5),A0 ;270: 206D0014
JSR -672(A6) ;274: 4EAEFD60
LAB_0015:
MOVEA.L 4(A5),A6 ;278: 2C6D0004
MOVEA.L 12(A5),A1 ;27C: 226D000C
JSR -414(A6) ;280: 4EAEFE62
LAB_0016:
RTS ;284: 4E75
LAB_0017:
MOVEM.L D2-D3/A2,-(A7) ;286: 48E73020
MOVEQ #0,D3 ;28A: 7600
MOVEQ #0,D1 ;28C: 7200
MOVEA.L 20(A5),A0 ;28E: 206D0014
MOVE.B 15(A0),D1 ;292: 1228000F
BSET D1,D3 ;296: 03C3
MOVEA.L 16(A5),A0 ;298: 206D0010
MOVE.B 15(A0),D1 ;29C: 1228000F
BSET D1,D3 ;2A0: 03C3
LAB_0018:
MOVEQ #0,D2 ;2A2: 7400
MOVEA.L 4(A5),A6 ;2A4: 2C6D0004
MOVEA.L 16(A5),A0 ;2A8: 206D0010
JSR -372(A6) ;2AC: 4EAEFE8C
TST.L D0 ;2B0: 4A80
BEQ.S LAB_001A ;2B2: 6736
MOVEQ #-1,D2 ;2B4: 74FF
MOVEA.L D0,A1 ;2B6: 2240
MOVEA.L 10(A1),A0 ;2B8: 2069000A
MOVE.L 4(A0),14(A1) ;2BC: 23680004000E
CMPI.L #$49445250,8(A0) ;2C2: 0CA8494452500008
BNE.S LAB_0019 ;2CA: 6610
MOVEQ #-1,D0 ;2CC: 70FF
MOVE.L 28(A5),16(A0) ;2CE: 216D001C0010
MOVE.L D0,12(A0) ;2D4: 2140000C
MOVEA.L A0,A2 ;2D8: 2448
BRA.S LAB_001B ;2DA: 602A
LAB_0019:
MOVE.L 20(A5),4(A0) ;2DC: 216D00140004
MOVEA.L 8(A5),A0 ;2E2: 206D0008
JSR -366(A6) ;2E6: 4EAEFE92
LAB_001A:
MOVEA.L 20(A5),A0 ;2EA: 206D0014
JSR -372(A6) ;2EE: 4EAEFE8C
TST.L D0 ;2F2: 4A80
BEQ.S LAB_001C ;2F4: 6720
MOVEA.L D0,A0 ;2F6: 2040
MOVEA.L 10(A0),A2 ;2F8: 2468000A
MOVEQ #-1,D2 ;2FC: 74FF
MOVEA.L A2,A0 ;2FE: 204A
BSR.S LAB_001D ;300: 6126
MOVEA.L 4(A5),A6 ;302: 2C6D0004
LAB_001B:
MOVEA.L (A2),A1 ;306: 2252
MOVE.L 16(A5),4(A2) ;308: 256D00100004
MOVEA.L 14(A1),A0 ;30E: 2069000E
JSR -366(A6) ;312: 4EAEFE92
LAB_001C:
TST.L D2 ;316: 4A82
BNE.S LAB_0018 ;318: 6688
MOVE.L D3,D0 ;31A: 2003
JSR -318(A6) ;31C: 4EAEFEC2
BRA.S LAB_0018 ;320: 6080
MOVEM.L (A7)+,D2-D3/A2 ;322: 4CDF040C
RTS ;326: 4E75
LAB_001D:
MOVEM.L A2/A4,-(A7) ;328: 48E70028
MOVEA.L A0,A2 ;32C: 2448
MOVE.L 8(A2),D0 ;32E: 202A0008
SUBQ.L #8,D0 ;332: 5180
BEQ.S LAB_001F ;334: 6760
MOVEQ #11,D1 ;336: 720B
SUB.L D1,D0 ;338: 9081
BEQ.S LAB_001F ;33A: 675A
SUBQ.L #3,D0 ;33C: 5780
BEQ.S LAB_001F ;33E: 6756
MOVEA.L 20(A2),A4 ;340: 286A0014
SUBQ.L #3,D0 ;344: 5780
BEQ.S LAB_001E ;346: 671C
MOVEA.L 24(A2),A4 ;348: 286A0018
SUBQ.L #1,D0 ;34C: 5380
BEQ.S LAB_001E ;34E: 6714
SUBQ.L #3,D0 ;350: 5780
BEQ.S LAB_001F ;352: 6742
MOVE.L #$000003E9,D1 ;354: 223C000003E9
SUB.L D1,D0 ;35A: 9081
BEQ.S LAB_001F ;35C: 6738
SUBQ.L #1,D0 ;35E: 5380
BEQ.S LAB_001F ;360: 6734
BRA.S LAB_0020 ;362: 6042
LAB_001E:
MOVE.L 12(A2),D0 ;364: 202A000C
BEQ.S LAB_0020 ;368: 673C
ADDA.L A4,A4 ;36A: D9CC
ADDA.L A4,A4 ;36C: D9CC
MOVEQ #1,D1 ;36E: 7201
JSR -216(A6) ;370: 4EAEFF28
MOVEA.L 12(A5),A6 ;374: 2C6D000C
MOVE.L 20(A4),D1 ;378: 222C0014
JSR -156(A6) ;37C: 4EAEFF64
ADD.L D0,12(A4) ;380: D1AC000C
MOVE.L 12(A4),D0 ;384: 202C000C
CMP.L 16(A4),D0 ;388: B0AC0010
BCC.S LAB_0020 ;38C: 6418
MOVE.L 16(A4),12(A4) ;38E: 296C0010000C
BRA.S LAB_0020 ;394: 6010
LAB_001F:
MOVE.L 12(A2),D0 ;396: 202A000C
BEQ.S LAB_0020 ;39A: 670A
LSL.L #2,D0 ;39C: E588
MOVEA.L D0,A4 ;39E: 2840
MOVE.L 16(A5),12(A4) ;3A0: 296D0010000C
LAB_0020:
MOVEM.L (A7)+,A2/A4 ;3A6: 4CDF1400
RTS ;3AA: 4E75
LAB_0021:
MOVEA.L 20(A1),A1 ;3AC: 22690014
MOVEA.L 10(A1),A0 ;3B0: 2069000A
MOVEQ #25,D0 ;3B4: 7019
MOVE.L 8(A0),D1 ;3B6: 22280008
CMP.L #$49445250,D1 ;3BA: B2BC49445250
BEQ.S LAB_0024 ;3C0: 6726
SUB.L D0,D1 ;3C2: 9280
BEQ.S LAB_0022 ;3C4: 6704
SUBQ.L #1,D1 ;3C6: 5381
BNE.S LAB_0023 ;3C8: 660E
LAB_0022:
MOVE.L 4(A0),14(A1) ;3CA: 23680004000E
MOVE.L LAB_002B,4(A0) ;3D0: 2179000004580004
LAB_0023:
MOVEA.L LAB_002C,A1 ;3D8: 227900000460
MOVE.L #$00000100,D0 ;3DE: 203C00000100
JMP -324(A6) ;3E4: 4EEEFEBC
LAB_0024:
MOVEQ #-1,D0 ;3E8: 70FF
MOVE.L LAB_002C,16(A0) ;3EA: 2179000004600010
MOVE.L D0,12(A0) ;3F2: 2140000C
MOVEM.L A0-A1,-(A7) ;3F6: 48E700C0
MOVEA.L (A1)+,A0 ;3FA: 2059
MOVEA.L (A1),A1 ;3FC: 2251
MOVE.L A0,(A1) ;3FE: 2288
MOVE.L A1,4(A0) ;400: 21490004
MOVEM.L (A7)+,A0-A1 ;404: 4CDF0300
MOVE.L 4(A0),D0 ;408: 20280004
MOVE.L LAB_002A,4(A0) ;40C: 21790000044C0004
MOVEA.L D0,A0 ;414: 2040
JMP -366(A6) ;416: 4EEEFE92
DC.W $0000 ;41A
SECTION S_4,DATA
SECSTRT_4:
DC.W $646F ;41C
DC.W $732E ;41E
DC.W $6C69 ;420
DC.W $6272 ;422
DC.W $6172 ;424
DC.W $7900 ;426
LAB_0026:
DC.W $5241 ;428
DC.W $4D00 ;42A
LAB_0027:
DC.W $5241 ;42C
DC.W $4D3A ;42E
LAB_0028:
DC.W $0075 ;430
DC.W $7469 ;432
DC.W $6C69 ;434
DC.W $7479 ;436
DC.W $2E6C ;438
DC.W $6962 ;43A
DC.W $7261 ;43C
DC.W $7279 ;43E
DS.W 2 ;440
SECTION S_5,BSS
SECSTRT_5:
DS.L 2 ;444
LAB_002A:
DS.L 3 ;44C
LAB_002B:
DS.L 2 ;458
LAB_002C:
DS.L 2 ;460
END