Retro1.org codex

CALLPP
* /---   FILE TYPE = E
* /---   BLOCK      CALLPP     00 000   82/04/14  09.09 
          IDENT  PPU
          PERIPH
          BASE   M
          SST 
*COMMENT  CALL PLATO PPU COMMON DECKS.
          COMMENT COPYRIGHT CONTROL DATA CORP. 1982.
          TITLE  CALL PLATO PPU COMMON DECKS. 
          SPACE  3
*         DIRECT LOCATION EQUIVALENCES
 
 D.T0     EQU    20B         DIRECT CELL WORK VARIABLES 
 D.T1     EQU    21B
 D.T2     EQU    22B
 D.T3     EQU    23B
 D.T4     EQU    24B
 UN       EQU    40B - 44B   USED BY *0AV*
 SC       EQU    45B         SCRATCH CELL -- USED BY *CDV*
 RI       EQU    60B - 61B   RANDOM INDEX (FOR CRA) 
 ADCI     EQU    2100B
 
*CALL     AIDTEXT 
 
*         CONSTANTS.
 
*         THE FOLLOWING SYMBOL IS NEEDED BY *PLAPCMX*.
 
 .NOSV2   IFGE   OSLEV,562D  IF NOS V2
 MTOT     EQU    PPFW        MULTI-TERMINAL CODE ORG
 .NOSV2   ENDIF 
*CALL     PLASGLB 
*CALL     COMPMAC 
 
*CALL     COMSRSX 
          LIST   F,X
*CALL     PTEXT 
*CALLALL  PLAP
          LIST   *
          TITLE  REQUIRED EQUIVALENCES
*CALL     COMPCRA 
          SPACE  3
 
*         THE FOLLOWING SYMBOL IS NEEDED BY *PLAPCJN*.
 
 .NOS22   IFGE   OSLEV,594D  NOS 2.2
 .EJT     EQU    0           ROUTINE CALLED BY *SFA EJT*
 .NOS22   ELSE               NOS 2.1
 .CEA     EQU    0           CALC EJT ENTRY ADDR SUBROUTINE 
 .NOS22   ENDIF 
 
*         THE FOLLOWING SYMBOLS ARE NEEDED BY *PLAPCMX*.
 
 CMI      EQU    0           CONVERT MEMORY INDEX SUBR
 RJC      EQU    0           READ JOB CONTROL WORD SUBR 
 
 .NOSV2   IFGE   OSLEV,562D  IF NOS V2
 MXJT     EQU    0           JCB ORD FOR MULTI-TERM ORG TYPE
 SSCL     EQU    0           ADDR OF SUBSYSTEM CONTROL WORD 
 .NOSV2   ENDIF 
 
*         THE FOLLOWING SYMBOLS ARE NEEDED BY *PLAPCPW*.
 
 APSW     EQU    0           ADDR OF PASSWORD IN ACCT BLOCK 
 AVLA     EQU    0           FWA FOR OVERLAY *0AV*
 PWRD     EQU    0           PASSWORD TO BE CHECKED 
*         FOR PLAPEXO 
 OVIN$    EQU    *
 OVNAM$   EQU    *
 OVORG$   EQU    *
 
*         FOR PLAPVEP 
 
**        CELLS NEEDED TO READ AND VERIFY THE EXTENDED
*         MEMORY PARAMETERS. THE FIRST 15 WORDS (CHKS - PNW)
*         MUST BE CONTIGUOUS. 
 
 CHKS     BSS    5           CHECKSUM FOR POINTERS
 ECSP     BSS    1           VARIOUS BIT FLAGS
 MRAX     BSS    2           MASTOR RAX 
 MFLX     BSS    2           MASTOR FLX 
 PNW      BSS    5           PROGRAM NAME AND NO. OF ARGS 
 MASNAM   DATA   6LMASTOR 
 MFN      BSS    1           MASTOR MAINFRAME NUMBER
          SPACE  3
          END