COMSRPV 
COMMON
          CTEXT  COMSRPV - EXTENDED REPRIEVE EQUIVALENCES.
  
  
          BASE   M
          QUAL   COMSRPV
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
          SPACE  4,10 
***       COMSRPV - EXTENDED REPRIEVE EQUIVALENCES. 
* 
*         P. J. PERRO.       81/04/15.
 RPV      SPACE  4,10 
***       COMSRPV DEFINES SYMBOLS ASSOCIATED WITH EXTENDED REPRIEVE 
*         PROCESSING. 
* 
*         EXTENDED RPV MODE ALLOWS A CPU ROUTINE TO NOT ONLY
*         CLEAN UP AND RESUME AFTER A SPECIFIED TERMINATION 
*         BUT ALSO TO TAKE ACTION TO CORRECT AND RESPOND TO 
*         INPUT DIRECTIVES.  EXTENDED REPRIEVE HAS THREE MODES -
*         SETUP, RESUME, AND RESET.  AN EXTENDED REPRIEVE RESUME
*         HAS TWO MODES - USER PROGRAM MODE RESUME (INTERRUPT HAS 
*         BEEN PROCESSED AND RUNNING PROGRAM SHOULD BE RESTARTED
*         AS PRIOR TO INTERRUPT) AND INTERRUPT HANDLER MODE RESUME
*         (RUNNING PROGRAM MUST BE RESTARTED, AS PART OF INTERRUPT
*         PROCESSING, UNTIL A LOGICAL INTERRUPT POINT IS REACHED).
* 
* 
*         EXTENDED RPV CALL FORMAT. 
* 
*T RA+1   24/RPVP,17/0,1/1,18/FWA 
* 
*         FWA    FWA OF PARAMETER BLOCK.
*                BIT 18 SET INDICATES EXTENDED RPV MODE.
* 
*         THE PARAMETER BLOCK HAS THE FOLLOWING FORMAT. 
* 
*T FWA    36/0,12/LEN,2/0,9/FUNC,1/C
*T,FWA+1  30/CHECKSUM LWA,30/TRANSFER ADDRESS 
*T,FWA+2  60/CHECKSUM VALUE 
*T,FWA+3  24/NEW MASK,24/ERROR CLASS,12/EC
*T,FWA+4  60/PENDING INTERRUPTS 
*T,FWA+5  60/PENDING RA+1 REQUEST 
*T,FWA+6  60/INTERRUPTED TERMINAL I/O 
*T,FWA+7  48/SYSTEM DEPENDENT,12/OS EF
*T,FWA+10 42/RESERVED FOR CDC,18/IRES 
*T,FWA+11 60/FIRST WORD OF EXCHANGE PACKAGE 
*         (THE EXCHANGE PACKAGE WILL TAKE UP 20B WORDS MAKING 
*         THE LENGTH OF THE PARAMETER BLOCK 31B WORDS.) 
*T,FWA+30 60/LAST WORD OF EXCHANGE PACKAGE
* 
*         LEN - LENGTH OF PARAMETER BLOCK INCLUDING THE EXCHANGE
*                PACKAGE AREA.
* 
*         FUNC - FUNCTION CODE FOR EXTENDED RPV.
*                1 = SETUP.  INITIALIZES PARAMETERS FOR *RPV* 
*                    INTERFACE. 
*                2 = RESUME (PROGRAM MODE).  RESTARTS RUNNING PROGRAM 
*                    AFTER INTERRUPT HAS BEEN PROCESSED.
*                3 = RESET.  RESETS ERROR FROM INTERRUPT FOR SYSTEM 
*                    PROCESSING.
*                4 = RESUME (INTERRUPT HANDLER MODE).  RESTARTS 
*                    PROGRAM AS PRIOR TO INTERRUPT, AS PART OF
*                    INTERRUPT PROCESSING (UNTIL A LOGICAL INTERRUPT
*                    POINT IS REACHED).  LEAVES INTERRUPT HANDLER 
*                    IN PROGRESS FLAG SET SO A REPRIEVE *RESET* 
*                    FUNCTION CAN BE ISSUED LATER.
* 
*         C - COMPLETE BIT. 
* 
*         CHECKSUM LWA - SPECIFIED BY THE USER TO INDICATE THE END
*                OF THE AREA TO BE CHECKSUMMED AND COMPARED/SET.
*                IF ZERO, NO CHECKSUM IS DESIRED.  (CHECKSUM AREA 
*                BEGINS AT TRANSFER ADDRESS.) 
* 
*         TRANSFER ADDRESS - ADDRESS TO WHICH CONTROL IS TRANSFERRED
*                WHEN AN INTERRUPT IS PROCESSED.
* 
*         NEW MASK - MASK BITS TO BE SET UP BY CALL. THE VALUES OF
*                THE MASK BITS ARE AS FOLLOWS.
*                001         CPU ERROR EXITS. 
*                002         PPU CALL ERRORS. 
*                004         SYSTEM RESOURCE LIMITS.
*                010         OPERATOR TERMINATION.
*                020         PPU ABORT. 
*                040         CPU ABORT. 
*                100         NORMAL TERMINATION.
*                200         TERMINAL INTERRUPT.
* 
*         ERROR CLASS - SET TO THE VALUE OF THE MASK BIT WHICH
*                INTERCEPTS THE INDICATED ERROR.
* 
*         EC - COMMON ERROR CODE (COMMON BETWEEN NOS AND NOS/BE). 
* 
*         PENDING INTERRUPTS - USED TO QUEUE PENDING INTERRUPTS.
*                THE NTH ERROR CODE WILL SET BIT 2**N.
* 
*         PENDING RA+1 REQUEST - CONTENTS OF RA+1 AT THE TIME 
*                OF THE INTERRUPT.
* 
*         INTERRUPTED TERMINAL I/O - IF AN INTERRUPT OCCURS WHILE A 
*                TERMINAL INPUT REQUEST IS PENDING, THE 
*                INTERRUPTED INPUT REQUEST WILL BE RECONSTRUCTED
*                HERE IN THE FORM 42/*CIOP*,18/FET ADDRESS. 
* 
*         OS EF - VALUE OF THE OPERATING SYSTEM ERROR FLAG
*                AT THE TIME OF THE INTERRUPT.
* 
*         IRES - RESERVED FOR INSTALLATION. 
* 
*         EXCHANGE PACKAGE - A COPY OF THE EXCHANGE PACKAGE 
*                AT THE TIME OF THE INTERRUPT (COMPLETELY 
*                UNCHANGED FROM THE RUNNING PACKAGE AT THE
*                TIME OF THE ERROR.)
          SPACE  4,10 
**        EXTENDED REPRIEVE PARAMETER BLOCK TAGS. 
  
 LNTH     EQU    0           LENGTH 
 FUNC     EQU    0           FUNCTION 
 CKLW     EQU    1           CHECKSUM LAST WORD ADDRESS 
 TADD     EQU    1           TRANSFER ADDRESS 
 CKSM     EQU    2           CHECKSUM 
 NMSK     EQU    3           NEW MASK 
 ERCL     EQU    3           ERROR CLASS
 ERCD     EQU    3           ERROR CODE 
 PINT     EQU    4           PENDING INTERRUPTS 
 PRAR     EQU    5           PENDING RA+1 REQUEST 
 ITIO     EQU    6           INTERRUPTED TERMINAL I/O 
 OSEF     EQU    7           OPERATING SYSTEM ERROR FLAG
 EXPA     EQU    11B         FIRST WORD OF EXCHANGE PACKAGE 
  
 EXPL     EQU    20B         LENGTH OF EXCHANGE PACKAGE 
 RPPL     EQU    11B         EXTENDED RPV BLOCK LENGTH (MINUS EXPL) 
 REPL     EQU    RPPL+EXPL   EXTENDED RPV BLOCK LENGTH (INCLUDING EXPL) 
          ERRNZ  RPPL-2-7    CHANGE *RPVBLK* MACRO IN *COMCCMD* 
          ERRNZ  EXPL-20B    CHANGE *RPVBLK* MACRO IN *COMCCMD* 
          SPACE  4,10 
**        REPRIEVE MASKS. 
  
  
 EEMS     EQU    001         CPU ERROR EXIT 
 PCMS     EQU    002         PP CALL ERROR
 SRMS     EQU    004         SRU LIMIT
 OTMS     EQU    010B        OPERATOR TERMINATION 
 PPMS     EQU    020B        PP ABORT 
 CPMS     EQU    040B        CPU ABORT
 NTMS     EQU    100B        NORMAL TERMINATION 
 TIMS     EQU    200B        TERMINAL INTERRUPT 
 MXMS     EQU    377B        MAXIMUM MASK 
          SPACE  4,10 
**        COMMON ERROR CODES. 
  
  
 NTEC     EQU    0           NORMAL TERMINATION 
 TLEC     EQU    1           TIME LIMIT (TLET)
 EEEC     EQU    2           CPU ERROR EXIT (EEET, PEET, PSET)
 PPEC     EQU    3           PP ABORT (PPET, MLET, ITET)
 CPEC     EQU    4           CPU ABORT (CPET) 
 PCEC     EQU    5           PP CALL ERROR (PCET) 
 ODEC     EQU    6           OPERATOR DROP (IDET, ODET, STET) 
 OKEC     EQU    7           OPERATOR KILL (SSET,OKET,ORET,SYET,FSET) 
 RREC     EQU    10B         OPERATOR RERUN (RRET)
 ECEC     EQU    12B         ECS PARITY ERROR (ECET)
 RCEC     EQU    16B         JOB HUNG IN AUTORECALL (RCET)
 MLEC     EQU    17B         MS/SERVICE LIMIT (FLET, TKET)
 SREC     EQU    21B         I/O LIMITS (SRET)
 TIEC     EQU    40B         TERMINAL INTERRUPT (TIET, TAET)
          SPACE  4,10 
**        ERROR CLASSES.
  
  
 NTCL     EQU    100B        NORMAL TERMINATION 
 TLCL     EQU    004B        TIME LIMIT (TLET)
 EECL     EQU    001B        CPU ERROR EXIT (ARET, PEET, PSET)
 PPCL     EQU    20B         PP ABORT (PPET, MLET, ITET)
 CPCL     EQU    040B        CPU ABORT (CPET) 
 PCCL     EQU    002B        PP CALL ERROR (PCET, RCET) 
 ODCL     EQU    010B        OPERATOR DROP (IDET, ODET, STET) 
 OKCL     EQU    010B        OPERATOR KILL (SSET,OKET,ORET,SYET,FSET) 
 RRCL     EQU    010B        OPERATOR RERUN (RRET)
 ECCL     EQU    020B        ECS PARITY ERROR (ECET)
 FLCL     EQU    004B        MS/SERVICE LIMIT (FLET, TKET)
 SRCL     EQU    004B        I/O LIMITS (SRET)
 TICL     EQU    200B        TERMINAL INTERRUPT (TIET, TAET)
  
  
  
  
          SPACE  4,10 
          BASE   *
          QUAL   *
          ENDX
