IN:DISPAX.MAC/AU:72./-BF=LB1:[13,10]DISPAT.MAC -1,3,/;DSM01/ $BEGIN DISPAT,7247, ; ALTERED: ; Daniel S. McCoy 1 nov 79 Changed for dual-porting -86,104,/;DSM01/ ; DSM nooped the transfer vectors for operations not done locally ; in dual-ported version .IF DF,R$$ALC ;.EXTN1::.WORD .EXTE1 ;ERS EXTEND EXTRY FOR ALLOCATION ON CREATE .ENDC ;.EXCM1::.WORD .EXCOM ; EXTEND FILE OVERLAY ;.IXEX1::.WORD .IXEXT ; INDEX FILE EXTEND ;.CLEX1::.WORD .CLEXT ; CLEAN UP EXTEND OPERATION .IF DF,M$$HDR ;.CLEX2::.WORD .CLEXI ; CLEAN UP EXTEND AND EXTEND INDEX FILE .IFTF ;.EXTH1::.WORD .EXHDJ ; CREATE AN EXTENSION FILE HEADER ;.EXCM2::.WORD .EXCMP ; COMPLETE EXTEND OPERATION .IFT ;.EXCM3::.WORD .EXCNT ; RETURN TO EXCOM WITH NEW HEADER .ENDC .DLFL1::.WORD .DLFIL ; DELETE A FILE .CLFC1::.WORD .CLFCB ; CLEAN UP FCB FROM WRITE ERROR ;.DREX1::.WORD .DREXT ; DIRECTORY EXTEND ROUTINE ;.DREF1::.WORD .DREOF ; RESET DIRECTORY END OF FE -117,,/;DSM01/ CALL .NINIT ; Initialize decnet for dual porting /