IN:TRUNCX.MAC/AU:72./-BF=LB1:[13,10]TRUNC.MAC -1,1,/;DSM01/ $BEGIN TRUNC,7215, ; ; Daniel S. McCoy 16 feb 79 changed for dual-porting support ; DSM 1 nov 79 dual-porting version two ; Truncate a file to the size specified. -37,39,/;DSM01/ ; CHECKS FOR PRIVILEGES. ; The actual truncate is sent to the master system. -56,56,/;DSM01/ TST .WNDOW ; SEE IF CALLER IS THE ACCESSOR -65,156,/;DSM01/ 30$: MOV #FP.EXT+<400*FP.EXT>,R0 ; CHECK FOR EXTEND PERMISSION CALL .PROCK CLR .HDUCB ; invalidate the in core copy of the header ; CALL .RQIO ; Send this request to the master system ; TSTB .IOSTS ; test for success BEQ 70$ ; just return on error ; CALLR @.CLFC1 ; clean up FCB to look like header ; 70$: ; RETURN /