PROCEDURE ESTUFF,GLOBAL ; Extract the file name from the ; chaining process PROBE (R5)+ LET R2 := #510 ; address of data passed LET R1 := (5)+ ; Output parameter LET R0 := (R5)+ ; Pick up second parameter... IFB (2) <> #0 THEN ; See if null?? REPEAT LET (0) := (0) + #1 LETB (1)+ := (2) ;Shovel.... UNTILB (2)+ IS #0 END RETURN .END