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