Retro1.org codex

          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