home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / PASNET.ZIP / PASNETA.ASM < prev    next >
Encoding:
Assembly Source File  |  1988-06-28  |  25.3 KB  |  1,741 lines
  1. Page 80,132
  2. ;*******************************************************
  3. ;*                               *
  4. ;* VERSION: 1.0                        *
  5. ;*                               *
  6. ;* MODULE NAME: PASNET.ASM    Language Interface     *
  7. ;*                               *
  8. ;* DESCRIPTION:  NetWare interface drivers           *                         *
  9. ;*                               *
  10. ;*        Borland Turbo Pascal interface           *
  11. ;*                               *
  12. ;* INPUTS:  Refer to individual procedures.           *
  13. ;*                               *
  14. ;*                               *
  15. ;* RETURNS (OUTPUTS)  Refer to individual procedures.  *
  16. ;*                               *
  17. ;*                               *
  18. ;*******************************************************
  19.  
  20. title    Turbo Pascal - NetWare Interface Module
  21.  
  22. ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++
  23. ;+                               +
  24. ;+ For the following Turbo Pascal interface see        +
  25. ;+ the Borland Turbo Tutor manual and the           +
  26. ;+ Reference Manual                       +
  27. ;+                               +
  28. ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++
  29.  
  30. cseg    segment byte public 'cseg'
  31.     assume    cs:cseg
  32.  
  33. public    xtndopn, setattr, eojstat, PRLH_Log, PRLH_Rel, PRLH_Clr, PRLF_Log
  34. public    PRLF_Rel, PRLF_Clr, PRLS_Lck, PRLS_Rel, PRLS_Clr, OpenSem, ExamSem
  35. public    WaitSem, SigSem, ClosSem, setlck, Bakouts, btrans, etrans, exclog
  36. public    exclcks, exculkf, exculks, excclrf, excclrs, reclog, reclck, reculk
  37. public    reculks, recclr, recclrs, eoj, sysout, volstat
  38. public    locdrv, wsid, errmode, bcsmode, ctlspl, splreq, pipreq, dpath, syslog
  39. public    fattr, updfcb, cpyfile, nettod, clsmode, drvmap, retshl, asclog
  40. public    asculkf, ascclrf, Get_PSN, Get_STA, SetServ, ModServ
  41.  
  42. ;--------------------------------
  43. ; Extended Open a File func(61) (3DH)
  44. ;
  45. ; var
  46. ;    Mode, Handle, RetCode : Integer;
  47. ;    Filename          : String[n];
  48. ;
  49. ; RetCode := xtndopn(Mode, Handle, Filename);
  50. ;
  51.  
  52. xtndopn proc    far
  53.     push    bp
  54.     mov    bp,sp
  55.     push    ds
  56.     lds    si,[bp+12]      ; put the mode in ax
  57.     mov    ax,[si]
  58.     mov    ah,03Dh         ; put the function in ah
  59.     lds    dx,[bp+4]       ;ptr to ASCIIZ string
  60.     inc    dx            ;add 1 to get to the beginning of the string
  61.     int    21h
  62.     jnc    noerr
  63.     jmp    quit
  64. noerr:
  65.     lds    di,[bp+8]       ;put the handle into the variable
  66.     mov    [di],ax          ;if there is no error and
  67.     xor    ax,ax             ;return a 0
  68. quit:
  69.     pop    ds
  70.     pop    bp
  71.     ret    14
  72. xtndopn endp
  73.  
  74.  
  75.  
  76.  
  77. ;--------------------------------
  78. ; Get or Set File Attributes(handle) func(67) (43H)
  79. ;
  80. ; var
  81. ;    Func, Attribute, ErrCode : Integer;
  82. ;    Filename         : String[n];
  83. ;
  84. ;ErrCode := setattr(Func, Attribute, Filename);
  85. ;
  86.  
  87. setattr proc    far
  88.     push    bp
  89.     mov    bp,sp
  90.     push    ds
  91.     lds    si,[bp+12]      ; put the subfunction in ax
  92.     mov    ax,[si]
  93.     mov    ah,043h         ; put the function in ah
  94.     lds    dx,[bp+4]       ;ptr to var desc block for ASCIIZ string
  95.     inc    dx            ;add 1 to get the address of the string
  96.     lds    si,[bp+8]       ;put the attribute to set in cx
  97.     mov    cx,[si]
  98.     int    21h
  99.     jnc    okay
  100.     mov    ah,00h
  101.     jmp    getout
  102. okay:
  103.     lds    di,[bp+8]       ;put the returned attributes in the
  104.     mov    [di],cx         ;variable if there is no error
  105.     xor    ax,ax            ;and return a 0
  106. getout:
  107.     pop    ds
  108.     pop    bp
  109.     ret    14
  110. setattr endp
  111.  
  112.  
  113.  
  114.  
  115. ;--------------------------------
  116. ; End of Job Flag Status func(187) (BBH)
  117. ;
  118. ; var
  119. ;    Flag : Integer;
  120. ;
  121. ;ErrCode := eojstat(Flag);
  122. ;
  123.  
  124. eojstat proc    far
  125.     push    bp
  126.     mov    bp,sp
  127.     push    ds
  128.     lds    si,[bp+4]   ; put the flag in ax
  129.     mov    ax,[si]
  130.     mov    ah,0BBh     ; put the function in ah
  131.     int    21h
  132.     mov    ah,0
  133.     lds    di,[bp+4]
  134.     mov    [di],ax
  135.     pop    ds
  136.     pop    bp
  137.     ret    6
  138. eojstat endp
  139.  
  140.  
  141.  
  142.  
  143. ;------------------------------------------------------------
  144. ;
  145. ; Physical Record Lock: Log Record   BCH
  146. ;
  147. ; var
  148. ;    ErrCode,FileHandle,HiByteOffset,LoByteOffset : Integer
  149. ;    HiLockLen,LoLockLen,Flags,TimeOut         : Integer
  150. ;
  151. ;ErrCode := PRLH_Log(FileHandle,HiByteOffset,LoByteOffset,HiLockLen,
  152. ;             LoLockLen,Flags,TimeOut);
  153. ;
  154.  
  155. PRLH_Log proc    far
  156.     push    bp
  157.     mov    bp,sp
  158.     push    ds
  159.     lds    si,[bp+28]        ;FileHandle
  160.     mov    bx,[si]
  161.     lds    si,[bp+24]        ;ByteOffset
  162.     mov    cx,[si]
  163.     lds    si,[bp+20]
  164.     mov    dx,[si]
  165.     lds    si,[bp+8]        ;AL = Log Flags
  166.     mov    ax,[si]
  167.     lds    si,[bp+16]        ;LockLen
  168.     mov    si,[si]
  169.     lds    di,[bp+12]
  170.     mov    di,[di]
  171.     lds    bp,[bp+4]        ;time out
  172.     mov    bp,[bp]
  173.     mov    ah,0BCH
  174.     int    21H
  175.     mov    ah,0            ;0 the high byte of the return
  176.     pop    ds
  177.     pop    bp
  178.     ret    30
  179.  
  180. PRLH_Log endp
  181.  
  182.  
  183.  
  184.  
  185.  
  186. ;-----------------------------------------
  187. ;
  188. ; Physical Record Lock: Release Rec  BDH
  189. ;
  190. ; var
  191. ;    FileHandle,HiByteOffset,LoByteOffset,ErrCode,
  192. ;       HiWordLen,LoWordLen : integer;
  193. ;
  194. ; ErrCode := PRLH_Rel(FileHandle,HiByteOffset,LoByteOffset,HiWordLen,
  195. ;                           LoWordLen:integer);
  196.  
  197.  
  198. PRLH_Rel proc    far
  199.     push    bp
  200.     mov    bp,sp
  201.     push    ds
  202.     lds    si,[bp+20]        ;FileHandle
  203.     mov    bx,[si]
  204.     lds    si,[bp+16]               ;HiByteOffset
  205.     mov    cx,[si]
  206.     lds    si,[bp+12]            ;LoByte
  207.     mov    dx,[si]
  208.      lds     si,[bp+8]             ;HiWordLen
  209.      mov     si,[si]
  210.      lds     di,[bp+4]             ;LoWordLen
  211.      mov     di,[di]
  212.     mov    ah,0BDH
  213.     int    21H
  214.     mov    ah,0
  215.     pop    ds
  216.     pop    bp
  217.     ret    22
  218. PRLH_Rel endp
  219.  
  220.  
  221.  
  222.  
  223.  
  224. ;------------------------------------------------
  225. ;
  226. ; Physical Record Lock: Release Clr  BEH
  227. ;
  228. ; var
  229. ;    FileHandle,HiByteOffset,LoByteOffset,ErrCode,
  230. ;    HiWordLen,LoWordLen : integer;
  231. ; 
  232. ;  ErrCode := PRLH_Rel(FileHandle,HiByteOffset,LoByteOffset,HiWordLen,
  233. ;                           LoWordLen:integer);
  234. ;
  235.  
  236.  
  237. PRLH_Clr proc    far
  238.     push    bp
  239.     mov    bp,sp
  240.     push    ds
  241.     lds    si,[bp+20]        ;FileHandle
  242.     mov    bx,[si]
  243.     lds    si,[bp+16]               ;ByteOffset
  244.     mov    cx,[si]
  245.     lds    si,[bp+12]
  246.     mov    dx,[si]
  247.      lds     si,[bp+8]             ;HiWordLen
  248.      mov     si,[si]
  249.      lds     di,[bp+4]             ;LoWordLen
  250.      mov     di,[di]
  251.     mov    ah,0BEH
  252.     int    21H
  253.     mov    ah,0
  254.     pop    ds
  255.     pop    bp
  256.     ret    22
  257. PRLH_Clr endp
  258.  
  259.  
  260.  
  261.  
  262.  
  263. ;--------------------------------------------------
  264. ;
  265. ; Physical Record Lock: Log Rec FCB BFH
  266. ;
  267. ; var
  268. ;    ErrCode,fcb,HiByteOffset,LoByteOffset : Integer;
  269. ;    HiLockLen,LoLockLen,Flags,TimeOut     : Integer;
  270. ;
  271. ; ErrCode := PRLF_Log(fcb,HiByteOffset,LoByteOffset,HiLockLen,LoLockLen,Flags,TimeOut);
  272. ;
  273.  
  274.  
  275. PRLF_Log proc    far
  276.     push    bp
  277.     mov    bp,sp
  278.     push    ds
  279.     lds    si,[bp+28]              ;FCB
  280.     mov    dx,[si]
  281.     lds    si,[bp+24]              ;ByteOffset
  282.     mov    bx,[si]
  283.     lds    si,[bp+20]
  284.     mov    cx,[si]
  285.     lds    si,[bp+8]             ;AL = Log Flags
  286.     mov    ax,[si]
  287.     lds    si,[bp+12]              ;low lock length
  288.     mov    di,[si]
  289.     lds    si,[bp+16]              ;hi lock length
  290.     mov    si,[si]
  291.     mov    bp,[bp+4]             ;timeout value
  292.     mov    bp,[bp]
  293.     mov    ah,0BFH
  294.     int    21H
  295.     mov    ah,0
  296.     pop    ds
  297.     pop    bp
  298.     ret    28
  299. PRLF_Log endp
  300.  
  301.  
  302.  
  303.  
  304.  
  305. ;--------------------------------------------------
  306. ;
  307. ; Physical Record Lock: Rel Rec FCB C0H
  308. ;
  309. ; var
  310. ;    ErrCode,fcb,HiByteOffset,LoByteOffset : Integer;
  311. ;
  312. ; ErrCode := PRLF_Rel(fcb,HiByteOffset,LoByteOffset);
  313. ;
  314.  
  315.  
  316. PRLF_Rel proc    far
  317.     push    bp
  318.     mov    bp,sp
  319.     push    ds
  320.     lds    dx,[bp+12]              ;FCB
  321.     lds    si,[bp+8]             ;ByteOffset
  322.     mov    bx,[si]
  323.     lds    si,[bp+4]
  324.     mov    cx,[si]
  325.     mov    ah,0C0H
  326.     int    21H
  327.     mov    ah,0
  328.     pop    ds
  329.     pop    bp
  330.     ret    12
  331. PRLF_Rel endp
  332.  
  333.  
  334.  
  335.  
  336.  
  337. ;-----------------------------------------------
  338. ;
  339. ; Physical Record Lock: Clr Rec FCB C1H
  340. ;
  341. ; var
  342. ;    ErrCode,fcb,HiByteOffset,LoByteOffset : Integer;
  343. ;
  344. ; ErrCode := PRLF_clr(fcb,HiByteOffset,LoByteOffset);
  345. ;
  346.  
  347.  
  348. PRLF_Clr proc    far
  349.     push    bp
  350.     mov    bp,sp
  351.     push    ds
  352.     lds    dx,[bp+12]              ;FCB
  353.     lds    si,[bp+8]             ;ByteOffset
  354.     mov    bx,[si]
  355.     lds    si,[bp+4]
  356.     mov    cx,[si]
  357.     mov    ah,0C0H
  358.     int    21H
  359.     mov    ah,0
  360.     pop    ds
  361.     pop    bp
  362.     ret    12
  363. PRLF_Clr endp
  364.  
  365.  
  366.  
  367.  
  368.  
  369. ;---------------------------------------------
  370. ;
  371. ; Lock Record Set  C2H
  372. ;
  373. ; var
  374. ;    ErrCode, Flags, TimeOut : Integer;
  375. ;
  376. ; ErrCode := PRLS_Lck(Flags,TimeOut);
  377. ;
  378.  
  379.  
  380. PRLS_Lck proc    far
  381.     push    bp
  382.     mov    bp,sp
  383.     push    ds
  384.     lds    si,[bp+8]               ;AL = Lock flag bits
  385.     mov    ax,[si]
  386.     lds    si,[bp+4]               ;TimeOut Value
  387.     mov    bp,[si]
  388.     mov    ah,0C2h
  389.     int    21h
  390.     mov    ah,0
  391.     pop    ds
  392.     pop    bp
  393.     ret    10
  394. PRLS_Lck endp
  395.  
  396.  
  397.  
  398.  
  399.  
  400. ;----------------------------------------------
  401. ;
  402. ; Release Record Set  C3H
  403. ;
  404. ; var
  405. ;    ErrCode : Integer;
  406. ;
  407. ; ErrCode := PRLS_Rel;
  408. ;
  409.  
  410.  
  411. PRLS_Rel proc    far
  412.     mov    ah,0C3h
  413.     int    21h
  414.     mov    ah,0
  415.     ret
  416. PRLS_Rel endp
  417.  
  418.  
  419.  
  420.  
  421.  
  422. ;----------------------------------------------
  423. ;
  424. ; Clear Record Set  C4H
  425. ;
  426. ; var
  427. ;    ErrCode : Integer;
  428. ;
  429. ; errcode := PRLS_Clr;
  430. ;
  431.  
  432.  
  433. PRLS_Clr proc    far
  434.     mov    ah,0C4h
  435.     int    21h
  436.     mov    ah,0
  437.     ret
  438. PRLS_Clr endp
  439.  
  440.  
  441.  
  442.  
  443.  
  444. ;--------------------------------
  445. ; Semaphores func(197) (C5H) subfunction 00h
  446. ;
  447. ; var
  448. ;    RetCode,SemaValu,HiHandle,LoHandle,OpenCnt : Integer;
  449. ;    Sema4 : String[n];
  450. ;
  451. ; RetCode := OpenSem(Sema4,SemaValu,HiHandle,LoHandle,OpenCnt);
  452. ;
  453.  
  454.  
  455. OpenSem proc    far
  456.     push    bp
  457.     mov    bp,sp
  458.     push    ds
  459.     lds    dx,[bp+20]      ;ptr to Semaphore string
  460.     lds    si,[bp+16]      ;set semaphore value
  461.     mov    cx,[si]
  462.     mov    ax,0C500h        ;set the function
  463.     int    21h
  464.     mov    bh,00h
  465.     lds    di,[bp+4]      ;return the open count
  466.     mov    [di],bx
  467.     lds    di,[bp+8]      ;return low handle
  468.     mov    [di],cx
  469.     lds    di,[bp+12]      ;return high handle
  470.     mov    [di],dx
  471.     mov    ah,00h
  472.     pop    ds
  473.     pop    bp
  474.     ret    22
  475. OpenSem endp
  476.  
  477.  
  478.  
  479.  
  480.  
  481. ;--------------------------------
  482. ; Semaphores func(197) (C5H) subfunction 01h
  483. ;
  484. ; var
  485. ;    RetCode,HiHandle,LoHandle,SemaValu,OpenCnt : Integer;
  486. ;
  487. ; RetCode := ExamSem(HiHandle,LoHandle,SemaValu,OpenCnt);
  488. ;
  489.  
  490.  
  491. ExamSem proc    far
  492.     push    bp
  493.     mov    bp,sp
  494.     push    ds
  495.     lds    si,[bp+16]        ;hi handle
  496.     mov    dx,[si]
  497.     lds    si,[bp+12]        ;lo handle
  498.     mov    cx,[si]
  499.     mov    ax,0C501h        ;set function
  500.     int    21h
  501.     lds    di,[bp+8]               ;return semaphore value
  502.     mov    [di],cx
  503.     mov    dh,00h
  504.     lds    di,[bp+4]
  505.     mov    [di],dx              ;return open count
  506.     mov    ah,00h
  507.     pop    ds
  508.     pop    bp
  509.     ret    16
  510. ExamSem endp
  511.  
  512.  
  513.  
  514.  
  515.  
  516. ;--------------------------------
  517. ; Semaphores func(197) (C5H) subfunction 02h
  518. ;
  519. ; var
  520. ;    RetCode,HiHandle,LoHandle,TimeOut : Integer;
  521. ;
  522. ; RetCode := WaitSem(HiHandle,LoHandle,TimeOut);
  523. ;
  524.  
  525.  
  526. WaitSem proc    far
  527.     push    bp
  528.     mov    bp,sp
  529.     push    ds
  530.     lds    si,[bp+12]        ;hi handle
  531.     mov    dx,[si]
  532.     lds    si,[bp+8]               ;lo handle
  533.     mov    cx,[si]
  534.     lds    si,[bp+4]
  535.     mov    bp,[si]              ;set time out
  536.     mov    ax,0C502h        ;set function
  537.     int     21h
  538.     mov    ah,00h
  539.     pop    ds
  540.     pop    bp
  541.     ret    12
  542. WaitSem endp
  543.  
  544.  
  545.  
  546.  
  547.  
  548. ;--------------------------------
  549. ; Semaphores func(197) (C5H) subfunction 03h
  550. ;
  551. ; var
  552. ;    RetCode,HiHandle,LoHandle : Integer;
  553. ;
  554. ; RetCode := SigSem(HiHandle,LoHandle);
  555. ;
  556.  
  557.  
  558. SigSem    proc    far
  559.     push    bp
  560.     mov    bp,sp
  561.     push    ds
  562.     lds    si,[bp+8]               ;hi handle
  563.     mov    dx,[si]
  564.     lds    si,[bp+4]               ;lo handle
  565.     mov    cx,[si]
  566.     mov    ax,0C503h        ;set function
  567.     int    21h
  568.     mov    ah,00h
  569.     pop    ds
  570.     pop    bp
  571.     ret    8
  572. SigSem    endp
  573.  
  574.  
  575.  
  576.  
  577.  
  578. ;--------------------------------
  579. ; Semaphores func(197) (C5H) subfunction 04h
  580. ;
  581. ; var
  582. ;    RetCode,HiHandle,LoHandle : Integer;
  583. ;
  584. ; RetCode := ClosSem(HiHandle,LoHandle);
  585. ;
  586.  
  587.  
  588. ClosSem proc    far
  589.     push    bp
  590.     mov    bp,sp
  591.     push    ds
  592.     lds    si,[bp+8]               ;hi handle
  593.     mov    dx,[si]
  594.     lds    si,[bp+4]               ;lo handle
  595.     mov    cx,[si]
  596.     mov    ax,0C504h        ;set function
  597.     int    21h
  598.     mov    ah,00h
  599.     pop    ds
  600.     pop    bp
  601.     ret    8
  602. ClosSem endp
  603.  
  604.  
  605.  
  606.  
  607.  
  608. ;--------------------------------
  609. ; Get or Set Lock Mode func(198) (C6H)
  610. ;
  611. ; var
  612. ;    Mode,Func : Integer;
  613. ;
  614. ; Mode := setlck(Func);
  615. ;
  616.  
  617.  
  618. setlck    proc    far
  619.     push    bp
  620.     mov    bp,sp
  621.     push    ds
  622.     lds    si,[bp+4]
  623.     mov    ax,[si]               ;set the subfunction
  624.     mov    ah,0C6h         ;set  the function
  625.     int    21h
  626.     mov    ah,0
  627.     pop    ds
  628.     pop    bp
  629.     ret    4
  630. setlck endp
  631.  
  632.  
  633.  
  634.  
  635.  
  636. ;--------------------------------
  637. ; Transactional Backout func(199) (C7H)
  638. ;
  639. ; var
  640. ;    RetCode, Func : Integer;
  641. ;
  642. ; RetCode := BakOuts(Func);
  643. ;
  644.  
  645.  
  646. BakOuts proc    far
  647.     push    bp
  648.     mov    bp,sp
  649.     push    ds
  650.     lds    si,[bp+4]               ;set the subfunction
  651.     mov    ax,[si]
  652.     mov    ah,0C7h         ;set  the function
  653.     int    21h
  654.     mov    ah,0
  655.     pop    ds
  656.     pop    bp
  657.     ret    4
  658. BakOuts endp
  659.  
  660.  
  661.  
  662.  
  663.  
  664. ;--------------------------------
  665. ; Begin transaction  func(200) (C8H)
  666. ;
  667. ; var
  668. ;    RetCode,Mode : Integer;
  669. ;
  670. ; RetCode := btrans(Mode);
  671. ;
  672.  
  673.  
  674. btrans    proc    far
  675.     mov    ah,0C8h
  676.     call    far ptr arg1t
  677.     ret    4
  678. btrans    endp
  679.  
  680.  
  681.  
  682.  
  683.  
  684. ;--------------------------------
  685. ; End Transaction func(201) (C9H)
  686. ;
  687. ; var
  688. ;    RetCode : Integer;
  689. ;
  690. ; RetCode := etrans;
  691. ;
  692.  
  693.  
  694. etrans    proc    far
  695.     mov    ah,0C9H
  696.     int    021h
  697.     mov    ah,00h
  698.     ret
  699. etrans    endp
  700.  
  701.  
  702.  
  703.  
  704.  
  705. ;--------------------------------
  706. ; Exc.log File (202) (CA)
  707. ;
  708. ; var
  709. ;    RetCode, FcbAddr : Integer;
  710. ;
  711. ; RetCode := exclog(FcbAddr);
  712. ;
  713.  
  714. exclog    proc    far
  715.     mov    ah,0CAH
  716.     call    far ptr arg1f
  717.     ret    4
  718. exclog    endp
  719.  
  720.  
  721.  
  722.  
  723.  
  724. ;--------------------------------
  725. ; Exc Lock Set    func(203) (CBH)
  726. ;
  727. ; var
  728. ;    RetCode, Mode : Integer;
  729. ;
  730. ; RetCode := exclcks(Mode);
  731. ;
  732.  
  733.  
  734. exclcks proc    far
  735.     mov    ah,0CBH
  736.     call    far ptr arg1
  737.     ret    4
  738. exclcks endp
  739.  
  740.  
  741.  
  742.  
  743. ;--------------------------------
  744. ; Exclusive file unlock (204) (CC)
  745. ;
  746. ; var
  747. ;    RetCode, FcbAddr : Integer;
  748. ;
  749. ; RetCode := exculkf(FcbAddr);
  750. ;
  751.  
  752.  
  753. exculkf proc    far
  754.     mov    ah,0CCH
  755.     call    far ptr arg1f
  756.     ret    4
  757. exculkf endp
  758.  
  759.  
  760.  
  761.  
  762.  
  763. ;--------------------------------
  764. ; Exclusive Unlock Set (205)(CD)
  765. ;
  766. ; var
  767. ;    RetCode : Integer;
  768. ;
  769. ; RetCode := exculks;
  770. ;
  771.  
  772.  
  773. exculks proc    far
  774.     mov    ah,0CDH
  775.     int    21h
  776.     mov    ah,00h
  777.     ret
  778. exculks endp
  779.  
  780.  
  781.  
  782.     
  783.  
  784. ;--------------------------------
  785. ; Exc Clear file func(206) (CEH)
  786. ;
  787. ; var
  788. ;    RetCode, FcbAddr : Integer;
  789. ;
  790. ; RetCode := excclrf(FcbAddr);
  791. ;
  792.  
  793.  
  794. excclrf proc    far
  795.     mov    ah,0CEH
  796.     call    far ptr arg1f
  797.     ret    4
  798. excclrf endp
  799.  
  800.  
  801.  
  802.  
  803.  
  804. ;--------------------------------
  805. ; Exc Clear Set  func(207) (CFH)
  806. ;
  807. ; var
  808. ;    RetCode : Integer;
  809. ;
  810. ; RetCode := excclrs;
  811. ;
  812.  
  813.  
  814. excclrs proc    far
  815.     mov    ah,0CFH
  816.     int    21h
  817.     mov    ah,00h
  818.     ret
  819. excclrs endp
  820.  
  821.  
  822.  
  823.  
  824.  
  825. ;--------------------------------
  826. ; Log Record(s) func(208) (D0H)
  827. ;
  828. ; var
  829. ;    RetCode, Flag, Timeout : Integer ;
  830. ;    RecStr    : String[n];
  831. ;
  832. ; RetCode := reclog(RecStr,Flag,Timeout);
  833. ;
  834.  
  835.  
  836. reclog    proc    far
  837.      push     bp
  838.      mov     bp,sp
  839.      push     ds
  840.      lds     si,[bp+8]          ;load flags
  841.      mov     ax,[si]
  842.      lds     si,[bp+4]          ;get timeout
  843.      mov     si,[si]
  844.      lds     dx,[bp+12]         ;get ptr to string
  845.      mov     bp,si              ;move timeout to BP
  846.      mov     ah,0D0h
  847.      int     21h
  848.      mov     ah,0
  849.      pop     ds
  850.      pop     bp
  851.      ret     14
  852. reclog    endp
  853.  
  854.  
  855.  
  856.  
  857.  
  858.  
  859. ;--------------------------------
  860. ; Record Lock func(209) (D1H)
  861. ;
  862. ; var
  863. ;    RetCode, Mode : Integer;
  864. ;
  865. ; RetCode := reclck(Mode);
  866. ;
  867.  
  868.  
  869. reclck    proc    far
  870.      push     bp
  871.      mov     bp,sp
  872.      push     ds
  873.      lds     si,[bp+4]
  874.      mov     bp,[si]
  875.      mov     ah,0D1h
  876.      int     21h
  877.      mov     ah,0
  878.      pop     ds
  879.      pop     bp
  880.      ret     6
  881. reclck    endp
  882.  
  883.  
  884.  
  885.  
  886.  
  887. ;--------------------------------
  888. ; Record Unlock func(210) (D2H)
  889. ;
  890. ; var
  891. ;    RetCode   : Integer;
  892. ;    Semaphore : String[n];
  893. ;
  894. ; RetCode := reculk(Semaphore);
  895. ;
  896.  
  897.  
  898. reculk    proc    far
  899.     mov    ah,0D2H
  900.     call    far ptr arg1a
  901.     ret    4
  902. reculk    endp
  903.  
  904.  
  905.  
  906.  
  907.  
  908. ;--------------------------------
  909. ; Unlock Record Set func(211) (D3H)
  910. ;
  911. ; var
  912. ;    RetCode : Integer;
  913. ;
  914. ; RetCode := reculks;
  915. ;
  916.  
  917.  
  918. reculks proc    far
  919.     mov    ah,0D3H
  920.     int    21h
  921.     mov    ah,00h
  922.     ret
  923. reculks endp
  924.  
  925.  
  926.  
  927.  
  928.  
  929. ;--------------------------------
  930. ; Record Clear func(212) (D4H)
  931. ;
  932. ; var
  933. ;    RetCode   : Integer;
  934. ;    Semaphore : String[n];
  935. ;
  936. ; RetCode := recclr(Semaphore);
  937. ;
  938.  
  939.  
  940. recclr    proc    far
  941.     mov    ah,0D4H
  942.     call    far ptr arg1a
  943.     ret    4
  944. recclr    endp
  945.  
  946.  
  947.  
  948.  
  949.  
  950. ;--------------------------------
  951. ; Clear record set func(213) (D5H)
  952. ;
  953. ; var
  954. ;    RetCode : Integer;
  955. ;
  956. ; RetCode := recclrs;
  957. ;
  958.  
  959.  
  960. recclrs proc    far
  961.     mov    ah,0D5H
  962.     int    21h
  963.     mov    ah,00h
  964.     ret    4
  965. recclrs endp
  966.  
  967.  
  968.  
  969.  
  970.  
  971. ;--------------------------------
  972. ; End of Job  func(214) (D6H)
  973. ;
  974. ; var
  975. ;    RetCode : Integer;
  976. ;
  977. ; RetCode := eoj;
  978. ;
  979.  
  980. eoj    proc    far
  981.     mov    ah,0D6H
  982.     int    21h
  983.     mov    ah,00h
  984.     ret    4
  985. eoj    endp
  986.  
  987.  
  988.  
  989.  
  990.  
  991. ;--------------------------------
  992. ; Logout System  func(215) (D7H)
  993. ;
  994. ; var
  995. ;    RetCode : Integer;
  996. ;
  997. ; RetCode := sysout;
  998. ;
  999.  
  1000.  
  1001. sysout    proc    far
  1002.     mov    ah,0D7H
  1003.     int    21h
  1004.     mov    ah,00h
  1005.     ret    4
  1006. sysout    endp
  1007.  
  1008.  
  1009.  
  1010.  
  1011.  
  1012. ;--------------------------------
  1013. ; Vol Statistics func(218) (DAH)
  1014. ;
  1015. ; var
  1016. ;    RetCode,volume : Integer;
  1017. ;    reply  : String[n];
  1018. ;
  1019. ; RetCode := volstat(volume, reply);
  1020.  
  1021.  
  1022. volstat proc    far
  1023.     mov    ah,0DAh
  1024.     push    bp
  1025.     mov    bp,sp
  1026.     push    ds
  1027.     push    es
  1028.     lds    si,[bp+8]     ;addr for the volume number
  1029.     mov    dx,[si]       ;get the volume number
  1030.     les    di,[bp+4]     ;ptr to reply buffer
  1031.     inc    di          ;add 1 to get the address of the string
  1032.     int    21h
  1033.     mov    ah,00h
  1034.     pop    es
  1035.     pop    ds
  1036.     pop    bp
  1037.     ret    8
  1038. volstat endp
  1039.  
  1040.  
  1041.  
  1042.  
  1043.  
  1044. ;--------------------------------
  1045. ; Local Disks  func(219) (DBH)
  1046. ;
  1047. ; var
  1048. ;    NumDisks : Integer;
  1049. ;
  1050. ; NumDisks := locdrv;
  1051. ;
  1052.  
  1053.  
  1054. locdrv    proc    far
  1055.     mov    ah,0DBH
  1056.     int    21h
  1057.     mov    ah,00h
  1058.     ret
  1059. locdrv endp
  1060.  
  1061.  
  1062.  
  1063.  
  1064.  
  1065. ;--------------------------------
  1066. ; WorkStation ID func(220) (DCH)
  1067. ;
  1068. ; note: This routine returns the station number as an integer.
  1069. ;    It can also be returned in ASCII with this call.
  1070. ;
  1071. ; var
  1072. ;    StationNum : Integer;
  1073. ;
  1074. ; StationNum := wsid;
  1075. ;
  1076.  
  1077.  
  1078. wsid   proc    far
  1079.        mov     ah,0DCH
  1080.        int     21h
  1081.        mov     ah,00h
  1082.        ret
  1083. wsid   endp
  1084.  
  1085.  
  1086.  
  1087.  
  1088.  
  1089. ;--------------------------------
  1090. ; Set Error mode func(221) (DDH)
  1091. ;
  1092. ; var
  1093. ;    mode : Integer;
  1094. ;
  1095. ; errmode(mode);
  1096. ;
  1097.  
  1098.  
  1099. errmode proc    far
  1100.     mov    ah,0DDH
  1101.     call    far ptr arg1
  1102.     ret    4
  1103. errmode endp
  1104.  
  1105.  
  1106.  
  1107.  
  1108.  
  1109. ;--------------------------------
  1110. ; Broadcast Mode func(222) (DEH)
  1111. ;
  1112. ; var
  1113. ;    mode : Integer;
  1114. ;
  1115. ; bcsmode(mode);
  1116. ;
  1117.  
  1118. bcsmode proc    far
  1119.     mov    ah,0DEH
  1120.     call    far ptr arg1
  1121.     ret    4
  1122. bcsmode endp
  1123.  
  1124.  
  1125.  
  1126.  
  1127.  
  1128. ;--------------------------------
  1129. ; Modify LST Device  func(223) (DFH)
  1130. ;
  1131. ; var
  1132. ;    RetCode, Mode : Integer;
  1133. ;
  1134. ; RetCode := ctlspl(Mode);
  1135. ;
  1136.  
  1137. ctlspl    proc    far
  1138.     mov    ah,0DFh
  1139.     call    far ptr arg1
  1140.     ret    4
  1141. ctlspl    endp
  1142.  
  1143.  
  1144.  
  1145.  
  1146.  
  1147. ;--------------------------------
  1148. ; Spool Request func(224) (E0H)
  1149. ;
  1150. ; var
  1151. ;    ErrCode         : Integer;
  1152. ;    RequestBlock, Reply : String[n];
  1153. ;
  1154. ; ErrCode := splreq(RequestBlock, Reply);
  1155. ;
  1156.  
  1157. splreq    proc    far
  1158.     mov    ah,0E0h
  1159.     call    far ptr req_rep
  1160.     ret    8
  1161. splreq    endp
  1162.  
  1163.  
  1164.  
  1165.  
  1166.  
  1167. ;--------------------------------
  1168. ; Pipe Request func(225) (E1H)
  1169. ;
  1170. ; var
  1171. ;    ErrCode         : Integer;
  1172. ;    RequestBlock, Reply : String[n];
  1173. ;
  1174. ; ErrCode := pipreq(RequestBlock, Reply);
  1175. ;
  1176.  
  1177. pipreq    proc    far
  1178.     mov    ah,0E1h
  1179.     call    far ptr req_rep
  1180.     ret    8
  1181. pipreq    endp
  1182.  
  1183.  
  1184.  
  1185.  
  1186.  
  1187. ;--------------------------------
  1188. ; Directory Path func(226) (E2H)
  1189. ;
  1190. ; var
  1191. ;    ErrCode         : Integer;
  1192. ;    RequestBlock, Reply : String[n];
  1193. ;
  1194. ; ErrCode := dpath(RequestBlock, Reply);
  1195. ;
  1196.  
  1197. dpath    proc    far
  1198.     mov    ah,0E2h
  1199.     call    far ptr req_rep
  1200.     ret    8
  1201. dpath    endp
  1202.  
  1203.  
  1204.  
  1205.  
  1206.  
  1207. ;--------------------------------
  1208. ; Login system func(227) (E3H)
  1209. ;
  1210. ; var
  1211. ;    ErrCode         : Integer;
  1212. ;    RequestBlock, Reply : String[n];
  1213. ;
  1214. ; ErrCode := syslog(RequestBlock, Reply);
  1215. ;
  1216.  
  1217. syslog    proc    far
  1218.     mov    ah,0E3h
  1219.     call    far ptr req_rep
  1220.     ret    8
  1221. syslog    endp
  1222.  
  1223.  
  1224.  
  1225.  
  1226.  
  1227. ;--------------------------------
  1228. ; Set File Attribute func(228) (E4H)
  1229. ;
  1230. ; var
  1231. ;    RetCode, FcbAddr, Attribute : Integer;
  1232. ;
  1233. ; RetCode := fattr(FcbAddr, Attribute);
  1234. ;
  1235.  
  1236. fattr    proc    far
  1237.     push    bp
  1238.     mov    bp,sp
  1239.     push    ds
  1240.     lds    si,[bp+4]
  1241.     mov    cx,[si]  ;cx=attribute
  1242.     lds    dx,[bp+8];dx=address of fcb
  1243.     mov    ah,0E4h
  1244.     int    21h
  1245.     mov    ah,0
  1246.     pop    ds
  1247.     pop    bp
  1248.     ret
  1249. fattr    endp
  1250.  
  1251.  
  1252.  
  1253.  
  1254.  
  1255. ;--------------------------------
  1256. ; Update file size func(229) (E5H)
  1257. ;
  1258. ; var
  1259. ;    ErrCode,FcbAddr : Integer;
  1260. ;
  1261. ; ErrCode := updfcb(FcbAddr);
  1262. ;
  1263.  
  1264. updfcb    proc    far
  1265.     mov    ah,0E5H
  1266.     call    far ptr arg1f
  1267.     ret    4
  1268. updfcb    endp
  1269.  
  1270.  
  1271.  
  1272.  
  1273.  
  1274. ;--------------------------------
  1275. ; Copy File to File func(230) (E6H)
  1276. ;
  1277. ; var
  1278. ;    RetCode,FcbSource,FcbDest : Integer;
  1279. ;    CountLow, CountHigh      : Integer;
  1280. ;
  1281. ; RetCode := cpyfile(FcbSource, FcbDest, CountLow, CountHigh)
  1282. ;
  1283. ;
  1284.  
  1285. cpyfile proc    far
  1286.     mov    ah,0E6h
  1287.     push    bp
  1288.     mov    bp,sp
  1289.     push    ds
  1290.     push    es
  1291.     lds    si,[bp+4]           ;addr of the high byte cnt
  1292.     mov    dx,[si]             ;dx=high word of byte cnt
  1293.     lds    si,[bp+8]           ;addr low word of byte cnt
  1294.     mov    cx,[si]             ;cx=low 16 bits of count
  1295.     les    di,[bp+12]          ;address of dest fcb
  1296.     lds    si,[bp+16]          ;address of the source fcb
  1297.     int    21h
  1298.     mov    ah,0
  1299.     pop    es
  1300.     pop    ds
  1301.     pop    bp
  1302.     ret    16
  1303. cpyfile endp
  1304.  
  1305.  
  1306.  
  1307.  
  1308.  
  1309. ;--------------------------------
  1310. ; get time / date string func(231) (E7H)
  1311. ;
  1312. ; var
  1313. ;    time : String[n];
  1314. ;
  1315. ; nettod(time);
  1316. ;
  1317. ; where time is a string of the form Y M D H M S
  1318. ;
  1319.  
  1320. nettod    proc    far
  1321.     mov    ah,0E7h
  1322.     call    far ptr arg1a
  1323.     ret    4
  1324. nettod    endp
  1325.  
  1326.  
  1327.  
  1328.  
  1329.  
  1330. ;--------------------------------
  1331. ; Set Close mode func(232) (E8H)
  1332. ;
  1333. ; var
  1334. ;    mode : Integer;
  1335. ;
  1336. ; clsmode(mode);
  1337. ;
  1338.  
  1339. clsmode proc    far
  1340.     mov    ah,0E8H
  1341.     call    far ptr arg1wor
  1342.     ret    4
  1343. clsmode endp
  1344.  
  1345.  
  1346.  
  1347.  
  1348.  
  1349.  
  1350. ;--------------------------------
  1351. ; Shell Base Status func(233) (E9H)
  1352. ;
  1353. ; var
  1354. ;    RetFlags, drive : Integer;
  1355. ;
  1356. ; RetFlags := drvmap(drive);
  1357. ;
  1358.  
  1359. drvmap    proc    far
  1360.     mov    ax,0E900h
  1361.     call    far ptr arg1
  1362.     ret    4
  1363. drvmap    endp
  1364.  
  1365.  
  1366.  
  1367.  
  1368.  
  1369.  
  1370. ;--------------------------------
  1371. ; Return Shell Version func(234) (EAH)
  1372. ;
  1373. ; var
  1374. ;    RetCode, Mode : Integer;
  1375. ;    EnvirStr      : String[n];
  1376. ;
  1377. ; RetCode := retshl(EnvirStr, Mode);
  1378. ;
  1379.  
  1380. retshl    proc    far
  1381.     push    bp
  1382.     mov    bp,sp
  1383.     push    ds
  1384.     push    es
  1385.     les    di,[bp+8]     ;set es:di to point at the buffer
  1386.     inc    di          ;point di at the start of the data area
  1387.     lds    si,[bp+4]     ;put the mode into al
  1388.     mov    ax,[si]
  1389.     mov    ah,0EAh
  1390.     int    21h
  1391.     mov    ah,00h
  1392.      pop     es
  1393.      pop     ds
  1394.      pop     bp
  1395.     ret    8
  1396. retshl    endp
  1397.  
  1398.  
  1399.  
  1400.  
  1401.  
  1402. ;--------------------------------
  1403. ; ascii log File (235) (EB)
  1404. ;
  1405. ; var
  1406. ;    RetCode, Flags, TimeOut : Integer;
  1407. ;    Asciiz            : String[n];
  1408. ;
  1409. ; RetCode := asclog(Flags, TimeOut, Asciiz);
  1410. ;
  1411.  
  1412. asclog    proc    far
  1413.     push    bp
  1414.     mov    bp,sp
  1415.     push    ds
  1416.     lds    si,[bp+12]
  1417.     mov    ax,[si]           ;flags into al
  1418.     lds    dx,[bp+4]         ;pointer to the asciiz string
  1419.     lds    si,[bp+8]
  1420.     mov    bp,[si]           ;time out into bp
  1421.     mov    ah,0EBH
  1422.     int    21h
  1423.     mov    ah,00h
  1424.      pop     ds
  1425.      pop     bp
  1426.     ret    12
  1427. asclog    endp
  1428.  
  1429.  
  1430.  
  1431.  
  1432.  
  1433. ;--------------------------------
  1434. ; ASCIIZ file unlock (236) (EC)
  1435. ;
  1436. ; var
  1437. ;    RetCode : Integer;
  1438. ;    Asciiz    : String[n];
  1439. ;
  1440. ; RetCode := asculkf(Asciiz);
  1441. ;
  1442.  
  1443. asculkf proc    far
  1444.     mov    ah,0ECH
  1445.     call    far ptr arg1a
  1446.     ret    4
  1447. asculkf endp
  1448.  
  1449.  
  1450.  
  1451.  
  1452.  
  1453. ;--------------------------------
  1454. ; ASCIIZ Clear file func(237) (EDH)
  1455. ;
  1456. ; var
  1457. ;    RetCode : Integer;
  1458. ;    Asciiz    : String[n];
  1459. ;
  1460. ; RetCode := ascclrf(Asciiz);
  1461. ;
  1462.  
  1463. ascclrf proc    far
  1464.     mov    ah,0EDH
  1465.     call    far ptr arg1a
  1466.     ret    4
  1467. ascclrf endp
  1468.  
  1469.  
  1470.  
  1471.  
  1472.  
  1473. ;--------------------------------------------
  1474. ;
  1475. ; Get Physical Station Number  EEH
  1476. ;
  1477. ; var
  1478. ;    StationNo : Integer;
  1479. ;
  1480. ; StationNo := Get_PSN;
  1481. ;
  1482.  
  1483. Get_PSN proc    far
  1484.  
  1485.     mov    ah,0EEh
  1486.     int    21h
  1487.     mov    ah,0
  1488.     ret
  1489. Get_PSN endp
  1490.  
  1491.  
  1492.  
  1493.  
  1494.  
  1495. ;-----------------------------------------------------
  1496. ;
  1497. ; Get Shell Table Addresses (239) EFH
  1498. ;
  1499. ; var
  1500. ;    Mode,Segment,Offset : Integer;
  1501. ;
  1502. ; Get_STA(Mode,Segment,Offset);
  1503. ;
  1504.  
  1505. Get_STA proc    far
  1506.     push    bp
  1507.     mov    bp,sp
  1508.     push    es
  1509.     push    ds
  1510.     mov    si,[bp+12]        ;get the mode
  1511.     mov    ax,[si]
  1512.     mov    ah,0EFh         ;set the function
  1513.     int    21h
  1514.     lds    di,[bp+8]        ;store the segment location
  1515.     mov    [di],es
  1516.     lds    di,[bp+4]        ;store the offset location
  1517.     mov    [di],si
  1518.     pop    ds
  1519.     pop    es
  1520.     pop    bp
  1521.     ret    12
  1522. Get_STA endp
  1523.  
  1524.  
  1525.  
  1526.  
  1527.  
  1528. ;-----------------------------------------------
  1529. ;
  1530. ; Set Preferred File Server (240) F0H
  1531. ;
  1532. ; var
  1533. ;    RetServer, Mode, NewServ : Integer;
  1534. ;
  1535. ; RetServer := SetServ(Mode,NewServ);
  1536. ;
  1537.  
  1538. SetServ proc    far
  1539.     push    bp
  1540.     mov    bp,sp
  1541.     push    ds
  1542.     mov    si,[bp+8]        ;get the mode
  1543.     mov    ax,[si]
  1544.     mov    di,[bp+4]        ;set the preferred server number
  1545.     mov    dx,[di]
  1546.     mov    ah,0F0h         ;set the function
  1547.     int    21h
  1548.     mov    ah,0
  1549.     pop    ds
  1550.     pop    bp
  1551.     ret    6
  1552. SetServ endp
  1553.  
  1554.  
  1555.  
  1556.  
  1557.  
  1558. ;-----------------------------------------------------------
  1559. ;
  1560. ; Attach/Detach To File Server (241) F1H
  1561. ;
  1562. ; var
  1563. ;    RetCode, Mode, NewServ : Integer;
  1564. ;
  1565. ; RetCode := ModServ(Mode,NewServ);
  1566. ;
  1567.  
  1568. ModServ proc    far
  1569.     push    bp
  1570.     mov    bp,sp
  1571.     push    ds
  1572.     lds    si,[bp+8]        ;get the mode
  1573.     mov    ax,[si]
  1574.     lds    di,[bp+4]        ;set the preferred server number
  1575.     mov    dx,[di]
  1576.     mov    ah,0F1h         ;set the function
  1577.     int    21h
  1578.     mov    ah,0
  1579.     pop    ds
  1580.     pop    bp
  1581.     ret    6
  1582. ModServ endp
  1583.  
  1584.  
  1585.  
  1586.  
  1587.  
  1588. ;-------------------------------
  1589. ; Place a single integer argument into dx
  1590. ; with a return code
  1591.  
  1592. arg1    proc    far
  1593.     push    bp
  1594.     mov    bp,sp
  1595.     push    ds
  1596.     lds    si,[bp+6]
  1597.     mov    dx,[si]    ;dx gets the argument
  1598.     int    21h
  1599.     mov    ah,0       ;clear ah for al return code
  1600.     pop    ds
  1601.     pop    bp
  1602.     ret
  1603. arg1    endp
  1604.  
  1605.  
  1606.  
  1607.  
  1608.  
  1609. ;--------------------------------
  1610. ; Place a single integer argument into bp
  1611. ; for use with time outs - with a return code
  1612.  
  1613. arg1t    proc    far
  1614.     push    bp
  1615.     mov    bp,sp
  1616.     push    ds
  1617.     lds    si,[bp+6]
  1618.     mov    bp,[si]    ;dx gets the argument
  1619.     int    21h
  1620.     mov    ah,0       ;clear ah for al return code
  1621.     pop    ds
  1622.     pop    bp
  1623.     ret
  1624. arg1t    endp
  1625.  
  1626.  
  1627.  
  1628.  
  1629.  
  1630.  
  1631. ;--------------------------------
  1632. ; Process an fcb address in a
  1633. ; function call with a return code
  1634.  
  1635. arg1f    proc    far
  1636.     push    bp
  1637.     mov    bp,sp
  1638.     push    ds
  1639.     lds    dx,[bp+6]      ;dx gets the argument
  1640.     int    21h
  1641.     mov    ah,0           ;clear ah for al return code
  1642.     pop    ds
  1643.     pop    bp
  1644.     ret
  1645. arg1f    endp
  1646.  
  1647.  
  1648.  
  1649.  
  1650.  
  1651. ;--------------------------------
  1652. ; Process a single string argument in a
  1653. ; function call with a return code
  1654.  
  1655. arg1a    proc    far
  1656.     push    bp
  1657.     mov    bp,sp
  1658.     push    ds
  1659.     lds    dx,[bp+6]     ;ptr to parameter string
  1660.     int    21h
  1661.     mov    ah,0          ;clear ah for al return code
  1662.     pop    ds
  1663.     pop    bp
  1664.     ret
  1665. arg1a    endp
  1666.  
  1667.  
  1668.  
  1669.  
  1670.  
  1671.  
  1672. ;----------------------------
  1673. ; Perform a single integer argument
  1674. ; but without a return code
  1675.  
  1676. arg1wor proc    far
  1677.     push    bp
  1678.     mov    bp,sp
  1679.     push    ds
  1680.     lds    si,[bp+6]
  1681.     mov    dx,[si]       ;dx gets the arg (or ptr)
  1682.     int    21h
  1683.     pop    ds
  1684.     pop    bp
  1685.     ret
  1686. arg1wor endp
  1687.  
  1688.  
  1689.  
  1690.  
  1691.  
  1692.  
  1693. ;----------------------------
  1694. ; Perform a single string argument
  1695. ; but without a return code
  1696.  
  1697. arg1awor proc    far
  1698.     push    bp
  1699.     mov    bp,sp
  1700.     push    ds
  1701.     lds    dx,[bp+6]
  1702.     inc    dx          ;add 1 to get the start of the string
  1703.     int    21h
  1704.     pop    ds
  1705.     pop    bp
  1706.     ret
  1707. arg1awor endp
  1708.  
  1709.  
  1710.  
  1711.  
  1712.  
  1713.  
  1714. ;----------------------------
  1715. ; Handle a request$ and reply$ function
  1716. ; with error code
  1717.  
  1718. req_rep proc    far
  1719.     push    bp
  1720.     mov    bp,sp
  1721.     push    ds
  1722.     push    es
  1723.     lds    si,[bp+10]       ;ptr to req. string
  1724.     inc    si            ;add 1 to get the address of the string
  1725.     les    di,[bp+6]       ;ptr to var desc block for reply buf
  1726.     inc    di            ;add 1 to get the address of the string
  1727.     pushf                  ;save the direction flag
  1728.     int    21h
  1729.     popf
  1730.     mov    ah,0
  1731.     pop    es
  1732.     pop    ds
  1733.     pop    bp
  1734.     ret
  1735. req_rep endp
  1736.  
  1737.  
  1738.  
  1739. cseg    ends
  1740.     end
  1741.