Table of Contents

CALLPP

Table Of Contents

  • [00010] CALL PLATO PPU COMMON DECKS.
  • [00041] REQUIRED EQUIVALENCES

Source Code

CALLPP.txt 
  1. CALLPP
  2. * /---   FILE TYPE = E
  3. * /---   BLOCK      CALLPP     00 000   82/04/14  09.09 
  4.           IDENT  PPU
  5.           PERIPH
  6.           BASE   M
  7.           SST 
  8. *COMMENT  CALL PLATO PPU COMMON DECKS.
  9.           COMMENT COPYRIGHT CONTROL DATA CORP. 1982.
  10.           TITLE  CALL PLATO PPU COMMON DECKS. 
  11.           SPACE  3
  12. *         DIRECT LOCATION EQUIVALENCES
  13.  
  14.  D.T0     EQU    20B         DIRECT CELL WORK VARIABLES 
  15.  D.T1     EQU    21B
  16.  D.T2     EQU    22B
  17.  D.T3     EQU    23B
  18.  D.T4     EQU    24B
  19.  UN       EQU    40B - 44B   USED BY *0AV*
  20.  SC       EQU    45B         SCRATCH CELL -- USED BY *CDV*
  21.  RI       EQU    60B - 61B   RANDOM INDEX (FOR CRA) 
  22.  ADCI     EQU    2100B
  23.  
  24. *CALL     AIDTEXT 
  25.  
  26. *         CONSTANTS.
  27.  
  28. *         THE FOLLOWING SYMBOL IS NEEDED BY *PLAPCMX*.
  29.  
  30.  .NOSV2   IFGE   OSLEV,562D  IF NOS V2
  31.  MTOT     EQU    PPFW        MULTI-TERMINAL CODE ORG
  32.  .NOSV2   ENDIF 
  33. *CALL     PLASGLB 
  34. *CALL     COMPMAC 
  35.  
  36. *CALL     COMSRSX 
  37.           LIST   F,X
  38. *CALL     PTEXT 
  39. *CALLALL  PLAP
  40.           LIST   *
  41.           TITLE  REQUIRED EQUIVALENCES
  42. *CALL     COMPCRA 
  43.           SPACE  3
  44.  
  45. *         THE FOLLOWING SYMBOL IS NEEDED BY *PLAPCJN*.
  46.  
  47.  .NOS22   IFGE   OSLEV,594D  NOS 2.2
  48.  .EJT     EQU    0           ROUTINE CALLED BY *SFA EJT*
  49.  .NOS22   ELSE               NOS 2.1
  50.  .CEA     EQU    0           CALC EJT ENTRY ADDR SUBROUTINE 
  51.  .NOS22   ENDIF 
  52.  
  53. *         THE FOLLOWING SYMBOLS ARE NEEDED BY *PLAPCMX*.
  54.  
  55.  CMI      EQU    0           CONVERT MEMORY INDEX SUBR
  56.  RJC      EQU    0           READ JOB CONTROL WORD SUBR 
  57.  
  58.  .NOSV2   IFGE   OSLEV,562D  IF NOS V2
  59.  MXJT     EQU    0           JCB ORD FOR MULTI-TERM ORG TYPE
  60.  SSCL     EQU    0           ADDR OF SUBSYSTEM CONTROL WORD 
  61.  .NOSV2   ENDIF 
  62.  
  63. *         THE FOLLOWING SYMBOLS ARE NEEDED BY *PLAPCPW*.
  64.  
  65.  APSW     EQU    0           ADDR OF PASSWORD IN ACCT BLOCK 
  66.  AVLA     EQU    0           FWA FOR OVERLAY *0AV*
  67.  PWRD     EQU    0           PASSWORD TO BE CHECKED 
  68. *         FOR PLAPEXO 
  69.  OVIN$    EQU    *
  70.  OVNAM$   EQU    *
  71.  OVORG$   EQU    *
  72.  
  73. *         FOR PLAPVEP 
  74.  
  75. **        CELLS NEEDED TO READ AND VERIFY THE EXTENDED
  76. *         MEMORY PARAMETERS. THE FIRST 15 WORDS (CHKS - PNW)
  77. *         MUST BE CONTIGUOUS. 
  78.  
  79.  CHKS     BSS    5           CHECKSUM FOR POINTERS
  80.  ECSP     BSS    1           VARIOUS BIT FLAGS
  81.  MRAX     BSS    2           MASTOR RAX 
  82.  MFLX     BSS    2           MASTOR FLX 
  83.  PNW      BSS    5           PROGRAM NAME AND NO. OF ARGS 
  84.  MASNAM   DATA   6LMASTOR 
  85.  MFN      BSS    1           MASTOR MAINFRAME NUMBER
  86.           SPACE  3
  87.           END