home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / qbasic / qbarcv3.arc / TESTQB.ASM < prev    next >
Encoding:
Assembly Source File  |  1989-03-21  |  1.1 KB  |  74 lines
  1. CSEG    segment public para 'CODE'
  2.     assume    CS:CSEG,DS:CSEG,ES:CSEG
  3.  
  4. CR    equ    0DH
  5. LF    equ    0AH
  6. DEBUG    equ    1        ;for output to STDERR
  7.  
  8.     EXTRN    ArcV:far
  9.  
  10.     org    100H
  11.  
  12. TestQb    proc    near
  13.  
  14.     jmp    Start
  15.  
  16.  db CR,LF,LF,'  Usage:  call arcv (workname$,filename.[ARC][PAK][ZIP],'
  17.  db 'result%',CR,LF
  18.  
  19. IF    DEBUG
  20. workname  db    13 dup(0)            ;no output, use STDERR
  21. WORKLEN equ    0
  22.  
  23. ELSE
  24.  
  25. workname db    'QBTEMP.TMP',0
  26. WORKLEN    equ    $ - workname
  27. ENDIF
  28.  
  29. ;filename db    'TEST.ZIP',0
  30. ;FILELEN    equ    $ - filename
  31. filename db    13 dup(0)
  32.  
  33. workparm dw    WORKLEN,workname
  34. ;fileparm dw    FILELEN,filename
  35. fileparm dw    0,filename
  36.  
  37. result    dw    0
  38.  
  39. Start:
  40.     mov    ax,CS
  41.     mov    ES,ax
  42.  
  43.     mov    si,80H
  44.     lodsb
  45.     xor    ah,ah
  46.     mov    cx,ax
  47.     mov    CS:fileparm,ax        ;save target archive name length
  48.  
  49.     inc    si            ;bump past space
  50.     dec    cx            ;adjust for the space bump
  51.     mov    di,offset filename
  52.     rep    movsb            ;copy PSP archive name into buffer
  53.  
  54.     mov    ax,CS
  55.     mov    DS,ax
  56.  
  57.     mov    ax,offset workparm
  58.     push    ax
  59.     mov    ax,offset fileparm
  60.     push    ax
  61.     mov    ax,offset result
  62.     push    ax
  63.  
  64.     call    Arcv
  65.  
  66.     mov    ax,result
  67.     mov    ah,4CH            ;terminate
  68.     int    21H
  69.  
  70. TestQb    endp
  71.  
  72. CSEG    ENDS
  73.     end    TestQb
  74.