*DECK     CALLCPU                                                        CALLCPU
          IDENT  CALLCPU                                                 CALLCPU
          SYSCOM B1                                                      CALLCPU
          LIST   F,X                                                     CALLCPU
 CALLCPU  TITLE  CALLCPU - CALL CPU COMMON DECKS.                        CALLCPU
          COMMENT CALL CPU COMMON DECKS.                                 CALLCPU
          COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              CALLCPU
 CALLCPU  SPACE  4,10                                                    CALLCPU
***       CALLCPU - CALL CPU COMMON DECKS.                               CALLCPU
*                                                                        CALLCPU
*         THIS PROGRAM EXISTS TO PROVIDE AN EASY MEANS OF LISTING        CALLCPU
*         THE STANDARD CPU COMMON DECKS.  IT IS NOT INTENDED TO BE       CALLCPU
*         EXECUTED.                                                      CALLCPU
 CALLCPU  SPACE  4,10                                                    CALLCPU
***       THE COMMON DECKS LISTED HERE CONSTITUTE A STANDARD SET OF      CALLCPU
*         COMPASS SUBROUTINES FOR USE BY ALL CYBER 170 PRODUCTS.         CALLCPU
*         ALL SUBROUTINES RUN ON BOTH NOS AND NOS/BE AND PRODUCE THE     CALLCPU
*         SAME CODE ON BOTH SYSTEMS.  THEY MAY BE ASSEMBLED USING THE    CALLCPU
*         COMMON SYSTEMS TEXT *CPUTEXT*.                                 CALLCPU
          SPACE  4,8
***       SOME GENERAL RULES APPLY TO THE USE OF ALL OF THESE COMMON
*         DECKS.  ANY SUCH GENERAL RULES ARE STATED HERE IN A 
*         CENTRALIZED PLACE AND ARE AS FOLLOWS -- 
* 
*         1) ANY I/O BUFFERS, STRING BUFFERS, EXCHANGE PACKAGE SAVE 
*         AREAS, ETC. TO BE USED BY ANY OF THESE COMMON DECKS SHOULD
*         NOT BE LOCATED WITHIN THE LAST 10B WORDS OF THE FIELD LENGTH. 
*         SOME FETCH LOOPS, MOVE LOOPS, ETC. ARE WRITTEN FOR OPTIMAL
*         PERFORMANCE AND MAY MODE OUT IF THE ABOVE RESTRICTION IS NOT
*         ADHERED TO.  THIS IS NOT CONSIDERED A BUG BUT A USER ERROR. 
* 
*         2) REGISTERS USED BY EACH COMMON DECK ARE DOCUMENTED AS SUCH. 
*         REGISTERS WHICH ARE NOT USED BY THE COMMON DECKS ARE
*         UNCHANGED AND MAY BE CONSIDERED PRESERVED.  THESE REGISTER
*         CONVENTIONS MAY NOT BE CHANGED AND ARE CONSIDERED TO BE SET 
*         IN CONCRETE FOREVER.
* 
*         3) ENTRY AND EXIT CONDITIONS ARE EXACTLY AND ONLY THOSE 
*         WHICH ARE DOCUMENTED WITHIN EACH COMMON DECK.  THE CALLER 
*         SHOULD NOT RELY ON UNDOCUMENTED EXIT CONDITIONS, AS THESE 
*         MAY CHANGE FROM TIME TO TIME. 
          SPACE  4,8
*         NOTE THAT IDENT NAMES CHANGING ANY OF THESE COMMON DECKS ARE
*         RESTRICTED TO SEVEN CHARACTERS OR LESS.  THIS RESTRICTION IS
*         NEEDED TO ENSURE THAT *UPMOD* ON *NOS* MAY BE RUN TO GENERATE 
*         AN *OPL* CONTAINING THESE COMMON DECKS SO THAT THESE DECKS
*         MAY ALSO BE USED BY *MODIFY* BASED PRODUCTS ON *NOS*. 
          SPACE  4,8
*         DOCUMENTATION FOR THESE DECKS MAY BE OBTAINED BY USING
*         *UPMOD* ON *NOS* TO CREATE AN *OPL*, EDITING *CALLCPU*, 
*         AND MAKING A *DOCMENT* RUN. 
 CALLCPU  SPACE  4,10                                                    CALLCPU
*         EQUIVALENCES FOR *COMCMTP*.                                    CALLCPU
                                                                         CALLCPU
 MEML     EQU    0                                                       CALLCPU
 TOV      EQU    0                                                       CALLCPU
*CALL     COMCARG                                                        CALLCPU
*CALL     COMCCDD                                                        CALLCPU
*CALL     COMCCFD                                                        CALLCPU
*IF -DEF,SC2MACRO 
*CALL     COMCCIO                                                        CALLCPU
*ENDIF
*CALL     COMCCOD                                                        CALLCPU
*IF -DEF,SC2MACRO 
*CALL COMCCPM 
*ENDIF
*CALL     COMCCPT                                                        CALLCPU
*CALL     COMCDXB                                                        CALLCPU
*CALL     COMCMNS 
*CALL     COMCMOS 
*CALL     COMCMTM                                                        CALLCPU
*CALL     COMCMTP                                                        CALLCPU
*CALL     COMCMVE                                                        CALLCPU
*IF -DEF,SC2MACRO 
*CALL     COMCRDC                                                        CALLCPU
*CALL     COMCRDH                                                        CALLCPU
*CALL     COMCRDO                                                        CALLCPU
*CALL     COMCRDS                                                        CALLCPU
*CALL     COMCRDW                                                        CALLCPU
*ENDIF
*CALL     COMCRSR                                                        CALLCPU
*CALL     COMCSFN                                                        CALLCPU
*CALL     COMCSRT                                                        CALLCPU
*CALL     COMCSST                                                        CALLCPU
*IF -DEF,SC2MACRO 
*CALL     COMCSTF                                                        CALLCPU
*ENDIF
*CALL     COMCSVR                                                        CALLCPU
*IF -DEF,SC2MACRO 
*CALL     COMCSYS                                                        CALLCPU
*ENDIF
*CALL     COMCUPC                                                        CALLCPU
*CALL     COMCWOD                                                        CALLCPU
*IF -DEF,SC2MACRO 
*CALL     COMCWTC                                                        CALLCPU
*CALL     COMCWTH                                                        CALLCPU
*CALL     COMCWTO                                                        CALLCPU
*CALL     COMCWTS                                                        CALLCPU
*CALL     COMCWTW                                                        CALLCPU
*CALL     COMCXJR                                                        CALLCPU
*ENDIF
*CALL     COMCZTB                                                        CALLCPU
          END                                                            CALLCPU
