*DECK,INIT52
          IDENT  INIT52 
          TITLE  INIT52 - CALL CROSS REFERENCE PROCESSOR
          COMMENT  INIT52 - CALL CROSS REFERENCE PROCESSOR
          SST 
          LIST   F
          SPACE  4
*         INIT52 - CALL THE CROSS REFERENCE PROCESSOR 
          SPACE  4
          ENTRY  INIT52 
 INIT52   BSS    0
          SA1    =XSYMTAB    .FWA OF SYMBOL TABLE 
          SX6    X1-ACRF-2   AVAILABLE ROOM FOR CRF BUFFER
          AX6    6
          LX6    6           .MAKE A MULT OF 100B 
          SX6    X6+1        PLUS ONE 
          SA6    ECRF 
  
          REWIND =XF.CRF
          READ   =XF.CRF
  
          RJ     =XCRFLST 
  
          CLOSE  =XF.CRF,UNLOAD,R 
          JP     =XAFTPH52   RETURN TO PHASE50
          TITLE  GTCRF - GET FROM THE CROSS REFERENCE FILE (CRF)
**        GTCRF - GET FROM CROSS REFERENCE FILE (CRF) 
* 
*         THIS IS THE INTERFACE ROUTINE THROUGH WHICH A SYMPL PROGRAM 
*         READS FROM CRF INTO A WORKING STORAGE BUFFER. 
*         THE SYMPL CALLING SEQUENCE TO THIS ROUTINE IS-
*                XREF GTCRF;
*                GTCRF (BUF,NWDS,EOF);
*                WHERE
*                BUF = WORKING STORAGE BUFFER 
*                NWDS = NUMBER OF WORDS THIS ROUTINE READS INTO BUF 
*                EOF = END OF DATA EXIT 
*         HENCE THE REGISTER SETUP ON ENTRY IS- 
*                A1 = POINTER TO APLIST 
*                X1 = FWA OF BUF
* 
*         ROUTINE JUMPS TO GETSQA TO DO ACTUAL READ 
* 
  
          GETSQ  CRF
          SPACE  4
 ECRF     ENTRY. 0
          ENTRY  ACRF 
 ACRF     BSS    0
          END    INIT52 
