IN:CRFILX.MAC/AU:72./-BF=LB1:[13,10]CRFIL.MAC -1,1,/;DSM01/ $BEGIN CRFIL,7224, ; ; Daniel S. McCoy Nov 79 Dual-porting V2 ; -125,128,/;DSM01/ CALL .RQIO ; Send the request to the master system TSTB .IOSTS ; Test for success on master side BMI 120$ ; Quit on error -136,136,/;DSM01/ MOV .FILNO,R0 ; Get file number for MPHDR -145,175,/;DSM01/ ; ; CHECK IF THIS HEADER is the one we want, and fill in owner and such ; TST (R1)+ ; Skip past offsets CMP .FILNO,(R1)+ ; Is this the right file? BEQ 85$ ; Skip if OK ERRX IE.SNC, 85$: CMP .FILSQ,(R1)+ ; Check sequence number BEQ 87$ ; Skip if OK ERRX IE.SQC, 87$: TST (R1)+ ; Skip structure level -187,193,/;DSM01/ MOV V.FPRO(R4),(R1)+ ; DEFAULT FILE PROTECTION -203,209,/;DSM01/ -226,237,/;DSM01/ -241,,/;DSM01/ 120$: RETURN ; Error return /