*COMDECK /RSPTDSQ/
 RSPT$SQ  SPACE     4,8 
 RSPT$SQ  BSS       0 
          RCL.RM    A0,AUTO 
          IF        MIC,XREG.RM,3 
          IFLT      "FWRD.RM",100B,2
          IFNE      "FWRD.RM",36B,2 
          STO.REG 
 36B      PUT.IN    0 
          F.RM      FIRST,3 
          SET.RM    IPF,0 
          SET.RM    IN,X3          RESTORE IN AND 
          SA7       A7+B1          OUT POINTERS 
          SET.RM    PIN,X3,7,1          IF FILE IS TO BE REWOUND
          SET.RM    BLP,X3         BLP=FIRST
          CI.SQ     RSPTBT
          F.RM      RB,3
          SET.RM    KRN,X3
 RSPTBT   BSS 
          SET.RM    PAE,1 
          SET.RM    RC,0,7,1
          SET.RM    BCC,0 
          F.RM      MBL,3          INITIALIZE BL
          SOL*10    X3,+
          SET.RM    BL,X3 
          SET.RM    STM,0 
          STO.REG 
          SPACE     4,8 
* END /RSPTDSQ/ 
