Retro1.org codex

User Tools

Site Tools

Trace: • CALLCP
plato:source:plaopl:callcp

Table of Contents

CALLCP

Table Of Contents

  • [00009] CALL PLATO CPU COMMON DECKS.
  • [00086] REQUIRED EQUIVALENCES

Source Code

CALLCP.txt 
  1. CALLCP
  2. * /---   FILE TYPE = E
  3. * /---   BLOCK      CALLCP     00 000   82/04/19  09.24 
  4.           IDENT  CALLCP 
  5.           SST    PPR
  6.           SYSCOM
  7. *COMMENT  CALL PLATO CPU COMMON DECKS.
  8.           COMMENT COPYRIGHT CONTROL DATA CORP. 1982.
  9.           TITLE  CALL PLATO CPU COMMON DECKS. 
  10.           SPACE  3
  11. *         REQUIRED EQUIVALENCES 
  12.  
  13. *CALL     SYSCON
  14. *CALL     PLASMPC 
  15. *CALL     PLASMRC 
  16. *CALL     PLASRWX 
  17.  
  18. *         FOR PLACCFG 
  19.  
  20.  CFIG$    EQU    1
  21.  
  22. *         FOR PLACCFL 
  23.  
  24.  CFL$     EQU    1
  25.  
  26. *         FOR PLACMPI 
  27.  
  28.  INC$     EQU    1           ASSEMBLE CLEAR ROUTINE 
  29.  INI$     EQU    1           ASSEMBLE INITIALIZE ROUTINE
  30.  INL$     EQU    1           ASSEMBLE INTERLOCK ROUTINE 
  31.  INR$     EQU    1           ASSEMBLE RECOVER ROUTINE 
  32.  INV$     EQU    1           ASSEMBLE VERIFY ROUTINE
  33.  GFR      EQU    GFR15       DEFINED IN PLASRWX 
  34.  EFI      EQU    0
  35.  
  36. *         FOR PLACRCF 
  37.  
  38.  PMX$     EQU    1           PROCESS MAXIMUM VALUES 
  39.  PNM$     EQU    1           PROCESS NUMERICAL VALUES 
  40.  PON$     EQU    1           PROCESS ON / OFF VALUES
  41.  PAL$     EQU    1           PROCESS SHORT ALPHA VALUES 
  42.  PLA$     EQU    1           PROCESS LONG ALPHA VALUES
  43.  NAG$     EQU    1           PROCESS NETWORK ADDR GROUPS
  44.  PPR$     EQU    1           PROCESS PLF PRIORITIES 
  45.  
  46.  MAXNAG   EQU    1           MAXIMUM NETWORK ADDR GROUPS
  47.  
  48. *         FOR PLACSUB 
  49.  
  50.  OSLEV    EQU    "MODLEVEL" 
  51.  JTLTH    EQU    1
  52.  JSQSHF   EQU    1
  53.  DSPBC    EQU    1
  54.  DSPSY    EQU    1
  55.  
  56. *CALL     PLASGLB 
  57. *CALL     COMCMAC 
  58.  
  59.  
  60. *         FOR PLACSMD - SEE PSMDX FOR TRUE DEFINITION 
  61.  
  62.  FEATURE  MACRO 
  63.           BSS    0
  64.           ENDM
  65.  
  66.  
  67. *         FOR PLACSUB - SEE MASTOR FOR THE TRUE DEFINITION
  68.  
  69.  FLAG     OPSYN  FEATURE
  70.  X        OPSYN  FEATURE
  71.  ENDOV    OPSYN  FEATURE
  72.  
  73.  
  74.  TA0      MACRO  ADDR 
  75.           SA0    ADDR 
  76.           ENDM
  77.  
  78.  
  79.  TA1      MACRO  BREG,ADDR
  80.           SA1    BREG+ADDR
  81.           ENDM
  82.  
  83.           LIST   F,X
  84. *CALLALL  PLAC
  85.           LIST   *
  86.           TITLE  REQUIRED EQUIVALENCES
  87. *         FOR PLACMPI 
  88.  
  89.  PID      EQU    *
  90.  AINTTAB  EQU    *
  91.  AINTTRC  EQU    *
  92.  ECSPRTY  EQU    *           EM PARITY ERROR RECOVERY 
  93.  A170     EQU    *           A170 FLAG
  94.  SYSCLOK  EQU    *           REAL-TIME CLOCK
  95.  
  96. *         FOR PLACRCF 
  97.  
  98.  PLFNAG   EQU    *
  99.  PLFNAGT  EQU    *
  100.  PLFPRU   EQU    *
  101.  PLFPRL   EQU    *
  102.  
  103. *         FOR PLACSEC 
  104.  
  105.  EM       EQU    *
  106.           SPACE  3
  107. *CALL     COMCCIO 
  108. *CALL     COMCDXB 
  109. *CALL     COMCRDC 
  110. *CALL     COMCRDW 
  111. *CALL     COMCSYS 
  112. *CALL     COMCUPC 
  113.  
  114. *         FOR PLACSUB 
  115.  
  116.  DRQWK    EQU    *
  117.  MASSUB   EQU    *
  118.  PARAM1   EQU    *
  119.  PARAM2   EQU    *
  120.  PARAM3   EQU    *
  121.  PARAM4   EQU    *
  122.  PARAM5   EQU    *
  123.  PARAM6   EQU    *
  124.  PARAM7   EQU    *
  125.  PARAM8   EQU    *
  126.  PARAM9   EQU    *
  127.  PARAM10  EQU    *
  128.  PARAM11  EQU    *
  129.  PARAM12  EQU    *
  130.  PARAM13  EQU    *
  131.  REQUEST  EQU    *
  132.  AJOBTAB  EQU    *
  133.  JOBTAB   EQU    *
  134.  AJSQTAB  EQU    *
  135.  II       EQU    *
  136.  MASREQ   EQU    *
  137.  FAMILY   EQU    *
  138.  SUBNUM   EQU    *
  139.  PASSW    EQU    *
  140.  ARG1     EQU    *
  141.  SUBUF    EQU    *
  142.  SYOT3    EQU    *
  143.  DSP      EQU    *
  144.  DSPQ     EQU    *
  145.  JINDEX   EQU    *
  146.  SJINDEX  EQU    *
  147.  WORK     EQU    *
  148.           SPACE  3
  149.           END
plato/source/plaopl/callcp.txt · Last modified: 2023/08/05 18:54 by Site Administrator