CALLPPU 
          IDENT  PPU
          PERIPH
          BASE   MIXED
          SST    OVLA 
*COMMENT  CALL PPU COMMON DECKS.
          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
  
          LIST   F           LIST IF SKIPPED LINES
          TITLE  CALL PPU COMMON DECKS. 
          SPACE  4
**        DIRECT LOCATION EQUIVALENCES. 
  
  
 ES       EQU    20 - 24     EST ENTRY (5 LOCATIONS)
 FS       EQU    20 - 24     FILE STATUS (5 LOCATIONS)
 RN       EQU    25          MAINTENANCE REGISTER NUMBER
 TA       EQU    26          IAF *RA* VALUE 
 LO       EQU    27          LAST MASS STORAGE EST ORDINAL + 1
 CN       EQU    30 - 34     (5 LOCATIONS)
 BS       EQU    35          BLOCK SIZE 
 AB       EQU    40 - 44     PROGRAM NAME (5 LOCATIONS) 
 FN       EQU    40 - 44     FILE NAME (5 LOCATIONS)
 UN       EQU    50 - 54     USER NUMBER (5 LOCATIONS)
 RU       EQU    55          RELATIVE UNIT NUMBER 
 FA       EQU    57          FST ADDRESS
 SP       EQU    60 - 64     CONTROL STATEMENT POINTER (5 LOCATIONS)
 FT       EQU    60 - 61     FIRST POINTER
 IN       EQU    62 - 63     IN POINTER 
 OT       EQU    64 - 65     OUT POINTER
 LM       EQU    66 - 67     LIMIT POINTER
          SPACE  4
**        TAPE DRIVER EQUIVALENCES. 
  
  
 DRX      EQU    *           DRIVER EXIT ADDRESS
 MODE     EQU    *           TAPE MODE
 RDF      EQU    *           READ FUNCTION
 WTF      EQU    *           WRITE FUNCTION 
 SKF      EQU    *           SKIP FORWARD FUNCTION
 SKB      EQU    *           SKIP BACKWARD FUNCTION 
 BKR      EQU    *           BACKSPACE RECORD 
 PRS      EQU    *           PRESET ADDRESS 
 PNR      EQU    *           PROCESS NOT READY ADDRESS
          SPACE  4
**        IAF EQUIVALENCES. 
  
  
 PA       EQU    20 - 21     POT ADDRESS (2 LOCATIONS)
 TT       EQU    22 - 23     TERMINAL TABLE ADDRESS (2 LOCATIONS) 
 UI       EQU    24 - 25     USER INDEX 
 TN       EQU    26          TERMINAL NUMBER
 PP       EQU    27          POT POINTER
          SPACE  4
**        MASS STORAGE EQUIVALENCES.
  
  
 RI       EQU    20 - 21     RANDOM INDEX (2 LOCATIONS) 
 SLMA     EQU    0
 SLMB     EQU    0
  
 NAME     MICRO  1,2,*DX* 
          SPACE  4,10 
**        *PFM* EQUIVALENCES. 
  
  
 CCIA     EQU    PPFW+2      CATALOG TRACK
 PFPN     EQU    CCIA+1      PF CONTROL WORD
 PFID     EQU    PFPN+5      PF CATALOG ADDRESS 
 PFFM     EQU    PFID+3      FAMILY AND USER INDEX
 PFCD     EQU    PFFM+5      CREATION DATE AND TIME 
 ERRC     EQU    PFCD+1      ERROR PARAMETERS - *COMPACE* 
 ERRD     EQU    ERRC+1 
          SPACE  4
**        STATUS/CONTROL REGISTER ERROR PROCESSING EQUIVALENCES.
  
  
 C1       EQU    30          TEMPORARY REGISTER 1 
 C2       EQU    31          TEMPORARY REGISTER 2 
 AM       EQU    32          ADDRESS OF ERROR MESSAGE 
 BT       EQU    33          FIRST BIT IN WORD BIT NUMBER 
 BW       EQU    34          BIT NUMBER WITHIN WORD 
 CB       EQU    35          CURRENT BIT NUMBER 
 FW       EQU    36          FWA OF ERROR MESSAGE BUFFER
 LW       EQU    37          LWA+1 OF ERROR MESSAGE BUFFER
 RW       EQU    40          READ CURRENT WORD FUNCTION 
 TE       EQU    41          ADDRESS IN TABLE *TEMA*
 WC       EQU    42          S/C REGISTER WORD CONTENTS 
 MRER     EQU    PPFW        MAINTENANCE REGISTER ERROR HANDLER 
          SPACE  4,10 
**        VALIDATION LIMITS DEFINITIONS.
  
  
 CLI$     EQU    0           CONVERT VALIDATION INDICES 
 CMI$     EQU    0           CONVERT FIELD LENGTH INDEX 
 CPI$     EQU    0           CONVERT CARDS PUNCHED INDEX
 DBI$     EQU    0           CONVERT DEFFERRED BATCH JOBS INDEX 
 ECI$     EQU    0           CONVERT ECS FIELD LENGTH INDEX 
 LPI$     EQU    0           CONVERT LINES PRINTED INDEX
 NFI$     EQU    0           CONVERT FILE LIMIT INDEX 
 SLI$     EQU    0           CONVERT SRU INDEX
 TLI$     EQU    0           CONVERT TIME LIMIT INDEX 
          SPACE  4,10 
**        VALIDATE MASS STORAGE EQUIVALENCES. 
  
  
 T8       EQU    16 
 T9       EQU    17 
 OD       EQU    25          EST ORDINAL/EST ENTRY ADDRESS
 DT       EQU    26          DEVICE TYPE NMENMONIC
 COMPGFP  SPACE  4,10 
**        *COMPGFP* EQUIVALENCES. 
  
  
 CLT$     EQU    1           SELECT CLT PROCESSOR 
 EJT$     EQU    1           SELECT EJT PROCESSOR 
 FNT$     EQU    1           SELECT FNT PROCESSOR 
 QFT$     EQU    1           SELECT QFT PROCESSOR 
          SPACE  4,10 
**        *COMP1XM* REFERENCED *CCC* ERRORS.
  
  
 CHF      EQU    3  (HS0003) CHANNEL HUNG FULL
 CHE      EQU    4  (HS0004) CHANNEL EMPTY
 ITA      EQU    5  (HS0005) INPUT TERMINATED ABNORMALLY
 OTA      EQU    5  (HS0005) OUTPUT TERMINATED ABNORMALLY 
 CIA      EQU    13 (HS0013) CHANNEL INACTIVE AFTER ACTIVATE
 CPE      EQU    24 (HS0024) CHANNEL PARITY ERROR 
 FTO      EQU    50 (HS0050) FUNCTION TIMEOUT 
 CGS      EQU    74 (HS0074) ABNORMAL GENERAL STATUS
 MACROS   SPACE  4,10 
**        DUMMY MACRO DEFINITIONS.
  
  
 COMPARE  MACRO 
          ENDM
  
 ERROR    MACRO 
          ENDM
  
 EXIT     MACRO 
          ENDM
          SPACE  4
**        MISCELLANEOUS EQUIVALENCES. 
  
  
 STMT     EQU    *           START OF STATEMENT BUFFER
 CHAR     EQU    *           START OF CHARACTER BUFFER
 BKPK     EQU    *           INITIAL BREAKPOINT ADDRESS 
 DSW      EQU    *           *DSWM* PROCESSOR 
 DPP      EQU    *           DROP PP EXIT 
 OVL0     EQU    BFMS        LOAD ADDRESS FOR ZERO-LEVEL OVERLAY
 MSR$     EQU    0           MASS STORAGE READ ERROR PROCESSING 
 MSR      EQU    0           ERROR PROCESSING SUBROUTINE NAME 
 MSR      EQU    0           MASS STORAGE READ ERROR PROCESSING 
 RCM$     EQU    0           RESTORE CM TEST WORDS
 RLI$     EQU    0           DONT QUALIFY *COMPRLI* 
 RINST$   EQU    0           RESTORE INSTRUCTIONS 
  
*CALL     COMPMAC 
*CALL     COMSACC 
*CALL     COMSBIO 
*CALL     COMSCIO 
*CALL     COMSCPS 
*CALL     COMSDSL 
*CALL     COMSEJT 
*CALL     COMSEVT 
          QUAL   COMSHIO
*CALL     COMSHIO 
          QUAL   *
 DUCF     EQU    /COMSHIO/DUCF
 PUTLS    EQU    /COMSHIO/PUTLS 
 PUTP     EQU    /COMSHIO/PUTP
 UNCT     EQU    /COMSHIO/UNCT
 PILL     EQU    /COMSHIO/PILL
*CALL     COMSIOU 
*CALL     COMSJIO 
*CALL     COMSMMF 
*CALL     COMSMSC 
*CALL     COMSMSI 
*CALL     COMSMSP 
*CALL     COMSMST 
*CALL     COMSPFM 
*CALL     COMSPFU 
*CALL     COMSPIM 
          QUAL   REM
*CALL     COMSREM 
          QUAL   *
*CALL     COMSSCR 
*CALL     COMSSCD 
*CALL     COMSSSD 
*CALL     COMSSSE 
*CALL     COMSSSJ 
*CALL     COMSTCM 
*CALL     COMSTDR 
*CALL     COMSWEI 
          LIST   X
  
          PURGMAC  BITSET,LDBC,ADBC,LPBC,LMBC,DCHAN,DELAY 
          PURGMAC  ENDMS,EXECUTE,MONITOR,OVERFLOW,PAUSE 
          PURGMAC  RCHAN,SETMS,SUBR,.1,BITCON,INDEX 
*CALLALL  COMP
          SPACE  4
          END 
