*DECK     CPUREL                                                         CPUREL 
          IDENT  CPU.ARG                                                 CPUREL 
          ENTRY  ARG=                                                    CPUREL 
 ARG      TITLE  ARG - PROCESS ARGUMENTS.                                CPUREL 
          COMMENT PROCESS ARGUMENTS.                                     CPUREL 
          COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              CPUREL 
*CALL     COMCARG                                                        CPUREL 
          END                                                            CPUREL 
          IDENT  CPU.CDD                                                 CPUREL 
          ENTRY  CDD=                                                    CPUREL 
 CDD      TITLE  CDD - CONVERT CONSTANT TO DECIMAL DISPLAY CODE.         CPUREL 
          COMMENT CONVERT CONSTANT TO DECIMAL DISPLAY CODE.              CPUREL 
          COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              CPUREL 
*CALL     COMCCDD                                                        CPUREL 
          END                                                            CPUREL 
          IDENT  CPU.CFD                                                 CPUREL 
          ENTRY  CFD=                                                    CPUREL 
 CFD      TITLE  CFD - CONVERT CONSTANT TO F10.3 FORMAT.                 CPUREL 
          COMMENT CONVERT CONSTANT TO F10.3 FORMAT.                      CPUREL 
          COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              CPUREL 
*CALL     COMCCFD                                                        CPUREL 
          END                                                            CPUREL 
*IF -DEF,SC2MACRO 
          IDENT  CPU.CIO                                                 CPUREL 
          ENTRY  CIO=                                                    CPUREL 
 CIO      TITLE  CIO - I/O FUNCTION PROCESSOR.                           CPUREL 
          COMMENT I/O FUNCTION PROCESSOR.                                CPUREL 
          COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              CPUREL 
*CALL     COMCCIO                                                        CPUREL 
          END                                                            CPUREL 
*ENDIF
          IDENT  CPU.COD                                                 CPUREL 
          ENTRY  COD=                                                    CPUREL 
 COD      TITLE  COD - CONVERT CONSTANT TO OCTAL DISPLAY CODE.           CPUREL 
          COMMENT CONVERT CONSTANT TO OCTAL DISPLAY CODE.                CPUREL 
          COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              CPUREL 
*CALL     COMCCOD                                                        CPUREL 
          END                                                            CPUREL 
          IDENT  CPU.CPT                                                 CPUREL 
          ENTRY  CPT=                                                    CPUREL 
 CPT      TITLE  CPT - COPY PREFIX TABLE.                                CPUREL 
          COMMENT COPY PREFIX TABLE.                                     CPUREL 
          COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              CPUREL 
*CALL     COMCCPT                                                        CPUREL 
          END                                                            CPUREL 
          IDENT  CPU.DXB                                                 CPUREL 
          ENTRY  DXB=                                                    CPUREL 
 DXB      TITLE  DXB - CONVERT DISPLAY CODE TO BINARY.                   CPUREL 
          COMMENT CONVERT DISPLAY CODE TO BINARY.                        CPUREL 
          COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              CPUREL 
*CALL     COMCDXB                                                        CPUREL 
          END                                                            CPUREL 
          IDENT  CPU.MNS
          ENTRY  MNS= 
          SYSCOM B1 
  
 MNS      TITLE  MNS - MOVE NON-OVERLAPPING STRING. 
  
          COMMENT MOVE NON-OVERLAPPING STRING.
          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
*CALL     COMCMNS 
  
          END 
          IDENT  CPU.MOS
          ENTRY  MOS= 
  
 MOS      TITLE  MOS - MOVE OVERLAPPING STRING. 
  
          COMMENT MOVE OVERLAPPING STRING.
          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
*CALL     COMCMOS 
  
          END 
          IDENT  CPU.MVE                                                 CPUREL 
          ENTRY  MVE=                                                    CPUREL 
          SYSCOM B1                                                      CPUREL 
 MVE      TITLE  MVE - MOVE BLOCK OF DATA.                               CPUREL 
          COMMENT MOVE BLOCK OF DATA.                                    CPUREL 
          COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              CPUREL 
*CALL     COMCMVE                                                        CPUREL 
          END                                                            CPUREL 
*IF -DEF,SC2MACRO 
          IDENT  CPU.RDC                                                 CPUREL 
          ENTRY  RDC=                                                    CPUREL 
 RDC      TITLE  RDC - READ CODED LINE, *C* FORMAT.                      CPUREL 
          COMMENT READ CODED LINE, *C* FORMAT.                           CPUREL 
          COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              CPUREL 
*CALL     COMCRDC                                                        CPUREL 
          END                                                            CPUREL 
          IDENT  CPU.RDH                                                 CPUREL 
          ENTRY  RDH=                                                    CPUREL 
 RDH      TITLE  RDH - READ CODED LINE, *H* FORMAT.                      CPUREL 
          COMMENT READ CODED LINE, *H* FORMAT.                           CPUREL 
          COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              CPUREL 
*CALL     COMCRDH                                                        CPUREL 
          END                                                            CPUREL 
          IDENT  CPU.RDO                                                 CPUREL 
          ENTRY  RDO=                                                    CPUREL 
 RDO      TITLE  RDO - READ ONE WORD.                                    CPUREL 
          COMMENT READ ONE WORD.                                         CPUREL 
          COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              CPUREL 
*CALL     COMCRDO                                                        CPUREL 
          END                                                            CPUREL 
          IDENT  CPU.RDS                                                 CPUREL 
          ENTRY  RDS=                                                    CPUREL 
 RDS      TITLE  RDS - READ CODED LINE TO STRING BUFFER.                 CPUREL 
          COMMENT READ CODED LINE TO STRING BUFFER.                      CPUREL 
          COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              CPUREL 
*CALL     COMCRDS                                                        CPUREL 
          END                                                            CPUREL 
          IDENT  CPU.RDW                                                 CPUREL 
          ENTRY  RDW=                                                    CPUREL 
          ENTRY  RDX=                                                    CPUREL 
          ENTRY  LCB=                                                    CPUREL 
          SYSCOM                                                         CPUREL 
 RDW      TITLE  RDW - READ WORDS TO WORKING BUFFER.                     CPUREL 
          COMMENT READ WORDS TO WORKING BUFFER.                          CPUREL 
          COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              CPUREL 
*CALL     COMCRDW                                                        CPUREL 
          END                                                            CPUREL 
*ENDIF
          IDENT  CPU.RSR                                                 CPUREL 
          ENTRY  RSR=                                                    CPUREL 
          SYSCOM                                                         CPUREL 
 RSR      TITLE  RSR - RESTORE REGISTERS.                                CPUREL 
          COMMENT RESTORE REGISTERS.                                     CPUREL 
          COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              CPUREL 
*CALL     COMCRSR                                                        CPUREL 
          END                                                            CPUREL 
          IDENT  CPU.SFN                                                 CPUREL 
          ENTRY  SFN=                                                    CPUREL 
 SFN      TITLE  SFN - SPACE FILL NAME, RIGHT JUSTIFIED ZEROES.          CPUREL 
          COMMENT SPACE FILL NAME, RIGHT JUSTIFIED ZEROES.               CPUREL 
          COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              CPUREL 
*CALL     COMCSFN                                                        CPUREL 
          END                                                            CPUREL 
          IDENT  CPU.SRT                                                 CPUREL 
          ENTRY  SRT=                                                    CPUREL 
 SRT      TITLE  SRT - SET RECORD TYPE.                                  CPUREL 
          COMMENT SET RECORD TYPE.                                       CPUREL 
          COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              CPUREL 
*CALL     COMCSRT                                                        CPUREL 
          END                                                            CPUREL 
          IDENT  CPU.SST                                                 CPUREL 
          ENTRY  SST=                                                    CPUREL 
 SST      TITLE  SST - SHELL SORT TABLE.                                 CPUREL 
          COMMENT SHELL SORT TABLE.                                      CPUREL 
          COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              CPUREL 
*CALL     COMCSST                                                        CPUREL 
          END                                                            CPUREL 
*IF -DEF,SC2MACRO 
          IDENT  CPU.STF                                                 CPUREL 
          ENTRY  STF=                                                    CPUREL 
 STF      TITLE  STF - SET TERMINAL FILE.                                CPUREL 
          COMMENT SET TERMINAL FILE.                                     CPUREL 
          COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              CPUREL 
*CALL     COMCSTF                                                        CPUREL 
          END                                                            CPUREL 
*ENDIF
          IDENT  CPU.SVR                                                 CPUREL 
          ENTRY  SVR=                                                    CPUREL 
 SVR      TITLE  SVR - SAVE REGISTERS.                                   CPUREL 
          COMMENT SAVE REGISTERS.                                        CPUREL 
          COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              CPUREL 
*CALL     COMCSVR                                                        CPUREL 
          END                                                            CPUREL 
*IF -DEF,SC2MACRO 
          IDENT  CPU.SYS                                                 CPUREL 
          ENTRY  SYS=                                                    CPUREL 
          ENTRY  RCL=                                                    CPUREL 
          ENTRY  WNB=                                                    CPUREL 
          ENTRY  MSG=                                                    CPUREL 
          SYSCOM                                                         CPUREL 
 SYS      TITLE  SYS - PROCESS SYSTEM REQUEST.                           CPUREL 
          COMMENT PROCESS SYSTEM REQUEST.                                CPUREL 
          COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              CPUREL 
*CALL     COMCSYS                                                        CPUREL 
          END                                                            CPUREL 
*ENDIF
          IDENT  CPU.UPC                                                 CPUREL 
          ENTRY  UPC=                                                    CPUREL 
 UPC      TITLE  UPC - UNPACK CONTROL CARD.                              CPUREL 
          COMMENT UNPACK CONTROL CARD.                                   CPUREL 
          COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              CPUREL 
*CALL     COMCUPC                                                        CPUREL 
          END                                                            CPUREL 
          IDENT  CPU.WOD                                                 CPUREL 
          ENTRY  WOD=                                                    CPUREL 
 WOD      TITLE  WOD - CONVERT WORD TO OCTAL DISPLAY CODE.               CPUREL 
          COMMENT CONVERT WORD TO OCTAL DISPLAY CODE.                    CPUREL 
          COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              CPUREL 
*CALL     COMCWOD                                                        CPUREL 
          END                                                            CPUREL 
*IF -DEF,SC2MACRO 
          IDENT  CPU.WTC                                                 CPUREL 
          ENTRY  WTC=                                                    CPUREL 
 WTC      TITLE  WTC - WRITE CODED LINE, *C* FORMAT.                     CPUREL 
          COMMENT WRITE CODED LINE, *C* FORMAT.                          CPUREL 
          COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              CPUREL 
*CALL     COMCWTC                                                        CPUREL 
          END                                                            CPUREL 
          IDENT  CPU.WTH                                                 CPUREL 
          ENTRY  WTH=                                                    CPUREL 
 WTH      TITLE  WTH - WRITE CODED LINE, *H* FORMAT.                     CPUREL 
          COMMENT WRITE CODED LINE, *H* FORMAT.                          CPUREL 
          COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              CPUREL 
*CALL     COMCWTH                                                        CPUREL 
          END                                                            CPUREL 
          IDENT  CPU.WTO                                                 CPUREL 
          ENTRY  WTO=                                                    CPUREL 
 WTO      TITLE  WTO - WRITE ONE WORD.                                   CPUREL 
          COMMENT WRITE ONE WORD.                                        CPUREL 
          COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              CPUREL 
*CALL     COMCWTO                                                        CPUREL 
          END                                                            CPUREL 
          IDENT  CPU.WTS                                                 CPUREL 
          ENTRY  WTS=                                                    CPUREL 
 WTS      TITLE  WTS - WRITE CODED LINE FROM STRING BUFFER.              CPUREL 
          COMMENT WRITE CODED LINE FROM STRING BUFFER.                   CPUREL 
          COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              CPUREL 
*CALL     COMCWTS                                                        CPUREL 
          END                                                            CPUREL 
          IDENT  CPU.WTW                                                 CPUREL 
          ENTRY  WTW=                                                    CPUREL 
          ENTRY  WTX=                                                    CPUREL 
          ENTRY  DCB=                                                    CPUREL 
          SYSCOM                                                         CPUREL 
 WTW      TITLE  WTW - WRITE WORDS FROM WORKING BUFFER.                  CPUREL 
          COMMENT WRITE WORDS FROM WORKING BUFFER.                       CPUREL 
          COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              CPUREL 
*CALL     COMCWTW                                                        CPUREL 
          END                                                            CPUREL 
          IDENT  CPU.XJR                                                 CPUREL 
          ENTRY  XJR=                                                    CPUREL 
 XJR      TITLE  XJR - RESTORE REGISTERS VIA *XJR* MONITOR CALL.         CPUREL 
          COMMENT RESTORE REGISTERS VIA *XJR* MONITOR CALL.              CPUREL 
          COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              CPUREL 
*CALL     COMCXJR                                                        CPUREL 
          END                                                            CPUREL 
*ENDIF
          IDENT  CPU.ZTB                                                 CPUREL 
          ENTRY  ZTB=                                                    CPUREL 
 ZTB      TITLE  ZTB - CONVERT ZEROES TO BLANKS IN A WORD.               CPUREL 
          COMMENT CONVERT ZEROES TO BLANKS IN A WORD.                    CPUREL 
          COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              CPUREL 
*CALL     COMCZTB                                                        CPUREL 
          END                                                            CPUREL 
