*DECK S$REFRM 
          IDENT  S$REFRM
          COMMENT  S$REFRM - REFERENCE CRM AND FDL
          TITLE  S$REFRM - REFERENCE CRM AND FDL
  
          B1=1
  
**        S$REFRM - REFERENCE CRM AND FDL 
* 
*         CALLING SEQUENCE- 
*         S$REFRM(<ADDR OF FIT>); 
* 
*         DOES- 
*         OPEN AND CLOSE FILE ZZZZZ3Z WITH DETACH JUST TO 
*         REFERENCE CRM (AND FDL) IN LOW MEMORY BEFORE CALLING S$GTSPC
* 
          SPACE 3 
          ENTRY  S$REFRM
 S$REFRM  SUBR
          SB1    1           CONSTANT 1 
          SA2    X1          ADDR OF FIT
          SA0    X2          A0 = FIT ADDR
          MX7    0
          SB7    8*41-1      8*FITSIZE - 1
 REFRM1   SA7    A0+B7       CLEAR ANOTHER WORD OF FIT
          SB7    B7-B1       DECREMENT INDEX
          GE     B7,B0,REFRM1    IF MORE WORDS,LOOP 
  
          SA3    ZZZZZ3Z     DUMMY FILE 
          STORE  A0,LFN=X3
  
          OPENM  A0          OPEN DUMMY FILE
  
          CLOSEM A0,DET      CLOSE AND DETACH 
  
          EXIT
  
 ZZZZZ3Z  DATA   0LZZZZZ3Z
  
          END 
