*COMDECK POSMF
          IDENT  POSMF
          ENTRY  POSMF
          SYSCOM B1 
          TITLE  POSMF - POSITION MULTI-FILE SET. 
          COMMENT POSITION MULTI-FILE SET.
          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
 POSMF    SPACE  4,10 
***       POSMF - POSITION MULTI-FILE SET.
*         LABELED MULTI-FILE MAGNETIC TAPE ONLY.
* 
*         CALL POSMF (MFILNAM,R)
* 
*         ENTRY  (MFILNAM) = FIRST WORD OF THE FET. 
*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
* 
*         POSMF(MFILNAM,R);     (*SYMPL* CALL)
* 
*         ENTRY   MFILNAM, AN ARRAY THAT CONTAINS THE FET.
*                 (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED. 
* 
*         USES   X - 2. 
*                A - 2. 
*                B - 1. 
* 
*         MACROS POSMF. 
  
  
 POSMF    SUBR               ENTRY/EXIT 
          SB1    1
          SA2    A1+B1       GET RECALL PARAMETER 
          SA2    X2 
          NZ     X2,POF1     IF RECALL
          POSMF  X1 
          EQ     POSMFX 
  
 POF1     POSMF  X1,R 
          EQ     POSMFX 
  
          END 
