Table of Contents

CALLINT

Table Of Contents

  • [00008] CALLINT - CALL IAF/TELEX INITIALIZATION COMMON DECKS.
  • [00045] ABT - ABORT JOB.
  • [00062] TEQN - TABLE OF EQUIPMENT NUMBERS.
  • [00071] TNTD - TABLE OF NUMBER OF TERMINALS PER DEVICE.

Source Code

CALLINT.txt 
  1.           IDENT  INT 
  2.           PERIPH
  3.           BASE   MIXED
  4.           SST
  5.           SPACE  4,10
  6. *COMMENT  CALLINT - CALL IAF INITIALIZATION COMMON DECKS.
  7.           COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
  8.           TITLE  CALLINT - CALL IAF/TELEX INITIALIZATION COMMON DECKS.
  9.           SPACE  4
  10.  NAME     MICRO  1,,*CALLINT*
  11.  
  12.  
  13.  
  14. SYMBOLS   TITLE  SYMBOL DEFINITIONS.
  15. *         DIRECT CELL ASSIGNMENTS.
  16.  
  17.  
  18.  CH       EQU    25 - 31     TERMINAL TABLE WORD *VCHT*
  19.           SPACE  4
  20. **        PROGRAM EQUIVALENCES.
  21.  
  22.  MC       EQU    15          MUTIPLEXER CHANNEL
  23.  
  24.  
  25.           SPACE  4
  26. **        INSTRUCTION USED AS CONSTANTS.
  27.  
  28.  
  29.  AODI     EQU    3600        AOD
  30.  DCNI     EQU    7500        DCN
  31.  FANI     EQU    7600        FAN
  32.  IJMI     EQU    6500        IJM
  33.  LDNI     EQU    1400        LDN
  34.  
  35.           SPACE  4
  36. *         COMMON DECKS.
  37.           SPACE  4,10
  38. *CALL     COMPMAC
  39. *CALL     COMSREM
  40. *CALL     COMPCHI
  41.           SPACE  4
  42.           LIST   F,X
  43. *CALLALL  COMI
  44.  ABT      SPACE  4,10
  45. **        ABT - ABORT JOB.
  46. *
  47. *         ENTRY  (A) = MESSAGE ADDRESS.
  48. *
  49. *         USES   CM+1.
  50. *
  51. *         CALLS  DFM.
  52. *
  53. *         MACROS MONITOR.
  54.  
  55.  
  56.  ABT      RJM    DFM         ISSUE DAYFILE MESSAGE
  57.           LDN    PPET        SET ERROR FLAG
  58.           STD    CM+1
  59.           MONITOR CEFM
  60. *         LJM    DPP         DROP PP
  61.  TEQN     SPACE  4
  62. **        TEQN - TABLE OF EQUIPMENT NUMBERS.
  63. *
  64. *         ENTRY  1 WORD.
  65. *
  66. *         EQUIPMENT NUMBER IN EST.
  67.  
  68.  
  69.  TEQN     BSS    MXMX+2
  70.  TNTD     SPACE  4,10
  71. **        TNTD - TABLE OF NUMBER OF TERMINALS PER DEVICE.
  72. *
  73. *         ENTRY  1 WORD.
  74. *
  75. *         NUMBER OF TERMINALS FOR MULTIPLEXER.
  76.  
  77.  
  78.  TNTD     BSS    MXMX+1
  79.  SESX     EQU    /COMIIES/SESX
  80.  REQ      EQU    /COMIICS/REQ
  81.           SPACE  4,10
  82.           END