*DECK,INIT13
          IDENT  INIT13 
          TITLE  INIT13 - INITIALIZATION FOR ALLOCATOR
          COMMENT  INIT13 - INITIALIZATION FOR ALLOCATOR
          SST 
          LIST   F
          SPACE  4
          ENTRY  INIT13 
 INIT13   BSS    0
          SETFIL FILE=(=XF.CFL),MODE=INIT,FWA=(=XCFLBUF)
          OPEN   =XF.CFL,WRITE,R
  
          REWIND =XF.PST
          READ   =XF.PST     BEGIN FILLING PSTBUF 
  
          RJ     =XALOCTR 
  
          SA1    =XOPTION 
          LX1    59-1RT 
          PL     X1,LEAVECF 
  
*         WE CLEAR THE RANDOM ACCESS BIT BEFORE CLOSING THE ILN SINCE 
*         THERE IS NO INDEX SPECIFIED IN THE FET
  
          CLEARAB  =XF.ILN
          CLOSE  =XF.ILN,UNLOAD,R 
          CLOSE  =XF.CFL,UNLOAD,R 
 LEAVECF  BSS    0
          CLOSE  =XF.PST,UNLOAD,R 
          JP     =XAFTPH13   RETURN TO PHASE10
          TITLE  PTCFL - PUT TO CODE FILE (CFL) 
**        PTCFL - PUT TO CODE FILE (CFL)
* 
*         THIS IS THE INTERFACE ROUTINE THROUGH WHICH A SYMPL PROGRAM 
*         WRITES FROM A WORKING STORAGE BUFFER TO CFL.
*         THE SYMPL CALLING SEQUENCE TO THIS ROUTINE IS-
*                XREF PTCFL;
*                PTCFL (BUF,NWDS);
*                WHERE
*                BUF = WORKING STORAGE BUFFER 
*                NWDS = NUMBER OF WORDS IN BUF
*         HENCE THE REGISTER SETUP ON ENTRY IS- 
*                A1 = POINTER TO APLIST 
*                X1 = FWA OF BUF
* 
  
          PUTSQ  CFL
          SPACE  4
**        GTPST - GET FROM PRESET FILE (PST)
* 
*         THIS IS THE INTERFACE ROUTINE THROUGH WHICH A SYMPL PROGRAM 
*         READS FROM PST INTO A WORKING STORAGE BUFFER. 
*         THE SYMPL CALLING SEQUENCE TO THIS ROUTINE IS-
*                XREF GTPST;
*                GTPST (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  PST
          END    INIT13 
