Q
6 
R
0 
0 
0                   OPERATING SYSTEM =  NOS 2.8.7 871/871.   23/01/30. PRINTED = 23/08/13. 15.56.49.
0                   UJN          =  AAJA        FAMILY    = CYBER         JOB ORIGIN    = INTERACTIVE.        
                    CREATING JSN =  AACA        USER NAME = WSCHAUB       SERVICE CLASS = INTERACTIVE.                  
                                                                                                              
0 
0 
       AAAAAAAAAA    AAAAAAAAAA   JJJJJJJJJJJJ   AAAAAAAAAA    AAAAAAAAAA    AAAAAAAAAA    CCCCCCCCCC   EEEEEEEEEEEE  
      AAAAAAAAAAAA  AAAAAAAAAAAA  JJJJJJJJJJJJ  AAAAAAAAAAAA  AAAAAAAAAAAA  AAAAAAAAAAAA  CCCCCCCCCCCC  EEEEEEEEEEEE  
      AA        AA  AA        AA       JJ       AA        AA  AA        AA  AA        AA  CC        CC  EE            
      AA        AA  AA        AA       JJ       AA        AA  AA        AA  AA        AA  CC        CC  EE            
      AA        AA  AA        AA       JJ       AA        AA  AA        AA  AA        AA  CC            EE            
      AA        AA  AA        AA       JJ       AA        AA  AA        AA  AA        AA  CC            EE            
      AA        AA  AA        AA       JJ       AA        AA  AA        AA  AA        AA  CC            EE            
      AAAAAAAAAAAA  AAAAAAAAAAAA       JJ       AAAAAAAAAAAA  AAAAAAAAAAAA  AAAAAAAAAAAA  CC            EEEEEEEE      
      AAAAAAAAAAAA  AAAAAAAAAAAA       JJ       AAAAAAAAAAAA  AAAAAAAAAAAA  AAAAAAAAAAAA  CC            EEEEEEEE      
      AA        AA  AA        AA       JJ       AA        AA  AA        AA  AA        AA  CC            EE            
      AA        AA  AA        AA       JJ       AA        AA  AA        AA  AA        AA  CC            EE            
      AA        AA  AA        AA       JJ       AA        AA  AA        AA  AA        AA  CC            EE            
      AA        AA  AA        AA       JJ       AA        AA  AA        AA  AA        AA  CC            EE            
      AA        AA  AA        AA  JJ   JJ       AA        AA  AA        AA  AA        AA  CC        CC  EE            
      AA        AA  AA        AA  JJJJJJJ       AA        AA  AA        AA  AA        AA  CCCCCCCCCCCC  EEEEEEEEEEEE  
      AA        AA  AA        AA   JJJJJ        AA        AA  AA        AA  AA        AA  CCCCCCCCCCC   EEEEEEEEEEEE  
Q
T
C  MWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWM
   WMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMW
   MWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWM
   WMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMW
   MWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWM
S
C 
R
1UNLABELED OLDPL               IDENT    XXXX                          UPDATE 1.4-871.      23/08/13. 15.41.47.      PAGE   1    
  
 *****    *IDENT XXXX       
 /////    *DELETE EBL.129   
           SHNI     EQU    1000B      
                    XTEXT  COMPMAC    
 /////    *DELETE EDD.211   
           SHNI     EQU    1000B      
                    XTEXT  COMPMAC    
 /////    *DELETE EDD.341   
           TRLLI    EQU    5*4         TAPE RECORD LABEL LENGTH     
 /////    *DELETE EDD.750   
                    LDN    TRLLI       SET LABEL RECORD LENGTH      
0       
  
          MODIFICATIONS / CONTROL CARDS 
  
 YANK$$$  *DEFINE,CMSE17X                                                          DFCMSE  DFCMSE         1 
0       
  
 IPL      *CALL,VERS                                                                       DIMA317        1 
 IPL      *CALL,CDCCRN                                                                     DIMA317        5 
 IPL      *CALL     COMPCTI                                                                IPL           91 
 IPL      *CALL     COMSCPA                                                                IPL           92 
 IPL      *CALL     COMSCTI                                                                IPL           93 
 IPL      *CALL     COMS844                                                                IPL           94 
 IPL      *CALL     COMS885                                                                IPL           95 
 IPL      *CALL     COMSMTS                                                                IPL           96 
 IPL      *CALL     COMSATS                                                                IPL           97 
 IPL      *CALL     COMS3TP                                                                IPL           98 
 IPL      *CALL     COMPCHL                                                                IPL           99 
0       
  
 CD7      *CALL,VERS                                                                       DIMA317A       1 
 CD7      *CALL,CDCCRN                                                                     DIMA317A       5 
 CD7      *CALL     COMPCTI                                                                CD7          121 
 CD7      *CALL     COMSATS                                                                CD7          122 
 CD7      *CALL     COMPCHL                                                                CD7          123 
 CD7      *CALL     COMSCPA                                                                CD7          124 
 CD7      *CALL     COMSCTI                                                                CD7          125 
0       
  
 CD6      *CALL,VERS                                                                       DIMA317B       1 
 CD6      *CALL,CDCCRN                                                                     DIMA317B       5 
 CD6      *CALL     COMPCTI                                                                CD6          121 
 CD6      *CALL     COMSMTS                                                                CD6          122 
 CD6      *CALL     COMPCHL                                                                CD6          123 
 CD6      *CALL     COMSCPA                                                                CD6          124 
 CD6      *CALL     COMSCTI                                                                CD6          125 
0       
  
 CD3      *CALL,VERS                                                                       DIMA317C       1 
 CD3      *CALL,CDCCRN                                                                     DIMA317C       5 
 CD3      *CALL     COMPCTI                                                                CD3          121 
1UNLABELED OLDPL              MODIFICATIONS / CONTROL CARDS           UPDATE 1.4-871.      23/08/13. 15.41.47.      PAGE   2    
  
 CD3      *CALL     COMS3TP                                                                CD3          122 
 CD3      *CALL     COMPCHL                                                                CD3          123 
 CD3      *CALL     COMSCPA                                                                CD3          124 
 CD3      *CALL     COMSCTI                                                                CD3          125 
0       
  
 CD4      *CALL,VERS                                                                       DIMA317D       1 
 CD4      *CALL,CDCCRN                                                                     DIMA317D       5 
 CD4      *CALL     COMPCTI                                                                CD4          100 
 CD4      *CALL     COMS844                                                                CD4          101 
 CD4      *CALL     COMPCHI                                                                CD4          102 
 CD4      *CALL     COMSCPA                                                                CD4          103 
 CD4      *CALL     COMSCTI                                                                CD4          104 
0       
  
 CD8      *CALL,VERS                                                                       DIMA317E       1 
 CD8      *CALL,CDCCRN                                                                     DIMA317E       5 
 CD8      *CALL     COMPCTI                                                                CD8          111 
 CD8      *CALL     COMS885                                                                CD8          112 
 CD8      *CALL     COMPCHI                                                                CD8          113 
 CD8      *CALL     COMSCPA                                                                CD8          114 
 CD8      *CALL     COMSCTI                                                                CD8          115 
0       
  
 IOQ      *CALL,VERS                                                                       DIMA317F       1 
 IOQ      *CALL,CDCCRN                                                                     DIMA317F       5 
 IOQ      *CALL     COMPCTI                                                                IOQ          162 
 IOQ      *CALL     COMSSCR                                                                IOQ          163 
 IOQ      *CALL     COMSCPA                                                                IOQ          164 
 IOQ      *CALL     COMSCTI                                                                IOQ          165 
 IOQ      *CALL,VERS                                                                       DIMA316        2 
0       
  
 OIP      *CALL,VERS                                                                       DIMA317G       1 
 OIP      *CALL,CDCCRN                                                                     DIMA317G       5 
 OIP      *CALL COMPMAC                                                                    OIP          172 
 OIP      *CALL COMSCPA                                                                    OIP          173 
 OIP      *CALL COMSCTI                                                                    OIP          174 
 OIP      *CALL     COMPDMS                                                                OIP          560 
0       
  
 AEI      *CALL,VERS                                                                       DIMA317H       1 
 AEI      *CALL,CDCCRN                                                                     DIMA317H       5 
 AEI      *CALL     COMPCTI                                                                AEI          142 
 AEI      *CALL     COMSCPA                                                                AEI          143 
 AEI      *CALL     COMSCTI                                                                AEI          144 
0       
  
 ICD      *CALL,VERS                                                                       DIMA317I       1 
 ICD      *CALL,CDCCRN                                                                     DIMA317I       5 
 ICD      *CALL     COMPCTI                                                                ICD          125 
 ICD      *CALL     COMPCHI                                                                ICD          126 
1UNLABELED OLDPL              MODIFICATIONS / CONTROL CARDS           UPDATE 1.4-871.      23/08/13. 15.41.47.      PAGE   3    
  
 ICD      *CALL     COMS844                                                                ICD          127 
 ICD      *CALL     COMS885                                                                ICD          128 
 ICD      *CALL     COMSCPA                                                                ICD          129 
 ICD      *CALL     COMSCTI                                                                ICD          130 
 ICD      *CALL     COMPQOD                                                                ICD          880 
 ICD      *CALL,CDCCRN                                                                     DIMA317I       8 
0       
  
 EDD      *CALL,VERS                                                                       DIMA317J       1 
 EDD      *CALL,CDCCRN                                                                     DIMA317J       5 
 EDD      *CALL     COMPMAC                                                                EDD          211        D  
 EDD       SHNI     EQU    1000B                                                           XXXX           1      I    
 EDD                XTEXT  COMPMAC                                                         XXXX           2      I    
 EDD      *CALL     COMSCPA                                                                EDD          212 
 EDD      *CALL     COMSCTI                                                                EDD          213 
 EDD      *CALL     COMSSCR                                                                EDD          215 
 EDD       TRLL     EQU    5*4         TAPE RECORD LABEL LENGTH                            EDD          341        D  
 EDD       TRLLI    EQU    5*4         TAPE RECORD LABEL LENGTH                            XXXX           3      I    
 EDD      *CALL,CDCCRN                                                                     DIMA317J       8 
 EDD      *CALL     COMPC2D                                                                EDD          519 
 EDD                LDN    TRLL        SET LABEL RECORD LENGTH                             EDD          750        D  
 EDD                LDN    TRLLI       SET LABEL RECORD LENGTH                             XXXX           4      I    
 EDD      *CALL     COMPDMS                                                                EDD         1581 
 EDD      *CALL,CDCCRN                                                                     DIMA317J      11 
 EDD      *CALL,CDCCRN                                                                     DIMA317J      14 
0       
  
 SAD      *CALL,VERS                                                                       DIMA317K       1 
 SAD      *CALL,CDCCRN                                                                     DIMA317K       5 
 SAD      *CALL     COMPCTI                                                                SAD          121 
 SAD      *CALL     COMSCPA                                                                SAD          122 
 SAD      *CALL     COMSCTI                                                                SAD          123 
 SAD      *CALL     COMPQOD                                                                SAD          413 
0       
  
 DHE      *CALL,VERS                                                                       DIMA317L       1 
 DHE      *CALL,CDCCRN                                                                     DIMA317L       5 
 DHE      *CALL COMPMAC                                                                    DHE           62 
 DHE      *CALL COMSCPA                                                                    DHE           63 
 DHE      *CALL COMSCTI                                                                    DHE           64 
 DHE      *CALL COMSSCR                                                                    DHE           65 
 DHE      *CALL COMPCHI                                                                    DHE           66 
 DHE      *CALL COMPC2D                                                                    DHE          817 
 DHE      *CALL     COMPSCE                                                                DHE          819 
0       
  
 MAD      *CALL,VERS                                                                       DIMA317M       1 
 MAD      *CALL,CDCCRN                                                                     DIMA317M       5 
 MAD      *CALL COMPMAC                                                                    MAD           14 
 MAD      *CALL COMSCPA                                                                    MAD           15 
 MAD      *CALL COMSCTI                                                                    MAD           16 
 MAD      *CALL COMSSCR                                                                    MAD           17 
 MAD      *CALL     COMPDMS                                                                MAD          211 
1UNLABELED OLDPL              MODIFICATIONS / CONTROL CARDS           UPDATE 1.4-871.      23/08/13. 15.41.47.      PAGE   4    
  
0       
  
 PCM      *CALL,VERS                                                                       DIMA317N       1 
 PCM      *CALL,CDCCRN                                                                     DIMA317N       5 
 PCM      *CALL     COMPCHI                                                                PCM          219 
 PCM      *CALL COMSCPA                                                                    PCM          220 
 PCM      *CALL COMSCTI                                                                    PCM          221 
 PCM      *CALL     COMPMAC                                                                PCM          222 
 PCM      *CALL     COMSSCR                                                                PCM          223 
 PCM      *CALL     COMPC2D                                                                PCM         1732 
 PCM      *CALL,CDCCRN                                                                     DIMA317N       8 
 PCM      *CALL,VERS                                                                       DIMA394        1 
 PCM      *CALL,CDCCRN                                                                     DIMA317N      11 
 PCM      *CALL COMPSCE                                                                    PCM         2364 
0       
  
 EBL      *CALL,VERS                                                                       DIMA317O       1 
 EBL      *CALL,CDCCRN                                                                     DIMA317O       5 
 EBL      *CALL     COMPCTI                                                                EBL          128 
 EBL      *CALL     COMPMAC                                                                EBL          129        D  
 EBL       SHNI     EQU    1000B                                                           XXXX           5      I    
 EBL                XTEXT  COMPMAC                                                         XXXX           6      I    
 EBL      *CALL     COMPCHI                                                                EBL          130 
 EBL      *CALL     COMS844                                                                EBL          131 
 EBL      *CALL     COMS885                                                                EBL          132 
 EBL      *CALL     COMSSCR                                                                EBL          133 
 EBL      *CALL     COMSCPA                                                                EBL          134 
 EBL      *CALL     COMSCTI                                                                EBL          135 
 EBL      *CALL     COMPQOD                                                                EBL         1024 
0       
  
 ZZZ      *CALL,VERS                                                                       DIMA317P       1 
 ZZZ      *CALL,CDCCRN                                                                     DIMA317P       5 
0       
  
1UNLABELED OLDPL                  CORRECTION IDENTIFIERS              UPDATE 1.4-871.      23/08/13. 15.41.47.      PAGE   5    
  
0               CORRECTION IDENTS ARE LISTED IN CHRONOLOGICAL ORDER OF INSERTION
  
  
          COMSCPA   COMSCTI   COMSATS   COMSMTS   COMS3TP   COMS844   COMS885   COMPCHL 
          COMPCTI   COMPCHI   COMPQOD   COMPSCE   COMPMAC   COMPDMS   COMPC2D   COMSSCR 
          IPL       CD7       CD6       CD3       CD4       CD8       IOQ       OIP     
          AEI       ICD       EDD       SAD       DHE       MAD       PCM       EBL     
          ZZZ       HISTORY   DIMA284   *CT110PA* DIMA272   DIMA222   DIMA222A  DIMA271 
          *110B*    CDCCRN    VERS      DIMA290   DIMA290A  DIMA290B  DIMA278   DIMA291 
          DIMA292   DIMA295   DIMA295A  DIMA295B  DIMA295C  DIMA295D  DIMA299   DIMA314 
          DIMA314A  DIMA315   DIMA294   DIMA316   DIMA317   DIMA317A  DIMA317B  DIMA317C
          DIMA317D  DIMA317E  DIMA317F  DIMA317G  DIMA317H  DIMA317I  DIMA317J  DIMA317K
          DIMA317L  DIMA317M  DIMA317N  DIMA317O  DIMA317P  DIMA324   DIMA267   A00     
          DIMA332   *CT110PD* DIMA334   DIMA330   DIGO211   DIGO211A  DIGO210   *CT111PL* 
          DIMA331   DIGO205   *CT112PL* DIMA366   DIMA369   DIMA357   DIMA357A  DIMA357B
          DIMA357C  DIMA357D  *CT114PL* DIMA380   DIMO238   DIMA386   *CT115PL* DIM0251 
          DIG0230   DIMA398   DIMA403   *CT116PL* DIMA407   DIMA407A  DIMA387   DIMA387A
          *CT117PL* DFCMSE    DIMA394   *A02*     XXXX    
0       
  
0DECKS ARE LISTED IN THE ORDER OF THEIR OCCURRENCE ON A NEW PROGRAM LIBRARY IF ONE IS CREATED BY THIS UPDATE
  
  
          YANK$$$   COMSCPA   COMSCTI   COMSATS   COMSMTS   COMS3TP   COMS844   COMS885 
          COMPCHL   COMPCTI   COMPCHI   COMPQOD   COMPSCE   COMPMAC   COMPDMS   COMPC2D 
          COMSSCR   CDCCRN    VERS      IPL       CD7       CD6       CD3       CD4     
          CD8       IOQ       OIP       AEI       ICD       EDD       SAD       DHE     
          MAD       PCM       EBL       ZZZ       HISTORY 
0       
  
          VALUES DEFINED FOR THIS UPDATE
  
          CMSE17X 
0       
  
           COMMON DECKS ENCOUNTERED   
  
          COMSCPA   COMSCTI   COMSATS   COMSMTS   COMS3TP   COMS844   COMS885   COMPCHL 
          COMPCTI   COMPCHI   COMPQOD   COMPSCE   COMPMAC   COMPDMS   COMPC2D   COMSSCR 
          CDCCRN    VERS      HISTORY 
0       
  
          DECKS WRITTEN TO COMPILE FILE 
  
          IPL       CD7       CD6       CD3       CD4       CD8       IOQ       OIP     
          AEI       ICD       EDD       SAD       DHE       MAD       PCM       EBL     
          ZZZ     
0       
  
  THIS UPDATE REQUIRED  62200B WORDS OF MEMORY. 
 IPL
1       IPL         CTI INITIAL PROGRAM LOADER - A02                  COMPASS 3.7-871.     23/08/13. 15.42.04.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
  
                       7421      360              IDENT  IPL,IPLFWA 
                      10001      (61)             END 
  
  
  
  
                                                  IDENT  IPL,IPLFWA                                              IPL         2
                                                  PERIPH                                                         IPL         3
                                         VERID    MICRO  1,,*A02*                                                *A02*       1
                                         VERS     MICRO  1,,*"VERID"*                                       VERS VERS        3
                                                  COMMENT CTI INITIAL PROGRAM LOADER - "VERS"                    DIMA317     3
                                                  COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1979               DIMA317     4
  
  
                                        *         ALL RIGHTS RESERVED                                            CDCCRN      3
                                        *                                                                        CDCCRN      4
                                        *         CONTAINED HEREIN ARE SOFTWARE PRODUCTS COPYRIGHTED             CDCCRN      5
                                        *         BY CONTROL DATA CORPORATION.  REPRODUCTION WITHOUT             CDCCRN      6
                                        *         PERMISSION IS PROHIBITED.  THE COPYRIGHT NOTICE                CDCCRN      7
                                        *         MUST APPEAR ON ALL AUTHORIZED COMPLETE OR                      CDCCRN      8
                                        *         PARTIAL COPIES.                                                CDCCRN      9
                                        *                                                                        CDCCRN     10
1       IPL         CTI INITIAL PROGRAM LOADER - A02                  COMPASS 3.7-871.     23/08/13. 15.42.04.      PAGE     2
                                                                      IPL 
  
                                        *****     IPL - INITIAL PROGRAM LOADER -CTI-.                            IPL         8
                                        *                                                                        IPL         9
                                        *         R. A. MATTHEWS.          12/15/77.                             IPL        10
                                        *                                                                        IPL        11
                                        *         IPL IS THE INITIAL PROGRAM IN THE COMMON TEST/INITIALIZATION   IPL        12
                                        *         PACKAGE (CTI) FOR TAPE AND DISK DEADSTART.  IPL                IPL        13
                                        *         INITIATES THE CTI SEQUENCE AND READS IN A MORE ADEQUATE        IPL        14
                                        *         DEVICE DRIVER FOR THE REST OF CTI PROCESSING.                  IPL        15
  
  
  
  
                                        ***       IPL - INITIAL PROGRAM LOADER -CTI-.                            IPL        17
                                        *                                                                        IPL        18
                                        *         IPL IS THE FIRST PROGRAM LOADED FROM THE COMMON TEST/INITIAL   IPL        19
                                        *         -IZATION PACKAGE (CTI). IPL CHECKS THE DEADSTART DEVICE TYPE   IPL        20
                                        *         FROM THE DEADSTART PANEL SETTING AND READS IN THE APPROPRIATE  IPL        21
                                        *         DRIVER. IF THE DEVICE IS TAPE, IPL READS A GIVEN NO. OF        IPL        22
                                        *         RECORDS BEFORE TRANSFERING CONTROL TO THE DRIVER. FOR 67X      IPL        23
                                        *         (ATS) TAPE, THE FIRST RECORD AFTER IPL IS LOADED AND EXECUTED  IPL        24
                                        *         FOR 66X (MTS) TAPE, THE SECOND RECORD AFTER IPL IS LOADED.     IPL        25
                                        *         FOR 3000 TYPE TAPE DRIVES, THE THIRD RECORD IS LOADED.         IPL        26
                                        *         FOR DISK DEADSTARTS, THE DRIVER IS LOADED FROM THE CTI AREA    IPL        27
                                        *         ON THE DISK (SEE INSTALL UTILITY) BY ABSOLUTE DISK ADDRESS     IPL        28
                                        *         FOUND IN THE COMMON POINTER AREA.                              IPL        29
1       IPL         CTI INITIAL PROGRAM LOADER - A02                  COMPASS 3.7-871.     23/08/13. 15.42.04.      PAGE     3
        DEFINITIONS.                                                  DSP 
  
                                        **        DEADSTART PANEL WORDS.                                         IPL        32
                                        *                                                                        IPL        33
                                        *         WORDS 5 - 20B OF THE DEADSTART PANEL MUST REMAIN INTACT        IPL        34
                                        *         DURING IPL EXECUTION. WORDS 0 - 4 MAY BE USED AS SCRATCH       IPL        35
                                        *         DIRECT CELLS.                                                  IPL        36
                                   0     D0       EQU    0                 SCRATCH                               IPL        37
                                   1     D1       EQU    1                 SCRATCH                               IPL        38
                                   2     D2       EQU    2                 SCRATCH                               IPL        39
                                   3     D3       EQU    3                 SCRATCH                               IPL        40
                                   4     D4       EQU    4                 SCRATCH                               IPL        41
                                   5     D5       EQU    5                 ZERO IF TAPE DEADSTART                IPL        42
                                   6     D6       EQU    6                 FUNCTION WORD                         IPL        43
                                        *         (D6) = WARMSTART FUNCTION, IF MTS/ATS.                         IPL        44
                                        *              = DEADSTART FUNCTION, IF 844 DISK.                        IPL        45
                                   7     D7       EQU    7                 RESERVED                              IPL        46
                                        *         (D7) = 1400B IF 3000 TYPE TAPE.                                IPL        47
                                  10     D10      EQU    10B               RESERVED                              IPL        48
                                  11     D11      EQU    11B               RESERVED                              IPL        49
                                  12     D12      EQU    12B               MSL PARAMETERS                        IPL        50
                                  13     D13      EQU    13B               OS PARAMETERS                         IPL        51
                                  14     D14      EQU    14B               OS PARAMETERS                         IPL        52
                                  15     D15      EQU    15B               UNUSED                                IPL        53
                                  16     D16      EQU    16B               C80/A170 RESERVED                     IPL        54
                                  17     D17      EQU    17B               RESERVED                              IPL        55
                                  20     D20      EQU    20B               RESERVED                              IPL        56
  
  
  
  
                                        **        INSTRUCTION EQUATES.                                           IPL        58
                                        *                                                                        IPL        59
                                   0     PSNC     EQU    0000B             PASS                                  IPL        60
                                 300     UJNC     EQU    0300B             UNCONDITIONAL JUMP                    IPL        61
                                 400     ZJNC     EQU    0400B             ZERO JUMP                             IPL        62
                                1000     SHNC     EQU    1000B             SHIFT                                 IPL        63
                                1500     LCNC     EQU    1500B             LOAD COMPLEMENT                       IPL        64
                                1700     SBNC     EQU    1700B             SUBTRACT NO-ADDRESS                   IPL        65
                                2000     LDCC     EQU    2000B             LOAD CONSTANT                         IPL        66
                                2100     ADCC     EQU    2100B             ADD CONSTANT                          IPL        67
                                2300     LMCC     EQU    2300B             LOGICAL MINUS CONSTANT                IPL        68
                                3000     LDDC     EQU    3000B             LOAD DIRECT                           IPL        69
                                6400     AJMC     EQU    6400B             ACTIVE JUMP                           IPL        70
                                7300     OAMC     EQU    7300B             OUTPUT MEMORY                         IPL        71
                                7400     ACNC     EQU    7400B             ACTIVATE CHANNEL                      IPL        72
                                7500     DCNC     EQU    7500B             DISCONNECT CHANNEL                    IPL        73
1       IPL         CTI INITIAL PROGRAM LOADER - A02                  COMPASS 3.7-871.     23/08/13. 15.42.04.      PAGE     4
        DEFINITIONS.                                                  SCR 
  
                                        **        STATUS AND CONTROL REGISTER CHANNEL DEFINITIONS.               IPL        75
                                        *                                                                        IPL        76
                                  16     CHSCR    EQU    16B                                                     IPL        77
                                2000     F.CLR    EQU    2000B             CLEAR SCR BIT                         IPL        78
                                4000     F.SET    EQU    4000B             SET SCR BIT                           IPL        79
                                 124     B.2XSP   EQU    124B              2X PPU SPEED                          IPL        80
  
  
  
  
                                        **        MISCELLANEOUS DEFINITIONS.                                     IPL        82
                                        *                                                                        IPL        83
                                        *                                                                        IPL        84
                                   0     FWDL$    EQU    0                 DEFINE FORWARD LINK FOR CHANNEL INST. IPL        85
1       IPL         CTI INITIAL PROGRAM LOADER - A02                  COMPASS 3.7-871.     23/08/13. 15.42.04.      PAGE     5
        DEFINITION COMMON DECKS.
  
                                        **        DEFINITION COMMON DECKS.                                       IPL        88
                                        *                                                                        IPL        89
                                        **        ALL SYMBOL AND MACRO DEFINITION COMMON DECKS ARE CALLED HERE.  IPL        90
           0                             CTI      CTEXT  COMPCTI - CTI COMMON MACROES.                           COMPCTI     2
           0                             CPA      CTEXT  COMSCPA - CTI COMMON POINTER AREA DEFINITIONS.          COMSCPA     2
           0                             CTI      CTEXT  COMSCTI - CTI INTERNAL DEFINITIONS.                     COMSCTI     2
           0                             844      CTEXT  COMS844 - 844 DISK DEFINTIONS.                          COMS844     2
           0                             885      CTEXT  COMS885 - 885 DISK DEFINTIONS.                          COMS885     2
           0                             MTS      CTEXT  COMSMTS - MTS TAPE DEFINITIONS.                         COMSMTS     2
           0                             ATS      CTEXT  COMSATS - ATS TAPE DEFINITIONS.                         COMSATS     2
           0                             3TP      CTEXT  COMS3TP - 3000 TYPE TAPE DEFINITIONS.                   COMS3TP     2
           0                                      CTEXT  COMPCHL - REDEFINE I/O INSTRUCTIONS.                    COMPCHL     2
                                7660     CPAFWA   EQU    /CTI/CPAFWA                                             IPL       100
                                7421     IPLFWA   EQU    /CTI/IPLFWA                                             IPL       101
1       IPL         CTI INITIAL PROGRAM LOADER - A02                  COMPASS 3.7-871.     23/08/13. 15.42.04.      PAGE     6
        IPL - MAIN PROGRAM. 
  
        7421                                      ORG    IPLFWA                                                  IPL       103
  
  
  
  
                                        ***       IPL - INITIAL PROGRAM LOADER.                                  IPL       105
                                        *                                                                        IPL       106
                                        *         IPL FIRST STUFFS THE APPROPRIATE DEADSTART CHANNEL NO. INTO    IPL       107
                                        *         IT-S AND IT-S SUBROUTINES CHANNEL INSTRUCTIONS. THEN IPL       IPL       108
                                        *         DETERMINES THE DEADSTART DEVICE TYPE FROM THE D/S PANEL        IPL       109
                                        *         SETTING AND SETS UP THE DRIVER RECORD NO. TO BE LOADED. THIS   IPL       110
                                        *         RECORD NUMBER IS ONLY USED WHEN READING FROM TAPE, FROM DISK   IPL       111
                                        *         THE DRIVER POINTER WORD CONTAINS THE EXACT ADDRESS OF THE      IPL       112
                                        *         DISK DRIVER. IPL THEN READ N RECORDS (N = DRIVER RECORD NO.)   IPL       113
                                        *         AND TRANSFERS CONTROL TO THIS BLOCK OF CODE.                   IPL       114
                                        *                                                                        IPL       115
                                        *         VALUES FOR THE DRIVER TYPE (DRIVER RECORD NO.) ARE AS FOLLOWS: IPL       116
                                        *                                                                        IPL       117
                                        *         EQUIPMENT TYPE           DRIVER TYPE                           IPL       118
                                        *                                                                        IPL       119
                                        *         67X TAPE                      01B                              IPL       120
                                        *         66X TAPE                      02B                              IPL       121
                                        *         65X/607 TAPE                  03B                              IPL       122
                                        *         844 DISK                      11B                              IPL       123
                                        *         885 DISK                      12B                              IPL       124
        7421         6516 7427           IPL      IJM.   IPL01,CHSCR       IF NOT CYBER 170                      IPL       125
        7423         2000 4124                    LDC    F.SET+B.2XSP                                            IPL       126
        7425         7216                         OAN.   CHSCR             SET 2X SPEED                          IPL       127
        7426         7016                         IAN.   CHSCR                                                   IPL       128
        7427         2000 7540           IPL01    LDC    IPLZ              FIRST CHANNEL INSTRUCTION             IPL       129
        7431         3402                         STD    D2                POINTER TO CHANNEL INST.              IPL       130
        7432         3010                         LDD    D10               GET CHANNEL INST. FROM D/S PANEL      IPL       131
        7433         1237                         LPN    37B                                                     IPL       132
        7434         3403                         STD    D3                SAVE FOR CHANNEL STUFFING             IPL       133
        7435         1400                         LDN    0                                                       IPL       134
        7436         3502                IPL02    RAD    D2                CHANNEL INST. POINTER + BIAS          IPL       135
        7437         4002                         LDI    D2                GET INSTRUCTION                       IPL       136
        7440         1237                         LPN    37B               MASK FOR LINK TO NEXT INST.           IPL       137
        7441         3404                         STD    D4                SAVE FOR UPDATE                       IPL       138
        7442         3003                         LDD    D3                GET CHANNEL NO.                       IPL       139
        7443         3204                         SBD    D4                SUBRACT LINK FROM CHANNEL NO.         IPL       140
        7444         4502                         RAI    D2                ADD CHANNEL NO. - LINK TO OLD INST.   IPL       141
        7445         3004                         LDD    D4                CHECK FOR ZERO                        IPL       142
        7446         0567                         NJN    IPL02             CONTINUE PROCESSING INSTRUCTIONS      IPL       143
                                        *         CHANNEL INSTRUCTIONS ARE NOW READY FOR USE. A CHECK IS MADE    IPL       144
                                        *         TO DETERMINE THE DEADSTART MEDIUM.                             IPL       145
        7447         3005                         LDD    D5                D/S PANEL WORD 5                      IPL       146
        7450         0403                         ZJN    IPL03             IF TAPE DEADSTART                     IPL       147
        7451         0100 7524                    LJM    IPL10             IF DISK DEADSTART                     IPL       148
        7453         3007                IPL03    LDD    D7                                                      IPL       149
        7454         1006                         SHN    6                                                       IPL       150
        7455         0633                         PJN    IPL07             IF 3000 TYPE TAPE                     IPL       151
                                        *         IT HAS BEEN DETERMINED THAT THE DEADSTART DEVICE IS EITHER     IPL       152
                                        *         ATS OR MTS TAPE. THE READ AND ERROR CHECKING IS DONE NEXT.     IPL       153
        7456         3006                         LDD    D6                FUNCTION WORD                         IPL       154
        7457         2200 7000                    LPC    7000B                                                   IPL       155
        7461         5400 7625                    STM    FCNA              SAVE EQUIPMENT NO.                    IPL       156
1       IPL         CTI INITIAL PROGRAM LOADER - A02                  COMPASS 3.7-871.     23/08/13. 15.42.04.      PAGE     7
        IPL - MAIN PROGRAM.                                           IPL 
  
        7463         3006                         LDD    D6                                                      IPL       157
        7464         1071                         SHN    -6                                                      IPL       158
        7465         1205                         LPN    5                 MASK OUT DENSITY AND EQP. NO          IPL       159
        7466         0504                         NJN    IPL04             IF ATS, SET TO SKIP REREAD CHECK      IPL       160
        7467         5400 7500                    STM    IPLA              MTS/ATS TYPE DESIGNATOR (0 = MTS)     IPL       161
        7471         3604                         AOD    D4                SET NO. OF RECORDS TO SKIP FOR MTS    IPL       162
                                   0              ERRNZ  /CTI/D66X-/CTI/D67X-1                                   IPL       163
        7472         1440                IPL04    LDN    /MTS/MRFW         READ FORWARD FUNCTION                 IPL       164
                                   0              ERRNZ  /MTS/MRFW-/ATS/ARFW                                     IPL       165
        7473         0200 7604           IPL05    RJM    FAI               FUNCTION AND READ                     IPL       166
        7475         1412                         LDN    /MTS/MGST         GENERAL STATUS                        IPL       167
                                   0              ERRNZ  /MTS/MGST-/ATS/AGST                                     IPL       168
        7476         0200 7643                    RJM    STS               GET GENERAL STATUS                    IPL       169
        7500         0305                IPLA     UJN    IPL06             IF ATS, SKIP NOISE CHECK              IPL       170
                                        *         PSN                      (IF MTS)                              IPL       171
        7501         1011                         SHN    /MTS/SL.GSNO      CHECK IF NOISE READ                   IPL       172
        7502         0603                         PJN    IPL06             IF NOT NOISE RECORD                   IPL       173
        7503         1441                         LDN    /MTS/MRRF         REREAD FORWARD                        IPL       174
        7504         0366                         UJN    IPL05             REPROCESS                             IPL       175
        7505         3704                IPL06    SOD    D4                DECREMENT SKIP COUNT                  IPL       176
        7506         0663                         PJN    IPL04             IF MORE RECORDS TO READ               IPL       177
        7507         0313                         UJN    IPL09             EXIT                                  IPL       178
                                        *         DEADSTART DEVICE IS A 3000 TYPE TAPE DRIVE, AND A SIMPLE READ  IPL       179
                                        *         IS DONE NEXT.                                                  IPL       180
        7510         1403                IPL07    LDN    /CTI/D3TP         3000 TAPE RECORD NO.                  IPL       181
        7511         3404                         STD    D4                DRIVER RECORD NO.                     IPL       182
        7512         2000 1400           IPL08    LDC    /3TP/CIEI+/3TP/CMDA  READ ONE BINARY RECORD             IPL       183
        7514         0200 7604                    RJM    FAI               FUNCTION AND INPUT                    IPL       184
        7516         1703                         SBN    /3TP/MBLN         MIN. NO. OF BYTES TO ACCEPT           IPL       185
        7517         0772                         MJN    IPL08             IF NOISE RECORD, REREAD               IPL       186
        7520         3704                         SOD    D4                DECREMENT DRIVER RECORD NO.           IPL       187
        7521         0570                         NJN    IPL08             IF MORE RECORDS TO READ               IPL       188
                                        *         ALL RETURNS ARE PROCESSED THROUGH THIS ADDRESS.                IPL       189
        7522         0100 6120           IPL09    LJM    /CTI/IPLTRAN      JUMP TO FIRST EXEC. INST.             IPL       190
                                        *         THE DEADSTART DEVICE IS A DISK, SO PROCESS READ FROM DISK.     IPL       191
        7524         5000 7732           IPL10    LDM    /CPA/CIDP+2       SAVE DISK ADDRESS                     IPL       192
        7526         5400 7570                    STM    IPLB                                                    IPL       193
        7530         3006                         LDD    D6                                                      IPL       194
        7531         1277                         LPN    77B                                                     IPL       195
        7532         5400 7727                    STM    /CPA/CIDP-1       UNIT NO. FOR SEEK                     IPL       196
        7534         1402                IPL11    LDN    /844/D2SK         SEEK 2:1                              IPL       197
                                   0              ERRNZ  /844/D2SK-/885/D2SK                                     IPL       198
        7535         0200 7623                    RJM    FCN                                                     IPL       199
        7537         0474                         ZJN    IPL11             IF FUNCTION REJECTED                  IPL       200
                                        ****                                                                     IPL       201
                                        *         THE FOLLOWING SYMBOL, *IPLZ*, MUST DEFINE THE LOCATION OF      IPL       202
                                        *         THE FIRST CHANNEL INSTRUCTION USING THE DEADSTART DEVICE       IPL       203
                                        *         CHANNEL.  THIS SYMBOL IS USED TO MARK THE INSTRUCTION IN       IPL       204
                                        *         WHICH THE FIRST FORWARD LINK IS DEFINED.                       IPL       205
                                        *         SUCH A MEASURE IS NECCESARY TO ENSURE PROPER CHANNEL           IPL       206
                                        *         DEFINITION WHEN USING *COMPCHL*.                               IPL       207
        7540                             IPLZ     BSS    0                 FIRST CHANNEL INSTRUCTION             IPL       208
                                        ****                                                                     IPL       209
        7540         7442                         ACN    40B               ACTIVATE CHANNEL                      IPL       210
        7541         1404                         LDN    4                                                       IPL       211
        7542         7302 7727                    OAM    /CPA/CIDP-1,0     OUTPUT SEEK PARAMETER ARRAY           IPL       212
        7544         6602 7544                    FJM    *,0                                                     IPL       213
1       IPL         CTI INITIAL PROGRAM LOADER - A02                  COMPASS 3.7-871.     23/08/13. 15.42.04.      PAGE     8
        IPL - MAIN PROGRAM.                                           IPL 
  
        7546         7566                         DCN    40B                                                     IPL       214
        7547         1412                         LDN    /844/DGST                                               IPL       215
                                   0              ERRNZ  /844/DGST-/885/DGST                                     IPL       216
        7550         0200 7643                    RJM    STS               GET GENERAL STATUS                    IPL       217
        7552         1212                         LPN    /844/MP.GSBS+/844/MP.GSDR                               IPL       218
                                   0              ERRNZ  /844/MP.GSBS-/885/MP.GSBS                               IPL       219
        7553         0560                         NJN    IPL11             IF DRIVE BUSY                         IPL       220
        7554         1404                         LDN    /844/DRED         READ FUNCTION                         IPL       221
                                   0              ERRNZ  /844/DRED-/885/DRED                                     IPL       222
        7555         0200 7604                    RJM    FAI                                                     IPL       223
        7557         0200 7657                    RJM    CLS               CHECK FOR LAST SECTOR                 IPL       224
        7561         0652                         PJN    IPL11             IF MORE TO READ                       IPL       225
        7562         5000 7570                    LDM    IPLB                                                    IPL       226
        7564         5400 7732                    STM    /CPA/CIDP+2       RESTORE DISK ADDRESS                  IPL       227
        7566         0100 7522                    LJM    IPL09                                                   IPL       228
        7570         0000                IPLB     CON    0                                                       IPL       229
1       IPL         CTI INITIAL PROGRAM LOADER - A02                  COMPASS 3.7-871.     23/08/13. 15.42.04.      PAGE     9
        SUBROUTINES.                                                  AWD 
  
                                        **        AWD - ACTIVATE CHANNEL AND WAIT FOR DATA.                      IPL       232
                                        *                                                                        IPL       233
                                        *         AWD ACTIVATES THE FUNCTIONED CHANNEL AND TIMES OUT A FULL      IPL       234
                                        *         CONDITION.                                                     IPL       235
                                        *                                                                        IPL       236
                                        *         EXIT   (A) .NE. 0, DATA ON CHANNEL.                            IPL       237
                                        *                (A) = 0, NO DATA RECIEVED, CHANNEL DISCONNECTED.        IPL       238
        7571         0100 0000           AWD      ENM    X                 ENTRY/EXIT                            IPL       239
        7573         1500                         LCN    0                                                       IPL       240
        7574         7441                         ACN    40B               ACTIVATE CHANNEL                      IPL       241
        7575         6604 7571           AWD1     FJM    AWDX,0            IF FULL, RETURN                       IPL       242
        7577         1701                         SBN    1                                                       IPL       243
        7600         0574                         NJN    AWD1              IF TIME OUT NOT EXPIRED               IPL       244
        7601         7551                         DCN    40B               DISCONNECT                            IPL       245
        7602         0366                         UJN    AWDX              RETURN                                IPL       246
  
  
  
  
                                        **        FAI - FUNCTION AND INPUT.                                      IPL       248
                                        *                                                                        IPL       249
                                        *         FAI FUNCTIONS THE DEVICE WITH THE FUNCTION CODE PASSED         IPL       250
                                        *         IN THE A REGISTER. IT THEN ACTIVATES THE CHANNEL AND WAITS FOR IPL       251
                                        *         DATA ON THE CHANNEL. IF NO DATA IS SENT, FAI REISSUES THE      IPL       252
                                        *         FUNCTION AND TRIES AGAIN.  IF DATA IS PRESENT, FAI READS       IPL       253
                                        *         FROM THE CHANNEL TO THE PP STARTING AT THE LOCATION SPECIFIED  IPL       254
                                        *         BY *FAIA*.                                                     IPL       255
                                        *                                                                        IPL       256
                                        *         ENTRY  (A) = FUNCTION CODE.                                    IPL       257
                                        *                (D5) = 0, IF TAPE DEADSTART.                            IPL       258
                                        *                (FAIA) = ADDRESS FOR BUFFER.                            IPL       259
                                        *                                                                        IPL       260
                                        *         EXIT   (A) = NO. OF BYTES TRANSFERRED.                         IPL       261
                                        *                (CLSA - CLSA+1) = LINKAGE BYTES, IF DISK DEADSTART.     IPL       262
                                        *                                                                        IPL       263
                                        *         USES   D2.                                                     IPL       264
                                        *                                                                        IPL       265
                                        *         CALLS  FCN, AWD.                                               IPL       266
        7603         0100 0000           FAI      ENM    X                 ENTRY/EXIT                            IPL       267
        7605         3402                         STD    D2                SAVE FUNCTION                         IPL       268
        7606         3002                FAI1     LDD    D2                                                      IPL       269
        7607         0200 7623                    RJM    FCN               FUNCTION DEVICE                       IPL       270
        7611         0474                         ZJN    FAI1              IF FUNCTION REJECT                    IPL       271
        7612         7442                         ACN    40B                                                     IPL       272
        7613         1400                         LDN    0                                                       IPL       273
        7614         7112 6000           FAI2     IAM    /CTI/IPLB,0       READ (SET UP FOR READ FROM TAPE)      IPL       274
                                7615     FAIA     EQU    *-1                                                     IPL       275
        7616         2377 7777                    LMC    777777B                                                 IPL       276
        7620         1601                         ADN    1                 NO. OF BYTES READ                     IPL       277
        7621         0361                         UJN    FAIX              RETURN                                IPL       278
1       IPL         CTI INITIAL PROGRAM LOADER - A02                  COMPASS 3.7-871.     23/08/13. 15.42.04.      PAGE    10
        SUBROUTINES.                                                  FCN 
  
                                        **        FCN - FUNCTION DEVICE.                                         IPL       280
                                        *                                                                        IPL       281
                                        *         ENTRY  (A) = FUNCTION CODE.                                    IPL       282
                                        *                (FCNA) = EQUIPMENT NO. * 1000B.                         IPL       283
                                        *                                                                        IPL       284
                                        *         EXIT   (A) .NE. 0, FUNCTION ACCEPTED.                          IPL       285
                                        *                (A) = 0, FUNCTION REJECTED.                             IPL       286
        7622         0100 0000           FCN      ENM    X                 ENTRY/EXIT                            IPL       287
        7624         2100 0000                    ADC    0                 ADD IN EQUIPMENT NO.                  IPL       288
                                7625     FCNA     EQU    *-1               EQUIPMENT NO. * 1000B                 IPL       289
        7626         7642                         FAN    40B               ISSUE FUNCTION                        IPL       290
        7627         1500                         LCN    0                                                       IPL       291
        7630         6504 7622           FCN1     IJM    FCNX,0            IF FUNCTION ACCEPTED, RETURN          IPL       292
        7632         1701                         SBN    1                                                       IPL       293
        7633         0574                         NJN    FCN1              IF TIMEOUT NOT EXPIRED                IPL       294
        7634         7542                         DCN    40B         NO HANG ON SECOND FUNCTION                  IPL       295
        7635         0364                         UJN    FCNX              RETURN                                IPL       296
  
  
  
  
                                        **        STS - STATUS DEVICE.                                           IPL       298
                                        *                                                                        IPL       299
                                        *         ENTRY  (A) = STATUS FUNCTION CODE.                             IPL       300
                                        *                                                                        IPL       301
                                        *         EXIT   (A) = STATUS RETURNED.                                  IPL       302
                                        *                                                                        IPL       303
                                        *         CALLS  FCN, AWD.                                               IPL       304
                                        *                                                                        IPL       305
                                        *         USES   D2.                                                     IPL       306
        7636         7043                STS1     IAN    40B               INPUT STATUS                          IPL       307
        7637         5400 7655                    STM    STSA                                                    IPL       308
        7641         7540                         DCN    40B               DISCONNECT CHANNEL                    IPL       309
        7642         0100 0000           STS      ENM    X                 ENTRY/EXIT                            IPL       310
        7644         3402                         STD    D2                SAVE FOR REISSUE                      IPL       311
        7645         0200 7623           STS2     RJM    FCN               ISSUE STATUS FUNCTION                 IPL       312
        7647         0472                         ZJN    STSX              IF NOT ACCEPTED, RETURN               IPL       313
        7650         0200 7572                    RJM    AWD               ACITVATE AND WAIT FOR DATA            IPL       314
        7652         0563                         NJN    STS1              IF STATUS ON CHANNEL                  IPL       315
        7653         3002                         LDD    D2                GET FUNCTION FOR REISSUE              IPL       316
        7654         0370                         UJN    STS2              REISSUE FUNCTION                      IPL       317
        7655         0000                STSA     CON    0                                                       IPL       318
  
  
  
  
                                        **        CLS - CHECK FOR LAST SECTOR.                                   IPL       320
                                        *                                                                        IPL       321
                                        *         CLS CHECKS TO SEE IF THE LAST INPUT READ THE LAST SECTOR FROM  IPL       322
                                        *         DISK BY CHECKING THE LINKAGE BYTES. CLS ALSO MOVES THE DATA    IPL       323
                                        *         BLOCK OVER THE LINKAGE BYTES.                                  IPL       324
                                        *                                                                        IPL       325
                                        *         ENTRY  (FAIA) = INPUT FWA.                                     IPL       326
                                        *                                                                        IPL       327
                                        *         EXIT   (A) NEGATIVE, IF LAST SECTOR.                           IPL       328
                                        *                (FAIA) = INPUT FWA + 500B.                              IPL       329
                                        *                (/CPA/CIDP+2) = NEW SECTOR NUMBER.                      IPL       330
1       IPL         CTI INITIAL PROGRAM LOADER - A02                  COMPASS 3.7-871.     23/08/13. 15.42.04.      PAGE    11
        SUBROUTINES.                                                  CLS 
  
                                        *                                                                        IPL       331
                                        *         USES   D0, D2, D3,D4.                                          IPL       332
        7656         0100 0000           CLS      ENM    X                 ENTRY/EXIT                            IPL       333
        7660         1412                         LDN    /844/DGST                                               IPL       334
                                   0              ERRNZ  /844/DGST-/885/DGST                                     IPL       335
        7661         0200 7643                    RJM    STS               GET GENERAL STATUS                    IPL       336
        7663         2000 0500                    LDC    /CPA/PRU                                                IPL       337
        7665         3402                         STD    D2                                                      IPL       338
        7666         5500 7615                    RAM    FAIA              BUMP READ ADDRESS                     IPL       339
        7670         3202                         SBD    D2                                                      IPL       340
        7671         3404                         STD    D4                SAVE OLD FWA                          IPL       341
        7672         1602                         ADN    2                                                       IPL       342
        7673         5400 7706                    STM    CLSA              FWA OF DATA BLOCK                     IPL       343
        7675         5004 0001                    LDM    1,D4                                                    IPL       344
        7677         5500 7732                    RAM    /CPA/CIDP+2       BUMP DISK ADDRESS                     IPL       345
        7701         4004                         LDI    D4                                                      IPL       346
        7702         3400                         STD    D0                SAVE SECTOR LENGTH                    IPL       347
        7703         1400                         LDN    0                                                       IPL       348
        7704         3403                         STD    D3                                                      IPL       349
        7705         5003 0000           CLS1     LDM    **,D3                                                   IPL       350
                                7706     CLSA     EQU    *-1                                                     IPL       351
        7707         4404                         STI    D4                                                      IPL       352
        7710         3604                         AOD    D4                                                      IPL       353
        7711         3603                         AOD    D3                                                      IPL       354
        7712         3202                         SBD    D2                                                      IPL       355
        7713         0571                         NJN    CLS1              IF MOVE NOT COMPLETE                  IPL       356
        7714         3000                         LDD    D0                                                      IPL       357
        7715         3202                         SBD    D2                                                      IPL       358
        7716         0100 7656                    LJM    CLSX              RETURN                                IPL       359
  
  
  
  
                                  10              ERRNG  /CPA/IPLLWA-*+1     IPL OVERFLOWED                      IPL       361
1       IPL         CTI INITIAL PROGRAM LOADER - A02                  COMPASS 3.7-871.     23/08/13. 15.42.04.      PAGE    12
        COMMON POINTER AREA.
  
        7660                                      ORG    CPAFWA                                                  IPL       363
  
  
  
  
                                        ***       CPA - COMMON POINTER AREA.                                     IPL       365
                                        *                                                                        IPL       366
                                        *         THE COMMON POINTER AREA (CPA) DEFINES THE POINTER AREA USAGE   IPL       367
                                        *         FOR BOTH DEADSTART FROM DISK AND TAPE. IN GENERAL, THE         IPL       368
                                        *         POINTER WORD IS ONE CM WORD LONG. IF DEADSTART IS FROM TAPE,   IPL       369
                                        *         THE WORD CONTAINS A THREE CHARACTER, LEFT JUSTIFIED AND        IPL       370
                                        *         ZERO FILLED NAME WHICH IS SEARCHED FOR BY READING RECORDS      IPL       371
                                        *         INTO THE PP AND CHECKED FOR !Y COMPARING ON THE NAME FIELD IN  IPL       372
                                        *         THE PREFIX TABLE. IF THE DEADSTART IS FROM DISK, THE FIRST     IPL       373
                                        *         THREE 12-BIT BYTES OF THE WORD CONTAI THE CYLINDER, TRACK      IPL       374
                                        *         AND SECTOR NO-S. RESPECTIVILY.                                 IPL       375
  
  
  
  
                                        **        DRIVER POINTER.                                                IPL       377
                                        *                                                                        IPL       378
                                        *         THIS WORD CONTAINS THE DISK ADDRESS OF THE                     IPL       379
                                        *         APPROPRIATE DISK DRIVER WHEN THE DEADSTART                     IPL       380
                                        *         HAS OCCURRED FROM DISK.                                        IPL       381
        7660                      50     CIDP     BSS    /CPA/CIDP-*                                             IPL       382
        7730         0304                         VFD    18/3LCD4,42/0                                           IPL       383
        7731         3700 
        7732         0000 
        7733         0000 
        7734         0000 
  
  
  
  
                                        **        CTI CYLINDER POINTER.                                          IPL       385
                                        *                                                                        IPL       386
                                        *         THIS WORD CONTAINS THE DISK ADDRESS OF THE                     IPL       387
                                        *         FIRST CTI MODULE (IPL) IN THE CTI CYLINDER.                    IPL       388
        7735                             CIRP     BSS    /CPA/CIRP-*                                             IPL       389
        7735         1120                         VFD    18/3LIPL,42/0                                           IPL       390
        7736         1400 
        7737         0000 
        7740         0000 
        7741         0000 
1       IPL         CTI INITIAL PROGRAM LOADER - A02                  COMPASS 3.7-871.     23/08/13. 15.42.04.      PAGE    13
        COMMON POINTER AREA.                                          CMS 
  
                                        **        CMSE POINTER ADDRESS.                                          IPL       392
                                        *         THE CMSE POINTER ADDRESS HAS THE ADDRESS OF THE CMSE SUPPLIED  IPL       393
                                        *         BOOTSTRAP LOADER.                                              IPL       394
        7742                             MSDP     BSS    /CPA/MSDP-*                                             IPL       395
        7742         0000                         VFD    60/0                                                    IPL       396
        7743         0000 
        7744         0000 
        7745         0000 
        7746         0000 
  
  
  
  
                                        **        DIAGNOSTIC SEQUENCER POINTER ADDRESS.                          IPL       398
                                        *                                                                        IPL       399
                                        *         THE DIAGNOSTIC SEQUENCER POINTER ADDRESS HAS THE ADDRESS OF    IPL       400
                                        *         THE BOOTSTRAP FOR THE DEADSTART DIAGNOSTIC SEQUENCER.          IPL       401
        7747                       5     DSDP     BSS    /CPA/DSDP-*                                             IPL       402
        7754         0000                         VFD    60/0                                                    IPL       403
        7755         0000 
        7756         0000 
        7757         0000 
        7760         0000 
  
  
  
  
                                        **        OPERATING SYSTEM POINTER ADDRESS.                              IPL       405
                                        *                                                                        IPL       406
                                        *         THE OPERATING SYSTEM POINTER HAS THE NAME OR THE ADDRESS OF    IPL       407
                                        *         THE OPERATING SYSTEM BOOTSTRAP ROUTINE.                        IPL       408
        7761                       5     OSDP     BSS    /CPA/OSDP-*                                             IPL       409
        7766         1723                         VFD    18/3LOSB,42/0                                           IPL       410
        7767         0200 
        7770         0000 
        7771         0000 
        7772         0000 
  
  
  
  
                                        **        SET UP DEADSTART TRANSFER ADDRESS.                             IPL       412
        7773                       5              BSS    10000B-*                                                IPL       413
       10000         7420                         CON    IPLFWA-1          FWA -1 OF EXECUTABLE CODE             IPL       414
       10001                                      END                                                            IPL       415
  
                             62100B CM  STORAGE USED             3071 STATEMENTS     1856 SYMBOLS      000340 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            2.243 SECONDS         308 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ACNC         7400                   3/44 D
        ADCC         2100                   3/39 D
        AJMC         6400                   3/42 D
        AWD          7572                   9/08 D   10/38
1       IPL         CTI INITIAL PROGRAM LOADER - A02                  COMPASS 3.7-871.     23/08/13. 15.42.04.      PAGE    14
        SYMBOLIC REFERENCE TABLE. 
  
        AWDX         7571                   9/08 L    9/11      9/15
        AWD1         7575                   9/11 L    9/13
        B.2XSP        124                   4/06 D    6/27
        CHSCR          16                   4/03 D    6/26      6/28      6/29
        CH01$        7540                   7/54 D
        CH02$        7542                   7/54      7/54      7/56 D
        CH03$        7544                   7/56      7/56      7/57 D
        CH04$        7546                   7/57      7/57      8/01 D
        CH05$        7574                   8/01      8/01      9/10 D
        CH06$        7575                   9/10      9/10      9/11 D
        CH07$        7601                   9/11      9/11      9/14 D
        CH08$        7612                   9/14      9/14      9/44 D
        CH09$        7614                   9/44      9/44      9/46 D
        CH10$        7626                   9/46      9/46     10/11 D
        CH11$        7630                  10/11     10/11     10/13 D
        CH12$        7634                  10/13     10/13     10/16 D
        CH13$        7636                  10/16     10/16     10/31 D
        CH14$        7641                  10/31     10/31     10/33 D
        CH15$        7641                  10/33     10/33     13/44 D
        CH1$           17                   7/54 D    7/56 D    8/01 D    9/11 D    9/44 D   10/11 D   10/16 D   10/33 D
                                            7/54      7/57      9/10      9/14      9/46     10/13     10/31
                                            7/54 D    7/57 D    9/10 D    9/14 D    9/46 D   10/13 D   10/31 D
                                            7/56      8/01      9/11      9/44     10/11     10/16     10/33
        CIDP         7660                  12/26 L
        CIRP         7735                  12/40 L
        CLS          7657                   8/11     11/03 D
        CLSA         7706                  11/13 S   11/21 D
        CLSX         7656                  11/03 L   11/29
        CLS1         7705                  11/20 L   11/26
        CPAFWA       7660                   5/13 D   12/01
        DCNC         7500                   3/45 D
        DSDP         7747                  13/18 L
        D0              0                   3/06 D   11/17 S   11/27
        D1              1                   3/07 D
        D10            10                   3/17 D    6/32
        D11            11                   3/18 D
        D12            12                   3/19 D
        D13            13                   3/20 D
        D14            14                   3/21 D
        D15            15                   3/22 D
        D16            16                   3/23 D
        D17            17                   3/24 D
        D2              2                   3/08 D    6/36 S    6/42 I    9/41     10/40     11/10     11/28
                                            6/31 S    6/37      9/40 S   10/35 S   11/08 S   11/25
        D20            20                   3/25 D
        D3              3                   3/09 D    6/34 S    6/40     11/19 S   11/20     11/24 S
        D4              4                   3/10 D    6/41      7/06 S    7/26 S   11/11 S   11/16     11/23 S
                                            6/39 S    6/43      7/20 S    7/31 S   11/14     11/22 I
        D5              5                   3/11 D    6/47
        D6              6                   3/12 D    6/55      7/01      7/38
        D7              7                   3/15 D    6/50
        FAI          7604                   7/10      7/28      8/10      9/39 D
        FAIA         7615                   9/47 D   11/09 S
        FAIX         7603                   9/39 L    9/50
        FAI1         7606                   9/41 L    9/43
        FAI2         7614                   9/46 L
        FCN          7623                   7/43      9/42     10/08 D   10/36
1       IPL         CTI INITIAL PROGRAM LOADER - A02                  COMPASS 3.7-871.     23/08/13. 15.42.04.      PAGE    15
        SYMBOLIC REFERENCE TABLE. 
  
        FCNA         7625                   6/57 S   10/10 D
        FCNX         7622                  10/08 L   10/13     10/17
        FCN1         7630                  10/13 L   10/15
        FWDL$           0                   4/14 D
        F.CLR        2000                   4/04 D
        F.SET        4000                   4/05 D    6/27
        IPL          7421                   6/26 L
        IPLA         7500                   7/05 S    7/14 L
        IPLB         7570                   7/37 S    8/13      8/16 L
        IPLFWA       7421                   1/10      5/14 D    6/01     13/44
        IPLZ         7540                   6/30      7/52 L
        IPL01        7427                   6/26      6/30 L
        IPL02        7436                   6/36 L    6/44
        IPL03        7453                   6/48      6/50 L
        IPL04        7472                   7/04      7/08 L    7/21
        IPL05        7473                   7/10 L    7/19
        IPL06        7505                   7/14      7/17      7/20 L
        IPL07        7510                   6/52      7/25 L
        IPL08        7512                   7/27 L    7/30      7/32
        IPL09        7522                   7/22      7/34 L    8/15
        IPL10        7524                   6/49      7/36 L
        IPL11        7534                   7/41 L    7/44      8/07      8/12
        LCNC         1500                   3/36 D
        LDCC         2000                   3/38 D
        LDDC         3000                   3/41 D
        LMCC         2300                   3/40 D
        MSDP         7742                  13/04 L
        OAMC         7300                   3/43 D
        OSDP         7761                  13/32 L
        PSNC            0                   3/32 D
        SBNC         1700                   3/37 D
        SHNC         1000                   3/35 D
        STS          7643                   7/13      8/04     10/34 D   11/06
        STSA         7655                  10/32 S   10/42 L
        STSX         7642                  10/34 L   10/37
        STS1         7636                  10/31 L   10/39
        STS2         7645                  10/36 L   10/41
        TCHS         7641                   7/54 D    7/56 D    8/01 D    9/11 D    9/44 D   10/11 D   10/16 D   10/33 D
                                            7/54 D    7/57 D    9/10 D    9/14 D    9/46 D   10/13 D   10/31 D   13/44
        UJNC          300                   3/33 D
        ZJNC          400                   3/34 D
  
  
  
  
                                                  SYMBOL QUALIFIER =  CPA 
  
  
        CIDP         7730                   7/36      7/40 S    7/56      8/14 S   11/15 S   12/26
        CIRP         7735                  12/40
        DSDP         7754                  13/18
        IPLLWA       7727                  11/34
        MSDP         7742                  13/04
        OSDP         7766                  13/32
        PRU           500                  11/07
1       IPL         CTI INITIAL PROGRAM LOADER - A02                  COMPASS 3.7-871.     23/08/13. 15.42.04.      PAGE    16
        SYMBOLIC REFERENCE TABLE.                                     CTI 
  
                                                  SYMBOL QUALIFIER =  CTI 
  
  
        CPAFWA       7660                   5/13
        D3TP            3                   7/25
        D66X            2                   7/07
        D67X            1                   7/07
        IPLB         6000                   9/46 S
        IPLFWA       7421                   5/14
        IPLTRAN      6120                   7/34
  
  
  
  
                                                  SYMBOL QUALIFIER =  844 
  
  
        DGST           12                   8/02      8/03     11/04     11/05
        DRED            4                   8/08      8/09
        D2SK            2                   7/41      7/42
        MP.GSBS         2                   8/05      8/06
        MP.GSDR        10                   8/05
  
  
  
  
                                                  SYMBOL QUALIFIER =  885 
  
  
        DGST           12                   8/03     11/05
        DRED            4                   8/09
        D2SK            2                   7/42
        MP.GSBS         2                   8/06
  
  
  
  
                                                  SYMBOL QUALIFIER =  MTS 
  
  
        MGST           12                   7/11      7/12
        MRFW           40                   7/08      7/09
        MRRF           41                   7/18
        SL.GSNO        11                   7/16
  
  
  
  
                                                  SYMBOL QUALIFIER =  ATS 
  
  
        AGST           12                   7/12
        ARFW           40                   7/09
  
  
  
  
1       IPL         CTI INITIAL PROGRAM LOADER - A02                  COMPASS 3.7-871.     23/08/13. 15.42.04.      PAGE    17
        SYMBOLIC REFERENCE TABLE.                                     3TP 
  
                                                  SYMBOL QUALIFIER =  3TP 
  
  
        CIEI         1400                   7/27
        CMDA            0                   7/27
        MBLN            3                   7/29
 CD7
1       CD7         CTI 67X (ATS) TAPE DRIVER - A02                   COMPASS 3.7-871.     23/08/13. 15.42.07.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
  
                       6120      716              IDENT  CD7,IPLTRAN
                       7036     (136)             END 
  
  
  
  
                                                  IDENT  CD7,IPLTRAN                                             CD7         2
                                                  PERIPH                                                         CD7         3
                                         VERID    MICRO  1,,*A02*                                                *A02*       1
                                         VERS     MICRO  1,,*"VERID"*                                       VERS VERS        3
                                                  COMMENT CTI 67X (ATS) TAPE DRIVER - "VERS"                     DIMA317A    3
                                                  COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1979               DIMA317A    4
  
  
                                        *         ALL RIGHTS RESERVED                                            CDCCRN      3
                                        *                                                                        CDCCRN      4
                                        *         CONTAINED HEREIN ARE SOFTWARE PRODUCTS COPYRIGHTED             CDCCRN      5
                                        *         BY CONTROL DATA CORPORATION.  REPRODUCTION WITHOUT             CDCCRN      6
                                        *         PERMISSION IS PROHIBITED.  THE COPYRIGHT NOTICE                CDCCRN      7
                                        *         MUST APPEAR ON ALL AUTHORIZED COMPLETE OR                      CDCCRN      8
                                        *         PARTIAL COPIES.                                                CDCCRN      9
                                        *                                                                        CDCCRN     10
1       CD7         CTI 67X (ATS) TAPE DRIVER - A02                   COMPASS 3.7-871.     23/08/13. 15.42.07.      PAGE     2
                                                                      CD7 
  
                                        *****     CD7 - 67X (ATS) TAPE DRIVER -CTI-.                             CD7         8
                                        *                                                                        CD7         9
                                        *         R. A. MATTHEWS.          12/23/77.                             CD7        10
                                        *         R. A. TURGEON             6/8/78.                              CD7        11
                                        *                                                                        CD7        12
                                        *         CD7 PROVIDES A BASIC TAPE DRIVER FOR 67X (ATS) TAPE DRIVES     CD7        13
                                        *         WHEN USED AS THE DEADSTART DEVICE WITHIN THE COMMON TEST/      CD7        14
                                        *         INITIALIZATION (CTI) PACKAGE. CD7 MOVES ITSELF OVER THE IPL    CD7        15
                                        *         PREFIX TABLE AND PROGRAM BODY TO ALLOW SUBSEQUENT READS TO     CD7        16
                                        *         USE THE IPL BUFFER AREA.                                       CD7        17
  
  
  
  
                                        ***       CD7 - 67X (ATS) TAPE DRIVER -CTI-.                             CD7        19
                                        *                                                                        CD7        20
                                        *         CD7 IS THE FIRST RECORD FOLLOWING IPL ON A DEADSTART TAPE      CD7        21
                                        *         AND IS NOT PRESENT IN THE DISK DEADSTART SEQUENCE. CD7,        CD7        22
                                        *         THROUGH THE COMMON DRIVER INTERFACE, PROVIDES A DEVICE         CD7        23
                                        *         READER THAT WILL LOAD GIVEN ROUTINES AND HAND OFF CONTROL      CD7        24
                                        *         IF SO SPECIFIED. THE DEVICE READER WILL PROCESS RECORDS UP     CD7        25
                                        *         TO 511 (DECIMAL) CM WORDS LONG.                                CD7        26
1       CD7         CTI 67X (ATS) TAPE DRIVER - A02                   COMPASS 3.7-871.     23/08/13. 15.42.07.      PAGE     3
        DEFINITIONS.
  
                                        **        DEADSTART PANEL WORDS.                                         CD7        28
                                        *                                                                        CD7        29
                                        *         WORDS 5 - 20B OF THE DEADSTART PANEL MUST REMAIN INTACT        CD7        30
                                        *         DURING CTI EXECUTION. WORDS 0 - 4 MAY BE USED AS SCRATCH       CD7        31
                                        *         DIRECT CELLS.                                                  CD7        32
                                                                                                                 CD7        33
                                                                                                                 CD7        34
                                   0     D0       EQU    0                 SCRATCH                               CD7        35
                                   1     D1       EQU    1                 SCRATCH                               CD7        36
                                   2     D2       EQU    2                 SCRATCH                               CD7        37
                                   3     D3       EQU    3                 SCRATCH                               CD7        38
                                   4     D4       EQU    4                 SCRATCH                               CD7        39
                                   5     D5       EQU    5                 ZERO IF TAPE DEADSTART                CD7        40
                                   6     D6       EQU    6                 FUNCTION WORD                         CD7        41
                                        *         (D6) = WARMSTART FUNCTION, IF MTS/ATS.                         CD7        42
                                        *              = DEADSTART FUNCTION, IF 844 DISK.                        CD7        43
                                   7     D7       EQU    7                 RESERVED                              CD7        44
                                        *         (D7) = 1400B IF 3000 TYPE TAPE.                                CD7        45
                                  10     D10      EQU    10B               RESERVED                              CD7        46
                                  11     D11      EQU    11B               RESERVED                              CD7        47
                                  12     D12      EQU    12B               MSL PARAMETERS                        CD7        48
                                  13     D13      EQU    13B               OS PARAMETERS                         CD7        49
                                  14     D14      EQU    14B               OS PARAMETERS                         CD7        50
                                  15     D15      EQU    15B               UNUSED                                CD7        51
                                  16     D16      EQU    16B               C80/A170 RESERVED                     CD7        52
                                  17     D17      EQU    17B               RESERVED                              CD7        53
                                  20     D20      EQU    20B               RESERVED                              CD7        54
  
  
  
  
                                        **        INSTRUCTION EQUATES.                                           CD7        56
                                        *                                                                        CD7        57
                                                                                                                 CD7        58
                                                                                                                 CD7        59
                                   0     PSNC     EQU    0000B             PASS                                  CD7        60
                                 300     UJNC     EQU    0300B             UNCONDITIONAL JUMP                    CD7        61
                                 400     ZJNC     EQU    0400B             ZERO JUMP                             CD7        62
                                1000     SHNC     EQU    1000B             SHIFT                                 CD7        63
                                1500     LCNC     EQU    1500B             LOAD COMPLEMENT                       CD7        64
                                1700     SBNC     EQU    1700B             SUBTRACT NO-ADDRESS                   CD7        65
                                2000     LDCC     EQU    2000B             LOAD CONSTANT                         CD7        66
                                2100     ADCC     EQU    2100B             ADD CONSTANT                          CD7        67
                                2300     LMCC     EQU    2300B             LOGICAL MINUS CONSTANT                CD7        68
                                3000     LDDC     EQU    3000B             LOAD DIRECT                           CD7        69
                                6400     AJMC     EQU    6400B             ACTIVE JUMP                           CD7        70
                                7300     OAMC     EQU    7300B             OUTPUT MEMORY                         CD7        71
                                7400     ACNC     EQU    7400B             ACTIVATE CHANNEL                      CD7        72
                                7500     DCNC     EQU    7500B             DISCONNECT CHANNEL                    CD7        73
1       CD7         CTI 67X (ATS) TAPE DRIVER - A02                   COMPASS 3.7-871.     23/08/13. 15.42.07.      PAGE     4
        DEFINITIONS.                                                  MSC 
  
                                        **        MISCELLANEOUS DEFINITIONS.                                     CD7        75
                                        *                                                                        CD7        76
                                        *                                                                        CD7        77
                                                                                                                 CD7        78
                                                                                                                 CD7        79
                                   5     NAME     EQU    5                 OFFSET OF NAME IN PRFX TABLE          CD7        80
                              210560     TIMEOUT  EQU    70000             TIMEOUT COUNT                         CD7        81
                                  12     RETRY    EQU    10D               NO. OF RETRIES IN ERROR PROCESSING    CD7        82
                                   0     FWDL$    EQU    0                 DEFINE FORWARD LINK FOR CHANNEL INST. CD7        83
                                   0     QUAL$    EQU    0                 DON-T QUALIFY COMMON DECKS            CD7        84
                                   0     DEBUG    EQU    0                                                       CD7        85
  
  
  
  
                                        **        DISPLAY CONTROLLER DEFINITIONS.                                CD7        87
                                        *                                                                        CD7        88
                                        *                                                                        CD7        89
                                                                                                                 CD7        90
                                                                                                                 CD7        91
                                  10     CHD      EQU    10B               DISPLAY CHANNEL                       CD7        92
                                                                                                                 CD7        93
                                        *         DISPLAY FUNCTION CODES.                                        CD7        94
                                                                                                                 CD7        95
                                7000     F.SEL    EQU    7000B             SELECT CONSOLE DISPLAY                CD7        96
                                                                                                                 CD7        97
                                   0     F.SLS    EQU    0000B             SELECT CONSOLE LEFT SCREEN            CD7        98
                                 100     F.SRS    EQU    0100B             SELECT CONSOLE RIGHT SCREEN           CD7        99
                                 200     F.SBS    EQU    0200B             SELECT CONSOLE BOTH SCREEN            CD7       100
                                                                                                                 CD7       101
                                   0     F.CHR    EQU    0000B             SELECT DOT MODE                       CD7       102
                                  10     F.DOT    EQU    0010B             SELECT DOT MODE                       CD7       103
                                  20     F.KEY    EQU    0020B             SELECT KEYBOARD INPUT                 CD7       104
                                                                                                                 CD7       105
                                   0     F.CHS    EQU    0000B             SET CHARACTER SIZE SMALL              CD7       106
                                   1     F.CHM    EQU    0001B             SET CHARACTER SIZE MEDIUM             CD7       107
                                   2     F.CHL    EQU    0002B             SET CHARACTER SIZE LARGE              CD7       108
                                                                                                                 CD7       109
                                        *         COORDINATE DESIGNATION.                                        CD7       110
                                                                                                                 CD7       111
                                6000     XSET     EQU    6000B             SET X COORDINATE                      CD7       112
                                7000     YSET     EQU    7000B             SET Y COORDINATE                      CD7       113
1       CD7         CTI 67X (ATS) TAPE DRIVER - A02                   COMPASS 3.7-871.     23/08/13. 15.42.07.      PAGE     5
        DEFINITION COMMON DECKS.
  
                                        **        DEFINITION COMMON DECKS.                                       CD7       116
                                        *                                                                        CD7       117
                                        **        ALL SYMBOL AND MACRO DEFINITION COMMON DECKS ARE CALLED HERE.  CD7       118
                                                                                                                 CD7       119
                                                                                                                 CD7       120
           0                             CTI      CTEXT  COMPCTI - CTI COMMON MACROES.                           COMPCTI     2
           0                             ATS      CTEXT  COMSATS - ATS TAPE DEFINITIONS.                         COMSATS     2
           0                                      CTEXT  COMPCHL - REDEFINE I/O INSTRUCTIONS.                    COMPCHL     2
           0                             CPA      CTEXT  COMSCPA - CTI COMMON POINTER AREA DEFINITIONS.          COMSCPA     2
           0                             CTI      CTEXT  COMSCTI - CTI INTERNAL DEFINITIONS.                     COMSCTI     2
                                  36     NFMAX    EQU    CDNFMAX           NOFIND MAXIMUM                        CD7       126
1       CD7         CTI 67X (ATS) TAPE DRIVER - A02                   COMPASS 3.7-871.     23/08/13. 15.42.07.      PAGE     6
        MAIN ROUTINE. 
  
        6120                                      ORG    IPLTRAN                                                 CD7       128
  
  
  
  
                                        ***       INI - CD7 INITIALIZATION.                                      CD7       130
                                        *                                                                        CD7       131
                                        *         INI MOVES THE TAPE DRIVER INTO THE COMMON DRIVER AREA,         CD7       132
                                        *         INITIALIZES THE CHANNEL INSTRUCTIONS AND LOADS THE FIRST       CD7       133
                                        *         DISPLAY ROUTINE.                                               CD7       134
                                        *                                                                        CD7       135
                                        *         ENTRY  CPA AREA INTACT.                                        CD7       136
                                        *                DEADSTART PANEL CELLS INTACT.                           CD7       137
                                        *                                                                        CD7       138
                                        *         USES   D1, D2, D3, D4.                                         CD7       139
                                                                                                                 CD7       140
                                                                                                                 CD7       141
        6120                             INI      BSS    0                 ENTRY POINT                           CD7       142
                                                                                                                 CD7       143
                                        *         MOVE THE COMMON DRIVER FOR TAPE, *CTD*, INTO THE COMMON        CD7       144
                                        *         DRIVER AREA.                                                   CD7       145
                                                                                                                 CD7       146
        6120         2000 0576                    LDC    TCTDL                                                   CD7       147
        6122         3404                         STD    D4                LENGTH OF MOVE BLOCK                  CD7       148
        6123         5004 6237           INI1     LDM    TCTD-1,D4                                               CD7       149
        6125         5404 6777                    STM    CDEP-1,D4         MOVE DRIVER CODE                      CD7       150
        6127         3704                         SOD    D4                                                      CD7       151
        6130         0572                         NJN    INI1              IF MORE DRIVER CODE TO MOVE           CD7       152
        6131         3006                         LDD    D6                                                      CD7       153
        6132         1217                         LPN    17B                                                     CD7       154
        6133         5500 7042                    RAM    CTD1        PUT UNIT NO. IN CONNECT CODE                CD7       155
        6135         3006                         LDD    D6                                                      CD7       156
        6136         2200 7000                    LPC    7000B                                                   CD7       157
        6140         5400 7234                    STM    FCNA              EQUIPMENT NO. * 1000B                 CD7       158
                                                                                                                 CD7       159
        6142         3006                         LDD    D6                                                      CD7       160
        6143         1217                         LPN    17B               ISOLATE CHANNEL NO.                   CD7       161
        6144         5500 7370                    RAM    FMUD              FIX FORMAT UNIT DATA                  CD7       162
        6146         1217                         LPN    17B               ISOLATE CHANNEL NO.                   CD7       163
        6147         5500 7337                    RAM    FMUN              FIX 9-TRK FMT UNIT DATA               CD7       164
                                                                                                                 CD7       165
                                        *         PICK UP CHANNEL NUMBER AND STUFF CHANNELS INTO CODE USING      CD7       166
                                        *         THE CHANNEL INSTRUCTION LINK.                                  CD7       167
                                                                                                                 CD7       168
        6151         2000 7147                    LDC    AWDZ              FIRST CHANNEL INSTRUCTION             CD7       169
        6153         3402                         STD    D2                                                      CD7       170
        6154         3010                         LDD    D10               GET CHANNEL NO. FROM D/S PANEL        CD7       171
        6155         1237                         LPN    37B                                                     CD7       172
        6156         3403                         STD    D3                                                      CD7       173
        6157         1400                         LDN    0                                                       CD7       174
        6160         3502                INI2     RAD    D2                CHANNEL INST. POINTER + BIAS          CD7       175
        6161         4002                         LDI    D2                GET INSTRUCTION                       CD7       176
        6162         1237                         LPN    37B                                                     CD7       177
        6163         3404                         STD    D4                SAVE FOR NEXT INSTRUCTION             CD7       178
        6164         3003                         LDD    D3                GET CHANNEL NO.                       CD7       179
        6165         3204                         SBD    D4                SUBTRACT LINK FROM CHANNEL NO.        CD7       180
        6166         4502                         RAI    D2                ADD CHANNEL NO. - LINK TO OLD INST.   CD7       181
1       CD7         CTI 67X (ATS) TAPE DRIVER - A02                   COMPASS 3.7-871.     23/08/13. 15.42.07.      PAGE     7
        MAIN ROUTINE.                                                 CD7 
  
        6167         3004                         LDD    D4                CHECK FOR ZERO LINK (LAST INST.)      CD7       182
        6170         0567                         NJN    INI2              CONTINUE PROCESSING INSTRUCTIONS      CD7       183
  
  
  
  
                                        *         CODE TO CREATE CTI INTERNAL STATE                              CD7       185
                                                                                                                 CD7       186
        6171         7553                         DCN.   13B+40B           DISCONNECT 13B                        CD7       187
        6172         7573                         DCN.   33B+40B           DISCONNECT 33B                        CD7       188
                                                                                                                 CD7       189
        6173         6512 6221                    IJM.   INI7,12B          IF CHAN 12B IS D.S CHANNEL            CD7       190
        6175         1400                         LDN    0                 OUTPUT 0000 TO CH 12B                 CD7       191
        6176         7212                         OAN.   12B                                                     CD7       192
        6177         5600 0000                    AOM    D0                WAIT A WHILE                          CD7       193
        6201         5700 0000                    SOM    D0                                                      CD7       194
        6203         6612 6221                    FJM.   INI7,12B          IF FULL (NO PP ON CH 12B)             CD7       195
                                                                                                                 CD7       196
        6205         3003                         LDD    D3                ACTIVATE DEADSTART CHANNEL            CD7       197
        6206         5500 6210                    RAM    INIA                                                    CD7       198
        6210         7440                INIA     ACN.   40B                                                     CD7       199
                                                                                                                 CD7       200
        6211         3003                         LDD    D3                MOVE PP BACK TO D.S. CHAN             CD7       201
        6212         5500 6225                    RAM    INIC                                                    CD7       202
        6214         1403                         LDN    INIL                                                    CD7       203
        6215         7312 6224                    OAM.   INIB,12B                                                CD7       204
        6217         6612 6217                    FJM.   *,12B             WAIT FOR EMPTY                        CD7       205
                                                                                                                 CD7       206
        6221         7552                INI7     DCN.   12B+40B           DISCONNECT 12B                        CD7       207
        6222         7572                         DCN.   32B+40B           DISCONNECT 32B                        CD7       208
        6223         0304                         UJN    INI9                                                    CD7       209
                                                                                                                 CD7       210
        6224         1400                INIB     LDN    0                                                       CD7       211
        6225         7100 0000           INIC     IAM.   0,**                                                    CD7       212
                                   3     INIL     EQU    *-INIB                                                  CD7       213
                                                                                                                 CD7       214
                                                                                                                 CD7       215
                                        *         CALL THE COMMON DRIVER TO LOAD IOQ                             CD7       216
                                        *          AND GIVE CONTROL TO IOQ.                                      CD7       217
                                                                                                                 CD7       218
        6227         2000 6233           INI9     LDC    INIR               A = ADDRESS OF PARAMS                CD7       219
        6231         0100 7000                    LJM    CDEP               GOTO COMMON DRIVER                   CD7       220
                                                                                                                 CD7       221
                                        *         PARAMETER BLOCK FOR COMMON DRIVER TO LOAD IOQ                  CD7       222
                                                                                                                 CD7       223
        6233         6000                INIR     CON    IOQB               LOAD ADDRESS                         CD7       224
        6234         6000                         CON    IOQTRAN               TRANSFER ADDRESS                  CD7       225
        6235         0000                         CON    0                  NO REWIND FIRST                      CD7       226
        6236         1117                         VFD    18/3LIOQ,6/0       NAME CHECK FIELD                     CD7       227
        6237         2100 
1       CD7         CTI 67X (ATS) TAPE DRIVER - A02                   COMPASS 3.7-871.     23/08/13. 15.42.07.      PAGE     8
        CTD - COMMON TAPE DRIVER. 
  
                                        ***       CTD - COMMON TAPE DRIVER.                                      CD7       229
                                        *                                                                        CD7       230
                                                                                                                 CD7       231
                                                                                                                 CD7       232
                                6240     TCTD     EQU    *                 FWA OF DRIVER AREA                    CD7       233
                                                                                                                 CD7       234
      L 7000                                      LOC    CDEP              BEGINNING OF COMMON DRIVER AREA       CD7       235
                                                                                                                 CD7       236
                                7000     CTD      EQU    *                  ENTRY POINT                          CD7       237
      L 7000         0302                         UJN    ENDCONS                                                 CD7       238
      L 7001         0001                         CON    D67X                                                    CD7       239
                                7002     ENDCONS  EQU    *                                                       CD7       240
      L 7002         3401                         STD    D1                 SAVE ADDRESS OF PARAMS.              CD7       241
                                                                                                                 CD7       242
      L 7003         0200 7373                    RJM    MDC                SEIZE D.S. CHANNEL.                  CD7       243
                                                                                                                 CD7       244
      L 7005         4001                         LDI    D1                INPUT BUFFER FWA                      DIMA295C    1
      L 7006         3402                         STD    D2                                                      CD7       246
      L 7007         5400 7166                    STM    PREB               PRFX READ                            CD7       247
      L 7011         5400 7214                    STM    REDB               FULL READ                            CD7       248
      L 7013         5400 7217                    STM    REDC                                                    CD7       249
      L 7015         1607                         ADN    NAME+2                                                  CD7       250
      L 7016         5400 7171                    STM    PREC               PRE BYPASS-READ                      CD7       251
      L 7020         5001 0001                    LDM    CDTA,D1            TRANSFER ADDRESS                     CD7       252
      L 7022         5400 7142                    STM    CTDZ                                                    CD7       253
      L 7024         5001 0003                    LDM    CDNC,D1            NAME CHECK FIELD                     CD7       254
      L 7026         5400 7562                    STM    NFNM              SAVE FOR NOFIND MSG                   CD7       256
      L 7030         5001 0004                    LDM    CDNC+1,D1                                               CD7       257
      L 7032         5400 7563                    STM    NFNM+1                                                  CD7       259
      L 7034         1412                         LDN    RETRY                                                   CD7       260
      L 7035         5400 7512                    STM    ARTC               INIT ERROR RETRY COUNTER             CD7       261
      L 7037         1436                         LDN    NFMAX                                                   CD7       262
      L 7040         5400 7513                    STM    NFCT               NO FIND COUNT LIMIT                  CD7       263
      L 7042         1420                CTD1     LDN    20B         THIS INST MODIFIED FOR CONNECT CODE         CD7       264
      L 7043         0200 7226                    RJM    FCN         CONNECT                                     CD7       265
      L 7045         0200 7331                    RJM    FMU                FORMAT UNIT                          CD7       266
      L 7047         5001 0003                    LDM    CDNC,D1                                                 CD7       267
      L 7051         2300 7777                    LMC    7777B                                                   CD7       268
      L 7053         0503                         NJN    *+3                                                     CD7       269
      L 7054         0100 7141                    LJM    JUMP              IF SPECIAL REQUEST                    CD7       270
      L 7056         5001 0002                    LDM    CDRW,D1                                                 CD7       271
      L 7060         0404                         ZJN    CTD2               IF NO REWIND FIRST                   CD7       272
      L 7061         1410                         LDN    AREW                                                    CD7       273
      L 7062         0200 7450                    RJM    RBT                REWIND TAPE                          CD7       274
                                                                                                                 CD7       275
      L 7064         5001 0003           CTD2     LDM    CDNC,D1                                                 CD7       276
      L 7066         0510                         NJN    CTD3               IF READ NAMED RECORD                 CD7       277
      L 7067         3002                         LDD    D2                 ELSE READ NEXT RECORD                CD7       278
      L 7070         2100 0120                    ADC    LE77*BPW+LE6P*BPW                                       CD7       279
      L 7072         5400 7217                    STM    REDC                                                    CD7       280
      L 7074         0100 7135                    LJM    CTD7                                                    CD7       281
                                                                                                                 CD7       282
      L 7076         0200 7157           CTD3     RJM    PRE                READ PRFX TO GET NAME                CD7       283
                                                                                                                 CD7       284
                                        *         TEST IF NAMES MATCH                                            CD7       285
                                                                                                                 CD7       286
      L 7100         5002 0005                    LDM    NAME,D2                                                 CD7       287
1       CD7         CTI 67X (ATS) TAPE DRIVER - A02                   COMPASS 3.7-871.     23/08/13. 15.42.07.      PAGE     9
        CTD - COMMON TAPE DRIVER. 
  
      L 7102         5200 7562                    SBM    NFNM                                                    DIMA295C    2
      L 7104         0506                         NJN    CTD5                                                    CD7       290
      L 7105         5002 0006                    LDM    NAME+1,D2                                               CD7       291
      L 7107         5200 7563                    SBM    NFNM+1                                                  DIMA295C    3
      L 7111         0420                         ZJN    CTD6               IF NAMES MATCH                       CD7       294
                                                                                                                 CD7       295
                                        *         HERE IF NO MATCH. CHECK IF ZZZ.                                CD7       296
                                                                                                                 CD7       297
      L 7112         5700 7513           CTD5     SOM    NFCT               CHECK NOFIND COUNT                   CD7       298
      L 7114         0413                         ZJN    CTD55              IF RUNAWAY TAPE                      CD7       299
      L 7115         5002 0005                    LDM    NAME,D2                                                 CD7       300
      L 7117         2300 3232                    LMC    2RZZ                                                    CD7       301
      L 7121         0554                         NJN    CTD3                                                    CD7       302
      L 7122         5002 0006                    LDM    NAME+1,D2                                               CD7       303
      L 7124         2300 3200                    LMC    1RZ*100B                                                CD7       304
      L 7126         0547                         NJN    CTD3                                                    CD7       305
      L 7127         0100 7535           CTD55    LJM    ERNF               IF ZZZ REACHED                       CD7       306
                                                                                                                 CD7       307
                                        *         HERE TO BACKSPACE TAPE ONE RECORD.                             CD7       308
                                                                                                                 CD7       309
      L 7131         2000 0113           CTD6     LDC    ABCK                                                    CD7       310
      L 7133         0200 7450                    RJM    RBT                BACKSPACE TAPE                       CD7       311
                                                                                                                 CD7       312
                                        *         HERE TO READ DESIRED RECORD                                    CD7       313
                                                                                                                 CD7       314
      L 7135         0200 7204           CTD7     RJM    RED                FULL READ                            CD7       315
                                                                                                                 CD7       316
                                                                                                                 CD7       317
      L 7137         0200 7422                    RJM    RDC                RESTORE D.S. CHANNEL.                CD7       318
                                                                                                                 CD7       319
                                                                                                                 CD7       320
      L 7141         0100 0000           JUMP     LJM    **                 GO TO TRANSFER ADDRESS               CD7       321
                                7142     CTDZ     EQU    *-1                                                     CD7       322
1       CD7         CTI 67X (ATS) TAPE DRIVER - A02                   COMPASS 3.7-871.     23/08/13. 15.42.07.      PAGE    10
        SUBROUTINES                                                   AWD 
  
                                        **        AWD - ACTIVATE CHANNEL AND WAIT FOR DATA.                      CD7       325
                                        *                                                                        CD7       326
                                        *         AWD ACTIVATES THE FUNCTIONED CHANNEL AND TIMES OUT A FULL      CD7       327
                                        *         CONDITION.                                                     CD7       328
                                        *                                                                        CD7       329
                                        *         EXIT   (A) .NE. 0, DATA ON CHANNEL.                            CD7       330
                                        *                (A) = 0, NO DATA RECIEVED, CHANNEL DISCONNECTED.        CD7       331
                                                                                                                 CD7       332
                                                                                                                 CD7       333
      L 7143         0100 0000           AWD      ENM    X                 ENTRY/EXIT                            CD7       334
      L 7145         2021 0560                    LDC    TIMEOUT                                                 CD7       335
                                                                                                                 CD7       336
                                        ****                                                                     CD7       337
                                        *         THE FOLLOWING IS THE FIRST CHANNEL INSTRUCTION IN *CD7* AND    CD7       338
                                        *         IS USED IN DEFINING THE LINKED CHANNEL LIST.  IF THE FIRST     CD7       339
                                        *         CHANNEL INSTRUCTION IS MOVED, BE SURE TO ADJUST THE CHANNEL    CD7       340
                                        *         REPLACEMENT SECTION IN *INI*.                                  CD7       341
                                                                                                                 CD7       342
      L 7147                             AWDZ     BSS    0                 FIRST CHANNEL INSTRUCTION             CD7       343
                                                                                                                 CD7       344
      L 7147         7441                         ACN    40B               ACTIVATE CHANNEL                      CD7       345
                                                                                                                 CD7       346
                                        ****                                                                     CD7       347
                                                                                                                 CD7       348
      L 7150         6604 7143           AWD1     FJM    AWDX,0            IF FULL, RETURN                       CD7       349
      L 7152         1701                         SBN    1                                                       CD7       350
      L 7153         0574                         NJN    AWD1              IF TIME OUT NOT EXPIRED               CD7       351
      L 7154         7547                         DCN    40B               DISCONNECT                            CD7       352
      L 7155         0365                         UJN    AWDX              RETURN                                CD7       353
                                                                                                                 CD7       354
  
  
  
  
                                        **        PRE - READ ENOUGH TO GET THE NAME                              CD7       356
                                        *                                                                        CD7       357
                                        *         RETURN TO CALLER IF NO ERRORS                                  CD7       358
                                        *         ELSE GO TO ERROR PROCESSING                                    CD7       359
                                                                                                                 CD7       360
      L 7156         0100 0000           PRE      ENM    X                 ENTRY/EXIT                            CD7       361
      L 7160         1440                PRE3     LDN    ARFW              READ FORWARD                          CD7       362
      L 7161         0200 7226                    RJM    FCN               ISSUE FUNCTION                        CD7       363
      L 7163         7402                         ACN    0                                                       CD7       364
      L 7164         1407                         LDN    NAME+2            LENGTH TO INCLUDE NAME                CD7       365
      L 7165         7103 0000                    IAM    **,0              READ TABLES                           CD7       366
                                7166     PREB     EQU    *-1                                                     CD7       367
                                                                                                                 CD7       368
      L 7167         1477                PRE5     LDN    77B               BYPASS REST OF RECORD                 CD7       369
      L 7170         7103 0000                    IAM    **,0                                                    CD7       370
                                7171     PREC     EQU    *-1                                                     CD7       371
      L 7172         0474                         ZJN    PRE5                                                    CD7       372
      L 7173         7555                         DCN    40B                                                     CD7       373
      L 7174         0200 7461                    RJM    CHK               CHECK STATUS AFTER READ               CD7       374
      L 7176         0657                         PJN    PREX              IF NO ERRORS                          CD7       375
      L 7177         0360                         UJN    PRE3              IF OK TO RETRY                        CD7       376
1       CD7         CTI 67X (ATS) TAPE DRIVER - A02                   COMPASS 3.7-871.     23/08/13. 15.42.07.      PAGE    11
        SUBROUTINES                                                   RED 
  
                                        **        RED - READ FULL RECORD                                         CD7       378
                                        *                                                                        CD7       379
                                        *         RETURN TO CALLER IF NO ERRORS                                  CD7       380
                                        *         ELSE GO TO ERROR PROCESSING                                    CD7       381
                                                                                                                 CD7       382
      L 7200         0200 7504           RED1     RJM    ART               ASK TO RETRY                          CD7       383
      L 7202         0303                         UJN    RED3              TRY AGAIN                             CD7       384
                                                                                                                 CD7       385
      L 7203         0100 0000           RED      ENM    X                 ENTRY/EXIT                            CD7       386
      L 7205         1440                RED3     LDN    ARFW              READ FORWARD                          CD7       387
      L 7206         0200 7226                    RJM    FCN               ISSUE FUNCTION                        CD7       388
      L 7210         7403                         ACN    0                                                       CD7       389
      L 7211         2000 0120                    LDC    LE77*BPW+LE6P*BPW TABLES LENGTH                         CD7       390
      L 7213         7103 0000                    IAM    **,0              READ TABLES                           CD7       391
                                7214     REDB     EQU    *-1                                                     CD7       392
      L 7215         1400                         LDN    0                                                       CD7       393
      L 7216         7102 0000                    IAM    **,0              READ REST OF RECORD                   CD7       394
                                7217     REDC     EQU    *-1                                                     CD7       395
      L 7220         7555                         DCN    40B                                                     CD7       396
      L 7221         0200 7461                    RJM    CHK               CHECK STATUS AFTER READ               CD7       397
      L 7223         0657                         PJN    REDX              IF NO ERRORS                          CD7       398
      L 7224         0360                         UJN    RED3              OK TO RETRY                           CD7       399
  
  
  
  
                                        **        FCN - FUNCTION DEVICE.                                         CD7       401
                                        *                                                                        CD7       402
                                        *         ENTRY  (A) = FUNCTION CODE.                                    CD7       403
                                        *                (FCNA) = EQUIPMENT NO. * 1000B.                         CD7       404
                                        *                                                                        CD7       405
                                        *         RETURNS TO CALLER IF NO ERRORS                                 CD7       406
                                        *         ELSE GO TO ERROR PROCESSOR.                                    CD7       407
                                                                                                                 CD7       408
                                                                                                                 CD7       409
      L 7225         0100 0000           FCN      ENM    X                 ENTRY/EXIT                            CD7       410
      L 7227         5400 7232                    STM    FCNF              SAVE FUNCTION CODE                    CD7       411
      L 7231         2000 7231           FCN3     LDC    *                                                       DIMA295C    4
                                7232     FCNF     EQU    *-1                                                     DIMA295C    5
      L 7233         2100 0000                    ADC    0                 ADD IN EQUIPMENT NO.                  CD7       413
                                7234     FCNA     EQU    *-1               EQUIPMENT NO. * 1000B                 CD7       414
      L 7235         7603                         FAN    0                 ISSUE FUNCTION                        CD7       415
                                                                                                                 CD7       416
      L 7236         2021 0560                    LDC    TIMEOUT                                                 CD7       417
      L 7240         6504 7225           FCN1     IJM    FCNX,0            IF FUNCTION ACCEPTED, RETURN          CD7       418
      L 7242         1701                         SBN    1                                                       CD7       419
      L 7243         0574                         NJN    FCN1              IF TIMEOUT NOT EXPIRED                CD7       420
      L 7244         7561                         DCN    40B                                                     CD7       421
      L 7245         0200 7504                    RJM    ART               ASK TO RETRY                          CD7       422
      L 7247         0361                         UJN    FCN3              TRY AGAIN                             CD7       423
                                                                                                                 CD7       424
1       CD7         CTI 67X (ATS) TAPE DRIVER - A02                   COMPASS 3.7-871.     23/08/13. 15.42.07.      PAGE    12
        SUBROUTINES                                                   GDS 
  
                                        **        GDS - GET DETAIL STATUS.                                       CD7       427
                                        *                                                                        CD7       428
                                        *         GDS GETS DETAIL STATUS FROM ATS EQUIPMENT.                     CD7       429
                                        *                                                                        CD7       430
                                        *         CALLS  FCN, AWD.                                               CD7       431
                                        *                                                                        CD7       432
                                                                                                                 CD7       433
                                                                                                                 CD7       434
      L 7250         0200 7504           GDS2     RJM    ART               ASK TO RETRY                          CD7       435
      L 7252         0303                         UJN    GDS3              TRY AGAIN                             CD7       436
                                                                                                                 CD7       437
      L 7253         0100 0000           GDS      ENM    X                 ENTRY/EXIT                            CD7       438
      L 7255         2000 0112           GDS3     LDC    ADST              ATS DETAIL STATUS FUNCTION            CD7       439
      L 7257         0200 7226                    RJM    FCN               FUNCTION DEVICE                       CD7       440
      L 7261         0200 7144                    RJM    AWD               ACTIVATE AND WAIT FOR DATA            CD7       441
      L 7263         0464                         ZJN    GDS2              IF NO DATA COMING                     CD7       442
      L 7264         1416                         LDN    ADBL              BLOCK LENGTH                          CD7       443
      L 7265         7102 7271                    IAM    GDSA,0            INPUT STATUS FROM CONTROLLER          CD7       444
      L 7267         7573                         DCN    40B               DISCONNECT CHANNEL                    CD7       445
      L 7270         0362                         UJN    GDSX              RETURN                                CD7       446
                                                                                                                 CD7       447
      L 7271                      16     GDSA     BSSZ   ADBL                                                    CD7       448
  
  
  
  
                                        **        GUS - GET GENERAL/UNIT STATUS.                                 CD7       450
                                        *                                                                        CD7       451
                                        *         GUS ISSUES THE ATS GENERAL STATUS FUNCTION AND UPDATES         CD7       452
                                        *         THE  FIELD *CDGS*. THE STATUS IS ALSO RETURNED IN (A).         CD7       453
                                        *                                                                        CD7       454
                                        *         EXIT   (CDGS) = GENERAL/UNIT STATUS REPLY.                     CD7       455
                                        *                (A) = GENERAL/UNIT STATUS REPLY.                        CD7       456
                                        *                IF STATUS = 0, NO ERRORS.                               CD7       457
                                        *                                                                        CD7       458
                                                                                                                 CD7       459
      L 7307         0200 7504           GUS2     RJM    ART               ASK TO RETRY                          CD7       460
      L 7311         0303                         UJN    GUS3              TRY AGAIN                             CD7       461
                                                                                                                 CD7       462
      L 7312         0100 0000           GUS      ENM    X                 ENTRY/EXIT                            CD7       463
      L 7314         1412                GUS3     LDN    AGST                                                    CD7       464
      L 7315         0200 7226                    RJM    FCN               FUNCTION DEVICE                       CD7       465
      L 7317         0200 7144                    RJM    AWD               ACTIVATE AND WAIT FOR DATA            CD7       466
      L 7321         0465                         ZJN    GUS2              IF NO DATA COMING                     CD7       467
      L 7322         7003                         IAN    0                 READ STATUS                           CD7       468
      L 7323         5400 7327                    STM    CDGS                                                    CD7       469
                                        **                                                                       CD7       470
      L 7325         7561                         DCN    40B                                                     CD7       471
      L 7326         0363                         UJN    GUSX              RETURN                                CD7       472
                                                                                                                 CD7       473
      L 7327         0000                CDGS     CON    0                 GENERAL STATUS WORD                   CD7       474
1       CD7         CTI 67X (ATS) TAPE DRIVER - A02                   COMPASS 3.7-871.     23/08/13. 15.42.07.      PAGE    13
        SUBROUTINES                                                   FMU 
  
                                        **        FMU - FORMAT UNIT                                              CD7       476
                                        *                                                                        CD7       477
                                        *         RETURNS TO CALLER IF NO ERRORS                                 CD7       478
                                        *         ELSE GO TO ERROR PROCESSOR                                     CD7       479
                                        *                                                                        CD7       480
                                                                                                                 CD7       481
      L 7330         0100 0000           FMU      ENM    X                 ENTRY/EXIT                            CD7       482
      L 7332         0200 7313                    RJM    GUS               GET GENERAL STATUS                    CD7       483
      L 7334         1013                         SHN    SL.GSUT           ISOLATE 9-TRACK BIT                   CD7       484
      L 7335         0605                         PJN    FMU2              IF 7-TRACK                            CD7       485
      L 7336         2000 4260                    LDC    4260B             FUNCTION PACKED MODE                  CD7       486
                                7337     FMUN     EQU    *-1                                                     CD7       487
      L 7340         5400 7370                    STM    FMUD              REPLACE FORMAT FUNCTION               CD7       488
      L 7342         1404                FMU2     LDN    AFMT              FORMAT UNIT FUNCTION                  CD7       489
      L 7343         0200 7226                    RJM    FCN               ISSUE FUNCTION                        CD7       490
      L 7345         1402                         LDN    2                 WORD COUNT                            CD7       491
      L 7346         7401                         ACN    0                 ACTIVATE CHANNEL                      CD7       492
      L 7347         7304 7370                    OAM    FMUD,0            OUTPUT FORMAT DATA                    CD7       493
      L 7351         2021 0560                    LDC    TIMEOUT                                                 CD7       494
      L 7353         6707 7362           FMU3     EJM    FMU5,0            WAIT FOR EMPTY                        CD7       495
      L 7355         1701                         SBN    1                                                       CD7       496
      L 7356         0574                         NJN    FMU3              IF NOT TIMED OUT YET                  CD7       497
      L 7357         0200 7504           FMU4     RJM    ART               ASK FOR RETRY PERMISSION              CD7       498
      L 7361         0360                         UJN    FMU2              RETRY                                 CD7       499
      L 7362         7512                FMU5     DCN    0                                                       CD7       500
      L 7363         0200 7313                    RJM    GUS               GET GENERAL STATUS                    CD7       501
      L 7365         1006                         SHN    SL.GSAL                                                 CD7       502
      L 7366         0641                         PJN    FMUX              IF FORMAT OK                          CD7       503
      L 7367         0367                         UJN    FMU4              ELSE RETRY                            CD7       504
                                                                                                                 CD7       505
      L 7370         4220                FMUD     CON    FW0V              UNIT MUST BE ADDED IN                 CD7       506
      L 7371         2440                         CON    FW1V                                                    CD7       507
  
  
  
  
                                        **        MDC - MOVE DEADSTART CHANNEL PP                                CD7       509
                                        *                                                                        CD7       510
                                        *         IF THE DEADSTART CHANNEL IS ACTIVE,                            CD7       511
                                        *           MOVE PP(D.S. CHAN) OVER TO CHANNEL 12B.                      CD7       512
                                        *                                                                        CD7       513
                                                                                                                 CD7       514
      L 7372         0100 0000           MDC      ENM    X                 ENTRY/EXIT                            CD7       515
      L 7374         6503 7372                    IJM    MDCX,0            IF D.S. CHAN INACTIVE                 CD7       516
      L 7376         1400                         LDN    0                                                       DIMA357A    1
      L 7377         7202                         OAN    0                 OUTPUT ZERO WORD                      DIMA357A    2
      L 7400         4000                         LDI    0                 DELAY 3 MEMORY CYCLES                 DIMA357A    3
      L 7401         6702 7405                    EJM    MDC1,0            IF WORD PICKED UP                     DIMA357A    4
      L 7403         7504                         DCN    0                 CLEAR CHANNEL OF DATA                 DIMA357A    5
      L 7404         0365                         UJN    MDCX              RETURN TO CALLER                      DIMA357A    6
      L 7405                             MDC1     BSS    0                                                       DIMA357A    7
      L 7405         7412                         ACN.   12B               ACTIVATE CHAN 12B                     CD7       517
      L 7406         1404                         LDN    MDCL              OUTPUT PROG TO PP(D.S. CHAN)          CD7       518
      L 7407         7302 7415                    OAM    MDCA,0                                                  CD7       519
      L 7411         6602 7411                    FJM    *,0                                                     CD7       520
      L 7413         7512                         DCN    0                                                       CD7       521
      L 7414         0355                         UJN    MDCX              RETURN                                CD7       522
1       CD7         CTI 67X (ATS) TAPE DRIVER - A02                   COMPASS 3.7-871.     23/08/13. 15.42.07.      PAGE    14
        SUBROUTINES 
  
                                                                                                                 CD7       523
      L 7415         0000                MDCA     CON    DEBUG                                                   CD7       524
      L 7416                                      BSSZ   DEBUG                                                   CD7       525
      L 7416         1400                         LDN    0                                                       CD7       526
      L 7417         7112 0000                    IAM.   0,12B                                                   CD7       527
                                                  IFGT   DEBUG,0,3                                               CD7       528
                                   4     MDCL     EQU    *-MDCA                                                  CD7       532
  
  
  
  
                                        **        RDC - RESET DEADSTART CHANNEL PP                               CD7       534
                                        *                                                                        CD7       535
                                        *         IF CHANNEL 12B ACTIVE,                                         CD7       536
                                        *           MOVE PP ON CHAN 12B BACK TO D.S. CHAN.                       CD7       537
                                        *                                                                        CD7       538
                                                                                                                 CD7       539
      L 7421         0100 0000           RDC      ENM    X                 ENTRY/EXIT                            CD7       540
                                        *                                                                        CD7       542
                                        *                                                                        CD7       543
                                        *     REMOVE THE NEXT FUNCTION WHEN A DEADMAN TIMER                      CD7       544
                                        *     FCO IS INSTALLED IN ATS CONTROLLERS                                CD7       545
                                        *     REPLACE IT WITH A RELEASE UNIT FUNCTION                            CD7       546
                                        *     BEFORE THE RETURN JUMP TO RDC                                      CD7       547
                                        *     SEE THE 66X DRIVER FOR PROPER INSTALLATION                         CD7       548
                                        *                                                                        CD7       549
                                        *                                                                        CD7       550
      L 7423         2000 1700                    LDC    1700B       TURN OFF DEADMAN TIMER BY ISSUE OF          CD7       551
      L 7425         7603                         FAN    0           ILLEGAL FUNCTION                            CD7       552
      L 7426         1777                         SBN    77B              GIVE SIGNAL TIME TO PROPAGATE          CD7       553
      L 7427         0676                         PJN    *-1              ON 4X PPUS                             CD7       554
      L 7430         7543                         DCN    40B         FREE UP CHANNEL AFTER ILLEGAL FUNCTION      CD7       555
      L 7431         6512 7421                    IJM.   RDCX,12B          IF CHAN 12B INACTIVE                  DIMA324     1
      L 7433         7412                         ACN    0                 ACTIVATE D.S. CHANNEL                 CD7       556
      L 7434         1404                         LDN    RDCL              OUTPUT PROG TO CHANNEL 12B            CD7       557
      L 7435         7312 7443                    OAM.   RDCA,12B                                                CD7       558
      L 7437         6612 7437                    FJM.   *,12B                                                   CD7       559
      L 7441         7512                         DCN.   12B                                                     CD7       560
      L 7442         0356                         UJN    RDCX              RETURN                                CD7       561
                                                                                                                 CD7       562
      L 7443         0000                RDCA     CON    DEBUG             PP PROGRAM                            CD7       563
      L 7444                                      BSSZ   DEBUG                                                   CD7       564
      L 7444         1400                         LDN    0                                                       CD7       565
      L 7445         7100 0000                    IAM    0,0                                                     CD7       566
                                                  IFGT   DEBUG,0,3                                               CD7       567
                                   4     RDCL     EQU    *-RDCA                                                  CD7       571
1       CD7         CTI 67X (ATS) TAPE DRIVER - A02                   COMPASS 3.7-871.     23/08/13. 15.42.07.      PAGE    15
        SUBROUTINES                                                   RBT 
  
                                        **        RBT - REWIND/BACKSPACE TAPE                                    CD7       573
                                        *                                                                        CD7       574
                                        *         ENTRY  (A) = FUNCTION CODE                                     CD7       575
                                        *                                                                        CD7       576
                                        *         CALLS FCN                                                      CD7       577
                                                                                                                 CD7       578
      L 7447         0100 0000           RBT      ENM    X                 ENTRY/EXIT                            CD7       579
      L 7451         0200 7226                    RJM    FCN                                                     CD7       580
      L 7453         0200 7313           RBT1     RJM    GUS               GET GENERAL STATUS                    CD7       581
      L 7455         1202                         LPN    MP.GSUB                                                 CD7       582
      L 7456         0574                         NJN    RBT1              IF STILL BUSY                         CD7       583
      L 7457         0367                         UJN    RBTX              RETURN                                CD7       584
  
  
  
  
                                        **        CHK - CHECK RESULTS/STATUS AFTER A READ OPERATION              CD7       586
                                        *                                                                        CD7       587
                                        *         RETURNS TO CALLER IF NO ERRORS                                 CD7       588
                                        *         ELSE IF RECOVERABLE ERROR BACKSPACE AND RETURN                 CD7       589
                                        *              ELSE GO TO ERROR PROCESSING                               CD7       590
                                        *                                                                        CD7       591
                                        *         (A) POSITIVE IF NO ERRORS                                      CD7       592
                                        *         (A) NEGATIVE IF ERROR BUT CALLER SHOULD RETRY READ             CD7       593
                                        *                                                                        CD7       594
                                                                                                                 CD7       595
      L 7460         0100 0000           CHK      ENM    X                 ENTRY/EXIT                            CD7       596
      L 7462         0200 7313                    RJM    GUS               GET GENERAL STATUS                    CD7       597
      L 7464         1006                         SHN    SL.GSAL           ALERT BIT                             CD7       598
      L 7465         0672                         PJN    CHKX              NO ERRORS                             CD7       599
      L 7466         0200 7254                    RJM    GDS               GET DETAILED STATUS                   CD7       600
      L 7470         5000 7271                    LDM    GDSA+ADW0                                               CD7       601
      L 7472         0465                         ZJN    CHKX              IF NO ERRORS                          CD7       602
      L 7473         0200 7504           CHK3     RJM    ART               ASK TO RETRY                          CD7       603
      L 7475         2000 0113                    LDC    ABCK                                                    CD7       604
      L 7477         0200 7450                    RJM    RBT               BACKSPACE TAPE                        CD7       605
      L 7501         1500                         LCN    0                                                       CD7       606
      L 7502         0355                         UJN    CHKX              RETURN                                CD7       607
  
  
  
  
                                        **        ART - ADJUST RETRY COUNTER                                     CD7       609
                                        *                                                                        CD7       610
                                        *         DECREMENT COUNTER AND                                          CD7       611
                                        *         RETURN TO CALLER IF COUNTER .GE. 0                             CD7       612
                                        *         ELSE GO TO ERROR PROCESSOR                                     CD7       613
                                        *                                                                        CD7       614
                                                                                                                 CD7       615
      L 7503         0100 0000           ART      ENM    X                 ENTRY/EXIT                            CD7       616
      L 7505         5700 7512                    SOM    ARTC                                                    CD7       617
      L 7507         0673                         PJN    ARTX              EXIT IF MORE RETRIES AVAILABLE        CD7       618
      L 7510         0100 7514                    LJM    ERIO              IF NO MORE RETRIES AVAILABLE          CD7       619
                                                                                                                 CD7       620
      L 7512         0000                ARTC     CON    0                 RETRY COUNTER                         CD7       621
                                                                                                                 CD7       622
      L 7513         0000                NFCT     CON    0                 NOFIND COUNTER                        CD7       623
1       CD7         CTI 67X (ATS) TAPE DRIVER - A02                   COMPASS 3.7-871.     23/08/13. 15.42.07.      PAGE    16
        SUBROUTINES 
  
                                        **        ERROR PROCESSING                                               CD7       625
                                        *                                                                        CD7       626
                                        *         ERIO IS ENTERED IF AN UNRECOVERABLE I/0 ERROR                  CD7       627
                                        *         HAS OCCURRED.  ERNF IS ENTERED IF A REQUEST TO                 CD7       628
                                        *         READ A NAMED RECORD WAS MADE BUT THE RECORD                    CD7       629
                                        *         COULD NOT BE FOUND.  FOR EITHER ERROR, A MESSAGE               CD7       630
                                        *         IS PUT ON THE DISPLAY AND THE PP IS HUNG IN A LOOP             CD7       631
                                        *         OUTPUTTING THE ERROR MESSAGE.                                  CD7       632
                                                                                                                 CD7       633
                                7514     ERIO     EQU    *                 BUILD ERROR MSG                       CD7       634
      L 7514         5000 7327                    LDM    CDGS              GENERAL STATUS                        CD7       635
      L 7516         0200 7565                    RJM    CTO                                                     CD7       636
      L 7520         5400 7563                    STM    IOMGS+1                                                 CD7       637
      L 7522         5000 7327                    LDM    CDGS                                                    CD7       638
      L 7524         1071                         SHN    -6                                                      CD7       639
      L 7525         0200 7565                    RJM    CTO                                                     CD7       640
      L 7527         5400 7562                    STM    IOMGS+0                                                 CD7       641
      L 7531         2000 0723                    LDC    2RGS                                                    CD7       642
      L 7533         5400 7560                    STM    NFMB              CHANGE 1ST BYTE OF MSG TO *GS*        CD7       643
                                                                                                                 CD7       644
                                7535     ERNF     EQU    *                 ENTRY WHEN NOFIND                     CD7       645
                                                                                                                 CD7       646
                                        *         IDLE PP 10                                                     CD7       647
      L 7535         6610 7542                    FJM.   IDLEDCN,CHD                                             CD7       648
      L 7537         1402                         LDN    IDLL                                                    CD7       649
      L 7540         7310 7554                    OAM.   IDLA,CHD          SEND IDLE PROGRAM                     CD7       650
      L 7542         7550                IDLEDCN  DCN.   CHD+40B           FREE DISPLAY CHANNEL                  CD7       651
                                                                                                                 CD7       652
                                        *         PAINT DISPLAY                                                  CD7       653
                                                                                                                 CD7       654
      L 7543         7710 7002                    FNC.   F.SEL+F.SLS+F.CHR+F.CHL,CHD                             CD7       655
      L 7545         7410                         ACN.   CHD                                                     CD7       656
                                                                                                                 CD7       657
      L 7546         1406                ERR8     LDN    NFML                                                    CD7       658
      L 7547         7310 7556                    OAM.   NFM,CHD           OUTPUT ERROR MSG                      CD7       659
      L 7551         1740                ERR9     SBN    40B                                                     DIMA295C    6
      L 7552         0776                         MJN    ERR9                                                    DIMA295C    7
      L 7553         0372                         UJN    ERR8              HANG IN OUTPUT LOOP                   CD7       660
                                                                                                                 CD7       661
      L 7554         0000                IDLA     CON    0                 PP 10 IDLE PROGRAM                    CD7       662
      L 7555         0300                         CON    UJNC              HANG                                  CD7       663
                                   2     IDLL     EQU    *-IDLA            LENGTH OF IDLE PROGRAM                CD7       664
                                                                                                                 CD7       665
                                  22     DOPLS    EQU    22B               LINE (Y COOR) INCREMENT VALUE         CD7       666
                                                                                                                 CD7       667
                                                                                                                 CD7       668
                                7556     NFM      EQU    *                 NOFIND ERROR MESSAGE                  CD7       669
                                                                                                                 CD7       670
      L 7556         7400                         CON    7400B                                                   CD7       671
      L 7557         6000                         CON    XSET                                                    CD7       672
      L 7560         1615                NFMB     DATA   H*NM= NNNN*                                             CD7       673
                                7562     NFNM     EQU    NFMB+2                                                  CD7       674
                                7562     IOMGS    EQU    NFNM                                                    CD7       675
                                                                                                                 CD7       676
                                   6     NFML     EQU    *-NFM             MESSAGE LENGTH                        CD7       677
1       CD7         CTI 67X (ATS) TAPE DRIVER - A02                   COMPASS 3.7-871.     23/08/13. 15.42.07.      PAGE    17
        SUBROUTINES 
  
                                        **        CTO - CONVERT TO OCTAL DISPLAY                                 CD7       679
                                        *                                                                        CD7       680
                                        *         ENTRY  (A) LOWER 6 BITS ARE VALUE TO BE CONVERTED              CD7       681
                                        *                                                                        CD7       682
                                        *         EXIT   LOWER 12 BITS OF (A) ARE RESULT.                        CD7       683
                                        *                                                                        CD7       684
                                        *         USES   D2                                                      CD7       685
                                                                                                                 CD7       686
      L 7564         0100 0000           CTOX     LJM    0                 EXIT                                  CD7       687
                                7565     CTO      EQU    *-1               ENTRY                                 CD7       688
      L 7566         1277                         LPN    77B               ISOLATE LOWER 6 BITS                  CD7       689
      L 7567         3402                         STD    D2                                                      CD7       690
      L 7570         1003                         SHN    3                                                       CD7       691
      L 7571         3302                         LMD    D2                                                      CD7       692
      L 7572         1370                         SCN    70B                                                     CD7       693
      L 7573         2100 3333                    ADC    2R00                                                    CD7       694
      L 7575         0366                         UJN    CTOX              RETURN                                CD7       695
  
  
  
  
                                        **        END OF COMMON TAPE DRIVER AND SUBROUTINES.                     CD7       697
                                        *                                                                        CD7       698
                                        *         THE FOLLOWING SYMBOLS ARE DEFINED FOR MOVING *CTD* INTO THE    CD7       699
                                        *         COMMON DRIVER AREA.                                            CD7       700
                                        *                                                                        CD7       701
                                        *         TCTD   FWA OF COMMON TAPE DRIVER.                              CD7       702
                                        *         LCTD   LWA+1 OF COMMON TAPE DRIVER.                            CD7       703
                                        *         TCTDL  LENGTH OF COMMON TAPE DRIVER.                           CD7       704
                                        *                                                                        CD7       705
                                                                                                                 CD7       706
                                                                                                                 CD7       707
                                  62              ERRNG  CPAFWA-*          OVERFLOWED INTO POINTER AREA          CD7       708
                                                                                                                 CD7       709
        7036                                      LOC    *O                                                      CD7       710
                                                                                                                 CD7       711
                                7036     LCTD     EQU    *                                                       CD7       712
                                 576     TCTDL    EQU    LCTD-TCTD         LENGTH OF DRIVER                      CD7       713
  
  
  
  
                                        *         OVERFLOW CHECK.                                                CD7       715
                                                                                                                 CD7       716
                                 363              ERRNG  IPLFWA-*          OVERFLOWED INTO IPL                   CD7       717
                                                                                                                 CD7       718
        7036                                      END                                                            CD7       719
  
                             55600B CM  STORAGE USED             1889 STATEMENTS      745 SYMBOLS      000102 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            1.583 SECONDS         600 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ABCK          113                   9/21     15/35
        ACNC         7400                   3/48 D
1       CD7         CTI 67X (ATS) TAPE DRIVER - A02                   COMPASS 3.7-871.     23/08/13. 15.42.07.      PAGE    18
        SYMBOLIC REFERENCE TABLE. 
  
        ADBL           16                  12/17     12/22
        ADCC         2100                   3/43 D
        ADST          112                  12/13
        ADW0            0                  15/32
        AFMT            4                  13/14
        AGST           12                  12/41
        AJMC         6400                   3/46 D
        AREW           10                   8/43
        ARFW           40                  10/41     11/10
        ART          7504                  11/06     11/49     12/09     12/37     13/23     15/34     15/50 D
        ARTC         7512                   8/31 S   15/51 S   15/55 L
        ARTX         7503                  15/50 L   15/52
        AWD          7144                  10/10 D   12/15     12/43
        AWDX         7143                  10/10 L   10/25     10/29
        AWDZ         7147                   6/45     10/19 L
        AWD1         7150                  10/25 L   10/27
        BPW             5                   8/49     11/13
        CDEP         7000                   6/26 S    7/42      8/07
        CDGS         7327                  12/46 S   12/51 L   16/11     16/14
        CDNC            3                   8/26      8/28      8/37      8/46
        CDNFMAX        36                   5/11
        CDRW            2                   8/41
        CDTA            1                   8/24
        CHD            10                   4/21 D   16/24     16/26     16/27     16/31     16/32     16/35
        CHK          7461                  10/53     11/20     15/27 D
        CHKX         7460                  15/27 L   15/30     15/33     15/38
        CHK3         7473                  15/34 L
        CH01$        7147                  10/21 D
        CH02$        7150                  10/21     10/21     10/25 D
        CH03$        7154                  10/25     10/25     10/28 D
        CH04$        7163                  10/28     10/28     10/43 D
        CH05$        7165                  10/43     10/43     10/45 D
        CH06$        7170                  10/45     10/45     10/49 D
        CH07$        7173                  10/49     10/49     10/52 D
        CH08$        7210                  10/52     10/52     11/12 D
        CH09$        7213                  11/12     11/12     11/14 D
        CH10$        7216                  11/14     11/14     11/17 D
        CH11$        7220                  11/17     11/17     11/19 D
        CH12$        7235                  11/19     11/19     11/42 D
        CH13$        7240                  11/42     11/42     11/45 D
        CH14$        7244                  11/45     11/45     11/48 D
        CH15$        7265                  11/48     11/48     12/18 D
        CH16$        7267                  12/18     12/18     12/19 D
        CH17$        7322                  12/19     12/19     12/45 D
        CH18$        7325                  12/45     12/45     12/48 D
        CH19$        7346                  12/48     12/48     13/17 D
        CH1$           42                  10/21 D   10/45     11/14 D   11/48     12/48 D   13/44     13/54 D   14/34
                                           10/21     10/45 D   11/17     11/48 D   13/17     13/44 D   13/55     14/34 D
                                           10/21 D   10/49     11/17 D   12/18     13/17 D   13/46     13/55 D   14/44
                                           10/25     10/49 D   11/19     12/18 D   13/18     13/46 D   13/56     14/44 D
                                           10/25 D   10/52     11/19 D   12/19     13/18 D   13/48     13/56 D
                                           10/28     10/52 D   11/42     12/19 D   13/20     13/48 D   14/29
                                           10/28 D   11/12     11/42 D   12/45     13/20 D   13/49     14/29 D
                                           10/43     11/12 D   11/45     12/45 D   13/25     13/49 D   14/32
                                           10/43 D   11/14     11/45 D   12/48     13/25 D   13/54     14/32 D
        CH20$        7347                  13/17     13/17     13/18 D
        CH21$        7353                  13/18     13/18     13/20 D
1       CD7         CTI 67X (ATS) TAPE DRIVER - A02                   COMPASS 3.7-871.     23/08/13. 15.42.07.      PAGE    19
        SYMBOLIC REFERENCE TABLE. 
  
        CH22$        7362                  13/20     13/20     13/25 D
        CH23$        7374                  13/25     13/25     13/44 D
        CH24$        7377                  13/44     13/44     13/46 D
        CH25$        7401                  13/46     13/46     13/48 D
        CH26$        7403                  13/48     13/48     13/49 D
        CH27$        7407                  13/49     13/49     13/54 D
        CH28$        7411                  13/54     13/54     13/55 D
        CH29$        7413                  13/55     13/55     13/56 D
        CH30$        7425                  13/56     13/56     14/29 D
        CH31$        7430                  14/29     14/29     14/32 D
        CH32$        7433                  14/32     14/32     14/34 D
        CH33$        7445                  14/34     14/34     14/44 D
        CH34$        7445                  14/44     14/44     17/46 D
        CPAFWA       7660                  17/33
        CTD          7000                   8/09 D
        CTDZ         7142                   8/25 S    9/33 D
        CTD1         7042                   6/31 S    8/34 L
        CTD2         7064                   8/42      8/46 L
        CTD3         7076                   8/47      8/53 L    9/13      9/16
        CTD5         7112                   9/02      9/09 L
        CTD55        7127                   9/10      9/17 L
        CTD6         7131                   9/05      9/21 L
        CTD7         7135                   8/51      9/26 L
        CTO          7565                  16/12     16/16     17/10 D
        CTOX         7564                  17/09 L   17/17
        DCNC         7500                   3/49 D
        DEBUG           0                   4/11 D   14/02     14/03     14/41     14/42
        DOPLS          22                  16/44 D
        D0              0                   3/08 D    7/15 S    7/16 S
        D1              1                   3/09 D    8/17      8/26      8/37      8/46
                                            8/13 S    8/24      8/28      8/41
        D10            10                   3/19 D    6/47
        D11            11                   3/20 D
        D12            12                   3/21 D
        D13            13                   3/22 D
        D14            14                   3/23 D
        D15            15                   3/24 D
        D16            16                   3/25 D
        D17            17                   3/26 D
        D2              2                   3/10 D    6/51 S    6/57 I    8/48      9/03      9/14     17/14
                                            6/46 S    6/52      8/18 S    8/57      9/11     17/12 S
        D20            20                   3/27 D
        D3              3                   3/11 D    6/49 S    6/55      7/19      7/23
        D4              4                   3/12 D    6/24 S    6/25      6/26      6/27 S    6/54 S    6/56      7/01
        D5              5                   3/13 D
        D6              6                   3/14 D    6/29      6/32      6/36
        D67X            1                   8/11
        D7              7                   3/17 D
        ENDCONS      7002                   8/10      8/12 D
        ERIO         7514                  15/53     16/10 D
        ERNF         7535                   9/17     16/21 D
        ERR8         7546                  16/34 L   16/38
        ERR9         7551                  16/36 L   16/37
        FCN          7226                   8/35     10/42     11/11     11/36 D   12/14     12/42     13/15     15/08
        FCNA         7234                   6/34 S   11/41 D
        FCNF         7232                  11/37 S   11/39 D
        FCNX         7225                  11/36 L   11/45
1       CD7         CTI 67X (ATS) TAPE DRIVER - A02                   COMPASS 3.7-871.     23/08/13. 15.42.07.      PAGE    20
        SYMBOLIC REFERENCE TABLE. 
  
        FCN1         7240                  11/45 L   11/47
        FCN3         7231                  11/38 L   11/50
        FMU          7331                   8/36     13/07 D
        FMUD         7370                   6/38 S   13/13 S   13/18     13/31 L
        FMUN         7337                   6/40 S   13/12 D
        FMUX         7330                  13/07 L   13/28
        FMU2         7342                  13/10     13/14 L   13/24
        FMU3         7353                  13/20 L   13/22
        FMU4         7357                  13/23 L   13/29
        FMU5         7362                  13/20     13/25 L
        FWDL$           0                   4/09 D
        FW0V         4220                  13/31
        FW1V         2440                  13/32
        F.CHL           2                   4/37 D   16/31
        F.CHM           1                   4/36 D
        F.CHR           0                   4/31 D   16/31
        F.CHS           0                   4/35 D
        F.DOT          10                   4/32 D
        F.KEY          20                   4/33 D
        F.SBS         200                   4/29 D
        F.SEL        7000                   4/25 D   16/31
        F.SLS           0                   4/27 D   16/31
        F.SRS         100                   4/28 D
        GDS          7254                  12/12 D   15/31
        GDSA         7271                  12/18 S   12/22 L   15/32
        GDSX         7253                  12/12 L   12/20
        GDS2         7250                  12/09 L   12/16
        GDS3         7255                  12/10     12/13 L
        GUS          7313                  12/40 D   13/08     13/26     15/09     15/28
        GUSX         7312                  12/40 L   12/49
        GUS2         7307                  12/37 L   12/44
        GUS3         7314                  12/38     12/41 L
        IDLA         7554                  16/26     16/40 L   16/42
        IDLEDCN      7542                  16/24     16/27 L
        IDLL            2                  16/25     16/42 D
        INI          6120                   6/18 L
        INIA         6210                   7/20 S    7/21 L
        INIB         6224                   7/26      7/33 L    7/35
        INIC         6225                   7/24 S    7/34 L
        INIL            3                   7/25      7/35 D
        INIR         6233                   7/41      7/46 L
        INI1         6123                   6/25 L    6/28
        INI2         6160                   6/51 L    7/02
        INI7         6221                   7/12      7/17      7/29 L
        INI9         6227                   7/31      7/41 L
        IOMGS        7562                  16/13 S   16/17 S   16/53 D
        IOQB         6000                   7/46
        IOQTRAN      6000                   7/47
        IPLFWA       7421                  17/45
        IPLTRAN      6120                   1/10      6/01
        JUMP         7141                   8/40      9/32 L
        LCNC         1500                   3/40 D
        LCTD         7036                  17/37 D   17/38
        LDCC         2000                   3/42 D
        LDDC         3000                   3/45 D
        LE6P            1                   8/49     11/13
        LE77           17                   8/49     11/13
1       CD7         CTI 67X (ATS) TAPE DRIVER - A02                   COMPASS 3.7-871.     23/08/13. 15.42.07.      PAGE    21
        SYMBOLIC REFERENCE TABLE. 
  
        LMCC         2300                   3/44 D
        MDC          7373                   8/15     13/43 D
        MDCA         7415                  13/54     14/02 L   14/07
        MDCL            4                  13/53     14/07 D
        MDCX         7372                  13/43 L   13/44     13/50     13/57
        MDC1         7405                  13/48     13/51 L
        MP.GSUB         2                  15/10
        NAME            5                   4/06 D    8/22      8/57      9/03      9/11      9/14     10/44
        NFCT         7513                   8/33 S    9/09 S   15/57 L
        NFM          7556                  16/35     16/47 D   16/55
        NFMAX          36                   5/11 D    8/32
        NFMB         7560                  16/19 S   16/51 L   16/52
        NFML            6                  16/34     16/55 D
        NFNM         7562                   8/27 S    8/29 S    9/01      9/04     16/52 D   16/53
        OAMC         7300                   3/47 D
        PRE          7157                   8/53     10/40 D
        PREB         7166                   8/19 S   10/46 D
        PREC         7171                   8/23 S   10/50 D
        PREX         7156                  10/40 L   10/54
        PRE3         7160                  10/41 L   10/55
        PRE5         7167                  10/48 L   10/51
        PSNC            0                   3/36 D
        QUAL$           0                   4/10 D
        RBT          7450                   8/44      9/22     15/07 D   15/36
        RBTX         7447                  15/07 L   15/12
        RBT1         7453                  15/09 L   15/11
        RDC          7422                   9/29     14/18 D
        RDCA         7443                  14/36     14/41 L   14/46
        RDCL            4                  14/35     14/46 D
        RDCX         7421                  14/18 L   14/33     14/39
        RED          7204                   9/26     11/09 D
        REDB         7214                   8/20 S   11/15 D
        REDC         7217                   8/21 S    8/50 S   11/18 D
        REDX         7203                  11/09 L   11/21
        RED1         7200                  11/06 L
        RED3         7205                  11/07     11/10 L   11/22
        RETRY          12                   4/08 D    8/30
        SBNC         1700                   3/41 D
        SHNC         1000                   3/39 D
        SL.GSAL         6                  13/27     15/29
        SL.GSUT        13                  13/09
        TCHS         7445                  10/21 D   10/45 D   11/17 D   12/18 D   13/18 D   13/48 D   14/29 D
                                           10/21 D   10/49 D   11/19 D   12/19 D   13/20 D   13/49 D   14/32 D
                                           10/25 D   10/52 D   11/42 D   12/45 D   13/25 D   13/54 D   14/34 D
                                           10/28 D   11/12 D   11/45 D   12/48 D   13/44 D   13/55 D   14/44 D
                                           10/43 D   11/14 D   11/48 D   13/17 D   13/46 D   13/56 D   17/46
        TCTD         6240                   6/25      8/05 D   17/38
        TCTDL         576                   6/23     17/38 D
        TIMEOUT    210560                   4/07 D   10/11     11/44     13/19
        UJNC          300                   3/37 D   16/41
        XSET         6000                   4/41 D   16/50
        YSET         7000                   4/42 D
        ZJNC          400                   3/38 D
 CD6
1       CD6         CTI 66X (MTS) TAPE DRIVER - A02                   COMPASS 3.7-871.     23/08/13. 15.42.10.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
  
                       6120      727              IDENT  CD6,IPLTRAN
                       7047     (140)             END 
  
  
  
  
                                                  IDENT  CD6,IPLTRAN                                             CD6         2
                                                  PERIPH                                                         CD6         3
                                         VERID    MICRO  1,,*A02*                                                *A02*       1
                                         VERS     MICRO  1,,*"VERID"*                                       VERS VERS        3
                                                  COMMENT CTI 66X (MTS) TAPE DRIVER - "VERS"                     DIMA317B    3
                                                  COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1979               DIMA317B    4
  
  
                                        *         ALL RIGHTS RESERVED                                            CDCCRN      3
                                        *                                                                        CDCCRN      4
                                        *         CONTAINED HEREIN ARE SOFTWARE PRODUCTS COPYRIGHTED             CDCCRN      5
                                        *         BY CONTROL DATA CORPORATION.  REPRODUCTION WITHOUT             CDCCRN      6
                                        *         PERMISSION IS PROHIBITED.  THE COPYRIGHT NOTICE                CDCCRN      7
                                        *         MUST APPEAR ON ALL AUTHORIZED COMPLETE OR                      CDCCRN      8
                                        *         PARTIAL COPIES.                                                CDCCRN      9
                                        *                                                                        CDCCRN     10
1       CD6         CTI 66X (MTS) TAPE DRIVER - A02                   COMPASS 3.7-871.     23/08/13. 15.42.10.      PAGE     2
                                                                      CD6 
  
                                        *****     CD6 - 66X (MTS) TAPE DRIVER -CTI-.                             CD6         8
                                        *                                                                        CD6         9
                                        *         R. A. MATTHEWS.          12/23/77.                             CD6        10
                                        *         R. A. TURGEON             6/8/78.                              CD6        11
                                        *                                                                        CD6        12
                                        *         CD6 PROVIDES A BASIC TAPE DRIVER FOR 66X (MTS) TAPE DRIVES     CD6        13
                                        *         WHEN USED AS THE DEADSTART DEVICE WITHIN THE COMMON TEST/      CD6        14
                                        *         INITIALIZATION (CTI) PACKAGE. CD6 MOVES ITSELF OVER THE IPL    CD6        15
                                        *         PREFIX TABLE AND PROGRAM BODY TO ALLOW SUBSEQUENT READS TO     CD6        16
                                        *         USE THE IPL BUFFER AREA.                                       CD6        17
  
  
  
  
                                        ***       CD6 - 66X (MTS) TAPE DRIVER -CTI-.                             CD6        19
                                        *                                                                        CD6        20
                                        *         CD6 IS THE SECOND RECORD FOLLOWING IPL ON A DEADSTART TAPE     CD6        21
                                        *         AND IS NOT PRESENT IN THE DISK DEADSTART SEQUENCE. 66X,        CD6        22
                                        *         THROUGH THE COMMON DRIVER INTERFACE, PROVIDES A DEVICE         CD6        23
                                        *         READER THAT WILL LOAD GIVEN ROUTINES AND HAND OFF CONTROL      CD6        24
                                        *         IF SO SPECIFIED. THE DEVICE READER WILL PROCESS RECORDS UP     CD6        25
                                        *         TO 511 (DECIMAL) CM WORDS LONG.                                CD6        26
1       CD6         CTI 66X (MTS) TAPE DRIVER - A02                   COMPASS 3.7-871.     23/08/13. 15.42.10.      PAGE     3
        DEFINITIONS.
  
                                        **        DEADSTART PANEL WORDS.                                         CD6        28
                                        *                                                                        CD6        29
                                        *         WORDS 5 - 20B OF THE DEADSTART PANEL MUST REMAIN INTACT        CD6        30
                                        *         DURING CTI EXECUTION. WORDS 0 - 4 MAY BE USED AS SCRATCH       CD6        31
                                        *         DIRECT CELLS.                                                  CD6        32
                                                                                                                 CD6        33
                                                                                                                 CD6        34
                                   0     D0       EQU    0                 SCRATCH                               CD6        35
                                   1     D1       EQU    1                 SCRATCH                               CD6        36
                                   2     D2       EQU    2                 SCRATCH                               CD6        37
                                   3     D3       EQU    3                 SCRATCH                               CD6        38
                                   4     D4       EQU    4                 SCRATCH                               CD6        39
                                   5     D5       EQU    5                 ZERO IF TAPE DEADSTART                CD6        40
                                   6     D6       EQU    6                 FUNCTION WORD                         CD6        41
                                        *         (D6) = WARMSTART FUNCTION, IF MTS/ATS.                         CD6        42
                                        *              = DEADSTART FUNCTION, IF 844 DISK.                        CD6        43
                                   7     D7       EQU    7                 RESERVED                              CD6        44
                                        *         (D7) = 1400B IF 3000 TYPE TAPE.                                CD6        45
                                  10     D10      EQU    10B               RESERVED                              CD6        46
                                  11     D11      EQU    11B               RESERVED                              CD6        47
                                  12     D12      EQU    12B               MSL PARAMETERS                        CD6        48
                                  13     D13      EQU    13B               OS PARAMETERS                         CD6        49
                                  14     D14      EQU    14B               OS PARAMETERS                         CD6        50
                                  15     D15      EQU    15B               UNUSED                                CD6        51
                                  16     D16      EQU    16B               C80/A170 RESERVED                     CD6        52
                                  17     D17      EQU    17B               RESERVED                              CD6        53
                                  20     D20      EQU    20B               RESERVED                              CD6        54
  
  
  
  
                                        **        INSTRUCTION EQUATES.                                           CD6        56
                                        *                                                                        CD6        57
                                                                                                                 CD6        58
                                                                                                                 CD6        59
                                   0     PSNC     EQU    0000B             PASS                                  CD6        60
                                 300     UJNC     EQU    0300B             UNCONDITIONAL JUMP                    CD6        61
                                 400     ZJNC     EQU    0400B             ZERO JUMP                             CD6        62
                                1000     SHNC     EQU    1000B             SHIFT                                 CD6        63
                                1500     LCNC     EQU    1500B             LOAD COMPLEMENT                       CD6        64
                                1700     SBNC     EQU    1700B             SUBTRACT NO-ADDRESS                   CD6        65
                                2000     LDCC     EQU    2000B             LOAD CONSTANT                         CD6        66
                                2100     ADCC     EQU    2100B             ADD CONSTANT                          CD6        67
                                2300     LMCC     EQU    2300B             LOGICAL MINUS CONSTANT                CD6        68
                                3000     LDDC     EQU    3000B             LOAD DIRECT                           CD6        69
                                6400     AJMC     EQU    6400B             ACTIVE JUMP                           CD6        70
                                7300     OAMC     EQU    7300B             OUTPUT MEMORY                         CD6        71
                                7400     ACNC     EQU    7400B             ACTIVATE CHANNEL                      CD6        72
                                7500     DCNC     EQU    7500B             DISCONNECT CHANNEL                    CD6        73
1       CD6         CTI 66X (MTS) TAPE DRIVER - A02                   COMPASS 3.7-871.     23/08/13. 15.42.10.      PAGE     4
        DEFINITIONS.                                                  MSC 
  
                                        **        MISCELLANEOUS DEFINITIONS.                                     CD6        75
                                        *                                                                        CD6        76
                                        *                                                                        CD6        77
                                                                                                                 CD6        78
                                                                                                                 CD6        79
                                   5     NAME     EQU    5                 OFFSET OF NAME IN PRFX TABLE          CD6        80
                              210560     TIMEOUT  EQU    70000             TIMEOUT COUNT                         CD6        81
                                  12     RETRY    EQU    10D               NO. OF RETRIES IN ERROR PROCESSING    CD6        82
                                   0     FWDL$    EQU    0                 DEFINE FORWARD LINK FOR CHANNEL INST. CD6        83
                                   0     QUAL$    EQU    0                 DON-T QUALIFY COMMON DECKS            CD6        84
                                   0     DEBUG    EQU    0                                                       CD6        85
  
  
  
  
                                        **        DISPLAY CONTROLLER DEFINITIONS.                                CD6        87
                                        *                                                                        CD6        88
                                        *                                                                        CD6        89
                                                                                                                 CD6        90
                                                                                                                 CD6        91
                                  10     CHD      EQU    10B               DISPLAY CHANNEL                       CD6        92
                                                                                                                 CD6        93
                                        *         DISPLAY FUNCTION CODES.                                        CD6        94
                                                                                                                 CD6        95
                                7000     F.SEL    EQU    7000B             SELECT CONSOLE DISPLAY                CD6        96
                                                                                                                 CD6        97
                                   0     F.SLS    EQU    0000B             SELECT CONSOLE LEFT SCREEN            CD6        98
                                 100     F.SRS    EQU    0100B             SELECT CONSOLE RIGHT SCREEN           CD6        99
                                 200     F.SBS    EQU    0200B             SELECT CONSOLE BOTH SCREEN            CD6       100
                                                                                                                 CD6       101
                                   0     F.CHR    EQU    0000B             SELECT DOT MODE                       CD6       102
                                  10     F.DOT    EQU    0010B             SELECT DOT MODE                       CD6       103
                                  20     F.KEY    EQU    0020B             SELECT KEYBOARD INPUT                 CD6       104
                                                                                                                 CD6       105
                                   0     F.CHS    EQU    0000B             SET CHARACTER SIZE SMALL              CD6       106
                                   1     F.CHM    EQU    0001B             SET CHARACTER SIZE MEDIUM             CD6       107
                                   2     F.CHL    EQU    0002B             SET CHARACTER SIZE LARGE              CD6       108
                                                                                                                 CD6       109
                                        *         COORDINATE DESIGNATION.                                        CD6       110
                                                                                                                 CD6       111
                                6000     XSET     EQU    6000B             SET X COORDINATE                      CD6       112
                                7000     YSET     EQU    7000B             SET Y COORDINATE                      CD6       113
1       CD6         CTI 66X (MTS) TAPE DRIVER - A02                   COMPASS 3.7-871.     23/08/13. 15.42.10.      PAGE     5
        DEFINITION COMMON DECKS.
  
                                        **        DEFINITION COMMON DECKS.                                       CD6       116
                                        *                                                                        CD6       117
                                        **        ALL SYMBOL AND MACRO DEFINITION COMMON DECKS ARE CALLED HERE.  CD6       118
                                                                                                                 CD6       119
                                                                                                                 CD6       120
           0                             CTI      CTEXT  COMPCTI - CTI COMMON MACROES.                           COMPCTI     2
           0                             MTS      CTEXT  COMSMTS - MTS TAPE DEFINITIONS.                         COMSMTS     2
           0                                      CTEXT  COMPCHL - REDEFINE I/O INSTRUCTIONS.                    COMPCHL     2
           0                             CPA      CTEXT  COMSCPA - CTI COMMON POINTER AREA DEFINITIONS.          COMSCPA     2
           0                             CTI      CTEXT  COMSCTI - CTI INTERNAL DEFINITIONS.                     COMSCTI     2
                                  36     NFMAX    EQU    CDNFMAX           NOFIND MAXIMUM                        CD6       126
1       CD6         CTI 66X (MTS) TAPE DRIVER - A02                   COMPASS 3.7-871.     23/08/13. 15.42.10.      PAGE     6
        MAIN ROUTINE. 
  
        6120                                      ORG    IPLTRAN                                                 CD6       128
  
  
  
  
                                        ***       INI - CD6 INITIALIZATION.                                      CD6       130
                                        *                                                                        CD6       131
                                        *         INI MOVES THE TAPE DRIVER INTO THE COMMON DRIVER AREA,         CD6       132
                                        *         INITIALIZES THE CHANNEL INSTRUCTIONS AND LOADS THE FIRST       CD6       133
                                        *         DISPLAY ROUTINE.                                               CD6       134
                                        *                                                                        CD6       135
                                        *         ENTRY  CPA AREA INTACT.                                        CD6       136
                                        *                DEADSTART PANEL CELLS INTACT.                           CD6       137
                                        *                                                                        CD6       138
                                        *         USES   D1, D2, D3, D4.                                         CD6       139
                                                                                                                 CD6       140
                                                                                                                 CD6       141
        6120                             INI      BSS    0                 ENTRY POINT                           CD6       142
                                                                                                                 CD6       143
                                        *         MOVE THE COMMON DRIVER FOR TAPE, *CTD*, INTO THE COMMON        CD6       144
                                        *         DRIVER AREA.                                                   CD6       145
                                                                                                                 CD6       146
        6120         2000 0607                    LDC    TCTDL                                                   CD6       147
        6122         3404                         STD    D4                LENGTH OF MOVE BLOCK                  CD6       148
        6123         5004 6237           INI1     LDM    TCTD-1,D4                                               CD6       149
        6125         5404 6777                    STM    CDEP-1,D4         MOVE DRIVER CODE                      CD6       150
        6127         3704                         SOD    D4                                                      CD6       151
        6130         0572                         NJN    INI1              IF MORE DRIVER CODE TO MOVE           CD6       152
        6131         3006                         LDD    D6                                                      CD6       153
        6132         1217                         LPN    17B                                                     CD6       154
        6133         5500 7042                    RAM    CTD1        PUT UNIT NO. IN CONNECT CODE                CD6       155
        6135         3006                         LDD    D6                                                      CD6       156
        6136         2200 7000                    LPC    7000B                                                   CD6       157
        6140         5400 7252                    STM    FCNA              EQUIPMENT NO. * 1000B                 CD6       158
                                                                                                                 CD6       159
        6142         3006                         LDD    D6                                                      CD6       160
        6143         1217                         LPN    17B               ISOLATE CHANNEL NO.                   CD6       161
        6144         5500 7400                    RAM    FMUD              FIX FORMAT UNIT DATA                  CD6       162
        6146         1217                         LPN    17B               ISOLATE CHANNEL NO.                   CD6       163
        6147         5500 7347                    RAM    FMUN              FIX 9-TRK FMT UNIT DATA               CD6       164
                                                                                                                 CD6       165
                                        *         PICK UP CHANNEL NUMBER AND STUFF CHANNELS INTO CODE USING      CD6       166
                                        *         THE CHANNEL INSTRUCTION LINK.                                  CD6       167
                                                                                                                 CD6       168
        6151         2000 7152                    LDC    AWDZ              FIRST CHANNEL INSTRUCTION             CD6       169
        6153         3402                         STD    D2                                                      CD6       170
        6154         3010                         LDD    D10               GET CHANNEL NO. FROM D/S PANEL        CD6       171
        6155         1237                         LPN    37B                                                     CD6       172
        6156         3403                         STD    D3                                                      CD6       173
        6157         1400                         LDN    0                                                       CD6       174
        6160         3502                INI2     RAD    D2                CHANNEL INST. POINTER + BIAS          CD6       175
        6161         4002                         LDI    D2                GET INSTRUCTION                       CD6       176
        6162         1237                         LPN    37B                                                     CD6       177
        6163         3404                         STD    D4                SAVE FOR NEXT INSTRUCTION             CD6       178
        6164         3003                         LDD    D3                GET CHANNEL NO.                       CD6       179
        6165         3204                         SBD    D4                SUBTRACT LINK FROM CHANNEL NO.        CD6       180
        6166         4502                         RAI    D2                ADD CHANNEL NO. - LINK TO OLD INST.   CD6       181
1       CD6         CTI 66X (MTS) TAPE DRIVER - A02                   COMPASS 3.7-871.     23/08/13. 15.42.10.      PAGE     7
        MAIN ROUTINE.                                                 CD6 
  
        6167         3004                         LDD    D4                CHECK FOR ZERO LINK (LAST INST.)      CD6       182
        6170         0567                         NJN    INI2              CONTINUE PROCESSING INSTRUCTIONS      CD6       183
  
  
  
  
                                        *         CODE TO CREATE CTI INTERNAL STATE                              CD6       185
                                                                                                                 CD6       186
        6171         7553                         DCN.   13B+40B           DISCONNECT 13B                        CD6       187
        6172         7573                         DCN.   33B+40B           DISCONNECT 33B                        CD6       188
                                                                                                                 CD6       189
        6173         6512 6221                    IJM.   INI7,12B          IF CHAN 12B IS D.S CHANNEL            CD6       190
        6175         1400                         LDN    0                 OUTPUT 0000 TO CH 12B                 CD6       191
        6176         7212                         OAN.   12B                                                     CD6       192
        6177         5600 0000                    AOM    D0                WAIT A WHILE                          CD6       193
        6201         5700 0000                    SOM    D0                                                      CD6       194
        6203         6612 6221                    FJM.   INI7,12B          IF FULL (NO PP ON CH 12B)             CD6       195
                                                                                                                 CD6       196
        6205         3003                         LDD    D3                ACTIVATE DEADSTART CHANNEL            CD6       197
        6206         5500 6210                    RAM    INIA                                                    CD6       198
        6210         7440                INIA     ACN.   40B                                                     CD6       199
                                                                                                                 CD6       200
        6211         3003                         LDD    D3                MOVE PP BACK TO D.S. CHAN             CD6       201
        6212         5500 6225                    RAM    INIC                                                    CD6       202
        6214         1403                         LDN    INIL                                                    CD6       203
        6215         7312 6224                    OAM.   INIB,12B                                                CD6       204
        6217         6612 6217                    FJM.   *,12B                                                   CD6       205
                                                                                                                 CD6       206
        6221         7552                INI7     DCN.   12B+40B           DISCONNECT 12B                        CD6       207
        6222         7572                         DCN.   32B+40B           DISCONNECT 32B                        CD6       208
        6223         0304                         UJN    INI9                                                    CD6       209
                                                                                                                 CD6       210
        6224         1400                INIB     LDN    0                                                       CD6       211
        6225         7100 0000           INIC     IAM.   0,**                                                    CD6       212
                                   3     INIL     EQU    *-INIB                                                  CD6       213
                                                                                                                 CD6       214
                                                                                                                 CD6       215
                                        *         CALL THE COMMON DRIVER TO LOAD IOQ                             CD6       216
                                        *          AND GIVE CONTROL TO IOQ.                                      CD6       217
                                                                                                                 CD6       218
        6227         2000 6233           INI9     LDC    INIR               A = ADDRESS OF PARAMS                CD6       219
        6231         0100 7000                    LJM    CDEP               GOTO COMMON DRIVER                   CD6       220
                                                                                                                 CD6       221
                                        *         PARAMETER BLOCK FOR COMMON DRIVER TO LOAD IOQ                  CD6       222
                                                                                                                 CD6       223
        6233         6000                INIR     CON    IOQB               LOAD ADDRESS                         CD6       224
        6234         6000                         CON    IOQTRAN               TRANSFER ADDRESS                  CD6       225
        6235         0000                         CON    0                  NO REWIND FIRST                      CD6       226
        6236         1117                         VFD    18/3LIOQ,6/0       NAME CHECK FIELD                     CD6       227
        6237         2100 
1       CD6         CTI 66X (MTS) TAPE DRIVER - A02                   COMPASS 3.7-871.     23/08/13. 15.42.10.      PAGE     8
        CTD - COMMON TAPE DRIVER. 
  
                                        ***       CTD - COMMON TAPE DRIVER.                                      CD6       229
                                        *                                                                        CD6       230
                                                                                                                 CD6       231
                                                                                                                 CD6       232
                                6240     TCTD     EQU    *                 FWA OF DRIVER AREA                    CD6       233
                                                                                                                 CD6       234
      L 7000                                      LOC    CDEP              BEGINNING OF COMMON DRIVER AREA       CD6       235
                                                                                                                 CD6       236
                                7000     CTD      EQU    *                  ENTRY POINT                          CD6       237
      L 7000         0302                         UJN    ENDCONS                                                 CD6       238
      L 7001         0002                         CON    D66X                                                    CD6       239
                                7002     ENDCONS  EQU    *                                                       CD6       240
      L 7002         3401                         STD    D1                 SAVE ADDRESS OF PARAMS.              CD6       241
                                                                                                                 CD6       242
      L 7003         0200 7403                    RJM    MDC                SEIZE D.S. CHANNEL.                  CD6       243
                                                                                                                 CD6       244
      L 7005         4001                         LDI    D1                INPUT BUFFER FWA                      DIMA295B    1
      L 7006         3402                         STD    D2                                                      CD6       246
      L 7007         5400 7176                    STM    PREB               PRFX READ                            CD6       247
      L 7011         5400 7230                    STM    REDB               FULL READ                            CD6       248
      L 7013         5400 7233                    STM    REDC                                                    CD6       249
      L 7015         1607                         ADN    NAME+2                                                  CD6       250
      L 7016         5400 7201                    STM    PREC               PRE BYPASS-READ                      CD6       251
      L 7020         5001 0001                    LDM    CDTA,D1            TRANSFER ADDRESS                     CD6       252
      L 7022         5400 7145                    STM    CTDZ                                                    CD6       253
      L 7024         5001 0003                    LDM    CDNC,D1            NAME CHECK FIELD                     CD6       254
      L 7026         5400 7573                    STM    NFNM                                                    CD6       256
      L 7030         5001 0004                    LDM    CDNC+1,D1                                               CD6       257
      L 7032         5400 7574                    STM    NFNM+1                                                  CD6       259
      L 7034         1412                         LDN    RETRY                                                   CD6       260
      L 7035         5400 7523                    STM    ARTC               INIT ERROR RETRY COUNTER             CD6       261
      L 7037         1436                         LDN    NFMAX                                                   CD6       262
      L 7040         5400 7524                    STM    NFCT               NO FIND COUNT LIMIT                  CD6       263
      L 7042         1420                CTD1     LDN    20B         THIS INST MODIFIED FOR CONNECT CODE         CD6       264
      L 7043         0200 7244                    RJM    FCN                                                     CD6       265
      L 7045         0200 7341                    RJM    FMU                FORMAT UNIT                          CD6       266
      L 7047         5001 0003                    LDM    CDNC,D1                                                 CD6       267
      L 7051         2300 7777                    LMC    7777B                                                   CD6       268
      L 7053         0503                         NJN    *+3                                                     CD6       269
      L 7054         0100 7144                    LJM    JUMP                                                    CD6       270
      L 7056         5001 0002                    LDM    CDRW,D1                                                 CD6       271
      L 7060         0404                         ZJN    CTD2               IF NO REWIND FIRST                   CD6       272
      L 7061         1410                         LDN    MREW                                                    CD6       273
      L 7062         0200 7452                    RJM    RBT                REWIND TAPE                          CD6       274
                                                                                                                 CD6       275
      L 7064         5001 0003           CTD2     LDM    CDNC,D1                                                 CD6       276
      L 7066         0510                         NJN    CTD3               IF READ NAMED RECORD                 CD6       277
      L 7067         3002                         LDD    D2                 ELSE READ NEXT RECORD                CD6       278
      L 7070         2100 0120                    ADC    LE77*BPW+LE6P*BPW                                       CD6       279
      L 7072         5400 7233                    STM    REDC                                                    CD6       280
      L 7074         0100 7135                    LJM    CTD7                                                    CD6       281
                                                                                                                 CD6       282
      L 7076         0200 7165           CTD3     RJM    PRE                READ PRFX TO GET NAME                CD6       283
                                                                                                                 CD6       284
                                        *         TEST IF NAMES MATCH                                            CD6       285
                                                                                                                 CD6       286
      L 7100         5002 0005                    LDM    NAME,D2                                                 CD6       287
1       CD6         CTI 66X (MTS) TAPE DRIVER - A02                   COMPASS 3.7-871.     23/08/13. 15.42.10.      PAGE     9
        CTD - COMMON TAPE DRIVER. 
  
      L 7102         5200 7573                    SBM    NFNM                                                    DIMA295B    2
      L 7104         0506                         NJN    CTD5                                                    CD6       290
      L 7105         5002 0006                    LDM    NAME+1,D2                                               CD6       291
      L 7107         5200 7574                    SBM    NFNM+1                                                  DIMA295B    3
      L 7111         0420                         ZJN    CTD6               IF NAMES MATCH                       CD6       294
                                                                                                                 CD6       295
                                        *         HERE IF NO MATCH. CHECK IF ZZZ.                                CD6       296
                                                                                                                 CD6       297
      L 7112         5700 7524           CTD5     SOM    NFCT               CHECK NOFIND COUNT                   CD6       298
      L 7114         0413                         ZJN    CTD55              IF RUNAWAY TAPE                      CD6       299
      L 7115         5002 0005                    LDM    NAME,D2                                                 CD6       300
      L 7117         2300 3232                    LMC    2RZZ                                                    CD6       301
      L 7121         0554                         NJN    CTD3                                                    CD6       302
      L 7122         5002 0006                    LDM    NAME+1,D2                                               CD6       303
      L 7124         2300 3200                    LMC    1RZ*100B                                                CD6       304
      L 7126         0547                         NJN    CTD3                                                    CD6       305
      L 7127         0100 7546           CTD55    LJM    ERNF               IF ZZZ REACHED                       CD6       306
                                                                                                                 CD6       307
                                        *         HERE TO BACKSPACE TAPE ONE RECORD.                             CD6       308
                                                                                                                 CD6       309
      L 7131         2000 0113           CTD6     LDC    MBCK                                                    CD6       310
      L 7133         0200 7452                    RJM    RBT                BACKSPACE TAPE                       CD6       311
                                                                                                                 CD6       312
                                        *         HERE TO READ DESIRED RECORD                                    CD6       313
                                                                                                                 CD6       314
      L 7135         0200 7216           CTD7     RJM    RED                FULL READ                            CD6       315
                                                                                                                 CD6       316
      L 7137         1401                         LDN    1           RELEASE UNIT                                CD6       317
      L 7140         0200 7244                    RJM    FCN                                                     CD6       318
      L 7142         0200 7432                    RJM    RDC                RESTORE D.S. CHANNEL.                CD6       319
                                                                                                                 CD6       320
                                                                                                                 CD6       321
      L 7144         0100 0000           JUMP     LJM    **                 GO TO TRANSFER ADDRESS               CD6       322
                                7145     CTDZ     EQU    *-1                                                     CD6       323
1       CD6         CTI 66X (MTS) TAPE DRIVER - A02                   COMPASS 3.7-871.     23/08/13. 15.42.10.      PAGE    10
        SUBROUTINES                                                   AWD 
  
                                        **        AWD - ACTIVATE CHANNEL AND WAIT FOR DATA.                      CD6       326
                                        *                                                                        CD6       327
                                        *         AWD ACTIVATES THE FUNCTIONED CHANNEL AND TIMES OUT A FULL      CD6       328
                                        *         CONDITION.                                                     CD6       329
                                        *                                                                        CD6       330
                                        *         EXIT   (A) .NE. 0, DATA ON CHANNEL.                            CD6       331
                                        *                (A) = 0, NO DATA RECEIVED, CHANNEL DISCONNECTED.        CD6       332
                                                                                                                 CD6       333
                                                                                                                 CD6       334
      L 7146         0100 0000           AWD      ENM    X                 ENTRY/EXIT                            CD6       335
      L 7150         2021 0560                    LDC    TIMEOUT                                                 CD6       336
                                                                                                                 CD6       337
                                        ****                                                                     CD6       338
                                        *         THE FOLLOWING IS THE FIRST CHANNEL INSTRUCTION IN *CD6* AND    CD6       339
                                        *         IS USED IN DEFINING THE LINKED CHANNEL LIST.  IF THE FIRST     CD6       340
                                        *         CHANNEL INSTRUCTION IS MOVED, BE SURE TO ADJUST THE CHANNEL    CD6       341
                                        *         REPLACEMENT SECTION IN *INI*.                                  CD6       342
                                                                                                                 CD6       343
      L 7152                             AWDZ     BSS    0                 FIRST CHANNEL INSTRUCTION             CD6       344
                                                                                                                 CD6       345
      L 7152         7441                         ACN    40B               ACTIVATE CHANNEL                      CD6       346
                                                                                                                 CD6       347
                                        ****                                                                     CD6       348
                                                                                                                 CD6       349
      L 7153         6604 7146           AWD1     FJM    AWDX,0            IF FULL, RETURN                       CD6       350
      L 7155         1701                         SBN    1                                                       CD6       351
      L 7156         0574                         NJN    AWD1              IF TIME OUT NOT EXPIRED               CD6       352
      L 7157         7556                         DCN    40B               DISCONNECT                            CD6       353
      L 7160         0365                         UJN    AWDX              RETURN                                CD6       354
  
  
  
  
                                        **        PRE - READ ENOUGH TO GET THE NAME                              CD6       356
                                        *                                                                        CD6       357
                                        *         RETURN TO CALLER IF NO ERRORS                                  CD6       358
                                        *         ELSE GO TO ERROR PROCESSING                                    CD6       359
                                                                                                                 CD6       360
      L 7161         0200 7515           PRE1     RJM    ART               ASK TO RETRY                          CD6       361
      L 7163         0303                         UJN    PRE3              TRY AGAIN                             CD6       362
                                                                                                                 CD6       363
      L 7164         0100 0000           PRE      ENM    X                 ENTRY/EXIT                            CD6       364
      L 7166         1440                PRE3     LDN    MRFW              READ FORWARD                          CD6       365
      L 7167         0200 7244           PRE4     RJM    FCN               ISSUE FUNCTION                        CD6       366
      L 7171         0200 7147                    RJM    AWD               ACTIVATE AND WAIT FOR DATA            CD6       367
      L 7173         0465                         ZJN    PRE1              IF NO DATA COMING                     CD6       368
      L 7174         1407                         LDN    NAME+2            LENGTH TO INCLUDE NAME                CD6       369
      L 7175         7103 0000                    IAM    **,0              READ TABLES                           CD6       370
                                7176     PREB     EQU    *-1                                                     CD6       371
                                                                                                                 CD6       372
      L 7177         1477                PRE5     LDN    77B               BYPASS REST OF RECORD                 CD6       373
      L 7200         7103 0000                    IAM    **,0                                                    CD6       374
                                7201     PREC     EQU    *-1                                                     CD6       375
      L 7202         0474                         ZJN    PRE5                                                    CD6       376
      L 7203         7564                         DCN    40B                                                     CD6       377
      L 7204         0200 7464                    RJM    CHK               CHECK STATUS AFTER READ               CD6       378
      L 7206         0757                         MJN    PRE3              IF TO RETRY READ                      CD6       379
1       CD6         CTI 66X (MTS) TAPE DRIVER - A02                   COMPASS 3.7-871.     23/08/13. 15.42.10.      PAGE    11
        SUBROUTINES                                                   PRE 
  
      L 7207         0554                         NJN    PREX              IF NO ERRORS                          CD6       380
      L 7210         1441                         LDN    MRRF              REREAD FORWARD FUNCTION               CD6       381
      L 7211         0355                         UJN    PRE4                                                    CD6       382
  
  
  
  
                                        **        RED - READ FULL RECORD                                         CD6       384
                                        *                                                                        CD6       385
                                        *         RETURN TO CALLER IF NO ERRORS                                  CD6       386
                                        *         ELSE GO TO ERROR PROCESSING                                    CD6       387
                                                                                                                 CD6       388
      L 7212         0200 7515           RED1     RJM    ART               ASK TO RETRY                          CD6       389
      L 7214         0303                         UJN    RED3              TRY AGAIN                             CD6       390
                                                                                                                 CD6       391
      L 7215         0100 0000           RED      ENM    X                 ENTRY/EXIT                            CD6       392
      L 7217         1440                RED3     LDN    MRFW              READ FORWARD                          CD6       393
      L 7220         0200 7244           RED4     RJM    FCN               ISSUE FUNCTION                        CD6       394
      L 7222         0200 7147                    RJM    AWD               ACTIVATE AND WAIT FOR DATA            CD6       395
      L 7224         0465                         ZJN    RED1              IF NO DATA COMING                     CD6       396
      L 7225         2000 0120                    LDC    LE77*BPW+LE6P*BPW TABLES LENGTH                         CD6       397
      L 7227         7103 0000                    IAM    **,0              READ TABLES                           CD6       398
                                7230     REDB     EQU    *-1                                                     CD6       399
      L 7231         1400                         LDN    0                                                       CD6       400
      L 7232         7102 0000                    IAM    **,0              READ REST OF RECORD                   CD6       401
                                7233     REDC     EQU    *-1                                                     CD6       402
      L 7234         7557                         DCN    40B                                                     CD6       403
      L 7235         0200 7464                    RJM    CHK               CHECK STATUS AFTER READ               CD6       404
      L 7237         0757                         MJN    RED3              IF OK TO RETRY                        CD6       405
      L 7240         0554                         NJN    REDX              IF NO ERRORS                          CD6       406
      L 7241         1441                         LDN    MRRF              REREAD FORWARD FUNCTION               CD6       407
      L 7242         0355                         UJN    RED4                                                    CD6       408
  
  
  
  
                                        **        FCN - FUNCTION DEVICE.                                         CD6       410
                                        *                                                                        CD6       411
                                        *         ENTRY  (A) = FUNCTION CODE.                                    CD6       412
                                        *                (FCNA) = EQUIPMENT NO. * 1000B.                         CD6       413
                                        *                                                                        CD6       414
                                        *         RETURNS TO CALLER IF NO ERRORS                                 CD6       415
                                        *         ELSE GO TO ERROR PROCESSOR.                                    CD6       416
                                                                                                                 CD6       417
                                                                                                                 CD6       418
      L 7243         0100 0000           FCN      ENM    X                 ENTRY/EXIT                            CD6       419
      L 7245         5400 7250                    STM    FCNF              SAVE FUNCTION CODE                    CD6       420
      L 7247         2000 7247           FCN3     LDC    *                                                       DIMA295B    4
                                7250     FCNF     EQU    *-1                                                     DIMA295B    5
      L 7251         2100 0000                    ADC    0                 ADD IN EQUIPMENT NO.                  CD6       422
                                7252     FCNA     EQU    *-1               EQUIPMENT NO. * 1000B                 CD6       423
      L 7253         7603                         FAN    0                 ISSUE FUNCTION                        CD6       424
                                                                                                                 CD6       425
      L 7254         2021 0560                    LDC    TIMEOUT                                                 CD6       426
      L 7256         6504 7243           FCN1     IJM    FCNX,0            IF FUNCTION ACCEPTED, RETURN          CD6       427
      L 7260         1701                         SBN    1                                                       CD6       428
      L 7261         0574                         NJN    FCN1              IF TIMEOUT NOT EXPIRED                CD6       429
1       CD6         CTI 66X (MTS) TAPE DRIVER - A02                   COMPASS 3.7-871.     23/08/13. 15.42.10.      PAGE    12
        SUBROUTINES                                                   FCN 
  
      L 7262         7561                         DCN    40B                                                     CD6       430
      L 7263         0200 7515                    RJM    ART               ASK TO RETRY                          CD6       431
      L 7265         0361                         UJN    FCN3              TRY AGAIN                             CD6       432
                                                                                                                 CD6       433
  
  
  
  
                                        **        GDS - GET DETAIL STATUS.                                       CD6       436
                                        *                                                                        CD6       437
                                        *         GDS GETS DETAIL STATUS FROM MTS EQUIPMENT.                     CD6       438
                                        *                                                                        CD6       439
                                        *         CALLS  FCN, AWD.                                               CD6       440
                                        *                                                                        CD6       441
                                                                                                                 CD6       442
                                                                                                                 CD6       443
      L 7266         0200 7515           GDS2     RJM    ART               ASK TO RETRY                          CD6       444
      L 7270         0303                         UJN    GDS3              TRY AGAIN                             CD6       445
                                                                                                                 CD6       446
      L 7271         0100 0000           GDS      ENM    X                 ENTRY/EXIT                            CD6       447
      L 7273         2000 0112           GDS3     LDC    MDST              MTS DETAIL STATUS FUNCTION            CD6       448
      L 7275         0200 7244                    RJM    FCN               FUNCTION DEVICE                       CD6       449
      L 7277         0200 7147                    RJM    AWD               ACTIVATE AND WAIT FOR DATA            CD6       450
      L 7301         0464                         ZJN    GDS2              IF NO DATA COMING                     CD6       451
      L 7302         1410                         LDN    MDBL              BLOCK LENGTH                          CD6       452
      L 7303         7102 7307                    IAM    GDSA,0            INPUT STATUS FROM CONTROLLER          CD6       453
      L 7305         7565                         DCN    40B               DISCONNECT CHANNEL                    CD6       454
      L 7306         0362                         UJN    GDSX              RETURN                                CD6       455
                                                                                                                 CD6       456
      L 7307                      10     GDSA     BSSZ   MDBL                                                    CD6       457
  
  
  
  
                                        **        GUS - GET GENERAL/UNIT STATUS.                                 CD6       459
                                        *                                                                        CD6       460
                                        *         GUS ISSUES THE MTS GENERAL STATUS FUNCTION AND UPDATES         CD6       461
                                        *         THE  FIELD *CDGS*. THE STATUS IS ALSO RETURNED IN (A).         CD6       462
                                        *                                                                        CD6       463
                                        *         EXIT   (CDGS) = GENERAL/UNIT STATUS REPLY.                     CD6       464
                                        *                (A) = GENERAL/UNIT STATUS REPLY.                        CD6       465
                                        *                IF STATUS = 0, NO ERRORS.                               CD6       466
                                        *                                                                        CD6       467
                                                                                                                 CD6       468
      L 7317         0200 7515           GUS2     RJM    ART               ASK TO RETRY                          CD6       469
      L 7321         0303                         UJN    GUS3              TRY AGAIN                             CD6       470
                                                                                                                 CD6       471
      L 7322         0100 0000           GUS      ENM    X                 ENTRY/EXIT                            CD6       472
      L 7324         1412                GUS3     LDN    MGST                                                    CD6       473
      L 7325         0200 7244                    RJM    FCN               FUNCTION DEVICE                       CD6       474
      L 7327         0200 7147                    RJM    AWD               ACTIVATE AND WAIT FOR DATA            CD6       475
      L 7331         0465                         ZJN    GUS2              IF NO DATA COMING                     CD6       476
      L 7332         7003                         IAN    0                 READ STATUS                           CD6       477
      L 7333         5400 7337                    STM    CDGS                                                    CD6       478
      L 7335         7561                         DCN    40B                                                     CD6       479
      L 7336         0363                         UJN    GUSX              RETURN                                CD6       480
                                                                                                                 CD6       481
1       CD6         CTI 66X (MTS) TAPE DRIVER - A02                   COMPASS 3.7-871.     23/08/13. 15.42.10.      PAGE    13
        SUBROUTINES                                                   GUS 
  
      L 7337         0000                CDGS     CON    0                 GENERAL STATUS WORD                   CD6       482
  
  
  
  
                                        **        FMU - FORMAT UNIT                                              CD6       484
                                        *                                                                        CD6       485
                                        *         RETURNS TO CALLER IF NO ERRORS                                 CD6       486
                                        *         ELSE GO TO ERROR PROCESSOR                                     CD6       487
                                        *                                                                        CD6       488
                                                                                                                 CD6       489
      L 7340         0100 0000           FMU      ENM    X                 ENTRY/EXIT                            CD6       490
      L 7342         0200 7323                    RJM    GUS               GET GENERAL STATUS                    CD6       491
      L 7344         1013                         SHN    SL.GSUT           ISOLATE 9-TRACK BIT                   CD6       492
      L 7345         0605                         PJN    FMU2              IF 7-TRACK                            CD6       493
      L 7346         2000 4260                    LDC    4260B             FUNCTION PACKED MODE                  CD6       494
                                7347     FMUN     EQU    *-1                                                     CD6       495
      L 7350         5400 7400                    STM    FMUD              REPLACE FORMAT FUNCTION               CD6       496
      L 7352         1430                FMU2     LDN    MFMT              FORMAT UNIT FUNCTION                  CD6       497
      L 7353         0200 7244                    RJM    FCN               ISSUE FUNCTION                        CD6       498
      L 7355         1402                         LDN    2                 WORD COUNT                            CD6       499
      L 7356         7401                         ACN    0                 ACTIVATE CHANNEL                      CD6       500
      L 7357         7304 7400                    OAM    FMUD,0            OUTPUT FORMAT DATA                    CD6       501
      L 7361         2021 0560                    LDC    TIMEOUT                                                 CD6       502
      L 7363         6707 7372           FMU3     EJM    FMU5,0            WAIT FOR EMPTY                        CD6       503
      L 7365         1701                         SBN    1                                                       CD6       504
      L 7366         0574                         NJN    FMU3              IF NOT TIMED OUT YET                  CD6       505
      L 7367         0200 7515           FMU4     RJM    ART               ASK FOR RETRY PERMISSION              CD6       506
      L 7371         0360                         UJN    FMU2              RETRY                                 CD6       507
      L 7372         7512                FMU5     DCN    0                                                       CD6       508
      L 7373         0200 7323                    RJM    GUS               GET GENERAL STATUS                    CD6       509
      L 7375         1006                         SHN    SL.GSAL                                                 CD6       510
      L 7376         0641                         PJN    FMUX              IF FORMAT OK                          CD6       511
      L 7377         0367                         UJN    FMU4              ELSE RETRY                            CD6       512
                                                                                                                 CD6       513
      L 7400         4220                FMUD     CON    FW0V              UNIT MUST BE ADDED IN                 CD6       514
      L 7401         6540                         CON    FW1V                                                    CD6       515
  
  
  
  
                                        **        MDC - MOVE DEADSTART CHANNEL PP                                CD6       517
                                        *                                                                        CD6       518
                                        *         IF THE DEADSTART CHANNEL IS ACTIVE,                            CD6       519
                                        *           MOVE PP(D.S. CHAN) OVER TO CHANNEL 12B.                      CD6       520
                                        *                                                                        CD6       521
                                                                                                                 CD6       522
      L 7402         0100 0000           MDC      ENM    X                 ENTRY/EXIT                            CD6       523
      L 7404         6503 7402                    IJM    MDCX,0            IF D.S. CHAN INACTIVE                 CD6       524
      L 7406         1400                         LDN    0                                                       DIMA357B    1
      L 7407         7202                         OAN    0                 OUTPUT ZERO WORD                      DIMA357B    2
      L 7410         4000                         LDI    0                 DELAY 3 MEMORY CYCLES                 DIMA357B    3
      L 7411         6702 7415                    EJM    MDC1A,0           IF WORD PICKED UP                     DIMA357B    4
      L 7413         7504                         DCN    0                 CLEAR CHANNEL OF DATA                 DIMA357B    5
      L 7414         0365                         UJN    MDCX              RETURN TO CALLER                      DIMA357B    6
      L 7415                             MDC1A    BSS    0                                                       DIMA357B    7
      L 7415         7412                         ACN.   12B               ACTIVATE CHAN 12B                     CD6       525
1       CD6         CTI 66X (MTS) TAPE DRIVER - A02                   COMPASS 3.7-871.     23/08/13. 15.42.10.      PAGE    14
        SUBROUTINES 
  
      L 7416         1404                         LDN    MDCL              OUTPUT PROG TO PP(D.S. CHAN)          CD6       526
      L 7417         7302 7425                    OAM    MDCA,0                                                  CD6       527
      L 7421         6602 7421                    FJM    *,0                                                     CD6       528
      L 7423         7512                         DCN    0                                                       CD6       529
      L 7424         0355                         UJN    MDCX              RETURN                                CD6       530
                                                                                                                 CD6       531
      L 7425         0000                MDCA     CON    DEBUG                                                   CD6       532
      L 7426                                      BSSZ   DEBUG                                                   CD6       533
      L 7426         1400                         LDN    0                                                       CD6       534
      L 7427         7112 0000                    IAM.   0,12B                                                   CD6       535
                                                  IFGT   DEBUG,0,3                                               CD6       536
                                   4     MDCL     EQU    *-MDCA                                                  CD6       540
  
  
  
  
                                        **        RDC - RESET DEADSTART CHANNEL PP                               CD6       542
                                        *                                                                        CD6       543
                                        *         IF CHANNEL 12B ACTIVE,                                         CD6       544
                                        *           MOVE PP ON CHAN 12B BACK TO D.S. CHAN.                       CD6       545
                                        *                                                                        CD6       546
                                                                                                                 CD6       547
      L 7431         0100 0000           RDC      ENM    X                 ENTRY/EXIT                            CD6       548
      L 7433         6512 7431                    IJM.   RDCX,12B          IF CHAN 12B INACTIVE                  CD6       549
      L 7435         7412                         ACN    0                 ACTIVATE D.S. CHANNEL                 CD6       550
      L 7436         1404                         LDN    RDCL              OUTPUT PROG TO CHANNEL 12B            CD6       551
      L 7437         7312 7445                    OAM.   RDCA,12B                                                CD6       552
      L 7441         6612 7441                    FJM.   *,12B                                                   CD6       553
      L 7443         7512                         DCN.   12B                                                     CD6       554
      L 7444         0364                         UJN    RDCX              RETURN                                CD6       555
                                                                                                                 CD6       556
      L 7445         0000                RDCA     CON    DEBUG                                                   CD6       557
      L 7446                                      BSSZ   DEBUG                                                   CD6       558
      L 7446         1400                         LDN    0                                                       CD6       559
      L 7447         7100 0000                    IAM    0,0                                                     CD6       560
                                                  IFGT   DEBUG,0,3                                               CD6       561
                                   4     RDCL     EQU    *-RDCA                                                  CD6       565
  
  
  
  
                                        **        RBT - REWIND/BACKSPACE TAPE                                    CD6       567
                                        *                                                                        CD6       568
                                        *         ENTRY  (A) = FUNCTION CODE                                     CD6       569
                                        *                                                                        CD6       570
                                        *         CALLS FCN                                                      CD6       571
                                                                                                                 CD6       572
      L 7451         0100 0000           RBT      ENM    X                 ENTRY/EXIT                            CD6       573
      L 7453         0200 7244                    RJM    FCN                                                     CD6       574
      L 7455         0200 7323           RBT1     RJM    GUS               GET GENERAL STATUS                    CD6       575
      L 7457         1202                         LPN    MP.GSUB                                                 CD6       576
      L 7460         0574                         NJN    RBT1              IF STILL BUSY                         CD6       577
      L 7461         0367                         UJN    RBTX              RETURN                                CD6       578
1       CD6         CTI 66X (MTS) TAPE DRIVER - A02                   COMPASS 3.7-871.     23/08/13. 15.42.10.      PAGE    15
        SUBROUTINES 
  
                                        **        CHK - CHECK RESULTS/STATUS AFTER A READ OPERATION              CD6       580
                                        *                                                                        CD6       581
                                        *         RETURNS TO CALLER IF NO ERRORS                                 CD6       582
                                        *         ELSE IF RECOVERABLE ERROR BACKSPACE AND RETURN                 CD6       583
                                        *              ELSE GO TO ERROR PROCESSING                               CD6       584
                                        *                                                                        CD6       585
                                        *         (A) .GT. 0 IF NO ERRORS                                        CD6       586
                                        *         (A) .EQ. 0 IF NOISE RECORD JUST READ. CALLER SHOULD            CD6       587
                                        *                    ISSUE REREAD FUNCTION AND CONTINUE.                 CD6       588
                                        *         (A) .LT. 0 IF ERROR BUT CALLER SHOULD RETRY READ.              CD6       589
                                        *                                                                        CD6       590
                                                                                                                 CD6       591
      L 7462         1400                CHK1     LDN    0                 SET RETURN CODE FOR NOISE RECORD      CD6       592
                                                                                                                 CD6       593
      L 7463         0100 0000           CHK      ENM    X                 ENTRY/EXIT                            CD6       594
      L 7465         0200 7323                    RJM    GUS               GET GENERAL STATUS                    CD6       595
      L 7467         1011                         SHN    SL.GSNO                                                 CD6       596
      L 7470         0771                         MJN    CHK1              IF NOISE RECORD                       CD6       597
      L 7471         1017                         SHN    18+SL.GSAL-SL.GSNO                                      CD6       598
      L 7472         0703                         MJN    CHK3              IF ALERT SET                          CD6       599
      L 7473         1401                CHK2     LDN    1                 IF NO ERRORS                          CD6       600
      L 7474         0366                         UJN    CHKX                                                    CD6       601
      L 7475         0200 7272           CHK3     RJM    GDS               GET DETAILED STATUS                   CD6       602
      L 7477         5000 7307                    LDM    GDSA+MDAC         1ST WORD OF D.S.                      CD6       603
      L 7501         2200 5077                    LPC    5077B                                                   CD6       604
      L 7503         0467                         ZJN    CHK2              IF 0, BLOCK PROBABLY OK               CD6       605
      L 7504         0200 7515           CHK5     RJM    ART               ASK TO RETRY                          CD6       606
      L 7506         2000 0113                    LDC    MBCK                                                    CD6       607
      L 7510         0200 7452                    RJM    RBT               BACKSPACE TAPE                        CD6       608
      L 7512         1500                         LCN    0                                                       CD6       609
      L 7513         0347                         UJN    CHKX              RETURN                                CD6       610
  
  
  
  
                                        **        ART - ADJUST RETRY COUNTER                                     CD6       612
                                        *                                                                        CD6       613
                                        *         DECREMENT COUNTER AND                                          CD6       614
                                        *         RETURN TO CALLER IF COUNTER .GE. 0                             CD6       615
                                        *         ELSE GO TO ERROR PROCESSOR                                     CD6       616
                                        *                                                                        CD6       617
                                                                                                                 CD6       618
      L 7514         0100 0000           ART      ENM    X                 ENTRY/EXIT                            CD6       619
      L 7516         5700 7523                    SOM    ARTC                                                    CD6       620
      L 7520         0673                         PJN    ARTX              EXIT IF MORE RETRIES AVAILABLE        CD6       621
      L 7521         0100 7525                    LJM    ERIO              IF NO MORE RETRIES AVAILABLE          CD6       622
                                                                                                                 CD6       623
      L 7523         0000                ARTC     CON    0                 RETRY COUNTER                         CD6       624
                                                                                                                 CD6       625
      L 7524         0000                NFCT     CON    0                 NOFIND COUNTER                        CD6       626
1       CD6         CTI 66X (MTS) TAPE DRIVER - A02                   COMPASS 3.7-871.     23/08/13. 15.42.10.      PAGE    16
        SUBROUTINES 
  
                                        **        ERROR PROCESSING                                               CD6       628
                                        *                                                                        CD6       629
                                        *         ERIO IS ENTERED IF AN UNRECOVERABLE I/0 ERROR                  CD6       630
                                        *         HAS OCCURRED.  ERNF IS ENTERED IF A REQUEST TO                 CD6       631
                                        *         READ A NAMED RECORD WAS MADE BUT THE RECORD                    CD6       632
                                        *         COULD NOT BE FOUND.  FOR EITHER ERROR, A MESSAGE               CD6       633
                                        *         IS PUT ON THE DISPLAY AND THE PP IS HUNG IN A LOOP             CD6       634
                                        *         OUTPUTTING THE ERROR MESSAGE.                                  CD6       635
                                                                                                                 CD6       636
                                7525     ERIO     EQU    *                 BUILD ERROR MSG                       CD6       637
      L 7525         5000 7337                    LDM    CDGS              GENERAL STATUS                        CD6       638
      L 7527         0200 7576                    RJM    CTO                                                     CD6       639
      L 7531         5400 7574                    STM    IOMGS+1                                                 CD6       640
      L 7533         5000 7337                    LDM    CDGS                                                    CD6       641
      L 7535         1071                         SHN    -6                                                      CD6       642
      L 7536         0200 7576                    RJM    CTO                                                     CD6       643
      L 7540         5400 7573                    STM    IOMGS+0                                                 CD6       644
      L 7542         2000 0723                    LDC    2RGS                                                    CD6       645
      L 7544         5400 7571                    STM    NFMB              CHANGE 1ST BYTE OF MSG TO *GS*        CD6       646
                                                                                                                 CD6       647
                                7546     ERNF     EQU    *                 ENTRY WHEN NOFIND                     CD6       648
                                                                                                                 CD6       649
                                        *         IDLE PP 10                                                     CD6       650
      L 7546         6610 7553                    FJM.   IDLEDCN,CHD                                             CD6       651
      L 7550         1402                         LDN    IDLL                                                    CD6       652
      L 7551         7310 7565                    OAM.   IDLA,CHD          SEND IDLE PROGRAM                     CD6       653
      L 7553         7550                IDLEDCN  DCN.   CHD+40B           FREE DISPLAY CHANNEL                  CD6       654
                                                                                                                 CD6       655
                                        *         PAINT DISPLAY                                                  CD6       656
                                                                                                                 CD6       657
      L 7554         7710 7002                    FNC.   F.SEL+F.SLS+F.CHR+F.CHL,CHD                             CD6       658
      L 7556         7410                         ACN.   CHD                                                     CD6       659
                                                                                                                 CD6       660
      L 7557         1406                ERR8     LDN    NFML                                                    CD6       661
      L 7560         7310 7567                    OAM.   NFM,CHD           OUTPUT ERROR MSG                      CD6       662
      L 7562         1740                ERR9     SBN    40B                                                     DIMA295B    6
      L 7563         0776                         MJN    ERR9                                                    DIMA295B    7
      L 7564         0372                         UJN    ERR8              HANG IN OUTPUT LOOP                   CD6       663
                                                                                                                 CD6       664
      L 7565         0000                IDLA     CON    0                 PP 10 IDLE PROGRAM                    CD6       665
      L 7566         0300                         CON    UJNC              HANG                                  CD6       666
                                   2     IDLL     EQU    *-IDLA            LENGTH OF IDLE PROGRAM                CD6       667
                                                                                                                 CD6       668
                                  22     DOPLS    EQU    22B               LINE (Y COOR) INCREMENT VALUE         CD6       669
                                                                                                                 CD6       670
                                                                                                                 CD6       671
                                7567     NFM      EQU    *                 NOFIND ERROR MESSAGE                  CD6       672
                                                                                                                 CD6       673
      L 7567         7400                         CON    7400B                                                   CD6       674
      L 7570         6000                         CON    XSET                                                    CD6       675
      L 7571         1615                NFMB     DATA   H*NM= NNNN*                                             CD6       676
                                7573     NFNM     EQU    NFMB+2                                                  CD6       677
                                7573     IOMGS    EQU    NFNM                                                    CD6       678
                                                                                                                 CD6       679
                                   6     NFML     EQU    *-NFM             MESSAGE LENGTH                        CD6       680
1       CD6         CTI 66X (MTS) TAPE DRIVER - A02                   COMPASS 3.7-871.     23/08/13. 15.42.10.      PAGE    17
        SUBROUTINES 
  
                                        **        CTO - CONVERT TO OCTAL DISPLAY                                 CD6       682
                                        *                                                                        CD6       683
                                        *         ENTRY  (A) LOWER 6 BITS ARE VALUE TO BE CONVERTED              CD6       684
                                        *                                                                        CD6       685
                                        *         EXIT   LOWER 12 BITS OF (A) ARE RESULT.                        CD6       686
                                        *                                                                        CD6       687
                                        *         USES   D2                                                      CD6       688
                                                                                                                 CD6       689
      L 7575         0100 0000           CTOX     LJM    0                 EXIT                                  CD6       690
                                7576     CTO      EQU    *-1               ENTRY                                 CD6       691
      L 7577         1277                         LPN    77B               ISOLATE LOWER 6 BITS                  CD6       692
      L 7600         3402                         STD    D2                                                      CD6       693
      L 7601         1003                         SHN    3                                                       CD6       694
      L 7602         3302                         LMD    D2                                                      CD6       695
      L 7603         1370                         SCN    70B                                                     CD6       696
      L 7604         2100 3333                    ADC    2R00                                                    CD6       697
      L 7606         0366                         UJN    CTOX              RETURN                                CD6       698
  
  
  
  
                                        **        END OF COMMON TAPE DRIVER AND SUBROUTINES.                     CD6       700
                                        *                                                                        CD6       701
                                        *         THE FOLLOWING SYMBOLS ARE DEFINED FOR MOVING *CTD* INTO THE    CD6       702
                                        *         COMMON DRIVER AREA.                                            CD6       703
                                        *                                                                        CD6       704
                                        *         TCTD   FWA OF COMMON TAPE DRIVER.                              CD6       705
                                        *         LCTD   LWA+1 OF COMMON TAPE DRIVER.                            CD6       706
                                        *         TCTDL  LENGTH OF COMMON TAPE DRIVER.                           CD6       707
                                        *                                                                        CD6       708
                                                                                                                 CD6       709
                                                                                                                 CD6       710
                                  51              ERRNG  CPAFWA-*          OVERFLOWED INTO POINTER AREA          CD6       711
                                                                                                                 CD6       712
        7047                                      LOC    *O                                                      CD6       713
                                                                                                                 CD6       714
                                7047     LCTD     EQU    *                                                       CD6       715
                                 607     TCTDL    EQU    LCTD-TCTD         LENGTH OF DRIVER                      CD6       716
  
  
  
  
                                        *         OVERFLOW CHECK.                                                CD6       718
                                                                                                                 CD6       719
                                 352              ERRNG  IPLFWA-*          OVERFLOWED INTO IPL                   CD6       720
                                                                                                                 CD6       721
        7047                                      END                                                            CD6       722
  
                             55300B CM  STORAGE USED             1653 STATEMENTS      612 SYMBOLS      000068 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            1.609 SECONDS         597 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ACNC         7400                   3/48 D
        ADCC         2100                   3/43 D
1       CD6         CTI 66X (MTS) TAPE DRIVER - A02                   COMPASS 3.7-871.     23/08/13. 15.42.10.      PAGE    18
        SYMBOLIC REFERENCE TABLE. 
  
        AJMC         6400                   3/46 D
        ART          7515                  10/39     11/13     12/02     12/17     12/45     13/28     15/27     15/43 D
        ARTC         7523                   8/31 S   15/44 S   15/48 L
        ARTX         7514                  15/43 L   15/45
        AWD          7147                  10/10 D   10/45     11/19     12/23     12/51
        AWDX         7146                  10/10 L   10/25     10/29
        AWDZ         7152                   6/45     10/19 L
        AWD1         7153                  10/25 L   10/27
        BPW             5                   8/49     11/21
        CDEP         7000                   6/26 S    7/42      8/07
        CDGS         7337                  12/54 S   13/01 L   16/11     16/14
        CDNC            3                   8/26      8/28      8/37      8/46
        CDNFMAX        36                   5/11
        CDRW            2                   8/41
        CDTA            1                   8/24
        CHD            10                   4/21 D   16/24     16/26     16/27     16/31     16/32     16/35
        CHK          7464                  10/56     11/28     15/15 D
        CHKX         7463                  15/15 L   15/22     15/31
        CHK1         7462                  15/13 L   15/18
        CHK2         7473                  15/21 L   15/26
        CHK3         7475                  15/20     15/23 L
        CHK5         7504                  15/27 L
        CH01$        7152                  10/21 D
        CH02$        7153                  10/21     10/21     10/25 D
        CH03$        7157                  10/25     10/25     10/28 D
        CH04$        7175                  10/28     10/28     10/48 D
        CH05$        7200                  10/48     10/48     10/52 D
        CH06$        7203                  10/52     10/52     10/55 D
        CH07$        7227                  10/55     10/55     11/22 D
        CH08$        7232                  11/22     11/22     11/25 D
        CH09$        7234                  11/25     11/25     11/27 D
        CH10$        7253                  11/27     11/27     11/52 D
        CH11$        7256                  11/52     11/52     11/55 D
        CH12$        7262                  11/55     11/55     12/01 D
        CH13$        7303                  12/01     12/01     12/26 D
        CH14$        7305                  12/26     12/26     12/27 D
        CH15$        7332                  12/27     12/27     12/53 D
        CH16$        7335                  12/53     12/53     12/55 D
        CH17$        7356                  12/55     12/55     13/22 D
        CH18$        7357                  13/22     13/22     13/23 D
        CH19$        7363                  13/23     13/23     13/25 D
        CH1$           36                  10/21 D   10/48 D   11/25 D   12/01 D   12/55 D   13/30 D   13/54 D   14/25 D
                                           10/21     10/52     11/27     12/26     13/22     13/49     14/02     14/35
                                           10/21 D   10/52 D   11/27 D   12/26 D   13/22 D   13/49 D   14/02 D   14/35 D
                                           10/25     10/55     11/52     12/27     13/23     13/51     14/03
                                           10/25 D   10/55 D   11/52 D   12/27 D   13/23 D   13/51 D   14/03 D
                                           10/28     11/22     11/55     12/53     13/25     13/53     14/04
                                           10/28 D   11/22 D   11/55 D   12/53 D   13/25 D   13/53 D   14/04 D
                                           10/48     11/25     12/01     12/55     13/30     13/54     14/25
        CH20$        7372                  13/25     13/25     13/30 D
        CH21$        7404                  13/30     13/30     13/49 D
        CH22$        7407                  13/49     13/49     13/51 D
        CH23$        7411                  13/51     13/51     13/53 D
        CH24$        7413                  13/53     13/53     13/54 D
        CH25$        7417                  13/54     13/54     14/02 D
        CH26$        7421                  14/02     14/02     14/03 D
        CH27$        7423                  14/03     14/03     14/04 D
1       CD6         CTI 66X (MTS) TAPE DRIVER - A02                   COMPASS 3.7-871.     23/08/13. 15.42.10.      PAGE    19
        SYMBOLIC REFERENCE TABLE. 
  
        CH28$        7435                  14/04     14/04     14/25 D
        CH29$        7447                  14/25     14/25     14/35 D
        CH30$        7447                  14/35     14/35     17/46 D
        CPAFWA       7660                  17/33
        CTD          7000                   8/09 D
        CTDZ         7145                   8/25 S    9/34 D
        CTD1         7042                   6/31 S    8/34 L
        CTD2         7064                   8/42      8/46 L
        CTD3         7076                   8/47      8/53 L    9/13      9/16
        CTD5         7112                   9/02      9/09 L
        CTD55        7127                   9/10      9/17 L
        CTD6         7131                   9/05      9/21 L
        CTD7         7135                   8/51      9/26 L
        CTO          7576                  16/12     16/16     17/10 D
        CTOX         7575                  17/09 L   17/17
        DCNC         7500                   3/49 D
        DEBUG           0                   4/11 D   14/07     14/08     14/32     14/33
        DOPLS          22                  16/44 D
        D0              0                   3/08 D    7/15 S    7/16 S
        D1              1                   3/09 D    8/17      8/26      8/37      8/46
                                            8/13 S    8/24      8/28      8/41
        D10            10                   3/19 D    6/47
        D11            11                   3/20 D
        D12            12                   3/21 D
        D13            13                   3/22 D
        D14            14                   3/23 D
        D15            15                   3/24 D
        D16            16                   3/25 D
        D17            17                   3/26 D
        D2              2                   3/10 D    6/51 S    6/57 I    8/48      9/03      9/14     17/14
                                            6/46 S    6/52      8/18 S    8/57      9/11     17/12 S
        D20            20                   3/27 D
        D3              3                   3/11 D    6/49 S    6/55      7/19      7/23
        D4              4                   3/12 D    6/24 S    6/25      6/26      6/27 S    6/54 S    6/56      7/01
        D5              5                   3/13 D
        D6              6                   3/14 D    6/29      6/32      6/36
        D66X            2                   8/11
        D7              7                   3/17 D
        ENDCONS      7002                   8/10      8/12 D
        ERIO         7525                  15/46     16/10 D
        ERNF         7546                   9/17     16/21 D
        ERR8         7557                  16/34 L   16/38
        ERR9         7562                  16/36 L   16/37
        FCN          7244                   8/35     10/44     11/46 D   12/50     14/49
                                            9/29     11/18     12/22     13/20
        FCNA         7252                   6/34 S   11/51 D
        FCNF         7250                  11/47 S   11/49 D
        FCNX         7243                  11/46 L   11/55
        FCN1         7256                  11/55 L   11/57
        FCN3         7247                  11/48 L   12/03
        FMU          7341                   8/36     13/12 D
        FMUD         7400                   6/38 S   13/18 S   13/23     13/36 L
        FMUN         7347                   6/40 S   13/17 D
        FMUX         7340                  13/12 L   13/33
        FMU2         7352                  13/15     13/19 L   13/29
        FMU3         7363                  13/25 L   13/27
        FMU4         7367                  13/28 L   13/34
1       CD6         CTI 66X (MTS) TAPE DRIVER - A02                   COMPASS 3.7-871.     23/08/13. 15.42.10.      PAGE    20
        SYMBOLIC REFERENCE TABLE. 
  
        FMU5         7372                  13/25     13/30 L
        FWDL$           0                   4/09 D
        FW0V         4220                  13/36
        FW1V         6540                  13/37
        F.CHL           2                   4/37 D   16/31
        F.CHM           1                   4/36 D
        F.CHR           0                   4/31 D   16/31
        F.CHS           0                   4/35 D
        F.DOT          10                   4/32 D
        F.KEY          20                   4/33 D
        F.SBS         200                   4/29 D
        F.SEL        7000                   4/25 D   16/31
        F.SLS           0                   4/27 D   16/31
        F.SRS         100                   4/28 D
        GDS          7272                  12/20 D   15/23
        GDSA         7307                  12/26 S   12/30 L   15/24
        GDSX         7271                  12/20 L   12/28
        GDS2         7266                  12/17 L   12/24
        GDS3         7273                  12/18     12/21 L
        GUS          7323                  12/48 D   13/13     13/31     14/50     15/16
        GUSX         7322                  12/48 L   12/56
        GUS2         7317                  12/45 L   12/52
        GUS3         7324                  12/46     12/49 L
        IDLA         7565                  16/26     16/40 L   16/42
        IDLEDCN      7553                  16/24     16/27 L
        IDLL            2                  16/25     16/42 D
        INI          6120                   6/18 L
        INIA         6210                   7/20 S    7/21 L
        INIB         6224                   7/26      7/33 L    7/35
        INIC         6225                   7/24 S    7/34 L
        INIL            3                   7/25      7/35 D
        INIR         6233                   7/41      7/46 L
        INI1         6123                   6/25 L    6/28
        INI2         6160                   6/51 L    7/02
        INI7         6221                   7/12      7/17      7/29 L
        INI9         6227                   7/31      7/41 L
        IOMGS        7573                  16/13 S   16/17 S   16/53 D
        IOQB         6000                   7/46
        IOQTRAN      6000                   7/47
        IPLFWA       7421                  17/45
        IPLTRAN      6120                   1/10      6/01
        JUMP         7144                   8/40      9/33 L
        LCNC         1500                   3/40 D
        LCTD         7047                  17/37 D   17/38
        LDCC         2000                   3/42 D
        LDDC         3000                   3/45 D
        LE6P            1                   8/49     11/21
        LE77           17                   8/49     11/21
        LMCC         2300                   3/44 D
        MBCK          113                   9/21     15/28
        MDAC            0                  15/24
        MDBL           10                  12/25     12/30
        MDC          7403                   8/15     13/48 D
        MDCA         7425                  14/02     14/07 L   14/12
        MDCL            4                  14/01     14/12 D
        MDCX         7402                  13/48 L   13/49     13/55     14/05
        MDC1A        7415                  13/53     13/56 L
1       CD6         CTI 66X (MTS) TAPE DRIVER - A02                   COMPASS 3.7-871.     23/08/13. 15.42.10.      PAGE    21
        SYMBOLIC REFERENCE TABLE. 
  
        MDST          112                  12/21
        MFMT           30                  13/19
        MGST           12                  12/49
        MP.GSUB         2                  14/51
        MREW           10                   8/43
        MRFW           40                  10/43     11/17
        MRRF           41                  11/02     11/31
        NAME            5                   4/06 D    8/22      8/57      9/03      9/11      9/14     10/47
        NFCT         7524                   8/33 S    9/09 S   15/50 L
        NFM          7567                  16/35     16/47 D   16/55
        NFMAX          36                   5/11 D    8/32
        NFMB         7571                  16/19 S   16/51 L   16/52
        NFML            6                  16/34     16/55 D
        NFNM         7573                   8/27 S    8/29 S    9/01      9/04     16/52 D   16/53
        OAMC         7300                   3/47 D
        PRE          7165                   8/53     10/42 D
        PREB         7176                   8/19 S   10/49 D
        PREC         7201                   8/23 S   10/53 D
        PREX         7164                  10/42 L   11/01
        PRE1         7161                  10/39 L   10/46
        PRE3         7166                  10/40     10/43 L   10/57
        PRE4         7167                  10/44 L   11/03
        PRE5         7177                  10/51 L   10/54
        PSNC            0                   3/36 D
        QUAL$           0                   4/10 D
        RBT          7452                   8/44      9/22     14/48 D   15/29
        RBTX         7451                  14/48 L   14/53
        RBT1         7455                  14/50 L   14/52
        RDC          7432                   9/30     14/23 D
        RDCA         7445                  14/27     14/32 L   14/37
        RDCL            4                  14/26     14/37 D
        RDCX         7431                  14/23 L   14/24     14/30
        RED          7216                   9/26     11/16 D
        REDB         7230                   8/20 S   11/23 D
        REDC         7233                   8/21 S    8/50 S   11/26 D
        REDX         7215                  11/16 L   11/30
        RED1         7212                  11/13 L   11/20
        RED3         7217                  11/14     11/17 L   11/29
        RED4         7220                  11/18 L   11/32
        RETRY          12                   4/08 D    8/30
        SBNC         1700                   3/41 D
        SHNC         1000                   3/39 D
        SL.GSAL         6                  13/32     15/19
        SL.GSNO        11                  15/17     15/19
        SL.GSUT        13                  13/14
        TCHS         7447                  10/21 D   10/48 D   11/25 D   12/01 D   12/55 D   13/30 D   13/54 D   14/25 D
                                           10/21 D   10/52 D   11/27 D   12/26 D   13/22 D   13/49 D   14/02 D   14/35 D
                                           10/25 D   10/55 D   11/52 D   12/27 D   13/23 D   13/51 D   14/03 D   17/46
                                           10/28 D   11/22 D   11/55 D   12/53 D   13/25 D   13/53 D   14/04 D
        TCTD         6240                   6/25      8/05 D   17/38
        TCTDL         607                   6/23     17/38 D
        TIMEOUT    210560                   4/07 D   10/11     11/54     13/24
        UJNC          300                   3/37 D   16/41
        XSET         6000                   4/41 D   16/50
        YSET         7000                   4/42 D
        ZJNC          400                   3/38 D
 CD3
1       CD3         CTI 3000 TYPE TAPE DRIVER - A02                   COMPASS 3.7-871.     23/08/13. 15.42.12.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
  
                       6120      705              IDENT  CD3,IPLTRAN
                       7025     (134)             END 
  
  
  
  
                                                  IDENT  CD3,IPLTRAN                                             CD3         2
                                                  PERIPH                                                         CD3         3
                                         VERID    MICRO  1,,*A02*                                                *A02*       1
                                         VERS     MICRO  1,,*"VERID"*                                       VERS VERS        3
                                                  COMMENT CTI 3000 TYPE TAPE DRIVER - "VERS"                     DIMA317C    3
                                                  COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1979               DIMA317C    4
  
  
                                        *         ALL RIGHTS RESERVED                                            CDCCRN      3
                                        *                                                                        CDCCRN      4
                                        *         CONTAINED HEREIN ARE SOFTWARE PRODUCTS COPYRIGHTED             CDCCRN      5
                                        *         BY CONTROL DATA CORPORATION.  REPRODUCTION WITHOUT             CDCCRN      6
                                        *         PERMISSION IS PROHIBITED.  THE COPYRIGHT NOTICE                CDCCRN      7
                                        *         MUST APPEAR ON ALL AUTHORIZED COMPLETE OR                      CDCCRN      8
                                        *         PARTIAL COPIES.                                                CDCCRN      9
                                        *                                                                        CDCCRN     10
1       CD3         CTI 3000 TYPE TAPE DRIVER - A02                   COMPASS 3.7-871.     23/08/13. 15.42.12.      PAGE     2
                                                                      CD3 
  
                                        *****     CD3 - 3000 TYPE TAPE DRIVER -CTI-.                             CD3         8
                                        *                                                                        CD3         9
                                        *         R. A. MATTHEWS.          12/23/77.                             CD3        10
                                        *         R. A. TURGEON             6/8/78.                              CD3        11
                                        *                                                                        CD3        12
                                        *         CD3 PROVIDES A BASIC TAPE DRIVER FOR 3000 TYPE TAPE DRIVES     CD3        13
                                        *         WHEN USED AS THE DEADSTART DEVICE WITHIN THE COMMON TEST/      CD3        14
                                        *         INITIALIZATION (CTI) PACKAGE. CD3 MOVES ITSELF OVER THE IPL    CD3        15
                                        *         PREFIX TABLE AND PROGRAM BODY TO ALLOW SUBSEQUENT READS TO     CD3        16
                                        *         USE THE IPL BUFFER AREA.                                       CD3        17
  
  
  
  
                                        ***       CD3 - 3000 TYPE TAPE DRIVER -CTI-.                             CD3        19
                                        *                                                                        CD3        20
                                        *         CD3 IS THE THIRD RECORD FOLLOWING IPL ON A DEADSTART TAPE      CD3        21
                                        *         AND IS NOT PRESENT IN THE DISK DEADSTART SEQUENCE. CD3,        CD3        22
                                        *         THROUGH THE COMMON DRIVER INTERFACE, PROVIDES A DEVICE         CD3        23
                                        *         READER THAT WILL LOAD GIVEN ROUTINES AND HAND OFF CONTROL      CD3        24
                                        *         IF SO SPECIFIED. THE DEVICE READER WILL PROCESS RECORDS UP     CD3        25
                                        *         TO 511 (DECIMAL) CM WORDS LONG.                                CD3        26
1       CD3         CTI 3000 TYPE TAPE DRIVER - A02                   COMPASS 3.7-871.     23/08/13. 15.42.12.      PAGE     3
        DEFINITIONS.
  
                                        **        DEADSTART PANEL WORDS.                                         CD3        28
                                        *                                                                        CD3        29
                                        *         WORDS 5 - 20B OF THE DEADSTART PANEL MUST REMAIN INTACT        CD3        30
                                        *         DURING CTI EXECUTION. WORDS 0 - 4 MAY BE USED AS SCRATCH       CD3        31
                                        *         DIRECT CELLS.                                                  CD3        32
                                                                                                                 CD3        33
                                                                                                                 CD3        34
                                   0     D0       EQU    0                 SCRATCH                               CD3        35
                                   1     D1       EQU    1                 SCRATCH                               CD3        36
                                   2     D2       EQU    2                 SCRATCH                               CD3        37
                                   3     D3       EQU    3                 SCRATCH                               CD3        38
                                   4     D4       EQU    4                 SCRATCH                               CD3        39
                                   5     D5       EQU    5                 ZERO IF TAPE DEADSTART                CD3        40
                                   6     D6       EQU    6                 FUNCTION WORD                         CD3        41
                                        *         (D6) = WARMSTART FUNCTION, IF MTS/ATS.                         CD3        42
                                        *              = DEADSTART FUNCTION, IF 844 DISK.                        CD3        43
                                   7     D7       EQU    7                 RESERVED                              CD3        44
                                        *         (D7) = 1400B IF 3000 TYPE TAPE.                                CD3        45
                                  10     D10      EQU    10B               RESERVED                              CD3        46
                                  11     D11      EQU    11B               RESERVED                              CD3        47
                                  12     D12      EQU    12B               MSL PARAMETERS                        CD3        48
                                  13     D13      EQU    13B               OS PARAMETERS                         CD3        49
                                  14     D14      EQU    14B               OS PARAMETERS                         CD3        50
                                  15     D15      EQU    15B               UNUSED                                CD3        51
                                  16     D16      EQU    16B               C80/A170 RESERVED                     CD3        52
                                  17     D17      EQU    17B               RESERVED                              CD3        53
                                  20     D20      EQU    20B               RESERVED                              CD3        54
  
  
  
  
                                        **        INSTRUCTION EQUATES.                                           CD3        56
                                        *                                                                        CD3        57
                                                                                                                 CD3        58
                                                                                                                 CD3        59
                                   0     PSNC     EQU    0000B             PASS                                  CD3        60
                                 300     UJNC     EQU    0300B             UNCONDITIONAL JUMP                    CD3        61
                                 400     ZJNC     EQU    0400B             ZERO JUMP                             CD3        62
                                1000     SHNC     EQU    1000B             SHIFT                                 CD3        63
                                1500     LCNC     EQU    1500B             LOAD COMPLEMENT                       CD3        64
                                1700     SBNC     EQU    1700B             SUBTRACT NO-ADDRESS                   CD3        65
                                2000     LDCC     EQU    2000B             LOAD CONSTANT                         CD3        66
                                2100     ADCC     EQU    2100B             ADD CONSTANT                          CD3        67
                                2300     LMCC     EQU    2300B             LOGICAL MINUS CONSTANT                CD3        68
                                3000     LDDC     EQU    3000B             LOAD DIRECT                           CD3        69
                                6400     AJMC     EQU    6400B             ACTIVE JUMP                           CD3        70
                                7300     OAMC     EQU    7300B             OUTPUT MEMORY                         CD3        71
                                7400     ACNC     EQU    7400B             ACTIVATE CHANNEL                      CD3        72
                                7500     DCNC     EQU    7500B             DISCONNECT CHANNEL                    CD3        73
1       CD3         CTI 3000 TYPE TAPE DRIVER - A02                   COMPASS 3.7-871.     23/08/13. 15.42.12.      PAGE     4
        DEFINITIONS.                                                  MSC 
  
                                        **        MISCELLANEOUS DEFINITIONS.                                     CD3        75
                                        *                                                                        CD3        76
                                        *                                                                        CD3        77
                                                                                                                 CD3        78
                                                                                                                 CD3        79
                                   5     NAME     EQU    5                 OFFSET OF NAME IN PRFX TABLE          CD3        80
                              210560     TIMEOUT  EQU    70000             TIMEOUT COUNT                         CD3        81
                                  24     RETRY    EQU    20D         NO OF RETRIES IN ERROR PROCESSING           CD3        82
                                   0     FWDL$    EQU    0                 DEFINE FORWARD LINK FOR CHANNEL INST. CD3        83
                                   0     QUAL$    EQU    0                 DON-T QUALIFY COMMON DECKS            CD3        84
                                   0     DEBUG    EQU    0                                                       CD3        85
  
  
  
  
                                        **        DISPLAY CONTROLLER DEFINITIONS.                                CD3        87
                                        *                                                                        CD3        88
                                        *                                                                        CD3        89
                                                                                                                 CD3        90
                                                                                                                 CD3        91
                                  10     CHD      EQU    10B               DISPLAY CHANNEL                       CD3        92
                                                                                                                 CD3        93
                                        *         DISPLAY FUNCTION CODES.                                        CD3        94
                                                                                                                 CD3        95
                                7000     F.SEL    EQU    7000B             SELECT CONSOLE DISPLAY                CD3        96
                                                                                                                 CD3        97
                                   0     F.SLS    EQU    0000B             SELECT CONSOLE LEFT SCREEN            CD3        98
                                 100     F.SRS    EQU    0100B             SELECT CONSOLE RIGHT SCREEN           CD3        99
                                 200     F.SBS    EQU    0200B             SELECT CONSOLE BOTH SCREEN            CD3       100
                                                                                                                 CD3       101
                                   0     F.CHR    EQU    0000B             SELECT DOT MODE                       CD3       102
                                  10     F.DOT    EQU    0010B             SELECT DOT MODE                       CD3       103
                                  20     F.KEY    EQU    0020B             SELECT KEYBOARD INPUT                 CD3       104
                                                                                                                 CD3       105
                                   0     F.CHS    EQU    0000B             SET CHARACTER SIZE SMALL              CD3       106
                                   1     F.CHM    EQU    0001B             SET CHARACTER SIZE MEDIUM             CD3       107
                                   2     F.CHL    EQU    0002B             SET CHARACTER SIZE LARGE              CD3       108
                                                                                                                 CD3       109
                                        *         COORDINATE DESIGNATION.                                        CD3       110
                                                                                                                 CD3       111
                                6000     XSET     EQU    6000B             SET X COORDINATE                      CD3       112
                                7000     YSET     EQU    7000B             SET Y COORDINATE                      CD3       113
1       CD3         CTI 3000 TYPE TAPE DRIVER - A02                   COMPASS 3.7-871.     23/08/13. 15.42.12.      PAGE     5
        DEFINITION COMMON DECKS.
  
                                        **        DEFINITION COMMON DECKS.                                       CD3       116
                                        *                                                                        CD3       117
                                        **        ALL SYMBOL AND MACRO DEFINITION COMMON DECKS ARE CALLED HERE.  CD3       118
                                                                                                                 CD3       119
                                                                                                                 CD3       120
           0                             CTI      CTEXT  COMPCTI - CTI COMMON MACROES.                           COMPCTI     2
           0                             3TP      CTEXT  COMS3TP - 3000 TYPE TAPE DEFINITIONS.                   COMS3TP     2
           0                                      CTEXT  COMPCHL - REDEFINE I/O INSTRUCTIONS.                    COMPCHL     2
           0                             CPA      CTEXT  COMSCPA - CTI COMMON POINTER AREA DEFINITIONS.          COMSCPA     2
           0                             CTI      CTEXT  COMSCTI - CTI INTERNAL DEFINITIONS.                     COMSCTI     2
                                  36     NFMAX    EQU    CDNFMAX           NOFIND MAXIMUM                        CD3       126
1       CD3         CTI 3000 TYPE TAPE DRIVER - A02                   COMPASS 3.7-871.     23/08/13. 15.42.12.      PAGE     6
        MAIN ROUTINE. 
  
        6120                                      ORG    IPLTRAN                                                 CD3       128
  
  
  
  
                                        ***       INI - CD3 INITIALIZATION.                                      CD3       130
                                        *                                                                        CD3       131
                                        *         INI MOVES THE TAPE DRIVER INTO THE COMMON DRIVER AREA,         CD3       132
                                        *         INITIALIZES THE CHANNEL INSTRUCTIONS AND LOADS THE FIRST       CD3       133
                                        *         DISPLAY ROUTINE.                                               CD3       134
                                        *                                                                        CD3       135
                                        *         ENTRY  CPA AREA INTACT.                                        CD3       136
                                        *                DEADSTART PANEL CELLS INTACT.                           CD3       137
                                        *                                                                        CD3       138
                                        *         USES   D1, D2, D3, D4.                                         CD3       139
                                                                                                                 CD3       140
                                                                                                                 CD3       141
        6120                             INI      BSS    0                 ENTRY POINT                           CD3       142
                                                                                                                 CD3       143
                                        *         MOVE THE COMMON DRIVER FOR TAPE, *CTD*, INTO THE COMMON        CD3       144
                                        *         DRIVER AREA.                                                   CD3       145
                                                                                                                 CD3       146
        6120         2000 0602                    LDC    TCTDL                                                   CD3       147
        6122         3404                         STD    D4                LENGTH OF MOVE BLOCK                  CD3       148
        6123         5004 6222           INI1     LDM    TCTD-1,D4                                               CD3       149
        6125         5404 6777                    STM    CDEP-1,D4         MOVE DRIVER CODE                      CD3       150
        6127         3704                         SOD    D4                                                      CD3       151
        6130         0572                         NJN    INI1              IF MORE DRIVER CODE TO MOVE           CD3       152
                                                                                                                 CD3       153
        6131         3014                         LDD    D14                                                     CD3       154
        6132         5400 7425                    STM    E0UU              SAVE EQUIP/UNIT                       CD3       155
                                                                                                                 CD3       156
                                        *         PICK UP CHANNEL NUMBER AND STUFF CHANNELS INTO CODE USING      CD3       157
                                        *         THE CHANNEL INSTRUCTION LINK.                                  CD3       158
                                                                                                                 CD3       159
        6134         2000 7153                    LDC    AWDZ              FIRST CHANNEL INSTRUCTION             CD3       160
        6136         3402                         STD    D2                                                      CD3       161
        6137         3010                         LDD    D10               GET CHANNEL NO. FROM D/S PANEL        CD3       162
        6140         1237                         LPN    37B                                                     CD3       163
        6141         3403                         STD    D3                                                      CD3       164
        6142         1400                         LDN    0                                                       CD3       165
        6143         3502                INI2     RAD    D2                CHANNEL INST. POINTER + BIAS          CD3       166
        6144         4002                         LDI    D2                GET INSTRUCTION                       CD3       167
        6145         1237                         LPN    37B                                                     CD3       168
        6146         3404                         STD    D4                SAVE FOR NEXT INSTRUCTION             CD3       169
        6147         3003                         LDD    D3                GET CHANNEL NO.                       CD3       170
        6150         3204                         SBD    D4                SUBTRACT LINK FROM CHANNEL NO.        CD3       171
        6151         4502                         RAI    D2                ADD CHANNEL NO. - LINK TO OLD INST.   CD3       172
        6152         3004                         LDD    D4                CHECK FOR ZERO LINK (LAST INST.)      CD3       173
        6153         0567                         NJN    INI2              CONTINUE PROCESSING INSTRUCTIONS      CD3       174
1       CD3         CTI 3000 TYPE TAPE DRIVER - A02                   COMPASS 3.7-871.     23/08/13. 15.42.12.      PAGE     7
        MAIN ROUTINE. 
  
                                        *         CODE TO CREATE CTI INTERNAL STATE                              CD3       176
                                                                                                                 CD3       177
        6154         7553                         DCN.   13B+40B           DISCONNECT 13B                        CD3       178
        6155         7573                         DCN.   33B+40B           DISCONNECT 33B                        CD3       179
                                                                                                                 CD3       180
        6156         6512 6204                    IJM.   INI7,12B          IF CHAN 12B IS D.S CHANNEL            CD3       181
        6160         1400                         LDN    0                 OUTPUT 0000 TO CH 12B                 CD3       182
        6161         7212                         OAN.   12B                                                     CD3       183
        6162         5600 0000                    AOM    0                 WAIT A WHILE                          CD3       184
        6164         5700 0000                    SOM    0                                                       CD3       185
        6166         6612 6204                    FJM.   INI7,12B          IF FULL (NO PP ON CH 12B)             CD3       186
                                                                                                                 CD3       187
        6170         3003                         LDD    D3                ACTIVATE DEADSTART CHANNEL            CD3       188
        6171         5500 6173                    RAM    INIA                                                    CD3       189
        6173         7440                INIA     ACN.   40B                                                     CD3       190
                                                                                                                 CD3       191
        6174         3003                         LDD    D3                MOVE PP BACK TO D.S. CHAN             CD3       192
        6175         5500 6210                    RAM    INIC                                                    CD3       193
        6177         1403                         LDN    INIL                                                    CD3       194
        6200         7312 6207                    OAM.   INIB,12B                                                CD3       195
        6202         6612 6202                    FJM.   *,12B                                                   CD3       196
                                                                                                                 CD3       197
        6204         7552                INI7     DCN.   12B+40B           DISCONNECT 12B                        CD3       198
        6205         7572                         DCN.   32B+40B           DISCONNECT 32B                        CD3       199
        6206         0304                         UJN    INI9                                                    CD3       200
                                                                                                                 CD3       201
        6207         1400                INIB     LDN    0                                                       CD3       202
        6210         7100 0000           INIC     IAM.   0,**                                                    CD3       203
                                   3     INIL     EQU    *-INIB                                                  CD3       204
                                                                                                                 CD3       205
                                                                                                                 CD3       206
                                        *         CALL THE COMMON DRIVER TO LOAD IOQ                             CD3       207
                                        *          AND GIVE CONTROL TO IOQ.                                      CD3       208
                                                                                                                 CD3       209
        6212         2000 6216           INI9     LDC    INIR               A = ADDRESS OF PARAMS                CD3       210
        6214         0100 7000                    LJM    CDEP               GOTO COMMON DRIVER                   CD3       211
                                                                                                                 CD3       212
                                        *         PARAMETER BLOCK FOR COMMON DRIVER TO LOAD IOQ                  CD3       213
                                                                                                                 CD3       214
        6216         6000                INIR     CON    IOQB               LOAD ADDRESS                         CD3       215
        6217         6000                         CON    IOQTRAN               TRANSFER ADDRESS                  CD3       216
        6220         0000                         CON    0                  NO REWIND FIRST                      CD3       217
        6221         1117                         VFD    18/3LIOQ,6/0       NAME CHECK FIELD                     CD3       218
        6222         2100 
1       CD3         CTI 3000 TYPE TAPE DRIVER - A02                   COMPASS 3.7-871.     23/08/13. 15.42.12.      PAGE     8
        CTD - COMMON TAPE DRIVER. 
  
                                        ***       CTD - COMMON TAPE DRIVER.                                      CD3       220
                                        *                                                                        CD3       221
                                                                                                                 CD3       222
                                                                                                                 CD3       223
                                6223     TCTD     EQU    *                 FWA OF DRIVER AREA                    CD3       224
                                                                                                                 CD3       225
      L 7000                                      LOC    CDEP              BEGINNING OF COMMON DRIVER AREA       CD3       226
                                                                                                                 CD3       227
                                7000     CTD      EQU    *                  ENTRY POINT                          CD3       228
      L 7000         0302                         UJN    ENDCONS                                                 CD3       229
      L 7001         0003                         CON    D3TP                                                    CD3       230
                                7002     ENDCONS  EQU    *                                                       CD3       231
      L 7002         3401                         STD    D1                 SAVE ADDRESS OF PARAMS               CD3       232
                                                                                                                 CD3       233
      L 7003         4001                         LDI    D1                INPUT BUFFER FWA                      DIMA295     1
      L 7004         3402                         STD    D2                                                      CD3       235
      L 7005         5400 7176                    STM    PREB               PRFX READ                            CD3       236
      L 7007         5400 7222                    STM    REDB               FULL READ                            CD3       237
      L 7011         5400 7230                    STM    REDC                                                    CD3       238
      L 7013         1607                         ADN    NAME+2                                                  CD3       239
      L 7014         5400 7205                    STM    PREC               PRE BYPASS-READ                      CD3       240
      L 7016         5001 0001                    LDM    CDTA,D1            TRANSFER ADDRESS                     CD3       241
      L 7020         5400 7137                    STM    CTDZ                                                    CD3       242
      L 7022         5001 0003                    LDM    CDNC,D1            NAME CHECK FIELD                     CD3       243
      L 7024         5400 7560                    STM    NFNM              SAVE FOR ERROR MSG                    CD3       245
      L 7026         5001 0004                    LDM    CDNC+1,D1                                               CD3       246
      L 7030         5400 7561                    STM    NFNM+1                                                  CD3       248
      L 7032         1424                         LDN    RETRY                                                   CD3       249
      L 7033         6517 7036                    IJM.   CTD1,17B                                                CD3       250
      L 7035         1001                         SHN    1                                                       CD3       251
      L 7036         5400 7470           CTD1     STM    ARTC                                                    CD3       252
      L 7040         1436                         LDN    NFMAX                                                   CD3       253
      L 7041         5400 7471                    STM    NFCT               NO FIND COUNT LIMIT                  CD3       254
                                                                                                                 CD3       255
      L 7043         0200 7417                    RJM    SEL                SELECT AND CONNECT                   CD3       256
      L 7045         5001 0003                    LDM    CDNC,D1                                                 CD3       257
      L 7047         2300 7777                    LMC    7777B                                                   CD3       258
      L 7051         0503                         NJN    *+3                                                     CD3       259
      L 7052         0100 7136                    LJM    JUMP                                                    CD3       260
                                                                                                                 CD3       261
      L 7054         5001 0002                    LDM    CDRW,D1                                                 CD3       262
      L 7056         0404                         ZJN    CTD2               IF NO REWIND FIRST                   CD3       263
      L 7057         1410                         LDN    TREW                                                    CD3       264
      L 7060         0200 7334                    RJM    RBT                REWIND TAPE                          CD3       265
                                                                                                                 CD3       266
      L 7062         5001 0003           CTD2     LDM    CDNC,D1                                                 CD3       267
      L 7064         0510                         NJN    CTD3               IF READ NAMED RECORD                 CD3       268
      L 7065         3002                         LDD    D2                 ELSE READ NEXT RECORD                CD3       269
      L 7066         2100 0120                    ADC    LE77*BPW+LE6P*BPW                                       CD3       270
      L 7070         5400 7230                    STM    REDC                                                    CD3       271
      L 7072         0100 7132                    LJM    CTD7                                                    CD3       272
                                                                                                                 CD3       273
      L 7074         0200 7171           CTD3     RJM    PRE                READ PRFX TO GET NAME                CD3       274
                                                                                                                 CD3       275
                                        *         TEST IF NAMES MATCH                                            CD3       276
                                                                                                                 CD3       277
      L 7076         5002 0005                    LDM    NAME,D2                                                 CD3       278
1       CD3         CTI 3000 TYPE TAPE DRIVER - A02                   COMPASS 3.7-871.     23/08/13. 15.42.12.      PAGE     9
        CTD - COMMON TAPE DRIVER. 
  
      L 7100         5200 7560                    SBM    NFNM                                                    DIMA295     2
      L 7102         0506                         NJN    CTD5                                                    CD3       281
      L 7103         5002 0006                    LDM    NAME+1,D2                                               CD3       282
      L 7105         5200 7561                    SBM    NFNM+1                                                  DIMA295     3
      L 7107         0420                         ZJN    CTD6               IF NAMES MATCH                       CD3       285
                                                                                                                 CD3       286
                                        *         HERE IF NO MATCH. CHECK IF ZZZ.                                CD3       287
                                                                                                                 CD3       288
      L 7110         5700 7471           CTD5     SOM    NFCT               CHECK NOFIND COUNT                   CD3       289
      L 7112         0413                         ZJN    CTD55       IF NAME NOT FOUND                           CD3       290
      L 7113         5002 0005                    LDM    NAME,D2                                                 CD3       291
      L 7115         2300 3232                    LMC    2RZZ                                                    CD3       292
      L 7117         0554                         NJN    CTD3                                                    CD3       293
      L 7120         5002 0006                    LDM    NAME+1,D2                                               CD3       294
      L 7122         2300 3200                    LMC    1RZ*100B                                                CD3       295
      L 7124         0547                         NJN    CTD3                                                    CD3       296
      L 7125         0100 7533           CTD55    LJM    ERNF               IF ZZZ REACHED                       CD3       297
                                                                                                                 CD3       298
                                        *         HERE TO BACKSPACE TAPE ONE RECORD.                             CD3       299
                                                                                                                 CD3       300
      L 7127         1412                CTD6     LDN    TBSP                                                    CD3       301
      L 7130         0200 7334                    RJM    RBT                BACKSPACE TAPE                       CD3       302
                                                                                                                 CD3       303
                                        *         HERE TO READ DESIRED RECORD                                    CD3       304
                                                                                                                 CD3       305
      L 7132         0200 7214           CTD7     RJM    RED                FULL READ                            CD3       306
                                                                                                                 CD3       307
      L 7134         0200 7440                    RJM    DSEL               RELEASE AND DESELECT                 CD3       308
                                                                                                                 CD3       309
      L 7136         0100 0000           JUMP     LJM    **                 GO TO TRANSFER ADDRESS               CD3       310
                                7137     CTDZ     EQU    *-1                                                     CD3       311
1       CD3         CTI 3000 TYPE TAPE DRIVER - A02                   COMPASS 3.7-871.     23/08/13. 15.42.12.      PAGE    10
        SUBROUTINES                                                   AWD 
  
                                        **        AWD - ACTIVATE CHANNEL AND WAIT FOR DATA.                      CD3       314
                                        *                                                                        CD3       315
                                        *         AWD ACTIVATES THE FUNCTIONED CHANNEL AND TIMES OUT A FULL      CD3       316
                                        *         CONDITION.                                                     CD3       317
                                        *                                                                        CD3       318
                                        *         EXIT   (A) .NE. 0, DATA ON CHANNEL.                            CD3       319
                                        *                (A) = 0, NO DATA RECIEVED, CHANNEL DISCONNECTED.        CD3       320
                                                                                                                 CD3       321
                                                                                                                 CD3       322
      L 7140         0000                AWD      CON    0           ENTRY                                       CD3       323
      L 7141         5000 7140                    LDM    AWD         RETURN ADDRESS                              CD3       324
      L 7143         5400 7155                    STM    AWDA        MODIFY FULL JUMP ADDRESS                    CD3       325
      L 7145         2000 1400           AWD1     LDC    CIEI+CMDA   READ EOR/CONVERSION A                       CD3       326
      L 7147         0200 7236                    RJM    FCN                                                     CD3       327
                                                                                                                 CD3       328
      L 7151         2021 0560                    LDC    TIMEOUT                                                 CD3       329
                                                                                                                 CD3       330
                                        ****                                                                     CD3       331
                                        *         THE FOLLOWING IS THE FIRST CHANNEL INSTRUCTION IN *CD3* AND    CD3       332
                                        *         IS USED IN DEFINING THE LINKED CHANNEL LIST.  IF THE FIRST     CD3       333
                                        *         CHANNEL INSTRUCTION IS MOVED, BE SURE TO ADJUST THE CHANNEL    CD3       334
                                        *         REPLACEMENT SECTION IN *INI*.                                  CD3       335
                                                                                                                 CD3       336
      L 7153                             AWDZ     BSS    0                 FIRST CHANNEL INSTRUCTION             CD3       337
                                                                                                                 CD3       338
      L 7153         7401                         ACN    0           ACTIVATE CHANNEL                            CD3       339
                                                                                                                 CD3       340
                                        ****                                                                     CD3       341
                                                                                                                 CD3       342
      L 7154         6604 0000           AWD6     FJM    **,0        IF FULL RETURN                              CD3       343
                                7155     AWDA     EQU    *-1                                                     CD3       344
      L 7156         1701                         SBN    1                                                       CD3       345
      L 7157         0574                         NJN    AWD6        IF TIMEOUT NOT EXPIRED                      CD3       346
      L 7160         7555                         DCN    40B                                                     CD3       347
      L 7161         0200 7461                    RJM    ART         ASKTO RETRY                                 CD3       348
      L 7163         0200 7323                    RJM    MCC         MASTER CLEAR                                CD3       349
      L 7165         0200 7417                    RJM    SEL         RESELECT UNIT                               CD3       350
      L 7167         0355                         UJN    AWD1        RETRY                                       CD3       351
  
  
  
  
                                        **        PRE - READ ENOUGH TO GET THE NAME                              CD3       353
                                        *                                                                        CD3       354
                                        *         RETURN TO CALLER IF NO ERRORS                                  CD3       355
                                        *         ELSE GO TO ERROR PROCESSING                                    CD3       356
                                                                                                                 CD3       357
      L 7170         0100 0000           PRE      ENM    X                 ENTRY/EXIT                            CD3       358
      L 7172         0200 7140           PRE3     RJM    AWD         ACTIVATE AND WAIT FOR DATA                  CD3       359
      L 7174         1407                         LDN    NAME+2            LENGTH TO INCLUDE NAME                CD3       360
      L 7175         7107 0000                    IAM    **,0              READ TABLES                           CD3       361
                                7176     PREB     EQU    *-1                                                     CD3       362
      L 7177         0404                         ZJN    PRE5        IF NOT NOISE RECORD                         CD3       363
      L 7200         0200 7371                    RJM    CHK         CHECK STATUS AFTER READ                     CD3       364
      L 7202         0367                         UJN    PRE3        OK TO RETRY                                 CD3       365
                                                                                                                 CD3       366
      L 7203         1477                PRE5     LDN    77B               BYPASS REST OF RECORD                 CD3       367
1       CD3         CTI 3000 TYPE TAPE DRIVER - A02                   COMPASS 3.7-871.     23/08/13. 15.42.12.      PAGE    11
        SUBROUTINES                                                   PRE 
  
      L 7204         7115 0000                    IAM    **,0                                                    CD3       368
                                7205     PREC     EQU    *-1                                                     CD3       369
      L 7206         0474                         ZJN    PRE5                                                    CD3       370
      L 7207         0200 7371                    RJM    CHK               CHECK STATUS AFTER READ               CD3       371
      L 7211         0656                         PJN    PREX              IF NO ERRORS                          CD3       372
      L 7212         0357                         UJN    PRE3              IF OK TO RETRY                        CD3       373
  
  
  
  
                                        **        RED - READ FULL RECORD                                         CD3       375
                                        *                                                                        CD3       376
                                        *         RETURN TO CALLER IF NO ERRORS                                  CD3       377
                                        *         ELSE GO TO ERROR PROCESSING                                    CD3       378
                                                                                                                 CD3       379
      L 7213         0100 0000           RED      ENM    X                 ENTRY/EXIT                            CD3       380
      L 7215         0200 7140           RED3     RJM    AWD         ACTIVATE AND WAIT FOR DATA                  CD3       381
      L 7217         2000 0120                    LDC    LE77*BPW+LE6P*BPW TABLES LENGTH                         CD3       382
      L 7221         7106 0000                    IAM    **,0              READ TABLES                           CD3       383
                                7222     REDB     EQU    *-1                                                     CD3       384
      L 7223         0404                         ZJN    RED5        IF NOT NOISE RECORD                         CD3       385
      L 7224         0200 7371                    RJM    CHK         CHECK STATUS AFTER READ                     CD3       386
      L 7226         0366                         UJN    RED3        OK TO RETRY                                 CD3       387
                                                                                                                 CD3       388
      L 7227         7114 0000           RED5     IAM    **,0                                                    CD3       389
                                7230     REDC     EQU    *-1                                                     CD3       390
      L 7231         0200 7371                    RJM    CHK               CHECK STATUS AFTER READ               CD3       391
      L 7233         0657                         PJN    REDX              IF NO ERRORS                          CD3       392
      L 7234         0360                         UJN    RED3              OK TO RETRY                           CD3       393
  
  
  
  
                                        **        FCN - FUNCTION DEVICE.                                         CD3       395
                                        *                                                                        CD3       396
                                        *         ENTRY  (A) = FUNCTION CODE.                                    CD3       397
                                        *                                                                        CD3       398
                                        *         RETURNS TO CALLER IF NO ERRORS                                 CD3       399
                                        *         ELSE GO TO ERROR PROCESSOR.                                    CD3       400
                                                                                                                 CD3       401
                                                                                                                 CD3       402
      L 7235         0100 0000           FCN      ENM    X                 ENTRY/EXIT                            CD3       403
      L 7237         5400 7242                    STM    FCNF              SAVE FUNCTION CODE                    CD3       404
      L 7241         2000 7241           FCN3     LDC    *           LOAD FUNCTION CODE                          CD3       405
                                7242     FCNF     EQU    *-1         PLACE TO SAVE FUNCTION                      CD3       406
      L 7243         7603                         FAN    0           ISSUE FUNCTION                              CD3       407
                                                                                                                 CD3       408
      L 7244         2021 0560                    LDC    TIMEOUT                                                 CD3       409
      L 7246         6504 7235           FCN1     IJM    FCNX,0            IF FUNCTION ACCEPTED, RETURN          CD3       410
      L 7250         1701                         SBN    1                                                       CD3       411
      L 7251         0574                         NJN    FCN1              IF TIMEOUT NOT EXPIRED                CD3       412
      L 7252         7552                         DCN    40B                                                     CD3       413
      L 7253         0200 7461                    RJM    ART               ASK TO RETRY                          CD3       414
      L 7255         0363                         UJN    FCN3              TRY AGAIN                             CD3       415
1       CD3         CTI 3000 TYPE TAPE DRIVER - A02                   COMPASS 3.7-871.     23/08/13. 15.42.12.      PAGE    12
        SUBROUTINES 
  
                                        **        CST - GET CONVERTER STATUS                                     CD3       417
                                        *                                                                        CD3       418
                                        *         EXIT   (A) = (GDSA) = CONVERTER STATUS                         CD3       419
                                        *                                                                        CD3       420
                                                                                                                 CD3       421
      L 7256         0100 0000           CST      ENM    X                 ENTRY/EXIT                            CD3       422
      L 7260         2000 1200           CST2     LDC    CCST                                                    CD3       423
      L 7262         0200 7236                    RJM    FCN                                                     CD3       424
      L 7264         7401                         ACN    0                                                       CD3       425
      L 7265         7003                         IAN    0                                                       CD3       426
      L 7266         5400 7272                    STM    GDSA              SAVE STATUS                           CD3       427
      L 7270         7551                         DCN    40B                                                     CD3       428
      L 7271         0364                         UJN    CSTX              RETURN                                CD3       429
                                                                                                                 CD3       430
      L 7272                       1     GDSA     BSSZ   1                                                       CD3       431
  
  
  
  
                                        **        EST - EQUIPMENT STATUS                                         CD3       433
                                        *                                                                        CD3       434
                                        *         EXIT   (A) = (CDGS) = EQUIPMENT STATUS                         CD3       435
                                        *                                                                        CD3       436
                                                                                                                 CD3       437
      L 7273         0100 0000           EST      ENM    X                 ENTRY/EXIT                            CD3       438
      L 7275         2000 1300           EST2     LDC    CEST                                                    CD3       439
      L 7277         0200 7236                    RJM    FCN                                                     CD3       440
      L 7301         7401                         ACN    0                                                       CD3       441
      L 7302         7003                         IAN    0                                                       CD3       442
      L 7303         5400 7307                    STM    CDGS              SAVE EQUIPMENT STATUS                 CD3       443
      L 7305         7557                         DCN    40B                                                     CD3       444
      L 7306         0364                         UJN    ESTX              RETURN                                CD3       445
                                                                                                                 CD3       446
      L 7307                       1     CDGS     BSSZ   1                                                       CD3       447
  
  
  
  
                                        **        C81 - CHECK 6681/84 STATUS                                     CD3       449
                                        *                                                                        CD3       450
                                        *         C81 CHECKS 6681/84 STATUS FOR TRANSMISSION PARITY ERRORS       CD3       451
                                        *         OR REJECT                                                      CD3       452
                                        *                                                                        CD3       453
                                        *         ENTRY  (GDSA) = CONVERTER STATUS                               CD3       454
                                        *                                                                        CD3       455
                                        *         EXIT   (A) = 0 IF NO ERRORS                                    CD3       456
                                        *                                                                        CD3       457
                                        *                (A) .NE. 0 IF ERROR                                     CD3       458
                                        *                                                                        CD3       459
                                                                                                                 CD3       460
      L 7310         0100 0000           C81      ENM    X                 ENTRY/EXIT                            CD3       461
      L 7312         5000 7272                    LDM    GDSA              6681 STATUS                           CD3       462
      L 7314         1204                         LPN    MP.CSTP                                                 CD3       463
      L 7315         0572                         NJN    C81X        IF TRANSMISSION PARITY ERROR                CD3       464
      L 7316         5000 7272                    LDM    GDSA                                                    CD3       465
      L 7320         1203                         LPN    MP.CSRJ+MP.CSIR                                         CD3       466
      L 7321         0366                         UJN    C81X              RETURN                                CD3       467
1       CD3         CTI 3000 TYPE TAPE DRIVER - A02                   COMPASS 3.7-871.     23/08/13. 15.42.12.      PAGE    13
        SUBROUTINES                                                   MCC 
  
                                        **        MCC - MASTER CLEAR CHANNEL                                     CD3       469
                                        *                                                                        CD3       470
                                        *                MASTER CLEARS CHANNEL, WAITS FOR                        CD3       471
                                        *                EXPIRATION OF MASTER CLEAR CONTROL                      CD3       472
                                        *                TIMEOUT TO CONVERTER AND RESELECTS                      CD3       473
                                        *                EQUIPMENT AND UNIT.                                     CD3       474
                                                                                                                 CD3       475
      L 7322         0100 0000           MCC      ENM    X           ENTRY/EXIT                                  CD3       476
      L 7324         7700 1700                    FNC    1700B,0                                                 CD3       477
      L 7326         2000 0764                    LDC    500D        WAIT FOR MC TIMEOUT                         CD3       478
      L 7330         1701                MCC1     SBN    1                                                       CD3       479
      L 7331         0676                         PJN    MCC1                                                    CD3       480
      L 7332         0367                         UJN    MCCX        RETURN                                      CD3       481
  
  
  
  
                                        **        RBT - REWIND/BACKSPACE TAPE                                    CD3       483
                                        *                                                                        CD3       484
                                        *         ENTRY  (A) = FUNCTION CODE                                     CD3       485
                                        *                                                                        CD3       486
                                        *         CALLS FCN                                                      CD3       487
                                                                                                                 CD3       488
      L 7333         0100 0000           RBT      ENM    X                 ENTRY/EXIT                            CD3       489
      L 7335         5400 7345                    STM    RBTF              SAVE FUNCTION CODE                    CD3       490
      L 7337         0200 7274           RBT1     RJM    EST                                                     CD3       491
      L 7341         1203                         LPN    3                                                       CD3       492
      L 7342         1101                         LMN    1                                                       CD3       493
      L 7343         0573                         NJN    RBT1        IF NOT (READY AND NOT BUSY)                 CD3       494
      L 7344         2000 7344                    LDC    *                                                       CD3       495
                                7345     RBTF     EQU    *-1         PLACE TO SAVE FUNCTION                      CD3       496
      L 7346         0200 7236                    RJM    FCN               FUNCTION DEVICE                       CD3       497
      L 7350         0200 7257                    RJM    CST               GET STATUS                            CD3       498
      L 7352         0200 7311                    RJM    C81               CHECK 6681 STATUS                     CD3       499
      L 7354         0404                         ZJN    RBT3        IF NO STATUS PROBLEMS                       CD3       500
      L 7355         0200 7461                    RJM    ART         ASK TO RETRY                                CD3       501
      L 7357         0357                         UJN    RBT1                                                    CD3       502
      L 7360         0200 7274           RBT3     RJM    EST               GET EQUIP STATUS                      CD3       503
      L 7362         2200 1003                    LPC    1003B                                                   CD3       504
      L 7364         2300 1001                    LMC    1001B                                                   CD3       505
      L 7366         0571                         NJN    RBT3        IF NOT (EOP, READY, AND NOT BUSY)           CD3       506
      L 7367         0343                         UJN    RBTX              RETURN                                CD3       507
  
  
  
  
                                        **        CHK - CHECK RESULTS/STATUS AFTER A READ OPERATION              CD3       509
                                        *                                                                        CD3       510
                                        *         RETURNS TO CALLER IF NO ERRORS                                 CD3       511
                                        *         ELSE IF RECOVERABLE ERROR BACKSPACE AND RETURN                 CD3       512
                                        *              ELSE GO TO ERROR PROCESSING                               CD3       513
                                        *                                                                        CD3       514
                                        *         (A) POSITIVE IF NO ERRORS                                      CD3       515
                                        *         (A) NEGATIVE IF ERROR BUT CALLER SHOULD RETRY READ             CD3       516
                                        *                                                                        CD3       517
                                                                                                                 CD3       518
      L 7370         0100 0000           CHK      ENM    X                 ENTRY/EXIT                            CD3       519
1       CD3         CTI 3000 TYPE TAPE DRIVER - A02                   COMPASS 3.7-871.     23/08/13. 15.42.12.      PAGE    14
        SUBROUTINES 
  
      L 7372         0200 7257           CHK2     RJM    CST               GET CONVERTER STATUS                  CD3       520
      L 7374         1204                         LPN    4                                                       CD3       521
      L 7375         0512                         NJN    CHK5        IF TRANSMISSION PARITY                      CD3       522
      L 7376         0200 7274                    RJM    EST               GET EQUIPMENT STATUS                  CD3       523
      L 7400         1010                         SHN    SL.TSEO                                                 CD3       524
      L 7401         0670                         PJN    CHK2              IF NOT END OF OPERATION               CD3       525
      L 7402         5000 7307           CHK4     LDM    CDGS              UNIT STATUS                           CD3       526
      L 7404         2200 2400                    LPC    MP.TSPE+MP.TSLD   P.E. OR LOST DATA                     CD3       527
      L 7406         0461                         ZJN    CHKX              IF OK,RETURN                          CD3       528
                                                                                                                 CD3       529
                                        *         AN ERROR HAS OCCURRED. RETRY IF POSSIBLE.                      CD3       530
                                                                                                                 CD3       531
      L 7407         0200 7461           CHK5     RJM    ART                                                     CD3       532
      L 7411         1412                         LDN    TBSP                                                    CD3       533
      L 7412         0200 7334                    RJM    RBT               BACKSPACE TAPE                        CD3       534
      L 7414         1500                         LCN    0                                                       CD3       535
      L 7415         0352                         UJN    CHKX              RETURN                                CD3       536
  
  
  
  
                                        **        SEL - SELECT 6681 AND CONNECT UNIT                             CD3       538
                                        *                                                                        CD3       539
                                        *         RETURN TO CALLER IF NO ERRORS ELSE GOTO ERIO                   CD3       540
                                        *                                                                        CD3       541
                                                                                                                 CD3       542
      L 7416         0100 0000           SEL      ENM    X                 ENTRY/EXIT                            CD3       543
      L 7420         2000 2000                    LDC    CSEL                                                    CD3       544
      L 7422         0200 7236                    RJM    FCN               SELECT 6681                           CD3       545
      L 7424         2000 0000           SEL2     LDC    **                                                      CD3       546
                                7425     E0UU     EQU    *-1                                                     CD3       547
      L 7426         0200 7236                    RJM    FCN               CONNECT                               CD3       548
      L 7430         0200 7257                    RJM    CST               GET CONVERTER STATUS                  CD3       549
      L 7432         1203                         LPN    3                                                       CD3       550
      L 7433         0462                         ZJN    SELX              IF NO REJECT                          CD3       551
      L 7434         0200 7461                    RJM    ART                                                     CD3       552
      L 7436         0365                         UJN    SEL2                                                    CD3       553
  
  
  
  
                                        **        DSEL - RELEASE UNIT AND DESELECT 6681                          CD3       555
                                        *                                                                        CD3       556
                                        *         RETURNS IF NO ERRORS ELSE GOTO ERIO                            CD3       557
                                                                                                                 CD3       558
      L 7437         0100 0000           DSEL     ENM    X                 ENTRY/EXIT                            CD3       559
      L 7441         1400                DSEL2    LDN    TREL                                                    CD3       560
      L 7442         0200 7236                    RJM    FCN               RELEASE UNIT                          CD3       561
      L 7444         0200 7257                    RJM    CST               GET CONVERTER STATUS                  CD3       562
      L 7446         1203                         LPN    3                                                       CD3       563
      L 7447         0404                         ZJN    DSEL5             IF NO REJECT                          CD3       564
      L 7450         0200 7461                    RJM    ART                                                     CD3       565
      L 7452         0366                         UJN    DSEL2                                                   CD3       566
      L 7453         2000 2100           DSEL5    LDC    CDSL                                                    CD3       567
      L 7455         0200 7236                    RJM    FCN               DESELECT                              CD3       568
      L 7457         0357                         UJN    DSELX             RETURN                                CD3       569
1       CD3         CTI 3000 TYPE TAPE DRIVER - A02                   COMPASS 3.7-871.     23/08/13. 15.42.12.      PAGE    15
        SUBROUTINES                                                   ART 
  
                                        **        ART - ADJUST RETRY COUNTER                                     CD3       571
                                        *                                                                        CD3       572
                                        *         DECREMENT COUNTER AND                                          CD3       573
                                        *         RETURN TO CALLER IF COUNTER .GE. 0                             CD3       574
                                        *         ELSE GO TO ERROR PROCESSOR                                     CD3       575
                                        *                                                                        CD3       576
                                                                                                                 CD3       577
      L 7460         0100 0000           ART      ENM    X                 ENTRY/EXIT                            CD3       578
      L 7462         5700 7470                    SOM    ARTC                                                    CD3       579
      L 7464         0673                         PJN    ARTX              EXIT IF MORE RETRIES AVAILABLE        CD3       580
      L 7465         0200 7323                    RJM    MCC         MASTER CLEAR                                CD3       581
      L 7467         0303                         UJN    ERIO        IF NO MORE RETRIES AVAILABLE                CD3       582
                                                                                                                 CD3       583
      L 7470         0000                ARTC     CON    0                 RETRY COUNTER                         CD3       584
                                                                                                                 CD3       585
      L 7471         0000                NFCT     CON    0                 NOFIND COUNTER                        CD3       586
1       CD3         CTI 3000 TYPE TAPE DRIVER - A02                   COMPASS 3.7-871.     23/08/13. 15.42.12.      PAGE    16
        SUBROUTINES 
  
                                        **        ERROR PROCESSING                                               CD3       588
                                        *                                                                        CD3       589
                                        *         ERIO IS ENTERED IF AN UNRECOVERABLE I/0 ERROR                  CD3       590
                                        *         HAS OCCURRED.  ERNF IS ENTERED IF A REQUEST TO                 CD3       591
                                        *         READ A NAMED RECORD WAS MADE BUT THE RECORD                    CD3       592
                                        *         COULD NOT BE FOUND.  FOR EITHER ERROR, A MESSAGE               CD3       593
                                        *         IS PUT ON THE DISPLAY AND THE PP IS HUNG IN A LOOP             CD3       594
                                        *         OUTPUTTING THE ERROR MESSAGE.                                  CD3       595
                                                                                                                 CD3       596
                                7472     ERIO     EQU    *                 BUILD ERROR MSG                       CD3       597
      L 7472         5000 7307                    LDM    CDGS              GENERAL STATUS                        CD3       598
      L 7474         0200 7571                    RJM    CTO                                                     CD3       599
      L 7476         5400 7561                    STM    IOMGS+1                                                 CD3       600
      L 7500         5000 7307                    LDM    CDGS                                                    CD3       601
      L 7502         1071                         SHN    -6                                                      CD3       602
      L 7503         0200 7571                    RJM    CTO                                                     CD3       603
      L 7505         5400 7560                    STM    IOMGS+0                                                 CD3       604
      L 7507         2000 0723                    LDC    2RGS                                                    CD3       605
      L 7511         5400 7556                    STM    NFMB              CHANGE 1ST BYTE OF MSG TO *GS*        CD3       606
      L 7513         5000 7272                    LDM    GDSA        CONVERTER STATUS                            CD3       607
      L 7515         0200 7571                    RJM    CTO                                                     CD3       608
      L 7517         5400 7567                    STM    IOMGS1+1                                                CD3       609
      L 7521         5000 7272                    LDM    GDSA                                                    CD3       610
      L 7523         1071                         SHN    -6                                                      CD3       611
      L 7524         0200 7571                    RJM    CTO                                                     CD3       612
      L 7526         5400 7566                    STM    IOMGS1                                                  CD3       613
      L 7530         1406                         LDN    NFML1-NFML                                              CD3       614
      L 7531         5500 7544                    RAM    ERR8                                                    CD3       615
                                                                                                                 CD3       616
                                7533     ERNF     EQU    *                 ENTRY WHEN NOFIND                     CD3       617
                                                                                                                 CD3       618
                                        *         IDLE PP 10                                                     CD3       619
      L 7533         6610 7540                    FJM.   IDLEDCN,CHD                                             CD3       620
      L 7535         1402                         LDN    IDLL                                                    CD3       621
      L 7536         7310 7552                    OAM.   IDLA,CHD          SEND IDLE PROGRAM                     CD3       622
      L 7540         7550                IDLEDCN  DCN.   CHD+40B           FREE DISPLAY CHANNEL                  CD3       623
                                                                                                                 CD3       624
                                        *         PAINT DISPLAY                                                  CD3       625
                                                                                                                 CD3       626
      L 7541         7710 7002                    FNC.   F.SEL+F.SLS+F.CHR+F.CHL,CHD                             CD3       627
      L 7543         7410                         ACN.   CHD                                                     CD3       628
                                                                                                                 CD3       629
      L 7544         1406                ERR8     LDN    NFML                                                    CD3       630
      L 7545         7310 7554                    OAM.   NFM,CHD           OUTPUT ERROR MSG                      CD3       631
      L 7547         1740                ERR9     SBN    40B                                                     DIMA295     4
      L 7550         0776                         MJN    ERR9                                                    DIMA295     5
      L 7551         0372                         UJN    ERR8              HANG IN OUTPUT LOOP                   CD3       632
                                                                                                                 CD3       633
      L 7552         0000                IDLA     CON    0                 PP 10 IDLE PROGRAM                    CD3       634
      L 7553         0300                         CON    UJNC              HANG                                  CD3       635
                                   2     IDLL     EQU    *-IDLA            LENGTH OF IDLE PROGRAM                CD3       636
                                                                                                                 CD3       637
                                  22     DOPLS    EQU    22B               LINE (Y COOR) INCREMENT VALUE         CD3       638
                                                                                                                 CD3       639
                                                                                                                 CD3       640
                                7554     NFM      EQU    *                 NOFIND ERROR MESSAGE                  CD3       641
                                                                                                                 CD3       642
1       CD3         CTI 3000 TYPE TAPE DRIVER - A02                   COMPASS 3.7-871.     23/08/13. 15.42.12.      PAGE    17
        SUBROUTINES 
  
      L 7554         7400                         CON    7400B                                                   CD3       643
      L 7555         6000                         CON    XSET                                                    CD3       644
      L 7556         1615                NFMB     DATA   H*NM= NNNN*                                             CD3       645
                                7560     NFNM     EQU    NFMB+2                                                  CD3       646
                                7560     IOMGS    EQU    NFNM                                                    CD3       647
                                                                                                                 CD3       648
                                   6     NFML     EQU    *-NFM             MESSAGE LENGTH                        CD3       649
      L 7562         7200                         CON    7200B                                                   CD3       650
      L 7563         6000                         CON    XSET                                                    CD3       651
      L 7564         0323                NFMB1    DATA   H*CS=     *                                             CD3       652
                                7566     IOMGS1   EQU    NFMB1+2                                                 CD3       653
                                  14     NFML1    EQU    *-NFM                                                   CD3       654
  
  
  
  
                                        **        CTO - CONVERT TO OCTAL DISPLAY                                 CD3       656
                                        *                                                                        CD3       657
                                        *         ENTRY  (A) LOWER 6 BITS ARE VALUE TO BE CONVERTED              CD3       658
                                        *                                                                        CD3       659
                                        *         EXIT   LOWER 12 BITS OF (A) ARE RESULT.                        CD3       660
                                        *                                                                        CD3       661
                                        *         USES   D2                                                      CD3       662
                                                                                                                 CD3       663
      L 7570         0100 0000           CTOX     LJM    0                 EXIT                                  CD3       664
                                7571     CTO      EQU    *-1               ENTRY                                 CD3       665
      L 7572         1277                         LPN    77B               ISOLATE LOWER 6 BITS                  CD3       666
      L 7573         3402                         STD    D2                                                      CD3       667
      L 7574         1003                         SHN    3                                                       CD3       668
      L 7575         3302                         LMD    D2                                                      CD3       669
      L 7576         1370                         SCN    70B                                                     CD3       670
      L 7577         2100 3333                    ADC    2R00                                                    CD3       671
      L 7601         0366                         UJN    CTOX              RETURN                                CD3       672
  
  
  
  
                                        **        END OF COMMON TAPE DRIVER AND SUBROUTINES.                     CD3       674
                                        *                                                                        CD3       675
                                        *         THE FOLLOWING SYMBOLS ARE DEFINED FOR MOVING *CTD* INTO THE    CD3       676
                                        *         COMMON DRIVER AREA.                                            CD3       677
                                        *                                                                        CD3       678
                                        *         TCTD   FWA OF COMMON TAPE DRIVER.                              CD3       679
                                        *         LCTD   LWA+1 OF COMMON TAPE DRIVER.                            CD3       680
                                        *         TCTDL  LENGTH OF COMMON TAPE DRIVER.                           CD3       681
                                        *                                                                        CD3       682
                                                                                                                 CD3       683
                                                                                                                 CD3       684
                                  56              ERRNG  CPAFWA-*          OVERFLOWED INTO POINTER AREA          CD3       685
                                                                                                                 CD3       686
        7025                                      LOC    *O                                                      CD3       687
                                                                                                                 CD3       688
                                7025     LCTD     EQU    *                                                       CD3       689
                                 602     TCTDL    EQU    LCTD-TCTD         LENGTH OF DRIVER                      CD3       690
1       CD3         CTI 3000 TYPE TAPE DRIVER - A02                   COMPASS 3.7-871.     23/08/13. 15.42.12.      PAGE    18
        SUBROUTINES 
  
                                        *         OVERFLOW CHECK.                                                CD3       692
                                                                                                                 CD3       693
                                 374              ERRNG  IPLFWA-*          OVERFLOWED INTO IPL                   CD3       694
                                                                                                                 CD3       695
        7025                                      END                                                            CD3       696
  
                             54500B CM  STORAGE USED             1196 STATEMENTS      373 SYMBOLS      000021 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            1.186 SECONDS         509 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ACNC         7400                   3/48 D
        ADCC         2100                   3/43 D
        AJMC         6400                   3/46 D
        ART          7461                  10/35     11/53     13/36     14/13     14/36     14/52     15/08 D
        ARTC         7470                   8/31 S   15/09 S   15/14 L
        ARTX         7460                  15/08 L   15/10
        AWD          7140                  10/10 L   10/11     10/49     11/17
        AWDA         7155                  10/12 S   10/31 D
        AWDZ         7153                   6/36     10/24 L
        AWD1         7145                  10/13 L   10/38
        AWD6         7154                  10/30 L   10/33
        BPW             5                   8/49     11/18
        CCST         1200                  12/07
        CDEP         7000                   6/26 S    7/36      8/07
        CDGS         7307                  12/30 S   12/34 L   14/07     16/11     16/14
        CDNC            3                   8/24      8/26      8/36      8/46
        CDNFMAX        36                   5/11
        CDRW            2                   8/41
        CDSL         2100                  14/54
        CDTA            1                   8/22
        CEST         1300                  12/26
        CHD            10                   4/21 D   16/33     16/35     16/36     16/40     16/41     16/44
        CHK          7371                  10/54     11/04     11/22     11/27     13/57 D
        CHKX         7370                  13/57 L   14/09     14/17
        CHK2         7372                  14/01 L   14/06
        CHK4         7402                  14/07 L
        CHK5         7407                  14/03     14/13 L
        CH01$        7153                  10/26 D
        CH02$        7154                  10/26     10/26     10/30 D
        CH03$        7160                  10/30     10/30     10/34 D
        CH04$        7175                  10/34     10/34     10/51 D
        CH05$        7204                  10/51     10/51     11/01 D
        CH06$        7221                  11/01     11/01     11/19 D
        CH07$        7227                  11/19     11/19     11/25 D
        CH08$        7243                  11/25     11/25     11/46 D
        CH09$        7246                  11/46     11/46     11/49 D
        CH10$        7252                  11/49     11/49     11/52 D
        CH11$        7264                  11/52     11/52     12/09 D
        CH12$        7265                  12/09     12/09     12/10 D
        CH13$        7270                  12/10     12/10     12/12 D
        CH14$        7301                  12/12     12/12     12/28 D
        CH15$        7302                  12/28     12/28     12/29 D
        CH16$        7305                  12/29     12/29     12/31 D
        CH17$        7324                  12/31     12/31     13/09 D
1       CD3         CTI 3000 TYPE TAPE DRIVER - A02                   COMPASS 3.7-871.     23/08/13. 15.42.12.      PAGE    19
        SYMBOLIC REFERENCE TABLE. 
  
        CH18$        7324                  13/09     13/09     18/04 D
        CH1$           22                  10/26 D   10/34     11/01 D   11/46     11/52 D   12/12     12/29 D
                                           10/26     10/34 D   11/19     11/46 D   12/09     12/12 D   12/31
                                           10/26 D   10/51     11/19 D   11/49     12/09 D   12/28     12/31 D
                                           10/30     10/51 D   11/25     11/49 D   12/10     12/28 D   13/09
                                           10/30 D   11/01     11/25 D   11/52     12/10 D   12/29     13/09 D
        CIEI         1400                  10/13
        CMDA            0                  10/13
        CPAFWA       7660                  17/49
        CSEL         2000                  14/28
        CST          7257                  12/06 D   13/33     14/01     14/33     14/49
        CSTX         7256                  12/06 L   12/13
        CST2         7260                  12/07 L
        CTD          7000                   8/09 D
        CTDZ         7137                   8/23 S    9/31 D
        CTD1         7036                   8/29      8/31 L
        CTD2         7062                   8/42      8/46 L
        CTD3         7074                   8/47      8/53 L    9/13      9/16
        CTD5         7110                   9/02      9/09 L
        CTD55        7125                   9/10      9/17 L
        CTD6         7127                   9/05      9/21 L
        CTD7         7132                   8/51      9/26 L
        CTO          7571                  16/12     16/16     16/21     16/25     17/26 D
        CTOX         7570                  17/25 L   17/33
        C81          7311                  12/51 D   13/34
        C81X         7310                  12/51 L   12/54     12/57
        DCNC         7500                   3/49 D
        DEBUG           0                   4/11 D
        DOPLS          22                  16/53 D
        DSEL         7440                   9/28     14/46 D
        DSELX        7437                  14/46 L   14/56
        DSEL2        7441                  14/47 L   14/53
        DSEL5        7453                  14/51     14/54 L
        D0              0                   3/08 D
        D1              1                   3/09 D    8/15      8/24      8/36      8/46
                                            8/13 S    8/22      8/26      8/41
        D10            10                   3/19 D    6/38
        D11            11                   3/20 D
        D12            12                   3/21 D
        D13            13                   3/22 D
        D14            14                   3/23 D    6/30
        D15            15                   3/24 D
        D16            16                   3/25 D
        D17            17                   3/26 D
        D2              2                   3/10 D    6/42 S    6/48 I    8/48      9/03      9/14     17/30
                                            6/37 S    6/43      8/16 S    8/57      9/11     17/28 S
        D20            20                   3/27 D
        D3              3                   3/11 D    6/40 S    6/46      7/13      7/17
        D3TP            3                   8/11
        D4              4                   3/12 D    6/24 S    6/25      6/26      6/27 S    6/45 S    6/47      6/49
        D5              5                   3/13 D
        D6              6                   3/14 D
        D7              7                   3/17 D
        ENDCONS      7002                   8/10      8/12 D
        ERIO         7472                  15/12     16/10 D
        ERNF         7533                   9/17     16/30 D
        ERR8         7544                  16/28 S   16/43 L   16/47
1       CD3         CTI 3000 TYPE TAPE DRIVER - A02                   COMPASS 3.7-871.     23/08/13. 15.42.12.      PAGE    20
        SYMBOLIC REFERENCE TABLE. 
  
        ERR9         7547                  16/45 L   16/46
        EST          7274                  12/25 D   13/26     13/38     14/04
        ESTX         7273                  12/25 L   12/32
        EST2         7275                  12/26 L
        E0UU         7425                   6/31 S   14/31 D
        FCN          7236                  10/14     12/08     13/32     14/32     14/55
                                           11/42 D   12/27     14/29     14/48
        FCNF         7242                  11/43 S   11/45 D
        FCNX         7235                  11/42 L   11/49
        FCN1         7246                  11/49 L   11/51
        FCN3         7241                  11/44 L   11/54
        FWDL$           0                   4/09 D
        F.CHL           2                   4/37 D   16/40
        F.CHM           1                   4/36 D
        F.CHR           0                   4/31 D   16/40
        F.CHS           0                   4/35 D
        F.DOT          10                   4/32 D
        F.KEY          20                   4/33 D
        F.SBS         200                   4/29 D
        F.SEL        7000                   4/25 D   16/40
        F.SLS           0                   4/27 D   16/40
        F.SRS         100                   4/28 D
        GDSA         7272                  12/11 S   12/15 L   12/52     12/55     16/20     16/23
        IDLA         7552                  16/35     16/49 L   16/51
        IDLEDCN      7540                  16/33     16/36 L
        IDLL            2                  16/34     16/51 D
        INI          6120                   6/18 L
        INIA         6173                   7/14 S    7/15 L
        INIB         6207                   7/20      7/27 L    7/29
        INIC         6210                   7/18 S    7/28 L
        INIL            3                   7/19      7/29 D
        INIR         6216                   7/35      7/40 L
        INI1         6123                   6/25 L    6/28
        INI2         6143                   6/42 L    6/50
        INI7         6204                   7/06      7/11      7/23 L
        INI9         6212                   7/25      7/35 L
        IOMGS        7560                  16/13 S   16/17 S   17/05 D
        IOMGS1       7566                  16/22 S   16/26 S   17/11 D
        IOQB         6000                   7/40
        IOQTRAN      6000                   7/41
        IPLFWA       7421                  18/03
        IPLTRAN      6120                   1/10      6/01
        JUMP         7136                   8/39      9/30 L
        LCNC         1500                   3/40 D
        LCTD         7025                  17/53 D   17/54
        LDCC         2000                   3/42 D
        LDDC         3000                   3/45 D
        LE6P            1                   8/49     11/18
        LE77           17                   8/49     11/18
        LMCC         2300                   3/44 D
        MCC          7323                  10/36     13/08 D   15/11
        MCCX         7322                  13/08 L   13/13
        MCC1         7330                  13/11 L   13/12
        MP.CSIR         2                  12/56
        MP.CSRJ         1                  12/56
        MP.CSTP         4                  12/53
        MP.TSLD       400                  14/08
1       CD3         CTI 3000 TYPE TAPE DRIVER - A02                   COMPASS 3.7-871.     23/08/13. 15.42.12.      PAGE    21
        SYMBOLIC REFERENCE TABLE. 
  
        MP.TSPE      2000                  14/08
        NAME            5                   4/06 D    8/20      8/57      9/03      9/11      9/14     10/50
        NFCT         7471                   8/33 S    9/09 S   15/16 L
        NFM          7554                  16/44     16/56 D   17/07     17/12
        NFMAX          36                   5/11 D    8/32
        NFMB         7556                  16/19 S   17/03 L   17/04
        NFMB1        7564                  17/10 L   17/11
        NFML            6                  16/27     16/43     17/07 D
        NFML1          14                  16/27     17/12 D
        NFNM         7560                   8/25 S    8/27 S    9/01      9/04     17/04 D   17/05
        OAMC         7300                   3/47 D
        PRE          7171                   8/53     10/48 D
        PREB         7176                   8/17 S   10/52 D
        PREC         7205                   8/21 S   11/02 D
        PREX         7170                  10/48 L   11/05
        PRE3         7172                  10/49 L   10/55     11/06
        PRE5         7203                  10/53     10/57 L   11/03
        PSNC            0                   3/36 D
        QUAL$           0                   4/10 D
        RBT          7334                   8/44      9/22     13/24 D   14/15
        RBTF         7345                  13/25 S   13/31 D
        RBTX         7333                  13/24 L   13/42
        RBT1         7337                  13/26 L   13/29     13/37
        RBT3         7360                  13/35     13/38 L   13/41
        RED          7214                   9/26     11/16 D
        REDB         7222                   8/18 S   11/20 D
        REDC         7230                   8/19 S    8/50 S   11/26 D
        REDX         7213                  11/16 L   11/28
        RED3         7215                  11/17 L   11/23     11/29
        RED5         7227                  11/21     11/25 L
        RETRY          24                   4/08 D    8/28
        SBNC         1700                   3/41 D
        SEL          7417                   8/35     10/37     14/27 D
        SELX         7416                  14/27 L   14/35
        SEL2         7424                  14/30 L   14/37
        SHNC         1000                   3/39 D
        SL.TSEO        10                  14/05
        TBSP           12                   9/21     14/14
        TCHS         7324                  10/26 D   10/34 D   11/19 D   11/49 D   12/10 D   12/29 D   18/04
                                           10/26 D   10/51 D   11/25 D   11/52 D   12/12 D   12/31 D
                                           10/30 D   11/01 D   11/46 D   12/09 D   12/28 D   13/09 D
        TCTD         6223                   6/25      8/05 D   17/54
        TCTDL         602                   6/23     17/54 D
        TIMEOUT    210560                   4/07 D   10/16     11/48
        TREL            0                  14/47
        TREW           10                   8/43
        UJNC          300                   3/37 D   16/50
        XSET         6000                   4/41 D   17/02     17/09
        YSET         7000                   4/42 D
        ZJNC          400                   3/38 D
 CD4
1       CD4         CTI 844 DISK DRIVER - A02                         COMPASS 3.7-871.     23/08/13. 15.42.15.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
  
                       6120      760              IDENT  CD4,IPLTRAN
                       7100     (145)             END 
  
  
  
  
                                                  IDENT  CD4,IPLTRAN                                             CD4         2
                                                  PERIPH                                                         CD4         3
                                         VERID    MICRO  1,,*A02*                                                *A02*       1
                                         VERS     MICRO  1,,*"VERID"*                                       VERS VERS        3
                                                  COMMENT CTI 844 DISK DRIVER - "VERS"                           DIMA317D    3
                                                  COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1979               DIMA317D    4
  
  
                                        *         ALL RIGHTS RESERVED                                            CDCCRN      3
                                        *                                                                        CDCCRN      4
                                        *         CONTAINED HEREIN ARE SOFTWARE PRODUCTS COPYRIGHTED             CDCCRN      5
                                        *         BY CONTROL DATA CORPORATION.  REPRODUCTION WITHOUT             CDCCRN      6
                                        *         PERMISSION IS PROHIBITED.  THE COPYRIGHT NOTICE                CDCCRN      7
                                        *         MUST APPEAR ON ALL AUTHORIZED COMPLETE OR                      CDCCRN      8
                                        *         PARTIAL COPIES.                                                CDCCRN      9
                                        *                                                                        CDCCRN     10
1       CD4         CTI 844 DISK DRIVER - A02                         COMPASS 3.7-871.     23/08/13. 15.42.15.      PAGE     2
                                                                      CD4 
  
                                        *****     CD4 - 844 DISK DRIVER -CTI-.                                   CD4         8
                                        *                                                                        CD4         9
                                        *         R. A. MATTHEWS.          02/28/78.                             CD4        10
                                        *         R. A. TURGEON            6/13/78.                              CD4        11
                                        *                                                                        CD4        12
                                        *         CD4 PROVIDES A BASIC DISK DRIVER FOR 844 DISK DRIVES           CD4        13
                                        *         WHEN USED AS THE DEADSTART DEVICE WITHIN THE COMMON TEST/      CD4        14
                                        *         INITIALIZATION (CTI) PACKAGE. CD4 MOVES ITSELF OVER THE IPL    CD4        15
                                        *         PREFIX TABLE AND PROGRAM BODY TO ALLOW SUBSEQUENT READS TO     CD4        16
                                        *         USE THE IPL BUFFER AREA.                                       CD4        17
  
  
  
  
                                        ***       CD4 - 844 DISK DRIVER -CTI-.                                   CD4        19
                                        *                                                                        CD4        20
                                        *         CD4 IS THE FOURTH RECORD FOLLOWING IPL ON A DEADSTART          CD4        21
                                        *         TAPE AND IS THE FIRST RECORD IN THE CTI AREA FOR DISK          CD4        22
                                        *         DEADSTART. CD4, THROUGH THE COMMON DRIVER INTERFACE,           CD4        23
                                        *         PROVIDES A DEVICE READER THAT WILL LOAD GIVEN ROUTINES AND     CD4        24
                                        *         HAND OFF CONTROL IF SO SPECIFIED. THE DEVICE READER WILL       CD4        25
                                        *         PROCESS A MAXIUMIM OF 510 DECIMAL CM WORDS OF INFORMATION.     CD4        26
1       CD4         CTI 844 DISK DRIVER - A02                         COMPASS 3.7-871.     23/08/13. 15.42.15.      PAGE     3
        DEFINITIONS.
  
                                        **        DEADSTART PANEL WORDS.                                         CD4        28
                                        *                                                                        CD4        29
                                        *         WORDS 5 - 20B OF THE DEADSTART PANEL MUST REMAIN INTACT        CD4        30
                                        *         DURING CTI EXECUTION. WORDS 0 - 4 MAY BE USED AS SCRATCH       CD4        31
                                        *         DIRECT CELLS.                                                  CD4        32
                                   0     D0       EQU    0                 SCRATCH                               CD4        33
                                   1     D1       EQU    1                 SCRATCH                               CD4        34
                                   2     D2       EQU    2                 SCRATCH                               CD4        35
                                   3     D3       EQU    3                 SCRATCH                               CD4        36
                                   4     D4       EQU    4                 SCRATCH                               CD4        37
                                   5     D5       EQU    5                 ZERO IF TAPE DEADSTART                CD4        38
                                   6     D6       EQU    6                 FUNCTION WORD                         CD4        39
                                        *         (D6) = WARMSTART FUNCTION, IF MTS/ATS.                         CD4        40
                                   7     D7       EQU    7                 RESERVED                              CD4        41
                                        *         (D7) = 1400B IF 3000 TYPE TAPE.                                CD4        42
                                  10     D10      EQU    10B               RESERVED                              CD4        43
                                  11     D11      EQU    11B               RESERVED                              CD4        44
                                  12     D12      EQU    12B               MSL PARAMETERS                        CD4        45
                                  13     D13      EQU    13B               OS PARAMETERS                         CD4        46
                                  15     D15      EQU    15B               UNUSED                                CD4        47
                                  16     D16      EQU    16B               C80/A170 RESERVED                     CD4        48
                                  17     D17      EQU    17B               RESERVED                              CD4        49
                                  20     D20      EQU    20B               RESERVED                              CD4        50
  
  
  
  
                                        **        INSTRUCTION EQUATES.                                           CD4        52
                                        *                                                                        CD4        53
                                   0     PSNC     EQU    0000B             PASS                                  CD4        54
                                 300     UJNC     EQU    0300B             UNCONDITIONAL JUMP                    CD4        55
                                 400     ZJNC     EQU    0400B             ZERO JUMP                             CD4        56
                                1000     SHNC     EQU    1000B             SHIFT                                 CD4        57
                                1500     LCNC     EQU    1500B             LOAD COMPLEMENT                       CD4        58
                                1700     SBNC     EQU    1700B             SUBTRACT NO-ADDRESS                   CD4        59
                                2000     LDCC     EQU    2000B             LOAD CONSTANT                         CD4        60
                                2100     ADCC     EQU    2100B             ADD CONSTANT                          CD4        61
                                2300     LMCC     EQU    2300B             LOGICAL MINUS CONSTANT                CD4        62
                                3000     LDDC     EQU    3000B             LOAD DIRECT                           CD4        63
                                6400     AJMC     EQU    6400B             ACTIVE JUMP                           CD4        64
                                7300     OAMC     EQU    7300B             OUTPUT MEMORY                         CD4        65
                                7400     ACNC     EQU    7400B             ACTIVATE CHANNEL                      CD4        66
                                7500     DCNC     EQU    7500B             DISCONNECT CHANNEL                    CD4        67
  
  
  
  
                                        **        MISCELLANEOUS DEFINITIONS.                                     CD4        69
                                        *                                                                        CD4        70
                                        *                                                                        CD4        71
                                   5     NAME     EQU    5                 OFFSET OF NAME IN PRFX TABLE          CD4        72
                              210560     TIMEOUT  EQU    70000             TIMEOUT COUNT                         CD4        73
                                  12     RETRY    EQU    10D               NO. OF RETRIES IN ERROR PROCESSING    CD4        74
                                   0     QUAL$    EQU    0                 DON-T QUALIFY COMMON DECKS            CD4        75
1       CD4         CTI 844 DISK DRIVER - A02                         COMPASS 3.7-871.     23/08/13. 15.42.15.      PAGE     4
        DEFINITIONS.                                                  DSP 
  
                                        **        DISPLAY CONTROLLER DEFINITIONS.                                CD4        77
                                        *                                                                        CD4        78
                                        *                                                                        CD4        79
                                  10     CHD      EQU    10B               DISPLAY CHANNEL                       CD4        80
                                        *         DISPLAY FUNCTION CODES.                                        CD4        81
                                7000     F.SEL    EQU    7000B             SELECT CONSOLE DISPLAY                CD4        82
                                   0     F.SLS    EQU    0000B             SELECT CONSOLE LEFT SCREEN            CD4        83
                                 100     F.SRS    EQU    0100B             SELECT CONSOLE RIGHT SCREEN           CD4        84
                                 200     F.SBS    EQU    0200B             SELECT CONSOLE BOTH SCREEN            CD4        85
                                   0     F.CHR    EQU    0000B             SELECT DOT MODE                       CD4        86
                                  10     F.DOT    EQU    0010B             SELECT DOT MODE                       CD4        87
                                  20     F.KEY    EQU    0020B             SELECT KEYBOARD INPUT                 CD4        88
                                   0     F.CHS    EQU    0000B             SET CHARACTER SIZE SMALL              CD4        89
                                   1     F.CHM    EQU    0001B             SET CHARACTER SIZE MEDIUM             CD4        90
                                   2     F.CHL    EQU    0002B             SET CHARACTER SIZE LARGE              CD4        91
                                        *         COORDINATE DESIGNATION.                                        CD4        92
                                6000     XSET     EQU    6000B             SET X COORDINATE                      CD4        93
                                7000     YSET     EQU    7000B             SET Y COORDINATE                      CD4        94
1       CD4         CTI 844 DISK DRIVER - A02                         COMPASS 3.7-871.     23/08/13. 15.42.15.      PAGE     5
        DEFINITION COMMON DECKS.
  
                                        **        DEFINITION COMMON DECKS.                                       CD4        97
                                        *                                                                        CD4        98
                                        **        ALL SYMBOL AND MACRO DEFINITION COMMON DECKS ARE CALLED HERE.  CD4        99
           0                             CTI      CTEXT  COMPCTI - CTI COMMON MACROES.                           COMPCTI     2
           0                             844      CTEXT  COMS844 - 844 DISK DEFINTIONS.                          COMS844     2
           0                                      CTEXT  COMPCHI - REDEFINE I/O INSTRUCTIONS.                    COMPCHI     2
           0                             CPA      CTEXT  COMSCPA - CTI COMMON POINTER AREA DEFINITIONS.          COMSCPA     2
           0                             CTI      CTEXT  COMSCTI - CTI INTERNAL DEFINITIONS.                     COMSCTI     2
                                  36     NFMAX    EQU    CDNFMAX           NOFIND MAXIMUM                        CD4       105
1       CD4         CTI 844 DISK DRIVER - A02                         COMPASS 3.7-871.     23/08/13. 15.42.15.      PAGE     6
        MAIN ROUTINE. 
  
        6120                                      ORG    IPLTRAN                                                 CD4       107
  
  
  
  
                                        ***       INI - CD4 INITIALIZATION.                                      CD4       109
                                        *                                                                        CD4       110
                                        *         INI MOVES THE DISK DRIVER INTO THE COMMON DRIVER AREA,         CD4       111
                                        *         AND INITIALIZES CHANNEL INSTRUCTIONS                           CD4       112
                                        *         AND LOADS THE FIRST DISPLAY ROUTINE.                           CD4       113
                                        *                                                                        CD4       114
                                        *         ENTRY  CPA AREA INTACT.                                        CD4       115
                                        *                DEADSTART PANEL CELLS INTACT.                           CD4       116
                                        *                                                                        CD4       117
                                        *         USES   D2, D3, D4.                                             CD4       118
        6120                       1     INI      BSSZ   1                 ENTRY POINT                           CD4       119
                                        *         MOVE THE COMMON DRIVER FOR DISK, *CDD*, INTO THE COMMON        CD4       120
                                        *         DRIVER AREA.                                                   CD4       121
        6121         2000 0652                    LDC    TCDDL                                                   CD4       122
        6123         3404                         STD    D4                LENGTH OF MOVE BLOCK                  CD4       123
        6124         5004 6225           INI1     LDM    TCDD-1,D4                                               CD4       124
        6126         5404 6777                    STM    CDEP-1,D4         MOVE DRIVER CODE                      CD4       125
        6130         3704                         SOD    D4                                                      CD4       126
        6131         0572                         NJN    INI1              IF MORE DRIVER CODE TO MOVE           CD4       127
                                        *         INITIALIZE DISK POINTERS AND CHANNEL INSTRUCTIONS.             CD4       128
        6132         0200 7274                    RJM   REW                USE DRIVER ROUTINE                    CD4       129
        6134         2000 7526                    LDC    CHT               FWA OF CHANNEL TABLE                  CD4       130
        6136         3403                         STD    D3                                                      CD4       131
        6137         3010                         LDD    D10                                                     CD4       132
        6140         1237                         LPN    37B                                                     CD4       133
        6141         3404                         STD    D4                CHANNEL NO.                           CD4       134
        6142         4003                         LDI    D3                                                      CD4       135
        6143         3402                INI4     STD    D2                INSTRUCTION ADDRESS                   CD4       136
        6144         4002                         LDI    D2                                                      CD4       137
        6145         1337                         SCN    37B                                                     CD4       138
        6146         3104                         ADD    D4                                                      CD4       139
        6147         4402                         STI    D2                                                      CD4       140
        6150         3603                         AOD    D3                NEXT LIST ENTRY                       CD4       141
        6151         4003                         LDI    D3                                                      CD4       142
        6152         0570                         NJN    INI4              IF NOT END OF LIST                    CD4       143
        6153         3603                         AOD    D3                                                      CD4       144
        6154         3006                         LDD    D6                FUNCTION WORD                         CD4       145
        6155         1277                         LPN    77B                                                     CD4       146
        6156         4403                         STI    D3                UNIT NO.                              CD4       147
1       CD4         CTI 844 DISK DRIVER - A02                         COMPASS 3.7-871.     23/08/13. 15.42.15.      PAGE     7
        MAIN ROUTINE. 
  
                                        *         CODE TO CREATE CTI INTERNAL STATE                              CD4       149
        6157         7553                         DCN.   13B+40B           DISCONNECT 13B                        CD4       150
        6160         7573                         DCN.   33B+40B           DISCONNECT 33B                        CD4       151
        6161         6512 6207                    IJM.   INI7,12B          IF CHAN 12B IS D.S CHANNEL            CD4       152
        6163         1400                         LDN    0                 OUTPUT 0000 TO CH 12B                 CD4       153
        6164         7212                         OAN.   12B                                                     CD4       154
        6165         5600 0000                    AOM    0                 WAIT A WHILE                          CD4       155
        6167         5700 0000                    SOM    0                                                       CD4       156
        6171         6612 6207                    FJM.   INI7,12B          IF FULL (NO PP ON CH 12B)             CD4       157
        6173         3004                         LDD    D4                ACTIVATE DEADSTART CHANNEL            CD4       158
        6174         5500 6176                    RAM    INIA                                                    CD4       159
        6176         7440                INIA     ACN.   40B                                                     CD4       160
        6177         3004                         LDD    D4                MOVE PP BACK TO D.S. CHAN             CD4       161
        6200         5500 6213                    RAM    INIC                                                    CD4       162
        6202         1403                         LDN    INIL                                                    CD4       163
        6203         7312 6212                    OAM.   INIB,12B                                                CD4       164
        6205         6612 6205                    FJM.   *,12B             WAIT FOR EMPTY                        CD4       165
        6207         7552                INI7     DCN.   12B+40B           DISCONNECT 12B                        CD4       166
        6210         7572                         DCN.   32B+40B           DISCONNECT 32B                        CD4       167
        6211         0304                         UJN    INI9                                                    CD4       168
        6212         1400                INIB     LDN    0                                                       CD4       169
        6213         7100 0000           INIC     IAM.   0,**                                                    CD4       170
                                   3     INIL     EQU    *-INIB                                                  CD4       171
                                        *         CALL THE COMMON DRIVER TO LOAD IOQ                             CD4       172
                                        *          AND GIVE CONTROL TO IOQ.                                      CD4       173
        6215         2000 6221           INI9     LDC    INIR               A = ADDRESS OF PARAMS                CD4       174
        6217         0100 7000                    LJM    CDEP               GOTO COMMON DRIVER                   CD4       175
                                        *         PARAMETER BLOCK FOR COMMON DRIVER TO LOAD IOQ                  CD4       176
        6221         6000                INIR     CON    IOQB               LOAD ADDRESS                         CD4       177
        6222         6000                         CON    IOQTRAN               TRANSFER ADDRESS                  CD4       178
        6223         0000                         CON    0                  NO REWIND FIRST                      CD4       179
        6224         1117                         VFD    18/3LIOQ,6/0       NAME CHECK FIELD                     CD4       180
        6225         2100 
1       CD4         CTI 844 DISK DRIVER - A02                         COMPASS 3.7-871.     23/08/13. 15.42.15.      PAGE     8
        CDD - COMMON DISK DRIVER. 
  
                                        ***       CDD - COMMON DISK DRIVER.                                      CD4       182
                                        *                                                                        CD4       183
                                6226     TCDD     EQU    *                 FWA OF DRIVER AREA                    CD4       184
      L 7000                                      LOC    CDEP              BEGINNING OF COMMON DRIVER AREA       CD4       185
                                7000     CDD      EQU    *                                                       CD4       186
      L 7000         0302                         UJN    ENDCONS                                                 CD4       187
      L 7001         0013                         CON    D844                                                    CD4       188
                                7002     ENDCONS  EQU    *                                                       CD4       189
      L 7002         3401                         STD    D1                SAVE ADDRESS OF PARAMS                CD4       190
      L 7003         0200 7460                    RJM    MDC               SEIZE D.S. CHANNEL                    CD4       191
      L 7005         4001                         LDI    D1                                                      DIMA295A    1
      L 7006         3402                         STD    D2                D2 = INPUT BUFFER ADDRESS             CD4       193
      L 7007         5400 7425                    STM    RRRA                                                    CD4       194
      L 7011         5001 0001                    LDM    CDTA,D1                                                 CD4       195
      L 7013         5400 7133                    STM    CDDZ              STORE TRANSFER ADDRESS                CD4       196
      L 7015         5001 0003                    LDM    CDNC,D1                                                 CD4       197
      L 7017         5400 7636                    STM    NFNM                                                    CD4       199
      L 7021         5001 0004                    LDM    CDNC+1,D1                                               CD4       200
      L 7023         5400 7637                    STM    NFNM+1                                                  CD4       202
      L 7025         1412                         LDN    RETRY                                                   CD4       203
      L 7026         5400 7143                    STM    ARTC              INIT RETRY COUNTER                    CD4       204
      L 7030         1436                         LDN    NFMAX                                                   CD4       205
      L 7031         5400 7144                    STM    NFCT              INIT NOFIND COUNTER                   CD4       206
      L 7033         5001 0002                    LDM    CDRW,D1                                                 CD4       207
      L 7035         0403                         ZJN    CDD2              IF NO REWIND FIRST                    CD4       208
      L 7036         0200 7274                    RJM    REW                                                     CD4       209
      L 7040         0200 7236           CDD2     RJM    GGS               GET GENERAL STATUS                    DIMA295A    2
      L 7042         1007                         SHN    17-10                                                   DIMA295A    3
      L 7043         0774                         MJN    CDD2              IF COUPLER RESERVED                   DIMA295A    4
      L 7044         5001 0003                    LDM    CDNC,D1                                                 DIMA295A    5
      L 7046         0512                         NJN    CDD3              IF READ NAMED RECORD                  CD4       211
      L 7047         0200 7307                    RJM    RCS               ELSE READ CURRENT SECTOR              CD4       212
      L 7051         0100 7122                    LJM    CDD7              JOIN COMMON CODE                      CD4       213
      L 7053         0200 7411           CDD2A    RJM    RRR               BYPASS REST OF RECORD                 DIMA295A    6
      L 7055         5000 7425                    LDM    RRRA                                                    DIMA295A    7
      L 7057         3402                         STD    D2                RESET D2 TO ORIGINAL                  DIMA295A    8
      L 7060         0200 7307           CDD3     RJM    RCS               READ CURRENT SECTOR                   CD4       214
                                        *         TEST IF NAMES MATCH                                            CD4       215
      L 7062         5000 7425                    LDM    RRRA                                                    CD4       216
      L 7064         3402                         STD    D2                SET D2 TO INPUT BUFFER ADDR           CD4       217
      L 7065         5002 0005                    LDM    NAME,D2                                                 CD4       218
      L 7067         5200 7636                    SBM    NFNM                                                    DIMA295A    9
      L 7071         0506                         NJN    CDD5                                                    CD4       221
      L 7072         5002 0006                    LDM    NAME+1,D2                                               CD4       222
      L 7074         5200 7637                    SBM    NFNM+1                                                  DIMA295A   10
      L 7076         0420                         ZJN    CDD6              IF NAMES MATCH                        CD4       225
                                        *         HERE IF NO MATCH. CHECK IF ZZZ.                                CD4       226
      L 7077         5700 7144           CDD5     SOM    NFCT              CHECK NOFIND COUNTER                  CD4       227
      L 7101         0413                         ZJN    CDD55             IF TOO MANY NOFINDS                   CD4       228
      L 7102         5002 0005                    LDM    NAME,D2                                                 CD4       229
      L 7104         2300 3232                    LMC    2RZZ                                                    CD4       230
      L 7106         0544                CDD52    NJN    CDD2A             JUMP IF NOT ZZZ                       DIMA295A   11
      L 7107         5002 0006           CDD53    LDM    NAME+1,D2                                               CD4       236
      L 7111         2300 3200                    LMC    1RZ*100B                                                CD4       237
      L 7113         0572                         NJN    CDD52             IF NOT ZZZ                            CD4       238
      L 7114         0100 7607           CDD55    LJM    ERNF              IF ZZZ REACHED                        CD4       239
                                        *         STRIP OFF PRFX AND 6PPM TABLES                                 CD4       240
1       CD4         CTI 844 DISK DRIVER - A02                         COMPASS 3.7-871.     23/08/13. 15.42.15.      PAGE     9
        CDD - COMMON DISK DRIVER. 
  
      L 7116         2000 0120           CDD6     LDC    LE77*BPW+LE6P*BPW                                       CD4       241
      L 7120         0200 7252                    RJM    MVE                                                     CD4       242
                                        *         READ IN REST OF RECORD IF MORE THAN ONE SECTOR                 CD4       243
      L 7122         1400                CDD7     LDN    0                                                       CD4       244
      L 7123         0200 7411                    RJM    RRR                                                     CD4       245
      L 7125         1410                         LDN    DOPC              OPERATION COMPLETE                    CD4       246
      L 7126         0200 7212                    RJM    FCN                                                     CD4       247
      L 7130         0200 7507                    RJM    RDC               RESTORE D.S. CHANNEL.                 CD4       248
      L 7132         0100 0000                    LJM    **                GO TO TRANSFER ADDRESS                CD4       249
                                7133     CDDZ     EQU    *-1                                                     CD4       250
1       CD4         CTI 844 DISK DRIVER - A02                         COMPASS 3.7-871.     23/08/13. 15.42.15.      PAGE    10
        SUBROUTINES.                                                  ART 
  
                                        **        ART - ADJUST RETRY COUNTER                                     CD4       253
                                        *                                                                        CD4       254
                                        *         DECREMENT COUNTER AND                                          CD4       255
                                        *         RETURN TO CALLER IF COUNTER .GE. 0                             CD4       256
                                        *         ELSE GO TO ERROR PROCESSOR                                     CD4       257
                                        *                                                                        CD4       258
      L 7134         0100 0000           ART      ENM    X                 ENTRY/EXIT                            CD4       259
      L 7136         5700 7143                    SOM    ARTC                                                    CD4       260
      L 7140         0673                         PJN    ARTX              EXIT IF MORE RETRIES AVAILABLE        CD4       261
      L 7141         0100 7566                    LJM    ERIO              IF NO MORE RETRIES AVAILABLE          CD4       262
      L 7143         0000                ARTC     CON    0                 RETRY COUNTER                         CD4       263
      L 7144         0000                NFCT     CON    0                 NOFIND COUNTER                        CD4       264
  
  
  
  
                                        **        AWD - ACTIVATE CHANNEL AND WAIT FOR DATA.                      CD4       266
                                        *                                                                        CD4       267
                                        *         AWD ACTIVATES THE FUNCTIONED CHANNEL AND TIMES OUT A FULL      CD4       268
                                        *         CONDITION.                                                     CD4       269
                                        *                                                                        CD4       270
                                        *         EXIT   (A) .NE. 0, DATA ON CHANNEL.                            CD4       271
                                        *                (A) = 0, NO DATA RECIEVED, CHANNEL DISCONNECTED.        CD4       272
      L 7145         0100 0000           AWD      ENM    X                 ENTRY/EXIT                            CD4       273
      L 7147         7440                         ACN    40B               ACTIVATE CHANNEL                      CD4       274
      L 7150         2021 0560                    LDC    TIMEOUT                                                 CD4       275
      L 7152         6600 7145           AWD1     FJM    AWDX,0            IF FULL, RETURN                       CD4       276
      L 7154         1701                         SBN    1                                                       CD4       277
      L 7155         0574                         NJN    AWD1              IF TIME OUT NOT EXPIRED               CD4       278
      L 7156         7540                         DCN    40B               DISCONNECT                            CD4       279
      L 7157         0365                         UJN    AWDX              RETURN                                CD4       280
  
  
  
  
                                        **        BDA - BUMP DISK ADDRESSES.                                     CD4       282
                                        *                                                                        CD4       283
                                        *         BDA ADJUSTS THE CURRENT DISK ADDRESS BY THE OFFSET READ        CD4       284
                                        *         IN THE LINKAGE BYTES.                                          CD4       285
                                        *                                                                        CD4       286
                                        *         ENTRY  (DADR - DADR+2) = DISK ADDRESS.                         CD4       287
                                        *                                                                        CD4       288
                                        *         EXIT   (DADR - DADR+2) = NEW DISK ADDRESS.                     CD4       289
      L 7160         5400 7565           BDA1     STM    DADR+2                                                  CD4       290
      L 7162         5600 7564                    AOM    DADR+1            BUMP TRACK BY ONE                     CD4       291
      L 7164         5000 7565           BDA2     LDM    DADR+2                                                  CD4       292
      L 7166         1730                         SBN    MSRS              MAX. NO OF SECTORS                    CD4       293
      L 7167         0670                         PJN    BDA1              IF MORE THAN ONE TRACK                CD4       294
      L 7170         0100 0000           BDA      ENM    X                 ENTRY/EXIT                            CD4       295
      L 7172         5000 7403                    LDM    LINKAGE+1         PRU OFFSET                            CD4       296
      L 7174         1021                         SHN    18-1                                                    CD4       297
      L 7175         0610                         PJN    BDA3              IF EVEN, NOT END OF CYLINDER          CD4       298
      L 7176         1001                         SHN    1                                                       CD4       299
      L 7177         5400 7565                    STM    DADR+2                                                  CD4       300
      L 7201         1400                         LDN    0                                                       CD4       301
      L 7202         5400 7564                    STM    DADR+1            CLEAR TRACK NO.                       CD4       302
      L 7204         0357                         UJN    BDA2                                                    CD4       303
1       CD4         CTI 844 DISK DRIVER - A02                         COMPASS 3.7-871.     23/08/13. 15.42.15.      PAGE    11
        SUBROUTINES.                                                  BDA 
  
      L 7205         1001                BDA3     SHN    1                                                       CD4       304
      L 7206         5500 7565                    RAM    DADR+2                                                  CD4       305
      L 7210         0353                         UJN    BDA2                                                    CD4       306
  
  
  
  
                                        **        FCN - FUNCTION DEVICE.                                         CD4       308
                                        *                                                                        CD4       309
                                        *         ENTRY  (A) = FUNCTION CODE.                                    CD4       310
                                        *                                                                        CD4       311
                                        *         RETURNS TO CALLER IF NO ERRORS                                 CD4       312
                                        *         ELSE GO TO ERROR PROCESSOR.                                    CD4       313
      L 7211         0100 0000           FCN      ENM    X                 ENTRY/EXIT                            CD4       314
      L 7213         5400 7216                    STM    FCNF              SAVE FUNCTION CODE                    CD4       315
      L 7215         7700 0000           FCN3     FNC    0,0               ISSUE FUNCTION                        DIMA295A   12
                                7216     FCNF     EQU    *-1                                                     DIMA295A   13
      L 7217         2021 0560                    LDC    TIMEOUT                                                 CD4       318
      L 7221         6500 7211           FCN1     IJM    FCNX,0            IF FUNCTION ACCEPTED, RETURN          CD4       319
      L 7223         1701                         SBN    1                                                       CD4       320
      L 7224         0574                         NJN    FCN1              IF TIMEOUT NOT EXPIRED                CD4       321
      L 7225         7540                         DCN    40B                                                     CD4       322
      L 7226         0200 7135                    RJM    ART               ASK TO RETRY                          CD4       323
      L 7230         0364                         UJN    FCN3              TRY AGAIN                             CD4       324
  
  
  
  
                                        **        GGS - GET GENERAL STATUS.                                      CD4       327
                                        *                                                                        CD4       328
                                        *         GGS ISSUES THE GENERAL STATUS FUNCTION  AND UPDATES            CD4       329
                                        *         THE COMMON DRIVER FIELD *CDGS*. THE STATUS IS ALSO RETURNED    CD4       330
                                        *         IN (A).                                                        CD4       331
                                        *                                                                        CD4       332
                                        *         EXIT   (CDGS) = GENERAL STATUS REPLY.                          CD4       333
                                        *                (A) = GENERAL STATUS REPLY.                             CD4       334
                                        *                                                                        CD4       335
      L 7231         7000                GGS2     IAN    0                 READ STATUS                           DIMA295A   14
      L 7232         5400 7250                    STM    CDGS                                                    DIMA295A   15
      L 7234         7540                         DCN    40B                                                     DIMA295A   16
      L 7235         0100 0000           GGS      ENM    X                 ENTRY/EXIT                            CD4       338
      L 7237         1412                GGS3     LDN    DGST                                                    CD4       339
      L 7240         0200 7212                    RJM    FCN               FUNCTION DEVICE                       CD4       340
      L 7242         0200 7146                    RJM    AWD               ACTIVATE CHAN AND WAIT FOR DATA       CD4       341
      L 7244         0564                         NJN    GGS2              IF DATA COMING                        DIMA295A   17
      L 7245         0200 7135                    RJM    ART               ASK TO RETRY                          DIMA295A   18
      L 7247         0367                         UJN    GGS3              TRY AGAIN                             DIMA295A   19
                                                                                                                 CD4       350
      L 7250         0000                CDGS     CON    0                                                       CD4       351
1       CD4         CTI 844 DISK DRIVER - A02                         COMPASS 3.7-871.     23/08/13. 15.42.15.      PAGE    12
        SUBROUTINES.                                                  MVE 
  
                                        **        MVE - MOVE DATA BLOCK.                                         CD4       353
                                        *                                                                        CD4       354
                                        *         MVE MOVES DOWN A SPECIFIED PORTION OF THE LAST                 CD4       355
                                        *         SECTOR THAT WAS READ AND ADJUSTS THE REMAINING                 CD4       356
                                        *         LENGTH. D2 IS ADVANCED ACCORDINGLY.                            CD4       357
                                        *                                                                        CD4       358
                                        *         ENTRY  (A) = NO. OF BYTES TO MOVE DOWN.                        CD4       359
                                        *                (D2) = FWA OF BUFFER.                                   CD4       360
                                        *                                                                        CD4       361
                                        *         EXIT   (D2) = FWA FOR NEXT READ.                               CD4       362
                                        *                                                                        CD4       363
      L 7251         0100 0000           MVE      ENM    X                 ENTRY/EXIT                            CD4       364
      L 7253         5400 7265                    STM    MVEA              STORE MOVE OFFSET                     CD4       365
      L 7255         5000 7357                    LDM    LENGTH            COMPUTE MOVE LENGTH                   CD4       366
      L 7257         5200 7265                    SBM    MVEA                                                    CD4       367
      L 7261         3403                         STD    D3                                                      CD4       368
      L 7262         5400 7357                    STM    LENGTH            ADJUST LENGTH REMAINING               CD4       369
      L 7264         5002 0000           MVE1     LDM    **,D2                                                   CD4       370
                                7265     MVEA     EQU    *-1                                                     CD4       371
      L 7266         4402                         STI    D2                                                      CD4       372
      L 7267         3602                         AOD    D2                ADVANCE INDEX                         CD4       373
      L 7270         3703                         SOD    D3                ADJUST COUNT                          CD4       374
      L 7271         0572                         NJN    MVE1              IF MORE TO MOVE                       CD4       375
      L 7272         0356                         UJN    MVEX              RETURN                                CD4       376
  
  
  
  
                                        **        REW - LOGICALLY REWIND DISK FILE                               CD4       378
                                        *                                                                        CD4       379
                                        *         REW MOVES THE CTI ADDRESS BYTES OF THE COMMON                  CD4       380
                                        *         POINTER AREA TO OUR CURRENT DISK ADDRESS *DADR*.               CD4       381
                                        *                                                                        CD4       382
      L 7273         0100 0000           REW      ENM    X                 ENTRY/EXIT                            CD4       383
      L 7275         1402                         LDN    2                                                       CD4       384
      L 7276         3404                         STD    D4                                                      CD4       385
      L 7277         5004 7735           REW1     LDM    CIRP,D4           MOVE                                  CD4       386
      L 7301         5404 7563                    STM    DADR,D4                                                 CD4       387
      L 7303         3704                         SOD    D4                                                      CD4       388
      L 7304         0672                         PJN    REW1                                                    CD4       389
      L 7305         0365                         UJN    REWX              RETURN                                CD4       390
  
  
  
  
                                        **        RCS - READ CURRENT SECTOR                                      CD4       392
                                        *                                                                        CD4       393
                                        *         RCS DOES A SEEK TO THE CURRENT SECTOR,                         CD4       394
                                        *         READS IN THE TWO LINKAGE BYTES TO DETERMINE THE                CD4       395
                                        *         TRUE LENGTH OF THE USEFUL DATA IN THE SECTOR.                  CD4       396
                                        *         SEEKS AGAIN TO THE CURRENT SECTOR,                             CD4       397
                                        *         READS IN THE AMOUNT DETERMINED BY THE PRIOR READ,              CD4       398
                                        *         STRIPS OFF THE LINKAGE BYTES,                                  CD4       399
                                        *         AND ADJUSTS THE CURRENT DISK ADDRESS *DADR*.                   CD4       400
                                        *                                                                        CD4       401
                                        *         ENTRY  (D2) = FWA FOR READ                                     CD4       402
                                        *                (DADR) = DISK ADDRESS FOR READ                          CD4       403
1       CD4         CTI 844 DISK DRIVER - A02                         COMPASS 3.7-871.     23/08/13. 15.42.15.      PAGE    13
        SUBROUTINES.
  
                                        *                (RRRT) = DISK LOAD TYPE                                 DIMA407     1
                                        *                                                                        CD4       404
                                        *         EXIT   (D2) = FWA FOR AN ADDITIONAL READ                       CD4       405
                                        *                (DADR) = DISK ADDRESS FOR NEXT READ                     CD4       406
                                        *                (RRRT) = DISK LOAD TYPE                                 DIMA407     2
                                        *                                                                        CD4       407
                                                                                                                 CD4       408
      L 7306         0100 0000           RCS      ENM    X                                                       CD4       409
      L 7310         0200 7434           RCS1     RJM    SEK               SEEK TO CURRENT DISK ADDRESS          CD4       410
      L 7312         1404                         LDN    DRED                                                    CD4       411
      L 7313         0200 7212                    RJM    FCN               ISSUE READ FUNC                       CD4       412
      L 7315         7440                         ACN    40B                                                     CD4       413
      L 7316         1402                         LDN    2                                                       CD4       414
      L 7317         7100 7402                    IAM    LINKAGE,0         READ LINKAGE BYTES                    CD4       415
      L 7321         7540                         DCN    40B                                                     CD4       416
      L 7322         0406                         ZJN    RCS2              IF COUNTED DOWN                       CD4       417
      L 7323         0200 7236                    RJM    GGS               CLEAR SHORT READ ERRORS               DIMA295A   20
      L 7325         0200 7135                    RJM    ART               ASK TO RETRY                          CD4       419
      L 7327         0360                         UJN    RCS1              TRY AGAIN                             CD4       420
      L 7330         5000 7402           RCS2     LDM    LINKAGE           GET LENGTH BYTE                       CD4       421
      L 7332         0503                         NJN    RCS3                                                    CD4       422
      L 7333         2000 0500                    LDC    500B                                                    CD4       423
      L 7335         1602                RCS3     ADN    2                                                       CD4       424
      L 7336         5400 7357                    STM    LENGTH            STORE TRUE LENGTH                     CD4       425
      L 7340         0200 7236                    RJM    GGS               CLEAR SHORT READ ERRORS               DIMA295A   21
      L 7342         5000 7432                    LDM    RRRT              LOAD TYPE                             DIMA407     3
      L 7344         0532                         NJN    RCS9              IF ADDITIONAL SECTORS TO BE IGNORED   DIMA407     4
      L 7345         0200 7434           RCS5     RJM    SEK               SEEK AGAIN TO SAME SECTOR             CD4       427
      L 7347         3002                         LDD    D2                                                      CD4       428
      L 7350         5400 7361                    STM    RCSB              STORE INPUT BUFFER ADDRESS            CD4       429
      L 7352         1404                         LDN    DRED                                                    CD4       430
      L 7353         0200 7212                    RJM    FCN               ISSUE READ FUNC                       CD4       431
      L 7355         7440                         ACN    40B                                                     CD4       432
      L 7356         2000 0000                    LDC    **                                                      CD4       433
                                7357     LENGTH   EQU    *-1                                                     CD4       434
      L 7360         7100 0000                    IAM    **,0              READ AMOUNT INDICATED                 CD4       435
                                7361     RCSB     EQU    *-1                                                     CD4       436
      L 7362         7540                         DCN    40B                                                     CD4       437
      L 7363         0406                         ZJN    RCS7              IF COUNTED DOWN                       CD4       438
      L 7364         0200 7236                    RJM    GGS               CLEAR SHORT READ ERRORS               DIMA295A   22
      L 7366         0200 7135                    RJM    ART               ASK TO RETRY                          CD4       440
      L 7370         0354                         UJN    RCS5              TRY AGAIN                             CD4       441
      L 7371         0200 7236           RCS7     RJM    GGS               CLEAR ERRORS                          CD4       442
      L 7373         1402                         LDN    2                                                       CD4       443
      L 7374         0200 7252                    RJM    MVE               STRIP OFF LINKAGE BYTES               CD4       444
      L 7376         0200 7171           RCS9     RJM    BDA               BUMP DISK ADDRESS                     DIMA407     5
      L 7400         0100 7306                    LJM    RCSX              RETURN                                CD4       446
                                                                                                                 CD4       447
      L 7402                       3     LINKAGE  BSSZ   3                 PLACE TO READ IN LINKAGE BYTES        CD4       448
1       CD4         CTI 844 DISK DRIVER - A02                         COMPASS 3.7-871.     23/08/13. 15.42.15.      PAGE    14
        SUBROUTINES.
  
                                        **        RRR - READ REST OF LOGICAL RECORD                              CD4       450
                                        *                                                                        CD4       451
                                        *         RRR READS IN THE REST OF A LOGICAL RECORD IF THE RECORD        CD4       452
                                        *         CONSISTS OF MORE THAN ONE SECTOR.                              CD4       453
                                        *                                                                        CD4       454
                                        *         ENTRY  (A) = 0 IF ADDITIONAL SECTORS ARE TO BE APPENDED        CD4       455
                                        *                        TO THE FIRST SECTOR ALREADY IN MEMORY.          CD4       456
                                        *                (A) .NE. 0 IF ADDITIONAL SECTORS ARE TO BE IGNORED.     CD4       457
                                        *                                                                        DIMA407     6
                                        *         USES   RRRT,D2.                                                DIMA407     7
                                        *                                                                        DIMA407     8
                                        *         CALLS  RCS.                                                    DIMA407     9
                                        *                                                                        CD4       458
      L 7405         1400                RRR5     LDN    0                                                       DIMA407    10
      L 7406         5400 7432                    STM    RRRT              RESET DISK LOAD TYPE                  DIMA407    11
      L 7410         0100 0000           RRR      ENM    X                 ENTRY/EXIT                            CD4       459
      L 7412         5400 7432                    STM    RRRT              SAVE TYPE                             CD4       460
      L 7414         5000 7402           RRR2     LDM    LINKAGE           LENGTH OF SECTOR JUST READ            CD4       461
      L 7416         2300 0500                    LMC    PRU                                                     CD4       462
      L 7420         0564                         NJN    RRR5              IF ALL SECTORS HAVE BEEN READ         DIMA407    12
      L 7421         5000 7432                    LDM    RRRT                                                    CD4       464
      L 7423         0404                         ZJN    RRR4              IF SECTOR TO BE APPENDED              CD4       465
      L 7424         2000 0000                    LDC    **                ELSE RESET D2 = ORIGINAL CDIB         CD4       466
                                7425     RRRA     EQU    *-1                                                     CD4       467
      L 7426         3402                         STD    D2                                                      CD4       468
      L 7427         0200 7307           RRR4     RJM    RCS               READ CURRENT SECTOR                   CD4       469
      L 7431         0362                         UJN    RRR2              LOOP                                  CD4       470
      L 7432         0000                RRRT     CON    0                 HOLDS TYPE                            CD4       471
  
  
  
  
                                        **        SEK - SEEK DISK ADDRESS.                                       CD4       473
                                        *                                                                        CD4       474
                                        *         SEK ISSUES A SEEK FUNCTION, AND WILL CONTINUE TO ISSUE AS LONG CD4       475
                                        *         AS THE DRIVE HEADS ARE IN MOTION.                              CD4       476
                                        *                                                                        CD4       477
                                        *         ENTRY  (UNIT - DADR+2) = SEEK PARAMETER ARRAY.                 CD4       478
                                        *                                                                        CD4       479
                                        *         EXIT   (A) .NE. 0, ERROR ON SEEK.                              CD4       480
                                        *                                                                        CD4       481
                                        *         CALLS  FCN, GGS.                                               CD4       482
      L 7433         0100 0000           SEK      ENM    X                 ENTRY/EXIT                            CD4       483
      L 7435         1402                SEK1     LDN    D2SK                                                    CD4       484
      L 7436         0200 7212                    RJM    FCN               SEEK 2:1                              CD4       485
      L 7440         1404                         LDN    4                                                       CD4       486
      L 7441         7440                         ACN    40B                                                     CD4       487
      L 7442         7300 7562                    OAM    UNIT,0                                                  CD4       488
      L 7444         6600 7444                    FJM    *,0                                                     CD4       489
      L 7446         7540                         DCN    40B                                                     CD4       490
      L 7447         0200 7236                    RJM    GGS               GET GENERAL STATUS                    CD4       491
      L 7451         0461                         ZJN    SEKX              IF ON CYLINDER                        CD4       492
      L 7452         1212                         LPN    12B               CHECK FOR BUSY OR RESERVED            DIMA295A   23
      L 7453         0561                         NJN    SEK1              IF DRIVE RESERVED OR BUSY             DIMA295A   24
      L 7454         0200 7135                    RJM    ART               ASK TO RETRY                          CD4       495
      L 7456         0356                         UJN    SEK1              TRY AGAIN                             CD4       496
1       CD4         CTI 844 DISK DRIVER - A02                         COMPASS 3.7-871.     23/08/13. 15.42.15.      PAGE    15
        SUBROUTINES.
  
                                        **        MDC - MOVE DEADSTART CHANNEL PP                                CD4       498
                                        *                                                                        CD4       499
                                        *         IF THE DEADSTART CHANNEL IS ACTIVE,                            CD4       500
                                        *           MOVE PP(D.S. CHAN) OVER TO CHANNEL 12B.                      CD4       501
                                        *                                                                        CD4       502
      L 7457         0100 0000           MDC      ENM    X                 ENTRY/EXIT                            CD4       503
      L 7461         6500 7457                    IJM    MDCX,0            IF D.S. CHAN INACTIVE                 CD4       504
      L 7463         1400                         LDN    0                                                       DIMA357C    1
      L 7464         7200                         OAN    0                 OUTPUT ZERO WORD                      DIMA357C    2
      L 7465         4000                         LDI    0                 DELAY 3 MEMORY CYCLES                 DIMA357C    3
      L 7466         6700 7472                    EJM    MDC1,0            IF WORD PICKED UP                     DIMA357C    4
      L 7470         7500                         DCN    0                 CLEAR CHANNEL OF DATA                 DIMA357C    5
      L 7471         0365                         UJN    MDCX              RETURN TO CALLER                      DIMA357C    6
      L 7472                             MDC1     BSS    0                                                       DIMA357C    7
      L 7472         7412                         ACN.   12B               ACTIVATE CHAN 12B                     CD4       505
      L 7473         1404                         LDN    MDCL              OUTPUT PROG TO PP(D.S. CHAN)          CD4       506
      L 7474         7300 7502                    OAM    MDCA,0                                                  CD4       507
      L 7476         6600 7476                    FJM    *,0                                                     CD4       508
      L 7500         7540                         DCN    40B                                                     CD4       509
      L 7501         0355                         UJN    MDCX              RETURN                                CD4       510
      L 7502         0000                MDCA     CON    0                                                       CD4       511
      L 7503         1400                         LDN    0                                                       CD4       512
      L 7504         7112 0000                    IAM.   0,12B                                                   CD4       513
                                   4     MDCL     EQU    *-MDCA                                                  CD4       514
  
  
  
  
                                        **        RDC - RESET DEADSTART CHANNEL PP                               CD4       516
                                        *                                                                        CD4       517
                                        *         IF CHANNEL 12B ACTIVE,                                         CD4       518
                                        *           MOVE PP ON CHAN 12B BACK TO D.S. CHAN.                       CD4       519
                                        *                                                                        CD4       520
      L 7506         0100 0000           RDC      ENM    X                 ENTRY/EXIT                            CD4       521
      L 7510         6512 7506                    IJM.   RDCX,12B          IF CHAN 12B INACTIVE                  CD4       522
      L 7512         7400                         ACN    0                 ACTIVATE D.S. CHANNEL                 CD4       523
      L 7513         1404                         LDN    RDCL              OUTPUT PROG TO CHANNEL 12B            CD4       524
      L 7514         7312 7522                    OAM.   RDCA,12B                                                CD4       525
      L 7516         6612 7516                    FJM.   *,12B                                                   CD4       526
      L 7520         7512                         DCN.   12B                                                     CD4       527
      L 7521         0364                         UJN    RDCX              RETURN                                CD4       528
      L 7522         0000                RDCA     CON    0                 PP PROGRAM                            CD4       529
      L 7523         1400                         LDN    0                                                       CD4       530
      L 7524         7100 0000                    IAM    0,0                                                     CD4       531
                                   4     RDCL     EQU    *-RDCA                                                  CD4       532
1       CD4         CTI 844 DISK DRIVER - A02                         COMPASS 3.7-871.     23/08/13. 15.42.15.      PAGE    16
        SUBROUTINES.                                                  CHT 
  
                                        **        CHT - CHANNEL INSTRUCTION TABLE.                               CD4       534
                                        *                                                                        CD4       535
                                        *         CHT IS A LIST OF ADDRESSES THAT CONTAIN CHANNEL INSTRUCTIONS   CD4       536
                                        *         FOR CHANNEL STUFFING. THE LIST IS TERMINATED BY A ZERO ENTRY.  CD4       537
                                        *                                                                        CD4       538
                                        *         FOR FURTHER DETAILS, SEE *COMPCHI*.                            CD4       539
      L 7526                             CHT      CHTB                     CHANNEL INSTRUCTION ADDRESS LIST      CD4       540
      L 7562         0000                UNIT     CON    0                 UNIT NO.                              CD4       541
      L 7563         0000 0000           DADR     CON    0,0,0             SEEK PARAMETER ARRAY                  CD4       542
      L 7565         0000 
1       CD4         CTI 844 DISK DRIVER - A02                         COMPASS 3.7-871.     23/08/13. 15.42.15.      PAGE    17
        SUBROUTINES.
  
                                        **        ERROR PROCESSING                                               CD4       544
                                        *                                                                        CD4       545
                                        *         ERIO IS ENTERED IF AN UNRECOVERABLE I/0 ERROR                  CD4       546
                                        *         HAS OCCURRED.  ERNF IS ENTERED IF A REQUEST TO                 CD4       547
                                        *         READ A NAMED RECORD WAS MADE BUT THE RECORD                    CD4       548
                                        *         COULD NOT BE FOUND.  FOR EITHER ERROR, A MESSAGE               CD4       549
                                        *         IS PUT ON THE DISPLAY AND THE PP IS HUNG IN A LOOP             CD4       550
                                        *         OUTPUTTING THE ERROR MESSAGE.                                  CD4       551
                                                                                                                 CD4       552
                                7566     ERIO     EQU    *                 BUILD ERROR MSG                       CD4       553
      L 7566         5000 7250                    LDM    CDGS              GENERAL STATUS                        CD4       554
      L 7570         0200 7641                    RJM    CTO                                                     CD4       555
      L 7572         5400 7637                    STM    IOMGS+1                                                 CD4       556
      L 7574         5000 7250                    LDM    CDGS                                                    CD4       557
      L 7576         1071                         SHN    -6                                                      CD4       558
      L 7577         0200 7641                    RJM    CTO                                                     CD4       559
      L 7601         5400 7636                    STM    IOMGS+0                                                 CD4       560
      L 7603         2000 0723                    LDC    2RGS                                                    CD4       561
      L 7605         5400 7634                    STM    NFMB              CHANGE 1ST BYTE OF MSG TO *GS*        CD4       562
                                                                                                                 CD4       563
                                7607     ERNF     EQU    *                 ENTRY WHEN NOFIND                     CD4       564
                                                                                                                 CD4       565
                                        *         IDLE PP 10                                                     CD4       566
      L 7607         6710 7612                    EJM.   IDLE10,CHD                                              CD4       567
      L 7611         7550                         DCN.   CHD+40B                                                 CD4       568
      L 7612         7450                IDLE10   ACN.   CHD+40B                                                 CD4       569
      L 7613         1402                         LDN    IDLL                                                    CD4       570
      L 7614         7310 7630                    OAM.   IDLA,CHD          SEND IDLE PROGRAM                     CD4       571
      L 7616         7550                IDLEDCN  DCN.   CHD+40B           FREE DISPLAY CHANNEL                  CD4       572
                                                                                                                 CD4       573
                                        *         PAINT DISPLAY                                                  CD4       574
                                                                                                                 CD4       575
      L 7617         7710 7002                    FNC.   F.SEL+F.SLS+F.CHR+F.CHL,CHD                             CD4       576
      L 7621         7410                         ACN.   CHD                                                     CD4       577
                                                                                                                 CD4       578
      L 7622         1406                ERR8     LDN    NFML                                                    CD4       579
      L 7623         7310 7632                    OAM.   NFM,CHD           OUTPUT ERROR MSG                      CD4       580
      L 7625         1740                ERR9     SBN    40B                                                     DIMA295A   25
      L 7626         0776                         MJN    ERR9                                                    DIMA295A   26
      L 7627         0372                         UJN    ERR8              HANG IN OUTPUT LOOP                   CD4       581
                                                                                                                 CD4       582
      L 7630         0000                IDLA     CON    0                 PP 10 IDLE PROGRAM                    CD4       583
      L 7631         0300                         CON    UJNC              HANG                                  CD4       584
                                   2     IDLL     EQU    *-IDLA            LENGTH OF IDLE PROGRAM                CD4       585
                                                                                                                 CD4       586
                                  22     DOPLS    EQU    22B               LINE (Y COOR) INCREMENT VALUE         CD4       587
                                                                                                                 CD4       588
                                                                                                                 CD4       589
                                7632     NFM      EQU    *                 NOFIND ERROR MESSAGE                  CD4       590
                                                                                                                 CD4       591
      L 7632         7400                         CON    7400B                                                   CD4       592
      L 7633         6000                         CON    XSET                                                    CD4       593
      L 7634         1615                NFMB     DATA   H*NM= NNNN*                                             CD4       594
                                7636     NFNM     EQU    NFMB+2                                                  CD4       595
                                7636     IOMGS    EQU    NFNM                                                    CD4       596
                                                                                                                 CD4       597
                                   6     NFML     EQU    *-NFM             MESSAGE LENGTH                        CD4       598
1       CD4         CTI 844 DISK DRIVER - A02                         COMPASS 3.7-871.     23/08/13. 15.42.15.      PAGE    18
        SUBROUTINES.
  
                                        **        CTO - CONVERT TO OCTAL DISPLAY                                 CD4       600
                                        *                                                                        CD4       601
                                        *         ENTRY  (A) LOWER 6 BITS ARE VALUE TO BE CONVERTED              CD4       602
                                        *                                                                        CD4       603
                                        *         EXIT   LOWER 12 BITS OF (A) ARE RESULT.                        CD4       604
                                        *                                                                        CD4       605
                                        *         USES   D2                                                      CD4       606
                                                                                                                 CD4       607
      L 7640         0100 0000           CTOX     LJM    0                 EXIT                                  CD4       608
                                7641     CTO      EQU    *-1               ENTRY                                 CD4       609
      L 7642         1277                         LPN    77B               ISOLATE LOWER 6 BITS                  CD4       610
      L 7643         3402                         STD    D2                                                      CD4       611
      L 7644         1003                         SHN    3                                                       CD4       612
      L 7645         3302                         LMD    D2                                                      CD4       613
      L 7646         1370                         SCN    70B                                                     CD4       614
      L 7647         2100 3333                    ADC    2R00                                                    CD4       615
      L 7651         0366                         UJN    CTOX              RETURN                                CD4       616
  
  
  
  
                                        **        END OF COMMON DISK DRIVER AND SUBROUTINES.                     CD4       618
                                        *                                                                        CD4       619
                                        *         THE FOLLOWING SYMBOLS ARE DEFINED FOR MOVING *CDD* INTO THE    CD4       620
                                        *         COMMON DRIVER AREA.                                            CD4       621
                                        *                                                                        CD4       622
                                        *         TCDD   FWA OF COMMON DISK DRIVER.                              CD4       623
                                        *         LCDD   LWA+1 OF COMMON DISK DRIVER.                            CD4       624
                                        *         TCDDL  LENGTH OF COMMON DISK DRIVER.                           CD4       625
                                        *                                                                        CD4       626
                                   6              ERRNG  CPAFWA-*          OVERFLOWED INTO POINTER AREA          CD4       627
        7100                                      LOC    *O                                                      CD4       628
                                7100     LCDD     EQU    *                                                       CD4       629
                                 652     TCDDL    EQU    LCDD-TCDD         LENGTH OF DRIVER                      CD4       630
                                        *         OVERFLOW CHECK.                                                CD4       631
                                 760     LCD4     EQU    *-IPLTRAN         LENGTH OF CD4                         CD4       632
                                 321              ERRNG  IPLFWA-*          OVERFLOWED INTO IPL                   CD4       633
        7100                                      END                                                            CD4       634
  
                             55700B CM  STORAGE USED             1636 STATEMENTS      784 SYMBOLS      000140 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            1.408 SECONDS         406 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ACNC         7400                   3/42 D
        ADCC         2100                   3/37 D
        AJMC         6400                   3/40 D
        ART          7135                  10/07 D   11/23     11/46     13/18     13/41     14/55
        ARTC         7143                   8/21 S   10/08 S   10/11 L
        ARTX         7134                  10/07 L   10/09
        AWD          7146                  10/24 D   11/44
        AWDX         7145                  10/24 L   10/27     10/31
        AWD1         7152                  10/27 L   10/29
        BDA          7171                  10/49 D   13/46
        BDAX         7170                  10/49 L
1       CD4         CTI 844 DISK DRIVER - A02                         COMPASS 3.7-871.     23/08/13. 15.42.15.      PAGE    19
        SYMBOLIC REFERENCE TABLE. 
  
        BDA1         7160                  10/44 L   10/48
        BDA2         7164                  10/46 L   10/57     11/03
        BDA3         7205                  10/52     11/01 L
        BPW             5                   9/01
        CDD          7000                   8/05 D
        CDDZ         7133                   8/15 S    9/10 D
        CDD2         7040                   8/25      8/27 L    8/29
        CDD2A        7053                   8/34 L    8/52
        CDD3         7060                   8/31      8/37 L
        CDD5         7077                   8/43      8/48 L
        CDD52        7106                   8/52 L    8/55
        CDD53        7107                   8/53 L
        CDD55        7114                   8/49      8/56 L
        CDD6         7116                   8/46      9/01 L
        CDD7         7122                   8/33      9/04 L
        CDEP         7000                   6/22 S    7/27      8/04
        CDGS         7250                  11/39 S   11/49 L   17/11     17/14
        CDNC            3                   8/16      8/18      8/30
        CDNFMAX        36                   5/09
        CDRW            2                   8/24
        CDTA            1                   8/14
        CHD            10                   4/04 D   17/25     17/28     17/33     17/37
                                           17/24     17/26     17/29     17/34
        CHT          7526                   6/27     16/07 L
        CHTE         7561                  16/07 L
        CIRP         7735                  12/37
        CPAFWA       7660                  18/31
        CTO          7641                  17/12     17/16     18/10 D
        CTOX         7640                  18/09 L   18/17
        DADR         7563                  10/44 S   10/45 S   10/46     10/54 S   10/56 S   11/02 S   12/38 S   16/09 L
        DCNC         7500                   3/43 D
        DGST           12                  11/42
        DOPC           10                   9/06
        DOPLS          22                  17/46 D
        DRED            4                  13/10     13/31
        D0              0                   3/06 D
        D1              1                   3/07 D    8/09 S    8/11      8/14      8/16      8/18      8/24      8/30
        D10            10                   3/16 D    6/29
        D11            11                   3/17 D
        D12            12                   3/18 D
        D13            13                   3/19 D
        D15            15                   3/20 D
        D16            16                   3/21 D
        D17            17                   3/22 D
        D2              2                   3/08 D    6/37 I    8/40 S    8/50     12/20 I   14/25 S
                                            6/33 S    8/12 S    8/41      8/53     12/21 S   18/12 S
                                            6/34      8/36 S    8/44     12/18     13/29     18/14
        D2SK            2                  14/44
        D20            20                   3/23 D
        D3              3                   3/09 D    6/32      6/39      6/44 I   12/22 S
                                            6/28 S    6/38 S    6/41 S   12/16 S
        D4              4                   3/10 D    6/21      6/23 S    6/36      7/13     12/37     12/39 S
                                            6/20 S    6/22      6/31 S    7/10     12/36 S   12/38
        D5              5                   3/11 D
        D6              6                   3/12 D    6/42
        D7              7                   3/14 D
        D844           13                   8/07
1       CD4         CTI 844 DISK DRIVER - A02                         COMPASS 3.7-871.     23/08/13. 15.42.15.      PAGE    20
        SYMBOLIC REFERENCE TABLE. 
  
        ENDCONS      7002                   8/06      8/08 D
        ERIO         7566                  10/10     17/10 D
        ERNF         7607                   8/56     17/21 D
        ERR8         7622                  17/36 L   17/40
        ERR9         7625                  17/38 L   17/39
        FCN          7212                   9/07     11/14 D   11/43     13/11     13/32     14/45
        FCNF         7216                  11/15 S   11/17 D
        FCNX         7211                  11/14 L   11/19
        FCN1         7221                  11/19 L   11/21
        FCN3         7215                  11/16 L   11/24
        F.CHL           2                   4/15 D   17/33
        F.CHM           1                   4/14 D
        F.CHR           0                   4/10 D   17/33
        F.CHS           0                   4/13 D
        F.DOT          10                   4/11 D
        F.KEY          20                   4/12 D
        F.SBS         200                   4/09 D
        F.SEL        7000                   4/06 D   17/33
        F.SLS           0                   4/07 D   17/33
        F.SRS         100                   4/08 D
        GGS          7236                   8/27     11/41 D   13/17     13/25     13/40     13/43     14/51
        GGSX         7235                  11/41 L
        GGS2         7231                  11/38 L   11/45
        GGS3         7237                  11/42 L   11/47
        IDLA         7630                  17/28     17/42 L   17/44
        IDLEDCN      7616                  17/29 L
        IDLE10       7612                  17/24     17/26 L
        IDLL            2                  17/27     17/44 D
        INI          6120                   6/16 L
        INIA         6176                   7/11 S    7/12 L
        INIB         6212                   7/16      7/21 L    7/23
        INIC         6213                   7/14 S    7/22 L
        INIL            3                   7/15      7/23 D
        INIR         6221                   7/26      7/29 L
        INI1         6124                   6/21 L    6/24
        INI4         6143                   6/33 L    6/40
        INI7         6207                   7/04      7/09      7/18 L
        INI9         6215                   7/20      7/26 L
        IOMGS        7636                  17/13 S   17/17 S   17/55 D
        IOQB         6000                   7/29
        IOQTRAN      6000                   7/30
        IPLFWA       7421                  18/37
        IPLTRAN      6120                   1/10      6/01     18/36
        LCDD         7100                  18/33 D   18/34
        LCD4          760                  18/36 D
        LCNC         1500                   3/34 D
        LDCC         2000                   3/36 D
        LDDC         3000                   3/39 D
        LENGTH       7357                  12/14     12/17 S   13/24 S   13/35 D
        LE6P            1                   9/01
        LE77           17                   9/01
        LINKAGE      7402                  10/50     13/14 S   13/20     13/49 L   14/18
        LMCC         2300                   3/38 D
        MDC          7460                   8/10     15/06 D
        MDCA         7502                  15/17     15/21 L   15/24
        MDCL            4                  15/16     15/24 D
        MDCX         7457                  15/06 L   15/07     15/13     15/20
1       CD4         CTI 844 DISK DRIVER - A02                         COMPASS 3.7-871.     23/08/13. 15.42.15.      PAGE    21
        SYMBOLIC REFERENCE TABLE. 
  
        MDC1         7472                  15/11     15/14 L
        MSRS           30                  10/47
        MVE          7252                   9/02     12/12 D   13/45
        MVEA         7265                  12/13 S   12/15     12/19 D
        MVEX         7251                  12/12 L   12/24
        MVE1         7264                  12/18 L   12/23
        NAME            5                   3/51 D    8/41      8/44      8/50      8/53
        NFCT         7144                   8/23 S    8/48 S   10/12 L
        NFM          7632                  17/37     17/49 D   17/57
        NFMAX          36                   5/09 D    8/22
        NFMB         7634                  17/19 S   17/53 L   17/54
        NFML            6                  17/36     17/57 D
        NFNM         7636                   8/17 S    8/19 S    8/42      8/45     17/54 D   17/55
        OAMC         7300                   3/41 D
        PRU           500                  14/19
        PSNC            0                   3/30 D
        QUAL$           0                   3/54 D
        RCS          7307                   8/32      8/37     13/08 D   14/26
        RCSB         7361                  13/30 S   13/37 D
        RCSX         7306                  13/08 L   13/47
        RCS1         7310                  13/09 L   13/19
        RCS2         7330                  13/16     13/20 L
        RCS3         7335                  13/21     13/23 L
        RCS5         7345                  13/28 L   13/42
        RCS7         7371                  13/39     13/43 L
        RCS9         7376                  13/27     13/46 L
        RDC          7507                   9/08     15/34 D
        RDCA         7522                  15/38     15/42 L   15/45
        RDCL            4                  15/37     15/45 D
        RDCX         7506                  15/34 L   15/35     15/41
        RETRY          12                   3/53 D    8/20
        REW          7274                   6/26      8/26     12/34 D
        REWX         7273                  12/34 L   12/41
        REW1         7277                  12/37 L   12/40
        RRR          7411                   8/34      9/05     14/16 D
        RRRA         7425                   8/13 S    8/35      8/39     14/24 D
        RRRT         7432                  13/26     14/15 S   14/17 S   14/21     14/28 L
        RRRX         7410                  14/16 L
        RRR2         7414                  14/18 L   14/27
        RRR4         7427                  14/22     14/26 L
        RRR5         7405                  14/14 L   14/20
        SBNC         1700                   3/35 D
        SEK          7434                  13/09     13/28     14/43 D
        SEKX         7433                  14/43 L   14/52
        SEK1         7435                  14/44 L   14/54     14/56
        SHNC         1000                   3/33 D
        TCDD         6226                   6/21      8/03 D   18/34
        TCDDL         652                   6/19     18/34 D
        TIMEOUT    210560                   3/52 D   10/26     11/18
        UJNC          300                   3/31 D   17/43
        UNIT         7562                  14/48     16/08 L
        XSET         6000                   4/17 D   17/52
        YSET         7000                   4/18 D
        ZJNC          400                   3/32 D
 CD8
1       CD8         CTI 885 DISK DRIVER - A02                         COMPASS 3.7-871.     23/08/13. 15.42.17.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
  
                       6120      760              IDENT  CD8,IPLTRAN
                       7100     (145)             END 
  
  
  
  
                                                  IDENT  CD8,IPLTRAN                                             CD8         2
                                                  PERIPH                                                         CD8         3
                                         VERID    MICRO  1,,*A02*                                                *A02*       1
                                         VERS     MICRO  1,,*"VERID"*                                       VERS VERS        3
                                                  COMMENT CTI 885 DISK DRIVER - "VERS"                           DIMA317E    3
                                                  COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1979               DIMA317E    4
  
  
                                        *         ALL RIGHTS RESERVED                                            CDCCRN      3
                                        *                                                                        CDCCRN      4
                                        *         CONTAINED HEREIN ARE SOFTWARE PRODUCTS COPYRIGHTED             CDCCRN      5
                                        *         BY CONTROL DATA CORPORATION.  REPRODUCTION WITHOUT             CDCCRN      6
                                        *         PERMISSION IS PROHIBITED.  THE COPYRIGHT NOTICE                CDCCRN      7
                                        *         MUST APPEAR ON ALL AUTHORIZED COMPLETE OR                      CDCCRN      8
                                        *         PARTIAL COPIES.                                                CDCCRN      9
                                        *                                                                        CDCCRN     10
1       CD8         CTI 885 DISK DRIVER - A02                         COMPASS 3.7-871.     23/08/13. 15.42.17.      PAGE     2
                                                                      CD8 
  
                                        *****     CD8 - 885 DISK DRIVER -CTI-.                                   CD8         8
                                        *                                                                        CD8         9
                                        *         R. A. MATTHEWS.          02/28/78.                             CD8        10
                                        *         R. A. TURGEON            6/13/78.                              CD8        11
                                        *                                                                        CD8        12
                                        *         CD8 PROVIDES A BASIC DISK DRIVER FOR 885 DISK DRIVES           CD8        13
                                        *         WHEN USED AS THE DEADSTART DEVICE WITHIN THE COMMON TEST/      CD8        14
                                        *         INITIALIZATION (CTI) PACKAGE. CD8 MOVES ITSELF OVER THE IPL    CD8        15
                                        *         PREFIX TABLE AND PROGRAM BODY TO ALLOW SUBSEQUENT READS TO     CD8        16
                                        *         USE THE IPL BUFFER AREA.                                       CD8        17
  
  
  
  
                                        ***       CD8 - 885 DISK DRIVER -CTI-.                                   CD8        19
                                        *                                                                        CD8        20
                                        *         CD8 IS THE FIFTH RECORD FOLLOWING IPL ON A DEADSTART           CD8        21
                                        *         TAPE AND IS THE FIRST RECORD IN THE CTI AREA FOR DISK          CD8        22
                                        *         DEADSTART. CD8, THROUGH THE COMMON DRIVER INTERFACE,           CD8        23
                                        *         PROVIDES A DEVICE READER THAT WILL LOAD GIVEN ROUTINES AND     CD8        24
                                        *         HAND OFF CONTROL IF SO SPECIFIED. THE DEVICE READER WILL       CD8        25
                                        *         PROCESS A MAXIUMIM OF 510 DECIMAL CM WORDS OF INFORMATION.     CD8        26
1       CD8         CTI 885 DISK DRIVER - A02                         COMPASS 3.7-871.     23/08/13. 15.42.17.      PAGE     3
        DEFINITIONS.
  
                                        **        DEADSTART PANEL WORDS.                                         CD8        28
                                        *                                                                        CD8        29
                                        *         WORDS 5 - 20B OF THE DEADSTART PANEL MUST REMAIN INTACT        CD8        30
                                        *         DURING CTI EXECUTION. WORDS 0 - 4 MAY BE USED AS SCRATCH       CD8        31
                                        *         DIRECT CELLS.                                                  CD8        32
                                                                                                                 CD8        33
                                   0     D0       EQU    0                 SCRATCH                               CD8        34
                                   1     D1       EQU    1                 SCRATCH                               CD8        35
                                   2     D2       EQU    2                 SCRATCH                               CD8        36
                                   3     D3       EQU    3                 SCRATCH                               CD8        37
                                   4     D4       EQU    4                 SCRATCH                               CD8        38
                                   5     D5       EQU    5                 ZERO IF TAPE DEADSTART                CD8        39
                                   6     D6       EQU    6                 FUNCTION WORD                         CD8        40
                                        *         (D6) = WARMSTART FUNCTION, IF MTS/ATS.                         CD8        41
                                        *              = DEADSTART FUNCTION, IF 844/885 DISK.                    CD8        42
                                   7     D7       EQU    7                 RESERVED                              CD8        43
                                        *         (D7) = 1400B IF 3000 TYPE TAPE.                                CD8        44
                                  10     D10      EQU    10B               RESERVED                              CD8        45
                                  11     D11      EQU    11B               RESERVED                              CD8        46
                                  12     D12      EQU    12B               MSL PARAMETERS                        CD8        47
                                  13     D13      EQU    13B               OS PARAMETERS                         CD8        48
                                  14     D14      EQU    14B               OS PARAMETERS                         CD8        49
                                  15     D15      EQU    15B               UNUSED                                CD8        50
                                  16     D16      EQU    16B               C80/A170 RESERVED                     CD8        51
                                  17     D17      EQU    17B               RESERVED                              CD8        52
                                  20     D20      EQU    20B               RESERVED                              CD8        53
  
  
  
  
                                        **        INSTRUCTION EQUATES.                                           CD8        55
                                        *                                                                        CD8        56
                                                                                                                 CD8        57
                                   0     PSNC     EQU    0000B             PASS                                  CD8        58
                                 300     UJNC     EQU    0300B             UNCONDITIONAL JUMP                    CD8        59
                                 400     ZJNC     EQU    0400B             ZERO JUMP                             CD8        60
                                1000     SHNC     EQU    1000B             SHIFT                                 CD8        61
                                1500     LCNC     EQU    1500B             LOAD COMPLEMENT                       CD8        62
                                1700     SBNC     EQU    1700B             SUBTRACT NO-ADDRESS                   CD8        63
                                2000     LDCC     EQU    2000B             LOAD CONSTANT                         CD8        64
                                2100     ADCC     EQU    2100B             ADD CONSTANT                          CD8        65
                                2300     LMCC     EQU    2300B             LOGICAL MINUS CONSTANT                CD8        66
                                3000     LDDC     EQU    3000B             LOAD DIRECT                           CD8        67
                                6400     AJMC     EQU    6400B             ACTIVE JUMP                           CD8        68
                                7300     OAMC     EQU    7300B             OUTPUT MEMORY                         CD8        69
                                7400     ACNC     EQU    7400B             ACTIVATE CHANNEL                      CD8        70
                                7500     DCNC     EQU    7500B             DISCONNECT CHANNEL                    CD8        71
1       CD8         CTI 885 DISK DRIVER - A02                         COMPASS 3.7-871.     23/08/13. 15.42.17.      PAGE     4
        DEFINITIONS.                                                  MSC 
  
                                        **        MISCELLANEOUS DEFINITIONS.                                     CD8        73
                                        *                                                                        CD8        74
                                        *                                                                        CD8        75
                                                                                                                 CD8        76
                                   5     NAME     EQU    5                 OFFSET OF NAME IN PRFX TABLE          CD8        77
                              210560     TIMEOUT  EQU    70000             TIMEOUT COUNT                         CD8        78
                                  12     RETRY    EQU    10D               NO. OF RETRIES IN ERROR PROCESSING    CD8        79
                                   0     QUAL$    EQU    0                 DON-T QUALIFY COMMON DECKS            CD8        80
  
  
  
  
                                        **        DISPLAY CONTROLLER DEFINITIONS.                                CD8        82
                                        *                                                                        CD8        83
                                        *                                                                        CD8        84
                                                                                                                 CD8        85
                                  10     CHD      EQU    10B               DISPLAY CHANNEL                       CD8        86
                                                                                                                 CD8        87
                                        *         DISPLAY FUNCTION CODES.                                        CD8        88
                                                                                                                 CD8        89
                                7000     F.SEL    EQU    7000B             SELECT CONSOLE DISPLAY                CD8        90
                                   0     F.SLS    EQU    0000B             SELECT CONSOLE LEFT SCREEN            CD8        91
                                 100     F.SRS    EQU    0100B             SELECT CONSOLE RIGHT SCREEN           CD8        92
                                 200     F.SBS    EQU    0200B             SELECT CONSOLE BOTH SCREEN            CD8        93
                                   0     F.CHR    EQU    0000B             SELECT DOT MODE                       CD8        94
                                  10     F.DOT    EQU    0010B             SELECT DOT MODE                       CD8        95
                                  20     F.KEY    EQU    0020B             SELECT KEYBOARD INPUT                 CD8        96
                                   0     F.CHS    EQU    0000B             SET CHARACTER SIZE SMALL              CD8        97
                                   1     F.CHM    EQU    0001B             SET CHARACTER SIZE MEDIUM             CD8        98
                                   2     F.CHL    EQU    0002B             SET CHARACTER SIZE LARGE              CD8        99
                                                                                                                 CD8       100
                                        *         COORDINATE DESIGNATION.                                        CD8       101
                                                                                                                 CD8       102
                                6000     XSET     EQU    6000B             SET X COORDINATE                      CD8       103
                                7000     YSET     EQU    7000B             SET Y COORDINATE                      CD8       104
1       CD8         CTI 885 DISK DRIVER - A02                         COMPASS 3.7-871.     23/08/13. 15.42.17.      PAGE     5
        DEFINITION COMMON DECKS.
  
                                        **        DEFINITION COMMON DECKS.                                       CD8       107
                                        *                                                                        CD8       108
                                        **        ALL SYMBOL AND MACRO DEFINITION COMMON DECKS ARE CALLED HERE.  CD8       109
                                                                                                                 CD8       110
           0                             CTI      CTEXT  COMPCTI - CTI COMMON MACROES.                           COMPCTI     2
           0                             885      CTEXT  COMS885 - 885 DISK DEFINTIONS.                          COMS885     2
           0                                      CTEXT  COMPCHI - REDEFINE I/O INSTRUCTIONS.                    COMPCHI     2
           0                             CPA      CTEXT  COMSCPA - CTI COMMON POINTER AREA DEFINITIONS.          COMSCPA     2
           0                             CTI      CTEXT  COMSCTI - CTI INTERNAL DEFINITIONS.                     COMSCTI     2
                                  36     NFMAX    EQU    CDNFMAX           NOFIND MAXIMUM                        CD8       116
1       CD8         CTI 885 DISK DRIVER - A02                         COMPASS 3.7-871.     23/08/13. 15.42.17.      PAGE     6
        MAIN ROUTINE. 
  
        6120                                      ORG    IPLTRAN                                                 CD8       118
  
  
  
  
                                        ***       INI - CD8 INITIALIZATION.                                      CD8       120
                                        *                                                                        CD8       121
                                        *         INI MOVES THE DISK DRIVER INTO THE COMMON DRIVER AREA,         CD8       122
                                        *         AND INITIALIZES CHANNEL INSTRUCTIONS                           CD8       123
                                        *         AND LOADS THE FIRST DISPLAY ROUTINE.                           CD8       124
                                        *                                                                        CD8       125
                                        *         ENTRY  CPA AREA INTACT.                                        CD8       126
                                        *                DEADSTART PANEL CELLS INTACT.                           CD8       127
                                        *                                                                        CD8       128
                                        *         USES   D2, D3, D4.                                             CD8       129
                                                                                                                 CD8       130
        6120                       1     INI      BSSZ   1                 ENTRY POINT                           CD8       131
                                                                                                                 CD8       132
                                        *         MOVE THE COMMON DRIVER FOR DISK, *CDD*, INTO THE COMMON        CD8       133
                                        *         DRIVER AREA.                                                   CD8       134
                                                                                                                 CD8       135
        6121         2000 0652                    LDC    TCDDL                                                   CD8       136
        6123         3404                         STD    D4                LENGTH OF MOVE BLOCK                  CD8       137
        6124         5004 6225           INI1     LDM    TCDD-1,D4                                               CD8       138
        6126         5404 6777                    STM    CDEP-1,D4         MOVE DRIVER CODE                      CD8       139
        6130         3704                         SOD    D4                                                      CD8       140
        6131         0572                         NJN    INI1              IF MORE DRIVER CODE TO MOVE           CD8       141
                                                                                                                 CD8       142
                                        *         INITIALIZE DISK POINTERS AND CHANNEL INSTRUCTIONS.             CD8       143
                                                                                                                 CD8       144
        6132         0200 7274                    RJM    REW               USE DRIVER ROUTINE                    CD8       145
                                                                                                                 CD8       146
        6134         2000 7526                    LDC    CHT               FWA OF CHANNEL TABLE                  CD8       147
        6136         3403                         STD    D3                                                      CD8       148
        6137         3010                         LDD    D10                                                     CD8       149
        6140         1237                         LPN    37B                                                     CD8       150
        6141         3404                         STD    D4                CHANNEL NO.                           CD8       151
        6142         4003                         LDI    D3                                                      CD8       152
        6143         3402                INI4     STD    D2                INSTRUCTION ADDRESS                   CD8       153
        6144         4002                         LDI    D2                                                      CD8       154
        6145         1337                         SCN    37B                                                     CD8       155
        6146         3104                         ADD    D4                                                      CD8       156
        6147         4402                         STI    D2                                                      CD8       157
        6150         3603                         AOD    D3                NEXT LIST ENTRY                       CD8       158
        6151         4003                         LDI    D3                                                      CD8       159
        6152         0570                         NJN    INI4              IF NOT END OF LIST                    CD8       160
        6153         3603                         AOD    D3                                                      CD8       161
        6154         3006                         LDD    D6                FUNCTION WORD                         CD8       162
        6155         1277                         LPN    77B                                                     CD8       163
        6156         4403                         STI    D3                UNIT NO.                              CD8       164
1       CD8         CTI 885 DISK DRIVER - A02                         COMPASS 3.7-871.     23/08/13. 15.42.17.      PAGE     7
        MAIN ROUTINE. 
  
                                        *         CODE TO CREATE CTI INTERNAL STATE                              CD8       166
                                                                                                                 CD8       167
        6157         7553                         DCN.   13B+40B           DISCONNECT 13B                        CD8       168
        6160         7573                         DCN.   33B+40B           DISCONNECT 33B                        CD8       169
                                                                                                                 CD8       170
        6161         6512 6207                    IJM.   INI7,12B          IF CHAN 12B IS D.S CHANNEL            CD8       171
        6163         1400                         LDN    0                 OUTPUT 0000 TO CH 12B                 CD8       172
        6164         7212                         OAN.   12B                                                     CD8       173
        6165         5600 0000                    AOM    0                 WAIT A WHILE                          CD8       174
        6167         5700 0000                    SOM    0                                                       CD8       175
        6171         6612 6207                    FJM.   INI7,12B          IF FULL (NO PP ON CH 12B)             CD8       176
                                                                                                                 CD8       177
        6173         3004                         LDD    D4                ACTIVATE DEADSTART CHANNEL            CD8       178
        6174         5500 6176                    RAM    INIA                                                    CD8       179
        6176         7440                INIA     ACN.   40B                                                     CD8       180
                                                                                                                 CD8       181
        6177         3004                         LDD    D4                MOVE PP BACK TO D.S. CHAN             CD8       182
        6200         5500 6213                    RAM    INIC                                                    CD8       183
        6202         1403                         LDN    INIL                                                    CD8       184
        6203         7312 6212                    OAM.   INIB,12B                                                CD8       185
        6205         6612 6205                    FJM.   *,12B                                                   CD8       186
                                                                                                                 CD8       187
        6207         7552                INI7     DCN.   12B+40B           DISCONNECT 12B                        CD8       188
        6210         7572                         DCN.   32B+40B           DISCONNECT 32B                        CD8       189
        6211         0304                         UJN    INI9                                                    CD8       190
                                                                                                                 CD8       191
        6212         1400                INIB     LDN    0                                                       CD8       192
        6213         7100 0000           INIC     IAM.   0,**                                                    CD8       193
                                   3     INIL     EQU    *-INIB                                                  CD8       194
                                                                                                                 CD8       195
                                                                                                                 CD8       196
                                        *         CALL THE COMMON DRIVER TO LOAD IOQ                             CD8       197
                                        *          AND GIVE CONTROL TO IOQ.                                      CD8       198
                                                                                                                 CD8       199
        6215         2000 6221           INI9     LDC    INIR               A = ADDRESS OF PARAMS                CD8       200
        6217         0100 7000                    LJM    CDEP               GOTO COMMON DRIVER                   CD8       201
                                                                                                                 CD8       202
                                        *         PARAMETER BLOCK FOR COMMON DRIVER TO LOAD IOQ                  CD8       203
                                                                                                                 CD8       204
        6221         6000                INIR     CON    IOQB               LOAD ADDRESS                         CD8       205
        6222         6000                         CON    IOQTRAN            TRANSFER ADDRESS                     CD8       206
        6223         0000                         CON    0                  NO REWIND FIRST                      CD8       207
        6224         1117                         VFD    18/3LIOQ,6/0       NAME CHECK FIELD                     CD8       208
        6225         2100 
1       CD8         CTI 885 DISK DRIVER - A02                         COMPASS 3.7-871.     23/08/13. 15.42.17.      PAGE     8
        CDD - COMMON DISK DRIVER. 
  
                                        ***       CDD - COMMON DISK DRIVER.                                      CD8       210
                                        *                                                                        CD8       211
                                                                                                                 CD8       212
                                6226     TCDD     EQU    *                 FWA OF DRIVER AREA                    CD8       213
                                                                                                                 CD8       214
      L 7000                                      LOC    CDEP              BEGINNING OF COMMON DRIVER AREA       CD8       215
                                                                                                                 CD8       216
                                7000     CDD      EQU    *                                                       CD8       217
      L 7000         0302                         UJN    ENDCONS                                                 CD8       218
      L 7001         0014                         CON    D885                                                    CD8       219
                                7002     ENDCONS  EQU    *                                                       CD8       220
      L 7002         3401                         STD    D1                SAVE ADDRESS OF PARAMS                CD8       221
      L 7003         0200 7460                    RJM    MDC               SEIZE D.S. CHANNEL                    CD8       222
      L 7005         4001                         LDI    D1                                                      DIMA295D    1
      L 7006         3402                         STD    D2                D2 = INPUT BUFFER ADDRESS             CD8       224
      L 7007         5400 7425                    STM    RRRA                                                    CD8       225
      L 7011         5001 0001                    LDM    CDTA,D1                                                 CD8       226
      L 7013         5400 7133                    STM    CDDZ              STORE TRANSFER ADDRESS                CD8       227
      L 7015         5001 0003                    LDM    CDNC,D1                                                 CD8       228
      L 7017         5400 7636                    STM    NFNM                                                    CD8       230
      L 7021         5001 0004                    LDM    CDNC+1,D1                                               CD8       231
      L 7023         5400 7637                    STM    NFNM+1                                                  CD8       233
      L 7025         1412                         LDN    RETRY                                                   CD8       234
      L 7026         5400 7143                    STM    ARTC              INIT RETRY COUNTER                    CD8       235
      L 7030         1436                         LDN    NFMAX                                                   CD8       236
      L 7031         5400 7144                    STM    NFCT              INIT NOFIND COUNTER                   CD8       237
      L 7033         5001 0002                    LDM    CDRW,D1                                                 CD8       238
      L 7035         0403                         ZJN    CDD2              IF NO REWIND FIRST                    CD8       239
      L 7036         0200 7274                    RJM    REW                                                     CD8       240
      L 7040         0200 7236           CDD2     RJM    GGS               GET GENERAL STATUS                    DIMA295D    2
      L 7042         1007                         SHN    17-10                                                   DIMA295D    3
      L 7043         0774                         MJN    CDD2                                                    DIMA295D    4
      L 7044         5001 0003                    LDM    CDNC,D1                                                 DIMA295D    5
      L 7046         0512                         NJN    CDD3              IF READ NAMED RECORD                  CD8       242
      L 7047         0200 7307                    RJM    RCS               ELSE READ CURRENT SECTOR              CD8       243
      L 7051         0100 7122                    LJM    CDD7              JOIN COMMON CODE                      CD8       244
      L 7053         0200 7411           CDD2A    RJM    RRR               BYPASS REST OF RECORD                 DIMA295D    6
      L 7055         5000 7425                    LDM    RRRA                                                    DIMA295D    7
      L 7057         3402                         STD    D2                                                      DIMA295D    8
      L 7060         0200 7307           CDD3     RJM    RCS               READ CURRENT SECTOR                   CD8       245
                                        *         TEST IF NAMES MATCH                                            CD8       246
      L 7062         5000 7425                    LDM    RRRA                                                    CD8       247
      L 7064         3402                         STD    D2                SET D2 TO INPUT BUFFER ADDR           CD8       248
      L 7065         5002 0005                    LDM    NAME,D2                                                 CD8       249
      L 7067         5200 7636                    SBM    NFNM                                                    DIMA295D    9
      L 7071         0506                         NJN    CDD5                                                    CD8       252
      L 7072         5002 0006                    LDM    NAME+1,D2                                               CD8       253
      L 7074         5200 7637                    SBM    NFNM+1                                                  DIMA295D   10
      L 7076         0420                         ZJN    CDD6              IF NAMES MATCH                        CD8       256
                                        *         HERE IF NO MATCH. CHECK IF ZZZ.                                CD8       257
      L 7077         5700 7144           CDD5     SOM    NFCT              CHECK NOFIND COUNTER                  CD8       258
      L 7101         0413                         ZJN    CDD55             IF TOO MANY NOFINDS                   CD8       259
      L 7102         5002 0005                    LDM    NAME,D2                                                 CD8       260
      L 7104         2300 3232                    LMC    2RZZ                                                    CD8       261
      L 7106         0544                CDD52    NJN    CDD2A             JUMP IF NOT ZZZ                       DIMA295D   11
      L 7107         5002 0006           CDD53    LDM    NAME+1,D2                                               CD8       267
      L 7111         2300 3200                    LMC    1RZ*100B                                                CD8       268
1       CD8         CTI 885 DISK DRIVER - A02                         COMPASS 3.7-871.     23/08/13. 15.42.17.      PAGE     9
        CDD - COMMON DISK DRIVER. 
  
      L 7113         0572                         NJN    CDD52             IF NOT ZZZ                            CD8       269
      L 7114         0100 7607           CDD55    LJM    ERNF              IF ZZZ REACHED                        CD8       270
                                        *         STRIP OFF PRFX AND 6PPM TABLES                                 CD8       271
      L 7116         2000 0120           CDD6     LDC    LE77*BPW+LE6P*BPW                                       CD8       272
      L 7120         0200 7252                    RJM    MVE                                                     CD8       273
                                        *         READ IN REST OF RECORD IF MORE THAN ONE SECTOR                 CD8       274
      L 7122         1400                CDD7     LDN    0                                                       CD8       275
      L 7123         0200 7411                    RJM    RRR                                                     CD8       276
      L 7125         1410                         LDN    DOPC              OPERATION COMPLETE                    CD8       277
      L 7126         0200 7212                    RJM    FCN                                                     CD8       278
      L 7130         0200 7507                    RJM    RDC               RESTORE D.S. CHANNEL.                 CD8       279
      L 7132         0100 0000                    LJM    **                GO TO TRANSFER ADDRESS                CD8       280
                                7133     CDDZ     EQU    *-1                                                     CD8       281
1       CD8         CTI 885 DISK DRIVER - A02                         COMPASS 3.7-871.     23/08/13. 15.42.17.      PAGE    10
        SUBROUTINES.                                                  ART 
  
                                        **        ART - ADJUST RETRY COUNTER                                     CD8       284
                                        *                                                                        CD8       285
                                        *         DECREMENT COUNTER AND                                          CD8       286
                                        *         RETURN TO CALLER IF COUNTER .GE. 0                             CD8       287
                                        *         ELSE GO TO ERROR PROCESSOR                                     CD8       288
                                        *                                                                        CD8       289
      L 7134         0100 0000           ART      ENM    X                 ENTRY/EXIT                            CD8       290
      L 7136         5700 7143                    SOM    ARTC                                                    CD8       291
      L 7140         0673                         PJN    ARTX              EXIT IF MORE RETRIES AVAILABLE        CD8       292
      L 7141         0100 7566                    LJM    ERIO              IF NO MORE RETRIES AVAILABLE          CD8       293
      L 7143         0000                ARTC     CON    0                 RETRY COUNTER                         CD8       294
      L 7144         0000                NFCT     CON    0                 NOFIND COUNTER                        CD8       295
  
  
  
  
                                        **        AWD - ACTIVATE CHANNEL AND WAIT FOR DATA.                      CD8       297
                                        *                                                                        CD8       298
                                        *         AWD ACTIVATES THE FUNCTIONED CHANNEL AND TIMES OUT A FULL      CD8       299
                                        *         CONDITION.                                                     CD8       300
                                        *                                                                        CD8       301
                                        *         EXIT   (A) .NE. 0, DATA ON CHANNEL.                            CD8       302
                                        *                (A) = 0, NO DATA RECIEVED, CHANNEL DISCONNECTED.        CD8       303
      L 7145         0100 0000           AWD      ENM    X                 ENTRY/EXIT                            CD8       304
      L 7147         7440                         ACN    40B               ACTIVATE CHANNEL                      CD8       305
      L 7150         2021 0560                    LDC    TIMEOUT                                                 CD8       306
      L 7152         6600 7145           AWD1     FJM    AWDX,0            IF FULL, RETURN                       CD8       307
      L 7154         1701                         SBN    1                                                       CD8       308
      L 7155         0574                         NJN    AWD1              IF TIME OUT NOT EXPIRED               CD8       309
      L 7156         7540                         DCN    40B               DISCONNECT                            CD8       310
      L 7157         0365                         UJN    AWDX              RETURN                                CD8       311
  
  
  
  
                                        **        BDA - BUMP DISK ADDRESSES.                                     CD8       313
                                        *                                                                        CD8       314
                                        *         BDA ADJUSTS THE CURRENT DISK ADDRESS BY THE OFFSET READ        CD8       315
                                        *         IN THE LINKAGE BYTES.                                          CD8       316
                                        *                                                                        CD8       317
                                        *         ENTRY  (DADR - DADR+2) = DISK ADDRESS.                         CD8       318
                                        *                                                                        CD8       319
                                        *         EXIT   (DADR - DADR+2) = NEW DISK ADDRESS.                     CD8       320
      L 7160         5400 7565           BDA1     STM    DADR+2                                                  CD8       321
      L 7162         5600 7564                    AOM    DADR+1            BUMP TRACK BY ONE                     CD8       322
      L 7164         5000 7565           BDA2     LDM    DADR+2                                                  CD8       323
      L 7166         1740                         SBN    MSRS              MAX. NO OF SECTORS                    CD8       324
      L 7167         0670                         PJN    BDA1              IF MORE THAN ONE TRACK                CD8       325
      L 7170         0100 0000           BDA      ENM    X                 ENTRY/EXIT                            CD8       326
      L 7172         5000 7403                    LDM    LINKAGE+1         PRU OFFSET                            CD8       327
      L 7174         1021                         SHN    18-1                                                    CD8       328
      L 7175         0610                         PJN    BDA3              IF EVEN, NOT END OF CYLINDER          CD8       329
      L 7176         1001                         SHN    1                                                       CD8       330
      L 7177         5400 7565                    STM    DADR+2                                                  CD8       331
      L 7201         1400                         LDN    0                                                       CD8       332
      L 7202         5400 7564                    STM    DADR+1            CLEAR TRACK NO.                       CD8       333
      L 7204         0357                         UJN    BDA2                                                    CD8       334
1       CD8         CTI 885 DISK DRIVER - A02                         COMPASS 3.7-871.     23/08/13. 15.42.17.      PAGE    11
        SUBROUTINES.                                                  BDA 
  
      L 7205         1001                BDA3     SHN    1                                                       CD8       335
      L 7206         5500 7565                    RAM    DADR+2                                                  CD8       336
      L 7210         0353                         UJN    BDA2                                                    CD8       337
  
  
  
  
                                        **        FCN - FUNCTION DEVICE.                                         CD8       339
                                        *                                                                        CD8       340
                                        *         ENTRY  (A) = FUNCTION CODE.                                    CD8       341
                                        *                                                                        CD8       342
                                        *         RETURNS TO CALLER IF NO ERRORS                                 CD8       343
                                        *         ELSE GO TO ERROR PROCESSOR.                                    CD8       344
      L 7211         0100 0000           FCN      ENM    X                 ENTRY/EXIT                            CD8       345
      L 7213         5400 7216                    STM    FCNF              SAVE FUNCTION CODE                    CD8       346
      L 7215         7700 0000           FCN3     FNC    0,0               ISSUE FUNCTION                        DIMA295D   12
                                7216     FCNF     EQU    *-1                                                     DIMA295D   13
      L 7217         2021 0560                    LDC    TIMEOUT                                                 CD8       349
      L 7221         6500 7211           FCN1     IJM    FCNX,0            IF FUNCTION ACCEPTED, RETURN          CD8       350
      L 7223         1701                         SBN    1                                                       CD8       351
      L 7224         0574                         NJN    FCN1              IF TIMEOUT NOT EXPIRED                CD8       352
      L 7225         7540                         DCN    40B                                                     CD8       353
      L 7226         0200 7135                    RJM    ART               ASK TO RETRY                          CD8       354
      L 7230         0364                         UJN    FCN3              TRY AGAIN                             CD8       355
  
  
  
  
                                        **        GGS - GET GENERAL STATUS.                                      CD8       358
                                        *                                                                        CD8       359
                                        *         GGS ISSUES THE GENERAL STATUS FUNCTION  AND UPDATES            CD8       360
                                        *         THE COMMON DRIVER FIELD *CDGS*. THE STATUS IS ALSO RETURNED    CD8       361
                                        *         IN (A).                                                        CD8       362
                                        *                                                                        CD8       363
                                        *         EXIT   (CDGS) = GENERAL STATUS REPLY.                          CD8       364
                                        *                (A) = GENERAL STATUS REPLY.                             CD8       365
                                        *                                                                        CD8       366
      L 7231         7000                GGS2     IAN    0                 READ STATUS                           DIMA295D   14
      L 7232         5400 7250                    STM    CDGS                                                    DIMA295D   15
      L 7234         7540                         DCN    40B                                                     DIMA295D   16
      L 7235         0100 0000           GGS      ENM    X                 ENTRY/EXIT                            CD8       369
      L 7237         1412                GGS3     LDN    DGST                                                    CD8       370
      L 7240         0200 7212                    RJM    FCN               FUNCTION DEVICE                       CD8       371
      L 7242         0200 7146                    RJM    AWD               ACTIVATE CHAN AND WAIT FOR DATA       CD8       372
      L 7244         0564                         NJN    GGS2              IF DATA COMING                        DIMA295D   17
      L 7245         0200 7135                    RJM    ART               ASK TO RETRY                          DIMA295D   18
      L 7247         0367                         UJN    GGS3              TRY AGAIN                             DIMA295D   19
                                                                                                                 CD8       381
      L 7250         0000                CDGS     CON    0                                                       CD8       382
1       CD8         CTI 885 DISK DRIVER - A02                         COMPASS 3.7-871.     23/08/13. 15.42.17.      PAGE    12
        SUBROUTINES.                                                  MVE 
  
                                        **        MVE - MOVE DATA BLOCK.                                         CD8       384
                                        *                                                                        CD8       385
                                        *         MVE MOVES DOWN A SPECIFIED PORTION OF THE LAST                 CD8       386
                                        *         SECTOR THAT WAS READ AND ADJUSTS THE REMAINING                 CD8       387
                                        *         LENGTH. D2 IS ADVANCED ACCORDINGLY.                            CD8       388
                                        *                                                                        CD8       389
                                        *         ENTRY  (A) = NO. OF BYTES TO MOVE DOWN.                        CD8       390
                                        *                (D2) = FWA OF BUFFER.                                   CD8       391
                                        *                                                                        CD8       392
                                        *         EXIT   (D2) = FWA FOR NEXT READ.                               CD8       393
                                        *                                                                        CD8       394
      L 7251         0100 0000           MVE      ENM    X                 ENTRY/EXIT                            CD8       395
      L 7253         5400 7265                    STM    MVEA              STORE MOVE OFFSET                     CD8       396
      L 7255         5000 7357                    LDM    LENGTH            COMPUTE MOVE LENGTH                   CD8       397
      L 7257         5200 7265                    SBM    MVEA                                                    CD8       398
      L 7261         3403                         STD    D3                                                      CD8       399
      L 7262         5400 7357                    STM    LENGTH            ADJUST LENGTH REMAINING               CD8       400
      L 7264         5002 0000           MVE1     LDM    **,D2                                                   CD8       401
                                7265     MVEA     EQU    *-1                                                     CD8       402
      L 7266         4402                         STI    D2                                                      CD8       403
      L 7267         3602                         AOD    D2                ADVANCE INDEX                         CD8       404
      L 7270         3703                         SOD    D3                ADJUST COUNT                          CD8       405
      L 7271         0572                         NJN    MVE1              IF MORE TO MOVE                       CD8       406
      L 7272         0356                         UJN    MVEX              RETURN                                CD8       407
  
  
  
  
                                        **        REW - LOGICALLY REWIND DISK FILE                               CD8       409
                                        *                                                                        CD8       410
                                        *         REW MOVES THE CTI ADDRESS BYTES OF THE COMMON                  CD8       411
                                        *         POINTER AREA TO OUR CURRENT DISK ADDRESS *DADR*.               CD8       412
                                        *                                                                        CD8       413
      L 7273         0100 0000           REW      ENM    X                 ENTRY/EXIT                            CD8       414
      L 7275         1402                         LDN    2                                                       CD8       415
      L 7276         3404                         STD    D4                                                      CD8       416
      L 7277         5004 7735           REW1     LDM    CIRP,D4           MOVE                                  CD8       417
      L 7301         5404 7563                    STM    DADR,D4                                                 CD8       418
      L 7303         3704                         SOD    D4                                                      CD8       419
      L 7304         0672                         PJN    REW1                                                    CD8       420
      L 7305         0365                         UJN    REWX              RETURN                                CD8       421
  
  
  
  
                                        **        RCS - READ CURRENT SECTOR                                      CD8       423
                                        *                                                                        CD8       424
                                        *         RCS DOES A SEEK TO THE CURRENT SECTOR,                         CD8       425
                                        *         READS IN THE TWO LINKAGE BYTES TO DETERMINE THE                CD8       426
                                        *         TRUE LENGTH OF THE USEFUL DATA IN THE SECTOR.                  CD8       427
                                        *         SEEKS AGAIN TO THE CURRENT SECTOR,                             CD8       428
                                        *         READS IN THE AMOUNT DETERMINED BY THE PRIOR READ,              CD8       429
                                        *         STRIPS OFF THE LINKAGE BYTES,                                  CD8       430
                                        *         AND ADJUSTS THE CURRENT DISK ADDRESS *DADR*.                   CD8       431
                                        *                                                                        CD8       432
                                        *         ENTRY  (D2) = FWA FOR READ                                     CD8       433
                                        *                (DADR) = DISK ADDRESS FOR READ                          CD8       434
1       CD8         CTI 885 DISK DRIVER - A02                         COMPASS 3.7-871.     23/08/13. 15.42.17.      PAGE    13
        SUBROUTINES.
  
                                        *                (RRRT) = DISK LOAD TYPE                                 DIMA407A    1
                                        *                                                                        CD8       435
                                        *         EXIT   (D2) = FWA FOR AN ADDITIONAL READ                       CD8       436
                                        *                (DADR) = DISK ADDRESS FOR NEXT READ                     CD8       437
                                        *                (RRRT) = DISK LOAD TYPE                                 DIMA407A    2
                                        *                                                                        CD8       438
                                                                                                                 CD8       439
      L 7306         0100 0000           RCS      ENM    X                                                       CD8       440
      L 7310         0200 7434           RCS1     RJM    SEK               SEEK TO CURRENT DISK ADDRESS          CD8       441
      L 7312         1404                         LDN    DRED                                                    CD8       442
      L 7313         0200 7212                    RJM    FCN               ISSUE READ FUNC                       CD8       443
      L 7315         7440                         ACN    40B                                                     CD8       444
      L 7316         1402                         LDN    2                                                       CD8       445
      L 7317         7100 7402                    IAM    LINKAGE,0         READ LINKAGE BYTES                    CD8       446
      L 7321         7540                         DCN    40B                                                     CD8       447
      L 7322         0406                         ZJN    RCS2              IF COUNTED DOWN                       CD8       448
      L 7323         0200 7236                    RJM    GGS               CLEAR SHORT READ ERRORS               DIMA295D   20
      L 7325         0200 7135                    RJM    ART               ASK TO RETRY                          CD8       450
      L 7327         0360                         UJN    RCS1              TRY AGAIN                             CD8       451
      L 7330         5000 7402           RCS2     LDM    LINKAGE           GET LENGTH BYTE                       CD8       452
      L 7332         0503                         NJN    RCS3                                                    CD8       453
      L 7333         2000 0500                    LDC    500B                                                    CD8       454
      L 7335         1602                RCS3     ADN    2                                                       CD8       455
      L 7336         5400 7357                    STM    LENGTH            STORE TRUE LENGTH                     CD8       456
      L 7340         0200 7236                    RJM    GGS               CLEAR SHORT READ ERRORS               DIMA295D   21
      L 7342         5000 7432                    LDM    RRRT              LOAD TYPE                             DIMA407A    3
      L 7344         0532                         NJN    RCS9              IF ADDITIONAL SECTORS TO BE IGNORED   DIMA407A    4
      L 7345         0200 7434           RCS5     RJM    SEK               SEEK AGAIN TO SAME SECTOR             CD8       458
      L 7347         3002                         LDD    D2                                                      CD8       459
      L 7350         5400 7361                    STM    RCSB              STORE INPUT BUFFER ADDRESS            CD8       460
      L 7352         1404                         LDN    DRED                                                    CD8       461
      L 7353         0200 7212                    RJM    FCN               ISSUE READ FUNC                       CD8       462
      L 7355         7440                         ACN    40B                                                     CD8       463
      L 7356         2000 0000                    LDC    **                                                      CD8       464
                                7357     LENGTH   EQU    *-1                                                     CD8       465
      L 7360         7100 0000                    IAM    **,0              READ AMOUNT INDICATED                 CD8       466
                                7361     RCSB     EQU    *-1                                                     CD8       467
      L 7362         7540                         DCN    40B                                                     CD8       468
      L 7363         0406                         ZJN    RCS7              IF COUNTED DOWN                       CD8       469
      L 7364         0200 7236                    RJM    GGS               CLEAR SHORT READ ERRORS               DIMA295D   22
      L 7366         0200 7135                    RJM    ART               ASK TO RETRY                          CD8       471
      L 7370         0354                         UJN    RCS5              TRY AGAIN                             CD8       472
      L 7371         0200 7236           RCS7     RJM    GGS               CLEAR ERRORS                          CD8       473
      L 7373         1402                         LDN    2                                                       CD8       474
      L 7374         0200 7252                    RJM    MVE               STRIP OFF LINKAGE BYTES               CD8       475
      L 7376         0200 7171           RCS9     RJM    BDA               BUMP DISK ADDRESS                     DIMA407A    5
      L 7400         0100 7306                    LJM    RCSX              RETURN                                CD8       477
                                                                                                                 CD8       478
      L 7402                       3     LINKAGE  BSSZ   3                 PLACE TO READ IN LINKAGE BYTES        CD8       479
1       CD8         CTI 885 DISK DRIVER - A02                         COMPASS 3.7-871.     23/08/13. 15.42.17.      PAGE    14
        SUBROUTINES.
  
                                        **        RRR - READ REST OF LOGICAL RECORD                              CD8       481
                                        *                                                                        CD8       482
                                        *         RRR READS IN THE REST OF A LOGICAL RECORD IF THE RECORD        CD8       483
                                        *         CONSISTS OF MORE THAN ONE SECTOR.                              CD8       484
                                        *                                                                        CD8       485
                                        *         ENTRY  (A) = 0 IF ADDITIONAL SECTORS ARE TO BE APPENDED        CD8       486
                                        *                        TO THE FIRST SECTOR ALREADY IN MEMORY.          CD8       487
                                        *                (A) .NE. 0 IF ADDITIONAL SECTORS ARE TO BE IGNORED.     CD8       488
                                        *                                                                        DIMA407A    6
                                        *         USES   RRRT,D2.                                                DIMA407A    7
                                        *                                                                        DIMA407A    8
                                        *         CALLS  RCS.                                                    DIMA407A    9
                                        *                                                                        CD8       489
      L 7405         1400                RRR5     LDN    0                                                       DIMA407A   10
      L 7406         5400 7432                    STM    RRRT              RESET DISK LOAD TYPE                  DIMA407A   11
      L 7410         0100 0000           RRR      ENM    X                 ENTRY/EXIT                            CD8       490
      L 7412         5400 7432                    STM    RRRT              SAVE TYPE                             CD8       491
      L 7414         5000 7402           RRR2     LDM    LINKAGE           LENGTH OF SECTOR JUST READ            CD8       492
      L 7416         2300 0500                    LMC    PRU                                                     CD8       493
      L 7420         0564                         NJN    RRR5              IF ALL SECTORS HAVE BEEN READ         DIMA407A   12
      L 7421         5000 7432                    LDM    RRRT                                                    CD8       495
      L 7423         0404                         ZJN    RRR4              IF SECTOR TO BE APPENDED              CD8       496
      L 7424         2000 0000                    LDC    **                ELSE RESET D2 = ORIGINAL CDIB         CD8       497
                                7425     RRRA     EQU    *-1                                                     CD8       498
      L 7426         3402                         STD    D2                                                      CD8       499
      L 7427         0200 7307           RRR4     RJM    RCS               READ CURRENT SECTOR                   CD8       500
      L 7431         0362                         UJN    RRR2              LOOP                                  CD8       501
      L 7432         0000                RRRT     CON    0                 HOLDS TYPE                            CD8       502
  
  
  
  
                                        **        SEK - SEEK DISK ADDRESS.                                       CD8       504
                                        *                                                                        CD8       505
                                        *         SEK ISSUES A SEEK FUNCTION, AND WILL CONTINUE TO ISSUE AS LONG CD8       506
                                        *         AS THE DRIVE HEADS ARE IN MOTION.                              CD8       507
                                        *                                                                        CD8       508
                                        *         ENTRY  (UNIT - DADR+2) = SEEK PARAMETER ARRAY.                 CD8       509
                                        *                                                                        CD8       510
                                        *         EXIT   (A) .NE. 0, ERROR ON SEEK.                              CD8       511
                                        *                                                                        CD8       512
                                        *         CALLS  FCN, GGS.                                               CD8       513
      L 7433         0100 0000           SEK      ENM    X                 ENTRY/EXIT                            CD8       514
      L 7435         1402                SEK1     LDN    D2SK                                                    CD8       515
      L 7436         0200 7212                    RJM    FCN               SEEK 2:1                              CD8       516
      L 7440         1404                         LDN    4                                                       CD8       517
      L 7441         7440                         ACN    40B                                                     CD8       518
      L 7442         7300 7562                    OAM    UNIT,0                                                  CD8       519
      L 7444         6600 7444                    FJM    *,0                                                     CD8       520
      L 7446         7540                         DCN    40B                                                     CD8       521
      L 7447         0200 7236                    RJM    GGS               GET GENERAL STATUS                    CD8       522
      L 7451         0461                         ZJN    SEKX              IF ON CYLINDER                        CD8       523
      L 7452         1212                         LPN    12B               CHECK FOR BUSY OR RESERVED            DIMA295D   23
      L 7453         0561                         NJN    SEK1              IF DRIVE RESERVED OR BUSY             DIMA295D   24
      L 7454         0200 7135                    RJM    ART               ASK TO RETRY                          CD8       526
      L 7456         0356                         UJN    SEK1              TRY AGAIN                             CD8       527
1       CD8         CTI 885 DISK DRIVER - A02                         COMPASS 3.7-871.     23/08/13. 15.42.17.      PAGE    15
        SUBROUTINES.
  
                                        **        MDC - MOVE DEADSTART CHANNEL PP                                CD8       529
                                        *                                                                        CD8       530
                                        *         IF THE DEADSTART CHANNEL IS ACTIVE,                            CD8       531
                                        *           MOVE PP(D.S. CHAN) OVER TO CHANNEL 12B.                      CD8       532
                                        *                                                                        CD8       533
      L 7457         0100 0000           MDC      ENM    X                 ENTRY/EXIT                            CD8       534
      L 7461         6500 7457                    IJM    MDCX,0            IF D.S. CHAN INACTIVE                 CD8       535
      L 7463         1400                         LDN    0                                                       DIMA357D    1
      L 7464         7200                         OAN    0                 OUTPUT ZERO WORD                      DIMA357D    2
      L 7465         4000                         LDI    0                 DELAY 3 MEMORY CYCLES                 DIMA357D    3
      L 7466         6700 7472                    EJM    MDC1,0            IF WORD PICKED UP                     DIMA357D    4
      L 7470         7500                         DCN    0                 CLEAR CHANNEL OF DATA                 DIMA357D    5
      L 7471         0365                         UJN    MDCX              RETURN TO CALLER                      DIMA357D    6
      L 7472                             MDC1     BSS    0                                                       DIMA357D    7
      L 7472         7412                         ACN.   12B               ACTIVATE CHAN 12B                     CD8       536
      L 7473         1404                         LDN    MDCL              OUTPUT PROG TO PP(D.S. CHAN)          CD8       537
      L 7474         7300 7502                    OAM    MDCA,0                                                  CD8       538
      L 7476         6600 7476                    FJM    *,0                                                     CD8       539
      L 7500         7540                         DCN    40B                                                     CD8       540
      L 7501         0355                         UJN    MDCX              RETURN                                CD8       541
      L 7502         0000                MDCA     CON    0                                                       CD8       542
      L 7503         1400                         LDN    0                                                       CD8       543
      L 7504         7112 0000                    IAM.   0,12B                                                   CD8       544
                                   4     MDCL     EQU    *-MDCA                                                  CD8       545
  
  
  
  
                                        **        RDC - RESET DEADSTART CHANNEL PP                               CD8       547
                                        *                                                                        CD8       548
                                        *         IF CHANNEL 12B ACTIVE,                                         CD8       549
                                        *           MOVE PP ON CHAN 12B BACK TO D.S. CHAN.                       CD8       550
                                        *                                                                        CD8       551
      L 7506         0100 0000           RDC      ENM    X                 ENTRY/EXIT                            CD8       552
      L 7510         6512 7506                    IJM.   RDCX,12B          IF CHAN 12B INACTIVE                  CD8       553
      L 7512         7400                         ACN    0                 ACTIVATE D.S. CHANNEL                 CD8       554
      L 7513         1404                         LDN    RDCL              OUTPUT PROG TO CHANNEL 12B            CD8       555
      L 7514         7312 7522                    OAM.   RDCA,12B                                                CD8       556
      L 7516         6612 7516                    FJM.   *,12B                                                   CD8       557
      L 7520         7512                         DCN.   12B                                                     CD8       558
      L 7521         0364                         UJN    RDCX              RETURN                                CD8       559
      L 7522         0000                RDCA     CON    0                 PP PROGRAM                            CD8       560
      L 7523         1400                         LDN    0                                                       CD8       561
      L 7524         7100 0000                    IAM    0,0                                                     CD8       562
                                   4     RDCL     EQU    *-RDCA                                                  CD8       563
1       CD8         CTI 885 DISK DRIVER - A02                         COMPASS 3.7-871.     23/08/13. 15.42.17.      PAGE    16
        SUBROUTINES.                                                  CHT 
  
                                        **        CHT - CHANNEL INSTRUCTION TABLE.                               CD8       565
                                        *                                                                        CD8       566
                                        *         CHT IS A LIST OF ADDRESSES THAT CONTAIN CHANNEL INSTRUCTIONS   CD8       567
                                        *         FOR CHANNEL STUFFING. THE LIST IS TERMINATED BY A ZERO ENTRY.  CD8       568
                                        *                                                                        CD8       569
                                        *         FOR FURTHER DETAILS, SEE *COMPCHI*.                            CD8       570
      L 7526                             CHT      CHTB                     CHANNEL INSTRUCTION ADDRESS LIST      CD8       571
      L 7562         0000                UNIT     CON    0                 UNIT NO.                              CD8       572
      L 7563         0000 0000           DADR     CON    0,0,0             SEEK PARAMETER ARRAY                  CD8       573
      L 7565         0000 
1       CD8         CTI 885 DISK DRIVER - A02                         COMPASS 3.7-871.     23/08/13. 15.42.17.      PAGE    17
        SUBROUTINES.
  
                                        **        ERROR PROCESSING                                               CD8       575
                                        *                                                                        CD8       576
                                        *         ERIO IS ENTERED IF AN UNRECOVERABLE I/0 ERROR                  CD8       577
                                        *         HAS OCCURRED.  ERNF IS ENTERED IF A REQUEST TO                 CD8       578
                                        *         READ A NAMED RECORD WAS MADE BUT THE RECORD                    CD8       579
                                        *         COULD NOT BE FOUND.  FOR EITHER ERROR, A MESSAGE               CD8       580
                                        *         IS PUT ON THE DISPLAY AND THE PP IS HUNG IN A LOOP             CD8       581
                                        *         OUTPUTTING THE ERROR MESSAGE.                                  CD8       582
                                                                                                                 CD8       583
                                7566     ERIO     EQU    *                 BUILD ERROR MSG                       CD8       584
      L 7566         5000 7250                    LDM    CDGS              GENERAL STATUS                        CD8       585
      L 7570         0200 7641                    RJM    CTO                                                     CD8       586
      L 7572         5400 7637                    STM    IOMGS+1                                                 CD8       587
      L 7574         5000 7250                    LDM    CDGS                                                    CD8       588
      L 7576         1071                         SHN    -6                                                      CD8       589
      L 7577         0200 7641                    RJM    CTO                                                     CD8       590
      L 7601         5400 7636                    STM    IOMGS+0                                                 CD8       591
      L 7603         2000 0723                    LDC    2RGS                                                    CD8       592
      L 7605         5400 7634                    STM    NFMB              CHANGE 1ST BYTE OF MSG TO *GS*        CD8       593
                                                                                                                 CD8       594
                                7607     ERNF     EQU    *                 ENTRY WHEN NOFIND                     CD8       595
                                                                                                                 CD8       596
                                        *         IDLE PP 10                                                     CD8       597
      L 7607         6710 7616                    EJM.   IDLEDCN,CHD                                             CD8       598
      L 7611         7550                         DCN.   CHD+40B                                                 CD8       599
      L 7612         7450                         ACN.   CHD+40B                                                 CD8       600
      L 7613         1402                         LDN    IDLL                                                    CD8       601
      L 7614         7310 7630                    OAM.   IDLA,CHD          SEND IDLE PROGRAM                     CD8       602
      L 7616         7550                IDLEDCN  DCN.   CHD+40B           FREE DISPLAY CHANNEL                  CD8       603
                                                                                                                 CD8       604
                                        *         PAINT DISPLAY                                                  CD8       605
                                                                                                                 CD8       606
      L 7617         7710 7002                    FNC.   F.SEL+F.SLS+F.CHR+F.CHL,CHD                             CD8       607
      L 7621         7410                         ACN.   CHD                                                     CD8       608
                                                                                                                 CD8       609
      L 7622         1406                ERR8     LDN    NFML                                                    CD8       610
      L 7623         7310 7632                    OAM.   NFM,CHD           OUTPUT ERROR MSG                      CD8       611
      L 7625         1740                ERR9     SBN    40B                                                     DIMA295D   25
      L 7626         0776                         MJN    ERR9                                                    DIMA295D   26
      L 7627         0372                         UJN    ERR8              HANG IN OUTPUT LOOP                   CD8       612
                                                                                                                 CD8       613
      L 7630         0000                IDLA     CON    0                 PP 10 IDLE PROGRAM                    CD8       614
      L 7631         0300                         CON    UJNC              HANG                                  CD8       615
                                   2     IDLL     EQU    *-IDLA            LENGTH OF IDLE PROGRAM                CD8       616
                                                                                                                 CD8       617
                                  22     DOPLS    EQU    22B               LINE (Y COOR) INCREMENT VALUE         CD8       618
                                                                                                                 CD8       619
                                                                                                                 CD8       620
                                7632     NFM      EQU    *                 NOFIND ERROR MESSAGE                  CD8       621
                                                                                                                 CD8       622
      L 7632         7400                         CON    7400B                                                   CD8       623
      L 7633         6000                         CON    XSET                                                    CD8       624
      L 7634         1615                NFMB     DATA   H*NM= NNNN*                                             CD8       625
                                7636     NFNM     EQU    NFMB+2                                                  CD8       626
                                7636     IOMGS    EQU    NFNM                                                    CD8       627
                                                                                                                 CD8       628
                                   6     NFML     EQU    *-NFM             MESSAGE LENGTH                        CD8       629
1       CD8         CTI 885 DISK DRIVER - A02                         COMPASS 3.7-871.     23/08/13. 15.42.17.      PAGE    18
        SUBROUTINES.
  
                                        **        CTO - CONVERT TO OCTAL DISPLAY                                 CD8       631
                                        *                                                                        CD8       632
                                        *         ENTRY  (A) LOWER 6 BITS ARE VALUE TO BE CONVERTED              CD8       633
                                        *                                                                        CD8       634
                                        *         EXIT   LOWER 12 BITS OF (A) ARE RESULT.                        CD8       635
                                        *                                                                        CD8       636
                                        *         USES   D2                                                      CD8       637
                                                                                                                 CD8       638
      L 7640         0100 0000           CTOX     LJM    0                 EXIT                                  CD8       639
                                7641     CTO      EQU    *-1               ENTRY                                 CD8       640
      L 7642         1277                         LPN    77B               ISOLATE LOWER 6 BITS                  CD8       641
      L 7643         3402                         STD    D2                                                      CD8       642
      L 7644         1003                         SHN    3                                                       CD8       643
      L 7645         3302                         LMD    D2                                                      CD8       644
      L 7646         1370                         SCN    70B                                                     CD8       645
      L 7647         2100 3333                    ADC    2R00                                                    CD8       646
      L 7651         0366                         UJN    CTOX              RETURN                                CD8       647
  
  
  
  
                                        **        END OF COMMON DISK DRIVER AND SUBROUTINES.                     CD8       649
                                        *                                                                        CD8       650
                                        *         THE FOLLOWING SYMBOLS ARE DEFINED FOR MOVING *CDD* INTO THE    CD8       651
                                        *         COMMON DRIVER AREA.                                            CD8       652
                                        *                                                                        CD8       653
                                        *         TCDD   FWA OF COMMON DISK DRIVER.                              CD8       654
                                        *         LCDD   LWA+1 OF COMMON DISK DRIVER.                            CD8       655
                                        *         TCDDL  LENGTH OF COMMON DISK DRIVER.                           CD8       656
                                        *                                                                        CD8       657
                                   6              ERRNG  CPAFWA-*          OVERFLOWED INTO POINTER AREA          CD8       658
        7100                                      LOC    *O                                                      CD8       659
                                7100     LCDD     EQU    *                                                       CD8       660
                                 652     TCDDL    EQU    LCDD-TCDD         LENGTH OF DRIVER                      CD8       661
                                        *         OVERFLOW CHECK.                                                CD8       662
                                 760     LCD8     EQU    *-IPLTRAN         LENGTH OF CD8                         CD8       663
                                 321              ERRNG  IPLFWA-*          OVERFLOWED INTO IPL                   CD8       664
        7100                                      END                                                            CD8       665
  
                             54600B CM  STORAGE USED             1210 STATEMENTS      479 SYMBOLS      000067 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            0.998 SECONDS         406 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ACNC         7400                   3/46 D
        ADCC         2100                   3/41 D
        AJMC         6400                   3/44 D
        ART          7135                  10/07 D   11/23     11/46     13/18     13/41     14/55
        ARTC         7143                   8/24 S   10/08 S   10/11 L
        ARTX         7134                  10/07 L   10/09
        AWD          7146                  10/24 D   11/44
        AWDX         7145                  10/24 L   10/27     10/31
        AWD1         7152                  10/27 L   10/29
        BDA          7171                  10/49 D   13/46
        BDAX         7170                  10/49 L
1       CD8         CTI 885 DISK DRIVER - A02                         COMPASS 3.7-871.     23/08/13. 15.42.17.      PAGE    19
        SYMBOLIC REFERENCE TABLE. 
  
        BDA1         7160                  10/44 L   10/48
        BDA2         7164                  10/46 L   10/57     11/03
        BDA3         7205                  10/52     11/01 L
        BPW             5                   9/04
        CDD          7000                   8/08 D
        CDDZ         7133                   8/18 S    9/13 D
        CDD2         7040                   8/28      8/30 L    8/32
        CDD2A        7053                   8/37 L    8/55
        CDD3         7060                   8/34      8/40 L
        CDD5         7077                   8/46      8/51 L
        CDD52        7106                   8/55 L    9/01
        CDD53        7107                   8/56 L
        CDD55        7114                   8/52      9/02 L
        CDD6         7116                   8/49      9/04 L
        CDD7         7122                   8/36      9/07 L
        CDEP         7000                   6/25 S    7/36      8/06
        CDGS         7250                  11/39 S   11/49 L   17/11     17/14
        CDNC            3                   8/19      8/21      8/33
        CDNFMAX        36                   5/10
        CDRW            2                   8/27
        CDTA            1                   8/17
        CHD            10                   4/17 D   17/25     17/28     17/33     17/37
                                           17/24     17/26     17/29     17/34
        CHT          7526                   6/33     16/07 L
        CHTE         7561                  16/07 L
        CIRP         7735                  12/37
        CPAFWA       7660                  18/31
        CTO          7641                  17/12     17/16     18/10 D
        CTOX         7640                  18/09 L   18/17
        DADR         7563                  10/44 S   10/45 S   10/46     10/54 S   10/56 S   11/02 S   12/38 S   16/09 L
        DCNC         7500                   3/47 D
        DGST           12                  11/42
        DOPC           10                   9/09
        DOPLS          22                  17/46 D
        DRED            4                  13/10     13/31
        D0              0                   3/07 D
        D1              1                   3/08 D    8/12 S    8/14      8/17      8/19      8/21      8/27      8/33
        D10            10                   3/18 D    6/35
        D11            11                   3/19 D
        D12            12                   3/20 D
        D13            13                   3/21 D
        D14            14                   3/22 D
        D15            15                   3/23 D
        D16            16                   3/24 D
        D17            17                   3/25 D
        D2              2                   3/09 D    6/43 I    8/43 S    8/53     12/20 I   14/25 S
                                            6/39 S    8/15 S    8/44      8/56     12/21 S   18/12 S
                                            6/40      8/39 S    8/47     12/18     13/29     18/14
        D2SK            2                  14/44
        D20            20                   3/26 D
        D3              3                   3/10 D    6/38      6/45      6/50 I   12/22 S
                                            6/34 S    6/44 S    6/47 S   12/16 S
        D4              4                   3/11 D    6/24      6/26 S    6/42      7/17     12/37     12/39 S
                                            6/23 S    6/25      6/37 S    7/13     12/36 S   12/38
        D5              5                   3/12 D
        D6              6                   3/13 D    6/48
        D7              7                   3/16 D
1       CD8         CTI 885 DISK DRIVER - A02                         COMPASS 3.7-871.     23/08/13. 15.42.17.      PAGE    20
        SYMBOLIC REFERENCE TABLE. 
  
        D885           14                   8/10
        ENDCONS      7002                   8/09      8/11 D
        ERIO         7566                  10/10     17/10 D
        ERNF         7607                   9/02     17/21 D
        ERR8         7622                  17/36 L   17/40
        ERR9         7625                  17/38 L   17/39
        FCN          7212                   9/10     11/14 D   11/43     13/11     13/32     14/45
        FCNF         7216                  11/15 S   11/17 D
        FCNX         7211                  11/14 L   11/19
        FCN1         7221                  11/19 L   11/21
        FCN3         7215                  11/16 L   11/24
        F.CHL           2                   4/30 D   17/33
        F.CHM           1                   4/29 D
        F.CHR           0                   4/25 D   17/33
        F.CHS           0                   4/28 D
        F.DOT          10                   4/26 D
        F.KEY          20                   4/27 D
        F.SBS         200                   4/24 D
        F.SEL        7000                   4/21 D   17/33
        F.SLS           0                   4/22 D   17/33
        F.SRS         100                   4/23 D
        GGS          7236                   8/30     11/41 D   13/17     13/25     13/40     13/43     14/51
        GGSX         7235                  11/41 L
        GGS2         7231                  11/38 L   11/45
        GGS3         7237                  11/42 L   11/47
        IDLA         7630                  17/28     17/42 L   17/44
        IDLEDCN      7616                  17/24     17/29 L
        IDLL            2                  17/27     17/44 D
        INI          6120                   6/17 L
        INIA         6176                   7/14 S    7/15 L
        INIB         6212                   7/20      7/27 L    7/29
        INIC         6213                   7/18 S    7/28 L
        INIL            3                   7/19      7/29 D
        INIR         6221                   7/35      7/40 L
        INI1         6124                   6/24 L    6/27
        INI4         6143                   6/39 L    6/46
        INI7         6207                   7/06      7/11      7/23 L
        INI9         6215                   7/25      7/35 L
        IOMGS        7636                  17/13 S   17/17 S   17/55 D
        IOQB         6000                   7/40
        IOQTRAN      6000                   7/41
        IPLFWA       7421                  18/37
        IPLTRAN      6120                   1/10      6/01     18/36
        LCDD         7100                  18/33 D   18/34
        LCD8          760                  18/36 D
        LCNC         1500                   3/38 D
        LDCC         2000                   3/40 D
        LDDC         3000                   3/43 D
        LENGTH       7357                  12/14     12/17 S   13/24 S   13/35 D
        LE6P            1                   9/04
        LE77           17                   9/04
        LINKAGE      7402                  10/50     13/14 S   13/20     13/49 L   14/18
        LMCC         2300                   3/42 D
        MDC          7460                   8/13     15/06 D
        MDCA         7502                  15/17     15/21 L   15/24
        MDCL            4                  15/16     15/24 D
        MDCX         7457                  15/06 L   15/07     15/13     15/20
1       CD8         CTI 885 DISK DRIVER - A02                         COMPASS 3.7-871.     23/08/13. 15.42.17.      PAGE    21
        SYMBOLIC REFERENCE TABLE. 
  
        MDC1         7472                  15/11     15/14 L
        MSRS           40                  10/47
        MVE          7252                   9/05     12/12 D   13/45
        MVEA         7265                  12/13 S   12/15     12/19 D
        MVEX         7251                  12/12 L   12/24
        MVE1         7264                  12/18 L   12/23
        NAME            5                   4/05 D    8/44      8/47      8/53      8/56
        NFCT         7144                   8/26 S    8/51 S   10/12 L
        NFM          7632                  17/37     17/49 D   17/57
        NFMAX          36                   5/10 D    8/25
        NFMB         7634                  17/19 S   17/53 L   17/54
        NFML            6                  17/36     17/57 D
        NFNM         7636                   8/20 S    8/22 S    8/45      8/48     17/54 D   17/55
        OAMC         7300                   3/45 D
        PRU           500                  14/19
        PSNC            0                   3/34 D
        QUAL$           0                   4/08 D
        RCS          7307                   8/35      8/40     13/08 D   14/26
        RCSB         7361                  13/30 S   13/37 D
        RCSX         7306                  13/08 L   13/47
        RCS1         7310                  13/09 L   13/19
        RCS2         7330                  13/16     13/20 L
        RCS3         7335                  13/21     13/23 L
        RCS5         7345                  13/28 L   13/42
        RCS7         7371                  13/39     13/43 L
        RCS9         7376                  13/27     13/46 L
        RDC          7507                   9/11     15/34 D
        RDCA         7522                  15/38     15/42 L   15/45
        RDCL            4                  15/37     15/45 D
        RDCX         7506                  15/34 L   15/35     15/41
        RETRY          12                   4/07 D    8/23
        REW          7274                   6/31      8/29     12/34 D
        REWX         7273                  12/34 L   12/41
        REW1         7277                  12/37 L   12/40
        RRR          7411                   8/37      9/08     14/16 D
        RRRA         7425                   8/16 S    8/38      8/42     14/24 D
        RRRT         7432                  13/26     14/15 S   14/17 S   14/21     14/28 L
        RRRX         7410                  14/16 L
        RRR2         7414                  14/18 L   14/27
        RRR4         7427                  14/22     14/26 L
        RRR5         7405                  14/14 L   14/20
        SBNC         1700                   3/39 D
        SEK          7434                  13/09     13/28     14/43 D
        SEKX         7433                  14/43 L   14/52
        SEK1         7435                  14/44 L   14/54     14/56
        SHNC         1000                   3/37 D
        TCDD         6226                   6/24      8/04 D   18/34
        TCDDL         652                   6/22     18/34 D
        TIMEOUT    210560                   4/06 D   10/26     11/18
        UJNC          300                   3/35 D   17/43
        UNIT         7562                  14/48     16/08 L
        XSET         6000                   4/34 D   17/52
        YSET         7000                   4/35 D
        ZJNC          400                   3/36 D
 IOQ
1       IOQ         CTI INITIAL OPERATOR QUERIES - A02                COMPASS 3.7-871.     23/08/13. 15.42.18.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
  
                       6000      503              IDENT  IOQ,IOQB 
                       6503     (102)             END 
  
  
  
  
                                                  IDENT  IOQ,IOQB                                                IOQ         2
                                                  PERIPH                                                         IOQ         3
                                         VERID    MICRO  1,,*A02*                                                *A02*       1
                                         VERS     MICRO  1,,*"VERID"*                                       VERS VERS        3
                                                  COMMENT CTI INITIAL OPERATOR QUERIES - "VERS"                  DIMA317F    3
                                                  COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1979               DIMA317F    4
  
  
                                        *         ALL RIGHTS RESERVED                                            CDCCRN      3
                                        *                                                                        CDCCRN      4
                                        *         CONTAINED HEREIN ARE SOFTWARE PRODUCTS COPYRIGHTED             CDCCRN      5
                                        *         BY CONTROL DATA CORPORATION.  REPRODUCTION WITHOUT             CDCCRN      6
                                        *         PERMISSION IS PROHIBITED.  THE COPYRIGHT NOTICE                CDCCRN      7
                                        *         MUST APPEAR ON ALL AUTHORIZED COMPLETE OR                      CDCCRN      8
                                        *         PARTIAL COPIES.                                                CDCCRN      9
                                        *                                                                        CDCCRN     10
1       IOQ         CTI INITIAL OPERATOR QUERIES - A02                COMPASS 3.7-871.     23/08/13. 15.42.18.      PAGE     2
                                                                      IOQ 
  
                                        *****     IOQ - INITIAL OPERATOR QUERIES -CTI-.                          IOQ         8
                                        *                                                                        IOQ         9
                                        *         R. A. MATTHEWS.          01/29/78.                             IOQ        10
                                        *         R. A. TURGEON            6/19/78.                              IOQ        11
                                        *                                                                        IOQ        12
                                        *         IOQ PROVIDES THE INITIAL OPERATOR INTERFACE FOR THE COMMON     IOQ        13
                                        *         TEST/INITIALIZATION PACKAGE AND IS RESPONSIBLE FOR LOADING     IOQ        14
                                        *         THE APPROPRIATE BOOTSTRAP ROUTINES.                            IOQ        15
  
  
  
  
                                        ***       IOQ - INITIAL OPERATOR QUERIES -CTI-.                          IOQ        17
                                        *                                                                        IOQ        18
                                        *         IOQ PRESENTS THE INITIAL OPERATOR DISPLAY FOR THE COMMON TEST  IOQ        19
                                        *         AND INITIALIZATION PACKAGE (CTI), AND ALLOWS OPERATOR INPUT    IOQ        20
                                        *         TO SELECT THE VARIOUS LOAD OPTIONS. IOQ ALSO HANDLES LOADING   IOQ        21
                                        *         OF THE SELECTED MODULE BY CALLING THE COMMON DRIVER.           IOQ        22
  
  
  
  
                                        ***       OPERATOR MESSAGES.                                             IOQ        24
                                        *                                                                        IOQ        25
                                        *         IOQ PRESENTS THE FOLLOWING INITIAL DISPLAY:                    IOQ        26
                                        *                                                                        IOQ        27
                                        *                                                                        IOQ        28
                                        *                        *A*                                             IOQ        29
                                        *                                                                        IOQ        30
                                        *         (CR) - OS LOAD AUTOMATIC                                       IOQ        31
                                        *                                                                        IOQ        32
                                        *           I -  DEADSTART W/OPERATOR                                    IOQ        33
                                        *                INTERVENTION                                            IOQ        34
                                        *                                                                        IOQ        35
                                        *           U -  UTILITIES                                               IOQ        36
                                        *                                                                        IOQ        37
                                        *           M -  OFFLINE MAINTENANCE                                     IOQ        38
                                        *                                                                        IOQ        39
                                        *         CTI  A00                                                       DIMA316     1
                                        *                                                                        IOQ        40
                                        *         THE M OPTION IS NOT ALLOWED NOR IS IT DISPLAYED                IOQ        41
                                        *         IF (BITS 5-0 OF MSRP+4) = 0 OR 1.                              IOQ        42
                                        *                                                                        IOQ        43
                                        *         ANY ERROR MESSAGE MAY BE CLEARED BY ENTERING A LEFT BLANK      IOQ        44
                                        *         FROM THE DISPLAY CONSOLE.                                      IOQ        45
1       IOQ         CTI INITIAL OPERATOR QUERIES - A02                COMPASS 3.7-871.     23/08/13. 15.42.18.      PAGE     3
  
  
                                        ***       ENTRY CONDITIONS.                                              IOQ        47
                                        *                                                                        IOQ        48
                                        *         IOQ ASSUMES THAT THE IOQ RECORD ON THE CTI FILE                IOQ        49
                                        *         IS PRIOR TO ANY MODULE THAT IT WILL LOAD.  FOR THIS            IOQ        50
                                        *         REASON, REQUESTS TO THE COMMON DRIVER ARE WITH NO REWIND.      IOQ        51
                                        *                                                                        IOQ        52
                                        *         CTI INTERNAL STATE IS IN EFFECT.                               IOQ        53
  
  
  
  
                                        ***       EXIT CONDITIONS.                                               IOQ        55
                                        *                                                                        IOQ        56
                                        *         CTI INTERNAL STATE IS IN EFFECT.                               IOQ        57
1       IOQ         CTI INITIAL OPERATOR QUERIES - A02                COMPASS 3.7-871.     23/08/13. 15.42.18.      PAGE     4
        DEFINITIONS.
  
                                        **        DEADSTART PANEL WORDS.                                         IOQ        59
                                        *                                                                        IOQ        60
                                        *         WORDS 5 - 20B OF THE DEADSTART PANEL MUST REMAIN INTACT        IOQ        61
                                        *         DURING CTI EXECUTION. WORDS 0 - 4 MAY BE USED AS SCRATCH       IOQ        62
                                        *         DIRECT CELLS.                                                  IOQ        63
                                                                                                                 IOQ        64
                                                                                                                 IOQ        65
                                   0     D0       EQU    0                 SCRATCH                               IOQ        66
                                   1     D1       EQU    1                 SCRATCH                               IOQ        67
                                   2     D2       EQU    2                 SCRATCH                               IOQ        68
                                   3     D3       EQU    3                 SCRATCH                               IOQ        69
                                   4     D4       EQU    4                 SCRATCH                               IOQ        70
                                   5     D5       EQU    5                 ZERO IF TAPE DEADSTART                IOQ        71
                                   6     D6       EQU    6                 FUNCTION WORD                         IOQ        72
                                        *         (D6) = WARMSTART FUNCTION, IF MTS/ATS.                         IOQ        73
                                        *              = DEADSTART FUNCTION, IF 844/885 DISK                     IOQ        74
                                   7     D7       EQU    7                 RESERVED                              IOQ        75
                                        *         (D7) = 1400B IF 3000 TYPE TAPE.                                IOQ        76
                                  10     D10      EQU    10B               RESERVED                              IOQ        77
                                  11     D11      EQU    11B               RESERVED                              IOQ        78
                                  12     D12      EQU    12B               MSL PARAMETERS                        IOQ        79
                                  13     D13      EQU    13B               OS PARAMETERS                         IOQ        80
                                  14     D14      EQU    14B               OS PARAMETERS                         IOQ        81
                                  15     D15      EQU    15B               UNUSED                                IOQ        82
                                  16     D16      EQU    16B               C80/A170 RESERVED                     IOQ        83
                                  17     D17      EQU    17B               RESERVED                              IOQ        84
                                  20     D20      EQU    20B               RESERVED                              IOQ        85
  
  
  
  
                                        **        INSTRUCTION EQUATES.                                           IOQ        87
                                        *                                                                        IOQ        88
                                                                                                                 IOQ        89
                                                                                                                 IOQ        90
                                   0     PSNC     EQU    0000B             PASS                                  IOQ        91
                                 300     UJNC     EQU    0300B             UNCONDITIONAL JUMP                    IOQ        92
                                 400     ZJNC     EQU    0400B             ZERO JUMP                             IOQ        93
                                1000     SHNC     EQU    1000B             SHIFT                                 IOQ        94
                                1500     LCNC     EQU    1500B             LOAD COMPLEMENT                       IOQ        95
                                1700     SBNC     EQU    1700B             SUBTRACT NO-ADDRESS                   IOQ        96
                                2000     LDCC     EQU    2000B             LOAD CONSTANT                         IOQ        97
                                2100     ADCC     EQU    2100B             ADD CONSTANT                          IOQ        98
                                2300     LMCC     EQU    2300B             LOGICAL MINUS CONSTANT                IOQ        99
                                3000     LDDC     EQU    3000B             LOAD DIRECT                           IOQ       100
                                6400     AJMC     EQU    6400B             ACTIVE JUMP                           IOQ       101
                                7100     IAMC     EQU    7100B             INPUT MEMORY                          IOQ       102
                                7300     OAMC     EQU    7300B             OUTPUT MEMORY                         IOQ       103
                                7400     ACNC     EQU    7400B             ACTIVATE CHANNEL                      IOQ       104
                                7500     DCNC     EQU    7500B             DISCONNECT CHANNEL                    IOQ       105
1       IOQ         CTI INITIAL OPERATOR QUERIES - A02                COMPASS 3.7-871.     23/08/13. 15.42.18.      PAGE     5
        DEFINITIONS.
  
                                        **        MISCELLANEOUS DEFINITIONS                                      IOQ       107
                                        *                                                                        IOQ       108
                                        *                                                                        IOQ       109
                                                                                                                 IOQ       110
                                   0     QUAL$    EQU    0                 DON-T QUALIFY COMMON DECKS            IOQ       111
                                  15     MPPUN    EQU    15B               MAX PPU NUMBER                        IOQ       112
                                   0     DEBUG    EQU    0                                                       IOQ       113
  
  
  
  
                                        **        DISPLAY CONTROLLER DEFINITIONS.                                IOQ       115
                                        *                                                                        IOQ       116
                                        *                                                                        IOQ       117
                                                                                                                 IOQ       118
                                                                                                                 IOQ       119
                                  10     CHD      EQU    10B               DISPLAY CHANNEL                       IOQ       120
                                                                                                                 IOQ       121
                                        *         DISPLAY FUNCTION CODES.                                        IOQ       122
                                                                                                                 IOQ       123
                                7000     F.SEL    EQU    7000B             SELECT CONSOLE DISPLAY                IOQ       124
                                                                                                                 IOQ       125
                                   0     F.SLS    EQU    0000B             SELECT CONSOLE LEFT SCREEN            IOQ       126
                                 100     F.SRS    EQU    0100B             SELECT CONSOLE RIGHT SCREEN           IOQ       127
                                 200     F.SBS    EQU    0200B             SELECT CONSOLE BOTH SCREEN            IOQ       128
                                                                                                                 IOQ       129
                                   0     F.CHR    EQU    0000B             SELECT DOT MODE                       IOQ       130
                                  10     F.DOT    EQU    0010B             SELECT DOT MODE                       IOQ       131
                                  20     F.KEY    EQU    0020B             SELECT KEYBOARD INPUT                 IOQ       132
                                                                                                                 IOQ       133
                                   0     F.CHS    EQU    0000B             SET CHARACTER SIZE SMALL              IOQ       134
                                   1     F.CHM    EQU    0001B             SET CHARACTER SIZE MEDIUM             IOQ       135
                                   2     F.CHL    EQU    0002B             SET CHARACTER SIZE LARGE              IOQ       136
                                                                                                                 IOQ       137
                                        *         COORDINATE DESIGNATION.                                        IOQ       138
                                                                                                                 IOQ       139
                                6000     XSET     EQU    6000B             SET X COORDINATE                      IOQ       140
                                7000     YSET     EQU    7000B             SET Y COORDINATE                      IOQ       141
  
  
  
  
                                        **        STATUS AND CONTROL REGISTER CHANNEL DEFINITION.                IOQ       143
                                        *                                                                        IOQ       144
                                                                                                                 IOQ       145
                                                                                                                 IOQ       146
                                   0     SCANCH   EQU    0                 SCANNER CHANNEL                       IOQ       147
                                  16     CHSCR    EQU    16B                                                     IOQ       148
                                2000     SCRCLR   EQU    2000B             SCR CLEAR FUNCTION                    IOQ       149
                                4000     SCRSET   EQU    4000B             SCR SET FUNCTION                      IOQ       150
                                7000     SCRTE    EQU    7000B             SCR TEST ERRORS FUNCTION              IOQ       151
                                  72     DSPPU    EQU    72B               SCR DEADSTART PPU BIT NUMBER          IOQ       152
                                 110     SCANSB   EQU    110B              SCR SCANNER SELECT BIT NUMBER         IOQ       153
                                 122     ENSCNR   EQU    122B              SCR ENABLE SCANNER INTERFACE          IOQ       154
1       IOQ         CTI INITIAL OPERATOR QUERIES - A02                COMPASS 3.7-871.     23/08/13. 15.42.18.      PAGE     6
        DEFINITION COMMON DECKS.
  
                                        **        DEFINITION COMMON DECKS.                                       IOQ       157
                                        *                                                                        IOQ       158
                                        **        ALL SYMBOL AND MACRO DEFINITION COMMON DECKS ARE CALLED HERE.  IOQ       159
                                                                                                                 IOQ       160
                                                                                                                 IOQ       161
           0                             CTI      CTEXT  COMPCTI - CTI COMMON MACROES.                           COMPCTI     2
           0                                      CTEXT  COMSSCR - S/C REGISTER EQUIVALENCES.                    COMSSCR     2
           0                             CPA      CTEXT  COMSCPA - CTI COMMON POINTER AREA DEFINITIONS.          COMSCPA     2
           0                             CTI      CTEXT  COMSCTI - CTI INTERNAL DEFINITIONS.                     COMSCTI     2
1       IOQ         CTI INITIAL OPERATOR QUERIES - A02                COMPASS 3.7-871.     23/08/13. 15.42.18.      PAGE     7
        IOQ - MAIN ROUTINE. 
  
        6000                                      ORG    IOQB                                                    IOQ       167
  
  
  
  
                                        ***       IOQ - INITIAL OPERATOR QUERIES                                 IOQ       169
                                        *                                                                        IOQ       170
                                        *         IOQ INITIALIZES THE HDT, SAVES THE DEADSTART PANEL             IOQ       171
                                        *         IMAGE AND THEN PRESENTS THE *A* DISPLAY.                       IOQ       172
                                        *         DEPENDING ON THE OPERATOR RESPONSE, AND THE STATE OF           IOQ       173
                                        *         THE SCR (IF PRESENT) IOQ USES THE COMMON DRIVER TO             IOQ       174
                                        *         LOAD AND EXECUTE THE APPROPRIATE CTI MODULE.                   IOQ       175
                                        *                                                                        IOQ       176
                                        *         IOQ HAS TWO ENTRY POINTS.                                      IOQ       177
                                        *         *IOQTRAN* IS THE LOCATION ENTERED WHEN IOQ IS FIRST            IOQ       178
                                        *         LOADED BY THE COMMON DRIVER.                                   IOQ       179
                                        *         *IOQALT* IS THE ENTRY POINT WHEN LOADED BY ANY OTHER           IOQ       180
                                        *         CTI MODULE.                                                    IOQ       181
                                        *                                                                        IOQ       182
  
  
  
  
        6000         0200 6352           IOQ      RJM    INI               DO INITIALIZATION                     IOQ       184
                                                                                                                 IOQ       185
                                   0              ERRNZ  *-IOQALT                                                IOQ       186
                                                                                                                 IOQ       187
                                        *         IF (BITS 5-0 OF MSRP+4) = 0 OR 1                               IOQ       188
                                        *         THEN M OPTION NOT ALLOWED ON *A* DISPLAY.                      IOQ       189
                                                                                                                 IOQ       190
        6002         5000 7753                    LDM    MSRP+4                                                  IOQ       191
        6004         1276                         LPN    76B                                                     IOQ       192
        6005         0513                         NJN    IOQ1              IF M OPTION ALLOWED                   IOQ       193
                                                                                                                 IOQ       194
        6006         5400 6276                    STM    ORTM              DROP M FROM O.R.T.                    IOQ       195
        6010         1415                         LDN    DOOML                                                   IOQ       196
        6011         3404                         STD    D4                                                      IOQ       197
        6012         2000 5555           IOQ05    LDC    2R                BLANK OUT M LINE                      IOQ       198
        6014         5404 6214                    STM    DOOM-1,D4                                               IOQ       199
        6016         3704                         SOD    D4                                                      IOQ       200
        6017         0572                         NJN    IOQ05                                                   IOQ       201
                                                                                                                 IOQ       202
        6020         0200 6334           IOQ1     RJM    FDC               FREE DISPLAY CHANNEL                  IOQ       203
                                                                                                                 IOQ       204
        6022         0200 6315           IOQ2     RJM    DOP               DISPLAY OPTIONS                       IOQ       205
        6024         0200 6445                    RJM    PKI               PROCESS KEYBOARD INPUT                IOQ       206
        6026         0473                         ZJN    IOQ2              IF NO ENTRY OR ERROR                  IOQ       207
        6027         5003 0001                    LDM    ORTX,D3           GET ROUTINE ADDRESS                   IOQ       208
        6031         5400 6034                    STM    IOQA                                                    IOQ       209
        6033         0100 0000                    LJM    **                GO TO APPROPRIATE ROUTINE             IOQ       210
                                6034     IOQA     EQU    *-1                                                     IOQ       211
1       IOQ         CTI INITIAL OPERATOR QUERIES - A02                COMPASS 3.7-871.     23/08/13. 15.42.18.      PAGE     8
        IOQ - MAIN ROUTINE. 
  
                                        *         OPERATOR ENTERED (CR)                                          IOQ       213
                                                                                                                 IOQ       214
        6035                             XXC      BSS    0                                                       IOQ       215
        6035         1400                         LDN    0                                                       IOQ       216
        6036         5400 6776           XXC2     STM    DHEP              SET DHEP VALUE                        IOQ       217
        6040         1400                         LDN    0                                                       IOQ       218
        6041         5400 6777                    STM    EBLP              SET EBLP = 0                          IOQ       219
                                                                                                                 IOQ       220
        6043         6516 6100                    IJM    XXC9,CHSCR        IF NO SCR                             DIMA387A    1
                                                                                                                 IOQ       222
        6045         6420 6053                    AJM    XXC3,20B    IF 20 PPS                                   IOQ       223
        6047         2000 1777                    LDC    1777B                                                   IOQ       224
        6051         5400 7675                    STM    PPP1        INDICATE PP 20-31 UNAVAILABLE               IOQ       225
        6053                             XXC3     BSS    0                                                       IOQ       226
        6053         2000 7000                    LDC    FCTE              TEST FOR SCR ERRORS                   DIMA387A    2
        6055         7216                         OAN    CHSCR                                                   IOQ       228
        6056         7016                         IAN    CHSCR                                                   IOQ       229
        6057         0405                         ZJN    XXC8              IF NO ERRORS RECORDED IN SCR          IOQ       230
                                                                                                                 IOQ       231
        6060         2000 6305                    LDC    DHE               SET TO LOAD DHE                       IOQ       232
        6062         3403                         STD    D3                                                      IOQ       233
        6063         0315                         UJN    XXC9              IF SCR ERRORS                         DIMA387A    3
                                                                                                                 DIMA387A    4
        6064         2000 6000           XXC8     LDC    FCCA              CLEAR ALL SCR1 CONTROL BITS           DIMA387A    5
        6066         7276                         OAN    CHSCR+40B+20B                                           DIMA387A    6
        6067         7076                         IAN    CHSCR+40B+20B                                           DIMA387A    7
        6070         2000 6000                    LDC    FCCA              CLEAR ALL SCR0 CONTROL BITS           DIMA387A    8
        6072         7256                         OAN    CHSCR+40B                                               DIMA387A    9
        6073         7056                         IAN    CHSCR+40B                                               DIMA387A   10
        6074         2000 4124                    LDC    FCSB+PPCT         SET 2X PP SPEED BIT                   DIMA387A   11
        6076         7256                         OAN    CHSCR+40B                                               DIMA387A   12
        6077         7056                         IAN    CHSCR+40B                                               DIMA387A   13
        6100         0100 6414           XXC9     LJM    LCM               GO TO LOAD CTI MODULE                 DIMA387A   14
  
  
  
  
                                        *         OPERATOR ENTERED O                                             IOQ       237
                                                                                                                 IOQ       238
        6102                             XXI      BSS    0                                                       IOQ       239
        6102         1401                         LDN    1                 DHEP VALUE                            IOQ       240
        6103         0100 6036                    LJM    XXC2              JOIN COMMON CODE                      DIMA387A   15
  
  
  
  
                                        *         OPERATOR ENTERED U                                             IOQ       243
                                                                                                                 IOQ       244
        6105                             XXU      BSS    0                                                       IOQ       245
        6105         0100 6414                    LJM    LCM               LOAD CTI MODULE AEI                   IOQ       246
1       IOQ         CTI INITIAL OPERATOR QUERIES - A02                COMPASS 3.7-871.     23/08/13. 15.42.18.      PAGE     9
        IOQ - MAIN ROUTINE. 
  
                                        *         OPERATOR ENTERED M                                             IOQ       248
                                                                                                                 IOQ       249
        6107         1402                XXM      LDN    2                                                       IOQ       250
        6110         5400 6777                    STM    EBLP              SET EBLP = 2                          IOQ       251
        6112         0100 6414                    LJM    LCM               LOAD CTI MODULE EBL                   IOQ       252
1       IOQ         CTI INITIAL OPERATOR QUERIES - A02                COMPASS 3.7-871.     23/08/13. 15.42.18.      PAGE    10
        INITIAL DISPLAY BUFFER *A*
  
                                        **        DOO - DISPLAY OPERATOR OPTIONS BUFFER.                         IOQ       254
                                        *                                                                        IOQ       255
                                        *         THE DISPLAY OPERATOR OPTIONS BUFFER CONTAINS THE ENTIRE        IOQ       256
                                        *         INITIAL OPERATOR DISPLAY WITH THE POSSIBLE INCLUSION OF AN     IOQ       257
                                        *         ERROR MESSAGE.                                                 IOQ       258
                                                                                                                 IOQ       259
                                  22     DOPLS    EQU    22B               LINE (Y COOR) INCREMENT               IOQ       260
                                                                                                                 IOQ       261
                                6114     DOO      EQU    *                 START OF BUFFER                       IOQ       262
                                                                                                                 IOQ       263
                                   5     LINE     SET    5                 FIRST LINE                            IOQ       264
        6114         7630                         CON    YSET+762B-LINE*DOPLS                                    IOQ       265
        6115         6000                         CON    XSET+0                                                  IOQ       266
        6116         5555                         DATA   H;             *A*;                                     IOQ       267
                                                                                                                 IOQ       268
                                  10     LINE     SET    LINE+3                                                  IOQ       269
        6126         7542                         CON    YSET+762B-LINE*DOPLS                                    IOQ       270
        6127         6000                         CON    XSET+0                                                  IOQ       271
        6130         5103                         DATA   H*(CR) - OS LOAD AUTOMATIC*                             IOQ       272
                                                                                                                 IOQ       273
                                  13     LINE     SET    LINE+3                                                  IOQ       274
        6144         7454                         CON    YSET+762B-LINE*DOPLS                                    IOQ       275
        6145         6000                         CON    XSET+0                                                  IOQ       276
        6146         5555                       DATA  H*  O  - DEADSTART WITH OPERATOR*                          IOQ       277
                                                                                                                 IOQ       278
                                  14     LINE     SET    LINE+1                                                  IOQ       279
        6165         7426                         CON    YSET+762B-LINE*DOPLS-4                                  IOQ       280
        6166         6000                         CON    XSET+0                                                  IOQ       281
        6167         5555                         DATA   H*       INTERVENTION*                                  IOQ       282
                                                                                                                 IOQ       283
                                  17     LINE     SET    LINE+3                                                  IOQ       284
        6201         7344                         CON    YSET+762B-LINE*DOPLS                                    IOQ       285
        6202         6000                         CON    XSET+0                                                  IOQ       286
        6203         5555                         DATA   H*  U  - UTILITIES*                                     IOQ       287
                                                                                                                 IOQ       288
                                  22     LINE     SET    LINE+3                                                  IOQ       289
        6213         7256                         CON    YSET+762B-LINE*DOPLS                                    IOQ       290
        6214         6000                         CON    XSET+0                                                  IOQ       291
        6215         5555                DOOM     DATA   H*  M  - OFFLINE MAINTENANCE*                           IOQ       292
                                  15     DOOML    EQU    *-DOOM                                                  IOQ       293
                                                                                                                 IOQ       294
                                         VERID    MICRO  1,,*A02*                                                *A02*       1
                                         VERS     MICRO  1,,*"VERID"*                                       VERS VERS        3
                                  25     LINE     SET    LINE+3                                                  DIMA316     3
        6232         7170                         CON    YSET+762B-LINE*DOPLS                                    DIMA316     4
        6233         6000                         CON    XSET+0                                                  DIMA316     5
        6234         0324                         DATA   H*CTI *                                                 DIMA316     6
        6236         0133                         DATA   H*"VERS"*                                               DIMA316     7
                                                                                                                 DIMA316     8
                                 124     DOOL     EQU    *-DOO             BUFFER LENGTH IF NO ERROR MSG         IOQ       295
                                                                                                                 IOQ       296
                                  30     LINE     SET    LINE+3                                                  DIMA316     9
        6240         7102                         CON    YSET+762B-LINE*DOPLS                                    IOQ       298
        6241         6000                         CON    XSET+0                                                  IOQ       299
        6242         1116                         DATA   H*INVALID OPTION*                                       IOQ       300
                                                                                                                 IOQ       301
                                 135     DOOLE    EQU    *-DOO             BUFFER LENGTH IF ERROR MSG            IOQ       302
1       IOQ         CTI INITIAL OPERATOR QUERIES - A02                COMPASS 3.7-871.     23/08/13. 15.42.18.      PAGE    11
        OPERATOR RESPONSE TABLE 
  
                                        **        TABLE OF VALID OPERATOR RESPONSES                              IOQ       304
                                        *                                                                        IOQ       305
                                        *         THIS TABLE HAS ONE ENTRY FOR EACH VALID OPERATOR RESPONSE      IOQ       306
                                        *         IT INCLUDES THE CORRESPONDING PARAMETER BLOCKS PASSED TO       IOQ       307
                                        *         THE COMMON DRIVER TO LOAD THE APPROPRIATE MODULE.              IOQ       308
                                        *                                                                        IOQ       309
                                                                                                                 IOQ       310
                                6251     ORT      EQU    *                 START OF TABLE                        IOQ       311
                                   1     ORTX     EQU    1                 OFFSET OF ADDRESS OF ASSOC. ROUTINE   IOQ       312
                                   2     ORTP     EQU    2                 OFFSET OF PARAMETER BLOCK             IOQ       313
                                   7     ORTS     EQU    7                 SIZE OF EACH TABLE ENTRY              IOQ       314
                                                                                                                 IOQ       315
                                        *         OS LOAD AUTOMATIC                                              IOQ       316
                                                                                                                 IOQ       317
        6251         0060                         CON    60B               (CR)                                  IOQ       318
        6252         6035                         CON    XXC                                                     IOQ       319
        6253         0010                         CON    LOAD              LOAD ADDRESS FOR MAD                  IOQ       320
        6254         0100                         CON    TRAN              TRANSFER ADDRESS FOR MAD              IOQ       321
        6255         0000                         CON    0                 NO REWIND FIRST                       IOQ       322
        6256         1501                         VFD    18/3LMAD,6/0                                            IOQ       323
        6257         0400 
                                                                                                                 IOQ       324
                                        *         DEADSTART W/OPERATOR INTERVENTION                              IOQ       325
                                                                                                                 IOQ       326
        6260         0017                         CON    1RO         O                                           IOQ       327
        6261         6102                         CON    XXI                                                     IOQ       328
        6262         0010                         CON    LOAD                                                    IOQ       329
        6263         0100                         CON    TRAN                                                    IOQ       330
        6264         0000                         CON    0                                                       IOQ       331
        6265         1711                         VFD    18/3LOIP,6/0                                            IOQ       332
        6266         2000 
                                                                                                                 IOQ       333
                                        *         UTILITIES                                                      IOQ       334
                                                                                                                 IOQ       335
        6267         0025                         CON    1RU               U                                     IOQ       336
        6270         6105                         CON    XXU                                                     IOQ       337
        6271         6000                         CON    IPLB                                                    IOQ       338
        6272         6000                         CON    IPLB                                                    IOQ       339
        6273         0000                         CON    0                                                       IOQ       340
        6274         0105                         VFD    18/3LAEI,6/0                                            IOQ       341
        6275         1100 
                                                                                                                 IOQ       342
                                        *         OFFLINE MAINTENANCE                                            IOQ       343
                                                                                                                 IOQ       344
        6276         0015                ORTM     CON    1RM               M                                     IOQ       345
        6277         6107                         CON    XXM                                                     IOQ       346
        6300         0200                         CON    EBLLOAD                                                 IOQ       347
        6301         0200                         CON    EBLLOAD                                                 IOQ       348
        6302         0000                         CON    0                                                       IOQ       349
        6303         0502                         VFD    18/3LEBL,6/0                                            IOQ       350
        6304         1400 
                                                                                                                 IOQ       351
                                        *         DISPLAY HARDWARE ERRORS   (DHE)                                IOQ       352
                                        *         THIS ENTRY DOES NOT CORRESPOND TO A VALID OPERATOR             IOQ       353
                                        *         RESPONSE BUT IS HERE TO END THE LIST OF VALID                  IOQ       354
                                        *         OPERATOR RESPONSES AND FOR THE PARAMETER BLOCK                 IOQ       355
                                        *         WHICH IS NEEDED WHEN DHE IS TO BE LOADED.                      IOQ       356
1       IOQ         CTI INITIAL OPERATOR QUERIES - A02                COMPASS 3.7-871.     23/08/13. 15.42.18.      PAGE    12
        OPERATOR RESPONSE TABLE 
  
                                                                                                                 IOQ       357
        6305         0000                DHE      CON    0                                                       IOQ       358
        6306         0000                         CON    0                                                       IOQ       359
        6307         0010                         CON    LOAD                                                    IOQ       360
        6310         0100                         CON    TRAN                                                    IOQ       361
        6311         0000                         CON    0                                                       IOQ       362
        6312         0410                         VFD    18/3LDHE,6/0                                            IOQ       363
        6313         0500 
1       IOQ         CTI INITIAL OPERATOR QUERIES - A02                COMPASS 3.7-871.     23/08/13. 15.42.18.      PAGE    13
        SUBROUTINES.                                                  DOP 
  
                                        **        DOP - DISPLAY OPTIONS.                                         IOQ       366
                                        *                                                                        IOQ       367
                                        *         DOP DISPLAYS THE INITIAL OPERATOR OPTIONS AND                  IOQ       368
                                        *         POSSIBLY AN ERROR MESSAGE.                                     IOQ       369
                                        *                                                                        IOQ       370
                                        *         ENTRY  (DOPL) = LENGTH TO DISPLAY.                             IOQ       371
                                        *                                                                        IOQ       372
                                                                                                                 IOQ       373
        6314         0100 0000           DOP      ENM    X                 ENTRY/EXIT                            IOQ       374
                                                                                                                 IOQ       375
                                        *         FUNCTION DISPLAY CONSOLE AND OUTPUT INITIAL OPTIONS.           IOQ       376
                                                                                                                 IOQ       377
        6316         7710 7001                    FNC    F.SEL+F.SLS+F.CHR+F.CHM,CHD                             IOQ       378
        6320         7410                         ACN    CHD                                                     IOQ       379
        6321         2000 0124                    LDC    DOOL              LENGTH OF DISPLAY BUFFER              IOQ       380
                                6322     DOPL     EQU    *-1                                                     IOQ       381
        6323         7310 6114                    OAM    DOO,CHD           DISPLAY INITIAL OPTIONS               IOQ       382
        6325         6610 6325                    FJM    *,CHD                                                   IOQ       383
        6327         7510                         DCN    CHD                                                     IOQ       384
        6330         1740                         SBN    40B         DISPLAY REFRESH DELAYB                      IOQ       385
        6331         0776                         MJN    *-1                                                     IOQ       386
        6332         0361                         UJN    DOPX              RETURN                                IOQ       387
  
  
  
  
                                        **        FDC - FREE DISPLAY CHANNEL                                     IOQ       389
                                        *                                                                        IOQ       390
                                        *         FDC HANGS PP 10 ON CHANNEL 12B.                                IOQ       391
                                        *                                                                        IOQ       392
                                                                                                                 IOQ       393
        6333         0100 0000           FDC      ENM    X                 ENTRY/EXIT                            IOQ       394
        6335         7412                         ACN    12B                                                     IOQ       395
        6336         1404                         LDN    FDCL              LENGTH OF IDLE PROGRAM                IOQ       396
        6337         7310 6345                    OAM    FDCA,CHD          SEND IDLE PROGRAM                     IOQ       397
        6341         6610 6341                    FJM    *,CHD                                                   IOQ       398
        6343         7510                         DCN    CHD                                                     IOQ       399
        6344         0366                         UJN    FDCX              RETURN                                IOQ       400
                                                                                                                 IOQ       401
        6345         0000                FDCA     CON    DEBUG             PP 10 PROGRAM                         IOQ       402
        6346                                      BSSZ   DEBUG                                                   IOQ       403
        6346         1400                         LDN    0                                                       IOQ       404
        6347         7112 0000           FDCB     IAM    0,12B             READ NEW PROGRAM                      IOQ       405
                                                  IFGT   DEBUG,0,3                                               IOQ       406
                                   4     FDCL     EQU    *-FDCA            LENGTH OF IDLE PROGRAM                IOQ       410
1       IOQ         CTI INITIAL OPERATOR QUERIES - A02                COMPASS 3.7-871.     23/08/13. 15.42.18.      PAGE    14
        SUBROUTINES.                                                  INI 
  
                                        **        INI - INITIALIZATION                                           IOQ       412
                                        *                                                                        IOQ       413
                                        *         INITIALIZE HDT TO ALL ZEROS.                                   IOQ       414
                                        *         IF DEADSTARTING FROM AN ACTIVE PP CHANNEL, ON A                IOQ       415
                                        *         C70 OR 6000, THEN COPY WORD 12B OF THE DEADSTART               IOQ       416
                                        *         PANEL IMAGE TO WORD 13B OF THE IMAGE.                          IOQ       417
                                        *         SAVE DEADSTART PANEL LOCATIONS 5-20B.                          IOQ       418
                                        *                                                                        IOQ       419
                                        *         ENTRY  (D10) = XXCC WHERE CC = D.S. CHANNEL NO.                IOQ       420
                                        *                                                                        IOQ       421
                                                                                                                 IOQ       422
        6351         0100 0000           INI      ENM    X                 ENTRY/EXIT                            IOQ       423
                                                                                                                 IOQ       424
        6353         1413                         LDN    13B               LENGTH OF HDT                         IOQ       425
        6354         3404                         STD    D4                                                      IOQ       426
        6355         1400                INI2     LDN    0                                                       IOQ       427
        6356         5404 7670                    STM    DEGR,D4           CLEAR UPPER 110 WORDS OF HDT          DIGO210     1
        6360         3704                         SOD    D4                                                      IOQ       429
        6361         0573                         NJN    INI2                                                    IOQ       430
                                                                                                                 IOQ       431
        6362         6416 6402                    AJM    INI4,CHSCR        IF NOT C70 OR 6000                    IOQ       432
        6364         1400                         LDN    0           CLEAR CM WRITE DISTRIBUTOR                  IOQ       433
        6365         6000                         CRD    0                                                       IOQ       434
        6366         6200                         CWD    0                                                       IOQ       435
        6367         6200                         CWD    0                                                       IOQ       436
        6370         3010                         LDD    D10                                                     IOQ       437
        6371         1237                         LPN    37B               ISOLATE D.S. CHANNEL                  IOQ       438
        6372         5500 6374                    RAM    INIB                                                    IOQ       439
        6374         6500 6402           INIB     IJM    INI4,**           IF NOT ACTIVE PP CHANNEL              IOQ       440
        6376         3015                         LDD    D15         SAD FLAG WORD                               IOQ       441
        6377         0503                         NJN    INI4        WORD 13 HAS OS PARAMETER WORD               IOQ       442
        6400         3012                         LDD    D12                                                     IOQ       443
        6401         3413                         STD    D13                                                     IOQ       444
                                6402     INI4     EQU    *                                                       IOQ       445
                                                                                                                 IOQ       446
        6402         1414                         LDN    20B-4             LENGTH OF D.S. PANEL TO SAVE          IOQ       447
        6403         3404                         STD    D4                                                      IOQ       448
        6404         5004 0004           INI6     LDM    5-1,D4                                                  IOQ       449
        6406         5404 7703                    STM    DSPNL-1,D4        SAVE D.S. PANEL                       IOQ       450
        6410         3704                         SOD    D4                                                      IOQ       451
        6411         0572                         NJN    INI6                                                    IOQ       452
        6412         0100 6351           INI8     LJM    INIX        RETURN                                      IOQ       453
                                                                                                                 IOQ       454
  
  
  
  
                                        **        LCM - LOAD CTI MODULE                                          IOQ       456
                                        *                                                                        IOQ       457
                                        *         LCM RETURNS PP 10 TO THE DEADSTART STATE AND CALLS THE         IOQ       458
                                        *         COMMON DRIVER TO LOAD A CTI MODULE.                            IOQ       459
                                        *                                                                        IOQ       460
                                        *         ENTRY  (D3) = ADDRESS OF ORT ENTRY                             IOQ       461
                                        *                                                                        IOQ       462
                                        *         NO EXIT. CONTROL GOES TO MODULE LOADED.                        IOQ       463
                                        *                                                                        IOQ       464
                                                                                                                 IOQ       465
1       IOQ         CTI INITIAL OPERATOR QUERIES - A02                COMPASS 3.7-871.     23/08/13. 15.42.18.      PAGE    15
        SUBROUTINES.
  
                                6414     LCM      EQU    *                                                       IOQ       466
        6414         7710 0000                    FNC    0,CHD             GET DISPLAY OFF CHAN 10               IOQ       467
        6416         1477                         LDN    77B                                                     IOQ       468
        6417         1701                         SBN    1                 WAIT A WHILE                          IOQ       469
        6420         0576                         NJN    *-1                                                     IOQ       470
        6421         6510 6424                    IJM    LCM3,CHD                                                IOQ       471
        6423         7510                         DCN    CHD                                                     IOQ       472
                                                                                                                 IOQ       473
        6424         7410                LCM3     ACN    CHD               PREPARE CHANNEL                       IOQ       474
        6425         1404                         LDN    LCML              PP 10 IS ON CHANNEL 12B               IOQ       475
        6426         7312 6437                    OAM    LCMA,12B                                                IOQ       476
        6430         6612 6430                    FJM    *,12B                                                   IOQ       477
        6432         7512                         DCN    12B                                                     IOQ       478
                                                                                                                 IOQ       479
                                        *         GO TO CTI MODULE                                               IOQ       480
                                                                                                                 IOQ       481
        6433         3003                         LDD    D3                                                      IOQ       482
        6434         1602                         ADN    ORTP              (A) = ADDRESS OF PARAMETERS           IOQ       483
        6435         0100 7000                    LJM    CDEP              GO TO COMMON DRIVER                   IOQ       484
  
  
        6437         0000                LCMA     CON    DEBUG             PP 10 PROGRAM                         IOQ       486
        6440                                      BSSZ   DEBUG                                                   IOQ       487
        6440         1400                         LDN    0                                                       IOQ       488
        6441         7110 0000                    IAM    0,CHD                                                   IOQ       489
                                                  IFGT   DEBUG,0,3                                               IOQ       490
                                   4     LCML     EQU    *-LCMA            LENGTH OF PROGRAM                     IOQ       494
  
  
  
  
                                        **        PKI - PROCESS KEYBOARD INPUT.                                  IOQ       496
                                        *                                                                        IOQ       497
                                        *         PKI FUNCTIONS THE DISPLAY CONSOLE FOR KEYBOARD INPUT, AND      IOQ       498
                                        *         CHECKS THE INPUT AGAINST THE VALID OPERATOR                    IOQ       499
                                        *         RESPONSES. IF NO INPUT HAS BEEN ENTERED, PKI RETURNS WITH      IOQ       500
                                        *         (A) ZERO. IF THE INPUT DOES NOT MATCH A VALID OPTION, (A)      IOQ       501
                                        *         IS ZERO AND AN ERROR MESSAGE HAS BEEN ACTIVATED. IF A          IOQ       502
                                        *         VALID OPTION IS FOUND, (A) IS THE FIRST WORD ADDRESS OF THE    IOQ       503
                                        *         ORT ENTRY.                                                     IOQ       504
                                        *                                                                        IOQ       505
                                        *         EXIT   (A) = 0, NO INPUT OR INPUT IN ERROR.                    IOQ       506
                                        *                (A) .NE. 0, FWA OF ORT ENTRY SELECTED.                  IOQ       507
                                        *                (D3) = FWA OF ORT ENTRY IF VALID ENTRY                  IOQ       508
                                        *                                                                        IOQ       509
                                                                                                                 IOQ       510
        6443         3003                PKI1     LDD    D3                VALID OPTION ADDRESS                  IOQ       511
                                                                                                                 IOQ       512
                                                                                                                 IOQ       513
        6444         0100 0000           PKI      ENM    X                 ENTRY/EXIT                            IOQ       514
        6446         7710 7020                    FNC    F.SEL+F.KEY,CHD   GET INPUT                             IOQ       515
        6450         7410                         ACN    CHD                                                     IOQ       516
        6451         7010                         IAN    CHD               READ KEYBOARD                         IOQ       517
        6452         7510                         DCN    CHD                                                     IOQ       518
        6453         0470                         ZJN    PKIX              IF NO INPUT, RETURN                   IOQ       519
        6454         3402                         STD    D2                SAVE ENTRY                            IOQ       520
        6455         2000 6251                    LDC    ORT               ADDRESS OF OPERATOR RESP TBL          IOQ       521
1       IOQ         CTI INITIAL OPERATOR QUERIES - A02                COMPASS 3.7-871.     23/08/13. 15.42.18.      PAGE    16
        SUBROUTINES.                                                  PKI 
  
        6457         3403                         STD    D3                                                      IOQ       522
        6460         4003                PKI2     LDI    D3                LOAD TABLE VALUE                      IOQ       523
        6461         0406                         ZJN    PKI4              IF END OF TABLE REACHED               IOQ       524
        6462         3202                         SBD    D2                                                      IOQ       525
        6463         0457                         ZJN    PKI1              IF VALID OPTION FOUND                 IOQ       526
        6464         1407                         LDN    ORTS                                                    IOQ       527
        6465         3503                         RAD    D3                ADVANCE TABLE POINTER                 IOQ       528
        6466         0371                         UJN    PKI2                                                    IOQ       529
        6467         3002                PKI4     LDD    D2                                                      IOQ       530
        6470         1753                         SBN    53B                                                     IOQ       531
        6471         0407                         ZJN    PKI6              IF LEFT BLANK                         IOQ       532
        6472         2000 0135                    LDC    DOOLE             SET MSG LENGTH FOR ERROR              IOQ       533
        6474         5400 6322           PKI5     STM    DOPL                                                    IOQ       534
        6476         1400                         LDN    0                                                       IOQ       535
        6477         0344                         UJN    PKIX              RETURN                                IOQ       536
                                                                                                                 IOQ       537
                                        *         LEFT BLANK 53B DETECTED. CLEAR ERROR MESSAGE.                  IOQ       538
                                                                                                                 IOQ       539
        6500         2000 0124           PKI6     LDC    DOOL              SET MSG LENGTH FOR NO ERROR           IOQ       540
        6502         0371                         UJN    PKI5                                                    IOQ       541
  
  
  
  
  
  
  
  
                                        *         OVERFLOW CHECK.                                                IOQ       544
                                                                                                                 IOQ       545
                                 270              ERRNG  CTIFWA-*          TOO BIG                               IOQ       546
                                                                                                                 IOQ       547
                                                                                                                 IOQ       548
        6503                                      END                                                            IOQ       549
  
                             53700B CM  STORAGE USED              765 STATEMENTS      246 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.751 SECONDS         301 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ACNC         7400                   4/49 D
        ADCC         2100                   4/43 D
        AJMC         6400                   4/46 D
        CDEP         7000                  15/19
        CHD            10                   5/17 D   13/17     13/35     15/02     15/09     15/52
                                           13/13     13/18     13/36     15/06     15/25     15/53
                                           13/14     13/19     13/37     15/07     15/51     15/54
        CHSCR          16                   5/48 D    8/16      8/25      8/28      8/31     14/21
                                            8/09      8/17      8/26      8/29      8/32
        CTIFWA       6773                  16/31
        DCNC         7500                   4/50 D
        DEBUG           0                   5/07 D   13/40     13/41     15/22     15/23
        DEGR         7670                  14/17 S
        DHE          6305                   8/20     12/02 L
        DHEP         6776                   8/05 S
1       IOQ         CTI INITIAL OPERATOR QUERIES - A02                COMPASS 3.7-871.     23/08/13. 15.42.18.      PAGE    17
        SYMBOLIC REFERENCE TABLE. 
  
        DOO          6114                  10/09 D   10/50     10/57     13/17
        DOOL          124                  10/50 D   13/15     16/19
        DOOLE         135                  10/57 D   16/12
        DOOM         6215                   7/39 S   10/39 L   10/40
        DOOML          15                   7/36     10/40 D
        DOP          6315                   7/45     13/09 D
        DOPL         6322                  13/16 D   16/13 S
        DOPLS          22                  10/07 D   10/17     10/27     10/37     10/53
                                           10/12     10/22     10/32     10/45
        DOPX         6314                  13/09 L   13/22
        DSPNL        7704                  14/39 S
        DSPPU          72                   5/52 D
        D0              0                   4/08 D
        D1              1                   4/09 D
        D10            10                   4/19 D   14/26
        D11            11                   4/20 D
        D12            12                   4/21 D   14/32
        D13            13                   4/22 D   14/33 S
        D14            14                   4/23 D
        D15            15                   4/24 D   14/30
        D16            16                   4/25 D
        D17            17                   4/26 D
        D2              2                   4/10 D   15/56 S   16/04     16/09
        D20            20                   4/27 D
        D3              3                   4/11 D    7/48      8/21 S   15/17     15/47     16/01 S   16/02     16/07 S
        D4              4                   4/12 D    7/39     14/15 S   14/18 S   14/38     14/40 S
                                            7/37 S    7/40 S   14/17     14/37 S   14/39
        D5              5                   4/13 D
        D6              6                   4/14 D
        D7              7                   4/17 D
        EBLLOAD       200                  11/47     11/48
        EBLP         6777                   8/07 S    9/04 S
        ENSCNR        122                   5/54 D
        FCCA         6000                   8/24      8/27
        FCSB         4000                   8/30
        FCTE         7000                   8/15
        FDC          6334                   7/43     13/32 D
        FDCA         6345                  13/35     13/40 L   13/45
        FDCB         6347                  13/43 L
        FDCL            4                  13/34     13/45 D
        FDCX         6333                  13/32 L   13/38
        F.CHL           2                   5/33 D
        F.CHM           1                   5/32 D   13/13
        F.CHR           0                   5/27 D   13/13
        F.CHS           0                   5/31 D
        F.DOT          10                   5/28 D
        F.KEY          20                   5/29 D   15/51
        F.SBS         200                   5/25 D
        F.SEL        7000                   5/21 D   13/13     15/51
        F.SLS           0                   5/23 D   13/13
        F.SRS         100                   5/24 D
        IAMC         7100                   4/47 D
        INI          6352                   7/24     14/12 D
        INIB         6374                  14/28 S   14/29 L
        INIX         6351                  14/12 L   14/42
        INI2         6355                  14/16 L   14/19
        INI4         6402                  14/21     14/29     14/31     14/34 D
1       IOQ         CTI INITIAL OPERATOR QUERIES - A02                COMPASS 3.7-871.     23/08/13. 15.42.18.      PAGE    18
        SYMBOLIC REFERENCE TABLE. 
  
        INI6         6404                  14/38 L   14/41
        INI8         6412                  14/42 L
        IOQ          6000                   7/24 L
        IOQA         6034                   7/49 S    7/51 D
        IOQALT       6002                   7/26
        IOQB         6000                   1/10      7/01
        IOQ05        6012                   7/38 L    7/41
        IOQ1         6020                   7/33      7/43 L
        IOQ2         6022                   7/45 L    7/47
        IPLB         6000                  11/37     11/38
        LCM          6414                   8/33      8/50      9/05     15/01 D
        LCMA         6437                  15/11     15/22 L   15/27
        LCML            4                  15/10     15/27 D
        LCM3         6424                  15/06     15/09 L
        LCNC         1500                   4/40 D
        LDCC         2000                   4/42 D
        LDDC         3000                   4/45 D
        LINE           30                  10/11 D   10/16 D   10/21 D   10/26 D   10/31 D   10/36 D   10/44 D   10/52 D
                                           10/12     10/17     10/22     10/27     10/32     10/37     10/45     10/53
                                           10/16     10/21     10/26     10/31     10/36     10/44     10/52
        LMCC         2300                   4/44 D
        LOAD           10                  11/17     11/27     12/04
        MPPUN          15                   5/06 D
        MSRP         7747                   7/31
        OAMC         7300                   4/48 D
        ORT          6251                  11/08 D   15/57
        ORTM         6276                   7/35 S   11/45 L
        ORTP            2                  11/10 D   15/18
        ORTS            7                  11/11 D   16/06
        ORTX            1                   7/48     11/09 D
        PKI          6445                   7/46     15/50 D
        PKIX         6444                  15/50 L   15/55     16/15
        PKI1         6443                  15/47 L   16/05
        PKI2         6460                  16/02 L   16/08
        PKI4         6467                  16/03     16/09 L
        PKI5         6474                  16/13 L   16/20
        PKI6         6500                  16/11     16/19 L
        PPCT          124                   8/30
        PPP1         7675                   8/13 S
        PSNC            0                   4/36 D
        QUAL$           0                   5/05 D
        SBNC         1700                   4/41 D
        SCANCH          0                   5/47 D
        SCANSB        110                   5/53 D
        SCRCLR       2000                   5/49 D
        SCRSET       4000                   5/50 D
        SCRTE        7000                   5/51 D
        SHNC         1000                   4/39 D
        TRAN          100                  11/18     11/28     12/05
        UJNC          300                   4/37 D
        XSET         6000                   5/37 D   10/18     10/28     10/38     10/54
                                           10/13     10/23     10/33     10/46
        XXC          6035                   8/03 L   11/16
        XXC2         6036                   8/05 L    8/42
        XXC3         6053                   8/11      8/14 L
        XXC8         6064                   8/18      8/24 L
        XXC9         6100                   8/09      8/22      8/33 L
1       IOQ         CTI INITIAL OPERATOR QUERIES - A02                COMPASS 3.7-871.     23/08/13. 15.42.18.      PAGE    19
        SYMBOLIC REFERENCE TABLE. 
  
        XXI          6102                   8/40 L   11/26
        XXM          6107                   9/03 L   11/46
        XXU          6105                   8/49 L   11/36
        YSET         7000                   5/38 D   10/17     10/27     10/37     10/53
                                           10/12     10/22     10/32     10/45
        ZJNC          400                   4/38 D
 OIP
1       OIP         CTI OPER. INTERVENTION PROCESSOR - A02            COMPASS 3.7-871.     23/08/13. 15.42.20.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
  
                         10     3024              IDENT  OIP,/CTI/LOAD
                       3034     (471)             END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  ABSOLUTE        0      2777 
                                        LITERALS* ABSOLUTE     2777        35 
  
  
  
  
                                                  IDENT  OIP,/CTI/LOAD                                           OIP         2
                                                  PERIPH                                                         OIP         3
                                 D_M              BASE   MIXED                                                   OIP         4
                                                  SST                                                            OIP         5
                                         VERID    MICRO  1,,*A02*                                                *A02*       1
                                         VERS     MICRO  1,,*"VERID"*                                       VERS VERS        3
                                                  COMMENT CTI OPER. INTERVENTION PROCESSOR - "VERS"              DIMA317G    3
                                                  COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1979               DIMA317G    4
  
  
                                        *         ALL RIGHTS RESERVED                                            CDCCRN      3
                                        *                                                                        CDCCRN      4
                                        *         CONTAINED HEREIN ARE SOFTWARE PRODUCTS COPYRIGHTED             CDCCRN      5
                                        *         BY CONTROL DATA CORPORATION.  REPRODUCTION WITHOUT             CDCCRN      6
                                        *         PERMISSION IS PROHIBITED.  THE COPYRIGHT NOTICE                CDCCRN      7
                                        *         MUST APPEAR ON ALL AUTHORIZED COMPLETE OR                      CDCCRN      8
                                        *         PARTIAL COPIES.                                                CDCCRN      9
                                        *                                                                        CDCCRN     10
1       OIP         CTI OPER. INTERVENTION PROCESSOR - A02            COMPASS 3.7-871.     23/08/13. 15.42.20.      PAGE     2
                                                                      OIP 
  
                                        *****     OIP - OPERATOR INTERVENTION PROCESSOR - CTI.                   DIGO211A    1
                                        *                                                                        OIP        11
                                        *         J. F. RIAN         78/06/09.                                   OIP        12
                                        *                                                                        OIP        13
                                        *         OIP PROVIDES FOR OPERATOR INTERVENTION TO                      OIP        14
                                        *             1. CHANGE DEADSTART PANEL PARAMETERS                       OIP        15
                                        *             2. CHANGE HARDWARE DESCRIPTOR TABLE ENTRIES                OIP        16
                                        *             3. EXECUTE THE DEADSTART DIAGNOSTIC SEQUENCER              OIP        17
  
  
  
  
                                        ***       IOQ CALLS OIP TO PROCESS THE *A* DISPLAY *I* OPTION.           OIP        19
  
  
  
  
                                        ***       *B* DISPLAY.                                                   OIP        21
                                        *                                                                        OIP        22
                                        *         OIP INITIALLY DISPLAYS THE *B* DISPLAY AS FOLLOWS -            OIP        23
                                        *                                                                 SCREEN OIP        24
                                        ****************************************************************** LINE  OIP        25
                                        *                             *B*                                *  01   OIP        26
                                        *                                                                *  02   OIP        27
                                        *               (CR) - ENTER OS LOAD AUTOMATIC                   *  03   OIP        28
                                        *               (BS) - RETURN TO *A* DISPLAY                     *  04   OIP        29
                                        *                                                                *  05   OIP        30
                                        *                 D  - DEADSTART DIAGNOSTIC SEQ.                 *  06   OIP        31
                                        *                 H  - HARDWARE RECONFIGURATION                  *  07   OIP        32
                                        *                 P  - DEADSTART PANEL PARAMS                    *  08   OIP        33
                                        *                                                                *   .   OIP        34
                                        *                                                                *   .   OIP        35
                                        *                                                                *   .   OIP        36
                                        *               ERROR MESSAGE                                    *  23   OIP        37
                                        *                                                                *  24   OIP        38
                                        ******************************************************************       OIP        39
                                        *                                                                        OIP        40
                                        *                                                                        OIP        41
                                        *         IF THE OPERATOR RESPONDS WITH (CR) TO THE OIP *B* DISPLAY,     OIP        42
                                        *         OIP CALLS MAD TO DO OS AUTOMATIC LOAD PROCESSING.              OIP        43
                                        *                                                                        OIP        44
                                        *         IF THE OPERATOR RESPONDS WITH (BS) TO THE OIP *B* DISPLAY,     OIP        45
                                        *         OIP RETURNS TO IOQ, WHICH DISPLAYS THE *A* DISPLAY.            OIP        46
                                        *                                                                        OIP        47
                                        *         IF THE OPERATOR RESPONDS WITH *D* TO THE OIP *B* DISPLAY,      OIP        48
                                        *         OIP CALLS MAD TO INITIATE THE DEADSTART DIAGNOSTIC             OIP        49
                                        *         SEQUENCER.                                                     OIP        50
                                        *                                                                        OIP        51
                                        *                                                                        OIP        52
                                        *         IF THE OPERATOR RESPONDS WITH *H* TO THE OIP *B* DISPLAY,      OIP        53
                                        *         OIP PROCESSES AS FOLLOWS -                                     OIP        54
                                        *                                                                        OIP        55
                                        *             1. DISPLAYS THE *H* DISPLAY AND ACCEPTS KEYBOARD ENTRY OF  OIP        56
                                        *                HARDWARE RECONFIGURATION STATEMENTS.                    OIP        57
                                        *                                                                        OIP        58
                                        *             2. IF STATEMENT INPUT IS ENDED VIA A SINGLE (CR),          OIP        59
                                        *                CALLS MAD TO DO OS AUTOMATIC LOAD PROCESSING.           OIP        60
1       OIP         CTI OPER. INTERVENTION PROCESSOR - A02            COMPASS 3.7-871.     23/08/13. 15.42.20.      PAGE     3
  
  
                                        *                                                                        OIP        61
                                        *             3. IF STATEMENT INPUT IS ENDED VIA A SINGLE (BS),          OIP        62
                                        *                RETURNS TO THE *B* DISPLAY.                             OIP        63
                                        *                                                                        OIP        64
                                        *                                                                        OIP        65
                                        *         IF THE OPERATOR RESPONDS WITH *P* TO THE OIP *B* DISPLAY,      OIP        66
                                        *         OIP PROCESSES AS FOLLOWS -                                     OIP        67
                                        *                                                                        OIP        68
                                        *             1. DISPLAYS THE P-DISPLAY AND ACCEPTS KEYBOARD ENTRY OF    OIP        69
                                        *                DEADSTART PANEL CHANGE STATEMENTS.                      OIP        70
                                        *                                                                        OIP        71
                                        *             2. IF STATEMENT INPUT IS ENDED VIA A SINGLE (CR),          OIP        72
                                        *                CALLS MAD TO DO OS AUTOMATIC LOAD PROCESSING.           OIP        73
                                        *                                                                        OIP        74
                                        *             3. IF STATEMENT INPUT IS ENDED VIA A SINGLE (BS),          OIP        75
                                        *                RETURNS TO THE *B* DISPLAY.                             OIP        76
                                        *                                                                        OIP        77
  
  
  
  
                                        ***       *H* DISPLAY.                                                   OIP        79
                                        *                                                                        OIP        80
                                        *         THE *H* DISPLAY IS AS FOLLOWS -                                OIP        81
                                        *                                                                 SCREEN OIP        82
                                        ****************************************************************** LINE  OIP        83
                                        *                             *H*                                *  01   OIP        84
                                        *                                                                *  02   OIP        85
                                        *               (CR) - ENTER OS LOAD AUTOMATIC                   *  03   OIP        86
                                        *               (BS) - RETURN TO *B* DISPLAY                     *  04   OIP        87
                                        *                                                                *  05   OIP        88
                                        *               CM = NNNNNN.      CEJ/MEJ = ON                   *  06   OIP        89
                                        *                                     CMU = ON                   *  07   OIP        90
                                        *                                                                *  08   OIP        91
                                        *                         OFF ELEMENTS                           *  09   OIP        92
                                        *                 CPU1    PP20    PP21    PP22                   *  10   OIP        93
                                        *                 PP23    PP24    PP25    PP26                   *  11   OIP        94
                                        *                 PP27    PP30    PP31    PPU1                   *  12   OIP        95
                                        *                 PPU2    ....    ....    ....                   *  13   OIP        96
                                        *                                                                *   .   OIP        97
                                        *                                                                *   .   OIP        98
                                        *                                                                *   .   OIP        99
                                        *               ERROR MESSAGE                                    *  23   OIP       100
                                        *               KEYBOARD BUFFER                                  *  24   OIP       101
                                        ******************************************************************       OIP       102
1       OIP         CTI OPER. INTERVENTION PROCESSOR - A02            COMPASS 3.7-871.     23/08/13. 15.42.20.      PAGE     4
  
  
                                        ***       HARDWARE RECONFIGURATION STATEMENTS.                           OIP       104
                                        *                                                                        OIP       105
                                        *         THE HARDWARE RECONFIGURATION STATEMENTS ARE OF THE FOLLOWING   OIP       106
                                        *         FORM -                                                         OIP       107
                                        *                                                                        OIP       108
                                        *                KEYWORD=PARAMETER                                       OIP       109
                                        *                                                                        OIP       110
                                        *         OIP RECOGNIZES THE FOLLOWING STATEMENTS -                      OIP       111
                                        *                                                                        OIP       112
                                        *         KEYWORD    PARAMETER     FUNCTION                              OIP       113
                                        *                                                                        OIP       114
                                        *         CM=        NNNNNN        DECLARES THE SIZE OF CENTRAL MEMORY   OIP       115
                                        *                                  IN HUNDREDS OF WORDS. VALUE IS OCTAL. OIP       116
                                        *                                  THUS FOR -                            OIP       117
                                        *                                     32K, NNNNNN = 1000                 OIP       118
                                        *                                     49K, NNNNNN = 1400                 OIP       119
                                        *                                     65K, NNNNNN = 2000                 OIP       120
                                        *                                     98K, NNNNNN = 3000                 OIP       121
                                        *                                    131K, NNNNNN = 4000                 OIP       122
                                        *                                    198K, NNNNNN = 6000                 OIP       123
                                        *                                    262K, NNNNNN = 10000                OIP       124
                                        *                                                                        OIP       125
                                        *         CPUN=      OFF/ON        DECLARES THE LOGICAL STATUS OF EACH   OIP       126
                                        *                                  AVAILABLE CPU. VALID VALUES FOR N     OIP       127
                                        *                                  ARE 0 AND 1.                          OIP       128
                                        *                                                                        OIP       129
                                        *         PPN=       OFF/ON        DECLARES THE LOGICAL STATUS OF ONE    OIP       130
                                        *         PPN-M=     OFF/ON        OR MORE PERIPHERAL PROCESSORS.        OIP       131
                                        *                                  VALID VALUES FOR N AND M ARE ANY      OIP       132
                                        *                                  OCTAL NUMBERS FROM 3 THRU 31,         OIP       133
                                        *                                  EXCLUDING 10 AND 12 THRU 17.          OIP       134
                                        *                                                                        OIP       135
                                        *         PPUN=      OFF/ON        DECLARES THE LOGICAL STATUS OF THE    OIP       136
                                        *         PPUN-M=    OFF/ON        INDICATED PHYSICAL FIRST LEVEL        OIP       137
                                        *                                  PERIPHERAL PROCESSOR (PPU). VALID     OIP       138
                                        *                                  VALUES FOR N AND M ARE ANY OCTAL      OIP       139
                                        *                                  NUMBERS FROM 1 THRU 15.               OIP       140
                                        *                                                                        OIP       141
                                        *         CEJ/MEJ=   OFF/ON        DECLARES THE LOGICAL STATUS OF        OIP       142
                                        *                                  CEJ/MEJ. IF THE STATUS IS *ON*,       OIP       143
                                        *                                  CEJ/MEJ WILL BE USED IF PRESENT.      OIP       144
                                        *                                                                        OIP       145
                                        *         CMU=       OFF/ON        DECLARES THE LOGICAL STATUS OF THE    OIP       146
                                        *                                  CMU HARDWARE. IF THE STATUS IS        OIP       147
                                        *                                  *ON*, CMU WILL BE USED IF PRESENT.    OIP       148
1       OIP         CTI OPER. INTERVENTION PROCESSOR - A02            COMPASS 3.7-871.     23/08/13. 15.42.20.      PAGE     5
  
  
                                        ***       *P* DISPLAY.                                                   OIP       150
                                        *                                                                        OIP       151
                                        *         THE *P* DISPLAY IS AS FOLLOWS -                                OIP       152
                                        *                                                                 SCREEN OIP       153
                                        ****************************************************************** LINE  OIP       154
                                        *                             *P*                                *  01   OIP       155
                                        *                                                                *  02   OIP       156
                                        *               (CR) - ENTER OS LOAD AUTOMATIC                   *  03   OIP       157
                                        *               (BS) - RETURN TO *B* DISPLAY                     *  04   OIP       158
                                        *                                                                *  05   OIP       159
                                        *                  I = X    - INIT/RECOVERY LVL                  *  06   OIP       160
                                        *                  C = XX   - CMRDECK NUMBER                     *  07   OIP       161
                                        *                W12 = XXXX - D/S PANEL WORD 12                  *  08   OIP       162
                                        *                W14 = XXXX - D/S PANEL WORD 14                  *  09   OIP       163
                                        *                                                                *  10   OIP       164
                                        *                                                                *   .   OIP       165
                                        *                                                                *   .   OIP       166
                                        *                                                                *   .   OIP       167
                                        *               ERROR MESSAGE                                    *  23   OIP       168
                                        *               KEYBOARD BUFFER                                  *  24   OIP       169
                                        ******************************************************************       OIP       170
1       OIP         CTI OPER. INTERVENTION PROCESSOR - A02            COMPASS 3.7-871.     23/08/13. 15.42.20.      PAGE     6
  
  
           0                                      CTEXT  COMPMAC - PP SYSTEM MACROS.                             COMPMAC     2
           0                             CPA      CTEXT  COMSCPA - CTI COMMON POINTER AREA DEFINITIONS.          COMSCPA     2
           0                             CTI      CTEXT  COMSCTI - CTI INTERNAL DEFINITIONS.                     COMSCTI     2
  
  
  
  
                                        **        INSTRUCTIONS USED AS CONSTANTS.                                OIP       176
                                                                                                                 OIP       177
                                                                                                                 OIP       178
                                1000     SHNI     EQU    1000        SHN                                         OIP       179
  
  
  
  
                                        **        DISPLAY DEFINITIONS.                                           OIP       181
                                                                                                                 OIP       182
                                                                                                                 OIP       183
                                  10     CH       EQU    10          DISPLAY CHANNEL                             OIP       184
                                7001     DSFC     EQU    7001        SELECT LEFT SCREEN, 32 CHARACTERS/LINE      OIP       185
                                                                                                                 OIP       186
                                 M_D              BASE   D                                                       OIP       187
                                  20     XCIN     EQU    20B         X-COORDINATE INCREMENT                      OIP       188
                                6000     XC01     EQU    6000B       CHAR 01 X-COORDINATE                        OIP       189
                                6020     XC02     EQU    XC01+XCIN*1                                             OIP       190
                                6040     XC03     EQU    XC01+XCIN*2                                             OIP       191
                                6060     XC04     EQU    XC01+XCIN*3                                             OIP       192
                                6100     XC05     EQU    XC01+XCIN*4                                             OIP       193
                                6120     XC06     EQU    XC01+XCIN*5                                             OIP       194
                                6140     XC07     EQU    XC01+XCIN*6                                             OIP       195
                                6160     XC08     EQU    XC01+XCIN*7                                             OIP       196
                                6200     XC09     EQU    XC01+XCIN*8                                             OIP       197
                                6220     XC10     EQU    XC01+XCIN*9                                             OIP       198
                                6240     XC11     EQU    XC01+XCIN*10                                            OIP       199
                                6260     XC12     EQU    XC01+XCIN*11                                            OIP       200
                                6300     XC13     EQU    XC01+XCIN*12                                            OIP       201
                                6320     XC14     EQU    XC01+XCIN*13                                            OIP       202
                                6340     XC15     EQU    XC01+XCIN*14                                            OIP       203
                                6360     XC16     EQU    XC01+XCIN*15                                            OIP       204
                                6400     XC17     EQU    XC01+XCIN*16                                            OIP       205
                                6420     XC18     EQU    XC01+XCIN*17                                            OIP       206
                                6440     XC19     EQU    XC01+XCIN*18                                            OIP       207
                                6460     XC20     EQU    XC01+XCIN*19                                            OIP       208
                                6500     XC21     EQU    XC01+XCIN*20                                            OIP       209
                                6520     XC22     EQU    XC01+XCIN*21                                            OIP       210
                                6540     XC23     EQU    XC01+XCIN*22                                            OIP       211
                                6560     XC24     EQU    XC01+XCIN*23                                            OIP       212
                                6600     XC25     EQU    XC01+XCIN*24                                            OIP       213
                                6620     XC26     EQU    XC01+XCIN*25                                            OIP       214
                                6640     XC27     EQU    XC01+XCIN*26                                            OIP       215
                                6660     XC28     EQU    XC01+XCIN*27                                            OIP       216
                                6700     XC29     EQU    XC01+XCIN*28                                            OIP       217
                                6720     XC30     EQU    XC01+XCIN*29                                            OIP       218
                                6740     XC31     EQU    XC01+XCIN*30                                            OIP       219
                                6760     XC32     EQU    XC01+XCIN*31                                            OIP       220
                                                                                                                 OIP       221
                                  24     YCIN     EQU    24B         Y-COORDINATE INCREMENT                      OIP       222
1       OIP         CTI OPER. INTERVENTION PROCESSOR - A02            COMPASS 3.7-871.     23/08/13. 15.42.20.      PAGE     7
  
  
                                7730     YC01     EQU    7730B             LINE 01 Y-COORDINATE                  OIP       223
                                7704     YC02     EQU    YC01-YCIN*1       LINE 02 Y-COORDINATE                  OIP       224
                                7660     YC03     EQU    YC01-YCIN*2                                             OIP       225
                                7634     YC04     EQU    YC01-YCIN*3                                             OIP       226
                                7610     YC05     EQU    YC01-YCIN*4                                             OIP       227
                                7564     YC06     EQU    YC01-YCIN*5                                             OIP       228
                                7540     YC07     EQU    YC01-YCIN*6                                             OIP       229
                                7514     YC08     EQU    YC01-YCIN*7                                             OIP       230
                                7470     YC09     EQU    YC01-YCIN*8                                             OIP       231
                                7444     YC10     EQU    YC01-YCIN*9                                             OIP       232
                                7420     YC11     EQU    YC01-YCIN*10                                            OIP       233
                                7374     YC12     EQU    YC01-YCIN*11                                            OIP       234
                                7350     YC13     EQU    YC01-YCIN*12                                            OIP       235
                                7324     YC14     EQU    YC01-YCIN*13                                            OIP       236
                                7300     YC15     EQU    YC01-YCIN*14                                            OIP       237
                                7254     YC16     EQU    YC01-YCIN*15                                            OIP       238
                                7230     YC17     EQU    YC01-YCIN*16                                            OIP       239
                                7204     YC18     EQU    YC01-YCIN*17                                            OIP       240
                                7160     YC19     EQU    YC01-YCIN*18                                            OIP       241
                                7134     YC20     EQU    YC01-YCIN*19                                            OIP       242
                                7110     YC21     EQU    YC01-YCIN*20                                            OIP       243
                                7064     YC22     EQU    YC01-YCIN*21                                            OIP       244
                                7040     YC23     EQU    YC01-YCIN*22                                            OIP       245
                                7014     YC24     EQU    YC01-YCIN*23      LINE 24 Y-COORDINATE                  OIP       246
                                                                                                                 OIP       247
                                7040     YCER     EQU    YC23              KEYBOARD ERROR MESSAGE LINE           OIP       248
                                7014     YCKB     EQU    YC24              KEYBOARD BUFFER DISPLAY               OIP       249
                                                                                                                 OIP       250
                                 D_M              BASE   *                                                       OIP       251
  
  
  
  
                                        **        DIRECT LOCATION ASSIGNMENTS                                    OIP       253
                                                                                                                 OIP       254
                                                                                                                 OIP       255
                                   0     T0       EQU    0           TEMPORARIES                                 OIP       256
                                   1     T1       EQU    1                                                       OIP       257
                                   2     T2       EQU    2                                                       OIP       258
                                   3     T3       EQU    3                                                       OIP       259
                                   4     T4       EQU    4                                                       OIP       260
                                   5     T5       EQU    5                                                       OIP       261
                                   6     T6       EQU    6                                                       OIP       262
                                   7     T7       EQU    7                                                       OIP       263
                                                                                                                 OIP       264
                                  10     AB       EQU    10 - 14     ASSEMBLY BUFFER                             OIP       265
                                  15     KI       EQU    15          KEYBOARD INDEX                              OIP       266
                                  16     KM       EQU    16          KEYBOARD MESSAGE                            OIP       267
                                  17     KA       EQU    17          KEYBOARD CHARACTER ADDRESS                  OIP       268
1       OIP         CTI OPER. INTERVENTION PROCESSOR - A02            COMPASS 3.7-871.     23/08/13. 15.42.20.      PAGE     8
        MAIN CONTROL.                                                 OIP 
  
                                        **        OIP - OPERATOR INTERVENTION PROCESSOR.                         OIP       272
                                        *                                                                        OIP       273
                                        *         ENTRY  PP10 ON CHANNEL 10.                                     OIP       274
                                        *                                                                        OIP       275
                                        *         EXIT   PP10 ON CHANNEL 0.                                      OIP       276
                                        *                TO *OID*.                                               OIP       277
                                        *                                                                        OIP       278
                                        *         USES   NONE.                                                   OIP       279
                                        *                                                                        OIP       280
                                        *         CALLS  NONE.                                                   OIP       281
                                                                                                                 OIP       282
                                                                                                                 OIP       283
         100                                      ORG    /CTI/TRAN                                               OIP       284
                                                                                                                 OIP       285
                                                                                                                 OIP       286
         100                             OIP      BSS    0                                                       OIP       287
         100         7400                         ACN    0           MOVE DISPLAY PP TO CHANNEL 0                OIP       288
         101         1403                         LDN    3                                                       OIP       289
         102         7310 0107                    OAM    OIPA,CH                                                 OIP       290
         104         7550                         DCN    CH+40                                                   OIP       291
         105         0100 0113                    LJM    OID                                                     OIP       292
                                                                                                                 OIP       293
         107         0000                OIPA     CON    0                                                       OIP       294
         110         1500                         LCN    0                                                       OIP       295
         111         7100 0000                    IAM    0,0                                                     OIP       296
  
  
  
  
                                        **        OID - OPERATOR INTERVENTION DISPLAY.                           OIP       298
                                        *                                                                        OIP       299
                                        *         ENTRY  NONE.                                                   OIP       300
                                        *                                                                        OIP       301
                                        *         EXIT   TO *OSL* IF (CR).                                       OIP       302
                                        *                TO *IOQ* IF (BS).                                       OIP       303
                                        *                TO *DDS* IF *D*.                                        OIP       304
                                        *                TO *HRC* IF *H*.                                        OIP       305
                                        *                TO *PAN* IF *P*.                                        OIP       306
                                        *                                                                        OIP       307
                                        *         USES   NONE.                                                   OIP       308
                                        *                                                                        OIP       309
                                        *         CALLS  CKB, DSB, KBI.                                          OIP       310
                                                                                                                 OIP       311
                                                                                                                 OIP       312
         113         0200 1444           OID      RJM    CKB         CLEAR KEYBOARD BUFFER                       OIP       313
         115         0200 1520           OID1     RJM    DSB         *O* DISPLAY                                 OIP       314
         117         0200 0303                    RJM    DRD         DISPLAY REFRESH DELAY                       OIP       315
         121         0200 1342                    RJM    KBI         READ KEYBOARD                               OIP       316
         123         0524                         NJN    OID5        IF (CR) OR (BS)                             OIP       317
         124         5000 1460                    LDM    KBUF                                                    OIP       318
         126         0466                         ZJN    OID1        IF NO DATA                                  OIP       319
         127         1104                         LMN    1RD                                                     OIP       320
         130         0503                         NJN    OID2        IF NOT *D*                                  OIP       321
         131         0100 0172                    LJM    DDS                                                     OIP       322
                                                                                                                 OIP       323
         133         1114                OID2     LMN    1RH&1RD                                                 OIP       324
         134         0503                         NJN    OID3        IF NOT *H*                                  OIP       325
1       OIP         CTI OPER. INTERVENTION PROCESSOR - A02            COMPASS 3.7-871.     23/08/13. 15.42.20.      PAGE     9
        MAIN CONTROL.                                                 OID 
  
         135         0100 0211                    LJM    HRC                                                     OIP       326
                                                                                                                 OIP       327
         137         1130                OID3     LMN    1RP&1RH                                                 OIP       328
         140         0503                         NJN    OID4        IF NOT *P*                                  OIP       329
         141         0100 0246                    LJM    PAN                                                     OIP       330
                                                                                                                 OIP       331
         143         2000 2777           OID4     LDC    =C*INVALID OPTION*                                      OIP       332
         145         3416                         STD    KM                                                      OIP       333
         146         0346                         UJN    OID1                                                    OIP       334
                                                                                                                 OIP       335
         147         1101                OID5     LMN    1                                                       OIP       336
         150         0472                         ZJN    OID4        IF END OF STATEMENT (CR)                    OIP       337
         151         1103                         LMN    2&1                                                     OIP       338
         152         0503                         NJN    OID6        IF NOT (CR)                                 OIP       339
         153         0100 0157                    LJM    OSL                                                     OIP       340
         155         0100 0176           OID6     LJM    IOQ                                                     OIP       341
  
  
  
  
                                        **        OSL - OS LOAD AUTOMATIC.                                       OIP       343
                                        *                                                                        OIP       344
                                        *         ENTRY  NONE.                                                   OIP       345
                                        *                                                                        OIP       346
                                        *         EXIT   TO *MAD*.                                               OIP       347
                                        *                                                                        OIP       348
                                        *         USES   NONE.                                                   OIP       349
                                        *                                                                        OIP       350
                                        *         CALLS  CDEP.                                                   OIP       351
                                                                                                                 OIP       352
                                                                                                                 OIP       353
         157         0200 2656           OSL      RJM    CDS         CLEAR DISPLAY                               OIP       354
         161         2000 0165                    LDC    OSLA        CALL *MAD*                                  OIP       355
         163         0100 7000                    LJM    /CTI/CDEP                                               OIP       356
                                                                                                                 OIP       357
         165         0010                OSLA     CON    /CTI/LOAD   CDIB                                        OIP       358
         166         0100                         CON    /CTI/TRAN   CDTA                                        OIP       359
         167         0000                         CON    0           CDRW                                        OIP       360
         170         1501                         DATA   L*MAD*      CDNC                                        OIP       361
  
  
  
  
                                        **        DDS - PREPARE FOR DEADSTART DIAGNOSTIC SEQUENCER.              OIP       363
                                        *                                                                        OIP       364
                                        *         ENTRY  NONE.                                                   OIP       365
                                        *                                                                        OIP       366
                                        *         EXIT   TO *OSL*.                                               OIP       367
                                        *                                                                        OIP       368
                                        *         USES   NONE.                                                   OIP       369
                                        *                                                                        OIP       370
                                        *         CALLS  NONE.                                                   OIP       371
                                                                                                                 OIP       372
                                                                                                                 OIP       373
         172         1401                DDS      LDN    1           INDICATE DEADSTART DIAGNOSTIC SEQUENCER     OIP       374
         173         5400 6777                    STM    /CTI/EBLP                                               OIP       375
         175         0361                         UJN    OSL         CALL *MAD*                                  OIP       376
1       OIP         CTI OPER. INTERVENTION PROCESSOR - A02            COMPASS 3.7-871.     23/08/13. 15.42.20.      PAGE    10
        MAIN CONTROL.                                                 IOQ 
  
                                        **        IOQ - RETURN TO *IOQ*.                                         OIP       378
                                        *                                                                        OIP       379
                                        *         ENTRY  NONE.                                                   OIP       380
                                        *                                                                        OIP       381
                                        *         EXIT   TO *IOQ*.                                               OIP       382
                                        *                                                                        OIP       383
                                        *         USES   NONE.                                                   OIP       384
                                        *                                                                        OIP       385
                                        *         CALLS  CDEP.                                                   OIP       386
                                                                                                                 OIP       387
                                                                                                                 OIP       388
         176         0200 2656           IOQ      RJM    CDS         CLEAR DISPLAY                               OIP       389
         200         2000 0204                    LDC    IOQA        CALL *IOQ*                                  OIP       390
         202         0100 7000                    LJM    /CTI/CDEP                                               OIP       391
                                                                                                                 OIP       392
         204         6000                IOQA     CON    /CTI/IOQB   CDIB                                        OIP       393
         205         6002                         CON    /CTI/IOQALT CDTA                                        OIP       394
         206         0001                         CON    1           CDRW                                        OIP       395
         207         1117                         DATA   L*IOQ*      CDNC                                        OIP       396
  
  
  
  
                                        **        HRC - HARDWARE RECONFIGURATION.                                OIP       398
                                        *                                                                        OIP       399
                                        *         ENTRY  NONE.                                                   OIP       400
                                        *                                                                        OIP       401
                                        *         EXIT   TO *OSL* IF SINGLE (CR).                                OIP       402
                                        *                TO *OID* IF SINGLE (BS).                                OIP       403
                                        *                                                                        OIP       404
                                        *         USES   NONE.                                                   OIP       405
                                        *                                                                        OIP       406
                                        *         CALLS  CKB, DSH, KBI, XLS.                                     OIP       407
                                                                                                                 OIP       408
                                                                                                                 OIP       409
         211         0200 1444           HRC      RJM    CKB         CLEAR KEYBOARD BUFFER                       OIP       410
         213         0200 1663           HRC1     RJM    DSH         DISPLAY H-DISPLAY                           OIP       411
         215         0200 0303                    RJM    DRD         DISPLAY REFRESH DELAY                       OIP       412
         217         0200 1342                    RJM    KBI         READ KEYBOARD                               OIP       413
         221         0471                         ZJN    HRC1        IF STATEMENT INCOMPLETE                     OIP       414
         222         1101                         LMN    1                                                       OIP       415
         223         0506                         NJN    HRC2        IF NOT CONTROL STATEMENT                    OIP       416
         224         2000 0237                    LDC    HSYN        TRANSLATE STATEMENT                         OIP       417
         226         0200 0320                    RJM    XLS                                                     OIP       418
         230         0362                         UJN    HRC1                                                    OIP       419
                                                                                                                 OIP       420
         231         1103                HRC2     LMN    2&1                                                     OIP       421
         232         0503                         NJN    HRC3        IF NOT END OF INFORMATION (SINGLE CR)       OIP       422
         233         0100 0157                    LJM    OSL                                                     OIP       423
         235         0100 0113           HRC3     LJM    OID         GO TO B-DISPLAY (SINGLE BS)                 OIP       424
                                                                                                                 OIP       425
                                        **        HSYN - HARDWARE ATTRIBUTES SYNTAX TABLE                        OIP       426
                                                                                                                 OIP       427
         237         0333                HSYN     CON    CMZ         CM                                          OIP       428
         240         0546                         CON    CPX         CPUN                                        OIP       429
         241         0670                         CON    PUN         PPUN                                        OIP       430
         242         0611                         CON    PPX         PPN                                         OIP       431
1       OIP         CTI OPER. INTERVENTION PROCESSOR - A02            COMPASS 3.7-871.     23/08/13. 15.42.20.      PAGE    11
        MAIN CONTROL.                                                 HRC 
  
         243         0730                         CON    CEJ         CEJ/MEJ                                     OIP       432
         244         0753                         CON    CMU         CMU                                         OIP       433
         245         0000                         CON    0           END OF TABLE                                OIP       434
  
  
  
  
                                        **        PAN - CHANGE DEADSTART PANEL PARAMETERS.                       OIP       436
                                        *                                                                        OIP       437
                                        *         ENTRY  NONE.                                                   OIP       438
                                        *                                                                        OIP       439
                                        *         EXIT   TO *OSL* IF SINGLE (CR).                                OIP       440
                                        *                TO *OID* IF SINGLE (BS).                                OIP       441
                                        *                                                                        OIP       442
                                        *         USES   NONE                                                    OIP       443
                                        *                                                                        OIP       444
                                        *         CALLS  DSP, KBI, XLS.                                          OIP       445
                                                                                                                 OIP       446
                                                                                                                 OIP       447
         246         0200 1444           PAN      RJM    CKB         CLEAR KEYBOARD BUFFER                       OIP       448
         250         0200 2305           PAN1     RJM    DSP         DISPLAY P-DISPLAY                           OIP       449
         252         0200 0303                    RJM    DRD         DISPLAY REFRESH DELAY                       OIP       450
         254         0200 1342                    RJM    KBI         READ KEYBOARD                               OIP       451
         256         0471                         ZJN    PAN1        IF STATEMENT INCOMPLETE                     OIP       452
         257         1101                         LMN    1                                                       OIP       453
         260         0506                         NJN    PAN2        IF NOT CONTROL STATEMENT                    OIP       454
         261         2000 0274                    LDC    PSYN        TRANSLATE STATEMENT                         OIP       455
         263         0200 0320                    RJM    XLS                                                     OIP       456
         265         0362                         UJN    PAN1                                                    OIP       457
                                                                                                                 OIP       458
         266         1103                PAN2     LMN    2&1                                                     OIP       459
         267         0503                         NJN    PAN3        IF NOT END OF INFORMATION (SINGLE CR)       OIP       460
         270         0100 0157                    LJM    OSL                                                     OIP       461
         272         0100 0113           PAN3     LJM    OID         GO TO B-DISPLAY (SINGLE BS)                 OIP       462
                                                                                                                 OIP       463
                                        *         PSYN - DEADSTART PANEL SYNTAX TABLE.                           OIP       464
                                                                                                                 OIP       465
         274         0774                PSYN     CON    REC         I=X.                                        OIP       466
         275         1016                         CON    DEK         C=XX.                                       OIP       467
         276         1037                         CON    CMR         D = X.                                      OIP       468
         277         1062                         CON    W12         W12=XXXX.                                   OIP       469
         300         1101                         CON    W14         W14=XXXX.                                   OIP       470
         301         0000                         CON    0           END OF TABLE                                OIP       471
  
  
  
  
                                        **        DRD - DISPLAY REFRESH DELAY                                    OIP       473
                                        *                                                                        OIP       474
                                        *         ENTRY  NONE                                                    OIP       475
                                        *                                                                        OIP       476
                                        *         EXIT   NONE                                                    OIP       477
         302         0100 0302           DRD      SUBR                                                           OIP       478
         304         2001 0000                    LDC    10000                                                   OIP       479
         306         1701                         SBN    1                                                       OIP       480
         307         0576                         NJN    *-1                                                     OIP       481
         310         0371                         UJN    DRDX                                                    OIP       482
1       OIP         CTI OPER. INTERVENTION PROCESSOR - A02            COMPASS 3.7-871.     23/08/13. 15.42.20.      PAGE    12
        STATEMENT PROCESSORS.                                         XLS 
  
                                        **        XLS - TRANSLATE STATEMENT.                                     OIP       485
                                        *                                                                        OIP       486
                                        *         ENTRY  (A) = SYNTAX TABLE ADDRESS.                             OIP       487
                                        *                (KI) = KEYBOARD INDEX.                                  OIP       488
                                        *                (KBUF) = STATEMENT.                                     OIP       489
                                        *                                                                        OIP       490
                                        *         EXIT   (KM) = ZERO IF NO ERROR.                                OIP       491
                                        *                (KM) = ADDR OF ERROR MESSAGE, IF ERROR.                 OIP       492
                                        *                (KI) = ZERO IF NO ERROR.                                OIP       493
                                        *                (KI) = INDEX TO END OF STATEMENT, IF ERROR.             OIP       494
                                        *                                                                        OIP       495
                                        *         USES   T3.                                                     OIP       496
                                        *                                                                        OIP       497
                                        *         CALLS  CKB, CPS.                                               OIP       498
                                                                                                                 OIP       499
                                                                                                                 OIP       500
                                        **        ILL - INVALID ENTRY RETURN FROM STATEMENT PROCESSOR.           OIP       501
                                                                                                                 OIP       502
         311         2000 3007           ILL      LDC    =C*INVALID ENTRY*                                       OIP       503
         313         3416                         STD    KM                                                      OIP       504
         314         0303                         UJN    XLSX                                                    OIP       505
                                                                                                                 OIP       506
                                        **        KBR - NORMAL RETURN FROM STATEMENT PROCESSOR.                  OIP       507
                                                                                                                 OIP       508
         315         0200 1444           KBR      RJM    CKB         CLEAR KEYBOARD BUFFER                       OIP       509
                                                                                                                 OIP       510
         317         0100 0317           XLS      SUBR               ENTRY/EXIT                                  OIP       511
         321         3403                         STD    T3          SYNTAX TABLE ADDRESS                        OIP       512
         322         2000 1460                    LDC    KBUF        KEYBOARD BUFFER ADDRESS                     OIP       513
         324         3417                         STD    KA                                                      OIP       514
         325         3003                         LDD    T3                                                      OIP       515
         326         0200 1230                    RJM    CPS         COMPARE KEYBOARD BUFFER VS SYNTAX TABLE     OIP       516
         330         0460                         ZJN    ILL         IF NO MATCH                                 OIP       517
         331         0103 0001                    LJM    1,T3        GO TO STATEMENT PROCESSOR                   OIP       518
  
  
  
  
                                        **        CM=XXXXXX.                                                     OIP       520
                                        *         SET CENTRAL MEMORY SIZE = XXXXXX/100B WORDS.                   OIP       521
                                                                                                                 OIP       522
                                                                                                                 OIP       523
         333         0315                CMZ      DATA   C*CM=*                                                  OIP       524
         336         2000 0476                    LDC    CMZA        DETERMINE MEMORY SIZE                       OIP       525
         340         0200 0407                    RJM    DMS                                                     OIP       526
         342         1003                         SHN    3                                                       OIP       527
         343         3407                         STD    T7                                                      OIP       528
         344         1063                         SHN    -14                                                     OIP       529
         345         3406                         STD    T6                                                      OIP       530
         346         0200 1160                    RJM    ASD         SPECIFIED SIZE                              OIP       531
         350         3405                         STD    T5                                                      OIP       532
         351         1063                         SHN    -14                                                     OIP       533
         352         3404                         STD    T4                                                      OIP       534
         353         3006                         LDD    T6          VERIFY ACTUAL .GE. SPECIFIED SIZE           OIP       535
         354         3204                         SBD    T4                                                      OIP       536
         355         0503                         NJN    CMZ1        IF UPPER BITS UNLIKE                        OIP       537
         356         3007                         LDD    T7                                                      OIP       538
1       OIP         CTI OPER. INTERVENTION PROCESSOR - A02            COMPASS 3.7-871.     23/08/13. 15.42.20.      PAGE    13
        STATEMENT PROCESSORS.                                         CMZ 
  
         357         3205                         SBD    T5                                                      OIP       539
         360         0606                CMZ1     PJN    CMZ2        IF ACTUAL .GE. SPECIFIED SIZE               OIP       540
         361         2000 3017                    LDC    =C*UNAVAILABLE*                                         OIP       541
         363         3416                         STD    KM                                                      OIP       542
         364         0100 0317                    LJM    XLSX                                                    OIP       543
                                                                                                                 OIP       544
         366         3004                CMZ2     LDD    T4          CHECK MINIMUM VALUE FOR CM                  OIP       545
         367         0510                         NJN    CMZ4        IF SPECIFIED .GT. MIN                       OIP       546
         370         3005                         LDD    T5                                                      OIP       547
         371         0405                         ZJN    CMZ3        IF CM = 0                                   OIP       548
         372         1720                         SBN    20                                                      OIP       549
         373         0603                         PJN    CMZ3        IF SPECIFIED .GE. MIN                       OIP       550
         374         0100 0311                    LJM    ILL                                                     OIP       551
                                                                                                                 OIP       552
         376         3004                CMZ3     LDD    T4                                                      OIP       553
         377         5400 7671           CMZ4     STM    /CPA/CMSZ                                               OIP       554
         401         3005                         LDD    T5                                                      OIP       555
         402         5400 7672                    STM    /CPA/CMSZ+1                                             OIP       556
         404         0100 0315                    LJM    KBR                                                     OIP       557
                                                                                                                 OIP       558
                                   0     RCM$     EQU    0           RESTORE CM TEST WORDS                       OIP       559
         406                                      CTEXT  COMPDMS - DETERMINE MEMORY SIZE.                        COMPDMS     2
                                                                                                                 OIP       561
         476                      50     CMZA     BSS    /COMPDMS/NMS*5                                          OIP       562
  
  
  
  
                                        **        CPUX=ON/OFF.                                                   OIP       564
                                        *         DECLARES LOGICAL STATUS OF EACH AVAILABLE CPU.                 OIP       565
                                                                                                                 OIP       566
                                                                                                                 OIP       567
         546         0320                CPX      DATA   C*CPU*                                                  OIP       568
         551         4017                         LDI    KA          CHECK CHARACTER                             OIP       569
         552         1733                         SBN    33B                                                     OIP       570
         553         3414                         STD    AB+4                                                    OIP       571
         554         0403                         ZJN    CPX4        IF ZERO                                     OIP       572
         555         1701                         SBN    1                                                       OIP       573
         556         0505                         NJN    CPX1        IF NOT ONE                                  OIP       574
         557         3617                CPX4     AOD    KA          ADVANCE CHARACTER                           OIP       575
         560         0200 1320                    RJM    NFF         CHECK FOR *=ON* OR *=OFF*                   OIP       576
         562         0603                         PJN    CPX2        IF LEGAL                                    OIP       577
         563         0100 0311           CPX1     LJM    ILL                                                     OIP       578
                                                                                                                 OIP       579
         565         3401                CPX2     STD    T1          SAVE BIT VALUE                              OIP       580
         566         5000 7673                    LDM    /CPA/OPTN   SAVE CPU STATUS                             OIP       581
         570         3407                         STD    T7                                                      OIP       582
         571         2000 7673                    LDC    /CPA/OPTN   STORE BIT FOR ON/OFF CPU                    OIP       583
         573         0200 1121                    RJM    STB                                                     OIP       584
         575         5000 7673                    LDM    /CPA/OPTN                                               OIP       585
         577         1203                         LPN    3                                                       OIP       586
         600         1103                         LMN    3                                                       OIP       587
         601         0403                         ZJN    CPX3        IF BOTH CPU-S OFF                           OIP       588
         602         0100 0315                    LJM    KBR                                                     OIP       589
                                                                                                                 OIP       590
                                                                                                                 OIP       591
         604         3007                CPX3     LDD    T7          RESTORE CPU STATUS                          OIP       592
1       OIP         CTI OPER. INTERVENTION PROCESSOR - A02            COMPASS 3.7-871.     23/08/13. 15.42.20.      PAGE    14
        STATEMENT PROCESSORS.                                         CPX 
  
         605         5400 7673                    STM    /CPA/OPTN                                               OIP       593
         607         0100 0311                    LJM    ILL                                                     OIP       594
  
  
  
  
                                        **        PPXX=ON/OFF.                                                   OIP       596
                                        *         SETS THE LOGICAL STATUS OF THE SPECIFIED PP.                   OIP       597
                                                                                                                 OIP       598
                                                                                                                 OIP       599
         611         2020                PPX      DATA   C*PP*                                                   OIP       600
         613         0200 1266                    RJM    RNG         GET *XX=ON/OFF* OR *XX-YY=ON/OFF*           OIP       601
         615         3007                         LDD    T7          CHECK RANGE LIMITS                          OIP       602
         616         1712                         SBN    12                                                      OIP       603
         617         0715                         MJN    PPX3        IF NOT INVALID                              OIP       604
         620         1706                         SBN    20-12                                                   OIP       605
         621         0603                         PJN    PPX2        IF NOT INVALID                              OIP       606
         622         0100 0311           PPX1     LJM    ILL                                                     OIP       607
                                                                                                                 OIP       608
         624         1712                PPX2     SBN    32-20                                                   OIP       609
         625         0674                         PJN    PPX1        IF INVALID                                  OIP       610
         626         3006                         LDD    T6                                                      OIP       611
         627         1720                         SBN    20                                                      OIP       612
         630         0771                         MJN    PPX1        IF INVALID                                  OIP       613
         631         1712                         SBN    32-20                                                   OIP       614
         632         0667                         PJN    PPX1        IF INVALID                                  OIP       615
         633         0311                         UJN    PPX4                                                    OIP       616
                                                                                                                 OIP       617
         634         3006                PPX3     LDD    T6                                                      OIP       618
         635         1703                         SBN    3                                                       OIP       619
         636         0763                         MJN    PPX1        IF INVALID                                  OIP       620
         637         1705                         SBN    5                                                       OIP       621
         640         0461                         ZJN    PPX1        IF INVALID                                  OIP       622
         641         3007                         LDD    T7                                                      OIP       623
         642         1710                         SBN    10                                                      OIP       624
         643         0456                         ZJN    PPX1        IF INVALID                                  OIP       625
         644         3006                PPX4     LDD    T6                                                      OIP       626
         645         3414                         STD    AB+4                                                    OIP       627
         646         1710                         SBN    10                                                      OIP       628
         647         0413                         ZJN    PPX7                                                    OIP       629
         650         1710                         SBN    10                                                      OIP       630
         651         0705                         MJN    PPX5        IF 1ST CHASSIS PP                           OIP       631
         652         3414                         STD    AB+4                                                    OIP       632
         653         2000 7677                    LDC    /CPA/LPP1                                               OIP       633
         655         0303                         UJN    PPX6                                                    OIP       634
                                                                                                                 OIP       635
         656         2000 7676           PPX5     LDC    /CPA/LPP0                                               OIP       636
         660         0200 1121           PPX6     RJM    STB         STORE BIT FOR ON/OFF PP                     OIP       637
         662         3606                PPX7     AOD    T6                                                      OIP       638
         663         3207                         SBD    T7                                                      OIP       639
         664         0757                         MJN    PPX4        IF NOT DONE                                 OIP       640
         665         0456                         ZJN    PPX4        IF NOT DONE                                 OIP       641
         666         0100 0315                    LJM    KBR                                                     OIP       642
1       OIP         CTI OPER. INTERVENTION PROCESSOR - A02            COMPASS 3.7-871.     23/08/13. 15.42.20.      PAGE    15
        STATEMENT PROCESSORS.                                         PUN 
  
                                        **        PPUXX=ON/OFF.                                                  OIP       644
                                        *         SETS THE LOGICAL STATUS OF THE SPECIFIED PPU.                  OIP       645
                                                                                                                 OIP       646
                                                                                                                 OIP       647
         670         2020                PUN      DATA   C*PPU*                                                  OIP       648
         673         0200 1266                    RJM    RNG         GET *XX=ON/OFF OR *XX-YY=ON/OFF*            OIP       649
         675         3006                         LDD    T6          CHECK LIMITS                                OIP       650
         676         1702                         SBN    2                                                       OIP       651
         677         0603                         PJN    PUN2        IF LOWER LIMIT VALID                        OIP       652
         700         0100 0311           PUN1     LJM    ILL                                                     OIP       653
                                                                                                                 OIP       654
         702         3007                PUN2     LDD    T7                                                      OIP       655
         703         1716                         SBN    16                                                      OIP       656
         704         0673                         PJN    PUN1        IF UPPER LIMIT INVALID                      OIP       657
         705         3006                PUN3     LDD    T6                                                      OIP       658
         706         1701                         SBN    1                                                       OIP       659
         707         3414                         STD    AB+4                                                    OIP       660
         710         1714                         SBN    14                                                      OIP       661
         711         0705                         MJN    PUN4        IF BIT IS IN *LPPU+1*                       OIP       662
         712         3414                         STD    AB+4                                                    OIP       663
         713         2000 7702                    LDC    /CPA/LPPU                                               OIP       664
         715         0303                         UJN    PUN5                                                    OIP       665
                                                                                                                 OIP       666
         716         2000 7703           PUN4     LDC    /CPA/LPPU+1                                             OIP       667
         720         0200 1121           PUN5     RJM    STB         STORE BIT FOR ON/OFF PPU                    OIP       668
         722         3606                         AOD    T6                                                      OIP       669
         723         3207                         SBD    T7                                                      OIP       670
         724         0760                         MJN    PUN3        IF NOT DONE                                 OIP       671
         725         0457                         ZJN    PUN3        IF NOT DONE                                 OIP       672
         726         0100 0315                    LJM    KBR                                                     OIP       673
  
  
  
  
                                        **        CEJ/MEJ=ON/OFF.                                                OIP       675
                                        *         SETS LOGICAL STATUS OF CEJ/MEJ.                                OIP       676
                                                                                                                 OIP       677
                                                                                                                 OIP       678
         730         0305                CEJ      DATA   C*CEJ/MEJ*                                              OIP       679
         735         0200 1320                    RJM    NFF         CHECK FOR *=ON* OR *=OFF*                   OIP       680
         737         0603                         PJN    CEJ1        IF LEGAL                                    OIP       681
         740         0100 0311                    LJM    ILL                                                     OIP       682
                                                                                                                 OIP       683
         742         3401                CEJ1     STD    T1          SAVE BIT VALUE                              OIP       684
         743         1402                         LDN    2           SET BIT NUMBER TO STORE                     OIP       685
         744         3414                         STD    AB+4                                                    OIP       686
         745         2000 7673                    LDC    /CPA/OPTN   STORE BIT FOR ON/OFF CEJ/MEJ                OIP       687
         747         0200 1121                    RJM    STB                                                     OIP       688
         751         0100 0315                    LJM    KBR                                                     OIP       689
1       OIP         CTI OPER. INTERVENTION PROCESSOR - A02            COMPASS 3.7-871.     23/08/13. 15.42.20.      PAGE    16
        STATEMENT PROCESSORS.                                         CMU 
  
                                        **        CMU=ON/OFF                                                     OIP       691
                                        *         SETS LOGICAL STATUS OF CMU.                                    OIP       692
                                                                                                                 OIP       693
                                                                                                                 OIP       694
         753         0315                CMU      DATA   C*CMU*                                                  OIP       695
         756         0200 1320                    RJM    NFF         CHECK FOR *=ON* OR *=OFF*                   OIP       696
         760         0603                         PJN    CMU1        IF LEGAL                                    OIP       697
         761         0100 0311                    LJM    ILL                                                     OIP       698
                                                                                                                 OIP       699
         763         3401                CMU1     STD    T1          SAVE BIT VALUE                              OIP       700
         764         1403                         LDN    3           SET BIT NUMBER TO STORE                     OIP       701
         765         3414                         STD    AB+4                                                    OIP       702
         766         2000 7673                    LDC    /CPA/OPTN   STORE BIT FOR ON/OFF CMU                    OIP       703
         770         0200 1121                    RJM    STB                                                     OIP       704
         772         0100 0315                    LJM    KBR                                                     OIP       705
  
  
  
  
                                        **        I=X.                                                           OIP       707
                                        *         SET INITIALIZATION/RECOVERY LEVEL.                             OIP       708
                                                                                                                 OIP       709
                                                                                                                 OIP       710
         774         1154                REC      DATA   C*I=*                                                   OIP       711
         776         0200 1160                    RJM    ASD         ASSEMBLE DIGITS                             OIP       712
        1000         1710                         SBN    10                                                      OIP       713
        1001         0703                         MJN    REC1        IF LEGAL                                    OIP       714
        1002         0100 0311                    LJM    ILL                                                     OIP       715
                                                                                                                 OIP       716
        1004         5000 7712           REC1     LDM    /CPA/DSPNLZ+13  CHANGE DEAD START PANEL                 OIP       717
        1006         1011                         SHN    9D                                                      OIP       718
        1007         1307                         SCN    7                                                       OIP       719
        1010         3314                         LMD    AB+4                                                    OIP       720
        1011         1011                         SHN    9D                                                      OIP       721
        1012         5400 7712                    STM    /CPA/DSPNLZ+13                                          OIP       722
        1014         0100 0315                    LJM    KBR                                                     OIP       723
  
  
  
  
                                        **        C=XX.                                                          OIP       725
                                        *         SET CMR DECK NUMBER.                                           OIP       726
                                                                                                                 OIP       727
                                                                                                                 OIP       728
        1016         0354                DEK      DATA   C*C=*                                                   OIP       729
        1020         0200 1160                    RJM    ASD         ASSEMBLE DIGITS                             OIP       730
        1022         2177 7677                    ADC    -100                                                    OIP       731
        1024         0703                         MJN    DEK1        IF LEGAL                                    OIP       732
        1025         0100 0311                    LJM    ILL                                                     OIP       733
                                                                                                                 OIP       734
        1027         5000 7712           DEK1     LDM    /CPA/DSPNLZ+13                                          OIP       735
        1031         1377                         SCN    77                                                      OIP       736
        1032         3314                         LMD    AB+4                                                    OIP       737
        1033         5400 7712                    STM    /CPA/DSPNLZ+13                                          OIP       738
        1035         0100 0315                    LJM    KBR                                                     OIP       739
1       OIP         CTI OPER. INTERVENTION PROCESSOR - A02            COMPASS 3.7-871.     23/08/13. 15.42.20.      PAGE    17
        STATEMENT PROCESSORS.                                         CMR 
  
                                        **        D=X.                                                           OIP       741
                                        *         SET DISPLAY CMRDECK PARAMETER                                  OIP       742
                                                                                                                 OIP       743
        1037         0454                CMR      DATA   C*D=*                                                   OIP       744
        1041         4017                         LDI    KA                                                      OIP       745
        1042         1716                         SBN    1RN                                                     OIP       746
        1043         0406                         ZJN    CMR2        IF  D=N                                     OIP       747
        1044         1713                         SBN    1RY-1RN                                                 OIP       748
        1045         0403                         ZJN    CMR1        IF  D=Y                                     OIP       749
        1046         0100 0311                    LJM    ILL                                                     OIP       750
                                                                                                                 OIP       751
        1050         1401                CMR1     LDN    1                                                       OIP       752
        1051         3401                CMR2     STD    T1                                                      OIP       753
        1052         1406                         LDN    6                                                       OIP       754
        1053         3414                         STD    AB+4                                                    OIP       755
        1054         2000 7712                    LDC    /CPA/DSPNLZ+13                                          OIP       756
        1056         0200 1121                    RJM    STB         SET BIT VALUE                               OIP       757
        1060         0100 0315                    LJM    KBR                                                     OIP       758
  
  
  
  
                                        **        W12=XXXX.                                                      OIP       760
                                        *         SET DEADSTART PANEL WORD 12.                                   OIP       761
                                                                                                                 OIP       762
                                                                                                                 OIP       763
        1062         2734                W12      DATA   C*W12=*                                                 OIP       764
        1065         0200 1160                    RJM    ASD         ASSEMBLE DIGITS                             OIP       765
        1067         2176 7777                    ADC    -10000B                                                 DIMA292     1
        1071         0703                         MJN    W12A                                                    DIMA292     2
        1072         0100 0311                    LJM    ILL                                                     DIMA292     3
        1074         3014                W12A     LDD    AB+4                                                    DIMA292     4
        1075         5400 7711                    STM    /CPA/DSPNLZ+12                                          OIP       766
        1077         0100 0315                    LJM    KBR                                                     OIP       767
  
  
  
  
                                        **        W14=XXXX.                                                      OIP       769
                                        *         SET DEADSTART PANEL WORD 14.                                   OIP       770
                                                                                                                 OIP       771
                                                                                                                 OIP       772
        1101         2734                W14      DATA   C*W14=*                                                 OIP       773
        1104         0200 1160                    RJM    ASD         ASSEMBLE DIGITS                             OIP       774
        1106         2176 7777                    ADC    -10000B                                                 DIMA292     5
        1110         0703                         MJN    W14A                                                    DIMA292     6
        1111         0100 0311                    LJM    ILL                                                     DIMA292     7
        1113         3014                W14A     LDD    AB+4                                                    DIMA292     8
        1114         5400 7713                    STM    /CPA/DSPNLZ+14                                          OIP       775
        1116         0100 0315                    LJM    KBR                                                     OIP       776
1       OIP         CTI OPER. INTERVENTION PROCESSOR - A02            COMPASS 3.7-871.     23/08/13. 15.42.20.      PAGE    18
        STATEMENT PROCESSORS.                                         STB 
  
                                        **        STB - STORE BIT IN HARDWARE DESCRIPTOR TABLE.                  OIP       778
                                        *                                                                        OIP       779
                                        *         ENTRY  (A) = ADDRESS OF HDT WORD.                              OIP       780
                                        *                (T1) = BIT VALUE.                                       OIP       781
                                        *                (AB+4) = BIT OFFSET IN HDT WORD.                        OIP       782
                                        *                                                                        OIP       783
                                        *         EXIT   NONE.                                                   OIP       784
                                        *                                                                        OIP       785
                                        *         USES   T2, T3.                                                 OIP       786
                                        *                                                                        OIP       787
                                        *         CALLS  NONE.                                                   OIP       788
                                                                                                                 OIP       789
                                                                                                                 OIP       790
        1120         0100 1120           STB      SUBR               ENTRY/EXIT                                  OIP       791
        1122         3402                         STD    T2                                                      OIP       792
        1123         3014                         LDD    AB+4        BIT NUMBER                                  OIP       793
        1124         1217                         LPN    17                                                      OIP       794
        1125         2100 1000                    ADC    SHNI                                                    OIP       795
        1127         5400 1134                    STM    STBA                                                    OIP       796
        1131         5400 1143                    STM    STBB                                                    OIP       797
        1133         1401                         LDN    1           BUILD EXTRACTION MASK                       OIP       798
        1134         1000                STBA     SHN    0                                                       OIP       799
        1135         2300 7777                    LMC    7777                                                    OIP       800
        1137         5400 1147                    STM    STBC                                                    OIP       801
        1141         3001                         LDD    T1          VALUE OF BIT TO STORE                       OIP       802
        1142         1201                         LPN    1                                                       OIP       803
        1143         1000                STBB     SHN    0                                                       OIP       804
        1144         3403                         STD    T3                                                      OIP       805
        1145         4002                         LDI    T2          EXTRACT ALL EXCEPT BIT TO STORE             OIP       806
        1146         2200 0000                    LPC    0                                                       OIP       807
                                1147     STBC     EQU    *-1                                                     OIP       808
        1150         3303                         LMD    T3          INSERT BIT                                  OIP       809
        1151         4402                         STI    T2                                                      OIP       810
        1152         0345                         UJN    STBX        RETURN                                      OIP       811
  
  
  
  
                                        **        ASD - ASSEMBLE DIGITS.                                         OIP       813
                                        *                                                                        OIP       814
                                        *         ENTRY  (KA) = ADDRESS OF CHARACTER STRING.                     OIP       815
                                        *                                                                        OIP       816
                                        *         EXIT   (A) = LOWER ASSEMBLY (16 BITS).                         OIP       817
                                        *                (AB - AB+4) = ASSEMBLED DIGITS.                         OIP       818
                                        *                TO *ILL* IF NO (CR).                                    OIP       819
                                        *                                                                        OIP       820
                                        *         USES   NONE.                                                   OIP       821
                                        *                                                                        OIP       822
                                        *         CALLS  CDR.                                                    OIP       823
                                                                                                                 OIP       824
                                                                                                                 OIP       825
        1153         3013                ASD1     LDD    AB+3        RETURN WITH LOWER ASSEMBLY                  OIP       826
        1154         1237                         LPN    37                                                      OIP       827
        1155         1014                         SHN    14                                                      OIP       828
        1156         3314                         LMD    AB+4                                                    OIP       829
                                                                                                                 OIP       830
        1157         0100 1157           ASD      SUBR               ENTRY/EXIT                                  OIP       831
1       OIP         CTI OPER. INTERVENTION PROCESSOR - A02            COMPASS 3.7-871.     23/08/13. 15.42.20.      PAGE    19
        STATEMENT PROCESSORS.                                         ASD 
  
        1161         0200 1174                    RJM    CDR         CONVERT DIGITS RIGHT ADJUSTED               OIP       832
        1163         0467                         ZJN    ASD1        IF (CR)                                     OIP       833
        1164         1157                         LMN    1R.                                                     OIP       834
        1165         0465                         ZJN    ASD1        IF *.*                                      OIP       835
        1166         0100 0311                    LJM    ILL         INVALID ENTRY                               OIP       836
  
  
  
  
                                        **        CDR - CONVERT DIGITS RIGHT ADJUSTED.                           OIP       838
                                        *                                                                        OIP       839
                                        *         ENTRY  (KA) = ADDRESS OF CHARACTER STRING.                     OIP       840
                                        *                                                                        OIP       841
                                        *         EXIT   (A) = SEPARATOR CHARACTER.                              OIP       842
                                        *                (AB - AB+4) = ASSEMBLY.                                 OIP       843
                                        *                                                                        OIP       844
                                        *         USES   T1, T2.                                                 OIP       845
                                        *                                                                        OIP       846
                                        *         CALLS  NONE.                                                   OIP       847
                                                                                                                 OIP       848
        1170         1712                CDR4     SBN    1R -1R8                                                 OIP       849
        1171         0434                         ZJN    CDR3        IF SPACE                                    OIP       850
        1172         4017                CDR5     LDI    KA          RETURN WITH CHARACTER                       OIP       851
                                                                                                                 OIP       852
        1173         0100 1173           CDR      SUBR               ENTRY/EXIT                                  OIP       853
        1175         1400                         LDN    0           CLEAR ASSEMBLY AREA                         OIP       854
        1176         3410                         STD    AB                                                      OIP       855
        1177         3411                         STD    AB+1                                                    OIP       856
        1200         3412                         STD    AB+2                                                    OIP       857
        1201         3413                         STD    AB+3                                                    OIP       858
        1202         3414                         STD    AB+4                                                    OIP       859
        1203         4017                CDR1     LDI    KA          CHECK CHARACTER                             OIP       860
        1204         1733                         SBN    1R0                                                     OIP       861
        1205         0764                         MJN    CDR5        IF ALPHA                                    OIP       862
        1206         1710                         SBN    1R8-1R0                                                 OIP       863
        1207         0660                         PJN    CDR4        IF NOT OCTAL DIGIT                          OIP       864
        1210         1610                         ADN    10          STORE DIGIT                                 OIP       865
        1211         3401                         STD    T1                                                      OIP       866
        1212         1414                         LDN    AB+4        SET BYTE ADDRESS                            OIP       867
        1213         3402                         STD    T2                                                      OIP       868
        1214         4002                CDR2     LDI    T2          LOAD BYTE                                   OIP       869
        1215         1003                         SHN    3                                                       OIP       870
        1216         3301                         LMD    T1          ADD NEW DIGIT                               OIP       871
        1217         4402                         STI    T2          STORE                                       OIP       872
        1220         1063                         SHN    -14         SAVE OVERFLOW                               OIP       873
        1221         3401                         STD    T1                                                      OIP       874
        1222         3702                         SOD    T2          ADVANCE BYTE ADDRESS                        OIP       875
        1223         1107                         LMN    AB-1                                                    OIP       876
        1224         0567                         NJN    CDR2        LOOP                                        OIP       877
        1225         3617                CDR3     AOD    KA          ADVANCE CHARACTER                           OIP       878
        1226         0354                         UJN    CDR1        LOOP                                        OIP       879
1       OIP         CTI OPER. INTERVENTION PROCESSOR - A02            COMPASS 3.7-871.     23/08/13. 15.42.20.      PAGE    20
        STATEMENT PROCESSORS.                                         CPS 
  
                                        **        CPS - COMPARE STRING.                                          OIP       881
                                        *                                                                        OIP       882
                                        *         ENTRY  (A) = SYNTAX TABLE ADDRESS.                             OIP       883
                                        *                (KA) = CHARACTER ADDRESS IN KEYBOARD BUFFER.            OIP       884
                                        *                                                                        OIP       885
                                        *         EXIT   (A) = SYNTAX TABLE ORDINAL IF MATCH.                    OIP       886
                                        *                      0 IF NO MATCH.                                    OIP       887
                                        *                (KA) = LWA+1 OF KEYBOARD STRING, IF MATCH.              OIP       888
                                        *                (T3) = LWA+1 OF SYNTAX STRING.                          OIP       889
                                        *                                                                        OIP       890
                                        *         USES   T1, T2, T3, T4.                                         OIP       891
                                        *                                                                        OIP       892
                                        *         CALLS  NONE.                                                   OIP       893
                                                                                                                 OIP       894
                                                                                                                 OIP       895
        1227         0100 1227           CPS      SUBR               ENTRY/EXIT                                  OIP       896
        1231         1701                         SBN    1           SET CURRENT POSITION IN SYNTAX TABLE        OIP       897
        1232         3401                         STD    T1                                                      OIP       898
        1233         3402                         STD    T2          SET 1ST POSITION - 1 IN SYNTAX TABLE        OIP       899
        1234         3601                CPS1     AOD    T1          TRY NEXT SYNTAX TABLE ENTRY                 OIP       900
        1235         4001                         LDI    T1                                                      OIP       901
        1236         0470                         ZJN    CPSX        IF END OF TABLE, RETURN (A) = 0             OIP       902
        1237         3403                         STD    T3          ADDR OF SYNTAX TABLE STRING                 OIP       903
        1240         3017                         LDD    KA          ADDR OF KEYBOARD BUFFER STRING              OIP       904
        1241         3404                         STD    T4                                                      OIP       905
        1242         4003                CPS2     LDI    T3          COMPARE UPPER                               OIP       906
        1243         1071                         SHN    -6                                                      OIP       907
        1244         0414                         ZJN    CPS3        IF COMPARE COMPLETE                         OIP       908
        1245         4304                         LMI    T4                                                      OIP       909
        1246         0565                         NJN    CPS1        IF NO MATCH                                 OIP       910
        1247         3604                         AOD    T4                                                      OIP       911
        1250         4003                         LDI    T3                                                      OIP       912
        1251         1277                         LPN    77                                                      OIP       913
        1252         0406                         ZJN    CPS3        IF COMPARE COMPLETE                         OIP       914
        1253         4304                         LMI    T4                                                      OIP       915
        1254         0557                         NJN    CPS1        IF NO MATCH                                 OIP       916
        1255         3604                         AOD    T4                                                      OIP       917
        1256         3603                         AOD    T3                                                      OIP       918
        1257         0362                         UJN    CPS2                                                    OIP       919
                                                                                                                 OIP       920
        1260         3004                CPS3     LDD    T4          ADVANCE KEYBOARD BUFFER POINTER             OIP       921
        1261         3417                         STD    KA                                                      OIP       922
        1262         3001                         LDD    T1          COMPUTE SYNTAX TABLE ORDINAL                OIP       923
        1263         3202                         SBD    T2                                                      OIP       924
        1264         0342                         UJN    CPSX        RETURN                                      OIP       925
1       OIP         CTI OPER. INTERVENTION PROCESSOR - A02            COMPASS 3.7-871.     23/08/13. 15.42.20.      PAGE    21
        STATEMENT PROCESSORS.                                         RNG 
  
                                        **        RNG - GET RANGE VALUES.                                        OIP       927
                                        *                HANDLES *N* AND *N-M* FOR PPN, PPN-M,                   OIP       928
                                        *                PPUN, AND PPUN-M STATEMENTS.                            OIP       929
                                        *                                                                        OIP       930
                                        *         ENTRY  (KA) = KEYBOARD BUFFER POINTER.                         OIP       931
                                        *                                                                        OIP       932
                                        *         EXIT   (T1) = 1 IF *OFF*.                                      OIP       933
                                        *                     = 0 IF *ON*.                                       OIP       934
                                        *                (T6) = LOWER LIMIT.                                     OIP       935
                                        *                (T7) = UPPER LIMIT.                                     OIP       936
                                        *                TO *ILL* IF ERROR.                                      OIP       937
                                        *                                                                        OIP       938
                                        *         USES   NONE.                                                   OIP       939
                                        *                                                                        OIP       940
                                        *         CALLS  CDR, NFF.                                               OIP       941
                                                                                                                 OIP       942
                                                                                                                 OIP       943
        1265         0100 1265           RNG      SUBR               ENTRY/EXIT                                  OIP       944
        1267         0200 1174                    RJM    CDR         ASSEMBLE DIGITS                             OIP       945
        1271         3014                         LDD    AB+4                                                    OIP       946
        1272         3406                         STD    T6          LOWER LIMIT                                 OIP       947
        1273         3407                         STD    T7          UPPER LIMIT                                 OIP       948
        1274         4017                         LDI    KA                                                      OIP       949
        1275         1146                         LMN    1R-                                                     OIP       950
        1276         0506                         NJN    RNG1        IF NOT EXPRESSED AS RANGE OF VALUES         OIP       951
        1277         3617                         AOD    KA          BYPASS *-*                                  OIP       952
        1300         0200 1174                    RJM    CDR         ASSEMBLE DIGITS                             OIP       953
        1302         3014                         LDD    AB+4                                                    OIP       954
        1303         3407                         STD    T7          UPPER LIMIT                                 OIP       955
        1304         0200 1320           RNG1     RJM    NFF         CHECK FOR *=ON* OR *=OFF*                   OIP       956
        1306         0603                         PJN    RNG3        IF VALID SYNTAX                             OIP       957
        1307         0100 0311           RNG2     LJM    ILL                                                     OIP       958
                                                                                                                 OIP       959
        1311         3401                RNG3     STD    T1          SAVE BIT VALUE (1=*OFF*)                    OIP       960
        1312         3007                         LDD    T7          CHECK UPPER LIMIT .GE. LOWER LIMIT          OIP       961
        1313         3206                         SBD    T6                                                      OIP       962
        1314         0650                         PJN    RNGX        IF VALID RANGE                              OIP       963
        1315         0371                         UJN    RNG2                                                    OIP       964
  
  
  
  
                                        **        NFF - CHECK FOR *=ON* OR *=OFF*.                               OIP       966
                                        *                                                                        OIP       967
                                        *         ENTRY  (KA) = ADDRESS OF STRING.                               OIP       968
                                        *                                                                        OIP       969
                                        *         EXIT   (A) = 1 IF *=OFF*.                                      OIP       970
                                        *                (A) = 0 IF *=ON*.                                       OIP       971
                                        *                (A) = - IF NEITHER.                                     OIP       972
                                        *                                                                        OIP       973
                                        *         USES   T1.                                                     OIP       974
                                        *                                                                        OIP       975
                                        *         CALLS  CPS.                                                    OIP       976
                                                                                                                 OIP       977
                                                                                                                 OIP       978
        1316         3001                NFF2     LDD    T1          RETURN (A) = 0 FOR *ON*, (A) = 1 FOR *OFF*  OIP       979
                                                                                                                 OIP       980
1       OIP         CTI OPER. INTERVENTION PROCESSOR - A02            COMPASS 3.7-871.     23/08/13. 15.42.20.      PAGE    22
        STATEMENT PROCESSORS.                                         NFF 
  
        1317         0100 1317           NFF      SUBR               ENTRY/EXIT                                  OIP       981
        1321         2000 1336                    LDC    NFFA        LOOK FOR *ON* OR *OFF*                      OIP       982
        1323         0200 1230                    RJM    CPS                                                     OIP       983
        1325         0407                         ZJN    NFF1        IF NO MATCH                                 OIP       984
        1326         1701                         SBN    1           SET RETURN PARAMETER                        OIP       985
        1327         3401                         STD    T1                                                      OIP       986
        1330         4017                         LDI    KA          VERIFY (CR) OR *.*                          OIP       987
        1331         0464                         ZJN    NFF2        IF (CR)                                     OIP       988
        1332         1157                         LMN    1R.                                                     OIP       989
        1333         0462                         ZJN    NFF2        IF *.*                                      OIP       990
                                                                                                                 OIP       991
        1334         1501                NFF1     LCN    1           RETURN (A) = -1 FOR MISMATCH                OIP       992
        1335         0361                         UJN    NFFX                                                    OIP       993
                                                                                                                 OIP       994
        1336         3026                NFFA     CON    =C*=ON*     1                                           OIP       995
        1337         3031                         CON    =C*=OFF*    2                                           OIP       996
        1340         0000                         CON    0           END OF TABLE                                OIP       997
1       OIP         CTI OPER. INTERVENTION PROCESSOR - A02            COMPASS 3.7-871.     23/08/13. 15.42.20.      PAGE    23
        KEYBOARD INPUT ROUTINES.                                      KBI 
  
                                        **        KBI - KEYBOARD INPUT.                                          OIP      1000
                                        *         KBI READS A CHARACTER FROM THE KEYBOARD, AND INTERPRETS        OIP      1001
                                        *         CONTROL CHARACTERS AS FOLLOWS -                                OIP      1002
                                        *                                                                        OIP      1003
                                        *                (CR) PRECEDED BY OTHER CHARACTERS INDICATES END OF      OIP      1004
                                        *                     STATEMENT.                                         OIP      1005
                                        *                                                                        OIP      1006
                                        *                (CR) NOT PRECEDED BY OTHER CHARACTERS INDICATES END     OIP      1007
                                        *                     OF INFORMATION.                                    OIP      1008
                                        *                                                                        OIP      1009
                                        *                (BS) PRECEDED BY OTHER CHARACTERS INDICATES DELETE      OIP      1010
                                        *                     THE PRECEDING CHARACTER.                           OIP      1011
                                        *                                                                        OIP      1012
                                        *                (BS) NOT PRECEDED BY OTHER CHARACTERS INDICATES END     OIP      1013
                                        *                     OF INFORMATION AND RETURN TO PREVIOUS STEP IN      OIP      1014
                                        *                     THE PROCESS.                                       OIP      1015
                                        *                                                                        OIP      1016
                                        *                (LEFT BLANK) INDICATES DELETE THE ENTIRE STATEMENT.     OIP      1017
                                        *                                                                        OIP      1018
                                        *         ENTRY  (KBIA) = PREVIOUS CHARACTER.                            OIP      1019
                                        *                (KI) = INDEX INTO KEYBOARD BUFFER.                      OIP      1020
                                        *                (KBUF) = KEYBOARD BUFFER                                OIP      1021
                                        *                                                                        OIP      1022
                                        *         EXIT   (A) = 0 IF NORMAL CHARACTER OR NO DATA.                 OIP      1023
                                        *                (A) = 1 IF END OF STATEMENT (CR).                       OIP      1024
                                        *                (A) = 2 IF END OF INFORMATION (CR ONLY).                OIP      1025
                                        *                (A) = 3 IF RETURN TO PREVIOUS STEP (BS ONLY)            OIP      1026
                                        *                                                                        OIP      1027
                                        *         USES   T1.                                                     OIP      1028
                                        *                                                                        OIP      1029
                                        *         CALLS  KEY, CKB.                                               OIP      1030
                                                                                                                 OIP      1031
                                                                                                                 OIP      1032
        1341         0100 1341           KBI      SUBR               ENTRY/EXIT                                  OIP      1033
        1343         0200 1430                    RJM    KEY         INPUT CHARACTER                             OIP      1034
        1345         0406                         ZJN    KBI1        IF NO INPUT                                 OIP      1035
        1346         2300 0060                    LMC    60          (PRESET CR)                                 OIP      1036
                                1347     KBIA     EQU    *-1                                                     OIP      1037
        1350         0470                         ZJN    KBIX        IF SAME INPUT, RETURN A = 0                 OIP      1038
        1351         5300 1347                    LMM    KBIA                                                    OIP      1039
        1353         5400 1347           KBI1     STM    KBIA        SAVE CHARACTER                              OIP      1040
        1355         3401                         STD    T1                                                      OIP      1041
        1356         0462                         ZJN    KBIX        IF NO INPUT, RETURN A = 0                   OIP      1042
        1357         1160                         LMN    60                                                      OIP      1043
        1360         0507                         NJN    KBI4        IF NOT (CR)                                 OIP      1044
        1361         3015                         LDD    KI                                                      OIP      1045
        1362         0403                         ZJN    KBI2        IF END OF INFORMATION                       OIP      1046
        1363         1401                         LDN    1                                                       OIP      1047
        1364         0354                         UJN    KBIX        RETURN A = 1                                OIP      1048
                                                                                                                 OIP      1049
        1365         1402                KBI2     LDN    2                                                       OIP      1050
        1366         0352                KBI3     UJN    KBIX        RETURN A = 2                                OIP      1051
                                                                                                                 OIP      1052
        1367         1101                KBI4     LMN    61&60                                                   OIP      1053
        1370         0513                         NJN    KBI6        IF NOT (BS)                                 OIP      1054
        1371         3015                         LDD    KI                                                      OIP      1055
        1372         0503                         NJN    KBI5        IF NOT ((BS) AND 1ST CHAR)                  OIP      1056
1       OIP         CTI OPER. INTERVENTION PROCESSOR - A02            COMPASS 3.7-871.     23/08/13. 15.42.20.      PAGE    24
        KEYBOARD INPUT ROUTINES.                                      KBI 
  
        1373         1403                         LDN    3                                                       OIP      1057
        1374         0344                         UJN    KBIX        RETURN A = 3                                OIP      1058
                                                                                                                 OIP      1059
        1375         3715                KBI5     SOD    KI          DO BACKSPACE                                OIP      1060
        1376         1400                         LDN    0           ERASE CHARACTER                             OIP      1061
        1377         5415 1460                    STM    KBUF,KI                                                 OIP      1062
        1401         3416                         STD    KM          CLEAR KEYBOARD ERROR MESSAGE                OIP      1063
        1402         0363                         UJN    KBI3        RETURN A = 0                                OIP      1064
                                                                                                                 OIP      1065
        1403         1132                KBI6     LMN    53&61                                                   OIP      1066
        1404         0505                         NJN    KBI7        IF NOT (LEFT BLANK)                         OIP      1067
        1405         0200 1444                    RJM    CKB         CLEAR KEYBOARD BUFFER                       OIP      1068
        1407         1400                         LDN    0                                                       OIP      1069
        1410         0355                         UJN    KBI3        RETURN A = 0                                OIP      1070
                                                                                                                 OIP      1071
        1411         1131                KBI7     LMN    62&53                                                   OIP      1072
        1412         0503                         NJN    KBI8        IF NOT *SPACE*                              OIP      1073
        1413         1455                         LDN    1R          SUBSTITUTE * *                              OIP      1074
        1414         3401                         STD    T1                                                      OIP      1075
        1415         3015                KBI8     LDD    KI                                                      OIP      1076
        1416         1136                         LMN    KBUFL                                                   OIP      1077
        1417         0406                         ZJN    KBI9        IF KEYBOARD BUFFER FULL                     OIP      1078
        1420         3001                         LDD    T1          PUT CHARACTER IN KEYBOARD BUFFER            OIP      1079
        1421         5415 1460                    STM    KBUF,KI                                                 OIP      1080
        1423         3615                         AOD    KI          INCREMENT KEYBOARD INDEX                    OIP      1081
        1424         1400                         LDN    0                                                       OIP      1082
        1425         0100 1341           KBI9     LJM    KBIX        RETURN A = 0                                OIP      1083
  
  
  
  
                                        **        KEY - READ KEYBOARD CHARACTER.                                 OIP      1085
                                        *                                                                        OIP      1086
                                        *         ENTRY  NONE.                                                   OIP      1087
                                        *                                                                        OIP      1088
                                        *         EXIT   (A) = KEYBOARD CHARACTER.                               OIP      1089
                                        *                                                                        OIP      1090
                                        *         USES   NONE.                                                   OIP      1091
                                        *                                                                        OIP      1092
                                        *         CALLS  NONE.                                                   OIP      1093
                                                                                                                 OIP      1094
                                                                                                                 OIP      1095
        1427         0100 1427           KEY      SUBR               ENTRY/EXIT                                  OIP      1096
        1431         2000 0200                    LDC    200         DELAY                                       OIP      1097
        1433         1701                         SBN    1                                                       OIP      1098
        1434         0576                         NJN    *-1                                                     OIP      1099
        1435         7710 7020                    FNC    7020,CH     SELECT KEYBOARD INPUT                       OIP      1100
        1437         7410                         ACN    CH                                                      OIP      1101
        1440         7010                         IAN    CH          INPUT CHARACTER                             OIP      1102
        1441         7510                         DCN    CH                                                      OIP      1103
        1442         0364                         UJN    KEYX        RETURN                                      OIP      1104
1       OIP         CTI OPER. INTERVENTION PROCESSOR - A02            COMPASS 3.7-871.     23/08/13. 15.42.20.      PAGE    25
        KEYBOARD INPUT ROUTINES.                                      CKB 
  
                                        **        CKB - CLEAR KEYBOARD BUFFER.                                   OIP      1106
                                        *                                                                        OIP      1107
                                        *         ENTRY  NONE.                                                   OIP      1108
                                        *                                                                        OIP      1109
                                        *         EXIT   (KBUF) = 0.                                             OIP      1110
                                        *                (KI) = 0.                                               OIP      1111
                                        *                (KM) = 0.                                               OIP      1112
                                        *                                                                        OIP      1113
                                        *         USES   NONE.                                                   OIP      1114
                                        *                                                                        OIP      1115
                                        *         CALLS  NONE.                                                   OIP      1116
                                                                                                                 OIP      1117
                                                                                                                 OIP      1118
        1443         0100 1443           CKB      SUBR               ENTRY/EXIT                                  OIP      1119
        1445         1400                         LDN    0                                                       OIP      1120
        1446         3415                         STD    KI                                                      OIP      1121
        1447         1400                CKB1     LDN    0           CLEAR KEYBOARD BUFFER                       OIP      1122
        1450         5415 1460                    STM    KBUF,KI                                                 OIP      1123
        1452         3615                         AOD    KI                                                      OIP      1124
        1453         1136                         LMN    KBUFL                                                   OIP      1125
        1454         0572                         NJN    CKB1                                                    OIP      1126
        1455         3415                         STD    KI          CLEAR KEYBOARD BUFFER INDEX                 OIP      1127
        1456         3416                         STD    KM          CLEAR ERROR MESSAGE                         OIP      1128
        1457         0363                         UJN    CKBX        RETURN                                      OIP      1129
                                                                                                                 OIP      1130
                                        **        KBUF - KEYBOARD BUFFER.                                        OIP      1131
                                                                                                                 OIP      1132
        1460                      36     KBUF     BSS    30D                                                     OIP      1133
                                  36     KBUFL    EQU    *-KBUF                                                  OIP      1134
        1516         0000                         CON    0           INSURE END OF LINE                          OIP      1135
1       OIP         CTI OPER. INTERVENTION PROCESSOR - A02            COMPASS 3.7-871.     23/08/13. 15.42.20.      PAGE    26
        DISPLAY ROUTINES.                                             DSB 
  
                                        **        DSB - DISPLAY B-DISPLAY.                                       OIP      1138
                                        *                                                                        OIP      1139
                                        *         ENTRY  NONE.                                                   OIP      1140
                                        *                                                                        OIP      1141
                                        *         EXIT   NONE.                                                   OIP      1142
                                        *                                                                        OIP      1143
                                        *         USES   NONE.                                                   OIP      1144
                                        *                                                                        OIP      1145
                                        *         CALLS  DFN, DEM.                                               OIP      1146
                                                                                                                 OIP      1147
                                                                                                                 OIP      1148
        1517         0100 1517           DSB      SUBR               ENTRY/EXIT                                  OIP      1149
        1521         0200 2644                    RJM    DFN         FUNCTION DISPLAY                            OIP      1150
        1523         2000 0127                    LDC    DSBAL       DISPLAY OPTIONS                             OIP      1151
        1525         7350 1533                    OAM    DSBA,CH+40                                              OIP      1152
        1527         0200 2577                    RJM    DEM         DISPLAY ERROR MESSAGE, IF ANY               OIP      1153
        1531         7510                         DCN    CH                                                      OIP      1154
        1532         0364                         UJN    DSBX        RETURN                                      OIP      1155
                                                                                                                 OIP      1156
        1533         6340 7730           DSBA     CON    XC15,YC01                                               OIP      1157
        1535         4717                         DATA   H/*O*/                                                  OIP      1158
        1537         6000 7660                    CON    XC01,YC03                                               OIP      1159
        1541         5103                         DATA   H*(CR) - ENTER OS LOAD AUTOMATIC*                       OIP      1160
        1560         6000 7634                    CON    XC01,YC04                                               OIP      1161
        1562         5102                         DATA   H/(BS) - RETURN TO *A* DISPLAY/                         OIP      1162
        1600         6040 7564                    CON    XC03,YC06                                               OIP      1163
        1602         0455                         DATA   H*D  - DEADSTART DIAGNOSTIC SEQ.*                       OIP      1164
        1621         6040 7540                    CON    XC03,YC07                                               OIP      1165
        1623         1055                         DATA   H*H  - HARDWARE RECONFIGURATION*                        OIP      1166
        1642         6040 7514                    CON    XC03,YC08                                               OIP      1167
        1644         2055                         DATA   H*P  - DEADSTART PANEL PARAMS*                          OIP      1168
                                 127     DSBAL    EQU    *-DSBA                                                  OIP      1169
  
  
  
  
                                        **        DSH - DISPLAY H-DISPLAY.                                       OIP      1171
                                        *                                                                        OIP      1172
                                        *         ENTRY  (HDT) = HARDWARE DESCRIPTOR TABLE.                      OIP      1173
                                        *                                                                        OIP      1174
                                        *         EXIT   NONE.                                                   OIP      1175
                                        *                                                                        OIP      1176
                                        *         USES   T1.                                                     OIP      1177
                                        *                                                                        OIP      1178
                                        *         CALLS  DFN, D2O, D4O, DNF, DOE, DEM, DKB.                      OIP      1179
                                                                                                                 OIP      1180
                                                                                                                 OIP      1181
        1662         0100 1662           DSH      SUBR               ENTRY/EXIT                                  OIP      1182
        1664         0200 2644                    RJM    DFN         DISPLAY HEADER                              OIP      1183
        1666         2000 0045                    LDC    DSHAL                                                   OIP      1184
        1670         7350 1744                    OAM    DSHA,CH+40                                              OIP      1185
                                                                                                                 OIP      1186
                                        *         DISPLAY CM = NNNNNN.  CEJ/MEJ = ON/OFF  CMU = ON/OFF.          OIP      1187
                                                                                                                 OIP      1188
        1672         1405                         LDN    DSHBL       *CM = *                                     OIP      1189
        1673         7350 2011                    OAM    DSHB,CH+40                                              OIP      1190
        1675         1400                         LDN    0                                                       OIP      1191
1       OIP         CTI OPER. INTERVENTION PROCESSOR - A02            COMPASS 3.7-871.     23/08/13. 15.42.20.      PAGE    27
        DISPLAY ROUTINES.                                             DSH 
  
        1676         3401                         STD    T1                                                      OIP      1192
        1677         5000 7671                    LDM    /CPA/CMSZ                                               OIP      1193
        1701         0200 2742                    RJM    D2O                                                     OIP      1194
        1703         5000 7672                    LDM    /CPA/CMSZ+1                                             OIP      1195
        1705         3402                         STD    T2                                                      OIP      1196
        1706         0200 2766                    RJM    D4O                                                     OIP      1197
        1710         2000 5755                    LDC    2R.                                                     OIP      1198
        1712         7250                         OAN    CH+40                                                   OIP      1199
                                                                                                                 OIP      1200
        1713         1406                         LDN    DSHCL       *  CEJ/MEJ = *                              OIP      1201
        1714         7350 2016                    OAM    DSHC,CH+40                                              OIP      1202
        1716         5000 7673                    LDM    /CPA/OPTN                                               OIP      1203
        1720         1075                         SHN    -2                                                      OIP      1204
        1721         0200 2032                    RJM    DNF                                                     OIP      1205
                                                                                                                 OIP      1206
        1723         1405                         LDN    DSHDL       *  CMU = *                                  OIP      1207
        1724         7350 2024                    OAM    DSHD,CH+40                                              OIP      1208
        1726         5000 7673                    LDM    /CPA/OPTN                                               OIP      1209
        1730         1074                         SHN    -3                                                      OIP      1210
        1731         0200 2032                    RJM    DNF                                                     OIP      1211
                                                                                                                 OIP      1212
        1733         0200 2052                    RJM    DOE         DISPLAY *OFF* ELEMENTS                      OIP      1213
        1735         0200 2577                    RJM    DEM         DISPLAY ERROR MESSAGE, IF ANY.              OIP      1214
        1737         0200 2617                    RJM    DKB         DISPLAY KEYBOARD BUFFER                     OIP      1215
        1741         7510                         DCN    CH                                                      OIP      1216
        1742         0100 1662                    LJM    DSHX        RETURN                                      OIP      1217
                                                                                                                 OIP      1218
        1744         6340 7730           DSHA     CON    XC15,YC01                                               OIP      1219
        1746         4710                         DATA   H/*H*/                                                  OIP      1220
        1750         6000 7660                    CON    XC01,YC03                                               OIP      1221
        1752         5103                         DATA   H*(CR) - ENTER OS LOAD AUTOMATIC*                       OIP      1222
        1771         6000 7634                    CON    XC01,YC04                                               OIP      1223
        1773         5102                         DATA   H/(BS) - RETURN TO *O* DISPLAY/                         OIP      1224
                                  45     DSHAL    EQU    *-DSHA                                                  OIP      1225
                                                                                                                 OIP      1226
        2011         6000 7564           DSHB     CON    XC01,YC06                                               OIP      1227
        2013         0315                         DATA   H*CM = *                                                OIP      1228
                                   5     DSHBL    EQU    *-DSHB                                                  OIP      1229
                                                                                                                 OIP      1230
        2016         6460                DSHC     CON    XC20                                                    OIP      1231
        2017         0305                         DATA   H*CEJ/MEJ = *                                           OIP      1232
                                   6     DSHCL    EQU    *-DSHC                                                  OIP      1233
                                                                                                                 OIP      1234
        2024         6560 7540           DSHD     CON    XC24,YC07                                               OIP      1235
        2026         0315                         DATA   H*CMU = *                                               OIP      1236
                                   5     DSHDL    EQU    *-DSHD                                                  OIP      1237
1       OIP         CTI OPER. INTERVENTION PROCESSOR - A02            COMPASS 3.7-871.     23/08/13. 15.42.20.      PAGE    28
        DISPLAY ROUTINES.                                             DNF 
  
                                        **        DNF - DISPLAY *ON  * OR *OFF *.                                OIP      1239
                                        *                                                                        OIP      1240
                                        *         ENTRY  (A) = BIT 0 CLEAR FOR *ON*.                             OIP      1241
                                        *                (A) = BIT 0 SET FOR *OFF*.                              OIP      1242
                                        *                                                                        OIP      1243
                                        *         EXIT   *ON  * OR *OFF * DISPLAYED.                             OIP      1244
                                        *                                                                        OIP      1245
                                        *         USES   NONE.                                                   OIP      1246
                                        *                                                                        OIP      1247
                                        *         CALLS  NONE.                                                   OIP      1248
                                                                                                                 OIP      1249
                                                                                                                 OIP      1250
        2031         0100 2031           DNF      SUBR               ENTRY/EXIT                                  OIP      1251
        2033         1201                         LPN    1                                                       OIP      1252
        2034         0506                         NJN    DNF1        IF *OFF*                                    OIP      1253
        2035         2000 1716                    LDC    2RON                                                    OIP      1254
        2037         7250                         OAN    CH+40                                                   OIP      1255
        2040         1400                         LDN    0                                                       OIP      1256
        2041         0306                         UJN    DNF2                                                    OIP      1257
                                                                                                                 OIP      1258
        2042         2000 1706           DNF1     LDC    2ROF                                                    OIP      1259
        2044         7250                         OAN    CH+40                                                   OIP      1260
        2045         2000 0655                    LDC    2RF                                                     OIP      1261
        2047         7250                DNF2     OAN    CH+40                                                   OIP      1262
        2050         0360                         UJN    DNFX        RETURN                                      OIP      1263
                                                                                                                 OIP      1264
  
  
  
  
                                        **        DOE - DISPLAY *OFF* ELEMENTS.                                  OIP      1266
                                        *                                                                        OIP      1267
                                        *         ENTRY  (HDT) = HARDWARE DESCRIPTOR TABLE.                      OIP      1268
                                        *                                                                        OIP      1269
                                        *         EXIT   NONE.                                                   OIP      1270
                                        *                                                                        OIP      1271
                                        *         USES   T1, T2, T3.                                             OIP      1272
                                        *                                                                        OIP      1273
                                        *         CALLS  DPP, DPU.                                               OIP      1274
                                                                                                                 OIP      1275
                                                                                                                 OIP      1276
        2051         0100 2051           DOE      SUBR               ENTRY/EXIT                                  OIP      1277
        2053         1410                         LDN    DOEAL       DISPLAY *OFF ELEMENTS*                      OIP      1278
        2054         7350 2142                    OAM    DOEA,CH+40                                              OIP      1279
                                                                                                                 OIP      1280
        2056         2000 7444                    LDC    YC10        SET Y-COORDINATE FOR 1ST LINE               OIP      1281
        2060         3401                         STD    T1                                                      OIP      1282
        2061         1400                         LDN    0           SET COLUMN NUMBER                           OIP      1283
        2062         3402                         STD    T2                                                      OIP      1284
                                                                                                                 OIP      1285
                                        *         DISPLAY *OFF* CPU.                                             OIP      1286
                                                                                                                 OIP      1287
        2063         5000 7673                    LDM    /CPA/OPTN                                               OIP      1288
        2065         1203                         LPN    3                                                       OIP      1289
        2066         0421                         ZJN    DOE1        IF BOTH CPU-S *ON*                          OIP      1290
                                                                                                                 OIP      1291
        2067         0200 2271                    RJM    SOL         HANDLE START OF LINE                        OIP      1292
1       OIP         CTI OPER. INTERVENTION PROCESSOR - A02            COMPASS 3.7-871.     23/08/13. 15.42.20.      PAGE    29
        DISPLAY ROUTINES.                                             DOE 
  
        2071         2000 0320                    LDC    2RCP        DISPLAY CPUX                                OIP      1293
        2073         7250                         OAN    CH+40                                                   OIP      1294
        2074         5000 7673                    LDM    /CPA/OPTN                                               OIP      1295
        2076         1201                         LPN    1                                                       OIP      1296
        2077         1101                         LMN    1                                                       OIP      1297
        2100         2100 2533                    ADC    2RU0                                                    OIP      1298
        2102         7250                         OAN    CH+40                                                   OIP      1299
        2103         1400                         LDN    0                                                       OIP      1300
        2104         7250                         OAN    CH+40                                                   OIP      1301
        2105         7250                         OAN    CH+40                                                   OIP      1302
        2106         3602                         AOD    T2          INCR COLUMN NUMBER                          OIP      1303
                                                                                                                 OIP      1304
                                        *         DISPLAY *OFF* PP-S.                                            OIP      1305
                                                                                                                 OIP      1306
        2107         1400                DOE1     LDN    0           DISPLAY CHASSIS 1 *OFF* PP-S                OIP      1307
        2110         3403                         STD    T3                                                      OIP      1308
        2111         5000 7676                    LDM    /CPA/LPP0                                               OIP      1309
        2113         0200 2153                    RJM    DPP                                                     OIP      1310
        2115         1420                         LDN    20          DISPLAY CHASSIS 2 *OFF* PP-S                OIP      1311
        2116         3403                         STD    T3                                                      OIP      1312
        2117         5000 7677                    LDM    /CPA/LPP1                                               OIP      1313
        2121         0200 2153                    RJM    DPP                                                     OIP      1314
                                                                                                                 OIP      1315
                                        *         DISPLAY *OFF* PPU-S.                                           OIP      1316
                                                                                                                 OIP      1317
        2123         1401                         LDN    1           DISPLAY PPU-S 1-14B                         OIP      1318
        2124         3403                         STD    T3                                                      OIP      1319
        2125         5000 7703                    LDM    /CPA/LPPU+1                                             OIP      1320
        2127         0200 2221                    RJM    DPU                                                     OIP      1321
        2131         1415                         LDN    15          DISPLAY PPU15                               OIP      1322
        2132         3403                         STD    T3                                                      OIP      1323
        2133         5000 7702                    LDM    /CPA/LPPU                                               OIP      1324
        2135         1201                         LPN    1                                                       OIP      1325
        2136         0200 2221                    RJM    DPU                                                     OIP      1326
        2140         0100 2051                    LJM    DOEX        RETURN                                      OIP      1327
                                                                                                                 OIP      1328
        2142         6240 7470           DOEA     CON    XC11,YC09                                               OIP      1329
        2144         1706                         DATA   H*OFF ELEMENTS*                                         OIP      1330
                                  10     DOEAL    EQU    *-DOEA                                                  OIP      1331
1       OIP         CTI OPER. INTERVENTION PROCESSOR - A02            COMPASS 3.7-871.     23/08/13. 15.42.20.      PAGE    30
        DISPLAY ROUTINES.                                             DPP 
  
                                        **        DPP - DISPLAY *OFF* PP-S.                                      OIP      1333
                                        *                                                                        OIP      1334
                                        *         ENTRY  (A) = (LPP0) OR (LPP1).                                 OIP      1335
                                        *                (T1) = Y-COORDINATE.                                    OIP      1336
                                        *                (T2) = COLUMN NUMBER.                                   OIP      1337
                                        *                (T3) = STARTING PP NUMBER.                              OIP      1338
                                        *                                                                        OIP      1339
                                        *         EXIT   (T1) = Y-COORDINATE.                                    OIP      1340
                                        *                (T2) = COLUMN NUMBER.                                   OIP      1341
                                        *                                                                        OIP      1342
                                        *         USES   T4.                                                     OIP      1343
                                        *                                                                        OIP      1344
                                        *         CALLS  SOL.                                                    OIP      1345
                                                                                                                 OIP      1346
                                                                                                                 OIP      1347
        2152         0100 2152           DPP      SUBR               ENTRY/EXIT                                  OIP      1348
        2154         2200 1777                    LPC    1777        *OFF* MASK                                  OIP      1349
        2156         3404                DPP1     STD    T4                                                      OIP      1350
        2157         0472                         ZJN    DPPX        IF REMAINING PP-S *ON*                      OIP      1351
        2160         1201                         LPN    1                                                       OIP      1352
        2161         0432                         ZJN    DPP4        IF *ON*                                     OIP      1353
                                                                                                                 OIP      1354
        2162         0200 2271                    RJM    SOL         HANDLE START OF LINE IF NECESSARY           OIP      1355
        2164         2000 2020                    LDC    2RPP                                                    OIP      1356
        2166         7250                         OAN    CH+40                                                   OIP      1357
        2167         3003                         LDD    T3                                                      OIP      1358
        2170         1270                         LPN    70                                                      OIP      1359
        2171         0505                         NJN    DPP2        IF NO ZERO SUPPRESS                         OIP      1360
        2172         3003                         LDD    T3                                                      OIP      1361
        2173         1633                         ADN    1R0                                                     OIP      1362
        2174         1006                         SHN    6                                                       OIP      1363
        2175         0306                         UJN    DPP3                                                    OIP      1364
                                                                                                                 OIP      1365
        2176         1003                DPP2     SHN    3                                                       OIP      1366
        2177         3303                         LMD    T3                                                      OIP      1367
        2200         1370                         SCN    70                                                      OIP      1368
        2201         2100 3333                    ADC    2R00                                                    OIP      1369
        2203         7250                DPP3     OAN    CH+40                                                   OIP      1370
        2204         1400                         LDN    0                                                       OIP      1371
        2205         7250                         OAN    CH+40                                                   OIP      1372
        2206         7250                         OAN    CH+40                                                   OIP      1373
        2207         3602                         AOD    T2          INCR COLUMN NUMBER                          OIP      1374
        2210         1104                         LMN    4                                                       OIP      1375
        2211         0502                         NJN    DPP4        IF NOT END OF LINE                          OIP      1376
        2212         3402                         STD    T2          SET START OF LINE                           OIP      1377
                                                                                                                 OIP      1378
        2213         3603                DPP4     AOD    T3          INCR PP NUMBER                              OIP      1379
        2214         3004                         LDD    T4                                                      OIP      1380
        2215         1076                         SHN    -1                                                      OIP      1381
        2216         0100 2156                    LJM    DPP1                                                    OIP      1382
1       OIP         CTI OPER. INTERVENTION PROCESSOR - A02            COMPASS 3.7-871.     23/08/13. 15.42.20.      PAGE    31
        DISPLAY ROUTINES.                                             DPU 
  
                                        **        DPU - DISPLAY *OFF* PPU-S.                                     OIP      1384
                                        *                                                                        OIP      1385
                                        *         ENTRY  (A) = (LPPU) OR (LPPU+1).                               OIP      1386
                                        *                (T1) = Y-COORDINATE.                                    OIP      1387
                                        *                (T2) = COLUMN NUMBER.                                   OIP      1388
                                        *                (T3) = STARTING PPU NUMBER.                             OIP      1389
                                        *                                                                        OIP      1390
                                        *         EXIT   NONE.                                                   OIP      1391
                                        *                                                                        OIP      1392
                                        *         USES   T4.                                                     OIP      1393
                                        *                                                                        OIP      1394
                                        *         CALLS  SOL.                                                    OIP      1395
                                                                                                                 OIP      1396
                                                                                                                 OIP      1397
        2220         0100 2220           DPU      SUBR               ENTRY/EXIT                                  OIP      1398
        2222         3404                DPU1     STD    T4          *OFF* MASK                                  OIP      1399
        2223         0474                         ZJN    DPUX        IF REMAINING PPU-S *ON*                     OIP      1400
        2224         1201                         LPN    1                                                       OIP      1401
        2225         0436                         ZJN    DPU4        IF *ON*                                     OIP      1402
                                                                                                                 OIP      1403
        2226         0200 2271                    RJM    SOL         HANDLE START OF LINE IF NECESSARY           OIP      1404
        2230         2000 2020                    LDC    2RPP        DISPLAY *PPUX* OR *PPUXX*                   OIP      1405
        2232         7250                         OAN    CH+40                                                   OIP      1406
        2233         3003                         LDD    T3                                                      OIP      1407
        2234         1270                         LPN    70                                                      OIP      1408
        2235         0507                         NJN    DPU2        IF NO ZERO SUPPRESS                         OIP      1409
        2236         3003                         LDD    T3                                                      OIP      1410
        2237         2100 2533                    ADC    2RU0                                                    OIP      1411
        2241         7250                         OAN    CH+40                                                   OIP      1412
        2242         1400                         LDN    0                                                       OIP      1413
        2243         0311                         UJN    DPU3                                                    OIP      1414
                                                                                                                 OIP      1415
        2244         1074                DPU2     SHN    -3                                                      OIP      1416
        2245         2100 2533                    ADC    2RU0                                                    OIP      1417
        2247         7250                         OAN    CH+40                                                   OIP      1418
        2250         3003                         LDD    T3                                                      OIP      1419
        2251         1207                         LPN    7                                                       OIP      1420
        2252         1633                         ADN    1R0                                                     OIP      1421
        2253         1006                         SHN    6                                                       OIP      1422
        2254         7250                DPU3     OAN    CH+40                                                   OIP      1423
        2255         1400                         LDN    0                                                       OIP      1424
        2256         7250                         OAN    CH+40                                                   OIP      1425
        2257         3602                         AOD    T2          INCR COLUMN NUMBER                          OIP      1426
        2260         1104                         LMN    4                                                       OIP      1427
        2261         0502                         NJN    DPU4        IF NOT END OF LINE                          OIP      1428
        2262         3402                         STD    T2          SET START OF LINE                           OIP      1429
                                                                                                                 OIP      1430
        2263         3603                DPU4     AOD    T3          INCR PPU NUMBER                             OIP      1431
        2264         3004                         LDD    T4                                                      OIP      1432
        2265         1076                         SHN    -1                                                      OIP      1433
        2266         0100 2222                    LJM    DPU1                                                    OIP      1434
1       OIP         CTI OPER. INTERVENTION PROCESSOR - A02            COMPASS 3.7-871.     23/08/13. 15.42.20.      PAGE    32
        DISPLAY ROUTINES.                                             SOL 
  
                                        **        SOL - START OF LINE.                                           OIP      1436
                                        *                                                                        OIP      1437
                                        *         ENTRY  (T1) = Y-COORDINATE.                                    OIP      1438
                                        *                (T2) = COLUMN NUMBER.                                   OIP      1439
                                        *                                                                        OIP      1440
                                        *         EXIT   NONE.                                                   OIP      1441
                                        *                                                                        OIP      1442
                                        *         USES   NONE.                                                   OIP      1443
                                        *                                                                        OIP      1444
                                        *         CALLS  NONE.                                                   OIP      1445
                                                                                                                 OIP      1446
                                                                                                                 OIP      1447
        2270         0100 2270           SOL      SUBR               ENTRY/EXIT                                  OIP      1448
        2272         3002                         LDD    T2                                                      OIP      1449
        2273         0574                         NJN    SOLX        IF NOT START OF LINE                        OIP      1450
        2274         3001                         LDD    T1          OUTPUT COORDINATES                          OIP      1451
        2275         7250                         OAN    CH+40                                                   OIP      1452
        2276         2000 6040                    LDC    XC03                                                    OIP      1453
        2300         7250                         OAN    CH+40                                                   OIP      1454
        2301         1524                         LCN    YCIN        DECR Y-COORDINATE                           OIP      1455
        2302         3501                         RAD    T1                                                      OIP      1456
        2303         0364                         UJN    SOLX        RETURN                                      OIP      1457
  
  
  
  
                                        **        DSP - DISPLAY P-DISPLAY.                                       OIP      1459
                                        *                                                                        OIP      1460
                                        *         ENTRY  (DSPNL) = DEADSTART PANEL IMAGE.                        OIP      1461
                                        *                                                                        OIP      1462
                                        *         EXIT   NONE.                                                   OIP      1463
                                        *                                                                        OIP      1464
                                        *         USES   NONE.                                                   OIP      1465
                                        *                                                                        OIP      1466
                                        *         CALLS  D1D, D2D, D4D, DEM, DKB.                                OIP      1467
                                                                                                                 OIP      1468
                                                                                                                 OIP      1469
        2304         0100 2304           DSP      SUBR               ENTRY/EXIT                                  OIP      1470
        2306         0200 2644                    RJM    DFN         DISPLAY HEADER AND OPTIONS                  OIP      1471
        2310         1445                         LDN    DSPAL                                                   OIP      1472
        2311         7350 2407                    OAM    DSPA,CH+40                                              OIP      1473
        2313         1405                         LDN    DSPBL       DISPLAY *I = X    - INIT/RECOVERY LVL*      OIP      1474
        2314         7350 2454                    OAM    DSPB,CH+40                                              OIP      1475
        2316         5000 7712                    LDM    /CPA/DSPNLZ+13                                          OIP      1476
        2320         1066                         SHN    -9D                                                     OIP      1477
        2321         0200 2712                    RJM    D1D                                                     OIP      1478
        2323         1414                         LDN    DSPCL                                                   OIP      1479
        2324         7350 2461                    OAM    DSPC,CH+40                                              OIP      1480
        2326         1405                         LDN    DSPDL       DISPLAY *C = XX   - CMRDECK NUMBER*         OIP      1481
        2327         7350 2475                    OAM    DSPD,CH+40                                              OIP      1482
        2331         5000 7712                    LDM    /CPA/DSPNLZ+13                                          OIP      1483
        2333         0200 2721                    RJM    D2D                                                     OIP      1484
        2335         1412                         LDN    DSPEL                                                   OIP      1485
        2336         7310 2502                    OAM    DSPE,CH                                                 OIP      1486
        2340         1405                         LDN    DSPJL       DISPLAY  *D=X    - DISPLAY CMRDECK *        OIP      1487
        2341         7310 2514                    OAM    DSPJ,CH                                                 OIP      1488
        2343         5000 7712                    LDM    /CPA/DSPNLZ+13                                          OIP      1489
1       OIP         CTI OPER. INTERVENTION PROCESSOR - A02            COMPASS 3.7-871.     23/08/13. 15.42.20.      PAGE    33
        DISPLAY ROUTINES.                                             DSP 
  
        2345         1071                         SHN    -6                                                      OIP      1490
        2346         1201                         LPN    1                                                       OIP      1491
        2347         0200 2701                    RJM    D1C                                                     OIP      1492
        2351         1413                         LDN    DSPKL                                                   OIP      1493
        2352         7310 2521                    OAM    DSPK,CH                                                 OIP      1494
                                                                                                                 OIP      1495
        2354         1405                         LDN    DSPFL       DISPLAY *W12 = XXXX - D/S PANEL WORD 12*    OIP      1496
        2355         7350 2534                    OAM    DSPF,CH+40                                              OIP      1497
        2357         5000 7711                    LDM    /CPA/DSPNLZ+12                                          OIP      1498
        2361         0200 2732                    RJM    D4D                                                     OIP      1499
        2363         1414                         LDN    DSPGL                                                   OIP      1500
        2364         7350 2541                    OAM    DSPG,CH+40                                              OIP      1501
        2366         1405                         LDN    DSPHL       DISPLAY *W14 = XXXX - D/S PANEL WORD 14*    OIP      1502
        2367         7350 2555                    OAM    DSPH,CH+40                                              OIP      1503
        2371         5000 7713                    LDM    /CPA/DSPNLZ+14                                          OIP      1504
        2373         0200 2732                    RJM    D4D                                                     OIP      1505
        2375         1414                         LDN    DSPIL                                                   OIP      1506
        2376         7350 2562                    OAM    DSPI,CH+40                                              OIP      1507
        2400         0200 2577                    RJM    DEM         DISPLAY ERROR MESSAGE, IF ANY               OIP      1508
        2402         0200 2617                    RJM    DKB         DISPLAY KEYBOARD BUFFER                     OIP      1509
        2404         7510                         DCN    CH                                                      OIP      1510
        2405         0100 2304                    LJM    DSPX                                                    OIP      1511
                                                                                                                 OIP      1512
        2407         6340 7730           DSPA     CON    XC15,YC01                                               OIP      1513
        2411         4720                         DATA   H/*P*/                                                  OIP      1514
        2413         6000 7660                    CON    XC01,YC03                                               OIP      1515
        2415         5103                         DATA   H*(CR) - ENTER OS LOAD AUTOMATIC*                       OIP      1516
        2434         6000 7634                    CON    XC01,YC04                                               OIP      1517
        2436         5102                         DATA   H/(BS) - RETURN TO *O* DISPLAY/                         OIP      1518
                                  45     DSPAL    EQU    *-DSPA                                                  OIP      1519
                                                                                                                 OIP      1520
        2454         6020 7564           DSPB     CON    XC02,YC06                                               OIP      1521
        2456         5555                         DATA   H*  I = *                                               OIP      1522
                                   5     DSPBL    EQU    *-DSPB                                                  OIP      1523
                                                                                                                 OIP      1524
        2461         6300 7564           DSPC     CON    XC13,YC06                                               OIP      1525
        2463         4655                         DATA   H*- INIT/RECOVERY LVL*                                  OIP      1526
                                  14     DSPCL    EQU    *-DSPC                                                  OIP      1527
                                                                                                                 OIP      1528
        2475         6020 7540           DSPD     CON    XC02,YC07                                               OIP      1529
        2477         5555                         DATA   H*  C = *                                               OIP      1530
                                   5     DSPDL    EQU    *-DSPD                                                  OIP      1531
                                                                                                                 OIP      1532
        2502         6300 7540           DSPE     CON    XC13,YC07                                               OIP      1533
        2504         4655                         DATA   H*- CMRDECK NUMBER*                                     OIP      1534
                                  12     DSPEL    EQU    *-DSPE                                                  OIP      1535
        2514         6020 7514           DSPJ     CON    XC02,YC08                                               OIP      1536
        2516         5555                         DATA   H*  D = *                                               OIP      1537
                                   5     DSPJL    EQU    *-DSPJ                                                  OIP      1538
                                                                                                                 OIP      1539
        2521         6300 7514           DSPK     CON    XC13,YC08                                               OIP      1540
        2523         4655                         DATA   H*- DISPLAY CMRDECK*                                    OIP      1541
                                  13     DSPKL    EQU    *-DSPK                                                  OIP      1542
                                                                                                                 OIP      1543
        2534         6020 7470           DSPF     CON    XC02,YC09                                               OIP      1544
        2536         2734                         DATA   H*W12 = *                                               OIP      1545
                                   5     DSPFL    EQU    *-DSPF                                                  OIP      1546
1       OIP         CTI OPER. INTERVENTION PROCESSOR - A02            COMPASS 3.7-871.     23/08/13. 15.42.20.      PAGE    34
        DISPLAY ROUTINES.                                             DSP 
  
                                                                                                                 OIP      1547
        2541         6300 7470           DSPG     CON    XC13,YC09                                               OIP      1548
        2543         4655                         DATA   H*- D/S PANEL WORD 12*                                  OIP      1549
                                  14     DSPGL    EQU    *-DSPG                                                  OIP      1550
                                                                                                                 OIP      1551
        2555         6020 7444           DSPH     CON    XC02,YC10                                               OIP      1552
        2557         2734                         DATA   H*W14 = *                                               OIP      1553
                                   5     DSPHL    EQU    *-DSPH                                                  OIP      1554
                                                                                                                 OIP      1555
        2562         6300 7444           DSPI     CON    XC13,YC10                                               OIP      1556
        2564         4655                         DATA   H*- D/S PANEL WORD 14*                                  OIP      1557
                                  14     DSPIL    EQU    *-DSPI                                                  OIP      1558
  
  
  
  
                                        **        DEM - DISPLAY ERROR MESSAGE.                                   OIP      1560
                                        *                                                                        OIP      1561
                                        *         ENTRY  (KM) = ADDRESS OF ERROR MESSAGE.                        OIP      1562
                                        *                                                                        OIP      1563
                                        *         EXIT   NONE.                                                   OIP      1564
                                        *                                                                        OIP      1565
                                        *         USES   T1.                                                     OIP      1566
                                        *                                                                        OIP      1567
                                        *         CALLS  NONE.                                                   OIP      1568
                                                                                                                 OIP      1569
                                                                                                                 OIP      1570
        2576         0100 2576           DEM      SUBR               ENTRY/EXIT                                  OIP      1571
        2600         3016                         LDD    KM                                                      OIP      1572
        2601         0474                         ZJN    DEMX        IF NO ERROR MESSAGE                         OIP      1573
        2602         1701                         SBN    1                                                       OIP      1574
        2603         3401                         STD    T1                                                      OIP      1575
        2604         1402                         LDN    2                                                       OIP      1576
        2605         7350 2614                    OAM    DEMA,CH+40  OUTPUT COORDINATES                          OIP      1577
        2607         3601                DEM1     AOD    T1          DISPLAY MESSAGE                             OIP      1578
        2610         4001                         LDI    T1                                                      OIP      1579
        2611         7250                         OAN    CH+40                                                   OIP      1580
        2612         0574                         NJN    DEM1                                                    OIP      1581
        2613         0362                         UJN    DEMX        RETURN                                      OIP      1582
                                                                                                                 OIP      1583
        2614         6000 7040           DEMA     CON    XC01,YCER                                               OIP      1584
  
  
  
  
                                        **        DKB - DISPLAY KEYBOARD BUFFER.                                 OIP      1586
                                        *                                                                        OIP      1587
                                        *         ENTRY  (KBUF) = KEYBOARD BUFFER.                               OIP      1588
                                        *                                                                        OIP      1589
                                        *         EXIT   NONE.                                                   OIP      1590
                                        *                                                                        OIP      1591
                                        *         USES   T1.                                                     OIP      1592
                                        *                                                                        OIP      1593
                                        *         CALLS  NONE.                                                   OIP      1594
                                                                                                                 OIP      1595
                                                                                                                 OIP      1596
        2616         0100 2616           DKB      SUBR               ENTRY/EXIT                                  OIP      1597
1       OIP         CTI OPER. INTERVENTION PROCESSOR - A02            COMPASS 3.7-871.     23/08/13. 15.42.20.      PAGE    35
        DISPLAY ROUTINES.                                             DKB 
  
        2620         1402                         LDN    2           OUTPUT COORDINATES                          OIP      1598
        2621         7350 2641                    OAM    DKBA,CH+40                                              OIP      1599
        2623         1400                         LDN    0                                                       OIP      1600
        2624         3401                         STD    T1                                                      OIP      1601
        2625         5001 1460           DKB1     LDM    KBUF,T1                                                 OIP      1602
        2627         0466                         ZJN    DKBX        IF END OF KEYBOARD LINE                     OIP      1603
        2630         1006                         SHN    6                                                       OIP      1604
        2631         5101 1461                    ADM    KBUF+1,T1                                               OIP      1605
        2633         7250                         OAN    CH+40                                                   OIP      1606
        2634         1277                         LPN    77B                                                     OIP      1607
        2635         0460                         ZJN    DKBX        IF END OF KEYBOARD LINE                     OIP      1608
        2636         1402                         LDN    2                                                       OIP      1609
        2637         3501                         RAD    T1                                                      OIP      1610
        2640         0364                         UJN    DKB1                                                    OIP      1611
                                                                                                                 OIP      1612
        2641         6000 7014           DKBA     CON    XC01,YCKB                                               OIP      1613
  
  
  
  
                                        **        DFN - DELAY AND FUNCTION DISPLAY.                              OIP      1615
                                        *                                                                        OIP      1616
                                        *         ENTRY  NONE.                                                   OIP      1617
                                        *                                                                        OIP      1618
                                        *         EXIT   NONE.                                                   OIP      1619
                                        *                                                                        OIP      1620
                                        *         USES   NONE.                                                   OIP      1621
                                        *                                                                        OIP      1622
                                        *         CALLS  NONE.                                                   OIP      1623
                                                                                                                 OIP      1624
                                                                                                                 OIP      1625
        2643         0100 2643           DFN      SUBR               ENTRY/EXIT                                  OIP      1626
        2645         2000 1000                    LDC    1000        DELAY                                       OIP      1627
        2647         1701                         SBN    1                                                       OIP      1628
        2650         0576                         NJN    *-1                                                     OIP      1629
        2651         7710 7001                    FNC    DSFC,CH     SELECT LEFT SCREEN, 32 LINES PER SCREEN     OIP      1630
        2653         7410                         ACN    CH                                                      OIP      1631
        2654         0366                         UJN    DFNX        RETURN                                      OIP      1632
  
  
  
  
                                        **        CDS - CLEAR DISPLAY.                                           OIP      1634
                                        *                                                                        OIP      1635
                                        *         ENTRY  PP 10 ON CHANNEL 0.                                     OIP      1636
                                        *                CHANNEL 10 USED FOR DISPLAY.                            OIP      1637
                                        *                                                                        OIP      1638
                                        *         EXIT   PP 10 ON CHANNEL 10.                                    OIP      1639
                                        *                                                                        OIP      1640
                                        *         USES   NONE.                                                   OIP      1641
                                        *                                                                        OIP      1642
                                        *         CALLS  NONE.                                                   OIP      1643
                                                                                                                 OIP      1644
                                                                                                                 OIP      1645
        2655         0100 2655           CDS      SUBR               ENTRY/EXIT                                  OIP      1646
        2657         7710 0000                    FNC    0,CH        CLEAR DISPLAY SYNC                          OIP      1647
        2661         2000 1000                    LDC    1000        DELAY                                       OIP      1648
1       OIP         CTI OPER. INTERVENTION PROCESSOR - A02            COMPASS 3.7-871.     23/08/13. 15.42.20.      PAGE    36
        DISPLAY ROUTINES.                                             CDS 
  
        2663         1701                         SBN    1                                                       OIP      1649
        2664         0576                         NJN    *-1                                                     OIP      1650
        2665         7550                         DCN    CH+40                                                   OIP      1651
        2666         7410                         ACN    CH          MOVE PP 10 TO CHANNEL 10                    OIP      1652
        2667         1403                         LDN    3                                                       OIP      1653
        2670         7300 2674                    OAM    CDSA,0                                                  OIP      1654
        2672         7540                         DCN    0+40                                                    OIP      1655
        2673         0361                         UJN    CDSX        RETURN                                      OIP      1656
                                                                                                                 OIP      1657
        2674         0000                CDSA     CON    0                                                       OIP      1658
        2675         1500                         LCN    0                                                       OIP      1659
        2676         7110 0000                    IAM    0,CH                                                    OIP      1660
  
  
  
  
                                        **        D1C - DISPLAY  ONE  CHARACTER,  Y  OR  N                       OIP      1662
                                        *                                                                        OIP      1663
                                        *         ENTRY  (A) = 1  IF  Y  (INDICATING  YES)  TO  BE  DISPLAYED    OIP      1664
                                        *                (A) = 0  IF  N  (INDICATING  NO)  NOT  TO  BE DISPLAYED OIP      1665
                                        *                                                                        OIP      1666
                                        *         EXIT   NONE                                                    OIP      1667
                                        *                                                                        OIP      1668
                                        *         USES   NONE                                                    OIP      1669
                                        *                                                                        OIP      1670
                                        *         CALLS  NONE                                                    OIP      1671
                                                                                                                 OIP      1672
        2700         0100 2700           D1C      SUBR               ENTRY/EXIT                                  OIP      1673
        2702         0403                         ZJN    D1C1                                                    OIP      1674
        2703         1431                         LDN    1RY                                                     OIP      1675
        2704         0302                         UJN    D1C2                                                    OIP      1676
        2705         1416                D1C1     LDN    1RN                                                     OIP      1677
        2706         1006                D1C2     SHN    6                                                       OIP      1678
        2707         7210                         OAN    CH                                                      OIP      1679
        2710         0367                         UJN    D1CX                                                    OIP      1680
  
  
  
  
                                        **        D1D - DISPLAY 1 DIGIT.                                         OIP      1682
                                        *                                                                        OIP      1683
                                        *         ENTRY  (A) = DIGIT RIGHT ADJUSTED.                             OIP      1684
                                        *                                                                        OIP      1685
                                        *         EXIT   NONE.                                                   OIP      1686
                                        *                                                                        OIP      1687
                                        *         USES   NONE.                                                   OIP      1688
                                        *                                                                        OIP      1689
                                        *         CALLS  NONE.                                                   OIP      1690
                                                                                                                 OIP      1691
                                                                                                                 OIP      1692
        2711         0100 2711           D1D      SUBR               ENTRY/EXIT                                  OIP      1693
        2713         1207                         LPN    7                                                       OIP      1694
        2714         1633                         ADN    1R0                                                     OIP      1695
        2715         1006                         SHN    6                                                       OIP      1696
        2716         7250                         OAN    CH+40                                                   OIP      1697
        2717         0371                         UJN    D1DX        RETURN                                      OIP      1698
1       OIP         CTI OPER. INTERVENTION PROCESSOR - A02            COMPASS 3.7-871.     23/08/13. 15.42.20.      PAGE    37
        DISPLAY ROUTINES.                                             D2D 
  
                                        **        D2D - DISPLAY 2 DIGITS.                                        OIP      1700
                                        *                                                                        OIP      1701
                                        *         ENTRY  (A) = DIGITS RIGHT ADJUSTED.                            OIP      1702
                                        *                                                                        OIP      1703
                                        *         EXIT   NONE.                                                   OIP      1704
                                        *                                                                        OIP      1705
                                        *         USES   T0, T1.                                                 OIP      1706
                                        *                                                                        OIP      1707
                                        *         CALLS  D2O.                                                    OIP      1708
                                                                                                                 OIP      1709
                                                                                                                 OIP      1710
        2720         0100 2720           D2D      SUBR               ENTRY/EXIT                                  OIP      1711
        2722         3400                         STD    T0                                                      OIP      1712
        2723         1577                         LCN    77          INDICATE NO ZERO SUPPRESSION                OIP      1713
        2724         3401                         STD    T1                                                      OIP      1714
        2725         3000                         LDD    T0          DISPLAY 2 DIGITS                            OIP      1715
        2726         0200 2742                    RJM    D2O                                                     OIP      1716
        2730         0367                         UJN    D2DX        RETURN                                      OIP      1717
  
  
  
  
                                        **        D4D - DISPLAY 4 DIGITS.                                        OIP      1719
                                        *                                                                        OIP      1720
                                        *         ENTRY  (A) = DIGITS RIGHT ADJUSTED.                            OIP      1721
                                        *                                                                        OIP      1722
                                        *         EXIT   NONE.                                                   OIP      1723
                                        *                                                                        OIP      1724
                                        *         USES   T1, T2.                                                 OIP      1725
                                        *                                                                        OIP      1726
                                        *         CALLS  D4O.                                                    OIP      1727
                                                                                                                 OIP      1728
                                                                                                                 OIP      1729
        2731         0100 2731           D4D      SUBR               ENTRY/EXIT                                  OIP      1730
        2733         3402                         STD    T2                                                      OIP      1731
        2734         1577                         LCN    77          INDICATE NO ZERO SUPPRESSION                OIP      1732
        2735         3401                         STD    T1                                                      OIP      1733
        2736         0200 2766                    RJM    D4O         DISPLAY 4 DIGITS                            OIP      1734
        2740         0370                         UJN    D4DX                                                    OIP      1735
1       OIP         CTI OPER. INTERVENTION PROCESSOR - A02            COMPASS 3.7-871.     23/08/13. 15.42.20.      PAGE    38
        DISPLAY ROUTINES.                                             D2O 
  
                                        **        D2O - DISPLAY 2 DIGITS WITH OPTIONAL ZERO SUPPRESSION.         OIP      1737
                                        *                                                                        OIP      1738
                                        *         ENTRY  (A) = 2 DIGITS RIGHT ADJUSTED.                          OIP      1739
                                        *                (T1) = 0000 IF ZERO SUPPRESS.                           OIP      1740
                                        *                (T1) = 7700 IF NO ZERO SUPPRESS.                        OIP      1741
                                        *                                                                        OIP      1742
                                        *         EXIT   (T1) = 7700 IF NONZERO DIGIT ENCOUNTERED.               OIP      1743
                                        *                (T1) = UNCHANGED IF BOTH DIGITS ZERO.                   OIP      1744
                                        *                                                                        OIP      1745
                                        *         USES   T0, T1.                                                 OIP      1746
                                        *                                                                        OIP      1747
                                        *         CALLS  NONE.                                                   OIP      1748
                                                                                                                 OIP      1749
                                                                                                                 OIP      1750
        2741         0100 2741           D2O      SUBR               ENTRY/EXIT                                  OIP      1751
        2743         1277                         LPN    77                                                      OIP      1752
        2744         3400                         STD    T0                                                      OIP      1753
        2745         3301                         LMD    T1          ZERO SUPPRESS FLAG (XX00)                   OIP      1754
        2746         0503                         NJN    D2O1        IF NOT SUPPRESS 2 ZEROES                    OIP      1755
        2747         7250                         OAN    CH+40                                                   OIP      1756
        2750         0370                         UJN    D2OX        RETURN                                      OIP      1757
        2751         1074                D2O1     SHN    -3                                                      OIP      1758
        2752         0404                         ZJN    D2O2        IF SUPPRESS 1 ZERO                          OIP      1759
        2753         1207                         LPN    7                                                       OIP      1760
        2754         1633                         ADN    1R0                                                     OIP      1761
        2755         1006                         SHN    6                                                       OIP      1762
        2756         3300                D2O2     LMD    T0                                                      OIP      1763
        2757         1370                         SCN    70                                                      OIP      1764
        2760         1633                         ADN    1R0                                                     OIP      1765
        2761         7250                         OAN    CH+40                                                   OIP      1766
        2762         1577                         LCN    77                                                      OIP      1767
        2763         3401                         STD    T1                                                      OIP      1768
        2764         0354                         UJN    D2OX        RETURN                                      OIP      1769
  
  
  
  
                                        **        D4O - DISPLAY 4 DIGITS WITH OPTIONAL ZERO SUPPRESSION.         OIP      1771
                                        *                                                                        OIP      1772
                                        *         ENTRY  (T1) = 0000 IF ZERO SUPPRESSION.                        OIP      1773
                                        *                (T1) = 7700 IF NO ZERO SUPPRESSION.                     OIP      1774
                                        *                (T2) = DIGITS TO DISPLAY.                               OIP      1775
                                        *                                                                        OIP      1776
                                        *         EXIT   (T1) = 7700 IF NONZERO DIGIT ENCOUNTERED.               OIP      1777
                                        *                (T1) = UNCHANGED IF ALL DIGITS ZERO.                    OIP      1778
                                        *                                                                        OIP      1779
                                        *         USES   NONE.                                                   OIP      1780
                                        *                                                                        OIP      1781
                                        *         CALLS  D2O.                                                    OIP      1782
                                                                                                                 OIP      1783
                                                                                                                 OIP      1784
        2765         0100 2765           D4O      SUBR               ENTRY/EXIT                                  OIP      1785
        2767         3002                         LDD    T2          DISPLAY 2 DIGITS                            OIP      1786
        2770         1071                         SHN    -6                                                      OIP      1787
        2771         0200 2742                    RJM    D2O                                                     OIP      1788
        2773         3002                         LDD    T2          DISPLAY 2 DIGITS                            OIP      1789
        2774         0200 2742                    RJM    D2O                                                     OIP      1790
1       OIP         CTI OPER. INTERVENTION PROCESSOR - A02            COMPASS 3.7-871.     23/08/13. 15.42.20.      PAGE    39
        DISPLAY ROUTINES.                                             D4O 
  
        2776         0366                         UJN    D4OX        RETURN                                      OIP      1791
  
  
  
  
        3034                                      END                                                            OIP      1793
  
                             54100B CM  STORAGE USED             2028 STATEMENTS      988 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            1.626 SECONDS        1064 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        AB             10                   7/46 D   15/17 S   16/33     17/48     19/27 S   19/31 S   21/28
                                           13/36 S   15/20 S   16/53     18/16     19/28 S   19/39
                                           14/38 S   15/46 S   17/15 S   18/52     19/29 S   19/48
                                           14/43 S   16/12 S   17/32     18/55     19/30 S   21/20
        ASD          1160                  12/50     16/25     16/46     17/28     17/44     18/57 D
        ASDX         1157                  18/57 L
        ASD1         1153                  18/52 L   19/02     19/04
        CDR          1174                  19/01     19/25 D   21/19     21/27
        CDRX         1173                  19/25 L
        CDR1         1203                  19/32 L   19/51
        CDR2         1214                  19/41 L   19/49
        CDR3         1225                  19/22     19/50 L
        CDR4         1170                  19/21 L   19/36
        CDR5         1172                  19/23 L   19/34
        CDS          2656                   9/32     10/12     35/55 D
        CDSA         2674                  36/06     36/10 L
        CDSX         2655                  35/55 L   36/08
        CEJ           730                  11/01     15/39 L
        CEJ1          742                  15/41     15/44 L
        CH             10                   6/19 D   26/17     28/22     30/38     32/17     33/05     35/02     36/34
                                            8/19     26/51     28/24     30/40     32/19     33/08     35/09     36/55
                                            8/20     26/56     28/44     30/41     32/41     33/12     35/36     38/20
                                           24/47     27/08     29/02     31/23     32/43     33/14     35/37     38/30
                                           24/48     27/11     29/07     31/29     32/48     33/18     35/56
                                           24/49     27/17     29/09     31/35     32/50     33/21     36/03
                                           24/50     27/25     29/10     31/40     32/54     34/34     36/04
                                           26/15     28/17     30/25     31/42     32/56     34/37     36/12
        CKB          1444                   8/45     10/36     11/20     12/25     24/12     25/14 D
        CKBX         1443                  25/14 L   25/24
        CKB1         1447                  25/17 L   25/21
        CMR          1037                  11/40     17/04 L
        CMR1         1050                  17/09     17/12 L
        CMR2         1051                  17/07     17/13 L
        CMU           753                  11/02     16/05 L
        CMU1          763                  16/07     16/10 L
        CMZ           333                  10/54     12/43 L
        CMZA          476                  12/44     13/24 L
        CMZ1          360                  12/56     13/02 L
        CMZ2          366                  13/02     13/07 L
        CMZ3          376                  13/10     13/12     13/15 L
        CMZ4          377                  13/08     13/16 L
        CPS          1230                  12/32     20/16 D   22/03
        CPSX         1227                  20/16 L   20/22     20/45
1       OIP         CTI OPER. INTERVENTION PROCESSOR - A02            COMPASS 3.7-871.     23/08/13. 15.42.20.      PAGE    40
        SYMBOLIC REFERENCE TABLE. 
  
        CPS1         1234                  20/20 L   20/30     20/36
        CPS2         1242                  20/26 L   20/39
        CPS3         1260                  20/28     20/34     20/41 L
        CPX           546                  10/55     13/33 L
        CPX1          563                  13/39     13/43 L
        CPX2          565                  13/42     13/45 L
        CPX3          604                  13/53     13/57 L
        CPX4          557                  13/37     13/40 L
        DDS           172                   8/54      9/55 L
        DEK          1016                  11/39     16/45 L
        DEK1         1027                  16/48     16/51 L
        DEM          2577                  26/16     27/23     33/19     34/28 D
        DEMA         2614                  34/34     34/41 L
        DEMX         2576                  34/28 L   34/30     34/39
        DEM1         2607                  34/35 L   34/38
        DFN          2644                  26/13     26/49     32/39     35/32 D
        DFNX         2643                  35/32 L   35/38
        DKB          2617                  27/24     33/20     34/57 D
        DKBA         2641                  35/02     35/16 L
        DKBX         2616                  34/57 L   35/06     35/11
        DKB1         2625                  35/05 L   35/14
        DMS           407                  12/45
        DNF          2032                  27/14     27/20     28/13 D
        DNFX         2031                  28/13 L   28/25
        DNF1         2042                  28/15     28/21 L
        DNF2         2047                  28/19     28/24 L
        DOE          2052                  27/22     28/42 D
        DOEA         2142                  28/44     29/37 L   29/39
        DOEAL          10                  28/43     29/39 D
        DOEX         2051                  28/42 L   29/35
        DOE1         2107                  28/55     29/15 L
        DPP          2153                  29/18     29/22     30/16 D
        DPPX         2152                  30/16 L   30/19
        DPP1         2156                  30/18 L   30/50
        DPP2         2176                  30/28     30/34 L
        DPP3         2203                  30/32     30/38 L
        DPP4         2213                  30/21     30/44     30/47 L
        DPU          2221                  29/29     29/34     31/15 D
        DPUX         2220                  31/15 L   31/17
        DPU1         2222                  31/16 L   31/51
        DPU2         2244                  31/26     31/33 L
        DPU3         2254                  31/31     31/40 L
        DPU4         2263                  31/19     31/45     31/48 L
        DRD           303                   8/47     10/38     11/22     11/53 D
        DRDX          302                  11/53 L   11/57
        DSB          1520                   8/46     26/12 D
        DSBA         1533                  26/15     26/20 L   26/32
        DSBAL         127                  26/14     26/32 D
        DSBX         1517                  26/12 L   26/18
        DSFC         7001                   6/20 D   35/36
        DSH          1663                  10/37     26/48 D
        DSHA         1744                  26/51     27/28 L   27/34
        DSHAL          45                  26/50     27/34 D
        DSHB         2011                  26/56     27/36 L   27/38
        DSHBL           5                  26/55     27/38 D
        DSHC         2016                  27/11     27/40 L   27/42
        DSHCL           6                  27/10     27/42 D
1       OIP         CTI OPER. INTERVENTION PROCESSOR - A02            COMPASS 3.7-871.     23/08/13. 15.42.20.      PAGE    41
        SYMBOLIC REFERENCE TABLE. 
  
        DSHD         2024                  27/17     27/44 L   27/46
        DSHDL           5                  27/16     27/46 D
        DSHX         1662                  26/48 L   27/26
        DSP          2305                  11/21     32/38 D
        DSPA         2407                  32/41     33/24 L   33/30
        DSPAL          45                  32/40     33/30 D
        DSPB         2454                  32/43     33/32 L   33/34
        DSPBL           5                  32/42     33/34 D
        DSPC         2461                  32/48     33/36 L   33/38
        DSPCL          14                  32/47     33/38 D
        DSPD         2475                  32/50     33/40 L   33/42
        DSPDL           5                  32/49     33/42 D
        DSPE         2502                  32/54     33/44 L   33/46
        DSPEL          12                  32/53     33/46 D
        DSPF         2534                  33/08     33/55 L   33/57
        DSPFL           5                  33/07     33/57 D
        DSPG         2541                  33/12     34/02 L   34/04
        DSPGL          14                  33/11     34/04 D
        DSPH         2555                  33/14     34/06 L   34/08
        DSPHL           5                  33/13     34/08 D
        DSPI         2562                  33/18     34/10 L   34/12
        DSPIL          14                  33/17     34/12 D
        DSPJ         2514                  32/56     33/47 L   33/49
        DSPJL           5                  32/55     33/49 D
        DSPK         2521                  33/05     33/51 L   33/53
        DSPKL          13                  33/04     33/53 D
        DSPX         2304                  32/38 L   33/22
        D1C          2701                  33/03     36/28 D
        D1CX         2700                  36/28 L   36/35
        D1C1         2705                  36/29     36/32 L
        D1C2         2706                  36/31     36/33 L
        D1D          2712                  32/46     36/51 D
        D1DX         2711                  36/51 L   36/56
        D2D          2721                  32/52     37/12 D
        D2DX         2720                  37/12 L   37/18
        D2O          2742                  27/03     37/17     38/15 D   38/55     38/57
        D2OX         2741                  38/15 L   38/21     38/33
        D2O1         2751                  38/19     38/22 L
        D2O2         2756                  38/23     38/27 L
        D4D          2732                  33/10     33/16     37/34 D
        D4DX         2731                  37/34 L   37/39
        D4O          2766                  27/06     37/38     38/52 D
        D4OX         2765                  38/52 L   39/01
        HRC           211                   9/01     10/36 L
        HRC1          213                  10/37 L   10/40     10/45
        HRC2          231                  10/42     10/47 L
        HRC3          235                  10/48     10/50 L
        HSYN          237                  10/43     10/54 L
        ILL           311                  12/19 L   13/13     14/02     15/10     16/08     16/49     17/31     19/05
                                           12/33     13/43     14/18     15/42     16/28     17/10     17/47     21/32
        IOQ           176                   9/16     10/12 L
        IOQA          204                  10/13     10/16 L
        KA             17                   7/49 D   13/34     17/05     19/32     20/24     21/23     22/07
                                           12/30 S   13/40 S   19/23     19/50 S   20/42 S   21/26 S
        KBI          1342                   8/48     10/39     11/23     23/34 D
        KBIA         1347                  23/38 D   23/40     23/41 S
        KBIX         1341                  23/34 L   23/39     23/43     23/49     23/52     24/02     24/27
1       OIP         CTI OPER. INTERVENTION PROCESSOR - A02            COMPASS 3.7-871.     23/08/13. 15.42.20.      PAGE    42
        SYMBOLIC REFERENCE TABLE. 
  
        KBI1         1353                  23/36     23/41 L
        KBI2         1365                  23/47     23/51 L
        KBI3         1366                  23/52 L   24/08     24/14
        KBI4         1367                  23/45     23/54 L
        KBI5         1375                  23/57     24/04 L
        KBI6         1403                  23/55     24/10 L
        KBI7         1411                  24/11     24/16 L
        KBI8         1415                  24/17     24/20 L
        KBI9         1425                  24/22     24/27 L
        KBR           315                  12/25 L   13/54     15/30     16/15     16/55     17/34
                                           13/19     14/53     15/49     16/36     17/18     17/50
        KBUF         1460                   8/50     24/06 S   25/18 S   25/29     35/08
                                           12/29     24/24 S   25/28 L   35/05
        KBUFL          36                  24/21     25/20     25/29 D
        KEY          1430                  23/35     24/43 D
        KEYX         1427                  24/43 L   24/51
        KI             15                   7/47 D   23/56     24/06     24/24     25/16 S   25/19 S
                                           23/46     24/04 S   24/20     24/25 S   25/18     25/22 S
        KM             16                   7/48 D    9/08 S   12/20 S   13/04 S   24/07 S   25/23 S   34/29
        NFF          1320                  13/41     15/40     16/06     21/30     22/01 D
        NFFA         1336                  22/02     22/15 L
        NFFX         1317                  22/01 L   22/13
        NFF1         1334                  22/04     22/12 L
        NFF2         1316                  21/56 L   22/08     22/10
        OID           113                   8/21      8/45 L   10/50     11/34
        OID1          115                   8/46 L    8/51      9/09
        OID2          133                   8/53      8/56 L
        OID3          137                   8/57      9/03 L
        OID4          143                   9/04      9/07 L    9/12
        OID5          147                   8/49      9/11 L
        OID6          155                   9/14      9/16 L
        OIP           100                   8/16 L
        OIPA          107                   8/19      8/23 L
        OSL           157                   9/15      9/32 L    9/57     10/49     11/33
        OSLA          165                   9/33      9/36 L
        PAN           246                   9/05     11/20 L
        PAN1          250                  11/21 L   11/24     11/29
        PAN2          266                  11/26     11/31 L
        PAN3          272                  11/32     11/34 L
        PPX           611                  10/57     14/11 L
        PPX1          622                  14/18 L   14/21     14/24     14/26     14/31     14/33     14/36
        PPX2          624                  14/17     14/20 L
        PPX3          634                  14/15     14/29 L
        PPX4          644                  14/27     14/37 L   14/51     14/52
        PPX5          656                  14/42     14/47 L
        PPX6          660                  14/45     14/48 L
        PPX7          662                  14/40     14/49 L
        PSYN          274                  11/27     11/38 L
        PUN           670                  10/56     15/05 L
        PUN1          700                  15/10 L   15/14
        PUN2          702                  15/09     15/12 L
        PUN3          705                  15/15 L   15/28     15/29
        PUN4          716                  15/19     15/24 L
        PUN5          720                  15/22     15/25 L
        RCM$            0                  13/21 D
        REC           774                  11/38     16/24 L
        REC1         1004                  16/27     16/30 L
1       OIP         CTI OPER. INTERVENTION PROCESSOR - A02            COMPASS 3.7-871.     23/08/13. 15.42.20.      PAGE    43
        SYMBOLIC REFERENCE TABLE. 
  
        RNG          1266                  14/12     15/06     21/18 D
        RNGX         1265                  21/18 L   21/37
        RNG1         1304                  21/25     21/30 L
        RNG2         1307                  21/32 L   21/38
        RNG3         1311                  21/31     21/34 L
        SHNI         1000                   6/11 D   18/18
        SOL          2271                  28/57     30/23     31/21     32/13 D
        SOLX         2270                  32/13 L   32/15     32/22
        STB          1121                  13/49     14/48     15/25     15/48     16/14     17/17     18/14 D
        STBA         1134                  18/19 S   18/22 L
        STBB         1143                  18/20 S   18/27 L
        STBC         1147                  18/24 S   18/31 D
        STBX         1120                  18/14 L   18/34
        T0              0   NOSTEXT         7/37 D   37/13 S   37/16     38/17 S   38/27
        T1              1   NOSTEXT         7/38 D   18/25     20/20 S   22/06 S   28/47 S   34/36     37/15 S
                                           13/45 S   19/38 S   20/21     23/42 S   32/16     35/04 S   37/37 S
                                           15/44 S   19/43     20/43     24/19 S   32/21 S   35/05     38/18
                                           16/10 S   19/46 S   21/34 S   24/23     34/32 S   35/08     38/32 S
                                           17/13 S   20/18 S   21/56     27/01 S   34/35 S   35/13 S
        T2              2   NOSTEXT         7/39 D   18/33 I   19/44 I   20/44     29/11 S   31/43 S   37/35 S
                                           18/15 S   19/40 S   19/47 S   27/05 S   30/42 S   31/46 S   38/53
                                           18/29     19/41     20/19 S   28/49 S   30/45 S   32/14     38/56
        T3              3   NOSTEXT         7/40 D   12/34     20/23 S   20/38 S   29/27 S   30/29     31/24     31/48 S
                                           12/28 S   18/28 S   20/26     29/16 S   29/31 S   30/35     31/27
                                           12/31     18/32     20/32     29/20 S   30/26     30/47 S   31/36
        T4              4   NOSTEXT         7/41 D   12/55     13/15     20/29     20/35     20/41     30/48     31/49
                                           12/53 S   13/07     20/25 S   20/31 S   20/37 S   30/18 S   31/16 S
        T5              5   NOSTEXT         7/42 D   12/51 S   13/01     13/09     13/17
        T6              6   NOSTEXT         7/43 D   12/54     14/29     14/49 S   15/15     21/21 S
                                           12/49 S   14/22     14/37     15/07     15/26 S   21/36
        T7              7   NOSTEXT         7/44 D   12/57     13/57     14/34     15/12     21/22 S   21/35
                                           12/47 S   13/47 S   14/13     14/50     15/27     21/29 S
        W12          1062                  11/41     17/27 L
        W12A         1074                  17/30     17/32 L
        W14          1101                  11/42     17/43 L
        W14A         1113                  17/46     17/48 L
        XCIN           20                   6/23 D    6/28      6/32      6/36      6/40      6/44      6/48      6/52
                                            6/25      6/29      6/33      6/37      6/41      6/45      6/49      6/53
                                            6/26      6/30      6/34      6/38      6/42      6/46      6/50      6/54
                                            6/27      6/31      6/35      6/39      6/43      6/47      6/51      6/55
        XC01         6000                   6/24 D    6/30      6/36      6/42      6/48      6/54     27/36
                                            6/25      6/31      6/37      6/43      6/49      6/55     33/26
                                            6/26      6/32      6/38      6/44      6/50     26/22     33/28
                                            6/27      6/33      6/39      6/45      6/51     26/24     34/41
                                            6/28      6/34      6/40      6/46      6/52     27/30     35/16
                                            6/29      6/35      6/41      6/47      6/53     27/32
        XC02         6020                   6/25 D   33/32     33/40     33/47     33/55     34/06
        XC03         6040                   6/26 D   26/26     26/28     26/30     32/18
        XC04         6060                   6/27 D
        XC05         6100                   6/28 D
        XC06         6120                   6/29 D
        XC07         6140                   6/30 D
        XC08         6160                   6/31 D
        XC09         6200                   6/32 D
        XC10         6220                   6/33 D
        XC11         6240                   6/34 D   29/37
        XC12         6260                   6/35 D
1       OIP         CTI OPER. INTERVENTION PROCESSOR - A02            COMPASS 3.7-871.     23/08/13. 15.42.20.      PAGE    44
        SYMBOLIC REFERENCE TABLE. 
  
        XC13         6300                   6/36 D   33/36     33/44     33/51     34/02     34/10
        XC14         6320                   6/37 D
        XC15         6340                   6/38 D   26/20     27/28     33/24
        XC16         6360                   6/39 D
        XC17         6400                   6/40 D
        XC18         6420                   6/41 D
        XC19         6440                   6/42 D
        XC20         6460                   6/43 D   27/40
        XC21         6500                   6/44 D
        XC22         6520                   6/45 D
        XC23         6540                   6/46 D
        XC24         6560                   6/47 D   27/44
        XC25         6600                   6/48 D
        XC26         6620                   6/49 D
        XC27         6640                   6/50 D
        XC28         6660                   6/51 D
        XC29         6700                   6/52 D
        XC30         6720                   6/53 D
        XC31         6740                   6/54 D
        XC32         6760                   6/55 D
        XLS           320                  10/44     11/28     12/27 D
        XLSX          317                  12/21     12/27 L   13/05
        YCER         7040                   7/26 D   34/41
        YCIN           24                   6/57 D    7/05      7/09      7/13      7/17      7/21     32/20
                                            7/02      7/06      7/10      7/14      7/18      7/22
                                            7/03      7/07      7/11      7/15      7/19      7/23
                                            7/04      7/08      7/12      7/16      7/20      7/24
        YCKB         7014                   7/27 D   35/16
        YC01         7730                   7/01 D    7/05      7/09      7/13      7/17      7/21     26/20
                                            7/02      7/06      7/10      7/14      7/18      7/22     27/28
                                            7/03      7/07      7/11      7/15      7/19      7/23     33/24
                                            7/04      7/08      7/12      7/16      7/20      7/24
        YC02         7704                   7/02 D
        YC03         7660                   7/03 D   26/22     27/30     33/26
        YC04         7634                   7/04 D   26/24     27/32     33/28
        YC05         7610                   7/05 D
        YC06         7564                   7/06 D   26/26     27/36     33/32     33/36
        YC07         7540                   7/07 D   26/28     27/44     33/40     33/44
        YC08         7514                   7/08 D   26/30     33/47     33/51
        YC09         7470                   7/09 D   29/37     33/55     34/02
        YC10         7444                   7/10 D   28/46     34/06     34/10
        YC11         7420                   7/11 D
        YC12         7374                   7/12 D
        YC13         7350                   7/13 D
        YC14         7324                   7/14 D
        YC15         7300                   7/15 D
        YC16         7254                   7/16 D
        YC17         7230                   7/17 D
        YC18         7204                   7/18 D
        YC19         7160                   7/19 D
        YC20         7134                   7/20 D
        YC21         7110                   7/21 D
        YC22         7064                   7/22 D
        YC23         7040                   7/23 D    7/26
        YC24         7014                   7/24 D    7/27
1       OIP         CTI OPER. INTERVENTION PROCESSOR - A02            COMPASS 3.7-871.     23/08/13. 15.42.20.      PAGE    45
        SYMBOLIC REFERENCE TABLE.                                     CPA 
  
                                                  SYMBOL QUALIFIER =  CPA 
  
  
        CMSZ         7671                  13/16 S   13/18 S   27/02     27/04
        DSPNLZ       7677                  16/30     16/51     17/16     17/49 S   32/51     33/09
                                           16/35 S   16/54 S   17/33 S   32/44     32/57     33/15
        LPPU         7702                  15/21     15/24     29/28     29/32
        LPP0         7676                  14/47     29/17
        LPP1         7677                  14/44     29/21
        OPTN         7673                  13/46     13/50     15/47     27/12     28/53
                                           13/48     14/01 S   16/13     27/18     29/03
  
  
  
  
                                                  SYMBOL QUALIFIER =  CTI 
  
  
        CDEP         7000                   9/34     10/14
        EBLP         6777                   9/56 S
        IOQALT       6002                  10/17
        IOQB         6000                  10/16
        LOAD           10                   1/16      9/36
        TRAN          100                   8/13      9/37
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMPDMS 
  
  
        NMS            10                  13/24
 AEI
1       AEI         CTI UTILITIES EXECUTIVE - A02                     COMPASS 3.7-871.     23/08/13. 15.42.23.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
  
                       6000      330              IDENT  AEI,IOQB 
                       6330      (55)             END 
  
  
  
  
                                                  IDENT  AEI,IOQB                                                AEI         2
                                                  PERIPH                                                         AEI         3
                                         VERID    MICRO  1,,*A02*                                                *A02*       1
                                         VERS     MICRO  1,,*"VERID"*                                       VERS VERS        3
                                                  COMMENT CTI UTILITIES EXECUTIVE - "VERS"                       DIMA317H    3
                                                  COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1979               DIMA317H    4
  
  
                                        *         ALL RIGHTS RESERVED                                            CDCCRN      3
                                        *                                                                        CDCCRN      4
                                        *         CONTAINED HEREIN ARE SOFTWARE PRODUCTS COPYRIGHTED             CDCCRN      5
                                        *         BY CONTROL DATA CORPORATION.  REPRODUCTION WITHOUT             CDCCRN      6
                                        *         PERMISSION IS PROHIBITED.  THE COPYRIGHT NOTICE                CDCCRN      7
                                        *         MUST APPEAR ON ALL AUTHORIZED COMPLETE OR                      CDCCRN      8
                                        *         PARTIAL COPIES.                                                CDCCRN      9
                                        *                                                                        CDCCRN     10
1       AEI         CTI UTILITIES EXECUTIVE - A02                     COMPASS 3.7-871.     23/08/13. 15.42.23.      PAGE     2
                                                                      IOQ 
  
                                        *****     AEI - UTILITIES EXECUTIVE -CTI-.                               AEI         8
                                        *                                                                        AEI         9
                                        *         R. A. MATTHEWS.          01/29/78.                             AEI        10
                                        *         R. A. TURGEON            6/19/78.                              AEI        11
                                        *                                                                        AEI        12
                                        *         AEI PROVIDES THE OPERATOR INTERFACE TO THE CTI                 AEI        13
                                        *         UTILITIES.  A DISPLAY OF THE ALTERNATIVES IS PRESENTED.        AEI        14
                                        *         WHEN THE OPERATOR RESPONDS, A CTI MODULE IS LOADED.            AEI        15
  
  
  
  
                                        ***       AEI - UTILITIES EXECUTIVE -CTI-.                               AEI        17
                                        *                                                                        AEI        18
                                        *         AEI PRESENTS THE *U* DISPLAY AND DEPENDING ON THE OPERATOR     AEI        19
                                        *         RESPONSE, WILL LOAD ONE OF THE FOLLOWING CTI MODULES...        AEI        20
                                        *         IOQ, SAD, EDD, ICD.                                            AEI        21
  
  
  
  
                                        ***       OPERATOR MESSAGES.                                             AEI        23
                                        *                                                                        AEI        24
                                        *         AEI PRESENTS THE FOLLOWING DISPLAY:                            AEI        25
                                        *                                                                        AEI        26
                                        *                                                                        AEI        27
                                        *                        *U*                                             AEI        28
                                        *                                                                        AEI        29
                                        *         (BS) - RETURN TO *A* DISPLAY                                   AEI        30
                                        *                                                                        AEI        31
                                        *           A  - ALTERNATE DEADSTART                                     AEI        32
                                        *                                                                        AEI        33
                                        *           E  - EXPRESS DEADSTART DUMP                                  AEI        34
                                        *                                                                        AEI        35
                                        *           I  - INSTALL CTI ON RMS                                      AEI        36
                                        *                                                                        AEI        37
                                        *                                                                        AEI        38
                                        *         ANY ERROR MESSAGE MAY BE CLEARED BY ENTERING A LEFT BLANK      AEI        39
                                        *         FROM THE DISPLAY CONSOLE.                                      AEI        40
  
  
  
  
                                        ***       ENTRY CONDITIONS.                                              AEI        42
                                        *                                                                        AEI        43
                                        *         AEI ASSUMES THAT IOQ PRECEDES IT ON THE CTI FILE AND THAT      AEI        44
                                        *         SAD, EDD, ICD FOLLOW IT ON THE CTI FILE.                       AEI        45
                                        *                                                                        AEI        46
                                        *         CTI INTERNAL STATE IS IN EFFECT.                               AEI        47
1       AEI         CTI UTILITIES EXECUTIVE - A02                     COMPASS 3.7-871.     23/08/13. 15.42.23.      PAGE     3
  
  
                                        ***       EXIT CONDITIONS.                                               AEI        49
                                        *                                                                        AEI        50
                                        *         CTI INTERNAL STATE IS IN EFFECT.                               AEI        51
1       AEI         CTI UTILITIES EXECUTIVE - A02                     COMPASS 3.7-871.     23/08/13. 15.42.23.      PAGE     4
        DEFINITIONS.
  
                                        **        DEADSTART PANEL WORDS.                                         AEI        53
                                        *                                                                        AEI        54
                                        *         WORDS 5 - 20B OF THE DEADSTART PANEL MUST REMAIN INTACT        AEI        55
                                        *         DURING CTI EXECUTION. WORDS 0 - 4 MAY BE USED AS SCRATCH       AEI        56
                                        *         DIRECT CELLS.                                                  AEI        57
                                                                                                                 AEI        58
                                                                                                                 AEI        59
                                   0     D0       EQU    0                 SCRATCH                               AEI        60
                                   1     D1       EQU    1                 SCRATCH                               AEI        61
                                   2     D2       EQU    2                 SCRATCH                               AEI        62
                                   3     D3       EQU    3                 SCRATCH                               AEI        63
                                   4     D4       EQU    4                 SCRATCH                               AEI        64
                                   5     D5       EQU    5                 ZERO IF TAPE DEADSTART                AEI        65
                                   6     D6       EQU    6                 FUNCTION WORD                         AEI        66
                                        *         (D6) = WARMSTART FUNCTION, IF MTS/ATS.                         AEI        67
                                        *              = DEADSTART FUNCTION, IF 844/885 DISK                     AEI        68
                                   7     D7       EQU    7                 RESERVED                              AEI        69
                                        *         (D7) = 1400B IF 3000 TYPE TAPE.                                AEI        70
                                  10     D10      EQU    10B               RESERVED                              AEI        71
                                  11     D11      EQU    11B               RESERVED                              AEI        72
                                  12     D12      EQU    12B               MSL PARAMETERS                        AEI        73
                                  13     D13      EQU    13B               OS PARAMETERS                         AEI        74
                                  14     D14      EQU    14B               OS PARAMETERS                         AEI        75
                                  15     D15      EQU    15B               UNUSED                                AEI        76
                                  16     D16      EQU    16B               C80/A170 RESERVED                     AEI        77
                                  17     D17      EQU    17B               RESERVED                              AEI        78
                                  20     D20      EQU    20B               RESERVED                              AEI        79
  
  
  
  
                                        **        INSTRUCTION EQUATES.                                           AEI        81
                                        *                                                                        AEI        82
                                                                                                                 AEI        83
                                                                                                                 AEI        84
                                   0     PSNC     EQU    0000B             PASS                                  AEI        85
                                 300     UJNC     EQU    0300B             UNCONDITIONAL JUMP                    AEI        86
                                 400     ZJNC     EQU    0400B             ZERO JUMP                             AEI        87
                                1000     SHNC     EQU    1000B             SHIFT                                 AEI        88
                                1500     LCNC     EQU    1500B             LOAD COMPLEMENT                       AEI        89
                                1700     SBNC     EQU    1700B             SUBTRACT NO-ADDRESS                   AEI        90
                                2000     LDCC     EQU    2000B             LOAD CONSTANT                         AEI        91
                                2100     ADCC     EQU    2100B             ADD CONSTANT                          AEI        92
                                2300     LMCC     EQU    2300B             LOGICAL MINUS CONSTANT                AEI        93
                                3000     LDDC     EQU    3000B             LOAD DIRECT                           AEI        94
                                6400     AJMC     EQU    6400B             ACTIVE JUMP                           AEI        95
                                7100     IAMC     EQU    7100B             INPUT MEMORY                          AEI        96
                                7300     OAMC     EQU    7300B             OUTPUT MEMORY                         AEI        97
                                7400     ACNC     EQU    7400B             ACTIVATE CHANNEL                      AEI        98
                                7500     DCNC     EQU    7500B             DISCONNECT CHANNEL                    AEI        99
1       AEI         CTI UTILITIES EXECUTIVE - A02                     COMPASS 3.7-871.     23/08/13. 15.42.23.      PAGE     5
        DEFINITIONS.
  
                                        **        MISCELLANEOUS DEFINITIONS                                      AEI       101
                                        *                                                                        AEI       102
                                        *                                                                        AEI       103
                                                                                                                 AEI       104
                                   0     QUAL$    EQU    0                 DON-T QUALIFY COMMON DECKS            AEI       105
                                   0     DEBUG    EQU    0                                                       AEI       106
  
  
  
  
                                        **        DISPLAY CONTROLLER DEFINITIONS.                                AEI       108
                                        *                                                                        AEI       109
                                        *                                                                        AEI       110
                                                                                                                 AEI       111
                                                                                                                 AEI       112
                                  10     CHD      EQU    10B               DISPLAY CHANNEL                       AEI       113
                                                                                                                 AEI       114
                                        *         DISPLAY FUNCTION CODES.                                        AEI       115
                                                                                                                 AEI       116
                                7000     F.SEL    EQU    7000B             SELECT CONSOLE DISPLAY                AEI       117
                                                                                                                 AEI       118
                                   0     F.SLS    EQU    0000B             SELECT CONSOLE LEFT SCREEN            AEI       119
                                 100     F.SRS    EQU    0100B             SELECT CONSOLE RIGHT SCREEN           AEI       120
                                 200     F.SBS    EQU    0200B             SELECT CONSOLE BOTH SCREEN            AEI       121
                                                                                                                 AEI       122
                                   0     F.CHR    EQU    0000B             SELECT DOT MODE                       AEI       123
                                  10     F.DOT    EQU    0010B             SELECT DOT MODE                       AEI       124
                                  20     F.KEY    EQU    0020B             SELECT KEYBOARD INPUT                 AEI       125
                                                                                                                 AEI       126
                                   0     F.CHS    EQU    0000B             SET CHARACTER SIZE SMALL              AEI       127
                                   1     F.CHM    EQU    0001B             SET CHARACTER SIZE MEDIUM             AEI       128
                                   2     F.CHL    EQU    0002B             SET CHARACTER SIZE LARGE              AEI       129
                                                                                                                 AEI       130
                                        *         COORDINATE DESIGNATION.                                        AEI       131
                                                                                                                 AEI       132
                                6000     XSET     EQU    6000B             SET X COORDINATE                      AEI       133
                                7000     YSET     EQU    7000B             SET Y COORDINATE                      AEI       134
1       AEI         CTI UTILITIES EXECUTIVE - A02                     COMPASS 3.7-871.     23/08/13. 15.42.23.      PAGE     6
        DEFINITION COMMON DECKS.
  
                                        **        DEFINITION COMMON DECKS.                                       AEI       137
                                        *                                                                        AEI       138
                                        **        ALL SYMBOL AND MACRO DEFINITION COMMON DECKS ARE CALLED HERE.  AEI       139
                                                                                                                 AEI       140
                                                                                                                 AEI       141
           0                             CTI      CTEXT  COMPCTI - CTI COMMON MACROES.                           COMPCTI     2
           0                             CPA      CTEXT  COMSCPA - CTI COMMON POINTER AREA DEFINITIONS.          COMSCPA     2
           0                             CTI      CTEXT  COMSCTI - CTI INTERNAL DEFINITIONS.                     COMSCTI     2
1       AEI         CTI UTILITIES EXECUTIVE - A02                     COMPASS 3.7-871.     23/08/13. 15.42.23.      PAGE     7
        AEI - MAIN ROUTINE. 
  
        6000                                      ORG    IOQB                                                    AEI       146
  
  
  
  
                                        ***       AEI - UTILITIES EXECUTIVE FOR CTI.                             AEI       148
                                        *                                                                        AEI       149
                                        *         AEI PRESENTS THE *U* DISPLAY AND WAITS FOR A VALID             AEI       150
                                        *         OPERATOR RESPONSE.  WHEN IT COMES, A RELATED CTI               AEI       151
                                        *         MODULE IS LOADED AS FOLLOWS...                                 AEI       152
                                        *                                                                        AEI       153
                                        *         (BS) - IOQ  (ALTERNATE ENTRY POINT)                            AEI       154
                                        *         S  -  SAD                                                      AEI       155
                                        *           E  - EDD                                                     AEI       156
                                        *           I  - ICD                                                     AEI       157
                                        *                                                                        AEI       158
  
  
  
  
                                6000     AEI      EQU    *                 ENTRY POINT                           AEI       160
                                                                                                                 AEI       161
        6000         0200 6224           AEI1     RJM    FDC               FREE DISPLAY CHANNEL                  AEI       162
                                                                                                                 AEI       163
        6002         0200 6205           AEI2     RJM    DOP               DISPLAY OPTIONS                       AEI       164
        6004         0200 6272                    RJM    PKI               PROCESS KEYBOARD INPUT                AEI       165
        6006         0473                         ZJN    AEI2              IF NO ENTRY OR ERROR                  AEI       166
        6007         5003 0001                    LDM    ORTX,D3           GET ROUTINE ADDRESS                   AEI       167
        6011         5400 6014                    STM    AEIA                                                    AEI       168
        6013         0100 0000                    LJM    **                GO TO APPROPRIATE ROUTINE             AEI       169
                                6014     AEIA     EQU    *-1                                                     AEI       170
  
  
  
  
                                        *         OPERATOR ENTERED (BS)                                          AEI       172
                                                                                                                 AEI       173
                                6015     XXB      EQU    *                                                       AEI       174
        6015         0100 6241                    LJM    LCM               GO LOAD IOQ                           AEI       175
  
  
  
  
                                        *         OPERATOR ENTERED S                                             AEI       177
                                                                                                                 AEI       178
                                6017     XXA      EQU    *                                                       AEI       179
        6017         0100 6241                    LJM    LCM               GO LOAD SAD                           AEI       180
1       AEI         CTI UTILITIES EXECUTIVE - A02                     COMPASS 3.7-871.     23/08/13. 15.42.23.      PAGE     8
        AEI - MAIN ROUTINE. 
  
                                        *         OPERATOR ENTERED E                                             AEI       182
                                                                                                                 AEI       183
                                6021     XXE      EQU    *                                                       AEI       184
        6021         0100 6241                    LJM    LCM               GO LOAD EDD                           AEI       185
  
  
  
  
                                        *         OPERATOR ENTERED I                                             AEI       187
                                                                                                                 AEI       188
                                6023     XXI      EQU    *                                                       AEI       189
        6023         0100 6241                    LJM    LCM               GO LOAD ICD                           AEI       190
1       AEI         CTI UTILITIES EXECUTIVE - A02                     COMPASS 3.7-871.     23/08/13. 15.42.23.      PAGE     9
        INITIAL DISPLAY BUFFER *A*
  
                                        **        DOO - DISPLAY OPERATOR OPTIONS BUFFER.                         AEI       192
                                        *                                                                        AEI       193
                                        *         THE DISPLAY OPERATOR OPTIONS BUFFER CONTAINS THE ENTIRE        AEI       194
                                        *         INITIAL OPERATOR DISPLAY WITH THE POSSIBLE INCLUSION OF AN     AEI       195
                                        *         ERROR MESSAGE.                                                 AEI       196
                                                                                                                 AEI       197
                                  22     DOPLS    EQU    22B               LINE (Y COOR) INCREMENT               AEI       198
                                                                                                                 AEI       199
                                6025     DOO      EQU    *                 START OF BUFFER                       AEI       200
                                                                                                                 AEI       201
                                   5     LINE     SET    5                 FIRST LINE                            AEI       202
        6025         7630                         CON    YSET+762B-LINE*DOPLS                                    AEI       203
        6026         6000                         CON    XSET+0                                                  AEI       204
        6027         5555                         DATA   H/             *U*/                                     AEI       205
                                                                                                                 AEI       206
                                  10     LINE     SET    LINE+3                                                  AEI       207
        6037         7542                         CON    YSET+762B-LINE*DOPLS                                    AEI       208
        6040         6000                         CON    XSET+0                                                  AEI       209
        6041         5102                         DATA   H/(BS) - RETURN TO *A* DISPLAY/                         AEI       210
                                                                                                                 AEI       211
                                  13     LINE     SET    LINE+3                                                  AEI       212
        6057         7454                         CON    YSET+762B-LINE*DOPLS                                    AEI       213
        6060         6000                         CON    XSET+0                                                  AEI       214
        6061         5555                         DATA   H/  S - ALTERNATE DEADSTART/                            AEI       215
                                                                                                                 AEI       216
                                  16     LINE     SET    LINE+3                                                  AEI       217
        6076         7366                         CON    YSET+762B-LINE*DOPLS                                    AEI       218
        6077         6000                         CON    XSET+0                                                  AEI       219
        6100         5555                         DATA   H/  E  - EXPRESS DEADSTART DUMP/                        AEI       220
                                                                                                                 AEI       221
                                  21     LINE     SET    LINE+3                                                  AEI       222
        6117         7300                         CON    YSET+762B-LINE*DOPLS                                    AEI       223
        6120         6000                         CON    XSET+0                                                  AEI       224
        6121         5555                         DATA   H/  I  - INSTALL CTI ON RMS/                            AEI       225
                                                                                                                 AEI       226
                                 111     DOOL     EQU    *-DOO             BUFFER LENGTH IF NO ERROR MSG         AEI       227
                                                                                                                 AEI       228
                                  27     LINE     SET    LINE+6                                                  AEI       229
        6136         7124                         CON    YSET+762B-LINE*DOPLS                                    AEI       230
        6137         6000                         CON    XSET+0                                                  AEI       231
        6140         1116                         DATA   H*INVALID OPTION*                                       AEI       232
                                                                                                                 AEI       233
                                 122     DOOLE    EQU    *-DOO             BUFFER LENGTH IF ERROR MSG            AEI       234
1       AEI         CTI UTILITIES EXECUTIVE - A02                     COMPASS 3.7-871.     23/08/13. 15.42.23.      PAGE    10
        OPERATOR RESPONSE TABLE 
  
                                        **        TABLE OF VALID OPERATOR RESPONSES                              AEI       236
                                        *                                                                        AEI       237
                                        *         THIS TABLE HAS ONE ENTRY FOR EACH VALID OPERATOR RESPONSE      AEI       238
                                        *         IT INCLUDES THE CORRESPONDING PARAMETER BLOCKS PASSED TO       AEI       239
                                        *         THE COMMON DRIVER TO LOAD THE APPROPRIATE MODULE.              AEI       240
                                        *                                                                        AEI       241
                                                                                                                 AEI       242
                                6147     ORT      EQU    *                 START OF TABLE                        AEI       243
                                   1     ORTX     EQU    1                 OFFSET OF ADDRESS OF ASSOC. ROUTINE   AEI       244
                                   2     ORTP     EQU    2                 OFFSET OF PARAMETER BLOCK             AEI       245
                                   7     ORTS     EQU    7                 SIZE OF EACH TABLE ENTRY              AEI       246
                                                                                                                 AEI       247
                                        *         RETURN TO *A* DISPLAY                                          AEI       248
                                                                                                                 AEI       249
        6147         0061                         CON    61B               (BS)                                  AEI       250
        6150         6015                         CON    XXB                                                     AEI       251
        6151         6000                         CON    IOQB              IOQB ADDRESS FOR IOQ                  AEI       252
        6152         6002                         CON    IOQALT            TRANSFER ADDRESS FOR IOQ              AEI       253
        6153         0001                         CON    1                 REWIND FIRST                          AEI       254
        6154         1117                         VFD    18/3LIOQ,6/0                                            AEI       255
        6155         2100 
                                                                                                                 AEI       256
                                        *         ALTERNATE DEADSTART                                            AEI       257
                                                                                                                 AEI       258
        6156         0023                         CON    1RS         S                                           AEI       259
        6157         6017                         CON    XXA                                                     AEI       260
        6160         0100                         CON    TRAN                                                    AEI       261
        6161         0100                         CON    TRAN                                                    AEI       262
        6162         0000                         CON    0                                                       AEI       263
        6163         2301                         VFD    18/3LSAD,6/0                                            AEI       264
        6164         0400 
                                                                                                                 AEI       265
                                        *         EXPRESS DEADSTART DUMP                                         AEI       266
                                                                                                                 AEI       267
        6165         0005                         CON    1RE               E                                     AEI       268
        6166         6021                         CON    XXE                                                     AEI       269
        6167         6000                         CON    IPLB                                                    AEI       270
        6170         6000                         CON    IPLB                                                    AEI       271
        6171         0000                         CON    0                                                       AEI       272
        6172         0504                         VFD    18/3LEDD,6/0                                            AEI       273
        6173         0400 
                                                                                                                 AEI       274
                                        *         INSTALL CTI ON RMS                                             AEI       275
                                                                                                                 AEI       276
        6174         0011                         CON    1RI               I                                     AEI       277
        6175         6023                         CON    XXI                                                     AEI       278
        6176         0150                         CON    ICDLOAD                                                 AEI       279
        6177         0150                         CON    ICDLOAD                                                 AEI       280
        6200         0000                         CON    0                                                       AEI       281
        6201         1103                         VFD    18/3LICD,6/0                                            AEI       282
        6202         0400 
                                                                                                                 AEI       283
                                                                                                                 AEI       284
        6203         0000                EOT      CON    0                  END OF TABLE MARKER                  AEI       285
1       AEI         CTI UTILITIES EXECUTIVE - A02                     COMPASS 3.7-871.     23/08/13. 15.42.23.      PAGE    11
        SUBROUTINES.                                                  DOP 
  
                                        **        DOP - DISPLAY OPTIONS.                                         AEI       288
                                        *                                                                        AEI       289
                                        *         DOP DISPLAYS THE OPERATOR OPTIONS AND                          AEI       290
                                        *         POSSIBLY AN ERROR MESSAGE.                                     AEI       291
                                        *                                                                        AEI       292
                                        *         ENTRY  (DOPL) = LENGTH TO DISPLAY.                             AEI       293
                                        *                                                                        AEI       294
                                                                                                                 AEI       295
        6204         0100 0000           DOP      ENM    X                 ENTRY/EXIT                            AEI       296
                                                                                                                 AEI       297
                                        *         FUNCTION DISPLAY CONSOLE AND OUTPUT INITIAL OPTIONS.           AEI       298
                                                                                                                 AEI       299
        6206         7710 7001                    FNC    F.SEL+F.SLS+F.CHR+F.CHM,CHD                             AEI       300
        6210         7410                         ACN    CHD                                                     AEI       301
        6211         2000 0111                    LDC    DOOL              LENGTH OF DISPLAY BUFFER              AEI       302
                                6212     DOPL     EQU    *-1                                                     AEI       303
        6213         7310 6025                    OAM    DOO,CHD           DISPLAY INITIAL OPTIONS               AEI       304
        6215         6610 6215                    FJM    *,CHD                                                   AEI       305
        6217         7510                         DCN    CHD                                                     AEI       306
        6220         1740                         SBN    40B         DISPLAY REFRESH DELAY                       AEI       307
        6221         0776                         MJN    *-1                                                     AEI       308
        6222         0361                         UJN    DOPX              RETURN                                AEI       309
  
  
  
  
                                        **        FDC - FREE DISPLAY CHANNEL                                     AEI       311
                                        *                                                                        AEI       312
                                        *         FDC HANGS PP 10 ON CHANNEL 12B.                                AEI       313
                                        *                                                                        AEI       314
                                                                                                                 AEI       315
        6223         0100 0000           FDC      ENM    X                 ENTRY/EXIT                            AEI       316
        6225         7412                         ACN    12B                                                     AEI       317
        6226         1404                         LDN    FDCL              LENGTH OF IDLE PROGRAM                AEI       318
        6227         7310 6235                    OAM    FDCA,CHD          SEND IDLE PROGRAM                     AEI       319
        6231         6610 6231                    FJM    *,CHD                                                   AEI       320
        6233         7510                         DCN    CHD                                                     AEI       321
        6234         0366                         UJN    FDCX              RETURN                                AEI       322
                                                                                                                 AEI       323
        6235         0000                FDCA     CON    DEBUG             PP 10 PROGRAM                         AEI       324
        6236                                      BSSZ   DEBUG                                                   AEI       325
        6236         1400                         LDN    0                                                       AEI       326
        6237         7112 0000           FDCB     IAM    0,12B             READ NEW PROGRAM                      AEI       327
                                                  IFGT   DEBUG,0,3                                               AEI       328
                                   4     FDCL     EQU    *-FDCA            LENGTH OF IDLE PROGRAM                AEI       332
1       AEI         CTI UTILITIES EXECUTIVE - A02                     COMPASS 3.7-871.     23/08/13. 15.42.23.      PAGE    12
        SUBROUTINES.
  
                                        **        LCM - LOAD CTI MODULE                                          AEI       334
                                        *                                                                        AEI       335
                                        *         LCM RETURNS PP 10 TO THE DEADSTART STATE AND CALLS THE         AEI       336
                                        *         COMMON DRIVER TO LOAD A CTI MODULE.                            AEI       337
                                        *                                                                        AEI       338
                                        *         ENTRY  (D3) = ADDRESS OF ORT ENTRY                             AEI       339
                                        *                                                                        AEI       340
                                        *         NO EXIT. CONTROL GOES TO MODULE LOADED.                        AEI       341
                                        *                                                                        AEI       342
                                                                                                                 AEI       343
                                6241     LCM      EQU    *                                                       AEI       344
        6241         7710 0000                    FNC    0,CHD             GET DISPLAY OFF CHAN 10               AEI       345
        6243         1477                         LDN    77B                                                     AEI       346
        6244         1701                         SBN    1                 WAIT A WHILE                          AEI       347
        6245         0576                         NJN    *-1                                                     AEI       348
        6246         6510 6251                    IJM    LCM3,CHD                                                AEI       349
        6250         7510                         DCN    CHD                                                     AEI       350
                                                                                                                 AEI       351
        6251         7410                LCM3     ACN    CHD               PREPARE CHANNEL                       AEI       352
        6252         1404                         LDN    LCML              PP 10 IS ON CHANNEL 12B               AEI       353
        6253         7312 6264                    OAM    LCMA,12B                                                AEI       354
        6255         6612 6255                    FJM    *,12B                                                   AEI       355
        6257         7512                         DCN    12B                                                     AEI       356
                                                                                                                 AEI       357
                                        *         GO TO CTI MODULE                                               AEI       358
                                                                                                                 AEI       359
        6260         3003                         LDD    D3                                                      AEI       360
        6261         1602                         ADN    ORTP              (A) = ADDRESS OF PARAMETERS           AEI       361
        6262         0100 7000                    LJM    CDEP              GO TO COMMON DRIVER                   AEI       362
  
  
        6264         0000                LCMA     CON    DEBUG             PP 10 PROGRAM                         AEI       364
        6265                                      BSSZ   DEBUG                                                   AEI       365
        6265         1400                         LDN    0                                                       AEI       366
        6266         7110 0000                    IAM    0,CHD                                                   AEI       367
                                                  IFGT   DEBUG,0,3                                               AEI       368
                                   4     LCML     EQU    *-LCMA            LENGTH OF PROGRAM                     AEI       372
  
  
  
  
                                        **        PKI - PROCESS KEYBOARD INPUT.                                  AEI       374
                                        *                                                                        AEI       375
                                        *         PKI FUNCTIONS THE DISPLAY CONSOLE FOR KEYBOARD INPUT, AND      AEI       376
                                        *         CHECKS THE INPUT AGAINST THE VALID OPERATOR                    AEI       377
                                        *         RESPONSES. IF NO INPUT HAS BEEN ENTERED, PKI RETURNS WITH      AEI       378
                                        *         (A) ZERO. IF THE INPUT DOES NOT MATCH A VALID OPTION, (A)      AEI       379
                                        *         IS ZERO AND AN ERROR MESSAGE HAS BEEN ACTIVATED. IF A          AEI       380
                                        *         VALID OPTION IS FOUND, (A) IS THE FIRST WORD ADDRESS OF THE    AEI       381
                                        *         ORT ENTRY.                                                     AEI       382
                                        *                                                                        AEI       383
                                        *         EXIT   (A) = 0, NO INPUT OR INPUT IN ERROR.                    AEI       384
                                        *                (A) .NE. 0, FWA OF ORT ENTRY SELECTED.                  AEI       385
                                        *                (D3) = FWA OF ORT ENTRY IF VALID ENTRY                  AEI       386
                                        *                                                                        AEI       387
                                                                                                                 AEI       388
        6270         3003                PKI1     LDD    D3                VALID OPTION ADDRESS                  AEI       389
1       AEI         CTI UTILITIES EXECUTIVE - A02                     COMPASS 3.7-871.     23/08/13. 15.42.23.      PAGE    13
        SUBROUTINES.                                                  PKI 
  
                                                                                                                 AEI       390
                                                                                                                 AEI       391
        6271         0100 0000           PKI      ENM    X                 ENTRY/EXIT                            AEI       392
        6273         7710 7020                    FNC    F.SEL+F.KEY,CHD   GET INPUT                             AEI       393
        6275         7410                         ACN    CHD                                                     AEI       394
        6276         7010                         IAN    CHD               READ KEYBOARD                         AEI       395
        6277         7510                         DCN    CHD                                                     AEI       396
        6300         0470                         ZJN    PKIX              IF NO INPUT, RETURN                   AEI       397
        6301         3402                         STD    D2                SAVE ENTRY                            AEI       398
        6302         2000 6147                    LDC    ORT               ADDRESS OF OPERATOR RESP TBL          AEI       399
        6304         3403                         STD    D3                                                      AEI       400
        6305         4003                PKI2     LDI    D3                LOAD TABLE VALUE                      AEI       401
        6306         0406                         ZJN    PKI4              IF END OF TABLE REACHED               AEI       402
        6307         3202                         SBD    D2                                                      AEI       403
        6310         0457                         ZJN    PKI1              IF VALID OPTION FOUND                 AEI       404
        6311         1407                         LDN    ORTS                                                    AEI       405
        6312         3503                         RAD    D3                ADVANCE TABLE POINTER                 AEI       406
        6313         0371                         UJN    PKI2                                                    AEI       407
        6314         3002                PKI4     LDD    D2                                                      AEI       408
        6315         1753                         SBN    53B                                                     AEI       409
        6316         0407                         ZJN    PKI6              IF LEFT BLANK                         AEI       410
        6317         2000 0122                    LDC    DOOLE             SET MSG LENGTH FOR ERROR              AEI       411
        6321         5400 6212           PKI5     STM    DOPL                                                    AEI       412
        6323         1400                         LDN    0                                                       AEI       413
        6324         0344                         UJN    PKIX              RETURN                                AEI       414
                                                                                                                 AEI       415
                                        *         LEFT BLANK 53B DETECTED. CLEAR ERROR MESSAGE.                  AEI       416
                                                                                                                 AEI       417
        6325         2000 0111           PKI6     LDC    DOOL              SET MSG LENGTH FOR NO ERROR           AEI       418
        6327         0371                         UJN    PKI5                                                    AEI       419
  
  
  
  
                                        *         OVERFLOW CHECK.                                                AEI       421
                                                                                                                 AEI       422
                                 443              ERRNG  CTIFWA-*          TOO BIG                               AEI       423
                                                                                                                 AEI       424
                                                                                                                 AEI       425
        6330                                      END                                                            AEI       426
  
                             53500B CM  STORAGE USED              559 STATEMENTS      167 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.486 SECONDS         206 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ACNC         7400                   4/49 D
        ADCC         2100                   4/43 D
        AEI          6000                   7/21 D
        AEIA         6014                   7/29 S    7/31 D
        AEI1         6000                   7/23 L
        AEI2         6002                   7/25 L    7/27
        AJMC         6400                   4/46 D
        CDEP         7000                  12/29
1       AEI         CTI UTILITIES EXECUTIVE - A02                     COMPASS 3.7-871.     23/08/13. 15.42.23.      PAGE    14
        SYMBOLIC REFERENCE TABLE. 
  
        CHD            10                   5/16 D   11/17     11/35     12/12     12/19     13/05
                                           11/13     11/18     11/36     12/16     12/35     13/06
                                           11/14     11/19     11/37     12/17     13/04     13/07
        CTIFWA       6773                  13/37
        DCNC         7500                   4/50 D
        DEBUG           0                   5/06 D   11/40     11/41     12/32     12/33
        DOO          6025                   9/09 D    9/36      9/43     11/17
        DOOL          111                   9/36 D   11/15     13/29
        DOOLE         122                   9/43 D   13/22
        DOP          6205                   7/25     11/09 D
        DOPL         6212                  11/16 D   13/23 S
        DOPLS          22                   9/07 D    9/12      9/17      9/22      9/27      9/32      9/39
        DOPX         6204                  11/09 L   11/22
        D0              0                   4/08 D
        D1              1                   4/09 D
        D10            10                   4/19 D
        D11            11                   4/20 D
        D12            12                   4/21 D
        D13            13                   4/22 D
        D14            14                   4/23 D
        D15            15                   4/24 D
        D16            16                   4/25 D
        D17            17                   4/26 D
        D2              2                   4/10 D   13/09 S   13/14     13/19
        D20            20                   4/27 D
        D3              3                   4/11 D    7/28     12/27     12/57     13/11 S   13/12     13/17 S
        D4              4                   4/12 D
        D5              5                   4/13 D
        D6              6                   4/14 D
        D7              7                   4/17 D
        EOT          6203                  10/54 L
        FDC          6224                   7/23     11/32 D
        FDCA         6235                  11/35     11/40 L   11/45
        FDCB         6237                  11/43 L
        FDCL            4                  11/34     11/45 D
        FDCX         6223                  11/32 L   11/38
        F.CHL           2                   5/32 D
        F.CHM           1                   5/31 D   11/13
        F.CHR           0                   5/26 D   11/13
        F.CHS           0                   5/30 D
        F.DOT          10                   5/27 D
        F.KEY          20                   5/28 D   13/04
        F.SBS         200                   5/24 D
        F.SEL        7000                   5/20 D   11/13     13/04
        F.SLS           0                   5/22 D   11/13
        F.SRS         100                   5/23 D
        IAMC         7100                   4/47 D
        ICDLOAD       150                  10/47     10/48
        IOQALT       6002                  10/18
        IOQB         6000                   1/10      7/01     10/17
        IPLB         6000                  10/37     10/38
        LCM          6241                   7/39      7/47      8/04      8/12     12/11 D
        LCMA         6264                  12/21     12/32 L   12/37
        LCML            4                  12/20     12/37 D
        LCM3         6251                  12/16     12/19 L
        LCNC         1500                   4/40 D
        LDCC         2000                   4/42 D
1       AEI         CTI UTILITIES EXECUTIVE - A02                     COMPASS 3.7-871.     23/08/13. 15.42.23.      PAGE    15
        SYMBOLIC REFERENCE TABLE. 
  
        LDDC         3000                   4/45 D
        LINE           27                   9/11 D    9/16 D    9/21 D    9/26 D    9/31 D    9/38 D
                                            9/12      9/17      9/22      9/27      9/32      9/39
                                            9/16      9/21      9/26      9/31      9/38
        LMCC         2300                   4/44 D
        OAMC         7300                   4/48 D
        ORT          6147                  10/08 D   13/10
        ORTP            2                  10/10 D   12/28
        ORTS            7                  10/11 D   13/16
        ORTX            1                   7/28     10/09 D
        PKI          6272                   7/26     13/03 D
        PKIX         6271                  13/03 L   13/08     13/25
        PKI1         6270                  12/57 L   13/15
        PKI2         6305                  13/12 L   13/18
        PKI4         6314                  13/13     13/19 L
        PKI5         6321                  13/23 L   13/30
        PKI6         6325                  13/21     13/29 L
        PSNC            0                   4/36 D
        QUAL$           0                   5/05 D
        SBNC         1700                   4/41 D
        SHNC         1000                   4/39 D
        TRAN          100                  10/27     10/28
        UJNC          300                   4/37 D
        XSET         6000                   5/36 D    9/13      9/18      9/23      9/28      9/33      9/40
        XXA          6017                   7/46 D   10/26
        XXB          6015                   7/38 D   10/16
        XXE          6021                   8/03 D   10/36
        XXI          6023                   8/11 D   10/46
        YSET         7000                   5/37 D    9/12      9/17      9/22      9/27      9/32      9/39
        ZJNC          400                   4/38 D
 ICD
1       ICD         CTI INSTALL CTI ON DISK - A02                     COMPASS 3.7-871.     23/08/13. 15.42.23.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
  
                        150     2223              IDENT  ICD,/CTI/ICDLOAD 
                       2373     (354) 
  
  
  
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                        150      747              IDENT  ICE,/CTI/ICDLOAD 
                       1117     (143)             END 
  
  
  
  
                                                  IDENT  ICD,/CTI/ICDLOAD                                        ICD         2
                                                  PERIPH                                                         ICD         3
                                         VERID    MICRO  1,,*A02*                                                *A02*       1
                                         VERS     MICRO  1,,*"VERID"*                                       VERS VERS        3
                                                  COMMENT CTI INSTALL CTI ON DISK - "VERS"                       DIMA317I    3
                                                  COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1979               DIMA317I    4
  
  
                                        *         ALL RIGHTS RESERVED                                            CDCCRN      3
                                        *                                                                        CDCCRN      4
                                        *         CONTAINED HEREIN ARE SOFTWARE PRODUCTS COPYRIGHTED             CDCCRN      5
                                        *         BY CONTROL DATA CORPORATION.  REPRODUCTION WITHOUT             CDCCRN      6
                                        *         PERMISSION IS PROHIBITED.  THE COPYRIGHT NOTICE                CDCCRN      7
                                        *         MUST APPEAR ON ALL AUTHORIZED COMPLETE OR                      CDCCRN      8
                                        *         PARTIAL COPIES.                                                CDCCRN      9
                                        *                                                                        CDCCRN     10
1       ICD         CTI INSTALL CTI ON DISK - A02                     COMPASS 3.7-871.     23/08/13. 15.42.23.      PAGE     2
                                                                      SAD 
  
                                        *****     ICD - INSTALL CTI ON DISK. CTI.                                ICD         8
                                        *                                                                        ICD         9
                                        *         R. A. TURGEON                06/26/78.                         ICD        10
                                        *                                                                        ICD        11
                                        *         ICD INSTALLS THE CTI PACKAGE ONTO AN 844 OR 885 RMS            ICD        12
                                        *         DEVICE AT 2 TO 1 INTERLACE FROM ANY DEADSTART DEVICE.          ICD        13
  
  
  
  
                                        ***       ICD - INSTALL CTI ON DISK. CTI.                                ICD        15
                                        *                                                                        ICD        16
                                        *                                                                        ICD        17
                                        *         ICD PROVIDES TWO MAIN OPTIONS.                                 ICD        18
                                        *                                                                        ICD        19
                                        *   1.    INSTALL CTI ON AN RMS DEVICE.                                  ICD        20
                                        *         ICD WILL GET A CONNECT CODE FROM THE OPERATOR AND              ICD        21
                                        *         THEN WRITE A NEW DEADSTART SECTOR AND COPY ALL OF              ICD        22
                                        *         THE CTI MODULES TO THE CTI CYLINDER.  THE FIRST                ICD        23
                                        *         MODULE WILL BE IPL AND THE LAST WILL BE ZZZ.                   ICD        24
                                        *         THE ADDRESS OF THE FIRST MODULE WILL BE KEPT IN                ICD        25
                                        *         CTI WORD 2 OF THE COMMON POINTER AREA.  THE ADDRESS            ICD        26
                                        *         OF THE FIRST MODULE WHICH IPL WILL LOAD WHEN DEADSTART         ICD        27
                                        *         OCCURS IS KEPT IN CTI WORD 1 OF THE COMMON POINTER             ICD        28
                                        *         AREA.                                                          ICD        29
                                        *                                                                        ICD        30
                                        *   2.    RELEASE CMSE-RESERVED SPACE.                                   ICD        31
                                        *         ICD WILL GET A CONNECT CODE FROM THE OPERATOR AND              ICD        32
                                        *         THEN READ THE CURRENT DEADSTART SECTOR, ZERO-OUT               ICD        33
                                        *         THE CMSE AND DDS AND CTI WORDS OF THE COMMON                   ICD        34
                                        *         POINTER AREA, AND THEN REWRITE THE DEADSTART SECTOR.           ICD        35
                                        *                                                                        ICD        36
                                        *         WHEN THE INSTALL OPTION HAS BEEN SELECTED,                     ICD        37
                                        *         THE OVERLAY *ICE* IS USED TO BUILD THE CTI CYLINDER.           ICD        38
  
  
  
  
                                        *         SPECIAL NOTE ON 885 DEADSTART SECTOR READS/WRITES              ICD        40
                                        *                                                                        ICD        41
                                        *         THE FOLLOWING SYMBOL INDICATES WHETHER OR NOT THE              ICD        42
                                        *         DEADSTART SECTOR ON AN 885 IS IN A FLAWED TRACK.               ICD        43
                                                                                                                 ICD        44
                                   0     DSIFT    EQU    0                 D.S. SECTOR NOT IN FLAWED TRACK       ICD        45
                                        *         EQU    1                 D.S. SECTOR IN FLAWED TRACK           ICD        46
1       ICD         CTI INSTALL CTI ON DISK - A02                     COMPASS 3.7-871.     23/08/13. 15.42.23.      PAGE     3
        DEFINITIONS.
  
                                        **        DEADSTART PANEL WORDS.                                         ICD        48
                                        *                                                                        ICD        49
                                        *         WORDS 5 - 20B OF THE DEADSTART PANEL MUST REMAIN INTACT        ICD        50
                                        *         DURING CTI EXECUTION. WORDS 0 - 4 MAY BE USED AS SCRATCH       ICD        51
                                        *         DIRECT CELLS.                                                  ICD        52
                                   0     D0       EQU    0                 SCRATCH                               ICD        53
                                   1     D1       EQU    1                 SCRATCH                               ICD        54
                                   2     D2       EQU    2                 SCRATCH                               ICD        55
                                   3     D3       EQU    3                 SCRATCH                               ICD        56
                                   4     D4       EQU    4                 SCRATCH                               ICD        57
                                   5     D5       EQU    5                 ZERO IF TAPE DEADSTART                ICD        58
                                   6     D6       EQU    6                 FUNCTION WORD                         ICD        59
                                        *         (D6) = WARMSTART FUNCTION, IF MTS/ATS.                         ICD        60
                                        *              = DEADSTART FUNCTION, IF 844/885 DISK                     ICD        61
                                   7     D7       EQU    7                 RESERVED                              ICD        62
                                        *         (D7) = 1400B IF 3000 TYPE TAPE.                                ICD        63
                                  10     D10      EQU    10B               RESERVED                              ICD        64
                                  11     D11      EQU    11B               RESERVED                              ICD        65
                                  12     D12      EQU    12B               MSL PARAMETERS                        ICD        66
                                  13     D13      EQU    13B               OS PARAMETERS                         ICD        67
                                  14     D14      EQU    14B               OS PARAMETERS                         ICD        68
                                  15     D15      EQU    15B               UNUSED                                ICD        69
                                  16     D16      EQU    16B               C80/A170 RESERVED                     ICD        70
                                  17     D17      EQU    17B               RESERVED                              ICD        71
                                  20     D20      EQU    20B               RESERVED                              ICD        72
  
  
  
  
                                        **        INSTRUCTION EQUATES.                                           ICD        74
                                        *                                                                        ICD        75
                                   0     PSNC     EQU    0000B             PASS                                  ICD        76
                                 300     UJNC     EQU    0300B             UNCONDITIONAL JUMP                    ICD        77
                                 400     ZJNC     EQU    0400B             ZERO JUMP                             ICD        78
                                1000     SHNC     EQU    1000B             SHIFT                                 ICD        79
                                1500     LCNC     EQU    1500B             LOAD COMPLEMENT                       ICD        80
                                1700     SBNC     EQU    1700B             SUBTRACT NO-ADDRESS                   ICD        81
                                2000     LDCC     EQU    2000B             LOAD CONSTANT                         ICD        82
                                2100     ADCC     EQU    2100B             ADD CONSTANT                          ICD        83
                                2300     LMCC     EQU    2300B             LOGICAL MINUS CONSTANT                ICD        84
                                3000     LDDC     EQU    3000B             LOAD DIRECT                           ICD        85
                                6400     AJMC     EQU    6400B             ACTIVE JUMP                           ICD        86
                                7100     IAMC     EQU    7100B             INPUT MEMORY                          ICD        87
                                7300     OAMC     EQU    7300B             OUTPUT MEMORY                         ICD        88
                                7400     ACNC     EQU    7400B             ACTIVATE CHANNEL                      ICD        89
                                7500     DCNC     EQU    7500B             DISCONNECT CHANNEL                    ICD        90
1       ICD         CTI INSTALL CTI ON DISK - A02                     COMPASS 3.7-871.     23/08/13. 15.42.23.      PAGE     4
        DEFINITIONS.
  
                                        **        MISCELLANEOUS DEFINITIONS                                      ICD        93
                                        *                                                                        ICD        94
                                        *                                                                        ICD        95
                                   0     RICHI$   EQU    0       ALLOW SELECTIVE CHANNEL REDEFINITION            ICD        96
                              210560     TIMEOUT  EQU    70000             TIMEOUT COUNT FOR DISK                ICD        97
                                   5     NAME     EQU    5                 OFFSET OF NAME IN PRFX TABLE          ICD        98
                                   0     DEBUG$   EQU    0                 DEBUG MODE IF .GT. 0                  ICD        99
  
  
  
  
                                        **        DISPLAY CONTROLLER DEFINITIONS.                                ICD       101
                                        *                                                                        ICD       102
                                        *                                                                        ICD       103
                                  10     CHD      EQU    10B               DISPLAY CHANNEL                       ICD       104
                                        *         DISPLAY FUNCTION CODES.                                        ICD       105
                                7000     F.SEL    EQU    7000B             SELECT CONSOLE DISPLAY                ICD       106
                                   0     F.SLS    EQU    0000B             SELECT CONSOLE LEFT SCREEN            ICD       107
                                 100     F.SRS    EQU    0100B             SELECT CONSOLE RIGHT SCREEN           ICD       108
                                 200     F.SBS    EQU    0200B             SELECT CONSOLE BOTH SCREEN            ICD       109
                                   0     F.CHR    EQU    0000B             SELECT CHARACTER MODE                 ICD       110
                                  10     F.DOT    EQU    0010B             SELECT DOT MODE                       ICD       111
                                  20     F.KEY    EQU    0020B             SELECT KEYBOARD INPUT                 ICD       112
                                   0     F.CHS    EQU    0000B             SET CHARACTER SIZE SMALL              ICD       113
                                   1     F.CHM    EQU    0001B             SET CHARACTER SIZE MEDIUM             ICD       114
                                   2     F.CHL    EQU    0002B             SET CHARACTER SIZE LARGE              ICD       115
                                        *         COORDINATE DESIGNATION.                                        ICD       116
                                6000     XSET     EQU    6000B             SET X COORDINATE                      ICD       117
                                7000     YSET     EQU    7000B             SET Y COORDINATE                      ICD       118
                                  22     YINCR    EQU    22B               Y INCREMENT PER LINE                  ICD       119
1       ICD         CTI INSTALL CTI ON DISK - A02                     COMPASS 3.7-871.     23/08/13. 15.42.23.      PAGE     5
        DEFINITION COMMON DECKS.
  
                                        **        DEFINITION COMMON DECKS.                                       ICD       122
                                        *                                                                        ICD       123
                                        **        ALL SYMBOL AND MACRO DEFINITION COMMON DECKS ARE CALLED HERE.  ICD       124
           0                             CTI      CTEXT  COMPCTI - CTI COMMON MACROES.                           COMPCTI     2
           0                                      CTEXT  COMPCHI - REDEFINE I/O INSTRUCTIONS.                    COMPCHI     2
           0                             844      CTEXT  COMS844 - 844 DISK DEFINTIONS.                          COMS844     2
           0                             885      CTEXT  COMS885 - 885 DISK DEFINTIONS.                          COMS885     2
           0                             CPA      CTEXT  COMSCPA - CTI COMMON POINTER AREA DEFINITIONS.          COMSCPA     2
           0                             CTI      CTEXT  COMSCTI - CTI INTERNAL DEFINITIONS.                     COMSCTI     2
  
  
  
  
                                 502     DSLN     EQU    /CPA/DSLN                                               ICD       132
                                 500     PRU      EQU    /CPA/PRU                                                ICD       133
  
  
  
  
                                        *         DEFINE 885 D.S. SECTOR FUNCTIONS                               ICD       135
                                                                                                                 ICD       136
                                                  IFEQ   DSIFT,0                                                 ICD       137
                                   4     DSR885   EQU    /885/DRED                                               ICD       138
                                  35     DSW885   EQU    /885/DWLS                                               ICD       139
                                                  ELSE                                                           ICD       140
                                                  ENDIF                                                          ICD       143
1       ICD         CTI INSTALL CTI ON DISK - A02                     COMPASS 3.7-871.     23/08/13. 15.42.23.      PAGE     6
        DIRECT-CELL AND LOW-CORE DEFINITIONS
  
                                        **        DIRECT CELL DEFINITIONS                                        ICD       145
                                        *                                                                        ICD       146
                                        *                                                                        ICD       147
                                  20     REPADDR  EQU    20B                                                     ICD       148
                                  21     RETRY    EQU    21B               RETRY COUNTER                         ICD       149
                                  22     IOR      EQU    22B               INITIAL OPERATOR RESPONSE             ICD       150
                                  23     MSGLEN   EQU    23B               WHEN MSG LENGTH .GT. 77B              ICD       151
                                  24     FCNF     EQU    24B               SAVE AREA FOR FCN                     ICD       152
                                  25     GENSTAT  EQU    25B               GENERAL STATUS SAVE AREA              ICD       153
                                  26     CHAN     EQU    26B               1ST WORD OF QOD COMM AREA             ICD       154
                                  27     UNIT     EQU    CHAN+1            2ND WORD OF QOD COMM AREA             ICD       155
                                  30     DTYPE    EQU    UNIT+1            0=885, 1=844S, 2=844D                 ICD       156
                                  31     TRKSPER  EQU    DTYPE+1           TRACKS PER CYLINDER                   ICD       157
                                  32     SECSPER  EQU    TRKSPER+1         SECTORS PER TRACK                     ICD       158
                                  33     DSCYL    EQU    SECSPER+1         DEADSTART CYLINDER                    ICD       159
                                  34     DSTRK    EQU    DSCYL+1           DEADSTART TRACK                       ICD       160
                                  35     DSSEC    EQU    DSTRK+1           DEADSTART SECTOR                      ICD       161
                                  36     CTICYL   EQU    DSSEC+1           CTI CYLINDER                          ICD       162
                                  37     CTITRK   EQU    CTICYL+1          CTI TRACK                             ICD       163
                                  40     CTISEC   EQU    CTITRK+1          CTI SECTOR                            ICD       164
                                  41     RWADDR   EQU    CTISEC+1          ADDR OF DATA FOR RSEC/WSEC            ICD       165
                                  42     LENGTH   EQU    RWADDR+1          LENGTH REMAINING 2 B WRITTEN          ICD       166
                                  43     PREV     EQU    LENGTH+1          TTSS OF LAST GOOD WRITE               ICD       167
                                  44     RVLTRK   EQU    PREV+1                                                  ICD       168
                                  45     RVLSEC   EQU    RVLTRK+1                                                ICD       169
                                  46     RVLLB2   EQU    RVLSEC+1                                                ICD       170
                                  47     CMADDR   EQU    RVLLB2+1                                                ICD       171
                                  50     CTICSC   EQU    CMADDR+1          CTI-CYLINDER SECTOR COUNT             ICD       172
  
  
  
  
                                        **        OTHER LOW-CORE DEFINITIONS                                     ICD       174
                                        *                                                                        ICD       175
                                  50     CPBLEN   EQU    40                                                      ICD       176
                                  76     CPBCTI   EQU    /CTI/ICDLOAD-CPBLEN-2                                   ICD       177
                                 110     CPBMS    EQU    CPBCTI+10                                               ICD       178
                                 122     CPBDS    EQU    CPBMS+10                                                ICD       179
                                 134     CPBOS    EQU    CPBDS+10                                                ICD       180
                                  76     CPBUFF   EQU    CPBCTI                                                  ICD       181
1       ICD         CTI INSTALL CTI ON DISK - A02                     COMPASS 3.7-871.     23/08/13. 15.42.23.      PAGE     7
        MAIN ROUTINE
  
         150                                      ORG    /CTI/ICDLOAD                                            ICD       183
                                                  QUAL   ICD                                                     ICD       184
  
  
  
  
                                        *         ICD - INSTALL CTI ON DISK.  CTI.                               ICD       186
                                        *                                                                        ICD       187
                                        *                                                                        ICD       188
         150         0307                ICD      UJN    S05               ENTRY POINT WHEN FIRST LOADED         ICD       189
         151         0100 0266           ICDALT   LJM    S129        ENTRY FOR NORMAL RETURN FROM ICE            DIMA294     1
         153         0200 0503           ICDERR   RJM    ERROR       ENTRY FROM ICE FOR DEVICE ERROR             DIMA294     2
         155         0200 0541           ICDERR2  RJM    ERRFLO      ENTRY FROM ICE FOR CYLINDER OVERFLOW        DIMA294     3
  
  
  
  
                                        *         HANG ALL OTHER PP-S.                                           ICD       193
         157         0200 0575           S05      RJM    HPP                                                     ICD       194
                                                  IFGT   DEBUG$,0                                                ICD       195
                                                  ENDIF                                                          ICD       208
  
  
  
  
                                        *         PRESENT MSG A AND WAIT FOR CR OR R.                            ICD       210
         161         2000 0107           S10      LDC    MSGAL                                                   ICD       211
         163         3423                         STD    MSGLEN                                                  ICD       212
         164         2000 1401                    LDC    MSGA                                                    ICD       213
         166         0200 0460                    RJM    DIS                                                     ICD       214
         170         2000 2102                    LDC    ORTR                                                    ICD       215
         172         0200 0650                    RJM    PKI                                                     ICD       216
         174         0464                         ZJN    S10               IF NO VALID INPUT YET                 ICD       217
         175         1760                         SBN    60B                                                     ICD       218
         176         3422                         STD    IOR               SAVE INIT OPER RESP                   ICD       219
         177         0403                         ZJN    S50               IF I.O.R. = CR                        ICD       220
         200         0100 0363                    LJM    S200              IF TO RELEASE                         ICD       221
  
  
  
  
                                        *         PRESENT MSG B AND WAIT FOR CR                                  ICD       223
         202         2000 0111           S50      LDC    MSGBL                                                   ICD       224
         204         3423                         STD    MSGLEN                                                  ICD       225
         205         2000 1510                    LDC    MSGB                                                    ICD       226
         207         0200 0460                    RJM    DIS                                                     ICD       227
         211         2000 2103                    LDC    ORTCR                                                   ICD       228
         213         0200 0650                    RJM    PKI                                                     ICD       229
         215         0464                         ZJN    S50               IF NO CR YET                          ICD       230
1       ICD         CTI INSTALL CTI ON DISK - A02                     COMPASS 3.7-871.     23/08/13. 15.42.23.      PAGE     8
        MAIN ROUTINE                                                                      ICD 
  
                                        *         CALL QOD TO GET CONNECT CODE                                   ICD       232
         216         0200 0433           S60      RJM    CQOD                                                    ICD       233
         220         0200 0421                    RJM    CLRCPB            CLEAR CPBUFF                          ICD       234
  
  
  
  
                                        *         READ DEADSTART SECTOR                                          ICD       236
         222         0200 1044           S70      RJM    RDSS                                                    ICD       237
         224         0421                         ZJN    S100              IF OK AND FLAWED                      ICD       238
         225         0630                         PJN    S120              IF NOT FLAWED                         ICD       239
                                        *         UJN    S80               IF UNABLE TO ACCESS DEVICE            ICD       240
  
  
  
  
                                        *         PRESENT MSG E/F AND WAIT FOR CR. THEN GOTO TOP.                ICD       242
         226         2015 1664           S80      LDC    MSGEL*1S12+MSGE                                         ICD       243
         230         0200 0460                    RJM    DIS                                                     ICD       244
         232         2022 1701                    LDC    MSGFL*1S12+MSGF                                         ICD       245
         234         0200 0460                    RJM    DIS                                                     ICD       246
         236         2000 2103                    LDC    ORTCR                                                   ICD       247
         240         0200 0650                    RJM    PKI                                                     ICD       248
         242         0463                         ZJN    S80               IF NO CR YET                          ICD       249
         243         0100 0161                    LJM    S10                                                     ICD       250
  
  
  
  
                                        *         COPY POINTER WORDS OF DEADSTART SECTOR JUST READ               ICD       252
                                        *         TO OUR CPBUFF.                                                 ICD       253
         245         1447                S100     LDN    CPBLEN-1                                                ICD       254
         246         3401                         STD    D1                                                      ICD       255
         247         5001 3022           S105     LDM    BUFFER+/CPA/CIDP-/CTI/IPLA,D1                           ICD       256
         251         5401 0076                    STM    CPBUFF,D1                                               ICD       257
         253         3701                         SOD    D1                                                      ICD       258
         254         0672                         PJN    S105                                                    ICD       259
  
  
  
  
                                        *         WRITE CTI MODULES TO THE CTI CYLINDER                          ICD       261
         255         2000 0261           S120     LDC    S120P                                                   ICD       262
         257         0100 7000                    LJM    /CTI/CDEP         CALL COMMON DRIVER TO LOAD OVERLAY    ICD       263
         261         0150                S120P    CON    /CTI/ICDLOAD      LOAD ADDRESS                          ICD       264
         262         0150                         CON    /CTI/ICDLOAD      TRANSFER ADDRESS                      ICD       265
         263         0000                         CON    0                 NO REWIND FIRST                       ICD       266
         264         1103                         VFD    18/3LICE,6/0      NAME OF ICD OVERLAY                   ICD       267
         265         0500 
                                 266     S129     EQU    *                                                       ICD       268
         266         2000 2105                    LDC    CHTB                                                    ICD       269
         270         0200 0633                    RJM    ICN               RESTORE CHANNEL INSTRUCTIONS          ICD       270
1       ICD         CTI INSTALL CTI ON DISK - A02                     COMPASS 3.7-871.     23/08/13. 15.42.23.      PAGE     9
        MAIN ROUTINE                                                                      ICD 
  
                                        *         READ IPL FROM DEADSTART DEVICE                                 ICD       272
         272         2000 0276           S130     LDC    S130P                                                   ICD       273
         274         0100 7000                    LJM    /CTI/CDEP         CALL COMMON DRIVER                    ICD       274
         276         2373                S130P    CON    BUFFER            LOAD ADDRESS                          ICD       275
         277         0303                         CON    S139              TRANSFER ADDRESS                      ICD       276
         300         0001 0000                    CON    1,0,0             REWIND,READ NEXT,NO STRIPPING         ICD       277
         302         0000 
         303         5000 2400           S139     LDM    BUFFER+NAME       VERIFY THAT IT IS IPL                 ICD       278
         305         2300 1120                    LMC    2RIP                                                    ICD       279
         307         0506                         NJN    S139T                                                   ICD       280
         310         5000 2401                    LDM    BUFFER+NAME+1                                           ICD       281
         312         2300 1400                    LMC    1RL*100B                                                ICD       282
         314         0406                         ZJN    S140                                                    ICD       283
         315         2011 2021           S139T    LDC    MSGKL*1S12+MSGK  IF NOT IPL                             DIMA294     4
         317         0200 0460                    RJM    DIS                                                     DIMA294     5
         321         0373                         UJN    S139T                                                   DIMA294     6
  
  
  
  
                                        *         COPY CPBUFF INTO IPL RECORD JUST READ                          ICD       286
         322         1447                S140     LDN    CPBLEN-1                                                ICD       287
         323         3401                         STD    D1                                                      ICD       288
         324         5001 0076           S145     LDM    CPBUFF,D1                                               ICD       289
         326         5401 3022                    STM    BUFFER+/CPA/CIDP-/CTI/IPLA,D1                           ICD       290
         330         3701                         SOD    D1                                                      ICD       291
         331         0672                         PJN    S145                                                    ICD       292
  
  
  
  
                                        *         WRITE NEW DEADSTART SECTOR                                     ICD       294
         332         0200 1314           S150     RJM    WDSS                                                    ICD       295
         334         1410                         LDN    /844/DOPC                                               ICD       296
         335         0200 0716                    RJM    FCN               DROP RESERVE                          ICD       297
  
  
  
  
                                        *         PRESENT MSG H/F OR I/F AND WAIT FOR CR                         ICD       299
         337         3022                S190     LDD    IOR                                                     ICD       300
         340         0504                         NJN    S195              IF I.O.R. NOT CR                      ICD       301
         341         2012 1762                    LDC    MSGHL*1S12+MSGH                                         ICD       302
         343         0303                         UJN    S196                                                    ICD       303
         344         2012 1774           S195     LDC    MSGIL*1S12+MSGI                                         ICD       304
         346         0200 0460           S196     RJM    DIS                                                     ICD       305
         350         2022 1701                    LDC    MSGFL*1S12+MSGF                                         ICD       306
         352         0200 0460                    RJM    DIS                                                     ICD       307
         354         2000 2103                    LDC    ORTCR                                                   ICD       308
         356         0200 0650                    RJM    PKI                                                     ICD       309
         360         0456                         ZJN    S190              IF NO CR YET                          ICD       310
         361         0100 0161                    LJM    S10                                                     ICD       311
1       ICD         CTI INSTALL CTI ON DISK - A02                     COMPASS 3.7-871.     23/08/13. 15.42.23.      PAGE    10
        MAIN ROUTINE                                                                      ICD 
  
                                        *         HERE IF RELEASING                                              ICD       313
         363         0200 0433           S200     RJM    CQOD              CALL QOD TO GET CONNECT CODE          ICD       314
         365         0200 0421                    RJM    CLRCPB            CLEAR CPBUFF                          ICD       315
         367         0200 1044                    RJM    RDSS              READ DEADSTART SECTOR                 ICD       316
         371         0404                         ZJN    S250              IF OK AND FLAWED                      ICD       317
         372         0613                         PJN    S270              IF NOT FLAWED                         ICD       318
         373         0100 0226                    LJM    S80               IF UNABLE TO ACCESS DEVICE            ICD       319
  
  
  
  
                                        *         COPY OS WORDS OF DEADSTART SECTOR TO CPBUFF                    ICD       321
         375         1411                S250     LDN    10-1                                                    ICD       322
         376         3401                         STD    D1                                                      ICD       323
         377         5001 3060           S255     LDM    BUFFER+/CPA/OSDP-/CTI/IPLA,D1                           ICD       324
         401         5401 0134                    STM    CPBOS,D1                                                ICD       325
         403         3701                         SOD    D1                                                      ICD       326
         404         0672                         PJN    S255                                                    ICD       327
  
  
  
  
                                        *         PRESENT MSG G AND WAIT FOR CR                                  ICD       329
         405         2037 1723           S270     LDC    MSGGL*1S12+MSGG                                         ICD       330
         407         0200 0460                    RJM    DIS                                                     ICD       331
         411         2000 2103                    LDC    ORTCR                                                   ICD       332
         413         0200 0650                    RJM    PKI                                                     ICD       333
         415         0467                         ZJN    S270              IF NO CR YET                          ICD       334
         416         0100 0272                    LJM    S130                                                    ICD       335
1       ICD         CTI INSTALL CTI ON DISK - A02                     COMPASS 3.7-871.     23/08/13. 15.42.23.      PAGE    11
        SUBROUTINES                                                                       ICD 
  
                                        **        CLRCPB - CLEAR CPBUFF                                          ICD       338
                                        *                                                                        ICD       339
         420         0100 0000           CLRCPB   ENM    X                 ENTRY/EXIT                            ICD       340
         422         1447                         LDN    CPBLEN-1                                                ICD       341
         423         3401                         STD    D1                                                      ICD       342
         424         1400                CLRCPB2  LDN    0                                                       ICD       343
         425         5401 0076                    STM    CPBUFF,D1                                               ICD       344
         427         3701                         SOD    D1                                                      ICD       345
         430         0673                         PJN    CLRCPB2                                                 ICD       346
         431         0366                         UJN    CLRCPBX           RETURN                                ICD       347
  
  
  
  
                                        **        CQOD - CALL QOD AND INSERT CHANNEL NUMBER                      ICD       349
                                        *                                                                        ICD       350
                                        *         ENTRY  (IOR) = 0 IF I.O.R. WAS CR                              ICD       351
         432         0100 0000           CQOD     ENM    X                 ENTRY/EXIT                            ICD       352
         434         1400                         LDN    0                                                       ICD       353
         435         3426                         STD    CHAN                                                    ICD       354
         436         3427                         STD    UNIT                                                    ICD       355
         437         1426                         LDN    CHAN                                                    ICD       356
         440         3420                         STD    REPADDR                                                 ICD       357
         441         3022                         LDD    IOR                                                     ICD       358
         442         0504                         NJN    CQOD5             IF NOT CR                             ICD       359
         443         2021 1621                    LDC    MSGCL*1S12+MSGC                                         ICD       360
         445         0303                         UJN    CQOD7                                                   ICD       361
         446         2022 1642           CQOD5    LDC    MSGDL*1S12+MSGD                                         ICD       362
         450         0200 2147           CQOD7    RJM    /QOD/QOD          CALL QOD                              ICD       363
         452         2000 2105                    LDC    CHTB                                                    ICD       364
         454         0200 0633                    RJM    ICN               INSERT CHANNEL NUMBER                 ICD       365
         456         0353                         UJN    CQODX             RETURN                                ICD       366
  
  
  
  
                                        **        DIS - DISPLAY MESSAGE ON DD60                                  ICD       368
                                        *                                                                        ICD       369
                                        *         DIS OUTPUTS A SPECIFIED BUFFER TO THE DISPLAY.                 ICD       370
                                        *                                                                        ICD       371
                                        *         ENTRY  (A) = LLAAAA WHERE                                      ICD       372
                                        *                      LL = LENGTH OF MESSAGE BUFFER                     ICD       373
                                        *                      AAAA = FWA OF MESSAGE BUFFER.                     ICD       374
                                        *                      IF LL = 0, THEN MSGLEN HAS LENGTH                 ICD       375
         457         0100 0000           DIS      ENM    X                 ENTRY/EXIT                            ICD       376
         461         5400 0473                    STM    DISB              STORE FWA OF MSG                      ICD       377
         463         1006                         SHN    6                                                       ICD       378
         464         1277                         LPN    77B               ISOLATE LENGTH                        ICD       379
         465         0502                         NJN    DIS4                                                    ICD       380
         466         3023                         LDD    MSGLEN                                                  ICD       381
         467         7710 7001           DIS4     FNC    F.SEL+F.SLS+F.CHR+F.CHM,CHD                             ICD       382
         471         7410                         ACN    CHD                                                     ICD       383
         472         7310 0000                    OAM    **,CHD            OUTPUT MSG                            ICD       384
                                 473     DISB     EQU    *-1                                                     ICD       385
         474         6610 0474                    FJM    *,CHD       WAIT FOR TRANSFER TO COMPLETE               ICD       386
         476         7510                         DCN    CHD                                                     ICD       387
         477         1740                         SBN    40B         DISPLAY REFRESH DELAY                       ICD       388
1       ICD         CTI INSTALL CTI ON DISK - A02                     COMPASS 3.7-871.     23/08/13. 15.42.23.      PAGE    12
        SUBROUTINES                                                                       ICD 
  
         500         0776                         MJN    *-1                                                     ICD       389
         501         0355                         UJN    DISX              RETURN                                ICD       390
  
  
  
  
                                        **        ERROR - PROCESS MESSAGES FOR DEVICE ERRORS                     ICD       392
                                        *                                                                        ICD       393
                                        *         DISPLAY MSG J/F, WAIT FOR CR, AND GOTO TOP.                    ICD       394
         502         0100 0000           ERROR    ENM    X                 ENTRY ONLY BECAUSE NO RETURN          ICD       395
         504         2000 2105                    LDC    CHTB        INSERT CHANNEL NUMBER                       DIMA294     7
         506         0200 0633                    RJM    ICN                                                     DIMA294     8
         510         2000 0521                    LDC    ERROR2      RESET ART SPECIAL EXIT                      DIMA294     9
         512         5400 0701                    STM    ARTEC                                                   DIMA294    10
         514         1412                         LDN    10                                                      DIMA369     1
         515         3421                         STD    RETRY                                                   DIMA369     2
         516         1410                         LDN    /844/DOPC                                               ICD       396
         517         0200 0716                    RJM    FCN               DROP RESERVE                          ICD       397
         521         2013 2006           ERROR2   LDC    MSGJL*1S12+MSGJ                                         ICD       398
         523         0200 0460                    RJM    DIS                                                     ICD       399
         525         2022 1701                    LDC    MSGFL*1S12+MSGF                                         ICD       400
         527         0200 0460                    RJM    DIS                                                     ICD       401
         531         2000 2103                    LDC    ORTCR                                                   ICD       402
         533         0200 0650                    RJM    PKI                                                     ICD       403
         535         0463                         ZJN    ERROR2            IF NO CR YET                          ICD       404
         536         0100 0161                    LJM    S10               GOTO TOP                              ICD       405
  
  
  
  
                                        **        ERRFLO - PROCESS MESSAGES FOR CTI CYLINDER OVERFLOW            DIMA294    11
                                        *                                                                        DIMA294    12
                                        *         ERRFLO WILL PRESENT THE MESSAGES -CTI CYLINDER OVERFLOW-       DIMA294    13
                                        *                AND -(CR) TO PROCESS DIFFERENT DEVICE-.  WHEN A         DIMA294    14
                                        *                CR IS RECEIVED, WILL DISPLAY THE  B MESSAGE.            DIMA294    15
                                        *                                                                        DIMA294    16
                                        *         USES   NONE.                                                   DIMA294    17
                                        *                                                                        DIMA294    18
                                        *         CALLS  ICN,FCN,DIS,PKI.                                        DIMA294    19
                                        *                                                                        DIMA294    20
                                        *         EXIT   DOES NOT RETURN TO CALLER.                              DIMA294    21
                                                                                                                 DIMA294    22
         540         0100 0000           ERRFLO   ENM    X           ENTRY ONLY                                  DIMA294    23
         542         2000 2105                    LDC    CHTB        INSERT CHANNEL NUMBER                       DIMA294    24
         544         0200 0633                    RJM    ICN                                                     DIMA294    25
         546         2000 0555                    LDC    ERROR3      RESET ART SPECIAL EXIT                      DIMA294    26
         550         5400 0701                    STM    ARTEC                                                   DIMA294    27
         552         1410                         LDN    /844/DOPC                                               DIMA294    28
         553         0200 0716                    RJM    FCN         DROP RESERVE                                DIMA294    29
         555         2015 2032           ERROR3   LDC    MSGLL*1S12+MSGL                                         DIMA294    30
         557         0200 0460                    RJM    DIS         PRESENT MESSAGE -CTI CYLINDER OVERFLOW-     DIMA294    31
         561         2022 1701                    LDC    MSGFL*1S12+MSGF                                         DIMA294    32
         563         0200 0460                    RJM    DIS         PRESENT MESSAGE                             DIMA294    33
         565         2000 2103                    LDC    ORTCR                                                   DIMA294    34
         567         0200 0650                    RJM    PKI         PROCESS KEYBOARD INPUT                      DIMA294    35
         571         0463                         ZJN    ERROR3      IF NO CR                                    DIMA294    36
         572         0100 0202                    LJM    S50         GO TO PRESENT MESSAGE B                     DIMA294    37
1       ICD         CTI INSTALL CTI ON DISK - A02                     COMPASS 3.7-871.     23/08/13. 15.42.23.      PAGE    13
        SUBROUTINES                                                                       ICD 
  
                                        **   HPP - HANG PP-S                                                     ICD       407
                                        *                                                                        ICD       408
                                        *         HPP HANGS ALL ACTIVE PP-S THEREBY FREEING ALL CHANNELS.        ICD       409
                                        *                                                                        ICD       410
                                        *         CALLS ICN                                                      ICD       411
                                        *                                                                        ICD       412
                                        *         USES   CHAN                                                    ICD       413
         574         0100 0000           HPP      ENM    X                 ENTRY/EXIT                            ICD       414
         576         1401                         LDN    1                                                       ICD       415
         577         3426                HPP03    STD    CHAN              CURRENT CHANNEL                       ICD       416
         600         3026                HPP04    LDD    CHAN                                                    ICD       417
         601         1712                         SBN    12B                                                     ICD       418
         602         0706                         MJN    HPP06             IF IN RANGE 1-11                      ICD       419
         603         0503                         NJN    HPP05             IF IN RANGE 20-32                     ICD       420
         604         1420                         LDN    20B                                                     ICD       421
         605         0371                         UJN    HPP03                                                   ICD       422
         606         1720                HPP05    SBN    32B-12B                                                 ICD       423
         607         0664                         PJN    HPPX              IF DONE, RETURN                       ICD       424
                                        *         A VALID CHANNEL HAS BEEN FOUND. HANG THE ASSOC PP.             ICD       425
         610         2000 0626           HPP06    LDC    HPPE              FWA OF CHANNEL LIST                   ICD       426
         612         0200 0633                    RJM    ICN               INSERT CHANNEL NO.                    ICD       427
         614         6540 0622           HPPA     IJM    HPP07,40B         IF NOT ACTIVE                         ICD       428
         616         1402                         LDN    2                                                       ICD       429
         617         7340 0624           HPPB     OAM    HPPD,40B                                                ICD       430
         621         7540                HPPC     DCN    40B                                                     ICD       431
         622         3626                HPP07    AOD    CHAN                                                    ICD       432
         623         0354                         UJN    HPP04             CONTINUE                              ICD       433
         624         0000 0300           HPPD     CON    0,UJNC            PP HANG PROGRAM                       ICD       434
         626         0614 0617           HPPE     CON    HPPA,HPPB,HPPC,0                                        ICD       435
         630         0621 0000
  
  
  
  
                                        **        ICN - INSERT CHANNEL NO.                                       ICD       437
                                        *                                                                        ICD       438
                                        *         ICN INSERTS CHANNEL NO.S IN INSTRUCTIONS GIVEN                 ICD       439
                                        *         IN A LIST TERMINATED WITH A ZERO.                              ICD       440
                                        *                                                                        ICD       441
                                        *         ENTRY  (A) = FWA OF CHANNEL LIST.                              ICD       442
                                        *                (CHAN) = CHANNEL NO.                                    ICD       443
                                        *                                                                        ICD       444
                                        *         USES   D2, D3.                                                 ICD       445
         632         0100 0000           ICN      ENM    X                 ENTRY/EXIT                            ICD       446
         634         3402                         STD    D2                                                      ICD       447
         635         4002                ICN1     LDI    D2                                                      ICD       448
         636         0473                         ZJN    ICNX              IF LIST COMPLETE                      ICD       449
         637         3403                         STD    D3                                                      ICD       450
         640         4003                         LDI    D3                                                      ICD       451
         641         1337                         SCN    37B                                                     ICD       452
         642         3126                         ADD    CHAN              ADD IN NEW CHANNEL NO.                ICD       453
         643         4403                         STI    D3                                                      ICD       454
         644         3602                         AOD    D2                                                      ICD       455
         645         0367                         UJN    ICN1              CONTINUE PROCESSING                   ICD       456
1       ICD         CTI INSTALL CTI ON DISK - A02                     COMPASS 3.7-871.     23/08/13. 15.42.23.      PAGE    14
        SUBROUTINES                                                                       ICD 
  
                                        **        PKI - PROCESS KEYBOARD INPUT                                   ICD       458
                                        *                                                                        ICD       459
                                        *         PKI READS KEYBOARD AND CHECKS INPUT AGAINST A                  ICD       460
                                        *         TABLE SUPPLIED BY THE CALLER.                                  ICD       461
                                        *                                                                        ICD       462
                                        *         ENTRY  (A) = FWA OF TABLE OF VALID RESPONSES.                  ICD       463
                                        *                      TABLE TERMINATED BY ZERO BYTE.                    ICD       464
                                        *                                                                        ICD       465
                                        *         EXIT   (A) = 0 IF NO INPUT OR INPUT NOT VALID.                 ICD       466
                                        *                        ELSE A HAS INPUT CHARACTER.                     ICD       467
                                        *                                                                        ICD       468
                                        *         USES   D1,D2                                                   ICD       469
         646         3002                PKI1     LDD    D2                LOAD CHARACTER READ                   ICD       470
         647         0100 0000           PKI      ENM    X                 ENTRY/EXIT                            ICD       471
         651         3401                         STD    D1                SAVE ADDRESS OF RESPONSE TABLE        ICD       472
         652         7710 7020                    FNC    F.SEL+F.KEY,CHD                                         ICD       473
         654         7410                         ACN    CHD                                                     ICD       474
         655         7010                         IAN    CHD                                                     ICD       475
         656         7510                         DCN    CHD                                                     ICD       476
         657         0467                         ZJN    PKIX              IF NO INPUT                           ICD       477
         660         3402                         STD    D2                SAVE ENTRY                            ICD       478
         661         4001                PKI2     LDI    D1                GET TABLE VALUE                       ICD       479
         662         0464                         ZJN    PKIX              IF END OF TABLE REACHED               ICD       480
         663         3202                         SBD    D2                                                      ICD       481
         664         0461                         ZJN    PKI1              IF MATCH FOUND                        ICD       482
         665         3601                         AOD    D1                                                      ICD       483
         666         0372                         UJN    PKI2                                                    ICD       484
  
  
  
  
1       ICD         CTI INSTALL CTI ON DISK - A02                     COMPASS 3.7-871.     23/08/13. 15.42.23.      PAGE    15
        DISK SUBROUTINES                                                                  ICD 
  
         667                                      RICHI                    ENABLE CHANNEL MACROES                ICD       492
  
  
  
  
                                        **        ART - ADJUST RETRY COUNTER                                     ICD       494
                                        *                                                                        ICD       495
                                        *         DECREMENT COUNTER AND                                          ICD       496
                                        *         RETURN TO CALLER IF COUNTER .GE. 0                             ICD       497
                                        *         ELSE GOTO ERROR IF ARTEC = 0                                   ICD       498
                                        *         RDSSERR OR ERROR2 OR ERROR3 IF ARTEC .NE. 0.                   DIMA294    39
                                        *                                                                        ICD       500
         667         0100 0000           ART      ENM    X                 ENTRY/EXIT                            ICD       501
         671         3721                         SOD    RETRY                                                   ICD       502
         672         0674                         PJN    ARTX              EXIT IF MORE RETRIES AVAILABLE        ICD       503
         673         5000 0701                    LDM    ARTEC             CHECK EXIT CODE                       ICD       504
         675         0503                         NJN    ART5              IF SPECIAL EXIT                       ICD       505
         676         0200 0503                    RJM    ERROR             IF NO MORE RETRIES AVAILABLE          ICD       506
         700         0100 0000           ART5     LJM    **                                                      DIMA294    40
                                 701     ARTEC    EQU    *-1                                                     ICD       508
  
  
  
  
                                        **        AWD - ACTIVATE CHANNEL AND WAIT FOR DATA.                      ICD       510
                                        *                                                                        ICD       511
                                        *         AWD ACTIVATES THE FUNCTIONED CHANNEL AND TIMES OUT A FULL      ICD       512
                                        *         CONDITION.                                                     ICD       513
                                        *                                                                        ICD       514
                                        *         EXIT   (A) .NE. 0, DATA ON CHANNEL.                            ICD       515
                                        *                (A) = 0, NO DATA RECEIVED, CHANNEL DISCONNECTED.        ICD       516
         702         0100 0000           AWD      ENM    X                 ENTRY/EXIT                            ICD       517
         704         7440                         ACN    40B               ACTIVATE CHANNEL                      ICD       518
         705         2021 0560                    LDC    TIMEOUT                                                 ICD       519
         707         6600 0702           AWD1     FJM    AWDX,0            IF FULL, RETURN                       ICD       520
         711         1701                         SBN    1                                                       ICD       521
         712         0574                         NJN    AWD1              IF TIME OUT NOT EXPIRED               ICD       522
         713         7540                         DCN    40B               DISCONNECT                            ICD       523
         714         0365                         UJN    AWDX              RETURN                                ICD       524
  
  
  
  
                                        **        FCN - FUNCTION DEVICE.                                         ICD       526
                                        *                                                                        ICD       527
                                        *         ENTRY  (A) = FUNCTION CODE.                                    ICD       528
                                        *                                                                        ICD       529
                                        *         RETURNS TO CALLER IF NO ERRORS                                 ICD       530
                                        *         ELSE GO TO ERROR PROCESSOR.                                    ICD       531
         715         0100 0000           FCN      ENM    X                 ENTRY/EXIT                            ICD       532
         717         3424                         STD    FCNF              SAVE FUNCTION CODE                    ICD       533
         720         3024                FCN3     LDD    FCNF              GET FUNCTION CODE                     ICD       534
         721         7640                         FAN    40B               ISSUE FUNCTION                        ICD       535
         722         2021 0560                    LDC    TIMEOUT                                                 ICD       536
         724         6500 0715           FCN1     IJM    FCNX,0            IF FUNCTION ACCEPTED, RETURN          ICD       537
         726         1701                         SBN    1                                                       ICD       538
         727         0574                         NJN    FCN1              IF TIMEOUT NOT EXPIRED                ICD       539
1       ICD         CTI INSTALL CTI ON DISK - A02                     COMPASS 3.7-871.     23/08/13. 15.42.23.      PAGE    16
        DISK SUBROUTINES                                              FCN                 ICD 
  
         730         7540                         DCN    40B                                                     ICD       540
         731         0200 0670                    RJM    ART               ASK TO RETRY                          ICD       541
         733         0364                         UJN    FCN3              TRY AGAIN                             ICD       542
  
  
  
  
                                        **        GDS - GET DETAIL STATUS                                        ICD       544
                                        *                                                                        ICD       545
                                        *         GDS GETS DETAIL STATUS INTO BUFFER *DETAIL*                    ICD       546
                                        *                                                                        ICD       547
                                        *         EXIT   (DETAIL) = DETAIL STATUS                                ICD       548
         734         0100 0000           GDS      ENM    X                 ENTRY/EXIT                            ICD       549
         736         1413                GDS2     LDN    /844/DDSS                                               ICD       550
         737         0200 0716                    RJM    FCN                                                     ICD       551
         741         0200 0703                    RJM    AWD                                                     ICD       552
         743         0504                         NJN    GDS5              IF DATA ON CHANNEL                    ICD       553
         744         0200 0670                    RJM    ART                                                     ICD       554
         746         0367                         UJN    GDS2                                                    ICD       555
         747         1414                GDS5     LDN    DETAILL                                                 ICD       556
         750         7100 0754                    IAM    DETAIL,0                                                ICD       557
         752         7540                         DCN    40B                                                     ICD       558
         753         0360                         UJN    GDSX              RETURN                                ICD       559
         754                      14     DETAIL   BSSZ   /844/SLNS                                               ICD       560
                                  14     DETAILL  EQU    *-DETAIL                                                ICD       561
  
  
  
  
                                        **        GGS - GET GENERAL STATUS.                                      ICD       563
                                        *                                                                        ICD       564
                                        *         GGS ISSUES THE GENERAL STATUS FUNCTION  AND UPDATES            ICD       565
                                        *         THE DIRECT CELL *GENSTAT*.  THE STATUS IS ALSO RETURNED        ICD       566
                                        *         IN (A).                                                        ICD       567
                                        *                                                                        ICD       568
                                        *         EXIT   (GENSTAT) = GENERAL STATUS REPLY.                       ICD       569
                                        *                (A) = GENERAL STATUS REPLY.                             ICD       570
                                        *                                                                        ICD       571
         770         0200 0670           GGS2     RJM    ART               ASK TO RETRY                          ICD       572
         772         0303                         UJN    GGS3              TRY AGAIN                             ICD       573
         773         0100 0000           GGS      ENM    X                 ENTRY/EXIT                            ICD       574
         775         1412                GGS3     LDN    /844/DGST                                               ICD       575
         776         0200 0716                    RJM    FCN               FUNCTION DEVICE                       ICD       576
        1000         0200 0703                    RJM    AWD               ACTIVATE CHAN AND WAIT FOR DATA       ICD       577
        1002         0465                         ZJN    GGS2              IF NO DATA COMING                     ICD       578
        1003         7000                         IAN    0                 READ STATUS                           ICD       579
        1004         7540                         DCN    40B                                                     ICD       580
        1005         3425                         STD    GENSTAT                                                 ICD       581
        1006         0364                         UJN    GGSX              RETURN                                ICD       585
1       ICD         CTI INSTALL CTI ON DISK - A02                     COMPASS 3.7-871.     23/08/13. 15.42.23.      PAGE    17
        DISK SUBROUTINES                                                                  ICD 
  
                                        **        CON  - CONNECT DISK DRIVE                                      DIMA314     2
                                        *                                                                        DIMA314     3
                                        *         CON CONNECTS TO THE DISK UNIT AND WAITS FOR                    DIMA314     4
                                        *         DRIVE NOT RESERVED.                                            DIMA314     5
                                        *                                                                        DIMA314     6
                                        *         ENTRY  (UNIT) = UNIT NUMBER                                    DIMA314     7
                                        *         EXIT   (A)    = GENERAL STATUS WORD                            DIMA314     8
                                        *                                                                        DIMA314     9
                                        *         CALLS  FCN,GGS.                                                DIMA314    10
                                                                                                                 DIMA314    11
                                                                                                                 DIMA314    12
        1007         0100 0000           CON      ENM    X                 ENTRY/EXIT                            DIMA314    13
        1011         1400                CON2     LDN    /844/DCON                                               DIMA314    14
        1012         0200 0716                    RJM    FCN               ISSUE CONNECT FUNCTION                DIMA314    15
        1014         7400                         ACN    0                                                       DIMA314    16
        1015         3027                         LDD    UNIT                                                    DIMA314    17
        1016         7200                         OAN    0                 CONNECT UNIT                          DIMA314    18
        1017         6600 1017                    FJM    *,0                                                     DIMA314    19
        1021         7540                         DCN    40B                                                     DIMA314    20
        1022         0200 0774                    RJM    GGS               GET GENERAL STATUS                    DIMA314    21
        1024         1210                         LPN    /844/MP.GSDR                                            DIMA314    22
        1025         0563                         NJN    CON2              IF DRIVE RESERVED                     DIMA314    23
        1026         3025                         LDD    GENSTAT                                                 DIMA314    24
        1027         0357                         UJN    CONX                                                    DIMA314    25
  
  
  
  
                                        **        WNB  - WAIT NOT BUSY                                           DIMA314    27
                                        *                                                                        DIMA314    28
                                        *         WNB WAITS FOR DRIVE NOT BUSY STATUS.                           DIMA314    29
                                        *                                                                        DIMA314    30
                                        *         EXIT   (A) = GENERAL STATUS WORD                               DIMA314    32
                                        *                                                                        DIMA314    33
                                        *         CALLS  GGS,CON.                                                DIMA314    34
                                                                                                                 DIMA314    35
                                                                                                                 DIMA314    36
        1030         3025                WNB2     LDD    GENSTAT                                                 DIMA314    37
        1031         0100 0000           WNB      ENM    X                 ENTRY/EXIT                            DIMA314    38
        1033         0200 0774                    RJM    GGS                                                     DIMA314    39
        1035         0473                WNB4     ZJN    WNBX              IF NOT BUSY AND NO ERRORS             DIMA314    40
        1036         1202                         LPN    /844/MP.GSBS                                            DIMA314    41
        1037         0470                         ZJN    WNB2              IF NOT BUSY                           DIMA314    42
        1040         0200 1010                    RJM    CON                                                     DIMA314    43
        1042         0372                         UJN    WNB4                                                    DIMA314    44
1       ICD         CTI INSTALL CTI ON DISK - A02                     COMPASS 3.7-871.     23/08/13. 15.42.23.      PAGE    18
        DISK SUBROUTINES                                                                  ICD 
  
                                        **        RDSS - READ D.S. SECTOR FROM 844 (885)                         ICD       587
                                        *                                                                        ICD       588
                                        *         EXIT  (A) .LT. 0 IF UNABLE TO ACCESS DEVICE                    ICD       589
                                        *               (A) = 0    IF OK AND FLAWED (NOT FLAWED)                 ICD       590
                                        *               (A) .GT. 0 IF OK BUT NOT FLAWED (FLAWED)                 ICD       591
        1043         0100 0000           RDSS     ENM    X                 ENTRY/EXIT                            ICD       592
        1045         2000 1214                    LDC    RDSSERR                                                 ICD       593
        1047         5400 0701                    STM    ARTEC             SET SPECIAL EXIT                      ICD       594
        1051         1410                         LDN    10B                                                     DIMA314    45
        1052         3421                         STD    RETRY             INITIALIZE RETRY COUNT                DIMA314    46
        1053         0200 0774           RDSS2    RJM    GGS               GET GENERAL STATUS                    ICD       597
        1055         1007                         SHN    17-10                                                   ICD       598
        1056         0774                         MJN    RDSS2             IF CONTROLLER RESERVED                DIMA314    47
        1057         0200 1010           RDSS4    RJM    CON               WAIT FOR UNIT NOT RESERVED            DIMA314    48
        1061         1006                         SHN    17-11                                                   DIMA314    49
        1062         0604                         PJN    RDSS15            IF NO ALERT STATUS                    DIMA314    50
        1063         0200 0670                    RJM    ART                                                     DIMA314    51
        1065         0371                         UJN    RDSS4                                                   DIMA314    52
                                                                                                                 DIMA314    53
        1066         0200 0735           RDSS15   RJM    GDS               GET DETAIL STATUS                     ICD       609
                                        *         DETERMINE DEVICE TYPE                                          ICD       610
        1070         5000 0757                    LDM    DETAIL+/844/DSWRV                                       ICD       611
        1072         1007                         SHN    17-10                                                   ICD       612
        1073         0710                         MJN    RDSS45            IF 885 OR 844-DOUBLE                  ICD       613
        1074         5000 0764                    LDM    DETAIL+/844/DSWUD                                       ICD       614
        1076         1014                         SHN    17-5                                                    ICD       615
        1077         0706                         MJN    RDSS50            IF 844-DOUBLE                         ICD       616
        1100         2000 1230                    LDC    D44SD             HERE IF 844-SINGLE                    ICD       617
        1102         0321                         UJN    RDSS70                                                  ICD       618
        1103         1005                RDSS45   SHN    10-5                                                    ICD       619
        1104         0704                         MJN    RDSS60            IF 885                                ICD       620
        1105         2000 1241           RDSS50   LDC    D44DD             HERE IF 844-DOUBLE                    ICD       621
        1107         0314                         UJN    RDSS70                                                  ICD       622
        1110         5000 0763           RDSS60   LDM    DETAIL+/844/DSWCV DETERMINE IF WRITE ENABLED            DIMA386     1
        1112         1220                         LPN    20B                                                     DIMA386     2
        1113         0506                         NJN    RDSS65            IF WRITE ENABLED                      DIMA386     3
        1114         2033 2047           RDSS64   LDC    MSGML*1S12+MSGM   IF WRITE NOT ENABLED                  DIMA386     4
        1116         0200 0460                    RJM    DIS               DISPLAY MESSAGE                       DIMA386     5
        1120         0373                         UJN    RDSS64            LOOP ON MESSAGE                       DIMA386     6
        1121         2000 1252           RDSS65   LDC    D885              IF 885                                DIMA386     7
        1123         5400 1130           RDSS70   STM    RDSS75A           MOVE DISK ATTRIBUTES INTO PLACE       ICD       624
        1125         1410                         LDN    D44DD-D44SD-1                                           ICD       625
        1126         3401                         STD    D1                                                      ICD       626
        1127         5001 0000           RDSS75   LDM    **,D1                                                   ICD       627
                                1130     RDSS75A  EQU    *-1                                                     ICD       628
        1131         5401 0030                    STM    DTYPE,D1                                                ICD       629
        1133         3701                         SOD    D1                                                      ICD       630
        1134         0672                         PJN    RDSS75                                                  ICD       631
                                        *         READ DEADSTART SECTOR                                          ICD       632
        1135         1433                RDSS77   LDN    DSCYL                                                   ICD       633
        1136         0200 1264                    RJM    SEK               SEEK                                  ICD       634
        1140         5030 1222                    LDM    RDSST,DTYPE                                             ICD       635
        1142         0200 0716                    RJM    FCN               READ OR READ-FLAWED                   ICD       636
        1144         7440                         ACN    40B                                                     ICD       637
        1145         2021 0560                    LDC    TIMEOUT                                                 ICD       638
        1147         6600 1155           RDSS78   FJM    RDSS79,0          WAIT UNTIL FULL                       ICD       639
        1151         1701                         SBN    1                                                       ICD       640
1       ICD         CTI INSTALL CTI ON DISK - A02                     COMPASS 3.7-871.     23/08/13. 15.42.23.      PAGE    19
        DISK SUBROUTINES                                                                  ICD 
  
        1152         0574                         NJN    RDSS78                                                  ICD       641
        1153         7540                         DCN    40B               TIMED OUT                             ICD       642
        1154         0306                         UJN    RDSS79J                                                 DIMA332     1
                                                                                                                 DIMA314    56
        1155         2000 0502           RDSS79   LDC    DSLN                                                    ICD       644
        1157         7100 2373                    IAM    BUFFER,0          READ IN D.S. SECTOR                   ICD       645
        1161         7540                         DCN    40B                                                     ICD       646
        1162         0200 0774           RDSS79J  RJM    GGS               GET GENERAL STATUS                    ICD       647
        1164         0200 0735                    RJM    GDS               GET DETAIL STATUS                     ICD       648
        1166         3025                         LDD    GENSTAT                                                 ICD       649
        1167         0412                         ZJN    RDSS80            IF NO ERRORS                          ICD       650
        1170         5000 0754                    LDM    DETAIL+/844/DSWAE                                       ICD       651
        1172         1217                         LPN    17B                                                     ICD       652
        1173         1710                         SBN    10B                                                     ICD       653
        1174         0405                         ZJN    RDSS80            IF FLAW ERROR                         ICD       654
        1175         0200 0670                    RJM    ART               ELSE ASK TO RETRY                     ICD       655
        1177         0100 1135                    LJM    RDSS77            TRY AGAIN                             ICD       656
                                        *         DETERMINE IF D.S. SECTOR  FLAWED.                              ICD       657
        1201         1400                RDSS80   LDN    0                 RESET ART EXIT CODE                   ICD       658
        1202         5400 0701                    STM    ARTEC                                                   ICD       659
        1204         3025                         LDD    GENSTAT                                                 ICD       660
        1205         0504                         NJN    RDSS83            IF FLAW ERROR                         ICD       661
        1206         1400                         LDN    0                                                       ICD       662
        1207         0100 1043                    LJM    RDSSX             RETURN                                ICD       663
        1211         1401                RDSS83   LDN    1                                                       DIMA332     2
        1212         0100 1043                    LJM    RDSSX             RETURN                                ICD       668
        1214         1400                RDSSERR  LDN    0                                                       ICD       669
        1215         5400 0701                    STM    ARTEC             RESET ART EXIT ADDRESS                ICD       670
        1217         1500                         LCN    0                 SET A .LT. 0                          ICD       671
        1220         0100 1043                    LJM    RDSSX             RETURN                                ICD       672
  
  
  
  
        1222         0034 0034           RDSST    CON    /885/DRFS,/844/DRFS,/844/DRFS                           ICD       674
        1224         0034 
        1225                       3     ADDR0    BSSZ   3                                                       ICD       675
  
  
  
  
        1230         0001 0023           D44SD    CON    1,/844/MTKS,/844/MSRS                                   ICD       677
        1232         0030 
        1233         0632 0000                    CON    /844/CSDD,/844/TSDD,/844/SSDD                           ICD       678
        1235         0003 
        1236         0627 0000                    CON    /844/DSSC,0,0                                           ICD       679
        1240         0000 
        1241         0002 0023           D44DD    CON    2,/844/MTKS,/844/MSRS                                   ICD       680
        1243         0030 
        1244         1466 0000                    CON    /844/CDDS,/844/TDDD,/844/SDDD                           ICD       681
        1246         0003 
        1247         1463 0000                    CON    /844/DSDC,0,0                                           ICD       682
        1251         0000 
        1252         0000 0050           D885     CON    0,/885/MTKS,/885/MSRS                                   ICD       683
        1254         0040 
        1255         1511 0001                    CON    /885/CSDD,/885/TSDD,/885/SSDD                           ICD       684
        1257         0036 
1       ICD         CTI INSTALL CTI ON DISK - A02                     COMPASS 3.7-871.     23/08/13. 15.42.23.      PAGE    20
        DISK SUBROUTINES                                                                  ICD 
  
        1260         1510 0000                    CON    /885/DSSC,0,0                                           ICD       685
        1262         0000 
  
  
  
  
                                        **        SEK - SEEK DISK ADDRESS.                                       ICD       687
                                        *                                                                        ICD       688
                                        *         SEK ISSUES A SEEK FUNCTION, AND WILL CONTINUE TO ISSUE AS LONG ICD       689
                                        *         AS THE DRIVE HEADS ARE IN MOTION.                              ICD       690
                                        *                                                                        ICD       691
                                        *         ENTRY  (UNIT) = UNIT NUMBER                                    ICD       692
                                        *                (A) = ADDRESS OF CYL/TRACK/SECTOR VECTOR                ICD       693
                                        *                                                                        ICD       694
                                        *         RETURNS TO CALLER IF NO ERRORS                                 ICD       695
                                        *         ELSE GO TO ERROR PROCESSOR                                     ICD       696
        1263         0100 0000           SEK      ENM    X                 ENTRY/EXIT                            ICD       697
        1265         5400 1277                    STM    SEKB              STORE ADDRESS OF DISK ADDRESS         ICD       698
        1267         1402                SEK1     LDN    /844/D2SK                                               ICD       699
        1270         0200 0716                    RJM    FCN               SEEK 2:1                              ICD       700
        1272         7440                         ACN    40B                                                     ICD       701
        1273         3027                         LDD    UNIT                                                    ICD       702
        1274         7200                         OAN    0                 OUTPUT UNIT                           ICD       703
        1275         1403                         LDN    3                                                       ICD       704
        1276         7300 0000                    OAM    **,0              OUTPUT CYL/TRACK/SECTOR               ICD       705
                                1277     SEKB     EQU    *-1                                                     ICD       706
        1300         6600 1300                    FJM    *,0         WAIT FOR TRANSFER TO COMPLETE               ICD       707
        1302         7540                         DCN    40B                                                     ICD       708
        1303         0200 0774                    RJM    GGS               GET GENERAL STATUS                    ICD       709
        1305         0455                         ZJN    SEKX              IF ON CYLINDER                        ICD       710
        1306         1202                         LPN    /844/MP.GSBS                                            ICD       711
        1307         0557                         NJN    SEK1              IF BUSY                               ICD       712
        1310         0200 0670                    RJM    ART               ASK TO RETRY                          ICD       713
        1312         0354                         UJN    SEK1              TRY AGAIN                             ICD       714
  
  
  
  
                                        **        WDSS - WRITE DEADSTART SECTOR                                  ICD       716
                                        *                                                                        ICD       717
                                        *         RETURN TO CALLER IF NO ERRORS                                  ICD       718
                                        *         ELSE GOTO ERROR PROCESSING                                     ICD       719
        1313         0100 0000           WDSS     ENM    X                 ENTRY/EXIT                            ICD       720
        1315         1412                         LDN    10                                                      ICD       721
        1316         3421                         STD    RETRY             INIT RETRY COUNTER                    ICD       722
        1317         2000 0500                    LDC    PRU                                                     ICD       723
        1321         5400 2373                    STM    BUFFER            SET DATA LENGTH                       ICD       724
        1323         1433                WDSS2    LDN    DSCYL             ADDR OF CYL/TRACK/SECTOR              ICD       725
        1324         0200 1264                    RJM    SEK               SEEK                                  ICD       726
                                        *         IF 885 DO NOT TRY TO SET FLAW                                  ICD       727
        1326         3030                         LDD    DTYPE                                                   ICD       728
        1327         0423                         ZJN    WDSS20            IF 885                                ICD       729
        1330         1422                         LDN    /844/DSCF                                               ICD       730
        1331         0200 0716                    RJM    FCN               SET/CLEAR FLAW FUNCTION               ICD       731
        1333         7440                         ACN    40B                                                     ICD       732
        1334         1402                         LDN    2                 CODE FOR SET SECTOR FLAW              ICD       733
        1335         7200                         OAN    0                                                       ICD       734
1       ICD         CTI INSTALL CTI ON DISK - A02                     COMPASS 3.7-871.     23/08/13. 15.42.23.      PAGE    21
        DISK SUBROUTINES                                                                  ICD 
  
        1336         6600 1336                    FJM    *,0         WAIT FOR TRANSFER TO COMPLETE               ICD       735
        1340         7540                         DCN    40B                                                     ICD       736
        1341         0200 1032                    RJM    WNB                                                     DIMA314    57
        1343         0404                         ZJN    WDSS8             IF OK TO PROCEED                      ICD       738
        1344         0200 0670                    RJM    ART               ASK TO RETRY                          ICD       741
        1346         0354                         UJN    WDSS2             TRY AGAIN                             ICD       742
        1347         1433                WDSS8    LDN    DSCYL                                                   ICD       743
        1350         0200 1264                    RJM    SEK               RE-SEEK TO D.S. SECTOR                ICD       744
                                        *         WRITE D.S. SECTOR USING EITHER WRITE-FLAWED (844) OR           ICD       745
                                        *                                        WRITE (885)  .                  ICD       746
        1352         5030 1376           WDSS20   LDM    WDSST,DTYPE                                             ICD       747
        1354         0200 0716                    RJM    FCN                                                     ICD       748
        1356         7440                         ACN    40B                                                     ICD       749
        1357         2000 0502                    LDC    DSLN                                                    ICD       750
        1361         7300 2373                    OAM    BUFFER,0                                                ICD       751
        1363         6600 1363                    FJM    *,0         WAIT FOR TRANSFER TO COMPLETE               ICD       752
        1365         7540                         DCN    40B                                                     ICD       753
        1366         0200 1032                    RJM    WNB                                                     DIMA314    58
        1370         0404                         ZJN    WDSS30            IF NO ERRORS                          ICD       755
        1371         0200 0670                    RJM    ART                                                     ICD       756
        1373         0353                         UJN    WDSS8             TRY AGAIN                             ICD       757
        1374         0100 1313           WDSS30   LJM    WDSSX             RETURN                                ICD       758
        1376         0037 0037           WDSST    CON    /885/DWFS,/844/DWFS,/844/DWFS                           ICD       759
        1400         0037 
  
  
  
  
        1401                                      RSTC                     DISABLE CHANNEL INSTRUCTIONS          ICD       761
1       ICD         CTI INSTALL CTI ON DISK - A02                     COMPASS 3.7-871.     23/08/13. 15.42.23.      PAGE    22
        DISPLAYS                                                                          ICD 
  
                                1401     MSGA     EQU    *                                                       ICD       764
                                   5     LINE     SET    5                                                       ICD       765
        1401         7630                         CON    YSET+762B-LINE*YINCR                                    ICD       766
        1402         6000                         CON    XSET+0                                                  ICD       767
        1403         0516                         DATA   H*ENTER ONE OF THE FOLLOWING*                           ICD       768
                                  10     LINE     SET    LINE+3                                                  ICD       769
        1420         7542                         CON    YSET+762B-LINE*YINCR                                    ICD       770
        1421         6000                         CON    XSET+0                                                  ICD       771
        1422         5551                         DATA   H* (CR) - INSTALL DEADSTART*                            ICD       772
                                  11     LINE     SET    LINE+1                                                  ICD       773
        1437         7520                         CON    YSET+762B-LINE*YINCR                                    ICD       774
        1440         6000                         CON    XSET+0                                                  ICD       775
        1441         5555                         DATA   H*        MODULE ON DISK*                               ICD       776
                                  13     LINE     SET    LINE+2                                                  ICD       777
        1454         7454                         CON    YSET+762B-LINE*YINCR                                    ICD       778
        1455         6000                         CON    XSET+0                                                  ICD       779
        1456         5555                         DATA   H*   R  - RELEASE CMSE-RESERVED*                        ICD       780
                                  14     LINE     SET    LINE+1                                                  ICD       781
        1475         7432                         CON    YSET+762B-LINE*YINCR                                    ICD       782
        1476         6000                         CON    XSET+0                                                  ICD       783
        1477         5555                         DATA   H*        DISK SPACE*                                   ICD       784
                                 107     MSGAL    EQU    *-MSGA                                                  ICD       785
  
  
  
  
                                1510     MSGB     EQU    *                                                       ICD       787
                                   5     LINE     SET    5                                                       ICD       788
        1510         7630                         CON    YSET+762B-LINE*YINCR                                    ICD       789
        1511         6000                         CON    XSET+0                                                  ICD       790
        1512         5555                         DATA   H/          * WARNING */                                ICD       791
                                  10     LINE     SET    LINE+3                                                  ICD       792
        1525         7542                         CON    YSET+762B-LINE*YINCR                                    ICD       793
        1526         6000                         CON    XSET+0                                                  ICD       794
        1527         2005                         DATA   H*PERMANENT FILES MAY BE LOST IF*                       ICD       795
                                  11     LINE     SET    LINE+1                                                  ICD       796
        1546         7520                         CON    YSET+762B-LINE*YINCR                                    ICD       797
        1547         6000                         CON    XSET+0                                                  ICD       798
        1550         0411                         DATA   H*DISK DEADSTART MODULE NOT*                            ICD       799
                                  12     LINE     SET    LINE+1                                                  ICD       800
        1565         7476                         CON    YSET+762B-LINE*YINCR                                    ICD       801
        1566         6000                         CON    XSET+0                                                  ICD       802
        1567         2022                         DATA   H*PREVIOUSLY INSTALLED ON DEVICE*                       ICD       803
                                  15     LINE     SET    LINE+3                                                  ICD       804
        1606         7410                         CON    YSET+762B-LINE*YINCR                                    ICD       805
        1607         6000                         CON    XSET+0                                                  ICD       806
        1610         5551                         DATA   H* (CR)  TO CONTINUE*                                   ICD       807
                                 111     MSGBL    EQU    *-MSGB                                                  ICD       808
1       ICD         CTI INSTALL CTI ON DISK - A02                     COMPASS 3.7-871.     23/08/13. 15.42.23.      PAGE    23
        DISPLAYS                                                                          ICD 
  
                                1621     MSGC     EQU    *                                                       ICD       810
                                   5     LINE     SET    5                                                       ICD       811
        1621         7630                         CON    YSET+762B-LINE*YINCR                                    ICD       812
        1622         6000                         CON    XSET+0                                                  ICD       813
        1623         1116                         DATA   H*INSTALL DISK DEADSTART MODULE*                        ICD       814
                                  21     MSGCL    EQU    *-MSGC                                                  ICD       815
  
  
  
  
                                1642     MSGD     EQU    *                                                       ICD       817
                                   5     LINE     SET    5                                                       ICD       818
        1642         7630                         CON    YSET+762B-LINE*YINCR                                    ICD       819
        1643         6000                         CON    XSET+0                                                  ICD       820
        1644         2205                         DATA   H*RELEASE CMSE-RESERVED DISK SPACE*                     ICD       821
                                  22     MSGDL    EQU    *-MSGD                                                  ICD       822
  
  
  
  
                                1664     MSGE     EQU    *                                                       ICD       824
                                   5     LINE     SET    5                                                       ICD       825
        1664         7630                         CON    YSET+762B-LINE*YINCR                                    ICD       826
        1665         6000                         CON    XSET+0                                                  ICD       827
        1666         2516                         DATA   H*UNABLE TO ACCESS DISK*                                ICD       828
                                  15     MSGEL    EQU    *-MSGE                                                  ICD       829
  
  
  
  
                                1701     MSGF     EQU    *                                                       ICD       831
                                  10     LINE     SET    8                                                       ICD       832
        1701         7542                         CON    YSET+762B-LINE*YINCR                                    ICD       833
        1702         6000                         CON    XSET+0                                                  ICD       834
        1703         5103                         DATA   H*(CR) TO PROCESS DIFFERENT DEVICE*                     ICD       835
                                  22     MSGFL    EQU    *-MSGF                                                  ICD       836
  
  
  
  
                                1723     MSGG     EQU    *                                                       ICD       838
                                   5     LINE     SET    5                                                       ICD       839
        1723         7630                         CON    YSET+762B-LINE*YINCR                                    ICD       840
        1724         6000                         CON    XSET+0                                                  ICD       841
        1725         0516                         DATA   H*ENTRY OF (CR) WILL CAUSE*                             ICD       842
                                   7     LINE     SET    LINE+2                                                  ICD       843
        1741         7564                         CON    YSET+762B-LINE*YINCR                                    ICD       844
        1742         6000                         CON    XSET+0                                                  ICD       845
        1743         2205                         DATA   H*RELEASE OF CMSE-RESERVED SPACE*                       ICD       846
                                  37     MSGGL    EQU    *-MSGG                                                  ICD       847
1       ICD         CTI INSTALL CTI ON DISK - A02                     COMPASS 3.7-871.     23/08/13. 15.42.23.      PAGE    24
        DISPLAYS                                                                          ICD 
  
                                1762     MSGH     EQU    *                                                       ICD       849
                                   5     LINE     SET    5                                                       ICD       850
        1762         7630                         CON    YSET+762B-LINE*YINCR                                    ICD       851
        1763         6000                         CON    XSET+0                                                  ICD       852
        1764         1116                         DATA   H*INSTALL COMPLETE*                                     ICD       853
                                  12     MSGHL    EQU    *-MSGH                                                  ICD       854
  
  
  
  
                                1774     MSGI     EQU    *                                                       ICD       856
                                   5     LINE     SET    5                                                       ICD       857
        1774         7630                         CON    YSET+762B-LINE*YINCR                                    ICD       858
        1775         6000                         CON    XSET+0                                                  ICD       859
        1776         2205                         DATA   H*RELEASE COMPLETE*                                     ICD       860
                                  12     MSGIL    EQU    *-MSGI                                                  ICD       861
  
  
  
  
                                2006     MSGJ     EQU    *                                                       ICD       863
                                   5     LINE     SET    5                                                       ICD       864
        2006         7630                         CON    YSET+762B-LINE*YINCR                                    ICD       865
        2007         6000                         CON    XSET+0                                                  ICD       866
        2010         0522                         DATA   H*ERRORS IN INSTALL*                                    ICD       867
                                  13     MSGJL    EQU    *-MSGJ                                                  ICD       868
  
  
  
  
                                2021     MSGK     EQU    *                                                       DIMA294    42
                                   5     LINE     SET    5                                                       DIMA294    43
        2021         7630                         CON    YSET+762B-LINE*YINCR                                    DIMA294    44
        2022         6000                         CON    XSET+0                                                  DIMA294    45
        2023         1120                         DATA   H*IPL NOT FOUND*                                        DIMA294    46
                                  11     MSGKL    EQU    *-MSGK                                                  DIMA294    47
  
  
  
  
                                2032     MSGL     EQU    *                                                       DIMA294    49
                                   5     LINE     SET    5                                                       DIMA294    50
        2032         7630                         CON    YSET+762B-LINE*YINCR                                    DIMA294    51
        2033         6000                         CON    XSET+0                                                  DIMA294    52
        2034         0324                         DATA   H*CTI CYLINDER OVERFLOW*                                DIMA294    53
                                  15     MSGLL    EQU    *-MSGL                                                  DIMA294    54
1       ICD         CTI INSTALL CTI ON DISK - A02                     COMPASS 3.7-871.     23/08/13. 15.42.23.      PAGE    25
        DISPLAYS                                                                          ICD 
  
                                2047     MSGM     EQU    *                                                       DIMA386     8
                                   5     LINE     SET    5                                                       DIMA386     9
        2047         7630                         CON    YSET+762B-LINE*YINCR                                    DIMA386    10
        2050         6000                         CON    XSET+0                                                  DIMA386    11
        2051         2516                         DATA   H*UNABLE TO INSTALL CTI*                                DIMA386    12
                                  10     LINE     SET    LINE+3                                                  DIMA386    13
        2064         7542                         CON    YSET+762B-LINE*YINCR                                    DIMA386    14
        2065         6000                         CON    XSET+0                                                  DIMA386    15
        2066         2205                         DATA   H*READ ONLY SWITCH ACTIVE*                              DIMA386    16
                                  33     MSGML    EQU    *-MSGM                                                  DIMA386    17
  
  
  
  
                                        *         OPERATOR RESPONSE TABLES                                       ICD       870
        2102         0022                ORTR     CON    1RR                                                     ICD       871
        2103         0060                ORTCR    CON    60B                                                     ICD       872
        2104         0000                         CON    0                 END OF TABLE                          ICD       873
1       ICD         CTI INSTALL CTI ON DISK - A02                     COMPASS 3.7-871.     23/08/13. 15.42.23.      PAGE    26
        BUFFERS                                                                           ICD 
  
                                        *         CHTB - TABLE OF REDEFINED CHANNEL INSTRUCTIONS                 ICD       876
        2105                             CHTB     CHTB                                                           ICD       877
  
  
  
  
                                        **        CALL COMPQOD HERE.                                             ICD       879
        2146                             QOD      CTEXT  COMPQOD - CTI QUERY OPERATOR FOR DEVICE.                COMPQOD     2
  
  
  
  
                                        *         GENERAL I/O BUFFER                                             ICD       882
        2371                       2     BUFFERX  BSSZ   2                 EXTRA FOR LINKAGE BYTES               ICD       883
                                2373     BUFFER   EQU    *                                                       ICD       884
                                                  QUAL   *                                                       ICD       885
1       ICD         CTI INSTALL CTI ON DISK - A02                     COMPASS 3.7-871.     23/08/13. 15.42.23.      PAGE    27
        ICE OVERLAY 
  
                                                  IDENT  ICE,/CTI/ICDLOAD                                        ICD       887
  
  
  
  
                                                  COMMENT CTI ICD OVERLAY                                        DIMA317I    6
                                                  COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1979               DIMA317I    7
  
  
                                        *         ALL RIGHTS RESERVED                                            CDCCRN      3
                                        *                                                                        CDCCRN      4
                                        *         CONTAINED HEREIN ARE SOFTWARE PRODUCTS COPYRIGHTED             CDCCRN      5
                                        *         BY CONTROL DATA CORPORATION.  REPRODUCTION WITHOUT             CDCCRN      6
                                        *         PERMISSION IS PROHIBITED.  THE COPYRIGHT NOTICE                CDCCRN      7
                                        *         MUST APPEAR ON ALL AUTHORIZED COMPLETE OR                      CDCCRN      8
                                        *         PARTIAL COPIES.                                                CDCCRN      9
                                        *                                                                        CDCCRN     10
1       ICD         CTI INSTALL CTI ON DISK - A02                     COMPASS 3.7-871.     23/08/13. 15.42.23.      PAGE    28
        ICE OVERLAY 
  
         150                                      ORG    /CTI/ICDLOAD                                            ICD       892
  
  
                                        **        ICE - OVERLAY FOR ICD                                          ICD       894
                                        *                                                                        ICD       895
                                        *         ICE IS CALLED TO WRITE THE CTI MODULES TO THE                  ICD       896
                                        *         CTI CYLINDER.  ALL MODULES FROM IPL THRU ZZZ ARE               ICD       897
                                        *         WRITTEN.  IT WILL ALSO SET THE CTI POINTER WORDS SO            ICD       898
                                        *         THAT CTI WORD 1 POINTS TO THE FIRST RECORD WHICH IS            ICD       899
                                        *         LOADED BY IPL AT DEADSTART TIME.  CTI WORD 2 WILL              ICD       900
                                        *         POINT TO THE FIRST RECORD IN THE CTI FILE IE. IPL.             ICD       901
                                        *                                                                        ICD       902
                                        *         WHEN ICE IS DONE, IT WILL RELOAD ICD WHICH WILL                ICD       903
                                        *         FINISH THE INSTALLATION PROCESS.                               ICD       904
  
  
                                                  QUAL   ICE                                                     ICD       906
1       ICD         CTI INSTALL CTI ON DISK - A02                     COMPASS 3.7-871.     23/08/13. 15.42.23.      PAGE    29
        MAIN ROUTINE                                                                      ICE 
  
                                 150     ICE      EQU    *                 ENTRY POINT                           ICD       909
         150         2000 1064                    LDC    CHTB                                                    ICD       910
         152         0200 0502                    RJM    ICN               FIX CHANNEL INSTRUCTIONS              ICD       911
  
  
         154         1400                         LDN    0                                                       ICD       913
         155         3443                         STD    PREV              INIT PREV = 0                         ICD       914
         156         3450                         STD    CTICSC            INIT SECTOR COUNT                     ICD       915
  
  
  
  
                                        *         SET INPUT BUFFER AREA TO ALL 7777B                             ICD       917
         157         2000 5653           E20      LDC    /CTI/CTIFWA-BUFFER-1                                    ICD       918
         161         3401                         STD    D1                                                      ICD       919
         162         2000 7777           E22      LDC    7777B                                                   ICD       920
                                 163     FILL     EQU    *-1                                                     ICD       921
         164         5401 1117                    STM    BUFFER,D1                                               ICD       922
         166         3701                         SOD    D1                                                      ICD       923
         167         0672                         PJN    E22                                                     ICD       924
  
  
  
  
                                        *         CALL COMMON DRIVER TO (REWIND), READ NEXT RECORD,              ICD       926
                                        *         WITH NO STRIPPING.  REWIND OCCURS ONLY 1ST TIME.               ICD       927
         170         2000 0174           E30      LDC    E30P                                                    ICD       928
         172         0100 7000                    LJM    /CTI/CDEP                                               ICD       929
         174         1117                E30P     CON    BUFFER            LOAD ADDR                             ICD       930
         175         0201                         CON    E39               TRANSFER ADDR                         ICD       931
         176         0001 0000           E30R     CON    1,0,0             REWIND,READ NEXT,NO STRIP             ICD       932
         200         0000 
                                 201     E39      EQU    *                                                       ICD       933
         201         1400                         LDN    0                                                       ICD       934
         202         5400 0176                    STM    E30R              SET NO REWIND ANY MORE                ICD       935
  
  
  
  
                                        *         COMPUTE LENGTH OF RECORD JUST READ AND INIT RWADDR             ICD       937
         204         2000 6772           E40      LDC    /CTI/CTIFWA-1                                           ICD       938
         206         3401                         STD    D1                                                      ICD       939
         207         4001                E42      LDI    D1                                                      ICD       940
         210         5300 0163                    LMM    FILL                                                    ICD       941
         212         0503                         NJN    E44               IF NON-7777B REACHED                  ICD       942
         213         3701                         SOD    D1                                                      ICD       943
         214         0372                         UJN    E42                                                     ICD       944
         215         3001                E44      LDD    D1                                                      ICD       945
         216         2177 6661                    ADC    1-BUFFER                                                ICD       946
         220         3442                         STD    LENGTH            STORE LENGTH                          ICD       947
                                        *         NOW ADJUST THE LENGTH AS FOLLOWS                               ICD       948
                                        *         TAPE - 5 LESS FOR TRAILER AND DISCONNECT BYTE                  ICD       949
                                        *         DISK - 2 LESS BECAUSE OF LINKAGE BYTES SHIFT.                  ICD       950
         221         1702                         SBN    2                                                       ICD       951
         222         3442                         STD    LENGTH                                                  ICD       952
         223         5000 7001                    LDM    /CTI/CDTYPE       GET DEVICE TYPE CODE                  ICD       953
         225         1713                         SBN    /CTI/D844                                               ICD       954
1       ICD         CTI INSTALL CTI ON DISK - A02                     COMPASS 3.7-871.     23/08/13. 15.42.23.      PAGE    30
        MAIN ROUTINE                                                                      ICE 
  
         226         0604                         PJN    E46               IF NOT FROM TAPE                      ICD       955
         227         3042                         LDD    LENGTH                                                  ICD       956
         230         1703                         SBN    3                                                       ICD       957
         231         3442                         STD    LENGTH                                                  ICD       958
                                 232     E46      EQU    *                                                       ICD       959
         232         2000 1117                    LDC    BUFFER                                                  ICD       960
         234         3441                         STD    RWADDR            RWADDR = A(BUFFER)                    ICD       961
  
  
  
  
                                        *         WRITE A DISK SECTOR                                            ICD       963
         235         0200 0753           E60      RJM    WSEC              WRITE SECTOR                          ICD       964
         237         0404                         ZJN    E100              IF NO ERRORS                          ICD       965
         240         0200 0516           E90      RJM    IDA               INCREMENT DISK ADDRESS                ICD       966
         242         0372                         UJN    E60               TRY AGAIN                             ICD       967
  
  
  
  
                                        *         SET PREV TO POINT TO SECTOR JUST WRITTEN                       ICD       969
         243         3037                E100     LDD    CTITRK                                                  ICD       970
         244         1006                         SHN    6                                                       ICD       971
         245         3140                         ADD    CTISEC                                                  ICD       972
         246         3443                         STD    PREV                                                    ICD       973
         247         3650                         AOD    CTICSC            COUNT NUMBER OF SECTORS WRITTEN       ICD       974
  
  
  
  
                                        *         TEST IF LAST SECTOR OF CURRENT RECORD HAS BEEN WRITTEN         ICD       976
         250         3042                E110     LDD    LENGTH                                                  ICD       977
         251         0402                         ZJN    E120              IF NO MORE TO WRITE                   ICD       978
         252         0365                         UJN    E90                                                     ICD       979
  
  
  
  
                                        *         TEST IF ZZZ RECORD JUST FINISHED                               ICD       981
         253         5000 1124           E120     LDM    BUFFER+NAME                                             ICD       982
         255         2300 3232                    LMC    2RZZ                                                    ICD       983
         257         0521                         NJN    E130              IF NOT ZZZ                            ICD       984
         260         5000 1125                    LDM    BUFFER+NAME+1                                           ICD       985
         262         2300 3200                    LMC    1RZ*100B                                                ICD       986
         264         0514                         NJN    E130              IF NOT ZZZ                            ICD       987
                                        *         REVERSE LINKS AND SET CTI POINTER WORDS                        ICD       988
         265         0200 0602                    RJM    RVL                                                     ICD       989
                                        *         HERE IF ALL DONE. RELOAD ICD TO FINISH INSTALL.                ICD       990
         267         2000 0273           DONE     LDC    E120P                                                   ICD       991
         271         0100 7000                    LJM    /CTI/CDEP         GOTO COMMON DRIVER                    ICD       992
         273         0150                E120P    CON    /CTI/ICDLOAD                                            ICD       993
         274         0151                E120PT   CON    /ICD/ICDALT                                             DIMA294    55
         275         0001                         CON    1                                                       ICD       995
         276         1103                         VFD    18/3LICD,6/0                                            ICD       996
         277         0400 
1       ICD         CTI INSTALL CTI ON DISK - A02                     COMPASS 3.7-871.     23/08/13. 15.42.23.      PAGE    31
        MAIN ROUTINE                                                                      ICE 
  
                                        *         INCREMENT DISK ADDRESS AND GO PROCESS NEXT RECORD              ICD       998
         300         0200 0516           E130     RJM    IDA                                                     ICD       999
         302         0100 0157                    LJM    E20                                                     ICD      1000
1       ICD         CTI INSTALL CTI ON DISK - A02                     COMPASS 3.7-871.     23/08/13. 15.42.23.      PAGE    32
        DISK SUBROUTINES                                                                  ICE 
  
         304                                      RICHI                    ENABLE CHANNEL MACROES                ICD      1003
  
  
  
  
                                        **        ART - ADJUST RETRY COUNTER                                     ICD      1005
                                        *                                                                        ICD      1006
                                        *         DECREMENT COUNTER AND                                          ICD      1007
                                        *         RETURN TO CALLER IF COUNTER .GE. 0                             ICD      1008
                                        *         ELSE GOTO ERROR IF ARTEC = 0                                   ICD      1009
                                        *                   (ARTEC) IF ARTEC .NE. 0                              ICD      1010
                                        *                                                                        ICD      1011
         304         0100 0000           ART      ENM    X                 ENTRY/EXIT                            ICD      1012
         306         3721                         SOD    RETRY                                                   ICD      1013
         307         0674                         PJN    ARTX              EXIT IF MORE RETRIES AVAILABLE        ICD      1014
         310         5000 0316                    LDM    ARTEC             CHECK EXIT CODE                       ICD      1015
         312         0503                         NJN    ART5              IF SPECIAL EXIT                       ICD      1016
         313         0200 0370                    RJM    ERROR             IF NO MORE RETRIES AVAILABLE          ICD      1017
         315         0100 0000           ART5     LJM    0                                                       ICD      1018
                                 316     ARTEC    EQU    *-1               SPECIAL EXIT ADDRESS                  ICD      1019
  
  
  
  
                                        **        AWD - ACTIVATE CHANNEL AND WAIT FOR DATA.                      ICD      1021
                                        *                                                                        ICD      1022
                                        *         AWD ACTIVATES THE FUNCTIONED CHANNEL AND TIMES OUT A FULL      ICD      1023
                                        *         CONDITION.                                                     ICD      1024
                                        *                                                                        ICD      1025
                                        *         EXIT   (A) .NE. 0, DATA ON CHANNEL.                            ICD      1026
                                        *                (A) = 0, NO DATA RECEIVED, CHANNEL DISCONNECTED.        ICD      1027
         317         0100 0000           AWD      ENM    X                 ENTRY/EXIT                            ICD      1028
         321         7440                         ACN    40B               ACTIVATE CHANNEL                      ICD      1029
         322         2021 0560                    LDC    TIMEOUT                                                 ICD      1030
         324         6600 0317           AWD1     FJM    AWDX,0            IF FULL, RETURN                       ICD      1031
         326         1701                         SBN    1                                                       ICD      1032
         327         0574                         NJN    AWD1              IF TIME OUT NOT EXPIRED               ICD      1033
         330         7540                         DCN    40B               DISCONNECT                            ICD      1034
         331         0365                         UJN    AWDX              RETURN                                ICD      1035
  
  
  
  
                                        **        CPO - COMPUTE PRU OFFSET                                       ICD      1037
                                        *                                                                        ICD      1038
                                        *         COMPUTES PRU OFFSET FROM (CTITRK,CTISEC) TO                    ICD      1039
                                        *                                  (RVLTRK,RVLSEC)                       ICD      1040
                                        *                                                                        ICD      1041
                                        *         EXIT   (A) = PRU OFFSET                                        ICD      1042
         332         0100 0000           CPO      ENM    X                 ENTRY/EXIT                            ICD      1043
         334         3040                         LDD    CTISEC                                                  ICD      1044
         335         3145                         ADD    RVLSEC                                                  ICD      1045
         336         1201                         LPN    1                                                       ICD      1046
         337         0406                         ZJN    CPO8              IF BOTH EVEN OR BOTH ODD              ICD      1047
         340         3044                         LDD    RVLTRK                                                  ICD      1048
         341         0200 0356                    RJM    MPY                                                     ICD      1049
         343         3145                         ADD    RVLSEC                                                  ICD      1050
1       ICD         CTI INSTALL CTI ON DISK - A02                     COMPASS 3.7-871.     23/08/13. 15.42.23.      PAGE    33
        DISK SUBROUTINES                                                                  ICE 
  
         344         0365                         UJN    CPOX              RETURN                                ICD      1051
         345         3044                CPO8     LDD    RVLTRK                                                  ICD      1052
         346         3237                         SBD    CTITRK                                                  ICD      1053
         347         0200 0356                    RJM    MPY                                                     ICD      1054
         351         3145                         ADD    RVLSEC                                                  ICD      1055
         352         3240                         SBD    CTISEC                                                  ICD      1056
         353         0356                         UJN    CPOX              RETURN                                ICD      1057
  
  
  
  
                                        **        MPY - CONVERT TRACKS TO SECTORS                                ICD      1059
                                        *                                                                        ICD      1060
                                        *         ENTRY  (A) = TRACKS                                            ICD      1061
                                        *         EXIT   (A) = TRACKS * SECSPER                                  ICD      1062
         354         3002                MPY1     LDD    D2                                                      ICD      1063
         355         0100 0000           MPY      ENM    X                 ENTRY/EXIT                            ICD      1064
         357         3401                         STD    D1                                                      ICD      1065
         360         1400                         LDN    0                                                       ICD      1066
         361         3402                         STD    D2                                                      ICD      1067
         362         3701                MPY3     SOD    D1                                                      ICD      1068
         363         0770                         MJN    MPY1                                                    ICD      1069
         364         3032                         LDD    SECSPER                                                 ICD      1070
         365         3502                         RAD    D2                                                      ICD      1071
         366         0373                         UJN    MPY3                                                    ICD      1072
  
  
  
  
                                        **        ERROR - INTERCEPTS ERROR STATES                                ICD      1074
                                        *                                                                        ICD      1075
                                        *         RELOADS ICD AND ENTERS IT AT THE ERROR ENTRY.                  ICD      1076
         367         0100 0000           ERROR    ENM    X                 ENTRY ONLY                            ICD      1077
         371         2000 0153                    LDC    /ICD/ICDERR                                             DIMA294    56
         373         5400 0274                    STM    E120PT            CHANGE TRANSFER ADDRESS               ICD      1079
         375         0100 0267                    LJM    DONE                                                    ICD      1080
  
  
  
  
                                        **        ERROROF - USED WHEN CTI OVERFLOWS ASSIGNED DISK CYLINDER       DIMA294    57
                                        *                                                                        DIMA294    58
                                        *         RELOADS ICD AND ENTERS ICD AT ICDERR2 ENTRY POINT              DIMA294    59
                                        *                                                                        DIMA294    60
                                        *         CALLS  ICD.                                                    DIMA294    61
                                        *                                                                        DIMA294    62
                                        *         USES   NONE.                                                   DIMA294    63
                                        *                                                                        DIMA294    64
                                        *         EXIT   DOES NOT RETURN TO CALLER.                              DIMA294    65
                                        *                                                                        DIMA294    66
                                                                                                                 DIMA294    67
         377         0100 0000           ERROROF  ENM    X           ENTER ONLY                                  DIMA294    68
         401         2000 0155                    LDC    /ICD/ICDERR2  CHANGE TRANSFER ADDRESS                   DIMA294    69
         403         5400 0274                    STM    E120PT                                                  DIMA294    70
         405         0100 0267                    LJM    DONE                                                    DIMA294    71
1       ICD         CTI INSTALL CTI ON DISK - A02                     COMPASS 3.7-871.     23/08/13. 15.42.23.      PAGE    34
        DISK SUBROUTINES                                                                  ICE 
  
                                        **        FCN - FUNCTION DEVICE.                                         ICD      1082
                                        *                                                                        ICD      1083
                                        *         ENTRY  (A) = FUNCTION CODE.                                    ICD      1084
                                        *                                                                        ICD      1085
                                        *         RETURNS TO CALLER IF NO ERRORS                                 ICD      1086
                                        *         ELSE GO TO ERROR PROCESSOR.                                    ICD      1087
         407         0100 0000           FCN      ENM    X                 ENTRY/EXIT                            ICD      1088
         411         3424                         STD    FCNF              SAVE FUNCTION CODE                    ICD      1089
         412         3024                FCN3     LDD    FCNF              GET FUNCTION CODE                     ICD      1090
         413         7640                         FAN    40B               ISSUE FUNCTION                        ICD      1091
         414         2021 0560                    LDC    TIMEOUT                                                 ICD      1092
         416         6500 0407           FCN1     IJM    FCNX,0            IF FUNCTION ACCEPTED, RETURN          ICD      1093
         420         1701                         SBN    1                                                       ICD      1094
         421         0574                         NJN    FCN1              IF TIMEOUT NOT EXPIRED                ICD      1095
         422         7540                         DCN    40B                                                     ICD      1096
         423         0200 0305                    RJM    ART               ASK TO RETRY                          ICD      1097
         425         0364                         UJN    FCN3              TRY AGAIN                             ICD      1098
  
  
  
  
                                        **        GDS - GET DETAIL STATUS                                        ICD      1100
                                        *                                                                        ICD      1101
                                        *         GDS GETS DETAIL STATUS INTO BUFFER *DETAIL*                    ICD      1102
                                        *                                                                        ICD      1103
                                        *         EXIT   (DETAIL) = DETAIL STATUS                                ICD      1104
         426         0100 0000           GDS      ENM    X                 ENTRY/EXIT                            ICD      1105
         430         1413                GDS2     LDN    /844/DDSS                                               ICD      1106
         431         0200 0410                    RJM    FCN                                                     ICD      1107
         433         0200 0320                    RJM    AWD                                                     ICD      1108
         435         0504                         NJN    GDS5              IF DATA ON CHANNEL                    ICD      1109
         436         0200 0305                    RJM    ART                                                     ICD      1110
         440         0367                         UJN    GDS2                                                    ICD      1111
         441         1414                GDS5     LDN    DETAILL                                                 ICD      1112
         442         7100 0446                    IAM    DETAIL,0                                                ICD      1113
         444         7540                         DCN    40B                                                     ICD      1114
         445         0360                         UJN    GDSX              RETURN                                ICD      1115
         446                      14     DETAIL   BSSZ   /844/SLNS                                               ICD      1116
                                  14     DETAILL  EQU    *-DETAIL                                                ICD      1117
  
  
  
  
                                        **        GGS - GET GENERAL STATUS.                                      ICD      1119
                                        *                                                                        ICD      1120
                                        *         GGS ISSUES THE GENERAL STATUS FUNCTION  AND UPDATES            ICD      1121
                                        *         THE DIRECT CELL *GENSTAT*.  THE STATUS IS ALSO RETURNED        ICD      1122
                                        *         IN (A).                                                        ICD      1123
                                        *                                                                        ICD      1124
                                        *         EXIT   (GENSTAT) = GENERAL STATUS REPLY.                       ICD      1125
                                        *                (A) = GENERAL STATUS REPLY.                             ICD      1126
                                        *                                                                        ICD      1127
         462         0200 0305           GGS2     RJM    ART               ASK TO RETRY                          ICD      1128
         464         0303                         UJN    GGS3              TRY AGAIN                             ICD      1129
         465         0100 0000           GGS      ENM    X                 ENTRY/EXIT                            ICD      1130
         467         1412                GGS3     LDN    /844/DGST                                               ICD      1131
         470         0200 0410                    RJM    FCN               FUNCTION DEVICE                       ICD      1132
1       ICD         CTI INSTALL CTI ON DISK - A02                     COMPASS 3.7-871.     23/08/13. 15.42.23.      PAGE    35
        DISK SUBROUTINES                                              GGS                 ICE 
  
         472         0200 0320                    RJM    AWD               ACTIVATE CHAN AND WAIT FOR DATA       ICD      1133
         474         0465                         ZJN    GGS2              IF NO DATA COMING                     ICD      1134
         475         7000                         IAN    0                 READ STATUS                           ICD      1135
         476         7540                         DCN    40B                                                     ICD      1136
         477         3425                         STD    GENSTAT                                                 ICD      1137
         500         0364                         UJN    GGSX              RETURN                                ICD      1138
  
  
  
  
                                        **        ICN - INSERT CHANNEL NO.                                       ICD      1140
                                        *                                                                        ICD      1141
                                        *         ICN INSERTS CHANNEL NO.S IN INSTRUCTIONS GIVEN                 ICD      1142
                                        *         IN A LIST TERMINATED WITH A ZERO.                              ICD      1143
                                        *                                                                        ICD      1144
                                        *         ENTRY  (A) = FWA OF CHANNEL LIST.                              ICD      1145
                                        *                (CHAN) = CHANNEL NO.                                    ICD      1146
                                        *                                                                        ICD      1147
                                        *         USES   D2, D3.                                                 ICD      1148
         501         0100 0000           ICN      ENM    X                 ENTRY/EXIT                            ICD      1149
         503         3402                         STD    D2                                                      ICD      1150
         504         4002                ICN1     LDI    D2                                                      ICD      1151
         505         0473                         ZJN    ICNX              IF LIST COMPLETE                      ICD      1152
         506         3403                         STD    D3                                                      ICD      1153
         507         4003                         LDI    D3                                                      ICD      1154
         510         1337                         SCN    37B                                                     ICD      1155
         511         3126                         ADD    CHAN              ADD IN NEW CHANNEL NO.                ICD      1156
         512         4403                         STI    D3                                                      ICD      1157
         513         3602                         AOD    D2                                                      ICD      1158
         514         0367                         UJN    ICN1              CONTINUE PROCESSING                   ICD      1159
  
  
  
  
                                        **        IDA - INCREMENT DISK ADDRESS                                   ICD      1161
                                        *                                                                        ICD      1162
                                        *         IDA INCREMENTS THE CTI DISK ADDRESS VECTOR,                    ICD      1163
                                        *                        (CTICYL,CTITRK,CTISEC),                         ICD      1164
                                        *         TO THE NEXT POSSIBLE LOCATION.                                 ICD      1165
         515         0100 0000           IDA      ENM    X                 ENTRY/EXIT                            ICD      1166
         517         1402                         LDN    2                 ADD 2 TO SECTOR                       ICD      1167
         520         3540                         RAD    CTISEC                                                  ICD      1168
         521         3232                         SBD    SECSPER                                                 ICD      1169
         522         0772                         MJN    IDAX              IF .LE. MAX, RETURN                   ICD      1170
         523         3440                         STD    CTISEC                                                  ICD      1171
         524         3637                         AOD    CTITRK            ADD 1 TO TRACK                        ICD      1172
         525         3231                         SBD    TRKSPER                                                 ICD      1173
         526         0766                         MJN    IDAX              IF .LE. MAX, RETURN                   ICD      1174
         527         3040                         LDD    CTISEC                                                  ICD      1175
         530         0403                         ZJN    IDA3                                                    ICD      1176
         531         0200 0400                    RJM    ERROROF     CALLS AND ENTERS ICD, DOES NOT RETURN       DIMA294    73
         533         1400                IDA3     LDN    0                 SET TRACK=0, SECTOR=1                 ICD      1178
         534         3437                         STD    CTITRK                                                  ICD      1179
         535         3640                         AOD    CTISEC                                                  ICD      1180
         536         0356                         UJN    IDAX              RETURN                                ICD      1181
1       ICD         CTI INSTALL CTI ON DISK - A02                     COMPASS 3.7-871.     23/08/13. 15.42.23.      PAGE    36
        DISK SUBROUTINES                                                                  ICE 
  
                                        **        RSEC - READ SECTOR                                             ICD      1183
                                        *                                                                        ICD      1184
                                        *         READS SECTOR (CTICYL,CTITRK,CTISEC) INTO BUFFERX               ICD      1185
                                        *                                                                        ICD      1186
                                        *         RETURNS TO CALLER IF NO ERRORS                                 ICD      1187
                                        *         ELSE GOTO ERROR PROCESSOR                                      ICD      1188
         537         0100 0000           RSEC     ENM    X                 ENTRY/EXIT                            ICD      1189
         541         1412                         LDN    10                                                      ICD      1190
         542         3421                         STD    RETRY             INIT RETRY COUNTER                    ICD      1191
         543         1436                RSEC20   LDN    CTICYL                                                  ICD      1192
         544         0200 0721                    RJM    SEK               SEEK                                  ICD      1193
         546         1404                         LDN    /844/DRED                                               ICD      1194
         547         0200 0410                    RJM    FCN               READ                                  ICD      1195
         551         7440                         ACN    40B                                                     ICD      1196
         552         2021 0560                    LDC    TIMEOUT                                                 ICD      1197
         554         6600 0564           RSEC25   FJM    RSEC30,0          WAIT UNTIL FULL                       ICD      1198
         556         1701                         SBN    1                                                       ICD      1199
         557         0574                         NJN    RSEC25                                                  ICD      1200
         560         7540                         DCN    40B                                                     ICD      1201
         561         0200 0305           RSEC27   RJM    ART               ASK TO RETRY                          ICD      1202
         563         0357                         UJN    RSEC20            TRY AGAIN                             ICD      1203
         564         2000 0502           RSEC30   LDC    DSLN                                                    ICD      1204
         566         7100 1115                    IAM    BUFFERX,0         READ IN DATA                          ICD      1205
         570         7540                         DCN    40B                                                     ICD      1206
         571         0200 0466                    RJM    GGS               GET GENERAL STATUS                    ICD      1207
         573         0404                         ZJN    RSEC40            IF NO ERRORS                          ICD      1208
         574         0200 0427                    RJM    GDS               GET DETAIL STATUS                     ICD      1209
         576         0362                         UJN    RSEC27            TRY AGAIN                             ICD      1210
         577         0100 0537           RSEC40   LJM    RSECX             OK,RETURN                             ICD      1211
  
  
  
  
                                        **        RVL - REVERSE LINKS AND SET CTI POINTERS                       ICD      1213
                                        *                                                                        ICD      1214
                                        *         RVL READS (IN REVERSE ORDER), THE SECTORS WRITTEN IN THE       ICD      1215
                                        *         CTI CYLINDER AND REWRITES THEM SO THAT THE 2ND LINKAGE         ICD      1216
                                        *         BYTE OF EACH SECTOR IS A FORWARD POINTING PRU OFFSET.          ICD      1217
                                        *         IT WILL ALSO SET THE CTI POINTER WORDS SO THAT THE CTI         ICD      1218
                                        *         POINTER WORD 1 HAS THE ADDRESS OF THE CTI MODULE WHICH         ICD      1219
                                        *         IS LOADED BY IPL AT DEADSTART TIME, AND CTI POINTER            ICD      1220
                                        *         WORD 2 HAS THE ADDRESS OF THE 1ST CTI MODULE, IE. IPL.         ICD      1221
                                        *                                                                        ICD      1222
                                        *         RETURNS TO THE CALLER IF NO ERRORS                             ICD      1223
                                        *         ELSE GOTO ERROR PROCESSOR.                                     ICD      1224
         601         0100 0000           RVL      ENM    X                 ENTRY/EXIT                            ICD      1225
         603         3037                         LDD    CTITRK                                                  ICD      1226
         604         3444                         STD    RVLTRK                                                  ICD      1227
         605         3040                         LDD    CTISEC                                                  ICD      1228
         606         3445                         STD    RVLSEC                                                  ICD      1229
         607         0200 0540           RVL10    RJM    RSEC              READ CURRENT SECTOR INTO BUFFERX      ICD      1230
         611         5000 1116                    LDM    BUFFERX+1                                               ICD      1231
         613         3446                         STD    RVLLB2            SAVE 2ND LINKAGE BYTE                 ICD      1232
         614         5000 1115                    LDM    BUFFERX                                                 ICD      1233
         616         0405                         ZJN    RVL18             IF FULL-LAST SECTOR                   ICD      1234
         617         2177 7277                    ADC    -500B                                                   ICD      1235
         621         0502                         NJN    RVL18                                                   ICD      1236
1       ICD         CTI INSTALL CTI ON DISK - A02                     COMPASS 3.7-871.     23/08/13. 15.42.23.      PAGE    37
        DISK SUBROUTINES                                                                  ICE 
  
         622         1401                         LDN    1                 FORCE WSEC TO NOT CHANGE 500 TO 0     ICD      1237
         623         2100 0500           RVL18    ADC    500B                                                    ICD      1238
         625         3442                RVL20    STD    LENGTH            SAVE LENGTH OF DATA                   ICD      1239
         626         2000 1117                    LDC    BUFFER                                                  ICD      1240
         630         3441                         STD    RWADDR                                                  ICD      1241
         631         0200 0333                    RJM    CPO               COMPUTE PRU OFFSET                    ICD      1242
         633         3443                         STD    PREV                                                    ICD      1243
         634         0200 0753                    RJM    WSEC              REWRITE SECTOR WITH NEW LINK          ICD      1244
         636         0403                         ZJN    RVL30             IF NO ERRORS                          ICD      1245
         637         0200 0370                    RJM    ERROR             ELSE TOO BAD                          ICD      1246
                                        *         IF APPROPRIATE DRIVER, SET CTI POINTER WORD 1                  ICD      1247
         641         5000 1124           RVL30    LDM    BUFFER+NAME       LOOKING FOR CD4 OR CD8                ICD      1248
         643         2300 0304                    LMC    2RCD                                                    ICD      1249
         645         0517                         NJN    RVL50             IF NOT                                ICD      1250
         646         5000 1125                    LDM    BUFFER+NAME+1                                           ICD      1251
         650         5330 0715                    LMM    RVLTAB,DTYPE                                            ICD      1252
         652         0512                         NJN    RVL50             IF NOT                                ICD      1253
         653         3036                         LDD    CTICYL            SAVE ADDRESS OF DRIVER                ICD      1254
         654         5400 0076                    STM    CPBCTI+0                                                ICD      1255
         656         3037                         LDD    CTITRK                                                  ICD      1256
         657         5400 0077                    STM    CPBCTI+1                                                ICD      1257
         661         3040                         LDD    CTISEC                                                  ICD      1258
         662         5400 0100                    STM    CPBCTI+2                                                ICD      1259
         664         3037                RVL50    LDD    CTITRK            RVLTRK/RVLSEC = CTITRK/CTISEC         ICD      1260
         665         3444                         STD    RVLTRK                                                  ICD      1261
         666         3040                         LDD    CTISEC                                                  ICD      1262
         667         3445                         STD    RVLSEC                                                  ICD      1263
         670         3750                         SOD    CTICSC            DECREMENT RECORDS WRITTEN COUNT       ICD      1264
         671         0514                         NJN    RVL60             IF MORE RECORDS TO READ               ICD      1265
         672         3036                         LDD    CTICYL            SAVE ADDRESS OF 1ST CTI RECORD        ICD      1266
         673         5400 0103                    STM    CPBCTI+5+0                                              ICD      1267
         675         3037                         LDD    CTITRK                                                  ICD      1268
         676         5400 0104                    STM    CPBCTI+5+1                                              ICD      1269
         700         3040                         LDD    CTISEC                                                  ICD      1270
         701         5400 0105                    STM    CPBCTI+5+2                                              ICD      1271
         703         0100 0601                    LJM    RVLX              RETURN                                ICD      1272
         705         3046                RVL60    LDD    RVLLB2                                                  ICD      1273
         706         1277                         LPN    77B               CTITRK/CTISEC = RVLLB2                ICD      1274
         707         3440                         STD    CTISEC                                                  ICD      1275
         710         3046                         LDD    RVLLB2                                                  ICD      1276
         711         1071                         SHN    -6                                                      ICD      1277
         712         3437                         STD    CTITRK                                                  ICD      1278
         713         0100 0607                    LJM    RVL10                                                   ICD      1279
         715         4300 3700           RVLTAB   CON    1R8*100B,1R4*100B,1R4*100B                              ICD      1280
         717         3700 
1       ICD         CTI INSTALL CTI ON DISK - A02                     COMPASS 3.7-871.     23/08/13. 15.42.23.      PAGE    38
        DISK SUBROUTINES                                              SEK                 ICE 
  
                                        **        SEK - SEEK DISK ADDRESS.                                       ICD      1282
                                        *                                                                        ICD      1283
                                        *         SEK ISSUES A SEEK FUNCTION, AND WILL CONTINUE TO ISSUE AS LONG ICD      1284
                                        *         AS THE DRIVE HEADS ARE IN MOTION.                              ICD      1285
                                        *                                                                        ICD      1286
                                        *         ENTRY  (UNIT) = UNIT NUMBER                                    ICD      1287
                                        *                (A) = ADDRESS OF CYL/TRACK/SECTOR VECTOR                ICD      1288
                                        *                                                                        ICD      1289
                                        *         RETURNS TO CALLER IF NO ERRORS                                 ICD      1290
                                        *         ELSE GO TO ERROR PROCESSOR                                     ICD      1291
         720         0100 0000           SEK      ENM    X                 ENTRY/EXIT                            ICD      1292
         722         5400 0734                    STM    SEKB              STORE ADDRESS OF DISK ADDRESS         ICD      1293
         724         1402                SEK1     LDN    /844/D2SK                                               ICD      1294
         725         0200 0410                    RJM    FCN               SEEK 2:1                              ICD      1295
         727         7440                         ACN    40B                                                     ICD      1296
         730         3027                         LDD    UNIT                                                    ICD      1297
         731         7200                         OAN    0                 OUTPUT UNIT                           ICD      1298
         732         1403                         LDN    3                                                       ICD      1299
         733         7300 0000                    OAM    **,0              OUTPUT CYL/TRACK/SECTOR               ICD      1300
                                 734     SEKB     EQU    *-1                                                     ICD      1301
         735         6600 0735                    FJM    *,0         WAIT FOR TRANSFER TO COMPLETE               ICD      1302
         737         7540                         DCN    40B                                                     ICD      1303
         740         0200 0466                    RJM    GGS               GET GENERAL STATUS                    ICD      1304
         742         0455                         ZJN    SEKX              IF ON CYLINDER                        ICD      1305
         743         1202                         LPN    /844/MP.GSBS                                            ICD      1306
         744         0557                         NJN    SEK1              IF BUSY                               ICD      1307
         745         0200 0305                    RJM    ART               ASK TO RETRY                          ICD      1308
         747         0354                         UJN    SEK1              TRY AGAIN                             ICD      1309
  
  
  
  
                                        **        TRAP - YOU CAN JUMP HERE WHEN THAT CASE THAT                   ICD      1311
                                        *                 SHOULD NEVER HAPPEN, FINALLY OCCURS.                   ICD      1312
         750         0000                TRAP     CON    0                 HOLDS CALLERS ADDRESS                 ICD      1313
         751         0300                         UJN    *                 HANG                                  ICD      1314
  
  
  
  
                                        **        WSEC - WRITE SECTOR                                            ICD      1316
                                        *                                                                        ICD      1317
                                        *         WSEC TRIES TO WRITE A SPECIFIED DATA BLOCK TO A                ICD      1318
                                        *         SPECIFIED DISK ADDRESS.                                        ICD      1319
                                        *                                                                        ICD      1320
                                        *         ENTRY  (CTICYL,CTITRK,CTISEC) = SECTOR TO BE WRITTEN           ICD      1321
                                        *                (RWADDR) = ADDRESS OF DATA BLOCK                        ICD      1322
                                        *                (LENGTH) = LENGTH YET TO BE WRITTEN                     ICD      1323
                                        *                (PREV) = TTSS OF LAST GOOD WRITE                        ICD      1324
                                        *                                                                        ICD      1325
                                        *         TWO BYTES PRECEDING THE DATA BLOCK ARE                         ICD      1326
                                        *         CHANGED BY WSEC.  THE FIRST WILL HAVE THE                      ICD      1327
                                        *         LENGTH OF DATA IN THIS SECTOR, UNLESS THIS IS                  ICD      1328
                                        *         A LAST-FULL SECTOR IN WHICH CASE THE LENGTH BYTE = 0.          ICD      1329
                                        *         THE SECOND BYTE WILL HAVE (PREV), A LINK TO THE                ICD      1330
                                        *         PREVIOUS SECTOR.                                               ICD      1331
                                        *                                                                        ICD      1332
1       ICD         CTI INSTALL CTI ON DISK - A02                     COMPASS 3.7-871.     23/08/13. 15.42.23.      PAGE    39
        DISK SUBROUTINES                                                                  ICE 
  
                                        *         EXIT   (LENGTH) IS REDUCED BY THE AMOUNT WRITTEN.              ICD      1333
                                        *                (RWADDR) IS ADVANCED BY THE AMOUNT WRITTEN.             ICD      1334
                                        *                (A) = 0 IF NO ERRORS                                    ICD      1335
                                        *                (A) .NE. 0 IF UNABLE TO WRITE CURRENT SECTOR.           ICD      1336
         752         0100 0000           WSEC     ENM    X                 ENTRY/EXIT                            ICD      1337
         754         1412                         LDN    10                                                      ICD      1338
         755         3421                         STD    RETRY                                                   ICD      1339
         756         2000 1053                    LDC    WSECERR                                                 ICD      1340
         760         5400 0316                    STM    ARTEC             SET ART EXIT ADDRESS                  ICD      1341
         762         3041                         LDD    RWADDR                                                  ICD      1342
         763         1702                         SBN    2                                                       ICD      1343
         764         3401                         STD    D1                (D1) = (RWADDR) - 2                   ICD      1344
         765         5400 1020                    STM    WSEC20B                                                 ICD      1345
         767         3042                         LDD    LENGTH            DETERMINE VALUE FOR 1ST LINKAGE BYTE  ICD      1346
         770         2177 7277                    ADC    -500B                                                   ICD      1347
         772         0405                         ZJN    WSEC10                                                  ICD      1348
         773         0702                         MJN    WSEC8                                                   ICD      1349
         774         1400                         LDN    0                                                       ICD      1350
         775         2100 0500           WSEC8    ADC    500B                                                    ICD      1351
         777         4401                WSEC10   STI    D1                STORE 1ST LINKAGE BYTE                ICD      1352
        1000         5400 1035                    STM    WSEC60B                                                 ICD      1353
        1002         3043                         LDD    PREV                                                    ICD      1354
        1003         5401 0001                    STM    1,D1              STORE 2ND LINKAGE BYTE                ICD      1355
        1005         1436                WSEC20   LDN    CTICYL                                                  ICD      1356
        1006         0200 0721                    RJM    SEK               SEEK                                  ICD      1357
        1010         5030 1061                    LDM    WSECWFT,DTYPE                                           ICD      1358
        1012         0200 0410                    RJM    FCN               WRITE                                 ICD      1359
        1014         7440                         ACN    40B                                                     ICD      1360
        1015         2000 0502                    LDC    DSLN                                                    ICD      1361
        1017         7300 0000                    OAM    **,0              OUTPUT ONE SECTOR                     ICD      1362
                                1020     WSEC20B  EQU    *-1                                                     ICD      1363
        1021         6600 1021                    FJM    *,0         WAIT FOR TRANSFER TO COMPLETE               ICD      1364
        1023         7540                         DCN    40B                                                     ICD      1365
        1024         0200 0466                    RJM    GGS               GET GENERAL STATUS                    ICD      1366
        1026         0406                         ZJN    WSEC40            IF NO ERRORS                          ICD      1367
        1027         0200 0427                    RJM    GDS               GET DETAIL STATUS                     ICD      1368
        1031         0200 0305           WSEC30   RJM    ART               ASK TO RETRY                          ICD      1369
        1033         0351                         UJN    WSEC20            TRY AGAIN                             ICD      1370
                                1034     WSEC40   EQU    *                                                       ICD      1371
                                        *         HERE IF SUCCESSFUL WRITE COMPLETED                             ICD      1372
                                                  IFGT   DEBUG$,0                                                ICD      1373
                                                  ENDIF                                                          ICD      1388
        1034         2000 0000           WSEC60   LDC    **                LENGTH BYTE JUST WRITTEN              ICD      1389
                                1035     WSEC60B  EQU    *-1                                                     ICD      1390
        1036         0503                         NJN    WSEC62                                                  ICD      1391
        1037         2000 0500                    LDC    500B                                                    ICD      1392
        1041         3401                WSEC62   STD    D1                STORE LENGTH JUST WRITTEN             ICD      1393
        1042         3541                         RAD    RWADDR            UPDATE DATA ADDRESS FOR NEXT SECTOR   ICD      1394
        1043         3042                         LDD    LENGTH                                                  ICD      1395
        1044         3201                         SBD    D1                                                      ICD      1396
        1045         3442                         STD    LENGTH            UPDATE LENGTH REMAINING               ICD      1397
        1046         1400                         LDN    0                                                       ICD      1398
        1047         5400 0316                    STM    ARTEC             RESET ART EXIT CODE                   ICD      1399
        1051         0100 0752                    LJM    WSECX             RETURN                                ICD      1400
                                        *         HERE IF UNABLE TO WRITE GOOD SECTOR                            ICD      1401
        1053         1400                WSECERR  LDN    0                                                       ICD      1402
        1054         5400 0316                    STM    ARTEC             RESET ART EXIT CODE                   ICD      1403
1       ICD         CTI INSTALL CTI ON DISK - A02                     COMPASS 3.7-871.     23/08/13. 15.42.23.      PAGE    40
        DISK SUBROUTINES                                                                  ICE 
  
        1056         1401                         LDN    1                                                       ICD      1404
        1057         0100 0752                    LJM    WSECX             RETURN (A) .NE. 0                     ICD      1405
                                                                                                                 ICD      1406
                                        *         WRITE FUNCTION TABLE                                           ICD      1407
                                                                                                                 ICD      1408
        1061         0035 0005           WSECWFT  CON    /885/DWLS,/844/DWRT,/844/DWRT                           ICD      1409
        1063         0005 
1       ICD         CTI INSTALL CTI ON DISK - A02                     COMPASS 3.7-871.     23/08/13. 15.42.23.      PAGE    41
        BUFFERS                                                                           ICE 
  
                                        *         CHTB - TABLE OF REDEFINED CHANNEL INSTRUCTIONS                 ICD      1412
        1064                             CHTB     CHTB                                                           ICD      1413
  
  
  
  
                                        *         GENERAL I/O BUFFER                                             ICD      1415
        1115                       2     BUFFERX  BSSZ   2                 EXTRA FOR LINKAGE BYTES               ICD      1416
                                1117     BUFFER   EQU    *                                                       ICD      1417
        1117                                      END                                                            ICD      1418
  
                             60000B CM  STORAGE USED             3134 STATEMENTS     1251 SYMBOLS      000209 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            2.565 SECONDS        1170 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ACNC         7400                   3/45 D
        ADCC         2100                   3/39 D
        AJMC         6400                   3/42 D
        CHAN           26                   6/10 D   11/20 S   13/10 S   13/26 S   35/27
                                            6/11     11/22     13/11     13/51
        CHD            10                   4/15 D   11/52     11/55     14/16     14/18
                                           11/51     11/53     11/56     14/17     14/19
        CMADDR         47                   6/27 D    6/28
        CPBCTI         76                   6/36 D    6/40     37/21 S   37/31 S   37/35 S
                                            6/37     37/19 S   37/23 S   37/33 S
        CPBDS         122                   6/38 D    6/39
        CPBLEN         50                   6/35 D    6/36      8/32      9/22     11/04
        CPBMS         110                   6/37 D    6/38
        CPBOS         134                   6/39 D   10/16 S
        CPBUFF         76                   6/40 D    8/35 S    9/24     11/07 S
        CTICSC         50                   6/28 D   29/08 S   30/26 S   37/28 S
        CTICYL         36                   6/18 D    6/19     36/10     37/18     37/30     39/24
        CTISEC         40                   6/20 D   30/24     33/06     35/45 S   35/54 S   37/22     37/34
                                            6/21     32/51     35/42 S   35/49     36/49     37/26     37/39 S
        CTITRK         37                   6/19 D   30/22     35/46 S   36/47     37/24     37/42 S
                                            6/20     33/03     35/53 S   37/20     37/32
        DCNC         7500                   3/46 D
        DEBUG$          0                   4/07 D
        DSCYL          33                   6/15 D    6/16     18/50     20/48     21/07
        DSIFT           0                   2/44 D
        DSLN          502                   5/14 D   19/05     21/14     36/22     39/29
        DSR885          4                   5/23 D
        DSSEC          35                   6/17 D    6/18
        DSTRK          34                   6/16 D    6/17
        DSW885         35                   5/24 D
        DTYPE          30                   6/12 D    6/13     18/46 S   18/52     20/51     21/11     37/16     39/26
        D0              0                   3/06 D
        D1              1                   3/07 D    9/23 S   10/15     11/08 S   18/44     29/19 S   33/18 S   39/47 S
                                            8/33 S    9/24     10/16     14/15 S   18/46     29/42 S   33/21 S   39/50
                                            8/34      9/25     10/17 S   14/22     18/47 S   29/43     39/12 S
                                            8/35      9/26 S   11/05 S   14/26 S   29/15 S   29/46 S   39/20 I
                                            8/36 S   10/14 S   11/07     18/43 S   29/18     29/48     39/23
        D10            10                   3/17 D
        D11            11                   3/18 D
1       ICD         CTI INSTALL CTI ON DISK - A02                     COMPASS 3.7-871.     23/08/13. 15.42.23.      PAGE    42
        SYMBOLIC REFERENCE TABLE. 
  
        D12            12                   3/19 D
        D13            13                   3/20 D
        D14            14                   3/21 D
        D15            15                   3/22 D
        D16            16                   3/23 D
        D17            17                   3/24 D
        D2              2                   3/08 D   13/46     14/13     14/24     33/20 S   35/21 S   35/29 S
                                           13/45 S   13/53 S   14/21 S   33/16     33/24 S   35/22
        D20            20                   3/25 D
        D3              3                   3/09 D   13/48 S   13/49     13/52 I   35/24 S   35/25     35/28 I
        D4              4                   3/10 D
        D5              5                   3/11 D
        D6              6                   3/12 D
        D7              7                   3/15 D
        FCNF           24                   6/08 D   15/51 S   15/52     34/08 S   34/09
        F.CHL           2                   4/26 D
        F.CHM           1                   4/25 D   11/51
        F.CHR           0                   4/21 D   11/51
        F.CHS           0                   4/24 D
        F.DOT          10                   4/22 D
        F.KEY          20                   4/23 D   14/16
        F.SBS         200                   4/20 D
        F.SEL        7000                   4/17 D   11/51     14/16
        F.SLS           0                   4/18 D   11/51
        F.SRS         100                   4/19 D
        GENSTAT        25                   6/09 D   16/48 S   17/23     17/38     19/10     19/21     35/05 S
        IAMC         7100                   3/43 D
        IOR            22                   6/06 D    7/35 S    9/41     11/24
        LCNC         1500                   3/36 D
        LDCC         2000                   3/38 D
        LDDC         3000                   3/41 D
        LENGTH         42                   6/22 D   29/50 S   30/02     30/32     39/14     39/51 S
                                            6/23     29/55 S   30/04 S   37/03 S   39/49
        LMCC         2300                   3/40 D
        MSGLEN         23                   6/07 D    7/28 S    7/44 S   11/50
        NAME            5                   4/06 D    9/08      9/11     30/40     30/43     37/12     37/15
        OAMC         7300                   3/44 D
        PREV           43                   6/23 D    6/24     29/07 S   30/25 S   37/07 S   39/22
        PRU           500                   5/15 D   20/46
        PSNC            0                   3/32 D
        REPADDR        20                   6/04 D   11/23 S
        RETRY          21                   6/05 D   12/16 S   15/14 S   18/10 S   20/45 S   32/14 S   36/09 S   39/07 S
        RICHI$          0                   4/04 D
        RVLLB2         46                   6/26 D    6/27     36/53 S   37/37     37/40
        RVLSEC         45                   6/25 D    6/26     32/52     32/57     33/05     36/50 S   37/27 S
        RVLTRK         44                   6/24 D    6/25     32/55     33/02     36/48 S   37/25 S
        RWADDR         41                   6/21 D    6/22     30/07 S   37/05 S   39/10     39/48 S
        SBNC         1700                   3/37 D
        SECSPER        32                   6/14 D    6/15     33/23     35/43
        SHNC         1000                   3/35 D
        TIMEOUT    210560                   4/05 D   15/34     15/54     18/55     32/34     34/11     36/15
        TRKSPER        31                   6/13 D    6/14     35/47
        UJNC          300                   3/33 D   13/28
        UNIT           27                   6/11 D    6/12     11/21 S   17/16     20/22     38/16
        XSET         6000                   4/28 D   22/12     22/30     22/42     23/14     23/44     24/14     24/44
                                           22/04     22/16     22/34     22/46     23/24     23/48     24/24     25/04
                                           22/08     22/20     22/38     23/04     23/34     24/04     24/34     25/08
1       ICD         CTI INSTALL CTI ON DISK - A02                     COMPASS 3.7-871.     23/08/13. 15.42.23.      PAGE    43
        SYMBOLIC REFERENCE TABLE. 
  
        YINCR          22                   4/30 D   22/11     22/29     22/41     23/13     23/43     24/13     24/43
                                           22/03     22/15     22/33     22/45     23/23     23/47     24/23     25/03
                                           22/07     22/19     22/37     23/03     23/33     24/03     24/33     25/07
        YSET         7000                   4/29 D   22/11     22/29     22/41     23/13     23/43     24/13     24/43
                                           22/03     22/15     22/33     22/45     23/23     23/47     24/23     25/03
                                           22/07     22/19     22/37     23/03     23/33     24/03     24/33     25/07
        ZJNC          400                   3/34 D
  
  
  
  
                                                  SYMBOL QUALIFIER =  844 
  
  
        CDDS         1466                  19/50
        CSDD          632                  19/44
        DCON            0                  17/13
        DDSS           13                  16/14     34/28
        DGST           12                  16/42     34/56
        DOPC           10                   9/34     12/17     12/48
        DRED            4                  36/12
        DRFS           34                  19/35     19/35
        DSCF           22                  20/53
        DSDC         1463                  19/52
        DSSC          627                  19/46
        DSWAE           0                  19/12
        DSWCV           7                  18/34
        DSWRV           3                  18/22
        DSWUD          10                  18/25
        DWFS           37                  21/23     21/23
        DWRT            5                  40/06     40/06
        D2SK            2                  20/19     38/13
        MP.GSBS         2                  17/42     20/31     38/25
        MP.GSDR        10                  17/21
        MSRS           30                  19/42     19/48
        MTKS           23                  19/42     19/48
        SDDD            3                  19/50
        SLNS           14                  16/24     34/38
        SSDD            3                  19/44
        TDDD            0                  19/50
        TSDD            0                  19/44
  
  
  
  
                                                  SYMBOL QUALIFIER =  885 
  
  
        CSDD         1511                  19/56
        DRED            4                   5/23
        DRFS           34                  19/35
        DSSC         1510                  20/01
        DWFS           37                  21/23
        DWLS           35                   5/24     40/06
        MSRS           40                  19/54
        MTKS           50                  19/54
        SSDD           36                  19/56
1       ICD         CTI INSTALL CTI ON DISK - A02                     COMPASS 3.7-871.     23/08/13. 15.42.23.      PAGE    44
        SYMBOLIC REFERENCE TABLE.                                     885 
  
        TSDD            1                  19/56
  
  
  
  
                                                  SYMBOL QUALIFIER =  CPA 
  
  
        CIDP         7730                   8/34      9/25 S
        DSLN          502                   5/14
        OSDP         7766                  10/15
        PRU           500                   5/15
  
  
  
  
                                                  SYMBOL QUALIFIER =  CTI 
  
  
        CDEP         7000                   8/44      9/03     29/28     30/50
        CDTYPE       7001                  29/56
        CTIFWA       6773                  29/14     29/41
        D844           13                  29/57
        ICDLOAD       150                   1/18      6/36      7/01      8/45      8/46     27/01     28/01     30/51
        IPLA         7301                   8/34      9/25 S   10/15
  
  
  
  
                                                  SYMBOL QUALIFIER =  ICD 
  
  
        ADDR0        1225                  19/37 L
        ART           670                  15/13 D   16/18     18/17     20/33     21/20
                                           16/02     16/39     19/16     21/05
        ARTEC         701                  12/14 S   12/47 S   15/16     15/20 D   18/08 S   19/20 S   19/28 S
        ARTX          667                  15/13 L   15/15
        ART5          700                  15/17     15/19 L
        AWD           703                  15/32 D   16/16     16/44
        AWDX          702                  15/32 L   15/35     15/39
        AWD1          707                  15/35 L   15/37
        BUFFER       2373                   8/34      9/08      9/25 S   19/06 S   21/15
                                            9/04      9/11     10/15     20/47 S   26/15 D
        BUFFERX      2371                  26/14 L
        CHTB         2105                   8/51     11/30     12/11     12/44     26/02 L
        CHTBE        2145                  26/02 L
        CLRCPB        421                   8/03     10/03     11/03 D
        CLRCPBX       420                  11/03 L   11/10
        CLRCPB2       424                  11/06 L   11/09
        CON          1010                  17/12 D   17/44     18/14
        CONX         1007                  17/12 L   17/24
        CON2         1011                  17/13 L   17/22
        CQOD          433                   8/02     10/02     11/18 D
        CQODX         432                  11/18 L   11/32
        CQOD5         446                  11/25     11/28 L
        CQOD7         450                  11/27     11/29 L
        DETAIL        754                  16/21 S   16/24 L   16/25     18/22     18/25     18/34     19/12
1       ICD         CTI INSTALL CTI ON DISK - A02                     COMPASS 3.7-871.     23/08/13. 15.42.23.      PAGE    45
        SYMBOLIC REFERENCE TABLE.                                     ICD 
  
        DETAILL        14                  16/20     16/25 D
        DIS           460                   7/30      8/19      9/15      9/48     11/45 D   12/22     12/53
                                            7/46      8/21      9/46     10/25     12/20     12/51     18/38
        DISB          473                  11/46 S   11/54 D
        DISX          457                  11/45 L   12/02
        DIS4          467                  11/49     11/51 L
        D44DD        1241                  18/32     18/42     19/48 L
        D44SD        1230                  18/28     18/42     19/42 L
        D885         1252                  18/40     19/54 L
        ERRFLO        541                   7/13     12/43 D
        ERRFLOX       540                  12/43 L
        ERROR         503                   7/12     12/10 D   15/18
        ERRORX        502                  12/10 L
        ERROR2        521                  12/13     12/19 L   12/25
        ERROR3        555                  12/46     12/50 L   12/56
        FCN           716                   9/35     12/49     16/15     17/14     20/20     21/12
                                           12/18     15/50 D   16/43     18/53     20/54
        FCNX          715                  15/50 L   15/55
        FCN1          724                  15/55 L   15/57
        FCN3          720                  15/52 L   16/03
        GDS           735                  16/13 D   18/20     19/09
        GDSX          734                  16/13 L   16/23
        GDS2          736                  16/14 L   16/19
        GDS5          747                  16/17     16/20 L
        GGS           774                  16/41 D   17/20     17/40     18/11     19/08     20/29
        GGSX          773                  16/41 L   16/49
        GGS2          770                  16/39 L   16/45
        GGS3          775                  16/40     16/42 L
        HPP           575                   7/19     13/08 D
        HPPA          614                  13/22 L   13/29
        HPPB          617                  13/24 L   13/29
        HPPC          621                  13/25 L   13/29
        HPPD          624                  13/24     13/28 L
        HPPE          626                  13/20     13/29 L
        HPPX          574                  13/08 L   13/18
        HPP03         577                  13/10 L   13/16
        HPP04         600                  13/11 L   13/27
        HPP05         606                  13/14     13/17 L
        HPP06         610                  13/13     13/20 L
        HPP07         622                  13/22     13/26 L
        ICD           150                   7/10 L
        ICDALT        151                   7/11 L   30/52
        ICDERR        153                   7/12 L   33/34
        ICDERR2       155                   7/13 L   33/53
        ICN           633                   8/52     11/31     12/12     12/45     13/21     13/44 D
        ICNX          632                  13/44 L   13/47
        ICN1          635                  13/46 L   13/54
        LINE           10                  22/02 D   22/11     22/28 D   22/37     23/02 D   23/33     24/03     24/42 D
                                           22/03     22/14     22/29     22/40     23/03     23/42 D   24/12 D   24/43
                                           22/06     22/14 D   22/32     22/40 D   23/12 D   23/43     24/13     25/02 D
                                           22/06 D   22/15     22/32 D   22/41     23/13     23/46     24/22 D   25/03
                                           22/07     22/18     22/33     22/44     23/22 D   23/46 D   24/23     25/06
                                           22/10     22/18 D   22/36     22/44 D   23/23     23/47     24/32 D   25/06 D
                                           22/10 D   22/19     22/36 D   22/45     23/32 D   24/02 D   24/33     25/07
        MSGA         1401                   7/29     22/01 D   22/22
        MSGAL         107                   7/27     22/22 D
        MSGB         1510                   7/45     22/27 D   22/48
1       ICD         CTI INSTALL CTI ON DISK - A02                     COMPASS 3.7-871.     23/08/13. 15.42.23.      PAGE    46
        SYMBOLIC REFERENCE TABLE.                                     ICD 
  
        MSGBL         111                   7/43     22/48 D
        MSGC         1621                  11/26     23/01 D   23/06
        MSGCL          21                  11/26     23/06 D
        MSGD         1642                  11/28     23/11 D   23/16
        MSGDL          22                  11/28     23/16 D
        MSGE         1664                   8/18     23/21 D   23/26
        MSGEL          15                   8/18     23/26 D
        MSGF         1701                   8/20      9/47     12/21     12/52     23/31 D   23/36
        MSGFL          22                   8/20      9/47     12/21     12/52     23/36 D
        MSGG         1723                  10/24     23/41 D   23/50
        MSGGL          37                  10/24     23/50 D
        MSGH         1762                   9/43     24/01 D   24/06
        MSGHL          12                   9/43     24/06 D
        MSGI         1774                   9/45     24/11 D   24/16
        MSGIL          12                   9/45     24/16 D
        MSGJ         2006                  12/19     24/21 D   24/26
        MSGJL          13                  12/19     24/26 D
        MSGK         2021                   9/14     24/31 D   24/36
        MSGKL          11                   9/14     24/36 D
        MSGL         2032                  12/50     24/41 D   24/46
        MSGLL          15                  12/50     24/46 D
        MSGM         2047                  18/37     25/01 D   25/10
        MSGML          33                  18/37     25/10 D
        ORTCR        2103                   7/47      8/22      9/49     10/26     12/23     12/54     25/17 L
        ORTR         2102                   7/31     25/16 L
        PKI           650                   7/32      7/48      8/23      9/50     10/27     12/24     12/55     14/14 D
        PKIX          647                  14/14 L   14/20     14/23
        PKI1          646                  14/13 L   14/25
        PKI2          661                  14/22 L   14/27
        RDSS         1044                   8/09     10/04     18/06 D
        RDSSERR      1214                  18/07     19/27 L
        RDSST        1222                  18/52     19/35 L
        RDSSX        1043                  18/06 L   19/24     19/26     19/30
        RDSS15       1066                  18/16     18/20 L
        RDSS2        1053                  18/11 L   18/13
        RDSS4        1057                  18/14 L   18/18
        RDSS45       1103                  18/24     18/30 L
        RDSS50       1105                  18/27     18/32 L
        RDSS60       1110                  18/31     18/34 L
        RDSS64       1114                  18/37 L   18/39
        RDSS65       1121                  18/36     18/40 L
        RDSS70       1123                  18/29     18/33     18/41 L
        RDSS75       1127                  18/44 L   18/48
        RDSS75A      1130                  18/41 S   18/45 D
        RDSS77       1135                  18/50 L   19/17
        RDSS78       1147                  18/56 L   19/01
        RDSS79       1155                  18/56     19/05 L
        RDSS79J      1162                  19/03     19/08 L
        RDSS80       1201                  19/11     19/15     19/19 L
        RDSS83       1211                  19/22     19/25 L
        SEK          1264                  18/51     20/17 D   20/49     21/08
        SEKB         1277                  20/18 S   20/26 D
        SEKX         1263                  20/17 L   20/30
        SEK1         1267                  20/19 L   20/32     20/34
        S05           157                   7/10      7/19 L
        S10           161                   7/27 L    7/33      8/25      9/52     12/26
        S100          245                   8/10      8/32 L
1       ICD         CTI INSTALL CTI ON DISK - A02                     COMPASS 3.7-871.     23/08/13. 15.42.23.      PAGE    47
        SYMBOLIC REFERENCE TABLE.                                     ICD 
  
        S105          247                   8/34 L    8/37
        S120          255                   8/11      8/43 L
        S120P         261                   8/43      8/45 L
        S129          266                   7/11      8/50 D
        S130          272                   9/02 L   10/29
        S130P         276                   9/02      9/04 L
        S139          303                   9/05      9/08 L
        S139T         315                   9/10      9/14 L    9/16
        S140          322                   9/13      9/22 L
        S145          324                   9/24 L    9/27
        S150          332                   9/33 L
        S190          337                   9/41 L    9/51
        S195          344                   9/42      9/45 L
        S196          346                   9/44      9/46 L
        S200          363                   7/37     10/02 L
        S250          375                  10/05     10/13 L
        S255          377                  10/15 L   10/18
        S270          405                  10/06     10/24 L   10/28
        S50           202                   7/36      7/43 L    7/49     12/57
        S60           216                   8/02 L
        S70           222                   8/09 L
        S80           226                   8/18 L    8/24     10/07
        WDSS         1314                   9/33     20/43 D
        WDSST        1376                  21/11     21/23 L
        WDSSX        1313                  20/43 L   21/22
        WDSS2        1323                  20/48 L   21/06
        WDSS20       1352                  20/52     21/11 L
        WDSS30       1374                  21/19     21/22 L
        WDSS8        1347                  21/04     21/07 L   21/21
        WNB          1032                  17/39 D   21/03     21/18
        WNBX         1031                  17/39 L   17/41
        WNB2         1030                  17/38 L   17/43
        WNB4         1035                  17/41 L   17/45
  
  
  
  
                                                  SYMBOL QUALIFIER =  QOD 
  
  
        QOD          2147                  11/29
  
  
  
  
                                                  SYMBOL QUALIFIER =  ICE 
  
  
        ART           305                  32/13 D   34/16     34/32     34/53     36/20     38/27     39/37
        ARTEC         316                  32/16     32/20 D   39/09 S   39/53 S   39/57 S
        ARTX          304                  32/13 L   32/15
        ART5          315                  32/17     32/19 L
        AWD           320                  32/32 D   34/30     35/01
        AWDX          317                  32/32 L   32/35     32/39
        AWD1          324                  32/35 L   32/37
        BUFFER       1117                  29/14     29/29     30/06     30/43     37/12     41/09 D
                                           29/18 S   29/49     30/40     37/04     37/15
1       ICD         CTI INSTALL CTI ON DISK - A02                     COMPASS 3.7-871.     23/08/13. 15.42.23.      PAGE    48
        SYMBOLIC REFERENCE TABLE.                                     ICE 
  
        BUFFERX      1115                  36/23 S   36/52     36/54     41/08 L
        CHTB         1064                  29/02     41/02 L
        CHTBE        1114                  41/02 L
        CPO           333                  32/50 D   37/06
        CPOX          332                  32/50 L   33/01     33/07
        CPO8          345                  32/54     33/02 L
        DETAIL        446                  34/35 S   34/38 L   34/39
        DETAILL        14                  34/34     34/39 D
        DONE          267                  30/49 L   33/36     33/55
        ERROR         370                  32/18     33/33 D   37/10
        ERROROF       400                  33/52 D   35/51
        ERROROFX      377                  33/52 L
        ERRORX        367                  33/33 L
        E100          243                  30/14     30/22 L
        E110          250                  30/32 L
        E120          253                  30/33     30/40 L
        E120P         273                  30/49     30/51 L
        E120PT        274                  30/52 L   33/35 S   33/54 S
        E130          300                  30/42     30/45     31/02 L
        E20           157                  29/14 L   31/03
        E22           162                  29/16 L   29/20
        E30           170                  29/27 L
        E30P          174                  29/27     29/29 L
        E30R          176                  29/31 L   29/35 S
        E39           201                  29/30     29/33 D
        E40           204                  29/41 L
        E42           207                  29/43 L   29/47
        E44           215                  29/45     29/48 L
        E46           232                  30/01     30/05 D
        E60           235                  30/13 L   30/16
        E90           240                  30/15 L   30/34
        FCN           410                  34/07 D   34/29     34/57     36/13     38/14     39/27
        FCNX          407                  34/07 L   34/12
        FCN1          416                  34/12 L   34/14
        FCN3          412                  34/09 L   34/17
        FILL          163                  29/17 D   29/44
        GDS           427                  34/27 D   36/27     39/36
        GDSX          426                  34/27 L   34/37
        GDS2          430                  34/28 L   34/33
        GDS5          441                  34/31     34/34 L
        GGS           466                  34/55 D   36/25     38/23     39/34
        GGSX          465                  34/55 L   35/06
        GGS2          462                  34/53 L   35/02
        GGS3          467                  34/54     34/56 L
        ICE           150                  29/01 D
        ICN           502                  29/03     35/20 D
        ICNX          501                  35/20 L   35/23
        ICN1          504                  35/22 L   35/30
        IDA           516                  30/15     31/02     35/40 D
        IDAX          515                  35/40 L   35/44     35/48     35/55
        IDA3          533                  35/50     35/52 L
        MPY           356                  32/56     33/04     33/17 D
        MPYX          355                  33/17 L
        MPY1          354                  33/16 L   33/22
        MPY3          362                  33/21 L   33/25
        RSEC          540                  36/07 D   36/51
        RSECX         537                  36/07 L   36/29
1       ICD         CTI INSTALL CTI ON DISK - A02                     COMPASS 3.7-871.     23/08/13. 15.42.23.      PAGE    49
        SYMBOLIC REFERENCE TABLE.                                     ICE 
  
        RSEC20        543                  36/10 L   36/21
        RSEC25        554                  36/16 L   36/18
        RSEC27        561                  36/20 L   36/28
        RSEC30        564                  36/16     36/22 L
        RSEC40        577                  36/26     36/29 L
        RVL           602                  30/47     36/46 D
        RVLTAB        715                  37/16     37/44 L
        RVLX          601                  36/46 L   37/36
        RVL10         607                  36/51 L   37/43
        RVL18         623                  36/55     36/57     37/02 L
        RVL20         625                  37/03 L
        RVL30         641                  37/09     37/12 L
        RVL50         664                  37/14     37/17     37/24 L
        RVL60         705                  37/29     37/37 L
        SEK           721                  36/11     38/11 D   39/25
        SEKB          734                  38/12 S   38/20 D
        SEKX          720                  38/11 L   38/24
        SEK1          724                  38/13 L   38/26     38/28
        TRAP          750                  38/35 L
        WSEC          753                  30/13     37/08     39/05 D
        WSECERR      1053                  39/08     39/56 L
        WSECWFT      1061                  39/26     40/06 L
        WSECX         752                  39/05 L   39/54     40/02
        WSEC10        777                  39/16     39/20 L
        WSEC20       1005                  39/24 L   39/38
        WSEC20B      1020                  39/13 S   39/31 D
        WSEC30       1031                  39/37 L
        WSEC40       1034                  39/35     39/39 D
        WSEC60       1034                  39/43 L
        WSEC60B      1035                  39/21 S   39/44 D
        WSEC62       1041                  39/45     39/47 L
        WSEC8         775                  39/17     39/19 L
 EDD
1       EDD         CTI EXPRESS DEADSTART DUMP - A02                  COMPASS 3.7-871.     23/08/13. 15.42.29.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
  
                       6000      422              IDENT  EDD,EDD
                       6422      (70) 
  
  
  
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                        100     2543              IDENT  EDT,EDT
                       2643     (425) 
  
  
  
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                       1201      533              IDENT  DEM,DFPX 
                       1734     (107) 
  
  
  
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                       1060      257              IDENT  DPC,DBCX 
                       1337      (44)             END 
  
  
  
  
                                                  IDENT  EDD,EDD                                                 EDD         2
                                                  PERIPH                                                         EDD         3
                                                  SST    T0,T1,T2,T3,T4,T5,T6,T7,ON                              EDD         4
                                 D_M              BASE   M                                                       EDD         5
                                         VERID    MICRO  1,,*A02*                                                *A02*       1
                                         VERS     MICRO  1,,*"VERID"*                                       VERS VERS        3
                                                  COMMENT CTI EXPRESS DEADSTART DUMP - "VERS"                    DIMA317J    3
                                                  COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1979               DIMA317J    4
  
  
                                        *         ALL RIGHTS RESERVED                                            CDCCRN      3
                                        *                                                                        CDCCRN      4
                                        *         CONTAINED HEREIN ARE SOFTWARE PRODUCTS COPYRIGHTED             CDCCRN      5
                                        *         BY CONTROL DATA CORPORATION.  REPRODUCTION WITHOUT             CDCCRN      6
                                        *         PERMISSION IS PROHIBITED.  THE COPYRIGHT NOTICE                CDCCRN      7
                                        *         MUST APPEAR ON ALL AUTHORIZED COMPLETE OR                      CDCCRN      8
                                        *         PARTIAL COPIES.                                                CDCCRN      9
                                        *                                                                        CDCCRN     10
1       EDD         CTI EXPRESS DEADSTART DUMP - A02                  COMPASS 3.7-871.     23/08/13. 15.42.29.      PAGE     2
  
  
                                        *****     EDD - EXPRESS DEADSTART DUMP.                                  EDD        10
                                        *         J. C. BOHNHOFF.    73/02/03.                                   EDD        11
                                        *         P. D. HAAS.        74/04/12.                                   EDD        12
  
  
  
  
                                        ***       *EDD* DUMPS ALL PP-S AND CENTRAL MEMORY TO MAGNETIC TAPE.      EDD        14
                                        *         THE DUMP ALSO INCLUDES THE CONTENTS OF THE STATUS/CONTROL      EDD        15
                                        *         REGISTERS OF A CYBER 170 AND THE CPU HARDWARE REGISTER         EDD        16
                                        *         CONTENTS AT DEADSTART TIME PLUS THE CONTENTS OF *FLPP*         EDD        17
                                        *         MEMORY ON A CYBER 176.  THE TAPE DENSITY IS SET TO             EDD        18
                                        *         800 BPI FOR 65X AND 7 TRACK 66X/67X TAPES AND 1600 BPI FOR     EDD        19
                                        *         9 TRACK 66X/67X TAPES. ALL TAPES ARE WRITTEN IN S FORMAT.      EDD        20
                                        *                                                                        EDD        21
                                        *         THE FOLLOWING AREAS OF PP MEMORY ARE DESTROYED BY *EDD* -      EDD        22
                                        *         LOCATIONS 0 - 21 OF PP0 (DEADSTART PANEL)                      EDD        23
                                        *         LOCATIONS 6000 - 7777 OF PP0 (IF PP0 SAVE SWITCH ON)           EDD        24
                                        *         LOCATIONS 0 - 7 OF PP1 (PP1 IDLER)                             EDD        25
                                        *         LOCATIONS 0 - 5 OF ALL OTHER PP-S (PP IDLER)                   EDD        26
                                        *                                                                        EDD        27
                                        *         IF ALL OF PP0 MEMORY IS DESIRED, TRANSFER PP0 MEMORY TO        EDD        28
                                        *         ANOTHER PP BY MEANS OF THE FOLLOWING PROGRAM ON THE DEAD       EDD        29
                                        *         START PANEL.                                                   EDD        30
                                        *                                                                        EDD        31
                                        *         0001   2000                                                    EDD        32
                                        *         0002   7776                                                    EDD        33
                                        *         0003   73XX        XX = PP NUMBER                              EDD        34
                                        *         0004   0000                                                    EDD        35
                                        *         0005   0300                                                    EDD        36
                                        *                                                                        EDD        37
                                        *         THE EXCHANGE AREA OF CENTRAL MEMORY IS SAVED AND REWRITTEN     EDD        38
                                        *         VIA THE IDLER IN PP1 TO PREVENT DESTRUCTION DURING CPU         EDD        39
                                        *         HARDWARE REGISTER AND ECS/LCM DUMPING.  THE ASSEMBLY SYMBOL    EDD        40
                                        *         *CMEC* CONTROLS WHICH AREA WILL BE USED FOR THE EXCHANGES.     EDD        41
                                        *         *CMEC* DEFINES A LOCATION WHERE A CPU PROGRAM, ITS EXCHANGE    EDD        42
                                        *         PACKAGE, AND AN ECS/LCM BUFFER WILL BE PLACED.  THE LENGTH OF  EDD        43
                                        *         THIS AREA IS SET TO 1100B WORDS FOR THE PP1 IDLER TO SAVE.     EDD        44
                                        *         THE CPU HARDWARE REGISTER EXCHANGE PACKAGE USES THIS SAME      EDD        45
                                        *         AREA, HOWEVER, THE PROGRAM LOOP IS WORD ZERO OF CMR.           EDD        46
                                        *                                                                        EDD        47
                                        *         IF TWO CPUS EXIST, BOTH WILL BE EXCHANGED, AND THE REGISTERS   EDD        48
                                        *         DUMPED.  HOWEVER, IF A CPU IS TURNED OFF VIA THE               EDD        49
                                        *         DEADSTART OPTION, THAT CPU WILL NOT BE EXCHANGED, BUT A FLAG   EDD        50
                                        *         BIT WILL BE SET IN THE DUMP NOTING THAT THE CPU IS OFF.        EDD        51
                                        *         THE CPU THAT IS TURNED OFF ALSO WILL NOT BE USED FOR           EDD        52
                                        *         EXCHANGING DURING THE ECS/LCM DUMP.                            EDD        53
                                        *                                                                        EDD        54
                                        *         NOTES- 1) IF CPU0 IS DOWN AND ONLY ONE CPU EXISTS, THE         EDD        55
                                        *                OPERATOR MUST TURN OFF BOTH CPU0 AND CPU1 AT            EDD        56
                                        *                DEADSTART TO AVOID ANY ATTEMPT AT EXCHANGING THE        EDD        57
                                        *                HARDWARE REGISTERS OR THE ECS/LCM DUMP PROGRAM.         EDD        58
                                        *                                                                        EDD        59
                                        *                2) IF BOTH CPUS ARE TURNED OFF, NO ECS/LCM              EDD        60
                                        *                DUMP WILL BE PREFORMED, REGARDLESS OF THE               EDD        61
                                        *                ECS/LCM SIZE VALUE ENTERED.                             EDD        62
                                        *                                                                        EDD        63
1       EDD         CTI EXPRESS DEADSTART DUMP - A02                  COMPASS 3.7-871.     23/08/13. 15.42.29.      PAGE     3
  
  
                                        *                CONSOLE INTERACTION WITH EDD IS AS FOLLOWS -            EDD        64
                                        *         1) ENTER TAPE CHANNEL.                                         EDD        65
                                        *         2) ENTER TAPE EQUIPMENT, CONTROLLER TYPE AND UNIT IN THE       EDD        66
                                        *            FORM ECUU.                                                  EDD        67
                                        *            E = EQUIPMENT.                                              EDD        68
                                        *            C = CONTROLLER TYPE. (IF NOTHING IS ENTERED, DEFAULT        EDD        69
                                        *                IS MTS IF EQ = 0 AND MMTC IF EQ .NE. 0)                 EDD        70
                                        *                1 = ATS.  (67X)                                         EDD        71
                                        *                2 = MTS.  (66X)                                         EDD        72
                                        *                3 = MMTC. (65X)                                         EDD        73
                                        *            UU = UNIT NUMBER.                                           EDD        74
                                        *         3) ENTER 2 DIGIT DUMP IDENTIFIER. THIS WILL BE PLACED IN THE   EDD        75
                                        *            TAPE LABEL FOR FUTURE REFERENCE.                            EDD        76
                                        *         4) ENTER TAPE REWIND OPTION. A NONZERO ENTRY INHIBITS REWIND   EDD        77
                                        *            BEFORE AND AFTER DUMP.                                      EDD        78
                                        *         5) ENTER ECS SIZE/1000.  IF ZERO, ECS/LCM WILL NOT BE DUMPED.  EDD        79
                                        *         6) WHEN DUMP IS COMPLETE, MESSAGE *DUMP NN COMPLETE* IS        EDD        80
                                        *            POSTED ON THE DISPLAY.                                      EDD        81
                                        *                                                                        EDD        82
                                        *         IF A TAPE ERROR OCCURS DURING DUMPING, A MESSAGE OF THIS FORM  EDD        83
                                        *         WILL APPEAR -                                                  EDD        84
                                        *                ERR CSAA  DSBBBB                                        EDD        85
                                        *         WHERE - ERR INDICATES ERROR TYPE -                             EDD        86
                                        *                   CON - CONNECT REJECT                                 EDD        87
                                        *                   FCN - FUNCTION REJECT                                EDD        88
                                        *                   WRT - WRITE ERROR                                    EDD        89
                                        *                AA IS THE CHANNEL CONVERTER STATUS.                     EDD        90
                                        *                BBBB IS THE EQUIPMENT STATUS.                           EDD        91
                                        *         IF A *CR* IS ENTERED, *EDD* WILL RETRY THE OPERATION.          EDD        92
                                        *         IF AN *S* IS ENTERED, *EDD* WILL STOP THE                      EDD        93
                                        *         ENTIRE DUMP OPERATION.                                         EDD        94
  
  
  
  
                                        **        DUMP TAPE FORMAT - ALL RECORD SIZES MUST BE MULTIPLES OF       EDD        96
                                        *         FOUR CM WORDS TO BE COMPATIBLE WITH ANY TYPE OF TAPE UNIT.     EDD        97
                                        *                                                                        EDD        98
                                        *         1) FOUR WORD LABEL BLOCK FOR STATUS/CONTROL REGISTER(S)        EDD        99
                                        *            IF A CYBER 170.                                             EDD       100
                                        *         60/  *SCR       *                                              EDD       101
                                        *         60/  *EXPRESS NN* (NN = DUMP IDENTIFIER)                       EDD       102
                                        *         60/                                                            EDD       103
                                        *         60/                                                            EDD       104
                                        *                                                                        EDD       105
                                        *         2) ONE RECORD FOR EACH STATUS/CONTROL REGISTER EXISTING        EDD       106
                                        *            ON A CYBER 170 (CHANNEL 16 FIRST, CHANNEL 36 SECOND).       EDD       107
                                        *            EACH RECORD HAS THE FORM -                                  EDD       108
                                        *         12/  0,12/  *SC*,12/  CHANNEL,24/  0                           EDD       109
                                        *         60/  REGISTER BITS 203 - 144                                   EDD       110
                                        *         60/  REGISTER BITS 143 -  84                                   EDD       111
                                        *         60/  REGISTER BITS  83 -  24                                   EDD       112
                                        *         24/  BITS 23 - 0,36/  0                                        EDD       113
                                        *         60/  UNUSED                                                    EDD       114
                                        *         60/  UNUSED                                                    EDD       115
                                        *         60/  UNUSED                                                    EDD       116
                                        *                                                                        EDD       117
1       EDD         CTI EXPRESS DEADSTART DUMP - A02                  COMPASS 3.7-871.     23/08/13. 15.42.29.      PAGE     4
  
  
                                        *         3) FOUR WORD LABEL BLOCK FOR PP DUMP.                          EDD       118
                                        *         60/  *PP        *                                              EDD       119
                                        *         60/  *EXPRESS NN* (NN = DUMP IDENTIFIER)                       EDD       120
                                        *         60/                                                            EDD       121
                                        *         60/                                                            EDD       122
                                        *                                                                        EDD       123
                                        *         4) SEVERAL RECORDS OF PP DUMPS, EACH RECORD IN FORM -          EDD       124
                                        *         12/  BYTE 0,12/  *PP*,12/  PP NUMBER,24/  BYTES 3 AND 4        EDD       125
                                        *         60/  BYTES 5 THROUGH 11                                        EDD       126
                                        *                .                                                       EDD       127
                                        *                .                                                       EDD       128
                                        *                .                                                       EDD       129
                                        *         60/  BYTES 7772 THROUGH 7776                                   EDD       130
                                        *         12/  BYTE 7777,48/                                             EDD       131
                                        *                                                                        EDD       132
                                        *         5) FOUR WORD LABEL BLOCK FOR CM DUMP.                          EDD       133
                                        *         48/  *CM      *,12/  SIZE/1000                                 EDD       134
                                        *         60/  *EXPRESS NN* (NN = DUMP IDENTIFIER)                       EDD       135
                                        *         60/                                                            EDD       136
                                        *         60/                                                            EDD       137
                                        *                                                                        EDD       138
                                        *         6) ONE RECORD CONTAINING DUMP OF ALL OF CENTRAL MEMORY.        EDD       139
                                        *                                                                        EDD       140
                                        *         7) FOUR WORD LABEL BLOCK FOR CPU HARDWARE REGISTER             EDD       141
                                        *            CONTENTS DUMP.                                              EDD       142
                                        *         60/  *CPR       *                                              EDD       143
                                        *         60/  *EXPRESS NN* (NN = DUMP IDENTIFIER)                       EDD       144
                                        *         60/                                                            EDD       145
                                        *         60/                                                            EDD       146
                                        *                                                                        EDD       147
                                        *         8) ONE RECORD FOR EACH EXISTING CPU CONTAINING CONTENTS        EDD       148
                                        *            OF CPU HARDWARE REGISTERS AT DEADSTART TIME.  EACH          EDD       149
                                        *            RECORD HAS THE FORM -                                       EDD       150
                                        *         12/  0,18/  *CPU*,6/  NO.,24/  BIT 0 SET IF CPU OFF            EDD       151
                                        *         6/  0,18/  P,18/  A0,18/  B0                                   EDD       152
                                        *                .                                                       EDD       153
                                        *                .                                                       EDD       154
                                        *                .                                                       EDD       155
                                        *         60/  X7                                                        EDD       156
                                        *         60/  UNUSED                                                    EDD       157
                                        *         60/  UNUSED                                                    EDD       158
                                        *         60/  UNUSED                                                    EDD       159
                                        *                                                                        EDD       160
                                        *         9) FOUR WORD LABEL BLOCK FOR FLPP DUMP ON A CYBER 176.         EDD       161
                                        *         60/  *FPP       *                                              EDD       162
                                        *         60/  *EXPRESS NN* (NN = DUMP IDENTIFIER)                       EDD       163
                                        *         60/                                                            EDD       164
                                        *         60/                                                            EDD       165
                                        *                                                                        EDD       166
                                        *         10) SEVERAL RECORDS OF FLPP DUMPS, EACH RECORD IN FORM -       EDD       167
                                        *         12/  BYTE 0,12/  *FP*,12/  PPU NUMBER,24/  BYTES 3 AND 4       EDD       168
                                        *         60/  BYTES 5 THROUGH 11                                        EDD       169
                                        *                .                                                       EDD       170
                                        *                .                                                       EDD       171
                                        *                .                                                       EDD       172
                                        *         60/  BYTES 7772 THROUGH 7776                                   EDD       173
                                        *         12/  BYTE 7777,48/                                             EDD       174
1       EDD         CTI EXPRESS DEADSTART DUMP - A02                  COMPASS 3.7-871.     23/08/13. 15.42.29.      PAGE     5
  
  
                                        *                                                                        EDD       175
                                        *         11) FOUR WORD LABEL BLOCK FOR ECS/LCM DUMP.                    EDD       176
                                        *         30/  *ECS  *,18/  FLAG REGISTER,12/  SIZE/1000                 EDD       177
                                        *         60/  *EXPRESS NN* (NN = DUMP IDENTIFIER)                       EDD       178
                                        *         60/                                                            EDD       179
                                        *         60/                                                            EDD       180
                                        *                                                                        EDD       181
                                        *         12) ONE RECORD CONTAINING ECS/LCM DUMP.  THIS IS AS LONG       EDD       182
                                        *             AS WAS INDICATED BY THE OPERATOR.                          EDD       183
                                        *                                                                        EDD       184
                                        *         13) FOUR WORD LABEL BLOCK FOR BUFFER CONTROLLER DUMPS.         EDD       185
                                        *         60/  *BC        *                                              EDD       186
                                        *         60/  *EXPRESS NN* (NN = DUMP IDENTIFIER)                       EDD       187
                                        *         60/                                                            EDD       188
                                        *         60/                                                            EDD       189
                                        *                                                                        EDD       190
                                        *         14) SEVERAL CONTROLWARE RECORDS, DEPENDING UPON THE NUMBER     EDD       191
                                        *             OF BUFFER CONTROLLER CHANNELS IDENTIFIED.  EACH RECORD     EDD       192
                                        *             CONTAINS 10000 HEXIDECIMAL WORDS DEBLOCKED INTO 20000      EDD       193
                                        *             BYTES IN THE FORM -                                        EDD       194
                                        *         12/  BYTE 0,12/  *CH*,12/  CHANNEL,24/  BYTES 3 AND 4          EDD       195
                                        *         60/  BYTES 5 THROUGH 11                                        EDD       196
                                        *                .                                                       EDD       197
                                        *                .                                                       EDD       198
                                        *                .                                                       EDD       199
                                        *         60/  BYTES 17771 THROUGH 17775                                 EDD       200
                                        *         24/  BYTES 17776 AND 17777,36/                                 EDD       201
                                        *         60/                                                            EDD       202
                                        *                                                                        EDD       203
                                        *         15) FILE MARK.                                                 EDD       204
                                        *                                                                        EDD       205
                                        *         16) FILE MARK.                                                 EDD       206
  
  
  
  
                                        **        COMMON DECKS.                                                  EDD       208
                                                                                                                 EDD       209
                                                                                                                 EDD       210
                                1000     SHNI     EQU    1000B                                                   XXXX        1
           0                                      XTEXT  COMPMAC                                                 XXXX        2
           0                             CPA      CTEXT  COMSCPA - CTI COMMON POINTER AREA DEFINITIONS.          COMSCPA     2
           0                             CTI      CTEXT  COMSCTI - CTI INTERNAL DEFINITIONS.                     COMSCTI     2
                                                  LIST    X                                                      EDD       214
1       EDD         CTI EXPRESS DEADSTART DUMP - A02                  COMPASS 3.7-871.     23/08/13. 15.42.29.      PAGE     6
        COMSSCR - S/C REGISTER EQUIVALENCES.
  
           0                                      CTEXT  COMSSCR - S/C REGISTER EQUIVALENCES.                    COMSSCR     2
                                 M_M              BASE   M                                                       COMSSCR     3
  
  
  
  
                                        *         COMMENT COPYRIGHT CONTROL DATA CORP. 1974.                     COMSSCR     5
  
  
  
  
                                        ***       COMSSCR - S/C REGISTER EQUIVALENCES.                           COMSSCR     7
                                        *         J. D. LANGE        74/05/10.                                   COMSSCR     8
  
  
  
  
                                        ***              COMSSCR DEFINES EQUIVALENCES WHICH ARE USED             COMSSCR    10
                                        *         FOR PROGRAMMING THE STATUS/CONTROL (S/C) REGISTER              COMSSCR    11
                                        *         ON THE CYBER 170.                                              COMSSCR    12
  
  
  
  
                                        ****                                                                     COMSSCR    14
                                                                                                                 COMSSCR    15
                                        **        S/C REGISTER EQUIVALENCES.                                     COMSSCR    16
                                                                                                                 COMSSCR    17
                                                                                                                 COMSSCR    18
                                        *         DESCRIPTOR FUNCTIONS.                                          COMSSCR    19
                                                                                                                 COMSSCR    20
                                   0     FCRD     EQU    0000        READ WORD                                   COMSSCR    21
                                1000     FCTB     EQU    1000        TEST BIT                                    COMSSCR    22
                                2000     FCCL     EQU    2000        CLEAR BIT                                   COMSSCR    23
                                3000     FCTC     EQU    3000        TEST AND CLEAR BIT                          COMSSCR    24
                                4000     FCSB     EQU    4000        SET BIT                                     COMSSCR    25
                                5000     FCTS     EQU    5000        TEST AND SET BIT                            COMSSCR    26
                                6000     FCCA     EQU    6000        CLEAR ALL                                   COMSSCR    27
                                7000     FCTE     EQU    7000        TEST ERROR                                  COMSSCR    28
                                                                                                                 COMSSCR    29
                                        *         BIT NAMES.                                                     COMSSCR    30
                                                                                                                 COMSSCR    31
                                   3     SECD     EQU    3           CM SECDED ERROR                             COMSSCR    32
                                   4     PPUE     EQU    4           PPU ERROR FOR FLPP-S (176 ONLY)             COMSSCR    33
                                   5     CMCE     EQU    5           CMC PARITY ERROR (171 - 175 ONLY)           COMSSCR    34
                                  12     EISP     EQU    10D         ERROR IN SECOND PPS                         COMSSCR    35
                                  13     LSCD     EQU    11D         LCME SECDED ERROR (176 ONLY)                COMSSCR    36
                                  44     MAPF     EQU    36D         MAINS POWER FAILURE                         COMSSCR    37
                                  45     SHIM     EQU    37D         SHUTDOWN IMMINENT                           COMSSCR    38
                                  66     EXBB     EQU    54D         EXCHANGE BUFFER BIAS BIT 0 (176 ONLY)       COMSSCR    39
                                  72     DSFP     EQU    58D         DEADSTART FLPP (176 ONLY)                   COMSSCR    40
                                  73     DDFP     EQU    59D         DUMP FLPP (176 ONLY)                        COMSSCR    41
                                 110     SCSL     EQU    72D         SCANNER SELECT BIT 0 (176 ONLY)             COMSSCR    42
                                 114     BCXC     EQU    76D         BLOCK COPY EXIT CONTROL                     COMSSCR    43
                                 115     DSCU     EQU    77D         DEADSTART CPU (176 ONLY)                    COMSSCR    44
                                 122     ENSC     EQU    82D         ENABLE SCANNER INTERFACE (176 ONLY)         COMSSCR    45
                                 123     CPUE     EQU    83D         CLEAR PPU (FLPP) PARITY ERROR (176 ONLY)    COMSSCR    46
1       EDD         CTI EXPRESS DEADSTART DUMP - A02                  COMPASS 3.7-871.     23/08/13. 15.42.29.      PAGE     7
        COMSSCR - S/C REGISTER EQUIVALENCES.
  
                                 124     PPCT     EQU    84D         PPU MAJOR CYCLE TIME SELECT                 COMSSCR    47
                                 136     PPCM     EQU    94D         STOP ON CM READ ERROR                       COMSSCR    48
                                 137     PPPE     EQU    95D         STOP ON PP MEMORY PARITY ERROR              COMSSCR    49
                                 166     DSBL     EQU    118D        DISABLE SINGLE BIT LOGGING                  COMSSCR    50
                                 167     PCMP     EQU    119D        PPU CM READ PARITY ERROR                    COMSSCR    51
                                 177     CCIO     EQU    127D        CPU CLEAR I/O (176 ONLY)                    COMSSCR    52
                                 211     SPUM     EQU    137D        STOP ON PPU MEMORY PARITY ERROR             COMSSCR    53
                                 250     CCRT     EQU    168D        CM CLEAR RANK II ERROR (176 ONLY)           COMSSCR    54
                                 251     CCRO     EQU    169D        CM CLEAR RANK I ERROR (176 ONLY)            COMSSCR    55
                                 260     LCRT     EQU    176D        LCME CLEAR RANK II ERROR (176 ONLY)         COMSSCR    56
                                 261     LCRO     EQU    177D        LCME CLEAR RANK 1 ERROR (176 ONLY           COMSSCR    57
                                 262     DLSL     EQU    178D        DISABLE LCME SINGLE BIT LOGGING             COMSSCR    58
                                 263     CTBB     EQU    179D        CHANNEL 2,3 BUFFER BIAS BIT 0 (176 ONLY)    COMSSCR    59
                                 267     SDSC     EQU    183D        CM DOUBLE BIT SECDED ERROR                  COMSSCR    60
                                 304     LDSC     EQU    196D        LCME DOUBLE BIT SECDED ERROR                COMSSCR    61
                                                                                                                 COMSSCR    62
                                        *         WORD NAMES.                                                    COMSSCR    63
                                                                                                                 COMSSCR    64
                                   1     PPEW     EQU    1           PP MEMORY PARITY ERROR WORD                 COMSSCR    65
                                   4     CMAW     EQU    4           CM SECDED ERROR ADDRESS WORD                COMSSCR    66
                                   4     EBBW     EQU    4           EXCHANGE BUFFER BIAS BIT WORD (176 ONLY)    COMSSCR    67
                                  10     LCAW     EQU    10          LCM SECDED ERROR ADDRESS WORD (176 ONLY)    COMSSCR    68
                                  17     CBBW     EQU    17          819 CHANNEL BUFFER BIAS BIT WORD (176 ONLY) COMSSCR    69
                                  17     CDSW     EQU    17          CM DOUBLE BIT SECDED ERROR WORD             COMSSCR    70
                                  20     LDSW     EQU    20          LCME DOUBLE BIT SECDED WORD (176 ONLY)      COMSSCR    71
                                  20     PMSW     EQU    20          PP MEMORY SELECT SWITCH WORD (176 ONLY)     COMSSCR    72
                                                                                                                 COMSSCR    73
                                        *         CONSTANTS.                                                     COMSSCR    74
                                                                                                                 COMSSCR    75
                                  50     NTEB     EQU    50          NUMBER OF TEST/ERROR BITS                   COMSSCR    76
                                 764     DSBT     EQU    500D        DEADSTART SINGLE BIT ERROR THRESHOLD        COMSSCR    77
                                  12     OSBT     EQU    10D         ON-LINE SINGLE BIT ERROR THRESHOLD          COMSSCR    78
                                  12     OLST     EQU    10D         ON-LINE LCME SINGLE BIT ERROR THRESHOLD     COMSSCR    79
                                  21     NSCB     EQU    21          NUMBER OF S/C REGISTER (BYTES) WORDS        COMSSCR    80
                                 314     NBIT     EQU    314         NUMBER OF S/C REGISTER BITS                 COMSSCR    81
                                                                                                                 COMSSCR    82
                                        *         SCR PROCESSING (*1MB*) FUNCTION CODES.                         COMSSCR    83
                                                                                                                 COMSSCR    84
                                   0     SPLG     EQU    0           LOG SCR ERRORS                              COMSSCR    85
                                   1     SPTP     EQU    1           TIME PROCESSING                             COMSSCR    86
                                   2     SPMX     EQU    2           MAXIMUM NUMBER OF FUNCTION CODES            COMSSCR    87
                                                                                                                 COMSSCR    88
                                        ****                                                                     COMSSCR    89
  
  
  
  
                                 M_M              BASE   *                                                       COMSSCR    91
                                                  ENDX                                                           COMSSCR    92
                                                  LIST    *                                                      EDD       216
1       EDD         CTI EXPRESS DEADSTART DUMP - A02                  COMPASS 3.7-871.     23/08/13. 15.42.29.      PAGE     8
        MACRO DEFINITIONS.
  
                                        **        CHIM - REDEFINE M-TYPE CHANNEL INSTRUCTIONS.                   EDD       219
                                        *                                                                        EDD       220
                                        *                                                                        EDD       221
                                        *         CHIM   OPC,CODE                                                EDD       222
                                        *         ENTRY  *OPC* = INSTRUCTION MNEMONIC.                           EDD       223
                                        *                *CODE* = OPERATION CODE.                                EDD       224
                                                                                                                 EDD       225
                                                                                                                 EDD       226
                                         CHIM     MACRO  OPC,CODE                                                EDD       227
                                                  PURGMAC OPC                                                    EDD       228
                                         OPC.     PPOP   7,CODE                                                  EDD       229
                                         OPC      MACRO  M,D                                                     EDD       230
                                                  LOCAL  A                                                       EDD       231
                                         A        OPC.   M,D                                                     EDD       232
                                         CT_D     RMT                                                            EDD       233
                                                  CON    A                                                       EDD       234
                                                  RMT                                                            EDD       235
                                         OPC      ENDM                                                           EDD       236
                                         CHIM     ENDM                                                           EDD       237
                                                                                                                 EDD       238
           0                                      CHIM   AJM,6400                                                EDD       239
           0                                      CHIM   IJM,6500                                                EDD       240
           0                                      CHIM   FJM,6600                                                EDD       241
           0                                      CHIM   EJM,6700                                                EDD       242
           0                                      CHIM   IAM,7100                                                EDD       243
           0                                      CHIM   OAM,7300                                                EDD       244
           0                                      CHIM   FNC,7700                                                EDD       245
  
  
  
  
                                        **        CHIN - REDEFINE N-TYPE CHANNEL INSTRUCTIONS.                   EDD       247
                                        *                                                                        EDD       248
                                        *                                                                        EDD       249
                                        *         CHIN   OPC,CODE                                                EDD       250
                                        *         ENTRY  *OPC* = INSTRUCTION MNEMONIC.                           EDD       251
                                        *                *CODE* = OPERATION CODE.                                EDD       252
                                        *                                                                        EDD       253
                                        *         NOTE   BIT 2**5 SET ON ALL *DCN* INSTRUCTIONS.                 EDD       254
                                                                                                                 EDD       255
                                                                                                                 EDD       256
                                         CHIN     MACRO  OPC,CODE                                                EDD       257
                                                  PURGMAC OPC                                                    EDD       258
                                         OPC.     PPOP   4,CODE                                                  EDD       259
                                         OPC      MACRO  D                                                       EDD       260
                                                  LOCAL  A                                                       EDD       261
                                         A        OPC.   D                                                       EDD       262
                                         CT_D     RMT                                                            EDD       263
                                                  CON    A                                                       EDD       264
                                                  RMT                                                            EDD       265
                                         OPC      ENDM                                                           EDD       266
                                         CHIN     ENDM                                                           EDD       267
                                                                                                                 EDD       268
           0                                      CHIN   IAN,7000                                                EDD       269
           0                                      CHIN   OAN,7200                                                EDD       270
           0                                      CHIN   ACN,7400                                                EDD       271
           0                                      CHIN   DCN,7540                                                EDD       272
1       EDD         CTI EXPRESS DEADSTART DUMP - A02                  COMPASS 3.7-871.     23/08/13. 15.42.29.      PAGE     9
        MACRO DEFINITIONS.                                            CHIN
  
           0                                      CHIN   FAN,7600                                                EDD       273
  
  
  
  
                                        **        CHTB - DEFINE CHANNEL TABLE.                                   EDD       275
                                        *         CHANNEL TABLE IS TERMINATED BY A ZERO WORD.                    EDD       276
                                        *                                                                        EDD       277
                                        *                                                                        EDD       278
                                        *         CHTB   D                                                       EDD       279
                                        *         ENTRY  *D* = NAME OF CHANNEL TABLE.                            EDD       280
                                                                                                                 EDD       281
                                                                                                                 EDD       282
                                         CHTB     MACRO  D                                                       EDD       283
                                         CT_D     BSS    0                                                       EDD       284
                                         CT_D     HERE                                                           EDD       285
                                                  CON    0           TERMINATE TABLE                             EDD       286
                                                  ENDM                                                           EDD       287
1       EDD         CTI EXPRESS DEADSTART DUMP - A02                  COMPASS 3.7-871.     23/08/13. 15.42.29.      PAGE    10
        SYMBOL DEFINITIONS. 
  
                                        ****      DIRECT LOCATION ASSIGNMENTS.                                   EDD       289
                                                                                                                 EDD       290
                                                                                                                 EDD       291
                                   0     T0       EQU    0           TEMPORARY STORAGE                           EDD       292
                                   1     T1       EQU    1                                                       EDD       293
                                   2     T2       EQU    2                                                       EDD       294
                                   3     T3       EQU    3                                                       EDD       295
                                   4     T4       EQU    4                                                       EDD       296
                                   5     T5       EQU    5                                                       EDD       297
                                   6     T6       EQU    6                                                       EDD       298
                                   7     T7       EQU    7                                                       EDD       299
                                  10     LL       EQU    10          RECORD LABEL LENGTH                         EDD       300
                                  11     RL       EQU    11          RECORD LENGTH                               EDD       301
                                  12     T8       EQU    12          TEMPORARY STORAGE                           EDD       302
                                  13     EQ       EQU    13          EQUIPMENT NUMBER                            EDD       303
                                  14     CN       EQU    14          CHANNEL NUMBER                              EDD       304
                                  15     TS       EQU    15          TAPE SYSTEM                                 EDD       305
                                  16     DS       EQU    16          DEADSTART CHANNEL                           EDD       306
                                  17     DT       EQU    DS+1        DUMP TAPE CHANNEL                           EDD       307
                                  20     PB       EQU    20          PP0 SAVE ADDRESS                            EDD       308
                                  21     DP       EQU    21          UPPER PPS/CHANNEL FLAG                      EDD       309
                                                                                                                 EDD       310
                                        *         THE FOLLOWING LOCATIONS ARE NOT USED UNTIL PP0 IS DUMPED.      EDD       311
                                                                                                                 EDD       312
                                  22     ON       EQU    22          CONSTANT 1                                  EDD       313
                                  23     CS       EQU    23 - 27     CPU STATUS                                  EDD       314
                                  24     PS       EQU    24 - 30     PP STATUS                                   EDD       315
                                  30     MB       EQU    PS+4        MEMORY BLOCK COUNT                          EDD       316
                                  30     PN       EQU    MB          PP NUMBER                                   EDD       317
                                        ****                                                                     EDD       318
  
  
  
  
                                        *         CONSTANTS USED AS INSTRUCTIONS.                                EDD       320
                                                                                                                 EDD       321
                                                                                                                 EDD       322
                                 100     LJMI     EQU    0100        LJM                                         EDD       323
                                 300     UJNI     EQU    0300        UJN                                         EDD       324
                                 600     PJNI     EQU    0600        PJN                                         EDD       325
                                7100     IAMI     EQU    7100        IAM                                         EDD       326
                                7300     OAMI     EQU    7300        OAM                                         EDD       327
                                7400     ACNI     EQU    7400        ACN                                         EDD       328
                                7500     DCNI     EQU    7500        DCN                                         EDD       329
1       EDD         CTI EXPRESS DEADSTART DUMP - A02                  COMPASS 3.7-871.     23/08/13. 15.42.29.      PAGE    11
        SYMBOL DEFINITIONS. 
  
                                        *         OTHER SYMBOLS.                                                 EDD       331
                                                                                                                 EDD       332
                                                                                                                 EDD       333
                                   0     MC       EQU    0           MAINTENANCE CHANNEL (C176)                  EDD       334
                                   1     PC       EQU    1           PP BUFFER CHANNEL                           EDD       335
                                   7     BC       EQU    7           BUFFER CONTROLLER CHANNEL                   EDD       336
                                  10     CH       EQU    10          DISPLAY CHANNEL                             EDD       337
                                  13     DC       EQU    13          DEADSTART CHANNEL                           EDD       338
                                  13     TC       EQU    13          DUMP TAPE CHANNEL                           EDD       339
                                  16     SC       EQU    16          S/C REGISTER CHANNEL                        EDD       340
                                  17     XC       EQU    17          PP DATA TRANSFER CHANNEL                    DIMA271     1
                                7774     PPIA     EQU    7774        PP IDLE ADDRESS                             DIMA271     2
                                  24     TRLLI    EQU    5*4         TAPE RECORD LABEL LENGTH                    XXXX        3
                                 100     OVLA     EQU    100         *EDD* RESIDENT LOAD ADDRESS                 EDD       342
                                7677     DSPB     EQU    /CPA/DSPNLZ DEADSTART PANEL BUFFER                      EDD       343
                                7000     CDEP     EQU    /CTI/CDEP   COMMON DRIVER ADDRESS                       EDD       344
                                7673     OPTN     EQU    /CPA/OPTN   DEADSTART OPTIONS WORD                      EDD       345
                                2000     BUF      EQU    CDEP-5000   TAPE BUFFER                                 EDD       346
                                5000     PPS1     EQU    1000*5      PP DUMP SECTION 1 LENGTH                    EDD       347
                                3004     PPS2     EQU    10004-PPS1  PP DUMP SECTION 2 LENGTH                    EDD       348
                                1464     PPSZ     EQU    10000/5+1   PP SIZE (CM WORD COUNT)                     EDD       349
                                                                                                                 EDD       350
                               20000     BCSZ     EQU    4096DS1     LENGTH OF BUFFER CONTROLLER DUMP RECORD     EDD       351
                                   3     BCR1     EQU    BCSZ/5000   NUMBER OF FULL BUFFER CONTROLLER BLOCKS     EDD       352
                                1000     BCR2     EQU    BCSZ-BCR1*5000  LENGTH OF DATA IN LAST BLOCK            EDD       353
                                1023     .L       SET    BCR2+23                                                 EDD       354
                                1010     BCR3     EQU    .L/24*24    LENGTH OF LAST BUFFER CONTROLLER PRU        EDD       355
                                                                                                                 EDD       356
                               17000     CMEC     EQU    17000       CM ADDRESS OF ECS/LCM PROGRAM AND BUFFER    EDD       357
                                1100     CMECL    EQU    1100        LENGTH OF ECS/LCM PROGRAM AND BUFFER        EDD       358
                                                                                                                 EDD       359
                                   0              ERRNZ  CMEC/1000*1000-CMEC  *CMEC* NOT ON 1000 WORD BOUNDARY   EDD       360
                                   0              ERRNG  17000-CMEC  *CMEC* MUST BE .LE. 17000                   EDD       361
                                                                                                                 EDD       362
                               17000     CMCP     EQU    CMEC        CPU REGISTER EXCHANGE PACKAGE ADDRESS       EDD       363
                               17020     CPIA     EQU    CMEC+20     CYBER 176 IDLE ADDRESS                      EDD       364
1       EDD         CTI EXPRESS DEADSTART DUMP - A02                  COMPASS 3.7-871.     23/08/13. 15.42.29.      PAGE    12
        PRESET. 
  
                                        **        EDD - PRESET EDD.                                              EDD       366
                                                                                                                 EDD       367
                                                                                                                 EDD       368
        6000                                      ORG    /CTI/IPLB                                               EDD       369
                                                                                                                 EDD       370
        6000         6516 6006           EDD      IJM.   EDD0,SC     IF NOT C17X                                 EDD       371
        6002         2000 2115                    LDC    FCCL+DSCU   STOP CPU IF C176                            EDD       372
        6004         7256                         OAN.   SC+40                                                   EDD       373
        6005         7056                         IAN.   SC+40                                                   EDD       374
        6006         5000 7712           EDD0     LDM    DSPB+13     CHECK PP0 SAVE FLAG                         EDD       375
        6010         2200 0200                    LPC    1S7                                                     EDD       376
        6012         0424                         ZJN    EDD2        IF PP0 NOT TO BE SAVED                      EDD       377
        6013         2000 1464                    LDC    PPSZ        SET PP SIZE                                 EDD       378
        6015         3406                         STD    T6                                                      EDD       379
        6016         2000 6261                    LDC    TBUF-3                                                  EDD       380
        6020         3407                         STD    T7                                                      EDD       381
        6021         1603                         ADN    3           LOCATE FREE MEMORY BLOCK IN CM              EDD       382
        6022         0200 6065                    RJM    CMA                                                     EDD       383
        6024         1404                EDD1     LDN    4           ADVANCE LIST ADDRESS                        EDD       384
        6025         3507                         RAD    T7                                                      EDD       385
        6026         4007                         LDI    T7                                                      EDD       386
        6027         0407                         ZJN    EDD2        IF END OF LIST                              EDD       387
        6030         5007 0002                    LDM    2,T7                                                    EDD       388
        6032         1006                         SHN    6                                                       EDD       389
        6033         3206                         SBD    T6                                                      EDD       390
        6034         0767                         MJN    EDD1        IF INSUFFICIENT CM TO SAVE PP0              EDD       391
        6035         4007                         LDI    T7          SET RA OF PP0 SAVE AREA                     EDD       392
        6036         3420                EDD2     STD    PB                                                      EDD       393
        6037         0404                         ZJN    EDD3        IF PP0 NOT BEING SAVED                      EDD       394
        6040         1006                         SHN    6                                                       EDD       395
        6041         6306 0000                    CWM    0,T6                                                    EDD       396
        6043         5000 7707           EDD3     LDM    DSPB+10     DEADSTART CHANNEL                           EDD       397
        6045         1237                         LPN    37                                                      EDD       398
        6046         3416                         STD    DS                                                      EDD       399
        6047         7552                         DCN.   12          DEACTIVATE NON-PP CHANNELS                  EDD       400
        6050         7553                         DCN.   13                                                      EDD       401
        6051         7572                         DCN.   32                                                      EDD       402
        6052         7573                         DCN.   33                                                      EDD       403
        6053         2000 6057                    LDC    EDDA        LOAD *EDD* RESIDENT                         EDD       404
        6055         0100 7000                    LJM    CDEP        EXIT TO COMMON DRIVER                       EDD       405
                                                                                                                 EDD       406
        6057         0100                EDDA     CON    OVLA        LOAD ADDRESS                                EDD       407
        6060         0100                         CON    OVLA        TRANSFER ADDRESS                            EDD       408
        6061         0000                         CON    0           REWIND FLAG                                 EDD       409
        6062         0504                         VFD    24/0LEDT    RECORD NAME                                 EDD       410
        6063         2400 
1       EDD         CTI EXPRESS DEADSTART DUMP - A02                  COMPASS 3.7-871.     23/08/13. 15.42.29.      PAGE    13
        PRESET. 
  
                                        **        COMMON DECKS.                                                  EDD       412
                                                                                                                 EDD       413
                                                                                                                 EDD       414
        6064                                      XTEXT  COMPCMA                                                 EDD       415
  
  
  
  
                                        **        BUFFERS.                                                       EDD       417
                                                                                                                 EDD       418
                                                                                                                 EDD       419
        6264                     134     TBUF     BSS    27*4                                                    EDD       420
        6420         0000 0000                    CON    0,0                                                     EDD       421
                                                                                                                 EDD       422
                                -356              ERRPL  *-CDEP      OVERFLOW INTO DRIVER                        EDD       423
1       EDD         CTI EXPRESS DEADSTART DUMP - A02                  COMPASS 3.7-871.     23/08/13. 15.42.29.      PAGE    14
        EDT - EDD RESIDENT. 
  
                                                  IDENT  EDT,EDT                                                 EDD       425
                                                  COMMENT CTI EDD OVERLAY                                        DIMA317J    6
                                                  COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1979               DIMA317J    7
  
  
                                        *         ALL RIGHTS RESERVED                                            CDCCRN      3
                                        *                                                                        CDCCRN      4
                                        *         CONTAINED HEREIN ARE SOFTWARE PRODUCTS COPYRIGHTED             CDCCRN      5
                                        *         BY CONTROL DATA CORPORATION.  REPRODUCTION WITHOUT             CDCCRN      6
                                        *         PERMISSION IS PROHIBITED.  THE COPYRIGHT NOTICE                CDCCRN      7
                                        *         MUST APPEAR ON ALL AUTHORIZED COMPLETE OR                      CDCCRN      8
                                        *         PARTIAL COPIES.                                                CDCCRN      9
                                        *                                                                        CDCCRN     10
1       EDD         CTI EXPRESS DEADSTART DUMP - A02                  COMPASS 3.7-871.     23/08/13. 15.42.29.      PAGE    15
        EDT - EDD RESIDENT. 
  
                                                                                                                 EDD       427
                                                                                                                 EDD       428
         100                                      ORG    OVLA                                                    EDD       429
                                                                                                                 EDD       430
         100         0200 1725           EDT      RJM    PRS         PRESET RESIDENT                             EDD       431
         102         0200 1202                    RJM    DSC         DUMP S/C REGISTERS                          EDD       432
                                                                                                                 EDD       433
                                        *         DUMP PP-S AND CENTRAL MEMORY.                                  EDD       434
                                                                                                                 EDD       435
         104         0200 1320                    RJM    DP0         DUMP PP0                                    EDD       436
         106         0200 1411                    RJM    DPP         DUMP OTHER PP-S                             EDD       437
         110         0200 1523                    RJM    DCM         DUMP CENTRAL MEMORY                         EDD       438
                                                                                                                 EDD       439
                                        *         SAVE EXCHANGE AREA.                                            EDD       440
                                                                                                                 EDD       441
         112         5600 0432                    AOM    DIGE        SET RESTORE CM FLAG                         EDD       442
         114         7401                         ACN    PC                                                      EDD       443
         115         1415                         LDN    EDTFL       SEND EXCHANGE AREA READ PROGRAM             EDD       444
         116         7301 0247                    OAM    EDTF,PC                                                 EDD       445
         120         7541                         DCN    PC                                                      EDD       446
         121         1500                         LCN    0           DELAY TO INSURE COMPLETION OF CM READ       EDD       447
         122         1701                         SBN    1                                                       EDD       448
         123         0576                         NJN    *-1                                                     EDD       449
                                                                                                                 EDD       450
                                        *         DUMP CPU HARDWARE REGISTERS, FLPP-S AND ECS/LCM.               EDD       451
                                                                                                                 EDD       452
         124         0200 1567                    RJM    DCP         DUMP CPU HARDWARE REGISTERS                 EDD       453
         126         0200 0561                    RJM    LNO         LOAD NEXT DUMP OVERLAY                      EDD       454
         130         2000 0000                    LDC    0                                                       EDD       455
                                 131     EDTA     EQU    *-1                                                     EDD       456
         132         0403                         ZJN    EDT1        IF NOT CYBER 176                            EDD       457
         133         0200 1202                    RJM    DFP         DUMP FLPP-S                                 EDD       458
         135         0200 1331           EDT1     RJM    DEM         DUMP EXTENDED MEMORY                        EDD       459
         137         7401                         ACN    PC          REWRITE EXCHANGE AREA VIA PP1 IDLER         EDD       460
         140         5700 0432                    SOM    DIGE        CLEAR CM RESTORATION FLAG                   EDD       461
                                                                                                                 EDD       462
                                        *         DUMP PERIPHERAL CONTROLLERS.                                   EDD       463
                                                                                                                 EDD       464
         142         0200 0561                    RJM    LNO         LOAD NEXT DUMP OVERLAY                      EDD       465
         144         0200 1061                    RJM    DBC         DUMP BUFFER CONTROLLERS                     EDD       466
                                                                                                                 EDD       467
                                        *         TERMINATE DUMP.                                                EDD       468
                                                                                                                 EDD       469
         146         1451                .TF1     LDN    51          WRITE FILE MARK                             EDD       470
                                        *         LDN    15          (65X TAPE SYSTEM)                           EDD       471
         147         0200 0726                    RJM    FCN                                                     EDD       472
         151         1451                .TF2     LDN    51          WRITE 2ND FILE MARK                         EDD       473
                                        *         LDN    15          (65X TAPE SYSTEM)                           EDD       474
         152         0200 0726                    RJM    FCN                                                     EDD       475
         154         1400                         LDN    0           DISABLE BUSY WAIT                           EDD       476
         155         5400 0724                    STM    FCNB                                                    EDD       477
         157         2000 0113                    LDC    113         BACKSPACE OVER 2ND FILE MARK                EDD       478
                                 160     .BK      EQU    *-1                                                     EDD       479
                                        *         LDC    12          (65X TAPE SYSTEM)                           EDD       480
                                        *         LDC    10          (REWIND ENABLE)                             EDD       481
         161         0200 0726                    RJM    FCN                                                     EDD       482
         163         1500                EDT2     LCN    0           DELAY FOR WRITE JOG                         EDD       483
1       EDD         CTI EXPRESS DEADSTART DUMP - A02                  COMPASS 3.7-871.     23/08/13. 15.42.29.      PAGE    16
        EDT - EDD RESIDENT. 
  
         164         1701                         SBN    1                                                       EDD       484
         165         0576                         NJN    *-1                                                     EDD       485
         166         3015                         LDD    TS          RELEASE EQUIPMENT                           EDD       486
         167         0200 0726                    RJM    FCN                                                     EDD       487
         171         2000 0223           EDT3     LDC    EDTD        DISPLAY END OF DUMP                         EDD       488
         173         0200 0310                    RJM    DIG                                                     EDD       489
         175         0373                         UJN    EDT3        LOOP                                        EDD       490
                                                                                                                 EDD       491
         176         2020                EDTB     DATA   8HPP                                                    EDD       492
         202         0000                         CON    0                                                       EDD       493
         203         0530                EDTC     DATA   20HEXPRESS DUMP NUMBER                                  EDD       494
         215                       5              BSSZ   5                                                       EDD       495
         222         0000                         CON    0                                                       EDD       496
                                                                                                                 EDD       497
         223         5504                EDTD     DATA   C* DUMP NN COMPLETE.*                                   EDD       498
         235         5504                EDTE     DATA   C* DUMP NN STOPPED.*                                    EDD       499
                                                                                                                 EDD       500
         247                             EDTF     BSS    0                                                       EDD       501
         247         0000                         CON    0           PP1 PROGRAM TO SAVE EXCHANGE AREA           EDD       502
         250         2001 7000                    LDC    CMEC                                                    EDD       503
         252         6114 0100                    CRM    100,WC                                                  EDD       504
         254         6501 0005                    IJM    *-EDTF,PC                                               EDD       505
         256         3214                         SBD    WC                                                      EDD       506
         257         7541                         DCN    PC                                                      EDD       507
         260         6314 0100                    CWM    100,WC                                                  EDD       508
         262         0300                         UJN    **                                                      EDD       509
                                                                                                                 EDD       510
                                  14     WC       EQU    *-EDTF                                                  EDD       511
         263         1100                         CON    CMECL       NUMBER OF WORDS TO SAVE                     EDD       512
                                                                                                                 EDD       513
                                  15     EDTFL    EQU    *-EDTF                                                  EDD       514
  
  
  
  
                                        **        COMMON DECKS.                                                  EDD       516
                                                                                                                 EDD       517
                                                                                                                 EDD       518
         264                                      CTEXT  COMPC2D - CONVERT 2 OCTAL DIGITS TO DISPLAY CODE.       COMPC2D     2
1       EDD         CTI EXPRESS DEADSTART DUMP - A02                  COMPASS 3.7-871.     23/08/13. 15.42.29.      PAGE    17
        SUBROUTINES.                                                  CVD 
  
                                        **        CVD - CONVERT DIGITS.                                          EDD       522
                                        *                                                                        EDD       523
                                        *         ENTRY  (A) = DIGITS TO CONVERT TO BINARY.                      EDD       524
                                        *                                                                        EDD       525
                                        *         EXIT   (A) = CONVERSION.                                       EDD       526
                                        *                                                                        EDD       527
                                        *         USES   T0.                                                     EDD       528
                                                                                                                 EDD       529
                                                                                                                 EDD       530
         276         0100 0276           CVD      SUBR               ENTRY/EXIT                                  EDD       531
         300         2177 4444                    ADC    -2R00                                                   EDD       532
         302         3400                         STD    T0                                                      EDD       533
         303         1074                         SHN    -3                                                      EDD       534
         304         3100                         ADD    T0                                                      EDD       535
         305         1277                         LPN    77                                                      EDD       536
         306         0367                         UJN    CVDX        RETURN                                      EDD       537
  
  
  
  
                                        **        DIG - DISPLAY MESSAGE AND INPUT DIGITS.                        EDD       539
                                        *                                                                        EDD       540
                                        *         ENTRY  (A) = 6/BYTE COUNT, 12/MESSAGE ADDRESS.                 EDD       541
                                        *                                                                        EDD       542
                                        *         EXIT   (A) = INPUT DIGITS.                                     EDD       543
                                        *                (T5) = NUMBER OF DIGITS INPUT.                          EDD       544
                                        *                                                                        EDD       545
                                        *         USES   T1 - T5.                                                EDD       546
                                        *                                                                        EDD       547
                                        *         CALLS  CVD.                                                    EDD       548
                                                                                                                 EDD       549
                                                                                                                 EDD       550
         307         0100 0307           DIG      SUBR               ENTRY/EXIT                                  EDD       551
         311         5400 0347                    STM    DIGA        STORE MESSAGE                               EDD       552
         313         1701                         SBN    1                                                       EDD       553
         314         3401                         STD    T1                                                      EDD       554
         315         1063                         SHN    -14         STORE COUNT                                 EDD       555
         316         3404                         STD    T4                                                      EDD       556
         317         1404                         LDN    T4                                                      EDD       557
         320         3204                         SBD    T4                                                      EDD       558
         321         5400 0353                    STM    DIGB                                                    EDD       559
         323         3601                DIG1     AOD    T1          FIND MESSAGE LENGTH                         EDD       560
         324         4001                         LDI    T1                                                      EDD       561
         325         0575                         NJN    DIG1        IF NOT END                                  EDD       562
         326         3405                         STD    T5                                                      EDD       563
         327         3001                         LDD    T1                                                      EDD       564
         330         5200 0347                    SBM    DIGA                                                    EDD       565
         332         3401                         STD    T1                                                      EDD       566
         333         2000 3333                    LDC    2R00        SET INITIAL DIGITS                          EDD       567
         335         3402                         STD    T2                                                      EDD       568
         336         3403                         STD    T3                                                      EDD       569
         337         7710 7001           DIG2     FNC.   7001,CH                                                 EDD       570
         341         7410                         ACN.   CH                                                      EDD       571
         342         1402                         LDN    2           OUTPUT COORDINATES                          EDD       572
         343         7310 0442                    OAM.   DIGD,CH                                                 EDD       573
         345         3001                         LDD    T1          DISPLAY MESSAGE                             EDD       574
         346         7310 0346                    OAM.   *,CH                                                    EDD       575
1       EDD         CTI EXPRESS DEADSTART DUMP - A02                  COMPASS 3.7-871.     23/08/13. 15.42.29.      PAGE    18
        SUBROUTINES.                                                  DIG 
  
                                 347     DIGA     EQU    *-1                                                     EDD       576
         350         3004                         LDD    T4          DISPLAY ADDRESS                             EDD       577
         351         0403                         ZJN    DIG3        IF NO INPUT REQUIRED                        EDD       578
         352         7310 0352                    OAM.   *,CH                                                    EDD       579
                                 353     DIGB     EQU    *-1                                                     EDD       580
         354         7550                DIG3     DCN.   CH                                                      EDD       581
         355         1740                         SBN    40B         REDUCE DISPLAY INTENSITY                    EDD       582
         356         0776                         MJN    *-1                                                     EDD       583
         357         7710 7020                    FNC.   7020,CH                                                 EDD       584
         361         7410                         ACN.   CH                                                      EDD       585
         362         7010                         IAN.   CH                                                      EDD       586
         363         7550                         DCN.   CH                                                      EDD       587
         364         2300 0012                    LMC    1RJ         CHECK SAME INPUT AS LAST TIME               EDD       588
                                 365     DIGC     EQU    *-1                                                     EDD       589
         366         0450                         ZJN    DIG2        LOOP IF SAME INPUT                          EDD       590
         367         5300 0365                    LMM    DIGC        SAVE INPUT                                  EDD       591
         371         5400 0365                    STM    DIGC                                                    EDD       592
         373         1760                         SBN    60                                                      EDD       593
         374         0423                         ZJN    DIG5        IF CR                                       EDD       594
         375         1635                         ADN    60-1RS                                                  EDD       595
         376         0434                         ZJN    DIG7        IF STOP KEY                                 EDD       596
         377         1710                         SBN    1R0-1RS                                                 EDD       597
         400         0715                         MJN    DIG4        IF ALPHA                                    EDD       598
         401         1710                         SBN    10                                                      EDD       599
         402         0613                         PJN    DIG4        IF NOT OCTAL DIGIT                          DIG0230     1
         403         1643                         ADN    1R0+10                                                  EDD       601
         404         1014                         SHN    14          ASSEMBLE DIGITS                             EDD       602
         405         3303                         LMD    T3                                                      EDD       603
         406         1006                         SHN    6                                                       EDD       604
         407         3403                         STD    T3                                                      EDD       605
         410         3303                         LMD    T3                                                      EDD       606
         411         3302                         LMD    T2                                                      EDD       607
         412         1006                         SHN    6                                                       EDD       608
         413         3402                         STD    T2                                                      EDD       609
         414         3605                         AOD    T5          ADVANCE COUNT OF DIGITS ENTERED             EDD       610
         415         0100 0337           DIG4     LJM    DIG2        LOOP FOR NEXT CHARACTER                     EDD       611
                                                                                                                 EDD       612
         417         3003                DIG5     LDD    T3          CONVERT DIGITS                              EDD       613
         420         0200 0277                    RJM    CVD                                                     EDD       614
         422         3403                         STD    T3                                                      EDD       615
         423         3002                         LDD    T2                                                      EDD       616
         424         0200 0277                    RJM    CVD                                                     EDD       617
         426         1006                         SHN    6                                                       EDD       618
         427         3503                         RAD    T3                                                      EDD       619
         430         0100 0307           DIG6     LJM    DIGX        RETURN                                      EDD       620
                                                                                                                 EDD       621
         432         1400                DIG7     LDN    0                                                       EDD       622
                                        *         LDN    1           (RESTORE CM)                                EDD       623
                                 432     DIGE     EQU    DIG7                                                    EDD       624
         433         0402                         ZJN    DIG8        IF RESTORE NOT REQUIRED                     EDD       625
         434         7401                         ACN    PC          ACTIVATE PP1 TO RESTORE CM                  EDD       626
         435         2000 0235           DIG8     LDC    EDTE        DISPLAY DUMP STOPPED MESSAGE                EDD       627
         437         0200 0310                    RJM    DIG                                                     EDD       628
         441         0373                         UJN    DIG8        LOOP DISPLAYING STOPPED MESSAGE             EDD       629
                                                                                                                 EDD       630
         442         6000                DIGD     DATA   6000,7400                                               EDD       631
1       EDD         CTI EXPRESS DEADSTART DUMP - A02                  COMPASS 3.7-871.     23/08/13. 15.42.29.      PAGE    19
        SUBROUTINES.                                                  ERR 
  
                                        **        ERR - PROCESS ERROR.                                           EDD       633
                                        *                                                                        EDD       634
                                        *         ENTRY  (A) = ERROR CODE.                                       EDD       635
                                        *                (T6) = CONVERTER STATUS.                                EDD       636
                                        *                (T7) = EQUIPMENT STATUS.                                EDD       637
                                        *                                                                        EDD       638
                                        *         USES   T1.                                                     EDD       639
                                        *                                                                        EDD       640
                                        *         CALLS  C2D, DIG.                                               EDD       641
                                                                                                                 EDD       642
                                                                                                                 EDD       643
         444         0100 0444           ERR      SUBR               ENTRY/EXIT                                  EDD       644
         446         1001                         SHN    1           SET MESSAGE ADDRESS                         EDD       645
         447         3401                         STD    T1                                                      EDD       646
         450         5001 0514                    LDM    ERRA,T1     SET MESSAGE                                 EDD       647
         452         5400 0522                    STM    ERRB                                                    EDD       648
         454         5001 0515                    LDM    ERRA+1,T1                                               EDD       649
         456         5400 0523                    STM    ERRB+1                                                  EDD       650
         460         3006                         LDD    T6          CONVERT CONVERTER STATUS                    EDD       651
         461         0200 0265                    RJM    C2D                                                     EDD       652
         463         5400 0526                    STM    ERRC+1                                                  EDD       653
         465         3006                         LDD    T6                                                      EDD       654
         466         1071                         SHN    -6                                                      EDD       655
         467         0200 0265                    RJM    C2D                                                     EDD       656
         471         5400 0525                    STM    ERRC                                                    EDD       657
         473         3007                         LDD    T7          CONVERT EQUIPMENT STATUS                    EDD       658
         474         0200 0265                    RJM    C2D                                                     EDD       659
         476         5400 0532                    STM    ERRD+1                                                  EDD       660
         500         3007                         LDD    T7                                                      EDD       661
         501         1071                         SHN    -6                                                      EDD       662
         502         0200 0265                    RJM    C2D                                                     EDD       663
         504         5400 0531                    STM    ERRD                                                    EDD       664
         506         2001 0522                    LDC    ERRB+10000  DISPLAY ERROR AND WAIT FOR ACTION           EDD       665
         510         0200 0310                    RJM    DIG                                                     EDD       666
         512         0100 0444                    LJM    ERRX        RETURN                                      EDD       667
                                                                                                                 EDD       668
         514         0317                ERRA     DATA   Z*CON*                                                  EDD       669
         516         0603                         DATA   Z*FCN*                                                  EDD       670
         520         2722                         DATA   Z*WRT*                                                  EDD       671
         522         0000 0000           ERRB     CON    0,0                                                     EDD       672
         524         0323                         DATA   2HCS                                                    EDD       673
         525         0000 0000           ERRC     CON    0,0         CONVERTER STATUS                            EDD       674
         527         5555                         DATA   4H  DS                                                  EDD       675
         531         0000 0000           ERRD     CON    0,0         EQUIPMENT STATUS                            EDD       676
         533         0000                         CON    0                                                       EDD       677
1       EDD         CTI EXPRESS DEADSTART DUMP - A02                  COMPASS 3.7-871.     23/08/13. 15.42.29.      PAGE    20
        SUBROUTINES.                                                  LNO 
  
                                        **        LNO - LOAD NEXT OVERLAY.                                       EDD       679
                                        *                                                                        EDD       680
                                        *         USES   T1 - T3.                                                EDD       681
                                        *                                                                        EDD       682
                                        *         CALLS  CON, *CDEP*.                                            EDD       683
                                                                                                                 EDD       684
                                                                                                                 EDD       685
         534         5000 2115           LNO1     LDM    BUF+5*17+2  EXTRACT LOAD ADDRESS FROM *6PPM* TABLE      EDD       686
         536         1605                         ADN    5                                                       EDD       687
         537         3401                         STD    T1                                                      EDD       688
         540         3403                         STD    T3                                                      EDD       689
         541         2000 2117                    LDC    BUF+5*17+4                                              EDD       690
         543         3402                         STD    T2                                                      EDD       691
         544         4002                         LDI    T2          SET END OF OVERLAY                          EDD       692
         545         1002                         SHN    2                                                       EDD       693
         546         4102                         ADI    T2                                                      EDD       694
         547         3503                         RAD    T3                                                      EDD       695
         550         3602                LNO2     AOD    T2          ADVANCE BUFFER ADDRESS                      EDD       696
         551         4002                         LDI    T2          RELOCATE OVERLAY                            EDD       697
         552         4401                         STI    T1                                                      EDD       698
         553         3601                         AOD    T1          ADVANCE RELOCATION ADDRESS                  EDD       699
         554         3303                         LMD    T3                                                      EDD       700
         555         0572                         NJN    LNO2        IF NOT END OF OVERLAY                       EDD       701
         556         0200 0670                    RJM    CON         RECONNECT                                   EDD       702
                                                                                                                 EDD       703
         560         0100 0560           LNO      SUBR               ENTRY/EXIT                                  EDD       704
         562         2000 0566                    LDC    LNOA                                                    EDD       705
         564         0100 7000                    LJM    CDEP        EXIT TO COMMON DRIVER                       EDD       706
                                                                                                                 EDD       707
         566         2000                LNOA     CON    BUF         LOAD ADDRESS                                EDD       708
         567         0534                         CON    LNO1        TRANSFER ADDRESS                            EDD       709
         570         0000 0000                    CON    0,0,0                                                   EDD       710
         572         0000 
  
  
  
  
                                        **        MCI - MODIFY CHANNEL INSTRUCTIONS.                             EDD       712
                                        *                                                                        EDD       713
                                        *         ENTRY  (A) = ADDRESS OF INSTRUCTION LIST.                      EDD       714
                                        *                (CN) = CHANNEL NUMBER.                                  EDD       715
                                        *                                                                        EDD       716
                                        *         USES   T6, T7.                                                 EDD       717
                                                                                                                 EDD       718
                                                                                                                 EDD       719
         573         3407                MCI1     STD    T7          SET INSTRUCTION ADDRESS                     EDD       720
         574         4007                         LDI    T7          MODIFY INSTRUCTION                          EDD       721
         575         1337                         SCN    37                                                      EDD       722
         576         3314                         LMD    CN                                                      EDD       723
         577         4407                         STI    T7                                                      EDD       724
         600         3606                         AOD    T6          ADVANCE LIST ADDRESS                        EDD       725
         601         4006                MCI2     LDI    T6                                                      EDD       726
         602         0570                         NJN    MCI1        IF NOT END OF LIST                          EDD       727
                                                                                                                 EDD       728
         603         0100 0603           MCI      SUBR               ENTRY/EXIT                                  EDD       729
         605         3406                         STD    T6          SET LIST ADDRESS                            EDD       730
         606         0372                         UJN    MCI2        ENTER LOOP                                  EDD       731
1       EDD         CTI EXPRESS DEADSTART DUMP - A02                  COMPASS 3.7-871.     23/08/13. 15.42.29.      PAGE    21
        SUBROUTINES.                                                  WLB 
  
                                        **        WLB - WRITE LABEL BLOCK.                                       EDD       733
                                        *                                                                        EDD       734
                                        *         ENTRY  (A) = BLOCK IDENTIFICATION.                             EDD       735
                                        *                                                                        EDD       736
                                        *         EXIT   LABEL BLOCK WRITTEN.                                    EDD       737
                                        *                                                                        EDD       738
                                        *         USES   RL.                                                     EDD       739
                                        *                                                                        EDD       740
                                        *         CALLS  WRT.                                                    EDD       741
                                                                                                                 EDD       742
                                                                                                                 EDD       743
         607         0100 0607           WLB      SUBR               ENTRY/EXIT                                  EDD       744
         611         5400 0176                    STM    EDTB                                                    EDD       745
         613         1071                         SHN    -6                                                      EDD       746
         614         1377                         SCN    77          SET BLOCK IDENTIFIER                        EDD       747
         615         1155                         LMN    1R                                                      EDD       748
         616         5400 0177                    STM    EDTB+1                                                  EDD       749
         620         1424                         LDN    TRLLI       SET LABEL RECORD LENGTH                     XXXX        4
         621         3411                         STD    RL                                                      EDD       751
         622         2000 0176                    LDC    EDTB        SET LABEL ADDRESS                           EDD       752
         624         5400 1015                    STM    WRTB                                                    EDD       753
         626         0200 1005                    RJM    WRT         WRITE LABEL BLOCK                           EDD       754
         630         0356                         UJN    WLBX                                                    EDD       755
1       EDD         CTI EXPRESS DEADSTART DUMP - A02                  COMPASS 3.7-871.     23/08/13. 15.42.29.      PAGE    22
        TAPE HANDLING SUBROUTINES.                                    CKR 
  
                                        **        CKR - CHECK READY, BUSY AND EOP.                               EDD       758
                                        *                                                                        EDD       759
                                        *         ENTRY  (T7) = UNIT STATUS.                                     EDD       760
                                        *                                                                        EDD       761
                                        *         EXIT   (A) = 0 IF READY, NOT BUSY AND EOP OCCURRED.            EDD       762
                                                                                                                 EDD       763
                                                                                                                 EDD       764
         631         3007                CKR1     LDD    T7                                                      EDD       765
         632         1203                         LPN    3                                                       EDD       766
         633         1101                         LMN    1                                                       EDD       767
                                                                                                                 EDD       768
         634         0100 0634           CKR      SUBR               ENTRY/EXIT                                  EDD       769
         636         3015                         LDD    TS                                                      EDD       770
         637         0571                         NJN    CKR1        IF 66X/67X TAPE SYSTEM                      EDD       771
         640         3007                         LDD    T7                                                      EDD       772
         641         2200 1003                    LPC    1003                                                    EDD       773
         643         2300 1001                    LMC    1001                                                    EDD       774
         645         0366                         UJN    CKRX        RETURN                                      EDD       775
  
  
  
  
                                        **        CON - CONNECT TAPE UNIT.                                       EDD       777
                                        *                                                                        EDD       778
                                        *         ENTRY  (CONA) = CONNECT CODE FOR 3000 TYPE EQUIPMENT.          EDD       779
                                        *                                                                        EDD       780
                                        *         CALLS  ERR, FCN, STS.                                          EDD       781
                                                                                                                 EDD       782
                                                                                                                 EDD       783
         646         7713 0030           CON3     FNC    30,TC       FORMAT UNIT                                 EDD       784
                                        *         FNC    4,TC        (ATS UNIT)                                  EDD       785
                                 647     CONC     EQU    *-1                                                     EDD       786
         650         7413                         ACN    TC                                                      EDD       787
         651         1402                         LDN    2                                                       EDD       788
         652         7313 0720                    OAM    CONB,TC     OUTPUT PARAMETER BLOCK                      EDD       789
         654         6613 0654                    FJM    *,TC                                                    EDD       790
         656         7553                         DCN    TC                                                      EDD       791
         657         0200 0765                    RJM    STS         GET GENERAL STATUS                          EDD       792
         661         3007                CON4     LDD    T7                                                      EDD       793
         662         2200 7213                    LPC    7213                                                    EDD       794
                                        *         LPC    7447        (65X TAPE SYSTEM)                           EDD       795
                                 663     COND     EQU    *-1                                                     EDD       796
         664         2300 0201                    LMC    201                                                     EDD       797
                                        *         LMC    1005        (65X TAPE SYSTEM)                           EDD       798
                                 665     CONE     EQU    *-1                                                     EDD       799
         666         0526                         NJN    CON2        IF CONNECT REJECT                           EDD       800
                                                                                                                 EDD       801
         667         0100 0667           CON      SUBR               ENTRY/EXIT                                  EDD       802
         671         3015                CON1     LDD    TS                                                      EDD       803
         672         0553                         NJN    CON3        IF 66X/67X TAPE SYSTEM                      EDD       804
         673         7713 2000                    FNC    2000,TC                                                 EDD       805
         675         7713 5001                    FNC    5001,TC     CONNECT                                     EDD       806
                                 676     CONA     EQU    *-1                                                     EDD       807
         677         0200 0765                    RJM    STS         GET STATUS                                  EDD       808
         701         0513                         NJN    CON2        IF CONNECT REJECT                           EDD       809
         702         1401                         LDN    1           SELECT BINARY MODE                          EDD       810
         703         0200 0726                    RJM    FCN                                                     EDD       811
1       EDD         CTI EXPRESS DEADSTART DUMP - A02                  COMPASS 3.7-871.     23/08/13. 15.42.29.      PAGE    23
        TAPE HANDLING SUBROUTINES.                                    CON 
  
         705         3007                         LDD    T7                                                      EDD       812
         706         1220                         LPN    20                                                      EDD       813
         707         0451                         ZJN    CON4        IF TAPE NOT AT LOAD POINT                   EDD       814
         710         1406                         LDN    6           SELECT 800 BPI                              EDD       815
         711         0200 0726                    RJM    FCN                                                     EDD       816
         713         0345                         UJN    CON4        CHECK STATUS                                EDD       817
                                                                                                                 EDD       818
         714         1400                CON2     LDN    0           *CANT CONNECT*                              EDD       819
         715         0200 0445                    RJM    ERR         PROCESS ERROR                               EDD       820
         717         0351                         UJN    CON1        RETRY                                       EDD       821
                                                                                                                 EDD       822
         720         4200                CONB     VFD    1/1,3/0,1/1,2/0,1/0,4/0    (UNIT NUMBER ADDED)          EDD       823
         721         6440                         VFD    1/1,1/1,1/0,1/1,2/0,1/1,5/0                             EDD       824
  
  
  
  
                                        **        FCN - ISSUE EQUIPMENT FUNCTION.                                EDD       826
                                        *                                                                        EDD       827
                                        *         ENTRY  (A) = FUNCTION.                                         EDD       828
                                        *                (EQ) = EQUIPMENT NUMBER FOR 66X/67X.                    EDD       829
                                        *                                                                        EDD       830
                                        *         EXIT   (T7) = EQUIPMENT STATUS.                                EDD       831
                                        *                                                                        EDD       832
                                        *         CALLS  CKR, ERR, STS.                                          EDD       833
                                                                                                                 EDD       834
                                                                                                                 EDD       835
         722         0200 0635           FCN3     RJM    CKR         CHECK READY, BUSY AND EOP                   EDD       836
         724         0510                FCNB     NJN    FCN2                                                    EDD       837
                                        *         PSN    0           (END OF DUMP)                               EDD       838
                                                                                                                 EDD       839
         725         0100 0725           FCN      SUBR               ENTRY/EXIT                                  EDD       840
         727         3113                         ADD    EQ          ADD EQUIPMENT NUMBER                        EDD       841
         730         5400 0733                    STM    FCNA        SET FUNCTION                                EDD       842
         732         7713 0000           FCN1     FNC    0,TC        ISSUE FUNCTION                              EDD       843
                                 733     FCNA     EQU    *-1                                                     EDD       844
         734         0200 0765           FCN2     RJM    STS         CHECK STATUS                                EDD       845
         736         0463                         ZJN    FCN3        IF NO REJECT                                EDD       846
         737         1401                         LDN    1                                                       EDD       847
         740         0200 0445                    RJM    ERR         PROCESS ERROR                               EDD       848
         742         0367                         UJN    FCN1        RETRY                                       EDD       849
  
  
  
  
                                        **        STS - GET EQUIPMENT STATUS.                                    EDD       851
                                        *                                                                        EDD       852
                                        *         ENTRY  EQUIPMENT CONNECTED.                                    EDD       853
                                        *                                                                        EDD       854
                                        *         EXIT   (A) = (T6) = 6681 STATUS.                               EDD       855
                                        *                (T7) = EQUIPMENT STATUS.                                EDD       856
                                                                                                                 EDD       857
                                                                                                                 EDD       858
         743         1470                STS1     LDN    70                                                      EDD       859
         744         6613 0757           STS2     FJM    STS4,TC     IF STATUS READY                             EDD       860
         746         1701                         SBN    1                                                       EDD       861
         747         0574                         NJN    STS2        WAIT STATUS READY                           EDD       862
1       EDD         CTI EXPRESS DEADSTART DUMP - A02                  COMPASS 3.7-871.     23/08/13. 15.42.29.      PAGE    24
        TAPE HANDLING SUBROUTINES.                                    STS 
  
         750         7553                         DCN    TC                                                      EDD       863
         751         1412                STS3     LDN    12          REQUEST GENERAL STATUS                      EDD       864
         752         3113                         ADD    EQ                                                      EDD       865
         753         7613                         FAN    TC                                                      EDD       866
         754         7413                         ACN    TC                                                      EDD       867
         755         6713 0743                    EJM    STS1,TC     IF CHANNEL EMPTY                            EDD       868
         757         7013                STS4     IAN    TC                                                      EDD       869
         760         7553                         DCN    TC                                                      EDD       870
         761         3407                         STD    T7                                                      EDD       871
         762         1400                         LDN    0                                                       EDD       872
         763         3406                STS5     STD    T6                                                      EDD       873
                                                                                                                 EDD       874
         764         0100 0764           STS      SUBR               ENTRY/EXIT                                  EDD       875
         766         3015                         LDD    TS                                                      EDD       876
         767         0561                         NJN    STS3        IF 66X/67X TAPE SYSTEM                      EDD       877
         770         7713 1300                    FNC    1300,TC     REQUEST EQUIPMENT STATUS                    EDD       878
         772         7413                         ACN    TC                                                      EDD       879
         773         7013                         IAN    TC                                                      EDD       880
         774         7553                         DCN    TC                                                      EDD       881
         775         3407                         STD    T7                                                      EDD       882
         776         7713 1200                    FNC    1200,TC     REQUEST 6681 STATUS                         EDD       883
        1000         7413                         ACN    TC                                                      EDD       884
        1001         7013                         IAN    TC                                                      EDD       885
        1002         7553                         DCN    TC                                                      EDD       886
        1003         0357                         UJN    STS5                                                    EDD       887
  
  
  
  
                                        **        WRT - WRITE TAPE.                                              EDD       889
                                        *                                                                        EDD       890
                                        *         ENTRY  (RL) = RECORD LENGTH.                                   EDD       891
                                        *                (WRTB) = RECORD ADDRESS.                                EDD       892
                                        *                                                                        EDD       893
                                        *         USES   T2, T3.                                                 EDD       894
                                        *                                                                        EDD       895
                                        *         CALLS  CKR, CON, ERR, FCN, STS.                                EDD       896
                                                                                                                 EDD       897
                                                                                                                 EDD       898
        1004         0100 1004           WRT      SUBR               ENTRY/EXIT                                  EDD       899
        1006         1420                WRT1     LDN    20          SET RETRY COUNT                             EDD       900
        1007         3403                         STD    T3                                                      EDD       901
        1010         7713 1600           WRT2     FNC    1600,TC     BEGIN OUTPUT                                EDD       902
                                        *         FNC    E050,TC     (66X/67X TAPE SYSTEM)                       EDD       903
                                1011     WRTA     EQU    *-1                                                     EDD       904
        1012         7413                         ACN    TC                                                      EDD       905
        1013         3011                WRT3     LDD    RL                                                      EDD       906
        1014         7313 0176                    OAM    EDTB,TC                                                 EDD       907
                                1015     WRTB     EQU    *-1                                                     EDD       908
        1016         6613 1016                    FJM    *,TC                                                    EDD       909
        1020         7553                         DCN    TC                                                      EDD       910
        1021         0200 0765           WRT4     RJM    STS         CHECK STATUS                                EDD       911
        1023         0526                         NJN    WRT6        IF 6681 ERROR                               EDD       912
        1024         0200 0635                    RJM    CKR         CHECK READY, BUSY AND EOP                   EDD       913
        1026         0572                         NJN    WRT4                                                    EDD       914
        1027         3007                         LDD    T7          CHECK WRITE STATUS                          EDD       915
        1030         2200 4010                    LPC    4010                                                    EDD       916
1       EDD         CTI EXPRESS DEADSTART DUMP - A02                  COMPASS 3.7-871.     23/08/13. 15.42.29.      PAGE    25
        TAPE HANDLING SUBROUTINES.                                    WRT 
  
                                        *         LPC    6440        (65X TAPE SYSTEM)                           EDD       917
                                1031     WRTC     EQU    *-1                                                     EDD       918
        1032         0451                         ZJN    WRTX        IF OK                                       EDD       919
        1033         3703                         SOD    T3          DECREMENT RETRY COUNT                       EDD       920
        1034         0415                         ZJN    WRT6        IF EXHAUSTED                                EDD       921
        1035         2000 0113                    LDC    113         BACKSPACE                                   EDD       922
                                        *         LDC    12          (65X TAPE SYSTEM)                           EDD       923
                                1036     WRTD     EQU    *-1                                                     EDD       924
        1037         0200 0726                    RJM    FCN                                                     EDD       925
        1041         3003                         LDD    T3          CHECK TIME TO SKIP BAD SPOT                 EDD       926
        1042         1203                         LPN    3                                                       EDD       927
        1043         0504                         NJN    WRT5        IF NOT                                      EDD       928
        1044         1452                WRTE     LDN    52          SKIP BAD SPOT                               EDD       929
                                        *         LDN    16          (65X TAPE SYSTEM)                           EDD       930
        1045         0200 0726                    RJM    FCN                                                     EDD       931
        1047         0100 1010           WRT5     LJM    WRT2        RETRY                                       EDD       932
                                                                                                                 EDD       933
        1051         1402                WRT6     LDN    2           *WRITE ERROR*                               EDD       934
        1052         0200 0445                    RJM    ERR         PROCESS ERROR                               EDD       935
        1054         0200 0670                    RJM    CON         RE-CONNECT                                  EDD       936
        1056         0100 1006                    LJM    WRT1        RETRY                                       EDD       937
  
  
  
  
        1060                             OVLB     BSS    0           DUMP OVERLAY LOAD ADDRESS                   EDD       939
1       EDD         CTI EXPRESS DEADSTART DUMP - A02                  COMPASS 3.7-871.     23/08/13. 15.42.29.      PAGE    26
        DUMP PROCESSORS.                                              CXJP
  
        1060                             CXJP     BSS    0           CPU EXCHANGE PACKAGE 1                      EDD       942
        1060         0000                         VFD    24/0,18/CMEC+33,18/0            P,A0,B0                 EDD       943
        1061         0000 
        1062         0170 
        1063         3300 
        1064         0000 
        1065         0000                         VFD    24/0,18/0,18/1                  RA,A1,B1                EDD       944
        1066         0000 
        1067         0000 
        1070         0000 
        1071         0001 
        1072         0002                         VFD    24/CMEC+2000,18/0,18/1000       FL,A2,B2                EDD       945
        1073         1000 
        1074         0000 
        1075         0000 
        1076         1000 
        1077         0000                CXJPA    VFD    24/0,18/0,18/CMEC+32            EM(PSD),A3,B3           EDD       946
        1100         0000 
        1101         0000 
        1102         0001 
        1103         7032 
        1104         0000                         VFD    24/0,18/0,18/0                  RAX,A4,B4               EDD       947
        1105         0000 
        1106         0000 
        1107         0000 
        1110         0000 
        1111         7777                         VFD    24/77777777,18/0,18/0           FLX,A5,B5               EDD       948
        1112         7777 
        1113         0000 
        1114         0000 
        1115         0000 
        1116         0000                         VFD    24/0,18/0,18/0                  MA,A6,B6                EDD       949
        1117         0000 
        1120         0000 
        1121         0000 
        1122         0000 
        1123         0002                         VFD    24/CMEC+1000+40,18/0,18/0       EEA,A7,B7               EDD       950
        1124         0040 
        1125         0000 
        1126         0000 
        1127         0000 
                                  50     .1       SET    *-CXJP                                                  EDD       951
                                  10     CXJPL    EQU    .1/5                                                    EDD       952
  
  
  
  
        1130                             CPIL     BSS    0           CPU IDLE LOOP                               EDD       954
        1130         0400                         VFD    12/0400,18/0,15/61000,15/46000                          EDD       955
        1131         0000 
        1132         0061 
        1133         0004 
        1134         6000 
1       EDD         CTI EXPRESS DEADSTART DUMP - A02                  COMPASS 3.7-871.     23/08/13. 15.42.29.      PAGE    27
        DUMP PROCESSORS.                                              ECP 
  
                                        **        ECP - EXCHANGE CYBER 176 CPU.                                  EDD       957
                                        *                                                                        EDD       958
                                        *         EXIT   CPU IS EXCHANGED TO ADDRESS *CMEC*.                     EDD       959
                                        *                                                                        EDD       960
                                        *         USES   T6, T7.                                                 EDD       961
                                        *                                                                        EDD       962
                                        *         CALLS  SCR.                                                    EDD       963
                                                                                                                 EDD       964
                                                                                                                 EDD       965
        1135         0100 1135           ECP      SUBR               ENTRY/EXIT                                  EDD       966
        1137         2000 2115                    LDC    FCCL+DSCU   CLEAR DEADSTART                             EDD       967
        1141         7256                         OAN.   SC+40                                                   EDD       968
        1142         7056                         IAN.   SC+40                                                   EDD       969
        1143         1404                         LDN    4           SET EXCHANGE BUFFER BIAS BITS               EDD       970
        1144         3406                         STD    T6                                                      EDD       971
        1145         1466                         LDN    EXBB                                                    EDD       972
        1146         3407                         STD    T7          FIRST BIT NUMBER                            EDD       973
        1147         1417                         LDN    CMEC/1000   BIT PATTERN                                 EDD       974
        1150         0200 1160                    RJM    SCR         SET S/C REGISTER                            EDD       975
        1152         2000 4115                    LDC    FCSB+DSCU   SET DEADSTART                               EDD       976
        1154         7256                         OAN.   SC+40                                                   EDD       977
        1155         7056                         IAN.   SC+40                                                   EDD       978
        1156         0356                         UJN    ECPX        RETURN                                      EDD       979
  
  
  
  
                                        **        SCR - SET S/C REGISTER.                                        EDD       981
                                        *                                                                        EDD       982
                                        *         ENTRY  (A) = BIT PATTERN TO SET.                               EDD       983
                                        *                (T6) = NUMBER OF BITS TO SET.                           EDD       984
                                        *                (T7) = FIRST BIT NUMBER.                                EDD       985
                                        *                                                                        EDD       986
                                        *         USES   T3, T6, T7.                                             EDD       987
                                                                                                                 EDD       988
                                                                                                                 EDD       989
        1157         0100 1157           SCR      SUBR               ENTRY/EXIT                                  EDD       990
        1161         3403                SCR1     STD    T3          SAVE BIT PATTERN                            EDD       991
        1162         1201                         LPN    1           SAVE NEXT BIT FOR S/C                       EDD       992
        1163         0403                         ZJN    SCR2        IF BIT NOT SET                              EDD       993
        1164         2000 6000                    LDC    FCSB&FCCL   SET BIT FUNCTION                            EDD       994
        1166         2300 2000           SCR2     LMC    FCCL        CLEAR BIT FUNCTION                          EDD       995
        1170         3107                         ADD    T7          ADD BIT NUMBER TO SET/CLEAR                 EDD       996
        1171         7256                         OAN.   SC+40                                                   EDD       997
        1172         7056                         IAN.   SC+40                                                   EDD       998
        1173         3607                         AOD    T7          UPDATE BIT NUMBER                           EDD       999
        1174         3706                         SOD    T6          UPDATE BIT COUNT                            EDD      1000
        1175         0461                         ZJN    SCRX        IF ALL BITS DONE, RETURN                    EDD      1001
        1176         3003                         LDD    T3          UPDATE BIT PATTERN                          EDD      1002
        1177         1076                         SHN    -1                                                      EDD      1003
        1200         0360                         UJN    SCR1        LOOP FOR NEXT BIT                           EDD      1004
1       EDD         CTI EXPRESS DEADSTART DUMP - A02                  COMPASS 3.7-871.     23/08/13. 15.42.29.      PAGE    28
        DUMP PROCESSORS.
  
        1201                             OVLC     BSS    0           DUMP OVERLAY LOAD ADDRESS                   EDD      1006
  
  
  
  
                                        **        DSC - DUMP STATUS/CONTROL REGISTERS.                           EDD      1008
                                        *                                                                        EDD      1009
                                        *         USES   T7, T8, RL.                                             EDD      1010
                                        *                                                                        EDD      1011
                                        *         CALLS  WLB, WRT.                                               EDD      1012
                                                                                                                 EDD      1013
                                                                                                                 EDD      1014
        1201         0100 1201           DSC      SUBR               ENTRY/EXIT                                  EDD      1015
        1203         6516 1201                    IJM.   DSCX,SC     IF NOT CYBER 170                            EDD      1016
        1205         2022 2303                    LDC    3LRSC       WRITE *SCR* LABEL BLOCK                     EDD      1017
        1207         0200 0610                    RJM    WLB                                                     EDD      1018
                                                                                                                 EDD      1019
                                        *         READ S/C REGISTER CONTENTS.                                    EDD      1020
                                                                                                                 EDD      1021
        1211         1400                DSC1     LDN    0                                                       EDD      1022
        1212         3412                         STD    T8                                                      EDD      1023
        1213         1420                         LDN    FCRD+NSCB-1 SET READ WORD FUNCTION                      EDD      1024
        1214         3407                         STD    T7                                                      EDD      1025
        1215         7256                DSC2     OAN.   SC+40                                                   EDD      1026
                                1215     DSCA     EQU    DSC2                                                    EDD      1027
                                        *         OAN.   SC+40+20    (CHANNEL 36 PROCESSING)                     EDD      1028
        1216         7056                DSCB     IAN.   SC+40                                                   EDD      1029
                                        *         IAN.   SC+40+20    (CHANNEL 36 PROCESSING)                     EDD      1030
        1217         5412 1273                    STM    DSCE,T8     STORE CONTENTS OF WORD                      EDD      1031
        1221         3612                         AOD    T8                                                      EDD      1032
        1222         3707                         SOD    T7                                                      EDD      1033
        1223         0671                         PJN    DSC2        IF NOT FINISHED READING REGISTER            EDD      1034
                                                                                                                 EDD      1035
                                        *         WRITE TOTAL OF 8 CM WORDS TO TAPE TO CREATE MULTIPLE OF 4      EDD      1036
                                        *         CM WORDS NECESSARY FOR S FORMAT.                               EDD      1037
                                                                                                                 EDD      1038
        1224         1450                         LDN    50          SET RECORD LENGTH                           EDD      1039
        1225         3411                         STD    RL                                                      EDD      1040
        1226         2000 1266                    LDC    DSCD        SET RECORD ADDRESS                          EDD      1041
        1230         5400 1015                    STM    WRTB                                                    EDD      1042
        1232         0200 1005                    RJM    WRT         WRITE RECORD                                EDD      1043
                                                                                                                 EDD      1044
                                        *         SET UP TO READ CHANNEL 36 S/C REGISTER.                        EDD      1045
                                                                                                                 EDD      1046
        1234         1400                DSCC     LDN    0                                                       EDD      1047
                                        *         LDN    1           (CHANNEL 36 PRESENT)                        EDD      1048
        1235         0417                         ZJN    DSC3        IF S/C REGISTER PROCESSING COMPLETE         EDD      1049
        1236         5700 1234                    SOM    DSCC        SET CHANNEL 36 DUMPED                       EDD      1050
        1240         1420                         LDN    20          SET CHANNEL 36 IN I/O INSTRUCTIONS          EDD      1051
        1241         5500 1215                    RAM    DSCA                                                    EDD      1052
        1243         1420                         LDN    20                                                      EDD      1053
        1244         5500 1216                    RAM    DSCB                                                    EDD      1054
        1246         2000 0200                    LDC    200         SET CHANNEL 36 IN HEADER WORD               EDD      1055
        1250         5500 1270                    RAM    DSCD+2                                                  EDD      1056
        1252         0100 1211                    LJM    DSC1        LOOP TO READ CHANNEL 36 REGISTER            EDD      1057
                                                                                                                 EDD      1058
        1254         2000 2137           DSC3     LDC    FCCL+PPPE   CLEAR *STOP ON PP MEMORY PARITY ERROR*      EDD      1059
1       EDD         CTI EXPRESS DEADSTART DUMP - A02                  COMPASS 3.7-871.     23/08/13. 15.42.29.      PAGE    29
        DUMP PROCESSORS.                                              DSC 
  
        1256         7256                         OAN.   SC+40                                                   EDD      1060
        1257         7056                         IAN.   SC+40                                                   EDD      1061
        1260         2000 2136                    LDC    FCCL+PPCM   CLEAR *STOP ON CM READ ERROR*               EDD      1062
        1262         7256                         OAN.   SC+40                                                   EDD      1063
        1263         7056                         IAN.   SC+40                                                   EDD      1064
        1264         0100 1201                    LJM    DSCX        RETURN                                      EDD      1065
                                                                                                                 EDD      1066
        1266                       1     DSCD     BSSZ   1           S/C REGISTER CONTENTS BUFFER                EDD      1067
        1267         2303                         DATA   4LSC16                                                  EDD      1068
        1271                       2              BSSZ   2                                                       EDD      1069
        1273                      24     DSCE     BSSZ   24                                                      EDD      1070
  
  
  
  
                                        **        DP0 - DUMP PP0.                                                EDD      1072
                                        *                                                                        EDD      1073
                                        *         ENTRY  (PB) = RA OF WHERE PP0 SAVED.                           EDD      1074
                                        *                                                                        EDD      1075
                                        *         EXIT   (ON) = CONSTANT 1.                                      EDD      1076
                                        *                                                                        EDD      1077
                                        *         USES   T4, T5, RL.                                             EDD      1078
                                        *                                                                        EDD      1079
                                        *         CALLS  WLB, WRT.                                               EDD      1080
                                                                                                                 EDD      1081
                                                                                                                 EDD      1082
        1317         0100 1317           DP0      SUBR               ENTRY/EXIT                                  EDD      1083
        1321         2055 2020                    LDC    3L PP       WRITE *PP* LABEL BLOCK                      EDD      1084
        1323         0200 0610                    RJM    WLB                                                     EDD      1085
        1325         2000 1000                    LDC    PPS1/5                                                  EDD      1086
        1327         3405                         STD    T5                                                      EDD      1087
        1330         3020                         LDD    PB                                                      EDD      1088
        1331         0411                         ZJN    DP01        IF PP0 NOT SAVED                            EDD      1089
        1332         1006                         SHN    6                                                       EDD      1090
        1333         6105 2000                    CRM    BUF,T5                                                  EDD      1091
        1335         3020                         LDD    PB          SET PP0 SAVE INDICATOR                      EDD      1092
        1336         5400 2020                    STM    BUF+PB                                                  EDD      1093
        1340         2000 2000                    LDC    BUF         SET BUFFER ADDRESS                          EDD      1094
        1342         3404                DP01     STD    T4                                                      EDD      1095
        1343         5400 1015                    STM    WRTB                                                    EDD      1096
        1345         2000 2020                    LDC    2RPP        SET PP IDENTIFICATION BYTE                  EDD      1097
        1347         5404 0001                    STM    1,T4                                                    EDD      1098
        1351         2000 3333                    LDC    2R00        SET PP NUMBER                               EDD      1099
        1353         5404 0002                    STM    2,T4                                                    EDD      1100
        1355         2000 5000                    LDC    PPS1        SET RECORD LENGTH                           EDD      1101
        1357         3411                         STD    RL                                                      EDD      1102
        1360         0200 1005                    RJM    WRT         WRITE FIRST PART                            EDD      1103
        1362         2000 0464                    LDC    PPS2/5                                                  EDD      1104
        1364         3404                         STD    T4                                                      EDD      1105
        1365         3020                         LDD    PB                                                      EDD      1106
        1366         0406                         ZJN    DP02        IF PP0 NOT SAVED                            EDD      1107
        1367         1006                         SHN    6                                                       EDD      1108
        1370         3105                         ADD    T5                                                      EDD      1109
        1371         6104 2000                    CRM    BUF,T4                                                  EDD      1110
        1373         0304                         UJN    DP03        DUMP SECOND PART OF PP0                     EDD      1111
                                                                                                                 EDD      1112
        1374         3011                DP02     LDD    RL                                                      EDD      1113
1       EDD         CTI EXPRESS DEADSTART DUMP - A02                  COMPASS 3.7-871.     23/08/13. 15.42.29.      PAGE    30
        DUMP PROCESSORS.                                              DP0 
  
        1375         5400 1015                    STM    WRTB                                                    EDD      1114
        1377         2000 3004           DP03     LDC    PPS2        WRITE SECOND PART                           EDD      1115
        1401         3411                         STD    RL                                                      EDD      1116
        1402         0200 1005                    RJM    WRT                                                     EDD      1117
        1404         1401                         LDN    1           DEFINE CONSTANT 1                           EDD      1118
        1405         3422                         STD    ON                                                      EDD      1119
        1406         0100 1317                    LJM    DP0X        RETURN                                      EDD      1120
  
  
  
  
                                        **        DPP - DUMP PP-S.                                               EDD      1122
                                        *                                                                        EDD      1123
                                        *         USES   PN, RL.                                                 EDD      1124
                                        *                                                                        EDD      1125
                                        *         CALLS  C2D, WRT.                                               EDD      1126
                                                                                                                 EDD      1127
                                                                                                                 EDD      1128
        1410         0100 1410           DPP      SUBR               ENTRY/EXIT                                  EDD      1129
        1412         1400                         LDN    0                                                       EDD      1130
        1413         3430                         STD    PN                                                      EDD      1131
        1414         2000 2000                    LDC    BUF         SET RECORD ADDRESS                          EDD      1132
        1416         5400 1015                    STM    WRTB                                                    EDD      1133
        1420         3630                DPP1     AOD    PN          ADVANCE PP NUMBER                           EDD      1134
        1421         1132                         LMN    32                                                      EDD      1135
        1422         0465                         ZJN    DPPX        IF END OF PP-S                              EDD      1136
        1423         5030 1470                    LDM    PPT,PN                                                  EDD      1137
        1425         0472                         ZJN    DPP1        IF PP NOT PRESENT                           DIMA271     3
        1426         5400 1461                    STM    DPPB                                                    EDD      1142
        1430         5400 1441                    STM    DPPA                                                    EDD      1143
        1432         2300 0400                    LMC    DCNI&IAMI   SET *DCN* INSTRUCTION                       EDD      1144
        1434         5400 1463                    STM    DPPC                                                    EDD      1145
        1436         2000 5000                    LDC    PPS1        SET SECTION 1 LENGTH                        EDD      1146
        1440         3411                         STD    RL                                                      EDD      1147
        1441         7100 2000           DPPA     IAM.   BUF,**                                                  EDD      1148
        1443         2000 2020                    LDC    2RPP        SET PP IDENTIFICATION BYTE                  EDD      1149
        1445         5400 2001                    STM    BUF+1                                                   EDD      1150
        1447         3030                         LDD    PN          CONVERT PP NUMBER                           EDD      1151
        1450         0200 0265                    RJM    C2D                                                     EDD      1152
        1452         5400 2002                    STM    BUF+2                                                   EDD      1153
        1454         0200 1005                    RJM    WRT         WRITE SECTION 1                             EDD      1154
        1456         2000 3004                    LDC    PPS2        SET SECTION 2 LENGTH                        EDD      1155
        1460         3411                         STD    RL                                                      EDD      1156
        1461         7100 2000           DPPB     IAM.   BUF,**                                                  EDD      1157
        1463         7540                DPPC     DCN.   **          HANG PP                                     EDD      1158
        1464         0200 1005                    RJM    WRT         WRITE SECTION 2                             EDD      1159
        1466         0100 1420                    LJM    DPP1        CONTINUE                                    EDD      1160
1       EDD         CTI EXPRESS DEADSTART DUMP - A02                  COMPASS 3.7-871.     23/08/13. 15.42.29.      PAGE    31
        DUMP PROCESSORS.                                              PPT 
  
                                        **        PP CHANNEL TABLE.                                              EDD      1162
                                                                                                                 EDD      1163
                                                                                                                 EDD      1164
        1470                             PPT      BSS    0                                                       EDD      1165
      L    0                                      LOC    0                                                       EDD      1166
                                                                                                                 EDD      1167
      L    0         0000                         CON    0           PP0                                         EDD      1168
                                  11              DUP    9,1         LOWER 10 PP-S                               EDD      1169
                                                  CON    0                                                       DIMA271     4
      L   12         0000 0000                    CON    0,0         CHANNELS 12 AND 13                          DIMA271     5
                                                                                                                 EDD      1172
                                   4              DUP    4,1         UNUSED PP-S                                 EDD      1173
                                                  CON    0                                                       DIMA271     6
                                                                                                                 EDD      1175
                                  12              DUP    10,1        UPPER 10 PP-S                               EDD      1176
                                                  CON    0                                                       DIMA271     7
        1522                                      LOC    *O                                                      EDD      1178
  
  
  
  
                                        **        DCM - DUMP CENTRAL MEMORY.                                     EDD      1180
                                        *                                                                        EDD      1181
                                        *         USES   MB, RL, T8.                                             EDD      1182
                                        *                                                                        EDD      1183
                                        *         CALLS  WLB, WRT.                                               EDD      1184
                                                                                                                 EDD      1185
                                                                                                                 EDD      1186
        1522         0100 1522           DCM      SUBR               ENTRY/EXIT                                  EDD      1187
        1524         2000 0000                    LDC    0           SET SIZE OF CENTRAL MEMORY                  EDD      1188
                                1525     DCMA     EQU    *-1                                                     EDD      1189
        1526         5400 0202                    STM    EDTB+4                                                  EDD      1190
        1530         2055 0315                    LDC    3L CM       WRITE *CM* LABEL BLOCK                      EDD      1191
        1532         0200 0610                    RJM    WLB                                                     EDD      1192
                                                                                                                 EDD      1193
                                        *         DUMP CM.                                                       EDD      1194
                                                                                                                 EDD      1195
        1534         1400                         LDN    0           INITIALIZE BLOCK COUNT                      EDD      1196
        1535         3430                         STD    MB                                                      EDD      1197
        1536         2000 1000                    LDC    1000        SET CM BLOCK SIZE                           EDD      1198
        1540         3412                         STD    T8                                                      EDD      1199
        1541         2000 5000                    LDC    5000        SET RECORD LENGTH                           EDD      1200
        1543         3411                         STD    RL                                                      EDD      1201
        1544         2000 2000                    LDC    BUF         SET BUFFER ADDRESS                          EDD      1202
        1546         5400 1015                    STM    WRTB                                                    EDD      1203
        1550         3030                DCM1     LDD    MB          READ CM BLOCK                               EDD      1204
        1551         1011                         SHN    9D                                                      EDD      1205
        1552         6112 2000                    CRM    BUF,T8                                                  EDD      1206
        1554         0200 1005                    RJM    WRT         WRITE BLOCK                                 EDD      1207
        1556         3630                         AOD    MB          ADVANCE BLOCK COUNT                         EDD      1208
        1557         5300 0202                    LMM    EDTB+4                                                  EDD      1209
        1561         0566                         NJN    DCM1        IF NOT DONE                                 EDD      1210
        1562         5400 0202                    STM    EDTB+4                                                  EDD      1211
        1564         0100 1522                    LJM    DCMX        RETURN                                      EDD      1212
1       EDD         CTI EXPRESS DEADSTART DUMP - A02                  COMPASS 3.7-871.     23/08/13. 15.42.29.      PAGE    32
        DUMP PROCESSORS.                                              DCP 
  
                                        **        DCP - DUMP CPU HARDWARE REGISTERS.                             EDD      1214
                                        *                                                                        EDD      1215
                                        *         USES   T1 - T5, T8, RL.                                        EDD      1216
                                        *                                                                        EDD      1217
                                        *         CALLS  ECP, WLB, WRT.                                          EDD      1218
                                                                                                                 EDD      1219
                                                                                                                 EDD      1220
        1566         0100 1566           DCP      SUBR               ENTRY/EXIT                                  EDD      1221
        1570         2022 0320                    LDC    3LRCP                                                   EDD      1222
        1572         0200 0610                    RJM    WLB         WRITE CPU REGISTER LABEL                    EDD      1223
                                                                                                                 EDD      1224
                                        *         WRITE EXCHANGE PACKAGE AND LOOP INTO CM.                       EDD      1225
                                                                                                                 EDD      1226
        1574         2000 0000                    LDC    0           STORE CPU IDLE LOOP                         EDD      1227
                                1575     DCPG     EQU    *-1                                                     EDD      1228
                                        *         LDC    CPIA        (CYBER 176)                                 EDD      1229
        1576         6322 1130                    CWM    CPIL,ON                                                 EDD      1230
        1600         1410                DCP1     LDN    CXJPL       SET NUMBER OF WORDS IN EXCHANGE PACKAGE     EDD      1231
        1601         3412                         STD    T8                                                      EDD      1232
        1602         2001 7000                    LDC    CMCP        MOVE RECORD HEADER WORD TO BUFFER           EDD      1233
        1604         6322 1717                    CWM    DCPF,ON                                                 EDD      1234
        1606         1701                         SBN    1                                                       EDD      1235
        1607         6122 2000                    CRM    BUF,ON                                                  EDD      1236
        1611         1701                         SBN    1           COPY EXCHANGE PACKAGE                       EDD      1237
        1612         6312 1060                    CWM    CXJP,T8                                                 EDD      1238
        1614         5000 7673                    LDM    OPTN        CHECK CPU OFF                               EDD      1239
        1616         1021                DCPA     SHN    21-0        CPU0 FLAG                                   EDD      1240
                                        *         SHN    21-1        (CPU1 FLAG)                                 EDD      1241
        1617         0604                         PJN    DCP2        IF CPU NOT OFF                              EDD      1242
        1620         5600 2004                    AOM    BUF+4       SET CPU OFF FLAG IN HEADER WORD             EDD      1243
        1622         0320                         UJN    DCP5                                                    EDD      1244
                                                                                                                 EDD      1245
                                        *         EXCHANGE CPU AND READ IN REGISTER CONTENTS.                    EDD      1246
                                                                                                                 EDD      1247
        1623         5000 0131           DCP2     LDM    EDTA                                                    EDD      1248
        1625         0404                         ZJN    DCP3        IF NOT CYBER 176                            EDD      1249
        1626         0200 1136                    RJM    ECP         EXCHANGE CPU                                EDD      1250
        1630         0304                         UJN    DCP4        READ REGISTER CONTENTS                      EDD      1251
                                                                                                                 EDD      1252
        1631         2001 7000           DCP3     LDC    CMCP        EXCHANGE CPU                                EDD      1253
        1633         2600                DCPB     EXN    0                                                       EDD      1254
                                        *         EXN    1           (EXCHANGE CPU1 (CPU0 IF NO CPU1))           EDD      1255
        1634         1420                DCP4     LDN    20          SET NUMBER OF WORDS TO READ                 EDD      1256
        1635         3405                         STD    T5                                                      EDD      1257
        1636         2001 7000                    LDC    CMCP        READ CPU HARDWARE REGISTERS                 EDD      1258
        1640         6105 2005                    CRM    BUF+5,T5                                                EDD      1259
        1642         0317                DCP5     UJN    DCP7                                                    EDD      1260
                                1642     DCPC     EQU    DCP5                                                    EDD      1261
                                        *         PSN                (BOTH CPUS CHECKED)                         EDD      1262
                                                                                                                 EDD      1263
                                        *         CHECK FOR TWO CPUS.                                            EDD      1264
                                                                                                                 EDD      1265
        1643         5600 1071                    AOM    CXJP+11     SET B1 = 1                                  EDD      1266
        1645         2001 7000                    LDC    CMCP        WRITE EXCHANGE PACKAGE                      EDD      1267
        1647         6312 1060                    CWM    CXJP,T8                                                 EDD      1268
        1651         1710                         SBN    CXJPL       EXCHANGE CPU0                               EDD      1269
        1652         2600                DCPD     EXN    0                                                       EDD      1270
1       EDD         CTI EXPRESS DEADSTART DUMP - A02                  COMPASS 3.7-871.     23/08/13. 15.42.29.      PAGE    33
        DUMP PROCESSORS.                                              DCP 
  
                                        *         PSN                (CPU0 OFF)                                  EDD      1271
        1653         1601                         ADN    1           CHECK B1                                    EDD      1272
        1654         6001                         CRD    T1                                                      EDD      1273
        1655         3005                         LDD    T1+4                                                    EDD      1274
        1656         0503                         NJN    DCP7        IF TWO CPUS                                 EDD      1275
        1657         0100 1566           DCP6     LJM    DCPX        RETURN                                      EDD      1276
                                                                                                                 EDD      1277
                                        *         DUMP CPU REGISTER CONTENTS TO TAPE.                            EDD      1278
                                        *         WRITE TOTAL OF 24 CM WORDS TO TAPE TO CREATE MULTIPLE OF 4     EDD      1279
                                        *         CM WORDS NECESSARY FOR S FORMAT.                               EDD      1280
                                                                                                                 EDD      1281
        1661         2000 0144           DCP7     LDC    144         SET RECORD LENGTH                           EDD      1282
        1663         3411                         STD    RL                                                      EDD      1283
        1664         2000 2000                    LDC    BUF         SET BUFFER ADDRESS                          EDD      1284
        1666         5400 1015                    STM    WRTB                                                    EDD      1285
        1670         0200 1005                    RJM    WRT         WRITE RECORD                                EDD      1286
                                                                                                                 EDD      1287
                                        *         SET UP FOR NEXT CPU.                                           EDD      1288
                                                                                                                 EDD      1289
        1672         5600 1633                    AOM    DCPB        SET EXCHANGE TO NEXT CPU                    EDD      1290
        1674         1277                         LPN    77                                                      EDD      1291
        1675         1702                         SBN    2                                                       EDD      1292
        1676         0660                DCPE     PJN    DCP6        IF BOTH CPUS CHECKED                        EDD      1293
                                        *         UJN    DCP6        (CYBER 176)                                 EDD      1294
                                                                                                                 EDD      1295
        1677         5000 2004                    LDM    BUF+4       CHECK CPU0 OFF                              EDD      1296
        1701         0404                         ZJN    DCP8        IF CPU0 ON                                  EDD      1297
        1702         1400                         LDN    0           SET NO EXCHANGE TO CPU0                     EDD      1298
        1703         5400 1652                    STM    DCPD                                                    EDD      1299
        1705         5400 1642           DCP8     STM    DCPC        SET NO JUMP AFTER CPU1 EXCHANGED            EDD      1300
        1707         5700 1616                    SOM    DCPA        SET SHIFT COUNT                             EDD      1301
        1711         5700 1071                    SOM    CXJP+11     SET B1 = 0                                  EDD      1302
        1713         5600 1721                    AOM    DCPF+2      SET NEXT CPU IN HEADER                      EDD      1303
        1715         0100 1600                    LJM    DCP1        LOOP TO EXCHANGE CPU1                       EDD      1304
                                                                                                                 EDD      1305
        1717         0000                DCPF     CON    0           HEADER WORD                                 EDD      1306
        1720         0320                         DATA   4LCPU0                                                  EDD      1307
        1722         0000                         CON    0                                                       EDD      1308
        1723         0000                         CON    0                                                       EDD      1309
  
  
  
  
                                 -52              ERRPL  *-BUF+2     OVERFLOW INTO TAPE BUFFER                   EDD      1311
1       EDD         CTI EXPRESS DEADSTART DUMP - A02                  COMPASS 3.7-871.     23/08/13. 15.42.29.      PAGE    34
        PRESET. 
  
                                        **        PRS - PRESET *EDD* RESIDENT.                                   EDD      1313
                                                                                                                 EDD      1314
                                                                                                                 EDD      1315
        1724         0100 1724           PRS      SUBR               ENTRY/EXIT                                  EDD      1316
        1726         6516 1776                    IJM.   PRS1,SC     IF NOT A CYBER 170                          EDD      1317
        1730         2000 4110                    LDC    FCSB+SCSL   CHECK FOR CYBER 176 BY TOGGLING BIT 72D     EDD      1318
        1732         7256                         OAN.   SC+40                                                   EDD      1319
        1733         7056                         IAN.   SC+40                                                   EDD      1320
        1734         2000 3110                    LDC    FCTC+SCSL                                               EDD      1321
        1736         7256                         OAN.   SC+40                                                   EDD      1322
        1737         7056                         IAN.   SC+40                                                   EDD      1323
        1740         0436                         ZJN    PRS1        IF BIT NOT SET                              EDD      1324
        1741         2000 1110                    LDC    FCTB+SCSL                                               EDD      1325
        1743         7256                         OAN.   SC+40                                                   EDD      1326
        1744         7056                         IAN.   SC+40                                                   EDD      1327
        1745         0531                         NJN    PRS1        IF BIT NOT CLEARED                          EDD      1328
        1746         5600 0131                    AOM    EDTA        SET CYBER 176 FLAG                          EDD      1329
        1750         2077 7477                    LDC    UJNI-PJNI                                               EDD      1330
        1752         5500 1676                    RAM    DCPE                                                    EDD      1331
        1754         2001 7020                    LDC    CPIA        SET CPU IDLE ADDRESS IN EXCHANGE PACKAGE    EDD      1332
        1756         5400 1061                    STM    CXJP+1                                                  EDD      1333
        1760         5400 1575                    STM    DCPG        RESET IDLE LOOP ADDRESS                     EDD      1334
        1762         1014                         SHN    14                                                      EDD      1335
        1763         5400 1131                    STM    CPIL+1      MODIFY IDLE LOOP                            EDD      1336
        1765         1071                         SHN    -6                                                      EDD      1337
        1766         1377                         SCN    77                                                      EDD      1338
        1767         5500 1132                    RAM    CPIL+2                                                  EDD      1339
        1771         1401                         LDN    CPIA/10000                                              EDD      1340
        1772         5400 1060                    STM    CXJP                                                    EDD      1341
        1774         5500 1574                    RAM    DCPG-1                                                  EDD      1342
                                                                                                                 EDD      1343
                                        *         DETERMINE PPS CONFIGURATION.                                   EDD      1344
                                                                                                                 EDD      1345
        1776         1400                PRS1     LDN    0           PRESET 65X TAPE FORMAT                      EDD      1346
        1777         3415                         STD    TS                                                      EDD      1347
        2000         3421                         STD    DP                                                      EDD      1348
        2001         6520 2027                    IJM.   PRS4,20     IF NO UPPER PPS                             EDD      1349
        2003         5400 2021                    STM    PRSB                                                    EDD      1350
        2005         5600 1234                    AOM    DSCC                                                    EDD      1351
        2007         3621                         AOD    DP          SET UPPER PPS FLAG                          EDD      1352
        2010         1512                         LCN    12                                                      EDD      1353
        2011         1612                PRS2     ADN    12          SET CHANNEL INDEX                           EDD      1354
        2012         3406                         STD    T6                                                      EDD      1355
        2013         2300 7100                    LMC    IAMI                                                    DIMA271     8
        2015         6500 2021           PRSA     IJM.   PRS3,0      CHECK LOWER 10 PP-S                         EDD      1356
        2017         5406 1470                    STM    PPT,T6                                                  EDD      1357
        2021         0306                PRS3     UJN    PRS4                                                    EDD      1358
                                        *         PSN    0           (UPPER PPS PRESENT)                         EDD      1359
                                2021     PRSB     EQU    PRS3                                                    EDD      1360
        2022         1620                         ADN    20                                                      EDD      1361
        2023         6520 2027           PRSC     IJM.   PRS4,20     CHECK UPPER 10 PP-S                         EDD      1362
        2025         5406 1510                    STM    PPT+20,T6                                               EDD      1363
        2027         5600 2023           PRS4     AOM    PRSC        ADVANCE CHANNEL NUMBER                      EDD      1364
        2031         5600 2015                    AOM    PRSA        SET CHANNEL TEST FOR LOWER PP-S             EDD      1365
        2033         1217                         LPN    17                                                      EDD      1366
        2034         1712                         SBN    12                                                      EDD      1367
        2035         0553                         NJN    PRS2        IF NOT END OF PP-S                          EDD      1368
1       EDD         CTI EXPRESS DEADSTART DUMP - A02                  COMPASS 3.7-871.     23/08/13. 15.42.29.      PAGE    35
        PRESET. 
  
        2036         7400                         ACN.   0                                                       EDD      1369
        2037         2000 7100                    LDC    IAMI+0      TIE PP ON DISPLAY CHANNEL TO CHANNEL 0      DIMA271     9
        2041         5400 1500                    STM    PPT+CH                                                  DIMA271    10
        2043         1403                         LDN    3                                                       EDD      1371
        2044         7310 2420                    OAM.   PRSH,CH                                                 EDD      1372
        2046         7550                         DCN.   CH                                                      EDD      1373
        2047         2001 2430           PRS5     LDC    PRSI+10000  GET TAPE CHANNEL                            EDD      1374
        2051         0200 0310                    RJM    DIG                                                     EDD      1375
        2053         1277                         LPN    77                                                      EDD      1376
        2054         3414                         STD    CN                                                      EDD      1377
        2055         1734                         SBN    34                                                      EDD      1378
        2056         0670                         PJN    PRS5        IF CHANNEL TOO LARGE                        EDD      1379
        2057         7710 0000                    FNC.   0,CH        DESELECT DISPLAY SYNC                       EDD      1380
        2061         1477                         LDN    77                                                      EDD      1381
        2062         1701                         SBN    1                                                       EDD      1382
        2063         0576                         NJN    *-1                                                     EDD      1383
        2064         7550                         DCN.   CH                                                      EDD      1384
        2065         7410                         ACN.   CH                                                      EDD      1385
        2066         1410                         LDN    CH          RESET DISPLAY CHANNEL PP                    EDD      1386
        2067         5500 2422                    RAM    PRSH+2                                                  EDD      1387
        2071         1403                         LDN    3                                                       EDD      1388
        2072         7300 2420                    OAM.   PRSH,0                                                  EDD      1389
        2074         7540                         DCN.   0                                                       EDD      1390
        2075         3014                         LDD    CN          CHECK CHANNEL FOR PP                        EDD      1391
        2076         3417                         STD    DT                                                      EDD      1392
        2077         0410                         ZJN    PRS6        IF CHANNEL ZERO                             DIM0251     1
        2100         1212                         LPN    12                                                      EDD      1393
        2101         1112                         LMN    12                                                      EDD      1394
        2102         0405                         ZJN    PRS6        IF NO PP                                    EDD      1395
        2103         2000 7113                    LDC    IAMI+13      SET PP ON CHANNEL 13                       DIM0251     2
        2105         5414 1470                    STM    PPT,CN                                                  EDD      1397
        2107         2000 2473           PRS6     LDC    CTTC        MODIFY CHANNEL INSTRUCTIONS                 EDD      1398
        2111         0200 0604                    RJM    MCI                                                     EDD      1399
                                                                                                                 EDD      1400
                                        *         CHECK STATUS OF PP BUFFER CHANNEL.                             EDD      1401
                                                                                                                 EDD      1402
        2113         1417                         LDN    DT                                                      EDD      1403
        2114         3407                         STD    T7                                                      EDD      1404
        2115         3016                         LDD    DS                                                      EDD      1405
        2116         1101                         LMN    PC                                                      EDD      1406
        2117         0405                         ZJN    PRS7        IF DEADSTART ON PP BUFFER CHANNEL           EDD      1407
        2120         3707                         SOD    T7                                                      EDD      1408
        2121         3017                         LDD    DT                                                      EDD      1409
        2122         1101                         LMN    PC                                                      EDD      1410
        2123         0512                         NJN    PRS9        IF DUMP NOT ON PP BUFFER CHANNEL            EDD      1411
        2124         1412                PRS7     LDN    12          CHANGE PP BUFFER CHANNEL TO 12              EDD      1412
        2125         3414                         STD    CN                                                      EDD      1413
        2126         4307                         LMI    T7                                                      EDD      1414
        2127         0502                         NJN    PRS8        IF NO CONFLICT WITH DEADSTART/DUMP          EDD      1415
        2130         3614                         AOD    CN          SET CHANNEL 13                              EDD      1416
        2131         2000 2531           PRS8     LDC    CTPC        MODIFY CHANNEL INSTRUCTIONS                 EDD      1417
        2133         0200 0604                    RJM    MCI                                                     EDD      1418
                                                                                                                 EDD      1419
                                        *         OUTPUT IDLERS TO PP-S.                                         EDD      1420
                                                                                                                 EDD      1421
        2135         5000 2153           PRS9     LDM    PRSD                                                    DIMA271    12
        2137         2300 0700                    LMC    OAMI&ACNI                                               EDD      1432
1       EDD         CTI EXPRESS DEADSTART DUMP - A02                  COMPASS 3.7-871.     23/08/13. 15.42.29.      PAGE    36
        PRESET. 
  
        2141         5400 2422                    STM    PRSH+2                                                  EDD      1433
        2143         2300 0200                    LMC    IAMI&OAMI   SET BUFFER PP CHANNEL                       DIMO238     1
        2145         5400 1471                    STM    PPT+PC                                                  DIMO238     2
        2147         1407                         LDN    PRSHL       OUTPUT PP1 IDLER                            DIMA271    13
        2150         7301 2420                    OAM.   PRSH,1                                                  DIMA271    14
        2152         7541                         DCN.   1                                                       DIMA271    15
        2153         7401                PRSD     ACN    PC                                                      DIMA271    16
        2154         1402                         LDN    2           TRANSMIT IDLER TO REMAINING PP-S            DIMA271    17
        2155         3406                         STD    T6                                                      DIMA271    18
        2156         3017                         LDD    DT                                                      DIM0251     3
        2157         0505                         NJN    PRS10       IF DUMP NOT ON CHANNEL ZERO                 DIM0251     4
        2160         2000 7113                    LDC    IAMI+13     MOVE DISPLAY CHANNEL PP TO CHANNEL 13       DIM0251     5
        2162         5400 1500                    STM    PPT+CH                                                  DIM0251     6
        2164         5006 1470           PRS10    LDM    PPT,T6                                                  DIMA271    19
        2166         0421                         ZJN    PRS11       IF NO PP ON CHANNEL                         DIMA271    20
        2167         1237                         LPN    37          SET CHANNEL NUMBER                          DIMA271    21
        2170         3414                         STD    CN                                                      DIMA271    22
        2171         2000 2544                    LDC    CTXC        MODIFY CHANNEL INSTRUCTIONS                 DIMA271    23
        2173         0200 0604                    RJM    MCI                                                     DIMA271    24
        2175         1403                         LDN    PRSML       TRANSMIT IDLE PACKAGE PRELOADER             DIMA271    25
        2176         7302 2463           PRSE     OAM.   PRSM,2                                                  DIMA271    26
        2200         7542                PRSF     DCN.   2                                                       DIMA271    27
        2201         7417                         ACN    XC                                                      DIMA271    28
        2202         1405                         LDN    PRSNL       OUTPUT IDLE PACKAGE                         DIMA271    29
        2203         7317 2466                    OAM    PRSN,XC                                                 DIMA271    30
        2205         7557                         DCN    XC                                                      DIMA271    31
        2206         7417                         ACN    XC                                                      DIMA271    32
        2207         5600 2176           PRS11    AOM    PRSE                                                    DIMA271    33
        2211         5600 2200                    AOM    PRSF        ADVANCE PP NUMBER                           DIMA271    34
        2213         1237                         LPN    37                                                      DIMA271    35
        2214         3406                         STD    T6                                                      DIMA271    36
        2215         1132                         LMN    32                                                      DIMA271    37
        2216         0545                         NJN    PRS10       IF NOT END OF PP-S                          DIMA271    38
                                                                                                                 DIMA271    39
                                        *         GET TAPE EQUIPMENT AND UNIT.                                   DIMA271    40
                                                                                                                 DIMA271    41
        2217         2002 2435                    LDC    PRSJ+20000                                              DIMA271    42
        2221         0200 0310                    RJM    DIG                                                     DIMA271    43
        2223         3401                         STD    T1          SAVE CONSOLE INPUT                          EDD      1454
        2224         2200 7017                    LPC    7017        SET EQUIPMENT AND UNIT IN CONNECT ROUTINE   EDD      1455
        2226         5400 0676                    STM    CONA                                                    EDD      1456
        2230         1317                         SCN    17          SAVE EQUIPMENT NUMBER                       EDD      1457
        2231         3413                         STD    EQ                                                      EDD      1458
        2232         3001                         LDD    T1          DETERMINE CONTROLLER TYPE                   EDD      1459
        2233         1071                         SHN    -6                                                      EDD      1460
        2234         1203                         LPN    3                                                       EDD      1461
        2235         0505                         NJN    PRS14       IF CONTROLLER TYPE SPECIFIED                EDD      1462
        2236         3013                         LDD    EQ                                                      EDD      1463
        2237         0402                         ZJN    PRS13       IF NULL EQUIPMENT (DEFAULT TO MTS)          EDD      1464
        2240         1401                         LDN    3-2                                                     EDD      1465
        2241         1602                PRS13    ADN    2           SET TABLE INDEX                             EDD      1466
        2242         3402                PRS14    STD    T2                                                      EDD      1467
        2243         5002 2457                    LDM    PRSL-1,T2                                               EDD      1468
        2245         3402                         STD    T2                                                      EDD      1469
        2246         1400                         LDN    0                                                       EDD      1470
        2247         0102 0000                    LJM    0,T2                                                    EDD      1471
                                                                                                                 EDD      1472
1       EDD         CTI EXPRESS DEADSTART DUMP - A02                  COMPASS 3.7-871.     23/08/13. 15.42.29.      PAGE    37
        PRESET. 
  
                                        *         PRESET DUMP TO 65X TAPE SYSTEM.                                EDD      1473
                                                                                                                 EDD      1474
        2251         3413                PRS15    STD    EQ                                                      EDD      1475
        2252         1534                         LCN    51-15       SET WRITE TAPE MARK FUNCTION                EDD      1476
        2253         5500 0146                    RAM    .TF1                                                    EDD      1477
        2255         5400 0151                    STM    .TF2                                                    EDD      1478
        2257         1412                         LDN    12          SET BACKSPACE FUNCTION                      EDD      1479
        2260         5400 1036                    STM    WRTD                                                    EDD      1480
        2262         5400 0160                    STM    .BK                                                     EDD      1481
        2264         1534                         LCN    52-16       SET ERASE FUNCTION                          EDD      1482
        2265         5500 1044                    RAM    WRTE                                                    EDD      1483
        2267         2000 7447                    LDC    7447        RESET STATUS MASKS                          EDD      1484
        2271         5400 0663                    STM    COND                                                    EDD      1485
        2273         2000 1005                    LDC    1005                                                    EDD      1486
        2275         5400 0665                    STM    CONE                                                    EDD      1487
        2277         2000 6440                    LDC    6440                                                    EDD      1488
        2301         5400 1031                    STM    WRTC                                                    EDD      1489
        2303         0100 2352                    LJM    PRS18       PROCESS DUMP                                EDD      1490
                                                                                                                 EDD      1491
                                        *         PRESET DUMP TO 66X TAPE SYSTEM.                                EDD      1492
                                                                                                                 EDD      1493
        2305         1403                PRS16    LDN    3           RELEASE OPPOSITE RESERVES                   EDD      1494
        2306         3113                         ADD    EQ          ADD EQUIPMENT NUMBER                        EDD      1495
        2307         7613                         FAN    TC                                                      EDD      1496
        2310         2000 0100                    LDC    100                                                     EDD      1497
        2312         5400 2334                    STM    PRSG                                                    EDD      1498
        2314         1424                         LDN    30-4                                                    EDD      1499
                                                                                                                 EDD      1500
                                        *         PRESET DUMP TO 67X TAPE SYSTEM.                                EDD      1501
                                                                                                                 EDD      1502
        2315         1604                PRS17    ADN    4           SET FORMAT UNIT FUNCTION                    EDD      1503
        2316         3113                         ADD    EQ                                                      EDD      1504
        2317         5400 0647                    STM    CONC                                                    EDD      1505
        2321         3615                         AOD    TS          SET ATS/MTS UNIT                            EDD      1506
        2322         3001                         LDD    T1          CONNECT TO UNIT                             EDD      1507
        2323         1217                         LPN    17                                                      EDD      1508
        2324         1620                         ADN    20                                                      EDD      1509
        2325         5500 0720                    RAM    CONB                                                    EDD      1510
        2327         1237                         LPN    37                                                      EDD      1511
        2330         0200 0726                    RJM    FCN                                                     EDD      1512
        2332         3007                         LDD    T7          SET DENSITY                                 EDD      1513
        2333         2200 0000                    LPC    0                                                       EDD      1514
                                        *         LPC    100         (MTS UNIT)                                  EDD      1515
                                2334     PRSG     EQU    *-1                                                     EDD      1516
        2335         5100 2334                    ADM    PRSG                                                    EDD      1517
        2337         5500 0721                    RAM    CONB+1                                                  EDD      1518
        2341         3007                         LDD    T7          SET MT/NT IN FORMAT PARAMETER               EDD      1519
        2342         1076                         SHN    -1                                                      EDD      1520
        2343         1240                         LPN    40                                                      EDD      1521
        2344         5500 0720                    RAM    CONB                                                    EDD      1522
        2346         1450                         LDN    50          SET WRITE FUNCTION                          EDD      1523
        2347         3113                         ADD    EQ                                                      EDD      1524
        2350         5400 1011                    STM    WRTA                                                    EDD      1525
                                                                                                                 EDD      1526
                                        *         GET DUMP LABEL INFORMATION.                                    EDD      1527
                                                                                                                 EDD      1528
        2352         2001 0203           PRS18    LDC    EDTC+10000  REQUEST DUMP NUMBER                         EDD      1529
1       EDD         CTI EXPRESS DEADSTART DUMP - A02                  COMPASS 3.7-871.     23/08/13. 15.42.29.      PAGE    38
        PRESET. 
  
        2354         0200 0310                    RJM    DIG                                                     EDD      1530
        2356         0200 0265                    RJM    C2D         CONVERT                                     EDD      1531
        2360         5400 0207                    STM    EDTC+4                                                  EDD      1532
        2362         5400 0226                    STM    EDTD+3                                                  EDD      1533
        2364         5400 0240                    STM    EDTE+3                                                  EDD      1534
                                                                                                                 EDD      1535
                                        *         CHECK REWIND DESIRED.                                          EDD      1536
                                                                                                                 EDD      1537
        2366         0200 0670                    RJM    CON         CONNECT UNIT                                EDD      1538
        2370         2000 2443                    LDC    PRSK                                                    EDD      1539
        2372         0200 0310                    RJM    DIG                                                     EDD      1540
        2374         0506                         NJN    PRS19       IF DISABLE REWIND                           EDD      1541
        2375         1410                         LDN    10          REWIND                                      EDD      1542
        2376         5400 0160                    STM    .BK                                                     EDD      1543
        2400         0200 0726                    RJM    FCN                                                     EDD      1544
        2402         2000 2643           PRS19    LDC    SBUF        DETERMINE SIZE OF CENTRAL MEMORY            EDD      1545
        2404         0200 2554                    RJM    DMS                                                     EDD      1546
        2406         5400 1525                    STM    DCMA                                                    EDD      1547
        2410         5000 0131                    LDM    EDTA                                                    EDD      1548
        2412         0404                         ZJN    PRS20       IF NOT CYBER 176                            EDD      1549
        2413         1420                         LDN    20          SET MONITOR FLAG IN EXCHANGE PACKAGE        EDD      1550
        2414         5400 1077                    STM    CXJPA                                                   EDD      1551
        2416         0100 1724           PRS20    LJM    PRSX        RETURN                                      EDD      1552
                                                                                                                 EDD      1553
        2420                             PRSH     BSS    0           PP1 IDLE PROGRAM                            DIMA271    44
        2420         0000                         CON    0                                                       DIMA271    45
        2421         1500                         LCN    0                                                       EDD      1556
        2422         7100 0000                    IAM.   0,0                                                     EDD      1557
        2424         6501 0004                    IJM    *-PRSH,PC                                               EDD      1558
        2426         7101 0000                    IAM    0,PC                                                    EDD      1560
                                   7     PRSHL    EQU    *-PRSH-1    LENGTH OF PP1 IDLE PROGRAM                  DIMA271    46
                                                                                                                 EDD      1561
        2430         1524                PRSI     DATA   C*MT CH  *                                              EDD      1562
        2435         1524                PRSJ     DATA   C*MT ECUU  *                                            EDD      1563
        2443         1617                PRSK     DATA   C*NONZERO INHIBITS REWIND *                             EDD      1564
                                                                                                                 EDD      1565
        2460                             PRSL     BSS    0                                                       EDD      1566
        2460         2315                         CON    PRS17       ATS                                         EDD      1567
        2461         2305                         CON    PRS16       MTS                                         EDD      1568
        2462         2251                         CON    PRS15       MMTC                                        EDD      1569
                                                                                                                 DIMA271    47
        2463                             PRSM     BSS    0           IDLE PACKAGE PRELOADER                      DIMA271    48
        2463         0000                         CON    0                                                       DIMA271    49
        2464         7117 7774                    IAM    PPIA,XC                                                 DIMA271    50
                                   3     PRSML    EQU    *-PRSM      LENGTH OF PRELOADER                         DIMA271    51
                                                                                                                 DIMA271    52
        2466                             PRSN     BSS    0           PP IDLE PACKAGE                             DIMA271    53
        2466         1500                         LCN    0                                                       DIMA271    54
        2467         7317 0000                    OAM    0,XC                                                    DIMA271    55
        2471         0376                         UJN    *-1                                                     DIMA271    56
        2472         7773                         CON    PPIA-1                                                  DIMA271    57
                                   5     PRSNL    EQU    *-PRSN      LENGTH OF IDLE PACKAGE                      DIMA271    58
                                                                                                                 DIMA271    59
                                   0              ERRNZ  PPIA+PRSNL-10001                                        DIMA271    60
1       EDD         CTI EXPRESS DEADSTART DUMP - A02                  COMPASS 3.7-871.     23/08/13. 15.42.29.      PAGE    39
        PRESET. 
  
                                        **        CHANNEL TABLES.                                                EDD      1571
                                                                                                                 EDD      1572
                                                                                                                 EDD      1573
        2473                                      CHTB   TC                                                      EDD      1574
        2531                                      CHTB   PC                                                      EDD      1575
        2544                                      CHTB   XC                                                      DIMA271    61
  
  
  
  
                                        **        COMMON DECKS.                                                  EDD      1577
                                                                                                                 EDD      1578
                                                                                                                 EDD      1579
                                   0     RCM$     EQU    0           SELECT RESTORE CM TEST CELLS                EDD      1580
        2553                                      CTEXT  COMPDMS - DETERMINE MEMORY SIZE.                        COMPDMS     2
                                                                                                                 EDD      1582
                                                                                                                 EDD      1583
        2643                             SBUF     BSS    0           SCRATCH BUFFER FOR *COMPDMS*                EDD      1584
1       EDD         CTI EXPRESS DEADSTART DUMP - A02                  COMPASS 3.7-871.     23/08/13. 15.42.29.      PAGE    40
        DEM - DUMP FLPP-S, EXTENDED MEMORY. 
  
                                                  IDENT  DEM,DFPX                                                EDD      1586
                                                  COMMENT CTI EDD OVERLAY                                        DIMA317J    9
                                                  COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1979               DIMA317J   10
  
  
                                        *         ALL RIGHTS RESERVED                                            CDCCRN      3
                                        *                                                                        CDCCRN      4
                                        *         CONTAINED HEREIN ARE SOFTWARE PRODUCTS COPYRIGHTED             CDCCRN      5
                                        *         BY CONTROL DATA CORPORATION.  REPRODUCTION WITHOUT             CDCCRN      6
                                        *         PERMISSION IS PROHIBITED.  THE COPYRIGHT NOTICE                CDCCRN      7
                                        *         MUST APPEAR ON ALL AUTHORIZED COMPLETE OR                      CDCCRN      8
                                        *         PARTIAL COPIES.                                                CDCCRN      9
                                        *                                                                        CDCCRN     10
1       EDD         CTI EXPRESS DEADSTART DUMP - A02                  COMPASS 3.7-871.     23/08/13. 15.42.29.      PAGE    41
        DEM - DUMP FLPP-S, EXTENDED MEMORY.                           DFP 
  
                                        **        DFP - DUMP FLPP MEMORY.                                        EDD      1588
                                        *                                                                        EDD      1589
                                        *         USES   PN, RL, T6, T7.                                         EDD      1590
                                        *                                                                        EDD      1591
                                        *         CALLS  C2D, SCR, WLB, WRT.                                     EDD      1592
                                                                                                                 EDD      1593
                                                                                                                 EDD      1594
        1201                                      ORG    OVLC                                                    EDD      1595
                                                                                                                 EDD      1596
        1201         0100 1201           DFP      SUBR               ENTRY/EXIT                                  EDD      1597
        1203         2020 0620                    LDC    3RPFP       WRITE *FPP* LABEL BLOCK                     EDD      1598
        1205         0200 0610                    RJM    WLB                                                     EDD      1599
        1207         2000 2073                    LDC    FCCL+DDFP   CLEAR *DUMP FLPP*                           EDD      1600
        1211         7256                         OAN.   SC+40                                                   EDD      1601
        1212         7056                         IAN.   SC+40                                                   EDD      1602
        1213         1400                         LDN    0           INITIALIZE FLPP NUMBER                      EDD      1603
        1214         3430                         STD    PN                                                      EDD      1604
        1215         2000 2000                    LDC    BUF         SET RECORD ADDRESS                          EDD      1605
        1217         5400 1015                    STM    WRTB                                                    EDD      1606
        1221         2000 2211                    LDC    FCCL+SPUM   CLEAR *STOP ON PPU MEMORY PARITY ERROR*     EDD      1607
        1223         7256                         OAN.   SC+40                                                   EDD      1608
        1224         7056                         IAN.   SC+40                                                   EDD      1609
        1225         7440                         ACN.   MC+40       ACTIVATE SCANNER CHANNEL                    EDD      1610
                                                                                                                 EDD      1611
                                        *         SET SCANNER SELECT BITS.                                       EDD      1612
                                                                                                                 EDD      1613
        1226         1404                DFP1     LDN    4           SET SCANNER SELECT BITS                     EDD      1614
        1227         3406                         STD    T6          NUMBER OF BITS                              EDD      1615
        1230         2000 0110                    LDC    SCSL        FIRST BIT NUMBER                            EDD      1616
        1232         3407                         STD    T7                                                      EDD      1617
        1233         3030                         LDD    PN          BIT PATTERN                                 EDD      1618
        1234         0200 1160                    RJM    SCR         SET S/C REGISTER                            EDD      1619
        1236         2000 4122                    LDC    FCSB+ENSC   ENABLE SCANNER INTERFACE                    EDD      1620
        1240         7256                         OAN.   SC+40                                                   EDD      1621
        1241         7056                         IAN.   SC+40                                                   EDD      1622
                                                                                                                 EDD      1623
                                        *         ACTIVATE FLPP DEAD DUMP.                                       EDD      1624
                                                                                                                 EDD      1625
        1242         0200 1707                    RJM    DSP         DEADSTART FLPP                              EDD      1626
        1244         2000 4073                    LDC    FCSB+DDFP   SET DEAD DUMP FLPP                          EDD      1627
        1246         7256                         OAN.   SC+40                                                   EDD      1628
        1247         7056                         IAN.   SC+40                                                   EDD      1629
        1250         2000 2073                    LDC    FCCL+DDFP   CLEAR DEAD DUMP FLPP                        EDD      1630
        1252         7256                         OAN.   SC+40                                                   EDD      1631
        1253         7056                         IAN.   SC+40                                                   EDD      1632
        1254         6740 1310                    EJM.   DFP2,MC+40  IF FLPP NOT PRESENT                         EDD      1633
                                                                                                                 EDD      1634
                                        *         DUMP SECTION ONE.                                              EDD      1635
                                                                                                                 EDD      1636
        1256         2000 5000                    LDC    PPS1        SET SECTION 1 LENGTH                        EDD      1637
        1260         3411                         STD    RL                                                      EDD      1638
        1261         7140 2000                    IAM.   BUF,MC+40                                               EDD      1639
        1263         2000 0620                    LDC    2RFP        SET FLPP IDENTIFICATION                     EDD      1640
        1265         5400 2001                    STM    BUF+1                                                   EDD      1641
        1267         3030                         LDD    PN          STORE FLPP NUMBER                           EDD      1642
        1270         0200 0265                    RJM    C2D                                                     EDD      1643
        1272         5400 2002                    STM    BUF+2                                                   EDD      1644
1       EDD         CTI EXPRESS DEADSTART DUMP - A02                  COMPASS 3.7-871.     23/08/13. 15.42.29.      PAGE    42
        DEM - DUMP FLPP-S, EXTENDED MEMORY.                           DFP 
  
        1274         0200 1005                    RJM    WRT         WRITE SECTION 1                             EDD      1645
                                                                                                                 EDD      1646
                                        *         DUMP SECTION TWO.                                              EDD      1647
                                                                                                                 EDD      1648
        1276         2000 3004                    LDC    PPS2        SET SECTION 2 LENGTH                        EDD      1649
        1300         3411                         STD    RL                                                      EDD      1650
        1301         1705                         SBN    5                                                       EDD      1651
        1302         7140 2000                    IAM.   BUF,MC+40                                               EDD      1652
        1304         0200 1005                    RJM    WRT         WRITE SECTION 2                             EDD      1653
        1306         0200 1707                    RJM    DSP         REDEADSTART FLPP                            EDD      1654
        1310         2000 2122           DFP2     LDC    FCCL+ENSC   DISABLE SCANNER INTERFACE                   EDD      1655
        1312         7256                         OAN.   SC+40                                                   EDD      1656
        1313         7056                         IAN.   SC+40                                                   EDD      1657
        1314         3630                         AOD    PN          ADVANCE FLPP NUMBER                         EDD      1658
        1315         1116                         LMN    16                                                      EDD      1659
        1316         0403                         ZJN    DFP3        IF ALL FLPP-S DUMPED                        EDD      1660
        1317         0100 1226                    LJM    DFP1        LOOP FOR NEXT FLPP                          EDD      1661
                                                                                                                 EDD      1662
        1321         7540                DFP3     DCN.   MC          DEACTIVATE SCANNER CHANNEL                  EDD      1663
        1322         2000 2004                    LDC    FCCL+PPUE   CLEAR *FLPP ERROR*                          EDD      1664
        1324         7256                         OAN.   SC+40                                                   EDD      1665
        1325         7056                         IAN.   SC+40                                                   EDD      1666
        1326         0100 1201                    LJM    DFPX        RETURN                                      EDD      1667
  
  
  
  
                                        **        DEM - DUMP EXTENDED MEMORY.                                    EDD      1669
                                        *                                                                        EDD      1670
                                        *         USES   MB, LL, RL, T8, T1 - T6.                                EDD      1671
                                        *                                                                        EDD      1672
                                        *         CALLS  DIG, ECP, WLB, WRT.                                     EDD      1673
                                                                                                                 EDD      1674
                                                                                                                 EDD      1675
        1330         0100 1330           DEM      SUBR               ENTRY/EXIT                                  EDD      1676
        1332         2002 1517                    LDC    DEMB+20000  ASK FOR ECS SIZE                            EDD      1677
        1334         0200 0310                    RJM    DIG                                                     EDD      1678
        1336         0471                         ZJN    DEMX        IF NO ECS/LCM DUMP                          EDD      1679
        1337         3430                         STD    MB          SAVE BLOCK COUNT                            EDD      1680
        1340         5400 0202                    STM    EDTB+4                                                  EDD      1681
                                                                                                                 EDD      1682
                                        *         CHECK CPU OFF BITS.                                            EDD      1683
                                                                                                                 EDD      1684
        1342         5000 7673                    LDM    OPTN                                                    EDD      1685
        1344         1021                         SHN    21-0                                                    EDD      1686
        1345         0605                         PJN    DEM1        IF CPU0 ON                                  EDD      1687
        1346         1021                         SHN    1+21-1                                                  EDD      1688
        1347         0760                         MJN    DEMX        IF BOTH CPUS OFF                            EDD      1689
        1350         5600 1404                    AOM    DEMA        SET UP EXCHANGE TO CPU1                     EDD      1690
                                                                                                                 EDD      1691
                                        *         WRITE CPU PROGRAM TO CM.                                       EDD      1692
                                                                                                                 EDD      1693
        1352         1410                DEM1     LDN    CXJPL       GET LENGTH OF EXCHANGE PACKAGE              EDD      1694
        1353         3401                         STD    T1                                                      EDD      1695
        1354         1412                         LDN    DEMCL       GET LENGTH OF CPU PROGRAM                   EDD      1696
        1355         3402                         STD    T2                                                      EDD      1697
        1356         1401                         LDN    1           SET B1 = 1                                  EDD      1698
1       EDD         CTI EXPRESS DEADSTART DUMP - A02                  COMPASS 3.7-871.     23/08/13. 15.42.29.      PAGE    43
        DEM - DUMP FLPP-S, EXTENDED MEMORY.                           DEM 
  
        1357         5400 1071                    STM    CXJP+11                                                 EDD      1699
        1361         2001 7021                    LDC    CMEC+21     SET P FOR CPU PROGRAM                       EDD      1700
        1363         5400 1061                    STM    CXJP+1                                                  EDD      1701
        1365         1063                         SHN    -14                                                     EDD      1702
        1366         5400 1060                    STM    CXJP                                                    EDD      1703
        1370         2001 7000                    LDC    CMEC        WRITE EXCHANGE PACKAGE TO CM                EDD      1704
        1372         6301 1060                    CWM    CXJP,T1                                                 EDD      1705
        1374         1611                         ADN    21-CXJPL    COPY CPU PROGRAM TO CM                      EDD      1706
        1375         6302 1527                    CWM    DEMC,T2                                                 EDD      1707
        1377         5000 0131                    LDM    EDTA        CHECK IF CYBER 176                          EDD      1708
        1401         0527                         NJN    DEM3        IF CYBER 176                                EDD      1709
        1402         2001 7000                    LDC    CMEC        EXCHANGE CPU                                EDD      1710
        1404         2600                DEMA     EXN    0                                                       EDD      1711
                                        *         EXN    1           (CPU0 TURNED OFF)                           EDD      1712
                                                                                                                 EDD      1713
                                        *         GET ECS FLAG REGISTER.                                         EDD      1714
                                                                                                                 EDD      1715
        1405         2001 7032           DEM2     LDC    CMEC+20+DEMCL  CHECK DATA READY                         EDD      1716
        1407         6023                         CRD    CS                                                      EDD      1717
        1410         1601                         ADN    1                                                       EDD      1718
        1411         6002                         CRD    T2                                                      EDD      1719
        1412         3023                         LDD    CS                                                      EDD      1720
        1413         0471                         ZJN    DEM2        IF NOT READY                                EDD      1721
        1414         3005                         LDD    T2+3        SET FLAG REGISTER IN LABEL                  EDD      1722
        1415         2355 5500                    LMC    2L                                                      EDD      1723
        1417         5400 0200                    STM    EDTB+2                                                  EDD      1724
        1421         3006                         LDD    T2+4                                                    EDD      1725
        1422         5400 0201                    STM    EDTB+3                                                  EDD      1726
                                                                                                                 EDD      1727
                                        *         INITIALIZE ECS TRANSFERS, WRITE ECS LABEL RECORD.              EDD      1728
                                                                                                                 EDD      1729
        1424         2001 7032                    LDC    CMEC+20+DEMCL                                           EDD      1730
        1426         6224                         CWD    PS                                                      EDD      1731
        1427         0323                         UJN    DEM4        WRITE LABEL RECORD                          EDD      1732
                                                                                                                 EDD      1733
                                        *         WRITE LCM DUMP ROUTINES TO CM.                                 EDD      1734
                                                                                                                 EDD      1735
        1430         1405                DEM3     LDN    DEMDL                                                   EDD      1736
        1431         3402                         STD    T2                                                      EDD      1737
        1432         2001 7021                    LDC    CMEC+21     COPY CPU PROGRAM TO CM                      EDD      1738
        1434         6302 1605                    CWM    DEMD,T2                                                 EDD      1739
        1436         1410                         LDN    DEMEL       WRITE EXCHANGE PACKAGE 2 TO CM              EDD      1740
        1437         3401                         STD    T1                                                      EDD      1741
        1440         2002 0040                    LDC    CMEC+1000+40                                            EDD      1742
        1442         6301 1636                    CWM    DEME,T1                                                 EDD      1743
        1444         2000 2114                    LDC    FCCL+BCXC   CLEAR *BLOCK COPY EXIT CONTROL*             EDD      1744
        1446         7256                         OAN.   SC+40                                                   EDD      1745
        1447         7056                         IAN.   SC+40                                                   EDD      1746
        1450         0200 1136                    RJM    ECP         EXCHANGE CYBER 176 CPU                      EDD      1747
        1452         2023 0503           DEM4     LDC    3RSEC       WRITE ECS/LCM LABEL RECORD                  EDD      1748
        1454         0200 0610                    RJM    WLB                                                     EDD      1749
        1456         2000 1000                    LDC    1000        SET BLOCK SIZE                              EDD      1750
        1460         3412                         STD    T8                                                      EDD      1751
        1461         2000 5000                    LDC    5000        SET RECORD LENGTH                           EDD      1752
        1463         3411                         STD    RL                                                      EDD      1753
        1464         2000 2000                    LDC    BUF         SET BUFFER ADDRESS                          EDD      1754
        1466         5400 1015                    STM    WRTB                                                    EDD      1755
1       EDD         CTI EXPRESS DEADSTART DUMP - A02                  COMPASS 3.7-871.     23/08/13. 15.42.29.      PAGE    44
        DEM - DUMP FLPP-S, EXTENDED MEMORY.                           DEM 
  
        1470         2001 7022                    LDC    CMEC+22     STORE HANG INSTRUCTION                      EDD      1756
        1472         6322 1130                    CWM    CPIL,ON                                                 EDD      1757
                                                                                                                 EDD      1758
                                        *         DUMP ECS/LCM.                                                  EDD      1759
                                                                                                                 EDD      1760
        1474         2001 7032           DEM5     LDC    CMEC+20+DEMCL  READ BLOCK FROM CM                       EDD      1761
        1476         6023                         CRD    CS                                                      EDD      1762
        1477         3023                         LDD    CS                                                      EDD      1763
        1500         0473                         ZJN    DEM5        IF NOT READY                                EDD      1764
        1501         2001 7033                    LDC    CMEC+20+DEMCL+1  READ BLOCK                             EDD      1765
        1503         6112 2000                    CRM    BUF,T8                                                  EDD      1766
        1505         3730                         SOD    MB          DECREMENT BLOCK COUNT                       EDD      1767
        1506         2001 7032                    LDC    CMEC+20+DEMCL                                           EDD      1768
        1510         6224                         CWD    PS                                                      EDD      1769
        1511         0200 1005                    RJM    WRT         WRITE BLOCK                                 EDD      1770
        1513         3030                         LDD    MB                                                      EDD      1771
        1514         0557                         NJN    DEM5        IF NOT ALL BLOCKS DUMPED                    EDD      1772
        1515         0100 1330                    LJM    DEMX        RETURN                                      EDD      1773
                                                                                                                 EDD      1774
        1517         0503                DEMB     DATA   C*ECS SIZE/1000*                                        EDD      1775
                                                                                                                 EDD      1776
        1527                             DEMC     BSS    0           CPU PROGRAM FOR ECS                         EDD      1777
        1527         4300                         VFD    15/43002      1.  MX0  2        SET STATUS FUNCTION     EDD      1778
        1530         2
                      761                         VFD    15/76110          SX1  B1       INITIALIZE RESULT       EDD      1779
        1531         10 
                       13                         VFD    15/13777          BX7  X7-X7                            EDD      1780
        1532         777
                        2                         VFD    15/20030          LX0  24       POSITION FUNCTION       EDD      1781
        1533         0030 
                                                                                                                 EDD      1782
        1534         4325                         VFD    15/43252      2.  MX2  42       SET MASK                EDD      1783
        1535         2
                      110                         VFD    15/11020          BX0  X2*X0    FUNCTION ONLY           EDD      1784
        1536         20 
                       43                         VFD    15/43601          MX6  1                                EDD      1785
        1537         601
                        1                         VFD    15/12001          BX0  X0+X1    INSERT TEST BIT         EDD      1786
        1540         2001 
                                                                                                                 EDD      1787
        1541         0110                         VFD    30/0110000001 3.  RE   1        TEST FLAG REGISTER BIT  EDD      1788
        1542         0000 
        1543         01 
                       15                         VFD    15/15502          BX5  -X2*X0   SET BIT IN RESULT       EDD      1789
        1544         502
                        1                         VFD    15/12775          BX7  X7+X5                            EDD      1790
        1545         2775 
                                                                                                                 EDD      1791
        1546         2010                         VFD    15/20101      4.  LX1  1        ADVANCE BIT             EDD      1792
        1547         1
                      151                         VFD    15/15112          BX1  -X2*X1                           EDD      1793
        1550         12 
                       03                         VFD    12/0311           NZ   X1,CMEC+22 IF NOT 18 BITS        EDD      1794
        1551         11 
                       01                         VFD    18/CMEC+22                                              EDD      1795
        1552         7022 
                                                                                                                 EDD      1796
1       EDD         CTI EXPRESS DEADSTART DUMP - A02                  COMPASS 3.7-871.     23/08/13. 15.42.29.      PAGE    45
        DEM - DUMP FLPP-S, EXTENDED MEMORY.                           DEM 
  
        1553         5470                         VFD    15/54700      5.  SA7  A0       STORE RESULT            EDD      1797
        1554         0
                      762                         VFD    15/76220          SX2  B2       SET ADDRESS ADVANCE     EDD      1798
        1555         20 
                       56                         VFD    15/56630          SA6  B3       SET *CPU READY*         EDD      1799
        1556         630
                        1                         VFD    15/13000          BX0  X0-X0    INITIALIZE ECS ADDRESS  EDD      1800
        1557         3000 
                                                                                                                 EDD      1801
        1560         5113                         VFD    30/5113000000 6.  SA1  B3+                              EDD      1802
        1561         0000 
        1562         00 
                       03                         VFD    12/0331           NG   X1,CMEC+26 WAIT PP READY         EDD      1803
        1563         31 
                       01                         VFD    18/CMEC+26                                              EDD      1804
        1564         7026 
                                                                                                                 EDD      1805
        1565         0311                         VFD    12/0311       7.  NZ   X1,CMEC+30 IF DUMP NOT COMPLETE  EDD      1806
        1566         0170                         VFD    18/CMEC+30                                              EDD      1807
        1567         30 
                       01                         VFD    12/0100           RJ   CMEC+21  VOID INSTRUCTION STACK  EDD      1808
        1570         00 
                       01                         VFD    18/CMEC+21                                              EDD      1809
        1571         7021 
        1572         0112                         VFD    30/0112000000 10. RE   B2       READ ECS/LCM            EDD      1810
        1573         0000 
        1574         00 
                       61                         VFD    30/6100000000     SB0  0                                EDD      1811
        1575         0000 
        1576         0000 
                                                                                                                 EDD      1812
        1577         5663                         VFD    15/56630      11. SA6  B3       SET CPU READY           EDD      1813
        1600         0
                      360                         VFD    15/36002          IX0  X0+X2    ADVANCE ECS ADDRESS     EDD      1814
        1601         02 
                       04                         VFD    12/0400           EQ   CMEC+26  LOOP                    EDD      1815
        1602         00 
                       01                         VFD    18/CMEC+26                                              EDD      1816
        1603         7026 
                                                                                                                 EDD      1817
        1604         0000                         CON    0           INITIAL READY FLAG  (0 = PP READY)          EDD      1818
                                  56     .1       SET    *-DEMC                                                  EDD      1819
                                  12     DEMCL    EQU    .1/5+1                                                  EDD      1820
                                                                                                                 EDD      1821
        1605                             DEMD     BSS    0           CPU PROGRAM FOR LCM                         EDD      1822
        1605         0400                         VFD    12/0400       1.  EQ   CMEC+25  JUMP TO LCM CODE        EDD      1823
        1606         0170                         VFD    18/CMEC+25                                              EDD      1824
        1607         25 
                       61                         VFD    30/6100000000     SB0  0                                EDD      1825
        1610         0000 
        1611         0000 
                                                                                                                 EDD      1826
        1612         6100                         VFD    30/6100000000 2.  SB0  0                                EDD      1827
        1613         0000 
        1614         00 
                       61                         VFD    30/6100000000     SB0  0                                EDD      1828
        1615         0000 
1       EDD         CTI EXPRESS DEADSTART DUMP - A02                  COMPASS 3.7-871.     23/08/13. 15.42.29.      PAGE    46
        DEM - DUMP FLPP-S, EXTENDED MEMORY.                           DEM 
  
        1616         0000 
                                                                                                                 EDD      1829
        1617         0130                         VFD    15/01300      3.  XJ            EXCHANGE BACK TO DUMP   EDD      1830
        1620         0
                      610                         VFD    30/6100000000     SB0  0                                EDD      1831
        1621         0000 
        1622         000
                                                                                                                 EDD      1832
                        4                         VFD    15/46000          NO                                    EDD      1833
        1623         6000 
        1624         0400                         VFD    12/0400       4.  EQ   CMEC+23  LCM ERROR RECOVERY      EDD      1834
        1625         0170                         VFD    18/CMEC+23                                              EDD      1835
        1626         23 
                       61                         VFD    30/6100000000     SB0  0                                EDD      1836
        1627         0000 
        1630         0000 
                                                                                                                 EDD      1837
        1631         4360                         VFD    15/43601      5.  MX6  1        START OF LCM DUMP       EDD      1838
        1632         1
                      710                         VFD    30/7100000000     SX0  0        INITIALIZE LCM ADDRESS  EDD      1839
        1633         0000 
        1634         000
                        7                         VFD    15/76220          SX2  B2       X2 = ADDRESS INCREMENT  EDD      1840
        1635         6220 
                                                                                                                 EDD      1841
                                  31     .1       SET    *-DEMD                                                  EDD      1842
                                   5     DEMDL    EQU    .1/5                                                    EDD      1843
                                                                                                                 EDD      1844
        1636                             DEME     BSS    0           EXCHANGE PACKAGE FOR LCM ERROR EXIT         EDD      1845
        1636         0001                         VFD    24/CMEC+24,18/0,18/0            P,A0,B0                 EDD      1846
        1637         7024 
        1640         0000 
        1641         0000 
        1642         0000 
        1643         0000                         VFD    24/0,18/0,18/0                  RAS,A1,B1               EDD      1847
        1644         0000 
        1645         0000 
        1646         0000 
        1647         0000 
        1650         0002                         VFD    24/CMEC+2000,18/0,18/0          FLS,A2,B2               EDD      1848
        1651         1000 
        1652         0000 
        1653         0000 
        1654         0000 
        1655         0020                         VFD    24/200000,18/0,18/0             PSD,A3,B3               EDD      1849
        1656         0000 
        1657         0000 
        1660         0000 
        1661         0000 
        1662         0000                         VFD    24/0,18/0,18/0                  RAL,A4,B4               EDD      1850
        1663         0000 
        1664         0000 
        1665         0000 
        1666         0000 
        1667         1777                         VFD    24/17777777,18/0,18/0           FLL,A5,B5               EDD      1851
        1670         7777 
        1671         0000 
1       EDD         CTI EXPRESS DEADSTART DUMP - A02                  COMPASS 3.7-871.     23/08/13. 15.42.29.      PAGE    47
        DEM - DUMP FLPP-S, EXTENDED MEMORY.                           DEM 
  
        1672         0000 
        1673         0000 
        1674         0002                         VFD    24/CMEC+1000+40,18/0,18/0       NEA,A6,B6               EDD      1852
        1675         0040 
        1676         0000 
        1677         0000 
        1700         0000 
        1701         0000                         VFD    24/0,18/0,18/0                  EEA,A7,B7               EDD      1853
        1702         0000 
        1703         0000 
        1704         0000 
        1705         0000 
                                                                                                                 EDD      1854
                                  50     .1       SET    *-DEME                                                  EDD      1855
                                  10     DEMEL    EQU    .1/5                                                    EDD      1856
  
  
  
  
                                        **        DSP - DEADSTART FLPP.                                          EDD      1858
                                        *                                                                        EDD      1859
                                        *         ENTRY  SCANNER CHANNEL ACTIVE.                                 EDD      1860
                                        *                FLPP SELECTED IN SCR.                                   EDD      1861
                                        *                SCANNER INTERFACE ENABLED.                              EDD      1862
                                        *                                                                        EDD      1863
                                        *         EXIT   FLPP DEADSTARTED.                                       EDD      1864
                                        *                FLPP PARITY ERROR CONTROL CLEARED.                      EDD      1865
                                                                                                                 EDD      1866
                                                                                                                 EDD      1867
        1706         0100 1706           DSP      SUBR               ENTRY/EXIT                                  EDD      1868
        1710         2000 4072                    LDC    FCSB+DSFP   SET *DEADSTART FLPP*                        EDD      1869
        1712         7256                         OAN.   SC+40                                                   EDD      1870
        1713         7056                         IAN.   SC+40                                                   EDD      1871
        1714         2000 2072                    LDC    FCCL+DSFP   CLEAR *DEADSTART FLPP*                      EDD      1872
        1716         7256                         OAN.   SC+40                                                   EDD      1873
        1717         7056                         IAN.   SC+40                                                   EDD      1874
        1720         6700 1723                    EJM.   DSP1,MC     IF SCANNER CHANNEL EMPTY                    EDD      1875
        1722         7000                         IAN.   MC          IGNORE GARBAGE ON CHANNEL                   EDD      1876
        1723         2000 4123           DSP1     LDC    FCSB+CPUE   SET *CLEAR FLPP PARITY ERROR*               EDD      1877
        1725         7256                         OAN.   SC+40                                                   EDD      1878
        1726         7056                         IAN.   SC+40                                                   EDD      1879
        1727         2000 2123                    LDC    FCCL+CPUE   CLEAR *CLEAR FLPP PARITY ERROR*             EDD      1880
        1731         7256                         OAN.   SC+40                                                   EDD      1881
        1732         7056                         IAN.   SC+40                                                   EDD      1882
        1733         0352                         UJN    DSPX        RETURN                                      EDD      1883
1       EDD         CTI EXPRESS DEADSTART DUMP - A02                  COMPASS 3.7-871.     23/08/13. 15.42.29.      PAGE    48
        DEM - DUMP FLPP-S, EXTENDED MEMORY. 
  
                                 -42              ERRPL  *-BUF+2     OVERFLOW INTO TAPE BUFFER                   EDD      1885
1       EDD         CTI EXPRESS DEADSTART DUMP - A02                  COMPASS 3.7-871.     23/08/13. 15.42.29.      PAGE    49
        DPC - DUMP PERIPHERAL CONTROLLERS.
  
                                                  IDENT  DPC,DBCX                                                EDD      1887
                                                  COMMENT CTI EDD OVERLAY                                        DIMA317J   12
                                                  COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1979               DIMA317J   13
  
  
                                        *         ALL RIGHTS RESERVED                                            CDCCRN      3
                                        *                                                                        CDCCRN      4
                                        *         CONTAINED HEREIN ARE SOFTWARE PRODUCTS COPYRIGHTED             CDCCRN      5
                                        *         BY CONTROL DATA CORPORATION.  REPRODUCTION WITHOUT             CDCCRN      6
                                        *         PERMISSION IS PROHIBITED.  THE COPYRIGHT NOTICE                CDCCRN      7
                                        *         MUST APPEAR ON ALL AUTHORIZED COMPLETE OR                      CDCCRN      8
                                        *         PARTIAL COPIES.                                                CDCCRN      9
                                        *                                                                        CDCCRN     10
1       EDD         CTI EXPRESS DEADSTART DUMP - A02                  COMPASS 3.7-871.     23/08/13. 15.42.29.      PAGE    50
        DPC - DUMP PERIPHERAL CONTROLLERS.                            DBC 
  
                                        **        DBC - DUMP BUFFER CONTROLLERS.                                 EDD      1889
                                        *                                                                        EDD      1890
                                        *         USES   T4, MB, CN, RL.                                         EDD      1891
                                        *                                                                        EDD      1892
                                        *         CALLS  DIG, MCI, TOF, WLB, C2D, WRT.                           EDD      1893
                                                                                                                 EDD      1894
                                                                                                                 EDD      1895
        1060                                      ORG    OVLB                                                    EDD      1896
                                                                                                                 EDD      1897
        1060         0100 1060           DBC      SUBR               ENTRY/EXIT                                  EDD      1898
        1062         2001 1240           DBC1     LDC    DBCC+10000  REQUEST CHANNEL NUMBER                      EDD      1899
        1064         0200 0310                    RJM    DIG                                                     EDD      1900
        1066         0504                         NJN    DBC2        IF NOT CHANNEL 0                            EDD      1901
        1067         3005                         LDD    T5                                                      EDD      1902
        1070         0467                         ZJN    DBCX        IF NULL INPUT                               EDD      1903
        1071         1400                         LDN    0                                                       EDD      1904
        1072         3414                DBC2     STD    CN          SET CHANNEL NUMBER                          EDD      1905
        1073         1714                         SBN    14                                                      EDD      1906
        1074         0707                         MJN    DBC3        IF LOWER CHANNEL BANK                       EDD      1907
        1075         1704                         SBN    20-14                                                   EDD      1908
        1076         0763                         MJN    DBC1        IF ILLEGAL CHANNEL                          EDD      1909
        1077         1714                         SBN    34-20                                                   EDD      1910
        1100         0661                         PJN    DBC1        IF ILLEGAL CHANNEL                          EDD      1911
        1101         3021                         LDD    DP          CHECK 2ND PPS PRESENT                       EDD      1912
        1102         0457                         ZJN    DBC1        IF NO UPPER CHANNEL BANK                    EDD      1913
        1103         3017                DBC3     LDD    DT                                                      EDD      1914
        1104         3314                         LMD    CN                                                      EDD      1915
        1105         0454                         ZJN    DBC1        IF DUMP TAPE CHANNEL                        EDD      1916
        1106         2000 1321                    LDC    CTBC        MODIFY CHANNEL INSTRUCTIONS                 EDD      1917
        1110         0200 0604                    RJM    MCI                                                     EDD      1918
        1112         2000 0414                    LDC    414         TIMEOUT AUTOLOAD FUNCTION                   EDD      1919
        1114         0200 1310                    RJM    TOF                                                     EDD      1920
        1116         0443                         ZJN    DBC1        IF FUNCTION REJECTED                        EDD      1921
        1117         7407                         ACN    BC                                                      EDD      1922
        1120         1406                         LDN    DBCDL       REINITIALIZE CONTROLWARE                    EDD      1923
        1121         7307 1253                    OAM    DBCD,BC                                                 EDD      1924
        1123         7547                         DCN    BC                                                      EDD      1925
        1124         1400                DBCA     LDN    0                                                       EDD      1926
                                        *         LDN    1           (LABEL BLOCK WRITTEN)                       EDD      1927
        1125         0511                         NJN    DBC4        IF LABEL BLOCK WRITTEN                      EDD      1928
        1126         5400 0202                    STM    EDTB+4                                                  EDD      1929
        1130         2055 0203                    LDC    3L BC       WRITE *BC* LABEL BLOCK                      EDD      1930
        1132         0200 0610                    RJM    WLB                                                     EDD      1931
        1134         5600 1124                    AOM    DBCA        SET LABEL BLOCK WRITTEN                     EDD      1932
        1136         1461                DBC4     LDN    61          PRESET 7155 AUTODUMP FUNCTION               EDD      1933
        1137         3404                         STD    T4                                                      EDD      1934
        1140         1455                         LDN    55          TIMEOUT *INITIATE TIMING* FUNCTION          EDD      1935
        1141         0200 1310                    RJM    TOF                                                     EDD      1936
        1143         0514                         NJN    DBC5        IF 7155 CONTROLLER                          EDD      1937
        1144         1401                         LDN    1                                                       EDD      1938
        1145         3404                         STD    T4                                                      EDD      1939
        1146         2000 0414                    LDC    414         ISSUE AUTOLOAD FUNCTION                     EDD      1940
        1150         0200 1310                    RJM    TOF                                                     EDD      1941
        1152         7407                         ACN    BC                                                      EDD      1942
        1153         1426                         LDN    DBCEL       LOAD AUTODUMP PROGRAM TO NON 7155           EDD      1943
        1154         7307 1261                    OAM    DBCE,BC                                                 EDD      1944
        1156         7547                         DCN    BC                                                      EDD      1945
1       EDD         CTI EXPRESS DEADSTART DUMP - A02                  COMPASS 3.7-871.     23/08/13. 15.42.29.      PAGE    51
        DPC - DUMP PERIPHERAL CONTROLLERS.                            DBC 
  
        1157         2000 5000           DBC5     LDC    5000        SET RECORD LENGTH                           EDD      1946
        1161         3411                         STD    RL                                                      EDD      1947
        1162         2000 2000                    LDC    BUF         SET BUFFER ADDRESS                          EDD      1948
        1164         5400 1015                    STM    WRTB                                                    EDD      1949
        1166         1403                         LDN    BCR1        SET FULL BLOCK COUNT                        EDD      1950
        1167         3430                         STD    MB                                                      EDD      1951
        1170         3004                         LDD    T4          INITIATE AUTODUMP                           EDD      1952
        1171         0200 1310                    RJM    TOF                                                     EDD      1953
        1173         7407                         ACN    BC                                                      EDD      1954
        1174         3011                DBC6     LDD    RL          INPUT CONTROLWARE BLOCK                     EDD      1955
        1175         7107 2000                    IAM    BUF,BC                                                  EDD      1956
        1177         1400                DBCB     LDN    0                                                       EDD      1957
                                        *         LDN    1           (FIRST BLOCK WRITTEN)                       EDD      1958
        1200         0514                         NJN    DBC7        IF FIRST BLOCK WRITTEN                      EDD      1959
        1201         5600 1177                    AOM    DBCB                                                    EDD      1960
        1203         2000 0310                    LDC    2RCH        SET CHANNEL MNEMONIC                        EDD      1961
        1205         5400 2001                    STM    BUF+1                                                   EDD      1962
        1207         3014                         LDD    CN          CONVERT CHANNEL NUMBER                      EDD      1963
        1210         0200 0265                    RJM    C2D                                                     EDD      1964
        1212         5400 2002                    STM    BUF+2       STORE IN BUFFER                             EDD      1965
        1214         0200 1005           DBC7     RJM    WRT         WRITE CONTROLWARE BLOCK TO TAPE             EDD      1966
        1216         3730                         SOD    MB          DECREMENT BLOCK COUNT                       EDD      1967
        1217         0554                         NJN    DBC6        IF NOT END OF FULL BLOCKS                   EDD      1968
        1220         2000 1010                    LDC    BCR3                                                    EDD      1969
        1222         3411                         STD    RL                                                      EDD      1970
        1223         1710                         SBN    BCR3-BCR2   INPUT SHORT BLOCK                           EDD      1971
        1224         7107 2000                    IAM    BUF,BC                                                  EDD      1972
        1226         7547                         DCN    BC                                                      EDD      1973
        1227         0200 1005                    RJM    WRT         WRITE SHORT BLOCK                           EDD      1974
        1231         5700 1177                    SOM    DBCB                                                    EDD      1975
        1233         1410                         LDN    10          ISSUE OPERATION COMPLETE                    EDD      1976
        1234         0200 1310                    RJM    TOF                                                     EDD      1977
        1236         0100 1062                    LJM    DBC1        LOOP FOR NEXT CONTROLLER                    EDD      1978
                                                                                                                 EDD      1979
        1240         0317                DBCC     DATA   C*CONTROLWARE CHANNEL*                                  EDD      1980
                                                                                                                 EDD      1981
        1253                             DBCD     BSS    0                                                       EDD      1982
        1253         0224 0000                    CON    0224,0000   9400                                        DIMA334     1
        1255         0005 0000                    CON    0005,0000   0500                                        DIMA334     2
        1257         0273 0376                    CON    0273,0376   BBFE                                        DIMA334     3
                                   6     DBCDL    EQU    *-DBCD                                                  EDD      1985
                                                                                                                 EDD      1986
        1261                             DBCE     BSS    0                                                       EDD      1987
        1261         0000 0000                    CON    0000,0000   CON  0                                      EDD      1988
        1263         0011 0000                    CON    0011,0000   TCB  0,0                                    EDD      1989
        1265         0357 0001                    CON    0357,0001   FJR  $-1                                    EDD      1990
        1267         0014 0060                    CON    0014,0060   IAN  3                                      EDD      1991
        1271         0017 0000                    CON    0017,0000   OAA  0                                      EDD      1992
        1273         0012 0000                    CON    0012,0000   SCB  0,0                                    EDD      1993
        1275         0013 0000                    CON    0013,0000   CCB  0,0                                    EDD      1994
        1277         0030 0001                    CON    0030,0001   LDN  1                                      EDD      1995
        1301         0011 0006                    CON    0011,0006   TCB  0,6                                    EDD      1996
        1303         0357 0001                    CON    0357,0001   FJR  $-1                                    EDD      1997
        1305         0374 0000                    CON    0374,0000   OTI  0                                      EDD      1998
                                  26     DBCEL    EQU    *-DBCE                                                  EDD      1999
1       EDD         CTI EXPRESS DEADSTART DUMP - A02                  COMPASS 3.7-871.     23/08/13. 15.42.29.      PAGE    52
        SUBROUTINES.                                                  TOF 
  
                                        **        TOF - TIMEOUT FUNCTION.                                        EDD      2002
                                        *                                                                        EDD      2003
                                        *         ENTRY  (A) = FUNCTION CODE.                                    EDD      2004
                                        *                                                                        EDD      2005
                                        *         EXIT   (A) = 0 IF FUNCTION REJECTED.                           EDD      2006
                                                                                                                 EDD      2007
                                                                                                                 EDD      2008
        1307         0100 1307           TOF      SUBR               ENTRY/EXIT                                  EDD      2009
        1311         7607                         FAN    BC          ISSUE FUNCTION                              EDD      2010
        1312         1500                         LCN    0                                                       EDD      2011
        1313         6507 1307           TOF1     IJM    TOFX,BC     IF FUNCTION ACCEPTED                        EDD      2012
        1315         1701                         SBN    1                                                       EDD      2013
        1316         0574                         NJN    TOF1        IF NOT TIMED OUT                            EDD      2014
        1317         7547                         DCN    BC                                                      EDD      2015
        1320         0366                         UJN    TOFX        RETURN                                      EDD      2016
  
  
  
  
                                        **        CHANNEL TABLE.                                                 EDD      2018
                                                                                                                 EDD      2019
                                                                                                                 EDD      2020
        1321                                      CHTB   BC                                                      EDD      2021
  
  
  
  
                                -437              ERRPL  *-BUF+2     OVERFLOW INTO TAPE BUFFER                   EDD      2023
        1337                                      END                                                            EDD      2024
  
                             70000B CM  STORAGE USED             2739 STATEMENTS     1137 SYMBOLS      000058 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            3.071 SECONDS        1288 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ACNI         7400                  10/43 D   35/57
        BC              7                  11/06 D   50/36     50/54     50/57     51/11     51/28     52/11
                                           50/34     50/37     50/56     51/09     51/27     52/09     52/14
        BCR1            3                  11/24 D   11/25     51/05
        BCR2         1000                  11/25 D   11/26     51/26
        BCR3         1010                  11/27 D   51/24     51/26
        BCSZ        20000                  11/23 D   11/24     11/25
        BCXC          114                   6/54 D   43/46
        BUF          2000                  11/18 D   29/37 S   30/37 S   32/23 S   33/44     42/08 S   51/11 S
                                           20/08     29/38     30/40 S   32/30 S   41/18     43/56     51/17 S
                                           20/12     29/54 S   30/44 S   32/46 S   41/52 S   44/11 S   51/20 S
                                           20/30     30/22     31/44     33/14     41/54 S   48/01     51/27 S
                                           29/35 S   30/35 S   31/48 S   33/26     41/57 S   51/03     52/28
        CBBW           17                   7/23 D
        CCIO          177                   7/06 D
        CCRO          251                   7/09 D
        CCRT          250                   7/08 D
        CDEP         7000                  11/16 D   11/18     12/40     13/15     20/28
        CDSW           17                   7/24 D
1       EDD         CTI EXPRESS DEADSTART DUMP - A02                  COMPASS 3.7-871.     23/08/13. 15.42.29.      PAGE    53
        SYMBOLIC REFERENCE TABLE. 
  
        CH             10                  11/07 D   17/55     18/06     18/11     35/05     35/17     36/13 S
                                           17/52     17/57     18/09     18/12     35/06     35/18
                                           17/53     18/04     18/10     35/03 S   35/13     35/19
        CKR           635                  22/12 D   23/28     24/54
        CKRX          634                  22/12 L   22/18
        CKR1          631                  22/08 L   22/14
        CMA          6065                  12/18
        CMAW            4                   7/20 D
        CMCE            5                   6/45 D
        CMCP        17000                  11/35 D   32/20     32/40     32/45     32/54
        CMEC        17000                  11/29 D   11/36     26/17     43/06     43/40     44/10     45/19     46/12
                                           11/32     16/20     26/37     43/12     43/44     44/13     45/23     46/30
                                           11/33     26/02     27/18     43/18     44/01     44/55     45/38     46/40
                                           11/35     26/12     43/02     43/32     44/06     45/15     45/47     47/03
        CMECL        1100                  11/30 D   16/29
        CN             14                  10/16 D   35/10 S   35/31     35/50 S   50/17 S   51/18
                                           20/49     35/24     35/47 S   36/17 S   50/27
        CON           670                  20/24     22/48 D   25/20     38/09
        CONA          676                  22/53 D   36/41 S
        CONB          720                  22/35     23/12 L   37/38 S   37/46 S   37/50 S
        CONC          647                  22/32 D   37/33 S
        COND          663                  22/42 D   37/13 S
        CONE          665                  22/45 D   37/15 S
        CONX          667                  22/48 L
        CON1          671                  22/49 L   23/10
        CON2          714                  22/46     22/55     23/08 L
        CON3          646                  22/30 L   22/50
        CON4          661                  22/39 L   23/03     23/06
        CPIA        17020                  11/36 D   34/20     34/28
        CPIL         1130                  26/48 L   32/17     34/24 S   34/27 S   44/02
        CPUE          123                   6/57 D   47/39     47/42
        CS             23                  10/26 D   43/19 S   43/22     44/07 S   44/08
        CTBB          263                   7/13 D
        CTBC         1321                  50/29     52/23 L
        CTPC         2531                  35/51     39/05 L
        CTTC         2473                  35/32     39/04 L
        CTXC         2544                  36/18     39/06 L
        CVD           277                  17/10 D   18/39     18/42
        CVDX          276                  17/10 L   17/16
        CXJP         1060                  26/01 L   32/25     32/55     34/21 S   43/01 S   43/05 S
                                           26/42     32/53 S   33/32 S   34/29 S   43/03 S   43/07
        CXJPA        1077                  26/17 L   38/22 S
        CXJPL          10                  26/43 D   32/18     32/56     42/53     43/08
        C2D           265                  19/20     19/24     19/27     19/31     30/39     38/02     41/56     51/19
        DBC          1061                  15/40     50/10 D
        DBCA         1124                  50/38 L   50/44 S
        DBCB         1177                  51/12 L   51/15 S   51/30 S
        DBCC         1240                  50/11     51/35 L
        DBCD         1253                  50/36     51/37 L   51/41
        DBCDL           6                  50/35     51/41 D
        DBCE         1261                  50/56     51/43 L   51/55
        DBCEL          26                  50/55     51/55 D
        DBCX         1060                  49/01     50/10 L   50/15
        DBC1         1062                  50/11 L   50/21     50/23     50/25     50/28     50/33     51/33
        DBC2         1072                  50/13     50/17 L
        DBC3         1103                  50/19     50/26 L
        DBC4         1136                  50/40     50/45 L
1       EDD         CTI EXPRESS DEADSTART DUMP - A02                  COMPASS 3.7-871.     23/08/13. 15.42.29.      PAGE    54
        SYMBOLIC REFERENCE TABLE. 
  
        DBC5         1157                  50/49     51/01 L
        DBC6         1174                  51/10 L   51/23
        DBC7         1214                  51/14     51/21 L
        DC             13                  11/08 D
        DCM          1523                  15/12     31/29 D
        DCMA         1525                  31/31 D   38/18 S
        DCMX         1522                  31/29 L   31/54
        DCM1         1550                  31/46 L   31/52
        DCNI         7500                  10/44 D   30/31
        DCP          1567                  15/27     32/08 D
        DCPA         1616                  32/27 L   33/31 S
        DCPB         1633                  32/41 L   33/20 S
        DCPC         1642                  32/48 D   33/30 S
        DCPD         1652                  32/57 L   33/29 S
        DCPE         1676                  33/23 L   34/19 S
        DCPF         1717                  32/21     33/33 S   33/36 L
        DCPG         1575                  32/15 D   34/22 S   34/30 S
        DCPX         1566                  32/08 L   33/06
        DCP1         1600                  32/18 L   33/34
        DCP2         1623                  32/29     32/35 L
        DCP3         1631                  32/36     32/40 L
        DCP4         1634                  32/38     32/43 L
        DCP5         1642                  32/31     32/47 L   32/48
        DCP6         1657                  33/06 L   33/23
        DCP7         1661                  32/47     33/05     33/12 L
        DCP8         1705                  33/27     33/30 L
        DDFP           73                   6/52 D   41/13     41/40     41/43
        DEM          1331                  15/33     42/35 D
        DEMA         1404                  42/49 S   43/13 L
        DEMB         1517                  42/36     44/20 L
        DEMC         1527                  43/09     44/22 L   45/42
        DEMCL          12                  42/55     43/18     43/32     44/06     44/10     44/13     45/43 D
        DEMD         1605                  43/41     45/45 L   46/26
        DEMDL           5                  43/38     46/27 D
        DEME         1636                  43/45     46/29 L   47/14
        DEMEL          10                  43/42     47/15 D
        DEMX         1330                  42/35 L   42/38     42/48     44/18
        DEM1         1352                  42/46     42/53 L
        DEM2         1405                  43/18 L   43/23
        DEM3         1430                  43/11     43/38 L
        DEM4         1452                  43/34     43/50 L
        DEM5         1474                  44/06 L   44/09     44/17
        DFP          1202                  15/32     41/10 D
        DFPX         1201                  40/01     41/10 L   42/23
        DFP1         1226                  41/27 L   42/17
        DFP2         1310                  41/46     42/11 L
        DFP3         1321                  42/16     42/19 L
        DIG           310                  16/06     18/53     35/08     38/01     42/37
                                           17/33 D   19/34     36/38     38/11     50/12
        DIGA          347                  17/34 S   17/47     18/01 D
        DIGB          353                  17/41 S   18/05 D
        DIGC          365                  18/14 D   18/16     18/17 S
        DIGD          442                  17/55     18/56 L
        DIGE          432                  15/16 S   15/35 S   18/49 D
        DIGX          307                  17/33 L   18/45
        DIG1          323                  17/42 L   17/44
        DIG2          337                  17/52 L   18/15     18/36
1       EDD         CTI EXPRESS DEADSTART DUMP - A02                  COMPASS 3.7-871.     23/08/13. 15.42.29.      PAGE    55
        SYMBOLIC REFERENCE TABLE. 
  
        DIG3          354                  18/03     18/06 L
        DIG4          415                  18/23     18/25     18/36 L
        DIG5          417                  18/19     18/38 L
        DIG6          430                  18/45 L
        DIG7          432                  18/21     18/47 L   18/49
        DIG8          435                  18/50     18/52 L   18/54
        DLSL          262                   7/12 D
        DMS          2554                  38/17
        DP             21                  10/21 D   34/36 S   34/40 S   50/24
        DPP          1411                  15/11     30/19 D
        DPPA         1441                  30/30 S   30/35 L
        DPPB         1461                  30/29 S   30/44 L
        DPPC         1463                  30/32 S   30/45 L
        DPPX         1410                  30/19 L   30/26
        DPP1         1420                  30/24 L   30/28     30/47
        DP0          1320                  15/10     29/27 D
        DP0X         1317                  29/27 L   30/07
        DP01         1342                  29/33     29/39 L
        DP02         1374                  29/51     29/57 L
        DP03         1377                  29/55     30/02 L
        DS             16                  10/18 D   10/19     12/34 S   35/39
        DSBL          166                   7/04 D
        DSBT          764                   7/31 D
        DSC          1202                  15/06     28/13 D
        DSCA         1215                  28/25 D   28/50 S
        DSCB         1216                  28/27 L   28/52 S
        DSCC         1234                  28/45 L   28/48 S   34/39 S
        DSCD         1266                  28/39     28/54 S   29/08 L
        DSCE         1273                  28/29 S   29/11 L
        DSCU          115                   6/55 D   12/07     27/11     27/20
        DSCX         1201                  28/13 L   28/14     29/06
        DSC1         1211                  28/20 L   28/55
        DSC2         1215                  28/24 L   28/25     28/32
        DSC3         1254                  28/47     28/57 L
        DSFP           72                   6/51 D   47/31     47/34
        DSP          1707                  41/39     42/10     47/30 D
        DSPB         7677                  11/15 D   12/10     12/32
        DSPX         1706                  47/30 L   47/45
        DSP1         1723                  47/37     47/39 L
        DT             17                  10/19 D   35/25 S   35/37     35/43     36/10     50/26
        EBBW            4                   7/21 D
        ECP          1136                  27/10 D   32/37     43/49
        ECPX         1135                  27/10 L   27/23
        EDD          6000                   1/34     12/06 L
        EDDA         6057                  12/39     12/42 L
        EDD0         6006                  12/06     12/10 L
        EDD1         6024                  12/19 L   12/26
        EDD2         6036                  12/12     12/22     12/28 L
        EDD3         6043                  12/29     12/32 L
        EDT           100                  14/01     15/05 L
        EDTA          131                  15/30 D   32/35     34/17 S   38/19     43/10
        EDTB          176                  16/09 L   21/17 S   24/48     31/51     42/40 S   43/28 S
                                           21/13 S   21/20     31/32 S   31/53 S   43/26 S   50/41 S
        EDTC          203                  16/11 L   37/57     38/03 S
        EDTD          223                  16/05     16/15 L   38/04 S
        EDTE          235                  16/16 L   18/52     38/05 S
        EDTF          247                  15/19     16/18 L   16/22     16/28     16/31
1       EDD         CTI EXPRESS DEADSTART DUMP - A02                  COMPASS 3.7-871.     23/08/13. 15.42.29.      PAGE    56
        SYMBOLIC REFERENCE TABLE. 
  
        EDTFL          15                  15/18     16/31 D
        EDT1          135                  15/31     15/33 L
        EDT2          163                  15/57 L
        EDT3          171                  16/05 L   16/07
        EISP           12                   6/46 D
        ENSC          122                   6/56 D   41/33     42/11
        EQ             13                  10/15 D   24/03     36/48     37/23     37/52
                                           23/33     36/43 S   37/03 S   37/32
        ERR           445                  19/12 D   23/09     23/40     25/19
        ERRA          514                  19/15     19/17     19/37 L
        ERRB          522                  19/16 S   19/18 S   19/33     19/40 L
        ERRC          525                  19/21 S   19/25 S   19/42 L
        ERRD          531                  19/28 S   19/32 S   19/44 L
        ERRX          444                  19/12 L   19/35
        EXBB           66                   6/50 D   27/16
        FCCA         6000                   6/38 D
        FCCL         2000                   6/34 D   27/11     27/42     29/03     41/20     42/11     43/46     47/42
                                           12/07     27/41     28/57     41/13     41/43     42/20     47/34
        FCN           726                  15/46     15/56     22/57     23/32 D   25/15     38/15
                                           15/49     16/04     23/05     25/09     37/40
        FCNA          733                  23/34 S   23/36 D
        FCNB          724                  15/51 S   23/29 L
        FCNX          725                  23/32 L
        FCN1          732                  23/35 L   23/41
        FCN2          734                  23/29     23/37 L
        FCN3          722                  23/28 L   23/38
        FCRD            0                   6/32 D   28/22
        FCSB         4000                   6/36 D   27/20     27/41     34/06     41/33     41/40     47/31     47/39
        FCTB         1000                   6/33 D   34/13
        FCTC         3000                   6/35 D   34/09
        FCTE         7000                   6/39 D
        FCTS         5000                   6/37 D
        IAMI         7100                  10/41 D   30/31     34/44     35/02     35/30     36/02     36/12
        LCAW           10                   7/22 D
        LCRO          261                   7/11 D
        LCRT          260                   7/10 D
        LDSC          304                   7/15 D
        LDSW           20                   7/25 D
        LJMI          100                  10/38 D
        LL             10                  10/12 D
        LNO           561                  15/28     15/39     20/26 D
        LNOA          566                  20/27     20/30 L
        LNOX          560                  20/26 L
        LNO1          534                  20/08 L   20/31
        LNO2          550                  20/18 L   20/23
        LSCD           13                   6/47 D
        MAPF           44                   6/48 D
        MB             30                  10/28 D   31/39 S   31/50 S   44/12 S   51/06 S
                                           10/29     31/46     42/39 S   44/16     51/22 S
        MC              0                  11/04 D   41/23     41/46     41/52     42/08     42/19     47/37     47/38
        MCI           604                  20/55 D   35/33     35/52     36/19     50/30
        MCIX          603                  20/55 L
        MCI1          573                  20/46 L   20/53
        MCI2          601                  20/52 L   20/57
        NBIT          314                   7/35 D
        NSCB           21                   7/34 D   28/22
        NTEB           50                   7/30 D
1       EDD         CTI EXPRESS DEADSTART DUMP - A02                  COMPASS 3.7-871.     23/08/13. 15.42.29.      PAGE    57
        SYMBOLIC REFERENCE TABLE. 
  
        OAMI         7300                  10/42 D   35/57     36/02
        OLST           12                   7/33 D
        ON             22                  10/25 D   30/06 S   32/17     32/21     32/23     44/02
        OPTN         7673                  11/17 D   32/26     42/44
        OSBT           12                   7/32 D
        OVLA          100                  11/14 D   12/42     12/43     15/03
        OVLB         1060                  25/26 L   50/08
        OVLC         1201                  28/01 L   41/08
        PB             20                  10/20 D   12/28 S   29/32     29/36     29/37 S   29/50
        PC              1                  11/05 D   15/19     15/34     16/24     35/40     36/03 S   38/29
                                           15/17     15/20     16/22     18/51     35/44     36/07     38/30
        PCMP          167                   7/05 D
        PJNI          600                  10/40 D   34/18
        PMSW           20                   7/26 D
        PN             30                  10/29 D   30/24 S   30/38     41/31     42/14 S
                                           30/21 S   30/27     41/17 S   41/55
        PPCM          136                   7/02 D   29/03
        PPCT          124                   7/01 D
        PPEW            1                   7/19 D
        PPIA         7774                  11/12 D   38/44 S   38/51     38/54
        PPPE          137                   7/03 D   28/57
        PPSZ         1464                  11/21 D   12/13
        PPS1         5000                  11/19 D   11/20     29/30     29/45     30/33     41/50
        PPS2         3004                  11/20 D   29/48     30/02     30/42     42/05
        PPT          1470                  30/27     34/46 S   35/03 S   36/03 S   36/14
                                           31/04 L   34/52 S   35/31 S   36/13 S
        PPUE            4                   6/44 D   42/20
        PRS          1725                  15/05     34/04 D
        PRSA         2015                  34/45 L   34/54 S
        PRSB         2021                  34/38 S   34/49 D
        PRSC         2023                  34/51 L   34/53 S
        PRSD         2153                  35/56     36/07 L
        PRSE         2176                  36/21 L   36/28 S
        PRSF         2200                  36/22 L   36/29 S
        PRSG         2334                  37/26 S   37/44 D   37/45
        PRSH         2420                  35/05     35/20 S   35/22     36/01 S   36/05     38/25 L   38/29     38/31
        PRSHL           7                  36/04     38/31 D
        PRSI         2430                  35/07     38/33 L
        PRSJ         2435                  36/37     38/34 L
        PRSK         2443                  38/10     38/35 L
        PRSL         2460                  36/53     38/37 L
        PRSM         2463                  36/21     38/42 L   38/45
        PRSML           3                  36/20     38/45 D
        PRSN         2466                  36/25     38/47 L   38/52
        PRSNL           5                  36/24     38/52 D   38/54
        PRSX         1724                  34/04 L   38/23
        PRS1         1776                  34/05     34/12     34/16     34/34 L
        PRS10        2164                  36/11     36/14 L   36/33
        PRS11        2207                  36/15     36/28 L
        PRS13        2241                  36/49     36/51 L
        PRS14        2242                  36/47     36/52 L
        PRS15        2251                  37/03 L   38/40
        PRS16        2305                  37/22 L   38/39
        PRS17        2315                  37/31 L   38/38
        PRS18        2352                  37/18     37/57 L
        PRS19        2402                  38/12     38/16 L
        PRS2         2011                  34/42 L   34/57
1       EDD         CTI EXPRESS DEADSTART DUMP - A02                  COMPASS 3.7-871.     23/08/13. 15.42.29.      PAGE    58
        SYMBOLIC REFERENCE TABLE. 
  
        PRS20        2416                  38/20     38/23 L
        PRS3         2021                  34/45     34/47 L   34/49
        PRS4         2027                  34/37     34/47     34/51     34/53 L
        PRS5         2047                  35/07 L   35/12
        PRS6         2107                  35/26     35/29     35/32 L
        PRS7         2124                  35/41     35/46 L
        PRS8         2131                  35/49     35/51 L
        PRS9         2135                  35/45     35/56 L
        PS             24                  10/27 D   10/28     43/33     44/14
        RCM$            0                  39/14 D
        RL             11                  10/13 D   28/38 S   30/03 S   31/43 S   42/06 S   51/10
                                           21/19 S   29/46 S   30/34 S   33/13 S   43/55 S   51/25 S
                                           24/47     29/57     30/43 S   41/51 S   51/02 S
        SBUF         2643                  38/16     39/18 L
        SC             16                  11/10 D   27/21     28/27     34/07     41/14     41/41     42/21     47/35
                                           12/06     27/22     29/01     34/08     41/15     41/42     42/22     47/36
                                           12/08     27/44     29/02     34/10     41/21     41/44     43/47     47/40
                                           12/09     27/45     29/04     34/11     41/22     41/45     43/48     47/41
                                           27/12     28/14     29/05     34/14     41/34     42/12     47/32     47/43
                                           27/13     28/24     34/05     34/15     41/35     42/13     47/33     47/44
        SCR          1160                  27/19     27/37 D   41/32
        SCRX         1157                  27/37 L   27/48
        SCR1         1161                  27/38 L   27/51
        SCR2         1166                  27/40     27/42 L
        SCSL          110                   6/53 D   34/06     34/09     34/13     41/29
        SDSC          267                   7/14 D
        SECD            3                   6/43 D
        SHIM           45                   6/49 D
        SHNI         1000                   5/40 D
        SPLG            0                   7/39 D
        SPMX            2                   7/41 D
        SPTP            1                   7/40 D
        SPUM          211                   7/07 D   41/20
        STS           765                  22/38     22/54     23/37     24/13 D   24/52
        STSX          764                  24/13 L
        STS1          743                  23/54 L   24/06
        STS2          744                  23/55 L   23/57
        STS3          751                  24/02 L   24/15
        STS4          757                  23/55     24/07 L
        STS5          763                  24/11 L   24/25
        TBUF         6264                  12/15     13/12 L
        TC             13                  11/09 D   22/36     23/35     24/05     24/16     24/21     24/43     24/51
                                           22/30     22/37     23/55     24/06     24/17     24/22     24/46     37/24
                                           22/33     22/51     24/01     24/07     24/18     24/23     24/48
                                           22/35     22/52     24/04     24/08     24/19     24/24     24/50
        TOF          1310                  50/32     50/48     50/53     51/08     51/32     52/08 D
        TOFX         1307                  52/08 L   52/11     52/15
        TOF1         1313                  52/11 L   52/13
        TRLLI          24                  11/13 D   21/18
        TS             15                  10/17 D   16/03     22/13     22/49     24/14     34/35 S   37/34 S
        T0              0                  10/04 D   17/12 S   17/14
        T1              1                  10/05 D   17/43     17/56     19/17     20/21 S   36/39 S   42/54 S   43/45
                                           17/36 S   17/46     19/14 S   20/10 S   33/03 S   36/44     43/07
                                           17/42 S   17/48 S   19/15     20/20 I   33/04     37/35     43/43 S
        T2              2                  10/06 D   18/34 S   20/14     20/19     36/54 S   43/09     43/27
                                           17/50 S   18/41     20/16     36/52 S   36/56     43/21 S   43/39 S
                                           18/32     20/13 S   20/18 S   36/53     42/56 S   43/24     43/41
1       EDD         CTI EXPRESS DEADSTART DUMP - A02                  COMPASS 3.7-871.     23/08/13. 15.42.29.      PAGE    59
        SYMBOLIC REFERENCE TABLE. 
  
        T3              3                  10/07 D   18/28     18/31     18/40 S   20/11 S   20/22     25/04 S   27/38 S
                                           17/51 S   18/30 S   18/38     18/44 S   20/17 S   24/42 S   25/10     27/49
        T4              4                  10/08 D   17/39     18/02     29/42     29/49 S   50/46 S   51/07
                                           17/38 S   17/40     29/39 S   29/44     29/54     50/51 S
        T5              5                  10/09 D   18/35 S   29/35     32/44 S   50/14
                                           17/45 S   29/31 S   29/53     32/46
        T6              6                  10/10 D   12/31     20/51 S   24/11 S   34/43 S   36/09 S   41/28 S
                                           12/14 S   19/19     20/52     27/15 S   34/46     36/14
                                           12/25     19/22     20/56 S   27/47 S   34/52     36/31 S
        T7              7                  10/11 D   12/23     20/46 S   22/15     24/20 S   27/46 S   35/42 S   41/30 S
                                           12/16 S   12/27     20/47     22/39     24/56     28/23 S   35/48
                                           12/20 S   19/26     20/50 I   23/01     27/17 S   28/31 S   37/41
                                           12/21     19/29     22/08     24/09 S   27/43     35/38 S   37/47
        T8             12                  10/14 D   28/29     31/41 S   32/19 S   32/55     44/11
                                           28/21 S   28/30 S   31/48     32/25     43/53 S
        UJNI          300                  10/39 D   34/18
        WC             14                  16/21     16/23     16/25     16/28 D
        WLB           610                  21/12 D   28/16     29/29     31/34     32/10     41/12     43/51     50/43
        WLBX          607                  21/12 L   21/23
        WRT          1005                  21/22     28/41     30/04     30/46     33/16     42/09     51/21
                                           24/40 D   29/47     30/41     31/49     42/01     44/15     51/29
        WRTA         1011                  24/45 D   37/53 S
        WRTB         1015                  21/21 S   28/40 S   30/01 S   31/45 S   41/19 S   51/04 S
                                           24/49 D   29/40 S   30/23 S   33/15 S   43/57 S
        WRTC         1031                  25/02 D   37/17 S
        WRTD         1036                  25/08 D   37/08 S
        WRTE         1044                  25/13 L   37/11 S
        WRTX         1004                  24/40 L   25/03
        WRT1         1006                  24/41 L   25/21
        WRT2         1010                  24/43 L   25/16
        WRT3         1013                  24/47 L
        WRT4         1021                  24/52 L   24/55
        WRT5         1047                  25/12     25/16 L
        WRT6         1051                  24/53     25/05     25/18 L
        XC             17                  11/11 D   36/23     36/25     36/26     36/27     38/44     38/49
        .BK           160                  15/53 D   37/09 S   38/14 S
        .L           1023                  11/26 D   11/27
        .TF1          146                  15/44 L   37/05 S
        .TF2          151                  15/47 L   37/06 S
  
  
  
  
                                                  SYMBOL QUALIFIER =  CPA 
  
  
        DSPNLZ       7677                  11/15
        OPTN         7673                  11/17
  
  
  
  
                                                  SYMBOL QUALIFIER =  CTI 
  
  
        CDEP         7000                  11/16
        IPLB         6000                  12/04
 SAD
1       SAD         CTI SELECT ALT. DEADSTART DEVICE - A02            COMPASS 3.7-871.     23/08/13. 15.42.35.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
  
                        100     1063              IDENT  SAD,/CTI/TRAN
                       1163     (162)             END 
  
  
  
  
                                                  IDENT  SAD,/CTI/TRAN                                           SAD         2
                                                  PERIPH                                                         SAD         3
                                         VERID    MICRO  1,,*A02*                                                *A02*       1
                                         VERS     MICRO  1,,*"VERID"*                                       VERS VERS        3
                                                  COMMENT CTI SELECT ALT. DEADSTART DEVICE - "VERS"              DIMA317K    3
                                                  COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1979               DIMA317K    4
  
  
                                        *         ALL RIGHTS RESERVED                                            CDCCRN      3
                                        *                                                                        CDCCRN      4
                                        *         CONTAINED HEREIN ARE SOFTWARE PRODUCTS COPYRIGHTED             CDCCRN      5
                                        *         BY CONTROL DATA CORPORATION.  REPRODUCTION WITHOUT             CDCCRN      6
                                        *         PERMISSION IS PROHIBITED.  THE COPYRIGHT NOTICE                CDCCRN      7
                                        *         MUST APPEAR ON ALL AUTHORIZED COMPLETE OR                      CDCCRN      8
                                        *         PARTIAL COPIES.                                                CDCCRN      9
                                        *                                                                        CDCCRN     10
1       SAD         CTI SELECT ALT. DEADSTART DEVICE - A02            COMPASS 3.7-871.     23/08/13. 15.42.35.      PAGE     2
                                                                      SAD 
  
                                        *****     SAD - SELECT ALTERNATE DEADSTART DEVICE. CTI.                  SAD         8
                                        *                                                                        SAD         9
                                        *         R. A. TURGEON                06/26/78.                         SAD        10
                                        *                                                                        SAD        11
                                        *         SAD PROVIDES AN INTERFACE WHEREBY THE OPERATOR                 SAD        12
                                        *         MAY PROVIDE A CONNECT CODE FOR A DEVICE FROM WHICH             SAD        13
                                        *         A DEADSTART IS TO OCCUR.                                       SAD        14
  
  
  
  
                                        ***       SAD - SELECT ALTERNATE DEADSTART DEVICE. CTI.                  SAD        16
                                        *                                                                        SAD        17
                                        *         SAD IS THE CTI MODULE WHICH ALLOWS THE OPERATOR TO             SAD        18
                                        *         DEADSTART FROM SOME OTHER DEVICE WITHOUT HAVING TO             SAD        19
                                        *         MODIFY THE DEADSTART PANEL SWITCHES.  THE OPERATOR             SAD        20
                                        *         SPECIFIES THE TYPE, CHANNEL, EQUIPMENT AND UNIT OF             SAD        21
                                        *         THE ALTERNATE DEADSTART DEVICE.  SAD WILL THEN                 SAD        22
                                        *         RECONSTRUCT THE DEADSTART PANEL IN THE PP CELLS 1-20B          SAD        23
                                        *         WITH THE NEW DEVICE DATA, INSURE THAT ALL PP-S AND             SAD        24
                                        *         CHANNELS ARE IN THE APPROPRIATE STATE, AND THEN JUMP           SAD        25
                                        *         TO ADDRESS 1, THEREBY DEADSTARTING FROM THE                    SAD        26
                                        *         ALTERNATE DEVICE.                                              SAD        27
1       SAD         CTI SELECT ALT. DEADSTART DEVICE - A02            COMPASS 3.7-871.     23/08/13. 15.42.35.      PAGE     3
        DEFINITIONS.
  
                                        **        DEADSTART PANEL WORDS.                                         SAD        29
                                        *                                                                        SAD        30
                                        *         WORDS 5 - 20B OF THE DEADSTART PANEL MUST REMAIN INTACT        SAD        31
                                        *         DURING CTI EXECUTION. WORDS 0 - 4 MAY BE USED AS SCRATCH       SAD        32
                                        *         DIRECT CELLS.                                                  SAD        33
                                                                                                                 SAD        34
                                                                                                                 SAD        35
                                   0     D0       EQU    0                 SCRATCH                               SAD        36
                                   1     D1       EQU    1                 SCRATCH                               SAD        37
                                   2     D2       EQU    2                 SCRATCH                               SAD        38
                                   3     D3       EQU    3                 SCRATCH                               SAD        39
                                   4     D4       EQU    4                 SCRATCH                               SAD        40
                                   5     D5       EQU    5                 ZERO IF TAPE DEADSTART                SAD        41
                                   6     D6       EQU    6                 FUNCTION WORD                         SAD        42
                                        *         (D6) = WARMSTART FUNCTION, IF MTS/ATS.                         SAD        43
                                        *              = DEADSTART FUNCTION, IF 844/885 DISK                     SAD        44
                                   7     D7       EQU    7                 RESERVED                              SAD        45
                                        *         (D7) = 1400B IF 3000 TYPE TAPE.                                SAD        46
                                  10     D10      EQU    10B               RESERVED                              SAD        47
                                  11     D11      EQU    11B               RESERVED                              SAD        48
                                  12     D12      EQU    12B               MSL PARAMETERS                        SAD        49
                                  13     D13      EQU    13B               OS PARAMETERS                         SAD        50
                                  14     D14      EQU    14B               OS PARAMETERS                         SAD        51
                                  15     D15      EQU    15B               UNUSED                                SAD        52
                                  16     D16      EQU    16B               C80/A170 RESERVED                     SAD        53
                                  17     D17      EQU    17B               RESERVED                              SAD        54
                                  20     D20      EQU    20B               RESERVED                              SAD        55
  
  
  
  
                                        **        INSTRUCTION EQUATES.                                           SAD        57
                                        *                                                                        SAD        58
                                                                                                                 SAD        59
                                                                                                                 SAD        60
                                   0     PSNC     EQU    0000B             PASS                                  SAD        61
                                 300     UJNC     EQU    0300B             UNCONDITIONAL JUMP                    SAD        62
                                 400     ZJNC     EQU    0400B             ZERO JUMP                             SAD        63
                                1000     SHNC     EQU    1000B             SHIFT                                 SAD        64
                                1500     LCNC     EQU    1500B             LOAD COMPLEMENT                       SAD        65
                                1700     SBNC     EQU    1700B             SUBTRACT NO-ADDRESS                   SAD        66
                                2000     LDCC     EQU    2000B             LOAD CONSTANT                         SAD        67
                                2100     ADCC     EQU    2100B             ADD CONSTANT                          SAD        68
                                2300     LMCC     EQU    2300B             LOGICAL MINUS CONSTANT                SAD        69
                                3000     LDDC     EQU    3000B             LOAD DIRECT                           SAD        70
                                6400     AJMC     EQU    6400B             ACTIVE JUMP                           SAD        71
                                7100     IAMC     EQU    7100B             INPUT MEMORY                          SAD        72
                                7300     OAMC     EQU    7300B             OUTPUT MEMORY                         SAD        73
                                7400     ACNC     EQU    7400B             ACTIVATE CHANNEL                      SAD        74
                                7500     DCNC     EQU    7500B             DISCONNECT CHANNEL                    SAD        75
1       SAD         CTI SELECT ALT. DEADSTART DEVICE - A02            COMPASS 3.7-871.     23/08/13. 15.42.35.      PAGE     4
        DEFINITIONS.
  
                                        **        MISCELLANEOUS DEFINITIONS                                      SAD        77
                                        *                                                                        SAD        78
                                        *                                                                        SAD        79
                                                                                                                 SAD        80
                                  16     SC       EQU    16B                                                     SAD        81
                                   5     REPADDR  EQU    D5                                                      SAD        82
                                   5     CC       EQU    REPADDR                                                 SAD        83
                                  77     D77      EQU    77B                                                     SAD        84
                                   0     DEBUG    EQU    0                                                       SAD        85
  
  
  
  
                                        **        DISPLAY CONTROLLER DEFINITIONS.                                SAD        87
                                        *                                                                        SAD        88
                                        *                                                                        SAD        89
                                                                                                                 SAD        90
                                                                                                                 SAD        91
                                  10     CHD      EQU    10B               DISPLAY CHANNEL                       SAD        92
                                                                                                                 SAD        93
                                        *         DISPLAY FUNCTION CODES.                                        SAD        94
                                                                                                                 SAD        95
                                7000     F.SEL    EQU    7000B             SELECT CONSOLE DISPLAY                SAD        96
                                                                                                                 SAD        97
                                   0     F.SLS    EQU    0000B             SELECT CONSOLE LEFT SCREEN            SAD        98
                                 100     F.SRS    EQU    0100B             SELECT CONSOLE RIGHT SCREEN           SAD        99
                                 200     F.SBS    EQU    0200B             SELECT CONSOLE BOTH SCREEN            SAD       100
                                                                                                                 SAD       101
                                   0     F.CHR    EQU    0000B             SELECT DOT MODE                       SAD       102
                                  10     F.DOT    EQU    0010B             SELECT DOT MODE                       SAD       103
                                  20     F.KEY    EQU    0020B             SELECT KEYBOARD INPUT                 SAD       104
                                                                                                                 SAD       105
                                   0     F.CHS    EQU    0000B             SET CHARACTER SIZE SMALL              SAD       106
                                   1     F.CHM    EQU    0001B             SET CHARACTER SIZE MEDIUM             SAD       107
                                   2     F.CHL    EQU    0002B             SET CHARACTER SIZE LARGE              SAD       108
                                                                                                                 SAD       109
                                        *         COORDINATE DESIGNATION.                                        SAD       110
                                                                                                                 SAD       111
                                6000     XSET     EQU    6000B             SET X COORDINATE                      SAD       112
                                7000     YSET     EQU    7000B             SET Y COORDINATE                      SAD       113
1       SAD         CTI SELECT ALT. DEADSTART DEVICE - A02            COMPASS 3.7-871.     23/08/13. 15.42.35.      PAGE     5
        DEFINITION COMMON DECKS.
  
                                        **        DEFINITION COMMON DECKS.                                       SAD       116
                                        *                                                                        SAD       117
                                        **        ALL SYMBOL AND MACRO DEFINITION COMMON DECKS ARE CALLED HERE.  SAD       118
                                                                                                                 SAD       119
                                                                                                                 SAD       120
           0                             CTI      CTEXT  COMPCTI - CTI COMMON MACROES.                           COMPCTI     2
           0                             CPA      CTEXT  COMSCPA - CTI COMMON POINTER AREA DEFINITIONS.          COMSCPA     2
           0                             CTI      CTEXT  COMSCTI - CTI INTERNAL DEFINITIONS.                     COMSCTI     2
1       SAD         CTI SELECT ALT. DEADSTART DEVICE - A02            COMPASS 3.7-871.     23/08/13. 15.42.35.      PAGE     6
        MAIN ROUTTNE
  
         100                                      ORG    /CTI/TRAN                                               SAD       125
  
  
  
  
                                        *         SAD - SELECT ALTERNATE DEADSTART DEVICE. CTI.                  SAD       127
                                        *                                                                        SAD       128
                                        *                                                                        SAD       129
                                                                                                                 SAD       130
                                 100     SAD      EQU    *                 ENTRY POINT                           SAD       131
  
  
  
  
                                        *         FREE DISPLAY CHANNEL                                           SAD       133
                                                                                                                 SAD       134
         100         7412                FDC      ACN    12B               HANG PP 10 ON CHANNEL 12B             SAD       135
         101         1404                         LDN    FDCZ-FDCA                                               SAD       136
         102         7310 0110                    OAM    FDCA,CHD                                                SAD       137
         104         6610 0104                    FJM    *,CHD                                                   SAD       138
         106         7510                         DCN    CHD                                                     SAD       139
         107         0305                         UJN    FDCZ                                                    SAD       140
                                                                                                                 SAD       141
         110         0000                FDCA     CON    DEBUG                                                   SAD       142
         111                                      BSSZ   DEBUG                                                   SAD       143
         111         1400                         LDN    0                                                       SAD       144
         112         7112 0000                    IAM    0,12B                                                   SAD       145
                                                  IFGT   DEBUG,0,3                                               SAD       146
                                 114     FDCZ     EQU    *                                                       SAD       150
  
  
  
  
                                        *         DETERMINE CURRENT DEVICE TYPE AND PLUG IN HEADER               SAD       152
                                                                                                                 SAD       153
         114         2000 5536                    LDC    2R 3              ASSUME DISK                           SAD       154
         116         5400 0717                    STM    HDRM                                                    SAD       155
         120         5000 7704                    LDM    /CPA/DSPNLZ+5     GET ORIGINAL D5                       SAD       156
         122         0514                         NJN    SAD2              IF DISK                               SAD       157
                                                                                                                 SAD       158
         123         5000 7705                    LDM    /CPA/DSPNLZ+6     GET ORIGINAL D6                       SAD       159
         125         1071                         SHN    -6                BIT 6 = 0 IF 66X                      SAD       160
         126         1201                         LPN    1                                                       SAD       161
         127         2100 5534                    ADC    2R 1                                                    SAD       162
         131         5400 0717                    STM    HDRM                                                    SAD       163
         133         1417                         LDN    17B         CHANGE BITS SAVED FOR TAPE UNIT             DIMA278     1
         134         5400 0211                    STM    SAD7.1                                                  DIMA278     2
                                                                                                                 SAD       164
         136         7710 7001           SAD2     FNC    F.SEL+F.SLS+F.CHR+F.CHM,CHD  DISPLAY HEADER             SAD       165
         140         7410                         ACN    CHD                                                     SAD       166
         141         1435                         LDN    HDRL                                                    SAD       167
         142         7310 0701                    OAM    HDR,CHD                                                 SAD       168
         144         6610 0144                    FJM    *,CHD                                                   SAD       169
         146         1740                         SBN    40B         DISPLAY REFRESH DELAY                       SAD       170
         147         0776                         MJN    *-1                                                     SAD       171
         150         7510                         DCN    CHD                                                     SAD       172
                                                                                                                 SAD       173
1       SAD         CTI SELECT ALT. DEADSTART DEVICE - A02            COMPASS 3.7-871.     23/08/13. 15.42.35.      PAGE     7
        MAIN ROUTTNE
  
         151         7710 7020                    FNC    F.SEL+F.KEY,CHD   GET OPERATOR INPUT                    SAD       174
         153         7410                         ACN    CHD                                                     SAD       175
         154         7010                         IAN    CHD                                                     SAD       176
         155         7510                         DCN    CHD                                                     SAD       177
         156         0457                         ZJN    SAD2              IF NO INPUT                           SAD       178
                                                                                                                 SAD       179
         157         1760                         SBN    60B                                                     SAD       180
         160         0412                         ZJN    SAD7              IF (CR) ENTERED                       SAD       181
                                                                                                                 SAD       182
         161         1624                         ADN    60B-1R1                                                 SAD       183
         162         0753                         MJN    SAD2              IF .LT. 1                             SAD       184
         163         1703                         SBN    3                                                       SAD       185
         164         0651                         PJN    SAD2              IF .GT. 3                             SAD       186
                                                                                                                 SAD       187
         165         2100 5537                    ADC    3+2R 1                                                  SAD       188
         167         5400 0717                    STM    HDRM              UPDATE M FIELD IN HEADER              SAD       189
         171         0344                         UJN    SAD2              LOOP UNTIL (CR) ENTERED               SAD       190
  
  
  
  
                                        *         SET UP CALL TO QOD                                             SAD       192
                                                                                                                 SAD       193
         172         5000 7707           SAD7     LDM    /CPA/DSPNLZ+D10        BUILD REPLY AREA                 SAD       194
         174         1237                         LPN    37B                                                     SAD       195
         175         5400 0736                    STM    REPLY             STORE CHANNEL                         SAD       196
                                                                                                                 SAD       197
         177         5000 7705                    LDM    /CPA/DSPNLZ+D6                                          SAD       198
         201         1074                         SHN    -3                                                      SAD       199
         202         2200 0700                    LPC    0700B                                                   SAD       200
         204         5400 0737                    STM    REPLY+1           STORE EE00                            SAD       201
                                                                                                                 SAD       202
         206         5000 7705                    LDM    /CPA/DSPNLZ+D6                                          SAD       203
         210         2200 0077                    LPC    77B         THIS VARIABLE CHANGED TO 17B FOR TAPE       DIMA278     3
                                 211     SAD7.1   EQU    *-1                                                     DIMA278     4
         212         5500 0737                    RAM    REPLY+1           ADD 00UU GIVING EEUU                  SAD       205
                                                                                                                 SAD       206
         214         2000 0736                    LDC    REPLY                                                   SAD       207
         216         3405                         STD    REPADDR           REPADDR = ADDR(REPLY)                 SAD       208
                                                                                                                 SAD       209
         217         2035 0701                    LDC    HDRL*1S12+HDR                                           SAD       210
         221         0200 0741                    RJM    /QOD/QOD          CALL QOD                              SAD       211
  
  
  
  
                                        *         RETURN PP 10 TO THE DEADSTART STATE                            SAD       213
                                                                                                                 SAD       214
         223         7710 0000           RPP      FNC    0,CHD             GET DISPLAY OFF CHAN 10               SAD       215
         225         1477                         LDN    77B                                                     SAD       216
         226         1701                         SBN    1                 WAIT A WHILE                          SAD       217
         227         0576                         NJN    *-1                                                     SAD       218
         230         6510 0233                    IJM    RPP3,CHD                                                SAD       219
         232         7510                         DCN    CHD                                                     SAD       220
                                                                                                                 SAD       221
         233         7410                RPP3     ACN    CHD                                                     SAD       222
         234         1404                         LDN    RPPZ-RPPA                                               SAD       223
1       SAD         CTI SELECT ALT. DEADSTART DEVICE - A02            COMPASS 3.7-871.     23/08/13. 15.42.35.      PAGE     8
        MAIN ROUTTNE
  
         235         7312 0243                    OAM    RPPA,12B                                                SAD       224
         237         6612 0237                    FJM    *,12B                                                   SAD       225
         241         7512                         DCN    12B                                                     SAD       226
         242         0305                         UJN    RPPZ                                                    SAD       227
                                                                                                                 SAD       228
         243         0000                RPPA     CON    DEBUG                                                   SAD       229
         244                                      BSSZ   DEBUG                                                   SAD       230
         244         1400                         LDN    0                                                       SAD       231
         245         7110 0000                    IAM    0,CHD                                                   SAD       232
                                                  IFGT   DEBUG,0,3                                               SAD       233
                                 247     RPPZ     EQU    *                                                       SAD       237
  
  
  
  
                                        *         CONSTRUCT PANEL FOR INACTIVE PP                                SAD       239
                                                                                                                 SAD       240
  
  
  
  
         247         5000 0717                    LDM    HDRM                                                    DIMA267     2
         251         2300 5535                    LMC    5535B                                                   DIMA267     3
         253         0503                         NJN    CDP1        DEADSTART DEVICE IS NOT ATS                 DIMA267     4
         254         0200 0425                    RJM    RBM         RETURN ATS TO 6 BIT MODE                    DIMA267     5
         256         4005                CDP1     LDI    CC          GET CHANNEL                                 DIMA267     6
         257         5500 0657                    RAM    DSPZ+2                                                  SAD       242
         261         4005                         LDI    CC                                                      SAD       243
         262         1712                         SBN    12B                                                     SAD       244
         263         0412                         ZJN    CDP2              IF CC = 12B                           SAD       245
         264         1701                         SBN    13B-12B                                                 SAD       246
         265         0410                         ZJN    CDP2              IF CC 13B                             SAD       247
         266         1717                         SBN    32B-13B                                                 SAD       248
         267         0406                         ZJN    CDP2              IF CC 32B                             SAD       249
         270         1701                         SBN    33B-32B                                                 SAD       250
         271         0404                         ZJN    CDP2              IF CC 33B                             SAD       251
         272         1400                         LDN    0                                                       SAD       252
         273         5400 0657                    STM    DSPZ+2                                                  SAD       253
                                                                                                                 SAD       254
         275         4005                CDP2     LDI    CC                                                      SAD       255
         276         5500 0662                    RAM    DSPZ+5                                                  SAD       256
                                                                                                                 SAD       257
         300         5000 0717                    LDM    HDRM              GET DEVICE TYPE                       SAD       258
         302         2177 2243                    ADC    0-2R 1                                                  SAD       259
         304         3401                         STD    D1                STORE INDEX TO D.S. FUNCTIONS         SAD       260
         305         5005 0001                    LDM    1,REPADDR         GET EEUU                              SAD       261
         307         1277                         LPN    77B                                                     SAD       262
         310         3402                         STD    D2                SAVE UNIT                             SAD       263
         311         5005 0001                    LDM    1,REPADDR                                               SAD       264
         313         1377                         SCN    77B                                                     SAD       265
         314         1003                         SHN    3                 A = E000                              SAD       266
         315         5101 0676                    ADM    F66X,D1                                                 SAD       267
         317         3102                         ADD    D2                                                      SAD       268
         320         5400 0663                    STM    DSPZ+6                                                  SAD       269
                                                                                                                 SAD       270
         322         4005                         LDI    CC                                                      SAD       271
         323         5500 0664                    RAM    DSPZ+7                                                  SAD       272
1       SAD         CTI SELECT ALT. DEADSTART DEVICE - A02            COMPASS 3.7-871.     23/08/13. 15.42.35.      PAGE     9
        MAIN ROUTTNE
  
         325         4005                         LDI    CC                                                      SAD       273
         326         5500 0665                    RAM    DSPZ+10B                                                SAD       274
         330         5000 7711                    LDM    /CPA/DSPNLZ+12B                                         SAD       275
         332         5400 0667                    STM    DSPZ+12B                                                SAD       276
         334         5000 7712                    LDM    /CPA/DSPNLZ+13B                                         SAD       277
         336         5400 0670                    STM    DSPZ+13B                                                SAD       278
         340         5000 7713                    LDM    /CPA/DSPNLZ+14B                                         SAD       279
         342         5400 0671                    STM    DSPZ+14B                                                SAD       280
         344         5000 7715                    LDM    /CPA/DSPNLZ+16B                                         SAD       281
         346         5400 0673                    STM    DSPZ+16B                                                SAD       282
  
  
  
  
                                        *         TEST IF D.S. CHANNEL ACTIVE                                    SAD       284
                                                                                                                 SAD       285
         350         4005                         LDI    CC                                                      SAD       286
         351         5500 0353                    RAM    CDPA                                                    SAD       287
         353         6500 0407           CDPA     IJM    CDP7,**           IF INACTIVE,SKIP                      SAD       288
  
  
  
  
                                        *         MAKE CHANGES NEEDED FOR ACTIVE PP CHANNEL                      SAD       290
                                                                                                                 SAD       291
         355         2000 1402                    LDC    1402B                                                   SAD       292
         357         5400 0656                    STM    DSPZ+1                                                  SAD       293
         361         4005                         LDI    CC                                                      SAD       294
         362         2100 7300                    ADC    7300B                                                   SAD       295
         364         5400 0657                    STM    DSPZ+2                                                  SAD       296
         366         1417                         LDN    17B                                                     SAD       297
         367         5400 0660                    STM    DSPZ+3                                                  SAD       298
         371         4005                         LDI    CC                                                      SAD       299
         372         2100 7500                    ADC    7500B                                                   SAD       300
         374         5400 0661                    STM    DSPZ+4                                                  SAD       301
         376         2000 7112                    LDC    7112B                                                   SAD       302
         400         5400 0675                    STM    DSPZ+20B                                                SAD       303
         402         6416 0407                    AJM    CDP7,SC     IF CY17X                                    SAD       304
         404         1401                         LDN    1                                                       SAD       305
         405         5400 0672                    STM    DSPZ+15B    FLAG FOR IOQ, INHIBIT D12 TO D13 COPY       SAD       306
                                                                                                                 SAD       307
                                 407     CDP7     EQU    *                                                       SAD       308
         407         1420                         LDN    20B               LENGTH TO MOVE                        SAD       309
         410         3477                         STD    D77                                                     SAD       310
         411         5077 0655           CDP8     LDM    DSPZ,D77          MOVE TO 1-20B                         SAD       311
         413         4477                         STI    D77                                                     SAD       312
         414         3777                         SOD    D77                                                     SAD       313
         415         0573                         NJN    CDP8                                                    SAD       314
1       SAD         CTI SELECT ALT. DEADSTART DEVICE - A02            COMPASS 3.7-871.     23/08/13. 15.42.35.      PAGE    10
        MAIN ROUTTNE
  
                                        *         RETURN CHANNELS TO DEADSTART STATE                             SAD       316
                                                                                                                 SAD       317
         416         7452                         ACN    12B+40B                                                 SAD       318
         417         7453                         ACN    13B+40B                                                 SAD       319
         420         7472                         ACN    32B+40B                                                 SAD       320
         421         7473                         ACN    33B+40B                                                 SAD       321
  
  
  
  
                                        *         JUMP TO ADDRESS 1 TO FAKE A DEADSTART                          SAD       323
                                                                                                                 SAD       324
         422         0100 0001                    LJM    1,0                                                     SAD       325
  
  
  
  
                                        **        RBM - RETURN TO 6 BIT MODE                                     DIMA267     8
                                        *                                                                        DIMA267     9
                                        *         RBM RETURNS ATS CONTROLLER TO 6 BIT MODE                       DIMA267    10
                                        *                                                                        DIMA267    11
                                        *         CALLS - ICN,FAC,RAP                                            DIMA267    12
                                        *                                                                        DIMA267    13
                                        *         EXIT  - (D1) = CHANNEL NUMBER                                  DIMA267    14
                                        *                                                                        DIMA267    15
         424         0100 0000           RBM      ENM    X           ENTRY/EXIT                                  DIMA267    16
         426         4005                         LDI    CC          GET CHANNEL                                 DIMA267    17
         427         3401                         STD    D1                                                      DIMA267    18
         430         5005 0001                    LDM    1,REPADDR                                               DIMA267    19
         432         1377                         SCN    77B                                                     DIMA267    20
         433         1003                         SHN    3                                                       DIMA267    21
         434         5500 0452                    RAM    RBM6+1      ADD EQUIP NUMBER                            DIMA267    22
         436         5005 0001                    LDM    1,REPADDR                                               DIMA267    23
         440         1217                         LPN    17B                                                     DIMA267    24
         441         5500 0517                    RAM    RBM14       ADD UNIT NUMBER                             DIMA267    25
         443         2000 0500                    LDC    RBM15                                                   DIMA267    26
         445         0200 0567                    RJM    ICN         INSERT CHANNEL NUMBER                       DIMA267    27
         447         0200 0523                    RJM    FAC         MOVE PP TO CH12                             DIMA267    28
         451         7700 0004           RBM6     FNC    0004,0      * EQUIP NUMBER MUST BE ADDED IN *           DIMA267    29
         453         2000 0560                    LDC    0560B       TIMEOUT COUNT                               DIMA267    30
         455         6500 0465           RBM7     IJM    RBM7.1,0                                                DIMA267    31
         457         1701                         SBN    1                                                       DIMA267    32
         460         0574                         NJN    RBM7                                                    DIMA267    33
         461         0200 0603                    RJM    HPP         HANG PP 10 ON CHANNEL 0                     DIMA267    34
         463         0200 0620                    RJM    ERD         DISPLAY ERROR MESSAGE AND STOP              DIMA267    35
         465         1403                RBM7.1   LDN    3                                                       DIMA267    36
         466         7440                RBM8     ACN    40B                                                     DIMA267    37
         467         7300 0517           RBM9     OAM    RBM14,0                                                 DIMA267    38
         471         6600 0471           RBM10    FJM    *,0                                                     DIMA267    39
         473         7540                RBM11    DCN    40B                                                     DIMA267    40
         474         0200 0547           RBM12    RJM    RAP         RETURN PP TO DEADSTART STATE                DIMA267    41
         476         0100 0424                    LJM    RBMX                                                    DIMA267    42
                                                                                                                 DIMA267    43
                                        *  ADDRESS TABLE OF MODIFIED INSTRUCTIONS FOLLOWS                        DIMA267    44
         500         0451 0455           RBM15    CON    RBM6,RBM7,RBM8,RBM9,RBM10,FAC4                          DIMA267    45
         502         0466 0467
         504         0471 0534
1       SAD         CTI SELECT ALT. DEADSTART DEVICE - A02            COMPASS 3.7-871.     23/08/13. 15.42.35.      PAGE    11
        MAIN ROUTTNE
  
         506         0536 0540                    CON    FAC5,FAC6,FAC1,FAC2,RBM11                               DIMA267    46
         510         0524 0527
         512         0473 
         513         0531 0564                    CON    FAC3,RAPA.2,RAPA.1,0                                    DIMA267    47
         515         0563 0000
                                                                                                                 DIMA267    48
                                                                                                                 DIMA267    49
         517         4220                RBM14    CON    4220B       ** UNIT NUMBER MUST BE ADDED IN **          DIMA267    50
         520         2440                         CON    2440B                                                   DIMA267    51
         521         4000                         CON    4000B                                                   DIMA267    52
  
  
  
  
                                        **        FAC  -  FREE ATS CHANNEL                                       DIMA267    54
                                        *                                                                        DIMA267    55
                                        *         USES   NONE.                                                   DIMA267    56
                                        *                                                                        DIMA267    57
                                        *         CALLS  NONE.                                                   DIMA267    58
                                        *                                                                        DIMA267    59
                                                                                                                 DIMA267    60
         522         0100 0000           FAC      ENM    X           ENTRY/EXIT                                  DIMA267    61
         524         6500 0522           FAC1     IJM    FACX,0      IF INACTIVE,RETURN                          DIMA267    62
         526         1400                         LDN    0                                                       DIMA267    63
         527         7200                FAC2     OAN    0           CHECK FOR PP                                DIMA267    64
         530         4001                         LDI    D1          DELAY FOR PP TO TAKE WORD                   DIMA267    65
         531         6600 0540           FAC3     FJM    FAC6,0      THERE IS NOT A PP                           DIMA267    66
         533         1404                         LDN    FACZ-FACA                                               DIMA267    67
         534         7300 0542           FAC4     OAM    FACA,0                                                  DIMA267    68
         536         6600 0536           FAC5     FJM    *,0                                                     DIMA267    69
         540         7500                FAC6     DCN    0                                                       DIMA267    70
         541         0360                         UJN    FACX                                                    DIMA267    71
                                                                                                                 DIMA267    72
         542         1400                FACA     LDN    0                                                       DIMA267    73
         543         7452                         ACN    52B                                                     DIMA267    74
         544         7112 0000                    IAM    0,12B                                                   DIMA267    75
                                 546     FACZ     EQU    *                                                       DIMA267    76
  
  
  
  
                                        **        RAP  - RETURN ATS PP TO THE DEADSTART STATE                    DIMA267    78
                                        *                                                                        DIMA267    79
                                        *         USES   NONE.                                                   DIMA267    80
                                        *                                                                        DIMA267    81
                                        *         CALLS  NONE.                                                   DIMA267    82
                                        *                                                                        DIMA267    83
                                                                                                                 DIMA267    84
         546         0100 0000           RAP      ENM    X           ENTRY/EXIT                                  DIMA267    85
         550         6512 0546                    IJM    RAPX,12B                                                DIMA267    86
         552         1405                         LDN    RAPZ-RAPA                                               DIMA267    87
         553         7312 0561                    OAM    RAPA,12B                                                DIMA267    88
         555         6612 0555                    FJM    *,12B                                                   DIMA267    89
         557         7512                         DCN    12B                                                     DIMA267    90
         560         0365                         UJN    RAPX                                                    DIMA267    91
                                                                                                                 DIMA267    92
         561                       1     RAPA     BSSZ   1                                                       DIMA267    93
1       SAD         CTI SELECT ALT. DEADSTART DEVICE - A02            COMPASS 3.7-871.     23/08/13. 15.42.35.      PAGE    12
        MAIN ROUTTNE
  
         562         1400                         LDN    0                                                       DIMA267    94
         563         7400                RAPA.1   ACN    0                                                       DIMA267    95
         564         7100 0000           RAPA.2   IAM    0,0                                                     DIMA267    96
                                 566     RAPZ     EQU    *                                                       DIMA267    97
  
  
  
  
                                        **        ICN - INSERT CHANNEL NUMBER                                    DIMA267    99
                                        *                                                                        DIMA267   100
                                        *         ICN INSERTS CHANNEL NO.S IN INSTRUCTIONS GIVEN                 DIMA267   101
                                        *         IN A LIST TERMINATED WITH A ZERO.                              DIMA267   102
                                        *                                                                        DIMA267   103
                                        *         ENTRY  (A)  = FWA OF CHANNEL LIST.                             DIMA267   104
                                        *                (D1) = CHANNEL NUMBER                                   DIMA267   105
                                        *                                                                        DIMA267   106
                                        *         USES   D2,D3                                                   DIMA267   107
                                                                                                                 DIMA267   108
         566         0100 0000           ICN      ENM    X           ENTRY/EXIT                                  DIMA267   109
         570         3402                         STD    D2                                                      DIMA267   110
         571         4002                ICN1     LDI    D2                                                      DIMA267   111
         572         0473                         ZJN    ICNX        IF LIST COMPLETE                            DIMA267   112
         573         3403                         STD    D3                                                      DIMA267   113
         574         4003                         LDI    D3                                                      DIMA267   114
         575         1337                         SCN    37B                                                     DIMA267   115
         576         3101                         ADD    D1          ADD IN NEW CHANNEL NUMBER                   DIMA267   116
         577         4403                         STI    D3                                                      DIMA267   117
         600         3602                         AOD    D2                                                      DIMA267   118
         601         0367                         UJN    ICN1        CONTINUE PROCESSING                         DIMA267   119
  
  
  
  
                                        **        HPP  - HANG PP 10 ON CHANNEL 0                                 DIMA267   121
                                        *                                                                        DIMA267   122
                                        *         USES   NONE.                                                   DIMA267   123
                                        *                                                                        DIMA267   124
                                        *         CALLS  NONE.                                                   DIMA267   125
                                        *                                                                        DIMA267   126
                                                                                                                 DIMA267   127
         602         0100 0000           HPP      ENM    X                                                       DIMA267   128
         604         7400                         ACN    0                                                       DIMA267   129
         605         1403                         LDN    HPPZ-HPPA   LOAD MESSAGE LENGTH                         DIMA267   130
         606         7310 0614                    OAM    HPPA,CHD                                                DIMA267   131
         610         6610 0610                    FJM    *,CHD                                                   DIMA267   132
         612         7510                         DCN    CHD                                                     DIMA267   133
         613         0366                         UJN    HPPX                                                    DIMA267   134
                                                                                                                 DIMA267   135
         614         1400                HPPA     LDN    0                                                       DIMA267   136
         615         7100 0000                    IAM    0,0                                                     DIMA267   137
                                 617     HPPZ     EQU    *                                                       DIMA267   138
1       SAD         CTI SELECT ALT. DEADSTART DEVICE - A02            COMPASS 3.7-871.     23/08/13. 15.42.35.      PAGE    13
        MAIN ROUTTNE
  
                                        **        ERD  - ERROR DISPLAY                                           DIMA267   140
                                        *                                                                        DIMA267   141
                                        *         USES   NONE.                                                   DIMA267   142
                                        *                                                                        DIMA267   143
                                        *         CALLS  NONE.                                                   DIMA267   144
                                        *                                                                        DIMA267   145
                                        *         EXIT   NONE.                                                   DIMA267   146
                                                                                                                 DIMA267   147
         617         0100 0000           ERD      ENM    X                                                       DIMA267   148
         621         7710 7001                    FNC    F.SEL+F.SLS+F.CHR+F.CHM,CHD  DISPLAY ERROR MESSAGE      DIMA267   149
         623         7410                         ACN    CHD                                                     DIMA267   150
         624         1422                ERD1     LDN    MSGAL                                                   DIMA267   151
         625         7310 0634                    OAM    MSGA,CHD    OUTPUT MESSAGE                              DIMA267   152
         627         6610 0627                    FJM    *,CHD       WAIT FOR OUTPUT TO COMPLETE                 DIMA267   153
         631         1740                         SBN    40B         DISPLAY REFRESH DELAY                       DIMA267   154
         632         0776                         MJN    *-1                                                     DIMA267   155
         633         0370                         UJN    ERD1                                                    DIMA267   156
                                                                                                                 DIMA267   157
                                 634     MSGA     EQU    *                                                       DIMA267   158
                                   5     LINE     SET    5                                                       DIMA267   159
         634         7630                         CON    YSET+762B-LINE*DOPLS                                    DIMA267   160
         635         6000                         CON    XSET+0                                                  DIMA267   161
         636         5506                         DATA   H* FORMAT UNIT FUNCTION REJECTED *                      DIMA267   162
                                  22     MSGAL    EQU    *-MSGA                                                  DIMA267   163
1       SAD         CTI SELECT ALT. DEADSTART DEVICE - A02            COMPASS 3.7-871.     23/08/13. 15.42.35.      PAGE    14
        DEADSTART PANEL SKELETON
  
                                        **        C170/C180                                                      SAD       328
                                        *                                                                        SAD       329
                                        *         ACTIVE        INACTIVE                                         SAD       330
                                        *                                                                        SAD       331
                                        *         1402     01   0000                                             SAD       332
                                        *         73CC     02   75CC   NOTE A                                    SAD       333
                                        *         0017     03   0000                                             SAD       334
                                        *         75CC     04   0000                                             SAD       335
                                        *         77CC     05   77CC                                             SAD       336
                                        *         EEEE     06   EEEE                                             SAD       337
                                        *         74CC     07   74CC                                             SAD       338
                                        *         71CC     10   71CC                                             SAD       339
                                        *         7301     11   7301                                             SAD       340
                                        *         WXYF     12   WXYF   NOTE B                                    SAD       341
                                        *         IPCC     13   IPCC   NOTE B                                    SAD       342
                                        *         FFFF     14   FFFF   NOTE B                                    SAD       343
                                        *         0000     15   0000                                             SAD       344
                                        *         RSVD     16   RSVD   NOTE B                                    SAD       345
                                        *         0000     17   0000                                             SAD       346
                                        *         7112     20   0000                                             SAD       347
                                        *                                                                        SAD       348
                                        *                                                                        SAD       349
                                        *         NOTE A - 75CC IF CC = 12B,13B,32B,33B                          SAD       350
                                        *                  0000 OTHERWISE.                                       SAD       351
                                        *                                                                        SAD       352
                                        *         NOTE B - SAME AS CORRESPONDING WORD IN SAVED                   SAD       353
                                        *                  DEADSTART PANEL IMAGE.                                SAD       354
  
  
  
  
         656         0000                DSP      CON    0                 1  INACTIVE PP SKELETON               SAD       356
         657         7500                         CON    7500B             2                                     SAD       357
         660         0000                         CON    0                 3                                     SAD       358
         661         0000                         CON    0                 4                                     SAD       359
         662         7700                         CON    7700B             5                                     SAD       360
         663         0000                         CON    0                 6                                     SAD       361
         664         7400                         CON    7400B             7                                     SAD       362
         665         7100                         CON    7100B             10                                    SAD       363
         666         7301                         CON    7301B             11                                    SAD       364
         667         0000                         CON    0                 12                                    SAD       365
         670         0000                         CON    0                 13                                    SAD       366
         671         0000                         CON    0                 14                                    SAD       367
         672         0000                         CON    0                 15                                    SAD       368
         673         0000                         CON    0                 16                                    SAD       369
         674         0000                         CON    0                 17                                    SAD       370
         675         0000                         CON    0                 20                                    SAD       371
                                 655     DSPZ     EQU    DSP-1             VIRTUAL ZERO                          SAD       372
                                                                                                                 SAD       373
                                        *         DEADSTART FUNCTIONS TABLE                                      SAD       374
                                                                                                                 SAD       375
         676         0260                F66X     CON    0260B                                                   SAD       376
         677         0120                F67X     CON    0120B                                                   SAD       377
         700         0300                F844     CON    0300B                                                   SAD       378
1       SAD         CTI SELECT ALT. DEADSTART DEVICE - A02            COMPASS 3.7-871.     23/08/13. 15.42.35.      PAGE    15
        DISPLAY HEADER
  
                                        **        HDR IS THE FOLLOWING DISPLAY.                                  SAD       381
                                        *                                                                        SAD       382
                                        *         DEADSTART DEVICE TYPE - M                                      SAD       383
                                        *                                                                        SAD       384
                                        *         (1=66X, 2=67X, 3=DISK)                                         SAD       385
                                        *                                                                        SAD       386
                                                                                                                 SAD       387
                                  22     DOPLS    EQU    22B               LINE Y COORDINATE INCREMENT           SAD       388
                                                                                                                 SAD       389
                                 701     HDR      EQU    *                 START OF BUFFER                       SAD       390
                                                                                                                 SAD       391
                                   5     LINE     SET    5                 FIRST LINE                            SAD       392
         701         7630                         CON    YSET+762B-LINE*DOPLS                                    SAD       393
         702         6000                         CON    XSET+0                                                  SAD       394
         703         5504                         DATA   H* DEADSTART DEVICE TYPE - M*                           SAD       395
                                 717     HDRM     EQU    *-1                                                     SAD       396
                                                                                                                 SAD       397
                                  10     LINE     SET    LINE+3                                                  SAD       398
         720         7542                         CON    YSET+762B-LINE*DOPLS                                    SAD       399
         721         6000                         CON    XSET+0                                                  SAD       400
         722         5551                         DATA   H* (1=66X, 2=67X, 3=DISK)*                              SAD       401
                                                                                                                 SAD       402
                                  35     HDRL     EQU    *-HDR             LENGTH OF HEADER                      SAD       403
  
  
  
  
                                        *         REPLY AREA                                                     SAD       405
                                        *                                                                        SAD       406
                                                                                                                 SAD       407
         736                       2     REPLY    BSSZ   2                                                       SAD       408
  
  
  
  
                                        **        CALL COMPQOD HERE.                                             SAD       410
                                                                                                                 SAD       411
                                                  LIST   X                                                       SAD       412
1       SAD         CTI SELECT ALT. DEADSTART DEVICE - A02            COMPASS 3.7-871.     23/08/13. 15.42.35.      PAGE    16
        COMPQOD - CTI QUERY OPERATOR FOR DEVICE.                      QOD 
  
         740                             QOD      CTEXT  COMPQOD - CTI QUERY OPERATOR FOR DEVICE.                COMPQOD     2
  
  
  
  
                                                  IF     -DEF,QUAL$,1                                            COMPQOD     4
                                                  QUAL   QOD                                                     COMPQOD     5
                                 D_D              BASE   D                                                       COMPQOD     6
                                        *         COMMENT  COPYRIGHT CONTROL DATA CORPORATION. 1978.             COMPQOD     7
1       SAD         CTI SELECT ALT. DEADSTART DEVICE - A02            COMPASS 3.7-871.     23/08/13. 15.42.35.      PAGE    17
        COMPQOD - CTI QUERY OPERATOR FOR DEVICE.                      QOD                 QOD 
  
                                        ***       COMPQOD - CTI QUERY OPERATOR FOR DEVICE.                       COMPQOD    10
                                        *                                                                        COMPQOD    11
                                        *         R. A. TURGEON            6-22-78.                              COMPQOD    12
  
  
  
  
                                        ***       COMPQOD - CTI QUERY OPERATOR FOR DEVICE.                       COMPQOD    14
                                        *                                                                        COMPQOD    15
                                        *         COMPQOD IS A CALLABLE SUBROUTINE WHICH WILL QUERY THE          COMPQOD    16
                                        *         OPERATOR FOR CONNECT CODES DEFINING A DEVICE LOCATION.         COMPQOD    17
                                        *                                                                        COMPQOD    18
                                        *         ENTRY IS VIA               RJM    QOD                          COMPQOD    19
                                        *                                                                        COMPQOD    20
                                        *         ENTRY  (A) = NNAAAA  WHERE                                     COMPQOD    21
                                        *                      AAAA = FWA OF A STRING TO BE DISPLAYED AND        COMPQOD    22
                                        *                      NN = BYTE COUNT OF THIS STRING.                   COMPQOD    23
                                        *                (REPADDR) = FWA OF TWO BYTE REPLY AREA WITH FORMAT      COMPQOD    24
                                        *                            00CC/EEUU.                                  COMPQOD    25
                                        *                            REPADDR IS A DIRECT CELL.                   COMPQOD    26
                                        *                                                                        COMPQOD    27
                                        *         EXIT   TWO BYTE REPLY AREA HAS BEEN MODIFIED AS DIRECTED       COMPQOD    28
                                        *                BY THE OPERATOR.                                        COMPQOD    29
                                        *                                                                        COMPQOD    30
                                        *         USES   D6,D7,D10,D11.                                          COMPQOD    31
1       SAD         CTI SELECT ALT. DEADSTART DEVICE - A02            COMPASS 3.7-871.     23/08/13. 15.42.35.      PAGE    18
        DEFINITIONS                                                                       QOD 
  
                                        **        MISCELLANEOUS DEFINITIONS.                                     COMPQOD    33
                                        *                                                                        COMPQOD    34
                                                                                                                 COMPQOD    35
                                   6     DCL      EQU    D6                DIRECT CELL FOR LENGTH                COMPQOD    36
                                   7     DCA      EQU    D7                DIRECT CELL FOR ADDRESS               COMPQOD    37
                                  10     DCF      EQU    D10               DIRECT CELL FOR FLAG                  COMPQOD    38
                                  11     DCW      EQU    D11               WORK CELL                             COMPQOD    39
1       SAD         CTI SELECT ALT. DEADSTART DEVICE - A02            COMPASS 3.7-871.     23/08/13. 15.42.35.      PAGE    19
        MAIN ROUTINE                                                                      QOD 
  
         740         0100 0000           QOD      ENM    X                 ENTRY/EXIT                            COMPQOD    42
                                                                                                                 COMPQOD    43
         742         5400 1076                    STM    DISB              STORE ADDRESS OF TITLE                COMPQOD    44
         744         1006                         SHN    6                                                       COMPQOD    45
         745         1277                         LPN    77B                                                     COMPQOD    46
         746         5400 1074                    STM    DISA              STORE LENGTH OF TITLE                 COMPQOD    47
  
  
  
  
                                        *         SET UP TO DISPLAY CHANNEL LINE.                                COMPQOD    49
                                                                                                                 COMPQOD    50
         750         2000 0010                    LDC    BUFC-BUF                                                COMPQOD    51
         752         3406                         STD    DCL               STORE LENGTH                          COMPQOD    52
         753         3005                         LDD    REPADDR                                                 COMPQOD    53
         754         3407                         STD    DCA               STORE ADDRESS OF WORD TO MODIFY.      COMPQOD    54
         755         1400                         LDN    0                                                       COMPQOD    55
         756         3410                         STD    DCF               SET FLAG = 0 FOR LOWER 6 BITS         COMPQOD    56
                                                                                                                 COMPQOD    57
         757         0200 1042           QOD1     RJM    DIS               DISPLAY                               COMPQOD    58
         761         0200 1111                    RJM    PKI               PROCESS KEYBOARD INPUT                COMPQOD    59
         763         0573                         NJN    QOD1              IF NOT CR                             COMPQOD    60
  
  
  
  
                                        *         SET UP TO ADD EQUIPMENT LINE                                   COMPQOD    62
                                                                                                                 COMPQOD    63
         764         2000 0021                    LDC    BUFE-BUF                                                COMPQOD    64
         766         3406                         STD    DCL                                                     COMPQOD    65
         767         3607                         AOD    DCA                                                     COMPQOD    66
         770         3610                         AOD    DCF                                                     COMPQOD    67
                                                                                                                 COMPQOD    68
         771         0200 1042           QOD2     RJM    DIS                                                     COMPQOD    69
         773         0200 1111                    RJM    PKI                                                     COMPQOD    70
         775         0573                         NJN    QOD2              IF NOT CR                             COMPQOD    71
  
  
  
  
                                        *         SET UP TO ADD UNIT LINE.                                       COMPQOD    73
                                                                                                                 COMPQOD    74
         776         2000 0030                    LDC    BUFU-BUF                                                COMPQOD    75
        1000         3406                         STD    DCL                                                     COMPQOD    76
        1001         3710                         SOD    DCF                                                     COMPQOD    77
                                                                                                                 COMPQOD    78
        1002         0200 1042           QOD3     RJM    DIS                                                     COMPQOD    79
        1004         0200 1111                    RJM    PKI                                                     COMPQOD    80
        1006         0573                         NJN    QOD3              IF NOT CR                             COMPQOD    81
                                                                                                                 COMPQOD    82
        1007         0100 0740                    LJM    QODX              RETURN                                COMPQOD    83
1       SAD         CTI SELECT ALT. DEADSTART DEVICE - A02            COMPASS 3.7-871.     23/08/13. 15.42.35.      PAGE    20
        OUR DISPLAY BUFFER                                                                QOD 
  
                                1011     BUF      EQU    *                 START OF OUR BUFFER                   COMPQOD    86
                                                                                                                 COMPQOD    87
                                  21     BUFL     SET    17                FIRST LINE                            COMPQOD    88
        1011         7300                         CON    YSET+762B-BUFL*22B                                      COMPQOD    89
        1012         6000                         CON    XSET+0                                                  COMPQOD    90
        1013         0310                         DATA   H*CHANNEL - MN*                                         COMPQOD    91
                                1021     BUFC     EQU    *                                                       COMPQOD    92
                                                                                                                 COMPQOD    93
                                  24     BUFL     SET    BUFL+3                                                  COMPQOD    94
        1021         7212                         CON    YSET+762B-BUFL*22B                                      COMPQOD    95
        1022         6000                         CON    XSET+0                                                  COMPQOD    96
        1023         0521                         DATA   H*EQUIPMENT -  M*                                       COMPQOD    97
                                1032     BUFE     EQU    *                                                       COMPQOD    98
                                                                                                                 COMPQOD    99
                                  27     BUFL     SET    BUFL+3                                                  COMPQOD   100
        1032         7124                         CON    YSET+762B-BUFL*22B                                      COMPQOD   101
        1033         6000                         CON    XSET+0                                                  COMPQOD   102
        1034         2516                         DATA   H*UNIT -  MN*                                           COMPQOD   103
                                1041     BUFU     EQU    *                                                       COMPQOD   104
1       SAD         CTI SELECT ALT. DEADSTART DEVICE - A02            COMPASS 3.7-871.     23/08/13. 15.42.35.      PAGE    21
        QOD SUBROUTINES.                                                                  QOD 
  
                                        **        DIS - DISPLAYS CALLER TITLE AND OUR BUFFER.                    COMPQOD   107
                                        *                                                                        COMPQOD   108
                                        *         DIS CONVERTS THE DATA IN THE TWO BYTE REPLY AREA TO            COMPQOD   109
                                        *         DISPLAY CODE AND STORES IT INTO THE APPROPRIATE WORDS          COMPQOD   110
                                        *         OF OUR DISPLAY BUFFER.  THEN IT DISPLAYS THE CALLERS           COMPQOD   111
                                        *         TITLE AND OUR DISPLAY BUFFER.                                  COMPQOD   112
                                        *                                                                        COMPQOD   113
                                                                                                                 COMPQOD   114
        1041         0100 0000           DIS      ENM    X                 ENTRY/EXIT                            COMPQOD   115
        1043         4005                         LDI    REPADDR           FIRST BYTE OF REPLY AREA              COMPQOD   116
        1044         0200 1152                    RJM    CTO               CONVERT TO OCTAL                      COMPQOD   117
        1046         5400 1020                    STM    BUFC-1            STORE CHANNEL                         COMPQOD   118
        1050         5005 0001                    LDM    1,REPADDR         SECOND BYTE OF REPLY AREA             COMPQOD   119
        1052         1071                         SHN    -6                                                      COMPQOD   120
        1053         0200 1152                    RJM    CTO                                                     COMPQOD   121
        1055         1277                         LPN    77B                                                     COMPQOD   122
        1056         2100 5500                    ADC    1R *100B                                                COMPQOD   123
        1060         5400 1031                    STM    BUFE-1            STORE EQUIPMENT                       COMPQOD   124
        1062         5005 0001                    LDM    1,REPADDR                                               COMPQOD   125
        1064         0200 1152                    RJM    CTO                                                     COMPQOD   126
        1066         5400 1040                    STM    BUFU-1            STORE UNIT                            COMPQOD   127
                                                                                                                 COMPQOD   128
        1070         7710 7001                    FNC    F.SEL+F.SLS+F.CHR+F.CHM,CHD                             COMPQOD   129
        1072         7410                         ACN    CHD                                                     COMPQOD   130
        1073         2000 0000                    LDC    **                                                      COMPQOD   131
                                1074     DISA     EQU    *-1                                                     COMPQOD   132
        1075         7310 0000                    OAM    **,CHD            DISPLAY CALLERS TITLE                 COMPQOD   133
                                1076     DISB     EQU    *-1                                                     COMPQOD   134
                                                                                                                 COMPQOD   135
        1077         3006                         LDD    DCL               LENGTH OF OUR ACTIVE BUFFER           COMPQOD   136
        1100         7310 1011                    OAM    BUF,CHD           DISPLAY OUR BUFFER                    COMPQOD   137
        1102         7510                         DCN    CHD                                                     COMPQOD   138
        1103         1740                         SBN    40B                                                     COMPQOD   139
        1104         0776                         MJN    *-1         REDUCE DISPLAY INTENSITY                    COMPQOD   140
        1105         0100 1041                    LJM    DISX              RETURN                                COMPQOD   141
  
  
  
  
                                        **        PKI - PROCESS KEYBOARD INPUT                                   COMPQOD   143
                                        *                                                                        COMPQOD   144
                                        *         PKI FUNCTIONS THE DISPLAY CONSOLE FOR KEYBOARD INPUT.          COMPQOD   145
                                        *         IF AN OCTAL DIGIT HAS BEEN ENTERED, THEN THAT PORTION          COMPQOD   146
                                        *         OF THE REPLY AREA SPECIFIED BY DCA AND DCF IS MODIFIED.        COMPQOD   147
                                        *                                                                        COMPQOD   148
                                        *         EXIT   (A) = 0 IF INPUT = (CR)                                 COMPQOD   149
                                        *                (A) .NE. 0 IF NO INPUT OR INPUT NOT (CR)                COMPQOD   150
                                        *                                                                        COMPQOD   151
                                                                                                                 COMPQOD   152
        1107         1401                PKI1     LDN    1                 SET A NON-ZERO                        COMPQOD   153
                                                                                                                 COMPQOD   154
        1110         0100 0000           PKI      ENM    X                 ENTRY/EXIT                            COMPQOD   155
        1112         7710 7020                    FNC    F.SEL+F.KEY,CHD                                         COMPQOD   156
        1114         7410                         ACN    CHD                                                     COMPQOD   157
        1115         7010                         IAN    CHD               READ KEYBOARD                         COMPQOD   158
        1116         7510                         DCN    CHD                                                     COMPQOD   159
        1117         0467                         ZJN    PKI1              IF NO INPUT                           COMPQOD   160
1       SAD         CTI SELECT ALT. DEADSTART DEVICE - A02            COMPASS 3.7-871.     23/08/13. 15.42.35.      PAGE    22
        QOD SUBROUTINES.                                                                  QOD 
  
                                                                                                                 COMPQOD   161
        1120         1760                         SBN    60B                                                     COMPQOD   162
        1121         0466                         ZJN    PKIX              IF (CR) ENTERED                       COMPQOD   163
                                                                                                                 COMPQOD   164
                                        *         TEST IF OCTAL DIGIT                                            COMPQOD   165
                                                                                                                 COMPQOD   166
        1122         1625                         ADN    60B-1R0                                                 COMPQOD   167
        1123         0763                         MJN    PKI1              IF .LT. 1R0                           COMPQOD   168
        1124         1710                         SBN    8                                                       COMPQOD   169
        1125         0661                         PJN    PKI1              IF .GT.1R7                            COMPQOD   170
                                                                                                                 COMPQOD   171
        1126         1610                         ADN    8                 NORMALIZE TO BE IN RANGE 0-7          COMPQOD   172
        1127         3411                         STD    DCW                                                     COMPQOD   173
                                                                                                                 COMPQOD   174
        1130         3010                         LDD    DCF               GET UPPER/LOWER FLAG                  COMPQOD   175
        1131         0512                         NJN    PKI6              IF UPPER HALF TO BE MODIFIED          COMPQOD   176
                                                                                                                 COMPQOD   177
        1132         4007                         LDI    DCA               HERE IF CHANNEL OR UNIT               COMPQOD   178
        1133         1003                         SHN    3                                                       COMPQOD   179
        1134         1270                         LPN    70B                                                     COMPQOD   180
        1135         3511                         RAD    DCW                                                     COMPQOD   181
        1136         4007                         LDI    DCA                                                     COMPQOD   182
        1137         1377                         SCN    77B                                                     COMPQOD   183
        1140         3111                         ADD    DCW                                                     COMPQOD   184
        1141         4407                PKI4     STI    DCA                                                     COMPQOD   185
        1142         0344                         UJN    PKI1              RETURN                                COMPQOD   186
                                                                                                                 COMPQOD   187
        1143         4007                PKI6     LDI    DCA               HERE IF EQUIPMENT                     COMPQOD   188
        1144         1277                         LPN    77B                                                     COMPQOD   189
        1145         1014                         SHN    12                                                      COMPQOD   190
        1146         3311                         LMD    DCW                                                     COMPQOD   191
        1147         1006                         SHN    6                                                       COMPQOD   192
        1150         0370                         UJN    PKI4                                                    COMPQOD   193
  
  
  
  
                                        **        CTO - CONVERT TO OCTAL DISPLAY                                 COMPQOD   195
                                        *                                                                        COMPQOD   196
                                        *         ENTRY  (A) LOWER 6 BITS ARE VALUE TO BE CONVERTED              COMPQOD   197
                                        *                                                                        COMPQOD   198
                                        *         EXIT   LOWER 12 BITS OF (A) ARE RESULT.                        COMPQOD   199
                                        *                                                                        COMPQOD   200
                                        *         USES   DCW                                                     COMPQOD   201
                                                                                                                 COMPQOD   202
        1151         0100 0000           CTO      ENM    X                 ENTRY/EXIT                            COMPQOD   203
        1153         1277                         LPN    77B               ISOLATE LOWER 6 BITS                  COMPQOD   204
        1154         3411                         STD    DCW                                                     COMPQOD   205
        1155         1003                         SHN    3                                                       COMPQOD   206
        1156         3311                         LMD    DCW                                                     COMPQOD   207
        1157         1370                         SCN    70B                                                     COMPQOD   208
        1160         2100 3333                    ADC    2R00                                                    COMPQOD   209
        1162         0366                         UJN    CTOX              RETURN                                COMPQOD   210
1       SAD         CTI SELECT ALT. DEADSTART DEVICE - A02            COMPASS 3.7-871.     23/08/13. 15.42.35.      PAGE    23
        QOD SUBROUTINES.                                                                  QOD 
  
                                 D_D              BASE   *                                                       COMPQOD   212
                                                  IF     -DEF,QUAL$,1                                            COMPQOD   213
                                                  QUAL   *                                                       COMPQOD   214
                                                  ENDX                                                           COMPQOD   215
                                                                                                                 SAD       414
        1163                                      END                                                            SAD       415
  
                             53600B CM  STORAGE USED              961 STATEMENTS      230 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.804 SECONDS         440 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ACNC         7400                   3/49 D
        ADCC         2100                   3/43 D
        AJMC         6400                   3/46 D
        CC              5                   4/07 D    8/28      8/56      9/17      9/33
                                            8/26      8/40      9/01      9/28     10/27
        CDPA          353                   9/18 S    9/19 L
        CDP1          256                   8/24      8/26 L
        CDP2          275                   8/30      8/32      8/34      8/36      8/40 L
        CDP7          407                   9/19      9/38      9/42 D
        CDP8          411                   9/45 L    9/48
        CHD            10                   4/19 D    6/50      7/02      7/54     12/46     21/23     21/53
                                            6/19      6/52      7/03      7/56     13/10     21/24     21/54
                                            6/20      6/53      7/04      8/09     13/11     21/27     21/55
                                            6/21      6/56      7/49     12/44     13/13     21/31     21/56
                                            6/49      7/01      7/53     12/45     13/14     21/32
        DCNC         7500                   3/50 D
        DEBUG           0                   4/09 D    6/24      6/25      8/06      8/07
        DOPLS          22                  13/21     15/08 D   15/13     15/19
        DSP           656                  14/32 L   14/48
        DSPZ          655                   8/27 S    8/54 S    9/04 S    9/10 S    9/32 S    9/40 S
                                            8/38 S    8/57 S    9/06 S    9/27 S    9/35 S    9/45
                                            8/41 S    9/02 S    9/08 S    9/30 S    9/37 S   14/48 D
        D0              0                   3/08 D
        D1              1                   3/09 D    8/45 S    8/52     10/28 S   11/26     12/26
        D10            10                   3/19 D    7/24     18/06
        D11            11                   3/20 D   18/07
        D12            12                   3/21 D
        D13            13                   3/22 D
        D14            14                   3/23 D
        D15            15                   3/24 D
        D16            16                   3/25 D
        D17            17                   3/26 D
        D2              2                   3/10 D    8/48 S    8/53     12/20 S   12/21     12/28 S
        D20            20                   3/27 D
        D3              3                   3/11 D   12/23 S   12/24     12/27 I
        D4              4                   3/12 D
        D5              5                   3/13 D    4/06
        D6              6                   3/14 D    7/28      7/33     18/04
        D7              7                   3/17 D   18/05
        D77            77                   4/08 D    9/44 S    9/45      9/46 I    9/47 S
        ERD           620                  10/45     13/09 D
        ERDX          617                  13/09 L
        ERD1          624                  13/12 L   13/17
1       SAD         CTI SELECT ALT. DEADSTART DEVICE - A02            COMPASS 3.7-871.     23/08/13. 15.42.35.      PAGE    24
        SYMBOLIC REFERENCE TABLE. 
  
        FAC           523                  10/38     11/22 D
        FACA          542                  11/28     11/29     11/34 L
        FACX          522                  11/22 L   11/23     11/32
        FACZ          546                  11/28     11/37 D
        FAC1          524                  11/01     11/23 L
        FAC2          527                  11/01     11/25 L
        FAC3          531                  11/04     11/27 L
        FAC4          534                  10/55     11/29 L
        FAC5          536                  11/01     11/30 L
        FAC6          540                  11/01     11/27     11/31 L
        FDC           100                   6/17 L
        FDCA          110                   6/18      6/19      6/24 L
        FDCZ          114                   6/18      6/22      6/29 D
        F66X          676                   8/52     14/52 L
        F67X          677                  14/53 L
        F844          700                  14/54 L
        F.CHL           2                   4/35 D
        F.CHM           1                   4/34 D    6/49     13/10     21/23
        F.CHR           0                   4/29 D    6/49     13/10     21/23
        F.CHS           0                   4/33 D
        F.DOT          10                   4/30 D
        F.KEY          20                   4/31 D    7/01     21/53
        F.SBS         200                   4/27 D
        F.SEL        7000                   4/23 D    6/49      7/01     13/10     21/23     21/53
        F.SLS           0                   4/25 D    6/49     13/10     21/23
        F.SRS         100                   4/26 D
        HDR           701                   6/52      7/41     15/10 D   15/23
        HDRL           35                   6/51      7/41     15/23 D
        HDRM          717                   6/37 S    6/45 S    7/16 S    8/22      8/43     15/16 D
        HPP           603                  10/44     12/41 D
        HPPA          614                  12/43     12/44     12/49 L
        HPPX          602                  12/41 L   12/47
        HPPZ          617                  12/43     12/51 D
        IAMC         7100                   3/47 D
        ICN           567                  10/37     12/19 D
        ICNX          566                  12/19 L   12/22
        ICN1          571                  12/21 L   12/29
        LCNC         1500                   3/40 D
        LDCC         2000                   3/42 D
        LDDC         3000                   3/45 D
        LINE           10                  13/20 D   13/21     15/12 D   15/13     15/18     15/18 D   15/19
        LMCC         2300                   3/44 D
        MSGA          634                  13/13     13/19 D   13/24
        MSGAL          22                  13/12     13/24 D
        OAMC         7300                   3/48 D
        PSNC            0                   3/36 D
        RAP           547                  10/51     11/49 D
        RAPA          561                  11/51     11/52     11/57 L
        RAPA.1        563                  11/04     12/02 L
        RAPA.2        564                  11/04     12/03 L
        RAPX          546                  11/49 L   11/50     11/55
        RAPZ          566                  11/51     12/04 D
        RBM           425                   8/25     10/26 D
        RBMX          424                  10/26 L   10/52
        RBM10         471                  10/49 L   10/55
        RBM11         473                  10/50 L   11/01
        RBM12         474                  10/51 L
1       SAD         CTI SELECT ALT. DEADSTART DEVICE - A02            COMPASS 3.7-871.     23/08/13. 15.42.35.      PAGE    25
        SYMBOLIC REFERENCE TABLE. 
  
        RBM14         517                  10/35 S   10/48     11/08 L
        RBM15         500                  10/36     10/55 L
        RBM6          451                  10/32 S   10/39 L   10/55
        RBM7          455                  10/41 L   10/43     10/55
        RBM7.1        465                  10/41     10/46 L
        RBM8          466                  10/47 L   10/55
        RBM9          467                  10/48 L   10/55
        REPADDR         5                   4/06 D    7/39 S    8/49     10/33     21/10     21/19
                                            4/07      8/46     10/29     19/15     21/13
        REPLY         736                   7/26 S    7/31 S    7/36 S    7/38     15/31 L
        RPP           223                   7/49 L
        RPPA          243                   7/57      8/01      8/06 L
        RPPZ          247                   7/57      8/04      8/11 D
        RPP3          233                   7/53      7/56 L
        SAD           100                   6/10 D
        SAD2          136                   6/39      6/49 L    7/05      7/11      7/13      7/17
        SAD7          172                   7/08      7/24 L
        SAD7.1        211                   6/47 S    7/35 D
        SBNC         1700                   3/41 D
        SC             16                   4/05 D    9/38
        SHNC         1000                   3/39 D
        UJNC          300                   3/37 D
        XSET         6000                   4/39 D   13/22     15/14     15/20     20/05     20/11     20/17
        YSET         7000                   4/40 D   13/21     15/13     15/19     20/04     20/10     20/16
        ZJNC          400                   3/38 D
  
  
  
  
                                                  SYMBOL QUALIFIER =  CPA 
  
  
        DSPNLZ       7677                   6/38      7/24      7/33      9/05      9/09
                                            6/41      7/28      9/03      9/07
  
  
  
  
                                                  SYMBOL QUALIFIER =  CTI 
  
  
        TRAN          100                   1/10      6/01
  
  
  
  
                                                  SYMBOL QUALIFIER =  QOD 
  
  
        BUF          1011                  19/13     19/29     19/43     20/01 D   21/31
        BUFC         1021                  19/13     20/07 D   21/12 S
        BUFE         1032                  19/29     20/13 D   21/18 S
        BUFL           27                  20/03 D   20/04     20/09     20/09 D   20/10     20/15     20/15 D   20/16
        BUFU         1041                  19/43     20/19 D   21/21 S
        CTO          1152                  21/11     21/15     21/20     22/46 D
        CTOX         1151                  22/46 L   22/53
        DCA             7                  18/05 D   19/16 S   19/31 S   22/18     22/22     22/25 I   22/28
1       SAD         CTI SELECT ALT. DEADSTART DEVICE - A02            COMPASS 3.7-871.     23/08/13. 15.42.35.      PAGE    26
        SYMBOLIC REFERENCE TABLE.                                     QOD 
  
        DCF            10                  18/06 D   19/18 S   19/32 S   19/45 S   22/15
        DCL             6                  18/04 D   19/14 S   19/30 S   19/44 S   21/30
        DCW            11                  18/07 D   22/13 S   22/21 S   22/24     22/31     22/48 S   22/50
        DIS          1042                  19/20     19/34     19/47     21/09 D
        DISA         1074                  19/06 S   21/26 D
        DISB         1076                  19/03 S   21/28 D
        DISX         1041                  21/09 L   21/35
        PKI          1111                  19/21     19/35     19/48     21/52 D
        PKIX         1110                  21/52 L   22/03
        PKI1         1107                  21/50 L   21/57     22/08     22/10     22/26
        PKI4         1141                  22/25 L   22/33
        PKI6         1143                  22/16     22/28 L
        QOD           741                   7/42     19/01 D
        QODX          740                  19/01 L   19/51
        QOD1          757                  19/20 L   19/22
        QOD2          771                  19/34 L   19/36
        QOD3         1002                  19/47 L   19/49
 DHE
1       DHE         CTI DISPLAY HARDWARE ERRORS - A02                 COMPASS 3.7-871.     23/08/13. 15.42.36.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
  
                         10     3177              IDENT  DHE,/CTI/LOAD
                       3207     (516)             END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  ABSOLUTE        0      3056 
                                        LITERALS  ABSOLUTE     3056       131 
  
  
  
  
                                                  IDENT  DHE,/CTI/LOAD                                           DHE         2
                                                  PERIPH                                                         DHE         3
                                 D_M              BASE   MIXED                                                   DHE         4
                                                  SST                                                            DHE         5
                                         VERID    MICRO  1,,*A02*                                                *A02*       1
                                         VERS     MICRO  1,,*"VERID"*                                       VERS VERS        3
                                                  COMMENT CTI DISPLAY HARDWARE ERRORS - "VERS"                   DIMA317L    3
                                                  COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1979               DIMA317L    4
  
  
                                        *         ALL RIGHTS RESERVED                                            CDCCRN      3
                                        *                                                                        CDCCRN      4
                                        *         CONTAINED HEREIN ARE SOFTWARE PRODUCTS COPYRIGHTED             CDCCRN      5
                                        *         BY CONTROL DATA CORPORATION.  REPRODUCTION WITHOUT             CDCCRN      6
                                        *         PERMISSION IS PROHIBITED.  THE COPYRIGHT NOTICE                CDCCRN      7
                                        *         MUST APPEAR ON ALL AUTHORIZED COMPLETE OR                      CDCCRN      8
                                        *         PARTIAL COPIES.                                                CDCCRN      9
                                        *                                                                        CDCCRN     10
1       DHE         CTI DISPLAY HARDWARE ERRORS - A02                 COMPASS 3.7-871.     23/08/13. 15.42.36.      PAGE     2
                                                                      DHE 
  
                                        *****     DHE - DISPLAY HARDWARE ERRORS                                  DIGO211     1
                                        *         R. E. DENNIS.      78/06/23.                                   DHE        10
                                        *         J. F. RIAN.        78/06/23.                                   DHE        11
  
  
  
  
                                        ***       *DHE* IS CALLED BY *PCM* OR *IOQ* IF AN ERROR BIT IS           DHE        13
                                        *         FOUND TO BE SET IN THE S/C REGISTER. IF THE ERROR              DHE        14
                                        *         IS CORRECTABLE (SINGLE BIT SECDED ERROR) *DHE*                 DHE        15
                                        *         SIMPLY CLEARS THE ERROR BIT AND LOADS THE ROUTINE              DHE        16
                                        *         IDENTIFIED BY *DHEP* AS FOLLOWS -                              DHE        17
                                        *                                                                        DHE        18
                                        *                DHEP = 0  *MAD*                                         DHE        19
                                        *                DHEP = 1  *OIP*                                         DHE        20
                                        *                DHEP = 2  *EBL*                                         DHE        21
                                        *                                                                        DHE        22
                                        *         IF THE MAINFRAME IS A C76A, C76B, OR C176,                     DHE        23
                                        *         *DHE* WILL ALSO MASTER CLEAR CM RANK II AND                    DHE        24
                                        *         RETEST THE S/C REGISTER BEFORE EXITING. THIS                   DHE        25
                                        *         IS NECESSARY BECAUSE A DOUBLE-BIT ERROR MAY BE                 DHE        26
                                        *         DETECTED AND HELD IN CM RANK I UNTIL CM RANK II                DHE        27
                                        *         IS CLEARED.                                                    DHE        28
                                        *                                                                        DHE        29
                                        *         IF THE ERROR IS UNCORRECTABLE, *DHE* WILL NOT                  DHE        30
                                        *         ALLOW THE DEADSTART PROCESS TO CONTINUE. *DHE*                 DHE        31
                                        *         WILL SAVE THE CURRENT S/C REGISTER IMAGE AND THEN              DHE        32
                                        *         CLEAR ALL ERROR BITS WHICH ARE SET.                            DHE        33
                                        *                                                                        DHE        34
                                        *         ON C76A, C76B, AND C176 MAINFRAMES, CM RANK I                  DHE        35
                                        *         AND RANK II WILL BE MASTER CLEARED IN THAT ORDER.              DHE        36
                                        *                                                                        DHE        37
                                        *         *DHE* WILL THEN DISPLAY THE SAVED S/C REGISTER                 DHE        38
                                        *         CONTENTS ON THE LEFT SCREEN IN THE FOLLOWING FORMAT -          DHE        39
                                        *                                                                        DHE        40
                                        *                DEADSTART ABORTED - FATAL ERROR                         DHE        41
                                        *         SC-0-2 YYYY YYYY YYYY YYYY YYYY.                               DHE        42
                                        *         SC-0-1 YYYY YYYY YYYY YYYY YYYY YYYY.                          DHE        43
                                        *         SC-0-0 YYYY YYYY YYYY YYYY YYYY YYYY.                          DHE        44
                                        *                                                                        DHE        45
                                        *         WHERE YYYY IS THE CONTENTS OF A WORD IN THE REGISTER, WORD     DHE        46
                                        *         0 AT THE LOWER RIGHT, WORD 16 AT THE UPPER LEFT,               DHE        47
                                        *         FOLLOWED BY THE EXPLANATIONS, THE CONTENTS OF THE              DHE        48
                                        *         CHANNEL 36 S/C REGISTER, IF IT EXISTS, IS DISPLAYED IN         DHE        49
                                        *         SIMILAR FORMAT, WITH 1 REPLACING 0 IN THE X FIELD OF           DHE        50
                                        *         SC-X-Y.  FINALLY, THE EXPLANATIONS OF THE CHANNEL              DHE        51
                                        *         36 ERROR BITS CURRENTLY SET ARE DISPLAYED.  OVERFLOW FROM      DHE        52
                                        *         THE LEFT DISPLAY SCREEN IS DISPLAYED ON THE RIGHT SCREEN,      DHE        53
                                        *         WITH AN INFORMATIVE MESSAGE DISPLAYED AT THE END OF THE        DHE        54
                                        *         MESSAGES ON THE LEFT SCREEN.  IF ALL OF THE ERROR MESSAGES     DHE        55
                                        *         CANNOT FIT ON THE TWO SCREENS, THE MESSAGES NOT SHOWING        DHE        56
                                        *         WILL APPEAR AS OTHERS ARE CLEARED.                             DHE        57
                                        *                                                                        DHE        58
                                        *                                                                        DHE        59
1       DHE         CTI DISPLAY HARDWARE ERRORS - A02                 COMPASS 3.7-871.     23/08/13. 15.42.36.      PAGE     3
  
  
                                        **        COMMON DECKS                                                   DHE        61
           0                                      CTEXT  COMPMAC - PP SYSTEM MACROS.                             COMPMAC     2
           0                             CPA      CTEXT  COMSCPA - CTI COMMON POINTER AREA DEFINITIONS.          COMSCPA     2
           0                             CTI      CTEXT  COMSCTI - CTI INTERNAL DEFINITIONS.                     COMSCTI     2
           0                                      CTEXT  COMSSCR - S/C REGISTER EQUIVALENCES.                    COMSSCR     2
           0                                      CTEXT  COMPCHI - REDEFINE I/O INSTRUCTIONS.                    COMPCHI     2
  
  
  
  
                                        *         CHANNEL EQUIVALENCES.                                          DHE        68
                                                                                                                 DHE        69
                                                                                                                 DHE        70
                                  10     CH       EQU    10          DISPLAY CHANNEL                             DHE        71
                                  15     IC       EQU    15          INTERLOCK REGISTER CHANNEL                  DHE        72
                                  16     SC       EQU    16          S/C REGISTER CHANNEL                        DHE        73
                                  16     CHSC     EQU    SC                                                      DHE        74
                                   0     MC       EQU    0           MAINTENANCE CHANNEL                         DHE        75
  
  
  
  
                                        *         ASSEMBLY CONSTANTS.                                            DHE        77
                                                                                                                 DHE        78
                                                                                                                 DHE        79
                                2000     EBUFL    EQU    2000        ERROR MESSAGE BUFFER LENGTH                 DHE        80
                                7776     YCUL     EQU    7776        Y COORDINATE UPPER LIMIT                    DHE        81
                                  12     YCIN     EQU    12          Y COORDINATE INCREMENT                      DHE        82
                                7012     YCLC     EQU    7012        Y COORDINATE LEFT SCREEN CUTOFF             DHE        83
                                                                                                                 DHE        84
                                                                                                                 DHE        85
                                        *         INSTRUCTIONS USED AS CONSTANTS.                                DHE        86
                                                                                                                 DHE        87
                                                                                                                 DHE        88
                                 100     LJMI     EQU    0100        LJM INSTRUCTION                             DHE        89
                                 300     UJNI     EQU    0300        UJN INSTRUCTION                             DHE        90
                                1400     LDNI     EQU    1400        LDN INSTRUCTION                             DHE        91
                                7000     IANI     EQU    7000        IAN INSTRUCTION                             DHE        92
                                7100     IAMI     EQU    7100        IAM INSTRUCTION                             DHE        93
                                7200     OANI     EQU    7200        OAN INSTRUCTION                             DHE        94
                                1500     LCNI     EQU    1500B       LCN INSTRUCTION                             DIMA222     1
                                3401     STDI     EQU    3401B       STD INSTRUCTION                             DIMA222     2
                                4401     STII     EQU    4401B       STI INSTRUCTION                             DIMA222     3
  
  
  
  
                                        ****      DIRECT LOCATION ASSIGNMENTS.                                   DHE        96
                                                                                                                 DHE        97
                                                                                                                 DHE        98
          10                                      ORG    /CTI/LOAD                                               DHE        99
                                   0     T0       EQU    0                                                       DHE       100
                                   1     T1       EQU    1                                                       DHE       101
                                   2     T2       EQU    2                                                       DHE       102
                                   3     T3       EQU    3                                                       DHE       103
                                   4     T4       EQU    4                                                       DHE       104
                                   5     T5       EQU    5                                                       DHE       105
1       DHE         CTI DISPLAY HARDWARE ERRORS - A02                 COMPASS 3.7-871.     23/08/13. 15.42.36.      PAGE     4
  
  
                                   6     T6       EQU    6                                                       DHE       106
                                   7     T7       EQU    7                                                       DHE       107
                                                                                                                 DHE       108
          10         3056                BA       CON    SC0B        S/C REGISTER CONTENTS BUFFER ADDRESS        DHE       109
          11         0000                NO       CON    0           CHANNEL 36 S/C REGISTER FLAG                DHE       110
          12         3120                TA       CON    TEMA        ADDRESS OF MESSAGE ADDRESS TABLE (TEMA)     DHE       111
          13         0000                BN       CON    0           BIT NUMBER                                  DHE       112
          14         0000                FF       CON    0           FATAL ERROR FLAG                            DHE       113
          15         0000                IL       CON    0           1 = IDLE LOOP SENT TO PP10                  DHE       114
                                                                                                                 DHE       115
          16         0000                RN       CON    0           REGISTER NUMBER                             DHE       116
          17         0000                MS       CON    0           MESSAGE ADDRESS                             DHE       117
          20         6140                XS       CON    6140        X COORDINATE FOR REGISTER DISPLAY           DHE       118
          21         6160                XE       CON    6160        X COORDINATE FOR MESSAGE DISPLAY            DHE       119
          22         6060                XK       CON    6060        X COORDINATE FOR KEYBOARD INPUT DISPLAY     DHE       120
          23         7764                YC       CON    7764        Y COORDINATE                                DHE       121
                                                                                                                 DHE       122
          24                      34              BSS    60-*                                                    DHE       123
                                                                                                                 DHE       124
                                                                                                                 DHE       125
                                        *         COMPSCE REQUIRED DIRECT LOCATIONS.                             DHE       126
                                                                                                                 DHE       127
                                                                                                                 DHE       128
          60         0000                C1       CON    0                                                       DHE       129
          61         0000                C2       CON    0                                                       DHE       130
          62         3241                FW       CON    EBUF        FWA OF ERROR MESSAGE BUFFER                 DHE       131
          63         2000                LW       CON    EBUFL       LWA+1 OF ERROR MESSAGE BUFFER               DHE       132
          64         0000                AM       CON    0           ADDRESS OF ERROR MESSAGE                    DHE       133
          65         3120                TE       CON    TEMA        ADDRESS IN TABLE TEMA                       DHE       134
          66         0000                BT       CON    0           FIRST BIT IN WORD BIT NUMBER                DHE       135
          67         0000                BW       CON    0           BIT NUMBER WITHIN WORD                      DHE       136
                                                                                                                 DHE       137
          70         0000                CB       CON    0           CURRENT BIT NUMBER                          DHE       138
          71         0000                WC       CON    0           S/C REGISTER WORD CONTENTS                  DHE       139
          72         0000                RW       CON    FCRD        READ CURRENT WORD FUNCTION                  DHE       140
          73         0000                CT       CON    0           NOT USED BIT TABLE FLAG                     DIMA299    43
                                                                                                                 DHE       141
                                        ****                                                                     DIGO211     2
                                                                                                                 DHE       142
                                                                                                                 DHE       143
1       DHE         CTI DISPLAY HARDWARE ERRORS - A02                 COMPASS 3.7-871.     23/08/13. 15.42.36.      PAGE     5
        DHE - MAIN PROGRAM. 
  
                                        **        DHE -  MAIN PROGRAM.                                           DHE       146
                                                                                                                 DHE       147
                                                                                                                 DHE       148
         100                                      ORG    /CTI/TRAN                                               DHE       149
                                                                                                                 DHE       150
         100         0200 3121           DHE      RJM    PRS         PRESET                                      DHE       151
         102         0200 0463                    RJM    RSC         READ S/C REGISTER(S)                        DHE       152
         104         0200 1151                    RJM    CLE         CLASSIFY ERRORS                             DHE       153
         106         3014                         LDD    FF                                                      DHE       154
         107         0522                         NJN    DHE2        IF FATAL ERRORS                             DHE       155
         110         0200 0555                    RJM    CEB         CLEAR ERRORS                                DHE       156
         112         5000 7673                    LDM    /CPA/OPTN                                               DHE       157
         114         1066                         SHN    -11                                                     DHE       158
         115         1203                         LPN    3                                                       DHE       159
         116         0411                         ZJN    DHE1        IF NOT A CYBER 176                          DHE       160
         117         0200 0463                    RJM    RSC         READ S/C REGISTER(S)                        DHE       161
         121         0200 1151                    RJM    CLE         CLASSIFY ERRORS                             DHE       162
         123         3014                         LDD    FF                                                      DHE       163
         124         0505                         NJN    DHE2        IF FATAL ERRORS                             DHE       164
         125         0200 0555                    RJM    CEB         CLEAR ERRORS                                DHE       165
         127         0100 0256           DHE1     LJM    LNP         LOAD NEXT PROGRAM                           DHE       166
                                                                                                                 DHE       167
                                        *         SET UP ERROR MESSAGES.                                         DHE       168
                                                                                                                 DHE       169
         131         5000 7673           DHE2     LDM    /CPA/OPTN                                               DIMA290     1
         133         1066                         SHN    -11                                                     DIMA290     2
         134         1203                         LPN    3                                                       DIMA290     3
         135         0412                         ZJN    DHE2.5      IF NOT A CYBER176                           DIMA290     4
                                        *                            THE FOLLOWING IDLE PP10 CODE                DIMA290     5
                                        *                            SEQUENCE IS REQUIRED TO                     DIMA290     6
                                        *                            RELEASE PP10 FROM THE SCANNER               DIMA290     7
                                        *                            CHANNEL ON A C176.  THIS                    DIMA290     8
                                        *                            CONDITION WAS ESTABLISHED IN                DIMA290     9
                                        *                            PRESET OF DHE.                              DIMA290    10
         136         7410                         ACN.   CH                                                      DIMA290    11
         137         7400                         ACN.   MC                                                      DIMA290    12
         140         1402                         LDN    DHEAL                                                   DIMA290    13
         141         7310 0254                    OAM.   DHEA,CH     IDLE PP10                                   DIMA290    14
         143         6610 0143                    FJM.   *,CH                                                    DIMA290    15
         145         7550                         DCN.   CH+40                                                   DIMA290    16
         146         7540                         DCN.   MC+40                                                   DIMA290    17
         147         2000 2000           DHE2.5   LDC    EBUFL       SET BUFFER LENGTH                           DIMA290    18
         151         3463                         STD    LW                                                      DHE       171
         152         2000 3120                    LDC    TEMA        SET FWA OF ADDRESS TABLE                    DHE       172
         154         3465                         STD    TE                                                      DHE       173
         155         3401                         STD    T1          INITIALIZATION FWA                          DIMA222     4
         156         4401                DHE2A    STI    T1                                                      DIMA222     5
         157         3601                         AOD    T1                                                      DIMA222     6
         160         2300 6000                    LMC    /CTI/IPLB   INITIALIZATION LWA                          DIMA222     7
         162         0573                         NJN    DHE2A                                                   DIMA222     8
         163         2000 3241                    LDC    EBUF        SET BUFFER FWA                              DHE       174
         165         0200 1526                    RJM    SCE         PROCESS S/C REGISTER ERRORS                 DHE       175
         167         0200 1304                    RJM    HPP                                                     DIMA222     9
         171         0200 0555                    RJM    CEB         CLEAR ERRORS                                DIMA403     1
         173         2000 6000                    LDC    FCCA        CLEAR ALL BITS                              DIMA222    10
         175         7276                         OAN    SC+40B+20B                                              DIMA222    11
         176         7076                         IAN    SC+40B+20B                                              DIMA222    12
1       DHE         CTI DISPLAY HARDWARE ERRORS - A02                 COMPASS 3.7-871.     23/08/13. 15.42.36.      PAGE     6
        DHE - MAIN PROGRAM. 
  
         177         2000 6000                    LDC    FCCA        CLEAR ALL SCR0 CONTROL BITS                 DIMA403     2
         201         7256                         OAN    SC+40B                                                  DIMA222    13
         202         7056                         IAN    SC+40B                                                  DIMA222    14
                                                                                                                 DHE       177
                                        *         DISPLAY CHANNEL 16 S/C REGISTER AND ERROR MESSAGES.            DHE       178
                                                                                                                 DHE       179
         203         2000 7764           DHE3     LDC    YCUL-YCIN   SET Y COORDINATE                            DHE       180
         205         3423                         STD    YC                                                      DHE       181
         206         2000 7000                    LDC    7000        SELECT LEFT SCREEN                          DHE       182
         210         5400 1122                    STM    DCLA                                                    DHE       183
         212         2000 3056                    LDC    SC0B        SET CHANNEL 16 S/C REGISTER BUFFER          DHE       184
         214         3410                         STD    BA                                                      DHE       185
         215         2000 1472                    LDC    DMSC        *DEADSTART ABORTED - FATAL ERROR.*          DHE       186
         217         3417                         STD    MS                                                      DHE       187
         220         2000 6070                    LDC    6000+7*10                                               DHE       188
         222         0200 1115                    RJM    DCL                                                     DHE       189
         224         1512                         LCN    YCIN        SKIP ONE LINE                               DHE       190
         225         3523                         RAD    YC                                                      DHE       191
         226         1400                         LDN    0           DISPLAY REGISTER CONTENTS                   DHE       192
         227         0200 0402                    RJM    DRC                                                     DHE       193
         231         2000 3120                    LDC    TEMA        SET ADDRESS OF MESSAGE ADDRESS TABLE        DHE       194
         233         3412                         STD    TA                                                      DHE       195
         234         1400                         LDN    0           DISPLAY ERROR MESSAGES                      DHE       196
         235         0200 0355                    RJM    DEM                                                     DHE       197
                                                                                                                 DHE       198
                                        *         DISPLAY CHANNEL 36 S/C REGISTER AND ERROR MESSAGES.            DHE       199
                                                                                                                 DHE       200
         237         3011                         LDD    NO                                                      DHE       201
         240         0442                         ZJN    DHE3        IF NO CHANNEL 36 S/C REGISTER               DHE       202
         241         2000 3077                    LDC    SC1B        SET BUFFER ADDRESS FOR CHANNEL 36 REGISTER  DHE       203
         243         3410                         STD    BA                                                      DHE       204
         244         1401                         LDN    1           DISPLAY REGISTER CONTENTS                   DHE       205
         245         0200 0402                    RJM    DRC                                                     DHE       206
         247         1401                         LDN    1           DISPLAY ERROR MESSAGES                      DHE       207
         250         0200 0355                    RJM    DEM                                                     DHE       208
         252         0100 0203                    LJM    DHE3                                                    DHE       209
                                                                                                                 DIMA290    19
         254                       1     DHEA     BSSZ   1           PP10 IDLE PROGRAM                           DIMA290    20
         255         0300                         CON    0300B                                                   DIMA290    21
                                   2     DHEAL    EQU    *-DHEA                                                  DIMA290    22
1       DHE         CTI DISPLAY HARDWARE ERRORS - A02                 COMPASS 3.7-871.     23/08/13. 15.42.36.      PAGE     7
        DHE - MAIN PROGRAM.                                           LNP 
  
                                        **        LNP - LOAD NEXT PROGRAM.                                       DHE       211
                                        *                                                                        DHE       212
                                        *         ENTRY  (DHEP) = 0  CALL *MAD*.                                 DHE       213
                                        *                       = 1  CALL *OIP*.                                 DHE       214
                                        *                       = 2  CALL *EBL*.                                 DHE       215
                                        *                                                                        DHE       216
                                        *         EXIT   TO SPECIFIED PROGRAM.                                   DHE       217
                                        *                                                                        DHE       218
                                        *         USES   T1.                                                     DHE       219
                                        *                                                                        DHE       220
                                        *         CALLS  CDS.                                                    DHE       221
                                                                                                                 DHE       222
                                                                                                                 DHE       223
         256         5000 0353           LNP      LDM    LNPE        RESTORE /CPA/OPTN WORD                      DIGO205     1
         260         5400 7673                    STM    /CPA/OPTN                                               DHE       226
         262         5000 6776                    LDM    /CTI/DHEP                                               DHE       227
         264         3401                         STD    T1                                                      DHE       228
         265         1703                         SBN    3                                                       DHE       229
         266         0722                         MJN    LNP1        IF VALID PROGRAM NUMBER                     DHE       230
         267         7710 7001           LPN.1    FNC.   7001,CH     FUNCTION DISPLAY                            DIGO205     2
         271         7410                         ACN.   CH                                                      DIGO205     3
         272         3021                         LDD    XE          OUTPUT X COORDINATE                         DIGO205     4
         273         7210                         OAN.   CH                                                      DIGO205     5
         274         3023                         LDD    YC          OUTPUT Y COORDINATE                         DIGO205     6
         275         7210                         OAN.   CH                                                      DIGO205     7
         276         2000 0013                    LDC    MSGAL                                                   DIGO205     8
         300         7310 0316                    OAM.   MSGA,CH     OUTPUT MESSAGE                              DIGO205     9
         302         6610 0302                    FJM.   *,CH                                                    DIGO205    10
         304         7510                         DCN.   CH                                                      DIGO205    11
         305         1740                         SBN    40B         DELAY TO REDUCE INTENSITY                   DIGO205    12
         306         0776                         MJN    *-1                                                     DIGO205    13
         307         0357                         UJN    LPN.1       LOOP ON DISPLAY                             DIGO205    14
         310         0200 0536           LNP1     RJM    CDS         CLEAR DISPLAY                               DIGO205    15
         312         5001 0331                    LDM    LNPA,T1                                                 DIGO205    16
         314         0100 7000                    LJM    /CTI/CDEP   CALL DRIVER                                 DHE       233
                                                                                                                 DIGO205    17
                                 316     MSGA     EQU    *                                                       DIGO205    18
         316         1116                         DATA   H*INVALID PROGRAM NUMBER*                               DIGO205    19
                                  13     MSGAL    EQU    *-MSGA                                                  DIGO205    20
                                                                                                                 DHE       234
         331         0334                LNPA     CON    LNPB                                                    DHE       235
         332         0341                         CON    LNPC                                                    DHE       236
         333         0346                         CON    LNPD                                                    DHE       237
                                                                                                                 DHE       238
         334         0010                LNPB     CON    /CTI/LOAD   CDIB                                        DHE       239
         335         0100                         CON    /CTI/TRAN   CDTA                                        DHE       240
         336         0000                         CON    0           CDRW                                        DHE       241
         337         1501                         DATA   L*MAD*      CDNC                                        DHE       242
                                                                                                                 DHE       243
         341         0010                LNPC     CON    /CTI/LOAD   CDIB                                        DHE       244
         342         0100                         CON    /CTI/TRAN   CDTA                                        DHE       245
         343         0001                         CON    1           CDRW                                        DHE       246
         344         1711                         DATA   L*OIP*      CDNC                                        DHE       247
                                                                                                                 DHE       248
         346         0200                LNPD     CON    /CTI/EBLLOAD   CDIB                                     DHE       249
         347         0200                         CON    /CTI/EBLLOAD   CDTA                                     DHE       250
         350         0000                         CON    0           CDRW                                        DHE       251
1       DHE         CTI DISPLAY HARDWARE ERRORS - A02                 COMPASS 3.7-871.     23/08/13. 15.42.36.      PAGE     8
        DHE - MAIN PROGRAM.                                           LNP 
  
         351         0502                         DATA   L*EBL*      CDNC                                        DHE       252
                                                                                                                 DHE       253
         353                       1     LNPE     BSS    1           SAVED /CPA/OPTN WORD                        DHE       254
1       DHE         CTI DISPLAY HARDWARE ERRORS - A02                 COMPASS 3.7-871.     23/08/13. 15.42.36.      PAGE     9
        PRIMARY SUBROUTINES.                                          DEM 
  
                                        **        DEM - DISPLAY ERROR MESSAGES.                                  DHE       257
                                        *                                                                        DHE       258
                                        *         ENTRY  (A) = 0 IF CHANNEL 16, 1 IF CHANNEL 36.                 DHE       259
                                        *                (TA) = ADDRESS IN MESSAGE ADDRESS TABLE.                DHE       260
                                        *                (XE) = X COORDINATE OF ERROR MESSAGES.                  DHE       261
                                        *                (YC) = Y COORDINATE.                                    DHE       262
                                        *                                                                        DHE       263
                                        *         EXIT   (TA) = ADDRESS OF NEXT ADDRESS IN TABLE.                DHE       264
                                        *                                                                        DHE       265
                                        *         USES   T5, T6, MS, YC.                                         DHE       266
                                        *                                                                        DHE       267
                                        *         CALLS  CFO, DCL.                                               DHE       268
                                                                                                                 DHE       269
                                                                                                                 DHE       270
         354         0100 0354           DEM      SUBR               ENTRY/EXIT                                  DHE       271
         356         1006                         SHN    6           SET REGISTER CHECK                          DHE       272
         357         2100 3355                    ADC    2R0                                                     DHE       273
         361         3405                         STD    T5                                                      DHE       274
         362         1512                         LCN    YCIN        SET Y COORDINATE                            DHE       275
         363         3523                         RAD    YC                                                      DHE       276
         364         4012                DEM1     LDI    TA          GET NEXT MESSAGE ADDRESS                    DHE       277
         365         0466                         ZJN    DEMX        IF END OF MESSAGES                          DHE       278
         366         3406                         STD    T6                                                      DHE       279
         367         4006                         LDI    T6          CHECK IF CORRECT REGISTER                   DHE       280
         370         3305                         LMD    T5                                                      DHE       281
         371         0562                         NJN    DEMX        IF END OF REGISTER MESSAGES                 DHE       282
         372         3606                         AOD    T6          SET MESSAGE SECOND WORD ADDRESS             DHE       283
         373         3417                         STD    MS                                                      DHE       284
         374         3021                         LDD    XE          SET X COORDINATE                            DHE       285
         375         0200 1115                    RJM    DCL         DISPLAY CODED LINE                          DHE       286
         377         3612                         AOD    TA                                                      DHE       287
         400         0363                         UJN    DEM1        LOOP FOR NEXT MESSAGE                       DHE       288
  
  
  
  
                                        **        DRC - DISPLAY REGISTER CONTENTS.                               DHE       290
                                        *                                                                        DHE       291
                                        *         ENTRY  (A) = 0 IF CHANNEL 16, 1 IF CHANNEL 36.                 DHE       292
                                        *                (XS) = X COORDINATE FOR REGISTER CONTENTS DISPLAY.      DHE       293
                                        *                (YC) = Y COORDINATE FOR REGISTER CONTENTS MESSAGE.      DHE       294
                                        *                                                                        DHE       295
                                        *         USES   T2, T3, T4, MS.                                         DHE       296
                                        *                                                                        DHE       297
                                        *         CALLS  DCL, PDB, PDC.                                          DHE       298
                                                                                                                 DHE       299
                                                                                                                 DHE       300
         401         0100 0401           DRC      SUBR               ENTRY/EXIT                                  DHE       301
         403         2100 4633                    ADC    2R-0        SET REGISTER NUMBER IN MESSAGE              DHE       302
         405         5400 1447                    STM    DMSA+1                                                  DHE       303
         407         2000 4635                    LDC    2R-2        SET LINE NUMBER                             DHE       304
         411         5400 1450                    STM    DMSA+2                                                  DHE       305
         413         1403                         LDN    3           BYTE POSITIONS IN FIRST MESSAGE             DHE       306
         414         3402                         STD    T2                                                      DHE       307
         415         2000 1451           DRC1     LDC    DMSA+3      MESSAGE INDEX                               DHE       308
         417         3404                         STD    T4                                                      DHE       309
         420         1403                         LDN    3           BYTE POSITION IN SECOND AND THIRD MESSAGES  DHE       310
1       DHE         CTI DISPLAY HARDWARE ERRORS - A02                 COMPASS 3.7-871.     23/08/13. 15.42.36.      PAGE    10
        PRIMARY SUBROUTINES.                                          DRC 
  
         421         3403                         STD    T3                                                      DHE       311
                                                                                                                 DHE       312
                                        *         SET REGISTER CONTENTS IN MESSAGE.                              DHE       313
                                                                                                                 DHE       314
         422         0200 1370           DRC2     RJM    PDB         POSITION TO DISPLAY WITH BLANK              DHE       315
         424         3702                         SOD    T2                                                      DHE       316
         425         0430                         ZJN    DRC4        IF FIRST MESSAGE BYTES DONE                 DHE       317
         426         0200 1423                    RJM    PDC         POSITION TO DISPLAY                         DHE       318
         430         3703                         SOD    T3                                                      DHE       319
         431         0570                         NJN    DRC2        IF NOT END OF MESSAGE                       DHE       320
         432         2000 5755                    LDC    2R.         PLACE PERIOD (.) AT END OF MESSAGE          DHE       321
                                                                                                                 DHE       322
                                        *         DISPLAY MESSAGE.                                               DHE       323
                                                                                                                 DHE       324
         434         4404                DRC3     STI    T4                                                      DHE       325
         435         3604                         AOD    T4                                                      DHE       326
         436         1400                         LDN    0           END MESSAGE WITH BYTE OF ZEROS              DHE       327
         437         4404                         STI    T4                                                      DHE       328
         440         2000 1446                    LDC    DMSA        SET MESSAGE ADDRESS                         DHE       329
         442         3417                         STD    MS                                                      DHE       330
         443         3020                         LDD    XS          SET X COORDINATE                            DHE       331
         444         0200 1115                    RJM    DCL         DISPLAY CODED LINE                          DHE       332
         446         5700 1450                    SOM    DMSA+2      DECREMENT MESSAGE TO NEXT LINE              DHE       333
         450         1277                         LPN    77          CHECK IF ENTIRE REGISTER DISPLAYED          DHE       334
         451         1132                         LMN    1R0-1                                                   DHE       335
         452         0542                         NJN    DRC1        IF NOT DONE WITH REGISTER                   DHE       336
         453         0100 0401                    LJM    DRCX        RETURN                                      DHE       337
                                                                                                                 DHE       338
         455         3704                DRC4     SOD    T4          TERMINATE MESSAGE WITH PERIOD (.)           DHE       339
         456         4004                         LDI    T4                                                      DHE       340
         457         1377                         SCN    77                                                      DHE       341
         460         1157                         LMN    1R.                                                     DHE       342
         461         0352                         UJN    DRC3        LOOP FOR NEXT MESSAGE                       DHE       343
  
  
  
  
                                        **        RSC - READ S/C REGISTER(S).                                    DHE       345
                                        *                                                                        DHE       346
                                        *         ENTRY  NONE.                                                   DHE       347
                                        *                                                                        DHE       348
                                        *         EXIT   (SC0B) = CHANNEL 16 S/C REGISTER.                       DHE       349
                                        *                (SC1B) = CHANNEL 36 S/C REGISTER.                       DHE       350
                                        *                                                                        DHE       351
                                        *         USES   NONE.                                                   DHE       352
                                        *                                                                        DHE       353
                                        *         CALLS  CCH, RER.                                               DHE       354
                                                                                                                 DHE       355
                                                                                                                 DHE       356
         462         0100 0462           RSC      SUBR               ENTRY/EXIT                                  DHE       357
         464         1400                         LDN    0           CHANGE TO CHANNEL 16                        DHE       358
         465         0200 0522                    RJM    CCH                                                     DHE       359
         467         2000 3056                    LDC    SC0B        SET CHANNEL 16 S/C REGISTER BUFFER          DHE       360
         471         0200 0505                    RJM    RER         READ REGISTER                               DHE       361
         473         3011                         LDD    NO                                                      DHE       362
         474         0465                         ZJN    RSCX        RETURN IF NO CHANNEL 36 S/C REGISTER        DHE       363
         475         0200 0522                    RJM    CCH         CHANGE CHANNEL                              DHE       364
1       DHE         CTI DISPLAY HARDWARE ERRORS - A02                 COMPASS 3.7-871.     23/08/13. 15.42.36.      PAGE    11
        PRIMARY SUBROUTINES.                                          RSC 
  
         477         2000 3077                    LDC    SC1B        SET CHANNEL 36 S/C REGISTER BUFFER          DHE       365
         501         0200 0505                    RJM    RER         READ REGISTER                               DHE       366
         503         0356                         UJN    RSCX        RETURN                                      DHE       367
  
  
  
  
                                        **        RER - READ S/C REGISTER.                                       DHE       369
                                        *                                                                        DHE       370
                                        *         ENTRY  (A) = BUFFER ADDRESS FOR REGISTER CONTENTS.             DHE       371
                                        *                                                                        DHE       372
                                        *         EXIT   S/C REGISTER READ.                                      DHE       373
                                        *                                                                        DHE       374
                                        *         USES   T1, BA.                                                 DHE       375
                                        *                                                                        DHE       376
                                        *         CALLS  SFC.                                                    DHE       377
                                                                                                                 DHE       378
                                                                                                                 DHE       379
         504         0100 0504           RER      SUBR               ENTRY/EXIT                                  DHE       380
         506         3410                         STD    BA                                                      DHE       381
         507         2000 0020                    LDC    FCRD+NSCB-1 SET CODE TO READ LAST WORD IN REGISTER      DHE       382
         511         3401                         STD    T1                                                      DHE       383
         512         0200 1442           RER1     RJM    SFC         SEND FUNCTION                               DHE       384
         514         4410                         STI    BA          STORE IN BUFFER                             DHE       385
         515         3610                         AOD    BA                                                      DHE       386
         516         3701                         SOD    T1          SET NEXT WORD                               DHE       387
         517         0672                         PJN    RER1        IF NOT ALL WORDS READ                       DHE       388
         520         0363                         UJN    RERX        RETURN                                      DHE       389
  
  
  
  
                                        **        CCH - CHANGE CHANNEL.                                          DHE       391
                                        *                                                                        DHE       392
                                        *         ENTRY  (A) = 0 IF CHANNEL 16, 1 IF CHANNEL 36.                 DHE       393
                                        *                                                                        DHE       394
                                        *         EXIT   CHANNEL CHANGED IN CHANNEL INSTRUCTIONS OF *SFC*.       DHE       395
                                        *                                                                        DHE       396
                                        *         USES   NONE.                                                   DHE       397
                                        *                                                                        DHE       398
                                        *         CALLS  NONE.                                                   DHE       399
                                                                                                                 DHE       400
                                                                                                                 DHE       401
         521         0100 0521           CCH      SUBR               ENTRY/EXIT                                  DHE       402
         523         1004                         SHN    4           SET UP OAN INSTRUCTION                      DHE       403
         524         2300 7256                    LMC    OANI+SC+40                                              DHE       404
         526         5400 1443                    STM    SFCA                                                    DHE       405
         530         2300 0200                    LMC    IANI&OANI   SET UP IAN INSTRUCTION                      DHE       406
         532         5400 1444                    STM    SFCB                                                    DHE       407
         534         0364                         UJN    CCHX        RETURN                                      DHE       408
  
  
  
  
                                        **        CDS - CLEAR DISPLAY.                                           DHE       410
                                        *                                                                        DHE       411
                                        *         ENTRY  PP 10 ON CHANNEL 0.                                     DHE       412
1       DHE         CTI DISPLAY HARDWARE ERRORS - A02                 COMPASS 3.7-871.     23/08/13. 15.42.36.      PAGE    12
        PRIMARY SUBROUTINES.                                          CDS 
  
                                        *                CHANNEL 10 USED FOR DISPLAY.                            DHE       413
                                        *                                                                        DHE       414
                                        *         EXIT   PP 10 ON CHANNEL 10.                                    DHE       415
                                        *                                                                        DHE       416
                                        *         USES   NONE.                                                   DHE       417
                                        *                                                                        DHE       418
                                        *         CALLS  NONE.                                                   DHE       419
                                                                                                                 DHE       420
                                                                                                                 DHE       421
         535         0100 0535           CDS      SUBR               ENTRY/EXIT                                  DHE       422
         537         7710 0000                    FNC.   0,CH                                                    DHE       423
         541         2000 1000                    LDC    1000        DELAY                                       DHE       424
         543         1701                         SBN    1                                                       DHE       425
         544         0576                         NJN    *-1                                                     DHE       426
         545         7550                         DCN.   CH+40                                                   DHE       427
         546         3015                         LDD    IL                                                      DHE       428
         547         0465                         ZJN    CDSX        IF IDLE LOOP NOT SENT TO PP10               DHE       429
         550         7410                         ACN.   CH          MOVE PP10 TO CHANNEL 10                     DHE       430
         551         7400                         ACN.   0                                                       DHE       431
         552         7540                         DCN.   0+40                                                    DHE       432
         553         0361                         UJN    CDSX        RETURN                                      DHE       433
  
  
  
  
                                        **        CEB - CLEAR ALL ERROR BITS.                                    DHE       435
                                        *                                                                        DHE       436
                                        *         ENTRY  (NO) = 0 IF NO CHANNEL 36 S/C REGISTER.                 DHE       437
                                        *                (NO) = 1 IF CHANNEL 36 S/C REGISTER EXISTS.             DHE       438
                                        *                                                                        DHE       439
                                        *         EXIT   ALL ERROR BITS IN S/C REGISTER(S)                       DHE       440
                                        *                AND SECDED ERRORS CLEARED.                              DHE       441
                                        *                                                                        DHE       442
                                        *         USES   BN, RN.                                                 DHE       443
                                        *                                                                        DHE       444
                                        *         CALLS  CCH, CLS, SFC.                                          DHE       445
                                                                                                                 DHE       446
                                                                                                                 DHE       447
         554         0100 0554           CEB      SUBR               ENTRY/EXIT                                  DHE       448
         556         3011                         LDD    NO          INITIALIZE NOT-BOTH-REGISTERS-CLEARED       DHE       449
         557         3416                         STD    RN                                                      DHE       450
         560         0200 0522           CEB1     RJM    CCH         CHANGE CHANNEL                              DHE       451
         562         2000 0167                    LDC    0167B       CLEAR BIT 119                               DIMA222    15
         564         3413                         STD    BN                                                      DIMA222    16
         565         3016                         LDD    RN                                                      DIMA222    17
         566         0200 0711                    RJM    CLS                                                     DIMA222    18
         570         0200 1442                    RJM    SFC                                                     DIMA222    19
         572         1400                         LDN    0           SET BIT NUMBER                              DHE       452
         573         3413                         STD    BN                                                      DHE       453
         574         3016                CEB2     LDD    RN          CLEAR SECDED ERROR AND FLPP ERROR           DHE       454
         575         0200 0711                    RJM    CLS                                                     DHE       455
         577         0200 1442                    RJM    SFC         SEND FUNCTION                               DHE       456
         601         3613                         AOD    BN          ADVANCE BIT NUMBER                          DHE       457
         602         1750                         SBN    NTEB                                                    DHE       458
         603         0770                         MJN    CEB2        IF NOT ALL ERROR BITS CLEARED               DHE       459
         604         3716                         SOD    RN                                                      DHE       460
         605         0652                         PJN    CEB1        IF SECOND PPS TO PROCESS                    DHE       461
1       DHE         CTI DISPLAY HARDWARE ERRORS - A02                 COMPASS 3.7-871.     23/08/13. 15.42.36.      PAGE    13
        PRIMARY SUBROUTINES.                                          CEB 
  
         606         0345                         UJN    CEBX                                                    DHE       462
  
  
  
  
                                        **        CFO - CHECK FOR LEFT SCREEN OVERFLOW.                          DHE       464
                                        *                                                                        DHE       465
                                        *         ENTRY  (YC) = Y COORDINATE VALUE.                              DHE       466
                                        *                                                                        DHE       467
                                        *         EXIT   IF OVERFLOW DETECTED,                                   DHE       468
                                        *                (DCLA) = 7100 TO SELECT RIGHT SCREEN.                   DHE       469
                                        *                (YC) = RESET TO TOP OF SCREEN.                          DHE       470
                                        *                *MORE ON RIGHT SCREEN* DISPLAYED ON LEFT SCREEN.        DHE       471
                                        *                                                                        DHE       472
                                        *         CALLS  NONE.                                                   DHE       473
                                                                                                                 DHE       474
                                                                                                                 DHE       475
         607         0100 0607           CFO      SUBR               ENTRY/EXIT                                  DHE       476
         611         3023                         LDD    YC          CHECK Y COORDINATE                          DHE       477
         612         2177 0765                    ADC    -YCLC                                                   DHE       478
         614         0672                         PJN    CFOX        IF NOT AT END OF LEFT SCREEN                DHE       479
         615         7710 7000                    FNC.   7000,CH     DISPLAY *MORE ON RIGHT SCREEN*              DHE       480
         617         7410                         ACN.   CH                                                      DHE       481
         620         3023                         LDD    YC                                                      DHE       482
         621         7210                         OAN.   CH                                                      DHE       483
         622         1414                         LDN    CFOAL                                                   DHE       484
         623         7310 0640                    OAM.   CFOA,CH                                                 DHE       485
         625         6610 0625                    FJM    *,CH                                                    DIMA222    20
         627         7510                         DCN    CH                                                      DIMA222    21
         630         2000 7100                    LDC    7100        SET FUNCTION FOR RIGHT SCREEN               DHE       486
         632         5400 1122                    STM    DCLA                                                    DHE       487
         634         2000 7764                    LDC    YCUL-YCIN   RESET TOP OF SCREEN                         DHE       488
         636         3423                         STD    YC                                                      DHE       489
         637         0347                         UJN    CFOX        RETURN                                      DHE       490
                                                                                                                 DHE       491
         640         6500                CFOA     CON    6500                                                    DHE       492
         641         1517                         DATA   C*MORE ON RIGHT SCREEN*                                 DHE       493
                                  14     CFOAL    EQU    *-CFOA                                                  DHE       494
1       DHE         CTI DISPLAY HARDWARE ERRORS - A02                 COMPASS 3.7-871.     23/08/13. 15.42.36.      PAGE    14
        PRIMARY SUBROUTINES.                                          CLS 
  
                                        **        CLS - CLEAR SECDED ERROR BITS AND FLPP ERRORS.                 DHE       496
                                        *                                                                        DHE       497
                                        *         ENTRY  (A) .NE. 0 IF CHANNEL 36 FUNCTION.                      DHE       498
                                        *                (BN) = BIT NUMBER.                                      DHE       499
                                        *                                                                        DHE       500
                                        *         EXIT   (A) = CLEAR BIT FUNCTION SET FOR BIT (BN).              DHE       501
                                        *                DOUBLE SECDED ERROR BIT CLEARED FOR CYBER 171 - 175.    DHE       502
                                        *                CLEAR RANK BIT(S) SET AND CLEARED FOR CYBER 176.        DHE       503
                                        *                ERRORS FOUND AND CLEARED FOR FLPP-S FOR CYBER 176.      DHE       504
                                        *                                                                        DHE       505
                                        *         USES   T3.                                                     DHE       506
                                        *                                                                        DHE       507
                                        *         CALLS  CCH, IPN, SFC.                                          DHE       508
                                                                                                                 DHE       509
                                                                                                                 DHE       510
                                        *         CLEAR SECDED ERROR ON CYBER 171 - 175.                         DHE       511
                                                                                                                 DHE       512
         654         3013                CLS6     LDD    BN          CHECK IF SECDED ERROR BIT                   DHE       513
         655         1703                         SBN    SECD                                                    DHE       514
         656         0527                         NJN    CLS9        IF NOT SECDED BIT                           DIMA290A    1
         657         2000 2267                    LDC    FCCL+SDSC   CLEAR DOUBLE BIT ERROR                      DHE       516
         661         0200 1442                    RJM    SFC         SEND FUNCTION                               DHE       517
         663         0322                         UJN    CLS9        CLEAR ERROR BIT                             DIMA290A    2
                                                                                                                 DHE       519
                                        *         CLEAR FLPP ERRORS ON CYBER 176.                                DHE       520
                                                                                                                 DHE       521
         664         1400                CLS7     LDN    0           INITIALIZE (PPU NUMBER TO 1)                DIMA290    23
         665         3403                         STD    T3                                                      DIMA290    24
         666         2000 2073                    LDC    FCCL+DDFP   CLEAR DEADSTART DUMP BIT                    DIMA290    25
         670         0200 1442                    RJM    SFC                                                     DIMA290    26
         672         3603                CLS8     AOD    T3                                                      DIMA290    27
         673         0200 1056                    RJM    ASE         ACTIVATE SCANNER ENABLE                     DIMA290    28
         675         1472                         LDN    DSFP        DEADSTART LOAD PPU FUNCTION                 DIMA290    29
         676         0200 1012                    RJM    DSP                                                     DIMA290    30
         700         0200 1046                    RJM    CSE         CLEAR SCANNER ENABLE AND CHANNEL            DIMA290    31
         702         3003                         LDD    T3                                                      DIMA290    32
         703         1115                         LMN    15                                                      DIMA290    33
         704         0565                         NJN    CLS8        IF NOT ALL PPU-S                            DIMA290    34
         705         2000 2000           CLS9     LDC    FCCL        CLEAR BIT FUNCTION                          DHE       544
         707         3113                         ADD    BN                                                      DHE       545
                                                                                                                 DHE       546
         710         0100 0710           CLS      SUBR               ENTRY/EXIT                                  DHE       547
         712         0572                         NJN    CLS9        IF CHANNEL 36                               DHE       548
         713         5000 7673                    LDM    /CPA/OPTN                                               DHE       549
         715         1066                         SHN    -11                                                     DHE       550
         716         1203                         LPN    3                                                       DHE       551
         717         0503                         NJN    CLS1        IF A CYBER 176                              DHE       552
         720         0100 0654                    LJM    CLS6                                                    DHE       553
                                                                                                                 DHE       554
                                        *         CLEAR SECDED ERROR ON CYBER 176.                               DHE       555
                                                                                                                 DHE       556
         722         3013                CLS1     LDD    BN          CHECK CM SECDED ERROR BIT                   DHE       557
         723         1703                         SBN    SECD                                                    DHE       558
         724         0436                         ZJN    CLS4        IF CM SECDED ERROR                          DHE       559
         725         1701                         SBN    PPUE-SECD   CHECK IF PPU ERROR                          DHE       560
         726         0503                         NJN    CLS2        IF NOT PPU ERROR                            DHE       561
         727         0100 0664                    LJM    CLS7                                                    DHE       562
1       DHE         CTI DISPLAY HARDWARE ERRORS - A02                 COMPASS 3.7-871.     23/08/13. 15.42.36.      PAGE    15
        PRIMARY SUBROUTINES.                                          CLS 
  
         731         1707                CLS2     SBN    LSCD-PPUE   CHECK IF LCM SECDED ERROR BIT               DHE       563
         732         0552                         NJN    CLS9        IF NOT LCM SECDED ERROR                     DHE       564
         733         1420                         LDN    FCRD+LDSW   TEST LCME DOUBLE BIT ERROR                  DHE       565
         734         0200 1442                    RJM    SFC                                                     DHE       566
         736         1015                         SHN    21-4                                                    DHE       567
         737         0611                         PJN    CLS3        IF SINGLE BIT LCME ERROR                    DHE       568
         740         2000 4261                    LDC    FCSB+LCRO   SET LCME RANK 1 ERROR CLEAR BIT             DHE       569
         742         0200 1442                    RJM    SFC                                                     DHE       570
         744         2000 2261                    LDC    FCCL+LCRO   CLEAR LCME RANK 1 ERROR CLEAR BIT           DHE       571
         746         0200 1442                    RJM    SFC                                                     DHE       572
         750         2000 4260           CLS3     LDC    FCSB+LCRT   SET LCME RANK 2 ERROR CLEAR BIT             DHE       573
         752         0200 1442                    RJM    SFC                                                     DHE       574
         754         2000 2260                    LDC    FCCL+LCRT   CLEAR LCME RANK 2 ERROR CLEAR BIT           DHE       575
         756         0200 1442                    RJM    SFC                                                     DHE       576
         760         0100 0705                    LJM    CLS9                                                    DHE       577
                                                                                                                 DHE       578
                                                                                                                 DHE       579
         762         1417                CLS4     LDN    FCRD+CDSW   TEST CM DOUBLE ERROR BIT                    DHE       580
         763         0200 1442                    RJM    SFC         SEND FUNCTION                               DHE       581
         765         1016                         SHN    21-3                                                    DHE       582
         766         0611                         PJN    CLS5        IF SINGLE BIT ERROR                         DHE       583
         767         2000 4251                    LDC    FCSB+CCRO   SET CM RANK I CLEAR BIT                     DHE       584
         771         0200 1442                    RJM    SFC         SEND FUNCTION                               DHE       585
         773         2000 2251                    LDC    FCCL+CCRO   CLEAR CM RANK I CLEAR BIT                   DHE       586
         775         0200 1442                    RJM    SFC         SEND FUNCTION                               DHE       587
         777         2000 4250           CLS5     LDC    FCSB+CCRT   SET CM RANK II CLEAR BIT                    DHE       588
        1001         0200 1442                    RJM    SFC         SEND FUNCTION                               DHE       589
        1003         2000 2250                    LDC    FCCL+CCRT   CLEAR CM RANK II CLEAR BIT                  DHE       590
        1005         0200 1442                    RJM    SFC                                                     DHE       591
        1007         0100 0705                    LJM    CLS9                                                    DHE       592
  
  
  
  
                                        **        DSP  - DEADSTART FIRST LEVEL PPU-S.                            DIMA290    36
                                        *                                                                        DIMA290    37
                                        *         ENTRY  (A)  =  FUNCTION.                                       DIMA290    38
                                        *                                                                        DIMA290    39
                                        *         EXIT   PPU DEADSTARTED AND PPU                                 DIMA290    40
                                        *                ERROR STATUS CLEARED.                                   DIMA290    41
                                        *                                                                        DIMA290    42
                                        *                                                                        DIMA290    43
                                        *         CALLS  SFC,IPN.                                                DIMA290    44
                                                                                                                 DIMA290    45
                                                                                                                 DIMA290    46
        1011         0100 1011           DSP      SUBR               ENTRY/EXIT                                  DIMA290    47
        1013         2100 2000                    ADC    FCCL                                                    DIMA290    48
        1015         5400 1030                    STM    DSPB                                                    DIMA290    49
        1017         2100 2000                    ADC    FCSB-FCCL                                               DIMA290    50
        1021         5400 1024                    STM    DSPA                                                    DIMA290    51
        1023         2000 4072                    LDC    FCSB+DSFP   DEADSTART PPU                               DIMA290    52
                                        *         LDC    FCSB+DDFP   DEADSTART DUMP PPU                          DIMA290    53
                                1024     DSPA     EQU    *-1                                                     DIMA290    54
        1025         0200 1442                    RJM    SFC                                                     DIMA290    55
        1027         2000 2072                    LDC    FCCL+DSFP   CLEAR DEADSTART BIT                         DIMA290    56
                                        *         LDC    FCCL+DDFP   CLEAR DEADSTART DUMP BIT                    DIMA290    57
                                1030     DSPB     EQU    *-1                                                     DIMA290    58
1       DHE         CTI DISPLAY HARDWARE ERRORS - A02                 COMPASS 3.7-871.     23/08/13. 15.42.36.      PAGE    16
        PRIMARY SUBROUTINES.
  
        1031         0200 1442                    RJM    SFC                                                     DIMA290    59
        1033         2000 4123                    LDC    FCSB+CPUE   SET *CLEAR PPU* ERROR                       DIMA290    60
        1035         0200 1442                    RJM    SFC                                                     DIMA290    61
        1037         2000 2123                    LDC    FCCL+CPUE   CLEAR *CLEAR PPU* ERROR                     DIMA290    62
        1041         0200 1442                    RJM    SFC                                                     DIMA290    63
        1043         0100 1011                    LJM    DSPX        RETURN                                      DIMA290    64
  
  
  
  
                                        **        CSE  - CLEAR SCANNER ENABLE AND CHANNEL                        DIMA290    66
                                        *                                                                        DIMA290    67
                                        *         ENTRY- SCANNER INTERFACE IS ENABLED AND                        DIMA290    68
                                        *                SCANNER CHANNEL IS ACTIVE.                              DIMA290    69
                                        *                                                                        DIMA290    70
                                        *         EXIT - SCANNER INTERFACE IS DISABLED AND                       DIMA290    71
                                        *                SCANNER CHANNEL IS INACTIVE.                            DIMA290    72
                                                                                                                 DIMA290    73
                                                                                                                 DIMA290    74
        1045         0100 1045           CSE      SUBR               ENTRY/EXIT                                  DIMA290    75
        1047         2000 2122                    LDC    FCCL+ENSC   CLEAR SCANNER ENABLE                        DIMA290    76
        1051         7256                         OAN.   SC+40                                                   DIMA290    77
        1052         7056                         IAN.   SC+40                                                   DIMA290    78
        1053         7540                         DCN.   MC+40                                                   DIMA290    79
        1054         0370                         UJN    CSEX        RETURN                                      DIMA290    80
  
  
  
  
                                        **        ASE  - ACTIVATE SCANNER ENABLE.                                DIMA290    82
                                        *                                                                        DIMA290    83
                                        *         ENTRY  SCANNER CHANNEL IS INACTIVE AND                         DIMA290    84
                                        *                SCANNER INTERFACE IS DISABLED.                          DIMA290    85
                                        *                                                                        DIMA290    86
                                        *                (T3) = PPU NUMBER.                                      DIMA290    87
                                        *                                                                        DIMA290    88
                                        *         EXIT   ACTIVE SCANNER CHANNEL, PPU NUMBER                      DIMA290    89
                                        *                INSERTED IN SCR AND SCANNER                             DIMA290    90
                                        *                INTERFACE IS ENABLED.                                   DIMA290    91
                                        *                                                                        DIMA290    92
                                        *         CALLS  IPN                                                     DIMA290    93
                                                                                                                 DIMA290    94
                                                                                                                 DIMA290    95
        1055         0100 1055           ASE      SUBR               ENTRY/EXIT                                  DIMA290    96
        1057         7400                         ACN.   MC          ACTIVATE SCANNER CHANNEL                    DIMA290    97
        1060         0200 1106                    RJM    IPN         INSERT PPU NUMBER IN S/C REGISTER           DIMA290    98
        1062         2000 4122                    LDC    FCSB+ENSC   ENABLE SCANNER INTERFACE                    DIMA290    99
        1064         0200 1442                    RJM    SFC                                                     DIMA290   100
        1066         0366                         UJN    ASEX        RETURN                                      DIMA290   101
1       DHE         CTI DISPLAY HARDWARE ERRORS - A02                 COMPASS 3.7-871.     23/08/13. 15.42.36.      PAGE    17
        PRIMARY SUBROUTINES.                                          IPN 
  
                                        **        IPN - INSERT FIRST LEVEL PPU NUMBER IN S/C REGISTER.           DHE       594
                                        *                                                                        DHE       595
                                        *         ENTRY  (T3) = FLPP NUMBER.                                     DHE       596
                                        *                                                                        DHE       597
                                        *         EXIT   (A) = 0.                                                DHE       598
                                        *                                                                        DHE       599
                                        *         USES   T1, T2.                                                 DHE       600
                                        *                                                                        DHE       601
                                        *         CALLS  NONE.                                                   DHE       602
                                                                                                                 DHE       603
                                                                                                                 DHE       604
        1067         3001                IPN1     LDD    T1          CHECK NEXT BIT                              DHE       605
        1070         1076                         SHN    -1                                                      DHE       606
        1071         3401                IPN2     STD    T1                                                      DHE       607
        1072         1201                         LPN    1                                                       DHE       608
        1073         0403                         ZJN    IPN3        IF BIT TO BE CLEARED                        DHE       609
        1074         2000 6000                    LDC    FCSB&FCCL                                               DHE       610
        1076         3302                IPN3     LMD    T2                                                      DHE       611
        1077         7256                         OAN.   SC+40                                                   DHE       612
        1100         7056                         IAN.   SC+40                                                   DHE       613
        1101         3602                         AOD    T2          ADVANCE BIT NUMBER                          DHE       614
        1102         2300 2114                    LMC    FCCL+SCSL+4                                             DHE       615
        1104         0562                         NJN    IPN1        IF NOT END OF BITS                          DHE       616
                                                                                                                 DHE       617
        1105         0100 1105           IPN      SUBR               ENTRY/EXIT                                  DHE       618
        1107         2000 2110                    LDC    FCCL+SCSL   PRESET FUNCTION AND BIT NUMBER              DHE       619
        1111         3402                         STD    T2                                                      DHE       620
        1112         3003                         LDD    T3                                                      DHE       621
        1113         0355                         UJN    IPN2        ENTER LOOP                                  DHE       622
  
  
  
  
                                        **        DCL - DISPLAY CODED LINE.                                      DHE       624
                                        *                                                                        DHE       625
                                        *         ENTRY  (A) = X COORDINATE.                                     DHE       626
                                        *                (YC) = Y COORDINATE.                                    DHE       627
                                        *                (MS) = MESSAGE ADDRESS.                                 DHE       628
                                        *                                                                        DHE       629
                                        *         EXIT   (YC) = Y COORDINATE FOR NEXT DISPLAY LINE.              DHE       630
                                        *                                                                        DHE       631
                                        *         USES   T1.                                                     DHE       632
                                        *                                                                        DHE       633
                                        *         CALLS  CFO, DNL.                                               DHE       634
                                                                                                                 DHE       635
                                                                                                                 DHE       636
        1114         0100 1114           DCL      SUBR               ENTRY/EXIT                                  DHE       637
        1116         3401                         STD    T1          SAVE X COORDINATE                           DHE       638
        1117         0200 0610                    RJM    CFO         CHECK FOR SCREEN OVERFLOW                   DHE       639
        1121         7710 7000                    FNC.   7000,CH     SELECT LEFT SCREEN, 64 CHARACTERS/LINE      DHE       640
                                1122     DCLA     EQU    *-1                                                     DHE       641
                                        *         FNC.   7100,CH     (IF OVERFLOW ON RIGHT SCREEN)               DHE       642
        1123         7410                         ACN.   CH                                                      DHE       643
        1124         3001                         LDD    T1          OUTPUT X COORDINATE                         DHE       644
        1125         7210                         OAN.   CH                                                      DHE       645
        1126         3023                         LDD    YC          OUTPUT Y COORDINATE                         DHE       646
        1127         7210                         OAN.   CH                                                      DHE       647
1       DHE         CTI DISPLAY HARDWARE ERRORS - A02                 COMPASS 3.7-871.     23/08/13. 15.42.36.      PAGE    18
        PRIMARY SUBROUTINES.                                          DCL 
  
        1130         3017                         LDD    MS          SET MESSAGE ADDRESS                         DHE       648
        1131         0200 1140                    RJM    DNL         DISPLAY MESSAGE                             DHE       649
        1133         7550                         DCN.   CH+40                                                   DHE       650
        1134         1512                         LCN    YCIN        DECREMENT Y COORDINATE                      DHE       651
        1135         3523                         RAD    YC                                                      DHE       652
        1136         0355                         UJN    DCLX        RETURN                                      DHE       653
  
  
  
  
                                        **        DNL - DISPLAY NEXT LINE.                                       DHE       655
                                        *                                                                        DHE       656
                                        *         ENTRY  (A) = MESSAGE ADDRESS.                                  DHE       657
                                        *                                                                        DHE       658
                                        *         EXIT   NONE.                                                   DHE       659
                                        *                                                                        DHE       660
                                        *         USES   T1.                                                     DHE       661
                                        *                                                                        DHE       662
                                        *         CALLS  NONE.                                                   DHE       663
                                                                                                                 DHE       664
                                                                                                                 DHE       665
        1137         0100 1137           DNL      SUBR               ENTRY/EXIT                                  DHE       666
        1141         1701                         SBN    1                                                       DHE       667
        1142         3401                         STD    T1                                                      DHE       668
        1143         3601                DNL1     AOD    T1                                                      DHE       669
        1144         4001                         LDI    T1                                                      DHE       670
        1145         7250                         OAN.   CH+40                                                   DHE       671
        1146         0470                         ZJN    DNLX        IF END OF LINE EXIT                         DHE       672
        1147         0373                         UJN    DNL1        DISPLAY NEXT WORD                           DHE       673
  
  
  
  
                                        **        CLE - CLASSIFY ERRORS.                                         DHE       675
                                        *                                                                        DHE       676
                                        *         ENTRY  (SC0B) = CHANNEL 16 S/C REGISTER.                       DHE       677
                                        *                (SC1B) = CHANNEL 36 S/C REGISTER.                       DHE       678
                                        *                (NO) = 0 IF NO CHANNEL 36 S/C REGISTER.                 DHE       679
                                        *                                                                        DHE       680
                                        *         EXIT   (FF) = 0 IF NO FATAL ERROR.                             DHE       681
                                        *                     = 1 IF FATAL ERROR.                                DHE       682
                                        *                                                                        DHE       683
                                        *         USES   T7.                                                     DIMA291     1
                                        *                                                                        DHE       685
                                        *         CALLS  NONE.                                                   DHE       686
                                                                                                                 DHE       687
                                                                                                                 DHE       688
        1150         0100 1150           CLE      SUBR               ENTRY/EXIT                                  DIMA291     2
        1152         1400                         LDN    0           CLEAR FATAL ERROR FLAG                      DIMA291     3
        1153         3414                         STD    FF                                                      DIMA291     4
        1154         3407                         STD    T7          INITIALIZE T7                               DIMA291     5
        1155         2000 7040                    LDC    IANI+40B    INITIALIZE S/C CHANNEL                      DIMA291     6
        1157         5400 1230                    STM    CLE5                                                    DIMA291     7
        1161         5400 1251                    STM    CLE8                                                    DIMA291     8
        1163         2000 7240                    LDC    OANI+40B    INITIALIZE S/C REGISTER CHANNEL             DIMA291     9
        1165         5400 1227                    STM    CLE4                                                    DIMA291    10
        1167         5400 1250                    STM    CLE7                                                    DIMA291    11
1       DHE         CTI DISPLAY HARDWARE ERRORS - A02                 COMPASS 3.7-871.     23/08/13. 15.42.36.      PAGE    19
        PRIMARY SUBROUTINES.                                          CLE 
  
        1171         5007 3073           CLE1     LDM    SC0B+15,T7                                              DIMA291    12
        1173         1217                         LPN    17B         MASK OFF SYNDROME BITS                      DIMA291    13
        1174         0517                         NJN    CLE2                                                    DIMA291    14
        1175         5007 3074                    LDM    SC0B+16,T7                                              DIMA291    15
        1177         0514                         NJN    CLE2                                                    DIMA291    16
        1200         5007 3075                    LDM    SC0B+17,T7                                              DIMA291    17
        1202         0511                         NJN    CLE2                                                    DIMA291    18
        1203         5007 3076                    LDM    SC0B+20,T7                                              DIMA291    19
        1205         0503                         NJN    CLE1.1                                                  DIMA291    20
        1206         0100 1252                    LJM    CLE9                                                    DIMA291    21
        1210         2200 3767           CLE1.1   LPC    3767B       CHECK BITS 0 - 2, 4 -10                     DIMA291    22
        1212         0403                         ZJN    CLE3                                                    DIMA291    23
        1213         0100 1277           CLE2     LJM    CLE10       FATAL ERROR EXIT                            DIMA291    24
        1215         5007 3076           CLE3     LDM    SC0B+20,T7                                              DIMA291    25
        1217         1210                         LPN    10B         CHECK BIT 3                                 DIMA291    26
        1220         0411                         ZJN    CLE6                                                    DIMA291    27
        1221         5007 3057                    LDM    SC0B+1,T7   CHECK BIT 183                               DIMA291    28
        1223         1016                         SHN    21-3                                                    DIMA291    29
        1224         0766                         MJN    CLE2        IF FATAL ERROR                              DIMA291    30
        1225         5000 2003                    LDM    FCCL+SECD   CLEAR BIT 3                                 DIMA291    31
        1227         7256                CLE4     OAN.   SC+40B                                                  DIMA291    32
                                        *         OAN    SC+40B+20B  IF CHANNEL 36                               DIMA291    33
        1230         7056                CLE5     IAN.   SC+40B                                                  DIMA291    34
                                        *         IAN    SC+40B+20B  IF CHANNEL 36                               DIMA291    35
        1231         5007 3076           CLE6     LDM    SC0B+20,T7  CHECK BIT 11                                DIMA291    36
        1233         1006                         SHN    21-13                                                   DIMA291    37
        1234         0616                         PJN    CLE9        IF NO ERROR                                 DIMA291    38
        1235         5000 7673                    LDM    /CPA/OPTN   CHECK IF CYBER 176                          DIMA291    39
        1237         1066                         SHN    -11                                                     DIMA291    40
        1240         1203                         LPN    3                                                       DIMA291    41
        1241         0436                         ZJN    CLE10       IF NOT CYBER 176                            DIMA291    42
        1242         5007 3056                    LDM    SC0B,T7     CHECK BIT 196                               DIMA291    43
        1244         1015                         SHN    21-4                                                    DIMA291    44
        1245         0732                         MJN    CLE10                                                   DIMA291    45
        1246         5000 2013                    LDM    FCCL+LSCD   CLEAR BIT 11                                DIMA291    46
        1250         7256                CLE7     OAN.   SC+40B                                                  DIMA291    47
                                        *         OAN    SC+60B      IF CHANNEL 36                               DIMA291    48
        1251         7056                CLE8     IAN.   SC+40B                                                  DIMA291    49
                                        *         IAN    SC+60B      IF CHANNEL 36                               DIMA291    50
        1252         3011                CLE9     LDD    NO          CHECK FOR CHANNEL 36 S/C REGISTER           DIMA291    51
        1253         0526                         NJN    CLE11                                                   DIMA291    52
        1254         3007                         LDD    T7                                                      DIMA291    53
        1255         0524                         NJN    CLE11       IF CHANNEL 36 ALREADY CHECKED, EXIT         DIMA291    54
        1256         2000 0021                    LDC    NSCB        CHANGE T7 TO INDEX CHANNEL 36 BUFFER        DIMA291    55
        1260         3407                         STD    T7                                                      DIMA291    56
        1261         2000 7060                    LDC    IANI+60B    CHANGE FOR CHANNEL 36                       DIMA291    57
        1263         5400 1230                    STM    CLE5                                                    DIMA291    58
        1265         5400 1251                    STM    CLE8                                                    DIMA291    59
        1267         2000 7260                    LDC    OANI+60B    CHANGE FOR CHANNEL 36                       DIMA291    60
        1271         5400 1227                    STM    CLE4                                                    DIMA291    61
        1273         5400 1250                    STM    CLE7                                                    DIMA291    62
        1275         0100 1171                    LJM    CLE1        CHECK CHANNEL 36 ERRORS                     DIMA291    63
        1277         1401                CLE10    LDN    1           SET FATAL ERROR FLAG                        DIMA291    64
        1300         3414                         STD    FF                                                      DIMA291    65
        1301         0100 1150           CLE11    LJM    CLEX        EXIT                                        DIMA291    66
                                                                                                                 DHE       730
1       DHE         CTI DISPLAY HARDWARE ERRORS - A02                 COMPASS 3.7-871.     23/08/13. 15.42.36.      PAGE    20
        PRIMARY SUBROUTINES.                                          HPP 
  
                                        **    HPP - HANG PP-S                                                    DIMA222    23
                                        *                                                                        DIMA222    24
                                        *         HPP WRITES UPPER CELL OF ALL PP-S TO CLEAR PARITY.             DIMA222    25
                                        *                                                                        DIMA222    26
                                        *         CALLS ICN                                                      DIMA222    27
                                        *                                                                        DIMA222    28
                                        *         EXIT   (T1) = CHANNEL NO.                                      DIMA222    29
        1303         0100 1303           HPP      SUBR               ENTRY/EXIT                                  DIMA222    30
        1305         7450                         ACN    CH+40B                                                  DIMA222    31
        1306         1400                         LDN    0                                                       DIMA222    32
        1307         3401                HPP03    STD    T1          CURRENT CHANNEL                             DIMA222    33
        1310         3001                HPP04    LDD    T1                                                      DIMA222    34
        1311         1712                         SBN    12B                                                     DIMA222    35
        1312         0706                         MJN    HPP06       IF IN RANGE 1-11                            DIMA222    36
        1313         0503                         NJN    HPP05       IF IN RANGE 20-32                           DIMA222    37
        1314         1420                         LDN    20B                                                     DIMA222    38
        1315         0371                         UJN    HPP03                                                   DIMA222    39
        1316         1720                HPP05    SBN    32B-12B                                                 DIMA222    40
        1317         0663                         PJN    HPPX        IF DONE,RETURN                              DIMA222    41
        1320         2000 1345           HPP06    LDC    HPPE        FWA OF CHAN LIST                            DIMA222    42
        1322         0200 1354                    RJM    ICN         INSERT CHANNEL NO.                          DIMA222    43
        1324         7440                HPPF     ACN    40B                                                     DIMA222    44
        1325         1400                         LDN    0                                                       DIMA222    45
        1326         7200                HPPG     OAN    0           CHECK FOR A PP                              DIMA222    46
        1327         4001                         LDI    T1          DELAY FOR PP TO TAKE WORD                   DIMA222    47
        1330         1404                         LDN    4                                                       DIMA222    48
        1331         6700 1334           HPPH     EJM    HPPB,0                                                  DIMA222    49
        1333         0303                         UJN    HPPC        THERE IS NOT A PP                           DIMA222    50
        1334         7300 1341           HPPB     OAM    HPPD,0      CLEAR UPPER CELL OF PP                      DIMA222    51
        1336         7540                HPPC     DCN    40B                                                     DIMA222    52
        1337         3601                         AOD    T1                                                      DIMA222    53
        1340         0347                         UJN    HPP04       CONTINUE                                    DIMA222    54
        1341         1500 3401           HPPD     CON    LCNI,STDI,STII,UJNI                                     DIMA222    55
        1343         4401 0300
                                        * ADDRESS TABLE OF MODIFIED INSTRUCTIONS FOLLOWS                         DIMA222    56
        1345         1334 1336           HPPE     CON    HPPB,HPPC,HPPF,HPPG,HPPH,0                              DIMA222    57
        1347         1324 1326
        1351         1331 0000
  
  
  
  
                                        **        ICN - INSERT CHANNEL NO.                                       DIMA222    59
                                        *                                                                        DIMA222    60
                                        *         ICN INSERTS CHANNEL NO.S IN INSTRUCTIONS GIVEN                 DIMA222    61
                                        *         IN A LIST TERMINATED WITH A ZERO.                              DIMA222    62
                                        *                                                                        DIMA222    63
                                        *         ENTRY  (A) = FWA OF CHANNEL LIST.                              DIMA222    64
                                        *                (T1) = CHANNEL NO.                                      DIMA222    65
                                        *                                                                        DIMA222    66
                                        *         USES   T2,T3.                                                  DIMA222    67
        1353         0100 1353           ICN      SUBR               ENTRY/EXIT                                  DIMA222    68
        1355         3402                         STD    T2                                                      DIMA222    69
        1356         4002                ICN1     LDI    T2                                                      DIMA222    70
        1357         0473                         ZJN    ICNX        IF LIST COMPLETE                            DIMA222    71
        1360         3403                         STD    T3                                                      DIMA222    72
        1361         4003                         LDI    T3                                                      DIMA222    73
1       DHE         CTI DISPLAY HARDWARE ERRORS - A02                 COMPASS 3.7-871.     23/08/13. 15.42.36.      PAGE    21
        PRIMARY SUBROUTINES.                                          ICN 
  
        1362         1337                         SCN    37B                                                     DIMA222    74
        1363         3101                         ADD    T1          ADD IN NEW CHANNEL NO.                      DIMA222    75
        1364         4403                         STI    T3                                                      DIMA222    76
        1365         3602                         AOD    T2                                                      DIMA222    77
        1366         0367                         UJN    ICN1        CONTINUE PROCESSING                         DIMA222    78
  
  
  
  
                                        **        PDB - POSITION TO DISPLAY CODE WITH BEGINNING BLANK.           DHE       732
                                        *                                                                        DHE       733
                                        *         ENTRY  (BA) = BUFFER ADDRESS OF NUMBER TO CONVERT.             DHE       734
                                        *                (T4) = ADDRESS OF INSERT.                               DHE       735
                                        *                                                                        DHE       736
                                        *         EXIT   (BA) = ADDRESS OF NEXT NUMBER.                          DHE       737
                                        *                (T4) = ADDRESS OF NEXT INSERT.                          DHE       738
                                        *                                                                        DHE       739
                                        *         CALLS  C2D.                                                    DHE       740
                                                                                                                 DHE       741
                                                                                                                 DHE       742
        1367         0100 1367           PDB      SUBR               ENTRY/EXIT                                  DHE       743
        1371         4010                         LDI    BA          WORD TO CONVERT                             DHE       744
        1372         1071                         SHN    -6                                                      DHE       745
        1373         0200 1514                    RJM    C2D         CONVERT TO DISPLAY                          DHE       746
        1375         1006                         SHN    6                                                       DHE       747
        1376         5404 0001                    STM    1,T4                                                    DHE       748
        1400         1155                         LMN    1R          BLANK                                       DHE       749
        1401         1006                         SHN    6                                                       DHE       750
        1402         5404 0000                    STM    0,T4                                                    DHE       751
        1404         4010                         LDI    BA                                                      DHE       752
        1405         0200 1514                    RJM    C2D         CONVERT TO DISPLAY                          DHE       753
        1407         1006                         SHN    6                                                       DHE       754
        1410         1155                         LMN    1R          BLANK                                       DHE       755
        1411         5404 0002                    STM    2,T4                                                    DHE       756
        1413         1063                         SHN    -14                                                     DHE       757
        1414         5504 0001                    RAM    1,T4                                                    DHE       758
        1416         1403                         LDN    3           INCREMENT TO NEXT WORD                      DHE       759
        1417         3504                         RAD    T4                                                      DHE       760
        1420         3610                         AOD    BA                                                      DHE       761
        1421         0345                         UJN    PDBX        RETURN                                      DHE       762
1       DHE         CTI DISPLAY HARDWARE ERRORS - A02                 COMPASS 3.7-871.     23/08/13. 15.42.36.      PAGE    22
        PRIMARY SUBROUTINES.                                          PDC 
  
                                        **        PDC - POSITION TO DISPLAY CODE WITH NO LEADING BLANK.          DHE       764
                                        *                                                                        DHE       765
                                        *         ENTRY  (BA) = BUFFER ADDRESS OF NUMBER TO CONVERT.             DHE       766
                                        *                (T4) = ADDRESS OF INSERT.                               DHE       767
                                        *                                                                        DHE       768
                                        *         EXIT   (BA) = ADDRESS OF NEXT NUMBER.                          DHE       769
                                        *                (T4) = ADDRESS OF NEXT INSERT.                          DHE       770
                                        *                                                                        DHE       771
                                        *         USES   NONE.                                                   DHE       772
                                        *                                                                        DHE       773
                                        *         CALLS  C2D.                                                    DHE       774
                                                                                                                 DHE       775
                                                                                                                 DHE       776
        1422         0100 1422           PDC      SUBR               ENTRY/EXIT                                  DHE       777
        1424         4010                         LDI    BA          WORD TO CONVERT                             DHE       778
        1425         1071                         SHN    -6                                                      DHE       779
        1426         0200 1514                    RJM    C2D         CONVERT TO DISPLAY                          DHE       780
        1430         4404                         STI    T4                                                      DHE       781
        1431         3604                         AOD    T4                                                      DHE       782
        1432         4010                         LDI    BA                                                      DHE       783
        1433         0200 1514                    RJM    C2D         CONVERT TO DISPLAY                          DHE       784
        1435         4404                         STI    T4                                                      DHE       785
        1436         3604                         AOD    T4                                                      DHE       786
        1437         3610                         AOD    BA                                                      DHE       787
        1440         0361                         UJN    PDCX        RETURN                                      DHE       788
  
  
  
  
                                        **        SFC - SEND FUNCTION TO S/C REGISTER.                           DHE       790
                                        *                                                                        DHE       791
                                        *         ENTRY  (A) = FUNCTION.                                         DHE       792
                                        *                                                                        DHE       793
                                        *         EXIT   (A) = FUNCTION REPLY.                                   DHE       794
                                        *                                                                        DHE       795
                                        *         USES   NONE.                                                   DHE       796
                                        *                                                                        DHE       797
                                        *         CALLS  NONE.                                                   DHE       798
                                                                                                                 DHE       799
                                                                                                                 DHE       800
        1441         0100 1441           SFC      SUBR               ENTRY/EXIT                                  DHE       801
        1443         7256                SFCA     OAN.   SC+40       SEND FUNCTION                               DHE       802
                                        *         OAN.   SC+40+20    (IF CHANNEL 36 CALL)                        DHE       803
        1444         7056                SFCB     IAN.   SC+40                                                   DHE       804
                                        *         IAN.   SC+40+20    (IF CHANNEL 36 CALL)                        DHE       805
        1445         0373                         UJN    SFCX        RETURN                                      DHE       806
  
  
  
  
                                        *         DISPLAY MESSAGES.                                              DHE       808
                                                                                                                 DHE       809
                                                                                                                 DHE       810
        1446         2322                DMSA     DATA   C*SR-0-2 YYYY YYYY YYYY YYYY YYYY YYYY.*                DHE       811
        1472         0405                DMSC     DATA   C*DEADSTART ABORTED - FATAL ERROR.*                     DHE       812
1       DHE         CTI DISPLAY HARDWARE ERRORS - A02                 COMPASS 3.7-871.     23/08/13. 15.42.36.      PAGE    23
        PRIMARY SUBROUTINES.
  
                                        *         COMMON DECKS.                                                  DHE       814
                                                                                                                 DHE       815
                                                                                                                 DHE       816
        1513                                      CTEXT  COMPC2D - CONVERT 2 OCTAL DIGITS TO DISPLAY CODE.       COMPC2D     2
                                                  LIST   X                                                       DHE       818
1       DHE         CTI DISPLAY HARDWARE ERRORS - A02                 COMPASS 3.7-871.     23/08/13. 15.42.36.      PAGE    24
        COMPSCE - STATUS/CONTROL REGISTER ERROR PROCESSOR.
  
        1525                                      CTEXT  COMPSCE - STATUS/CONTROL REGISTER ERROR PROCESSOR.      COMPSCE     2
  
  
  
  
                                                  IF     -DEF,QUAL$,1                                            COMPSCE     4
                                                  QUAL   COMPSCE                                                 COMPSCE     5
                                                  COMMENT COPYRIGHT CONTROL DATA CORP. 1975.                     COMPSCE     6
  
  
  
  
                                        ***       SCE - STATUS/CONTROL REGISTER ERROR PROCESSOR.                 COMPSCE     8
                                        *         A. J. BEEKMAN.     75/01/01.                                   COMPSCE     9
  
  
  
  
                                        ***       COMPSCE CHECKS THE S/C REGISTER(S) FOR STATUS BITS THAT ARE    COMPSCE    11
                                        *         SET.  WHEN A SET STATUS BIT IS FOUND, THE APPROPRIATE          COMPSCE    12
                                        *         EXPLANATION OF THE ERROR IS ENTERED IN A BUFFER WHOSE          COMPSCE    13
                                        *         BEGINNING AND ENDING ADDRESSES ARE SPECIFIED BY THE            COMPSCE    14
                                        *         CALLING PROGRAM.  THE BEGINNING ADDRESS OF THE EXPLANATION     COMPSCE    15
                                        *         IS ENTERED IN TABLE TEMA (TABLE OF ERROR MESSAGE ADDRESSES).   COMPSCE    16
                                        *         TABLE TEMA HAS THE FOLLOWING FORMAT -                          COMPSCE    17
                                        *                                                                        COMPSCE    18
                                        *  TEMA   12/ ADDR 1                                                     COMPSCE    19
                                        *         12/ ADDR 2                                                     COMPSCE    20
                                        *         12/  .                                                         COMPSCE    21
                                        *         12/  .                                                         COMPSCE    22
                                        *         12/  .                                                         COMPSCE    23
                                        *         12/ ADDR N                                                     COMPSCE    24
                                        *         12/  0                                                         COMPSCE    25
                                        *                                                                        COMPSCE    26
                                        *         WHERE  N IS THE TOTAL NUMBER OF STATUS BITS SET IN THE         COMPSCE    27
                                        *                  S/C REGISTER(S),                                      COMPSCE    28
                                        *                ADDR 1 - ADDR N ARE FIRST WORD ADDRESSES OF ERROR       COMPSCE    29
                                        *                  MESSAGES IN THE EXPLANATION BUFFER (ADDR 1 IS         COMPSCE    30
                                        *                  THE FIRST WORD ADDRESS OF THE EXPLANATION BUFFER).    COMPSCE    31
                                        *                                                                        COMPSCE    32
                                        *         WHEN ALL THE STATUS BITS ARE CHECKED, TABLE TEMA IS            COMPSCE    33
                                        *         TERMINATED BY A WORD OF ZEROS, AND THE LWA+1 OF THE FINAL      COMPSCE    34
                                        *         EXPLANATION IN THE EXPLANATION BUFFER IS PASSED BACK TO THE    COMPSCE    35
                                        *         CALLING PROGRAM.  THE FORMAT OF AN ENTRY IN THE EXPLANATION    COMPSCE    36
                                        *         BUFFER IS -                                                    COMPSCE    37
                                        *                                                                        COMPSCE    38
                                        *  ADDRX  6/ REG,6/                                                      COMPSCE    39
                                        *         12/ BIT NUM                                                    COMPSCE    40
                                        *         6/  ,6/ *-*                                                    COMPSCE    41
                                        *         12/ MESSAGE X                                                  COMPSCE    42
                                        *         12/   .                                                        COMPSCE    43
                                        *         12/   .                                                        COMPSCE    44
                                        *         12/   .                                                        COMPSCE    45
                                        *         12/   0                                                        COMPSCE    46
                                        *                                                                        COMPSCE    47
                                        *         WHERE  ADDRX = ADDRESS OF FIRST WORD OF ERROR MESSAGE,         COMPSCE    48
                                        *                REG = 0 IF CHANNEL 16 S/C REGISTER,                     COMPSCE    49
1       DHE         CTI DISPLAY HARDWARE ERRORS - A02                 COMPASS 3.7-871.     23/08/13. 15.42.36.      PAGE    25
        COMPSCE - STATUS/CONTROL REGISTER ERROR PROCESSOR.                                COMPSCE 
  
                                        *                    = 1 IF CHANNEL 36 S/C REGISTER,                     COMPSCE    50
                                        *                BIT NUM = STATUS BIT NUMBER,                            COMPSCE    51
                                        *                MESSAGE X = EXPLANATION OF ERROR.                       COMPSCE    52
                                        *                                                                        COMPSCE    53
                                        *         NOTES- 1) THIS COMMON DECK REQUIRES THAT THE CALLING           COMPSCE    54
                                        *                PROGRAM ALSO CALL COMMON DECK COMSSCR.                  COMPSCE    55
                                        *                                                                        COMPSCE    56
                                        *                2) TABLE TEMA MAY BE UP TO 81 WORDS IN LENGTH           COMPSCE    57
                                        *                (ONE WORD PER STATUS ERROR BIT PLUS WORD OF ZEROS)      COMPSCE    58
                                        *                IF TWO S/C REGISTERS EXIST.  IT IS UP TO THE            COMPSCE    59
                                        *                CALLING PROGRAM TO RESERVE ENOUGH SPACE                 COMPSCE    60
                                        *                FOR THIS TABLE.                                         COMPSCE    61
                                        *                FOLLOWING THE COMMON DECK FOR THIS TABLE.               COMPSCE    62
                                        *                                                                        COMPSCE    63
                                        *         ENTRY  (A) = FWA OF ERROR MESSAGE BUFFER.                      COMPSCE    64
                                        *                (TE) = MESSAGE ADDRESS TABLE (TEMA) ADDRESS.            COMPSCE    65
                                        *                (LW) = LENGTH OF ERROR MESSAGE BUFFER.                  COMPSCE    66
                                        *                (/CPA/OPTN) = HDT OPTION WORD.                          COMPSCE    67
                                        *                                                                        COMPSCE    68
                                        *         EXIT   (FW) = LWA+1 OF FINAL ERROR MESSAGE IN BUFFER.          COMPSCE    69
                                        *                (TE) = ADDRESS OF ZERO WORD IN TABLE TEMA.              COMPSCE    70
                                        *                IF MESSAGE BUFFER FILLS BEFORE ALL STATUS BITS ARE      COMPSCE    71
                                        *                CHECKED, (FW) = LWA+1 OF FINAL ERROR MESSAGE THAT       COMPSCE    72
                                        *                FITS ENTIRELY INTO THE BUFFER.                          COMPSCE    73
                                        *                                                                        COMPSCE    74
                                        *         USES   C1,C2,AM,BT,BW,CB,FW,LW,RW,TE,WC,CT.                    DIMA299     1
                                                                                                                 COMPSCE    76
                                                                                                                 COMPSCE    77
                                        *         INSTRUCTIONS USED AS CONSTANTS.                                COMPSCE    78
                                                                                                                 COMPSCE    79
                                                                                                                 COMPSCE    80
                                1000     SHNI     EQU    1000        SHN INSTRUCTION                             COMPSCE    81
                                1200     LPNI     EQU    1200        LPN INSTRUCTION                             COMPSCE    82
                                1400     LDNI     EQU    1400        LDN INSTRUCTION                             COMPSCE    83
                                1500     LCNI     EQU    1500        LCN INSTRUCTION                             COMPSCE    84
                                7000     IANI     EQU    7000        IAN INSTRUCTION                             COMPSCE    85
                                7200     OANI     EQU    7200        OAN INSTRUCTION                             COMPSCE    86
                                                                                                                 COMPSCE    87
                                                                                                                 COMPSCE    88
                                        *         ASSEMBLY CONSTANTS.                                            COMPSCE    89
                                                                                                                 COMPSCE    90
                                                                                                                 COMPSCE    91
                                  47     UBIT     EQU    47          BIT NUMBER OF A CHANNEL 16 BIT NOT IN USE   COMPSCE    92
  
  
  
  
        1525         0100 1525           SCE      SUBR               ENTRY/EXIT                                  COMPSCE    94
        1527         3462                         STD    FW          SAVE FWA OF MESSAGE BUFFER                  COMPSCE    95
        1530         3563                         RAD    LW          CALCULATE LWA+1 OF BUFFER                   COMPSCE    96
                                                                                                                 COMPSCE    97
                                        *         SET *TUBT* AND *TNUB* FOR CY176, 176B, AND 17X MODEL D.        DIMA299     2
        1531         1401                         LDN    1                                                       DIMA299     3
        1532         3473                         STD    CT          INITIALIZE NOT USED BIT TABLE FLAG          DIMA299     4
        1533         2000 3124                    LDC    FCTC+PPCT   TEST AND CLEAR BIT 84D                      DIMA299     5
        1535         7256                         OAN.   CHSC+40B                                                DIMA299     6
        1536         7056                         IAN.   CHSC+40B                                                DIMA299     7
1       DHE         CTI DISPLAY HARDWARE ERRORS - A02                 COMPASS 3.7-871.     23/08/13. 15.42.36.      PAGE    26
        COMPSCE - STATUS/CONTROL REGISTER ERROR PROCESSOR.                                COMPSCE 
  
        1537         0425                         ZJN    SCE1.2      NOT MODEL B OR D                            DIMA299     8
        1540         2000 1124                    LDC    FCTB+PPCT   TEST BIT 84D                                DIMA299     9
        1542         7256                         OAN.   CHSC+40B                                                DIMA299    10
        1543         7056                         IAN.   CHSC+40B                                                DIMA299    11
        1544         0414                         ZJN    SCE1.1      NOT MODEL B OR D, WAS IN 2X SPEED           DIMA299    12
        1545         1460                         LDN    60B                                                     DIMA299    13
        1546         5500 2347                    RAM    TNUB        SET NOT USED BITS FOR MODEL B OR D          DIMA299    14
        1550         1400                         LDN    0                                                       DIMA299    15
        1551         3473                         STD    CT          CLEAR NOT USED BIT TABLE FLAG               DIMA299    16
        1552         5400 2353                    STM    TUBT        CLEAR USED BITS IN TABLE * TUBT *           DIMA299    17
        1554         2000 1400                    LDC    LDNI                                                    DIMA299    18
        1556         5400 1571                    STM    SCE1.3      CLEAR CH36 USED BITS                        DIMA299    19
        1560         2000 4124           SCE1.1   LDC    FCSB+PPCT   SET BIT 84D                                 DIMA299    20
        1562         7256                         OAN.   CHSC+40B                                                DIMA299    21
        1563         7056                         IAN.   CHSC+40B                                                DIMA299    22
        1564         5000 7673           SCE1.2   LDM    /CPA/OPTN   CHECK FOR CYBER 176                         DIMA299    23
        1566         1066                         SHN    -11B                                                    DIMA299    24
        1567         1203                         LPN    3                                                       DIMA299    25
        1570         0427                         ZJN    SCE1.4      IF NOT A CYBER 176                          DIMA299    26
        1571         1460                SCE1.3   LDN    60B         SET USED BITS IN TABLE * TUBT *             DIMA299    27
                                        *         LDN    0           * MODIFIED FOR MODEL B *                    DIMA299    28
        1572         5400 2353                    STM    TUBT                                                    COMPSCE   105
        1574         1400                         LDN    0           CLEAR NOT USED BIT TABLE FLAG               DIMA299    29
        1575         3473                         STD    CT                                                      DIMA299    30
        1576         2000 1777                    LDC    1777                                                    COMPSCE   106
        1600         5400 2354                    STM    TUBT+1                                                  COMPSCE   107
        1602         2000 2567                    LDC    PPEM        SET *PPU ERROR* FOR FLPP-S                  COMPSCE   108
        1604         5400 2367                    STM    TEMF+TEMFA                                              COMPSCE   109
        1606         2000 2535                    LDC    LSEM        SET *LCM SECDED* ERROR                      COMPSCE   110
        1610         5400 2405                    STM    TEMF+TEMFB                                              COMPSCE   111
        1612         2000 4000                    LDC    4000                                                    COMPSCE   112
        1614         5400 2406                    STM    TEMF+TEMFB+1                                            COMPSCE   113
        1616         0307                         UJN    SCE1                                                    DIMA299    31
        1617         3073                SCE1.4   LDD    CT                                                      DIMA299    32
        1620         0505                         NJN    SCE1        IF NOT MODEL D                              DIMA299    33
        1621         2000 1274                    LDC    1274B                                                   DIMA299    34
        1623         5400 2347                    STM    TNUB                                                    DIMA299    35
                                                                                                                 COMPSCE   114
                                        *         SET CHANNEL 16 IF NECESSARY.                                   COMPSCE   115
                                                                                                                 COMPSCE   116
        1625         5000 1643           SCE1     LDM    SCEA        CHECK PRESENT CHANNEL                       COMPSCE   117
        1627         1220                         LPN    20                                                      COMPSCE   118
        1630         0404                         ZJN    SCE2        IF CHANNEL 16                               COMPSCE   119
        1631         1416                         LDN    16                                                      COMPSCE   120
        1632         0200 2304                    RJM    CGC         CHANGE CHANNELS                             COMPSCE   121
        1634         1400                SCE2     LDN    0           SET ORIGINAL BIT NUMBER                     COMPSCE   122
        1635         3466                         STD    BT                                                      COMPSCE   123
        1636         1400                         LDN    FCRD        READ WORD CODE                              COMPSCE   124
        1637         3472                         STD    RW                                                      COMPSCE   125
                                                                                                                 COMPSCE   126
                                        *         READ WORD FROM STATUS/CONTROL REGISTER.                        COMPSCE   127
                                                                                                                 COMPSCE   128
        1640         1400                SCE3     LDN    0           SET BIT NUMBER WITHIN WORD                  COMPSCE   129
        1641         3467                         STD    BW                                                      COMPSCE   130
        1642         3072                         LDD    RW          READ WORD CODE                              COMPSCE   131
        1643         7256                SCEA     OAN.   CHSC+40                                                 COMPSCE   132
                                        *         OAN.   CHSC+40+20  (IF CHANNEL 36 CALL)                        COMPSCE   133
1       DHE         CTI DISPLAY HARDWARE ERRORS - A02                 COMPASS 3.7-871.     23/08/13. 15.42.36.      PAGE    27
        COMPSCE - STATUS/CONTROL REGISTER ERROR PROCESSOR.                                COMPSCE 
  
        1644         7056                SCEB     IAN.   CHSC+40                                                 COMPSCE   134
                                        *         IAN.   CHSC+40+20  (IF CHANNEL 36 CALL)                        COMPSCE   135
        1645         3471                         STD    WC                                                      COMPSCE   136
        1646         0510                         NJN    SCE5        IF STATUS BITS SET IN WORD                  COMPSCE   137
        1647         3672                SCE4     AOD    RW          SET NEXT WORD                               COMPSCE   138
        1650         1414                         LDN    14          SET BIT NUMBER                              COMPSCE   139
        1651         3566                         RAD    BT                                                      COMPSCE   140
        1652         1750                         SBN    NTEB                                                    COMPSCE   141
        1653         0764                         MJN    SCE3        IF NOT ALL STATUS BITS CHECKED              COMPSCE   142
        1654         0100 2264                    LJM    SCE32       JUMP IF NO SET STATUS BITS IN WORD 4        COMPSCE   143
                                                                                                                 COMPSCE   144
                                        *         CHECK FOR SET STATUS BITS IN WORD.                             COMPSCE   145
                                                                                                                 COMPSCE   146
        1656         3071                SCE5     LDD    WC          GET NEXT BIT                                COMPSCE   147
        1657         1021                         SHN    21-0                                                    COMPSCE   148
        1660         3471                         STD    WC                                                      COMPSCE   149
        1661         0705                         MJN    SCE7        IF BIT SET                                  COMPSCE   150
        1662         3667                SCE6     AOD    BW          SET NEXT BIT IN WORD                        COMPSCE   151
        1663         1714                         SBN    14                                                      COMPSCE   152
        1664         0771                         MJN    SCE5        IF NOT END OF WORD                          COMPSCE   153
        1665         0361                         UJN    SCE4        LOOP TO SET NEXT WORD                       COMPSCE   154
                                                                                                                 COMPSCE   155
                                        *         FIND ERROR MESSAGE FOR SET STATUS BIT.                         COMPSCE   156
                                                                                                                 COMPSCE   157
        1666         3066                SCE7     LDD    BT          SET CURRENT BIT NUMBER                      COMPSCE   158
        1667         3167                         ADD    BW                                                      COMPSCE   159
        1670         1750                         SBN    NTEB                                                    COMPSCE   160
        1671         0703                         MJN    SCE8        IF NOT ALL STATUS BITS CHECKED              COMPSCE   161
        1672         0100 2264                    LJM    SCE32       JUMP IF 4 BITS CHECKED IN WORD 4            COMPSCE   162
                                                                                                                 COMPSCE   163
        1674         1650                SCE8     ADN    NTEB                                                    COMPSCE   164
        1675         3470                         STD    CB                                                      COMPSCE   165
        1676         1001                         SHN    1                                                       COMPSCE   166
        1677         3460                         STD    C1                                                      COMPSCE   167
                                                                                                                 COMPSCE   168
                                        *         SET *NOT USED* FOR CYBER 176 AND CHANNEL 36 UNUSED BITS.       COMPSCE   169
                                                                                                                 COMPSCE   170
        1700         3067                         LDD    BW          SET UP SHIFT COUNT                          COMPSCE   171
        1701         1606                         ADN    6                                                       COMPSCE   172
        1702         2300 1000                    LMC    SHNI                                                    COMPSCE   173
        1704         5400 1725                    STM    SCEC                                                    COMPSCE   174
        1706         5400 1720                    STM    SCEF                                                    COMPSCE   175
        1710         5000 1643                    LDM    SCEA        CHECK CHANNEL                               COMPSCE   176
        1712         1220                         LPN    20                                                      COMPSCE   177
        1713         0510                         NJN    SCE9        IF NOT CHANNEL 16                           COMPSCE   178
        1714         3073                         LDD    CT                                                      DIMA299    36
        1715         0515                         NJN    SCE11       IF NO BITS HAVE CHANGED TO UNUSED           DIMA299    37
        1716         5072 2347                    LDM    TNUB,RW     READ NOT USED BIT MASK                      DIMA299    38
        1720         1006                SCEF     SHN    21-13       CHECK IF BIT NOT USED                       COMPSCE   184
                                        *         SHN    21-13+BIT   (BIT NUMBER *BIT* IN WORD)                  COMPSCE   185
        1721         0706                         MJN    SCE10       IF BIT NOT USED                             COMPSCE   186
        1722         0310                         UJN    SCE11       CHECK FOR INSERTION CODE                    COMPSCE   187
                                                                                                                 COMPSCE   188
        1723         5072 2353           SCE9     LDM    TUBT,RW     READ CHANNEL 36 USED BIT MASK               COMPSCE   189
        1725         1006                SCEC     SHN    21-13       CHECK IF BIT USED                           COMPSCE   190
                                        *         SHN    21-13+BIT   (IF BIT NUMBER *BIT*)                       COMPSCE   191
        1726         0704                         MJN    SCE11       IF BIT USED                                 COMPSCE   192
1       DHE         CTI DISPLAY HARDWARE ERRORS - A02                 COMPASS 3.7-871.     23/08/13. 15.42.36.      PAGE    28
        COMPSCE - STATUS/CONTROL REGISTER ERROR PROCESSOR.                                COMPSCE 
  
        1727         2000 0116           SCE10    LDC    UBIT*2      SET *NOT USED* MESSAGE                      COMPSCE   193
        1731         3460                         STD    C1                                                      COMPSCE   194
                                                                                                                 COMPSCE   195
                                        *         CHECK FOR CODE TO INSERT IN SKELETON MESSAGE.                  COMPSCE   196
                                                                                                                 COMPSCE   197
        1732         5060 2357           SCE11    LDM    TEMF,C1     READ ERROR MESSAGE ADDRESS                  COMPSCE   198
        1734         3464                         STD    AM                                                      COMPSCE   199
        1735         1701                         SBN    1           SET ADDRESS OF INSERTION CODE WORD NUMBER   COMPSCE   200
        1736         3461                         STD    C2                                                      COMPSCE   201
        1737         5060 2360                    LDM    TEMF+1,C1   CHECK FOR INSERTION CODE                    COMPSCE   202
        1741         3460                         STD    C1                                                      COMPSCE   203
        1742         1006                         SHN    6                                                       COMPSCE   204
        1743         0503                         NJN    SCE12       IF CODE                                     COMPSCE   205
        1744         0100 2174                    LJM    SCE24       PROCESS NORMAL MESSAGE                      COMPSCE   206
                                                                                                                 COMPSCE   207
        1746         0703                SCE12    MJN    SCE13       IF SPECIAL MESSAGE                          COMPSCE   208
        1747         0100 2127                    LJM    SCE22       INSERT CODE                                 COMPSCE   209
                                                                                                                 COMPSCE   210
                                        *         SET UP CM SECDED ERROR MESSAGE.                                COMPSCE   211
                                                                                                                 COMPSCE   212
        1751         1400                SCE13    LDN    0           SET INCREMENT FOR MESSAGES                  COMPSCE   213
        1752         3461                         STD    C2                                                      COMPSCE   214
        1753         2000 2535                    LDC    LSEM                                                    COMPSCE   215
        1755         3364                         LMD    AM                                                      COMPSCE   216
        1756         0503                         NJN    SCE14       IF CM SECDED ERROR                          COMPSCE   217
        1757         0100 2054                    LJM    SCE20       PROCESS LCM SECDED ERROR                    COMPSCE   218
                                                                                                                 COMPSCE   219
        1761         5061 3051           SCE14    LDM    QRNT,C2     SET *QUADRANT* IN MESSAGE                   COMPSCE   220
        1763         5461 2554                    STM    SEEM+15,C2                                              COMPSCE   221
        1765         3661                         AOD    C2                                                      COMPSCE   222
        1766         1705                         SBN    5                                                       COMPSCE   223
        1767         0571                         NJN    SCE14       IF NOT END OF INSERT                        COMPSCE   224
        1770         1417                         LDN    FCRD+CDSW   SET CM DOUBLE ERROR BIT CHECK               COMPSCE   225
        1771         7256                         OAN.   CHSC+40                                                 COMPSCE   226
        1772         7056                         IAN.   CHSC+40                                                 COMPSCE   227
        1773         5400 2033                    STM    SCEG                                                    COMPSCE   228
        1775         1404                         LDN    FCRD+CMAW   OBTAIN QUADRANT AND CSU                     COMPSCE   229
        1776         7256                         OAN.   CHSC+40                                                 COMPSCE   230
        1777         7056                         IAN.   CHSC+40                                                 COMPSCE   231
        2000         3461                         STD    C2          ISOLATE QUADRANT                            COMPSCE   232
        2001         1074                         SHN    -3                                                      COMPSCE   233
        2002         3460                         STD    C1                                                      COMPSCE   234
        2003         5000 7673                    LDM    /CPA/OPTN                                               COMPSCE   235
        2005         1066                         SHN    -11                                                     COMPSCE   236
        2006         1203                         LPN    3                                                       COMPSCE   237
        2007         0403                         ZJN    SCE15       IF NOT A CYBER 176                          COMPSCE   238
        2010         3061                         LDD    C2                                                      COMPSCE   239
        2011         0302                         UJN    SCE16       OBTAIN QUADRANT NUMBER                      COMPSCE   240
                                                                                                                 COMPSCE   241
        2012         3060                SCE15    LDD    C1                                                      COMPSCE   242
        2013         1203                SCE16    LPN    3                                                       COMPSCE   243
        2014         2100 5533                    ADC    2R 0        CONVERT TO DISPLAY CODE                     COMPSCE   244
        2016         5400 2560                    STM    SEEM+21     SET QUADRANT NUMBER IN MESSAGE              COMPSCE   245
        2020         3060                         LDD    C1          ISOLATE CSU                                 COMPSCE   246
        2021         1075                         SHN    -2                                                      COMPSCE   247
        2022         1201                         LPN    1                                                       COMPSCE   248
        2023         2100 5533                    ADC    2R 0        CONVERT TO DISPLAY CODE                     COMPSCE   249
1       DHE         CTI DISPLAY HARDWARE ERRORS - A02                 COMPASS 3.7-871.     23/08/13. 15.42.36.      PAGE    29
        COMPSCE - STATUS/CONTROL REGISTER ERROR PROCESSOR.                                COMPSCE 
  
        2025         5400 2564                    STM    SEEM+25     SET CSU NUMBER IN MESSAGE                   COMPSCE   250
        2027         2000 3034           SCE17    LDC    SSET        SET SINGLE BIT SECDED ERROR MESSAGE         COMPSCE   251
        2031         3460                         STD    C1                                                      COMPSCE   252
        2032         2000 2032                    LDC    *           CHECK FOR SINGLE/DOUBLE BIT ERROR           COMPSCE   253
                                        *         LDC    XXXX        (XXXX = CONTENTS OF BYTE WITH DOUBLE BIT)   COMPSCE   254
                                2033     SCEG     EQU    *-1                                                     COMPSCE   255
        2034         1016                         SHN    21-3                                                    COMPSCE   256
        2035         0604                         PJN    SCE18       IF DOUBLE BIT NOT SET                       COMPSCE   257
        2036         2000 3040                    LDC    SDET        SET DOUBLE BIT MESSAGE                      COMPSCE   258
        2040         3460                         STD    C1                                                      COMPSCE   259
        2041         1400                SCE18    LDN    0                                                       COMPSCE   260
        2042         3461                         STD    C2                                                      COMPSCE   261
        2043         4060                SCE19    LDI    C1          TRANSFER INSERT TO SECDED MESSAGE           COMPSCE   262
        2044         5461 2542                    STM    SEEM+3,C2                                               COMPSCE   263
        2046         3660                         AOD    C1                                                      COMPSCE   264
        2047         3661                         AOD    C2                                                      COMPSCE   265
        2050         1704                         SBN    4                                                       COMPSCE   266
        2051         0571                         NJN    SCE19       IF NOT END OF INSERT                        COMPSCE   267
        2052         0100 2174                    LJM    SCE24                                                   COMPSCE   268
                                                                                                                 COMPSCE   269
                                        *         SET UP LCM SECDED ERROR MESSAGE.                               COMPSCE   270
                                                                                                                 COMPSCE   271
        2054         5061 3044           SCE20    LDM    BNKT,C2     SET *BANK* IN MESSAGE                       COMPSCE   272
        2056         5461 2554                    STM    SEEM+15,C2                                              COMPSCE   273
        2060         3661                         AOD    C2                                                      COMPSCE   274
        2061         1705                         SBN    5                                                       COMPSCE   275
        2062         0571                         NJN    SCE20       IF NOT END OF INSERT                        COMPSCE   276
        2063         3461                         STD    C2                                                      COMPSCE   277
        2064         1420                         LDN    FCRD+LDSW   SET LCM DOUBLE BIT ERROR CHECK              COMPSCE   278
        2065         7256                         OAN.   CHSC+40                                                 COMPSCE   279
        2066         7056                         IAN.   CHSC+40                                                 COMPSCE   280
        2067         1076                         SHN    -1                                                      COMPSCE   281
        2070         5400 2033                    STM    SCEG                                                    COMPSCE   282
        2072         1203                         LPN    3           ISOLATE SIZE BITS                           COMPSCE   283
        2073         3460                         STD    C1                                                      COMPSCE   284
        2074         1076                         SHN    -1                                                      COMPSCE   285
        2075         0410                         ZJN    SCE21       IF NOT 2048K OF LCM (SIZE .LT. 2)           COMPSCE   286
        2076         1411                         LDN    FCRD+LCAW+1 READ SECOND LCM ERROR ADDRESS WORD          COMPSCE   287
        2077         7256                         OAN.   CHSC+40                                                 COMPSCE   288
        2100         7056                         IAN.   CHSC+40                                                 COMPSCE   289
        2101         1071                         SHN    -6          OBTAIN UPPER BIT OF BANK NUMBER             COMPSCE   290
        2102         1204                         LPN    4                                                       COMPSCE   291
        2103         3461                         STD    C2                                                      COMPSCE   292
        2104         3760                         SOD    C1          DECREMENT SIZE NUMBER                       COMPSCE   293
        2105         3060                SCE21    LDD    C1          SET UP MASK FOR BANK NUMBER                 COMPSCE   294
        2106         1001                         SHN    1                                                       COMPSCE   295
        2107         2100 1201                    ADC    LPNI+1                                                  COMPSCE   296
        2111         5400 2117                    STM    SCEH                                                    COMPSCE   297
        2113         1410                         LDN    FCRD+LCAW   READ FIRST LCM ERROR ADDRESS WORD           COMPSCE   298
        2114         7256                         OAN.   CHSC+40                                                 COMPSCE   299
        2115         7056                         IAN.   CHSC+40                                                 COMPSCE   300
        2116         1073                         SHN    -4          FORM BANK NUMBER                            COMPSCE   301
        2117         1201                SCEH     LPN    1                                                       COMPSCE   302
                                        *         LPN    3           (LCM SIZE = 1024K OR 2048K)                 COMPSCE   303
        2120         3161                         ADD    C2                                                      COMPSCE   304
        2121         2100 5533                    ADC    2R 0        CONVERT TO DISPLAY CODE                     COMPSCE   305
        2123         5400 2556                    STM    SEEM+17     SET BANK NUMBER IN MESSAGE                  COMPSCE   306
1       DHE         CTI DISPLAY HARDWARE ERRORS - A02                 COMPASS 3.7-871.     23/08/13. 15.42.36.      PAGE    30
        COMPSCE - STATUS/CONTROL REGISTER ERROR PROCESSOR.                                COMPSCE 
  
        2125         0100 2027                    LJM    SCE17       SET SINGLE/DOUBLE BIT ERROR                 COMPSCE   307
                                                                                                                 COMPSCE   308
                                        *         PROCESS PP STOPPED ON PARITY ERROR MESSAGE.                    COMPSCE   309
                                                                                                                 COMPSCE   310
        2127         2000 2740           SCE22    LDC    PMEM                                                    COMPSCE   311
        2131         3364                         LMD    AM                                                      COMPSCE   312
        2132         0535                         NJN    SCE23       IF NOT PP DETECTED PARITY ERROR             COMPSCE   313
        2133         2000 5520                    LDC    2R P        PRESET MESSAGE FOR PP MEMORY ERROR          COMPSCE   314
        2135         5400 2757                    STM    PMEM+17                                                 COMPSCE   315
        2137         2000 2015                    LDC    2RPM                                                    COMPSCE   316
        2141         5400 2760                    STM    PMEM+20                                                 COMPSCE   317
        2143         2000 5755                    LDC    2R.                                                     COMPSCE   318
        2145         5400 2761                    STM    PMEM+21                                                 COMPSCE   319
        2147         2000 1167                    LDC    FCTB+PCMP   CHECK FOR CM READ ERROR                     COMPSCE   320
        2151         7256                SCED     OAN.   CHSC+40                                                 COMPSCE   321
                                        *         OAN.   CHSC+40+20  (IF CHANNEL 36 CALL)                        COMPSCE   322
        2152         7056                SCEE     IAN.   CHSC+40                                                 COMPSCE   323
                                        *         IAN.   CHSC+40+20  (IF CHANNEL 36 CALL)                        COMPSCE   324
        2153         0414                         ZJN    SCE23       IF NOT CM READ ERROR                        COMPSCE   325
        2154         2000 5503                    LDC    2R C                                                    COMPSCE   326
        2156         5400 2757                    STM    PMEM+17                                                 COMPSCE   327
        2160         2000 1557                    LDC    2RM.                                                    COMPSCE   328
        2162         5400 2760                    STM    PMEM+20                                                 COMPSCE   329
        2164         1400                         LDN    0                                                       COMPSCE   330
        2165         5400 2761                    STM    PMEM+21                                                 COMPSCE   331
                                                                                                                 COMPSCE   332
                                        *         SET INSERTION CODE IN ERROR MESSAGES.                          COMPSCE   333
                                                                                                                 COMPSCE   334
        2167         4061                SCE23    LDI    C2          GET WORD NUMBER FOR INSERTION CODE          COMPSCE   335
        2170         3164                         ADD    AM          SET INSERTION CODE ADDRESS                  COMPSCE   336
        2171         3461                         STD    C2                                                      COMPSCE   337
        2172         3060                         LDD    C1          STORE INSERTION CODE IN MESSAGE             COMPSCE   338
        2173         4461                         STI    C2                                                      COMPSCE   339
                                                                                                                 COMPSCE   340
                                        *         COPY MESSAGE TO BUFFER AND SET ADDRESS IN TABLE TEMA.          COMPSCE   341
                                                                                                                 COMPSCE   342
        2174         3062                SCE24    LDD    FW          STORE BUFFER ADDRESS OF MESSAGE IN TEMA     COMPSCE   343
        2175         4465                         STI    TE                                                      COMPSCE   344
        2176         3665                         AOD    TE          ADVANCE TABLE INDEX                         COMPSCE   345
        2177         3062                         LDD    FW          CHECK FOR END OF BUFFER                     COMPSCE   346
        2200         1603                         ADN    3                                                       COMPSCE   347
        2201         3263                         SBD    LW                                                      COMPSCE   348
        2202         0703                         MJN    SCE25       IF NOT END OF BUFFER                        COMPSCE   349
        2203         0100 2255                    LJM    SCE30                                                   COMPSCE   350
                                                                                                                 COMPSCE   351
        2205         5000 1643           SCE25    LDM    SCEA        SET UP FIRST WORD OF MESSAGE                COMPSCE   352
        2207         1220                         LPN    20                                                      COMPSCE   353
        2210         1002                         SHN    2                                                       COMPSCE   354
        2211         2100 3355                    ADC    2R0         SET DISPLAY CODED REGISTER NUMBER           COMPSCE   355
        2213         4462                         STI    FW                                                      COMPSCE   356
        2214         3662                         AOD    FW                                                      COMPSCE   357
        2215         1400                         LDN    0                                                       COMPSCE   358
        2216         3460                         STD    C1                                                      COMPSCE   359
        2217         3070                SCE26    LDD    CB          CONVERT BIT NUMBER TO DISPLAY CODE          COMPSCE   360
        2220         1712                         SBN    12                                                      COMPSCE   361
        2221         0704                         MJN    SCE27       IF DECIMAL REMAINDER FOUND                  COMPSCE   362
        2222         3470                         STD    CB                                                      COMPSCE   363
1       DHE         CTI DISPLAY HARDWARE ERRORS - A02                 COMPASS 3.7-871.     23/08/13. 15.42.36.      PAGE    31
        COMPSCE - STATUS/CONTROL REGISTER ERROR PROCESSOR.                                COMPSCE 
  
        2223         3660                         AOD    C1          INCREMENT QUOTIENT                          COMPSCE   364
        2224         0372                         UJN    SCE26       LOOP FOR DECIMAL REMAINDER                  COMPSCE   365
                                                                                                                 COMPSCE   366
        2225         3060                SCE27    LDD    C1          STORE BIT NUMBER AS SECOND WORD             COMPSCE   367
        2226         1006                         SHN    6                                                       COMPSCE   368
        2227         3170                         ADD    CB                                                      COMPSCE   369
        2230         2100 3333                    ADC    2R00                                                    COMPSCE   370
        2232         4462                         STI    FW                                                      COMPSCE   371
        2233         3662                         AOD    FW                                                      COMPSCE   372
        2234         2000 5546                    LDC    2R -        SET UP THIRD WORD OF MESSAGE                COMPSCE   373
        2236         4462                         STI    FW                                                      COMPSCE   374
        2237         3662                         AOD    FW                                                      COMPSCE   375
        2240         4064                SCE28    LDI    AM          TRANSFER MESSAGE TO BUFFER                  COMPSCE   376
        2241         4462                         STI    FW                                                      COMPSCE   377
        2242         0406                         ZJN    SCE29       IF END OF MESSAGE                           COMPSCE   378
        2243         3664                         AOD    AM          INCREMENT TRANSFER ADDRESSES                COMPSCE   379
        2244         3662                         AOD    FW                                                      COMPSCE   380
        2245         3263                         SBD    LW                                                      COMPSCE   381
        2246         0771                         MJN    SCE28       IF NOT END OF BUFFER                        COMPSCE   382
        2247         0306                         UJN    SCE30                                                   COMPSCE   383
                                                                                                                 COMPSCE   384
        2250         3662                SCE29    AOD    FW          SET BUFFER ADDRESS FOR NEXT MESSAGE         COMPSCE   385
        2251         3263                         SBD    LW                                                      COMPSCE   386
        2252         0606                         PJN    SCE31       IF END OF BUFFER                            COMPSCE   387
        2253         0100 1662                    LJM    SCE6        LOOP FOR NEXT BIT                           COMPSCE   388
                                                                                                                 COMPSCE   389
                                        *         SET ZERO WORD AT END OF TABLE TEMA.                            COMPSCE   390
                                                                                                                 COMPSCE   391
        2255         3765                SCE30    SOD    TE          SET ADDRESS FOR ZERO WORD IN TABLE TEMA     COMPSCE   392
        2256         4065                         LDI    TE          SET LWA+1 OF LAST MESSAGE IN BUFFER         COMPSCE   393
        2257         3462                         STD    FW                                                      COMPSCE   394
        2260         1400                SCE31    LDN    0           STORE ZERO WORD                             COMPSCE   395
        2261         4465                         STI    TE                                                      COMPSCE   396
        2262         0100 1525                    LJM    SCEX        RETURN                                      COMPSCE   397
                                                                                                                 COMPSCE   398
                                        *         SET CHANNEL 36 REGISTER IF TO BE CHECKED.                      COMPSCE   399
                                                                                                                 COMPSCE   400
        2264         5000 1643           SCE32    LDM    SCEA        CHECK REGISTER CHANNEL                      COMPSCE   401
        2266         1220                         LPN    20                                                      COMPSCE   402
        2267         0402                         ZJN    SCE33       IF NOT BOTH REGISTERS CHECKED               COMPSCE   403
        2270         0367                         UJN    SCE31                                                   COMPSCE   404
                                                                                                                 COMPSCE   405
        2271         6520 2260           SCE33    IJM.   SCE31,20    IF NOT 20 PPS                               COMPSCE   406
        2273         5000 7675                    LDM    /CPA/PPP1                                               COMPSCE   407
        2275         0562                         NJN    SCE31       IF NOT 20 PPS                               COMPSCE   408
        2276         1436                         LDN    36                                                      COMPSCE   409
        2277         0200 2304                    RJM    CGC         CHANGE CHANNELS                             COMPSCE   410
        2301         0100 1634                    LJM    SCE2        LOOP TO CHECK CHANNEL 36 S/C REGISTER       COMPSCE   411
  
  
  
  
                                        **        CGC - CHANGE CHANNELS.                                         COMPSCE   413
                                        *                                                                        COMPSCE   414
                                        *         ENTRY  (A) = CHANNEL NUMBER.                                   COMPSCE   415
                                        *                                                                        COMPSCE   416
                                        *         USES   C2.                                                     COMPSCE   417
1       DHE         CTI DISPLAY HARDWARE ERRORS - A02                 COMPASS 3.7-871.     23/08/13. 15.42.36.      PAGE    32
        COMPSCE - STATUS/CONTROL REGISTER ERROR PROCESSOR.            CGC                 COMPSCE 
  
                                                                                                                 COMPSCE   418
                                                                                                                 COMPSCE   419
        2303         0100 2303           CGC      SUBR               ENTRY/EXIT                                  COMPSCE   420
                                                                                                                 COMPSCE   421
                                        *         CHANGE CHANNEL IN I/O INSTRUCTIONS.                            COMPSCE   422
                                                                                                                 COMPSCE   423
        2305         2100 7240                    ADC    OANI+40     CHANGE CHANNEL                              COMPSCE   424
        2307         5400 1643                    STM    SCEA                                                    COMPSCE   425
        2311         5400 2151                    STM    SCED                                                    COMPSCE   426
        2313         2300 0200                    LMC    IANI&OANI                                               COMPSCE   427
        2315         5400 1644                    STM    SCEB                                                    COMPSCE   428
        2317         5400 2152                    STM    SCEE                                                    COMPSCE   429
        2321         1220                         LPN    20                                                      COMPSCE   430
        2322         0404                         ZJN    CGC1        IF CHANGE TO CHANNEL 16                     COMPSCE   431
                                                                                                                 COMPSCE   432
                                        *         CHANGE PPU AND CHANNEL NUMBERS IN TABLE *TEMF*.                COMPSCE   433
                                                                                                                 COMPSCE   434
        2323         2000 1420                    LDC    LDNI+20     CHANGE TO CHANNEL 36 INSTRUCTION            COMPSCE   435
        2325         0303                         UJN    CGC2                                                    COMPSCE   436
                                                                                                                 COMPSCE   437
        2326         2000 1520           CGC1     LDC    LCNI+20     CHANGE TO CHANNEL 16 INSTRUCTION            COMPSCE   438
        2330         5400 2335           CGC2     STM    CGCA                                                    COMPSCE   439
        2332         2000 2414                    LDC    TEMF+TEMFC  CHANGE PPU AND CHANNEL MESSAGE NUMBERS      COMPSCE   440
        2334         3461                         STD    C2                                                      COMPSCE   441
        2335         1420                CGC3     LDN    20                                                      COMPSCE   442
                                2335     CGCA     EQU    *-1                                                     COMPSCE   443
                                        *         LCN    20          (IF CHANGING TO CHANNEL 16)                 COMPSCE   444
        2336         1003                         SHN    3                                                       COMPSCE   445
        2337         4561                         RAI    C2                                                      COMPSCE   446
        2340         1402                         LDN    2                                                       COMPSCE   447
        2341         3561                         RAD    C2                                                      COMPSCE   448
        2342         2177 5310                    ADC    -TEMF-TEMFD-1                                           COMPSCE   449
        2344         0770                         MJN    CGC3        IF NOT ALL INSERTION CODES CHANGED          COMPSCE   450
        2345         0100 2303                    LJM    CGCX        RETURN                                      COMPSCE   451
  
  
  
  
                                        **        TNUB - TABLE OF NOT USED BITS.                                 DIMA299    39
                                        *                                                                        COMPSCE   454
                                        *         ENTRY  ONE WORD FOR EACH OF FIRST FOUR WORDS OF CHANNEL 16     COMPSCE   455
                                        *                S/C REGISTER ON A CYBER 176.  EACH BIT CORRESPONDS TO   COMPSCE   456
                                        *                A BIT IN THE S/C REGISTER.  IF SET IN THE MASK, THAT    COMPSCE   457
                                        *                CORRESPONDING BIT IS CURRENTLY NOT USED ON A 176.       COMPSCE   458
                                        *                MASK FOR BITS 0 - 11 IS MODIFIED FOR A 17X MODEL D.     DIMA299    40
                                                                                                                 COMPSCE   459
                                                                                                                 COMPSCE   460
        2347                             TNUB     BSS    0                                                       COMPSCE   461
      L    0                                      LOC    0                                                       COMPSCE   462
      L    0         7114                         CON    7114        BITS 0 - 11                                 COMPSCE   463
                                        *         CON    1274B       (17X MODEL D MASK)                          DIMA299    41
      L    1         6000                         CON    6000        BITS 12 - 23                                COMPSCE   464
      L    2         0000                         CON    0000        BITS 24 - 35                                COMPSCE   465
      L    3         1400                         CON    1400        BITS 36 - 39                                COMPSCE   466
        2353                                      LOC    *O                                                      COMPSCE   467
1       DHE         CTI DISPLAY HARDWARE ERRORS - A02                 COMPASS 3.7-871.     23/08/13. 15.42.36.      PAGE    33
        COMPSCE - STATUS/CONTROL REGISTER ERROR PROCESSOR.                                COMPSCE 
  
                                        **        TUBT - TABLE OF USED CHANNEL 36 BITS.                          COMPSCE   469
                                        *                                                                        COMPSCE   470
                                        *         ENTRY - ONE WORD FOR EACH OF FIRST FOUR WORDS OF CHANNEL 36    COMPSCE   471
                                        *                S/C REGISTER.  EACH BIT CORRESPONDS TO A BIT IN THE     COMPSCE   472
                                        *                S/C REGISTER.  IF SET IN THE MASK, THAT CORRESPONDING   COMPSCE   473
                                        *                BIT IS CURRENTLY IN USE IN THE CHANNEL 36 S/C REGISTER. COMPSCE   474
                                                                                                                 COMPSCE   475
                                                                                                                 COMPSCE   476
        2353                             TUBT     BSS    0                                                       COMPSCE   477
      L    0                                      LOC    0                                                       COMPSCE   478
      L    0         4060                         CON    4060        BITS 0 - 11                                 COMPSCE   479
                                        *         CON    0060        (CYBER 176 MASK)                            COMPSCE   480
                                        *         CON    0           (CYBER 176 MOD B OR CYBER 17X MOD D MASK)   DIMA299    42
      L    1         7777                         CON    7777        BITS 12 - 23                                COMPSCE   481
                                        *         CON    1777        (CYBER 176 MASK)                            COMPSCE   482
      L    2         7777                         CON    7777        BITS 24 - 35                                COMPSCE   483
      L    3         0000                         CON    0           BITS 36 - 39                                COMPSCE   484
        2357                                      LOC    *O                                                      COMPSCE   485
  
  
  
  
                                        **        TEMF - TABLE OF ERROR MESSAGE FORMAT ADDRESSES.                COMPSCE   487
                                        *                                                                        COMPSCE   488
                                        *         ENTRY  TWO WORDS, INDEXED BY BIT NUMBER, IN FORMAT -           COMPSCE   489
                                        *                                                                        COMPSCE   490
                                        *         12/  ADDR                                                      COMPSCE   491
                                        *         12/  CODE                                                      COMPSCE   492
                                        *                                                                        COMPSCE   493
                                        *                WHERE ADDR = ERROR MESSAGE ADDRESS,                     COMPSCE   494
                                        *                      CODE = DISPLAY CODE TO BE INSERTED IN MESSAGE.    COMPSCE   495
                                        *                             UPPER BIT SET REPRESENTS SECDED ERROR      COMPSCE   496
                                        *                             MESSAGE.                                   COMPSCE   497
                                                                                                                 COMPSCE   498
                                                                                                                 COMPSCE   499
        2357                             TEMF     BSS    0                                                       COMPSCE   500
      L    0                                      LOC    0                                                       COMPSCE   501
      L    0         2477 0000                    CON    RPEM,0      READ PYRAMID PARITY ERROR                   COMPSCE   502
      L    2         2516 3355                    CON    CAEM,2R0    CSU 0 ADDRESS PARITY ERROR                  COMPSCE   503
      L    4         2516 3455                    CON    CAEM,2R1    CSU 1 ADDRESS PARITY ERROR                  COMPSCE   504
      L    6         2537 4000                    CON    SEEM,4000B  SECDED ERROR                                COMPSCE   505
      L   10         3026 0000           TEMFA    CON    NUEM,0      NOT USED                                    COMPSCE   506
                                        *         CON    PPEM,0      (PPU ERROR FOR FLPP-S - CYBER 176)          COMPSCE   507
      L   12         2575 0000                    CON    CMEM,0      CMC PARITY ERROR                            COMPSCE   508
      L   14         2607 0000                    CON    DREM,0      PE ON DATA RECEIVED FROM EXTERNAL CHANNEL   COMPSCE   509
      L   16         2636 0000                    CON    DTEM,0      PE ON DATA TRANSMITTED FROM EXTERNAL PP     COMPSCE   510
      L   20         2666 3355                    CON    MTEM,2R0    CSU 0 FAULT                                 COMPSCE   511
      L   22         2666 3455                    CON    MTEM,2R1    CSU 1 FAULT                                 COMPSCE   512
      L   24         2675 0000                    CON    ESEM,0      ERROR IN SECOND PPS                         COMPSCE   513
      L   26         2710 0000           TEMFB    CON    ECEM,0      ECS ERROR                                   COMPSCE   514
                                        *         CON    LSEM,4000   (LCM SECDED ERROR - CYBER 176)              COMPSCE   515
      L   30         2717 3355                    CON    PREM,2R0    CPU 0 P REGISTER PARITY ERROR               COMPSCE   516
      L   32         2717 3455                    CON    PREM,2R1    CPU 1 P REGISTER PARITY ERROR               COMPSCE   517
      L   34         2740 3333                    CON    PMEM,2R00   PP00 MEMORY PARITY ERROR (PP20)             COMPSCE   518
                                  35     TEMFC    EQU    *-1                                                     COMPSCE   519
      L   36         2740 3334                    CON    PMEM,2R01   PP01 STOPPED ON PARITY ERROR (PP21)         COMPSCE   520
      L   40         2740 3335                    CON    PMEM,2R02   PP02 STOPPED ON PARITY ERROR (PP22)         COMPSCE   521
1       DHE         CTI DISPLAY HARDWARE ERRORS - A02                 COMPASS 3.7-871.     23/08/13. 15.42.36.      PAGE    34
        COMPSCE - STATUS/CONTROL REGISTER ERROR PROCESSOR.                                COMPSCE 
  
      L   42         2740 3336                    CON    PMEM,2R03   PP03 STOPPED ON PARITY ERROR (PP23)         COMPSCE   522
      L   44         2740 3337                    CON    PMEM,2R04   PP04 STOPPED ON PARITY ERROR (PP24)         COMPSCE   523
      L   46         2740 3340                    CON    PMEM,2R05   PP05 STOPPED ON PARITY ERROR (PP25)         COMPSCE   524
      L   50         2740 3341                    CON    PMEM,2R06   PP06 STOPPED ON PARITY ERROR (PP26)         COMPSCE   525
      L   52         2740 3342                    CON    PMEM,2R07   PP07 STOPPED ON PARITY ERROR (PP27)         COMPSCE   526
      L   54         2740 3433                    CON    PMEM,2R10   PP10 STOPPED ON PARITY ERROR (PP30)         COMPSCE   527
      L   56         2740 3434                    CON    PMEM,2R11   PP11 STOPPED ON PARITY ERROR (PP31)         COMPSCE   528
      L   60         2764 3333                    CON    CPEM,2R00   CHANNEL 00 PARITY ERROR (20)                COMPSCE   529
      L   62         2764 3334                    CON    CPEM,2R01   CHANNEL 01 PARITY ERROR (21)                COMPSCE   530
      L   64         2764 3335                    CON    CPEM,2R02   CHANNEL 02 PARITY ERROR (22)                COMPSCE   531
      L   66         2764 3336                    CON    CPEM,2R03   CHANNEL 03 PARITY ERROR (23)                COMPSCE   532
      L   70         2764 3337                    CON    CPEM,2R04   CHANNEL 04 PARITY ERROR (24)                COMPSCE   533
      L   72         2764 3340                    CON    CPEM,2R05   CHANNEL 05 PARITY ERROR (25)                COMPSCE   534
      L   74         2764 3341                    CON    CPEM,2R06   CHANNEL 06 PARITY ERROR (26)                COMPSCE   535
      L   76         2764 3342                    CON    CPEM,2R07   CHANNEL 07 PARITY ERROR (27)                COMPSCE   536
      L  100         2764 3433                    CON    CPEM,2R10   CHANNEL 10 PARITY ERROR (30)                COMPSCE   537
      L  102         2764 3434                    CON    CPEM,2R11   CHANNEL 11 PARITY ERROR (31)                COMPSCE   538
      L  104         2764 3435                    CON    CPEM,2R12   CHANNEL 12 PARITY ERROR (32)                COMPSCE   539
      L  106         2764 3436                    CON    CPEM,2R13   CHANNEL 13 PARITY ERROR (33)                COMPSCE   540
                                 107     TEMFD    EQU    *-1                                                     COMPSCE   541
      L  110         3001 0000                    CON    PFEM,0      MAINS POWER FAILURE                         COMPSCE   542
      L  112         3014 0000                    CON    SIEM,0      SHUTDOWN IMMINENT                           COMPSCE   543
      L  114         3026 0000                    CON    NUEM,0      NOT USED                                    COMPSCE   544
      L  116         3026 0000                    CON    NUEM,0      NOT USED                                    COMPSCE   545
        2477                                      LOC    *O                                                      COMPSCE   546
                                                                                                                 COMPSCE   547
                                                                                                                 COMPSCE   548
                                        *         ERROR MESSAGE FORMATS.                                         COMPSCE   549
                                                                                                                 COMPSCE   550
        2477         2205                RPEM     DATA   C*READ PYRAMID PARITY ERROR.*                           COMPSCE   551
        2515         0002                         CON    2                                                       COMPSCE   552
        2516         0323                CAEM     DATA   C*CSU   ADDRESS PARITY ERROR.*                          COMPSCE   553
        2535         1403                LSEM     DATA   H*LCM *                                                 COMPSCE   554
        2537         2305                SEEM     DATA   C*SECDED        BIT ERROR - QUADRANT   , CSU  .*        COMPSCE   555
        2567         2020                PPEM     DATA   C*PPU ERROR.*                                           COMPSCE   556
        2575         0315                CMEM     DATA   C*CMC PARITY ERROR.*                                    COMPSCE   557
        2607         2001                DREM     DATA   C*PARITY ERROR ON DATA RCVD FROM EXT CHANNEL.*          COMPSCE   558
        2636         2001                DTEM     DATA   C*PARITY ERROR ON DATA XMTD FROM EXTERNAL PP.*          COMPSCE   559
        2665         0002                         CON    2                                                       COMPSCE   560
        2666         0323                MTEM     DATA   C*CSU   FAULT.*                                         COMPSCE   561
        2675         0522                ESEM     DATA   C*ERROR IN SECOND PPS.*                                 COMPSCE   562
        2710         0503                ECEM     DATA   C*ECS ERROR.*                                           COMPSCE   563
        2716         0002                         CON    2                                                       COMPSCE   564
        2717         0320                PREM     DATA   C*CPU   P REGISTER PARITY ERROR.*                       COMPSCE   565
        2737         0001                         CON    1                                                       COMPSCE   566
        2740         2020                PMEM     DATA   C*PP   STOPPED ON PARITY ERROR - PPM.*                  COMPSCE   567
        2763         0004                         CON    4                                                       COMPSCE   568
        2764         0310                CPEM     DATA   C*CHANNEL    PARITY ERROR.*                             COMPSCE   569
        3001         1501                PFEM     DATA   C*MAINS POWER FAILURE.*                                 COMPSCE   570
        3014         2310                SIEM     DATA   C*SHUTDOWN IMMINENT.*                                   COMPSCE   571
        3026         1617                NUEM     DATA   C*NOT USED.*                                            COMPSCE   572
        3034         5523                SSET     DATA   8H SINGLE                                               COMPSCE   573
        3040         5504                SDET     DATA   8H DOUBLE                                               COMPSCE   574
        3044         0201                BNKT     DATA   C*BANK  .*                                              COMPSCE   575
        3051         2125                QRNT     DATA   H*QUADRANT  *                                           COMPSCE   576
1       DHE         CTI DISPLAY HARDWARE ERRORS - A02                 COMPASS 3.7-871.     23/08/13. 15.42.36.      PAGE    35
        COMPSCE - STATUS/CONTROL REGISTER ERROR PROCESSOR.                                COMPSCE 
  
                                         QUAL$    IF     -DEF,QUAL$                                              COMPSCE   578
                                                  QUAL   *                                                       COMPSCE   579
                                1526     SCE      EQU    /COMPSCE/SCE                                            COMPSCE   580
                                         QUAL$    ENDIF                                                          COMPSCE   581
                                                  ENDX                                                           COMPSCE   582
                                                  LIST   *                                                       DHE       820
  
  
  
  
                                                  USE    LITERALS                                                DHE       822
                                                                                                                 DHE       823
                                        *         BUFFERS.                                                       DHE       824
                                                                                                                 DHE       825
        3056                      21     SC0B     BSSZ   NSCB        CHANNEL 16 S/C REGISTER BUFFER              DIMA290A    3
        3077                      21     SC1B     BSSZ   NSCB        CHANNEL 36 S/C REGISTER BUFFER              DIMA290A    4
                                3120     TEMA     EQU    *           TABLE OF ERROR MESSAGE BUFFER ADDRESSES     DIMA290A    5
                                3241     EBUF     EQU    TEMA+NTEB*2+1  ERROR MESSAGE BUFFER                     DIMA290A    6
                                                                                                                 DHE       830
                                                                                                                 DHE       831
                                 537              ERRNG  /CTI/IPLB-EBUF-EBUFL  IF *IOQ* OVERWRITTEN              DHE       832
1       DHE         CTI DISPLAY HARDWARE ERRORS - A02                 COMPASS 3.7-871.     23/08/13. 15.42.36.      PAGE    36
        SWITCH PP 10 TO CHANNEL 0.                                    PRS       LITERALS
  
                                        **        PRS - SWITCH PP 10 TO CHANNEL 0.                               DHE       834
                                        *                                                                        DHE       835
                                        *         EXIT   (NO) = 1 IF CHANNEL 36 S/C REGISTER EXISTS.             DHE       836
                                        *                                                                        DHE       837
                                        *         USES   NONE.                                                   DHE       838
                                        *                                                                        DHE       839
                                        *         CALLS  NONE.                                                   DHE       840
                                                                                                                 DHE       841
                                                                                                                 DHE       842
        3120         0100 3120           PRS      SUBR               ENTRY/EXIT                                  DHE       843
                                                                                                                 DHE       844
                                        *         CONNECT DISPLAY CHANNEL.                                       DHE       845
                                                                                                                 DHE       846
        3122         1405                         LDN    PRSAL-1     OUTPUT IDLE LOOP                            DHE       847
        3123         7310 3165                    OAM.   PRSA,CH                                                 DHE       848
        3125         6610 3125                    FJM    *,CH        WAIT FOR TRANSFER TO COMPLETE               DHE       849
        3127         7550                         DCN.   CH+40                                                   DHE       850
        3130         3615                         AOD    IL          FLAG IDLE LOOP OUTPUT DONE                  DHE       851
                                                                                                                 DHE       852
                                        *         CHECK FOR CHANNEL 36 S/C REGISTER.                             DHE       853
                                                                                                                 DHE       854
        3131         6520 3135           PRS1     IJM.   PRS2,20     IF NOT 20 PPUS                              DHE       855
        3133         1401                         LDN    1           SET CHANNEL 36 REGISTER FLAG                DHE       856
        3134         3411                         STD    NO                                                      DHE       857
        3135         5000 7673           PRS2     LDM    /CPA/OPTN   SAVE /CPA/OPTN                              DHE       858
        3137         5400 0353                    STM    LNPE                                                    DHE       859
        3141         2000 4110                    LDC    FCSB+SCSL   DETERMINE IF MAINFRAME IS C176              DHE       860
        3143         7256                         OAN.   SC+40                                                   DHE       861
        3144         7056                         IAN.   SC+40                                                   DHE       862
        3145         2000 3110                    LDC    FCTC+SCSL                                               DHE       863
        3147         7256                         OAN.   SC+40                                                   DHE       864
        3150         7056                         IAN.   SC+40                                                   DHE       865
        3151         0412                         ZJN    PRS3        IF BIT NOT SET, NOT C176                    DHE       866
        3152         2000 1110                    LDC    FCTB+SCSL                                               DHE       867
        3154         7256                         OAN.   SC+40                                                   DHE       868
        3155         7056                         IAN.   SC+40                                                   DHE       869
        3156         0505                         NJN    PRS3        IF BIT NOT CLEARED, NOT C176                DHE       870
        3157         2000 3000                    LDC    3000        INDICATE C176                               DHE       871
        3161         5400 7673                    STM    /CPA/OPTN                                               DHE       872
        3163         0100 3120           PRS3     LJM    PRSX                                                    DHE       873
                                                                                                                 DHE       874
        3165                             PRSA     BSS    0                                                       DHE       875
      L    0                                      LOC    0                                                       DHE       876
      L    0         0000                         CON    0                                                       DHE       877
      L    1         6500 0001                    IJM.   *,0                                                     DHE       878
      L    3         1500                         LCN    0                                                       DHE       879
      L    4         7110 0000                    IAM.   0,CH                                                    DHE       880
        3173                                      LOC    *O                                                      DHE       881
                                                                                                                 DHE       882
                                   6     PRSAL    EQU    *-PRSA                                                  DHE       883
        3172                                      ORG    *-1                                                     DHE       884
        3207                                      END                                                            DHE       885
  
                             54400B CM  STORAGE USED             1954 STATEMENTS     1028 SYMBOLS      000013 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            1.738 SECONDS        1064 REFERENCES
  
1       DHE         CTI DISPLAY HARDWARE ERRORS - A02                 COMPASS 3.7-871.     23/08/13. 15.42.36.      PAGE    37
        SYMBOLIC REFERENCE TABLE. 
  
        AM             64                   4/28 L   28/07 S   28/24     30/06     30/30     31/13     31/16 S
        ASE          1056                  14/32     16/44 D
        ASEX         1055                  16/44 L   16/49
        BA             10                   4/04 L    6/31 S   11/24 I   21/22     21/39 S   22/20
                                            6/12 S   11/20 S   11/25 S   21/30     22/15     22/24 S
        BN             13                   4/07 L   12/44 S   12/49 S   12/53 S   14/18     14/40     14/52
        BT             66                   4/30 L   26/47 S   27/07 S   27/25
        BW             67                   4/31 L   26/54 S   27/18 S   27/26     27/38
        CB             70                   4/33 L   27/32 S   30/54     30/57 S   31/06
        CCH           522                  10/52     10/57     11/44 D   12/42
        CCHX          521                  11/44 L   11/50
        CCRO          251                  15/22     15/24
        CCRT          250                  15/26     15/28
        CDS           536                   7/33     12/10 D
        CDSW           17                  15/18     28/33
        CDSX          535                  12/10 L   12/17     12/21
        CEB           555                   5/11      5/20      5/54     12/39 D
        CEBX          554                  12/39 L   13/01
        CEB1          560                  12/42 L   12/57
        CEB2          574                  12/50 L   12/55
        CFO           610                  13/18 D   17/49
        CFOA          640                  13/27     13/36 L   13/38
        CFOAL          14                  13/26     13/38 D
        CFOX          607                  13/18 L   13/21     13/34
        CH             10                   3/14 D    5/40      7/25     12/11     13/23     13/29     17/57     36/15
                                            5/35      7/20      7/27     12/15     13/25     17/50     18/03     36/16
                                            5/38      7/21      7/28     12/18     13/27     17/53     18/27     36/17
                                            5/39      7/23      7/29     13/22     13/28     17/55     20/09     36/47
        CHSC           16   NOSTEXT         3/17 D   26/03     26/15     28/34     28/39     29/39     29/51
                                           25/56     26/04     26/56     28/35     29/30     29/40     30/15
                                           25/57     26/14     27/01     28/38     29/31     29/50     30/17
        CLE          1151                   5/08      5/17     18/48 D
        CLEX         1150                  18/48 L   19/55
        CLE1         1171                  19/01 L   19/52
        CLE10        1277                  19/13     19/31     19/34     19/53 L
        CLE11        1301                  19/41     19/43     19/55 L
        CLE1.1       1210                  19/09     19/11 L
        CLE2         1213                  19/03     19/05     19/07     19/13 L   19/19
        CLE3         1215                  19/12     19/14 L
        CLE4         1227                  18/56 S   19/21 L   19/50 S
        CLE5         1230                  18/53 S   19/23 L   19/47 S
        CLE6         1231                  19/16     19/25 L
        CLE7         1250                  18/57 S   19/36 L   19/51 S
        CLE8         1251                  18/54 S   19/38 L   19/48 S
        CLE9         1252                  19/10     19/27     19/40 L
        CLS           711                  12/46     12/51     14/42 D
        CLSX          710                  14/42 L
        CLS1          722                  14/47     14/52 L
        CLS2          731                  14/56     15/01 L
        CLS3          750                  15/06     15/11 L
        CLS4          762                  14/54     15/18 L
        CLS5          777                  15/21     15/26 L
        CLS6          654                  14/18 L   14/48
        CLS7          664                  14/27 L   14/57
        CLS8          672                  14/31 L   14/38
        CLS9          705                  14/20     14/23     14/39 L   14/43     15/02     15/15     15/30
        CMAW            4                  28/37
1       DHE         CTI DISPLAY HARDWARE ERRORS - A02                 COMPASS 3.7-871.     23/08/13. 15.42.36.      PAGE    38
        SYMBOLIC REFERENCE TABLE. 
  
        CPUE          123                  16/02     16/04
        CSE          1046                  14/35     16/20 D
        CSEX         1045                  16/20 L   16/25
        CT             73                   4/36 L   25/54 S   26/09 S   26/24 S   26/34     27/46
        C1             60                   4/24 L   28/06     28/42 S   29/03 S   29/15 S   29/45     31/01 S
                                           27/34 S   28/10     28/50     29/10 S   29/35 S   30/32     31/04
                                           28/02 S   28/11 S   28/54     29/13     29/44 S   30/53 S
        C2             61                   4/25 L   28/28     28/40 S   29/14     29/24     29/43 S   30/31 S   32/29 I
                                           28/09 S   28/29     28/47     29/16 S   29/25 S   29/55     30/33 I   32/31 S
                                           28/22 S   28/30 S   29/12 S   29/23     29/28 S   30/29     32/24 S
        C2D          1514                  21/24     21/31     22/17     22/21
        DCL          1115                   6/16      9/30     10/22     17/47 D
        DCLA         1122                   6/10 S   13/31 S   17/51 D
        DCLX         1114                  17/47 L   18/06
        DDFP           73                  14/29
        DEM           355                   6/24      6/35      9/15 D
        DEMX          354                   9/15 L    9/22      9/26
        DEM1          364                   9/21 L    9/32
        DHE           100                   5/06 L
        DHEA          254                   5/38      6/38 L    6/40
        DHEAL           2                   5/37      6/40 D
        DHE1          127                   5/15      5/21 L
        DHE2          131                   5/10      5/19      5/25 L
        DHE2A         156                   5/47 L    5/50
        DHE2.5        147                   5/28      5/42 L
        DHE3          203                   6/07 L    6/29      6/36
        DMSA         1446                   9/50 S    9/52 S    9/55     10/19     10/23 S   22/54 L
        DMSC         1472                   6/13     22/55 L
        DNL          1140                  18/02     18/22 D
        DNLX         1137                  18/22 L   18/28
        DNL1         1143                  18/25 L   18/29
        DRC           402                   6/20      6/33      9/48 D
        DRCX          401                   9/48 L   10/27
        DRC1          415                   9/55 L   10/26
        DRC2          422                  10/05 L   10/10
        DRC3          434                  10/15 L   10/33
        DRC4          455                  10/07     10/29 L
        DSFP           72                  14/33     15/51     15/55
        DSP          1012                  14/34     15/46 D
        DSPA         1024                  15/50 S   15/53 D
        DSPB         1030                  15/48 S   15/57 D
        DSPX         1011                  15/46 L   16/06
        EBUF         3241                   4/26      5/51     35/18 D   35/21
        EBUFL        2000                   3/26 D    4/27      5/42     35/21
        ENSC          122                  16/21     16/47
        FCCA         6000                   5/55      6/01
        FCCL         2000                  14/21     15/09     15/28     15/55     17/17     19/20
                                           14/29     15/13     15/47     16/04     17/22     19/35
                                           14/39     15/24     15/49     16/21     17/26
        FCRD            0                   4/35     15/03     26/48     28/37     29/38
                                           11/21     15/18     28/33     29/29     29/49
        FCSB         4000                  15/07     15/22     15/49     16/02     17/17     36/27
                                           15/11     15/26     15/51     16/47     26/13
        FCTB         1000                  26/02     30/14     36/34
        FCTC         3000                  25/55     36/30
        FF             14                   4/08 L    5/09      5/18     18/50 S   19/54 S
1       DHE         CTI DISPLAY HARDWARE ERRORS - A02                 COMPASS 3.7-871.     23/08/13. 15.42.36.      PAGE    39
        SYMBOLIC REFERENCE TABLE. 
  
        FW             62                   4/26 L   30/37     30/50 I   31/08 I   31/11 I   31/14 I   31/22 S
                                           25/49 S   30/40     30/51 S   31/09 S   31/12 S   31/17 S   31/31 S
        HPP          1304                   5/53     20/08 D
        HPPB         1334                  20/27     20/29 L   20/36
        HPPC         1336                  20/28     20/30 L   20/36
        HPPD         1341                  20/29     20/33 L
        HPPE         1345                  20/20     20/36 L
        HPPF         1324                  20/22 L   20/36
        HPPG         1326                  20/24 L   20/36
        HPPH         1331                  20/27 L   20/36
        HPPX         1303                  20/08 L   20/19
        HPP03        1307                  20/11 L   20/17
        HPP04        1310                  20/12 L   20/32
        HPP05        1316                  20/15     20/18 L
        HPP06        1320                  20/14     20/20 L
        IAMI         7100                   3/39 D
        IANI         7000                   3/38 D   11/48     18/52     19/46
        IC             15                   3/15 D
        ICN          1354                  20/21     20/52 D
        ICNX         1353                  20/52 L   20/55
        ICN1         1356                  20/54 L   21/05
        IL             15                   4/09 L   12/16     36/18 S
        IPN          1106                  16/46     17/25 D
        IPNX         1105                  17/25 L
        IPN1         1067                  17/12 L   17/23
        IPN2         1071                  17/14 L   17/29
        IPN3         1076                  17/16     17/18 L
        LCAW           10                  29/38     29/49
        LCNI         1500                   3/41 D   20/33
        LCRO          261                  15/07     15/09
        LCRT          260                  15/11     15/13
        LDNI         1400                   3/37 D
        LDSW           20                  15/03     29/29
        LJMI          100                   3/35 D
        LNP           256                   5/21      7/14 L
        LNPA          331                   7/34      7/41 L
        LNPB          334                   7/41      7/45 L
        LNPC          341                   7/42      7/50 L
        LNPD          346                   7/43      7/55 L
        LNPE          353                   7/14      8/03 L   36/26 S
        LNP1          310                   7/19      7/33 L
        LPN.1         267                   7/20 L    7/32
        LSCD           13                  15/01     19/35
        LW             63                   4/27 L    5/43 S   25/50 S   30/42     31/18     31/23
        MC              0                   3/18 D    5/36      5/41     16/24     16/45
        MS             17                   4/12 L    6/14 S    9/28 S   10/20 S   18/01
        MSGA          316                   7/27      7/37 D    7/39
        MSGAL          13                   7/26      7/39 D
        NO             11                   4/05 L    6/28     10/55     12/40     19/40     36/24 S
        NSCB           21                  11/21     19/44     35/15     35/16
        NTEB           50                  12/54     27/08     27/27     27/31     35/18
        OANI         7200                   3/40 D   11/46     11/48     18/55     19/49
        PCMP          167                  30/14
        PDB          1370                  10/05     21/21 D
        PDBX         1367                  21/21 L   21/40
        PDC          1423                  10/08     22/14 D
        PDCX         1422                  22/14 L   22/25
1       DHE         CTI DISPLAY HARDWARE ERRORS - A02                 COMPASS 3.7-871.     23/08/13. 15.42.36.      PAGE    40
        SYMBOLIC REFERENCE TABLE. 
  
        PPCT          124                  25/55     26/02     26/13
        PPUE            4                  14/55     15/01
        PRS          3121                   5/06     36/10 D
        PRSA         3165                  36/15     36/42 L   36/50
        PRSAL           6                  36/14     36/50 D
        PRSX         3120                  36/10 L   36/40
        PRS1         3131                  36/22 L
        PRS2         3135                  36/22     36/25 L
        PRS3         3163                  36/33     36/37     36/40 L
        RER           505                  10/54     11/02     11/19 D
        RERX          504                  11/19 L   11/28
        RER1          512                  11/23 L   11/27
        RN             16                   4/11 L   12/41 S   12/45     12/50     12/56 S
        RSC           463                   5/07      5/16     10/50 D
        RSCX          462                  10/50 L   10/56     11/03
        RW             72                   4/35 L   26/49 S   26/55     27/05 S   27/48     27/54
        SC             16                   3/16 D    5/57     11/46     17/19     19/23     22/42     36/29     36/35
                                            3/17      6/02     16/22     17/20     19/36     22/44     36/31     36/36
                                            5/56      6/03     16/23     19/21     19/38     36/28     36/32
        SCE          1526                   5/52     35/03 D
        SCSL          110                  17/22     17/26     36/27     36/30     36/34
        SC0B         3056                   4/04     10/53     19/04     19/08     19/17     19/32
                                            6/11     19/01     19/06     19/14     19/25     35/15 L
        SC1B         3077                   6/30     11/01     35/16 L
        SDSC          267                  14/21
        SECD            3                  14/19     14/53     14/55     19/20
        SFC          1442                  11/23     14/22     15/08     15/14     15/25     15/54     16/05
                                           12/47     14/30     15/10     15/19     15/27     16/01     16/48
                                           12/52     15/04     15/12     15/23     15/29     16/03     22/41 D
        SFCA         1443                  11/47 S   22/42 L
        SFCB         1444                  11/49 S   22/44 L
        SFCX         1441                  22/41 L   22/46
        STDI         3401                   3/42 D   20/33
        STII         4401                   3/43 D   20/33
        TA             12                   4/06 L    6/22 S    9/21      9/31 S
        TE             65                   4/29 L    5/45 S   30/38 I   30/39 S   31/29 S   31/30     31/33 I
        TEMA         3120                   4/06      4/29      5/44      6/21     35/17 D   35/18
        T0              0   NOSTEXT         3/52 D
        T1              1   NOSTEXT         3/53 D    5/48 S   11/22 S   17/14 S   18/24 S   20/11 S   20/31 S
                                            5/46 S    7/17 S   11/26 S   17/48 S   18/25 S   20/12     21/02
                                            5/47 I    7/34     17/12     17/54     18/26     20/25
        T2              2   NOSTEXT         3/54 D   10/06 S   17/21 S   20/53 S   21/04 S
                                            9/54 S   17/18     17/27 S   20/54
        T3              3   NOSTEXT         3/55 D   10/09 S   14/31 S   17/28     20/57
                                           10/01 S   14/28 S   14/36     20/56 S   21/03 I
        T4              4   NOSTEXT         3/56 D   10/15 I   10/18 I   10/30     21/29     21/36     22/18 I   22/22 I
                                            9/56 S   10/16 S   10/29 S   21/26     21/34     21/38 S   22/19 S   22/23 S
        T5              5   NOSTEXT         3/57 D    9/18 S    9/25
        T6              6   NOSTEXT         4/01 D    9/23 S    9/24      9/27 S
        T7              7   NOSTEXT         4/02 D   19/01     19/06     19/14     19/25     19/42
                                           18/51 S   19/04     19/08     19/17     19/32     19/45 S
        UJNI          300                   3/36 D   20/33
        WC             71                   4/34 L   27/03 S   27/14     27/16 S
        XE             21                   4/14 L    7/22      9/29
        XK             22                   4/15 L
        XS             20                   4/13 L   10/21
1       DHE         CTI DISPLAY HARDWARE ERRORS - A02                 COMPASS 3.7-871.     23/08/13. 15.42.36.      PAGE    41
        SYMBOLIC REFERENCE TABLE. 
  
        YC             23                   4/16 L    6/18 S    9/20 S   13/24     17/56
                                            6/08 S    7/24     13/19     13/33 S   18/05 S
        YCIN           12                   3/28 D    6/07      6/17      9/19     13/32     18/04
        YCLC         7012                   3/29 D   13/20
        YCUL         7776                   3/27 D    6/07     13/32
  
  
  
  
                                                  SYMBOL QUALIFIER =  CPA 
  
  
        OPTN         7673                   5/12      7/15 S   19/28     28/43     36/39 S
                                            5/25     14/44     26/16     36/25
        PPP1         7675                  31/44
  
  
  
  
                                                  SYMBOL QUALIFIER =  CTI 
  
  
        CDEP         7000                   7/35
        DHEP         6776                   7/16
        EBLLOAD       200                   7/55      7/56
        IPLB         6000                   5/49     35/21
        LOAD           10                   1/16      3/51      7/45      7/50
        TRAN          100                   5/04      7/46      7/51
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMPSCE 
  
  
        BNKT         3044                  29/23     34/54 L
        CAEM         2516                  33/39     33/40     34/32 L
        CGC          2304                  26/45     31/47     32/03 D
        CGCA         2335                  32/22 S   32/26 D
        CGCX         2303                  32/03 L   32/34
        CGC1         2326                  32/14     32/21 L
        CGC2         2330                  32/19     32/22 L
        CGC3         2335                  32/25 L   32/33
        CMEM         2575                  33/44     34/36 L
        CPEM         2764                  34/08     34/10     34/12     34/14     34/16     34/18     34/48 L
                                           34/09     34/11     34/13     34/15     34/17     34/19
        DREM         2607                  33/45     34/37 L
        DTEM         2636                  33/46     34/38 L
        ECEM         2710                  33/50     34/42 L
        ESEM         2675                  33/49     34/41 L
        IANI         7000                  25/36 D   32/10
        LCNI         1500                  25/35 D   32/21
        LDNI         1400                  25/34 D   26/11     32/18
        LPNI         1200                  25/33 D   29/47
        LSEM         2535                  26/29     28/23     34/33 L
        MTEM         2666                  33/47     33/48     34/40 L
        NUEM         3026                  33/42     34/23     34/24     34/51 L
1       DHE         CTI DISPLAY HARDWARE ERRORS - A02                 COMPASS 3.7-871.     23/08/13. 15.42.36.      PAGE    42
        SYMBOLIC REFERENCE TABLE.                                     COMPSCE 
  
        OANI         7200                  25/37 D   32/07     32/10
        PFEM         3001                  34/21     34/49 L
        PMEM         2740                  30/05     30/13 S   30/25 S   33/57     34/03     34/06
                                           30/09 S   30/21 S   33/54     34/01     34/04     34/07
                                           30/11 S   30/23 S   33/56     34/02     34/05     34/46 L
        PPEM         2567                  26/27     34/35 L
        PREM         2717                  33/52     33/53     34/44 L
        QRNT         3051                  28/28     34/55 L
        RPEM         2477                  33/38     34/30 L
        SCE          1526                  25/48 D   35/03
        SCEA         1643                  26/41     26/56 L   27/43     30/46     31/38     32/08 S
        SCEB         1644                  27/01 L   32/11 S
        SCEC         1725                  27/41 S   27/55 L
        SCED         2151                  30/15 L   32/09 S
        SCEE         2152                  30/17 L   32/12 S
        SCEF         1720                  27/42 S   27/49 L
        SCEG         2033                  28/36 S   29/06 D   29/33 S
        SCEH         2117                  29/48 S   29/53 L
        SCEX         1525                  25/48 L   31/34
        SCE1         1625                  26/33     26/35     26/41 L
        SCE10        1727                  27/51     28/01 L
        SCE11        1732                  27/47     27/52     27/57     28/06 L
        SCE12        1746                  28/13     28/16 L
        SCE13        1751                  28/16     28/21 L
        SCE14        1761                  28/25     28/28 L   28/32
        SCE15        2012                  28/46     28/50 L
        SCE16        2013                  28/48     28/51 L
        SCE17        2027                  29/02 L   30/01
        SCE18        2041                  29/08     29/11 L
        SCE19        2043                  29/13 L   29/18
        SCE1.1       1560                  26/05     26/13 L
        SCE1.2       1564                  26/01     26/16 L
        SCE1.3       1571                  26/12 S   26/20 L
        SCE1.4       1617                  26/19     26/34 L
        SCE2         1634                  26/43     26/46 L   31/48
        SCE20        2054                  28/26     29/23 L   29/27
        SCE21        2105                  29/37     29/45 L
        SCE22        2127                  28/17     30/05 L
        SCE23        2167                  30/07     30/19     30/29 L
        SCE24        2174                  28/14     29/19     30/37 L
        SCE25        2205                  30/43     30/46 L
        SCE26        2217                  30/54 L   31/02
        SCE27        2225                  30/56     31/04 L
        SCE28        2240                  31/13 L   31/19
        SCE29        2250                  31/15     31/22 L
        SCE3         1640                  26/53 L   27/09
        SCE30        2255                  30/44     31/20     31/29 L
        SCE31        2260                  31/24     31/32 L   31/41     31/43     31/45
        SCE32        2264                  27/10     27/29     31/38 L
        SCE33        2271                  31/40     31/43 L
        SCE4         1647                  27/05 L   27/21
        SCE5         1656                  27/04     27/14 L   27/20
        SCE6         1662                  27/18 L   31/25
        SCE7         1666                  27/17     27/25 L
        SCE8         1674                  27/28     27/31 L
        SCE9         1723                  27/45     27/54 L
        SDET         3040                  29/09     34/53 L
1       DHE         CTI DISPLAY HARDWARE ERRORS - A02                 COMPASS 3.7-871.     23/08/13. 15.42.36.      PAGE    43
        SYMBOLIC REFERENCE TABLE.                                     COMPSCE 
  
        SEEM         2537                  28/29 S   28/53 S   29/01 S   29/14 S   29/24 S   29/57 S   33/41     34/34 L
        SHNI         1000                  25/32 D   27/40
        SIEM         3014                  34/22     34/50 L
        SSET         3034                  29/02     34/52 L
        TEMF         2357                  26/28 S   26/30 S   26/32 S   28/06     28/10     32/23     32/32     33/36 L
        TEMFA          10                  26/28 S   33/42 L
        TEMFB          26                  26/30 S   26/32 S   33/50 L
        TEMFC          35                  32/23     33/55 D
        TEMFD         107                  32/32     34/20 D
        TNUB         2347                  26/07 S   26/37 S   27/48     32/48 L
        TUBT         2353                  26/10 S   26/22 S   26/26 S   27/54     33/09 L
        UBIT           47                  25/43 D   28/01
 MAD
1       MAD         CTI MAINFRAME ATTRIBUTE DETERMINATOR-A02          COMPASS 3.7-871.     23/08/13. 15.42.39.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
  
                         10     2277              IDENT  MAD,/CTI/LOAD
                       2307     (364)             END 
  
  
  
  
                                                  IDENT  MAD,/CTI/LOAD                                           MAD         2
                                                  PERIPH                                                         MAD         4
                                 D_M              BASE   MIXED                                                   MAD         5
                                                  SST                                                            MAD         6
                                   0     RCM$     EQU    0           RESTORE CM TEST WORDS IN *COMPDMS*          MAD         7
                                         VERID    MICRO  1,,*A02*                                                *A02*       1
                                         VERS     MICRO  1,,*"VERID"*                                       VERS VERS        3
                                                  COMMENT CTI MAINFRAME ATTRIBUTE DETERMINATOR-"VERS"            DIMA317M    3
                                                  COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1979               DIMA317M    4
  
  
                                        *         ALL RIGHTS RESERVED                                            CDCCRN      3
                                        *                                                                        CDCCRN      4
                                        *         CONTAINED HEREIN ARE SOFTWARE PRODUCTS COPYRIGHTED             CDCCRN      5
                                        *         BY CONTROL DATA CORPORATION.  REPRODUCTION WITHOUT             CDCCRN      6
                                        *         PERMISSION IS PROHIBITED.  THE COPYRIGHT NOTICE                CDCCRN      7
                                        *         MUST APPEAR ON ALL AUTHORIZED COMPLETE OR                      CDCCRN      8
                                        *         PARTIAL COPIES.                                                CDCCRN      9
                                        *                                                                        CDCCRN     10
1       MAD         CTI MAINFRAME ATTRIBUTE DETERMINATOR-A02          COMPASS 3.7-871.     23/08/13. 15.42.39.      PAGE     2
  
  
                                        *****     MAD - MAINFRAME ATTRIBUTE DETERMINATOR.                        MAD        10
                                        *         R. E. DENNIS.      78/05/12.                                   MAD        11
  
  
  
  
                                        **        COMMON DECKS.                                                  MAD        13
           0                                      CTEXT  COMPMAC - PP SYSTEM MACROS.                             COMPMAC     2
           0                             CPA      CTEXT  COMSCPA - CTI COMMON POINTER AREA DEFINITIONS.          COMSCPA     2
           0                             CTI      CTEXT  COMSCTI - CTI INTERNAL DEFINITIONS.                     COMSCTI     2
           0                                      CTEXT  COMSSCR - S/C REGISTER EQUIVALENCES.                    COMSSCR     2
1       MAD         CTI MAINFRAME ATTRIBUTE DETERMINATOR-A02          COMPASS 3.7-871.     23/08/13. 15.42.39.      PAGE     3
        LOCAL DEFINITIONS.
  
                                        **        DIRECT LOCATION ASSIGNMENTS.                                   MAD        19
                                                                                                                 MAD        20
                                                                                                                 MAD        21
          10                                      ORG    /CTI/LOAD                                               MAD        22
                                   0     T0       EQU    0                                                       MAD        23
                                   1     T1       EQU    1                                                       MAD        24
                                   2     T2       EQU    2                                                       MAD        25
                                   3     T3       EQU    3                                                       MAD        26
                                   4     T4       EQU    4                                                       MAD        27
                                   5     T5       EQU    5                                                       MAD        28
                                   6     T6       EQU    6                                                       MAD        29
                                   7     T7       EQU    7                                                       MAD        30
          10         0000                CM       VFD    60/0                                                    MAD        31
          11         0000 
          12         0000 
          13         0000 
          14         0000 
          15                      52              BSS    67-*                                                    MAD        32
          67         0020                EL       CON    20                                                      MAD        33
          70         0001                ON       CON    1                                                       MAD        34
          71         0100                HN       CON    100                                                     MAD        35
          72         1000                TH       CON    1000                                                    MAD        36
          73         0003                TR       CON    3                                                       MAD        37
          74                       4              BSS    100-*                                                   MAD        38
  
  
  
  
                                        **        ASSEMBLY CONSTANTS.                                            MAD        40
                                                                                                                 MAD        41
                                                                                                                 MAD        42
                                  10     CH       EQU    10          DISPLAY CHANNEL                             MAD        43
                                  15     IC       EQU    15          INTERLOCK REGISTER CHANNEL                  MAD        44
                                   0     MC       EQU    0           MAINTENANCE CHANNEL                         MAD        45
                                  16     SC       EQU    16          STATUS AND CONTROL REGISTER CHANNEL         MAD        46
                                6400     AJMI     EQU    6400                                                    MAD        47
                                1000     SHNI     EQU    1000        SHN                                         MAD        48
  
  
  
  
                                        **        DISPLAY CONTROLLER DEFINITIONS.                                MAD        50
                                        *                                                                        MAD        51
                                        *                                                                        MAD        52
                                                                                                                 MAD        53
                                                                                                                 MAD        54
                                7001     DSFC     EQU    7001B       SELECT LEFT SCREEN, 32 CHARACTERS/LINE      MAD        55
                                7470     YC09     EQU    7470B                                                   MAD        56
                                7374     YC12     EQU    7374B                                                   MAD        57
                                7350     YC13     EQU    7350B                                                   MAD        58
                                7254     YC16     EQU    7254B                                                   MAD        59
                                7040     YCER     EQU    7040B       KEYBOARD ERROR MESSAGE LINE                 MAD        60
                                6000     XC01     EQU    6000B                                                   MAD        61
1       MAD         CTI MAINFRAME ATTRIBUTE DETERMINATOR-A02          COMPASS 3.7-871.     23/08/13. 15.42.39.      PAGE     4
        MAIN PROGRAM. 
  
                                                                                                                 MAD        63
                                                                                                                 MAD        64
         100                                      ORG    /CTI/TRAN                                               MAD        65
         100                             MAD      BSS    0                                                       MAD        66
         100         0200 0545           MAD1     RJM    CHS         SET CHANNEL STATUS                          MAD        67
         102         0200 0767                    RJM    DOT         DETERMINE 170 TYPE                          MAD        68
         104         0613                         PJN    MAD2        IF NOT C176                                 MAD        69
         105         2000 4177                    LDC    FCSB+CCIO   PERFORM CPU CLEAR IO FUNCTION               MAD        70
         107         7256                         OAN    SC+40                                                   MAD        71
         110         7056                         IAN    SC+40                                                   MAD        72
         111         2000 2177                    LDC    FCCL+CCIO                                               MAD        73
         113         7256                         OAN    SC+40                                                   MAD        74
         114         7056                         IAN    SC+40                                                   MAD        75
         115         0100 0174                    LJM    MAD4                                                    MAD        76
                                                                                                                 MAD        77
         117         1401                MAD2     LDN    1                                                       MAD        78
         120         5400 7700                    STM    /CPA/PPPU         SET NO PPU-S                          MAD        79
         122         1500                         LCN    0                                                       MAD        80
         123         5400 7701                    STM    /CPA/PPPU+1                                             MAD        81
         125         5000 7712                    LDM    /CPA/DSPNLZ+13  CHECK RECOVERY LEVEL                    MAD        82
         127         1066                         SHN    -11B                                                    MAD        83
         130         1207                         LPN    7                                                       MAD        84
         131         1703                         SBN    3                                                       MAD        85
         132         0707                         MJN    MAD2.5      IF MEMORY NOT TO BE RECOVERED               MAD        86
         133         1401                         LDN    1                 SAVE LOW CORE                         MAD        87
         134         6170 2307                    CRM    BUF,ON                                                  MAD        88
         136         3071                         LDD    HN                                                      MAD        89
         137         6171 2314                    CRM    BUF+5,HN                                                MAD        90
         141         1402                MAD2.5   LDN    2                                                       MAD        91
         142         3401                         STD    T1                                                      MAD        92
         143         1400                         LDN    0           WRITE STOP PROGRAMS TO CM                   MAD        93
         144         6301 1633                    CWM    CPOA,T1                                                 MAD        94
         146         6415 0154                    AJM    MAD3,IC     IF CYBER 7X                                 MAD        95
         150         2000 0200                    LDC    200         SET NO INTERLOCK REGISTER                   MAD        96
         152         5500 7673                    RAM    /CPA/OPTN                                               MAD        97
         154         0200 0655           MAD3     RJM    CPT         DETERMINE CPU 0 TYPE                        MAD        98
         156         0200 0615                    RJM    CPC         DETERMINE CPU COUNT                         MAD        99
         160         0200 0710                    RJM    CXJ         DETERMINE CENTRAL EXCHANGE STATUS           MAD       100
         162         0200 0471                    RJM    CCU         CHECK CMU                                   MAD       101
         164         0200 1237                    RJM    ECH         ESTABLISH CPU HAND-OFF STATE                MAD       102
         166         1401                         LDN    1           RESTORE LOW CORE                            MAD       103
         167         6370 2307                    CWM    BUF,ON                                                  MAD       104
         171         3071                         LDD    HN                                                      MAD       105
         172         6371 2314                    CWM    BUF+5,HN                                                MAD       106
                                                                                                                 DIMA380     1
                                        *         DETERMINE MODEL TYPE                                           DIMA380     2
                                                                                                                 DIMA380     3
         174         5000 7673           MAD4     LDM    /CPA/OPTN                                               DIMA380     4
         176         2200 0100                    LPC    100B                                                    DIMA380     5
         200         0514                         NJN    MAD4.1      IF NO SCR, NOT MODEL D                      DIMA380     6
         201         2000 3124                    LDC    FCTC+PPCT   TEST AND CLEAR BIT 84D                      DIMA380     7
         203         7256                         OAN    SC+40B                                                  DIMA380     8
         204         7056                         IAN    SC+40B                                                  DIMA380     9
         205         0407                         ZJN    MAD4.1      NOT MODEL D                                 DIMA380    10
         206         2000 5124                    LDC    FCTS+PPCT   TEST AND SET BIT 84D                        DIMA380    11
         210         7256                         OAN    SC+40B                                                  DIMA380    12
         211         7056                         IAN    SC+40B                                                  DIMA380    13
1       MAD         CTI MAINFRAME ATTRIBUTE DETERMINATOR-A02          COMPASS 3.7-871.     23/08/13. 15.42.39.      PAGE     5
        MAIN PROGRAM. 
  
         212         0402                         ZJN    MAD4.1      NOT MODEL D, WAS IN 2X SPEED                DIMA380    14
         213         0311                         UJN    MAD4.2                                                  DIMA380    15
         214         5000 7673           MAD4.1   LDM    /CPA/OPTN                                               DIMA380    16
         216         2200 7377                    LPC    7377B                                                   DIMA380    17
         220         2100 0400                    ADC    400B                                                    DIMA380    18
         222         5400 7673                    STM    /CPA/OPTN   SET NOT MODEL D BIT                         DIMA380    19
                                                                                                                 MAD       107
                                        *         DETERMINE MEMORY SIZE                                          MAD       108
                                                                                                                 MAD       109
         224         5000 7671           MAD4.2   LDM    /CPA/CMSZ   CHECK FOR MEMORY DEFINE                     DIMA380    20
         226         5100 7672                    ADM    /CPA/CMSZ+1                                             MAD       111
         230         0513                         NJN    MAD4A       IF MEMORY ALREADY SPECIFIED                 MAD       112
         231         2000 2307                    LDC    BUF         DETERMINE SIZE OF CENTRAL MEMORY            MAD       113
         233         0200 0401                    RJM    DMS                                                     MAD       114
         235         1003                         SHN    3           SET MEMORY SIZE/100                         MAD       115
         236         5400 7672                    STM    /CPA/CMSZ+1                                             MAD       116
         240         1063                         SHN    -14                                                     MAD       117
         241         5400 7671                    STM    /CPA/CMSZ                                               MAD       118
                                                                                                                 MAD       119
                                        *         LOGICALLY OFF PHYSICALLY NOT PRESENT ELEMENTS.                 MAD       120
                                                                                                                 MAD       121
         243         1400                MAD4A    LDN    0           TURN OFF PP-S NOT PRESENT                   MAD       122
         244         3401                         STD    T1                                                      MAD       123
         245         3001                MAD5     LDD    T1                                                      MAD       124
         246         1177                         LMN    77                                                      MAD       125
         247         2100 1000                    ADC    SHNI                                                    MAD       126
         251         5400 0257                    STM    MADA                                                    MAD       127
         253         5400 0270                    STM    MADB                                                    MAD       128
         255         5000 7674                    LDM    /CPA/PPP0                                               MAD       129
         257         1000                MADA     SHN    0                                                       MAD       130
         260         1201                         LPN    1                                                       MAD       131
         261         0405                         ZJN    MAD6        IF PP PRESENT                               MAD       132
         262         2000 7676                    LDC    /CPA/LPP0   *OFF* THE PP                                MAD       133
         264         0200 0347                    RJM    SAB                                                     MAD       134
         266         5000 7675           MAD6     LDM    /CPA/PPP1                                               MAD       135
         270         1000                MADB     SHN    0                                                       MAD       136
         271         1201                         LPN    1                                                       MAD       137
         272         0405                         ZJN    MAD7        IF PP PRESENT                               MAD       138
         273         2000 7677                    LDC    /CPA/LPP1   *OFF* THE PP                                MAD       139
         275         0200 0347                    RJM    SAB                                                     MAD       140
         277         3601                MAD7     AOD    T1          INCREMENT BIT OFFSET                        MAD       141
         300         1112                         LMN    10D                                                     MAD       142
         301         0543                         NJN    MAD5        IF NOT DONE WITH BOTH CHASSIS               MAD       143
         302         3401                         STD    T1          BIT OFFSET FOR PPU15                        MAD       144
         303         5000 7700                    LDM    /CPA/PPPU   *OFF* NOT PRESENT PPU-S                     MAD       145
         305         1201                         LPN    1                                                       MAD       146
         306         0405                         ZJN    MAD8        IF PPU15 PRESENT                            MAD       147
         307         2000 7702                    LDC    /CPA/LPPU   *OFF* PPU 15                                MAD       148
         311         0200 0347                    RJM    SAB                                                     MAD       149
         313         3001                MAD8     LDD    T1                                                      MAD       150
         314         1177                         LMN    77                                                      MAD       151
         315         2100 1000                    ADC    SHNI                                                    MAD       152
         317         5400 0323                    STM    MADC                                                    MAD       153
         321         5000 7701                    LDM    /CPA/PPPU+1                                             MAD       154
         323         1000                MADC     SHN    0                                                       MAD       155
         324         1201                         LPN    1                                                       MAD       156
         325         0405                         ZJN    MAD9        IF PPU PRESENT                              MAD       157
1       MAD         CTI MAINFRAME ATTRIBUTE DETERMINATOR-A02          COMPASS 3.7-871.     23/08/13. 15.42.39.      PAGE     6
        MAIN PROGRAM. 
  
         326         2000 7703                    LDC    /CPA/LPPU+1 *OFF* PPU                                   MAD       158
         330         0200 0347                    RJM    SAB                                                     MAD       159
         332         3601                MAD9     AOD    T1          INCREMENT BIT OFFSET                        MAD       160
         333         1114                         LMN    12D                                                     MAD       161
         334         0556                         NJN    MAD8        IF NOT DONE                                 MAD       162
                                        *         UJN    LNP         EXIT TO NEXT PROGRAM                        MAD       163
  
  
  
  
                                        **        LNP - LOAD NEXT PROGRAM.                                       MAD       165
                                                                                                                 MAD       166
                                                                                                                 MAD       167
         335                             LNP      BSS    0                                                       MAD       168
         335         2000 0341                    LDC    LNPB        CALL *PCM*                                  MAD       169
         337         0100 7000                    LJM    /CTI/CDEP                                               MAD       170
                                                                                                                 MAD       171
         341         0010                LNPB     CON    /CTI/LOAD   CDIB                                        MAD       172
         342         0100                         CON    /CTI/TRAN   CDTA                                        MAD       173
         343         0000                         CON    0           CDRW                                        MAD       174
         344         2003                         DATA   L*PCM*      CDNC                                        MAD       175
  
  
  
  
                                        **        SAB - SET A BIT.                                               MAD       177
                                        *                                                                        MAD       178
                                        *         ENTRY  (A) = ADDRESS OF WORD.                                  MAD       179
                                        *                (T1) = BIT OFFSET IN WORD.                              MAD       180
                                        *                                                                        MAD       181
                                        *         EXIT   SPECIFIED BIT SET.                                      MAD       182
                                        *                                                                        MAD       183
                                        *         USES   T2, T3.                                                 MAD       184
                                        *                                                                        MAD       185
                                        *         CALLS  NONE.                                                   MAD       186
                                                                                                                 MAD       187
                                                                                                                 MAD       188
         346         0100 0346           SAB      SUBR               ENTRY/EXIT                                  MAD       189
         350         3402                         STD    T2          ADDRESS OF WORD                             MAD       190
         351         3001                         LDD    T1          BIT OFFSET                                  MAD       191
         352         1217                         LPN    17                                                      MAD       192
         353         2100 1000                    ADC    SHNI                                                    MAD       193
         355         5400 0362                    STM    SABA                                                    MAD       194
         357         5400 0370                    STM    SABB                                                    MAD       195
         361         1401                         LDN    1                                                       MAD       196
         362         1000                SABA     SHN    0                                                       MAD       197
         363         2300 7777                    LMC    7777                                                    MAD       198
         365         5400 0374                    STM    SABC                                                    MAD       199
         367         1401                         LDN    1                                                       MAD       200
         370         1000                SABB     SHN    0                                                       MAD       201
         371         3403                         STD    T3                                                      MAD       202
         372         4002                         LDI    T2          SET BIT IN WORD                             MAD       203
         373         2200 0000                    LPC    0                                                       MAD       204
                                 374     SABC     EQU    *-1                                                     MAD       205
         375         3303                         LMD    T3                                                      MAD       206
         376         4402                         STI    T2                                                      MAD       207
         377         0346                         UJN    SABX        RETURN                                      MAD       208
1       MAD         CTI MAINFRAME ATTRIBUTE DETERMINATOR-A02          COMPASS 3.7-871.     23/08/13. 15.42.39.      PAGE     7
        PRIMARY SUBROUTINES.
  
                                        **        COMMON DECK.                                                   MAD       210
         400                                      CTEXT  COMPDMS - DETERMINE MEMORY SIZE.                        COMPDMS     2
  
  
  
  
                                        **        CCU - DETERMINE COMPARE MOVE UNIT (CMU) STATUS.                MAD       213
                                                                                                                 MAD       214
                                                                                                                 MAD       215
         470         0100 0470           CCU      SUBR               ENTRY/EXIT                                  MAD       216
         472         5000 7673                    LDM    /CPA/OPTN                                               MAD       217
         474         1016                         SHN    21-3                                                    MAD       218
         475         0772                         MJN    CCUX        IF CMU OFF                                  MAD       219
         476         3071                         LDD    HN          STORE EXCHANGE PACKAGE FOR CMU TEST PROGRAM MAD       220
         477         6367 2206                    CWM    CCUA,EL                                                 MAD       221
         501         6367 2047                    CWM    CXJB,EL     STORE EXCHANGE PACKAGE FOR MONITOR PROGRAM  MAD       222
         503         6367 2117                    CWM    CXJC,EL     STORE EXCHANGE PACKAGE FOR STOP PROGRAM     MAD       223
         505         6373 2256                    CWM    CCUB,TR     STORE CMU TEST PROGRAM                      MAD       224
         507         6373 2275                    CWM    3*5+CCUB,TR                                             MAD       225
         511         2000 0172                    LDC    172         STORE MONITOR MODE PROGRAM                  MAD       226
         513         6370 2201                    CWM    CXJE,ON                                                 MAD       227
         515         5000 7673                    LDM    /CPA/OPTN                                               DIMA272     1
         517         1021                         SHN    21-0                                                    DIMA272     2
         520         0603                         PJN    CCU1A                                                   DIMA272     3
         521         5600 0524                    AOM    CCU1B                                                   DIMA272     4
         523                             CCU1A    BSS    0                                                       DIMA272     5
         523         3071                         LDD    HN          EXCHANGE CPU                                MAD       228
         524                             CCU1B    BSS    0           INSTRUCTION MODIFIED FOR CPU0=OFF           DIMA272     6
         524         2600                         EXN    0                                                       MAD       229
         525         1677                         ADN    77          DELAY                                       MAD       230
         526         1701                         SBN    1                                                       MAD       231
         527         0576                         NJN    *-1                                                     MAD       232
         530         2000 0164                    LDC    164         CHECK FOR CMU ACTION                        MAD       233
         532         6170 2256                    CRM    CCUB,ON                                                 MAD       234
         534         5000 2256                    LDM    CCUB                                                    MAD       235
         536         0504                         NJN    CCU1        IF CMU HARDWARE AVAILABLE                   MAD       236
         537         1410                         LDN    10          SET CMU NOT PRESENT                         MAD       237
         540         5500 7673                    RAM    /CPA/OPTN                                               MAD       238
         542         0100 0470           CCU1     LJM    CCUX        RETURN                                      MAD       239
  
  
  
  
                                        **        CHS - SET CHANNEL STATUS.                                      MAD       241
                                                                                                                 MAD       242
                                                                                                                 MAD       243
         544         0100 0544           CHS      SUBR               ENTRY/EXIT                                  MAD       244
         546         1400                         LDN    0           CLEAR CHANNEL STATUS INDEX                  MAD       245
         547         3402                         STD    T2                                                      MAD       246
         550         1411                         LDN    11          SET UPPER CHANNEL                           MAD       247
         551         3401                         STD    T1                                                      MAD       248
         552         6420 0562                    AJM    CHS1,20     IF CHANNEL 20 PRESENT                       MAD       249
         554         2000 1777                    LDC    1777        SET CHASSIS 2 PPS NOT PRESENT               MAD       250
         556         5400 7675                    STM    /CPA/PPP1                                               MAD       251
         560         5700 0606                    SOM    CHSB                                                    MAD       252
         562         3002                CHS1     LDD    T2          SET CHANNEL SENSE                           MAD       253
         563         1004                         SHN    4                                                       MAD       254
1       MAD         CTI MAINFRAME ATTRIBUTE DETERMINATOR-A02          COMPASS 3.7-871.     23/08/13. 15.42.39.      PAGE     8
        PRIMARY SUBROUTINES.                                          CHS 
  
         564         3301                         LMD    T1                                                      MAD       255
         565         2300 6400                    LMC    AJMI                                                    MAD       256
         567         5400 0574                    STM    CHSA                                                    MAD       257
         571         5002 7674                    LDM    /CPA/PPP0,T2  SHIFT STATUS BYTE                         MAD       258
         573         1001                         SHN    1                                                       MAD       259
                                                                                                                 MAD       260
                                        *         NOTE-  THIS CODE CHECKS PPU PRESENT, NOT CHANNEL PRESENT.      MAD       261
                                                                                                                 MAD       262
         574         6400 0577           CHSA     AJM    CHS2,**     CHECK CHANNEL                               MAD       263
         576         1101                         LMN    1           SET CHANNEL INACTIVE                        MAD       264
         577         5402 7674           CHS2     STM    /CPA/PPP0,T2                                            MAD       265
         601         3701                         SOD    T1          ADVANCE CHANNEL                             MAD       266
         602         0657                         PJN    CHS1        LOOP FOR 10 CHANNELS                        MAD       267
         603         1411                         LDN    11          RESET UPPER CHANNEL                         MAD       268
         604         3401                         STD    T1                                                      MAD       269
         605         3602                         AOD    T2          ADVANCE CHANNEL STATUS BYTE                 MAD       270
         606         1102                CHSB     LMN    2                                                       MAD       271
         607         0552                         NJN    CHS1        LOOP FOR ALL CHANNELS                       MAD       272
         610         5700 7674                    SOM    /CPA/PPP0   SET PP 0 PRESENT                            MAD       273
         612         0100 0544                    LJM    CHSX        EXIT                                        MAD       274
  
  
  
  
                                        **        CPC - DETERMINE CPU COUNT.                                     MAD       276
                                                                                                                 MAD       277
                                                                                                                 MAD       278
         614         0100 0614           CPC      SUBR               ENTRY/EXIT                                  MAD       279
         616         5000 7673                    LDM    /CPA/OPTN   CHECK CPU 1                                 MAD       280
         620         1020                         SHN    21-1                                                    MAD       281
         621         0772                         MJN    CPCX        IF TURNED OFF                               MAD       282
         622         1001                         SHN    1-0                                                     MAD       283
         623         0770                         MJN    CPCX        IF TURNED OFF                               MAD       284
         624         1400                         LDN    0                                                       MAD       285
         625         5400 1656                    STM    CPOC+4      (B1) = 0                                    MAD       286
         627         3071                         LDD    HN          STORE EXCHANGE PACKAGE                      MAD       287
         630         6367 1645                    CWM    CPOB,EL                                                 MAD       288
         632         6373 1765                    CWM    CPOD,TR     STORE PROGRAM                               MAD       289
         634         1723                         SBN    23          EXCHANGE CPU 1                              MAD       290
         635         2601                         EXN    1                                                       MAD       291
         636         3071                         LDD    HN          RESTORE EXCHANGE PACKAGE                    MAD       292
         637         6367 1645                    CWM    CPOB,EL                                                 MAD       293
         641         1720                         SBN    20                                                      MAD       294
         642         2600                         EXN    0           EXCHANGE CPU 0                              MAD       295
         643         1601                         ADN    1           READ (B1)                                   MAD       296
         644         6010                         CRD    CM                                                      MAD       297
         645         3014                         LDD    CM+4        SET CPU 1 STATUS                            MAD       298
         646         0545                         NJN    CPCX        IF CPU 1 AVAILABLE                          MAD       299
         647         1402                         LDN    2                                                       MAD       300
         650         5500 7673                    RAM    /CPA/OPTN                                               MAD       301
         652         0100 0614                    LJM    CPCX        RETURN                                      MAD       302
1       MAD         CTI MAINFRAME ATTRIBUTE DETERMINATOR-A02          COMPASS 3.7-871.     23/08/13. 15.42.39.      PAGE     9
        PRIMARY SUBROUTINES.                                          CPT 
  
                                        **        CPT - DETERMINE CPU 0 TYPE.                                    MAD       304
                                                                                                                 MAD       305
                                                                                                                 MAD       306
         654         0100 0654           CPT      SUBR               ENTRY/EXIT                                  MAD       307
         656         5000 7673                    LDM    /CPA/OPTN                                               MAD       308
         660         1021                         SHN    21-0                                                    MAD       309
         661         0605                         PJN    CPT1        IF CPU 0 ON                                 MAD       310
         662         5600 0674                    AOM    CPTA        SET TO EXCHANGE CPU - 1                     MAD       311
         664         5600 0701                    AOM    CPTB                                                    MAD       312
         666         3071                CPT1     LDD    HN          STORE EXCHANGE PACKAGE                      MAD       313
         667         6367 1645                    CWM    CPOB,EL                                                 MAD       314
         671         6373 1765                    CWM    CPOD,TR     STORE TEST PROGRAM                          MAD       315
         673         1723                         SBN    23          EXCHANGE CPU                                MAD       316
         674         2600                CPTA     EXN    0                                                       MAD       317
                                        *         EXN    1           (CPU - 0 OFF)                               MAD       318
         675         6010                         CRD    CM          WAIT FOR COMPLETION OF EXCHANGE             MAD       319
         676         1477                         LDN    77                                                      MAD       320
         677         1701                         SBN    1                                                       MAD       321
         700         0576                         NJN    *-1                                                     MAD       322
         701         2700                CPTB     RPN    0                                                       MAD       323
                                        *         RPN    1           (CPU - 0 OFF)                               MAD       324
         702         0551                         NJN    CPTX        IF 6600 CPU                                 MAD       325
         703         1420                         LDN    20          SET NO INSTRUCTION STACK                    MAD       326
         704         5500 7673                    RAM    /CPA/OPTN                                               MAD       327
         706         0345                         UJN    CPTX        RETURN                                      MAD       328
  
  
  
  
                                        **        CXJ - DETERMINE CENTRAL EXCHANGE STATUS.                       MAD       330
                                                                                                                 MAD       331
                                                                                                                 MAD       332
         707         0100 0707           CXJ      SUBR               ENTRY/EXIT                                  MAD       333
         711         5000 7673                    LDM    /CPA/OPTN                                               MAD       334
         713         1021                         SHN    21-0                                                    MAD       335
         714         0603                         PJN    CXJ1        IF CPU 0 ON                                 MAD       336
         715         5600 0737                    AOM    XJ1         SET CPU 1                                   MAD       337
         717         5000 7673           CXJ1     LDM    /CPA/OPTN                                               MAD       338
         721         1017                         SHN    21-2                                                    MAD       339
         722         0764                         MJN    CXJX        IF CENTRAL EXCHANGE OFF                     MAD       340
         723         3071                         LDD    HN          STORE FIRST EXCHANGE PACKAGE                MAD       341
         724         6367 1777                    CWM    CXJA,EL                                                 MAD       342
         726         6367 2047                    CWM    CXJB,EL     STORE SECOND EXCHANGE PACKAGE               MAD       343
         730         6367 2117                    CWM    CXJC,EL     STORE THIRD EXCHANGE PACKAGE                MAD       344
         732         2000 0170                    LDC    170         STORE TEST PROGRAMS                         MAD       345
         734         6373 2167                    CWM    CXJD,TR                                                 MAD       346
         736         3071                         LDD    HN          EXCHANGE CPU                                MAD       347
         737         2600                XJ1      EXN    0                                                       MAD       348
         740         1701                         SBN    1           DELAY                                       MAD       349
         741         0576                         NJN    *-1                                                     MAD       350
         742         1400                         LDN    0                                                       MAD       351
         743         6010                         CRD    CM                                                      MAD       352
         744         3010                         LDD    CM                                                      MAD       353
         745         1011                         SHN    21B-10B                                                 MAD       354
         746         0740                         MJN    CXJX        IF CENTRAL EXCHANGE PRESENT                 MAD       355
         747         1404                         LDN    4           SET CENTRAL EXCHANGE NOT PRESENT            MAD       356
         750         5500 7673                    RAM    /CPA/OPTN                                               MAD       357
1       MAD         CTI MAINFRAME ATTRIBUTE DETERMINATOR-A02          COMPASS 3.7-871.     23/08/13. 15.42.39.      PAGE    10
        PRIMARY SUBROUTINES.                                          CXJ 
  
         752         0200 1271                    RJM    FDC         FREE DISPLAY CHANNEL                        MAD       358
         754         0200 1307                    RJM    DOA         DISPLAY OPERATOR ALERT                      MAD       359
         756         0200 1447                    RJM    RDS1        RETURN DEADSTART STATE                      MAD       360
         760         0100 0707                    LJM    CXJX        RETURN                                      MAD       361
  
  
  
  
                                        **        DOT - DETERMINE 170 STATUS.                                    MAD       363
                                                                                                                 MAD       364
                                                                                                                 MAD       365
         762         2000 0100           DOT9     LDC    100         SET NO SCR REGISTER                         MAD       366
         764         5500 7673                    RAM    /CPA/OPTN                                               MAD       367
                                                                                                                 MAD       368
         766         0100 0766           DOT      SUBR               ENTRY/EXIT                                  MAD       369
         770         2000 4000                    LDC    4000B                                                   DIMA330     1
         772         5500 7673                    RAM    /CPA/OPTN   SET C170 BIT FOR DDS                        DIMA330     2
         774         6516 0762                    IJM    DOT9,SC     IF NOT A CYBER 17X                          MAD       370
         776         2000 4110                    LDC    FCSB+SCSL   CHECK FOR CYBER 176 BY TOGGLING BIT 72D     MAD       371
        1000         7256                         OAN    SC+40                                                   MAD       372
        1001         7056                         IAN    SC+40                                                   MAD       373
        1002         2000 3110                    LDC    FCTC+SCSL                                               MAD       374
        1004         7256                         OAN    SC+40                                                   MAD       375
        1005         7056                         IAN    SC+40                                                   MAD       376
        1006         0457                         ZJN    DOTX        IF BIT NOT SET, NOT X76                     MAD       377
        1007         2000 1110                    LDC    FCTB+SCSL                                               MAD       378
        1011         7256                         OAN    SC+40                                                   MAD       379
        1012         7056                         IAN    SC+40                                                   MAD       380
        1013         0552                         NJN    DOTX        IF BIT NOT CLEARED, NOT X76                 MAD       381
        1014         3403                         STD    T3                                                      MAD       382
        1015         5000 7673                    LDM    /CPA/OPTN                                               MAD       383
        1017         2200 4565                    LPC    4565B                                                   MAD       384
        1021         2300 3212                    LMC    3212B                                                   DIMA284     1
        1023         5400 7673                    STM    /CPA/OPTN                                               MAD       386
        1025         1412                         LDN    FCRD+12     READ BYTE 12 OF SCR                         MAD       387
        1026         7216                         OAN    SC                                                      MAD       388
        1027         7016                         IAN    SC                                                      MAD       389
        1030         2200 7400                    LPC    7400                                                    MAD       390
        1032         0403                         ZJN    DOT1                                                    MAD       391
        1033         0100 1076                    LJM    DOT1.5      IF C176                                     MAD       392
        1035         2077 5777           DOT1     LDC    -2000       SET C76A CODE                               MAD       393
        1037         5500 7673                    RAM    /CPA/OPTN                                               MAD       394
        1041         2000 4251                    LDC    FCSB+CCRO   SET CM RANK 1 ERROR CLEAR BIT               MAD       395
        1043         7216                         OAN    SC                                                      MAD       396
        1044         7016                         IAN    SC                                                      MAD       397
        1045         2000 2251                    LDC    FCCL+CCRO   CLEAR CM RANK 1 ERROR CLEAR BIT             MAD       398
        1047         7216                         OAN    SC                                                      MAD       399
        1050         7016                         IAN    SC                                                      MAD       400
        1051         2000 4250                    LDC    FCSB+CCRT   SET CM RANK 2 ERROR CLEAR BIT               MAD       401
        1053         7216                         OAN    SC                                                      MAD       402
        1054         7016                         IAN    SC                                                      MAD       403
        1055         2000 2250                    LDC    FCCL+CCRT   CLEAR CM RANK 2 ERROR CLEAR BIT             MAD       404
        1057         7216                         OAN    SC                                                      MAD       405
        1060         7016                         IAN    SC                                                      MAD       406
        1061         2000 1060                    LDC    FCTB+60     TEST BIT 48D                                MAD       407
        1063         7216                         OAN    SC                                                      MAD       408
        1064         7016                         IAN    SC                                                      MAD       409
1       MAD         CTI MAINFRAME ATTRIBUTE DETERMINATOR-A02          COMPASS 3.7-871.     23/08/13. 15.42.39.      PAGE    11
        PRIMARY SUBROUTINES.                                          DOT 
  
        1065         0505                         NJN    DOT1.3      IF C76A                                     MAD       410
        1066         2000 1000                    LDC    1000        SET C76B CODE                               MAD       411
        1070         5500 7673                    RAM    /CPA/OPTN                                               MAD       412
        1072         2000 2003           DOT1.3   LDC    FCCL+SECD   CLEAR CM SECDED ERROR                       MAD       413
        1074         7216                         OAN    SC                                                      MAD       414
        1075         7016                         IAN    SC                                                      MAD       415
                                                                                                                 MAD       416
                                        *         DEADSTART FIRST LEVEL PPU-S.                                   MAD       417
                                                                                                                 MAD       418
        1076         2000 2073           DOT1.5   LDC    FCCL+DDFP   CLEAR DEADSTART DUMP BIT                    MAD       419
        1100         0200 1553                    RJM    SFC                                                     DIMA290B    1
        1102         3603                DOT2     AOD    T3                                                      MAD       422
        1103         0200 1541                    RJM    ASE         ACTIVATE SCANNER ENABLE                     DIMA290B    2
        1105         1472                         LDN    DSFP        DEADSTART FUNCTION CODE                     MAD       423
        1106         0200 1475                    RJM    DSP         DEADSTART PPU                               MAD       424
        1110         0200 1531                    RJM    CSE         CLEAR SCANNER ENABLE AND CHANNEL            MAD       425
        1112         3003                         LDD    T3                                                      MAD       426
        1113         1115                         LMN    15                                                      MAD       427
        1114         0565                         NJN    DOT2        IF NOT ALL PPU-S                            MAD       428
        1115         5000 7703                    LDM    /CPA/LPPU+1      LOGICAL PPU BYTE                       MAD       429
        1117         3404                         STD    T4                                                      MAD       430
        1120         1400                         LDN    0           PHYSICAL PPU BYTE                           MAD       431
        1121         3405                         STD    T5                                                      MAD       432
        1122         5000 7702                    LDM    /CPA/LPPU   CHECK PPU 15                                MAD       433
        1124         0403                         ZJN    DOT3        IF ON                                       MAD       434
        1125         0100 1203                    LJM    DOT7        IF OFF                                      MAD       435
        1127         0200 1541           DOT3     RJM    ASE         ACTIVATE SCANNER ENABLE                     DIMA290B    3
        1131         1473                         LDN    DDFP        DEADSTART DUMP PPU FUNCTION                 DIMA290B    4
        1132         0200 1475                    RJM    DSP                                                     DIMA290B    5
        1134         1477                         LDN    77B                                                     DIMA290B    6
        1135         6600 1142           DOT4     FJM    DOT4.1,MC   IF PPU PRESENT                              DIMA290B    7
        1137         1701                         SBN    1                                                       DIMA290B    8
        1140         0674                         PJN    DOT4        IF NOT TIMED OUT                            DIMA290B    9
        1141         0322                         UJN    DOT4.4                                                  DIMA290B   10
                                                                                                                 DIMA290B   11
        1142         1472                DOT4.1   LDN    DSFP        DEADSTART LOAD PPU FUNCTION                 DIMA290B   12
        1143         0200 1475                    RJM    DSP                                                     DIMA290B   13
                                        *                            THIS DEADSTART LOAD OPERATION WILL          DIMA290B   14
                                        *                            EMPTY THE SCANNER CHANNEL AND THE           DIMA290B   15
                                        *                            NEXT OPERATION WILL ESTABLISH A             DIMA290B   16
                                        *                            TRUE DEADSTART STATE FOR THE PPU.           DIMA290B   17
        1145         1472                         LDN    DSFP                                                    DIMA290B   18
        1146         0200 1475                    RJM    DSP                                                     DIMA290B   19
        1150         1405                         LDN    DOTAL       OUTPUT IDLE LOOP                            MAD       446
        1151         7300 1231                    OAM    DOTA,MC                                                 MAD       447
        1153         2000 7772                    LDC    7777B-DOTAL                                             MAD       448
        1155         3406                         STD    T6                                                      MAD       449
        1156         0420                DOT4.2   ZJN    DOT6                                                    MAD       450
        1157         1400                         LDN    0                                                       MAD       451
        1160         7200                         OAN    MC          PAD PPU MEMORY WITH ZEROS                   MAD       452
        1161         3706                         SOD    T6                                                      MAD       453
        1162         0373                         UJN    DOT4.2                                                  MAD       454
                                                                                                                 MAD       455
        1163         3003                DOT4.4   LDD    T3                                                      DIMA290B   20
        1164         1115                         LMN    15                                                      MAD       459
        1165         0506                         NJN    DOT5        IF NOT PPU 15                               MAD       460
        1166         5000 7700                    LDM    /CPA/PPPU   SET PPU 15 NOT PRESENT                      MAD       461
1       MAD         CTI MAINFRAME ATTRIBUTE DETERMINATOR-A02          COMPASS 3.7-871.     23/08/13. 15.42.39.      PAGE    12
        PRIMARY SUBROUTINES.                                          DOT 
  
        1170         1101                         LMN    1                                                       MAD       462
        1171         5400 7700                    STM    /CPA/PPPU                                               MAD       463
        1173         3005                DOT5     LDD    T5          SET PPU NOT PRESENT                         MAD       464
        1174         1101                         LMN    1                                                       MAD       465
        1175         3405                         STD    T5                                                      MAD       466
        1176         1472                DOT6     LDN    DSFP        DEADSTART PPU FUNCTION                      DIMA290B   21
        1177         0200 1475                    RJM    DSP         RE-DEADSTART PPU                            MAD       469
        1201         0200 1531                    RJM    CSE         CLEAR SCANNER ENABLE AND CHANNEL            MAD       470
        1203         3703                DOT7     SOD    T3                                                      MAD       471
        1204         0413                         ZJN    DOT8        IF ALL PPU-S CHECKED                        MAD       472
        1205         3005                         LDD    T5          SET PHYSICAL BYTE FOR NEXT PPU              MAD       473
        1206         1001                         SHN    1                                                       MAD       474
        1207         3405                         STD    T5                                                      MAD       475
        1210         3004                         LDD    T4          SET LOGICAL BYTE FOR NEXT PPU               MAD       476
        1211         1001                         SHN    1                                                       MAD       477
        1212         3404                         STD    T4                                                      MAD       478
        1213         1063                         SHN    -14                                                     MAD       479
        1214         0566                         NJN    DOT7        IF PPU OFF                                  MAD       480
        1215         0100 1127                    LJM    DOT3        REPEAT FOR NEXT PPU                         MAD       481
                                                                                                                 MAD       482
        1217         3005                DOT8     LDD    T5          SET PPU-S PRESENT                           MAD       483
        1220         5400 7701                    STM    /CPA/PPPU+1                                             MAD       484
        1222         2000 2004                    LDC    FCCL+PPUE   CLEAR *PPU ERROR* BIT                       DIMA290B   22
        1224         0200 1553                    RJM    SFC                                                     DIMA290B   23
        1226         1500                         LCN    0           SET EXIT CODE FOR C176/C76                  MAD       488
        1227         0100 0766                    LJM    DOTX        RETURN                                      MAD       489
                                                                                                                 MAD       490
                                        *         IDLE LOOP FOR EXECUTION BY FLPP-S                              MAD       491
                                                                                                                 MAD       492
        1231         2400                DOTA     PSN                                                            DIMA290B   24
        1232         2400                         PSN                                                            MAD       494
        1233         2400                         PSN                                                            MAD       495
        1234         2400                         PSN                                                            MAD       496
        1235         0374                         UJN    *-3                                                     MAD       497
                                   5     DOTAL    EQU    *-DOTA                                                  MAD       498
  
  
  
  
                                        **        ECH - ESTABLISH CPU STATE.                                     MAD       500
                                                                                                                 MAD       501
                                                                                                                 MAD       502
        1236         0100 1236           ECH      SUBR               ENTRY/EXIT                                  MAD       503
        1240         1401                         LDN    1           WRITE STOP PROGRAM                          MAD       504
        1241         3401                         STD    T1                                                      MAD       505
        1242         1400                         LDN    0                                                       MAD       506
        1243         6301 1633                    CWM    CPOA,T1                                                 MAD       507
        1245         3071                         LDD    HN          WRITE EXCHANGE PACKAGE FOR STOP PROGRAM     MAD       508
        1246         6367 2117                    CWM    CXJC,EL                                                 MAD       509
        1250         5000 7673                    LDM    /CPA/OPTN                                               MAD       510
        1252         1021                         SHN    21-0                                                    MAD       511
        1253         0712                         MJN    ECH1        IF CPU 0 OFF                                MAD       512
        1254         3071                         LDD    HN          EXCHANGE CPU 0                              MAD       513
        1255         2600                         EXN    0                                                       MAD       514
        1256         5000 7673                    LDM    /CPA/OPTN                                               MAD       515
        1260         1020                         SHN    21-1                                                    MAD       516
        1261         0754                         MJN    ECHX        IF CPU 1 OFF                                MAD       517
1       MAD         CTI MAINFRAME ATTRIBUTE DETERMINATOR-A02          COMPASS 3.7-871.     23/08/13. 15.42.39.      PAGE    13
        PRIMARY SUBROUTINES.                                          ECH 
  
        1262         3071                         LDD    HN          REWRITE EXCHANGE PACKAGE                    MAD       518
        1263         6367 2117                    CWM    CXJC,EL                                                 MAD       519
        1265         3071                ECH1     LDD    HN          EXCHANGE CPU 1                              MAD       520
        1266         2601                         EXN    1                                                       MAD       521
        1267         0346                         UJN    ECHX        RETURN                                      MAD       522
  
  
  
  
                                        **        FDC - FREE DISPLAY CHANNEL                                     MAD       524
                                        *                                                                        MAD       525
                                        *         FDC HANGS PP 10 ON CHANNEL 12                                  MAD       526
                                        *                                                                        MAD       527
                                                                                                                 MAD       528
                                                                                                                 MAD       529
        1270         0100 1270           FDC      SUBR               ENTRY/EXIT                                  MAD       530
        1272         7412                         ACN    12B                                                     MAD       531
        1273         1404                         LDN    FDCL        LENGTH OF IDLE PROGRAM                      MAD       532
        1274         7310 1302                    OAM    FDCA,CH     SEND IDLE PROGRAM                           MAD       533
        1276         6610 1276                    FJM    *,CH                                                    MAD       534
        1300         7510                         DCN    CH                                                      MAD       535
        1301         0366                         UJN    FDCX        RETURN                                      MAD       536
                                                                                                                 MAD       537
        1302         0000                FDCA     CON    0           PP 10 PROGRAM                               MAD       538
        1303         1400                         LDN    0                                                       MAD       539
        1304         7112 0000           FDCB     IAM    0,12B       READ NEW PROGRAM                            MAD       540
                                   4     FDCL     EQU    *-FDCA      LENGTH OF IDLE PROGRAM                      MAD       541
  
  
  
  
                                        **        DOA - DISPLAY OPERATOR ALERT                                   MAD       543
                                        *                                                                        MAD       544
                                        *         EXIT   CONTINUE DEADSTART WITH NON CEJ/MEJ USAGE               MAD       545
                                        *                                                                        MAD       546
                                        *         USES   PKI                                                     MAD       547
                                        *                                                                        MAD       548
                                                                                                                 MAD       549
                                                                                                                 MAD       550
        1306         0100 1306           DOA      SUBR               ENTRY/EXIT                                  MAD       551
        1310         2001 1000           DOA1     LDC    11000B      DELAY                                       MAD       552
        1312         1701                         SBN    1                                                       MAD       553
        1313         0576                         NJN    *-1                                                     MAD       554
        1314         7710 7001                    FNC    DSFC,CH     SELECT LEFT SCREEN, 32 CHARACTERS/LINE      MAD       555
        1316         7410                         ACN    CH                                                      MAD       556
        1317         2000 0103                    LDC    DSBAL       LENGTH OF DISPLAY BUFFER                    MAD       557
                                1320     DOAL     EQU    *-1         LENGTH OF ERROR DISPLAY BUFFER              MAD       558
        1321         7310 1332                    OAM    DSBA,CH                                                 MAD       559
        1323         6610 1323                    FJM    *,CH        WAIT                                        MAD       560
        1325         7510                         DCN    CH                                                      MAD       561
        1326         0200 1605                    RJM    PKI         PROCESS KEYBOARD INPUT                      MAD       562
        1330         0457                         ZJN    DOA1        IF NO ENTRY OR ERROR                        MAD       563
        1331         0354                         UJN    DOAX        CONTINUE NON CEJ/MEJ USAGE                  MAD       564
                                                                                                                 MAD       565
                                                                                                                 MAD       566
                                                                                                                 MAD       567
                                                                                                                 MAD       568
1       MAD         CTI MAINFRAME ATTRIBUTE DETERMINATOR-A02          COMPASS 3.7-871.     23/08/13. 15.42.39.      PAGE    14
        PRIMARY SUBROUTINES.                                          DOA 
  
        1332         6000 7470           DSBA     CON    XC01,YC09                                               MAD       569
        1334         0305                         DATA   H*CEJ/MEJ OPTION NOT ENABLED*                           MAD       570
        1351         6000 7374                    CON    XC01,YC12                                               MAD       571
        1353         0617                         DATA   H*FOR CEJ/MEJ USAGE, ENABLE SWITCH*                     MAD       572
        1373         6000 7350                    CON    XC01,YC13                                               MAD       573
        1375         1716                         DATA   H*ON DEADSTART PANEL AND DEADSTART*                     MAD       574
        1415         6000 7254                    CON    XC01,YC16                                               MAD       575
        1417         5103                         DATA   H*(CR)  FOR NON CEJ/MEJ USAGE*                          MAD       576
                                 103     DSBAL    EQU    *-DSBA                                                  MAD       577
        1435         6000 7040                    CON    XC01,YCER                                               MAD       578
        1437         1116                         DATA   H*INVALID ENTRY*                                        MAD       579
                                 114     DSBEL    EQU    *-DSBA                                                  MAD       580
  
  
  
  
                                        **        RDS1 - RETURN DEADSTART STATE                                  MAD       582
                                        *                                                                        MAD       583
                                        *         RDS1 RETURNS PP 10 TO THE DEADSTART STATE                      MAD       584
                                        *                                                                        MAD       585
                                                                                                                 MAD       586
                                                                                                                 MAD       587
        1446         0100 1446           RDS1     SUBR               ENTRY/EXIT                                  MAD       588
        1450         7710 0000                    FNC    0,CH                                                    MAD       589
        1452         1477                         LDN    77B                                                     MAD       590
        1453         1701                         SBN    1           WAIT                                        MAD       591
        1454         0576                         NJN    *-1                                                     MAD       592
        1455         6510 1460                    IJM    RDS3,CH                                                 MAD       593
        1457         7510                         DCN    CH                                                      MAD       594
        1460         7410                RDS3     ACN    CH          PREPARE CHANNEL                             MAD       595
        1461         1404                         LDN    RDS.L       PP10 IS ON CHANNEL 12B                      DIMA366     1
        1462         7312 1470                    OAM    RDSA,12B                                                MAD       597
        1464         6612 1464                    FJM    *,12B                                                   MAD       598
        1466         7512                         DCN    12B                                                     MAD       599
        1467         0356                         UJN    RDS1X       RETURN                                      MAD       600
                                                                                                                 MAD       601
        1470         0000                RDSA     CON    0           PP 10 PROGRAM                               MAD       602
        1471         1400                         LDN    0                                                       MAD       603
        1472         7110 0000                    IAM    0,CH                                                    MAD       604
                                   4     RDS.L    EQU    *-RDSA                                                  DIMA366     2
1       MAD         CTI MAINFRAME ATTRIBUTE DETERMINATOR-A02          COMPASS 3.7-871.     23/08/13. 15.42.39.      PAGE    15
        SECONDARY SUBROUTINES.                                        DSP 
  
                                        **        DSP  - DEADSTART FIRST LEVEL PPU-S.                            DIMA290B   25
                                        *                                                                        DIMA290B   26
                                        *         ENTRY  (A)  =  FUNCTION.                                       DIMA290B   27
                                        *                                                                        DIMA290B   28
                                        *         EXIT   PPU DEADSTARTED AND PPU                                 DIMA290B   29
                                        *                ERROR STATUS CLEARED.                                   DIMA290B   30
                                        *                                                                        DIMA290B   31
                                        *                                                                        DIMA290B   32
                                        *         CALLS  SFC.                                                    DIMA290B   33
                                                                                                                 DIMA290B   34
                                                                                                                 DIMA290B   35
        1474         0100 1474           DSP      SUBR               ENTRY/EXIT                                  DIMA290B   36
        1476         2100 2000                    ADC    FCCL                                                    DIMA290B   37
        1500         5400 1513                    STM    DSPB                                                    DIMA290B   38
        1502         2100 2000                    ADC    FCSB-FCCL                                               DIMA290B   39
        1504         5400 1507                    STM    DSPA                                                    DIMA290B   40
        1506         2000 4072                    LDC    FCSB+DSFP   DEADSTART PPU                               DIMA290B   41
                                        *         LDC    FCSB+DDFP   DEADSTART DUMP PPU                          DIMA290B   42
                                1507     DSPA     EQU    *-1                                                     DIMA290B   43
        1510         0200 1553                    RJM    SFC                                                     DIMA290B   44
        1512         2000 2072                    LDC    FCCL+DSFP   CLEAR DEADSTART BIT                         DIMA290B   45
                                        *         LDC    FCCL+DDFP   CLEAR DEADSTART DUMP BIT                    DIMA290B   46
                                1513     DSPB     EQU    *-1                                                     DIMA290B   47
        1514         0200 1553                    RJM    SFC                                                     DIMA290B   48
        1516         2000 4123                    LDC    FCSB+CPUE   SET *CLEAR PPU* ERROR                       DIMA290B   49
        1520         0200 1553                    RJM    SFC                                                     DIMA290B   50
        1522         2000 2123                    LDC    FCCL+CPUE   CLEAR *CLEAR PPU* ERROR                     DIMA290B   51
        1524         0200 1553                    RJM    SFC                                                     DIMA290B   52
        1526         0100 1474                    LJM    DSPX        RETURN                                      DIMA290B   53
  
  
  
  
                                        **        CSE - CLEAR SCANNER ENABLE AND CHANNEL                         MAD       651
                                        *                                                                        MAD       652
                                        *         ENTRY  SCANNER INTERFACE IS ENABLED AND                        MAD       653
                                        *                SCANNER CHANNEL IS ACTIVE                               MAD       654
                                        *                                                                        MAD       655
                                        *         EXIT   SCANNER INTERFACE IS DISABLED AND                       MAD       656
                                        *                SCANNER CHANNEL IS INACTIVE                             MAD       657
                                                                                                                 MAD       658
                                                                                                                 MAD       659
        1530         0100 1530           CSE      SUBR               ENTRY/EXIT                                  MAD       660
        1532         2000 2122                    LDC    FCCL+ENSC   CLEAR SCANNER ENABLE                        MAD       661
        1534         7256                         OAN    SC+40                                                   MAD       662
        1535         7056                         IAN    SC+40                                                   MAD       663
        1536         7500                         DCN    MC                                                      MAD       664
        1537         0370                         UJN    CSEX        RETURN                                      MAD       665
1       MAD         CTI MAINFRAME ATTRIBUTE DETERMINATOR-A02          COMPASS 3.7-871.     23/08/13. 15.42.39.      PAGE    16
        SECONDARY SUBROUTINES.
  
                                        **        ASE  - ACTIVATE SCANNER ENABLE.                                DIMA290B   55
                                        *                                                                        DIMA290B   56
                                        *         ENTRY  SCANNER CHANNEL IS INACTIVE AND                         DIMA290B   57
                                        *                SCANNER INTERFACE IS DISABLED.                          DIMA290B   58
                                        *                                                                        DIMA290B   59
                                        *                (T3) = PPU NUMBER.                                      DIMA290B   60
                                        *                                                                        DIMA290B   61
                                        *         EXIT   ACTIVE SCANNER CHANNEL, PPU NUMBER                      DIMA290B   62
                                        *                INSERTED IN SCR AND SCANNER                             DIMA290B   63
                                        *                INTERFACE IS ENABLED.                                   DIMA290B   64
                                        *                                                                        DIMA290B   65
                                        *         CALLS  IPN,SFC.                                                DIMA290B   66
                                                                                                                 DIMA290B   67
                                                                                                                 DIMA290B   68
        1540         0100 1540           ASE      SUBR               ENTRY/EXIT                                  DIMA290B   69
        1542         7400                         ACN    MC          ACTIVATE SCANNER CHANNEL                    DIMA290B   70
        1543         0200 1576                    RJM    IPN         INSERT PPU NUMBER IN S/C REGISTER           DIMA290B   71
        1545         2000 4122                    LDC    FCSB+ENSC   ENABLE SCANNER INTERFACE                    DIMA290B   72
        1547         0200 1553                    RJM    SFC                                                     DIMA290B   73
        1551         0366                         UJN    ASEX        RETURN                                      DIMA290B   74
  
  
  
  
                                        **        SFC  - SEND FUNCTION TO S/C REGISTER                           DIMA290B   76
                                        *                                                                        DIMA290B   77
                                        *         ENTRY  (A) = FUNCTION                                          DIMA290B   78
                                        *                                                                        DIMA290B   79
                                        *         EXIT   (A) = FUNCTION REPLY                                    DIMA290B   80
                                                                                                                 DIMA290B   81
                                                                                                                 DIMA290B   82
        1552         0100 1552           SFC      SUBR               ENTRY/EXIT                                  DIMA290B   83
        1554         7256                         OAN    SC+40B                                                  DIMA290B   84
        1555         7056                         IAN    SC+40B                                                  DIMA290B   85
        1556         0373                         UJN    SFCX        RETURN                                      DIMA290B   86
  
  
  
  
                                        **        IPN - INSERT FIRST LEVEL PPU NUMBER IN S/C REGISTER.           MAD       667
                                        *                                                                        MAD       668
                                        *         ENTRY  (T3) = FLPP NUMBER.                                     MAD       669
                                        *                                                                        MAD       670
                                        *         EXIT   (A) = 0.                                                MAD       671
                                        *                                                                        MAD       672
                                        *         USES   T1, T2.                                                 MAD       673
                                                                                                                 MAD       674
                                                                                                                 MAD       675
        1557         3001                IPN1     LDD    T1          CHECK NEXT BIT                              MAD       676
        1560         1076                         SHN    -1                                                      MAD       677
        1561         3401                IPN2     STD    T1                                                      MAD       678
        1562         1201                         LPN    1                                                       MAD       679
        1563         0403                         ZJN    IPN3        IF BIT TO BE CLEARED                        MAD       680
        1564         2000 6000                    LDC    FCSB&FCCL                                               MAD       681
        1566         3302                IPN3     LMD    T2                                                      MAD       682
        1567         7256                         OAN    SC+40                                                   MAD       683
        1570         7056                         IAN    SC+40                                                   MAD       684
1       MAD         CTI MAINFRAME ATTRIBUTE DETERMINATOR-A02          COMPASS 3.7-871.     23/08/13. 15.42.39.      PAGE    17
        SECONDARY SUBROUTINES.                                        IPN 
  
        1571         3602                         AOD    T2          ADVANCE BIT NUMBER                          MAD       685
        1572         2300 2114                    LMC    FCCL+SCSL+4                                             MAD       686
        1574         0562                         NJN    IPN1        IF NOT END OF BITS                          MAD       687
                                                                                                                 MAD       688
        1575         0100 1575           IPN      SUBR               ENTRY/EXIT                                  MAD       689
        1577         2000 2110                    LDC    FCCL+SCSL   PRESET FUNCTION AND BIT NUMBER              MAD       690
        1601         3402                         STD    T2                                                      MAD       691
        1602         3003                         LDD    T3                                                      MAD       692
        1603         0355                         UJN    IPN2        ENTER LOOP                                  MAD       693
  
  
  
  
                                        **        PKI - PROCESS KEYBOARD INPUT.                                  MAD       695
                                        *                                                                        MAD       696
                                        *         PKI FUNCTIONS THE DISPLAY CONSOLE FOR KEYBOARD INPUT, AND      MAD       697
                                        *         CHECKS THE INPUT FOR A VALID RESPONSE.  IF NO INPUT HAS        MAD       698
                                        *         BEEN ENTERED, PKI RETURNS WITH (A) ZERO.  IF THE INPUT IS      MAD       699
                                        *         NOT VALID, (A) IS ZERO AND AN ERROR MESSAGE HAS BEEN           MAD       700
                                        *         ACTIVATED.  IF CARRIAGE RETURN IS SELECTED, (A) IS SET TO      MAD       701
                                        *         A ONE.  IF LEFT BLANK KEY IS ENTERED, THE ERROR MESSAGE        MAD       702
                                        *         IS CLEARED.                                                    MAD       703
                                        *                                                                        MAD       704
                                        *         EXIT   (A) = 0, NO INPUT OR INPUT ERROR.                       MAD       705
                                        *                (A) = 1, CONTINUE WITH NON CEJ/MEJ USAGE                MAD       706
                                        *                                                                        MAD       707
                                                                                                                 MAD       708
                                                                                                                 MAD       709
        1604         0100 1604           PKI      SUBR               ENTRY/EXIT                                  MAD       710
        1606         7710 7020                    FNC    7020B,CH    SELECT KEYBOARD INPUT                       MAD       711
        1610         7410                         ACN    CH                                                      MAD       712
        1611         7010                         IAN    CH          READ KEYBOARD                               MAD       713
        1612         7510                         DCN    CH                                                      MAD       714
        1613         0470                         ZJN    PKIX        IF NO INPUT RETURN                          MAD       715
        1614         1760                         SBN    60B                                                     MAD       716
        1615         0411                         ZJN    PKIA        IF CARRIAGE RETURN                          MAD       717
        1616         1605                         ADN    5                                                       MAD       718
        1617         0411                         ZJN    PKIB        IF LEFT BLANK                               MAD       719
        1620         2000 0114                    LDC    DSBEL       SET MESSAGE LENGTH FOR ERROR                MAD       720
        1622         5400 1320           PKIC     STM    DOAL                                                    MAD       721
        1624         1400                         LDN    0                                                       MAD       722
        1625         0356                         UJN    PKIX        RETURN                                      MAD       723
        1626         1401                PKIA     LDN    1                                                       MAD       724
        1627         0354                         UJN    PKIX        RETURN AND CONTINUE NON CEJ/MEJ             MAD       725
        1630         2000 0103           PKIB     LDC    DSBAL       SET MESSAGE LENGTH FOR NO ERROR             MAD       726
        1632         0367                         UJN    PKIC                                                    MAD       727
1       MAD         CTI MAINFRAME ATTRIBUTE DETERMINATOR-A02          COMPASS 3.7-871.     23/08/13. 15.42.39.      PAGE    18
        CPU TEST PROGRAMS.
  
                                        **        CPU TEST PROGRAMS.                                             MAD       729
                                                                                                                 MAD       730
                                                                                                                 MAD       731
        1633         0400                CPOA     VFD    30/0400000000,30/0    CPU 0 STOP                        MAD       732
        1634         0000 
        1635         0000 
        1636         0000 
        1637         0000 
        1640         0400                         VFD    30/0400000001,30/0    CPU 1 STOP                        MAD       733
        1641         0000 
        1642         0100 
        1643         0000 
        1644         0000 
                                                                                                                 MAD       734
                                                                                                                 MAD       735
                                        *         EXCHANGE PACKAGE FOR CPU TYPE.                                 MAD       736
                                                                                                                 MAD       737
        1645         0000                CPOB     VFD    6/0,18/120,18/0,18/0                                    MAD       738
        1646         0120 
        1647         0000 
        1650         0000 
        1651         0000 
        1652         0000                CPOC     VFD    6/0,18/0,18/0,18/1  (B1) = 1 TO CPU 1                   MAD       739
        1653         0000 
        1654         0000 
        1655         0000 
        1656         0001 
        1657         0000                         VFD    6/0,18/200,18/0,18/0                                    MAD       740
        1660         0200 
        1661         0000 
        1662         0000 
        1663         0000 
        1664         0000                         VFD    60/0                                                    MAD       741
        1665         0000 
        1666         0000 
        1667         0000 
        1670         0000 
        1671         0000                         VFD    60/0                                                    MAD       742
        1672         0000 
        1673         0000 
        1674         0000 
        1675         0000 
        1676         0000                         VFD    60/0                                                    MAD       743
        1677         0000 
        1700         0000 
        1701         0000 
        1702         0000 
        1703         0000                         VFD    60/0                                                    MAD       744
        1704         0000 
        1705         0000 
        1706         0000 
        1707         0000 
        1710         0000                         VFD    60/0                                                    MAD       745
        1711         0000 
        1712         0000 
        1713         0000 
        1714         0000 
1       MAD         CTI MAINFRAME ATTRIBUTE DETERMINATOR-A02          COMPASS 3.7-871.     23/08/13. 15.42.39.      PAGE    19
        CPU TEST PROGRAMS.
  
                                                                                                                 MAD       746
        1715         0000                         VFD    60/0                                                    MAD       747
        1716         0000 
        1717         0000 
        1720         0000 
        1721         0000 
        1722         0000                         VFD    60/0                                                    MAD       748
        1723         0000 
        1724         0000 
        1725         0000 
        1726         0000 
        1727         0000                         VFD    60/0                                                    MAD       749
        1730         0000 
        1731         0000 
        1732         0000 
        1733         0000 
        1734         0000                         VFD    60/0                                                    MAD       750
        1735         0000 
        1736         0000 
        1737         0000 
        1740         0000 
        1741         0000                         VFD    60/0                                                    MAD       751
        1742         0000 
        1743         0000 
        1744         0000 
        1745         0000 
        1746         0000                         VFD    60/0                                                    MAD       752
        1747         0000 
        1750         0000 
        1751         0000 
        1752         0000 
        1753         0200                         VFD    30/0200000000,30/0          JUMP IF 6400                MAD       753
        1754         0000 
        1755         0000 
        1756         0000 
        1757         0000 
        1760         0000                         VFD    60/0                                                    MAD       754
        1761         0000 
        1762         0000 
        1763         0000 
        1764         0000 
                                                                                                                 MAD       755
                                        *         TEST PROGRAM FOR CPU TYPE.                                     MAD       756
                                                                                                                 MAD       757
        1765         5160                CPOD     VFD    30/5160000121,30/6100046000 STORE IN (P+1)              MAD       758
        1766         0001 
        1767         2161 
        1770         0004 
        1771         6000 
        1772         0200                         VFD    30/0200000001,30/0          EXECUTE IF 6600             MAD       759
        1773         0000 
        1774         0100 
        1775         0000 
        1776         0000 
                                                                                                                 MAD       760
                                                                                                                 MAD       761
                                        *         EXCHANGE PACKAGES FOR CEJ/MEJ OPTION.                          MAD       762
1       MAD         CTI MAINFRAME ATTRIBUTE DETERMINATOR-A02          COMPASS 3.7-871.     23/08/13. 15.42.39.      PAGE    20
        CPU TEST PROGRAMS.
  
                                                                                                                 MAD       763
        1777         0000                CXJA   VFD    6/0,18/170,18/0,18/0  (P) = PROGRAM 1                     MAD       764
        2000         0170 
        2001         0000 
        2002         0000 
        2003         0000 
        2004         0000                         VFD    60/0                                                    MAD       765
        2005         0000 
        2006         0000 
        2007         0000 
        2010         0000 
        2011         0000                         VFD    6/0,18/200,18/0,18/0                                    MAD       766
        2012         0200 
        2013         0000 
        2014         0000 
        2015         0000 
        2016         0000                         VFD    60/0                                                    MAD       767
        2017         0000 
        2020         0000 
        2021         0000 
        2022         0000 
        2023         0000                         VFD    60/0                                                    MAD       768
        2024         0000 
        2025         0000 
        2026         0000 
        2027         0000 
        2030         0000                         VFD    60/0                                                    MAD       769
        2031         0000 
        2032         0000 
        2033         0000 
        2034         0000 
        2035         0000                         VFD    6/0,18/120,18/0,18/0  (MA) = SECOND EXCHANGE PACKAGE    MAD       770
        2036         0120 
        2037         0000 
        2040         0000 
        2041         0000 
        2042         0000                         VFD    60/0                                                    MAD       771
        2043         0000 
        2044         0000 
        2045         0000 
        2046         0000 
                                                                                                                 MAD       772
        2047         0000                CXJB     VFD    6/0,18/172,18/0,18/0  (P) = PROGRAM 2                   MAD       773
        2050         0172 
        2051         0000 
        2052         0000 
        2053         0000 
        2054         0000                         VFD    60/0                                                    MAD       774
        2055         0000 
        2056         0000 
        2057         0000 
        2060         0000 
        2061         0000                         VFD    6/0,18/200,18/0,18/0                                    MAD       775
        2062         0200 
        2063         0000 
        2064         0000 
        2065         0000 
1       MAD         CTI MAINFRAME ATTRIBUTE DETERMINATOR-A02          COMPASS 3.7-871.     23/08/13. 15.42.39.      PAGE    21
        CPU TEST PROGRAMS.
  
        2066         0000                         VFD    60/0                                                    MAD       776
        2067         0000 
        2070         0000 
        2071         0000 
        2072         0000 
        2073         0000                         VFD    60/0                                                    MAD       777
        2074         0000 
        2075         0000 
        2076         0000 
        2077         0000 
        2100         0000                         VFD    60/0                                                    MAD       778
        2101         0000 
        2102         0000 
        2103         0000 
        2104         0000 
        2105         0000                         VFD    6/0,18/100,18/0,18/0  (MA) = FIRST EXCHANGE PACKAGE     MAD       779
        2106         0100 
        2107         0000 
        2110         0000 
        2111         0000 
        2112         0000                         VFD    60/0                                                    MAD       780
        2113         0000 
        2114         0000 
        2115         0000 
        2116         0000 
                                                                                                                 MAD       781
        2117         0000                CXJC     VFD    6/0,18/00,18/0,18/0   (P) = PROGRAM 3                   MAD       782
        2120         0000 
        2121         0000 
        2122         0000 
        2123         0000 
        2124         0000                         VFD    6/0,18/0,18/0,18/0                                      MAD       783
        2125         0000 
        2126         0000 
        2127         0000 
        2130         0000 
        2131         0000                         VFD    6/0,18/200,18/0,18/0                                    MAD       784
        2132         0200 
        2133         0000 
        2134         0000 
        2135         0000 
        2136         0000                         VFD    60/0                                                    MAD       785
        2137         0000 
        2140         0000 
        2141         0000 
        2142         0000 
        2143         0000                         VFD    60/0                                                    MAD       786
        2144         0000 
        2145         0000 
        2146         0000 
        2147         0000 
        2150         0000                         VFD    60/0                                                    MAD       787
        2151         0000 
        2152         0000 
        2153         0000 
        2154         0000 
        2155         0000                         VFD    60/0                                                    MAD       788
1       MAD         CTI MAINFRAME ATTRIBUTE DETERMINATOR-A02          COMPASS 3.7-871.     23/08/13. 15.42.39.      PAGE    22
        CPU TEST PROGRAMS.
  
        2156         0000 
        2157         0000 
        2160         0000 
        2161         0000 
        2162         0000                         VFD    60/0                                                    MAD       789
        2163         0000 
        2164         0000 
        2165         0000 
        2166         0000 
                                                                                                                 MAD       790
                                        *         TEST PROGRAMS FOR CEJ/MEJ OPTION.                              MAD       791
                                                                                                                 MAD       792
        2167         0130                CXJD     VFD    30/0130000000,30/0  XJ TO (MA)                          MAD       793
        2170         0000 
        2171         0000 
        2172         0000 
        2173         0000 
        2174         0400                         VFD    30/0400000071,30/0                                      MAD       794
        2175         0000 
        2176         7100 
        2177         0000 
        2200         0000 
                                                                                                                 MAD       795
        2201         0130                CXJE     VFD    30/0130000140,30/0  XJ TO STOP PROGRAM                  MAD       796
        2202         0001 
        2203         4000 
        2204         0000 
        2205         0000 
  
  
  
  
                                        *         EXCHANGE PACKAGE FOR CMU OPTION TEST.                          MAD       798
                                                                                                                 MAD       799
        2206         0000                CCUA     VFD    6/0,18/60,18/0,18/0  (P) = CMU TEST PROGRAM             MAD       800
        2207         0060 
        2210         0000 
        2211         0000 
        2212         0000 
        2213         0000                         VFD    6/0,18/100,18/0,18/0                                    MAD       801
        2214         0100 
        2215         0000 
        2216         0000 
        2217         0000 
        2220         0000                         VFD    6/0,18/100,18/0,18/0                                    MAD       802
        2221         0100 
        2222         0000 
        2223         0000 
        2224         0000 
        2225         0000                         VFD    60/0                                                    MAD       803
        2226         0000 
        2227         0000 
        2230         0000 
        2231         0000 
        2232         0000                         VFD    60/0                                                    MAD       804
        2233         0000 
        2234         0000 
1       MAD         CTI MAINFRAME ATTRIBUTE DETERMINATOR-A02          COMPASS 3.7-871.     23/08/13. 15.42.39.      PAGE    23
        CPU TEST PROGRAMS.                                            TCHS
  
        2235         0000 
        2236         0000 
        2237         0000                         VFD    60/0                                                    MAD       805
        2240         0000 
        2241         0000 
        2242         0000 
        2243         0000 
        2244         0000                         VFD    6/0,18/120,18/0,18/0  (MA) = SECOND EXCHANGE PACKAGE    MAD       806
        2245         0120 
        2246         0000 
        2247         0000 
        2250         0000 
        2251         0000                         VFD    60/0                                                    MAD       807
        2252         0000 
        2253         0000 
        2254         0000 
        2255         0000 
                                        *         TEST PROGRAM FOR CMU OPTION.                                   MAD       808
                                                                                                                 MAD       809
        2256         4650                CCUB     VFD    9/465,3/0,18/63,4/2,26/64  *DM* INSTRUCTION             MAD       810
        2257         0000 
        2260         6310 
        2261         0000 
        2262         0064 
        2263         0130                         VFD    30/0130000000,30/0                                      MAD       811
        2264         0000 
        2265         0000 
        2266         0000 
        2267         0000 
        2270         0400                         VFD    30/0400000061,30/0                                      MAD       812
        2271         0000 
        2272         6100 
        2273         0000 
        2274         0000 
        2275         7777                         VFD    24/77777777,36/0  CHARACTERS TO MOVE                    MAD       813
        2276         7777 
        2277         0000 
        2300         0000 
        2301         0000 
        2302         0000                         VFD    60/0        LOCATION TO PLACE CHARACTERS                MAD       814
        2303         0000 
        2304         0000 
        2305         0000 
        2306         0000 
1       MAD         CTI MAINFRAME ATTRIBUTE DETERMINATOR-A02          COMPASS 3.7-871.     23/08/13. 15.42.39.      PAGE    24
        CPU TEST PROGRAMS.                                            BUF 
  
                                        **        BUF - LOW CORE BUFFER.                                         MAD       816
                                                                                                                 MAD       817
                                                                                                                 MAD       818
                                2307     BUF      EQU    *                                                       MAD       819
                                 505     BUFL     EQU    101*5                                                   MAD       820
                                                                                                                 MAD       821
                                2764              ERRNG  /CTI/IPLB-BUF-BUFL                                      MAD       822
                                                                                                                 MAD       823
        2307                                      END                                                            MAD       824
  
                             53600B CM  STORAGE USED             1135 STATEMENTS      898 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            1.067 SECONDS         584 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        AJMI         6400                   3/36 D    8/02
        ASE          1541                  11/13     11/27     16/15 D
        ASEX         1540                  16/15 L   16/20
        BUF          2307                   4/26 S    4/28 S    4/42      4/44      5/13     24/04 D   24/07
        BUFL          505                  24/05 D   24/07
        CCIO          177                   4/08      4/11
        CCRO          251                  10/43     10/46
        CCRT          250                  10/49     10/52
        CCU           471                   4/39      7/10 D
        CCUA         2206                   7/15     22/35 L
        CCUB         2256                   7/18      7/19      7/34 S    7/35     23/20 L
        CCUX          470                   7/10 L    7/13      7/39
        CCU1          542                   7/36      7/39 L
        CCU1A         523                   7/24      7/26 L
        CCU1B         524                   7/25 S    7/28 L
        CH             10                   3/32 D   13/21     13/48     14/24     14/30     17/31
                                           13/19     13/44     13/49     14/28     14/39     17/32
                                           13/20     13/45     13/50     14/29     17/30     17/33
        CHS           545                   4/05      7/47 D
        CHSA          574                   8/03 S    8/09 L
        CHSB          606                   7/55 S    8/17 L
        CHSX          544                   7/47 L    8/20
        CHS1          562                   7/52      7/56 L    8/13      8/18
        CHS2          577                   8/09      8/11 L
        CM             10   NOSTEXT         3/13 L    8/46 S    8/47      9/16 S    9/52 S    9/53
        CPC           615                   4/37      8/28 D
        CPCX          614                   8/28 L    8/31      8/33      8/48      8/51
        CPOA         1633                   4/32     12/47     18/04 L
        CPOB         1645                   8/37      8/42      9/11     18/18 L
        CPOC         1652                   8/35 S   18/23 L
        CPOD         1765                   8/38      9/12     19/45 L
        CPT           655                   4/36      9/04 D
        CPTA          674                   9/08 S    9/14 L
        CPTB          701                   9/09 S    9/20 L
        CPTX          654                   9/04 L    9/22      9/25
        CPT1          666                   9/07      9/10 L
        CPUE          123                  15/25     15/27
        CSE          1531                  11/16     12/08     15/43 D
        CSEX         1530                  15/43 L   15/48
        CXJ           710                   4/38      9/33 D
1       MAD         CTI MAINFRAME ATTRIBUTE DETERMINATOR-A02          COMPASS 3.7-871.     23/08/13. 15.42.39.      PAGE    25
        SYMBOLIC REFERENCE TABLE. 
  
        CXJA         1777                   9/42     20/02 L
        CXJB         2047                   7/16      9/43     20/43 L
        CXJC         2117                   7/17      9/44     12/49     13/02     21/27 L
        CXJD         2167                   9/46     22/13 L
        CXJE         2201                   7/21     22/24 L
        CXJX          707                   9/33 L    9/40      9/55     10/04
        CXJ1          717                   9/36      9/38 L
        DDFP           73                  11/10     11/28
        DMS           401                   5/14
        DOA          1307                  10/02     13/40 D
        DOAL         1320                  13/47 D   17/40 S
        DOAX         1306                  13/40 L   13/53
        DOA1         1310                  13/41 L   13/52
        DOT           767                   4/06     10/15 D
        DOTA         1231                  11/45     12/30 L   12/35
        DOTAL           5                  11/44     11/46     12/35 D
        DOTX          766                  10/15 L   10/25     10/29     12/26
        DOT1         1035                  10/39     10/41 L
        DOT1.3       1072                  11/01     11/04 L
        DOT1.5       1076                  10/40     11/10 L
        DOT2         1102                  11/12 L   11/19
        DOT3         1127                  11/25     11/27 L   12/19
        DOT4         1135                  11/31 L   11/33
        DOT4.1       1142                  11/31     11/36 L
        DOT4.2       1156                  11/48 L   11/52
        DOT4.4       1163                  11/34     11/54 L
        DOT5         1173                  11/56     12/03 L
        DOT6         1176                  11/48     12/06 L
        DOT7         1203                  11/26     12/09 L   12/18
        DOT8         1217                  12/10     12/21 L
        DOT9          762                  10/12 L   10/18
        DSBA         1332                  13/48     14/01 L   14/09     14/12
        DSBAL         103                  13/46     14/09 D   17/45
        DSBEL         114                  14/12 D   17/39
        DSFC         7001                   3/47 D   13/44
        DSFP           72                  11/14     11/36     11/42     12/06     15/17     15/21
        DSP          1475                  11/15     11/29     11/37     11/43     12/07     15/12 D
        DSPA         1507                  15/16 S   15/19 D
        DSPB         1513                  15/14 S   15/23 D
        DSPX         1474                  15/12 L   15/29
        ECH          1237                   4/40     12/43 D
        ECHX         1236                  12/43 L   12/57     13/05
        ECH1         1265                  12/52     13/03 L
        EL             67                   3/19 L    7/16      8/37      9/11      9/43     12/49
                                            7/15      7/17      8/42      9/42      9/44     13/02
        ENSC          122                  15/44     16/18
        FCCL         2000                   4/11     10/52     11/10     15/13     15/21     15/44     17/02
                                           10/46     11/04     12/23     15/15     15/27     16/54     17/06
        FCRD            0                  10/35
        FCSB         4000                   4/08     10/43     15/15     15/25     16/54
                                           10/19     10/49     15/17     16/18
        FCTB         1000                  10/26     10/55
        FCTC         3000                   4/51     10/22
        FCTS         5000                   4/55
        FDC          1271                  10/01     13/16 D
        FDCA         1302                  13/19     13/24 L   13/27
        FDCB         1304                  13/26 L
1       MAD         CTI MAINFRAME ATTRIBUTE DETERMINATOR-A02          COMPASS 3.7-871.     23/08/13. 15.42.39.      PAGE    26
        SYMBOLIC REFERENCE TABLE. 
  
        FDCL            4                  13/18     13/27 D
        FDCX         1270                  13/16 L   13/22
        HN             71   NOSTEXT         3/21 L    4/28      4/44      7/27      8/41      9/41     12/48     13/01
                                            4/27      4/43      7/14      8/36      9/10      9/47     12/53     13/03
        IC             15                   3/33 D    4/33
        IPN          1576                  16/17     17/05 D
        IPNX         1575                  17/05 L
        IPN1         1557                  16/49 L   17/03
        IPN2         1561                  16/51 L   17/09
        IPN3         1566                  16/53     16/55 L
        LNP           335                   6/14 L
        LNPB          341                   6/15      6/18 L
        MAD           100                   4/04 L
        MADA          257                   5/27 S    5/30 L
        MADB          270                   5/28 S    5/36 L
        MADC          323                   5/53 S    5/55 L
        MAD1          100                   4/05 L
        MAD2          117                   4/07      4/16 L
        MAD2.5        141                   4/24      4/29 L
        MAD3          154                   4/33      4/36 L
        MAD4          174                   4/14      4/48 L
        MAD4A         243                   5/12      5/22 L
        MAD4.1        214                   4/50      4/54      5/01      5/03 L
        MAD4.2        224                   5/02      5/10 L
        MAD5          245                   5/24 L    5/43
        MAD6          266                   5/32      5/35 L
        MAD7          277                   5/38      5/41 L
        MAD8          313                   5/47      5/50 L    6/05
        MAD9          332                   5/57      6/03 L
        MC              0                   3/34 D   11/31     11/45     11/50     15/47     16/16
        ON             70   NOSTEXT         3/20 L    4/26      4/42      7/21      7/34
        PKI          1605                  13/51     17/29 D
        PKIA         1626                  17/36     17/43 L
        PKIB         1630                  17/38     17/45 L
        PKIC         1622                  17/40 L   17/46
        PKIX         1604                  17/29 L   17/34     17/42     17/44
        PPCT          124                   4/51      4/55
        PPUE            4                  12/23
        RCM$            0                   1/14 D
        RDSA         1470                  14/32     14/37 L   14/40
        RDS1         1447                  10/03     14/23 D
        RDS1X        1446                  14/23 L   14/35
        RDS3         1460                  14/28     14/30 L
        RDS.L           4                  14/31     14/40 D
        SAB           347                   5/34      5/40      5/49      6/02      6/38 D
        SABA          362                   6/43 S    6/46 L
        SABB          370                   6/44 S    6/50 L
        SABC          374                   6/48 S    6/54 D
        SABX          346                   6/38 L    6/57
        SC             16                   3/35 D    4/52     10/20     10/28     10/47     10/54     15/45     16/57
                                            4/09      4/53     10/21     10/36     10/48     10/56     15/46
                                            4/10      4/56     10/23     10/37     10/50     10/57     16/33
                                            4/12      4/57     10/24     10/44     10/51     11/05     16/34
                                            4/13     10/18     10/27     10/45     10/53     11/06     16/56
        SCSL          110                  10/19     10/22     10/26     17/02     17/06
        SECD            3                  11/04
        SFC          1553                  11/11     12/24     15/20     15/24     15/26     15/28     16/19     16/32 D
1       MAD         CTI MAINFRAME ATTRIBUTE DETERMINATOR-A02          COMPASS 3.7-871.     23/08/13. 15.42.39.      PAGE    27
        SYMBOLIC REFERENCE TABLE. 
  
        SFCX         1552                  16/32 L   16/35
        SHNI         1000                   3/37 D    5/26      5/52      6/42
        TH             72   NOSTEXT         3/22 L
        TR             73   NOSTEXT         3/23 L    7/18      7/19      8/38      9/12      9/46
        T0              0   NOSTEXT         3/05 D
        T1              1   NOSTEXT         3/06 D    5/23 S    5/44 S    6/40      8/12 S   12/47
                                            4/30 S    5/24      5/50      7/51 S    8/15 S   16/49
                                            4/32      5/41 S    6/03 S    8/01     12/45 S   16/51 S
        T2              2   NOSTEXT         3/07 D    6/52      7/49 S    8/04      8/16 S   17/01 S
                                            6/39 S    6/56 I    7/56      8/11     16/55     17/07 S
        T3              3   NOSTEXT         3/08 D    6/55     11/12 S   11/54     17/08
                                            6/51 S   10/30 S   11/17     12/09 S
        T4              4   NOSTEXT         3/09 D   11/21 S   12/14     12/16 S
        T5              5   NOSTEXT         3/10 D   11/23 S   12/03     12/05 S   12/11     12/13 S   12/21
        T6              6   NOSTEXT         3/11 D   11/47 S   11/51 S
        T7              7   NOSTEXT         3/12 D
        XC01         6000                   3/53 D   14/01     14/03     14/05     14/07     14/10
        XJ1           737                   9/37 S    9/48 L
        YCER         7040                   3/52 D   14/10
        YC09         7470                   3/48 D   14/01
        YC12         7374                   3/49 D   14/03
        YC13         7350                   3/50 D   14/05
        YC16         7254                   3/51 D   14/07
  
  
  
  
                                                  SYMBOL QUALIFIER =  CPA 
  
  
        CMSZ         7671                   5/10      5/11      5/16 S    5/18 S
        DSPNLZ       7677                   4/20
        LPPU         7702                   5/48      6/01     11/20     11/24
        LPP0         7676                   5/33
        LPP1         7677                   5/39
        OPTN         7673                   4/35 S    5/06 S    7/38 S    9/05      9/38     10/17 S   10/42 S   12/55
                                            4/48      7/11      8/29      9/24 S    9/57 S   10/31     11/03 S
                                            5/03      7/22      8/50 S    9/34     10/13 S   10/34 S   12/50
        PPPU         7700                   4/17 S    4/19 S    5/45      5/54     11/57     12/02 S   12/22 S
        PPP0         7674                   5/29      8/04      8/11 S    8/19 S
        PPP1         7675                   5/35      7/54 S
  
  
  
  
                                                  SYMBOL QUALIFIER =  CTI 
  
  
        CDEP         7000                   6/16
        IPLB         6000                  24/07
        LOAD           10                   1/10      3/04      6/18
        TRAN          100                   4/03      6/19
 PCM
1       PCM         CTI PRESET COMPUTER MEMORY - A02                  COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
  
                         10     3446              IDENT  PCM,/CTI/LOAD
                       3456     (557) 
  
  
  
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                       3456     1245              IDENT  CMC,OVL
                       4723     (211) 
  
  
  
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                       3456     1332              IDENT  SCE,OVL
                       5010     (223)             END 
  
  
  
  
                                                  IDENT  PCM,/CTI/LOAD                                           PCM         2
                                                  PERIPH J                                                       PCM         4
                                 D_M              BASE   MIXED                                                   PCM         5
                                                  SST    RDS,TH                                                  PCM         6
                                         VERID    MICRO  1,,*A02*                                                *A02*       1
                                         VERS     MICRO  1,,*"VERID"*                                       VERS VERS        3
                                                  COMMENT CTI PRESET COMPUTER MEMORY - "VERS"                    DIMA317N    3
                                                  COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1979               DIMA317N    4
  
  
                                        *         ALL RIGHTS RESERVED                                            CDCCRN      3
                                        *                                                                        CDCCRN      4
                                        *         CONTAINED HEREIN ARE SOFTWARE PRODUCTS COPYRIGHTED             CDCCRN      5
                                        *         BY CONTROL DATA CORPORATION.  REPRODUCTION WITHOUT             CDCCRN      6
                                        *         PERMISSION IS PROHIBITED.  THE COPYRIGHT NOTICE                CDCCRN      7
                                        *         MUST APPEAR ON ALL AUTHORIZED COMPLETE OR                      CDCCRN      8
                                        *         PARTIAL COPIES.                                                CDCCRN      9
                                        *                                                                        CDCCRN     10
1       PCM         CTI PRESET COMPUTER MEMORY - A02                  COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE     2
  
  
                                        *****     PCM - PRESET COMPUTER MEMORY.                                  PCM         9
                                        *         R. E. DENNIS.      78/06/06.                                   PCM        10
  
  
  
  
                                        ***       *PCM* CLEARS THE MEMORY OF CYBER/6000 PROCESSORS.  ON A        PCM        12
                                        *         LEVEL 0, 1, OR 2 RECOVERY CENTRAL MEMORY AND ALL PPU MEMORY    PCM        13
                                        *         IS SET TO 0..0 AND CHECKED FOR 0..0.  THE MEMORYS ARE THEN     PCM        14
                                        *         ALL SET TO 7..7 AND CHECKED FOR ALL 7..7.  ANY ERROR           PCM        15
                                        *         ENCOUNTERED DURING THE CHECKING PHASE WILL BE REPORTED ON THE  PCM        16
                                        *         CONSOLE DISPLAY AS SHOWN BELOW.  ON A LEVEL 3 RECOVERY ONLY    PCM        17
                                        *         THE PPU MEMORYS ARE CHECKED.  ALL DISPLAYS ARE DYNAMIC         PCM        18
                                        *         AND EACH NUMERIC REPRESENTS THE CURRENT VALUE BEING            PCM        19
                                        *         PROCESSED.                                                     PCM        20
                                        *                                                                        PCM        21
                                        *                                                                        PCM        22
                                        *         CONSOLE MESSAGES -                                             PCM        23
                                        *                (LEFT SCREEN.)                                          PCM        24
                                        *                                                                        PCM        25
                                        *                                                                        PCM        26
                                        *         CHECK COMPUTER MEMORY.                                         PCM        27
                                        *                                                                        PCM        28
                                        *                                                                        PCM        29
                                        *            S/C REGISTER 00 BIT  0314                                   PCM        30
                                        *               (OR)                                                     PCM        31
                                        *            INTERLOCK REGISTER 00 BIT 0177                              PCM        32
                                        *               (OR)                                                     PCM        33
                                        *            NULL LINE.                                                  PCM        34
                                        *                                                                        PCM        35
                                        *            PPU  05  4317                                               PCM        36
                                        *            CM ADDRESS 012567 P0= 000312                                PCM        37
                                        *                (OR)                                                    PCM        38
                                        *            CM NOT ACTIVE - LEVEL 3 REC.                                PCM        39
                                        *                (OR)                                                    PCM        40
                                        *            NO CPU DEFINED FOR SYSTEM.                                  PCM        41
                                        *                                                                        PCM        42
                                        *                                                                        PCM        43
                                        *         CHECK MEMORY COMPLETE.                                         PCM        44
                                        *                                                                        PCM        45
                                        *                                                                        PCM        46
                                        *         IF A FATAL COMMUNICATIONS ERROR OCCURS, THE PPU NUMBER WILL    PCM        47
                                        *         NOT BE ADVANCED ON THE LEFT SCREEN AND THE PPU NUMBER OF THE   PCM        48
                                        *         PPU WITH THE ERROR WILL BE DISPLAYED ON THE RIGHT SCREEN.      PCM        49
                                        *                                                                        PCM        50
                                        *         IF A CENTRAL MEMORY ERROR OCCURS IN THE AREA WHERE THE TEST    PCM        51
                                        *         PROGRAM WILL EXECUTE, IT IS CONSIDERED FATAL AND WILL          PCM        52
                                        *         HANG DEADSTART WITH THE ERROR DISPLAYED.                       PCM        53
                                        *                                                                        PCM        54
                                        *                                                                        PCM        55
                                        *                (RIGHT SCREEN.)                                         PCM        56
                                        *                                                                        PCM        57
                                        *                                                                        PCM        58
                                        *             MEMORY DATA ERRORS.                                        PCM        59
                                        *                                                                        PCM        60
                                        *         PP            05                                               PCM        61
                                        *         NONE.                                                          PCM        62
1       PCM         CTI PRESET COMPUTER MEMORY - A02                  COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE     3
  
  
                                        *         (OR)                                                           PCM        63
                                        *         FATAL COMMUNICATION ERROR.                                     PCM        64
                                        *         (OR)                                                           PCM        65
                                        *         ADDRESS       4317                                             PCM        66
                                        *         EXPECTED DATA 7777                                             PCM        67
                                        *         ACTUAL DATA   5777                                             PCM        68
                                        *         DIFFERENCE    2000                                             PCM        69
                                        *                                                                        PCM        70
                                        *         CENTRAL MEMORY                                                 PCM        71
                                        *         NONE.                                                          PCM        72
                                        *         (OR)                                                           PCM        73
                                        *         ADDRESS            012567                                      PCM        74
                                        *         EXPECTED DATA      0000 0000 0000 0000 0000                    PCM        75
                                        *         ACTUAL DATA        0200 0000 0000 0000 0000                    PCM        76
                                        *         DIFFERENCE         0200 0000 0000 0000 0000                    PCM        77
                                        *                                                                        PCM        78
                                        *                                                                        PCM        79
                                        *         NOTE  -  THE VALUE OF ANY OF THE DATA/ADDRESS FIELDS MAY BE    PCM        80
                                        *         INCORRECT IF THE COMMUNICATIONS CHANNEL HAS A PROBLEM OR THE   PCM        81
                                        *         PROGRAM IN THE PROCESSOR BEING CHECKED CANNOT EXECUTE          PCM        82
                                        *         CORRECTLY.  THE MESSAGE *NONE,* MAY ALSO BE DISPLAYED EVEN     PCM        83
                                        *         IF AN ERROR HAS OCCURRED IF THE CPU/PPU PROGRAM IS INCAPABLE   PCM        84
                                        *         OF EXECUTING CORRECTLY CAUSING THE STATUS WORDS TO BE          PCM        85
                                        *         INCORRECT.                                                     PCM        86
                                        *                                                                        PCM        87
                                        *                                                                        PCM        88
                                        *                                                                        PCM        89
                                        *                                                                        PCM        90
                                        *         THE REMAINING PORTION OF THE DISPLAY WILL ONLY OCCUR ON CYBER  PCM        91
                                        *         170 MACHINES.                                                  PCM        92
                                        *                                                                        PCM        93
                                        *                                                                        PCM        94
                                        *              S/C REGISTER ERRORS.                                      PCM        95
                                        *                                                                        PCM        96
                                        *         NONE.                                                          PCM        97
                                        *         (OR)                                                           PCM        98
                                        *         S/C REGISTER CHANNEL FULL - FATAL ERROR.                       PCM        99
                                        *         (OR)                                                           PCM       100
                                        *         (IF ANY S/C REGISTER ERRORS EXIST.)                            PCM       101
                                        *                                                                        PCM       102
                                        *                                                                        PCM       103
                                        *         (ALL S/C REGISTER 0 MESSAGES HAVE ARE PRECEEDED BY A 0)        PCM       104
                                        *                                                                        PCM       105
                                        *                                                                        PCM       106
                                        *         0 00 -READ PYRAMID PARITY ERROR.                               PCM       107
                                        *         0 01 -CSU 0 ADDRESS PARITY ERROR.                              PCM       108
                                        *                                                                        PCM       109
                                        *                                                                        PCM       110
                                        *         (ALL S/C REGISTER 1 MESSAGES HAVE ARE PRECEEDED BY A 1)        PCM       111
                                        *                                                                        PCM       112
                                        *                                                                        PCM       113
                                        *         1 00 -READ PYRAMID PARITY ERROR.                               PCM       114
                                        *         1 14 -PP20 PARITY ERROR.                                       PCM       115
1       PCM         CTI PRESET COMPUTER MEMORY - A02                  COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE     4
  
  
                                        *         MACRO DEFINITIONS.                                             PCM       117
                                                                                                                 PCM       118
                                                                                                                 PCM       119
                                        *         EXJP  -  EXCHANGE JUMP PACKAGE DEFINITION MACRO.               PCM       120
                                        *                                                                        PCM       121
                                        * TAG     EXJP   P=X,A0=Y,RA=Z,...,X7=M                                  PCM       122
                                        *                                                                        PCM       123
                                        *         EXJP BUILDS AN EXCHANGE PACKAGE IN PPU MEMORY SUBSTITUTING     PCM       124
                                        *         THE VALUES FOR THE NAMED PARAMETERS.  ALL OTHER FIELDS ARE     PCM       125
                                        *         SET TO 0 EXCEPT THE EXIT MODE FIELD WHICH IS SET TO THE        PCM       126
                                        *         REQUESTED VALUE OR THE *SYSTEXT* DEFINED VALUE *EEMC*.         PCM       127
                                                                                                                 PCM       128
                                                                                                                 PCM       129
                                         EXJP     MACROE P,A0,RA,A1,B1,FL,A2,B2,EM,A3,B3,RAX,A4,B4,FLX,A5,B5,MA, PCM       130
                                        ,A6,B6,A7,B7,X0,X1,X2,X3,X4,X5,X6,X7                                     PCM       131
                                                  LOCAL  A                                                       PCM       132
                                         A        BSS    0                                                       PCM       133
                                                  VFD    6/0                                                     PCM       134
                                                  VFD    18/P                                                    PCM       135
                                                  VFD    18/A0                                                   PCM       136
                                                  VFD    18/0                                                    PCM       137
                                                  VFD    6/0                                                     PCM       138
                                                  VFD    18/RA                                                   PCM       139
                                                  VFD    18/A1                                                   PCM       140
                                                  VFD    18/B1                                                   PCM       141
                                                  VFD    6/0                                                     PCM       142
                                                  VFD    18/FL                                                   PCM       143
                                                  VFD    18/A2                                                   PCM       144
                                                  VFD    18/B2                                                   PCM       145
                                                  IFC    EQ,*EM**                                                PCM       146
                                                  VFD    12/EEMC                                                 PCM       147
                                                  ELSE                                                           PCM       148
                                                  VFD    12/EM                                                   PCM       149
                                                  ENDIF                                                          PCM       150
                                                  VFD    12/0                                                    PCM       151
                                                  VFD    18/A3                                                   PCM       152
                                                  VFD    18/B3                                                   PCM       153
                                                  VFD    3/0                                                     PCM       154
                                                  VFD    21/RAX                                                  PCM       155
                                                  VFD    18/A4                                                   PCM       156
                                                  VFD    18/B4                                                   PCM       157
                                                  VFD    3/0                                                     PCM       158
                                                  VFD    21/FLX                                                  PCM       159
                                                  VFD    18/A5                                                   PCM       160
                                                  VFD    18/B5                                                   PCM       161
                                                  VFD    6/0                                                     PCM       162
                                                  VFD    18/MA                                                   PCM       163
                                                  VFD    18/A6                                                   PCM       164
                                                  VFD    18/B6                                                   PCM       165
                                                  VFD    24/0                                                    PCM       166
                                                  VFD    18/A7                                                   PCM       167
                                                  VFD    18/B7                                                   PCM       168
                                                  VFD    60/X0                                                   PCM       169
                                                  VFD    60/X1                                                   PCM       170
                                                  VFD    60/X2                                                   PCM       171
                                                  VFD    60/X3                                                   PCM       172
                                                  VFD    60/X4                                                   PCM       173
1       PCM         CTI PRESET COMPUTER MEMORY - A02                  COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE     5
  
  
                                                  VFD    60/X5                                                   PCM       174
                                                  VFD    60/X6                                                   PCM       175
                                                  VFD    60/X7                                                   PCM       176
                                                  ENDM                                                           PCM       177
  
  
  
  
                                        *         ASSEMBLY CONSTANTS.                                            PCM       179
                                                                                                                 PCM       180
                                                                                                                 PCM       181
                                1000     SHNI     EQU    1000                                                    PCM       182
                                2400     PSNI     EQU    2400                                                    PCM       183
                                6500     IJMI     EQU    6500                                                    PCM       184
                                6700     EJMI     EQU    6700                                                    PCM       185
                                7000     IANI     EQU    7000                                                    PCM       186
                                7200     OANI     EQU    7200                                                    PCM       187
                                7100     IAMI     EQU    7100                                                    PCM       188
                                7300     OAMI     EQU    7300                                                    PCM       189
                                7400     ACNI     EQU    7400                                                    PCM       190
                                7500     DCNI     EQU    7500                                                    PCM       191
                                7700     FNCI     EQU    7700                                                    PCM       192
                                 200     NIBIT    EQU    128D        NUMBER OF INTERLOCK REGISTER BITS           PCM       193
  
  
  
  
                                        *         CENTRAL MEMORY EQUIVALENCES.                                   PCM       195
                                                                                                                 PCM       196
                                                                                                                 PCM       197
                                1000     IXPA     EQU    1000        IDLE EXCHANGE PACKAGE AREA                  PCM       198
                                1020     MTXA     EQU    1020        MEMORY CHECK EXCHANGE PACKAGE               PCM       199
                                1040     IDLP     EQU    1040        IDLE PROGRAM ADDRESS                        PCM       200
                                1041     CPR      EQU    1041        SCM RUN FLAG                                PCM       201
                                1042     CPA      EQU    1042        CURRENT SCM ADDRESS                         PCM       202
                                1043     EDA      EQU    1043        EXPECTED DATA                               PCM       203
                                1044     ADA      EQU    1044        ACTUAL DATA                                 PCM       204
                                1045     DDA      EQU    1045        LOGICAL DIFFERENCE                          PCM       205
                                1060     MTPA     EQU    1060        MEMORY CHECK PROGRAM ADDRESS                PCM       206
  
  
  
  
                                        *         CHANNEL EQUIVALENCES.                                          PCM       208
                                                                                                                 PCM       209
                                                                                                                 PCM       210
                                  10     CH       EQU    10          DISPLAY CHANNEL                             PCM       211
                                  15     IC       EQU    15          INTERLOCK REGISTER CHANNEL                  PCM       212
                                  16     SC       EQU    16          S/C REGISTER CHANNEL                        PCM       213
                                  16     CHSC     EQU    SC                                                      PCM       214
1       PCM         CTI PRESET COMPUTER MEMORY - A02                  COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE     6
  
  
                                        **        COMMON DECKS.                                                  PCM       216
                                                                                                                 PCM       217
                                                                                                                 PCM       218
           0                                      CTEXT  COMPCHI - REDEFINE I/O INSTRUCTIONS.                    COMPCHI     2
           0                             CPA      CTEXT  COMSCPA - CTI COMMON POINTER AREA DEFINITIONS.          COMSCPA     2
           0                             CTI      CTEXT  COMSCTI - CTI INTERNAL DEFINITIONS.                     COMSCTI     2
           0                                      CTEXT  COMPMAC - PP SYSTEM MACROS.                             COMPMAC     2
           0                                      CTEXT  COMSSCR - S/C REGISTER EQUIVALENCES.                    COMSSCR     2
1       PCM         CTI PRESET COMPUTER MEMORY - A02                  COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE     7
  
  
                                        *         DIRECT LOCATION ASSIGNMENTS.                                   PCM       225
                                                                                                                 PCM       226
          10                                      ORG    /CTI/LOAD                                               PCM       227
                                                                                                                 PCM       228
                                   0     T0       EQU    0                                                       PCM       229
                                   1     T1       EQU    1                                                       PCM       230
                                   2     T2       EQU    2                                                       PCM       231
                                   3     T3       EQU    3                                                       PCM       232
                                   4     T4       EQU    4                                                       PCM       233
                                   5     T5       EQU    5                                                       PCM       234
                                   6     T6       EQU    6                                                       PCM       235
                                   7     T7       EQU    7                                                       PCM       236
                                                                                                                 PCM       237
          10         0000                TA       CON    0                                                       PCM       238
          11         0000                TD       CON    0                                                       PCM       239
          12         0000                TE       CON    0                                                       PCM       240
          13         0000                TF       CON    0                                                       PCM       241
          14         0000                TG       CON    0                                                       PCM       242
          15         0000                TH       CON    0                                                       PCM       243
          16         0000                PP       CON    0           PPU TRANSFER POINTER                        PCM       244
          17         0000                EF       CON    0           ANY ERROR FLAG                              PCM       245
          20         0000                WD       CON    0           CURRENT CHECK ADDRESS                       PCM       246
          21         0000                RF       CON    0           PP0 RUN FLAG                                PCM       247
          22         0000                ED       CON    0           CURRENT DATA                                PCM       248
          23         0000                AD       CON    0           ACTUAL DATA                                 PCM       249
          24         0000                DD       CON    0           LOGICAL DIFFERENCE                          PCM       250
          25         0400                SP       VFD    30/0400000000,30/0  CPU STOP PROGRAM                    PCM       251
          26         0000 
          27         0000 
          30         0000 
          31         0000 
          32         7777                SV       VFD    60/-0       SEVENS                                      PCM       252
          33         7777 
          34         7777 
          35         7777 
          36         7777 
                                                                                                                 PCM       253
                                                                                                                 PCM       254
                                        *         COMPSCE REQUIRED DIRECT LOCATIONS.                             PCM       255
                                                                                                                 PCM       256
                                                                                                                 PCM       257
          37                      21              BSS    60-*                                                    PCM       258
                                                                                                                 PCM       259
                                                  QUAL   COMPSCE                                                 PCM       260
                                                                                                                 PCM       261
          60         0000                C1       CON    0                                                       PCM       262
          61         0000                C2       CON    0                                                       PCM       263
          62         0000                FW       CON    0           FWA OF ERROR MESSAGE BUFFER                 PCM       264
          63         0000                LW       CON    0           LWA+1 OF ERROR MESSAGE BUFFER               PCM       265
          64         0000                AM       CON    0           ADDRESS OF ERROR MESSAGE                    PCM       266
          65         0000                TE       CON    0           ADDRESS OF TABLE TEMA                       PCM       267
          66         0000                BT       CON    0           FIRST BIT IN WORD BIT NUMBER                PCM       268
          67         0000                BW       CON    0           BIT NUMBER WITHIN WORD                      PCM       269
          70         0000                CB       CON    0           CURRENT BIT NUMBER                          PCM       270
          71         0000                WC       CON    0           S/C REGISTER WORD CONTENTS                  PCM       271
          72         0000                RW       CON    FCRD        READ CURRENT WORD FUNCTION                  PCM       272
          73         0000                CT       CON    0           NOT USED BIT TABLE FLAG                     DIMA299    44
1       PCM         CTI PRESET COMPUTER MEMORY - A02                  COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE     8
  
  
                                                  QUAL   *                                                       PCM       273
1       PCM         CTI PRESET COMPUTER MEMORY - A02                  COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE     9
        MAIN PROGRAM.                                                 PCM 
  
                                        **        PCM - MAIN PROGRAM.                                            PCM       276
                                                                                                                 PCM       277
                                                                                                                 PCM       278
                                        *         CLEAR S/C REGISTER IF CYBER 170.                               PCM       279
                                                                                                                 PCM       280
                                                                                                                 PCM       281
         100                                      ORG    /CTI/TRAN                                               PCM       282
         100         0200 1155           PCM      RJM    RPT         REASSIGN PP10 TO CHANNEL 0                  PCM       283
         102         6516 0124                    IJM.   PCM1,SC     IF NOT CYBER 17X                            PCM       284
         104         2000 2400                    LDC    PSNI        SET PROCESS *NONE.*                         PCM       285
         106         5400 2435                    STM    DRSE                                                    PCM       286
         110         2000 3251                    LDC    SCRE        SET *S/C REGISTER ERRORS.*                  PCM       287
         112         5400 2543                    STM    DRSD                                                    PCM       288
         114         2000 2607                    LDC    MESB        SET MESSAGE POINTERS                        PCM       289
         116         5400 2370                    STM    DLSB                                                    PCM       290
         120         2000 2616                    LDC    MESBA                                                   PCM       291
         122         0200 0732                    RJM    CSR         CLEAR S/C REGISTER                          PCM       292
                                                                                                                 PCM       293
                                                                                                                 PCM       294
                                        *         CLEAR INTERLOCK REGISTER IF CYBER 70.                          PCM       295
                                                                                                                 PCM       296
                                                                                                                 PCM       297
         124         6515 0136           PCM1     IJM.   PCM2,IC     IF NOT CYBER 7X                             PCM       298
         126         2000 2731                    LDC    MESF                                                    PCM       299
         130         5400 2370                    STM    DLSB                                                    PCM       300
         132         2000 2743                    LDC    MESFA                                                   PCM       301
         134         0200 0732                    RJM    CSR         CLEAR INTERLOCK REGISTER                    PCM       302
                                                                                                                 PCM       303
                                                                                                                 PCM       304
                                        *         CHECK CM/PPU MEMORY.                                           PCM       305
                                                                                                                 PCM       306
                                                                                                                 PCM       307
         136         0200 1671           PCM2     RJM    CPU         START CPU                                   PCM       308
         140         0200 1601                    RJM    CPP         CHECK PRESENCE OF AVAILABLE PPS             PCM       309
         142         2000 2625                    LDC    MESC                                                    PCM       310
         144         5400 2371                    STM    DLSC                                                    PCM       311
         146         0200 0265                    RJM    CPM         CHECK PERIPHERAL PROCESSOR MEMORY           PCM       312
         150         6516 0154                    IJM.   PCM3,SC     IF NOT CYBER 17X                            PCM       313
         152         0200 1100                    RJM    SED         CHECK FOR S/C REGISTER ERRORS               PCM       314
                                                                                                                 PCM       315
                                                                                                                 PCM       316
         154         2000 2771           PCM3     LDC    MESG        SEND COMPLETE MESSAGE                       PCM       317
         156         5400 2400                    STM    DLSF                                                    PCM       318
         160         0200 1244           PCM4     RJM    DPS         DISPLAY *CHECK MEMORY COMPLETE.*            PCM       319
         162         0200 1171                    RJM    RDS         CLEAR PPUS TO DEAD START STATUS             PCM       320
         164         5000 7673                    LDM    /CPA/OPTN                                               PCM       321
         166         1066                         SHN    -11                                                     PCM       322
         167         1203                         LPN    3                                                       PCM       323
         170         0411                         ZJN    PCM5        IF NOT CYBER 176                            PCM       324
         171         2000 2115                    LDC    FCCL+DSCU   DEADSTART CPU                               PCM       325
         173         7256                         OAN.   SC+40                                                   PCM       326
         174         7056                         IAN.   SC+40                                                   PCM       327
         175         2000 2066                    LDC    FCCL+EXBB         CLEAR EXCHANGE BIAS                   PCM       328
         177         7256                         OAN.   SC+40                                                   PCM       329
         200         7056                         IAN.   SC+40                                                   PCM       330
         201         2000 0205           PCM5     LDC    PCMA        CALL *EBL*                                  PCM       331
         203         0100 7000                    LJM    /CTI/CDEP                                               PCM       332
1       PCM         CTI PRESET COMPUTER MEMORY - A02                  COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    10
        MAIN PROGRAM.                                                 PCM 
  
                                                                                                                 PCM       333
         205         0200                PCMA     CON    /CTI/EBLLOAD   CDIB                                     PCM       334
         206         0200                         CON    /CTI/EBLLOAD   CDTA                                     PCM       335
         207         0000                         CON    0           CDRW                                        PCM       336
         210         0502                         DATA   L*EBL*      CDNC                                        PCM       337
1       PCM         CTI PRESET COMPUTER MEMORY - A02                  COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    11
        SUBROUTINES.                                                  MCI 
  
                                        **        MCI - MODIFY CHANNEL INSTRUCTIONS.                             PCM       340
                                        *                                                                        PCM       341
                                        *         ENTRY  (A) .EQ. CURRENT CHANNEL.                               PCM       342
                                        *                                                                        PCM       343
                                        *         EXIT   CHANNEL INSTRUCTIONS MODIFIED.                          PCM       344
                                        *                                                                        PCM       345
                                        *         USES   T5, T6.                                                 PCM       346
                                                                                                                 PCM       347
                                                                                                                 PCM       348
         212         0100 0212           MCI      SUBR               ENTRY/EXIT                                  PCM       349
         214         1237                         LPN    37                                                      PCM       350
         215         1640                         ADN    40          SET SKIP ON ERROR                           PCM       351
         216         3405                         STD    T5                                                      PCM       352
         217         5000 0236                    LDM    MCIA        MODIFY LOGICAL DIFFERENCE                   PCM       353
         221         1377                         SCN    77                                                      PCM       354
         222         3305                         LMD    T5                                                      PCM       355
         223         5400 0236                    STM    MCIA                                                    PCM       356
         225         5400 0254                    STM    MCIC                                                    PCM       357
         227         2000 1736                    LDC    PCHS                                                    PCM       358
         231         3405                         STD    T5                                                      PCM       359
         232         4005                         LDI    T5                                                      PCM       360
         233         3406                MCI1     STD    T6          SAVE INSTRUCTION ADDRESS                    PCM       361
         234         4006                         LDI    T6          MODIFY INSTRUCTION                          PCM       362
         235         1377                         SCN    77                                                      PCM       363
         236         1100                MCIA     LMN    0                                                       PCM       364
         237         4406                         STI    T6                                                      PCM       365
         240         3605                         AOD    T5                                                      PCM       366
         241         4005                         LDI    T5                                                      PCM       367
         242         0570                         NJN    MCI1        IF *PCM* RESIDENT I/O NOT MODIFIED          PCM       368
         243         2000 4707           MCIB     LDC    ICHS                                                    PCM       369
                                        *         UJN    MCIX        IF ALL PPU IDLE LOOPS SET RETURN            PCM       370
                                                                                                                 PCM       371
         245         3405                         STD    T5                                                      PCM       372
         246         4005                         LDI    T5                                                      PCM       373
         247         2100 4432           MCI2     ADC    IDLE        RELOCATE ADDRESS                            PCM       374
         251         3406                         STD    T6          SAVE INSTRUCTION ADDRESS                    PCM       375
         252         4006                         LDI    T6          MODIFY INSTRUCTION                          PCM       376
         253         1377                         SCN    77                                                      PCM       377
         254         1100                MCIC     LMN    0                                                       PCM       378
         255         4406                         STI    T6                                                      PCM       379
         256         3605                         AOD    T5                                                      PCM       380
         257         4005                         LDI    T5                                                      PCM       381
         260         0566                         NJN    MCI2        IF MODIFICATION NOT COMPLETE                PCM       382
         261         0100 0212                    LJM    MCIX        RETURN                                      PCM       383
                                                                                                                 PCM       384
                                 263     MCID     EQU    *                                                       PCM       385
      L  243                                      LOC    MCIB                                                    PCM       386
      L  243         0346                         UJN    MCIX        RETURN                                      PCM       387
         264                                      LOC    *O                                                      PCM       388
1       PCM         CTI PRESET COMPUTER MEMORY - A02                  COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    12
        SUBROUTINES.                                                  CPM 
  
                                        **        CPM - CHECK PPU MEMORY.                                        PCM       390
                                        *                                                                        PCM       391
                                        *         NOTE - THE DISPLAYS ARE UPDATED AFTER EACH 100 WORD BLOCK OF   PCM       392
                                        *         PPU 0 MEMORY PROCESSED BY THIS ROUTINE.                        PCM       393
                                        *                                                                        PCM       394
                                        *         EXIT   PPU0 IS TESTED AND ALL OTHER CHECKING PROGRAMS          PCM       395
                                        *                COMPLETE.                                               PCM       396
                                        *                                                                        PCM       397
                                        *         USES   RF, WD, ED, AD, DD.                                     PCM       398
                                        *                                                                        PCM       399
                                        *         CALLS  UDS.                                                    PCM       400
                                                                                                                 PCM       401
                                                                                                                 PCM       402
         264         0100 0264           CPM      SUBR               ENTRY/EXIT                                  PCM       403
         266         2000 3336           CPM1     LDC    END                                                     PCM       404
         270         3420                         STD    WD                                                      PCM       405
         271         3020                CPM2     LDD    WD                                                      PCM       406
         272         1277                         LPN    77                                                      PCM       407
         273         0504                         NJN    CPM3        IF NOT MULTIPLE OF 100                      PCM       408
         274         0200 0347                    RJM    UDS         UPDATE DISPLAYS                             PCM       409
         276         0565                         NJN    CPMX        IF S/C REGISTER ERROR RETURN                PCM       410
                                                                                                                 PCM       411
         277         3022                CPM3     LDD    ED                                                      PCM       412
         300         4420                         STI    WD                                                      PCM       413
         301         3620                         AOD    WD                                                      PCM       414
         302         2300 6000                    LMC    /CTI/IPLB                                               PCM       415
         304         0564                         NJN    CPM2        IF PASS NOT COMPLETE                        PCM       416
         305         2000 3336                    LDC    END         RESET POINTERS                              PCM       417
         307         3420                         STD    WD                                                      PCM       418
         310         3020                CPM4     LDD    WD                                                      PCM       419
         311         1277                         LPN    77                                                      PCM       420
         312         0504                         NJN    CPM5        IF NOT MULTIPLE OF 100                      PCM       421
         313         0200 0347                    RJM    UDS                                                     PCM       422
         315         0546                         NJN    CPMX        IF S/C REGISTER ERROR RETURN                PCM       423
                                                                                                                 PCM       424
         316         4020                CPM5     LDI    WD                                                      PCM       425
         317         3423                         STD    AD                                                      PCM       426
         320         3322                         LMD    ED                                                      PCM       427
         321         3424                         STD    DD                                                      PCM       428
         322         0514                         NJN    CPM6        IF ERROR                                    PCM       429
         323         3620                         AOD    WD                                                      PCM       430
         324         2300 6000                    LMC    /CTI/IPLB                                               PCM       431
         326         0561                         NJN    CPM4        IF NOT COMPLETE                             PCM       432
         327         3022                         LDD    ED                                                      PCM       433
         330         2300 7777                    LMC    7777                                                    PCM       434
         332         3422                         STD    ED                                                      PCM       435
         333         0403                         ZJN    CPM6        IF 0*S AND 1*S COMPLETE                     PCM       436
         334         0100 0266                    LJM    CPM1                                                    PCM       437
                                                                                                                 PCM       438
         336         1410                CPM6     LDN    10                                                      PCM       439
         337         3421                         STD    RF                                                      PCM       440
         340         5400 0541                    STM    TPCI                                                    PCM       441
         342         0200 0347                    RJM    UDS         UPDATE DISPLAYS                             PCM       442
         344         0100 0264                    LJM    CPMX        RETURN                                      PCM       443
1       PCM         CTI PRESET COMPUTER MEMORY - A02                  COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    13
        SUBROUTINES.                                                  UDS 
  
                                        **        UDS - UPDATE STATUS DISPLAYS.                                  PCM       445
                                        *                                                                        PCM       446
                                        *         CALLS DPS, CPC.                                                PCM       447
                                                                                                                 PCM       448
                                                                                                                 PCM       449
         346         0100 0346           UDS      SUBR               ENTRY/EXIT                                  PCM       450
         350         0200 1244                    RJM    DPS         UPDATE DISPLAY                              PCM       451
         352         5000 0541                    LDM    TPCI                                                    PCM       452
         354         0471                         ZJN    UDSX        IF PPU 0 NOT FORCED COMPLETE RETURN         PCM       453
                                                                                                                 PCM       454
         355         0200 0446           UDS1     RJM    CPC         CHECK FOR PROCESSORS COMPLETE               PCM       455
         357         1401                         LDN    1                                                       PCM       456
         360         0365                         UJN    UDSX        RETURN                                      PCM       457
  
  
  
  
                                        **        CEM - CHECK EXECUTED CENTRAL MEMORY.                           PCM       459
                                        *                                                                        PCM       460
                                        *         EXIT   CENTRAL MEMORY IS TESTED FOR THE TEST PROGRAM ONLY.     PCM       461
                                        *                                                                        PCM       462
                                        *         USES   T3 - T7.                                                PCM       463
                                        *                                                                        PCM       464
                                        *         CALLS  VCM.                                                    PCM       465
                                        *                                                                        PCM       466
                                        *         NOTE - ERRORS WILL HANG THE PROGRAM WITH THE ERROR DISPLAYED.  PCM       467
                                                                                                                 PCM       468
                                                                                                                 PCM       469
                                        *         LOOP TO READ/VERIFY CM.                                        PCM       470
                                                                                                                 PCM       471
         361         3004                CEM3     LDD    T4          GET CM ADDRESS                              PCM       472
         362         6106 2151                    CRM    GSDB+17,T6                                              PCM       473
         364         0200 2260                    RJM    VCM         VERIFY ONE CM WORD                          PCM       474
         366         3604                         AOD    T4                                                      PCM       475
         367         3603                         AOD    T3                                                      PCM       476
         370         3307                         LMD    T7                                                      PCM       477
         371         0567                         NJN    CEM3        IF MORE CM TO READ                          PCM       478
         372         3403                         STD    T3                                                      PCM       479
         373         5000 2144                    LDM    GSDB+12                                                 PCM       480
         375         2300 7777                    LMC    7777                                                    PCM       481
         377         0516                         NJN    CEM1        IF BOTH PATTERNS NOT TESTED                 PCM       482
                                                                                                                 PCM       483
         400         0100 0400           CEM      SUBR               ENTRY/EXIT                                  PCM       484
         402         2000 1000                    LDC    IXPA        SET UP STARTING CM ADDRESS                  PCM       485
         404         3405                         STD    T5                                                      PCM       486
         405         1401                         LDN    1           CM WRITE/READ LENGTH                        PCM       487
         406         3406                         STD    T6                                                      PCM       488
         407         2000 0213                    LDC    MTPA-IXPA+/SCM/MTPL+100  LENGTH TO TEST                 PCM       489
         411         1377                         SCN    77                                                      PCM       490
         412         3407                         STD    T7                                                      PCM       491
         413         1400                         LDN    0           FIRST PATTERN TO TEST                       PCM       492
         414         3403                         STD    T3                                                      PCM       493
                                                                                                                 PCM       494
                                        *         LOOP TO WRITE/READ/VERIFY ONE PATTERN.                         PCM       495
                                                                                                                 PCM       496
         415         5400 2144          CEM1      STM    GSDB+12     SAVE EXPECTED PATTERN                       PCM       497
         417         5400 2145                    STM    GSDB+13                                                 PCM       498
1       PCM         CTI PRESET COMPUTER MEMORY - A02                  COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    14
        SUBROUTINES.
  
         421         5400 2146                    STM    GSDB+14                                                 PCM       499
         423         5400 2147                    STM    GSDB+15                                                 PCM       500
         425         5400 2150                    STM    GSDB+16                                                 PCM       501
         427         3005                         LDD    T5          SET STARTING ADDRESS                        PCM       502
         430         3404                         STD    T4                                                      PCM       503
                                                                                                                 PCM       504
                                        *         LOOP TO WRITE CM.                                              PCM       505
                                                                                                                 PCM       506
         431         3004                CEM2     LDD    T4          GET CM ADDRESS                              PCM       507
         432         6306 2144                    CWM    GSDB+12,T6                                              PCM       508
         434         3604                         AOD    T4                                                      PCM       509
         435         3603                         AOD    T3                                                      PCM       510
         436         3307                         LMD    T7                                                      PCM       511
         437         0571                         NJN    CEM2        IF MORE CM TO WRITE                         PCM       512
         440         3403                         STD    T3                                                      PCM       513
         441         3005                         LDD    T5          SET STARTING ADDRESS                        PCM       514
         442         3404                         STD    T4                                                      PCM       515
         443         0100 0361                    LJM    CEM3                                                    PCM       516
  
  
  
  
                                        **        CPC - CHECK FOR ALL PROCESSORS COMPLETE.                       PCM       518
                                        *                                                                        PCM       519
                                        *         ENTRY  IF PPU 0 MEMORY CHECK COMPLETE.                         PCM       520
                                        *                (TPCI) = TABLE OF COMPLETED PPS.                        PCM       521
                                        *                (TPPA) = TABLE OF AVAILABLE PPS.                        PCM       522
                                        *                                                                        PCM       523
                                        *         USES   TA, TG, PP.                                             PCM       524
                                        *                                                                        PCM       525
                                        *         CALLS  DPS, FCE, ABT.                                          PCM       526
                                        *                                                                        PCM       527
                                        *         NOTE  -  PPU 0 WILL BE COMPLETE IF ALL CHECKING IS COMPLETE    PCM       528
                                        *         OR A NON - FATAL S/C REGISTER ERROR HAS OCCURRED ON A CYBER    PCM       529
                                        *         170 MACHINE.                                                   PCM       530
                                                                                                                 PCM       531
                                                                                                                 PCM       532
         445         0100 0445           CPC      SUBR               ENTRY/EXIT                                  PCM       533
         447         1400                CPC1     LDN    0           CLEAR OVERFLOW COUNT                        PCM       534
         450         3414                         STD    TG                                                      PCM       535
         451         1400                CPC2     LDN    0                                                       PCM       536
         452         3410                         STD    TA                                                      PCM       537
         453         5010 0541           CPC3     LDM    TPCI,TA                                                 PCM       538
         455         0405                         ZJN    CPC5        IF NOT COMPLETE                             PCM       539
         456         3610                CPC4     AOD    TA                                                      PCM       540
         457         1125                         LMN    TPCIL                                                   PCM       541
         460         0572                         NJN    CPC3        IF TABLE CHECK NOT COMPLETE                 PCM       542
         461         0363                         UJN    CPCX        RETURN                                      PCM       543
                                                                                                                 PCM       544
         462         5010 0514           CPC5     LDM    TPPA,TA     PPU POSSIBLY NOT AVAILABLE                  PCM       545
         464         0471                         ZJN    CPC4        IF PPU NOT AVAILABLE                        PCM       546
         465         0200 1244                    RJM    DPS         UPDATE DISPLAY                              PCM       547
         467         3614                         AOD    TG                                                      PCM       548
         470         1005                         SHN    21-14                                                   PCM       549
         471         0657                         PJN    CPC2        IF NO OVERFLOW                              PCM       550
         472         1400                CPCA     LDN    0           FIRST OVERFLOW                              PCM       551
                                        *CPCA     LDN    1           (SECOND OVERFLOW)                           PCM       552
1       PCM         CTI PRESET COMPUTER MEMORY - A02                  COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    15
        SUBROUTINES.                                                  CPC 
  
         473         0504                         NJN    CPC6        IF SECOND OVERFLOW                          PCM       553
         474         5600 0472                    AOM    CPCA        SET FIRST OVERFLOW OCCURRED FLAG            PCM       554
         476         0350                         UJN    CPC1        LOOP UNTIL SECOND OVERFLOW                  PCM       555
                                                                                                                 PCM       556
         477         3010                CPC6     LDD    TA                                                      PCM       557
         500         1124                         LMN    20D                                                     PCM       558
         501         0405                         ZJN    CPC7        IF CPU                                      PCM       559
         502         3010                         LDD    TA          RESET CURRENT PPU                           PCM       560
         503         3416                         STD    PP                                                      PCM       561
         504         0200 1752                    RJM    FCE         SET FATAL CHANNEL ERRORS                    PCM       562
                                        *         UJN    *           NO RETURN FROM *FCE*                        PCM       563
                                                                                                                 PCM       564
         506         2000 3233           CPC7     LDC    FCEM        SET *PROCESSOR NOT RESPONDING.*             PCM       565
         510         5400 2535                    STM    DRSC                                                    PCM       566
         512         0200 1773                    RJM    ABT         ABORT                                       PCM       567
                                                                                                                 PCM       568
                                                                                                                 PCM       569
                                        *         TPPA - TABLE OF AVAILABLE PPUS.                                PCM       570
                                                                                                                 PCM       571
                                                                                                                 PCM       572
         514                      24     TPPA     BSSZ   20D         PPUS AVAILABLE                              PCM       573
         540         0000                         CON    0           CPU AVAILABLE                               PCM       574
                                                                                                                 PCM       575
                                                                                                                 PCM       576
                                        *         TPCI - TABLE OF COMPLETED PPUS.                                PCM       577
                                                                                                                 PCM       578
                                                                                                                 PCM       579
         541                      25     TPCI     BSSZ   21D                                                     PCM       580
                                  25     TPCIL    EQU    *-TPCI                                                  PCM       581
  
  
  
  
                                        **        CSE - CHECK FOR SCR ERRORS.                                    PCM       583
                                        *                                                                        PCM       584
                                        *         EXIT   (CSEA) = UPDATED SINGLE BIT ERROR COUNT.                PCM       585
                                        *                (CSEB) = 0 - NO SCR ERRORS OTHER THAN SINGLE BIT.       PCM       586
                                        *                         1 - ERRORS OTHER THAN SINGLE BIT FOUND.        PCM       587
                                        *                                                                        PCM       588
                                        *         CALLS  CHN, CPD, SCE, SCS.                                     PCM       589
                                                                                                                 PCM       590
                                                                                                                 PCM       591
         566         0100 0566           CSE      SUBR               ENTRY/EXIT                                  PCM       592
         570         6516 0566                    IJM.   CSEX,SC     IF NOT CYBER 170                            PCM       593
         572         1416                         LDN    SC          SET REGISTER 0                              PCM       594
         573         0200 1060                    RJM    CHN                                                     PCM       595
         575         0200 1125                    RJM    SCS         TEST SCR STATUS                             PCM       596
         577         2000 4166                    LDC    FCSB+DSBL   INHIBIT SINGLE BIT ERROR LOGGING            PCM       597
         601         7256                         OAN.   SC+40                                                   PCM       598
         602         7056                         IAN.   SC+40                                                   PCM       599
         603         2000 7000           CSE1     LDC    FCTE        TEST FOR SCR ERRORS                         PCM       600
         605         7256                         OAN.   SC+40                                                   PCM       601
         606         7056                         IAN.   SC+40                                                   PCM       602
         607         0503                         NJN    CSE2        IF SCR ERRORS                               PCM       603
         610         0100 0714                    LJM    CSE8        ENABLE SINGLE BIT ERROR LOGGING             PCM       604
                                                                                                                 PCM       605
         612         2000 1003           CSE2     LDC    FCTB+SECD   TEST FOR SECDED ERROR                       PCM       606
1       PCM         CTI PRESET COMPUTER MEMORY - A02                  COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    16
        SUBROUTINES.                                                  CSE 
  
         614         7256                         OAN.   SC+40                                                   PCM       607
         615         7056                         IAN.   SC+40                                                   PCM       608
         616         0503                         NJN    CSE3        IF SECDED ERROR                             PCM       609
         617         0100 0661                    LJM    CSE6                                                    PCM       610
         621         2000 0017           CSE3     LDC    FCRD+CDSW   TEST FOR DOUBLE BIT ERROR                   DIMA387     1
         623         7256                         OAN.   SC+40                                                   PCM       612
         624         7056                         IAN.   SC+40                                                   PCM       613
         625         1016                         SHN    SDSC/12D*12D-SDSC+21                                    DIMA387     2
         626         0733                         MJN    CSE6        IF DOUBLE BIT ERROR                         DIMA387     3
         627         5600 0722                    AOM    CSEA        UPDATE SINGLE BIT SECDED ERROR COUNT        PCM       615
         631         1063                         SHN    -14                                                     PCM       616
         632         0404                         ZJN    CSE4        IF NO OVERFLOW OF COUNTER                   PCM       617
         633         1500                         LCN    0           CORRECT OVERFLOW (COUNT REMAINS AT 7777)    PCM       618
         634         5400 0722                    STM    CSEA                                                    PCM       619
         636         2000 2003           CSE4     LDC    FCCL+SECD   CLEAR SECDED ERROR BIT                      PCM       620
         640         7256                         OAN.   SC+40                                                   PCM       621
         641         7056                         IAN.   SC+40                                                   PCM       622
         642         5000 7673                    LDM    /CPA/OPTN   CHECK IF CYBER 176                          PCM       623
         644         1066                         SHN    -11                                                     PCM       624
         645         1203                         LPN    3                                                       PCM       625
         646         0411                         ZJN    CSE5        IF NOT 176                                  PCM       626
         647         2000 4250                    LDC    FCSB+CCRT   SET CM RANK II CLEAR                        PCM       627
         651         7256                         OAN.   SC+40                                                   PCM       628
         652         7056                         IAN.   SC+40                                                   PCM       629
         653         2000 2250                    LDC    FCCL+CCRT   CLEAR CM RANK II CLEAR                      PCM       630
         655         7256                         OAN.   SC+40                                                   PCM       631
         656         7056                         IAN.   SC+40                                                   PCM       632
         657         0100 0603           CSE5     LJM    CSE1        CHECK FOR OTHER ERRORS                      PCM       633
                                                                                                                 PCM       634
         661         5000 3457           CSE6     LDM    SCE                                                     PCM       635
         663         2300 0714                    LMC    CSE8        CHECK FOR SCE LOADED                        PCM       636
         665         0412                         ZJN    CSE7                                                    PCM       637
         666         1401                         LDN    1                                                       PCM       638
         667         5400 0726                    STM    CSEC+2      SET REWIND FLAG                             PCM       639
         671         5400 0723                    STM    CSEB        SET NON-SINGLE BIT ERROR FLAG               PCM       640
         673         2000 0724                    LDC    CSEC        LOAD *SCE*                                  PCM       641
         675         0100 7000                    LJM    /CTI/CDEP                                               PCM       642
         677         1401                CSE7     LDN    1           SET REWIND FOR :CMC* LOADING                PCM       643
         700         5400 1704                    STM    CPUB                                                    PCM       644
         702         2000 0771                    LDC    /CTI/IPLB-BUFR        SET LWA FOR ERROR MESSAGES        PCM       645
         704         3463                         STD    /COMPSCE/LW                                             PCM       646
         705         2000 3335                    LDC    TEMA        SET ADDRESS OF MESSAGE ADDRESS TABLE        PCM       647
         707         3465                         STD    /COMPSCE/TE                                             PCM       648
         710         2000 5007                    LDC    BUFR        PROCESS SCR ERRORS                          PCM       649
         712         0200 3457                    RJM    SCE                                                     PCM       650
         714         2000 2166           CSE8     LDC    FCCL+DSBL   ENABLE SINGLE BIT ERROR LOGGING             PCM       651
         716         7256                         OAN.   SC+40                                                   PCM       652
         717         7056                         IAN.   SC+40                                                   PCM       653
         720         0100 0566                    LJM    CSEX        EXIT                                        PCM       654
                                                                                                                 PCM       655
         722         0000                CSEA     CON    0           SINGLE BIT ERROR COUNTER                    PCM       656
         723         0000                CSEB     CON    0           NON-SINGLE BIT ERROR FLAG                   PCM       657
                                                                                                                 PCM       658
         724         3456                CSEC     CON    OVL         CDIB                                        PCM       659
         725         0677                         CON    CSE7        CDTA                                        PCM       660
         726         0000                         CON    0           CDRW                                        PCM       661
         727         2303                         DATA   L*SCE*      CDNC                                        PCM       662
1       PCM         CTI PRESET COMPUTER MEMORY - A02                  COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    17
        SUBROUTINES.                                                  CSR 
  
                                        **        CSR - CLEAR STATUS CONTROL REGISTER OR INTERLOCK REGISTER.     PCM       665
                                        *                                                                        PCM       666
                                        *         ENTRY  (A) .EQ. ADDRESS OF MESSAGE TO BE UPDATED.              PCM       667
                                        *                                                                        PCM       668
                                        *         EXIT   (STATUS CONTROL REGISTER) .EQ. 0.                       PCM       669
                                        *                (INTERLOCK REGISTER) .EQ. 0.                            PCM       670
                                        *                                                                        PCM       671
                                        *         USES   T3, T4, T6, TF.                                         PCM       672
                                        *                                                                        PCM       673
                                        *         CALLS  C2D, CPD, DPS, SCS, CHN, ICS.                           PCM       674
                                        *                                                                        PCM       675
                                        *         NOTE  -  THIS ROUTINE SHOULD NOT BE ENTERED UNLESS IT WAS      PCM       676
                                        *         PREVIOUSLY DETERMINED THAT THE MACHINE IS A CYBER 70/170.      PCM       677
                                                                                                                 PCM       678
                                                                                                                 PCM       679
         731         0100 0731           CSR      SUBR               ENTRY/EXIT                                  PCM       680
         733         3403                         STD    T3          SAVE MESSAGE ADDRESS                        PCM       681
         734         6516 0741                    IJM.   CSR1,SC     IF NOT CYBER 17X                            PCM       682
         736         2000 0315                    LDC    NBIT+1                                                  PCM       683
         740         0325                         UJN    CSR3        PROCEED FOR CYBER 17X                       PCM       684
                                                                                                                 PCM       685
         741         1415                CSR1     LDN    IC          MODIFY CHANNELS                             PCM       686
         742         0200 1060                    RJM    CHN                                                     PCM       687
         744         0200 1142                    RJM    ICS         CHECK CHANNEL STATUS                        PCM       688
         746         2000 4100                    LDC    FCSB+NIBIT/2  SET BIT 64                                PCM       689
         750         7255                         OAN.   IC+40                                                   PCM       690
         751         7055                         IAN.   IC+40                                                   PCM       691
         752         0200 1142                    RJM    ICS                                                     PCM       692
         754         2000 1100                    LDC    FCTB+NIBIT/2  CHECK BIT 64                              PCM       693
         756         7255                         OAN.   IC+40                                                   PCM       694
         757         7055                         IAN.   IC+40                                                   PCM       695
         760         0403                         ZJN    CSR2        IF NOT 128 BIT INTERLOCK REGISTER           PCM       696
         761         2000 0100                    LDC    NIBIT/2     64 BITS +                                   PCM       697
         763         2100 0100           CSR2     ADC    NIBIT/2     64 BITS                                     PCM       698
         765         5400 1024           CSR3     STM    CSRD                                                    PCM       699
         767         1400                CSR4     LDN    0                                                       PCM       700
         770         3404                         STD    T4          BIT POSITION                                PCM       701
         771         3413                         STD    TF                                                      PCM       702
         772         3406                         STD    T6          REGISTER COUNTER                            PCM       703
         773         0200 2557                    RJM    C2D                                                     PCM       704
         775         4403                         STI    T3                                                      PCM       705
         776         1404                         LDN    4                                                       PCM       706
         777         3503                         RAD    T3                                                      PCM       707
        1000         3003                CSR5     LDD    T3          CONVERT BIT POSITION                        PCM       708
        1001         0200 2217                    RJM    CPD                                                     PCM       709
        1003         0200 1244                    RJM    DPS         DISPLAY STATUS                              PCM       710
        1005         6516 1012                    IJM.   CSR6,SC     IF NO S/C REGISTER                          PCM       711
        1007         0200 1125                    RJM    SCS         S/C REGISTER STATUS                         PCM       712
        1011         0303                         UJN    CSR7        CONTINUE                                    PCM       713
                                                                                                                 PCM       714
        1012         0200 1142           CSR6     RJM    ICS         INTERLOCK REGISTER STATUS                   PCM       715
        1014         2000 2000           CSR7     LDC    FCCL        FORCE CLEAR OF BIT                          PCM       716
        1016         3104                         ADD    T4                                                      PCM       717
        1017         7256                CSRB     OAN.   SC+40                                                   PCM       718
                                        *         OAN.   SC + 20 + 40                                            PCM       719
                                        *         OAN.   IC + 40     IF CYBER 7X                                 PCM       720
        1020         7056                CSRC     IAN.   SC+40       2**5 SET ALLOWS FALL THROUGH                PCM       721
1       PCM         CTI PRESET COMPUTER MEMORY - A02                  COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    18
        SUBROUTINES.                                                  CSR 
  
                                        *         IAN.   SC + 20 + 40                                            PCM       722
                                        *         IAN.   IC + 40     IF CYBER 7X                                 PCM       723
        1021         3604                         AOD    T4                                                      PCM       724
        1022         3413                         STD    TF                                                      PCM       725
        1023         2300 0314                    LMC    NBIT                                                    PCM       726
                                1024     CSRD     EQU    *-1                                                     PCM       727
        1025         0552                         NJN    CSR5        IF ANOTHER BIT TO CLEAR                     PCM       728
        1026         6415 0731                    AJM.   CSRX,IC     IF CYBER 7X                                 PCM       729
        1030         5000 7675                    LDM    /CPA/PPP1                                               PCM       730
        1032         0523                         NJN    CSR8        IF LESS THAN 11 PP SYSTEM                   PCM       731
        1033         3006                         LDD    T6                                                      PCM       732
        1034         0521                         NJN    CSR8        IF BOTH REGISTERS CLEARED                   PCM       733
        1035         1436                         LDN    SC+20                                                   PCM       734
        1036         0200 1060                    RJM    CHN         MODIFY CHANNELS                             PCM       735
        1040         1400                         LDN    0           BIT POSITION                                PCM       736
        1041         3404                         STD    T4                                                      PCM       737
        1042         3413                         STD    TF                                                      PCM       738
        1043         1504                         LCN    4           MESSAGE POINTER                             PCM       739
        1044         3503                         RAD    T3                                                      PCM       740
        1045         3606                         AOD    T6          REGISTER COUNTER                            PCM       741
        1046         0200 2557                    RJM    C2D                                                     PCM       742
        1050         4403                         STI    T3                                                      PCM       743
        1051         1404                         LDN    4           RESET MESSAGE POINTER                       PCM       744
        1052         3503                         RAD    T3                                                      PCM       745
        1053         0100 1000                    LJM    CSR5        CLEAR NEXT REGISTER                         PCM       746
                                                                                                                 PCM       747
        1055         0100 0731           CSR8     LJM    CSRX        RETURN                                      PCM       748
  
  
  
  
                                        **        CHN - CHANGE SC OR IC REGISTER CHANNELS.                       PCM       750
                                        *                                                                        PCM       751
                                        *         ENTRY  (A) .EQ. NEW CHANNEL.                                   PCM       752
                                        *                                                                        PCM       753
                                        *         EXIT   REGISTER CHANNEL INSTRUCTIONS MODIFIED.                 PCM       754
                                                                                                                 PCM       755
                                                                                                                 PCM       756
        1057         0100 1057           CHN      SUBR               ENTRY/EXIT                                  PCM       757
        1061         2300 7240                    LMC    OANI+40                                                 PCM       758
        1063         5400 1017                    STM    CSRB                                                    PCM       759
        1065         2300 0200                    LMC    IANI&OANI                                               PCM       760
        1067         5400 1020                    STM    CSRC                                                    PCM       761
        1071         1277                         LPN    77                                                      PCM       762
        1072         2300 6700                    LMC    EJMI                                                    PCM       763
        1074         5400 1126                    STM    SCSA                                                    PCM       764
        1076         0360                         UJN    CHNX        RETURN                                      PCM       765
1       PCM         CTI PRESET COMPUTER MEMORY - A02                  COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    19
        SUBROUTINES.                                                  SED 
  
                                        **        SED - S/C REGISTER ERROR DETECTION.                            PCM       767
                                        *                                                                        PCM       768
                                        *         EXIT   EXIT TO LOAD *DHE* IF NON-SINGLE BIT ERROR.             PCM       769
                                        *                                                                        PCM       770
                                        *         USES   T1, T3.                                                 PCM       771
                                        *                                                                        PCM       772
                                        *         CALLS  DPS, KBI, RDS, SCS.                                     PCM       773
                                                                                                                 PCM       774
                                                                                                                 PCM       775
        1077         0100 1077           SED      SUBR               ENTRY/EXIT                                  PCM       776
        1101         0200 0567                    RJM    CSE         CHECK FOR SCR ERRORS                        PCM       777
        1103         5000 0723                    LDM    CSEB        GET NON-SINGLE BIT ERROR FLAG               PCM       778
        1105         0471                         ZJN    SEDX        IF ONLY SINGLE BIT ERRORS FOUND             PCM       779
        1106         0200 1171                    RJM    RDS         RESTORE PPU,S TO DEADSTART CONDITIONS       PCM       780
        1110         1402                         LDN    2           TELL *DHE* TO CALL *EBL*                    PCM       781
        1111         5400 6776                    STM    /CTI/DHEP                                               PCM       782
        1113         2000 1117                    LDC    SEDA        CALL *DHE*                                  PCM       783
        1115         0100 7000                    LJM    /CTI/CDEP                                               PCM       784
                                                                                                                 PCM       785
        1117         0010                SEDA     CON    /CTI/LOAD   CDIB                                        PCM       786
        1120         0100                         CON    /CTI/TRAN   CDTA                                        PCM       787
        1121         0001                         CON    1           CDRW                                        PCM       788
        1122         0410                         DATA   L*DHE*      CDNC                                        PCM       789
  
  
  
  
                                        **        SCS - S/C REGISTER STATUS PROCESSOR.                           PCM       791
                                        *                                                                        PCM       792
                                        *         EXIT   S/C REGISTER CHANNEL IS EMPTY.                          PCM       793
                                        *                                                                        PCM       794
                                        *         CALLS  DLS, DRS.                                               PCM       795
                                                                                                                 PCM       796
                                                                                                                 PCM       797
        1124         0100 1124           SCS      SUBR               ENTRY/EXIT                                  PCM       798
        1126         6716 1124           SCSA     EJM.   SCSX,SC     IF CHANNEL EMPTY RETURN                     PCM       799
        1130         2000 3267                    LDC    SCFE        SET *S/C REGISTER CHANNEL FULL - FATAL E*   PCM       800
        1132         5400 2544                    STM    DRSAL-1                                                 PCM       801
        1134         0200 2335           SCS1     RJM    DLS         DISPLAY LEFT SCREEN                         PCM       802
        1136         0200 2447                    RJM    DRS         DISPLAY RIGHT SCREEN                        PCM       803
        1140         0373                         UJN    SCS1        HANG WITH DISPLAY ACTIVE                    PCM       804
  
  
  
  
                                        **        ICS  -  INTERLOCK REGISTER STATUS PROCESSOR.                   PCM       806
                                        *                                                                        PCM       807
                                        *         EXIT   INTERLOCK REGISTER CHANNEL EMPTY.                       PCM       808
                                        *                                                                        PCM       809
                                        *         CALLS  DLS.                                                    PCM       810
                                                                                                                 PCM       811
                                                                                                                 PCM       812
        1141         0100 1141           ICS      SUBR               ENTRY/EXIT                                  PCM       813
        1143         6715 1141                    EJM.   ICSX,IC     IF CHANNEL EMPTY                            PCM       814
        1145         2000 2752                    LDC    ICFE        SET *INTERLOCK CHANNEL FULL.*               PCM       815
        1147         5400 2370                    STM    DLSB                                                    PCM       816
        1151         0200 2335           ICS1     RJM    DLS                                                     PCM       817
1       PCM         CTI PRESET COMPUTER MEMORY - A02                  COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    20
        SUBROUTINES.                                                  ICS 
  
        1153         0375                         UJN    ICS1        HANG                                        PCM       818
  
  
  
  
                                        **        RPT - REASSIGN PP10 TO CHANNEL 0.                              PCM       820
                                        *                                                                        PCM       821
                                        *         ENTRY  PP10 ON CHANNEL 10.                                     PCM       822
                                        *                                                                        PCM       823
                                        *         EXIT   PP10 ON CHANNEL 0.                                      PCM       824
                                                                                                                 PCM       825
                                                                                                                 PCM       826
        1154         0100 1154           RPT      SUBR               ENTRY/EXIT                                  PCM       827
        1156         7400                         ACN.   0           MOVE DISPLAY PP TO CHANNEL 0                PCM       828
        1157         1403                         LDN    3                                                       PCM       829
        1160         7310 1164                    OAM.   RPTA,CH                                                 PCM       830
        1162         7550                         DCN.   CH+40                                                   PCM       831
        1163         0370                         UJN    RPTX        RETURN                                      PCM       832
                                                                                                                 PCM       833
        1164         0000                RPTA     CON    0                                                       PCM       834
        1165         1500                         LCN    0                                                       PCM       835
        1166         7100 0000                    IAM.   0,0                                                     PCM       836
  
  
  
  
                                        **        RDS - RESET DEAD START STATUS.                                 PCM       838
                                        *                                                                        PCM       839
                                        *         EXIT   PP10 IS RETURNED TO CHANNEL 10 AND ALL OTHER PPUS ARE   PCM       840
                                        *                ON THEIR RESPECTIVE CHANNELS.                           PCM       841
                                        *                                                                        PCM       842
                                        *         USES   PP.                                                     PCM       843
                                        *                                                                        PCM       844
                                        *         CALLS  MCI, WOT, WDA.                                          PCM       845
                                                                                                                 PCM       846
                                                                                                                 PCM       847
        1170         0100 1170           RDS      SUBR               ENTRY/EXIT                                  PCM       848
        1172         7710 0000                    FNC.   0,CH        CLEAR DISPLAY CONTROLLER                    PCM       849
        1174         2000 1000                    LDC    1000                                                    PCM       850
        1176         1701                         SBN    1                                                       PCM       851
        1177         0576                         NJN    *-1         LOOP                                        PCM       852
        1200         7550                         DCN.   CH+40                                                   PCM       853
        1201         1401                         LDN    1                                                       PCM       854
        1202         3416                         STD    PP                                                      PCM       855
        1203         5016 0514           RDS1     LDM    TPPA,PP     RESET CHANNELS                              PCM       856
        1205         0415                         ZJN    RDS2        IF PPU NOT DEFINED                          PCM       857
        1206         0200 0213                    RJM    MCI                                                     PCM       858
        1210         0200 1540                    RJM    WDA         WAIT FOR CHANNEL DEACTIVE                   PCM       859
        1212         7400                         ACN    **                                                      PCM       860
        1213         0200 1553                    RJM    WOT         WAIT FOR CHANNEL EMPTY                      PCM       861
        1215         5000 1536                    LDM    REPT+1      SET DEAD START STATE                        PCM       862
        1217         7200                         OAN    **                                                      PCM       863
        1220         0200 1553                    RJM    WOT         WAIT FOR CHANNEL EMPTY                      PCM       864
        1222         3616                RDS2     AOD    PP                                                      PCM       865
        1223         1124                         LMN    20D                                                     PCM       866
        1224         0556                         NJN    RDS1        IF ALL PPUS NOT RESET                       PCM       867
        1225         5000 0524                    LDM    TPPA+CH                                                 PCM       868
1       PCM         CTI PRESET COMPUTER MEMORY - A02                  COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    21
        SUBROUTINES.                                                  RDS 
  
        1227         0440                         ZJN    RDSX        IF PP10 *OFF*                               PCM       869
        1230         7410                         ACN.   CH          MOVE PP10 TO CHANNEL 10                     PCM       870
        1231         1403                         LDN    3                                                       PCM       871
        1232         7300 1237                    OAM.   RDSA,0                                                  PCM       872
        1234         7540                         DCN.   0+40        CHANNEL 0 DEACTIVE                          PCM       873
        1235         0100 1170                    LJM    RDSX        RETURN                                      PCM       874
                                                                                                                 PCM       875
        1237         0000                RDSA     CON    0                                                       PCM       876
        1240         1500                         LCN    0                                                       PCM       877
        1241         7110 0000                    IAM.   0,CH                                                    PCM       878
1       PCM         CTI PRESET COMPUTER MEMORY - A02                  COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    22
        DISPLAY ROUTINES.                                             DPS 
  
                                        **        DPS - DISPLAY PROGRAM STATUS                                   PCM       882
                                        *                                                                        PCM       883
                                        *         ENTRY  (PP) .EQ. PPU STATUS TO BE DISPLAYED.                   PCM       884
                                        *                                                                        PCM       885
                                        *         EXIT   (PP) .EQ. NEXT PPU STATUS TO BE DSPLAYED.               PCM       886
                                        *                                                                        PCM       887
                                        *         USES   NONE.                                                   PCM       888
                                        *                                                                        PCM       889
                                        *         CALLS  GPI, GSD, CSE, DLS, DRS, ABT.                           PCM       890
                                                                                                                 PCM       891
        1243         0100 1243           DPS      SUBR               ENTRY/EXIT                                  PCM       892
        1245         0200 1414                    RJM    GPI         GENERATE PPU DISPLAY                        PCM       893
        1247         0200 2055                    RJM    GSD         GENERATE CM DISPLAY                         PCM       894
        1251         0200 0567                    RJM    CSE         CHECK FOR SCR ERRORS                        PCM       895
        1253         5000 0723                    LDM    CSEB        LOAD NON SINGLE BIT ERROR FLAG              DIMA387     4
        1255         3417                         STD    EF          STORE IN ERROR FLAG                         DIMA387     5
        1256         0200 2335                    RJM    DLS         DISPLAY LEFT SCREEN                         PCM       896
        1260         0200 2447                    RJM    DRS         DISPLAY RIGHT SCREEN                        PCM       897
        1262         6516 1273                    IJM.   DPS1,SC     IF NO S/C REGISTER                          DIMA315     1
        1264         2000 7000                    LDC    FCTE        TEST ERRORS                                 DIMA315     2
        1266         7256                         OAN.   SC+40B                                                  DIMA315     3
        1267         7056                         IAN.   SC+40B                                                  DIMA315     4
        1270         0403                         ZJN    DPS1        IF NO S/C REGISTER BITS SET                 DIMA315     5
        1271         5400 0541                    STM    TPCI        FORCE PP0 COMPLETE                          PCM       902
        1273         3017                DPS1     LDD    EF                                                      PCM       903
        1274         0513                         NJN    DPS4        IF ANY ERROR                                PCM       904
        1275         3616                DPS2     AOD    PP                                                      PCM       905
        1276         1124                         LMN    20D                                                     PCM       906
        1277         0503                         NJN    DPS3        IF NOT ALL PPUS DISPLAYED                   PCM       907
        1300         3416                         STD    PP                                                      PCM       908
        1301         0341                         UJN    DPSX        RETURN                                      PCM       909
                                                                                                                 PCM       910
        1302         5016 0514           DPS3     LDM    TPPA,PP                                                 PCM       911
        1304         0470                         ZJN    DPS2        IF PPU NOT AVAILABLE                        PCM       912
        1305         0100 1243                    LJM    DPSX        RETURN                                      PCM       913
                                                                                                                 PCM       914
        1307         0200 1773           DPS4     RJM    ABT         ABORT                                       PCM       915
  
  
  
  
                                        **        GPI - GENERATE PPU INFORMATION.                                PCM       917
                                        *                                                                        PCM       918
                                        *         ENTRY  (PP) .EQ. CURRENT PPU NUMBER.                           PCM       919
                                        *                                                                        PCM       920
                                        *         EXIT   PPU STATUS MESSAGE IS UPDATED.                          PCM       921
                                        *                (EF) .EQ. XXX1 IF A PP ERROR HAS OCCURRED.              PCM       922
                                        *                TPCI+PP .NE. 0 IF PPU COMPLETE.                         PCM       923
                                        *                                                                        PCM       924
                                        *         USES   T7, TD, TF, EF.                                         PCM       925
                                        *                                                                        PCM       926
                                        *         CALLS  MCI, C2D, RID, CPD.                                     PCM       927
                                                                                                                 PCM       928
                                                                                                                 PCM       929
                                        *         PROCESS OTHER ACTIVE PPU ERRORS.                               PCM       930
                                                                                                                 PCM       931
                                                                                                                 PCM       932
1       PCM         CTI PRESET COMPUTER MEMORY - A02                  COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    23
        DISPLAY ROUTINES.                                             GPI 
  
        1311         0200 0213           GPI6     RJM    MCI         MODIFY CHANNEL INSTRUCTIONS                 PCM       933
        1313         0200 1507                    RJM    RID         READ INPUT STATUS DATA                      PCM       934
        1315         5000 1470                    LDM    GPIA+1      SET RUN FLAG                                PCM       935
        1317         5416 0541                    STM    TPCI,PP                                                 PCM       936
        1321         3016                         LDD    PP          SETUP DISPLAYS                              PCM       937
        1322         1712                         SBN    10D                                                     PCM       938
        1323         0702                         MJN    GPI7        IF NOT UPPER PPUS                           PCM       939
        1324         1606                         ADN    6                                                       PCM       940
        1325         1612                GPI7     ADN    10D                                                     PCM       941
        1326         0200 2557                    RJM    C2D         CONVERT PPU NUMBER                          PCM       942
        1330         5400 2626                    STM    MESCA                                                   PCM       943
        1332         5400 3031                    STM    RMSAA                                                   PCM       944
        1334         5000 1467                    LDM    GPIA        CONVERT ADDRESS                             PCM       945
        1336         3413                         STD    TF                                                      PCM       946
        1337         2000 2630                    LDC    MESCB                                                   PCM       947
        1341         0200 2217                    RJM    CPD                                                     PCM       948
        1343         1404                         LDN    GPIAL-1                                                 PCM       949
        1344         3407                         STD    T7                                                      PCM       950
        1345         5007 1467                    LDM    GPIA,T7                                                 PCM       951
        1347         0503                         NJN    GPI8        IF ERROR                                    PCM       952
        1350         0100 1403                    LJM    GPI12       IF NO ERROR                                 PCM       953
                                                                                                                 PCM       954
        1352         3413                GPI8     STD    TF                                                      PCM       955
        1353         5007 1474                    LDM    GPIB,T7     CONVERT ERROR DATA                          PCM       956
        1355         0403                         ZJN    GPI9        IF NOT RELEVANT DATA                        PCM       957
        1356         0200 2217                    RJM    CPD                                                     PCM       958
        1360         3707                GPI9     SOD    T7                                                      PCM       959
        1361         0704                         MJN    GPI10       IF CONVERSION COMPLETE                      PCM       960
        1362         5007 1467                    LDM    GPIA,T7                                                 PCM       961
        1364         0365                         UJN    GPI8                                                    PCM       962
                                                                                                                 PCM       963
        1365         1404                GPI10    LDN    GPICL-1     SET MESSAGES                                PCM       964
        1366         3407                         STD    T7                                                      PCM       965
        1367         5007 1501           GPI11    LDM    GPIC,T7     SET MESSAGE ADDRESSES                       PCM       966
        1371         4411                         STI    TD                                                      PCM       967
        1372         3611                         AOD    TD                                                      PCM       968
        1373         3707                         SOD    T7                                                      PCM       969
        1374         0572                         NJN    GPI11       IF ALL MESSAGE ADDRESSES NOT SET            PCM       970
        1375         3017                         LDD    EF          SET PPU ERROR                               PCM       971
        1376         2200 7776                    LPC    7776                                                    PCM       972
        1400         1101                         LMN    1                                                       PCM       973
        1401         3417                         STD    EF                                                      PCM       974
        1402         0311                         UJN    GPIX        RETURN                                      PCM       975
                                                                                                                 PCM       976
                                        *         RESET ERROR DISPLAYS.                                          PCM       977
                                                                                                                 PCM       978
                                                                                                                 PCM       979
        1403         1404                GPI12    LDN    4           RESET RIGHT SCREEN MESSAGES                 PCM       980
        1404         3407                         STD    T7                                                      PCM       981
        1405         2000 2605           GPI13    LDC    MESA                                                    PCM       982
        1407         4411                         STI    TD                                                      PCM       983
        1410         3611                         AOD    TD                                                      PCM       984
        1411         3707                         SOD    T7                                                      PCM       985
        1412         0572                         NJN    GPI13       IF DATA NOT RESET                           PCM       986
                                                                                                                 PCM       987
        1413         0100 1413           GPI      SUBR               ENTRY/EXIT                                  PCM       988
        1415         2000 2526                    LDC    DRSB        SET MESSAGE ADDRESS                         PCM       989
1       PCM         CTI PRESET COMPUTER MEMORY - A02                  COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    24
        DISPLAY ROUTINES.                                             GPI 
  
        1417         3411                         STD    TD                                                      PCM       990
        1420         3016                         LDD    PP                                                      PCM       991
        1421         0406                         ZJN    GPI1        IF PPU 0                                    PCM       992
        1422         5016 0514                    LDM    TPPA,PP                                                 PCM       993
        1424         0466                         ZJN    GPIX        IF PP NOT AVAILABLE                         PCM       994
        1425         0100 1311                    LJM    GPI6                                                    PCM       995
                                                                                                                 PCM       996
                                                                                                                 PCM       997
                                        *         PROCESS PPU 0 ERROR DISLAY.                                    PCM       998
                                                                                                                 PCM       999
                                                                                                                 PCM      1000
        1427         2000 3333           GPI1     LDC    2R00                                                    PCM      1001
        1431         5400 2626                    STM    MESCA                                                   PCM      1002
        1433         5400 3031                    STM    RMSAA                                                   PCM      1003
        1435         3020                         LDD    WD          CONVERT ADDRESS                             PCM      1004
        1436         3413                         STD    TF                                                      PCM      1005
        1437         2000 2630                    LDC    MESCB                                                   PCM      1006
        1441         0200 2217                    RJM    CPD                                                     PCM      1007
        1443         1404                         LDN    GPIAL-1                                                 PCM      1008
        1444         3407                         STD    T7                                                      PCM      1009
        1445         5007 0020                    LDM    WD,T7                                                   PCM      1010
        1447         0503                         NJN    GPI3        IF DATA ERROR HAS OCCURRED                  PCM      1011
        1450         0100 1403           GPI2     LJM    GPI12       RESET DISPLAY POINTERS                      PCM      1012
                                                                                                                 PCM      1013
        1452         3413                GPI3     STD    TF                                                      PCM      1014
        1453         5007 1474                    LDM    GPIB,T7     CONVERT DATA                                PCM      1015
        1455         0403                         ZJN    GPI4        IF DATA NOT RELEVANT                        PCM      1016
        1456         0200 2217                    RJM    CPD                                                     PCM      1017
        1460         3707                GPI4     SOD    T7                                                      PCM      1018
        1461         0603                         PJN    GPI5        IF CONVERSION COMPLETE                      PCM      1019
        1462         0100 1365                    LJM    GPI10                                                   PCM      1020
                                                                                                                 PCM      1021
        1464         5007 0020           GPI5     LDM    WD,T7                                                   PCM      1022
        1466         0363                         UJN    GPI3                                                    PCM      1023
                                                                                                                 PCM      1024
                                                                                                                 PCM      1025
                                        *         PPU STATUS BUFFER.                                             PCM      1026
                                                                                                                 PCM      1027
                                                                                                                 PCM      1028
        1467         0000                GPIA     DATA   0           WD                                          PCM      1029
        1470         0000                         DATA   0           RNF                                         PCM      1030
        1471         0000                         DATA   0           ED                                          PCM      1031
        1472         0000                         DATA   0           AD                                          PCM      1032
        1473         0000                         DATA   0           DD                                          PCM      1033
                                   5     GPIAL    EQU    *-GPIA                                                  PCM      1034
                                                                                                                 PCM      1035
                                                                                                                 PCM      1036
                                        *         PPU STATUS DATA MESSAGE POINTERS.                              PCM      1037
                                                                                                                 PCM      1038
                                                                                                                 PCM      1039
        1474         3042                GPIB     CON    RMSBA       ADDRESS                                     PCM      1040
        1475         0000                         CON    0           RUN FLAG                                    PCM      1041
        1476         3054                         CON    RMSCA       ED                                          PCM      1042
        1477         3066                         CON    RMSDA       AD                                          PCM      1043
        1500         3100                         CON    RMSEA       DD                                          PCM      1044
                                   5     GPIBL    EQU    *-GPIB                                                  PCM      1045
                                                                                                                 PCM      1046
1       PCM         CTI PRESET COMPUTER MEMORY - A02                  COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    25
        DISPLAY ROUTINES.                                             GPI 
  
                                                                                                                 PCM      1047
                                        *         PPU STATUS MESSAGE POINTERS.                                   PCM      1048
                                                                                                                 PCM      1049
                                                                                                                 PCM      1050
        1501         0000                GPIC     CON    0                                                       PCM      1051
        1502         3071                         CON    RMSE        DIFFERENCE                                  PCM      1052
        1503         3057                         CON    RMSD        ACTUAL DATA                                 PCM      1053
        1504         3045                         CON    RMSC        EXPECTED DATA                               PCM      1054
        1505         3033                         CON    RMSB        ADDRESS                                     PCM      1055
                                   5     GPICL    EQU    *-GPIC                                                  PCM      1056
  
  
  
  
                                        **        RID - READ INPUT STATUS DATA FROM PPU.                         PCM      1058
                                        *                                                                        PCM      1059
                                        *         ENTRY  CHANNELS MODIFIED.                                      PCM      1060
                                        *                                                                        PCM      1061
                                        *         EXIT   DATA READ FROM CHANNEL TO GPIA.                         PCM      1062
                                        *                                                                        PCM      1063
                                        *         USES   TF.                                                     PCM      1064
                                        *                                                                        PCM      1065
                                        *         CALLS  WDA, WOT, WIN.                                          PCM      1066
                                                                                                                 PCM      1067
                                                                                                                 PCM      1068
        1506         0100 1506           RID      SUBR               ENTRY/EXIT                                  PCM      1069
        1510         0200 1540                    RJM    WDA         WAIT FOR CHANNEL DEACTIVE                   PCM      1070
        1512         7400                         ACN    **                                                      PCM      1071
        1513         0200 1553                    RJM    WOT         WAIT FOR CHANNEL EMPTY                      PCM      1072
        1515         5000 1535                    LDM    REPT        SEND STATUS REQUEST                         PCM      1073
        1517         7200                         OAN    **                                                      PCM      1074
        1520         0200 1553                    RJM    WOT         WAIT FOR CHANNEL EMPTY                      PCM      1075
        1522         1400                         LDN    0                                                       PCM      1076
        1523         3413                         STD    TF                                                      PCM      1077
        1524         0200 1566           RID1     RJM    WIN         WAIT FOR INPUT DATA                         PCM      1078
        1526         7000                         IAN    **                                                      PCM      1079
        1527         5413 1467                    STM    GPIA,TF                                                 PCM      1080
        1531         3613                         AOD    TF                                                      PCM      1081
        1532         1105                         LMN    GPIAL                                                   PCM      1082
        1533         0570                         NJN    RID1        IF ALL DATA NOT INPUT                       PCM      1083
        1534         0351                         UJN    RIDX        RETURN                                      PCM      1084
                                                                                                                 PCM      1085
                                                                                                                 PCM      1086
                                                                                                                 PCM      1087
                                        *         REPT - RESIDENT ENTRY POINT TABLE.                             PCM      1088
                                                                                                                 PCM      1089
        1535                             REPT     BSS    0                                                       PCM      1090
                                                                                                                 PCM      1091
      L    0                                      LOC    0                                                       PCM      1092
      L    0         0124                         CON    /IDLE/STR   STATUS REQUEST FUNCTION                     PCM      1093
      L    1         0147                         CON    /IDLE/RDS   RESET DEAD START STATUS                     PCM      1094
        1537                                      LOC    *O                                                      PCM      1095
                                   2     REPTL    EQU    *-REPT                                                  PCM      1096
1       PCM         CTI PRESET COMPUTER MEMORY - A02                  COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    26
        DISPLAY ROUTINES.                                             WDA 
  
                                        **        WDA - WAIT FOR CHANNEL DEACTIVE.                               PCM      1098
                                        *                                                                        PCM      1099
                                        *         ENTRY  CHANNELS MODIFIED.                                      PCM      1100
                                        *                                                                        PCM      1101
                                        *         EXIT   IF CHANNEL DEACTIVE.                                    PCM      1102
                                        *                                                                        PCM      1103
                                        *         USES   T4.                                                     PCM      1104
                                        *                                                                        PCM      1105
                                        *         CALLS  FCE.                                                    PCM      1106
                                                                                                                 PCM      1107
                                                                                                                 PCM      1108
        1537         0100 1537           WDA      SUBR               ENTRY/EXIT                                  PCM      1109
        1541         1477                         LDN    77                                                      PCM      1110
        1542         3404                         STD    T4                                                      PCM      1111
        1543         3704                WDA1     SOD    T4                                                      PCM      1112
        1544         6500 1537                    IJM    WDAX,**     IF CHANNEL INACTIVE RETURN                  PCM      1113
        1546         0574                         NJN    WDA1        IF DELAY NOT COMPLETE                       PCM      1114
        1547         0200 1752                    RJM    FCE         PROCESS FATAL COMMUNICATION ERROR           PCM      1115
        1551         0365                         UJN    WDAX        RETURN                                      PCM      1116
  
  
  
  
                                        **        WOT - WAIT FOR NEXT OUTPUT (CHANNEL EMPTY).                    PCM      1118
                                        *                                                                        PCM      1119
                                        *         ENTRY  CHANNELS MODIFIED.                                      PCM      1120
                                        *                                                                        PCM      1121
                                        *         EXIT   IF CHANNEL IS EMPTY.                                    PCM      1122
                                        *                                                                        PCM      1123
                                        *         USES   T4.                                                     PCM      1124
                                        *                                                                        PCM      1125
                                        *         CALLS  FCE.                                                    PCM      1126
                                                                                                                 PCM      1127
                                                                                                                 PCM      1128
        1552         0100 1552           WOT      SUBR               ENTRY/EXIT                                  PCM      1129
        1554         1477                         LDN    77                                                      PCM      1130
        1555         3404                         STD    T4                                                      PCM      1131
        1556         3704                WOT1     SOD    T4                                                      PCM      1132
        1557         6700 1552           WOTA     EJM    WOTX,**     IF CHANNEL EMPTY RETURN                     PCM      1133
        1561         0574                         NJN    WOT1        IF DELAY NOT COMPLETE                       PCM      1134
        1562         0200 1752                    RJM    FCE         PROCESS FATAL CHANNEL ERROR                 PCM      1135
        1564         0365                         UJN    WOTX        RETURN                                      PCM      1136
  
  
  
  
                                        **        WIN - WAIT FOR INPUT DATA.                                     PCM      1138
                                        *                                                                        PCM      1139
                                        *         ENTRY  CHANNEL MODIFIED.                                       PCM      1140
                                        *                                                                        PCM      1141
                                        *         EXIT   IF CHANNEL FULL.                                        PCM      1142
                                        *                                                                        PCM      1143
                                        *         USES   T4.                                                     PCM      1144
                                        *                                                                        PCM      1145
                                        *         CALLS  FCE.                                                    PCM      1146
                                                                                                                 PCM      1147
                                                                                                                 PCM      1148
1       PCM         CTI PRESET COMPUTER MEMORY - A02                  COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    27
        DISPLAY ROUTINES.                                             WIN 
  
        1565         0100 1565           WIN      SUBR               ENTRY/EXIT                                  PCM      1149
        1567         1477                         LDN    77                                                      PCM      1150
        1570         3404                         STD    T4                                                      PCM      1151
        1571         3704                WIN1     SOD    T4                                                      PCM      1152
        1572         6600 1565                    FJM    WINX,**     IF CHANNEL FULL RETURN                      PCM      1153
        1574         0574                         NJN    WIN1        IF DELAY NOT COMPLETE                       PCM      1154
        1575         0200 1752                    RJM    FCE         PROCESS FATAL CHANNEL ERROR                 PCM      1155
        1577         0365                         UJN    WINX        RETURN                                      PCM      1156
  
  
  
  
                                        **        CPP - CHECK FOR PRESENCE OF AVAILABLE PPS.                     PCM      1158
                                        *                                                                        PCM      1159
                                        *         EXIT   (TPPA) - (TPPA + 17) =                                  PCM      1160
                                        *                77XX - IF PPU EXISTS (XX = PHYSICAL CHANNEL)            PCM      1161
                                        *                AND IS LOGICALLY *ON*.                                  PCM      1162
                                        *                0 - IF PPU DOESN*T EXIST, OR IS *OFF*.                  PCM      1163
                                        *                (PP) = 0.                                               PCM      1164
                                        *                                                                        PCM      1165
                                        *         USES   PP, T1, T2.                                             PCM      1166
                                        *                                                                        PCM      1167
                                        *         CALLS  MCI, WPI.                                               PCM      1168
                                                                                                                 PCM      1169
                                                                                                                 PCM      1170
        1600         0100 1600           CPP      SUBR               ENTRY/EXIT                                  PCM      1171
        1602         1401                         LDN    1           SET CHANNEL                                 PCM      1172
        1603         3416                         STD    PP                                                      PCM      1173
        1604         3016                CPP1     LDD    PP          CONVERT PP NUMBER TO CHANNEL NUMBER         PCM      1174
        1605         1712                         SBN    10D                                                     PCM      1175
        1606         0702                         MJN    CPP2        IF CHASSIS 1 PPS                            PCM      1176
        1607         1606                         ADN    6           INITIAL CHANNEL FOR CHASSIS 2 PPS           PCM      1177
        1610         1612                CPP2     ADN    10D                                                     PCM      1178
        1611         3402                         STD    T2                                                      PCM      1179
        1612         1217                         LPN    17                                                      PCM      1180
        1613         2300 1077                    LMC    SHNI+77                                                 PCM      1181
        1615         5400 1626                    STM    CPPA                                                    PCM      1182
        1617         5400 1637                    STM    CPPB                                                    PCM      1183
        1621         3002                         LDD    T2                                                      PCM      1184
        1622         1073                         SHN    -4          SET TABLE CHASSIS INDEX                     PCM      1185
        1623         3401                         STD    T1                                                      PCM      1186
        1624         5001 7674                    LDM    /CPA/PPP0,T1                                            PCM      1187
        1626         1000                CPPA     SHN    **                                                      PCM      1188
        1627         1201                         LPN    1                                                       PCM      1189
        1630         0524                         NJN    CPP5        IF PP NOT PHYSICALLY PRESENT                PCM      1190
        1631         3002                         LDD    T2          CHANGE PP10 CHANNEL TO 0                    PCM      1191
        1632         1710                         SBN    10                                                      PCM      1192
        1633         0502                         NJN    CPP3        IF NOT PP10                                 PCM      1193
        1634         3402                         STD    T2                                                      PCM      1194
        1635         5001 7676           CPP3     LDM    /CPA/LPP0,T1                                            PCM      1195
        1637         1000                CPPB     SHN    **                                                      PCM      1196
        1640         1201                         LPN    1           SET INDEX TO *IDLT* FOR *WPI*               PCM      1197
        1641         3413                         STD    TF                                                      PCM      1198
        1642         0505                         NJN    CPP4        IF PP *OFF*                                 PCM      1199
        1643         1577                         LCN    77          SET PP AVAILABLE                            PCM      1200
        1644         3302                         LMD    T2                                                      PCM      1201
        1645         5416 0514                    STM    TPPA,PP                                                 PCM      1202
1       PCM         CTI PRESET COMPUTER MEMORY - A02                  COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    28
        DISPLAY ROUTINES.                                             CPP 
  
        1647         3002                CPP4     LDD    T2          MODIFY CHANNEL INSTRS                       PCM      1203
        1650         0200 0213                    RJM    MCI                                                     PCM      1204
        1652         0200 1710                    RJM    WPI         WRITE PP TEST OR IDLE PROGRAM               PCM      1205
        1654         3616                CPP5     AOD    PP                                                      PCM      1206
        1655         1124                         LMN    20D                                                     PCM      1207
        1656         0403                         ZJN    CPP6        IF ALL PPS CHECKED                          PCM      1208
        1657         0100 1604                    LJM    CPP1        LOOP                                        PCM      1209
                                                                                                                 PCM      1210
        1661         3416                CPP6     STD    PP                                                      PCM      1211
        1662         5000 0263                    LDM    MCID        MODIFY ONLY RESIDENT CHANNEL INSTRUCTIONS   PCM      1212
        1664         5400 0243                    STM    MCIB                                                    PCM      1213
        1666         0100 1600                    LJM    CPPX        RETURN                                      PCM      1214
  
  
  
  
                                        **        CPU - START CPU UNLESS LEVEL 3 RECOVERY.                       PCM      1216
                                        *                                                                        PCM      1217
                                        *         ENTRY  (/CPA/DSPNLZ+13) = D/S PANEL WORD 13.                   PCM      1218
                                        *                (/CPA/OPTN) = HDT OPTION WORD.                          PCM      1219
                                        *                                                                        PCM      1220
                                        *         EXIT   (DLSD) = DISPLAY MESSAGE ADDRESS.                       PCM      1221
                                        *                CENTRAL MEMORY CHECK PROGRAM EXECUTED.                  PCM      1222
                                        *                                                                        PCM      1223
                                        *         USES   NONE.                                                   PCM      1224
                                        *                                                                        PCM      1225
                                        *         CALLS  SCM.                                                    PCM      1226
                                                                                                                 PCM      1227
                                                                                                                 PCM      1228
        1670         0100 1670           CPU      SUBR               ENTRY/EXIT                                  PCM      1229
        1672         2000 1702                    LDC    CPUA        LOAD *CMC*                                  PCM      1230
        1674         0100 7000                    LJM    /CTI/CDEP                                               PCM      1231
        1676         0200 3463           CPU1     RJM    SCM         START CM CHECK PROGRAM                      PCM      1232
        1700         0100 1670                    LJM    CPUX        RETURN                                      PCM      1233
                                                                                                                 PCM      1234
        1702         3456                CPUA     CON    OVL         CDIB                                        PCM      1235
        1703         1676                         CON    CPU1        CDTA                                        PCM      1236
        1704         0000                CPUB     CON    0           CDRW                                        PCM      1237
        1705         0315                         DATA   L*CMC*      CDNC                                        PCM      1238
  
  
  
  
                                        **        WPI - WRITE PPU IDLE LOOP.                                     PCM      1240
                                        *                                                                        PCM      1241
                                        *         ENTRY  CHANNELS MODIFIED.                                      PCM      1242
                                        *                (TF) = INDEX TO TABLE *IDLT*.                           PCM      1243
                                        *                                                                        PCM      1244
                                        *         EXIT   PPU IS LOADED WITH IDLE LOOP.                           PCM      1245
                                        *                                                                        PCM      1246
                                        *         USES   T1, T2.                                                 PCM      1247
                                        *                                                                        PCM      1248
                                        *         CALLS  WOT.                                                    PCM      1249
                                                                                                                 PCM      1250
                                                                                                                 PCM      1251
        1707         0100 1707           WPI      SUBR               ENTRY/EXIT                                  PCM      1252
        1711         0200 1553                    RJM    WOT         WAIT FOR CHANNEL EMPTY                      PCM      1253
1       PCM         CTI PRESET COMPUTER MEMORY - A02                  COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    29
        DISPLAY ROUTINES.                                             WPI 
  
        1713         5013 1732                    LDM    IDLT,TF     OBTAIN ADDRESS OF IDLE LOOP                 PCM      1254
        1715         3401                         STD    T1                                                      PCM      1255
        1716         5013 1734                    LDM    IDLT+2,TF   OBTAIN LWA+1 OF IDLE LOOP                   PCM      1256
        1720         3402                         STD    T2                                                      PCM      1257
        1721         4001                WPI1     LDI    T1          OUTPUT IDLE LOOP                            PCM      1258
        1722         7200                WPIA     OAN    **                                                      PCM      1259
        1723         0200 1553                    RJM    WOT                                                     PCM      1260
        1725         3601                         AOD    T1                                                      PCM      1261
        1726         3302                         LMD    T2                                                      PCM      1262
        1727         0571                         NJN    WPI1        IF COMPLETE LOOP NOT OUTPUT                 PCM      1263
        1730         7500                WPIB     DCN    **                                                      PCM      1264
        1731         0355                         UJN    WPIX        RETURN                                      PCM      1265
                                                                                                                 PCM      1266
                                                                                                                 PCM      1267
                                        **        IDLT - TABLE OF IDLE PROGRAM ADDRESSES.                        PCM      1268
                                                                                                                 PCM      1269
        1732                             IDLT     BSS    0                                                       PCM      1270
        1732         4432                         CON    IDLE        IDLE PROGRAM FOR MEMORY TEST                PCM      1271
        1733         4705                         CON    OFFL        IDLE PROGRAM FOR *OFF* PPU-S                PCM      1272
        1734         4705                         CON    IDLEL       LWA+1 FOR *IDLE*                            PCM      1273
        1735         4707                         CON    OFFLL       LWA+1 FOR *OFFL*                            PCM      1274
                                                                                                                 PCM      1275
                                                                                                                 PCM      1276
                                        *         PCHS - TABLE OF RESIDENT PPU CHANNEL INSTRUCTIONS.             PCM      1277
                                                                                                                 PCM      1278
                                                                                                                 PCM      1279
        1736                             PCHS     CHTB               *PCM* RESIDENT CHANNEL INSTRUCTIONS         PCM      1280
                                  13     PCHSL    EQU    *-PCHS                                                  PCM      1281
  
  
  
  
                                        **        FCE - PROCESS FATAL CHANNEL ERRORS.                            PCM      1283
                                        *                                                                        PCM      1284
                                        *         ENTRY  (PP) = PP NUMBER.                                       PCM      1285
                                        *                                                                        PCM      1286
                                        *         EXIT   NONE AS FATAL ERROR HAS OCCURRED.                       PCM      1287
                                        *                DISPLAY REMAINS ACTIVE.                                 PCM      1288
                                        *                                                                        PCM      1289
                                        *         USES   /COMPSCE/LW                                             PCM      1290
                                        *                                                                        PCM      1291
                                        *         CALLS  C2D, CSE, DLS, DRS, GSD, ABT.                           PCM      1292
                                        *                                                                        PCM      1293
                                        *         NOTE  -  ONCE *FCE* IS ENTERED NO EXIT IS MADE BACK TO THE     PCM      1294
                                        *         CALLING ROUTINE AS A FATAL ERROR OCCURRED.                     PCM      1295
                                                                                                                 PCM      1296
                                                                                                                 PCM      1297
        1751         0100 1751           FCE      SUBR               ENTRY/EXIT                                  PCM      1298
        1753         3016                         LDD    PP          SET PPU NUMBER                              PCM      1299
        1754         1712                         SBN    10D         CONVERT PPU NUMBER                          PCM      1300
        1755         0702                         MJN    FCE1        IF FIRST 10 PPUS                            PCM      1301
        1756         1606                         ADN    6                                                       PCM      1302
        1757         1612                FCE1     ADN    10D                                                     PCM      1303
        1760         0200 2557                    RJM    C2D                                                     PCM      1304
        1762         5400 3031                    STM    RMSAA                                                   PCM      1305
        1764         2000 3233                    LDC    FCEM        SET *PROCESSOR NOT RESPONDING.*             PCM      1306
        1766         5400 2526                    STM    DRSB                                                    PCM      1307
1       PCM         CTI PRESET COMPUTER MEMORY - A02                  COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    30
        DISPLAY ROUTINES.                                             FCE 
  
        1770         0200 1773                    RJM    ABT         ABORT                                       PCM      1308
  
  
  
  
                                        **        ABT - ABORT DEADSTART.                                         PCM      1310
                                        *                                                                        PCM      1311
                                        *         ENTRY  NONE.                                                   PCM      1312
                                        *                                                                        PCM      1313
                                        *         EXIT   DOES NOT EXIT.                                          PCM      1314
                                        *                                                                        PCM      1315
                                        *         USES   NONE.                                                   PCM      1316
                                        *                                                                        PCM      1317
                                        *         CALLS  CSE, GSD, DLS, DRS.                                     PCM      1318
                                                                                                                 PCM      1319
                                                                                                                 PCM      1320
        1772         0100 1772           ABT      SUBR               ENTRY ONLY                                  PCM      1321
        1774         2000 2710                    LDC    FEDA        SET *FATAL ERROR - DEADSTART ABORTED.*      PCM      1322
        1776         5400 2400                    STM    DLSF                                                    PCM      1323
        2000         0200 0567           ABT1     RJM    CSE         CHECK FOR SCR ERRORS                        PCM      1324
        2002         0200 2055                    RJM    GSD         GENERATE CM DISPLAY                         PCM      1325
        2004         0200 2335                    RJM    DLS         DISPLAY LEFT SCREEN                         PCM      1326
        2006         0200 2447                    RJM    DRS         DISPLAY RIGHT SCREEN                        PCM      1327
        2010         0367                         UJN    ABT1        IF UPDATE DISPLAY                           PCM      1328
  
  
  
  
                                        **        GEM - GENERATE ERROR MESSAGE.                                  PCM      1330
                                        *                                                                        PCM      1331
                                        *         ENTRY  (TD) = BASE ADDRESS IN RIGHT SCREEN TABLE *DRSA*.       PCM      1332
                                        *                                                                        PCM      1333
                                        *         EXIT   ERROR MESSAGES ARE SET UP FOR RIGHT SCREEN.             PCM      1334
                                        *                                                                        PCM      1335
                                        *         USES   T1, EF, TD, TE, TF.                                     PCM      1336
                                        *                                                                        PCM      1337
                                        *         CALLS  CDW, COA.                                               PCM      1338
                                                                                                                 PCM      1339
                                                                                                                 PCM      1340
        2011         0100 2011           GEM      SUBR               ENTRY/EXIT                                  PCM      1341
        2013         2000 3122                    LDC    RMSGA       SET ADDRESS                                 PCM      1342
        2015         3413                         STD    TF                                                      PCM      1343
        2016         5000 2142                    LDM    GSDB+10                                                 PCM      1344
        2020         1014                         SHN    14                                                      PCM      1345
        2021         5100 2143                    ADM    GSDB+11                                                 PCM      1346
        2023         0200 2174                    RJM    COA         CONVERT CM ADDRESS                          PCM      1347
        2025         2000 2144                    LDC    GSDB+12     CONVERT DATA                                PCM      1348
        2027         3412                         STD    TE                                                      PCM      1349
        2030         1400                         LDN    0                                                       PCM      1350
        2031         3401                         STD    T1                                                      PCM      1351
        2032         5001 2163           GEM1     LDM    GSDC,T1     CONVERT MESSAGE DATA                        PCM      1352
        2034         0403                         ZJN    GEM2        IF DATA NOT RELEVENT                        PCM      1353
        2035         0200 2236                    RJM    CDW                                                     PCM      1354
        2037         5001 2167           GEM2     LDM    GSDD,T1     SET MESSAGE ADDRESS                         PCM      1355
        2041         4411                         STI    TD                                                      PCM      1356
        2042         3611                         AOD    TD                                                      PCM      1357
        2043         3601                         AOD    T1                                                      PCM      1358
1       PCM         CTI PRESET COMPUTER MEMORY - A02                  COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    31
        DISPLAY ROUTINES. 
  
        2044         1104                         LMN    GSDCL                                                   PCM      1359
        2045         0564                         NJN    GEM1        IF ALL FIELDS NOT CONVERTED                 PCM      1360
        2046         3017                         LDD    EF                                                      PCM      1361
        2047         1302                         SCN    2                                                       PCM      1362
        2050         1102                         LMN    2                                                       PCM      1363
        2051         3417                         STD    EF                                                      PCM      1364
        2052         0100 2011                    LJM    GEMX        RETURN                                      PCM      1365
  
  
  
  
                                        **        GSD - GENERATE CM DISPLAYS.                                    PCM      1367
                                        *                                                                        PCM      1368
                                        *         EXIT   (EF) .EQ. XXX2 IF A CPU ERROR HAS OCCURRED.             PCM      1369
                                        *                                                                        PCM      1370
                                        *         USES   T1, TD, TF.                                             PCM      1371
                                        *                                                                        PCM      1372
                                        *         CALLS  CDW, COA, GEM.                                          PCM      1373
                                                                                                                 PCM      1374
                                                                                                                 PCM      1375
        2054         0100 2054           GSD      SUBR               ENTRY/EXIT                                  PCM      1376
        2056         5000 0540                    LDM    TPPA+20D                                                PCM      1377
        2060         0473                         ZJN    GSDX        IF CPU NOT ACTIVE RETURN                    PCM      1378
        2061         2000 2535                    LDC    DRSC        SET MESSAGE ADDRESS                         PCM      1379
        2063         3411                         STD    TD                                                      PCM      1380
        2064         1405                         LDN    5           READ DATA FROM SCM                          PCM      1381
        2065         3401                         STD    T1                                                      PCM      1382
        2066         2000 1041                    LDC    CPR                                                     PCM      1383
        2070         6101 2132                    CRM    GSDB,T1                                                 PCM      1384
        2072         5000 2136                    LDM    GSDB+4      RUN FLAG                                    PCM      1385
        2074         5400 0565                    STM    TPCI+20D                                                PCM      1386
        2076         2000 2641                    LDC    MESDA       CONVERT CENTRAL ADDRESS                     PCM      1387
        2100         3413                         STD    TF                                                      PCM      1388
        2101         5000 2142                    LDM    GSDB+10                                                 PCM      1389
        2103         1014                         SHN    14                                                      PCM      1390
        2104         5100 2143                    ADM    GSDB+11                                                 PCM      1391
        2106         0200 2174                    RJM    COA                                                     PCM      1392
        2110         1403                         LDN    MESDC-MESDB+1                                           PCM      1393
        2111         3513                         RAD    TF                                                      PCM      1394
        2112         2700                GSDA     RPN    0           CONVERT *P* FOR ACTIVE CPU                  PCM      1395
                                        *         RPN    1           IF CPU 1 ACTIVE                             PCM      1396
                                                                                                                 PCM      1397
        2113         0200 2174                    RJM    COA                                                     PCM      1398
        2115         1424                         LDN    24                                                      PCM      1399
        2116         3401                         STD    T1                                                      PCM      1400
        2117         5001 2132           GSD1     LDM    GSDB,T1     CHECK FOR CENTRAL DATA ERROR                PCM      1401
        2121         0404                         ZJN    GSD2        IF NO ERROR HAS OCCURED                     PCM      1402
        2122         0200 2012                    RJM    GEM         GENERATE ERROR MESSAGE                      PCM      1403
        2124         0304                         UJN    GSD3                                                    PCM      1404
                                                                                                                 PCM      1405
        2125         3601                GSD2     AOD    T1                                                      PCM      1406
        2126         1131                         LMN    GSDBL                                                   PCM      1407
        2127         0567                         NJN    GSD1        IF CHECKING NOT COMPLETE                    PCM      1408
        2130         0100 2054           GSD3     LJM    GSDX                                                    PCM      1409
                                                                                                                 PCM      1410
                                                                                                                 PCM      1411
                                        *         CPU STATUS BUFFER.                                             PCM      1412
1       PCM         CTI PRESET COMPUTER MEMORY - A02                  COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    32
        DISPLAY ROUTINES.                                             GSD 
  
                                                                                                                 PCM      1413
                                                                                                                 PCM      1414
        2132                      31     GSDB     BSS    5*5         5 CM WORD BUFFER                            PCM      1415
                                  31     GSDBL    EQU    *-GSDB                                                  PCM      1416
                                                                                                                 PCM      1417
                                                                                                                 PCM      1418
                                        *         CPU STATUS DATA POINTERS.                                      PCM      1419
                                                                                                                 PCM      1420
                                                                                                                 PCM      1421
        2163         0000                GSDC     CON    0                                                       PCM      1422
        2164         3135                         CON    RMSHA       EXPECTED DATA                               PCM      1423
        2165         3164                         CON    RMSIA       ACTUAL DATA                                 PCM      1424
        2166         3213                         CON    RMSJA       DIFFERENCE                                  PCM      1425
                                   4     GSDCL    EQU    *-GSDC                                                  PCM      1426
                                                                                                                 PCM      1427
                                                                                                                 PCM      1428
                                        *         CPU STATUS MESSAGE POINTERS.                                   PCM      1429
                                                                                                                 PCM      1430
                                                                                                                 PCM      1431
        2167         3113                GSDD     CON    RMSG        ADDRESS                                     PCM      1432
        2170         3126                         CON    RMSH        EXPECTED DATA                               PCM      1433
        2171         3155                         CON    RMSI        ACTUAL DATA                                 PCM      1434
        2172         3204                         CON    RMSJ        DIFFERENCE                                  PCM      1435
                                   4     GSDDL    EQU    *-GSDD                                                  PCM      1436
  
  
  
  
                                        **        COA - CONVERT 18 BIT ADDRESS TO DISPLAY.                       PCM      1438
                                        *                                                                        PCM      1439
                                        *         ENTRY  (A) .EQ. 18 BIT ADDRESS FIELD.                          PCM      1440
                                        *                (TF) .EQ. ADDRESS OF MESSAGE FIELD.                     PCM      1441
                                        *                                                                        PCM      1442
                                        *         EXIT   ((TF)) - ((TF)) + 2 .EQ. DISPLAY CODE EQUIVALENT.       PCM      1443
                                        *                                                                        PCM      1444
                                        *         USES   TF, TH.                                                 PCM      1445
                                        *                                                                        PCM      1446
                                        *         CALLS  C2D.                                                    PCM      1447
                                                                                                                 PCM      1448
                                                                                                                 PCM      1449
        2173         0100 2173           COA      SUBR               ENTRY/EXIT                                  PCM      1450
        2175         3415                         STD    TH          SAVE LOWER 12 BITS                          PCM      1451
        2176         1063                         SHN    -14                                                     PCM      1452
        2177         0200 2557                    RJM    C2D                                                     PCM      1453
        2201         4413                         STI    TF                                                      PCM      1454
        2202         3613                         AOD    TF                                                      PCM      1455
        2203         3015                         LDD    TH          CONVERT MIDDLE 6 BITS                       PCM      1456
        2204         1071                         SHN    -6                                                      PCM      1457
        2205         0200 2557                    RJM    C2D                                                     PCM      1458
        2207         4413                         STI    TF                                                      PCM      1459
        2210         3613                         AOD    TF                                                      PCM      1460
        2211         3015                         LDD    TH          CONVERT LOWER 6 BITS                        PCM      1461
        2212         0200 2557                    RJM    C2D                                                     PCM      1462
        2214         4413                         STI    TF                                                      PCM      1463
        2215         0355                         UJN    COAX        RETURN                                      PCM      1464
1       PCM         CTI PRESET COMPUTER MEMORY - A02                  COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    33
        DISPLAY ROUTINES.                                             CPD 
  
                                        **        CPD - CONVERT PPU DATA.                                        PCM      1466
                                        *                                                                        PCM      1467
                                        *         ENTRY  (A) .EQ. ADDRESS OF MESSAGE.                            PCM      1468
                                        *                (TF) .EQ. DATA FIELD TO BE CONVERTED.                   PCM      1469
                                        *                                                                        PCM      1470
                                        *         EXIT   ((A)) - ((A)) + 2 .EQ. DISPLAY CODE EQUIVALENT OF       PCM      1471
                                        *                (TF).                                                   PCM      1472
                                        *                                                                        PCM      1473
                                        *         USES   TF, TH.                                                 PCM      1474
                                        *                                                                        PCM      1475
                                        *         CALLS  C2D.                                                    PCM      1476
                                                                                                                 PCM      1477
                                                                                                                 PCM      1478
        2216         0100 2216           CPD      SUBR               ENTRY/EXIT                                  PCM      1479
        2220         3415                         STD    TH          SAVE MESSAGE ADDRESS                        PCM      1480
        2221         3013                         LDD    TF          CONVERT FIRST DATA WORD                     PCM      1481
        2222         1071                         SHN    -6                                                      PCM      1482
        2223         0200 2557                    RJM    C2D                                                     PCM      1483
        2225         4415                         STI    TH                                                      PCM      1484
        2226         3615                         AOD    TH                                                      PCM      1485
        2227         3013                         LDD    TF          CONVERT SECOND DATA WORD                    PCM      1486
        2230         0200 2557                    RJM    C2D                                                     PCM      1487
        2232         4415                         STI    TH                                                      PCM      1488
        2233         3615                         AOD    TH                                                      PCM      1489
        2234         0361                         UJN    CPDX        RETURN                                      PCM      1490
  
  
  
  
                                        **        CDW - CONVERT CM DATA WORD.                                    PCM      1492
                                        *                                                                        PCM      1493
                                        *         ENTRY  (A) .EQ. ADDRESS OF MESSAGE.                            PCM      1494
                                        *                (TE) .EQ. ADDRESS OF FIELD TO BE CONVERTED.             PCM      1495
                                        *                                                                        PCM      1496
                                        *         EXIT   ((A)) - ((A)) + 17 .EQ. DISPLAY CODE EQUIVALENCE OF     PCM      1497
                                        *                (TE) - (TE) + 5.                                        PCM      1498
                                        *                                                                        PCM      1499
                                        *         USES   T2, TE, TF, TH.                                         PCM      1500
                                        *                                                                        PCM      1501
                                        *         CALLS  CPD.                                                    PCM      1502
                                                                                                                 PCM      1503
                                                                                                                 PCM      1504
        2235         0100 2235           CDW      SUBR               ENTRY/EXIT                                  PCM      1505
        2237         3415                         STD    TH          SAVE MESSAGE ADDRESS                        PCM      1506
        2240         1405                         LDN    5                                                       PCM      1507
        2241         3402                         STD    T2                                                      PCM      1508
        2242         4012                CDW1     LDI    TE          CONVERT 4 OCTAL DIGITS                      PCM      1509
        2243         3413                         STD    TF                                                      PCM      1510
        2244         3015                         LDD    TH                                                      PCM      1511
        2245         0200 2217                    RJM    CPD                                                     PCM      1512
        2247         2000 5555                    LDC    2R          INSERT BLANK FIELD                          PCM      1513
        2251         4415                         STI    TH                                                      PCM      1514
        2252         3615                         AOD    TH                                                      PCM      1515
        2253         3612                         AOD    TE                                                      PCM      1516
        2254         3702                         SOD    T2                                                      PCM      1517
        2255         0564                         NJN    CDW1        IF CM WORD NOT CONVERTED                    PCM      1518
        2256         0356                         UJN    CDWX        RETURN                                      PCM      1519
1       PCM         CTI PRESET COMPUTER MEMORY - A02                  COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    34
        DISPLAY ROUTINES. 
  
                                        **        VCM - VERIFY CENTRAL MEMORY.                                   PCM      1521
                                        *                                                                        PCM      1522
                                        *         NOTE - NO EXIT IS TAKEN IF A CM ERROR OCCURS.                  PCM      1523
                                        *                IF THIS IS CHANGED, T1-T7 USAGE MUST BE CHECKED         PCM      1524
                                        *                PLUS MESSAGES DISPLAYED ON THE RIGHT SCREEN.            PCM      1525
                                        *                                                                        PCM      1526
                                        *         ENTRY  (T4) = CM ADDRESS TO VERIFY.                            PCM      1527
                                        *                                                                        PCM      1528
                                        *         USES   T1, T2.                                                 PCM      1529
                                        *                                                                        PCM      1530
                                        *         CALLS  GEM, DLS, DRS.                                          PCM      1531
                                                                                                                 PCM      1532
                                                                                                                 PCM      1533
        2257         0100 2257           VCM      SUBR               ENTRY/EXIT                                  PCM      1534
        2261         3004                         LDD    T4          SAVE CM ADDRESS                             PCM      1535
        2262         5400 2143                    STM    GSDB+11                                                 PCM      1536
        2264         1063                         SHN    -14                                                     PCM      1537
        2265         5400 2142                    STM    GSDB+10                                                 PCM      1538
        2267         1400                         LDN    0                                                       PCM      1539
        2270         3402                         STD    T2          CLEAR ERROR FLAG                            PCM      1540
        2271         3401                         STD    T1          CLEAR COUNTER                               PCM      1541
        2272         5001 2144           VCM1     LDM    GSDB+12,T1  GET EXPECTED                                PCM      1542
        2274         5301 2151                    LMM    GSDB+17,T1  COMPARE WITH ACTUAL                         PCM      1543
        2276         5401 2156                    STM    GSDB+24,T1  SAVE DIFFERENCE                             PCM      1544
        2300         0402                         ZJN    VCM2        IF NO ERROR                                 PCM      1545
        2301         3602                         AOD    T2          SET ERROR FLAG                              PCM      1546
        2302         3601                VCM2     AOD    T1                                                      PCM      1547
        2303         1105                         LMN    5                                                       PCM      1548
        2304         0565                         NJN    VCM1        IF CM WORD NOT FINISHED                     PCM      1549
        2305         3002                         LDD    T2                                                      PCM      1550
        2306         0450                         ZJN    VCMX        IF NO ERRORS  RETURN                        PCM      1551
        2307         0200 0567                    RJM    CSE         CHECK SCR ERRORS                            PCM      1552
        2311         2000 2672                    LDC    EIEA        SET *ERROR IN EXECUTABLE AREA.*             PCM      1553
        2313         5400 2375                    STM    DLSE                                                    PCM      1554
        2315         2000 2710                    LDC    FEDA        SET *FATAL ERROR - DEADSTART ABORTED.*      PCM      1555
        2317         5400 2400                    STM    DLSF                                                    PCM      1556
        2321         2000 2535                    LDC    DRSC        SET BASE ADDRESS FOR RIGHT SCREEN           PCM      1557
        2323         3411                         STD    TD                                                      PCM      1558
        2324         0200 2012                    RJM    GEM         GENERATE ERROR MESSAGE                      PCM      1559
        2326         0200 2335           VCM3     RJM    DLS         DISPLAY LEFT SCREEN                         PCM      1560
        2330         0200 2447                    RJM    DRS         DISPLAY RIGHT SCREEN                        PCM      1561
        2332         0373                         UJN    VCM3        HANG DEADSTART                              PCM      1562
1       PCM         CTI PRESET COMPUTER MEMORY - A02                  COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    35
        DISPLAY SUBROUTINES.                                          DLS 
  
                                        **        DLS - DISPLAY LEFT SCREEN.                                     PCM      1565
                                        *                                                                        PCM      1566
                                        *         ENTRY  (DLSA) - (DLSF) .EQ. ADDRESS OF RESPECTIVE              PCM      1567
                                        *                MESSAGE.                                                PCM      1568
                                        *                                                                        PCM      1569
                                        *         USES   T5, TF.                                                 PCM      1570
                                        *                                                                        PCM      1571
                                        *         CALLS  DNL.                                                    PCM      1572
                                                                                                                 PCM      1573
                                                                                                                 PCM      1574
        2333         7550                DLS2     DCN.   CH+40                                                   PCM      1575
        2334         0100 2334           DLS      SUBR               ENTRY/EXIT                                  PCM      1576
        2336         7710 7001                    FNC.   7001,CH     MEDIUM CHARACTERS, LEFT SCREEN              PCM      1577
        2340         7410                         ACN.   CH                                                      PCM      1578
        2341         2000 7600                    LDC    7600                                                    PCM      1579
        2343         3413                         STD    TF                                                      PCM      1580
        2344         2000 2364                    LDC    DLSA-1                                                  PCM      1581
        2346         3405                         STD    T5                                                      PCM      1582
        2347         3605                DLS1     AOD    T5                                                      PCM      1583
        2350         2300 2401                    LMC    DLSAL                                                   PCM      1584
        2352         0460                         ZJN    DLS2        IF END OF LEFT SCREEN DISPLAY RETURN        PCM      1585
        2353         1524                         LCN    24          MOVE DISPLAY COORDINATES                    PCM      1586
        2354         3513                         RAD    TF                                                      PCM      1587
        2355         7250                         OAN.   CH+40                                                   PCM      1588
        2356         2000 6000                    LDC    6000                                                    PCM      1589
        2360         7250                         OAN.   CH+40                                                   PCM      1590
        2361         4005                         LDI    T5                                                      PCM      1591
        2362         0200 2546                    RJM    DNL         DISPLAY NEXT LINE                           PCM      1592
        2364         0362                         UJN    DLS1                                                    PCM      1593
                                                                                                                 PCM      1594
                                                                                                                 PCM      1595
                                        *         TABLE OF LEFT SCREEN LINE POINTERS.                            PCM      1596
                                                                                                                 PCM      1597
                                                                                                                 PCM      1598
        2365         2570                DLSA     CON    TITLE                                                   PCM      1599
        2366         2605                         CON    MESA                                                    PCM      1600
        2367         2605                         CON    MESA                                                    PCM      1601
        2370         2605                DLSB     VFD    12/MESA                                                 PCM      1602
        2371         2605                DLSC     VFD    12/MESA                                                 PCM      1603
        2372         2605                DLSD     VFD    12/MESA                                                 PCM      1604
        2373         2605                         VFD    12/MESA                                                 PCM      1605
        2374         2605                         CON    MESA                                                    PCM      1606
        2375         2605                DLSE     VFD    12/MESA                                                 PCM      1607
        2376         2605                         CON    MESA                                                    PCM      1608
        2377         2605                         CON    MESA                                                    PCM      1609
        2400         2605                DLSF     VFD    12/MESA                                                 PCM      1610
                                2401     DLSAL    EQU    *                                                       PCM      1611
1       PCM         CTI PRESET COMPUTER MEMORY - A02                  COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    36
        DISPLAY SUBROUTINES.                                          DRS 
  
                                        **        DRS - DISPLAY RIGHT SCREEN.                                    PCM      1613
                                        *                                                                        PCM      1614
                                        *         ENTRY  ((DRSA) - (DRSA + DRSAL) .EQ. ADDRESS OF RESPECTIVE     PCM      1615
                                        *                MESSAGE.                                                PCM      1616
                                        *                                                                        PCM      1617
                                        *         EXIT   RIGHT SCREEN DATA DISPLAYED.                            PCM      1618
                                        *                                                                        PCM      1619
                                        *         USES   T1, T5, TF.                                             PCM      1620
                                        *                                                                        PCM      1621
                                        *         CALLS  DNL.                                                    PCM      1622
                                                                                                                 PCM      1623
                                                                                                                 PCM      1624
        2401         2000 3334           DRS5     LDC    TEMA-1                                                  PCM      1625
        2403         3405                         STD    T5                                                      PCM      1626
        2404         1512                DRS6     LCN    12          MOVE DISPLAY                                PCM      1627
        2405         3513                         RAD    TF                                                      PCM      1628
        2406         7250                         OAN.   CH+40                                                   PCM      1629
        2407         2177 0761                    ADC    -7016                                                   PCM      1630
        2411         0712                         MJN    DRS7        IF SCREEN FILLED                            PCM      1631
        2412         2000 6000                    LDC    6000                                                    PCM      1632
        2414         7250                         OAN.   CH+40                                                   PCM      1633
        2415         3605                         AOD    T5                                                      PCM      1634
        2416         4005                         LDI    T5                                                      PCM      1635
        2417         0416                         ZJN    DRS8        IF ALL MESSAGES DISPLAYED                   PCM      1636
        2420         0200 2546                    RJM    DNL                                                     PCM      1637
        2422         0361                         UJN    DRS6                                                    PCM      1638
                                                                                                                 PCM      1639
        2423         2000 7012           DRS7     LDC    7012        DISPLAY *MORE S/C REGISTER ERRORS.*         PCM      1640
        2425         7250                         OAN.   CH+40                                                   PCM      1641
        2426         2000 6000                    LDC    6000                                                    PCM      1642
        2430         7250                         OAN.   CH+40                                                   PCM      1643
        2431         2000 3314                    LDC    MSCE                                                    PCM      1644
        2433         0200 2546                    RJM    DNL                                                     PCM      1645
                                                                                                                 PCM      1646
        2435         0310                DRS8     UJN    DRS9                                                    PCM      1647
                                2435     DRSE     EQU    *-1                                                     PCM      1648
                                        *         PSN                IF CYBER 170                                PCM      1649
                                                                                                                 PCM      1650
        2436         5000 3335                    LDM    TEMA                                                    PCM      1651
        2440         0505                         NJN    DRS9        IF S/C REGISTER ERRORS                      PCM      1652
        2441         2000 3024                    LDC    NONM        SET *NONE.*                                 PCM      1653
        2443         0200 2546                    RJM    DNL                                                     PCM      1654
                                                                                                                 PCM      1655
        2445         7550                DRS9     DCN.   CH+40                                                   PCM      1656
                                                                                                                 PCM      1657
        2446         0100 2446           DRS      SUBR               ENTRY/EXIT                                  PCM      1658
        2450         5000 2526                    LDM    DRSB                                                    PCM      1659
        2452         2300 2605                    LMC    MESA                                                    PCM      1660
        2454         0505                         NJN    DRS1        IF PP DATA ERROR                            PCM      1661
        2455         2000 3024                    LDC    NONM        SET *NONE.*                                 PCM      1662
        2457         5400 2526                    STM    DRSB                                                    PCM      1663
        2461         5000 2535           DRS1     LDM    DRSC                                                    PCM      1664
        2463         2300 2605                    LMC    MESA                                                    PCM      1665
        2465         0505                         NJN    DRS2        IF CM DATA ERROR                            PCM      1666
        2466         2000 3024                    LDC    NONM        SET *NONE.*                                 PCM      1667
        2470         5400 2535                    STM    DRSC                                                    PCM      1668
        2472         7710 7100           DRS2     FNC.   7100,CH     RIGHT SCREEN, SMALL CHARACTERS              PCM      1669
1       PCM         CTI PRESET COMPUTER MEMORY - A02                  COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    37
        DISPLAY SUBROUTINES.                                          DRS 
  
        2474         7410                         ACN.   CH                                                      PCM      1670
        2475         2000 7700                    LDC    7700                                                    PCM      1671
        2477         3413                         STD    TF                                                      PCM      1672
        2500         2000 2522                    LDC    DRSA-1                                                  PCM      1673
        2502         3405                         STD    T5                                                      PCM      1674
        2503         3605                DRS3     AOD    T5          FIND NEXT WORD                              PCM      1675
        2504         2300 2545                    LMC    DRSAL                                                   PCM      1676
        2506         0503                         NJN    DRS4        IF ERROR DATA NOT COMPLETE                  PCM      1677
        2507         0100 2401                    LJM    DRS5                                                    PCM      1678
                                                                                                                 PCM      1679
        2511         1512                DRS4     LCN    12          MODIFY DISPLAY COORDINATES                  PCM      1680
        2512         3513                         RAD    TF                                                      PCM      1681
        2513         7250                         OAN.   CH+40                                                   PCM      1682
        2514         2000 6000                    LDC    6000                                                    PCM      1683
        2516         7250                         OAN.   CH+40                                                   PCM      1684
        2517         4005                         LDI    T5          DISPLAY NEXT LINE                           PCM      1685
        2520         0200 2546                    RJM    DNL                                                     PCM      1686
        2522         0360                         UJN    DRS3                                                    PCM      1687
                                                                                                                 PCM      1688
                                                                                                                 PCM      1689
                                        *         TABLE OF RIGHT SCREEN LINE POINTERS.                           PCM      1690
                                                                                                                 PCM      1691
                                                                                                                 PCM      1692
        2523         3006                DRSA     VFD    12/TITL                                                 PCM      1693
        2524         2605                         VFD    12/MESA                                                 PCM      1694
        2525         3030                         VFD    12/RMSA                                                 PCM      1695
        2526         2605                DRSB     VFD    12/MESA                                                 PCM      1696
        2527         2605                         VFD    12/MESA                                                 PCM      1697
        2530         2605                         VFD    12/MESA                                                 PCM      1698
        2531         2605                         VFD    12/MESA                                                 PCM      1699
        2532         2605                         VFD    12/MESA                                                 PCM      1700
        2533         2605                         VFD    12/MESA                                                 PCM      1701
        2534         3103                         VFD    12/RMSF                                                 PCM      1702
        2535         2605                DRSC     VFD    12/MESA                                                 PCM      1703
        2536         2605                         VFD    12/MESA                                                 PCM      1704
        2537         2605                         VFD    12/MESA                                                 PCM      1705
        2540         2605                         VFD    12/MESA                                                 PCM      1706
        2541         2605                         VFD    12/MESA                                                 PCM      1707
        2542         2605                         VFD    12/MESA                                                 PCM      1708
        2543         2605                DRSD     VFD    12/MESA                                                 PCM      1709
        2544         2605                         VFD    12/MESA                                                 PCM      1710
                                2545     DRSAL    EQU    *                                                       PCM      1711
  
  
  
  
                                        **        DNL - DISPLAY NEXT LINE.                                       PCM      1713
                                        *                                                                        PCM      1714
                                        *         ENTRY  (A) = MESSAGE ADDRESS.                                  PCM      1715
                                        *                                                                        PCM      1716
                                        *         USES   T1.                                                     PCM      1717
                                                                                                                 PCM      1718
                                                                                                                 PCM      1719
        2545         0100 2545           DNL      SUBR               ENTRY/EXIT                                  PCM      1720
        2547         1701                         SBN    1                                                       PCM      1721
        2550         3401                         STD    T1                                                      PCM      1722
        2551         3601                DNL1     AOD    T1                                                      PCM      1723
1       PCM         CTI PRESET COMPUTER MEMORY - A02                  COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    38
        DISPLAY SUBROUTINES.                                          DNL 
  
        2552         4001                         LDI    T1                                                      PCM      1724
        2553         7250                         OAN.   CH+40                                                   PCM      1725
        2554         0470                         ZJN    DNLX        IF END OF LINE, EXIT                        PCM      1726
        2555         0373                         UJN    DNL1        DISPLAY NEXT WORD                           PCM      1727
                                                                                                                 PCM      1728
                                                                                                                 PCM      1729
                                        *         COMMON DECK.                                                   PCM      1730
                                                                                                                 PCM      1731
        2556                                      CTEXT  COMPC2D - CONVERT 2 OCTAL DIGITS TO DISPLAY CODE.       COMPC2D     2
1       PCM         CTI PRESET COMPUTER MEMORY - A02                  COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    39
        CONSOLE MESSAGES. 
  
                                        **        CONSOLE MESSAGES.                                              PCM      1735
                                                                                                                 PCM      1736
                                                                                                                 PCM      1737
        2570         5503                TITLE    DATA   C* CHECK COMPUTER MEMORY.*                              PCM      1738
                                                                                                                 PCM      1739
                                                                                                                 PCM      1740
        2605         5555                MESA     DATA   C*  *                                                   PCM      1741
                                                                                                                 PCM      1742
                                                                                                                 PCM      1743
        2607         2350                MESB     DATA   L*S/C REGISTER  *                                       PCM      1744
        2616         3333                MESBA    DATA   L*00*                                                   PCM      1745
        2617         5502                         DATA   L* BIT  *                                               PCM      1746
        2622         0000                MESBB    DATA   0                                                       PCM      1747
        2623         0000                         DATA   0                                                       PCM      1748
        2624         0000                         CON    0                                                       PCM      1749
                                                                                                                 PCM      1750
                                                                                                                 PCM      1751
        2625         2020                MESC     DATA   L*PP*                                                   PCM      1752
        2626         3333                MESCA    DATA   L*00*                                                   PCM      1753
        2627         5555                         DATA   L*  *                                                   PCM      1754
        2630         0000                MESCB    DATA   0                                                       PCM      1755
        2631         0000                         DATA   0                                                       PCM      1756
        2632         0000                         CON    0                                                       PCM      1757
                                                                                                                 PCM      1758
                                                                                                                 PCM      1759
        2633         0315                MESD     DATA   L*CM ADDRESS  *                                         PCM      1760
        2641         0000                MESDA    DATA   0                                                       PCM      1761
        2642         0000                         DATA   0                                                       PCM      1762
        2643         0000                         DATA   0                                                       PCM      1763
        2644         5520                         DATA   L* P*                                                   PCM      1764
        2645         3354                MESDB    DATA   L*0=  *                                                 PCM      1765
        2647         0000                MESDC    DATA   0                                                       PCM      1766
        2650         0000                         DATA   0                                                       PCM      1767
        2651         0000                         DATA   0                                                       PCM      1768
        2652         0000                         CON    0                                                       PCM      1769
                                                                                                                 PCM      1770
                                                                                                                 PCM      1771
        2653         0315                CPNA     DATA   C*CM NOT ACTIVE - LEVEL 3 REC.*                         PCM      1772
                                                                                                                 PCM      1773
                                                                                                                 PCM      1774
        2672         0522                EIEA     DATA   C*ERROR IN EXECUTABLE AREA.*                            PCM      1775
                                                                                                                 PCM      1776
                                                                                                                 PCM      1777
        2710         0601                FEDA     DATA   C*FATAL ERROR - DEADSTART ABORTED.*                     PCM      1778
                                                                                                                 PCM      1779
                                                                                                                 PCM      1780
        2731         1116                MESF     DATA   L*INTERLOCK REGISTER  *                                 PCM      1781
        2743         3333                MESFA    DATA   L*00*                                                   PCM      1782
        2744         5502                         DATA   L* BIT  *                                               PCM      1783
        2747         0000                MESFB    DATA   0                                                       PCM      1784
        2750         0000                         DATA   0                                                       PCM      1785
        2751         0000                         CON    0                                                       PCM      1786
                                                                                                                 PCM      1787
                                                                                                                 PCM      1788
        2752         1116                ICFE     DATA   C*INTERLOCK REG. CHANNEL FULL.*                         PCM      1789
                                                                                                                 PCM      1790
                                                                                                                 PCM      1791
1       PCM         CTI PRESET COMPUTER MEMORY - A02                  COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    40
        CONSOLE MESSAGES. 
  
        2771         5503                MESG     DATA   C* CHECK MEMORY COMPLETE.*                              PCM      1792
                                                                                                                 PCM      1793
                                                                                                                 PCM      1794
                                        **        CONSOLE MESSAGES (RIGHT SCREEN).                               PCM      1795
                                                                                                                 PCM      1796
                                                                                                                 PCM      1797
        3006         5555                TITL     DATA   C*      MEMORY DATA ERRORS.*                            PCM      1798
                                                                                                                 PCM      1799
                                                                                                                 PCM      1800
        3024         1617                NONM     DATA   C*NONE.*                                                PCM      1801
                                                                                                                 PCM      1802
                                                                                                                 PCM      1803
        3030         2020                RMSA     DATA   L*PP*                                                   PCM      1804
        3031         0000                RMSAA    DATA   0                                                       PCM      1805
        3032         0000                         CON    0                                                       PCM      1806
                                                                                                                 PCM      1807
                                                                                                                 PCM      1808
        3033         0104                RMSB     DATA   L*ADDRESS       *                                       PCM      1809
        3042         0000                RMSBA    DATA   0                                                       PCM      1810
        3043         0000                         DATA   0                                                       PCM      1811
        3044         0000                         CON    0                                                       PCM      1812
                                                                                                                 PCM      1813
                                                                                                                 PCM      1814
        3045         0530                RMSC     DATA   L*EXPECTED DATA *                                       PCM      1815
        3054         0000                RMSCA    DATA   0                                                       PCM      1816
        3055         0000                         DATA   0                                                       PCM      1817
        3056         0000                         CON    0                                                       PCM      1818
                                                                                                                 PCM      1819
                                                                                                                 PCM      1820
        3057         0103                RMSD     DATA   L*ACTUAL DATA   *                                       PCM      1821
        3066         0000                RMSDA    DATA   0                                                       PCM      1822
        3067         0000                         DATA   0                                                       PCM      1823
        3070         0000                         CON    0                                                       PCM      1824
                                                                                                                 PCM      1825
                                                                                                                 PCM      1826
        3071         0411                RMSE     DATA   L*DIFFERENCE    *                                       PCM      1827
        3100         0000                RMSEA    DATA   0                                                       PCM      1828
        3101         0000                         DATA   0                                                       PCM      1829
        3102         0000                         CON    0                                                       PCM      1830
                                                                                                                 PCM      1831
                                                                                                                 PCM      1832
        3103         0305                RMSF     DATA   C*CENTRAL MEMORY*                                       PCM      1833
                                                                                                                 PCM      1834
                                                                                                                 PCM      1835
        3113         0104                RMSG     DATA   L*ADDRESS       *                                       PCM      1836
        3122         0000                RMSGA    DATA   0                                                       PCM      1837
        3123         0000                         DATA   0                                                       PCM      1838
        3124         0000                         DATA   0                                                       PCM      1839
        3125         0000                         CON    0                                                       PCM      1840
                                                                                                                 PCM      1841
                                                                                                                 PCM      1842
        3126         0530                RMSH     DATA   L*EXPECTED DATA *                                       PCM      1843
        3135                      17     RMSHA    BSS    15D                                                     PCM      1844
        3154         0000                         CON    0                                                       PCM      1845
                                                                                                                 PCM      1846
                                                                                                                 PCM      1847
        3155         0103                RMSI     DATA   L*ACTUAL DATA  *                                        PCM      1848
1       PCM         CTI PRESET COMPUTER MEMORY - A02                  COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    41
        CONSOLE MESSAGES. 
  
        3164                      17     RMSIA    BSS    15D                                                     PCM      1849
        3203         0000                         CON    0                                                       PCM      1850
                                                                                                                 PCM      1851
                                                                                                                 PCM      1852
        3204         0411                RMSJ     DATA   L*DIFFERENCE    *                                       PCM      1853
        3213                      17     RMSJA    BSS    15D                                                     PCM      1854
        3232         0000                         CON    0                                                       PCM      1855
                                                                                                                 PCM      1856
                                                                                                                 PCM      1857
        3233         2022                FCEM     DATA   C*PROCESSOR NOT RESPONDING.*                            PCM      1858
                                                                                                                 PCM      1859
                                                                                                                 PCM      1860
        3251         5555                SCRE     DATA   C*      S/C REGISTER ERRORS.*                           PCM      1861
                                                                                                                 PCM      1862
                                                                                                                 PCM      1863
        3267         2350                SCFE     DATA   C*S/C REGISTER CHANNEL FULL.- FATAL ERROR.*             PCM      1864
                                                                                                                 PCM      1865
                                                                                                                 PCM      1866
        3314         5555                MSCE     DATA   C*      MORE S/C REGISTER ERRORS.*                      PCM      1867
                                                                                                                 PCM      1868
                                                                                                                 PCM      1869
        3335         0000                TEMA     CON    0           TABLE OF ERROR MESSAGE ADDRESSES            PCM      1870
        3336                     120              BSS    NTEB*2                                                  PCM      1871
                                                                                                                 PCM      1872
                                                                                                                 PCM      1873
        3456                             OVL      BSS    0           OVERLAY LOAD ADDRESS                        PCM      1874
1       PCM         CTI PRESET COMPUTER MEMORY - A02                  COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    42
        CONSOLE MESSAGES. 
  
                                                  IDENT  CMC,OVL                                                 PCM      1876
        3456                                      ORG    OVL                                                     PCM      1877
                                                  COMMENT CTI PCM OVERLAY                                        DIMA317N    6
                                                  COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1979               DIMA317N    7
  
  
                                        *         ALL RIGHTS RESERVED                                            CDCCRN      3
                                        *                                                                        CDCCRN      4
                                        *         CONTAINED HEREIN ARE SOFTWARE PRODUCTS COPYRIGHTED             CDCCRN      5
                                        *         BY CONTROL DATA CORPORATION.  REPRODUCTION WITHOUT             CDCCRN      6
                                        *         PERMISSION IS PROHIBITED.  THE COPYRIGHT NOTICE                CDCCRN      7
                                        *         MUST APPEAR ON ALL AUTHORIZED COMPLETE OR                      CDCCRN      8
                                        *         PARTIAL COPIES.                                                CDCCRN      9
                                        *                                                                        CDCCRN     10
1       PCM         CTI PRESET COMPUTER MEMORY - A02                  COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    43
        INITIALIZATION SUBROUTINES.                                   SCM 
  
                                        **        SCM - START CM CHECK PROGRAM.                                  PCM      1881
                                        *                                                                        PCM      1882
                                        *         ENTRY  (SPW = 7776) .EQ. WORD 14 OF D.S. PANEL.                PCM      1883
                                        *                                                                        PCM      1884
                                        *         EXIT   (000000) - (777777) .EQ. 7777....7777.                  PCM      1885
                                        *                                                                        PCM      1886
                                        *         USES   T3, T4, T6.                                             PCM      1887
                                        *                                                                        PCM      1888
                                        *         CALLS  CEM.                                                    PCM      1889
                                                                                                                 PCM      1890
                                                                                                                 PCM      1891
        3456         2000 2653           SCM7     LDC    CPNA        SET *CM NOT ACTIVE - LEVEL 3 REC.*          PCM      1892
        3460         5400 2372           SCM8     STM    DLSD                                                    PCM      1893
                                                                                                                 PCM      1894
        3462         0100 3462           SCM      SUBR               ENTRY/EXIT                                  PCM      1895
        3464         5000 7673                    LDM    /CPA/OPTN                                               PCM      1896
        3466         1021                         SHN    21-0                                                    PCM      1897
        3467         0613                         PJN    SCM1        IF CPU 0 ON                                 PCM      1898
        3470         5600 2112                    AOM    GSDA        SET CPU 1                                   PCM      1899
        3472         5600 3611                    AOM    SCMA                                                    PCM      1900
        3474         5400 3632                    STM    SCMB                                                    PCM      1901
        3476         2000 0100                    LDC    100         SET *P1=*                                   PCM      1902
        3500         5500 2645                    RAM    MESDB                                                   PCM      1903
        3502         5000 7712           SCM1     LDM    /CPA/DSPNLZ+13                                          PCM      1904
        3504         1066                         SHN    -11                                                     PCM      1905
        3505         1207                         LPN    7                                                       PCM      1906
        3506         1703                         SBN    3                                                       PCM      1907
        3507         0646                         PJN    SCM7        IF MEMORY TO BE RECOVERED                   PCM      1908
                                                                                                                 PCM      1909
        3510         0200 0401                    RJM    CEM         CHECK EXECUTED CENTRAL MEMORY               PCM      1910
        3512         1401                         LDN    1           SET CPU AVAILABLE                           PCM      1911
        3513         5400 0540                    STM    TPPA+20D                                                PCM      1912
        3515         5000 7671                    LDM    /CPA/CMSZ   SET MEMORY SIZE                             PCM      1913
        3517         0403                         ZJN    SCM2        IF NOT 262K CM                              PCM      1914
        3520         1500                         LCN    0           SET 262K CM = 777777B.                      PCM      1915
        3521         0305                         UJN    SCM3        PROCEED                                     PCM      1916
                                                                                                                 PCM      1917
        3522         5000 7672           SCM2     LDM    /CPA/CMSZ+1                                             PCM      1918
        3524         1006                         SHN    6                                                       PCM      1919
        3525         1701                         SBN    1                                                       PCM      1920
        3526         3404                SCM3     STD    T4                                                      PCM      1921
        3527         5400 3740                    STM    /SCM/IXPA+/SCM/FL    SET LOWER FL                       PCM      1922
        3531         5400 4060                    STM    /SCM/MTXA+/SCM/FL                                       PCM      1923
        3533         1063                         SHN    -14                                                     PCM      1924
        3534         3403                         STD    T3                                                      PCM      1925
        3535         5400 3737                    STM    /SCM/IXPA+/SCM/FL-1   SET UPPER FL                      PCM      1926
        3537         5400 4057                    STM    /SCM/MTXA+/SCM/FL-1                                     PCM      1927
        3541         1014                         SHN    14                                                      PCM      1928
        3542         3304                         LMD    T4                                                      PCM      1929
        3543         1071                         SHN    -6                                                      PCM      1930
        3544         5400 3727                    STM    /SCM/IXPA+/SCM/A0     SET UPPER A0                      PCM      1931
        3546         5400 4047                    STM    /SCM/MTXA+/SCM/A0                                       PCM      1932
        3550         3004                         LDD    T4                    SET LOWER A0                      PCM      1933
        3551         1006                         SHN    6                                                       PCM      1934
        3552         5400 3730                    STM    /SCM/IXPA+/SCM/A0+1                                     PCM      1935
        3554         5400 4050                    STM    /SCM/MTXA+/SCM/A0+1                                     PCM      1936
        3556         3003                         LDD    T3          WRITE LAST CM WORD                          PCM      1937
1       PCM         CTI PRESET COMPUTER MEMORY - A02                  COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    44
        INITIALIZATION SUBROUTINES.                                   SCM 
  
        3557         1014                         SHN    14                                                      PCM      1938
        3560         3304                         LMD    T4                                                      PCM      1939
        3561         6232                         CWD    SV                                                      PCM      1940
        3562         1400                         LDN    0           WRITE CPU HAND-OFF STATE PROGRAM            PCM      1941
        3563         6225                         CWD    SP                                                      PCM      1942
        3564         2000 0020                    LDC    /SCM/IXPAL/5  WRITE IDLE EXCHANGE PACKAGE               PCM      1943
        3566         3406                         STD    T6                                                      PCM      1944
        3567         2000 1000                    LDC    IXPA                                                    PCM      1945
        3571         6306 3725                    CWM    /SCM/IXPA,T6                                            PCM      1946
        3573         2000 0006                    LDC    /SCM/IDLPL  WRITE CENTRAL IDLE PROGRAM                  PCM      1947
        3575         3403                         STD    T3                                                      PCM      1948
        3576         2000 1040                    LDC    IDLP                                                    PCM      1949
        3600         6303 4165                    CWM    /SCM/IDLP,T3                                            PCM      1950
        3602         5000 7673                    LDM    /CPA/OPTN   CHECK MACHINE TYPE                          PCM      1951
        3604         1066                         SHN    -11                                                     PCM      1952
        3605         1203                         LPN    3                                                       PCM      1953
        3606         0531                         NJN    SCM5        IF CPU IS A 176                             PCM      1954
        3607         2000 1000                    LDC    IXPA        START CPU                                   PCM      1955
                                                                                                                 PCM      1956
        3611         2600                SCMA     EXN    0                                                       PCM      1957
                                        *         EXN    1           IF CPU 0 OFF AND CPU 1 ON                   PCM      1958
                                                                                                                 PCM      1959
        3612         2000 0033                    LDC    /SCM/MTPL   WRITE CHECK PROGRAM                         PCM      1960
        3614         3403                         STD    T3                                                      PCM      1961
        3615         2000 1060                    LDC    MTPA                                                    PCM      1962
        3617         6303 4223                    CWM    /SCM/MTP,T3                                             PCM      1963
        3621         2000 0020                    LDC    /SCM/MTXAL/5  REWRITE IDLE EXCHANGE WITH TEST EXCHANGE  PCM      1964
        3623         3506                         RAD    T6                                                      PCM      1965
        3624         2000 1000                    LDC    IXPA                                                    PCM      1966
        3626         6306 3725                    CWM    /SCM/IXPA,T6                                            PCM      1967
        3630         2000 1020                    LDC    MTXA        START CHECK PROGRAM                         PCM      1968
                                                                                                                 PCM      1969
        3632         2600                SCMB     EXN    0                                                       PCM      1970
                                        *         EXN    1           IF CPU 0 OFF AND CPU 1 ON                   PCM      1971
                                                                                                                 PCM      1972
        3633         2000 2633           SCM4     LDC    MESD        SET *CM ADDRESS 000000 P0= 000000.*         PCM      1973
        3635         0100 3460                    LJM    SCM8        RETURN                                      PCM      1974
                                                                                                                 PCM      1975
                                        *         PROCESS 176 CPU.                                               PCM      1976
                                                                                                                 PCM      1977
        3637         2000 2115           SCM5     LDC    FCCL+DSCU   DEADSTART THE CPU                           PCM      1978
        3641         7256                         OAN.   SC+40                                                   PCM      1979
        3642         7056                         IAN.   SC+40                                                   PCM      1980
        3643         1460                         LDN    60          SET MONITOR MODE FOR CYBER 176              PCM      1981
        3644         5400 4064                    STM    /SCM/MTXA+5*3                                           PCM      1982
        3646         1420                         LDN    /SCM/MTXAL/5  WRITE EXCHANGE PACKAGE                    PCM      1983
        3647         3406                         STD    T6                                                      PCM      1984
        3650         2000 1000                    LDC    IXPA                                                    PCM      1985
        3652         6306 4045                    CWM    /SCM/MTXA,T6                                            PCM      1986
        3654         5000 4166                    LDM    /SCM/IDLP+1  CHANGE CPU HANG TO IDLE 176 CPU            PCM      1987
        3656         5400 4320                    STM    /SCM/IDLE1+1                                            PCM      1988
        3660         5400 4363                    STM    /SCM/IDLE2+1                                            PCM      1989
        3662         5400 4426                    STM    /SCM/IDLE3+1                                            PCM      1990
        3664         5000 4167                    LDM    /SCM/IDLP+2  CHANGE CPU HANG TO IDLE 176 CPU            PCM      1991
        3666         5400 4321                    STM    /SCM/IDLE1+2                                            PCM      1992
        3670         5400 4364                    STM    /SCM/IDLE2+2                                            PCM      1993
        3672         5400 4427                    STM    /SCM/IDLE3+2                                            PCM      1994
1       PCM         CTI PRESET COMPUTER MEMORY - A02                  COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    45
        INITIALIZATION SUBROUTINES.                                   SCM 
  
        3674         1433                         LDN    /SCM/MTPL   COPY PROGRAM TO CM                          PCM      1995
        3675         3406                         STD    T6                                                      PCM      1996
        3676         2000 1060                    LDC    MTPA                                                    PCM      1997
        3700         6306 4223                    CWM    /SCM/MTP,T6                                             PCM      1998
        3702         2000 4066                    LDC    FCSB+EXBB   SET EXCHANGE BIAS                           PCM      1999
        3704         7256                         OAN.   SC+40                                                   PCM      2000
        3705         7056                         IAN.   SC+40                                                   PCM      2001
        3706         2000 2067           SCM6     LDC    FCCL+EXBB+1 CLEAR OTHER BITS                            PCM      2002
                                3707     SCMC     EQU    *-1                                                     PCM      2003
        3710         7256                         OAN.   SC+40                                                   PCM      2004
        3711         7056                         IAN.   SC+40                                                   PCM      2005
        3712         5600 3707                    AOM    SCMC        BUMP BIT ADDRESS                            PCM      2006
        3714         2300 2072                    LMC    FCCL+EXBB+4                                             PCM      2007
        3716         0567                         NJN    SCM6        IF ALL BITS NOT CLEAR                       PCM      2008
        3717         2000 4115                    LDC    FCSB+DSCU   START THE PROGRAM                           PCM      2009
        3721         7256                         OAN.   SC+40                                                   PCM      2010
        3722         7056                         IAN.   SC+40                                                   PCM      2011
        3723         0100 3633                    LJM    SCM4        RETURN                                      PCM      2012
                                                                                                                 PCM      2013
                                                                                                                 PCM      2014
                                        *         CENTRAL MEMORY CHECK EXCHANGE PACKAGES.                        PCM      2015
                                                                                                                 PCM      2016
                                                                                                                 PCM      2017
                                                  QUAL   SCM                                                     PCM      2018
                                   2     A0       EQU    2           PPU RELATIVE ADDRESS OF A0 IN XP            PCM      2019
                                  13     FL       EQU    13          PPU RELATIVE ADDRESS OF FL IN XP            PCM      2020
                                                                                                                 PCM      2021
                                                                                                                 PCM      2022
                                        *         IDLE EXCHANGE PACKAGE.                                         PCM      2023
                                                                                                                 PCM      2024
                                                                                                                 PCM      2025
        3725                             IXPA     EXJP   P=001040,A0=377777,B1=1,FL=377777,EM=0                  PCM      2026
                                 120     IXPAL    EQU    *-IXPA                                                  PCM      2027
                                                                                                                 PCM      2028
                                                                                                                 PCM      2029
                                        *         CENTRAL MEMORY CHECK EXCHANGE PACKAGE.                         PCM      2030
                                                                                                                 PCM      2031
                                                                                                                 PCM      2032
        4045                             MTXA     EXJP   P=1060,A0=377777,B1=1,FL=377777,EM=0                    PCM      2033
                                 120     MTXAL    EQU    *-MTXA                                                  PCM      2034
                                                                                                                 PCM      2035
                                                                                                                 PCM      2036
                                        **        CENTRAL MEMORY CHECK PROGRAM.                                  PCM      2037
                                                                                                                 PCM      2038
                                                                                                                 PCM      2039
                                        * 001040                                                                 PCM      2040
                                        *         EQ     *                                                       PCM      2041
        4165         0400                IDLP     VFD    60/04000010406100046000                                 PCM      2042
        4166         0010 
        4167         4061 
        4170         0004 
        4171         6000 
                                        * 001041                                                                 PCM      2043
                                        *RNF      DATA   0                                                       PCM      2044
        4172         0000                         VFD    60/0                                                    PCM      2045
        4173         0000 
        4174         0000 
1       PCM         CTI PRESET COMPUTER MEMORY - A02                  COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    46
        INITIALIZATION SUBROUTINES.                                   SCM                 SCM 
  
        4175         0000 
        4176         0000 
                                        * 001042                                                                 PCM      2046
                                        *CPA      DATA   0                                                       PCM      2047
        4177         0000                         VFD    60/0                                                    PCM      2048
        4200         0000 
        4201         0000 
        4202         0000 
        4203         0000 
                                        * 001043                                                                 PCM      2049
                                        *ED       DATA   0                                                       PCM      2050
        4204         0000                         VFD    60/0                                                    PCM      2051
        4205         0000 
        4206         0000 
        4207         0000 
        4210         0000 
                                        * 001044                                                                 PCM      2052
                                        *AD       DATA   0                                                       PCM      2053
        4211         0000                         VFD    60/0                                                    PCM      2054
        4212         0000 
        4213         0000 
        4214         0000 
        4215         0000 
                                        * 001045                                                                 PCM      2055
                                        *DD       DATA   0                                                       PCM      2056
        4216         0000                         VFD    60/0                                                    PCM      2057
        4217         0000 
        4220         0000 
        4221         0000 
        4222         0000 
                                  36     IDLPLL   EQU    *-IDLP                                                  PCM      2058
                                   6     IDLPL    EQU    IDLPLL/5                                                PCM      2059
        4223                             MTP      BSS    0                                                       PCM      2060
                                        * 001060                                                                 PCM      2061
                                        *         SA1    ED          EXPECTED DATA                               PCM      2062
                                        *         SB2    A0          FIELD LENGTH                                PCM      2063
                                        *         BX6    X1                                                      PCM      2064
        4223         5110                         VFD    60/51100010436420010611                                 PCM      2065
        4224         0010 
        4225         4364 
        4226         2001 
        4227         0611 
                                        * 001061                                                                 PCM      2066
                                        *LOOP     SB3    IXPA                                                    PCM      2067
                                        *         SA7    CPA                                                     PCM      2068
        4230         6130                         VFD    60/61300010005170001042                                 PCM      2069
        4231         0010 
        4232         0051 
        4233         7000 
        4234         1042 
                                        * 001062                                                                 PCM      2070
                                        *LOOP1    SB4    B1          FIRST WORD ADDRESS                          PCM      2071
                                        *         SX7    B4                                                      PCM      2072
                                        *         SA7    A7                                                      PCM      2073
        4235         6641                         VFD    60/66410767405477046000                                 PCM      2074
        4236         0767 
        4237         4054 
1       PCM         CTI PRESET COMPUTER MEMORY - A02                  COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    47
        INITIALIZATION SUBROUTINES.                                   SCM                 SCM 
  
        4240         7704 
        4241         6000 
                                        * 001063                                                                 PCM      2075
                                        *LOOP2    SA6    B4          SET DATA                                    PCM      2076
                                        *         SB4    B4+B1                                                   PCM      2077
                                        *         SX7    B4                                                      PCM      2078
                                        *         SA7    A7          SET CURRENT ADDRESS                         PCM      2079
        4242         5664                         VFD    60/56640664417674054770                                 PCM      2080
        4243         0664 
        4244         4176 
        4245         7405 
        4246         4770 
                                        * 001064                                                                 PCM      2081
                                        *         NE     B4,B3,LOOP2 IF LOW CORE NOT COMPLETE                    PCM      2082
                                        *         SB4    END                                                     PCM      2083
        4247         0543                         VFD    60/05430010636140001113                                 PCM      2084
        4250         0010 
        4251         6361 
        4252         4000 
        4253         1113 
                                        * 001065                                                                 PCM      2085
                                        *         SX7    B4                                                      PCM      2086
                                        *         SA7    A7                                                      PCM      2087
                                        *         SB6    3                                                       PCM      2088
        4254         7674                         VFD    60/76740547706160000003                                 PCM      2089
        4255         0547 
        4256         7061 
        4257         6000 
        4260         0003 
                                        * 001066                                                                 PCM      2090
                                        *LOOP3    SA6    B4                                                      PCM      2091
                                        *         SB4    B4+B1                                                   PCM      2092
                                        *         SX7    B4                                                      PCM      2093
                                        *         SA7    A7                                                      PCM      2094
        4261         5664                         VFD    60/56640664417674054770                                 PCM      2095
        4262         0664 
        4263         4176 
        4264         7405 
        4265         4770 
                                        * 001067                                                                 PCM      2096
                                        *LOOP4    NE     B4,B2,LOOP3 IF UPPER CORE NOT COMPLETE                  PCM      2097
                                        *         SB4    B1                                                      PCM      2098
                                        *         SX7    B4                                                      PCM      2099
        4266         0524                         VFD    60/05240010666641076740                                 PCM      2100
        4267         0010 
        4270         6666 
        4271         4107 
        4272         6740 
                                        * 001070                                                                 PCM      2101
                                        *         SA7    A7                                                      PCM      2102
        4273         5477                         VFD    60/54770460006100046000                                 PCM      2103
        4274         0460 
        4275         0061 
        4276         0004 
        4277         6000 
                                        * 001071                                                                 PCM      2104
                                        *LOOP5    SA1    B4          READ DATA                                   PCM      2105
1       PCM         CTI PRESET COMPUTER MEMORY - A02                  COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    48
        INITIALIZATION SUBROUTINES.                                   SCM                 SCM 
  
                                        *         BX7    X1-X6                                                   PCM      2106
                                        *         SA7    A7+B6       SET DIFFERENCE                              PCM      2107
        4300         5614                         VFD    60/56140137165477646000                                 PCM      2108
        4301         0137 
        4302         1654 
        4303         7764 
        4304         6000 
                                        * 001072                                                                 PCM      2109
                                        *         ZR     X7,LOOP6    IF DATA CORRECT                             PCM      2110
                                        *         BX7    X1                                                      PCM      2111
                                        *         SA7    A7-B1       SET ACTUAL DATA                             PCM      2112
        4305         0307                         VFD    60/03070010751071155771                                 PCM      2113
        4306         0010 
        4307         7510 
        4310         7115 
        4311         5771 
                                        * 001073                                                                 PCM      2114
                                        *         SX7    B1                                                      PCM      2115
                                        *         SA7    A7-B6       SET COMPLETE                                PCM      2116
        4312         7671                         VFD    60/76710557766100046000                                 PCM      2117
        4313         0557 
        4314         7661 
        4315         0004 
        4316         6000 
                                        * 001074                                                                 PCM      2118
                                        *         EQ     0           HANG CPU                                    PCM      2119
        4317         0400                IDLE1    VFD    60/04000000004600046000                                 PCM      2120
        4320         0000 
        4321         0046 
        4322         0004 
        4323         6000 
                                        * 001075                                                                 PCM      2121
                                        *LOOP6    SB4    B4+B1       INCREMENT ADDRESS                           PCM      2122
                                        *         SX7    B4                                                      PCM      2123
                                        *         SA7    A7-B6                                                   PCM      2124
        4324         6644                         VFD    60/66441767405577646000                                 PCM      2125
        4325         1767 
        4326         4055 
        4327         7764 
        4330         6000 
                                        * 001076                                                                 PCM      2126
                                        *         NE     B3,B4,LOOP5  IF LOW CORE NOT COMPLETE                   PCM      2127
                                        *         SB4    END                                                     PCM      2128
        4331         0534                         VFD    60/05340010716140001113                                 PCM      2129
        4332         0010 
        4333         7161 
        4334         4000 
        4335         1113 
                                        * 001077                                                                 PCM      2130
                                        *         SX7    B4                                                      PCM      2131
                                        *         SA7    A7                                                      PCM      2132
        4336         7674                         VFD    60/76740547706100046000                                 PCM      2133
        4337         0547 
        4340         7061 
        4341         0004 
        4342         6000 
                                        * 001100                                                                 PCM      2134
1       PCM         CTI PRESET COMPUTER MEMORY - A02                  COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    49
        INITIALIZATION SUBROUTINES.                                   SCM                 SCM 
  
                                        *LOOP7    SA1    B4          READ DATA                                   PCM      2135
                                        *         BX7    X1-X6                                                   PCM      2136
                                        *         SA7    A7+B6                                                   PCM      2137
        4343         5614                         VFD    60/56140137165477646000                                 PCM      2138
        4344         0137 
        4345         1654 
        4346         7764 
        4347         6000 
                                        * 001101                                                                 PCM      2139
                                        *         ZR     X7,LOOP8    IF DATA CORRECT                             PCM      2140
                                        *         BX7    X1                                                      PCM      2141
                                        *         SA7    A7-B1       SET ACTUAL DATA                             PCM      2142
        4350         0307                         VFD    60/03070011041071155771                                 PCM      2143
        4351         0011 
        4352         0410 
        4353         7115 
        4354         5771 
                                        * 001102                                                                 PCM      2144
                                        *         SX7    B1                                                      PCM      2145
                                        *         SA7    A7-B6       SET COMPLETE                                PCM      2146
        4355         7671                         VFD    60/76710557766100046000                                 PCM      2147
        4356         0557 
        4357         7661 
        4360         0004 
        4361         6000 
                                        * 001103                                                                 PCM      2148
                                        *         EQ     0           HANG CPU                                    PCM      2149
        4362         0400                IDLE2    VFD    60/04000000004600046000                                 PCM      2150
        4363         0000 
        4364         0046 
        4365         0004 
        4366         6000 
                                        * 001104                                                                 PCM      2151
                                        *LOOP8    SB4    B4+B1                                                   PCM      2152
                                        *         SX7    B4                                                      PCM      2153
                                        *         SA7    A7-B6                                                   PCM      2154
        4367         6644                         VFD    60/66441767405577646000                                 PCM      2155
        4370         1767 
        4371         4055 
        4372         7764 
        4373         6000 
                                        * 001105                                                                 PCM      2156
                                        *         NE     B4,B2,LOOP7 IF UPPER NOT COMPLETE                       PCM      2157
                                        *         SB5    B5+B1                                                   PCM      2158
                                        *         SX3    B5                                                      PCM      2159
        4374         0524                         VFD    60/05240011006655176350                                 PCM      2160
        4375         0011 
        4376         0066 
        4377         5517 
        4400         6350 
                                        * 001106                                                                 PCM      2161
                                        *         LX3    59                                                      PCM      2162
                                        *         NG     X3,LOOP4    IF RESTORE NOT CHECKED                      PCM      2163
                                        *         LX3    59                                                      PCM      2164
        4401         2037                         VFD    60/20373033300106720373                                 PCM      2165
        4402         3033 
        4403         3001 
1       PCM         CTI PRESET COMPUTER MEMORY - A02                  COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    50
        INITIALIZATION SUBROUTINES.                                   SCM                 SCM 
  
        4404         0672 
        4405         0373 
                                        * 001107                                                                 PCM      2166
                                        *         PL     X3,LOOP9    IF CHECK COMPLETE                           PCM      2167
                                        *         BX6    -X6                                                     PCM      2168
                                        *         SA6    A7+B1                                                   PCM      2169
        4406         0323                         VFD    60/03230011111466654671                                 PCM      2170
        4407         0011 
        4410         1114 
        4411         6665 
        4412         4671 
                                        * 001110                                                                 PCM      2171
                                        *         EQ     LOOP        CHECK COMPLEMENT                            PCM      2172
        4413         0400                         VFD    60/04000010614600046000                                 PCM      2173
        4414         0010 
        4415         6146 
        4416         0004 
        4417         6000 
                                        * 001111                                                                 PCM      2174
                                        *LOOP9    SX7    B1                                                      PCM      2175
                                        *         SA7    A7-B1       SET COMPLETE                                PCM      2176
        4420         7671                         VFD    60/76710557716100046000                                 PCM      2177
        4421         0557 
        4422         7161 
        4423         0004 
        4424         6000 
                                        * 001112                                                                 PCM      2178
                                        *         EQ     0           HANG CPU                                    PCM      2179
        4425         0400                IDLE3    VFD    60/04000000004600046000                                 PCM      2180
        4426         0000 
        4427         0046 
        4430         0004 
        4431         6000 
                                        * 001113                                                                 PCM      2181
                                 207     MTPLL    EQU    *-MTP                                                   PCM      2182
                                  33     MTPL     EQU    MTPLL/5                                                 PCM      2183
                                                  QUAL   *                                                       PCM      2184
1       PCM         CTI PRESET COMPUTER MEMORY - A02                  COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    51
        PP RESIDENT IDLE LOOP.                                        IDLE
  
                                        *         IDLE  -  PPU RESIDENT CHECK PROGRAM.                           PCM      2188
                                                                                                                 PCM      2189
                                                                                                                 PCM      2190
        4432                             IDLE     BSS    0                                                       PCM      2191
                                                  QUAL   IDLE                                                    PCM      2192
                                                                                                                 PCM      2193
                                                                                                                 PCM      2194
                                        *         DIRECT LOCATION ASSIGNMENTS.                                   PCM      2195
                                                                                                                 PCM      2196
                                                                                                                 PCM      2197
      L    0                                      LOC    0                                                       PCM      2198
                                                                                                                 PCM      2199
      L    0         0107                T0       CON    IDL2-1                                                  PCM      2200
      L    1         0000                T1       CON    0                                                       PCM      2201
      L    2         0000                T2       CON    0                                                       PCM      2202
      L    3         0000                T3       CON    0                                                       PCM      2203
      L    4         0000                T4       CON    0                                                       PCM      2204
      L    5         0000                T5       CON    0                                                       PCM      2205
      L    6         0000                T6       CON    0                                                       PCM      2206
      L    7         0000                T7       CON    0                                                       PCM      2207
      L   10         0000                RF       CON    0           PPU ACTIVE FLAG                             PCM      2208
      L   11         0000                WD       CON    0           CURRENT TEST ADDRESS                        PCM      2209
      L   12         0000                ED       CON    0           EXPECTED DATA                               PCM      2210
      L   13         0000                AD       CON    0           ACTUAL DATA                                 PCM      2211
      L   14         0000                DD       CON    0           LOGICAL DIFFERENCE OF ED AND AD             PCM      2212
      L   15                      63              BSSZ   100-*                                                   PCM      2213
  
  
  
  
                                        **        IDL  -  MEMORY CHECK IDLE LOOP.                                PCM      2215
                                                                                                                 PCM      2216
                                                                                                                 PCM      2217
      L  100         6500 0112           IDL1     IJM    IDLX,**     IF NO NEW DATA                              PCM      2218
                                                                                                                 PCM      2219
      L  102         6700 0112                    EJM    IDLX,**     IF DATA NOT AVAILABLE                       PCM      2220
                                                                                                                 PCM      2221
      L  104         7000                         IAN    **                                                      PCM      2222
      L  105         0405                         ZJN    IDLX        IF INVALID DATA                             PCM      2223
                                                                                                                 PCM      2224
      L  106         5400 0111                    STM    IDLA                                                    PCM      2225
      L  110         0200 0154           IDL2     RJM    CPM         EXECUTE FUNCTION                            PCM      2226
                                 111     IDLA     EQU    *-1                                                     PCM      2227
                                                                                                                 PCM      2228
      L  112         0100 0100           IDLX     LJM    IDL1        CHECK FOR NEW REQUEST                       PCM      2229
                                 113     IDL      EQU    *-1                                                     PCM      2230
                                                                                                                 PCM      2231
      L  114         0363                         UJN    IDL1                                                    PCM      2232
                                                                                                                 PCM      2233
                                                                                                                 PCM      2234
                                        **        XIDL - EXIT TO IDLE LOOP.                                      PCM      2235
                                                                                                                 PCM      2236
                                                                                                                 PCM      2237
      L  115         2000 0100           XIDL     LDC    IDL1        PREVENT RETURN TO CALLING ROUTINE           PCM      2238
      L  117         5400 0113                    STM    IDL                                                     PCM      2239
      L  121         3410                         STD    RF          SET RUN COMPLETE                            PCM      2240
      L  122         0367                         UJN    IDLX                                                    PCM      2241
1       PCM         CTI PRESET COMPUTER MEMORY - A02                  COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    52
        PP RESIDENT IDLE LOOP.                                        IDL                 IDLE
  
                                                                                                                 PCM      2242
                                                                                                                 PCM      2243
                                        **        STR  -  STATUS REQUEST.                                        PCM      2244
                                                                                                                 PCM      2245
      L  123         0100 0123           STR      SUBR               ENTRY/EXIT                                  PCM      2246
      L  125         1405                         LDN    5           DELAY                                       PCM      2247
      L  126         1701                         SBN    1                                                       PCM      2248
      L  127         0576                         NJN    *-1         DELAY                                       PCM      2249
      L  130         3011                         LDD    WD                                                      PCM      2250
      L  131         7200                         OAN    **                                                      PCM      2251
      L  132         3010                         LDD    RF                                                      PCM      2252
      L  133         7200                         OAN    **                                                      PCM      2253
      L  134         3012                         LDD    ED                                                      PCM      2254
      L  135         7200                         OAN    **                                                      PCM      2255
      L  136         3013                         LDD    AD                                                      PCM      2256
      L  137         7200                         OAN    **                                                      PCM      2257
      L  140         3014                         LDD    DD                                                      PCM      2258
      L  141         7200                         OAN    **                                                      PCM      2259
      L  142         6600 0142                    FJM    *,**        IF DATA NOT ACCEPTED                        PCM      2260
      L  144         7500                         DCN    **                                                      PCM      2261
      L  145         0355                         UJN    STRX        RETURN                                      PCM      2262
                                                                                                                 PCM      2263
                                                                                                                 PCM      2264
                                        **        RDS - RESET DEAD START STATUS.                                 PCM      2265
                                                                                                                 PCM      2266
                                                                                                                 PCM      2267
      L  146         0100 0146           RDS      SUBR               ENTRY/EXIT                                  PCM      2268
      L  150         1500                         LCN    0                                                       PCM      2269
      L  151         7100 0000           RDSA     IAM    0,**                                                    PCM      2270
                                                                                                                 PCM      2271
                                                                                                                 PCM      2272
                                        **        CPM - CHECK PP MEMORY.                                         PCM      2273
                                                                                                                 PCM      2274
                                                                                                                 PCM      2275
      L  153         0100 0153           CPM      SUBR               ENTRY/EXIT                                  PCM      2276
      L  155         3012                CPM1     LDD    ED          INVERT DATA                                 PCM      2277
      L  156         2300 7777                    LMC    7777                                                    PCM      2278
      L  160         3412                         STD    ED                                                      PCM      2279
      L  161         1415                         LDN    DD+1                                                    PCM      2280
      L  162         3411                         STD    WD                                                      PCM      2281
      L  163         0200 0113           CPM2     RJM    IDL         CHECK FOR REQUEST                           DIMA331     1
      L  165         3012                         LDD    ED          PRESET DATA                                 DIMA331     2
      L  166         4411                         STI    WD                                                      PCM      2283
      L  167         3611                         AOD    WD                                                      PCM      2284
      L  170         2300 0100                    LMC    IDL1                                                    PCM      2285
      L  172         0570                         NJN    CPM2        IF NOT COMPLETE                             PCM      2286
      L  173         2000 0253                    LDC    END                                                     PCM      2287
      L  175         3411                         STD    WD                                                      PCM      2288
      L  176         0200 0113           CPM3     RJM    IDL         CHECK FOR REQUEST                           PCM      2289
      L  200         3012                         LDD    ED                                                      PCM      2290
      L  201         4411                         STI    WD                                                      PCM      2291
      L  202         3611                         AOD    WD                                                      PCM      2292
      L  203         2301 0000                    LMC    10000                                                   PCM      2293
      L  205         0570                         NJN    CPM3        IF NOT COMPLETE                             PCM      2294
      L  206         1415                         LDN    DD+1        RESET DIRECT LOCATIONS                      PCM      2295
      L  207         3411                         STD    WD                                                      PCM      2296
      L  210         0200 0113           CPM4     RJM    IDL         CHECK FOR NEW REQUEST                       PCM      2297
1       PCM         CTI PRESET COMPUTER MEMORY - A02                  COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    53
        PP RESIDENT IDLE LOOP.                                        IDL                 IDLE
  
      L  212         4011                         LDI    WD          CHECK DATA IN MEMORY                        PCM      2298
      L  213         3413                         STD    AD                                                      PCM      2299
      L  214         3312                         LMD    ED                                                      PCM      2300
      L  215         3414                         STD    DD                                                      PCM      2301
      L  216         0506                         NJN    CPM5        IF DATA ERROR                               PCM      2302
      L  217         3611                         AOD    WD                                                      PCM      2303
      L  220         2300 0100                    LMC    IDL1                                                    PCM      2304
      L  222         0565                         NJN    CPM4        IF NOT COMPLETE                             PCM      2305
      L  223         0303                         UJN    CPM6                                                    PCM      2306
                                                                                                                 PCM      2307
      L  224         0100 0115           CPM5     LJM    XIDL        END OF ATTEMPT TO VALIDATE MEMORY           PCM      2308
                                                                                                                 PCM      2309
      L  226         2000 0253           CPM6     LDC    END                                                     PCM      2310
      L  230         3411                         STD    WD                                                      PCM      2311
      L  231         0200 0113           CPM7     RJM    IDL         CHECK FOR NEW REQUEST                       PCM      2312
      L  233         4011                         LDI    WD          CHECK MEMORY DATA                           PCM      2313
      L  234         3413                         STD    AD                                                      PCM      2314
      L  235         3312                         LMD    ED                                                      PCM      2315
      L  236         3414                         STD    DD                                                      PCM      2316
      L  237         0564                         NJN    CPM5        IF DATA ERROR                               PCM      2317
      L  240         3611                         AOD    WD                                                      PCM      2318
      L  241         2301 0000                    LMC    10000                                                   PCM      2319
      L  243         0565                         NJN    CPM7        IF NOT COMPLETE                             PCM      2320
      L  244         3012                         LDD    ED                                                      PCM      2321
      L  245         2300 7777                    LMC    7777                                                    PCM      2322
      L  247         0502                         NJN    CPM8        IF NOT COMPLETE                             PCM      2323
      L  250         0353                         UJN    CPM5                                                    PCM      2324
                                                                                                                 PCM      2325
      L  251         0100 0155           CPM8     LJM    CPM1                                                    PCM      2326
                                                                                                                 PCM      2327
                                                                                                                 PCM      2328
                                        *         FWA OF DATA CHECK AREA.                                        PCM      2329
                                                                                                                 PCM      2330
                                                                                                                 PCM      2331
      L  253                             END      BSS    0                                                       PCM      2332
        4705                                      LOC    *O                                                      PCM      2333
                                                  QUAL   *                                                       PCM      2334
                                4705     IDLEL    EQU    *                                                       PCM      2335
                                                                                                                 PCM      2336
                                                                                                                 PCM      2337
                                        *         OFFL - PP OFF LOOP.                                            PCM      2338
                                                                                                                 PCM      2339
                                                                                                                 PCM      2340
        4705                             OFFL     BSS    0                                                       PCM      2341
      L    0                                      LOC    0                                                       PCM      2342
      L    0         0000                         CON    0                                                       PCM      2343
      L    1         0300                         UJN    *                                                       PCM      2344
        4707                                      LOC    *O                                                      PCM      2345
                                4707     OFFLL    EQU    *                                                       PCM      2346
                                                                                                                 PCM      2347
                                                                                                                 PCM      2348
                                        *         PPU IDLE LOOP CHANNEL RELOCATION TABLE.                        PCM      2349
                                                                                                                 PCM      2350
                                                                                                                 PCM      2351
        4707                             ICHS     BSS    0                                                       PCM      2352
                                                  QUAL   IDLE                                                    PCM      2353
        4707                                      CHTB               PP RESIDENT CHANNEL INSTRUCTIONS            PCM      2354
1       PCM         CTI PRESET COMPUTER MEMORY - A02                  COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    54
        PP RESIDENT IDLE LOOP.                                        IDL 
  
                                                  QUAL   *                                                       PCM      2355
                                  14     ICHSL    EQU    *-ICHS                                                  PCM      2356
                                                                                                                 PCM      2357
1       PCM/SCE - STATUS/CONTROL REGISTER ERROR PROCESSOR.            COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    55
  
  
                                                  IDENT  SCE,OVL                                                 PCM      2360
        3456                                      ORG    OVL                                                     PCM      2361
                                                  LIST   X                                                       PCM      2362
                                         VERID    MICRO  1,,*A02*                                                *A02*       1
                                         VERS     MICRO  1,,*"VERID"*                                       VERS VERS        3
1       PCM/SCE - STATUS/CONTROL REGISTER ERROR PROCESSOR.            COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    56
        PCM           SCE - A02 
  
                                                  COMMENT PCM OVERLAY                                            DIMA394     3
                                                  COMMENT CTI PCM OVERLAY                                        DIMA317N    9
                                                  COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1979               DIMA317N   10
  
  
                                        *         ALL RIGHTS RESERVED                                            CDCCRN      3
                                        *                                                                        CDCCRN      4
                                        *         CONTAINED HEREIN ARE SOFTWARE PRODUCTS COPYRIGHTED             CDCCRN      5
                                        *         BY CONTROL DATA CORPORATION.  REPRODUCTION WITHOUT             CDCCRN      6
                                        *         PERMISSION IS PROHIBITED.  THE COPYRIGHT NOTICE                CDCCRN      7
                                        *         MUST APPEAR ON ALL AUTHORIZED COMPLETE OR                      CDCCRN      8
                                        *         PARTIAL COPIES.                                                CDCCRN      9
                                        *                                                                        CDCCRN     10
1       PCM/SCE - STATUS/CONTROL REGISTER ERROR PROCESSOR.            COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    57
        COMPSCE - STATUS/CONTROL REGISTER ERROR PROCESSOR.
  
        3456                                      CTEXT  COMPSCE - STATUS/CONTROL REGISTER ERROR PROCESSOR.      COMPSCE     2
  
  
  
  
                                                  IF     -DEF,QUAL$,1                                            COMPSCE     4
                                                  QUAL   COMPSCE                                                 COMPSCE     5
                                                  COMMENT COPYRIGHT CONTROL DATA CORP. 1975.                     COMPSCE     6
  
  
  
  
                                        ***       SCE - STATUS/CONTROL REGISTER ERROR PROCESSOR.                 COMPSCE     8
                                        *         A. J. BEEKMAN.     75/01/01.                                   COMPSCE     9
  
  
  
  
                                        ***       COMPSCE CHECKS THE S/C REGISTER(S) FOR STATUS BITS THAT ARE    COMPSCE    11
                                        *         SET.  WHEN A SET STATUS BIT IS FOUND, THE APPROPRIATE          COMPSCE    12
                                        *         EXPLANATION OF THE ERROR IS ENTERED IN A BUFFER WHOSE          COMPSCE    13
                                        *         BEGINNING AND ENDING ADDRESSES ARE SPECIFIED BY THE            COMPSCE    14
                                        *         CALLING PROGRAM.  THE BEGINNING ADDRESS OF THE EXPLANATION     COMPSCE    15
                                        *         IS ENTERED IN TABLE TEMA (TABLE OF ERROR MESSAGE ADDRESSES).   COMPSCE    16
                                        *         TABLE TEMA HAS THE FOLLOWING FORMAT -                          COMPSCE    17
                                        *                                                                        COMPSCE    18
                                        *  TEMA   12/ ADDR 1                                                     COMPSCE    19
                                        *         12/ ADDR 2                                                     COMPSCE    20
                                        *         12/  .                                                         COMPSCE    21
                                        *         12/  .                                                         COMPSCE    22
                                        *         12/  .                                                         COMPSCE    23
                                        *         12/ ADDR N                                                     COMPSCE    24
                                        *         12/  0                                                         COMPSCE    25
                                        *                                                                        COMPSCE    26
                                        *         WHERE  N IS THE TOTAL NUMBER OF STATUS BITS SET IN THE         COMPSCE    27
                                        *                  S/C REGISTER(S),                                      COMPSCE    28
                                        *                ADDR 1 - ADDR N ARE FIRST WORD ADDRESSES OF ERROR       COMPSCE    29
                                        *                  MESSAGES IN THE EXPLANATION BUFFER (ADDR 1 IS         COMPSCE    30
                                        *                  THE FIRST WORD ADDRESS OF THE EXPLANATION BUFFER).    COMPSCE    31
                                        *                                                                        COMPSCE    32
                                        *         WHEN ALL THE STATUS BITS ARE CHECKED, TABLE TEMA IS            COMPSCE    33
                                        *         TERMINATED BY A WORD OF ZEROS, AND THE LWA+1 OF THE FINAL      COMPSCE    34
                                        *         EXPLANATION IN THE EXPLANATION BUFFER IS PASSED BACK TO THE    COMPSCE    35
                                        *         CALLING PROGRAM.  THE FORMAT OF AN ENTRY IN THE EXPLANATION    COMPSCE    36
                                        *         BUFFER IS -                                                    COMPSCE    37
                                        *                                                                        COMPSCE    38
                                        *  ADDRX  6/ REG,6/                                                      COMPSCE    39
                                        *         12/ BIT NUM                                                    COMPSCE    40
                                        *         6/  ,6/ *-*                                                    COMPSCE    41
                                        *         12/ MESSAGE X                                                  COMPSCE    42
                                        *         12/   .                                                        COMPSCE    43
                                        *         12/   .                                                        COMPSCE    44
                                        *         12/   .                                                        COMPSCE    45
                                        *         12/   0                                                        COMPSCE    46
                                        *                                                                        COMPSCE    47
                                        *         WHERE  ADDRX = ADDRESS OF FIRST WORD OF ERROR MESSAGE,         COMPSCE    48
                                        *                REG = 0 IF CHANNEL 16 S/C REGISTER,                     COMPSCE    49
1       PCM/SCE - STATUS/CONTROL REGISTER ERROR PROCESSOR.            COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    58
        COMPSCE - STATUS/CONTROL REGISTER ERROR PROCESSOR.                                COMPSCE 
  
                                        *                    = 1 IF CHANNEL 36 S/C REGISTER,                     COMPSCE    50
                                        *                BIT NUM = STATUS BIT NUMBER,                            COMPSCE    51
                                        *                MESSAGE X = EXPLANATION OF ERROR.                       COMPSCE    52
                                        *                                                                        COMPSCE    53
                                        *         NOTES- 1) THIS COMMON DECK REQUIRES THAT THE CALLING           COMPSCE    54
                                        *                PROGRAM ALSO CALL COMMON DECK COMSSCR.                  COMPSCE    55
                                        *                                                                        COMPSCE    56
                                        *                2) TABLE TEMA MAY BE UP TO 81 WORDS IN LENGTH           COMPSCE    57
                                        *                (ONE WORD PER STATUS ERROR BIT PLUS WORD OF ZEROS)      COMPSCE    58
                                        *                IF TWO S/C REGISTERS EXIST.  IT IS UP TO THE            COMPSCE    59
                                        *                CALLING PROGRAM TO RESERVE ENOUGH SPACE                 COMPSCE    60
                                        *                FOR THIS TABLE.                                         COMPSCE    61
                                        *                FOLLOWING THE COMMON DECK FOR THIS TABLE.               COMPSCE    62
                                        *                                                                        COMPSCE    63
                                        *         ENTRY  (A) = FWA OF ERROR MESSAGE BUFFER.                      COMPSCE    64
                                        *                (TE) = MESSAGE ADDRESS TABLE (TEMA) ADDRESS.            COMPSCE    65
                                        *                (LW) = LENGTH OF ERROR MESSAGE BUFFER.                  COMPSCE    66
                                        *                (/CPA/OPTN) = HDT OPTION WORD.                          COMPSCE    67
                                        *                                                                        COMPSCE    68
                                        *         EXIT   (FW) = LWA+1 OF FINAL ERROR MESSAGE IN BUFFER.          COMPSCE    69
                                        *                (TE) = ADDRESS OF ZERO WORD IN TABLE TEMA.              COMPSCE    70
                                        *                IF MESSAGE BUFFER FILLS BEFORE ALL STATUS BITS ARE      COMPSCE    71
                                        *                CHECKED, (FW) = LWA+1 OF FINAL ERROR MESSAGE THAT       COMPSCE    72
                                        *                FITS ENTIRELY INTO THE BUFFER.                          COMPSCE    73
                                        *                                                                        COMPSCE    74
                                        *         USES   C1,C2,AM,BT,BW,CB,FW,LW,RW,TE,WC,CT.                    DIMA299     1
                                                                                                                 COMPSCE    76
                                                                                                                 COMPSCE    77
                                        *         INSTRUCTIONS USED AS CONSTANTS.                                COMPSCE    78
                                                                                                                 COMPSCE    79
                                                                                                                 COMPSCE    80
                                1000     SHNI     EQU    1000        SHN INSTRUCTION                             COMPSCE    81
                                1200     LPNI     EQU    1200        LPN INSTRUCTION                             COMPSCE    82
                                1400     LDNI     EQU    1400        LDN INSTRUCTION                             COMPSCE    83
                                1500     LCNI     EQU    1500        LCN INSTRUCTION                             COMPSCE    84
                                7000     IANI     EQU    7000        IAN INSTRUCTION                             COMPSCE    85
                                7200     OANI     EQU    7200        OAN INSTRUCTION                             COMPSCE    86
                                                                                                                 COMPSCE    87
                                                                                                                 COMPSCE    88
                                        *         ASSEMBLY CONSTANTS.                                            COMPSCE    89
                                                                                                                 COMPSCE    90
                                                                                                                 COMPSCE    91
                                  47     UBIT     EQU    47          BIT NUMBER OF A CHANNEL 16 BIT NOT IN USE   COMPSCE    92
  
  
  
  
        3456         0100 3456           SCE      SUBR               ENTRY/EXIT                                  COMPSCE    94
        3460         3462                         STD    FW          SAVE FWA OF MESSAGE BUFFER                  COMPSCE    95
        3461         3563                         RAD    LW          CALCULATE LWA+1 OF BUFFER                   COMPSCE    96
                                                                                                                 COMPSCE    97
                                        *         SET *TUBT* AND *TNUB* FOR CY176, 176B, AND 17X MODEL D.        DIMA299     2
        3462         1401                         LDN    1                                                       DIMA299     3
        3463         3473                         STD    CT          INITIALIZE NOT USED BIT TABLE FLAG          DIMA299     4
        3464         2000 3124                    LDC    FCTC+PPCT   TEST AND CLEAR BIT 84D                      DIMA299     5
        3466         7256                         OAN.   CHSC+40B                                                DIMA299     6
        3467         7056                         IAN.   CHSC+40B                                                DIMA299     7
1       PCM/SCE - STATUS/CONTROL REGISTER ERROR PROCESSOR.            COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    59
        COMPSCE - STATUS/CONTROL REGISTER ERROR PROCESSOR.                                COMPSCE 
  
        3470         0425                         ZJN    SCE1.2      NOT MODEL B OR D                            DIMA299     8
        3471         2000 1124                    LDC    FCTB+PPCT   TEST BIT 84D                                DIMA299     9
        3473         7256                         OAN.   CHSC+40B                                                DIMA299    10
        3474         7056                         IAN.   CHSC+40B                                                DIMA299    11
        3475         0414                         ZJN    SCE1.1      NOT MODEL B OR D, WAS IN 2X SPEED           DIMA299    12
        3476         1460                         LDN    60B                                                     DIMA299    13
        3477         5500 4300                    RAM    TNUB        SET NOT USED BITS FOR MODEL B OR D          DIMA299    14
        3501         1400                         LDN    0                                                       DIMA299    15
        3502         3473                         STD    CT          CLEAR NOT USED BIT TABLE FLAG               DIMA299    16
        3503         5400 4304                    STM    TUBT        CLEAR USED BITS IN TABLE * TUBT *           DIMA299    17
        3505         2000 1400                    LDC    LDNI                                                    DIMA299    18
        3507         5400 3522                    STM    SCE1.3      CLEAR CH36 USED BITS                        DIMA299    19
        3511         2000 4124           SCE1.1   LDC    FCSB+PPCT   SET BIT 84D                                 DIMA299    20
        3513         7256                         OAN.   CHSC+40B                                                DIMA299    21
        3514         7056                         IAN.   CHSC+40B                                                DIMA299    22
        3515         5000 7673           SCE1.2   LDM    /CPA/OPTN   CHECK FOR CYBER 176                         DIMA299    23
        3517         1066                         SHN    -11B                                                    DIMA299    24
        3520         1203                         LPN    3                                                       DIMA299    25
        3521         0427                         ZJN    SCE1.4      IF NOT A CYBER 176                          DIMA299    26
        3522         1460                SCE1.3   LDN    60B         SET USED BITS IN TABLE * TUBT *             DIMA299    27
                                        *         LDN    0           * MODIFIED FOR MODEL B *                    DIMA299    28
        3523         5400 4304                    STM    TUBT                                                    COMPSCE   105
        3525         1400                         LDN    0           CLEAR NOT USED BIT TABLE FLAG               DIMA299    29
        3526         3473                         STD    CT                                                      DIMA299    30
        3527         2000 1777                    LDC    1777                                                    COMPSCE   106
        3531         5400 4305                    STM    TUBT+1                                                  COMPSCE   107
        3533         2000 4520                    LDC    PPEM        SET *PPU ERROR* FOR FLPP-S                  COMPSCE   108
        3535         5400 4320                    STM    TEMF+TEMFA                                              COMPSCE   109
        3537         2000 4466                    LDC    LSEM        SET *LCM SECDED* ERROR                      COMPSCE   110
        3541         5400 4336                    STM    TEMF+TEMFB                                              COMPSCE   111
        3543         2000 4000                    LDC    4000                                                    COMPSCE   112
        3545         5400 4337                    STM    TEMF+TEMFB+1                                            COMPSCE   113
        3547         0307                         UJN    SCE1                                                    DIMA299    31
        3550         3073                SCE1.4   LDD    CT                                                      DIMA299    32
        3551         0505                         NJN    SCE1        IF NOT MODEL D                              DIMA299    33
        3552         2000 1274                    LDC    1274B                                                   DIMA299    34
        3554         5400 4300                    STM    TNUB                                                    DIMA299    35
                                                                                                                 COMPSCE   114
                                        *         SET CHANNEL 16 IF NECESSARY.                                   COMPSCE   115
                                                                                                                 COMPSCE   116
        3556         5000 3574           SCE1     LDM    SCEA        CHECK PRESENT CHANNEL                       COMPSCE   117
        3560         1220                         LPN    20                                                      COMPSCE   118
        3561         0404                         ZJN    SCE2        IF CHANNEL 16                               COMPSCE   119
        3562         1416                         LDN    16                                                      COMPSCE   120
        3563         0200 4235                    RJM    CGC         CHANGE CHANNELS                             COMPSCE   121
        3565         1400                SCE2     LDN    0           SET ORIGINAL BIT NUMBER                     COMPSCE   122
        3566         3466                         STD    BT                                                      COMPSCE   123
        3567         1400                         LDN    FCRD        READ WORD CODE                              COMPSCE   124
        3570         3472                         STD    RW                                                      COMPSCE   125
                                                                                                                 COMPSCE   126
                                        *         READ WORD FROM STATUS/CONTROL REGISTER.                        COMPSCE   127
                                                                                                                 COMPSCE   128
        3571         1400                SCE3     LDN    0           SET BIT NUMBER WITHIN WORD                  COMPSCE   129
        3572         3467                         STD    BW                                                      COMPSCE   130
        3573         3072                         LDD    RW          READ WORD CODE                              COMPSCE   131
        3574         7256                SCEA     OAN.   CHSC+40                                                 COMPSCE   132
                                        *         OAN.   CHSC+40+20  (IF CHANNEL 36 CALL)                        COMPSCE   133
1       PCM/SCE - STATUS/CONTROL REGISTER ERROR PROCESSOR.            COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    60
        COMPSCE - STATUS/CONTROL REGISTER ERROR PROCESSOR.                                COMPSCE 
  
        3575         7056                SCEB     IAN.   CHSC+40                                                 COMPSCE   134
                                        *         IAN.   CHSC+40+20  (IF CHANNEL 36 CALL)                        COMPSCE   135
        3576         3471                         STD    WC                                                      COMPSCE   136
        3577         0510                         NJN    SCE5        IF STATUS BITS SET IN WORD                  COMPSCE   137
        3600         3672                SCE4     AOD    RW          SET NEXT WORD                               COMPSCE   138
        3601         1414                         LDN    14          SET BIT NUMBER                              COMPSCE   139
        3602         3566                         RAD    BT                                                      COMPSCE   140
        3603         1750                         SBN    NTEB                                                    COMPSCE   141
        3604         0764                         MJN    SCE3        IF NOT ALL STATUS BITS CHECKED              COMPSCE   142
        3605         0100 4215                    LJM    SCE32       JUMP IF NO SET STATUS BITS IN WORD 4        COMPSCE   143
                                                                                                                 COMPSCE   144
                                        *         CHECK FOR SET STATUS BITS IN WORD.                             COMPSCE   145
                                                                                                                 COMPSCE   146
        3607         3071                SCE5     LDD    WC          GET NEXT BIT                                COMPSCE   147
        3610         1021                         SHN    21-0                                                    COMPSCE   148
        3611         3471                         STD    WC                                                      COMPSCE   149
        3612         0705                         MJN    SCE7        IF BIT SET                                  COMPSCE   150
        3613         3667                SCE6     AOD    BW          SET NEXT BIT IN WORD                        COMPSCE   151
        3614         1714                         SBN    14                                                      COMPSCE   152
        3615         0771                         MJN    SCE5        IF NOT END OF WORD                          COMPSCE   153
        3616         0361                         UJN    SCE4        LOOP TO SET NEXT WORD                       COMPSCE   154
                                                                                                                 COMPSCE   155
                                        *         FIND ERROR MESSAGE FOR SET STATUS BIT.                         COMPSCE   156
                                                                                                                 COMPSCE   157
        3617         3066                SCE7     LDD    BT          SET CURRENT BIT NUMBER                      COMPSCE   158
        3620         3167                         ADD    BW                                                      COMPSCE   159
        3621         1750                         SBN    NTEB                                                    COMPSCE   160
        3622         0703                         MJN    SCE8        IF NOT ALL STATUS BITS CHECKED              COMPSCE   161
        3623         0100 4215                    LJM    SCE32       JUMP IF 4 BITS CHECKED IN WORD 4            COMPSCE   162
                                                                                                                 COMPSCE   163
        3625         1650                SCE8     ADN    NTEB                                                    COMPSCE   164
        3626         3470                         STD    CB                                                      COMPSCE   165
        3627         1001                         SHN    1                                                       COMPSCE   166
        3630         3460                         STD    C1                                                      COMPSCE   167
                                                                                                                 COMPSCE   168
                                        *         SET *NOT USED* FOR CYBER 176 AND CHANNEL 36 UNUSED BITS.       COMPSCE   169
                                                                                                                 COMPSCE   170
        3631         3067                         LDD    BW          SET UP SHIFT COUNT                          COMPSCE   171
        3632         1606                         ADN    6                                                       COMPSCE   172
        3633         2300 1000                    LMC    SHNI                                                    COMPSCE   173
        3635         5400 3656                    STM    SCEC                                                    COMPSCE   174
        3637         5400 3651                    STM    SCEF                                                    COMPSCE   175
        3641         5000 3574                    LDM    SCEA        CHECK CHANNEL                               COMPSCE   176
        3643         1220                         LPN    20                                                      COMPSCE   177
        3644         0510                         NJN    SCE9        IF NOT CHANNEL 16                           COMPSCE   178
        3645         3073                         LDD    CT                                                      DIMA299    36
        3646         0515                         NJN    SCE11       IF NO BITS HAVE CHANGED TO UNUSED           DIMA299    37
        3647         5072 4300                    LDM    TNUB,RW     READ NOT USED BIT MASK                      DIMA299    38
        3651         1006                SCEF     SHN    21-13       CHECK IF BIT NOT USED                       COMPSCE   184
                                        *         SHN    21-13+BIT   (BIT NUMBER *BIT* IN WORD)                  COMPSCE   185
        3652         0706                         MJN    SCE10       IF BIT NOT USED                             COMPSCE   186
        3653         0310                         UJN    SCE11       CHECK FOR INSERTION CODE                    COMPSCE   187
                                                                                                                 COMPSCE   188
        3654         5072 4304           SCE9     LDM    TUBT,RW     READ CHANNEL 36 USED BIT MASK               COMPSCE   189
        3656         1006                SCEC     SHN    21-13       CHECK IF BIT USED                           COMPSCE   190
                                        *         SHN    21-13+BIT   (IF BIT NUMBER *BIT*)                       COMPSCE   191
        3657         0704                         MJN    SCE11       IF BIT USED                                 COMPSCE   192
1       PCM/SCE - STATUS/CONTROL REGISTER ERROR PROCESSOR.            COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    61
        COMPSCE - STATUS/CONTROL REGISTER ERROR PROCESSOR.                                COMPSCE 
  
        3660         2000 0116           SCE10    LDC    UBIT*2      SET *NOT USED* MESSAGE                      COMPSCE   193
        3662         3460                         STD    C1                                                      COMPSCE   194
                                                                                                                 COMPSCE   195
                                        *         CHECK FOR CODE TO INSERT IN SKELETON MESSAGE.                  COMPSCE   196
                                                                                                                 COMPSCE   197
        3663         5060 4310           SCE11    LDM    TEMF,C1     READ ERROR MESSAGE ADDRESS                  COMPSCE   198
        3665         3464                         STD    AM                                                      COMPSCE   199
        3666         1701                         SBN    1           SET ADDRESS OF INSERTION CODE WORD NUMBER   COMPSCE   200
        3667         3461                         STD    C2                                                      COMPSCE   201
        3670         5060 4311                    LDM    TEMF+1,C1   CHECK FOR INSERTION CODE                    COMPSCE   202
        3672         3460                         STD    C1                                                      COMPSCE   203
        3673         1006                         SHN    6                                                       COMPSCE   204
        3674         0503                         NJN    SCE12       IF CODE                                     COMPSCE   205
        3675         0100 4125                    LJM    SCE24       PROCESS NORMAL MESSAGE                      COMPSCE   206
                                                                                                                 COMPSCE   207
        3677         0703                SCE12    MJN    SCE13       IF SPECIAL MESSAGE                          COMPSCE   208
        3700         0100 4060                    LJM    SCE22       INSERT CODE                                 COMPSCE   209
                                                                                                                 COMPSCE   210
                                        *         SET UP CM SECDED ERROR MESSAGE.                                COMPSCE   211
                                                                                                                 COMPSCE   212
        3702         1400                SCE13    LDN    0           SET INCREMENT FOR MESSAGES                  COMPSCE   213
        3703         3461                         STD    C2                                                      COMPSCE   214
        3704         2000 4466                    LDC    LSEM                                                    COMPSCE   215
        3706         3364                         LMD    AM                                                      COMPSCE   216
        3707         0503                         NJN    SCE14       IF CM SECDED ERROR                          COMPSCE   217
        3710         0100 4005                    LJM    SCE20       PROCESS LCM SECDED ERROR                    COMPSCE   218
                                                                                                                 COMPSCE   219
        3712         5061 5002           SCE14    LDM    QRNT,C2     SET *QUADRANT* IN MESSAGE                   COMPSCE   220
        3714         5461 4505                    STM    SEEM+15,C2                                              COMPSCE   221
        3716         3661                         AOD    C2                                                      COMPSCE   222
        3717         1705                         SBN    5                                                       COMPSCE   223
        3720         0571                         NJN    SCE14       IF NOT END OF INSERT                        COMPSCE   224
        3721         1417                         LDN    FCRD+CDSW   SET CM DOUBLE ERROR BIT CHECK               COMPSCE   225
        3722         7256                         OAN.   CHSC+40                                                 COMPSCE   226
        3723         7056                         IAN.   CHSC+40                                                 COMPSCE   227
        3724         5400 3764                    STM    SCEG                                                    COMPSCE   228
        3726         1404                         LDN    FCRD+CMAW   OBTAIN QUADRANT AND CSU                     COMPSCE   229
        3727         7256                         OAN.   CHSC+40                                                 COMPSCE   230
        3730         7056                         IAN.   CHSC+40                                                 COMPSCE   231
        3731         3461                         STD    C2          ISOLATE QUADRANT                            COMPSCE   232
        3732         1074                         SHN    -3                                                      COMPSCE   233
        3733         3460                         STD    C1                                                      COMPSCE   234
        3734         5000 7673                    LDM    /CPA/OPTN                                               COMPSCE   235
        3736         1066                         SHN    -11                                                     COMPSCE   236
        3737         1203                         LPN    3                                                       COMPSCE   237
        3740         0403                         ZJN    SCE15       IF NOT A CYBER 176                          COMPSCE   238
        3741         3061                         LDD    C2                                                      COMPSCE   239
        3742         0302                         UJN    SCE16       OBTAIN QUADRANT NUMBER                      COMPSCE   240
                                                                                                                 COMPSCE   241
        3743         3060                SCE15    LDD    C1                                                      COMPSCE   242
        3744         1203                SCE16    LPN    3                                                       COMPSCE   243
        3745         2100 5533                    ADC    2R 0        CONVERT TO DISPLAY CODE                     COMPSCE   244
        3747         5400 4511                    STM    SEEM+21     SET QUADRANT NUMBER IN MESSAGE              COMPSCE   245
        3751         3060                         LDD    C1          ISOLATE CSU                                 COMPSCE   246
        3752         1075                         SHN    -2                                                      COMPSCE   247
        3753         1201                         LPN    1                                                       COMPSCE   248
        3754         2100 5533                    ADC    2R 0        CONVERT TO DISPLAY CODE                     COMPSCE   249
1       PCM/SCE - STATUS/CONTROL REGISTER ERROR PROCESSOR.            COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    62
        COMPSCE - STATUS/CONTROL REGISTER ERROR PROCESSOR.                                COMPSCE 
  
        3756         5400 4515                    STM    SEEM+25     SET CSU NUMBER IN MESSAGE                   COMPSCE   250
        3760         2000 4765           SCE17    LDC    SSET        SET SINGLE BIT SECDED ERROR MESSAGE         COMPSCE   251
        3762         3460                         STD    C1                                                      COMPSCE   252
        3763         2000 3763                    LDC    *           CHECK FOR SINGLE/DOUBLE BIT ERROR           COMPSCE   253
                                        *         LDC    XXXX        (XXXX = CONTENTS OF BYTE WITH DOUBLE BIT)   COMPSCE   254
                                3764     SCEG     EQU    *-1                                                     COMPSCE   255
        3765         1016                         SHN    21-3                                                    COMPSCE   256
        3766         0604                         PJN    SCE18       IF DOUBLE BIT NOT SET                       COMPSCE   257
        3767         2000 4771                    LDC    SDET        SET DOUBLE BIT MESSAGE                      COMPSCE   258
        3771         3460                         STD    C1                                                      COMPSCE   259
        3772         1400                SCE18    LDN    0                                                       COMPSCE   260
        3773         3461                         STD    C2                                                      COMPSCE   261
        3774         4060                SCE19    LDI    C1          TRANSFER INSERT TO SECDED MESSAGE           COMPSCE   262
        3775         5461 4473                    STM    SEEM+3,C2                                               COMPSCE   263
        3777         3660                         AOD    C1                                                      COMPSCE   264
        4000         3661                         AOD    C2                                                      COMPSCE   265
        4001         1704                         SBN    4                                                       COMPSCE   266
        4002         0571                         NJN    SCE19       IF NOT END OF INSERT                        COMPSCE   267
        4003         0100 4125                    LJM    SCE24                                                   COMPSCE   268
                                                                                                                 COMPSCE   269
                                        *         SET UP LCM SECDED ERROR MESSAGE.                               COMPSCE   270
                                                                                                                 COMPSCE   271
        4005         5061 4775           SCE20    LDM    BNKT,C2     SET *BANK* IN MESSAGE                       COMPSCE   272
        4007         5461 4505                    STM    SEEM+15,C2                                              COMPSCE   273
        4011         3661                         AOD    C2                                                      COMPSCE   274
        4012         1705                         SBN    5                                                       COMPSCE   275
        4013         0571                         NJN    SCE20       IF NOT END OF INSERT                        COMPSCE   276
        4014         3461                         STD    C2                                                      COMPSCE   277
        4015         1420                         LDN    FCRD+LDSW   SET LCM DOUBLE BIT ERROR CHECK              COMPSCE   278
        4016         7256                         OAN.   CHSC+40                                                 COMPSCE   279
        4017         7056                         IAN.   CHSC+40                                                 COMPSCE   280
        4020         1076                         SHN    -1                                                      COMPSCE   281
        4021         5400 3764                    STM    SCEG                                                    COMPSCE   282
        4023         1203                         LPN    3           ISOLATE SIZE BITS                           COMPSCE   283
        4024         3460                         STD    C1                                                      COMPSCE   284
        4025         1076                         SHN    -1                                                      COMPSCE   285
        4026         0410                         ZJN    SCE21       IF NOT 2048K OF LCM (SIZE .LT. 2)           COMPSCE   286
        4027         1411                         LDN    FCRD+LCAW+1 READ SECOND LCM ERROR ADDRESS WORD          COMPSCE   287
        4030         7256                         OAN.   CHSC+40                                                 COMPSCE   288
        4031         7056                         IAN.   CHSC+40                                                 COMPSCE   289
        4032         1071                         SHN    -6          OBTAIN UPPER BIT OF BANK NUMBER             COMPSCE   290
        4033         1204                         LPN    4                                                       COMPSCE   291
        4034         3461                         STD    C2                                                      COMPSCE   292
        4035         3760                         SOD    C1          DECREMENT SIZE NUMBER                       COMPSCE   293
        4036         3060                SCE21    LDD    C1          SET UP MASK FOR BANK NUMBER                 COMPSCE   294
        4037         1001                         SHN    1                                                       COMPSCE   295
        4040         2100 1201                    ADC    LPNI+1                                                  COMPSCE   296
        4042         5400 4050                    STM    SCEH                                                    COMPSCE   297
        4044         1410                         LDN    FCRD+LCAW   READ FIRST LCM ERROR ADDRESS WORD           COMPSCE   298
        4045         7256                         OAN.   CHSC+40                                                 COMPSCE   299
        4046         7056                         IAN.   CHSC+40                                                 COMPSCE   300
        4047         1073                         SHN    -4          FORM BANK NUMBER                            COMPSCE   301
        4050         1201                SCEH     LPN    1                                                       COMPSCE   302
                                        *         LPN    3           (LCM SIZE = 1024K OR 2048K)                 COMPSCE   303
        4051         3161                         ADD    C2                                                      COMPSCE   304
        4052         2100 5533                    ADC    2R 0        CONVERT TO DISPLAY CODE                     COMPSCE   305
        4054         5400 4507                    STM    SEEM+17     SET BANK NUMBER IN MESSAGE                  COMPSCE   306
1       PCM/SCE - STATUS/CONTROL REGISTER ERROR PROCESSOR.            COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    63
        COMPSCE - STATUS/CONTROL REGISTER ERROR PROCESSOR.                                COMPSCE 
  
        4056         0100 3760                    LJM    SCE17       SET SINGLE/DOUBLE BIT ERROR                 COMPSCE   307
                                                                                                                 COMPSCE   308
                                        *         PROCESS PP STOPPED ON PARITY ERROR MESSAGE.                    COMPSCE   309
                                                                                                                 COMPSCE   310
        4060         2000 4671           SCE22    LDC    PMEM                                                    COMPSCE   311
        4062         3364                         LMD    AM                                                      COMPSCE   312
        4063         0535                         NJN    SCE23       IF NOT PP DETECTED PARITY ERROR             COMPSCE   313
        4064         2000 5520                    LDC    2R P        PRESET MESSAGE FOR PP MEMORY ERROR          COMPSCE   314
        4066         5400 4710                    STM    PMEM+17                                                 COMPSCE   315
        4070         2000 2015                    LDC    2RPM                                                    COMPSCE   316
        4072         5400 4711                    STM    PMEM+20                                                 COMPSCE   317
        4074         2000 5755                    LDC    2R.                                                     COMPSCE   318
        4076         5400 4712                    STM    PMEM+21                                                 COMPSCE   319
        4100         2000 1167                    LDC    FCTB+PCMP   CHECK FOR CM READ ERROR                     COMPSCE   320
        4102         7256                SCED     OAN.   CHSC+40                                                 COMPSCE   321
                                        *         OAN.   CHSC+40+20  (IF CHANNEL 36 CALL)                        COMPSCE   322
        4103         7056                SCEE     IAN.   CHSC+40                                                 COMPSCE   323
                                        *         IAN.   CHSC+40+20  (IF CHANNEL 36 CALL)                        COMPSCE   324
        4104         0414                         ZJN    SCE23       IF NOT CM READ ERROR                        COMPSCE   325
        4105         2000 5503                    LDC    2R C                                                    COMPSCE   326
        4107         5400 4710                    STM    PMEM+17                                                 COMPSCE   327
        4111         2000 1557                    LDC    2RM.                                                    COMPSCE   328
        4113         5400 4711                    STM    PMEM+20                                                 COMPSCE   329
        4115         1400                         LDN    0                                                       COMPSCE   330
        4116         5400 4712                    STM    PMEM+21                                                 COMPSCE   331
                                                                                                                 COMPSCE   332
                                        *         SET INSERTION CODE IN ERROR MESSAGES.                          COMPSCE   333
                                                                                                                 COMPSCE   334
        4120         4061                SCE23    LDI    C2          GET WORD NUMBER FOR INSERTION CODE          COMPSCE   335
        4121         3164                         ADD    AM          SET INSERTION CODE ADDRESS                  COMPSCE   336
        4122         3461                         STD    C2                                                      COMPSCE   337
        4123         3060                         LDD    C1          STORE INSERTION CODE IN MESSAGE             COMPSCE   338
        4124         4461                         STI    C2                                                      COMPSCE   339
                                                                                                                 COMPSCE   340
                                        *         COPY MESSAGE TO BUFFER AND SET ADDRESS IN TABLE TEMA.          COMPSCE   341
                                                                                                                 COMPSCE   342
        4125         3062                SCE24    LDD    FW          STORE BUFFER ADDRESS OF MESSAGE IN TEMA     COMPSCE   343
        4126         4465                         STI    TE                                                      COMPSCE   344
        4127         3665                         AOD    TE          ADVANCE TABLE INDEX                         COMPSCE   345
        4130         3062                         LDD    FW          CHECK FOR END OF BUFFER                     COMPSCE   346
        4131         1603                         ADN    3                                                       COMPSCE   347
        4132         3263                         SBD    LW                                                      COMPSCE   348
        4133         0703                         MJN    SCE25       IF NOT END OF BUFFER                        COMPSCE   349
        4134         0100 4206                    LJM    SCE30                                                   COMPSCE   350
                                                                                                                 COMPSCE   351
        4136         5000 3574           SCE25    LDM    SCEA        SET UP FIRST WORD OF MESSAGE                COMPSCE   352
        4140         1220                         LPN    20                                                      COMPSCE   353
        4141         1002                         SHN    2                                                       COMPSCE   354
        4142         2100 3355                    ADC    2R0         SET DISPLAY CODED REGISTER NUMBER           COMPSCE   355
        4144         4462                         STI    FW                                                      COMPSCE   356
        4145         3662                         AOD    FW                                                      COMPSCE   357
        4146         1400                         LDN    0                                                       COMPSCE   358
        4147         3460                         STD    C1                                                      COMPSCE   359
        4150         3070                SCE26    LDD    CB          CONVERT BIT NUMBER TO DISPLAY CODE          COMPSCE   360
        4151         1712                         SBN    12                                                      COMPSCE   361
        4152         0704                         MJN    SCE27       IF DECIMAL REMAINDER FOUND                  COMPSCE   362
        4153         3470                         STD    CB                                                      COMPSCE   363
1       PCM/SCE - STATUS/CONTROL REGISTER ERROR PROCESSOR.            COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    64
        COMPSCE - STATUS/CONTROL REGISTER ERROR PROCESSOR.                                COMPSCE 
  
        4154         3660                         AOD    C1          INCREMENT QUOTIENT                          COMPSCE   364
        4155         0372                         UJN    SCE26       LOOP FOR DECIMAL REMAINDER                  COMPSCE   365
                                                                                                                 COMPSCE   366
        4156         3060                SCE27    LDD    C1          STORE BIT NUMBER AS SECOND WORD             COMPSCE   367
        4157         1006                         SHN    6                                                       COMPSCE   368
        4160         3170                         ADD    CB                                                      COMPSCE   369
        4161         2100 3333                    ADC    2R00                                                    COMPSCE   370
        4163         4462                         STI    FW                                                      COMPSCE   371
        4164         3662                         AOD    FW                                                      COMPSCE   372
        4165         2000 5546                    LDC    2R -        SET UP THIRD WORD OF MESSAGE                COMPSCE   373
        4167         4462                         STI    FW                                                      COMPSCE   374
        4170         3662                         AOD    FW                                                      COMPSCE   375
        4171         4064                SCE28    LDI    AM          TRANSFER MESSAGE TO BUFFER                  COMPSCE   376
        4172         4462                         STI    FW                                                      COMPSCE   377
        4173         0406                         ZJN    SCE29       IF END OF MESSAGE                           COMPSCE   378
        4174         3664                         AOD    AM          INCREMENT TRANSFER ADDRESSES                COMPSCE   379
        4175         3662                         AOD    FW                                                      COMPSCE   380
        4176         3263                         SBD    LW                                                      COMPSCE   381
        4177         0771                         MJN    SCE28       IF NOT END OF BUFFER                        COMPSCE   382
        4200         0306                         UJN    SCE30                                                   COMPSCE   383
                                                                                                                 COMPSCE   384
        4201         3662                SCE29    AOD    FW          SET BUFFER ADDRESS FOR NEXT MESSAGE         COMPSCE   385
        4202         3263                         SBD    LW                                                      COMPSCE   386
        4203         0606                         PJN    SCE31       IF END OF BUFFER                            COMPSCE   387
        4204         0100 3613                    LJM    SCE6        LOOP FOR NEXT BIT                           COMPSCE   388
                                                                                                                 COMPSCE   389
                                        *         SET ZERO WORD AT END OF TABLE TEMA.                            COMPSCE   390
                                                                                                                 COMPSCE   391
        4206         3765                SCE30    SOD    TE          SET ADDRESS FOR ZERO WORD IN TABLE TEMA     COMPSCE   392
        4207         4065                         LDI    TE          SET LWA+1 OF LAST MESSAGE IN BUFFER         COMPSCE   393
        4210         3462                         STD    FW                                                      COMPSCE   394
        4211         1400                SCE31    LDN    0           STORE ZERO WORD                             COMPSCE   395
        4212         4465                         STI    TE                                                      COMPSCE   396
        4213         0100 3456                    LJM    SCEX        RETURN                                      COMPSCE   397
                                                                                                                 COMPSCE   398
                                        *         SET CHANNEL 36 REGISTER IF TO BE CHECKED.                      COMPSCE   399
                                                                                                                 COMPSCE   400
        4215         5000 3574           SCE32    LDM    SCEA        CHECK REGISTER CHANNEL                      COMPSCE   401
        4217         1220                         LPN    20                                                      COMPSCE   402
        4220         0402                         ZJN    SCE33       IF NOT BOTH REGISTERS CHECKED               COMPSCE   403
        4221         0367                         UJN    SCE31                                                   COMPSCE   404
                                                                                                                 COMPSCE   405
        4222         6520 4211           SCE33    IJM.   SCE31,20    IF NOT 20 PPS                               COMPSCE   406
        4224         5000 7675                    LDM    /CPA/PPP1                                               COMPSCE   407
        4226         0562                         NJN    SCE31       IF NOT 20 PPS                               COMPSCE   408
        4227         1436                         LDN    36                                                      COMPSCE   409
        4230         0200 4235                    RJM    CGC         CHANGE CHANNELS                             COMPSCE   410
        4232         0100 3565                    LJM    SCE2        LOOP TO CHECK CHANNEL 36 S/C REGISTER       COMPSCE   411
  
  
  
  
                                        **        CGC - CHANGE CHANNELS.                                         COMPSCE   413
                                        *                                                                        COMPSCE   414
                                        *         ENTRY  (A) = CHANNEL NUMBER.                                   COMPSCE   415
                                        *                                                                        COMPSCE   416
                                        *         USES   C2.                                                     COMPSCE   417
1       PCM/SCE - STATUS/CONTROL REGISTER ERROR PROCESSOR.            COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    65
        COMPSCE - STATUS/CONTROL REGISTER ERROR PROCESSOR.            CGC                 COMPSCE 
  
                                                                                                                 COMPSCE   418
                                                                                                                 COMPSCE   419
        4234         0100 4234           CGC      SUBR               ENTRY/EXIT                                  COMPSCE   420
                                                                                                                 COMPSCE   421
                                        *         CHANGE CHANNEL IN I/O INSTRUCTIONS.                            COMPSCE   422
                                                                                                                 COMPSCE   423
        4236         2100 7240                    ADC    OANI+40     CHANGE CHANNEL                              COMPSCE   424
        4240         5400 3574                    STM    SCEA                                                    COMPSCE   425
        4242         5400 4102                    STM    SCED                                                    COMPSCE   426
        4244         2300 0200                    LMC    IANI&OANI                                               COMPSCE   427
        4246         5400 3575                    STM    SCEB                                                    COMPSCE   428
        4250         5400 4103                    STM    SCEE                                                    COMPSCE   429
        4252         1220                         LPN    20                                                      COMPSCE   430
        4253         0404                         ZJN    CGC1        IF CHANGE TO CHANNEL 16                     COMPSCE   431
                                                                                                                 COMPSCE   432
                                        *         CHANGE PPU AND CHANNEL NUMBERS IN TABLE *TEMF*.                COMPSCE   433
                                                                                                                 COMPSCE   434
        4254         2000 1420                    LDC    LDNI+20     CHANGE TO CHANNEL 36 INSTRUCTION            COMPSCE   435
        4256         0303                         UJN    CGC2                                                    COMPSCE   436
                                                                                                                 COMPSCE   437
        4257         2000 1520           CGC1     LDC    LCNI+20     CHANGE TO CHANNEL 16 INSTRUCTION            COMPSCE   438
        4261         5400 4266           CGC2     STM    CGCA                                                    COMPSCE   439
        4263         2000 4345                    LDC    TEMF+TEMFC  CHANGE PPU AND CHANNEL MESSAGE NUMBERS      COMPSCE   440
        4265         3461                         STD    C2                                                      COMPSCE   441
        4266         1420                CGC3     LDN    20                                                      COMPSCE   442
                                4266     CGCA     EQU    *-1                                                     COMPSCE   443
                                        *         LCN    20          (IF CHANGING TO CHANNEL 16)                 COMPSCE   444
        4267         1003                         SHN    3                                                       COMPSCE   445
        4270         4561                         RAI    C2                                                      COMPSCE   446
        4271         1402                         LDN    2                                                       COMPSCE   447
        4272         3561                         RAD    C2                                                      COMPSCE   448
        4273         2177 3357                    ADC    -TEMF-TEMFD-1                                           COMPSCE   449
        4275         0770                         MJN    CGC3        IF NOT ALL INSERTION CODES CHANGED          COMPSCE   450
        4276         0100 4234                    LJM    CGCX        RETURN                                      COMPSCE   451
  
  
  
  
                                        **        TNUB - TABLE OF NOT USED BITS.                                 DIMA299    39
                                        *                                                                        COMPSCE   454
                                        *         ENTRY  ONE WORD FOR EACH OF FIRST FOUR WORDS OF CHANNEL 16     COMPSCE   455
                                        *                S/C REGISTER ON A CYBER 176.  EACH BIT CORRESPONDS TO   COMPSCE   456
                                        *                A BIT IN THE S/C REGISTER.  IF SET IN THE MASK, THAT    COMPSCE   457
                                        *                CORRESPONDING BIT IS CURRENTLY NOT USED ON A 176.       COMPSCE   458
                                        *                MASK FOR BITS 0 - 11 IS MODIFIED FOR A 17X MODEL D.     DIMA299    40
                                                                                                                 COMPSCE   459
                                                                                                                 COMPSCE   460
        4300                             TNUB     BSS    0                                                       COMPSCE   461
      L    0                                      LOC    0                                                       COMPSCE   462
      L    0         7114                         CON    7114        BITS 0 - 11                                 COMPSCE   463
                                        *         CON    1274B       (17X MODEL D MASK)                          DIMA299    41
      L    1         6000                         CON    6000        BITS 12 - 23                                COMPSCE   464
      L    2         0000                         CON    0000        BITS 24 - 35                                COMPSCE   465
      L    3         1400                         CON    1400        BITS 36 - 39                                COMPSCE   466
        4304                                      LOC    *O                                                      COMPSCE   467
1       PCM/SCE - STATUS/CONTROL REGISTER ERROR PROCESSOR.            COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    66
        COMPSCE - STATUS/CONTROL REGISTER ERROR PROCESSOR.                                COMPSCE 
  
                                        **        TUBT - TABLE OF USED CHANNEL 36 BITS.                          COMPSCE   469
                                        *                                                                        COMPSCE   470
                                        *         ENTRY - ONE WORD FOR EACH OF FIRST FOUR WORDS OF CHANNEL 36    COMPSCE   471
                                        *                S/C REGISTER.  EACH BIT CORRESPONDS TO A BIT IN THE     COMPSCE   472
                                        *                S/C REGISTER.  IF SET IN THE MASK, THAT CORRESPONDING   COMPSCE   473
                                        *                BIT IS CURRENTLY IN USE IN THE CHANNEL 36 S/C REGISTER. COMPSCE   474
                                                                                                                 COMPSCE   475
                                                                                                                 COMPSCE   476
        4304                             TUBT     BSS    0                                                       COMPSCE   477
      L    0                                      LOC    0                                                       COMPSCE   478
      L    0         4060                         CON    4060        BITS 0 - 11                                 COMPSCE   479
                                        *         CON    0060        (CYBER 176 MASK)                            COMPSCE   480
                                        *         CON    0           (CYBER 176 MOD B OR CYBER 17X MOD D MASK)   DIMA299    42
      L    1         7777                         CON    7777        BITS 12 - 23                                COMPSCE   481
                                        *         CON    1777        (CYBER 176 MASK)                            COMPSCE   482
      L    2         7777                         CON    7777        BITS 24 - 35                                COMPSCE   483
      L    3         0000                         CON    0           BITS 36 - 39                                COMPSCE   484
        4310                                      LOC    *O                                                      COMPSCE   485
  
  
  
  
                                        **        TEMF - TABLE OF ERROR MESSAGE FORMAT ADDRESSES.                COMPSCE   487
                                        *                                                                        COMPSCE   488
                                        *         ENTRY  TWO WORDS, INDEXED BY BIT NUMBER, IN FORMAT -           COMPSCE   489
                                        *                                                                        COMPSCE   490
                                        *         12/  ADDR                                                      COMPSCE   491
                                        *         12/  CODE                                                      COMPSCE   492
                                        *                                                                        COMPSCE   493
                                        *                WHERE ADDR = ERROR MESSAGE ADDRESS,                     COMPSCE   494
                                        *                      CODE = DISPLAY CODE TO BE INSERTED IN MESSAGE.    COMPSCE   495
                                        *                             UPPER BIT SET REPRESENTS SECDED ERROR      COMPSCE   496
                                        *                             MESSAGE.                                   COMPSCE   497
                                                                                                                 COMPSCE   498
                                                                                                                 COMPSCE   499
        4310                             TEMF     BSS    0                                                       COMPSCE   500
      L    0                                      LOC    0                                                       COMPSCE   501
      L    0         4430 0000                    CON    RPEM,0      READ PYRAMID PARITY ERROR                   COMPSCE   502
      L    2         4447 3355                    CON    CAEM,2R0    CSU 0 ADDRESS PARITY ERROR                  COMPSCE   503
      L    4         4447 3455                    CON    CAEM,2R1    CSU 1 ADDRESS PARITY ERROR                  COMPSCE   504
      L    6         4470 4000                    CON    SEEM,4000B  SECDED ERROR                                COMPSCE   505
      L   10         4757 0000           TEMFA    CON    NUEM,0      NOT USED                                    COMPSCE   506
                                        *         CON    PPEM,0      (PPU ERROR FOR FLPP-S - CYBER 176)          COMPSCE   507
      L   12         4526 0000                    CON    CMEM,0      CMC PARITY ERROR                            COMPSCE   508
      L   14         4540 0000                    CON    DREM,0      PE ON DATA RECEIVED FROM EXTERNAL CHANNEL   COMPSCE   509
      L   16         4567 0000                    CON    DTEM,0      PE ON DATA TRANSMITTED FROM EXTERNAL PP     COMPSCE   510
      L   20         4617 3355                    CON    MTEM,2R0    CSU 0 FAULT                                 COMPSCE   511
      L   22         4617 3455                    CON    MTEM,2R1    CSU 1 FAULT                                 COMPSCE   512
      L   24         4626 0000                    CON    ESEM,0      ERROR IN SECOND PPS                         COMPSCE   513
      L   26         4641 0000           TEMFB    CON    ECEM,0      ECS ERROR                                   COMPSCE   514
                                        *         CON    LSEM,4000   (LCM SECDED ERROR - CYBER 176)              COMPSCE   515
      L   30         4650 3355                    CON    PREM,2R0    CPU 0 P REGISTER PARITY ERROR               COMPSCE   516
      L   32         4650 3455                    CON    PREM,2R1    CPU 1 P REGISTER PARITY ERROR               COMPSCE   517
      L   34         4671 3333                    CON    PMEM,2R00   PP00 MEMORY PARITY ERROR (PP20)             COMPSCE   518
                                  35     TEMFC    EQU    *-1                                                     COMPSCE   519
      L   36         4671 3334                    CON    PMEM,2R01   PP01 STOPPED ON PARITY ERROR (PP21)         COMPSCE   520
      L   40         4671 3335                    CON    PMEM,2R02   PP02 STOPPED ON PARITY ERROR (PP22)         COMPSCE   521
1       PCM/SCE - STATUS/CONTROL REGISTER ERROR PROCESSOR.            COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    67
        COMPSCE - STATUS/CONTROL REGISTER ERROR PROCESSOR.                                COMPSCE 
  
      L   42         4671 3336                    CON    PMEM,2R03   PP03 STOPPED ON PARITY ERROR (PP23)         COMPSCE   522
      L   44         4671 3337                    CON    PMEM,2R04   PP04 STOPPED ON PARITY ERROR (PP24)         COMPSCE   523
      L   46         4671 3340                    CON    PMEM,2R05   PP05 STOPPED ON PARITY ERROR (PP25)         COMPSCE   524
      L   50         4671 3341                    CON    PMEM,2R06   PP06 STOPPED ON PARITY ERROR (PP26)         COMPSCE   525
      L   52         4671 3342                    CON    PMEM,2R07   PP07 STOPPED ON PARITY ERROR (PP27)         COMPSCE   526
      L   54         4671 3433                    CON    PMEM,2R10   PP10 STOPPED ON PARITY ERROR (PP30)         COMPSCE   527
      L   56         4671 3434                    CON    PMEM,2R11   PP11 STOPPED ON PARITY ERROR (PP31)         COMPSCE   528
      L   60         4715 3333                    CON    CPEM,2R00   CHANNEL 00 PARITY ERROR (20)                COMPSCE   529
      L   62         4715 3334                    CON    CPEM,2R01   CHANNEL 01 PARITY ERROR (21)                COMPSCE   530
      L   64         4715 3335                    CON    CPEM,2R02   CHANNEL 02 PARITY ERROR (22)                COMPSCE   531
      L   66         4715 3336                    CON    CPEM,2R03   CHANNEL 03 PARITY ERROR (23)                COMPSCE   532
      L   70         4715 3337                    CON    CPEM,2R04   CHANNEL 04 PARITY ERROR (24)                COMPSCE   533
      L   72         4715 3340                    CON    CPEM,2R05   CHANNEL 05 PARITY ERROR (25)                COMPSCE   534
      L   74         4715 3341                    CON    CPEM,2R06   CHANNEL 06 PARITY ERROR (26)                COMPSCE   535
      L   76         4715 3342                    CON    CPEM,2R07   CHANNEL 07 PARITY ERROR (27)                COMPSCE   536
      L  100         4715 3433                    CON    CPEM,2R10   CHANNEL 10 PARITY ERROR (30)                COMPSCE   537
      L  102         4715 3434                    CON    CPEM,2R11   CHANNEL 11 PARITY ERROR (31)                COMPSCE   538
      L  104         4715 3435                    CON    CPEM,2R12   CHANNEL 12 PARITY ERROR (32)                COMPSCE   539
      L  106         4715 3436                    CON    CPEM,2R13   CHANNEL 13 PARITY ERROR (33)                COMPSCE   540
                                 107     TEMFD    EQU    *-1                                                     COMPSCE   541
      L  110         4732 0000                    CON    PFEM,0      MAINS POWER FAILURE                         COMPSCE   542
      L  112         4745 0000                    CON    SIEM,0      SHUTDOWN IMMINENT                           COMPSCE   543
      L  114         4757 0000                    CON    NUEM,0      NOT USED                                    COMPSCE   544
      L  116         4757 0000                    CON    NUEM,0      NOT USED                                    COMPSCE   545
        4430                                      LOC    *O                                                      COMPSCE   546
                                                                                                                 COMPSCE   547
                                                                                                                 COMPSCE   548
                                        *         ERROR MESSAGE FORMATS.                                         COMPSCE   549
                                                                                                                 COMPSCE   550
        4430         2205                RPEM     DATA   C*READ PYRAMID PARITY ERROR.*                           COMPSCE   551
        4446         0002                         CON    2                                                       COMPSCE   552
        4447         0323                CAEM     DATA   C*CSU   ADDRESS PARITY ERROR.*                          COMPSCE   553
        4466         1403                LSEM     DATA   H*LCM *                                                 COMPSCE   554
        4470         2305                SEEM     DATA   C*SECDED        BIT ERROR - QUADRANT   , CSU  .*        COMPSCE   555
        4520         2020                PPEM     DATA   C*PPU ERROR.*                                           COMPSCE   556
        4526         0315                CMEM     DATA   C*CMC PARITY ERROR.*                                    COMPSCE   557
        4540         2001                DREM     DATA   C*PARITY ERROR ON DATA RCVD FROM EXT CHANNEL.*          COMPSCE   558
        4567         2001                DTEM     DATA   C*PARITY ERROR ON DATA XMTD FROM EXTERNAL PP.*          COMPSCE   559
        4616         0002                         CON    2                                                       COMPSCE   560
        4617         0323                MTEM     DATA   C*CSU   FAULT.*                                         COMPSCE   561
        4626         0522                ESEM     DATA   C*ERROR IN SECOND PPS.*                                 COMPSCE   562
        4641         0503                ECEM     DATA   C*ECS ERROR.*                                           COMPSCE   563
        4647         0002                         CON    2                                                       COMPSCE   564
        4650         0320                PREM     DATA   C*CPU   P REGISTER PARITY ERROR.*                       COMPSCE   565
        4670         0001                         CON    1                                                       COMPSCE   566
        4671         2020                PMEM     DATA   C*PP   STOPPED ON PARITY ERROR - PPM.*                  COMPSCE   567
        4714         0004                         CON    4                                                       COMPSCE   568
        4715         0310                CPEM     DATA   C*CHANNEL    PARITY ERROR.*                             COMPSCE   569
        4732         1501                PFEM     DATA   C*MAINS POWER FAILURE.*                                 COMPSCE   570
        4745         2310                SIEM     DATA   C*SHUTDOWN IMMINENT.*                                   COMPSCE   571
        4757         1617                NUEM     DATA   C*NOT USED.*                                            COMPSCE   572
        4765         5523                SSET     DATA   8H SINGLE                                               COMPSCE   573
        4771         5504                SDET     DATA   8H DOUBLE                                               COMPSCE   574
        4775         0201                BNKT     DATA   C*BANK  .*                                              COMPSCE   575
        5002         2125                QRNT     DATA   H*QUADRANT  *                                           COMPSCE   576
1       PCM/SCE - STATUS/CONTROL REGISTER ERROR PROCESSOR.            COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    68
        COMPSCE - STATUS/CONTROL REGISTER ERROR PROCESSOR.                                COMPSCE 
  
                                         QUAL$    IF     -DEF,QUAL$                                              COMPSCE   578
                                                  QUAL   *                                                       COMPSCE   579
                                3457     SCE      EQU    /COMPSCE/SCE                                            COMPSCE   580
                                         QUAL$    ENDIF                                                          COMPSCE   581
                                                  ENDX                                                           COMPSCE   582
                                                                                                                 PCM      2365
                                                                                                                 PCM      2366
        5007         0000                BUFR     CON    0           ERROR MESSAGES                              DIMA222A    1
                                                                                                                 PCM      2368
                                                                                                                 PCM      2369
                                3336     END      EQU    TEMA+1      FWA TO CLEAR IN PP0                         PCM      2370
                                                                                                                 PCM      2371
        5010                                      END                                                            PCM      2372
  
                             55400B CM  STORAGE USED             3413 STATEMENTS     1265 SYMBOLS      000027 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            2.999 SECONDS        1764 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ABT          1773                  15/15     22/37     30/01     30/17 D
        ABTX         1772                  30/17 L
        ABT1         2000                  30/20 L   30/24
        ACNI         7400                   5/20 D
        AD             23                   7/25 L   12/37 S
        ADA          1044                   5/37 D
        BUFR         5007                  16/40     16/44     68/08 L
        CCRT          250                  16/22     16/25
        CDSW           17                  16/05     61/33
        CDW          2236                  30/53     33/43 D
        CDWX         2235                  33/43 L   33/57
        CDW1         2242                  33/47 L   33/56
        CEM           401                  13/43 D   43/30
        CEMX          400                  13/43 L
        CEM1          415                  13/41     13/56 L
        CEM2          431                  14/09 L   14/14
        CEM3          361                  13/31 L   13/37     14/18
        CH             10                   5/47 D   20/38     21/02     35/13     35/26     36/29     36/57     37/15
                                           20/16     20/42     21/10     35/14     36/17     36/31     37/01     38/02
                                           20/17     20/57     35/11     35/24     36/21     36/44     37/13
        CHN          1060                  15/46     17/23     18/14     18/39 D
        CHNX         1057                  18/39 L   18/47
        CHSC           16   NOSTEXT         5/50 D   59/03     59/15     61/34     61/39     62/39     62/51
                                           58/56     59/04     59/56     61/35     62/30     62/40     63/15
                                           58/57     59/14     60/01     61/38     62/31     62/50     63/17
        CMAW            4                  61/37
        COA          2174                  30/46     31/37     31/43     32/41 D
        COAX         2173                  32/41 L   32/55
        CPA          1042                   5/35 D
        CPC           446                  13/11     14/38 D
        CPCA          472                  14/56 L   15/02 S
        CPCX          445                  14/38 L   14/48
        CPC1          447                  14/39 L   15/03
        CPC2          451                  14/41 L   14/55
        CPC3          453                  14/43 L   14/47
        CPC4          456                  14/45 L   14/51
1       PCM/SCE - STATUS/CONTROL REGISTER ERROR PROCESSOR.            COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    69
        SYMBOLIC REFERENCE TABLE. 
  
        CPC5          462                  14/44     14/50 L
        CPC6          477                  15/01     15/05 L
        CPC7          506                  15/07     15/13 L
        CPD          2217                  17/45     23/16     23/26     24/18     24/28     33/14 D   33/50
        CPDX         2216                  33/14 L   33/25
        CPM           265                   9/37     12/14 D
        CPMX          264                  12/14 L   12/21     12/34     12/54
        CPM1          266                  12/15 L   12/48
        CPM2          271                  12/17 L   12/27
        CPM3          277                  12/19     12/23 L
        CPM4          310                  12/30 L   12/43
        CPM5          316                  12/32     12/36 L
        CPM6          336                  12/40     12/47     12/50 L
        CPNA         2653                  39/38 L   43/12
        CPP          1601                   9/34     27/26 D
        CPPA         1626                  27/37 S   27/43 L
        CPPB         1637                  27/38 S   27/51 L
        CPPX         1600                  27/26 L   28/12
        CPP1         1604                  27/29 L   28/07
        CPP2         1610                  27/31     27/33 L
        CPP3         1635                  27/48     27/50 L
        CPP4         1647                  27/54     28/01 L
        CPP5         1654                  27/45     28/04 L
        CPP6         1661                  28/06     28/09 L
        CPR          1041                   5/34 D   31/28
        CPU          1671                   9/33     28/30 D
        CPUA         1702                  28/31     28/36 L
        CPUB         1704                  16/39 S   28/38 L
        CPUX         1670                  28/30 L   28/34
        CPU1         1676                  28/33 L   28/37
        CSE           567                  15/43 D   19/11     22/14     30/20     34/32
        CSEA          722                  16/10 S   16/14 S   16/51 L
        CSEB          723                  16/35 S   16/52 L   19/12     22/15
        CSEC          724                  16/34 S   16/36     16/54 L
        CSEX          566                  15/43 L   15/44     16/49
        CSE1          603                  15/51 L   16/28
        CSE2          612                  15/54     15/57 L
        CSE3          621                  16/03     16/05 L
        CSE4          636                  16/12     16/15 L
        CSE5          657                  16/21     16/28 L
        CSE6          661                  16/04     16/09     16/30 L
        CSE7          677                  16/32     16/38 L   16/55
        CSE8          714                  15/55     16/31     16/46 L
        CSR           732                   9/17      9/27     17/16 D
        CSRB         1017                  17/54 L   18/41 S
        CSRC         1020                  17/57 L   18/43 S
        CSRD         1024                  17/35 S   18/06 D
        CSRX          731                  17/16 L   18/08     18/27
        CSR1          741                  17/18     17/22 L
        CSR2          763                  17/32     17/34 L
        CSR3          765                  17/20     17/35 L
        CSR4          767                  17/36 L
        CSR5         1000                  17/44 L   18/07     18/25
        CSR6         1012                  17/47     17/51 L
        CSR7         1014                  17/49     17/52 L
        CSR8         1055                  18/10     18/12     18/27 L
1       PCM/SCE - STATUS/CONTROL REGISTER ERROR PROCESSOR.            COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    70
        SYMBOLIC REFERENCE TABLE. 
  
        C2D          2557                  17/40     23/10     32/44     32/53     33/22
                                           18/21     29/54     32/49     33/18
        DCNI         7500                   5/21 D
        DD             24                   7/26 L   12/39 S
        DDA          1045                   5/38 D
        DLS          2335                  19/39     19/57     22/17     30/22     34/40     35/12 D
        DLSA         2365                  35/17     35/35 L
        DLSAL        2401                  35/20     35/47 D
        DLSB         2370                   9/15 S    9/25 S   19/56 S   35/38 L
        DLSC         2371                   9/36 S   35/39 L
        DLSD         2372                  35/40 L   43/13 S
        DLSE         2375                  34/34 S   35/43 L
        DLSF         2400                   9/43 S   30/19 S   34/36 S   35/46 L
        DLSX         2334                  35/12 L
        DLS1         2347                  35/19 L   35/29
        DLS2         2333                  35/11 L   35/21
        DNL          2546                  35/28     36/25     36/33     36/42     37/17     37/54 D
        DNLX         2545                  37/54 L   38/03
        DNL1         2551                  37/57 L   38/04
        DPS          1244                   9/44     13/07     14/52     17/46     22/11 D
        DPSX         1243                  22/11 L   22/31     22/35
        DPS1         1273                  22/19     22/23     22/25 L
        DPS2         1275                  22/27 L   22/34
        DPS3         1302                  22/29     22/33 L
        DPS4         1307                  22/26     22/37 L
        DRS          2447                  19/40     22/18     30/23     34/41     36/46 D
        DRSA         2523                  37/04     37/24 L
        DRSAL        2545                  19/38 S   37/07     37/42 D
        DRSB         2526                  23/57     29/57 S   36/47     36/51 S   37/27 L
        DRSC         2535                  15/14 S   31/24     34/37     36/52     36/56 S   37/34 L
        DRSD         2543                   9/13 S   37/40 L
        DRSE         2435                   9/11 S   36/36 D
        DRSX         2446                  36/46 L
        DRS1         2461                  36/49     36/52 L
        DRS2         2472                  36/54     36/57 L
        DRS3         2503                  37/06 L   37/18
        DRS4         2511                  37/08     37/11 L
        DRS5         2401                  36/13 L   37/09
        DRS6         2404                  36/15 L   36/26
        DRS7         2423                  36/19     36/28 L
        DRS8         2435                  36/24     36/35 L
        DRS9         2445                  36/35     36/40     36/44 L
        DSBL          166                  15/48     16/46
        DSCU          115                   9/50     44/41     45/15
        ED             22                   7/24 L   12/23     12/38     12/44     12/46 S
        EDA          1043                   5/36 D
        EF             17                   7/21 L   22/16 S   22/25     23/39     23/42 S   31/03     31/06 S
        EIEA         2672                  34/33     39/41 L
        EJMI         6700                   5/15 D   18/45
        END          3336                  12/15     12/28     68/11 D
        EXBB           66                   9/53     45/05     45/08     45/13
        FCCL         2000                   9/50     16/15     16/46     44/41     45/13
                                            9/53     16/25     17/52     45/08
        FCE          1752                  15/10     26/18     26/41     27/07     29/48 D
        FCEM         3233                  15/13     29/56     41/10 L
        FCEX         1751                  29/48 L
        FCE1         1757                  29/51     29/53 L
1       PCM/SCE - STATUS/CONTROL REGISTER ERROR PROCESSOR.            COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    71
        SYMBOLIC REFERENCE TABLE. 
  
        FCRD            0                   7/56     16/05     59/48     61/33     61/37     62/29     62/38     62/49
        FCSB         4000                  15/48     16/22     17/25     45/05     45/15     59/13
        FCTB         1000                  15/57     17/29     59/02     63/14
        FCTC         3000                  58/55
        FCTE         7000                  15/51     22/20
        FEDA         2710                  30/18     34/35     39/44 L
        FNCI         7700                   5/22 D
        GEM          2012                  30/40 D   31/48     34/39
        GEMX         2011                  30/40 L   31/07
        GEM1         2032                  30/51 L   31/02
        GEM2         2037                  30/52     30/54 L
        GPI          1414                  22/12     23/56 D
        GPIA         1467                  23/03     23/13     23/19     23/29     24/40 L   24/45     25/37 S
        GPIAL           5                  23/17     24/19     24/45 D   25/39
        GPIB         1474                  23/24     24/26     24/51 L   24/56
        GPIBL           5                  24/56 D
        GPIC         1501                  23/34     25/05 L   25/10
        GPICL           5                  23/32     25/10 D
        GPIX         1413                  23/43     23/56 L   24/05
        GPI1         1427                  24/03     24/12 L
        GPI10        1365                  23/28     23/32 L   24/31
        GPI11        1367                  23/34 L   23/38
        GPI12        1403                  23/21     23/48 L   24/23
        GPI13        1405                  23/50 L   23/54
        GPI2         1450                  24/23 L
        GPI3         1452                  24/22     24/25 L   24/34
        GPI4         1460                  24/27     24/29 L
        GPI5         1464                  24/30     24/33 L
        GPI6         1311                  23/01 L   24/06
        GPI7         1325                  23/07     23/09 L
        GPI8         1352                  23/20     23/23 L   23/30
        GPI9         1360                  23/25     23/27 L
        GSD          2055                  22/13     30/21     31/21 D
        GSDA         2112                  31/40 L   43/19 S
        GSDB         2132                  13/32 S   13/57 S   14/03 S   30/45     31/30     31/46     34/16 S   34/23
                                           13/39     14/01 S   14/10     30/47     31/34     32/03 L   34/18 S   34/24 S
                                           13/56 S   14/02 S   30/43     31/29 S   31/36     32/04     34/22
        GSDBL          31                  31/52     32/04 D
        GSDC         2163                  30/51     32/10 L   32/14
        GSDCL           4                  31/01     32/14 D
        GSDD         2167                  30/54     32/20 L   32/24
        GSDDL           4                  32/24 D
        GSDX         2054                  31/21 L   31/23     31/54
        GSD1         2117                  31/46 L   31/53
        GSD2         2125                  31/47     31/51 L
        GSD3         2130                  31/49     31/54 L
        IAMI         7100                   5/18 D
        IANI         7000                   5/16 D   18/42
        IC             15                   5/48 D   17/22     17/27     17/31     19/54
                                            9/23     17/26     17/30     18/08
        ICFE         2752                  19/55     39/55 L
        ICHS         4707                  11/30     53/55 L   54/02
        ICHSL          14                  54/02 D
        ICS          1142                  17/24     17/28     17/51     19/53 D
        ICSX         1141                  19/53 L   19/54
        ICS1         1151                  19/57 L   20/01
        IDLE         4432                  11/35     29/18     51/04 L
1       PCM/SCE - STATUS/CONTROL REGISTER ERROR PROCESSOR.            COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    72
        SYMBOLIC REFERENCE TABLE. 
  
        IDLEL        4705                  29/20     53/38 D
        IDLP         1040                   5/33 D   44/12
        IDLT         1732                  29/01     29/03     29/17 L
        IJMI         6500                   5/14 D
        IXPA         1000                   5/31 D   13/44     13/48     44/08     44/18     44/29     44/48
        LCAW           10                  62/38     62/49
        LDSW           20                  62/29
        MCI           213                  11/10 D   20/47     23/01     28/02
        MCIA          236                  11/14     11/17 S   11/25 L
        MCIB          243                  11/30 L   11/47     28/11 S
        MCIC          254                  11/18 S   11/39 L
        MCID          263                  11/46 D   28/10
        MCIX          212                  11/10 L   11/44     11/48
        MCI1          233                  11/22 L   11/29
        MCI2          247                  11/35 L   11/43
        MESA         2605                  23/50     35/39     35/43     36/48     37/28     37/32     37/37     37/41
                                           35/36     35/40     35/44     36/53     37/29     37/34     37/38     39/07 L
                                           35/37     35/41     35/45     37/25     37/30     37/35     37/39
                                           35/38     35/42     35/46     37/27     37/31     37/36     37/40
        MESB         2607                   9/14     39/10 L
        MESBA        2616                   9/16     39/11 L
        MESBB        2622                  39/13 L
        MESC         2625                   9/35     39/18 L
        MESCA        2626                  23/11 S   24/13 S   39/19 L
        MESCB        2630                  23/15     24/17     39/21 L
        MESD         2633                  39/26 L   44/36
        MESDA        2641                  31/32     39/27 L
        MESDB        2645                  31/38     39/31 L   43/23 S
        MESDC        2647                  31/38     39/32 L
        MESF         2731                   9/24     39/47 L
        MESFA        2743                   9/26     39/48 L
        MESFB        2747                  39/50 L
        MESG         2771                   9/42     40/01 L
        MSCE         3314                  36/32     41/19 L
        MTPA         1060                   5/39 D   13/48     44/25     45/03
        MTXA         1020                   5/32 D   44/31
        NBIT          314                  17/19     18/05
        NIBIT         200                   5/23 D   17/25     17/29     17/33     17/34
        NONM         3024                  36/41     36/50     36/55     40/10 L
        NTEB           50                  41/23     60/08     60/27     60/31
        OAMI         7300                   5/19 D
        OANI         7200                   5/17 D   18/40     18/42
        OFFL         4705                  29/19     53/44 L
        OFFLL        4707                  29/21     53/49 D
        OVL          3456                  16/54     28/36     41/26 L   42/01     42/02     55/01     55/02
        PCHS         1736                  11/19     29/27 L   29/28
        PCHSE        1750                  29/27 L
        PCHSL          13                  29/28 D
        PCM           100                   9/08 L
        PCMA          205                   9/56     10/02 L
        PCMP          167                  63/14
        PCM1          124                   9/09      9/23 L
        PCM2          136                   9/23      9/33 L
        PCM3          154                   9/38      9/42 L
        PCM4          160                   9/44 L
        PCM5          201                   9/49      9/56 L
1       PCM/SCE - STATUS/CONTROL REGISTER ERROR PROCESSOR.            COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    73
        SYMBOLIC REFERENCE TABLE. 
  
        PP             16                   7/20 L   20/45     22/30 S   23/05     27/28 S   28/04 S
                                           15/09 S   20/54 S   22/33     24/02     27/29     28/09 S
                                           20/44 S   22/27 S   23/04     24/04     27/57     29/49
        PPCT          124                  58/55     59/02     59/13
        PSNI         2400                   5/13 D    9/10
        RDS          1171                   9/45     19/14     20/37 D
        RDSA         1237                  21/04     21/08 L
        RDSX         1170                  20/37 L   21/01     21/06
        RDS1         1203                  20/45 L   20/56
        RDS2         1222                  20/46     20/54 L
        REPT         1535                  20/51     25/30     25/47 L   25/53
        REPTL           2                  25/53 D
        RF             21                   7/23 L   12/51 S
        RID          1507                  23/02     25/26 D
        RIDX         1506                  25/26 L   25/41
        RID1         1524                  25/35 L   25/40
        RMSA         3030                  37/26     40/13 L
        RMSAA        3031                  23/12 S   24/14 S   29/55 S   40/14 L
        RMSB         3033                  25/09     40/18 L
        RMSBA        3042                  24/51     40/19 L
        RMSC         3045                  25/08     40/24 L
        RMSCA        3054                  24/53     40/25 L
        RMSD         3057                  25/07     40/30 L
        RMSDA        3066                  24/54     40/31 L
        RMSE         3071                  25/06     40/36 L
        RMSEA        3100                  24/55     40/37 L
        RMSF         3103                  37/33     40/42 L
        RMSG         3113                  32/20     40/45 L
        RMSGA        3122                  30/41     40/46 L
        RMSH         3126                  32/21     40/52 L
        RMSHA        3135                  32/11     40/53 L
        RMSI         3155                  32/22     40/57 L
        RMSIA        3164                  32/12     41/01 L
        RMSJ         3204                  32/23     41/05 L
        RMSJA        3213                  32/13     41/06 L
        RPT          1155                   9/08     20/13 D
        RPTA         1164                  20/16     20/20 L
        RPTX         1154                  20/13 L   20/18
        SC             16                   5/49 D    9/54     15/52     16/16     16/47     18/13     44/43     45/17
                                            5/50      9/55     15/53     16/17     16/48     19/36     45/06
                                            9/09     15/44     16/01     16/23     17/18     22/19     45/07
                                            9/38     15/45     16/02     16/24     17/47     22/21     45/10
                                            9/51     15/49     16/06     16/26     17/54     22/22     45/11
                                            9/52     15/50     16/07     16/27     17/57     44/42     45/16
        SCE          3457                  16/30     16/45     68/03 D
        SCFE         3267                  19/37     41/16 L
        SCM          3463                  28/33     43/15 D
        SCMA         3611                  43/20 S   44/20 L
        SCMB         3632                  43/21 S   44/33 L
        SCMC         3707                  45/09 D   45/12 S
        SCMX         3462                  43/15 L
        SCM1         3502                  43/18     43/24 L
        SCM2         3522                  43/34     43/38 L
        SCM3         3526                  43/36     43/41 L
        SCM4         3633                  44/36 L   45/18
        SCM5         3637                  44/17     44/41 L
        SCM6         3706                  45/08 L   45/14
1       PCM/SCE - STATUS/CONTROL REGISTER ERROR PROCESSOR.            COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    74
        SYMBOLIC REFERENCE TABLE. 
  
        SCM7         3456                  43/12 L   43/28
        SCM8         3460                  43/13 L   44/37
        SCRE         3251                   9/12     41/13 L
        SCS          1125                  15/47     17/48     19/35 D
        SCSA         1126                  18/46 S   19/36 L
        SCSX         1124                  19/35 L   19/36
        SCS1         1134                  19/39 L   19/41
        SDSC          267                  16/08
        SECD            3                  15/57     16/15
        SED          1100                   9/39     19/10 D
        SEDA         1117                  19/17     19/20 L
        SEDX         1077                  19/10 L   19/13
        SHNI         1000                   5/12 D   27/36
        SP             25                   7/27 L   44/05
        SV             32                   7/32 L   44/03
        TA             10                   7/14 L   14/42 S   14/43     14/45 S   14/50     15/05     15/08
        TD             11                   7/15 L   23/36 S   23/52 S   30/55 I   31/25 S
                                           23/35 I   23/51 I   24/01 S   30/56 S   34/38 S
        TE             12                   7/16 L   30/48 S   33/47     33/54 S
        TEMA         3335                  16/42     36/13     36/39     41/22 L   68/11
        TF             13                   7/17 L   23/14 S   25/34 S   29/01     31/39 S   32/51 S   33/48 S   37/03 S
                                           17/38 S   23/23 S   25/37     29/03     32/45 I   32/54 I   35/16 S   37/12 S
                                           18/04 S   24/16 S   25/38 S   30/42 S   32/46 S   33/16     35/23 S
                                           18/17 S   24/25 S   27/53 S   31/33 S   32/50 I   33/21     36/16 S
        TG             14                   7/18 L   14/40 S   14/53 S
        TH             15                   7/19 L   32/47     33/15 S   33/20 S   33/24 S   33/49     33/53 S
                                           32/42 S   32/52     33/19 I   33/23 I   33/44 S   33/52 I
        TITL         3006                  37/24     40/07 L
        TITLE        2570                  35/35     39/04 L
        TPCI          541                  12/52 S   13/08     14/43     15/28 L   15/29     22/24 S   23/04 S   31/31 S
        TPCIL          25                  14/46     15/29 D
        TPPA          514                  14/50     20/45     22/33     27/57 S   43/32 S
                                           15/21 L   20/57     24/04     31/22
        T0              0   NOSTEXT         7/05 D
        T1              1   NOSTEXT         7/06 D   27/50     29/08 S   30/54     31/29     31/51 S   34/23     37/56 S
                                           27/41 S   29/02 S   30/50 S   30/57 S   31/45 S   34/21 S   34/24     37/57 S
                                           27/42     29/05     30/51     31/27 S   31/46     34/22     34/27 S   38/01
        T2              2   NOSTEXT         7/07 D   27/39     27/49 S   28/01     29/09     33/55 S   34/26 S
                                           27/34 S   27/46     27/56     29/04 S   33/46 S   34/20 S   34/30
        T3              3   NOSTEXT         7/08 D   13/52 S   17/17 S   17/44     18/24 S   44/11 S   44/26
                                           13/35 S   14/12 S   17/41 I   18/19 S   43/45 S   44/13
                                           13/38 S   14/15 S   17/43 S   18/22 I   43/57     44/24 S
        T4              4   NOSTEXT         7/09 D   14/05 S   14/17 S   18/03 S   26/15 S   27/03 S   43/41 S   44/02
                                           13/31     14/09     17/37 S   18/16 S   26/37 S   27/04 S   43/49
                                           13/34 S   14/11 S   17/53     26/14 S   26/38 S   34/15     43/53
        T5              5   NOSTEXT         7/10 D   11/20 S   11/28     11/41 S   14/04     35/19 S   36/22 S   37/06 S
                                           11/13 S   11/21     11/33 S   11/42     14/16     35/27     36/23     37/16
                                           11/16     11/27 S   11/34     13/45 S   35/18 S   36/14 S   37/05 S
        T6              6   NOSTEXT         7/11 D   11/26 I   11/40 I   14/10     18/20 S   44/28 S   44/49
                                           11/22 S   11/36 S   13/32     17/39 S   44/07 S   44/30     45/02 S
                                           11/23     11/37     13/47 S   18/11     44/09     44/47 S   45/04
        T7              7   NOSTEXT         7/12 D   14/13     23/24     23/33 S   23/49 S   24/21     24/33
                                           13/36     23/18 S   23/27 S   23/34     23/53 S   24/26
                                           13/50 S   23/19     23/29     23/37 S   24/20 S   24/29 S
        UDS           347                  12/20     12/33     12/53     13/06 D
        UDSX          346                  13/06 L   13/09     13/13
        UDS1          355                  13/11 L
1       PCM/SCE - STATUS/CONTROL REGISTER ERROR PROCESSOR.            COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    75
        SYMBOLIC REFERENCE TABLE. 
  
        VCM          2260                  13/33     34/14 D
        VCMX         2257                  34/14 L   34/31
        VCM1         2272                  34/22 L   34/29
        VCM2         2302                  34/25     34/27 L
        VCM3         2326                  34/40 L   34/42
        WD             20                   7/22 L   12/17     12/25 S   12/30     12/41 S   24/21
                                           12/16 S   12/24 I   12/29 S   12/36     24/15     24/33
        WDA          1540                  20/48     25/27     26/12 D
        WDAX         1537                  26/12 L   26/16     26/19
        WDA1         1543                  26/15 L   26/17
        WIN          1566                  25/35     27/01 D
        WINX         1565                  27/01 L   27/05     27/08
        WIN1         1571                  27/04 L   27/06
        WOT          1553                  20/50     20/53     25/29     25/32     26/35 D   28/57     29/07
        WOTA         1557                  26/39 L
        WOTX         1552                  26/35 L   26/39     26/42
        WOT1         1556                  26/38 L   26/40
        WPI          1710                  28/03     28/56 D
        WPIA         1722                  29/06 L
        WPIB         1730                  29/11 L
        WPIX         1707                  28/56 L   29/12
        WPI1         1721                  29/05 L   29/10
  
  
  
  
                                                  SYMBOL QUALIFIER =  CPA 
  
  
        CMSZ         7671                  43/33     43/38
        DSPNLZ       7677                  43/24
        LPP0         7676                  27/50
        OPTN         7673                   9/46     16/18     43/16     44/14     59/16     61/43
        PPP0         7674                  27/42
        PPP1         7675                  18/09     64/44
  
  
  
  
                                                  SYMBOL QUALIFIER =  CTI 
  
  
        CDEP         7000                   9/57     16/37     19/18     28/32
        DHEP         6776                  19/16 S
        EBLLOAD       200                  10/02     10/03
        IPLB         6000                  12/26     12/42     16/40
        LOAD           10                   1/26      7/03     19/20
        TRAN          100                   9/07     19/21
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMPSCE 
  
  
        AM             64                   7/50 L   61/07 S   61/24     63/06     63/30     64/13     64/16 S
        BNKT         4775                  62/23     67/54 L
1       PCM/SCE - STATUS/CONTROL REGISTER ERROR PROCESSOR.            COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    76
        SYMBOLIC REFERENCE TABLE.                                     COMPSCE 
  
        BT             66                   7/52 L   59/47 S   60/07 S   60/25
        BW             67                   7/53 L   59/54 S   60/18 S   60/26     60/38
        CAEM         4447                  66/39     66/40     67/32 L
        CB             70                   7/54 L   60/32 S   63/54     63/57 S   64/06
        CGC          4235                  59/45     64/47     65/03 D
        CGCA         4266                  65/22 S   65/26 D
        CGCX         4234                  65/03 L   65/34
        CGC1         4257                  65/14     65/21 L
        CGC2         4261                  65/19     65/22 L
        CGC3         4266                  65/25 L   65/33
        CMEM         4526                  66/44     67/36 L
        CPEM         4715                  67/08     67/10     67/12     67/14     67/16     67/18     67/48 L
                                           67/09     67/11     67/13     67/15     67/17     67/19
        CT             73                   7/57 L   58/54 S   59/09 S   59/24 S   59/34     60/46
        C1             60                   7/46 L   61/06     61/42 S   62/03 S   62/15 S   62/45     64/01 S
                                           60/34 S   61/10     61/50     62/10 S   62/35 S   63/32     64/04
                                           61/02 S   61/11 S   61/54     62/13     62/44 S   63/53 S
        C2             61                   7/47 L   61/28     61/40 S   62/14     62/24     62/43 S   63/31 S   65/29 I
                                           61/09 S   61/29     61/47     62/16 S   62/25 S   62/55     63/33 I   65/31 S
                                           61/22 S   61/30 S   62/12 S   62/23     62/28 S   63/29     65/24 S
        DREM         4540                  66/45     67/37 L
        DTEM         4567                  66/46     67/38 L
        ECEM         4641                  66/50     67/42 L
        ESEM         4626                  66/49     67/41 L
        FW             62                   7/48 L   63/37     63/50 I   64/08 I   64/11 I   64/14 I   64/22 S
                                           58/49 S   63/40     63/51 S   64/09 S   64/12 S   64/17 S   64/31 S
        IANI         7000                  58/36 D   65/10
        LCNI         1500                  58/35 D   65/21
        LDNI         1400                  58/34 D   59/11     65/18
        LPNI         1200                  58/33 D   62/47
        LSEM         4466                  59/29     61/23     67/33 L
        LW             63                   7/49 L   16/41 S   58/50 S   63/42     64/18     64/23
        MTEM         4617                  66/47     66/48     67/40 L
        NUEM         4757                  66/42     67/23     67/24     67/51 L
        OANI         7200                  58/37 D   65/07     65/10
        PFEM         4732                  67/21     67/49 L
        PMEM         4671                  63/05     63/13 S   63/25 S   66/57     67/03     67/06
                                           63/09 S   63/21 S   66/54     67/01     67/04     67/07
                                           63/11 S   63/23 S   66/56     67/02     67/05     67/46 L
        PPEM         4520                  59/27     67/35 L
        PREM         4650                  66/52     66/53     67/44 L
        QRNT         5002                  61/28     67/55 L
        RPEM         4430                  66/38     67/30 L
        RW             72                   7/56 L   59/49 S   59/55     60/05 S   60/48     60/54
        SCE          3457                  58/48 D   68/03
        SCEA         3574                  59/41     59/56 L   60/43     63/46     64/38     65/08 S
        SCEB         3575                  60/01 L   65/11 S
        SCEC         3656                  60/41 S   60/55 L
        SCED         4102                  63/15 L   65/09 S
        SCEE         4103                  63/17 L   65/12 S
        SCEF         3651                  60/42 S   60/49 L
        SCEG         3764                  61/36 S   62/06 D   62/33 S
        SCEH         4050                  62/48 S   62/53 L
        SCEX         3456                  58/48 L   64/34
        SCE1         3556                  59/33     59/35     59/41 L
        SCE10        3660                  60/51     61/01 L
        SCE11        3663                  60/47     60/52     60/57     61/06 L
1       PCM/SCE - STATUS/CONTROL REGISTER ERROR PROCESSOR.            COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    77
        SYMBOLIC REFERENCE TABLE.                                     COMPSCE 
  
        SCE12        3677                  61/13     61/16 L
        SCE13        3702                  61/16     61/21 L
        SCE14        3712                  61/25     61/28 L   61/32
        SCE15        3743                  61/46     61/50 L
        SCE16        3744                  61/48     61/51 L
        SCE17        3760                  62/02 L   63/01
        SCE18        3772                  62/08     62/11 L
        SCE19        3774                  62/13 L   62/18
        SCE1.1       3511                  59/05     59/13 L
        SCE1.2       3515                  59/01     59/16 L
        SCE1.3       3522                  59/12 S   59/20 L
        SCE1.4       3550                  59/19     59/34 L
        SCE2         3565                  59/43     59/46 L   64/48
        SCE20        4005                  61/26     62/23 L   62/27
        SCE21        4036                  62/37     62/45 L
        SCE22        4060                  61/17     63/05 L
        SCE23        4120                  63/07     63/19     63/29 L
        SCE24        4125                  61/14     62/19     63/37 L
        SCE25        4136                  63/43     63/46 L
        SCE26        4150                  63/54 L   64/02
        SCE27        4156                  63/56     64/04 L
        SCE28        4171                  64/13 L   64/19
        SCE29        4201                  64/15     64/22 L
        SCE3         3571                  59/53 L   60/09
        SCE30        4206                  63/44     64/20     64/29 L
        SCE31        4211                  64/24     64/32 L   64/41     64/43     64/45
        SCE32        4215                  60/10     60/29     64/38 L
        SCE33        4222                  64/40     64/43 L
        SCE4         3600                  60/05 L   60/21
        SCE5         3607                  60/04     60/14 L   60/20
        SCE6         3613                  60/18 L   64/25
        SCE7         3617                  60/17     60/25 L
        SCE8         3625                  60/28     60/31 L
        SCE9         3654                  60/45     60/54 L
        SDET         4771                  62/09     67/53 L
        SEEM         4470                  61/29 S   61/53 S   62/01 S   62/14 S   62/24 S   62/57 S   66/41     67/34 L
        SHNI         1000                  58/32 D   60/40
        SIEM         4745                  67/22     67/50 L
        SSET         4765                  62/02     67/52 L
        TE             65                   7/51 L   16/43 S   63/38 I   63/39 S   64/29 S   64/30     64/33 I
        TEMF         4310                  59/28 S   59/30 S   59/32 S   61/06     61/10     65/23     65/32     66/36 L
        TEMFA          10                  59/28 S   66/42 L
        TEMFB          26                  59/30 S   59/32 S   66/50 L
        TEMFC          35                  65/23     66/55 D
        TEMFD         107                  65/32     67/20 D
        TNUB         4300                  59/07 S   59/37 S   60/48     65/48 L
        TUBT         4304                  59/10 S   59/22 S   59/26 S   60/54     66/09 L
        UBIT           47                  58/43 D   61/01
        WC             71                   7/55 L   60/03 S   60/14     60/16 S
  
  
  
  
                                                  SYMBOL QUALIFIER =  SCM 
  
  
        A0              2                  43/51 S   43/52 S   43/55 S   43/56 S   45/25 D
1       PCM/SCE - STATUS/CONTROL REGISTER ERROR PROCESSOR.            COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    78
        SYMBOLIC REFERENCE TABLE.                                     SCM 
  
        FL             13                  43/42 S   43/43 S   43/46 S   43/47 S   45/26 D
        IDLE1        4317                  44/51 S   44/55 S   48/27 L
        IDLE2        4362                  44/52 S   44/56 S   49/28 L
        IDLE3        4425                  44/53 S   44/57 S   50/29 L
        IDLP         4165                  44/13     44/50     44/54     45/48 L   46/31
        IDLPL           6                  44/10     46/32 D
        IDLPLL         36                  46/31 D   46/32
        IXPA         3725                  43/42 S   43/46 S   43/51 S   43/55 S   44/09     44/30     45/32 L   45/33
        IXPAL         120                  44/06     45/33 D
        MTP          4223                  44/26     45/04     46/33 L   50/35
        MTPL           33                  13/48     44/23     45/01     50/36 D
        MTPLL         207                  50/35 D   50/36
        MTXA         4045                  43/43 S   43/47 S   43/52 S   43/56 S   44/45 S   44/49     45/39 L   45/40
        MTXAL         120                  44/27     44/46     45/40 D
  
  
  
  
                                                  SYMBOL QUALIFIER =  IDLE
  
  
        AD             13                  51/24 L   52/15     53/02 S   53/17 S
        CPM           154                  51/42     52/35 D
        CPMX          153                  52/35 L
        CPM1          155                  52/36 L   53/29
        CPM2          163                  52/41 L   52/46
        CPM3          176                  52/49 L   52/54
        CPM4          210                  52/57 L   53/08
        CPM5          224                  53/05     53/11 L   53/20     53/27
        CPM6          226                  53/09     53/13 L
        CPM7          231                  53/15 L   53/23
        CPM8          251                  53/26     53/29 L
        DD             14                  51/25 L   52/17     52/39     52/55     53/04 S   53/19 S
        E            4722                  53/57 L
        ED             12                  51/23 L   52/36     52/42     53/03     53/24
                                           52/13     52/38 S   52/50     53/18
        END           253                  52/47     53/13     53/35 L
        IDL           113                  51/46 D   51/55 S   52/41     52/49     52/57     53/15
        IDLA          111                  51/41 S   51/43 D
        IDLX          112                  51/34     51/36     51/39     51/45 L   51/57
        IDL1          100                  51/34 L   51/45     51/48     51/54     52/45     53/07
        IDL2          110                  51/13     51/42 L
        RDS           147                  25/51     52/27 D
        RDSA          151                  52/29 L
        RDSX          146                  52/27 L
        RF             10                  51/21 L   51/56 S   52/11
        STR           124                  25/50     52/05 D
        STRX          123                  52/05 L   52/21
        T0              0                  51/13 L
        T1              1                  51/14 L
        T2              2                  51/15 L
        T3              3                  51/16 L
        T4              4                  51/17 L
        T5              5                  51/18 L
        T6              6                  51/19 L
        T7              7                  51/20 L
1       PCM/SCE - STATUS/CONTROL REGISTER ERROR PROCESSOR.            COMPASS 3.7-871.     23/08/13. 15.42.43.      PAGE    79
        SYMBOLIC REFERENCE TABLE.                                     IDLE
  
        WD             11                  51/22 L   52/40 S   52/44 S   52/51 I   52/56 S   53/06 S   53/16
                                           52/09     52/43 I   52/48 S   52/52 S   53/01     53/14 S   53/21 S
        XIDL          115                  51/54 L   53/11
 EBL
1       EBL         CTI EXTERNAL BOOTSTRAP LOADER - A02               COMPASS 3.7-871.     23/08/13. 15.42.49.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
  
                        200     2564              IDENT  EBL,/CTI/EBLLOAD 
                       2764     (431)             END 
  
  
  
  
                                                  IDENT  EBL,/CTI/EBLLOAD                                        EBL         2
                                                  PERIPH                                                         EBL         3
                                                  SST    D0,D1,D2,D3,D4,D5                                       EBL         4
                                         VERID    MICRO  1,,*A02*                                                *A02*       1
                                         VERS     MICRO  1,,*"VERID"*                                       VERS VERS        3
                                                  COMMENT CTI EXTERNAL BOOTSTRAP LOADER - "VERS"                 DIMA317O    3
                                                  COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1979               DIMA317O    4
  
  
                                        *         ALL RIGHTS RESERVED                                            CDCCRN      3
                                        *                                                                        CDCCRN      4
                                        *         CONTAINED HEREIN ARE SOFTWARE PRODUCTS COPYRIGHTED             CDCCRN      5
                                        *         BY CONTROL DATA CORPORATION.  REPRODUCTION WITHOUT             CDCCRN      6
                                        *         PERMISSION IS PROHIBITED.  THE COPYRIGHT NOTICE                CDCCRN      7
                                        *         MUST APPEAR ON ALL AUTHORIZED COMPLETE OR                      CDCCRN      8
                                        *         PARTIAL COPIES.                                                CDCCRN      9
                                        *                                                                        CDCCRN     10
1       EBL         CTI EXTERNAL BOOTSTRAP LOADER - A02               COMPASS 3.7-871.     23/08/13. 15.42.49.      PAGE     2
                                                                      SAD 
  
                                        *****     EBL - EXTERNAL BOOTSTRAP LOADER. CTI.                          EBL         9
                                        *                                                                        EBL        10
                                        *         R. A. TURGEON                06/26/78.                         EBL        11
                                        *                                                                        EBL        12
                                        *         EBL IS THE CTI MODULE WHICH IS CALLED TO LOAD AN EXTERNAL      EBL        13
                                        *         BOOTSTRAP.  EBL WILL LOCATE THE BOOTSTRAP IF POSSIBLE,         EBL        14
                                        *         LOAD IT AT LOCATION 6200B, CREATE THE BOOTSTRAP PASS-ON        EBL        15
                                        *         STATE, AND FINALLY TRANSFER TO ADDRESS 6320B.                  EBL        16
  
  
  
  
                                        ***       EBL - EXTERNAL BOOTSTRAP LOADER. CTI.                          EBL        18
                                        *                                                                        EBL        19
                                        *                                                                        EBL        20
                                        *         EBL IS CALLED TO LOAD MODULES EXTERNAL TO CTI, I.E.,           EBL        21
                                        *         A BOOTSTRAP FOR SOME SOFTWARE SYSTEM.  THE MODULE              EBL        22
                                        *         LOADED DEPENDS ON THE VALUE OF *EBLP*.  THE CURRENTLY          EBL        23
                                        *         SUPPORTED VALUES AND THEIR ASSOCIATED BOOTSTRAPS ARE           EBL        24
                                        *                                                                        EBL        25
                                        *         0 = OSB                                                        EBL        26
                                        *         1 = DSB                                                        EBL        27
                                        *         2 = MSB                                                        EBL        28
                                        *                                                                        EBL        29
                                        *         THESE BOOTSTRAPS MUST BE NO LONGER THAN ONE DISK SECTOR.       EBL        30
                                        *         BOOTSTRAPS LOADED FROM TAPE ARE LOADED AT 6200B.               EBL        31
                                        *         BOOTSTRAPS LOADED FROM DISK ARE LOADED AT 6176B.               EBL        32
                                        *         EBL TRANSFERS CONTROL TO ALL BOOTSTRAPS AT ADDRESS 6320B.      EBL        33
                                        *         BEFORE TRANSFERRING CONTROL TO THE BOOTSTRAP, EBL WILL         EBL        34
                                        *         TAKE FINAL STEPS TO CREATE THE BOOTSTRAP PASS-ON STATE.        EBL        35
                                        *         IF DSB IS BEING LOADED, THE DDSMEM FIELDS ARE SET TO THE       EBL        36
                                        *         APPROPRIATE VALUES.                                            EBL        37
                                        *                                                                        EBL        38
                                        *         EBL USES THE COMMON TAPE DRIVER ONLY IF THE DEADSTART WAS      EBL        39
                                        *         FROM TAPE AND OSB IS TO BE LOADED.  EBL HAS ITS OWN DISK       EBL        40
                                        *         ROUTINES AND DOES NOT USE ANY COMMON DISK DRIVER.              EBL        41
                                        *                                                                        EBL        42
                                        *         EBL ASSUMES THAT THE CTI INTERNAL STATE EXISTS                 EBL        43
                                        *         WHEN IT IS ENTERED.                                            EBL        44
1       EBL         CTI EXTERNAL BOOTSTRAP LOADER - A02               COMPASS 3.7-871.     23/08/13. 15.42.49.      PAGE     3
        DEFINITIONS.
  
                                        **        DEADSTART PANEL WORDS.                                         EBL        46
                                        *                                                                        EBL        47
                                        *         WORDS 5 - 20B OF THE DEADSTART PANEL MUST REMAIN INTACT        EBL        48
                                        *         DURING CTI EXECUTION. WORDS 0 - 4 MAY BE USED AS SCRATCH       EBL        49
                                        *         DIRECT CELLS.                                                  EBL        50
                                   0     D0       EQU    0                 SCRATCH                               EBL        51
                                   1     D1       EQU    1                 SCRATCH                               EBL        52
                                   2     D2       EQU    2                 SCRATCH                               EBL        53
                                   3     D3       EQU    3                 SCRATCH                               EBL        54
                                   4     D4       EQU    4                 SCRATCH                               EBL        55
                                   5     D5       EQU    5                 ZERO IF TAPE DEADSTART                EBL        56
                                   6     D6       EQU    6                 FUNCTION WORD                         EBL        57
                                        *         (D6) = WARMSTART FUNCTION, IF MTS/ATS.                         EBL        58
                                        *              = DEADSTART FUNCTION, IF 844/885 DISK                     EBL        59
                                   7     D7       EQU    7                 RESERVED                              EBL        60
                                        *         (D7) = 1400B IF 3000 TYPE TAPE.                                EBL        61
                                  10     D10      EQU    10B               RESERVED                              EBL        62
                                  11     D11      EQU    11B               RESERVED                              EBL        63
                                  12     D12      EQU    12B               MSL PARAMETERS                        EBL        64
                                  13     D13      EQU    13B               OS PARAMETERS                         EBL        65
                                  14     D14      EQU    14B               OS PARAMETERS                         EBL        66
                                  15     D15      EQU    15B               UNUSED                                EBL        67
                                  16     D16      EQU    16B               C80/A170 RESERVED                     EBL        68
                                  17     D17      EQU    17B               RESERVED                              EBL        69
                                  20     D20      EQU    20B               RESERVED                              EBL        70
  
  
  
  
                                        **        INSTRUCTION EQUATES.                                           EBL        72
                                        *                                                                        EBL        73
                                   0     PSNC     EQU    0000B             PASS                                  EBL        74
                                 100     LJMC     EQU    0100B             LONG JUMP                             EBL        75
                                 300     UJNC     EQU    0300B             UNCONDITIONAL JUMP                    EBL        76
                                 400     ZJNC     EQU    0400B             ZERO JUMP                             EBL        77
                                1000     SHNC     EQU    1000B             SHIFT                                 EBL        78
                                1500     LCNC     EQU    1500B             LOAD COMPLEMENT                       EBL        79
                                1700     SBNC     EQU    1700B             SUBTRACT NO-ADDRESS                   EBL        80
                                2000     LDCC     EQU    2000B             LOAD CONSTANT                         EBL        81
                                2100     ADCC     EQU    2100B             ADD CONSTANT                          EBL        82
                                2300     LMCC     EQU    2300B             LOGICAL MINUS CONSTANT                EBL        83
                                3000     LDDC     EQU    3000B             LOAD DIRECT                           EBL        84
                                6400     AJMC     EQU    6400B             ACTIVE JUMP                           EBL        85
                                7100     IAMC     EQU    7100B             INPUT MEMORY                          EBL        86
                                7300     OAMC     EQU    7300B             OUTPUT MEMORY                         EBL        87
                                7400     ACNC     EQU    7400B             ACTIVATE CHANNEL                      EBL        88
                                7500     DCNC     EQU    7500B             DISCONNECT CHANNEL                    EBL        89
1       EBL         CTI EXTERNAL BOOTSTRAP LOADER - A02               COMPASS 3.7-871.     23/08/13. 15.42.49.      PAGE     4
        DEFINITIONS.
  
                                        **        MISCELLANEOUS DEFINITIONS                                      EBL        92
                                        *                                                                        EBL        93
                                        *                                                                        EBL        94
                                   0     RICHI$   EQU    0       ALLOW SELECTIVE CHANNEL REDEFINITION            EBL        95
                              210560     TIMEOUT  EQU    70000             TIMEOUT COUNT FOR DISK                EBL        96
                                   5     NAME     EQU    5                 OFFSET OF NAME IN PRFX TABLE          EBL        97
                                   0     DSIFT    EQU    0                 885 D.S. SECTOR NOT IN FLAWED TRACK   EBL        98
  
  
  
  
                                        **        DISPLAY CONTROLLER DEFINITIONS.                                EBL       100
                                        *                                                                        EBL       101
                                        *                                                                        EBL       102
                                  10     CHD      EQU    10B               DISPLAY CHANNEL                       EBL       103
                                        *         DISPLAY FUNCTION CODES.                                        EBL       104
                                7000     F.SEL    EQU    7000B             SELECT CONSOLE DISPLAY                EBL       105
                                   0     F.SLS    EQU    0000B             SELECT CONSOLE LEFT SCREEN            EBL       106
                                 100     F.SRS    EQU    0100B             SELECT CONSOLE RIGHT SCREEN           EBL       107
                                 200     F.SBS    EQU    0200B             SELECT CONSOLE BOTH SCREEN            EBL       108
                                   0     F.CHR    EQU    0000B             SELECT CHARACTER MODE                 EBL       109
                                  10     F.DOT    EQU    0010B             SELECT DOT MODE                       EBL       110
                                  20     F.KEY    EQU    0020B             SELECT KEYBOARD INPUT                 EBL       111
                                   0     F.CHS    EQU    0000B             SET CHARACTER SIZE SMALL              EBL       112
                                   1     F.CHM    EQU    0001B             SET CHARACTER SIZE MEDIUM             EBL       113
                                   2     F.CHL    EQU    0002B             SET CHARACTER SIZE LARGE              EBL       114
                                        *         COORDINATE DESIGNATION.                                        EBL       115
                                6000     XSET     EQU    6000B             SET X COORDINATE                      EBL       116
                                7000     YSET     EQU    7000B             SET Y COORDINATE                      EBL       117
                                  22     YINCR    EQU    22B               Y INCREMENT PER LINE                  EBL       118
  
  
  
  
                                        *         SCR DEFINITIONS                                                EBL       120
                                  16     CHSCR    EQU    16B               SCR CHANNEL                           EBL       121
                                  36     SCR2     EQU    36B               2ND SCR CHANNEL                       EBL       122
1       EBL         CTI EXTERNAL BOOTSTRAP LOADER - A02               COMPASS 3.7-871.     23/08/13. 15.42.49.      PAGE     5
        DEFINITION COMMON DECKS.
  
                                        **        DEFINITION COMMON DECKS.                                       EBL       125
                                        *                                                                        EBL       126
                                        **        ALL SYMBOL AND MACRO DEFINITION COMMON DECKS ARE CALLED HERE.  EBL       127
           0                             CTI      CTEXT  COMPCTI - CTI COMMON MACROES.                           COMPCTI     2
                                1000     SHNI     EQU    1000B                                                   XXXX        5
           0                                      XTEXT  COMPMAC                                                 XXXX        6
           0                                      CTEXT  COMPCHI - REDEFINE I/O INSTRUCTIONS.                    COMPCHI     2
           0                             844      CTEXT  COMS844 - 844 DISK DEFINTIONS.                          COMS844     2
           0                             885      CTEXT  COMS885 - 885 DISK DEFINTIONS.                          COMS885     2
           0                                      CTEXT  COMSSCR - S/C REGISTER EQUIVALENCES.                    COMSSCR     2
           0                             CPA      CTEXT  COMSCPA - CTI COMMON POINTER AREA DEFINITIONS.          COMSCPA     2
           0                             CTI      CTEXT  COMSCTI - CTI INTERNAL DEFINITIONS.                     COMSCTI     2
  
  
  
  
                                 502     DSLN     EQU    /CPA/DSLN                                               EBL       137
                                 500     PRU      EQU    /CPA/PRU                                                EBL       138
                                7720     DDSCMRA  EQU    /CPA/DDSMEM                                             EBL       139
                                7722     DDSCMFL  EQU    /CPA/DDSMEM+2                                           EBL       140
                                7724     DDSECRA  EQU    /CPA/DDSMEM+4                                           EBL       141
                                7726     DDSECFL  EQU    /CPA/DDSMEM+6                                           EBL       142
  
  
  
  
                                        *         DEFINE 885 D.S. SECTOR READ FUNCTION                           EBL       144
                                                                                                                 EBL       145
                                                  IFEQ   DSIFT,0                                                 EBL       146
                                   4     DSR885   EQU    /885/DRED                                               EBL       147
                                                  ELSE                                                           EBL       148
                                                  ENDIF                                                          EBL       150
1       EBL         CTI EXTERNAL BOOTSTRAP LOADER - A02               COMPASS 3.7-871.     23/08/13. 15.42.49.      PAGE     6
        DIRECT-CELL AND LOW-CORE DEFINITIONS
  
                                        **        DIRECT CELL DEFINITIONS                                        EBL       152
                                        *                                                                        EBL       153
                                        *                                                                        EBL       154
                                  20     REPADDR  EQU    20B                                                     EBL       155
                                  21     RETRY    EQU    21B               RETRY COUNTER                         EBL       156
                                  23     MSGLEN   EQU    23B               WHEN MSG LENGTH .GT. 77B              EBL       157
                                  24     FCNF     EQU    24B               SAVE AREA FOR FCN                     EBL       158
                                  25     GENSTAT  EQU    25B               GENERAL STATUS SAVE AREA              EBL       159
                                  26     CHAN     EQU    26B               1ST WORD OF QOD COMM AREA             EBL       160
                                  27     UNIT     EQU    CHAN+1            2ND WORD OF QOD COMM AREA             EBL       161
                                  30     DTYPE    EQU    UNIT+1            0=885, 1=844S, 2=844D                 EBL       162
                                  31     TRKSPER  EQU    DTYPE+1           TRACKS PER CYLINDER                   EBL       163
                                  32     SECSPER  EQU    TRKSPER+1         SECTORS PER TRACK                     EBL       164
                                  33     DSCYL    EQU    SECSPER+1         DEADSTART CYLINDER                    EBL       165
                                  34     DSTRK    EQU    DSCYL+1           DEADSTART TRACK                       EBL       166
                                  35     DSSEC    EQU    DSTRK+1           DEADSTART SECTOR                      EBL       167
                                  36     CTICYL   EQU    DSSEC+1           CTI CYLINDER                          EBL       168
                                  37     CTITRK   EQU    CTICYL+1          CTI TRACK                             EBL       169
                                  40     CTISEC   EQU    CTITRK+1          CTI SECTOR                            EBL       170
                                  41     EBLPD    EQU    CTISEC+1          DIRECT CELL VERSION                   EBL       171
                                  42     REDA     EQU    EBLPD+1           WORK CELL FOR RED                     EBL       172
1       EBL         CTI EXTERNAL BOOTSTRAP LOADER - A02               COMPASS 3.7-871.     23/08/13. 15.42.49.      PAGE     7
        MAIN ROUTINE
  
         200                                      ORG    /CTI/EBLLOAD                                            EBL       174
  
  
  
  
                                 200     EBL      EQU    *                 ENTRY POINT                           EBL       176
                                        *         INITIALIZATION                                                 EBL       177
         200         5000 6777                    LDM    /CTI/EBLP                                               EBL       178
         202         3441                         STD    EBLPD             MOVE EBLP TO DIRECT CELL              EBL       179
         203         1703                         SBN    3                 VERIFY THAT EBLP IN RANGE 0-2         EBL       180
         204         0603                         PJN    EBL1                                                    EBL       181
         205         1603                         ADN    3                                                       EBL       182
         206         0610                         PJN    EBL2                                                    EBL       183
         207         0200 1054           EBL1     RJM    F10               FREE DISPLAY CH                       EBL       184
         211         2013 2041           EBLL     LDC    MSGDL*1S12+MSGD                                         EBL       185
         213         0200 1031                    RJM    DIS                                                     EBL       186
         215         0373                         UJN    EBLL              LOOP ON DISPLAY                       EBL       187
                                 216     EBL2     EQU    *                                                       EBL       188
         216         5041 2153                    LDM    NMTBL1,EBLPD      FIX MESSAGE B                         EBL       189
         220         5400 1757                    STM    MSGBNM                                                  EBL       190
         222         5041 2156                    LDM    NMTBL2,EBLPD                                            EBL       191
         224         5400 1760                    STM    MSGBNM+1                                                EBL       192
                                        *         DETERMINE WHICH CASE EXISTS                                    EBL       193
         226         5000 7705                    LDM    /CPA/DSPNLZ+6                                           DIMA357     1
         230         1071                         SHN    -6                                                      DIMA357     2
         231         1207                         LPN    7                                                       DIMA357     3
         232         1703                         SBN    3                                                       DIMA357     4
         233         0405                         ZJN    EBL5              IF DSPNL SET UP FOR DISK              DIMA357     5
         234         3041                         LDD    EBLPD                                                   EBL       197
         235         0411                         ZJN    TOS               IF OSB LOAD                           EBL       198
         236         0100 0506                    LJM    TMS               IF DSB/MSB LOAD                       EBL       199
         240         3041                EBL5     LDD    EBLPD                                                   EBL       200
         241         0503                         NJN    EBL6                                                    EBL       201
         242         0100 0514                    LJM    DOS               IF OSB LOAD                           EBL       202
         244         0100 0616           EBL6     LJM    DMS               IF DSB/MSB LOAD                       EBL       203
  
  
  
  
                                        *         HERE IF TAPE OSB                                               EBL       205
         246         2000 0252           TOS      LDC    TOSP                                                    EBL       206
         250         0100 7000                    LJM    /CTI/CDEP         CALL COMMON DRIVER TO LOAD ZZZ        EBL       207
         252         2764                TOSP     CON    BUFFER            LOAD ADDRESS                          EBL       208
         253         0257                         CON    TOS7              TRANSFER ADDRESS                      EBL       209
         254         0000                         CON    0                                                       EBL       210
         255         3232                         VFD    18/3LZZZ,6/0      ZZZ                                   EBL       211
         256         3200 
         257         2000 0263           TOS7     LDC    TOSR                                                    EBL       212
         261         0100 7000                    LJM    /CTI/CDEP         CALL COMMON DRIVER TO LOAD NEXT       EBL       213
         263         6200                TOSR     CON    /CTI/BOOTLOD      LOAD ADDRESS                          EBL       214
         264         0270                         CON    TOS50             TRANSFER ADDRESS                      EBL       215
         265         0000 0000                    CON    0,0,0                                                   EBL       216
         267         0000 
         270         0200 0755           TOS50    RJM    CNM               CHECK NAME                            EBL       217
         272         0410                         ZJN    TOS90             IF OK                                 EBL       218
         273         0200 1054           TOS60    RJM    F10               FREE DISPLAY                          EBL       219
         275         2030 1725           TOS65    LDC    MSGAL*1S12+MSGA   HANG. OSB NOT FOUND                   EBL       220
1       EBL         CTI EXTERNAL BOOTSTRAP LOADER - A02               COMPASS 3.7-871.     23/08/13. 15.42.49.      PAGE     8
        MAIN ROUTINE
  
         277         0200 1031                    RJM    DIS                                                     EBL       221
         301         0373                         UJN    TOS65                                                   EBL       222
  
  
  
  
                                        *         CREATE DEADSTART PASS-ON STATE                                 EBL       224
                                 302     TOS90    EQU    *                                                       EBL       225
                                        *         IF DSB LOAD, SET UP DDSMEM FIELD                               EBL       226
         302         3041                         LDD    EBLPD                                                   EBL       227
         303         1701                         SBN    1                                                       EBL       228
         304         0403                         ZJN    TOS100            IF DSB LOAD                           EBL       229
         305         0100 0406                    LJM    TOS200            IF NOT DSB LOAD                       EBL       230
         307         1407                TOS100   LDN    8-1               CLEAR DDSMEM FIRST                    EBL       231
         310         3401                         STD    D1                                                      EBL       232
         311         1400                TOS105   LDN    0                                                       EBL       233
         312         5401 7720                    STM    DDSCMRA,D1                                              EBL       234
         314         3701                         SOD    D1                                                      EBL       235
         315         0673                         PJN    TOS105                                                  EBL       236
         316         5000 7712                    LDM    /CPA/DSPNLZ+D13   GET ORIGINAL D13                      EBL       237
         320         1066                         SHN    -9                                                      EBL       238
         321         1207                         LPN    7                                                       EBL       239
         322         1703                         SBN    3                                                       EBL       240
         323         0613                         PJN    TOS120            IF I .GE. 3                           EBL       241
                                        *         HERE IF I .LT. 3, SET CM ACCORDING TO HDT.                     EBL       242
         324         5000 7671                    LDM    /CPA/CMSZ                                               EBL       243
         326         5400 7722                    STM    DDSCMFL                                                 EBL       244
         330         5000 7672                    LDM    /CPA/CMSZ+1                                             EBL       245
         332         5400 7723                    STM    DDSCMFL+1                                               EBL       246
         334         0100 0406                    LJM    TOS160                                                  EBL       247
                                        *         HERE IF I .GE. 3, USE COMPCMA TO SET CM.                       EBL       248
         336         2000 2604           TOS120   LDC    CMABUF                                                  EBL       249
         340         0200 2405                    RJM    CMA                                                     EBL       250
                                        *         FIND LARGEST PARTITION                                         EBL       251
         342         2000 2604                    LDC    CMABUF                                                  EBL       252
         344         3401                         STD    D1                                                      EBL       253
         345         5001 0001           TOS130   LDM    1,D1                                                    EBL       254
         347         0437                         ZJN    TOS160            IF END OF TABLE REACHED               EBL       255
         350         5001 0002                    LDM    2,D1              TEST UPPER FL BYTE                    EBL       256
         352         5200 7722                    SBM    DDSCMFL                                                 EBL       257
         354         0726                         MJN    TOS150            IF NOT LARGER                         EBL       258
         355         0506                         NJN    TOS140            IF LARGER                             EBL       259
         356         5000 7723                    LDM    DDSCMFL+1         CHECK LOWER FL BYTE                   EBL       260
         360         5201 0003                    SBM    3,D1                                                    EBL       261
         362         0620                         PJN    TOS150            IF NOT LARGER                         EBL       262
         363         4001                TOS140   LDI    D1                REPLACE WITH NEW MAX                  EBL       263
         364         5400 7720                    STM    DDSCMRA                                                 EBL       264
         366         5001 0001                    LDM    1,D1                                                    EBL       265
         370         5400 7721                    STM    DDSCMRA+1                                               EBL       266
         372         5001 0002                    LDM    2,D1                                                    EBL       267
         374         5400 7722                    STM    DDSCMFL                                                 EBL       268
         376         5001 0003                    LDM    3,D1                                                    EBL       269
         400         5400 7723                    STM    DDSCMFL+1                                               EBL       270
         402         1404                TOS150   LDN    4                 ADVANCE TABLE POINTER                 EBL       271
         403         3501                         RAD    D1                                                      EBL       272
         404         0100 0345                    LJM    TOS130            CONTINUE SEARCH                       EBL       273
                                        *         SET UP ECS FIELDS.                                             EBL       274
1       EBL         CTI EXTERNAL BOOTSTRAP LOADER - A02               COMPASS 3.7-871.     23/08/13. 15.42.49.      PAGE     9
        MAIN ROUTINE
  
                                 406     TOS160   EQU    *                                                       EBL       275
                                                  IF     DEF,CE.ECSRA                                            EBL       276
                                                  ENDIF                                                          EBL       287
  
  
  
  
                                        *         SET CHANNELS AS REQUIRED.                                      EBL       289
                                 406     TOS200   EQU    *                                                       EBL       290
         406         3041                         LDD    EBLPD                                                   EBL       291
         407         0415                         ZJN    TOS250            IF OSB LOAD                           EBL       292
         410         7452                         ACN    12B+40B                                                 EBL       293
         411         7453                         ACN    13B+40B                                                 EBL       294
         412         7472                         ACN    32B+40B                                                 EBL       295
         413         7473                         ACN    33B+40B                                                 EBL       296
         414         2000 7674                    LDC    /CPA/PPP0                                               EBL       297
         416         0200 0704                    RJM    ACH                                                     EBL       298
         420         2020 7675                    LDC    20B*1S12+/CPA/PPP1                                      EBL       299
         422         0200 0704                    RJM    ACH                                                     EBL       300
                                        *         IF OSB LOAD, LEAVE DEVICE CONNECTED                            EBL       301
         424         3041                TOS250   LDD    EBLPD                                                   EBL       302
         425         0503                         NJN    TOS300            IF NOT OSB LOAD                       EBL       303
         426         0200 1220                    RJM    CONLD             CONNECT LOAD DEVICE                   EBL       304
  
  
  
  
                                        *         SCR BIT PROCESSING                                             EBL       306
         430         6516 0504           TOS300   IJM    NOSCR,CHSCR       IF NO SCR                             EBL       307
         432         3041                         LDD    EBLPD                                                   DIMA398     1
         433         0403                         ZJN    TOS310      IF OS LOAD                                  DIMA398     2
         434         0100 0504                    LJM    JUMP        IF NOT OS LOAD                              DIMA398     3
         436                             TOS310   BSS    0                                                       DIMA398     4
         436         2000 4137                    LDC    FCSB+PPPE         STOP ON PP MEM ERROR                  EBL       308
         440         7256                         OAN    CHSCR+40B                                               EBL       309
         441         7056                         IAN    CHSCR+40B                                               EBL       310
         442         2000 4136                    LDC    FCSB+PPCM         STOP ON CM READ ERROR                 EBL       311
         444         7256                         OAN    CHSCR+40B                                               EBL       312
         445         7056                         IAN    CHSCR+40B                                               EBL       313
         446         2000 4124                    LDC    FCSB+PPCT         2X PP SPEED                           EBL       314
         450         7256                         OAN    CHSCR+40B                                               EBL       315
         451         7056                         IAN    CHSCR+40B                                               EBL       316
         452         5000 7675                    LDM    /CPA/PPP1                                               EBL       317
         454         2300 1777                    LMC    1777B                                                   EBL       318
         456         0415                         ZJN    TIX76             JUMP IF CH36 NOT PRESENT              EBL       319
         457         2000 4137                    LDC    FCSB+PPPE         STOP ON PP MEM ERROR                  EBL       320
         461         7276                         OAN    SCR2+40B                                                EBL       321
         462         7076                         IAN    SCR2+40B                                                EBL       322
         463         2000 4136                    LDC    FCSB+PPCM         STOP ON CM READ ERROR                 EBL       323
         465         7276                         OAN    SCR2+40B                                                EBL       324
         466         7076                         IAN    SCR2+40B                                                EBL       325
         467         2000 4124                    LDC    FCSB+PPCT         2X PP SPEED                           EBL       326
         471         7276                         OAN    SCR2+40B                                                EBL       327
         472         7076                         IAN    SCR2+40B                                                EBL       328
         473         5000 7673           TIX76    LDM    /CPA/OPTN         TEST IF CYBER X76                     EBL       329
         475         2200 3000                    LPC    3000B                                                   EBL       330
         477         0405                         ZJN    NOTX76            JUMP IF NOT CYBER X76                 EBL       331
1       EBL         CTI EXTERNAL BOOTSTRAP LOADER - A02               COMPASS 3.7-871.     23/08/13. 15.42.49.      PAGE    10
        MAIN ROUTINE
  
         500         2000 4211                    LDC    FCSB+SPUM         SELECT STOP ON PPU MEMORY PARITY ERRO EBL       332
         502         7256                         OAN    CHSCR+40B                                               EBL       333
         503         7056                         IAN    CHSCR+40B                                               EBL       334
                                 504     NOTX76   EQU    *                                                       EBL       335
                                 504     NOSCR    EQU    *                                                       EBL       336
         504         0100 6320           JUMP     LJM    /CTI/BOOTTRN                                            EBL       337
  
  
  
  
                                        *         HERE IF TAPE DSB/MSB                                           EBL       339
         506         2024 2015           TMS      LDC    MSGCL*1S12+MSGC                                         EBL       340
         510         0200 0777                    RJM    CQOD              CALL QOD                              EBL       341
         512         0100 0654                    LJM    DMS60             JOIN COMMON LOGIC                     EBL       342
  
  
  
  
                                        *         HERE IF DISK OSB                                               EBL       344
                                 514     DOS      EQU    *                                                       EBL       345
         514         5000 7771                    LDM    /CPA/OSDP+3       CHECK OSDP FLAG                       EBL       346
         516         1006                         SHN    17-11                                                   EBL       347
         517         0717                         MJN    DOS20             IF FLAG SET                           EBL       348
                                        *         READ SPECIFIED SECTOR FROM DEADSTART DEVICE                    EBL       349
         520         5000 7707           DOS10    LDM    /CPA/DSPNLZ+D10                                         EBL       350
         522         1237                         LPN    37B                                                     EBL       351
         523         3426                         STD    CHAN              STORE D.S. CHANNEL                    EBL       352
         524         5000 7705                    LDM    /CPA/DSPNLZ+D6                                          EBL       353
         526         1277                         LPN    77B                                                     EBL       354
         527         3427                         STD    UNIT              STORE D.S. UNIT                       EBL       355
         530         2000 7766                    LDC    /CPA/OSDP                                               EBL       356
         532         0200 1442                    RJM    RED               READ DISK                             EBL       357
         534         0525                         NJN    DOS40             IF SOME ERROR                         EBL       358
         535         0315                         UJN    DOS30             IF GOOD READ                          EBL       359
                                        *         READ SPECIFIED SECTOR FROM SPECIFIED DEVICE                    EBL       360
         536         5000 7771           DOS20    LDM    /CPA/OSDP+3                                             EBL       361
         540         1277                         LPN    77B                                                     EBL       362
         541         3426                         STD    CHAN              STORE DEVICE CHANNEL                  EBL       363
         542         5000 7772                    LDM    /CPA/OSDP+4                                             EBL       364
         544         3427                         STD    UNIT              STORE DEVICE UNIT                     EBL       365
         545         2000 7766                    LDC    /CPA/OSDP                                               EBL       366
         547         0200 1442                    RJM    RED               READ DISK                             EBL       367
         551         0510                         NJN    DOS40             IF SOME ERROR                         EBL       368
         552         0200 0755           DOS30    RJM    CNM               CHECK IF NAME CORRECT                 EBL       369
         554         0505                         NJN    DOS40             IF NOT OSB                            EBL       370
         555         0200 1074                    RJM    MDSP              MODIFY D.S. PANEL                     EBL       371
         557         0100 0302                    LJM    TOS90             JOIN COMMON LOGIC                     EBL       372
         561         2040 1755           DOS40    LDC    MSGBL*1S12+MSGB                                         EBL       373
         563         0200 0777                    RJM    CQOD              CALL QOD                              EBL       374
         565         1400                         LDN    0                 SET DEADSTART-SECTOR READ             EBL       375
         566         0200 1442                    RJM    RED               READ DISK                             EBL       376
         570         0570                         NJN    DOS40             IF SOME ERROR                         EBL       377
         571         5000 3454           DOS60    LDM    DSSBUF+/CPA/OSDP+3-/CTI/IPLA  GET FLAG WORD             EBL       378
         573         1006                         SHN    17-11                                                   EBL       379
         574         0764                         MJN    DOS40             IF FLAG SET                           EBL       380
         575         5041 2145           DOS80    LDM    DSSTBL,EBLPD      REPLACE OS POINTER WORDS WITH         EBL       381
         577         3401                         STD    D1                  SAME FROM DEADSTART SECTOR          EBL       382
1       EBL         CTI EXTERNAL BOOTSTRAP LOADER - A02               COMPASS 3.7-871.     23/08/13. 15.42.49.      PAGE    11
        MAIN ROUTINE
  
         600         5041 2150                    LDM    CPATBL,EBLPD                                            EBL       383
         602         3402                         STD    D2                                                      EBL       384
         603         1412                         LDN    10                                                      EBL       385
         604         3403                         STD    D3                                                      EBL       386
         605         5001 2764           DOS85    LDM    DSSBUF,D1                                               EBL       387
         607         4402                         STI    D2                                                      EBL       388
         610         3601                         AOD    D1                                                      EBL       389
         611         3602                         AOD    D2                                                      EBL       390
         612         3703                         SOD    D3                                                      EBL       391
         613         0571                         NJN    DOS85                                                   EBL       392
         614         0100 0536                    LJM    DOS20                                                   EBL       393
  
  
  
  
                                        *         HERE IF DISK DSB/MSB                                           EBL       395
                                 616     DMS      EQU    *                                                       EBL       396
                                        *         READ SECTOR POINTED AT BY DSB/MSB POINTER                      EBL       397
         616         5041 2150           DMS20    LDM    CPATBL,EBLPD                                            EBL       398
         620         3401                         STD    D1                                                      EBL       399
         621         5000 7707                    LDM    /CPA/DSPNLZ+D10                                         EBL       400
         623         1237                         LPN    37B         DEADSTART DEVICE CHANNEL NUMBER             EBL       401
         624         3426                         STD    CHAN                                                    EBL       402
         625         5401 0003                    STM    3,D1        MODIFY CPA                                  EBL       403
         627         5000 7705                    LDM    /CPA/DSPNLZ+D6                                          EBL       404
         631         1277                         LPN    77B         DEADSTART DEVICE UNIT NUMBER                EBL       405
         632         3427                         STD    UNIT                                                    EBL       406
         633         5401 0004                    STM    4,D1        MODIFY CPA                                  EBL       407
         635         3001                         LDD    D1                ADDR(MSB/DSB DISK POINTER)            EBL       408
         636         0200 1442                    RJM    RED               READ DISK                             EBL       409
         640         0510                         NJN    DMS40             IF SOME ERROR                         EBL       410
         641         0200 0755                    RJM    CNM               CHECK NAME                            EBL       411
         643         0505                         NJN    DMS40             IF WRONG                              EBL       412
         644         0200 1074                    RJM    MDSP              MODIFY D.S PANEL                      EBL       413
         646         0100 0302                    LJM    TOS90             JOIN COMMON LOGIC                     EBL       414
         650         2040 1755           DMS40    LDC    MSGBL*1S12+MSGB                                         EBL       415
         652         0200 0777                    RJM    CQOD              CALL QOD                              EBL       416
         654         1400                DMS60    LDN    0                 SET DEADSTART SECTOR READ             EBL       417
         655         0200 1442                    RJM    RED               READ DISK                             EBL       418
         657         0570                         NJN    DMS40             IF SOME ERROR                         EBL       419
         660         5000 2147           DMS80    LDM    DSSTBL+2          REPLACE MSB/DSB POINTER WITH          DIMA357     6
         662         3401                         STD    D1                  SAME FROM DEADSTART SECTOR          EBL       421
         663         5000 2152                    LDM    CPATBL+2                                                DIMA357     7
         665         3402                         STD    D2                                                      EBL       423
         666         1424                         LDN    20                                                      DIMA357     8
         667         3403                         STD    D3                                                      EBL       425
         670         5001 2764           DMS85    LDM    DSSBUF,D1                                               EBL       426
         672         4402                         STI    D2                                                      EBL       427
         673         3601                         AOD    D1                                                      EBL       428
         674         3602                         AOD    D2                                                      EBL       429
         675         3703                         SOD    D3                                                      EBL       430
         676         0571                         NJN    DMS85                                                   EBL       431
         677         0200 1074                    RJM    MDSP              MODIFY DEADSTART PANEL                DIMA357     9
         701         0100 0616                    LJM    DMS20                                                   EBL       432
1       EBL         CTI EXTERNAL BOOTSTRAP LOADER - A02               COMPASS 3.7-871.     23/08/13. 15.42.49.      PAGE    12
        SUBROUTINES 
  
                                        **        ACH - ACTIVATE CHANNELS                                        EBL       435
                                        *                                                                        EBL       436
                                        *         ACH WILL EXAMINE A PPP-X AND RELATED LPP-X WORD                EBL       437
                                        *         OF THE HDT.  IF FOR PP-N, THE LPP BIT IS SET AND               EBL       438
                                        *         THE PPP BIT IS NOT SET, THEN CHANNEL-N IS ACTIVATED.           EBL       439
                                        *                                                                        EBL       440
                                        *         ENTRY  (A) = PPAAAA WHERE                                      EBL       441
                                        *                      PP = PP NUMBER CORRESPONDING TO                   EBL       442
                                        *                           LEAST SIGNIFICANT BIT.                       EBL       443
                                        *                      AAAA = ADDRESS OF PPP WORD.                       EBL       444
         703         0100 0000           ACH      ENM    X                 ENTRY/EXIT                            EBL       445
         705         3401                         STD    D1                SAVE ADDRESS OF PPP WORD              EBL       446
         706         1063                         SHN    -12                                                     EBL       447
         707         3426                         STD    CHAN                                                    EBL       448
         710         4001                         LDI    D1                                                      EBL       449
         711         2300 7777                    LMC    7777B                                                   EBL       450
         713         5400 0720                    STM    ACHA                                                    EBL       451
         715         5001 0002                    LDM    /CPA/LPP0-/CPA/PPP0,D1                                  EBL       452
         717         2200 0000                    LPC    **                                                      EBL       453
                                 720     ACHA     EQU    *-1                                                     EBL       454
         721         1001                         SHN    1                                                       EBL       455
         722         3404                         STD    D4                STORE SHIFTED LOGICAL PRODUCT         EBL       456
         723         3004                ACH2     LDD    D4                                                      EBL       457
         724         1076                         SHN    -1                                                      EBL       458
         725         3404                         STD    D4                                                      EBL       459
         726         0454                         ZJN    ACHX              RETURN,NO MORE SET                    EBL       460
         727         1201                         LPN    1                                                       EBL       461
         730         0417                         ZJN    ACH8              IF NOT SET                            EBL       462
         731         2000 0751                    LDC    ACHT                                                    EBL       463
         733         0200 1151                    RJM    ICN               INSERT CHANNEL NUMBER                 EBL       464
         735         6500 0746           ACHE     IJM    ACHF,**           IF NOT ACTIVE                         EBL       465
         737         0200 1054                    RJM    F10               FREE DISPLAY CH                       EBL       466
         741         2014 2054           ACHL     LDC    MSGEL*1S12+MSGE                                         EBL       467
         743         0200 1031                    RJM    DIS                                                     EBL       468
         745         0373                         UJN    ACHL              LOOP ON DISPLAY                       EBL       469
         746         7400                ACHF     ACN    **                ACTIVATE CHANNEL                      EBL       470
         747         3626                ACH8     AOD    CHAN              BUMP CHANNEL                          EBL       471
         750         0352                         UJN    ACH2              LOOP                                  EBL       472
         751         0735 0746           ACHT     CON    ACHE,ACHF,0                                             EBL       473
         753         0000 
  
  
  
  
                                        **        CNM - CHECK NAME                                               EBL       475
                                        *                                                                        EBL       476
                                        *         CNM WILL CHECK THE NAME IN THE PRFX TABLE TO SEE               EBL       477
                                        *         IF IT IS AS IT SHOULD BE DEPENDING ON EBLP.                    EBL       478
                                        *                                                                        EBL       479
                                        *         EXIT   (A) = 0 IF CORRECT NAME                                 EBL       480
                                        *              (A) .NE. 0 IF WRONG.                                      EBL       481
         754         0100 0000           CNM      ENM    X                 ENTRY/EXIT                            EBL       482
         756         5000 6205                    LDM    /CTI/BOOTLOD+NAME                                       EBL       483
         760         5341 0770                    LMM    CNMTA,EBLPD                                             EBL       484
         762         0571                         NJN    CNMX              RETURN,WRONG                          EBL       485
         763         5000 6206                    LDM    /CTI/BOOTLOD+NAME+1                                     EBL       486
         765         5341 0773                    LMM    CNMTB,EBLPD                                             EBL       487
1       EBL         CTI EXTERNAL BOOTSTRAP LOADER - A02               COMPASS 3.7-871.     23/08/13. 15.42.49.      PAGE    13
        SUBROUTINES 
  
         767         0364                         UJN    CNMX              RETURN                                EBL       488
         770         1723                CNMTA    DATA   H*OSDSMS*                                               EBL       489
         773         0200 0200           CNMTB    CON    1RB*100B,1RB*100B,1RB*100B                              EBL       490
         775         0200 
  
  
  
  
                                        **        CQOD - CALL QOD FOR CONNECT CODE                               EBL       492
                                        *                                                                        EBL       493
                                        *         CQOD WILL FREE THE DISPLAY CHANNEL, SET UP AND CALL QOD,       EBL       494
                                        *         RESET THE DISPLAY CHANNEL.                                     EBL       495
                                        *                                                                        EBL       496
                                        *         ENTRY  (A) = LLAAAA                                            EBL       497
                                        *                      LL = LENGTH OF THE HEADER MSG                     EBL       498
                                        *                      AAAA = ADDRESS OF HEADER MSG                      EBL       499
                                        *                                                                        EBL       500
                                        *         EXIT   (CHAN) = CHANNEL ENTERED BY OPERATOR                    EBL       501
                                        *              (UNIT) = EQUIP/UNIT ENTERED BY OPERATOR.                  EBL       502
         776         0100 0000           CQOD     ENM    X                 ENTRY/EXIT                            EBL       503
        1000         5400 1027                    STM    CQODLO            SAVE A-REG                            EBL       504
        1002         1063                         SHN    -12                                                     EBL       505
        1003         5400 1026                    STM    CQODHI                                                  EBL       506
        1005         0200 1054                    RJM    F10               FREE DISPLAY CHANNEL                  EBL       507
        1007         1400                         LDN    0                                                       EBL       508
        1010         3426                         STD    CHAN                                                    EBL       509
        1011         3427                         STD    UNIT                                                    EBL       510
        1012         1426                         LDN    CHAN                                                    EBL       511
        1013         3420                         STD    REPADDR                                                 EBL       512
        1014         5000 1026                    LDM    CQODHI            RESET A-REG                           EBL       513
        1016         1014                         SHN    12                                                      EBL       514
        1017         5300 1027                    LMM    CQODLO                                                  EBL       515
        1021         0200 2162                    RJM    /QOD/QOD          CALL QOD                              EBL       516
        1023         0200 1121                    RJM    R10               RESET DISPLAY CHANNEL                 EBL       517
        1025         0350                         UJN    CQODX             RETURN                                EBL       518
        1026         0000                CQODHI   CON    0                                                       EBL       519
        1027         0000                CQODLO   CON    0                                                       EBL       520
  
  
  
  
                                        **        DIS - DISPLAY MESSAGE ON DD60                                  EBL       522
                                        *                                                                        EBL       523
                                        *         DIS OUTPUTS A SPECIFIED BUFFER TO THE DISPLAY.                 EBL       524
                                        *                                                                        EBL       525
                                        *         ENTRY  (A) = LLAAAA WHERE                                      EBL       526
                                        *                      LL = LENGTH OF MESSAGE BUFFER                     EBL       527
                                        *                      AAAA = FWA OF MESSAGE BUFFER.                     EBL       528
                                        *                      IF LL = 0, THEN MSGLEN HAS LENGTH                 EBL       529
        1030         0100 0000           DIS      ENM    X                 ENTRY/EXIT                            EBL       530
        1032         5400 1044                    STM    DISB              STORE FWA OF MSG                      EBL       531
        1034         1006                         SHN    6                                                       EBL       532
        1035         1277                         LPN    77B               ISOLATE LENGTH                        EBL       533
        1036         0502                         NJN    DIS4                                                    EBL       534
        1037         3023                         LDD    MSGLEN                                                  EBL       535
        1040         7710 7001           DIS4     FNC    F.SEL+F.SLS+F.CHR+F.CHM,CHD                             EBL       536
        1042         7410                         ACN    CHD                                                     EBL       537
1       EBL         CTI EXTERNAL BOOTSTRAP LOADER - A02               COMPASS 3.7-871.     23/08/13. 15.42.49.      PAGE    14
        SUBROUTINES 
  
        1043         7310 0000                    OAM    **,CHD            OUTPUT MSG                            EBL       538
                                1044     DISB     EQU    *-1                                                     EBL       539
        1045         6610 1045                    FJM    *,CHD       WAIT FOR TRANSFER TO COMPLETE               EBL       540
        1047         7510                         DCN    CHD                                                     EBL       541
        1050         1740                         SBN    40B         DISPLAY REFRESH DELAY                       EBL       542
        1051         0776                         MJN    *-1                                                     EBL       543
        1052         0355                         UJN    DISX              RETURN                                EBL       544
  
  
  
  
                                        **        F10 - FREE CHANNEL 10                                          EBL       546
                                        *                                                                        EBL       547
                                        *         F10 HANGS PP 10 ON CHANNEL 12                                  EBL       548
        1053         0100 0000           F10      ENM    X                 ENTRY/EXIT                            EBL       549
        1055         6510 1053                    IJM    F10X,CHD          IF CHANNEL 10 NOT ACTIVE              EBL       550
        1057         7452                         ACN    12B+40B                                                 EBL       551
        1060         1404                         LDN    F10L                                                    EBL       552
        1061         7310 1067                    OAM    F10A,CHD          SEND IDLE PROGRAM                     EBL       553
        1063         6610 1063                    FJM    *,CHD                                                   EBL       554
        1065         7510                         DCN    CHD                                                     EBL       555
        1066         0364                         UJN    F10X              RETURN                                EBL       556
        1067         0000                F10A     CON    0                 IDLE PROGRAM                          EBL       557
        1070         1400                         LDN    0                                                       EBL       558
        1071         7112 0000                    IAM    0,12B                                                   EBL       559
                                   4     F10L     EQU    *-F10A                                                  EBL       560
  
  
  
  
                                        **        MDSP - MODIFY DEADSTART PANEL                                  EBL       562
                                        *                                                                        EBL       563
                                        *         MDSP PLUGS (CHAN) AND (UNIT) INTO                              EBL       564
                                        *         DEADSTART PANEL WORDS 5, 6, 7, 10.                             EBL       565
                                                                                                                 EBL       566
        1073         0100 0000           MDSP     ENM    X                 ENTRY/EXIT                            EBL       567
        1075         3026                         LDD    CHAN                                                    EBL       568
        1076         2100 7100                    ADC    7100B                                                   EBL       569
        1100         5400 7707                    STM    /CPA/DSPNLZ+D10                                         EBL       570
        1102         2100 0300                    ADC    7400B-7100B                                             EBL       571
        1104         5400 7706                    STM    /CPA/DSPNLZ+D7                                          EBL       572
        1106         2100 0300                    ADC    7700B-7400B                                             EBL       573
        1110         5400 7704                    STM    /CPA/DSPNLZ+D5                                          EBL       574
        1112         3027                         LDD    UNIT                                                    EBL       575
        1113         2100 0300                    ADC    0300B             DEADSTART FUNCTION                    EBL       576
        1115         5400 7705                    STM    /CPA/DSPNLZ+D6                                          EBL       577
        1117         0353                         UJN    MDSPX             RETURN                                EBL       578
1       EBL         CTI EXTERNAL BOOTSTRAP LOADER - A02               COMPASS 3.7-871.     23/08/13. 15.42.49.      PAGE    15
        SUBROUTINES 
  
                                        **        R10 - RESET CHANNEL 10                                         EBL       580
                                        *                                                                        EBL       581
                                        *         R10 RETURNS PP 10 TO THE DEADSTART STATE                       EBL       582
        1120         0100 0000           R10      ENM    X                 ENTRY/EXIT                            EBL       583
        1122         7710 0000                    FNC    0,CHD             GET DISPLAY OFF OF CHANNEL 10         EBL       584
        1124         1477                         LDN    77B                                                     EBL       585
        1125         1701                         SBN    1                                                       EBL       586
        1126         0576                         NJN    *-1                                                     EBL       587
        1127         6510 1132                    IJM    R103,CHD                                                EBL       588
        1131         7510                         DCN    CHD                                                     EBL       589
        1132         6512 1120           R103     IJM    R10X,12B          IF 12B INACTIVE                       EBL       590
        1134         7410                         ACN    CHD                                                     EBL       591
        1135         1404                         LDN    R10L                                                    EBL       592
        1136         7312 1144                    OAM    R10A,12B          SEND IDLE PROGRAM                     EBL       593
        1140         6612 1140                    FJM    *,12B                                                   EBL       594
        1142         7512                         DCN    12B                                                     EBL       595
        1143         0354                         UJN    R10X              RETURN                                EBL       596
        1144         0000                R10A     CON    0                 IDLE PROGRAM                          EBL       597
        1145         1400                         LDN    0                                                       EBL       598
        1146         7110 0000                    IAM    0,CHD                                                   EBL       599
                                   4     R10L     EQU    *-R10A                                                  EBL       600
  
  
  
  
  
  
  
  
                                        **        ICN - INSERT CHANNEL NO.                                       EBL       603
                                        *                                                                        EBL       604
                                        *         ICN INSERTS CHANNEL NO.S IN INSTRUCTIONS GIVEN                 EBL       605
                                        *         IN A LIST TERMINATED WITH A ZERO.                              EBL       606
                                        *                                                                        EBL       607
                                        *         ENTRY  (A) = FWA OF CHANNEL LIST.                              EBL       608
                                        *                (CHAN) = CHANNEL NO.                                    EBL       609
                                        *                                                                        EBL       610
                                        *         USES   D2, D3.                                                 EBL       611
        1150         0100 0000           ICN      ENM    X                 ENTRY/EXIT                            EBL       612
        1152         3402                         STD    D2                                                      EBL       613
        1153         4002                ICN1     LDI    D2                                                      EBL       614
        1154         0473                         ZJN    ICNX              IF LIST COMPLETE                      EBL       615
        1155         3403                         STD    D3                                                      EBL       616
        1156         4003                         LDI    D3                                                      EBL       617
        1157         1337                         SCN    37B                                                     EBL       618
        1160         3126                         ADD    CHAN              ADD IN NEW CHANNEL NO.                EBL       619
        1161         4403                         STI    D3                                                      EBL       620
        1162         3602                         AOD    D2                                                      EBL       621
        1163         0367                         UJN    ICN1              CONTINUE PROCESSING                   EBL       622
1       EBL         CTI EXTERNAL BOOTSTRAP LOADER - A02               COMPASS 3.7-871.     23/08/13. 15.42.49.      PAGE    16
        DISK SUBROUTINES
  
        1164                                      RICHI                    ENABLE CHANNEL MACROES                EBL       626
  
  
  
  
                                        **        ART - ADJUST RETRY COUNTER                                     EBL       628
                                        *                                                                        EBL       629
                                        *         DECREMENT COUNTER AND                                          EBL       630
                                        *         RETURN TO CALLER IF COUNTER .GE. 0                             EBL       631
                                        *         ELSE GOTO ERROR IF ARTEC = 0                                   EBL       632
                                        *                   RDSSERR IF ARTEC .NE. 0                              EBL       633
                                        *                                                                        EBL       634
        1164         0100 0000           ART      ENM    X                 ENTRY/EXIT                            EBL       635
        1166         3721                         SOD    RETRY                                                   EBL       636
        1167         0674                         PJN    ARTX              EXIT IF MORE RETRIES AVAILABLE        EBL       637
        1170         5000 1203                    LDM    ARTEC             CHECK EXIT CODE                       EBL       638
        1172         0510                         NJN    ART5              IF SPECIAL EXIT                       EBL       639
        1173         0200 1054                    RJM    F10               FREE DISPLAY CH                       EBL       640
        1175         2015 2070           ARTL     LDC    MSGFL*1S12+MSGF                                         EBL       641
        1177         0200 1031                    RJM    DIS                                                     EBL       642
        1201         0373                         UJN    ARTL              LOOP ON DISPLAY                       EBL       643
        1202         0100 0000           ART5     LJM    0                                                       EBL       644
                                1203     ARTEC    EQU    *-1                                                     EBL       645
  
  
  
  
                                        **        AWD - ACTIVATE CHANNEL AND WAIT FOR DATA.                      EBL       647
                                        *                                                                        EBL       648
                                        *         AWD ACTIVATES THE FUNCTIONED CHANNEL AND TIMES OUT A FULL      EBL       649
                                        *         CONDITION.                                                     EBL       650
                                        *                                                                        EBL       651
                                        *         EXIT   (A) .NE. 0, DATA ON CHANNEL.                            EBL       652
                                        *                (A) = 0, NO DATA RECEIVED, CHANNEL DISCONNECTED.        EBL       653
        1204         0100 0000           AWD      ENM    X                 ENTRY/EXIT                            EBL       654
        1206         7440                         ACN    40B               ACTIVATE CHANNEL                      EBL       655
        1207         2021 0560                    LDC    TIMEOUT                                                 EBL       656
        1211         6600 1204           AWD1     FJM    AWDX,0            IF FULL, RETURN                       EBL       657
        1213         1701                         SBN    1                                                       EBL       658
        1214         0574                         NJN    AWD1              IF TIME OUT NOT EXPIRED               EBL       659
        1215         7540                         DCN    40B               DISCONNECT                            EBL       660
        1216         0365                         UJN    AWDX              RETURN                                EBL       661
  
  
  
  
                                        **        CONLD - CONNECT TO LOAD DEVICE                                 EBL       663
                                        *                                                                        EBL       664
                                                                                                                 EBL       665
        1217         0100 0000           CONLD    ENM    X                 ENTRR/EXIT                            EBL       666
        1221         5000 7001                    LDM    /CTI/CDTYPE                                             EBL       667
        1223         1713                         SBN    /CTI/D844                                               EBL       668
        1224         0613                         PJN    CONLD6            IF D.S. DEVICE IS DISK                EBL       669
                                                                                                                 EBL       670
        1225         2000 1231                    LDC    CONLDC                                                  EBL       671
        1227         0100 7000                    LJM    /CTI/CDEP         CALL COMMON DRIVER TO CONNECT         EBL       672
                                                                                                                 EBL       673
1       EBL         CTI EXTERNAL BOOTSTRAP LOADER - A02               COMPASS 3.7-871.     23/08/13. 15.42.49.      PAGE    17
        DISK SUBROUTINES
  
        1231         0000                CONLDC   CON    0                                                       EBL       674
        1232         1236                         CON    CONLD2                                                  EBL       675
        1233         0000                         CON    0                                                       EBL       676
        1234         7777 0000                    CON    7777B,0           CONNECT REQUEST                       EBL       677
                                                                                                                 EBL       678
        1236         0360                CONLD2   UJN    CONLDX            RETURN                                EBL       679
                                                                                                                 EBL       680
        1237         5000 7707           CONLD6   LDM    /CPA/DSPNLZ+D10   HERE FOR DISK                         EBL       681
        1241         1237                         LPN    37B                                                     EBL       682
        1242         3426                         STD    CHAN                                                    EBL       683
        1243         2000 2105                    LDC    CHTB                                                    EBL       684
        1245         0200 1151                    RJM    ICN                                                     EBL       685
        1247         0200 1402                    RJM    MDC               MOVE DEVICE CHANNEL PP                EBL       686
        1251         0100 1217                    LJM    CONLDX            RETURN                                EBL       687
  
  
  
  
                                        **        FCN - FUNCTION DEVICE.                                         EBL       689
                                        *                                                                        EBL       690
                                        *         ENTRY  (A) = FUNCTION CODE.                                    EBL       691
                                        *                                                                        EBL       692
                                        *         RETURNS TO CALLER IF NO ERRORS                                 EBL       693
                                        *         ELSE GO TO ERROR PROCESSOR.                                    EBL       694
        1253         0100 0000           FCN      ENM    X                 ENTRY/EXIT                            EBL       695
        1255         3424                         STD    FCNF              SAVE FUNCTION CODE                    EBL       696
        1256         3024                FCN3     LDD    FCNF              GET FUNCTION CODE                     EBL       697
        1257         7640                         FAN    40B               ISSUE FUNCTION                        EBL       698
        1260         2021 0560                    LDC    TIMEOUT                                                 EBL       699
        1262         6500 1253           FCN1     IJM    FCNX,0            IF FUNCTION ACCEPTED, RETURN          EBL       700
        1264         1701                         SBN    1                                                       EBL       701
        1265         0574                         NJN    FCN1              IF TIMEOUT NOT EXPIRED                EBL       702
        1266         7540                         DCN    40B                                                     EBL       703
        1267         0200 1165                    RJM    ART               ASK TO RETRY                          EBL       704
        1271         0364                         UJN    FCN3              TRY AGAIN                             EBL       705
  
  
  
  
                                        **        GDS - GET DETAIL STATUS                                        EBL       707
                                        *                                                                        EBL       708
                                        *         GDS GETS DETAIL STATUS INTO BUFFER *DETAIL*                    EBL       709
                                        *                                                                        EBL       710
                                        *         EXIT   (DETAIL) = DETAIL STATUS                                EBL       711
        1272         0100 0000           GDS      ENM    X                 ENTRY/EXIT                            EBL       712
        1274         1413                GDS2     LDN    /844/DDSS                                               EBL       713
        1275         0200 1254                    RJM    FCN                                                     EBL       714
        1277         0200 1205                    RJM    AWD                                                     EBL       715
        1301         0504                         NJN    GDS5              IF DATA ON CHANNEL                    EBL       716
        1302         0200 1165                    RJM    ART                                                     EBL       717
        1304         0367                         UJN    GDS2                                                    EBL       718
        1305         1414                GDS5     LDN    DETAILL                                                 EBL       719
        1306         7100 1312                    IAM    DETAIL,0                                                EBL       720
        1310         7540                         DCN    40B                                                     EBL       721
        1311         0360                         UJN    GDSX              RETURN                                EBL       722
        1312                      14     DETAIL   BSSZ   /844/SLNS                                               EBL       723
                                  14     DETAILL  EQU    *-DETAIL                                                EBL       724
1       EBL         CTI EXTERNAL BOOTSTRAP LOADER - A02               COMPASS 3.7-871.     23/08/13. 15.42.49.      PAGE    18
        DISK SUBROUTINES                                              GGS 
  
                                        **        GGS - GET GENERAL STATUS.                                      EBL       726
                                        *                                                                        EBL       727
                                        *         GGS ISSUES THE GENERAL STATUS FUNCTION  AND UPDATES            EBL       728
                                        *         THE DIRECT CELL *GENSTAT*.  THE STATUS IS ALSO RETURNED        EBL       729
                                        *         IN (A).                                                        EBL       730
                                        *                                                                        EBL       731
                                        *         EXIT   (GENSTAT) = GENERAL STATUS REPLY.                       EBL       732
                                        *                (A) = GENERAL STATUS REPLY.                             EBL       733
                                        *                                                                        EBL       734
        1326         0200 1165           GGS2     RJM    ART               ASK TO RETRY                          EBL       735
        1330         0303                         UJN    GGS3              TRY AGAIN                             EBL       736
        1331         0100 0000           GGS      ENM    X                 ENTRY/EXIT                            EBL       737
        1333         1412                GGS3     LDN    /844/DGST                                               EBL       738
        1334         0200 1254                    RJM    FCN               FUNCTION DEVICE                       EBL       739
        1336         0200 1205                    RJM    AWD               ACTIVATE CHAN AND WAIT FOR DATA       EBL       740
        1340         0465                         ZJN    GGS2              IF NO DATA COMING                     EBL       741
        1341         7000                         IAN    0                 READ STATUS                           EBL       742
        1342         7540                         DCN    40B                                                     EBL       743
        1343         3425                         STD    GENSTAT                                                 EBL       744
        1344         0364                         UJN    GGSX              RETURN                                EBL       748
  
  
  
  
                                        **        CON  - CONNECT DISK DRIVE                                      DIMA314A    2
                                        *                                                                        DIMA314A    3
                                        *         CON CONNECTS TO THE DISK UNIT AND WAITS FOR                    DIMA314A    4
                                        *         DRIVE NOT RESERVED.                                            DIMA314A    5
                                        *                                                                        DIMA314A    6
                                        *         ENTRY  (UNIT) = UNIT NUMBER                                    DIMA314A    7
                                        *         EXIT   (A)    = GENERAL STATUS WORD                            DIMA314A    8
                                        *                                                                        DIMA314A    9
                                        *         CALLS  FCN,GGS.                                                DIMA314A   10
                                                                                                                 DIMA314A   11
                                                                                                                 DIMA314A   12
        1345         0100 0000           CON      ENM    X                 ENTRY/EXIT                            DIMA314A   13
        1347         1400                CON2     LDN    /844/DCON                                               DIMA314A   14
        1350         0200 1254                    RJM    FCN               ISSUE CONNECT FUNCTION                DIMA314A   15
        1352         7400                         ACN    0                                                       DIMA314A   16
        1353         3027                         LDD    UNIT                                                    DIMA314A   17
        1354         7200                         OAN    0                 CONNECT UNIT                          DIMA314A   18
        1355         6600 1355                    FJM    *,0                                                     DIMA314A   19
        1357         7540                         DCN    40B                                                     DIMA314A   20
        1360         0200 1332                    RJM    GGS               GET GENERAL STATUS                    DIMA314A   21
        1362         1210                         LPN    /844/MP.GSDR                                            DIMA314A   22
        1363         0563                         NJN    CON2              IF DRIVE RESERVED                     DIMA314A   23
        1364         3025                         LDD    GENSTAT                                                 DIMA314A   24
        1365         0357                         UJN    CONX                                                    DIMA314A   25
1       EBL         CTI EXTERNAL BOOTSTRAP LOADER - A02               COMPASS 3.7-871.     23/08/13. 15.42.49.      PAGE    19
        DISK SUBROUTINES
  
                                        **        WNB  - WAIT NOT BUSY                                           DIMA314A   27
                                        *                                                                        DIMA314A   28
                                        *         WNB WAITS FOR DRIVE NOT BUSY STATUS.                           DIMA314A   29
                                        *                                                                        DIMA314A   30
                                        *         ENTRY  (A) = GENERAL STATUS WORD                               DIMA314A   31
                                        *         EXIT   (A) = GENERAL STATUS WORD                               DIMA314A   32
                                        *                                                                        DIMA314A   33
                                        *         CALLS  GGS,CON.                                                DIMA314A   34
                                                                                                                 DIMA314A   35
                                                                                                                 DIMA314A   36
        1366         3025                WNB2     LDD    GENSTAT                                                 DIMA314A   37
        1367         0100 0000           WNB      ENM    X                 ENTRY/EXIT                            DIMA314A   38
        1371         0200 1332                    RJM    GGS                                                     DIMA314A   39
        1373         0473                WNB4     ZJN    WNBX              IF NOT BUSY AND NO ERRORS             DIMA314A   40
        1374         1202                         LPN    /844/MP.GSBS                                            DIMA314A   41
        1375         0470                         ZJN    WNB2              IF NOT BUSY                           DIMA314A   42
        1376         0200 1346                    RJM    CON                                                     DIMA314A   43
        1400         0372                         UJN    WNB4                                                    DIMA314A   44
  
  
  
  
                                        **        MDC - MOVE DEVICE CHANNEL PP                                   EBL       750
                                        *                                                                        EBL       751
                                        *         IF THE DEVICE CHANNEL IS ACTIVE,                               EBL       752
                                        *           MOVE PP(DEVICE CHAN) OVER TO CHANNEL 12B.                    EBL       753
                                        *                                                                        EBL       754
        1401         0100 0000           MDC      ENM    X                 ENTRY/EXIT                            EBL       755
        1403         6500 1401                    IJM    MDCX,0            IF DEVICE CHAN INACTIVE               EBL       756
        1405         7412                         ACN.   12B               ACTIVATE CHAN 12B                     EBL       757
        1406         1404                         LDN    MDCL              OUTPUT PROG TO PP(DEVICE CHAN)        EBL       758
        1407         7300 1415                    OAM    MDCA,0                                                  EBL       759
        1411         6600 1411                    FJM    *,0                                                     EBL       760
        1413         7540                         DCN    40B                                                     EBL       761
        1414         0364                         UJN    MDCX              RETURN                                EBL       762
        1415         0000                MDCA     CON    0                                                       EBL       763
        1416         1400                         LDN    0                                                       EBL       764
        1417         7112 0000                    IAM.   0,12B                                                   EBL       765
                                   4     MDCL     EQU    *-MDCA                                                  EBL       766
  
  
  
  
                                        **        RDC - RESET DEVICE CHANNEL PP                                  EBL       768
                                        *                                                                        EBL       769
                                        *         IF CHANNEL 12B ACTIVE,                                         EBL       770
                                        *           MOVE PP ON CHAN 12B BACK TO DEVICE CHAN.                     EBL       771
                                        *                                                                        EBL       772
        1421         0100 0000           RDC      ENM    X                 ENTRY/EXIT                            EBL       773
        1423         6512 1421                    IJM.   RDCX,12B          IF CHAN 12B INACTIVE                  EBL       774
        1425         7400                         ACN    0                 ACTIVATE DEVICE CHANNEL               EBL       775
        1426         1404                         LDN    RDCL              OUTPUT PROG TO CHANNEL 12B            EBL       776
        1427         7312 1435                    OAM.   RDCA,12B                                                EBL       777
        1431         6612 1431                    FJM.   *,12B                                                   EBL       778
        1433         7512                         DCN.   12B                                                     EBL       779
        1434         0364                         UJN    RDCX              RETURN                                EBL       780
        1435         0000                RDCA     CON    0                 PP PROGRAM                            EBL       781
1       EBL         CTI EXTERNAL BOOTSTRAP LOADER - A02               COMPASS 3.7-871.     23/08/13. 15.42.49.      PAGE    20
        DISK SUBROUTINES
  
        1436         1400                         LDN    0                                                       EBL       782
        1437         7100 0000                    IAM    0,0                                                     EBL       783
                                   4     RDCL     EQU    *-RDCA                                                  EBL       784
  
  
  
  
                                        **        RED - READ DISK                                                EBL       786
                                        *                                                                        EBL       787
                                        *         ENTRY  (A) = ADDR(CYL,TRK,SEC) TO READ INTO /CTI/BOOTLOD-2     EBL       788
                                        *                (A) = 0 IF TO READ DEADSTART SECTOR INTO DSSBUF         EBL       789
                                        *                (CHAN) = CHANNEL WHERE DEVICE IS                        EBL       790
                                        *                (UNIT) = EQUIP/UNIT WHERE DEVICE IS.                    EBL       791
                                        *                                                                        EBL       792
                                        *         RED WILL                                                       EBL       793
                                        *         FREE THE DEVICE CHANNEL,                                       EBL       794
                                        *         INSERT THE CHANNEL NUMBER INTO THE DISK I/O INSTRUCTIONS,      EBL       795
                                        *         RESERVE THE CONTROLLER,                                        EBL       796
                                        *         GET GENERAL AND DETAIL STATUS,                                 EBL       797
                                        *         DETERMINE AND SAVE THE DEVICE CHARACTERISTICS,                 EBL       798
                                        *         EITHER READ THE DEADSTART SECTOR OR BOOTSTRAP SECTOR,          EBL       799
                                        *         CHECK FOR ERRORS,                                              EBL       800
                                        *         RESET THE DEVICE CHANNEL PP,                                   EBL       801
                                        *         AND RETURN TO THE CALLER.                                      EBL       802
                                        *                                                                        EBL       803
                                        *         EXIT   (A) = 0 IF GOOD READ ELSE NONZERO.                      EBL       804
        1441         0100 0000           RED      ENM    X                 ENTRY/EXIT                            EBL       805
        1443         3442                         STD    REDA              SAVE (A)                              EBL       806
        1444         2000 2105                    LDC    CHTB                                                    EBL       807
        1446         0200 1151                    RJM    ICN               INSERT CHANNEL NUMBER                 EBL       808
        1450         0200 1402                    RJM    MDC               FREE DEVICE CHANNEL                   EBL       809
        1452         2000 1624                    LDC    REDERR            SET ART EXIT ADDRESS                  EBL       810
        1454         5400 1203                    STM    ARTEC                                                   EBL       811
                                                                                                                 EBL       812
        1456         1410                         LDN    10B                                                     DIMA314A   45
        1457         3421                         STD    RETRY       INITIALIZE RETRY COUNTER                    DIMA314A   46
        1460         0200 1332           RED2     RJM    GGS               GET GENERAL STATUS                    EBL       815
        1462         1007                         SHN    17-10                                                   EBL       816
        1463         0774                         MJN    RED2                                                    DIMA314A   47
        1464         0200 1346           RED4     RJM    CON         WAIT FOR UNIT NOT RESERVED                  DIMA314A   48
        1466         1006                         SHN    17-11                                                   DIMA314A   49
        1467         0604                         PJN    RED15                                                   DIMA314A   50
        1470         0200 1165                    RJM    ART                                                     DIMA314A   51
        1472         0371                         UJN    RED4                                                    DIMA314A   52
                                                                                                                 DIMA314A   53
        1473         0200 1273           RED15    RJM    GDS               GET DETAIL STATUS                     EBL       827
                                        *         DETERMINE DEVICE TYPE                                          EBL       828
        1475         5000 1315                    LDM    DETAIL+/844/DSWRV                                       EBL       829
        1477         1007                         SHN    17-10                                                   EBL       830
        1500         0710                         MJN    RED45            IF 885 OR 844-DOUBLE                   EBL       831
        1501         5000 1322                    LDM    DETAIL+/844/DSWUD                                       EBL       832
        1503         1014                         SHN    17-5                                                    EBL       833
        1504         0706                         MJN    RED50            IF 844-DOUBLE                          EBL       834
        1505         2000 1642                    LDC    D44SD             HERE IF 844-SINGLE                    EBL       835
        1507         0310                         UJN    RED70                                                   EBL       836
        1510         1005                RED45    SHN    10-5                                                    EBL       837
        1511         0704                         MJN    RED60            IF 885                                 EBL       838
1       EBL         CTI EXTERNAL BOOTSTRAP LOADER - A02               COMPASS 3.7-871.     23/08/13. 15.42.49.      PAGE    21
        DISK SUBROUTINES
  
        1512         2000 1653           RED50    LDC    D44DD             HERE IF 844-DOUBLE                    EBL       839
        1514         0303                         UJN    RED70                                                   EBL       840
        1515         2000 1664           RED60    LDC    D885              HERE IF 885                           EBL       841
        1517         5400 1524           RED70    STM    RED75A           MOVE DISK ATTRIBUTES INTO PLACE        EBL       842
        1521         1410                         LDN    D44DD-D44SD-1                                           EBL       843
        1522         3401                         STD    D1                                                      EBL       844
        1523         5001 0000           RED75    LDM    **,D1                                                   EBL       845
                                1524     RED75A   EQU    *-1                                                     EBL       846
        1525         5401 0030                    STM    DTYPE,D1                                                EBL       847
        1527         3701                         SOD    D1                                                      EBL       848
        1530         0672                         PJN    RED75                                                   EBL       849
        1531         3042                         LDD    REDA                                                    EBL       850
        1532         0503                         NJN    RED150                                                  EBL       851
        1533         0100 1574                    LJM    RED250            IF DEADSTART SECTOR READ              EBL       852
        1535         3042                RED150   LDD    REDA                                                    EBL       853
        1536         0200 1676                    RJM    SEK               SEEK                                  EBL       854
        1540         1404                         LDN    /844/DRED                                               EBL       855
        1541         0200 1254                    RJM    FCN               ISSUE READ                            EBL       856
        1543         7440                         ACN    40B                                                     EBL       857
        1544         2000 0502                    LDC    DSLN                                                    EBL       858
        1546         7100 6176                    IAM    /CTI/BOOTLOD-2,0  READ ONE SECTOR                       EBL       859
        1550         7540                         DCN    40B                                                     EBL       860
        1551         0200 1370                    RJM    WNB         GET GENERAL STATUS AND WAIT NOT BUSY        DIMA314A   54
        1553         0200 1273                    RJM    GDS               GET DETAIL STATUS                     EBL       862
        1555         3025                         LDD    GENSTAT                                                 EBL       863
        1556         0404                         ZJN    RED170            IF OK                                 EBL       864
        1557         0200 1165                    RJM    ART               ASK TO RETRY                          EBL       865
        1561         0353                         UJN    RED150            TRY AGAIN                             EBL       866
        1562         1410                RED170   LDN    /844/DOPC         RELEASE DISK CONTROLLER               EBL       867
                                   0              ERRNZ  /844/DOPC-/885/DOPC                                     EBL       868
        1563         0200 1254                    RJM    FCN                                                     EBL       869
        1565         0200 1422                    RJM    RDC               RESET DEVICE CHANNEL                  EBL       870
        1567         1400                         LDN    0                 SET GOOD                              EBL       871
        1570         5400 1203                    STM    ARTEC             RESET ART EXIT ADDR                   EBL       872
        1572         0100 1441                    LJM    REDX              RETURN                                EBL       873
  
  
  
  
                                        *         HERE FOR DEADSTART SECTOR READ                                 EBL       875
        1574         1433                RED250   LDN    DSCYL                                                   EBL       876
        1575         0200 1676                    RJM    SEK               SEEK                                  EBL       877
        1577         5030 1634                    LDM    RDFTBL,DTYPE                                            EBL       878
        1601         0200 1254                    RJM    FCN               READ OR READ-FLAWED                   EBL       879
        1603         7440                         ACN    40B                                                     EBL       880
        1604         2000 0502                    LDC    DSLN                                                    EBL       881
        1606         7100 2764                    IAM    DSSBUF,0                                                EBL       882
        1610         7540                         DCN    40B                                                     EBL       883
        1611         0200 1370                    RJM    WNB         GET GENERAL STATUS AND WAIT NOT BUSY        DIMA314A   55
        1613         0200 1273                    RJM    GDS                                                     EBL       885
        1615         3025                         LDD    GENSTAT                                                 EBL       886
        1616         0503                         NJN    RED260            IF ERROR                              EBL       887
        1617         0100 1562                    LJM    RED170            IF OK                                 EBL       888
        1621         0200 1165           RED260   RJM    ART                                                     EBL       889
        1623         0350                         UJN    RED250            TRY AGAIN                             EBL       890
1       EBL         CTI EXTERNAL BOOTSTRAP LOADER - A02               COMPASS 3.7-871.     23/08/13. 15.42.49.      PAGE    22
        DISK SUBROUTINES
  
                                        *         HERE IF SOME UNRECOVERABLE ERROR HAS OCCURRED.                 EBL       892
        1624         1400                REDERR   LDN    0                                                       EBL       893
        1625         5400 1203                    STM    ARTEC             RESET ART EXIT ADDR                   EBL       894
        1627         0200 1422                    RJM    RDC               RESET DEVICE CHANNEL PP               EBL       895
        1631         1401                         LDN    1                 SET BAD                               EBL       896
        1632         0100 1441                    LJM    REDX              RETURN                                EBL       897
  
  
  
  
        1634         0004 0034           RDFTBL   CON    /885/DRED,/844/DRFS,/844/DRFS                           EBL       899
        1636         0034 
        1637                       3     ADDR0    BSSZ   3                                                       EBL       900
  
  
  
  
        1642         0001 0023           D44SD    CON    1,/844/MTKS,/844/MSRS                                   EBL       902
        1644         0030 
        1645         0632 0000                    CON    /844/CSDD,/844/TSDD,/844/SSDD                           EBL       903
        1647         0003 
        1650         0627 0000                    CON    /844/DSSC,0,0                                           EBL       904
        1652         0000 
        1653         0002 0023           D44DD    CON    2,/844/MTKS,/844/MSRS                                   EBL       905
        1655         0030 
        1656         1466 0000                    CON    /844/CDDS,/844/TDDD,/844/SDDD                           EBL       906
        1660         0003 
        1661         1463 0000                    CON    /844/DSDC,0,0                                           EBL       907
        1663         0000 
        1664         0000 0050           D885     CON    0,/885/MTKS,/885/MSRS                                   EBL       908
        1666         0040 
        1667         1511 0001                    CON    /885/CSDD,/885/TSDD,/885/SSDD                           EBL       909
        1671         0036 
        1672         1510 0000                    CON    /885/DSSC,0,0                                           EBL       910
        1674         0000 
  
  
  
  
                                        **        SEK - SEEK DISK ADDRESS.                                       EBL       912
                                        *                                                                        EBL       913
                                        *         SEK ISSUES A SEEK FUNCTION, AND WILL CONTINUE TO ISSUE AS LONG EBL       914
                                        *         AS THE DRIVE HEADS ARE IN MOTION.                              EBL       915
                                        *                                                                        EBL       916
                                        *         ENTRY  (UNIT) = UNIT NUMBER                                    EBL       917
                                        *                (A) = ADDRESS OF CYL/TRACK/SECTOR VECTOR                EBL       918
                                        *                                                                        EBL       919
                                        *         RETURNS TO CALLER IF NO ERRORS                                 EBL       920
                                        *         ELSE GO TO ERROR PROCESSOR                                     EBL       921
        1675         0100 0000           SEK      ENM    X                 ENTRY/EXIT                            EBL       922
        1677         5400 1711                    STM    SEKB              STORE ADDRESS OF DISK ADDRESS         EBL       923
        1701         1402                SEK1     LDN    /844/D2SK                                               EBL       924
        1702         0200 1254                    RJM    FCN               SEEK 2:1                              EBL       925
        1704         7440                         ACN    40B                                                     EBL       926
        1705         3027                         LDD    UNIT                                                    EBL       927
        1706         7200                         OAN    0                 OUTPUT UNIT                           EBL       928
        1707         1403                         LDN    3                                                       EBL       929
1       EBL         CTI EXTERNAL BOOTSTRAP LOADER - A02               COMPASS 3.7-871.     23/08/13. 15.42.49.      PAGE    23
        DISK SUBROUTINES                                              SEK 
  
        1710         7300 0000                    OAM    **,0              OUTPUT CYL/TRACK/SECTOR               EBL       930
                                1711     SEKB     EQU    *-1                                                     EBL       931
        1712         6600 1712                    FJM    *,0         WAIT FOR TRANSFER TO COMPLETE               EBL       932
        1714         7540                         DCN    40B                                                     EBL       933
        1715         0200 1332                    RJM    GGS               GET GENERAL STATUS                    EBL       934
        1717         0455                         ZJN    SEKX              IF ON CYLINDER                        EBL       935
        1720         1202                         LPN    /844/MP.GSBS                                            EBL       936
        1721         0557                         NJN    SEK1              IF BUSY                               EBL       937
        1722         0200 1165                    RJM    ART               ASK TO RETRY                          EBL       938
        1724         0354                         UJN    SEK1              TRY AGAIN                             EBL       939
  
  
  
  
        1725                                      RSTC                     DISABLE CHANNEL INSTRUCTIONS          EBL       941
1       EBL         CTI EXTERNAL BOOTSTRAP LOADER - A02               COMPASS 3.7-871.     23/08/13. 15.42.49.      PAGE    24
        DISPLAYS
  
                                1725     MSGA     EQU    *                                                       EBL       944
                                   5     LINE     SET    5                                                       EBL       945
        1725         7630                         CON    YSET+762B-LINE*YINCR                                    EBL       946
        1726         6000                         CON    XSET+0                                                  EBL       947
        1727         1723                         DATA   H*OSB NOT FOUND ON TAPE*                                EBL       948
                                  10     LINE     SET    LINE+3                                                  EBL       949
        1742         7542                         CON    YSET+762B-LINE*YINCR                                    EBL       950
        1743         6000                         CON    XSET+0                                                  EBL       951
        1744         0405                         DATA   H*DEADSTART ABORTED*                                    EBL       952
                                  30     MSGAL    EQU    *-MSGA                                                  EBL       953
  
  
  
  
                                1755     MSGB     EQU    *                                                       EBL       955
                                   5     LINE     SET    5                                                       EBL       956
        1755         7630                         CON    YSET+762B-LINE*YINCR                                    EBL       957
        1756         6000                         CON    XSET+0                                                  EBL       958
        1757         3030                MSGBNM   DATA   H*XXX NOT FOUND ON DEVICE*                              EBL       959
                                  10     LINE     SET    LINE+3                                                  EBL       960
        1773         7542                         CON    YSET+762B-LINE*YINCR                                    EBL       961
        1774         6000                         CON    XSET+0                                                  EBL       962
        1775         0516                         DATA   H*ENTER ALTERNATE DEVICE LOCATION*                      EBL       963
                                  40     MSGBL    EQU    *-MSGB                                                  EBL       964
  
  
  
  
                                2015     MSGC     EQU    *                                                       EBL       966
                                   5     LINE     SET    5                                                       EBL       967
        2015         7630                         CON    YSET+762B-LINE*YINCR                                    EBL       968
        2016         6000                         CON    XSET+0                                                  EBL       969
        2017         0516                         DATA   H*ENTER LOCATION*                                       EBL       970
                                  10     LINE     SET    LINE+3                                                  EBL       971
        2026         7542                         CON    YSET+762B-LINE*YINCR                                    EBL       972
        2027         6000                         CON    XSET+0                                                  EBL       973
        2030         1706                         DATA   H*OF CMSE/DDS DEVICE*                                   EBL       974
                                  24     MSGCL    EQU    *-MSGC                                                  EBL       975
                                                                                                                 EBL       976
                                                                                                                 EBL       977
                                                                                                                 EBL       978
                                                                                                                 EBL       979
                                2041     MSGD     EQU    *                                                       EBL       980
                                   5     LINE     SET    5                                                       EBL       981
        2041         7630                         CON    YSET+762B-LINE*YINCR                                    EBL       982
        2042         6000                         CON    XSET+0                                                  EBL       983
        2043         0502                         DATA   H*EBLP OUT OF RANGE*                                    EBL       984
                                  13     MSGDL    EQU    *-MSGD                                                  EBL       985
                                                                                                                 EBL       986
                                                                                                                 EBL       987
                                                                                                                 EBL       988
                                                                                                                 EBL       989
                                2054     MSGE     EQU    *                                                       EBL       990
                                   5     LINE     SET    5                                                       EBL       991
        2054         7630                         CON    YSET+762B-LINE*YINCR                                    EBL       992
        2055         6000                         CON    XSET+0                                                  EBL       993
        2056         0310                         DATA   H*CHANNEL ACTIVE ERROR*                                 EBL       994
1       EBL         CTI EXTERNAL BOOTSTRAP LOADER - A02               COMPASS 3.7-871.     23/08/13. 15.42.49.      PAGE    25
        DISPLAYS
  
                                  14     MSGEL    EQU    *-MSGE                                                  EBL       995
                                                                                                                 EBL       996
                                                                                                                 EBL       997
                                                                                                                 EBL       998
                                                                                                                 EBL       999
                                2070     MSGF     EQU    *                                                       EBL      1000
                                   5     LINE     SET    5                                                       EBL      1001
        2070         7630                         CON    YSET+762B-LINE*YINCR                                    EBL      1002
        2071         6000                         CON    XSET+0                                                  EBL      1003
        2072         0411                         DATA   H*DISK RETRY COUNT ERROR*                               EBL      1004
                                  15     MSGFL    EQU    *-MSGF                                                  EBL      1005
1       EBL         CTI EXTERNAL BOOTSTRAP LOADER - A02               COMPASS 3.7-871.     23/08/13. 15.42.49.      PAGE    26
        BUFFERS 
  
                                        *         CHTB - TABLE OF REDEFINED CHANNEL INSTRUCTIONS                 EBL      1008
        2105                             CHTB     CHTB                                                           EBL      1009
  
  
  
  
                                        *         TABLE OF OFFSETS OF POINTERS IN DEADSTART SECTOR               EBL      1011
        2145         0465                DSSTBL   CON    /CPA/OSDP-/CTI/IPLA                                     EBL      1012
        2146         0453                         CON    /CPA/DSDP-/CTI/IPLA                                     EBL      1013
        2147         0441                         CON    /CPA/MSDP-/CTI/IPLA                                     EBL      1014
  
  
  
  
                                        *         TABLE OF ADDRESSES OF POINTERS IN HIGH-CORE                    EBL      1016
        2150         7766 7754           CPATBL   CON    /CPA/OSDP,/CPA/DSDP,/CPA/MSDP                           EBL      1017
        2152         7742 
  
  
  
  
                                        *         TABLE OF NAMES TO PLUG MESSAGE B                               EBL      1019
        2153         1723                NMTBL1   DATA   H*OSDSMS*                                               EBL      1020
        2156         0255                NMTBL2   DATA   H*B B B *                                               EBL      1021
  
  
  
  
                                        **        CALL COMPQOD HERE.                                             EBL      1023
        2161                             QOD      CTEXT  COMPQOD - CTI QUERY OPERATOR FOR DEVICE.                COMPQOD     2
  
  
  
  
                                        *         CALL COMPCMA HERE                                              EBL      1026
                                 D_M              BASE    M                                                      EBL      1027
        2404                                      XTEXT  COMPCMA                                                 EBL      1028
                                 M_D              BASE    *                                                      EBL      1029
  
  
  
  
                                        *         BUFFER USED WITH COMPCMA                                       EBL      1031
        2604                     154     CMABUF   BSSZ   27*4                                                    EBL      1032
        2760         0000 0000                    CON    0,0               END OF TABLE MARKER                   EBL      1033
1       EBL         CTI EXTERNAL BOOTSTRAP LOADER - A02               COMPASS 3.7-871.     23/08/13. 15.42.49.      PAGE    27
        BUFFERS 
  
                                        *         GENERAL I/O BUFFER                                             EBL      1035
        2762                       2     BUFFERX  BSSZ   2                 EXTRA FOR LINKAGE BYTES               EBL      1036
                                2764     BUFFER   EQU    *                                                       EBL      1037
                                2764     DSSBUF   EQU    BUFFER            DEADSTART SECTOR INPUT BUFFER         EBL      1038
        2764                                      END                                                            EBL      1039
  
                             70200B CM  STORAGE USED             2746 STATEMENTS     1820 SYMBOLS      000182 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            2.948 SECONDS         828 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ACH           704                   9/17      9/19     12/11 D
        ACHA          720                  12/17 S   12/20 D
        ACHE          735                  12/31 L   12/39
        ACHF          746                  12/31     12/36 L   12/39
        ACHL          741                  12/33 L   12/35
        ACHT          751                  12/29     12/39 L
        ACHX          703                  12/11 L   12/26
        ACH2          723                  12/23 L   12/38
        ACH8          747                  12/28     12/37 L
        ACNC         7400                   3/46 D
        ADCC         2100                   3/40 D
        ADDR0        1637                  22/13 L
        AJMC         6400                   3/43 D
        ART          1165                  16/13 D   17/34     17/50     18/10     20/43     21/27     21/54     23/09
        ARTEC        1203                  16/16     16/23 D   20/33 S   21/34 S   22/03 S
        ARTL         1175                  16/19 L   16/21
        ARTX         1164                  16/13 L   16/15
        ART5         1202                  16/17     16/22 L
        AWD          1205                  16/35 D   17/48     18/15
        AWDX         1204                  16/35 L   16/38     16/42
        AWD1         1211                  16/38 L   16/40
        BUFFER       2764                   7/43     27/03 D   27/04
        BUFFERX      2762                  27/02 L
        CHAN           26                   6/09 D   10/27 S   11/23 S   12/37 S   13/28     15/46
                                            6/10     10/38 S   12/14 S   13/26 S   14/37     17/10 S
        CHD            10                   4/15 D   13/57     14/03     14/16     14/20     15/05     15/10     15/20
                                           13/56     14/01     14/04     14/19     14/21     15/09     15/12
        CHSCR          16                   4/36 D    9/35      9/38      9/41     10/02
                                            9/29      9/36      9/39      9/42     10/03
        CHTB         2105                  17/11     20/29     26/02 L
        CHTBE        2144                  26/02 L
        CMA          2405                   8/33
        CMABUF       2604                   8/32      8/35     26/44 L
        CNM           755                   7/54     10/44     11/32     12/52 D
        CNMTA         770                  12/54     13/02 L
        CNMTB         773                  12/57     13/03 L
        CNMX          754                  12/52 L   12/55     13/01
        CON          1346                  18/36 D   19/17     20/40
        CONLD        1220                   9/23     16/50 D
        CONLDC       1231                  16/55     17/01 L
        CONLDX       1217                  16/50 L   17/06     17/14
        CONLD2       1236                  17/02     17/06 L
        CONLD6       1237                  16/53     17/08 L
        CONX         1345                  18/36 L   18/48
1       EBL         CTI EXTERNAL BOOTSTRAP LOADER - A02               COMPASS 3.7-871.     23/08/13. 15.42.49.      PAGE    28
        SYMBOLIC REFERENCE TABLE. 
  
        CON2         1347                  18/37 L   18/46
        CPATBL       2150                  11/01     11/19     11/43     26/16 L
        CQOD          777                  10/13     10/49     11/37     13/20 D
        CQODHI       1026                  13/23 S   13/30     13/36 L
        CQODLO       1027                  13/21 S   13/32     13/37 L
        CQODX         776                  13/20 L   13/35
        CTICYL         36                   6/17 D    6/18
        CTISEC         40                   6/19 D    6/20
        CTITRK         37                   6/18 D    6/19
        DCNC         7500                   3/47 D
        DDSCMFL      7722                   5/20 D    8/27 S    8/29 S    8/40      8/43      8/51 S    8/53 S
        DDSCMRA      7720                   5/19 D    8/17 S    8/47 S    8/49 S
        DDSECFL      7726                   5/22 D
        DDSECRA      7724                   5/21 D
        DETAIL       1312                  17/53 S   17/56 L   17/57     20/48     20/51
        DETAILL        14                  17/52     17/57 D
        DIS          1031                   7/16      8/01     12/34     13/50 D   16/20
        DISB         1044                  13/51 S   14/02 D
        DISX         1030                  13/50 L   14/07
        DIS4         1040                  13/54     13/56 L
        DMS           616                   7/35     11/17 D
        DMS20         616                  11/19 L   11/54
        DMS40         650                  11/31     11/33     11/36 L   11/40
        DMS60         654                  10/14     11/38 L
        DMS80         660                  11/41 L
        DMS85         670                  11/47 L   11/52
        DOS           514                   7/34     10/20 D
        DOS10         520                  10/25 L
        DOS20         536                  10/23     10/36 L   11/11
        DOS30         552                  10/34     10/44 L
        DOS40         561                  10/33     10/43     10/45     10/48 L   10/52     10/55
        DOS60         571                  10/53 L
        DOS80         575                  10/56 L
        DOS85         605                  11/05 L   11/10
        DSCYL          33                   6/14 D    6/15     21/41
        DSIFT           0                   4/07 D
        DSLN          502                   5/17 D   21/20     21/46
        DSR885          4                   5/30 D
        DSSBUF       2764                  10/53     11/05     11/47     21/47 S   27/04 D
        DSSEC          35                   6/16 D    6/17
        DSSTBL       2145                  10/56     11/41     26/08 L
        DSTRK          34                   6/15 D    6/16
        DTYPE          30                   6/11 D    6/12     21/09 S   21/43
        D0              0                   3/06 D
        D1              1                   3/07 D    8/36 S    8/46      8/55 S   11/20 S   11/42 S   12/15     21/09
                                            8/15 S    8/37      8/48     10/57 S   11/24     11/47     12/18     21/10 S
                                            8/17      8/39      8/50     11/05     11/28     11/49 S   21/06 S
                                            8/18 S    8/44      8/52     11/07 S   11/29     12/12 S   21/07
        D10            10                   3/17 D   10/25     11/21     14/39 S   17/08
        D11            11                   3/18 D
        D12            12                   3/19 D
        D13            13                   3/20 D    8/20
        D14            14                   3/21 D
        D15            15                   3/22 D
        D16            16                   3/23 D
        D17            17                   3/24 D
1       EBL         CTI EXTERNAL BOOTSTRAP LOADER - A02               COMPASS 3.7-871.     23/08/13. 15.42.49.      PAGE    29
        SYMBOLIC REFERENCE TABLE. 
  
        D2              2                   3/08 D   11/06 I   11/44 S   11/50 S   15/41
                                           11/02 S   11/08 S   11/48 I   15/40 S   15/48 S
        D20            20                   3/25 D
        D3              3                   3/09 D   11/04 S   11/09 S   11/46 S   11/51 S   15/43 S   15/44     15/47 I
        D4              4                   3/10 D   12/22 S   12/23     12/25 S
        D44DD        1653                  21/01     21/05     22/24 L
        D44SD        1642                  20/54     21/05     22/18 L
        D5              5                   3/11 D   14/43 S
        D6              6                   3/12 D   10/28     11/25     14/46 S
        D7              7                   3/15 D   14/41 S
        D885         1664                  21/03     22/30 L
        EBL           200                   7/06 D
        EBLL          211                   7/15 L    7/17
        EBLPD          41                   6/20 D    7/09 S    7/21      7/32      9/10      9/30     11/01     12/54
                                            6/21      7/19      7/29      8/10      9/21     10/56     11/19     12/57
        EBL1          207                   7/11      7/14 L
        EBL2          216                   7/13      7/18 D
        EBL5          240                   7/28      7/32 L
        EBL6          244                   7/33      7/35 L
        FCN          1254                  17/25 D   17/47     18/14     18/38     21/18     21/31     21/44     22/53
        FCNF           24                   6/07 D   17/26 S   17/27
        FCNX         1253                  17/25 L   17/30
        FCN1         1262                  17/30 L   17/32
        FCN3         1256                  17/27 L   17/35
        FCSB         4000                   9/34      9/37      9/40      9/46      9/49      9/52     10/01
        F10          1054                   7/14      7/56     12/32     13/24     14/15 D   16/18
        F10A         1067                  14/19     14/23 L   14/26
        F10L            4                  14/18     14/26 D
        F10X         1053                  14/15 L   14/16     14/22
        F.CHL           2                   4/26 D
        F.CHM           1                   4/25 D   13/56
        F.CHR           0                   4/21 D   13/56
        F.CHS           0                   4/24 D
        F.DOT          10                   4/22 D
        F.KEY          20                   4/23 D
        F.SBS         200                   4/20 D
        F.SEL        7000                   4/17 D   13/56
        F.SLS           0                   4/18 D   13/56
        F.SRS         100                   4/19 D
        GDS          1273                  17/45 D   20/46     21/24     21/50
        GDSX         1272                  17/45 L   17/55
        GDS2         1274                  17/46 L   17/51
        GDS5         1305                  17/49     17/52 L
        GENSTAT        25                   6/08 D   18/19 S   18/47     19/11     21/25     21/51
        GGS          1332                  18/12 D   18/44     19/13     20/37     23/05
        GGSX         1331                  18/12 L   18/20
        GGS2         1326                  18/10 L   18/16
        GGS3         1333                  18/11     18/13 L
        IAMC         7100                   3/44 D
        ICN          1151                  12/30     15/39 D   17/12     20/30
        ICNX         1150                  15/39 L   15/42
        ICN1         1153                  15/41 L   15/49
        JUMP          504                   9/32     10/06 L
        LCNC         1500                   3/37 D
        LDCC         2000                   3/39 D
        LDDC         3000                   3/42 D
1       EBL         CTI EXTERNAL BOOTSTRAP LOADER - A02               COMPASS 3.7-871.     23/08/13. 15.42.49.      PAGE    30
        SYMBOLIC REFERENCE TABLE. 
  
        LINE            5                  24/02 D   24/06 D   24/17     24/21     24/34     24/44 D   24/55
                                           24/03     24/07     24/20     24/30 D   24/34 D   24/45     25/07 D
                                           24/06     24/16 D   24/20 D   24/31     24/35     24/54 D   25/08
        LJMC          100                   3/33 D
        LMCC         2300                   3/41 D
        MDC          1402                  17/13     19/28 D   20/31
        MDCA         1415                  19/32     19/36 L   19/39
        MDCL            4                  19/31     19/39 D
        MDCX         1401                  19/28 L   19/29     19/35
        MDSP         1074                  10/46     11/34     11/53     14/36 D
        MDSPX        1073                  14/36 L   14/47
        MSGA         1725                   7/57     24/01 D   24/10
        MSGAL          30                   7/57     24/10 D
        MSGB         1755                  10/48     11/36     24/15 D   24/24
        MSGBL          40                  10/48     11/36     24/24 D
        MSGBNM       1757                   7/20 S    7/22 S   24/19 L
        MSGC         2015                  10/12     24/29 D   24/38
        MSGCL          24                  10/12     24/38 D
        MSGD         2041                   7/15     24/43 D   24/48
        MSGDL          13                   7/15     24/48 D
        MSGE         2054                  12/33     24/53 D   25/01
        MSGEL          14                  12/33     25/01 D
        MSGF         2070                  16/19     25/06 D   25/11
        MSGFL          15                  16/19     25/11 D
        MSGLEN         23                   6/06 D   13/55
        NAME            5                   4/06 D   12/53     12/56
        NMTBL1       2153                   7/19     26/23 L
        NMTBL2       2156                   7/21     26/24 L
        NOSCR         504                   9/29     10/05 D
        NOTX76        504                   9/57     10/04 D
        OAMC         7300                   3/45 D
        PPCM          136                   9/37      9/49
        PPCT          124                   9/40      9/52
        PPPE          137                   9/34      9/46
        PRU           500                   5/18 D
        PSNC            0                   3/32 D
        RDC          1422                  19/49 D   21/32     22/04
        RDCA         1435                  19/53     19/57 L   20/03
        RDCL            4                  19/52     20/03 D
        RDCX         1421                  19/49 L   19/50     19/56
        RDFTBL       1634                  21/43     22/11 L
        RED          1442                  10/32     10/42     10/51     11/30     11/39     20/27 D
        REDA           42                   6/21 D   20/28 S   21/12     21/15
        REDERR       1624                  20/32     22/02 L
        REDX         1441                  20/27 L   21/35     22/06
        RED15        1473                  20/42     20/46 L
        RED150       1535                  21/13     21/15 L   21/28
        RED170       1562                  21/26     21/29 L   21/53
        RED2         1460                  20/37 L   20/39
        RED250       1574                  21/14     21/41 L   21/55
        RED260       1621                  21/52     21/54 L
        RED4         1464                  20/40 L   20/44
        RED45        1510                  20/50     20/56 L
        RED50        1512                  20/53     21/01 L
        RED60        1515                  20/57     21/03 L
        RED70        1517                  20/55     21/02     21/04 L
        RED75        1523                  21/07 L   21/11
1       EBL         CTI EXTERNAL BOOTSTRAP LOADER - A02               COMPASS 3.7-871.     23/08/13. 15.42.49.      PAGE    31
        SYMBOLIC REFERENCE TABLE. 
  
        RED75A       1524                  21/04 S   21/08 D
        REPADDR        20                   6/04 D   13/29 S
        RETRY          21                   6/05 D   16/14 S   20/36 S
        RICHI$          0                   4/04 D
        R10          1121                  13/34     15/04 D
        R10A         1144                  15/14     15/18 L   15/21
        R10L            4                  15/13     15/21 D
        R10X         1120                  15/04 L   15/11     15/17
        R103         1132                  15/09     15/11 L
        SBNC         1700                   3/38 D
        SCR2           36                   4/37 D    9/47      9/48      9/50      9/51      9/53      9/54
        SECSPER        32                   6/13 D    6/14
        SEK          1676                  21/16     21/42     22/50 D
        SEKB         1711                  22/51 S   23/02 D
        SEKX         1675                  22/50 L   23/06
        SEK1         1701                  22/52 L   23/08     23/10
        SHNC         1000                   3/36 D
        SHNI         1000                   5/05 D
        SPUM          211                  10/01
        TIMEOUT    210560                   4/05 D   16/37     17/29
        TIX76         473                   9/45      9/55 L
        TMS           506                   7/31     10/12 L
        TOS           246                   7/30      7/41 L
        TOSP          252                   7/41      7/43 L
        TOSR          263                   7/48      7/50 L
        TOS100        307                   8/12      8/14 L
        TOS105        311                   8/16 L    8/19
        TOS120        336                   8/24      8/32 L
        TOS130        345                   8/37 L    8/56
        TOS140        363                   8/42      8/46 L
        TOS150        402                   8/41      8/45      8/54 L
        TOS160        406                   8/30      8/38      9/01 D
        TOS200        406                   8/13      9/09 D
        TOS250        424                   9/11      9/21 L
        TOS300        430                   9/22      9/29 L
        TOS310        436                   9/31      9/33 L
        TOS50         270                   7/51      7/54 L
        TOS60         273                   7/56 L
        TOS65         275                   7/57 L    8/02
        TOS7          257                   7/44      7/48 L
        TOS90         302                   7/55      8/08 D   10/47     11/35
        TRKSPER        31                   6/12 D    6/13
        UJNC          300                   3/34 D
        UNIT           27                   6/10 D   10/30 S   11/27 S   14/44     22/55
                                            6/11     10/40 S   13/27 S   18/40
        WNB          1370                  19/12 D   21/23     21/49
        WNBX         1367                  19/12 L   19/14
        WNB2         1366                  19/11 L   19/16
        WNB4         1373                  19/14 L   19/18
        XSET         6000                   4/28 D   24/08     24/22     24/36     24/56
                                           24/04     24/18     24/32     24/46     25/09
        YINCR          22                   4/30 D   24/07     24/21     24/35     24/55
                                           24/03     24/17     24/31     24/45     25/08
        YSET         7000                   4/29 D   24/07     24/21     24/35     24/55
                                           24/03     24/17     24/31     24/45     25/08
        ZJNC          400                   3/35 D
1       EBL         CTI EXTERNAL BOOTSTRAP LOADER - A02               COMPASS 3.7-871.     23/08/13. 15.42.49.      PAGE    32
        SYMBOLIC REFERENCE TABLE.                                     844 
  
                                                  SYMBOL QUALIFIER =  844 
  
  
        CDDS         1466                  22/26
        CSDD          632                  22/20
        DCON            0                  18/37
        DDSS           13                  17/46
        DGST           12                  18/13
        DOPC           10                  21/29     21/30
        DRED            4                  21/17
        DRFS           34                  22/11     22/11
        DSDC         1463                  22/28
        DSSC          627                  22/22
        DSWRV           3                  20/48
        DSWUD          10                  20/51
        D2SK            2                  22/52
        MP.GSBS         2                  19/15     23/07
        MP.GSDR        10                  18/45
        MSRS           30                  22/18     22/24
        MTKS           23                  22/18     22/24
        SDDD            3                  22/26
        SLNS           14                  17/56
        SSDD            3                  22/20
        TDDD            0                  22/26
        TSDD            0                  22/20
  
  
  
  
                                                  SYMBOL QUALIFIER =  885 
  
  
        CSDD         1511                  22/32
        DOPC           10                  21/30
        DRED            4                   5/30     22/11
        DSSC         1510                  22/34
        MSRS           40                  22/30
        MTKS           50                  22/30
        SSDD           36                  22/32
        TSDD            1                  22/32
  
  
  
  
                                                  SYMBOL QUALIFIER =  CPA 
  
  
        CMSZ         7671                   8/26      8/28
        DDSMEM       7720                   5/19      5/20      5/21      5/22
        DSDP         7754                  26/09     26/16
        DSLN          502                   5/17
        DSPNLZ       7677                   7/24     10/25     11/21     14/39 S   14/43 S   17/08
                                            8/20     10/28     11/25     14/41 S   14/46 S
        LPP0         7676                  12/18
        MSDP         7742                  26/10     26/16
        OPTN         7673                   9/55
        OSDP         7766                  10/21     10/31     10/36     10/39     10/41     10/53     26/08     26/16
1       EBL         CTI EXTERNAL BOOTSTRAP LOADER - A02               COMPASS 3.7-871.     23/08/13. 15.42.49.      PAGE    33
        SYMBOLIC REFERENCE TABLE.                                     CPA 
  
        PPP0         7674                   9/16     12/18
        PPP1         7675                   9/18      9/43
        PRU           500                   5/18
  
  
  
  
                                                  SYMBOL QUALIFIER =  CTI 
  
  
        BOOTLOD      6200                   7/50     12/53     12/56     21/21 S
        BOOTTRN      6320                  10/06
        CDEP         7000                   7/42      7/49     16/56
        CDTYPE       7001                  16/51
        D844           13                  16/52
        EBLLOAD       200                   1/10      7/01
        EBLP         6777                   7/08
        IPLA         7301                  10/53     26/08     26/09     26/10
  
  
  
  
                                                  SYMBOL QUALIFIER =  QOD 
  
  
        QOD          2162                  13/33
 ZZZ
1       ZZZ         CTI LAST PROGRAM - A02                            COMPASS 3.7-871.     23/08/13. 15.42.54.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
  
                          0        1              IDENT  ZZZ,0
                          1       (2)             END 
  
  
  
  
                                                  IDENT  ZZZ,0                                                   ZZZ         2
                                                  PERIPH                                                         ZZZ         3
                                         VERID    MICRO  1,,*A02*                                                *A02*       1
                                         VERS     MICRO  1,,*"VERID"*                                       VERS VERS        3
                                                  COMMENT CTI LAST PROGRAM - "VERS"                              DIMA317P    3
                                                  COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1979               DIMA317P    4
  
  
                                        *         ALL RIGHTS RESERVED                                            CDCCRN      3
                                        *                                                                        CDCCRN      4
                                        *         CONTAINED HEREIN ARE SOFTWARE PRODUCTS COPYRIGHTED             CDCCRN      5
                                        *         BY CONTROL DATA CORPORATION.  REPRODUCTION WITHOUT             CDCCRN      6
                                        *         PERMISSION IS PROHIBITED.  THE COPYRIGHT NOTICE                CDCCRN      7
                                        *         MUST APPEAR ON ALL AUTHORIZED COMPLETE OR                      CDCCRN      8
                                        *         PARTIAL COPIES.                                                CDCCRN      9
                                        *                                                                        CDCCRN     10
1       ZZZ         CTI LAST PROGRAM - A02                            COMPASS 3.7-871.     23/08/13. 15.42.54.      PAGE     2
                                                                      ZZZ 
  
                                        *****     ZZZ - LAST PROGRAM -CTI-.                                      ZZZ         8
                                        *                                                                        ZZZ         9
                                        *         R. A. MATTHEWS.          02/28/78.                             ZZZ        10
                                        *                                                                        ZZZ        11
                                        *         ZZZ IS THE LAST PROGRAM IN THE COMMON TEST/INITIALIZATION      ZZZ        12
                                        *         (CTI) PACKAGE. CTI HAS NO EXECUTABLE CODE AND IS A FLAG TO     ZZZ        13
                                        *         MARK THE END OF THE PACKAGE WHEN LOADING FROM TAPE.            ZZZ        14
           0                       1     FIRST    BSSZ   1                                                       ZZZ        15
           1                                      END                                                            ZZZ        16
  
                             51300B CM  STORAGE USED               31 STATEMENTS        1 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.014 SECONDS           1 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        FIRST           0                   2/08 L
115.59.41.UCLP, D2, 031,     33.600KLNS.
