DEFM
$PAGE 0
IFT PATH=CCOBJ.O SKIP
CREA CCOBJ.O
%SKIP
IFT PATH=NBCC1XMAP SKIP
CREA NBCC1XMAP
%SKIP
JOB NBCC
$AS IN TO SYC
$AS OT TO CCOBJ.O
$COMPRESS
NBCC.O
$NOTE  END OF COMPRESS
IFF PATH=@SYSTEM(SYSTEM)NBCC1X SKIP
$NOTE MUST DELETE 1X IMAGE BEFORE CAT1X CAN RUN
$DELE @SYSTEM(SYSTEM)NBCC1X
%SKIP
$OPTION 19 25
$AS SLO TO NBCC1XMAP
$ALLOCATE 1B800
$AS SGO TO CCOBJ.O
$AS LIB TO ^(BIN1X)CLB BLOC=N
$AS DIR TO ^(BIN1X)CDR BLOC=N
$AS #SY TO TEMP SIZE=300 BLOC=N
$^(BIN1X)CAT1X
FILES 16
BUFFERS 16
OPTION LOWER
ENVIRONMENT ,,SHARED,MAP8192
CATALOG NBCC1X
$IFF PATH=NBCC SKIP
$NOTE MUST DELETE 1X IMAGE BEFORE RENAMING FILE
$DELE NBCC
%SKIP
$VOLMGR
COPY @SYSTEM(SYSTEM)NBCC1X NBCC
DELE @SYSTEM(SYSTEM)NBCC1X
$^(BIN)FIXER NBCC
$PAGE
$EOJ
$ENDM
