CALLINT 
          IDENT  INT
          PERIPH
          BASE   MIXED
          SST 
          SPACE  4,10 
*COMMENT  CALLINT - CALL IAF INITIALIZATION COMMON DECKS. 
          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
          TITLE  CALLINT - CALL IAF/TELEX INITIALIZATION COMMON DECKS.
          SPACE  4
 NAME     MICRO  1,,*CALLINT* 
  
  
  
SYMBOLS   TITLE  SYMBOL DEFINITIONS.
*         DIRECT CELL ASSIGNMENTS.
  
  
 CH       EQU    25 - 31     TERMINAL TABLE WORD *VCHT* 
          SPACE  4
**        PROGRAM EQUIVALENCES. 
  
 MC       EQU    15          MUTIPLEXER CHANNEL 
  
  
          SPACE  4
**        INSTRUCTION USED AS CONSTANTS.
  
  
 AODI     EQU    3600        AOD
 DCNI     EQU    7500        DCN
 FANI     EQU    7600        FAN
 IJMI     EQU    6500        IJM
 LDNI     EQU    1400        LDN
  
          SPACE  4
*         COMMON DECKS. 
          SPACE  4,10 
*CALL     COMPMAC 
*CALL     COMSREM 
*CALL     COMPCHI 
          SPACE  4
          LIST   F,X
*CALLALL  COMI
 ABT      SPACE  4,10 
**        ABT - ABORT JOB.
* 
*         ENTRY  (A) = MESSAGE ADDRESS. 
* 
*         USES   CM+1.
* 
*         CALLS  DFM. 
* 
*         MACROS MONITOR. 
  
  
 ABT      RJM    DFM         ISSUE DAYFILE MESSAGE
          LDN    PPET        SET ERROR FLAG 
          STD    CM+1 
          MONITOR CEFM
*         LJM    DPP         DROP PP
 TEQN     SPACE  4
**        TEQN - TABLE OF EQUIPMENT NUMBERS.
* 
*         ENTRY  1 WORD.
* 
*         EQUIPMENT NUMBER IN EST.
  
  
 TEQN     BSS    MXMX+2 
 TNTD     SPACE  4,10 
**        TNTD - TABLE OF NUMBER OF TERMINALS PER DEVICE. 
* 
*         ENTRY  1 WORD.
* 
*         NUMBER OF TERMINALS FOR MULTIPLEXER.
  
  
 TNTD     BSS    MXMX+1 
 SESX     EQU    /COMIIES/SESX
 REQ      EQU    /COMIICS/REQ 
          SPACE  4,10 
          END 
