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