MZ is back!HEADmain

1 files changed, 68 insertions, 0 deletions

diff --git a/v4.0/src/DOS/DUP.ASM b/v4.0/src/DOS/DUP.ASM
new file mode 100644
index 0000000..0f8c768
--- /dev/null
+++ b/v4.0/src/DOS/DUP.ASM
@@ -0,0 +1,68 @@
+;       SCCSID = @(#)dup.asm    1.1 85/04/10
+;       SCCSID = @(#)dup.asm    1.1 85/04/10
+TITLE   DOS_DUP - Internal SFT DUP (for network SFTs)
+NAME    DOS_DUP
+; Low level DUP routine for use by EXEC when creating a new process. Exports
+;   the DUP to the server machine and increments the SFT ref count
+;
+; DOS_DUP
+;
+;   Modification history:
+;
+;       Created: ARR 30 March 1983
+;
+
+;
+; get the appropriate segment definitions
+;
+.xlist
+include dosseg.asm
+
+CODE    SEGMENT BYTE PUBLIC  'CODE'
+        ASSUME  SS:DOSGROUP,CS:DOSGROUP
+
+.xcref
+INCLUDE DOSSYM.INC
+INCLUDE DEVSYM.INC
+.cref
+.list
+
+        i_need  THISSFT,DWORD
+
+BREAK <DOS_DUP -- DUP SFT across network>
+
+; Inputs:
+;       [THISSFT] set to the SFT for the file being DUPed
+;               (a non net SFT is OK, in this case the ref
+;                count is simply incremented)
+; Function:
+;       Signal to the devices that alogical open is occurring
+; Returns:
+;       ES:DI point to SFT
+;    Carry clear
+;       SFT ref_count is incremented
+; Registers modified: None.
+; NOTE:
+;       This routine is called from $CREATE_PROCESS_DATA_BLOCK at DOSINIT
+;       time with SS NOT DOSGROUP. There will be no Network handles at
+;       that time.
+
+        procedure   DOS_DUP,NEAR
+        ASSUME  ES:NOTHING,SS:NOTHING
+
+        LES     DI,ThisSFT
+        Entry   Dos_Dup_Direct
+        Assert  ISSFT,<ES,DI>,"DOSDup"
+        invoke  IsSFTNet
+        JNZ     DO_INC
+        invoke  DEV_OPEN_SFT
+DO_INC:
+        Assert  ISSFT,<ES,DI>,"DOSDup/DoInc"
+        INC     ES:[DI.sf_ref_count]    ; Clears carry (if this ever wraps
+                                        ;   we're in big trouble anyway)
+        return
+
+EndProc DOS_DUP
+
+CODE    ENDS
+    END