*DECK CTLDSKP 
          IDENT     CTL$SKP 
          COMMENT   CRM CONTROLLER - SKIP PHYSICAL/FILE.
          TITLE     CTL$SKP - CONTROLLER FOR SKIP PHYSICAL/FILE 
          SST 
          B1=1
*CALL /PASSLOC/ 
* CALL /PASSLOC/
*#
*1DC  CTL$SKP 
*0D   PURPOSE 
*0        CONTROLLER FOR SK[B/F][F/P].
*0D   ACTION
*0        CHECK OC, FNF.
*         SET A FUNCTION FLAG.
*         STORE PARAMETERS (ST, SKP). 
*         LOAD SKIP$SQ AND GO TO IT.
*#
          ECHO      ,SKXX=(SKBF,SKBP,SKFF,SKFP),XX=(-2,-1,2,1)
 SKXX$RM  ENTRY$    ,,NOLOAD
          R=        B3,XX 
          EQ        SKPCMN
          ENDD
  
 SKPCMN   RJ        =XRM$SKP
          LGO.RM    PL.SKP,FO=SQ
  
*#
*1CD  RM$SKP
*0D   PURPOSE 
*0        DO THE BULK OF THE WORK FOR SKIPS--PERFORM CHECKS AND STORE 
*         PARAMETERS. 
*#
 RM$SKP   ENTRY$    RJ,NOENTRY
          NE.RM     FOC,#OPE#,=XRM$FOC,B2 ERR IF FNF ON OR OC NOT OPE 
          SA1       B6-B1 
          LX1       59-25          PARAM 3 FLAG 
          NG        X1,SKP.X2 
          SX3       #EOR#          DEFAULT
 SKP.X2   LX1       1              PARAM 2 FLAG 
          NG        X1,SKP.STR
          BX2       0              DEFAULT
 SKP.STR  SET.RM    SKP,X2,,,712
          SET.RM    ST,X3,,,713 
          OFF.RM    CNF,RM$SKP
          JP        B6             DO NOTHING IF TERMINAL 
 SKFL$RM  SPACE     4,8 
 SKFL$RM  ENTRY$    ,,NOLOAD
          RJ        =XRM$SKP
 21B      IS.IN     5 
          NE.RM     FO,#SQ#,SKF.GO,B4 
          ON.RM     WSI,SKF.S      IF WSI 
          EQ.RM     RT,#ST#,SKF.S,B3
          F.RM      FOJG,B3 
          NZ        B3,SKF.GO 
          SB3       SKF.GO         RETURN HERE AFTER LOADING
          LGO.RM    PL.GSQ         LOAD GET$SQ, GET$BT, GET$RT
  
 SKF.GO   SB4       #SKF# 
          LGO.RM    PL.SKFL,FO=NOTWA
  
 SKF.S    LGO.RM    PL.SSF
 SKBL$RM  SPACE     4,8 
 SKBL$RM  ENTRY$    ,,NOLOAD
          RJ        =XRM$SKP
 21B      IS.IN     5 
          AAM.FO    SKB.A 
          SA2       PL.SSB
          ON.RM     WSI,SKB.S 
          EQ.RM     RT,#ST#,SKB.S,B2
          SB3       SKB.A 
          EQ        =XRM$ABUF      MAKE SURE BUFFER ALLOCATED 
 SKB.A    SA2       PL.SBL
          SB4       #SKB# 
 SKB.S    LGO.RM    A2,FO=NOTWA 
          END 
