User Tools

Site Tools


cdc:nos2.source:opl871:callint

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
cdc/nos2.source/opl871/callint.txt ยท Last modified: 2023/08/05 17:24 by Site Administrator