*DECK CTLDWR
          IDENT     CTL$WR
          COMMENT   CRM CONTROLLER - WEOX, REWIND 
          TITLE     CTL$WR - CONTROLLER FOR WEOX AND REWIND 
          SST 
          B1=1
* CALL /PASSLOC/
*CALL /PASSLOC/ 
 REW$RM   SPACE     4,8 
 REW$RM   ENTRY$
          SB4       #RE#
          ON.RM     CNF,CLSCNF     FLUSH A CONNECTED FILE 
          ON.RM     FNF,=XRM$FAT
          SB4       #REW# 
          F.RM      FO
          SA2       X1+PL.REW      OFFSET WORD FOR CORRECT FO 
          LGO.RM    A2,FO=ANY 
 WEOS$RM  SPACE     4,8 
 WEOS$RM  ENTRY$
          SB4       #WE#
          SA1       B6-B1 
          LX1       59-24          PARAM 2 BIT
          PL        X1,WEOS1       IF ABSENT
          SET.RM    LVL,X2,,,CHECK
 WEOS1    SX3       B1             WEOS FLAG
          EQ        LOADPUT 
  
 WEOP$RM  SPACE     4,8 
 WEOP$RM  ENTRY$
          SB4       #EN#
          SX3       B1+B1          WEOP FLAG
          SET.RM    LVL,0          CLEAR LVL ON ENDFILE CALL
  
 LOADPUT  BSS 
          NE.RM     FOC,#OPE#,=XRM$FOC,B2 ERR IF FNF ON OR OC NOT OPE 
          ON.RM     CNF,CLSCNF     FLUSH A CONNECTED FILE 
          ON.RM     WSI,GOWEOX     IGNORE SBF FILE
          SET.RM    WEOX,X3 
          F.RM      FOJP,B4 
          NZ        B4,GOWEOX      IF PUT IS LOADED FOR THIS FIT
          F.RM      DCKJ
          LX1       -1
          NG        X1,GOWEOX      PUT$S(Q) NOT NEEDED
          SB3       GOWEOX         TO RETURN
          LGO.RM    PL.PUT+X1,FO=SQ 
  
 GOWEOX   LGO.RM    PL.WEOX,FO=SQ 
  
 CLSCNF   BSS       0 
          SET.RM    LOP,B4
          SB3       A0             SAVE A0
          F.RM   ZOU,X2 
          SA1    =XLOF$RM 
          SA1    X1+B1
          MX7    42D
          BX1    -X7*X1 
          IX1    X1-X2
          NZ     X1,RESA0 
          SA0    X2 
          RCL.RM    A0,AUTO 
          F.RM      IN,2
          F.RM      OUT,3 
          IX7       X2-X3 
          ZR        X7,RESA0
          SYSY      14B,RCL        FLUSH THE CONNECTED FILE BUFFER
  
 RESA0    BSS       0 
          SA0       B3             RESTORE A0 
          JP        B6             EXIT 
  
          END 
