IN:ACCESX.MAC/AU:72.=LB1:[13,10]ACCESS.MAC -1,1 $BEGIN ACCESS,7245, ; ; DSM01 ; Daniel S. McCoy 5-nov-79 Changed for dual porting support -42,42,/;DSM01/ ; IF IT ISN'T, AN FCB IS ALLOCATED AND INITIALIZED. ; THEN A WINDOW IS ALLOCATED -86,87,/;DSM01/ CALL .CRFCB ; CREATE AND INITIALIZE AN FCB MOV R0,.FCBAD ; SET FCB ADDRESS -191,191,/;DSM01/ 160$: CALL .RQACC ; Send the access request TSTB .IOSTS ; Check return code BPL 1600$ ; Continue if accessed on master ERRX 0, 1600$: INCB .EXSTS ; INDICATE ACCESS PHASE 1 COMPLETE /