Common COMSRPV

6 Modifications

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.comsrpv +++|          CTEXT  COMSRPV - EXTENDED REPRIEVE EQUIVALENCES.
00002  M01S00002.comsrpv +++|
00003  M01S00003.comsrpv +++|
00004  M01S00004.comsrpv +++|          BASE   M
00005  M01S00005.comsrpv +++|          QUAL   COMSRPV

Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00006.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1981.
00007  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M01S00007.comsrpv +++|          SPACE  4,10
00009  M01S00008.comsrpv +++|***       COMSRPV - EXTENDED REPRIEVE EQUIVALENCES.
00010  M01S00009.comsrpv +++|*
00011  M01S00010.comsrpv +++|*         P. J. PERRO.       81/04/15.
00012  M01S00011.comsrpv +++| RPV      SPACE  4,10
00013  M01S00012.comsrpv +++|***       COMSRPV DEFINES SYMBOLS ASSOCIATED WITH EXTENDED REPRIEVE
00014  M01S00013.comsrpv +++|*         PROCESSING.
00015  M01S00014.comsrpv +++|*
00016  M01S00015.comsrpv +++|*         EXTENDED RPV MODE ALLOWS A CPU ROUTINE TO NOT ONLY
00017  M01S00016.comsrpv +++|*         CLEAN UP AND RESUME AFTER A SPECIFIED TERMINATION
00018  M01S00017.comsrpv +++|*         BUT ALSO TO TAKE ACTION TO CORRECT AND RESPOND TO
00019  M01S00018.comsrpv +++|*         INPUT DIRECTIVES.  EXTENDED REPRIEVE HAS THREE MODES -
00020  M01S00019.comsrpv +++|*         SETUP, RESUME, AND RESET.  AN EXTENDED REPRIEVE RESUME
00021  M01S00020.comsrpv +++|*         HAS TWO MODES - USER PROGRAM MODE RESUME (INTERRUPT HAS
00022  M01S00021.comsrpv +++|*         BEEN PROCESSED AND RUNNING PROGRAM SHOULD BE RESTARTED
00023  M01S00022.comsrpv +++|*         AS PRIOR TO INTERRUPT) AND INTERRUPT HANDLER MODE RESUME
00024  M01S00023.comsrpv +++|*         (RUNNING PROGRAM MUST BE RESTARTED, AS PART OF INTERRUPT
00025  M01S00024.comsrpv +++|*         PROCESSING, UNTIL A LOGICAL INTERRUPT POINT IS REACHED).
00026  M01S00025.comsrpv +++|*
00027  M01S00026.comsrpv +++|*
00028  M01S00027.comsrpv +++|*         EXTENDED RPV CALL FORMAT.
00029  M01S00028.comsrpv +++|*
00030  M01S00029.comsrpv +++|*T RA+1   24/RPVP,17/0,1/1,18/FWA

Figure RA+1

00031  M01S00030.comsrpv +++|*
00032  M01S00031.comsrpv +++|*         FWA    FWA OF PARAMETER BLOCK.
00033  M01S00032.comsrpv +++|*                BIT 18 SET INDICATES EXTENDED RPV MODE.
00034  M01S00033.comsrpv +++|*
00035  M01S00034.comsrpv +++|*         THE PARAMETER BLOCK HAS THE FOLLOWING FORMAT.
00036  M01S00035.comsrpv +++|*
00037  M01S00036.comsrpv +++|*T FWA    36/0,12/LEN,2/0,9/FUNC,1/C

Figure FWA

00038  M01S00037.comsrpv +++|*T,FWA+1  30/CHECKSUM LWA,30/TRANSFER ADDRESS

Figure FWA+1

00039  M01S00038.comsrpv +++|*T,FWA+2  60/CHECKSUM VALUE

Figure FWA+2

00040  M01S00039.comsrpv +++|*T,FWA+3  24/NEW MASK,24/ERROR CLASS,12/EC

Figure FWA+3

00041  M01S00040.comsrpv +++|*T,FWA+4  60/PENDING INTERRUPTS

Figure FWA+4

00042  M01S00041.comsrpv +++|*T,FWA+5  60/PENDING RA+1 REQUEST

Figure FWA+5

00043  M01S00042.comsrpv +++|*T,FWA+6  60/INTERRUPTED TERMINAL I/O

Figure FWA+6

00044  M01S00043.comsrpv +++|*T,FWA+7  48/SYSTEM DEPENDENT,12/OS EF

Figure FWA+7

00045  M01S00044.comsrpv +++|*T,FWA+10 42/RESERVED FOR CDC,18/IRES

Figure FWA+10

00046  M01S00045.comsrpv +++|*T,FWA+11 60/FIRST WORD OF EXCHANGE PACKAGE

Figure FWA+11

00047  M01S00046.comsrpv +++|*         (THE EXCHANGE PACKAGE WILL TAKE UP 20B WORDS MAKING
00048  M01S00047.comsrpv +++|*         THE LENGTH OF THE PARAMETER BLOCK 31B WORDS.)
00049  M01S00048.comsrpv +++|*T,FWA+30 60/LAST WORD OF EXCHANGE PACKAGE

Figure FWA+30

00050  M01S00049.comsrpv +++|*
00051  M01S00050.comsrpv +++|*         LEN - LENGTH OF PARAMETER BLOCK INCLUDING THE EXCHANGE
00052  M01S00051.comsrpv +++|*                PACKAGE AREA.
00053  M01S00052.comsrpv +++|*
00054  M01S00053.comsrpv +++|*         FUNC - FUNCTION CODE FOR EXTENDED RPV.
00055  M01S00054.comsrpv +++|*                1 = SETUP.  INITIALIZES PARAMETERS FOR *RPV*
00056  M01S00055.comsrpv +++|*                    INTERFACE.
00057  M01S00056.comsrpv +++|*                2 = RESUME (PROGRAM MODE).  RESTARTS RUNNING PROGRAM
00058  M01S00057.comsrpv +++|*                    AFTER INTERRUPT HAS BEEN PROCESSED.
00059  M01S00058.comsrpv +++|*                3 = RESET.  RESETS ERROR FROM INTERRUPT FOR SYSTEM
00060  M01S00059.comsrpv +++|*                    PROCESSING.
00061  M01S00060.comsrpv +++|*                4 = RESUME (INTERRUPT HANDLER MODE).  RESTARTS
00062  M01S00061.comsrpv +++|*                    PROGRAM AS PRIOR TO INTERRUPT, AS PART OF
00063  M01S00062.comsrpv +++|*                    INTERRUPT PROCESSING (UNTIL A LOGICAL INTERRUPT
00064  M01S00063.comsrpv +++|*                    POINT IS REACHED).  LEAVES INTERRUPT HANDLER
00065  M01S00064.comsrpv +++|*                    IN PROGRESS FLAG SET SO A REPRIEVE *RESET*
00066  M01S00065.comsrpv +++|*                    FUNCTION CAN BE ISSUED LATER.
00067  M01S00066.comsrpv +++|*
00068  M01S00067.comsrpv +++|*         C - COMPLETE BIT.
00069  M01S00068.comsrpv +++|*
00070  M01S00069.comsrpv +++|*         CHECKSUM LWA - SPECIFIED BY THE USER TO INDICATE THE END
00071  M01S00070.comsrpv +++|*                OF THE AREA TO BE CHECKSUMMED AND COMPARED/SET.
00072  M01S00071.comsrpv +++|*                IF ZERO, NO CHECKSUM IS DESIRED.  (CHECKSUM AREA
00073  M01S00072.comsrpv +++|*                BEGINS AT TRANSFER ADDRESS.)
00074  M01S00073.comsrpv +++|*
00075  M01S00074.comsrpv +++|*         TRANSFER ADDRESS - ADDRESS TO WHICH CONTROL IS TRANSFERRED
00076  M01S00075.comsrpv +++|*                WHEN AN INTERRUPT IS PROCESSED.
00077  M01S00076.comsrpv +++|*
00078  M01S00077.comsrpv +++|*         NEW MASK - MASK BITS TO BE SET UP BY CALL. THE VALUES OF
00079  M01S00078.comsrpv +++|*                THE MASK BITS ARE AS FOLLOWS.
00080  M01S00079.comsrpv +++|*                001         CPU ERROR EXITS.
00081  M01S00080.comsrpv +++|*                002         PPU CALL ERRORS.
00082  M01S00081.comsrpv +++|*                004         SYSTEM RESOURCE LIMITS.
00083  M01S00082.comsrpv +++|*                010         OPERATOR TERMINATION.
00084  M01S00083.comsrpv +++|*                020         PPU ABORT.
00085  M01S00084.comsrpv +++|*                040         CPU ABORT.
00086  M01S00085.comsrpv +++|*                100         NORMAL TERMINATION.
00087  M01S00086.comsrpv +++|*                200         TERMINAL INTERRUPT.
00088  M01S00087.comsrpv +++|*
00089  M01S00088.comsrpv +++|*         ERROR CLASS - SET TO THE VALUE OF THE MASK BIT WHICH
00090  M01S00089.comsrpv +++|*                INTERCEPTS THE INDICATED ERROR.
00091  M01S00090.comsrpv +++|*
00092  M01S00091.comsrpv +++|*         EC - COMMON ERROR CODE (COMMON BETWEEN NOS AND NOS/BE).
00093  M01S00092.comsrpv +++|*
00094  M01S00093.comsrpv +++|*         PENDING INTERRUPTS - USED TO QUEUE PENDING INTERRUPTS.
00095  M01S00094.comsrpv +++|*                THE NTH ERROR CODE WILL SET BIT 2**N.
00096  M01S00095.comsrpv +++|*
00097  M01S00096.comsrpv +++|*         PENDING RA+1 REQUEST - CONTENTS OF RA+1 AT THE TIME
00098  M01S00097.comsrpv +++|*                OF THE INTERRUPT.
00099  M01S00098.comsrpv +++|*
00100  M01S00099.comsrpv +++|*         INTERRUPTED TERMINAL I/O - IF AN INTERRUPT OCCURS WHILE A
00101  M01S00100.comsrpv +++|*                TERMINAL INPUT REQUEST IS PENDING, THE
00102  M01S00101.comsrpv +++|*                INTERRUPTED INPUT REQUEST WILL BE RECONSTRUCTED
00103  M01S00102.comsrpv +++|*                HERE IN THE FORM 42/*CIOP*,18/FET ADDRESS.
00104  M01S00103.comsrpv +++|*
00105  M01S00104.comsrpv +++|*         OS EF - VALUE OF THE OPERATING SYSTEM ERROR FLAG
00106  M01S00105.comsrpv +++|*                AT THE TIME OF THE INTERRUPT.
00107  M01S00106.comsrpv +++|*
00108  M01S00107.comsrpv +++|*         IRES - RESERVED FOR INSTALLATION.
00109  M01S00108.comsrpv +++|*
00110  M01S00109.comsrpv +++|*         EXCHANGE PACKAGE - A COPY OF THE EXCHANGE PACKAGE
00111  M01S00110.comsrpv +++|*                AT THE TIME OF THE INTERRUPT (COMPLETELY
00112  M01S00111.comsrpv +++|*                UNCHANGED FROM THE RUNNING PACKAGE AT THE
00113  M01S00112.comsrpv +++|*                TIME OF THE ERROR.)
00114  M01S00113.comsrpv +++|          SPACE  4,10
00115  M01S00114.comsrpv +++|**        EXTENDED REPRIEVE PARAMETER BLOCK TAGS.
00116  M01S00115.comsrpv +++|
00117  M01S00116.comsrpv +++| LNTH     EQU    0           LENGTH
00118  M01S00117.comsrpv +++| FUNC     EQU    0           FUNCTION
00119  M01S00118.comsrpv +++| CKLW     EQU    1           CHECKSUM LAST WORD ADDRESS
00120  M01S00119.comsrpv +++| TADD     EQU    1           TRANSFER ADDRESS
00121  M01S00120.comsrpv +++| CKSM     EQU    2           CHECKSUM
00122  M01S00121.comsrpv +++| NMSK     EQU    3           NEW MASK
00123  M01S00122.comsrpv +++| ERCL     EQU    3           ERROR CLASS
00124  M01S00123.comsrpv +++| ERCD     EQU    3           ERROR CODE
00125  M01S00124.comsrpv +++| PINT     EQU    4           PENDING INTERRUPTS
00126  M01S00125.comsrpv +++| PRAR     EQU    5           PENDING RA+1 REQUEST
00127  M01S00126.comsrpv +++| ITIO     EQU    6           INTERRUPTED TERMINAL I/O
00128  M01S00127.comsrpv +++| OSEF     EQU    7           OPERATING SYSTEM ERROR FLAG
00129  M01S00128.comsrpv +++| EXPA     EQU    11B         FIRST WORD OF EXCHANGE PACKAGE
00130  M01S00129.comsrpv +++|
00131  M01S00130.comsrpv +++| EXPL     EQU    20B         LENGTH OF EXCHANGE PACKAGE
00132  M01S00131.comsrpv +++| RPPL     EQU    11B         EXTENDED RPV BLOCK LENGTH (MINUS EXPL)
00133  M01S00132.comsrpv +++| REPL     EQU    RPPL+EXPL   EXTENDED RPV BLOCK LENGTH (INCLUDING EXPL)
00134  M01S00001.ns2368  +++|          ERRNZ  RPPL-2-7    CHANGE *RPVBLK* MACRO IN *COMCCMD*
00135  M01S00002.ns2368  +++|          ERRNZ  EXPL-20B    CHANGE *RPVBLK* MACRO IN *COMCCMD*
00136  M01S00133.comsrpv +++|          SPACE  4,10
00137  M01S00134.comsrpv +++|**        REPRIEVE MASKS.
00138  M01S00135.comsrpv +++|
00139  M01S00136.comsrpv +++|
00140  M01S00137.comsrpv +++| EEMS     EQU    001         CPU ERROR EXIT
00141  M01S00138.comsrpv +++| PCMS     EQU    002         PP CALL ERROR
00142  M01S00139.comsrpv +++| SRMS     EQU    004         SRU LIMIT
00143  M01S00140.comsrpv +++| OTMS     EQU    010B        OPERATOR TERMINATION
00144  M01S00141.comsrpv +++| PPMS     EQU    020B        PP ABORT
00145  M01S00142.comsrpv +++| CPMS     EQU    040B        CPU ABORT
00146  M01S00143.comsrpv +++| NTMS     EQU    100B        NORMAL TERMINATION
00147  M01S00144.comsrpv +++| TIMS     EQU    200B        TERMINAL INTERRUPT
00148  M01S00145.comsrpv +++| MXMS     EQU    377B        MAXIMUM MASK
00149  M01S00146.comsrpv +++|          SPACE  4,10
00150  M01S00147.comsrpv +++|**        COMMON ERROR CODES.
00151  M01S00148.comsrpv +++|
00152  M01S00149.comsrpv +++|
00153  M01S00150.comsrpv +++| NTEC     EQU    0           NORMAL TERMINATION
00154  M01S00151.comsrpv +++| TLEC     EQU    1           TIME LIMIT (TLET)
00155  M01S00152.comsrpv +++| EEEC     EQU    2           CPU ERROR EXIT (EEET, PEET, PSET)
00156  M01S00153.comsrpv +++| PPEC     EQU    3           PP ABORT (PPET, MLET, ITET)
00157  M01S00154.comsrpv +++| CPEC     EQU    4           CPU ABORT (CPET)
00158  M01S00155.comsrpv +++| PCEC     EQU    5           PP CALL ERROR (PCET)

Seq #  *Modification Id* Act 
----------------------------+
00159  M02S00156.ns2100  ---| ODEC     EQU    6           OPERATOR DROP (ODET)
00160  M01S00001.ns2100  +++| ODEC     EQU    6           OPERATOR DROP (IDET, ODET, STET)
00161  M01S00157.comsrpv +++| OKEC     EQU    7           OPERATOR KILL (SSET,OKET,ORET,SYET,FSET)
00162  M01S00158.comsrpv +++| RREC     EQU    10B         OPERATOR RERUN (RRET)
00163  M01S00159.comsrpv +++| ECEC     EQU    12B         ECS PARITY ERROR (ECET)
00164  M01S00001.ns2112  +++| RCEC     EQU    16B         JOB HUNG IN AUTORECALL (RCET)

Seq #  *Modification Id* Act 
----------------------------+
00165  M02S00160.ns2152  ---| MLEC     EQU    17B         MASS STORAGE LIMIT (FLET, TKET)

Seq #  *Modification Id* Act 
----------------------------+
00166  M02S00001.ns2395  ---| MLEC     EQU    17B         MS/SERVICE LIMIT (FLET, SLET, TKET)
00167  M01S00001.ns2395  +++| MLEC     EQU    17B         MS/SERVICE LIMIT (FLET, TKET)
00168  M01S00161.comsrpv +++| SREC     EQU    21B         I/O LIMITS (SRET)
00169  M01S00162.comsrpv +++| TIEC     EQU    40B         TERMINAL INTERRUPT (TIET, TAET)
00170  M01S00163.comsrpv +++|          SPACE  4,10
00171  M01S00164.comsrpv +++|**        ERROR CLASSES.
00172  M01S00165.comsrpv +++|
00173  M01S00166.comsrpv +++|
00174  M01S00167.comsrpv +++| NTCL     EQU    100B        NORMAL TERMINATION
00175  M01S00168.comsrpv +++| TLCL     EQU    004B        TIME LIMIT (TLET)
00176  M01S00169.comsrpv +++| EECL     EQU    001B        CPU ERROR EXIT (ARET, PEET, PSET)
00177  M01S00170.comsrpv +++| PPCL     EQU    20B         PP ABORT (PPET, MLET, ITET)
00178  M01S00171.comsrpv +++| CPCL     EQU    040B        CPU ABORT (CPET)

Seq #  *Modification Id* Act 
----------------------------+
00179  M02S00172.ns2112  ---| PCCL     EQU    002B        PP CALL ERROR (PCET)
00180  M01S00002.ns2112  +++| PCCL     EQU    002B        PP CALL ERROR (PCET, RCET)

Seq #  *Modification Id* Act 
----------------------------+
00181  M02S00173.ns2100  ---| ODCL     EQU    010B        OPERATOR DROP (ODET)
00182  M01S00002.ns2100  +++| ODCL     EQU    010B        OPERATOR DROP (IDET, ODET, STET)
00183  M01S00174.comsrpv +++| OKCL     EQU    010B        OPERATOR KILL (SSET,OKET,ORET,SYET,FSET)
00184  M01S00175.comsrpv +++| RRCL     EQU    010B        OPERATOR RERUN (RRET)
00185  M01S00176.comsrpv +++| ECCL     EQU    020B        ECS PARITY ERROR (ECET)

Seq #  *Modification Id* Act 
----------------------------+
00186  M02S00177.ns2152  ---| FLCL     EQU    004B        MASS STORAGE LIMIT (FLET, TKET)

Seq #  *Modification Id* Act 
----------------------------+
00187  M02S00002.ns2395  ---| FLCL     EQU    004B        MS/SERVICE LIMIT (FLET, SLET, TKET)
00188  M01S00002.ns2395  +++| FLCL     EQU    004B        MS/SERVICE LIMIT (FLET, TKET)
00189  M01S00178.comsrpv +++| SRCL     EQU    004B        I/O LIMITS (SRET)
00190  M01S00179.comsrpv +++| TICL     EQU    200B        TERMINAL INTERRUPT (TIET, TAET)
00191  M01S00180.comsrpv +++|
00192  M01S00181.comsrpv +++|
00193  M01S00182.comsrpv +++|
00194  M01S00183.comsrpv +++|
00195  M01S00184.comsrpv +++|          SPACE  4,10
00196  M01S00185.comsrpv +++|          BASE   *
00197  M01S00186.comsrpv +++|          QUAL   *
00198  M01S00187.comsrpv +++|          ENDX