INDCMD.MAC;4/AU/-BF=INDCMD.MAC;3 \ -2,2 .IDENT /02.02/ % -34,,/;PW002/ ; PW002 USE CURRENT UIC AS FILE OWNER AND ; DEFAULT UFD FOR THE .OPEN COMMAND ; -,,/;PW003/ ; PW003 USE WSIG$S DIRECTIVE FOR WAITS. ; LOWER PRIORITY TO VALUE PROVIDED AT ; TASK-BUILD TIME. ; -46,,/;PW003/ .MCALL WSIG$S -252,252,/;PW003/ ALTP$S ,#WPRI ; ALTER PRIORITY TO WAIT -261,261,/;PW003/ WSIG$S ; NO - WAIT A WHILE -276,276,/;PW003/ WSIG$S ; YES - WAIT A WHILE -725,,/;PW002/ ; ; SET UP FILE OWNER AND DEFAULT DIRECTORY ; EQUAL TO CURRENT UIC ; MOV INDTI,R0 ;GET OUR TI UCB MOV .FSRPT,R1 ;GET FSR2 POINTER MOV U.UIC(R0),A.DFUI(R1) ;SET DEF. UIC IN FSR2 MOV U.UIC(R0),A.OWUI(R1) ;SET FILE OWNER MOV #-1,A.DFDR(R1) ;FORCE CREATION OF DEF. DIR. STRING CLR A.DFDR+D.DFDV(R1) ;ZERO DEFAULT DEVICE NAME ; /