*COMDECK  COMSCTI 
 CTI      CTEXT  COMSCTI - CTI INTERNAL DEFINITIONS.
          SPACE  4,10 
          IF     -DEF,QUAL$,1 
          QUAL   CTI
          BASE   D
*         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978. 
          TITLE  COMSCTI - CTI INTERNAL DEFINITIONS 
          SPACE  4
***       COMSCTI - CTI INTERNAL DEFINITIONS
* 
*         R. A. TURGEON            5-31-78. 
          SPACE  4,10 
***       PROVIDE LOCAL SYMBOLS IN CASE QUALIFICATION IS ON 
*         MUST INCLUDE ALL CPA SYMBOLS USED HERE
  
          IF     -DEF,QUAL$ 
 PRU      EQU    /CPA/PRU 
 LE77     EQU    /CPA/LE77
 LE6P     EQU    /CPA/LE6P
 BPW      EQU    /CPA/BPW 
 CPAFWA   EQU    /CPA/CPAFWA
          ENDIF 
          SPACE  4,10 
***       BASE ADDRESSES FOR IPL. 
  
 IPLB     EQU    6000B             IPL READ BUFFER
 IPLA     EQU    10000B-PRU+1      IPL LOAD FWA 
 IPLFWA   EQU    IPLA+LE77*BPW+LE6P*BPW  IPL FWA EXECUTABLE CODE
 IPLTRAN  EQU    IPLB+LE77*BPW+LE6P*BPW  DEFAULT TRANSFER ADDRESS 
          SPACE  4,10 
***       BASE AND REENTRY ADDRESSES FOR IOQ
  
 IOQB     EQU    IPLB              IOQ LOAD FWA 
 IOQTRAN  EQU    IOQB              IOQ TRANSFER ADDRESS 
 IOQALT   EQU    IOQTRAN+2         ALTERNATE IOQ ENTRY ADDRESS
          SPACE  4,10 
***       LOAD AND TRANSFER ADDRESSES FOR MOST CTI MODULES
  
 LOAD     EQU    10B               LOAD ADDRESS FOR CTI MODS
 TRAN     EQU    100B              TRANSFER ADDRESS 
          SPACE  4,10 
***       LOAD AND TRANSFER ADDRESSES FOR ICD 
  
 ICDLOAD  EQU    150B              INIT LOAD/TRAN ADDR
 ICDALT   EQU    ICDLOAD+1         TRAN WHEN RETURNING FROM ICE 
 ICDERR   EQU    ICDLOAD+3         TRAN WHEN ERROR IN ICE 
          SPACE  4,10 
***       LOAD ADDRESS FOR EXTERNAL BOOTSTRAP LOADER
  
 EBLLOAD  EQU    200B 
          SPACE  4,10 
***       LOAD/TRANSFER ADDRESSES FOR BOOTSTRAPS. 
  
 BOOTLOD  EQU    6200B
 BOOTTRN  EQU    6320B
          TITLE  CTI COMMON DRIVER INTERFACE
          SPACE  4
***       COMMON DRIVER INTERFACE 
* 
*         THIS DRIVER IS USED TO LOAD CTI MODULES.  TO USE THE DRIVER 
*         THE USER PASSES IN THE A-REGISTER, THE ADDRESS OF A 5 WORD
*         PACKET WITH THE FOLLOWING OFFSETS.
  
 CDIB     EQU    0                 FWA OF LOAD
 CDTA     EQU    1                 TRANSFER ADDRESS 
 CDRW     EQU    2                 REWIND FLAG
 CDNC     EQU    3                 NAME CHECK FIELD (2 WORDS) 
  
*         ENTRY TO THE DRIVER IS VIA A     LJM    CDEP
*         ERRORS ARE PROCESSED BY THE DRIVER. 
*         IF THE USER WANTS CONTROL BACK IF THERE IS NO ERROR,
*         THEN HE SHOULD SET CDTA TO POINT TO HIS OWN AREA. 
*         IF CDRW .NE. 0 THEN THE FILE IS REWOUND BEFORE ANY READ 
*           TAKES PLACE.
*         IF CDNC(1) = 0 THEN READ NEXT RECORD
*         ELSE READ RECORD NAMED BY LEFTMOST 18 BITS OF CDNC FIELD. 
* 
*         FOR A CDNC = 0 READ, THE PRFX AND 6PPM TABLES ARE NOT 
*         STRIPPED OFF.  FOR A CDNC .NE. 0 READ, THE PRFX AND 
*         6PPM TABLES ARE CHECKED BUT THEN STRIPPED AND THE 
*         REMAINDER OF THE RECORD IS TRANSFERRED TO THE ADDRESS 
*         SPECIFIED BY CDIB.  IF THE READ IS FROM DISK, 2 PP WORDS
*         PRECEDING CDIB WILL BE OVERLAYED BY THE LINKAGE BYTES.
* 
* 
*         THE ENTRY POINT TO THE DRIVER IS DEFINED BY 
  
 CDEP     EQU    7000B             ENTRY POINT FOR COMMON DRIVER
 CDTYPE   EQU    CDEP+1            COMMON DRIVER DEVICE TYPE
  
 CDNFMAX  EQU    30                NOFIND MAXIMUM 
  
*         THE DEVICE TYPE VALUES ARE AS FOLLOWS.
  
 D67X     EQU    1                 67X TAPE 
 D66X     EQU    2                 66X TAPE 
 D3TP     EQU    3                 65X/607 TAPES
 D844     EQU    11                844 DISK 
 D885     EQU    12                885 DISK 
          TITLE  CTI INTERNAL PARAMETERS
          SPACE  4
***       CTI INTERNAL PARAMETERS 
  
 EBLP     EQU    CDEP-1            EBL POINTER
 EBLPOSB  EQU    0
 EBLPDSB  EQU    1
 EBLPMSB  EQU    2
  
 DHEP     EQU    EBLP-1            DHE POINTER
 DHEPMAD  EQU    0
 DHEPOIP  EQU    1
 DHEPEBL  EQU    2
  
 C18P    EQU    DHEP-1      CYBER180 PARAMETER WORD 
 CSVER   EQU    C18P-2      CONTROLWARE DECK NAME 
 CTIFWA  EQU    CSVER       FWA OF CTI INTERNAL PARAMS
          SPACE 4,10
          BASE   *
          IF     -DEF,QUAL$,1 
          QUAL   *
          ENDX
