!JOB ASMJCL,CPR:I00.      -- ASSEMBLY OF TCP/R SOURCE FILES --                  
!STDLB (CI,T0),(BO,T1),(BI,T0)                                                  
!STDLB  (LO,0)                                                                  
!STDLB  (SI,C)                                                                  
!MESSAGE ** COMPRESSED INPUT = T0                                               
!MESSAGE ** BINARY    OUTPUT = T1                                               
!MESSAGE ** MOUNT CI TAPE #1 ON T0                                              
!MESSAGE ** MOUNT BO TAPE    ON T1 ** WITH WRITE RING **                        
!PAUSE   ** PLEASE KEYIN '-C' WHEN TAPES ARE MOUNTED                            
!REWIND CI                                                                      
!REWIND BO                                                                      
!SFIL   CI,1                 . SKIP THIS JCL FILE                               
!MESSAGE ***************************************************                    
!MESSAGE * ALLOCATE AND COPY IN NEW OPTIONS & SYSTEM FILES *                    
!MESSAGE ***************************************************                    
!RADEDIT                                                                        
:DELETE FILE,D1,OPTIONS                                                         
:DELETE FILE,D1,CPREQU                                                          
:DELETE FILE,D1,CPRMON                                                          
:DELETE FILE,D1,OLAYBASE                                                        
:SQUEEZE D1                                                                     
:ALLOT  FILE,D1,OPTIONS  FORMAT,C FSIZE,500  ESIZE,100                          
:ALLOT  FILE,D1,CPREQU   FORMAT,C FSIZE,1500 ESIZE,500                          
:ALLOT  FILE,D1,CPRMON   FORMAT,C FSIZE,1500 ESIZE,500                          
:ALLOT  FILE,D1,OLAYBASE FORMAT,C FSIZE,1500 ESIZE,500                          
:COPY   IN,CI FILE,D1,OPTIONS                                                   
:COPY   IN,CI FILE,D1,CPREQU                                                    
:COPY   IN,CI FILE,D1,CPRMON                                                    
:COPY   IN,CI FILE,D1,OLAYBASE                                                  
:END                                                                            
!MESSAGE ***************************************************                    
!MESSAGE ** IF AN ALTERNATIVE OPTIONS FILE IS REQUIRED     *                    
!MESSAGE ** COPY IT INTO FILE,D1,OPTIONS NOW & KEYIN '-C'  *                    
!MESSAGE ** ====         ===============       ==========  *                    
!PAUSE   ***************************************************                    
!MESSAGE *     START ASSEMBLY OF CP/R SOURCE MODULES       *                    
!MESSAGE ***************************************************                    
!ALLOBT (FILE,GO),(FSIZE,0),(SAVE)                                              
!ALLOBT (FILE,OV),(FSIZE,0),(SAVE)                                              
!ALLOBT (FILE,X1),(FSIZE,255),(SAVE)                                            
!ALLOBT (FILE,X2),(FSIZE,265),(SAVE)                                            
!ALLOBT (FILE,X3),(FSIZE,465),(SAVE)                                            
!ALLOBT (FILE,X5),(FSIZE,0),(SAVE)                                              
!ALLOBT (FILE,X6),(FSIZE,0),(SAVE)                                              
!AP   CI,NS,BO,AC(D1)        . 26CDBOOT                                         
!AP   CI,NS,BO,AC(D1)        . LOADER                                           
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . SYSGEN                                           
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . FPSYM                                            
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . DECSYM                                           
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . BYTSYM                                           
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . CVSYM                                            
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . CPR                                              
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . SEX                                              
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . MMROOT                                           
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . MEDIA                                            
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . TEX                                              
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . TIO3                                             
!WEOF BO                                                                        
!AP   CI,NS,AC(D1)           . COCIO OR                                         
!AP   CI,NS,BO,AC(D1)        . CMCIO NOT BOTH                                   
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . TERM                                             
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . CRASH                                            
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . KEYSCN                                           
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . KEY1                                             
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . KEY2                                             
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . KEY3                                             
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . KEY4                                             
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . KEY5                                             
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . KEY6                                             
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . KEY7                                             
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . KEY8                                             
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . KEY9                                             
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . FGL1                                             
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . FGL2                                             
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . FLG3                                             
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . SCHED                                            
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . SCNEXT                                           
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . BLK1                                             
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . CKPT                                             
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . ABEX                                             
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . DUMP                                             
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . ARM                                              
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . ENQ                                              
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . DELETE                                           
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . RWDEV                                            
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . RWFILE                                           
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . RWEXT                                            
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . SDBUF                                            
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . RWBFIL                                           
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . FINDBB                                           
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . READWR                                           
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . GETNRT                                           
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . DEVI                                             
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . ASSIGN                                           
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . OPENX                                            
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . CLOSEX                                           
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . REWIND                                           
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . REWDEV                                           
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . PRINT                                            
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . IOEX                                             
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . SIGNAL                                           
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . SJOB                                             
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . SNAM                                             
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . STDLB                                            
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . RUN                                              
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . PINIT                                            
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . SYM1                                             
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . SYM2                                             
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . SYM3                                             
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . SYM4                                             
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . SYM5                                             
!WEOF BO                                                                        
!UNLOAD CI                                                                      
!MESSAGE ***************************************************                    
!MESSAGE ** REMOVE CI TAPE #1 FROM INPUT UNIT              *                    
!MESSAGE ** ======    =======                              *                    
!MESSAGE ***************************************************                    
!MESSAGE ** MOUNT  CI TAPE #2 ON   INPUT UNIT              *                    
!MESSAGE ** ======    =======                              *                    
!MESSAGE ***************************************************                    
!MESSAGE ** WHEN READY   KEYIN '-C'  TO CONTINUE           *                    
!MESSAGE **              =====  ==                         *                    
!PAUSE   ***************************************************                    
!AP   CI,NS,BO,AC(D1)        . EXTM                                             
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . WAIT                                             
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . TT                                               
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . TTJOB                                            
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . TRAPS                                            
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . TMTYC                                            
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . CHECK                                            
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . TMGETP                                           
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . ALLOT                                            
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . JOB1                                             
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . JOB2                                             
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . ESU                                              
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . CRS                                              
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . CRS2                                             
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . CKD                                              
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . CKD2                                             
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . CRD                                              
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . TIO1                                             
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . TIO2                                             
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . PLO1                                             
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . LOG                                              
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . MMO1                                             
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . MMO2                                             
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . MMO3                                             
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . MMO4                                             
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . MMO5                                             
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . MMO6                                             
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . IPLMM                                            
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . IPLSYM                                           
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . ICMC                                             
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . DBDW                                             
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . DBC1                                             
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . DBC2                                             
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . DBC3                                             
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . DBS1                                             
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . DBS2                                             
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . DBS3                                             
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . MED1                                             
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . MED2                                             
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . TEX1                                             
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . TEX2                                             
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . TEL1                                             
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . TEL2                                             
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . TEL3                                             
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . TTY                                              
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . DISC                                             
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . LP                                               
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . CARD                                             
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . TAPE                                             
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . INIT                                             
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . TEL                                              
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . LOAD                                             
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . JCP                                              
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . OROOT                                            
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . OCCI                                             
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . OPASS1                                           
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . OPASS2                                           
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . OMAP                                             
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . ODIAG                                            
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . OLIB                                             
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . RROOT                                            
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . RS1000                                           
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . RS1001                                           
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . RS1002                                           
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . RS1003                                           
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . RS1004                                           
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . EDITR                                            
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . EDITS                                            
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . ANLZ                                             
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . ANLZS1                                           
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . ANLZS2                                           
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . ANLZS3                                           
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . ELLAR                                            
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . ELLAS1                                           
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . ELLAS2                                           
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . ELLAS3                                           
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . ELLAS4                                           
!WEOF BO                                                                        
!AP   CI,NS,BO,AC(D1)        . COC                                              
!WEOF BO                                                                        
!UNLOAD CI                                                                      
!MESSAGE ***************************************************                    
!MESSAGE ** REMOVE CI TAPE #2 FROM INPUT UNIT              *                    
!MESSAGE ** ======    =======                              *                    
!MESSAGE ***************************************************                    
!MESSAGE ** MOUNT  OLD BI TAPE ON  INPUT UNIT              *                    
!MESSAGE ** =====  === == ====                             *                    
!MESSAGE ***************************************************                    
!MESSAGE ** WHEN READY   KEYIN '-C'  TO CONTINUE           *                    
!MESSAGE **              =====  ==                         *                    
!PAUSE   ***************************************************                    
!REWIND BI                                                                      
!SFIL   BI,142                                                                  
!MESSAGE ***************************************************                    
!MESSAGE * COPY ELLA AND AP ROMS FROM OLD TAPE             *                    
!MESSAGE ***************************************************                    
!RADEDIT                                                                        
:COPY IN,BI OUT,BO NFIL,ALL                                                     
!WEOF BO                                                                        
!UNLOAD BI                                                                      
!UNLOAD BO                                                                      
!MESSAGE ***************************************************                    
!MESSAGE ** NEW BI TAPE COMPLETE  ** REMOVE WRITE RING **  *                    
!MESSAGE *                           =================     *                    
!MESSAGE ***************************************************                    
!FIN
