*COMDECK READSKP
          IDENT  READSKP
          ENTRY  READSKP
          SYSCOM B1 
          TITLE  READSKP - READ FILE AND SKIP.
          COMMENT READ FILE AND SKIP. 
          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
 READSKP  SPACE  4,10 
***       READSKP - READ FILE AND SKIP. 
* 
*         CALL READSKP (FILE,LEVEL,R) 
* 
*         ENTRY  (FILE) = FIRST WORD OF THE FET.
*                (LEVEL) = RECORD LEVEL.
*                        = 0, SKIP TO END OF RECORD.
*                        = 17B, SKIP TO END OF FILE.
*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
* 
*         READSKP(FILE,LEVEL,R);         (*SYMPL* CALL) 
* 
*         ENTRY  FILE, AN ARRAY THAT CONTAINS THE FET.
*                LEVEL, AN ITEM THAT CONTAINS ONE OF THE FOLLOWING
*                       VALUES. 
*                           0, SKIP TO EOR. 
*                           17B, SKIP TO EOF. 
*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
* 
*         USES   X - 2, 3.
*                A - 2, 3.
*                B - 1. 
* 
*         MACROS READSKP. 
  
  
  
  
 READSKP  SUBR               ENTRY/EXIT 
          SB1    1
          SA3    A1+B1       ADDRESS OF LEVEL 
          SA2    A3+B1       GET ADDRESS OF RECALL PARAMETER
          SA3    X3          LEVEL
          SA2    X2 
          NZ     X2,RED1     IF RECALL REQUESTED
          READSKP  X1,X3
          EQ     READSKPX 
  
 RED1     READSKP  X1,X3,R
          EQ     READSKPX 
  
          END 
