Deck PPR Part 003

17 Modifications

Seq #  *Modification Id* Act 
----------------------------+
05080  M01S00021.ns2769  +++|

Seq #  *Modification Id* Act 
----------------------------+
05081  M02S00022.ns2777  ---| DEQ3.2   AOD    WB+1        SET MESSAGE LOST FLAG
05082  M02S00023.ns2777  ---|          UJN    DEQ5        CLEAR INTERLOCK AND EXIT

Seq #  *Modification Id* Act 
----------------------------+
05083  M01S00026.ns2777  +++|*         MAXIMUM RETRY COUNT EXCEEDED - SET *MESSAGES LOST* AND EXIT.

Seq #  *Modification Id* Act 
----------------------------+
05084  M01S00024.ns2769  +++|

Seq #  *Modification Id* Act 
----------------------------+
05085  M01S00027.ns2777  +++| DEQ3.3   AOD    WB+1        SET *MESSAGES LOST* FLAG
05086  M01S00028.ns2777  +++|          LJM    DEQ5        CLEAR INTERLOCK AND EXIT
05087  M01S00029.ns2777  +++|

Seq #  *Modification Id* Act 
----------------------------+
05088  M01S00025.ns2769  +++|*         SEE IF MESSAGE WILL FIT BETWEEN *IN* AND *LIMIT*.
05089  M01S00026.ns2769  +++|

Seq #  *Modification Id* Act 
----------------------------+
05090  M02S00027.ns2769b ---| DEQ3.3   ADD    CM+3        *OUT*
05091  M02S00028.ns2769b ---|          MJN    DEQ4        IF LOOSE FIT BETWEEN *IN* AND *LIMIT*
05092  M02S00029.ns2769b ---|          ZJN    DEQ4        IF EXACT FIT BETWEEN *IN* AND *LIMIT*

Seq #  *Modification Id* Act 
----------------------------+
05093  M02S00011.ns2777  ---| DEQ3.3   LDD    CM          MESSAGE LENGTH

Seq #  *Modification Id* Act 
----------------------------+
05094  M01S00030.ns2777  +++| DEQ3.4   LDD    CM          MESSAGE LENGTH

Seq #  *Modification Id* Act 
----------------------------+
05095  M01S00012.ns2769b +++|          ADD    WB+3        *IN*
05096  M01S00013.ns2769b +++|          SBD    CM+4        *LIMIT*

Seq #  *Modification Id* Act 
----------------------------+
05097  M02S00014.ns2777  ---|          MJN    DEQ4        IF MESSAGE FITS BETWEEN *IN* AND *LIMIT*

Seq #  *Modification Id* Act 
----------------------------+
05098  M01S00031.ns2777  +++| DEQ3.5   MJN    DEQ4        IF MESSAGE FITS BETWEEN *IN* AND *LIMIT*

Seq #  *Modification Id* Act 
----------------------------+
05099  M01S00015.ns2769b +++|          LDD    CM+3

Seq #  *Modification Id* Act 
----------------------------+
05100  M02S00016.ns2777  ---|          ZJN    DEQ3.1      IF *OUT* .EQ. *FIRST* - DO NOT RESET *IN*

Seq #  *Modification Id* Act 
----------------------------+
05101  M01S00032.ns2777  +++|          ZJN    DEQ3.2      IF *OUT* .EQ. *FIRST* - DO NOT RESET *IN*

Seq #  *Modification Id* Act 
----------------------------+
05102  M01S00030.ns2769  +++|          LDD    T6          SET TERMINATOR IN *EMB*
05103  M01S00031.ns2769  +++|          SHN    14
05104  M01S00032.ns2769  +++|          ADD    T7
05105  M01S00033.ns2769  +++|          ADN    2
05106  M01S00034.ns2769  +++|          ADD    WB+3
05107  M01S00035.ns2769  +++|          CWM    IMDA,ON
05108  M01S00036.ns2769  +++|          LDN    0           RESET *IN*
05109  M01S00037.ns2769  +++|          STD    WB+3

Seq #  *Modification Id* Act 
----------------------------+
05110  M02S00038.ns2769b ---|          UJP    DEQ3.1      RECHECK MESSAGE FIT

Seq #  *Modification Id* Act 
----------------------------+
05111  M02S00017.ns2777  ---|          UJP    DEQ3.0      RECHECK MESSAGE FIT

Seq #  *Modification Id* Act 
----------------------------+
05112  M01S00033.ns2777  +++|          LDD    T6          UPDATE HEADER
05113  M01S00034.ns2777  +++|          SHN    14
05114  M01S00035.ns2777  +++|          LMD    T7
05115  M01S00036.ns2777  +++|          CWD    WB
05116  M01S00037.ns2777  +++|          LJM    DEQ3.1      RECHECK MESSAGE FIT

Seq #  *Modification Id* Act 
----------------------------+
05117  M01S00039.ns2769  +++|
05118  M01S00040.ns2769  +++|*         MESSAGE WILL FIT - PUT IT IN THE *EMB*.
05119  M00S04216.ppr     +++|
05120  M00S04217.ppr     +++| DEQ4     LDD    T6          WRITE ERROR MESSAGE TO *EMB*
05121  M00S04218.ppr     +++|          SHN    14
05122  M00S04219.ppr     +++|          ADD    T7

Seq #  *Modification Id* Act 
----------------------------+
05123  M01S04220.ns2769  ---|          ADN    1           ADVANCE OVER INTERLOCK WORD

Seq #  *Modification Id* Act 
----------------------------+
05124  M01S00041.ns2769  +++|          ADN    2           ADVANCE OVER *EMB* HEADER
05125  M00S04221.ppr     +++|          ADD    WB+3

Seq #  *Modification Id* Act 
----------------------------+
05126  M01S04222.ns2769  ---|          CWM    MSGH,T3
05127  M01S04223.ns2769  ---|          LDD    T3          UPDATE LENGTH OF DATA IN *EMB*

Seq #  *Modification Id* Act 
----------------------------+
05128  M01S00042.ns2769  +++|          CWM    MSGH,CM
05129  M01S00043.ns2769  +++|          LDD    CM          UPDATE LENGTH OF DATA IN *EMB*
05130  M00S04224.ppr     +++|          RAD    WB+3

Seq #  *Modification Id* Act 
----------------------------+
05131  M01S04225.ns2769  ---|          LDD    WB+4
05132  M01S04226.ns2769  ---|          LPN    2
05133  M01S04227.ns2769  ---|          NJN    DEQ5        IF *1MD* ALREADY CALLED
05134  M01S04228.ns2769  ---|          LDN    10
05135  M01S04229.ns2769  ---|          STD    CM+1        FORCE ASSIGNMENT TO SYSTEM CP
05136  M01S04230.ns2769  ---|          LDD    MA
05137  M01S04231.ns2769  ---|          CWM    DEQA,ON     STORE MESSAGE BUFFER FOR *1MD* CALL
05138  M01S04232.ns2769  ---|          EXECUTE  1MD,=
05139  M01S04233.ns2769  ---|          MONITOR  RPPM      REQUEST PP FOR *1MD*
05140  M01S04234.ns2769  ---|          LDD    CM+1
05141  M01S04235.ns2769  ---|          ZJN    DEQ5        IF NO PP-S AVAILABLE
05142  M01S04236.ns2769  ---|          LDN    2
05143  M01S04237.ns2769  ---|          RAD    WB+4
05144  M01S04238.ns2769  ---| DEQ5     SOD    WB+4        CLEAR *EMB* INTERLOCK
05145  M01S04239.ns2769  ---|          LDD    T6

Seq #  *Modification Id* Act 
----------------------------+
05146  M02S00044.ns2777  ---|          SBD    CM+4        *LIMIT*
05147  M02S00045.ns2777  ---|          NJN    DEQ4.1      IF NOT AT *LIMIT*
05148  M02S00046.ns2777  ---|          STD    WB+3        RESET *IN*
05149  M02S00047.ns2777  ---| DEQ4.1   RJM    IMD         CALL *1MD*
05150  M02S00048.ns2777  ---| DEQ5     LDD    T6

Seq #  *Modification Id* Act 
----------------------------+
05151  M01S00038.ns2777  +++|          RJM    IMD         CALL *1MD*
05152  M01S00039.ns2777  +++| DEQ5     SOD    WB+4        CLEAR INTERLOCK AND UPDATE HEADER
05153  M01S00040.ns2777  +++|          LDD    T6
05154  M00S04240.ppr     +++|          SHN    14          UPDATE *EMB* INFORMATION
05155  M00S04241.ppr     +++|          LMD    T7
05156  M00S04242.ppr     +++|          CWD    WB
05157  M00S04243.ppr     +++|          LDD    MA          RESTORE CELLS (T3 - T7)
05158  M00S04244.ppr     +++|          ADN    4
05159  M00S04245.ppr     +++|          CRD    T3
05160  M00S04246.ppr     +++|          ADN    1           RESTORE CELLS (WB - WB+4)
05161  M00S04247.ppr     +++|          CRD    WB
05162  M00S04248.ppr     +++| DEQ6     MSERR  7ES         EXECUTE *7ES*

Seq #  *Modification Id* Act 
----------------------------+
05163  M01S04249.ns2769  ---|
05164  M01S04250.ns2769  ---|
05165  M01S04251.ns2769  ---| DEQA     VFD    18/0L1MD,42/1

Seq #  *Modification Id* Act 
----------------------------+
05166  M01S00049.ns2769  +++| IMD      SPACE  4,15
05167  M01S00050.ns2769  +++|**        IMD - INITIATE *1MD*.
05168  M01S00051.ns2769  +++|*
05169  M01S00052.ns2769  +++|*         ENTRY  (WB - WB+4) = *EMB* HEADER WORD.
05170  M01S00053.ns2769  +++|*
05171  M01S00054.ns2769  +++|*         EXIT   (A) .EQ. 0 IF UNABLE TO CALL *1MD*.
05172  M01S00055.ns2769  +++|*                    .NE. 0 IF *1MD* HAS BEEN CALLED.

Seq #  *Modification Id* Act 
----------------------------+
05173  M02S00056.ns2777  ---|*                *1MD* CALLED FLAG IS SET IN CELL *WB+4* IF *1MD* WAS
05174  M02S00057.ns2777  ---|*                CALLED.

Seq #  *Modification Id* Act 
----------------------------+
05175  M01S00041.ns2777  +++|*                *1MD CALLED* FLAG IS SET IN *WB+4* IF *1MD* CALLED.

Seq #  *Modification Id* Act 
----------------------------+
05176  M01S00058.ns2769  +++|*

Seq #  *Modification Id* Act 
----------------------------+
05177  M02S00059.ns2777  ---|*         USES   T3, WB+4, CM - CM+4.

Seq #  *Modification Id* Act 
----------------------------+
05178  M01S00042.ns2777  +++|*         USES   WB+4, CM - CM+4.

Seq #  *Modification Id* Act 
----------------------------+
05179  M01S00060.ns2769  +++|*
05180  M01S00061.ns2769  +++|*         CALLS  1MD.
05181  M01S00062.ns2769  +++|*
05182  M01S00063.ns2769  +++|*         MACROS EXECUTE, MONITOR.
05183  M01S00064.ns2769  +++|
05184  M01S00065.ns2769  +++|

Seq #  *Modification Id* Act 
----------------------------+
05185  M02S00066.ns2777  ---| IMD2     LDN    2           SET *1MD* CALLED FLAG
05186  M02S00067.ns2777  ---|          RAD    WB+4
05187  M02S00068.ns2777  ---|

Seq #  *Modification Id* Act 
----------------------------+
05188  M01S00069.ns2769  +++| IMD      SUBR               ENTRY/EXIT
05189  M01S00070.ns2769  +++|          LDD    WB+4
05190  M01S00071.ns2769  +++|          LPN    2
05191  M01S00072.ns2769  +++|          NJN    IMDX        IF *1MD* ALREADY CALLED

Seq #  *Modification Id* Act 
----------------------------+
05192  M02S00073.ns2777  ---|          STD    T3          CLEAR RETRY COUNT

Seq #  *Modification Id* Act 
----------------------------+
05193  M01S00074.ns2769  +++|          LDD    MA
05194  M01S00075.ns2769  +++|          CWM    IMDA,ON

Seq #  *Modification Id* Act 
----------------------------+
05195  M02S00076.ns2777  ---| IMD1     LDK    ZERL

Seq #  *Modification Id* Act 
----------------------------+
05196  M01S00043.ns2777  +++|          LDK    ZERL

Seq #  *Modification Id* Act 
----------------------------+
05197  M01S00077.ns2769  +++|          CRD    CM
05198  M01S00078.ns2769  +++|          LDN    10          FORCE SYSTEM CONTROL POINT
05199  M01S00079.ns2769  +++|          STD    CM+1
05200  M01S00080.ns2769  +++|          EXECUTE  1MD,=
05201  M01S00081.ns2769  +++|          MONITOR  RPPM
05202  M01S00082.ns2769  +++|          LDD    CM+1

Seq #  *Modification Id* Act 
----------------------------+
05203  M02S00083.ns2777  ---|          NJN    IMD2        IF PP ASSIGNED
05204  M02S00084.ns2777  ---|          AOD    T3          INCREMENT *RPPM* RETRY COUNT
05205  M02S00085.ns2777  ---|          LMN    10D
05206  M02S00086.ns2777  ---|          ZJN    IMDX        IF RETRY LIMIT
05207  M02S00087.ns2777  ---|          DELAY  10D*8D      DELAY FOR 10 MILLISECONDS
05208  M02S00088.ns2777  ---|          UJN    IMD1        RETRY *RPPM*

Seq #  *Modification Id* Act 
----------------------------+
05209  M01S00044.ns2777  +++|          ZJN    IMDX        IF *RPPM* UNSUCCESSFUL
05210  M01S00045.ns2777  +++|          LDN    2           SET *1MD CALLED* FLAG
05211  M01S00046.ns2777  +++|          RAD    WB+4
05212  M01S00047.ns2777  +++|          UJN    IMDX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
05213  M01S00089.ns2769  +++|
05214  M01S00090.ns2769  +++|
05215  M01S00091.ns2769  +++| IMDA     VFD    18/3L1MD,42/1  *1MD* CALL/BUFFER TERMINATOR
05216  M00S04252.ppr     +++|
05217  M00S04253.ppr     +++|          ERRNG  10000-*     *7EQ* HAS OVERFLOWED
05218  M00S04254.ppr     +++|          BSS    10000-*     (SPARES)
05219  M00S04255.ppr     +++|          CON    DEQ-1       ENTRY ADDRESS - 1
05220  M00S04256.ppr     +++|          CON    DEST        (T1) = DEST
05221  M00S04257.ppr     +++|          CON    MSGH+3      (T2) = MSGH+3
05222  M00S04258.ppr     +++|          ERRNZ  LN-*        INCORRECT *7EQ* OVERLAY LENGTH
05223  M00S04259.ppr     +++|          QUAL   *
05224  M00S04260.ppr     +++| 7ER      MSOVL  7662,T1,DEXA,(MASS STORAGE ERROR PROCESSOR.)
05225  M00S04261.ppr     +++| 7ER      SPACE  4,10
05226  M00S04262.ppr     +++|***       7ER - MASS STORAGE ERROR PROCESSOR.
05227  M00S04263.ppr     +++|*         K. F. REHM.        84/02/01.
05228  M00S04264.ppr     +++| 7ER      SPACE  4,10
05229  M00S04265.ppr     +++|***              *7ER* IS CALLED BY *7DP* FOR UNRECOVERED
05230  M00S04266.ppr     +++|*         AND RECOVERABLE ERRORS TO ISSUE A GENERIC ERROR MESSAGE TO
05231  M00S04267.ppr     +++|*         THE JOB AND SYSTEM DAYFILES.  *7ER* ALWAYS CALLS *7ES*.
05232  M00S04268.ppr     +++| 7ER      SPACE  4,25
05233  M00S04269.ppr     +++|**        DER - ISSUE ERRLOG AND DAYFILE MESSAGES.
05234  M00S04270.ppr     +++|*
05235  M00S04271.ppr     +++|*         ENTRY  (T1) = DEEC.
05236  M00S04272.ppr     +++|*                (T4 - T7) = DRIVER PARAMETERS.
05237  M00S04273.ppr     +++|*                (DEEC) = ERROR CODE.
05238  M00S04274.ppr     +++|*                (UERR) = ERROR PROCESSING OPTIONS.
05239  M00S04275.ppr     +++|*
05240  M00S04276.ppr     +++|*         EXIT   TO *7ES*.
05241  M00S04277.ppr     +++|*
05242  M00S04278.ppr     +++|*         USES   CM - CM+4.
05243  M00S04279.ppr     +++|*
05244  M00S04280.ppr     +++|*         CALLS  IDM.
05245  M00S04281.ppr     +++|*
05246  M00S04282.ppr     +++|*         MACROS MSERR.
05247  M00S04283.ppr     +++|
05248  M00S04284.ppr     +++|
05249  M00S04285.ppr     +++| DER      ENTRY              *7ER* ENTRY
05250  M00S04286.ppr     +++|
05251  M00S04287.ppr     +++|          LDI    T1          PUT ERROR TYPE INTO DAYFILE MESSAGE
05252  M00S04288.ppr     +++|          STD    CM+1
05253  M00S04289.ppr     +++|          LDM    DERB,CM+1
05254  M00S04290.ppr     +++|          STM    DERA+3
05255  M00S04291.ppr     +++|
05256  M00S04292.ppr     +++|*         THE EST ORDINAL MUST BE OBTAINED FROM THE BML MESSAGE SO THAT
05257  M00S04293.ppr     +++|*         SYSTEM DEVICE ERRORS ARE REPORTED CORRECTLY.  TO RECOVER FROM
05258  M00S04294.ppr     +++|*         AN ERROR DURING A *READSYS* OPERATION ON A SYSTEM DEVICE IT
05259  M00S04295.ppr     +++|*         MAY BE NECESSARY FOR *MTR* TO SELECT A DIFFERENT DEVICE FROM
05260  M00S04296.ppr     +++|*         THE ONE ON WHICH THE ERROR OCCURRED.
05261  M00S04297.ppr     +++|
05262  M00S04298.ppr     +++|          LDD    T5
05263  M00S04299.ppr     +++|          SCN    7
05264  M00S04300.ppr     +++|          STD    T0
05265  M00S04301.ppr     +++|          SHN    -3
05266  M00S04302.ppr     +++|          LMD    T0
05267  M00S04303.ppr     +++|          SCN    70
05268  M00S04304.ppr     +++|          RAM    DERA+1
05269  M00S04305.ppr     +++|          LDD    T5
05270  M00S04306.ppr     +++|          LPN    7
05271  M00S04307.ppr     +++|          SHN    6
05272  M00S04308.ppr     +++|          RAM    DERA+2
05273  M00S04309.ppr     +++|
05274  M00S04310.ppr     +++|*         ISSUE AN UNRECOVERED ERROR MESSAGE TO THE ERRLOG AND TO THE
05275  M00S04311.ppr     +++|*         SYSTEM AND JOB DAYFILES INDICATING THE TYPE OF ERROR AND THE
05276  M00S04312.ppr     +++|*         DEVICE ON WHICH THE ERROR OCCURRED.
05277  M00S04313.ppr     +++|
05278  M00S04314.ppr     +++|          RJM    IDM         ISSUE ERRLOG MESSAGE
05279  M00S04315.ppr     +++|          LCN    ERLN/10000
05280  M00S04316.ppr     +++|          RAM    IDMA
05281  M00S04317.ppr     +++|          RJM    IDM         ISSUE JOB AND SYSTEM DAYFILE MESSAGES
05282  M00S04318.ppr     +++|          MSERR  7ES         EXECUTE *7ES*
05283  M00S04319.ppr     +++| IDM      SPACE  4,10
05284  M00S04320.ppr     +++|**        IDM - ISSUE DAYFILE AND ERRLOG MESSAGES.
05285  M00S04321.ppr     +++|*
05286  M00S04322.ppr     +++|*         USES   CM - CM+4.
05287  M00S04323.ppr     +++|*
05288  M00S04324.ppr     +++|*         CALLS  DFM.
05289  M00S04325.ppr     +++|
05290  M00S04326.ppr     +++|
05291  M00S04327.ppr     +++| IDM      SUBR               ENTRY/EXIT
05292  M00S04328.ppr     +++|          LDM    UERR
05293  M00S04329.ppr     +++|          LPN    EPSM
05294  M00S04330.ppr     +++|          ERRNZ  EPSM-20     CODE ASSUMES VALUE
05295  M00S04331.ppr     +++|          SHN    21-4
05296  M00S04332.ppr     +++| IDMA     ADC    DERA+ERLN
05297  M00S04333.ppr     +++|*         ADC    DERA        (SYSTEM AND JOB DAYFILE MESSAGES)
05298  M00S04334.ppr     +++|          RJM    DFM
05299  M00S04335.ppr     +++|          UJN    IDMX        RETURN
05300  M00S04336.ppr     +++|
05301  M00S04337.ppr     +++|*         THE FOLLOWING CODE MAY BE OVERLAYED BY THE DAYFILE DUMP
05302  M00S04338.ppr     +++|*         BOOTSTRAP LOADER.  THE REST OF *7ER* MUST BE SAVED AND
05303  M00S04339.ppr     +++|*         RESTORED BY *1DD*.
05304  M00S04340.ppr     +++|
05305  M00S04341.ppr     +++|          ERRNG  10003-3*5-*  BOOTSTRAP LOADER OVERLAYS *7ER* CODE
05306  M00S04342.ppr     +++|
05307  M00S04343.ppr     +++| DERA     DATA   C*EQ000 XX MASS STORAGE ERROR.*
05308  M00S04344.ppr     +++|
05309  M00S04345.ppr     +++|          LIST   G
05310  M00S04346.ppr     +++| DERB     EQU    *-1
05311  M00S04347.ppr     +++|          ECHO   1,ERRCODE=("DREC")
05312  M00S04348.ppr     +++|          CON    EMN._ERRCODE      "TXT._ERRCODE" ERROR
05313  M00S04349.ppr     +++|          LIST   *
05314  M00S04350.ppr     +++|
05315  M00S04351.ppr     +++|          ERRNG  10000-*     *7ER* HAS OVERFLOWED
05316  M00S04352.ppr     +++|          BSS    10000-*     (SPARES)
05317  M00S04353.ppr     +++|          CON    DER-1       ENTRY ADDRESS - 1
05318  M00S04354.ppr     +++|          CON    DEEC        (T1) = DEEC
05319  M00S04355.ppr     +++|          ERRNZ  LN-*        INCORRECT *7ER* OVERLAY LENGTH
05320  M00S04356.ppr     +++|          QUAL   *
05321  M00S04357.ppr     +++| 7ES      MSOVL  7656,T2,DEXA,(MASS STORAGE ERROR PROCESSOR.)
05322  M00S04358.ppr     +++| 7ES      SPACE  4,10
05323  M00S04359.ppr     +++|***       7ES - MASS STORAGE ERROR PROCESSOR.
05324  M00S04360.ppr     +++|*         K. F. REHM.        84/02/01.
05325  M00S04361.ppr     +++| 7ES      SPACE  4,10
05326  M00S04362.ppr     +++|***              *7ES* IS CALLED BY *7EP*, *7EQ*, *7ER* AND *7DP* TO
05327  M00S04363.ppr     +++|*         INCREMENT THE RECOVERED OR UNRECOVERED ERROR COUNTIN THE MST
05328  M00S04364.ppr     +++|*         FOR THE CURRENT DEVICE.  *7ES* EXITS TO THE CALLER WITH
05329  M00S04365.ppr     +++|*         THE ACCUMULATOR SET TO INDICATE WHETHER OR NOT THE ERROR
05330  M00S04366.ppr     +++|*         WAS RECOVERED.
05331  M00S04367.ppr     +++| 7ES      SPACE  4,25
05332  M00S04368.ppr     +++|**        DES - INCREMENT ERROR COUNTS.
05333  M00S04369.ppr     +++|*
05334  M00S04370.ppr     +++|*         ENTRY  (T1) = DEST.
05335  M00S04371.ppr     +++|*                (T2) = 0.
05336  M00S04372.ppr     +++|*                (T4 - T7) = DRIVER PARAMETERS.
05337  M00S04373.ppr     +++|*                (DEDT) = ERROR PROCESSING CONTROL WORD.
05338  M00S04374.ppr     +++|*                (DEEC) = ERROR CODE.
05339  M00S04375.ppr     +++|*                (DENR) = 1 IF NON-RECOVERABLE ERROR.
05340  M00S04376.ppr     +++|*                (DERW) = 1 IF WRITE REQUEST, 0 IF READ REQUEST.
05341  M00S04377.ppr     +++|*                (DEST) = ERROR PROCESSING CONTROL WORD.
05342  M00S04378.ppr     +++|*                (DEWR) = IF DATA READ OR WRITTEN.
05343  M00S04379.ppr     +++|*                (ERXA) = EXIT ADDRESS.
05344  M00S04380.ppr     +++|*
05345  M00S04381.ppr     +++|*         EXIT   (A) = 0 IF RECOVERED.
05346  M00S04382.ppr     +++|*                    = 1/1, 5/0, 12/RDCT   IF NOT RECOVERED.
05347  M00S04383.ppr     +++|*                (RDCT) = 1/F, 1/N, 4/0, 6/E.
05348  M00S04384.ppr     +++|*                         F = 1 IF READ REQUEST AND THE LINKAGE BYTES
05349  M00S04385.ppr     +++|*                             ARE CORRECT.
05350  M00S04386.ppr     +++|*                           = 1 IF WRITE REQUEST AND DATA WAS WRITTEN
05351  M00S04387.ppr     +++|*                             BEFORE ERROR WAS DETECTED OR DURING ERROR
05352  M00S04388.ppr     +++|*                             RECOVERY ATTEMPT.
05353  M00S04389.ppr     +++|*                         N = 1 IF NON-RECOVERABLE ERROR.
05354  M00S04390.ppr     +++|*                         E = ERROR CODE.
05355  M00S04391.ppr     +++|*                (ERXA) = 0.
05356  M00S04392.ppr     +++|*
05357  M00S04393.ppr     +++|*         USES   CM - CM+4.
05358  M00S04394.ppr     +++|*
05359  M00S04395.ppr     +++|*         MACROS MONITOR.
05360  M00S04396.ppr     +++|
05361  M00S04397.ppr     +++|
05362  M00S04398.ppr     +++|*         AVOID INCREMENTING THE RECOVERED OR UNRECOVERED ERROR COUNT
05363  M00S04399.ppr     +++|*         IN THE MST IF ONE OF THE FOLLOWING CONDITIONS HOLDS -
05364  M00S04400.ppr     +++|*
05365  M00S04401.ppr     +++|*         1.  IMMEDIATE RETURN TO CALLER IS SELECTED.
05366  M00S04402.ppr     +++|*         2.  CELL *DEST* INDICATES THAT THE MST COUNTER SHOULD NOT BE
05367  M00S04403.ppr     +++|*             INCREMENTED FOR THIS ERROR TYPE.
05368  M00S04404.ppr     +++|*         3.  CELL *DEDT* INDICATED RETURN TO ERROR PROCESSOR.
05369  M00S04405.ppr     +++|
05370  M00S04406.ppr     +++| DES3     LDI    T1          CHECK *DEST*
05371  M00S04407.ppr     +++|          SHN    21-13
05372  M00S04408.ppr     +++|          PJN    DES5        IF COUNTER NOT TO BE UPDATED
05373  M00S04409.ppr     +++|          SHN    13-11
05374  M00S04410.ppr     +++|          MJN    DES5        IF IMMEDIATE RETURN TO CALLER SELECTED
05375  M00S04411.ppr     +++|          LPN    1
05376  M00S04412.ppr     +++|          ADN    3           SET BYTE NUMBER
05377  M00S04413.ppr     +++|          STD    CM+2
05378  M00S04414.ppr     +++|          LDD    T5          SET EST ORDINAL
05379  M00S04415.ppr     +++|          STD    CM+1
05380  M00S04416.ppr     +++|          LDK    ICTS        SET SUBFUNCTION
05381  M00S04417.ppr     +++|          STD    CM+3
05382  M00S04418.ppr     +++|          MONITOR  SMDM      INCREMENT ERROR COUNTER
05383  M00S04419.ppr     +++|
05384  M00S04420.ppr     +++|*         IF ERROR WAS RECOVERED, CLEAR *RDCT* AND RETURN TO THE CALLER
05385  M00S04421.ppr     +++|*         WITH ZERO IN THE ACCUMULATOR.  IF THE ERROR WAS UNRECOVERED
05386  M00S04422.ppr     +++|*         OR *RETURN TO CALLER* WAS SELECTED, SET UP CELL *RDCT* AND
05387  M00S04423.ppr     +++|*         RETURN TO THE CALLER WITH (A) = (RDCT) + 400000.
05388  M00S04424.ppr     +++|
05389  M00S04425.ppr     +++| DES5     LDM    UERR        CHECK ERROR PROCESSING OPTIONS
05390  M00S04426.ppr     +++|          LPN    EPNS
05391  M00S04427.ppr     +++|          NJN    DES6        IF *EPNS* ORIGINALLY REQUESTED
05392  M00S04428.ppr     +++|          LDM    CHRV
05393  M00S04429.ppr     +++|          SCN    EPNS        CLEAR ACCESS TO SUSPECT DEVICE
05394  M00S04430.ppr     +++|          STM    CHRV
05395  M00S04431.ppr     +++| DES6     LDI    T1
05396  M00S04432.ppr     +++|          LPC    3000
05397  M00S04433.ppr     +++|          ZJN    DES8        IF NOT UNRECOVERED / IMMEDIATE RETURN
05398  M00S04434.ppr     +++|          LDI    T1          SET UP *RDCT*
05399  M00S04435.ppr     +++|          LPC    400
05400  M00S04436.ppr     +++|          LMM    RDCT
05401  M00S04437.ppr     +++|          LPC    1400
05402  M00S04438.ppr     +++|          SHN    21-11
05403  M00S04439.ppr     +++|          LMM    DENR
05404  M00S04440.ppr     +++|          SHN    21-0
05405  M00S04441.ppr     +++|          LMM    DEWR
05406  M00S04442.ppr     +++|          LMN    1
05407  M00S04443.ppr     +++|          SHN    13-0
05408  M00S04444.ppr     +++|          LMC    1S17D
05409  M00S04445.ppr     +++|          LMM    DEEC
05410  M00S04446.ppr     +++| DES8     STM    RDCT
05411  M00S04447.ppr     +++| DES9     LJM    *           RETURN
05412  M00S04448.ppr     +++| DESA     EQU    *-1
05413  M00S04449.ppr     +++|
05414  M00S04450.ppr     +++| DES      ENTRY              *7ES* ENTRY
05415  M00S04451.ppr     +++|          LDM    ERXA
05416  M00S04452.ppr     +++|          NJN    DES1        IF EXIT ADDRESS PRESENT
05417  M00S04453.ppr     +++|          LDM    DERW
05418  M00S04454.ppr     +++|          SHN    1
05419  M00S04455.ppr     +++|          ADC    RDS
05420  M00S04456.ppr     +++|          ERRNZ  RDS+2-WDS   CODE DEPENDS ON VALUE
05421  M00S04457.ppr     +++|          STD    CM
05422  M00S04458.ppr     +++|          LDI    CM          SET RETURN FROM DRIVER
05423  M00S04459.ppr     +++| DES1     STM    DESA
05424  M00S04460.ppr     +++|          LDN    0
05425  M00S04461.ppr     +++|          STM    ERXA
05426  M00S04462.ppr     +++|          LDD    CP          CLEAR *MS2W* MESSAGE
05427  M00S04463.ppr     +++|          ADN    MS2W
05428  M00S04464.ppr     +++|          CWD    T2
05429  M00S04465.ppr     +++|          LDM    DEDT        CHECK IMMEDIATE RETURN
05430  M00S04466.ppr     +++|          LPN    20
05431  M00S04467.ppr     +++|          NJN    DES9        IF RETURN TO ERROR PROCESSOR
05432  M00S04468.ppr     +++|          LJM    DES3        EVALUATE *RDCT*
05433  M00S04469.ppr     +++|          SPACE  4,10
05434  M00S04470.ppr     +++|          ERRNG  10000-*     *7ES* HAS OVERFLOWED
05435  M00S04471.ppr     +++|          BSS    10000-*     (SPARES)
05436  M00S04472.ppr     +++|          CON    DES-1       (T0) = ENTRY ADDRESS - 1
05437  M00S04473.ppr     +++|          CON    DEST        (T1) = DEST
05438  M00S04474.ppr     +++|          CON    0           (T2) = 0
05439  M00S04475.ppr     +++|          ERRNZ  LN-*        INCORRECT *7ES* OVERLAY LENGTH
05440  M00S04476.ppr     +++|          QUAL   *
05441  M00S04477.ppr     +++|          TTL    PPR/"PBK0" - PP BREAKPOINT PACKAGE BOOTSTRAP.
05442  M00S04478.ppr     +++|          TITLE
05443  M00S04479.ppr     +++|          QUAL   "PBK0"
05444  M00S04480.ppr     +++|          IDENT  "PBK0",ZBK
05445  M00S04481.ppr     +++|*COMMENT  PPR - PP BREAKPOINT PACKAGE BOOTSTRAP.

Seq #  *Modification Id* Act 
----------------------------+
05446  M01S04482.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1987.

Seq #  *Modification Id* Act 
----------------------------+
05447  M01S00011.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
05448  M00S04483.ppr     +++|          SPACE  4,10
05449  M00S04484.ppr     +++|***       0BK - PP BREAKPOINT PACKAGE BOOTSTRAP.
05450  M00S04485.ppr     +++|*         S. L. MC BRIDE.    77/02/17.
05451  M00S04486.ppr     +++|          SPACE  4,10
05452  M00S04487.ppr     +++|***              *0BK* IS A BOOTSTRAP LOADER FOR *7BK*.  THIS VERY
05453  M00S04488.ppr     +++|*         SMALL PROGRAM LOADS IN PLACE OF THE BREAKPOINTED PROGRAM.
05454  M00S04489.ppr     +++|*         *0BK* LOADS *7BK* VIA *PLL* WITHOUT DESTROYING (LA).
05455  M00S04490.ppr     +++|*         *0BK* IS NOT A TRUE RELOCATION FREE OVERLAY, SINCE *CPUMTR*
05456  M00S04491.ppr     +++|*         ALWAYS CAUSES THE LOAD ADDRESS OF *0BK* TO BE THE SAME AS
05457  M00S04492.ppr     +++|*         THAT OF THE PROGRAM BEING BREAKPOINTED (WHICH MAY OR MAY
05458  M00S04493.ppr     +++|*         NOT BE ZERO).
05459  M00S04494.ppr     +++|          SPACE  4,10
05460  M00S04495.ppr     +++|          ORG    5
05461  M00S04496.ppr     +++| ZBK      UJN    ZBK1        ENTRY FROM *PLL*
05462  M00S04497.ppr     +++|          CON    0
05463  M00S04498.ppr     +++|
05464  M00S04499.ppr     +++| ZBK1     LDC    PLDP        FETCH PLD POINTER
05465  M00S04500.ppr     +++|          CRD    CM
05466  M00S04501.ppr     +++|          LDD    CM          FIND *7BK* LOAD INFORMATION
05467  M00S04502.ppr     +++|          SHN    14
05468  M00S04503.ppr     +++|          ADD    CM+1
05469  M00S04504.ppr     +++|          SBN    4
05470  M00S04505.ppr     +++|          CRD    CM
05471  M00S04506.ppr     +++|          LDD    CM+1        SET CM RESIDENT STATUS
05472  M00S04507.ppr     +++|          LPN    37
05473  M00S04508.ppr     +++|          LMD    HN
05474  M00S04509.ppr     +++|          STD    CM+1
05475  M00S04510.ppr     +++|          LDD    CM+4        *7BK* LOAD ADDRESS
05476  M00S04511.ppr     +++|          LJM    PLL4        LOAD *7BK*
05477  M00S04512.ppr     +++|          QUAL   *
05478  M00S04513.ppr     +++|          TTL    PPR/"PBK7" - PP BREAKPOINT PACKAGE.
05479  M00S04514.ppr     +++|          TITLE
05480  M00S04515.ppr     +++|          QUAL   "PBK7"
05481  M00S04516.ppr     +++|          IDENT  "PBK7",O"PBK7"
05482  M00S04517.ppr     +++|*COMMENT  PPR - PP BREAKPOINT PACKAGE.

Seq #  *Modification Id* Act 
----------------------------+
05483  M01S04518.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1987.

Seq #  *Modification Id* Act 
----------------------------+
05484  M01S00012.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
05485  M00S04519.ppr     +++|          SPACE  4,10
05486  M00S04520.ppr     +++|***       7BK - PP BREAKPOINT PACKAGE.
05487  M00S04521.ppr     +++|*
05488  M00S04522.ppr     +++|*         BOB BEDOLL.        74/07/22.
05489  M00S04523.ppr     +++|*         S. L. MC BRIDE.    77/01/14.
05490  M00S04524.ppr     +++|          SPACE  4,10
05491  M00S04525.ppr     +++|***              *7BK* IS A BREAKPOINT OVERLAY USED FOR PP PROGRAM
05492  M00S04526.ppr     +++|*         DEBUGGING.  IT RESIDES IN THE MASS-STORAGE ERROR PROCESSOR
05493  M00S04527.ppr     +++|*         AREA, AND COMMUNICATES WITH THE OPERATOR THROUGH THE LAST
05494  M00S04528.ppr     +++|*         TWO WORDS OF THE PP MESSAGE BUFFER.
05495  M00S04529.ppr     +++|*
05496  M00S04530.ppr     +++|*         WHEN A USER ENTERS THE *DSD* COMMAND -
05497  M00S04531.ppr     +++|*
05498  M00S04532.ppr     +++|*                BKP,XXX.
05499  M00S04533.ppr     +++|*
05500  M00S04534.ppr     +++|*         *DSD* ISSUES A *SJCM* MONITOR FUNCTION TO SET A BREAKPOINT.
05501  M00S04535.ppr     +++|*         WHEN PP RESIDENT LOADS XXX, IT WILL FIRST LOAD *0BK*
05502  M00S04536.ppr     +++|*         DISGUISED AS XXX.  *0BK* LOADS *7BK*.  *7BK* SETS THE *PLL*
05503  M00S04537.ppr     +++|*         RETURN, READS UP THE CORRECT PP LOAD ADDRESS FROM PLD-1 AND
05504  M00S04538.ppr     +++|*         REENTERS *PLL* TO LOAD THE PROGRAM.  ONCE *PLL* HAS LOADED
05505  M00S04539.ppr     +++|*         XXX, IT WILL RETURN CONTROL TO *7BK*.  THIS BOOTSTRAP
05506  M00S04540.ppr     +++|*         PROCESS LOADS BOTH XXX AND *7BK*, LEAVING *7BK* IN CONTROL
05507  M00S04541.ppr     +++|*         BEFORE EXECUTION OF XXX BEGINS.
05508  M00S04542.ppr     +++|*
05509  M00S04543.ppr     +++|*         *BKP* COMMUNICATES WITH *DSD* VIA WORDS 6 AND 7 OF THE PP
05510  M00S04544.ppr     +++|*         COMMUNICATIONS AREA (WORDS 4 AND 5 OF PP-S MESSAGE BUFFER).
05511  M00S04545.ppr     +++|*
05512  M00S04546.ppr     +++|*         AFTER A BREAKPOINT, *7BK* SETS UP MB+5.
05513  M00S04547.ppr     +++|*
05514  M00S04548.ppr     +++|*T, MB+5  12/ 7777,  12/ 7777,  24/ (A),  12/ (P).

Figure MB+5

05515  M00S04549.ppr     +++|*
05516  M00S04550.ppr     +++|*         THE 7777 FLAG IN BYTES 0-1 IS THE INDICATION THAT THE PP
05517  M00S04551.ppr     +++|*         IS AT BREAKPOINT.  THIS WORD REMAINS SET AS INDICATED AS
05518  M00S04552.ppr     +++|*         LONG AS THE PP REMAINS AT BREAKPOINT.  THE 7777-S SERVE
05519  M00S04553.ppr     +++|*         AS THE INTERLOCK BETWEEN *DSD* AND THE PP.  CLEARING OF
05520  M00S04554.ppr     +++|*         BYTE 0 CAUSES THE BREAKPOINT PACKAGE TO READ A COMMAND
05521  M00S04555.ppr     +++|*         FROM MB+5.
05522  M00S04556.ppr     +++|*
05523  M00S04557.ppr     +++|*
05524  M00S04558.ppr     +++|*
05525  M00S04559.ppr     +++|*         A *V* DISPLAY AND THE FOLLOWING SET OF *DSD* COMMANDS
05526  M00S04560.ppr     +++|*         PROVIDE THE USER ACCESS TO THE BREAKPOINT PACKAGE.
05527  M00S04561.ppr     +++|*
05528  M00S04562.ppr     +++|*
05529  M00S04563.ppr     +++|*         PPNN.G.                      RELEASE PP FROM BREAKPOINT.
05530  M00S04564.ppr     +++|*
05531  M00S04565.ppr     +++|*T, MB+5  60/ 0

Figure MB+5

05532  M00S04566.ppr     +++|*
05533  M00S04567.ppr     +++|*
05534  M00S04568.ppr     +++|*         PPN.C,ADDR.                  DISPLAY PP MEMORY.
05535  M00S04569.ppr     +++|*
05536  M00S04570.ppr     +++|*T, MB+5  12/ 0,  24/,  12/ PBCF,  12/ ADDR

Figure MB+5

05537  M00S04571.ppr     +++|*
05538  M00S04572.ppr     +++|*         RETURNS -
05539  M00S04573.ppr     +++|*T, MB+4  60/ ADDR - ADDR+4

Figure MB+4

05540  M00S04574.ppr     +++|*
05541  M00S04575.ppr     +++|*
05542  M00S04576.ppr     +++|*         PPN.C,ADDR,DATA.             CHANGE PP MEMORY.
05543  M00S04577.ppr     +++|*
05544  M00S04578.ppr     +++|*T, MB+5  12/ 0,  12/,  12/ DATA,  12/ PBSF,  12/ ADDR

Figure MB+5

05545  M00S04579.ppr     +++|*
05546  M00S04580.ppr     +++|*
05547  M00S04581.ppr     +++|*         PPN.G,ADDR.                  SET BREAKPOINT.
05548  M00S04582.ppr     +++|*
05549  M00S04583.ppr     +++|*T, MB+5  12/ 0,  24/,  12/ PBGF,  12/ ADDR

Figure MB+5

05550  M00S04584.ppr     +++|*
05551  M00S04585.ppr     +++|*
05552  M00S04586.ppr     +++|*         PPN.A,VALUE.                 SET *A* REGISTER.
05553  M00S04587.ppr     +++|*
05554  M00S04588.ppr     +++|*T, MB+5  12/ 0,  12/,  12/ BITS 17-12,  12/ PBAF,  12/ BITS 11-0

Figure MB+5

05555  M00S04589.ppr     +++|*
05556  M00S04590.ppr     +++|*
05557  M00S04591.ppr     +++|*         PPN.P,ADDR.                  SET *P* REGISTER.
05558  M00S04592.ppr     +++|*
05559  M00S04593.ppr     +++|*T, MB+5  12/ 0,  24/,  12/ PBPF,  12/ ADDR

Figure MB+5

05560  M00S04594.ppr     +++|*
05561  M00S04595.ppr     +++|*
05562  M00S04596.ppr     +++|*
05563  M00S04597.ppr     +++|*         THE FOLLOWING FUNCTIONS ARE ALSO SUPPORTED BY *DSD*.
05564  M00S04598.ppr     +++|*
05565  M00S04599.ppr     +++|*         PPN.EXR.                     TRAP ON OVERLAY LOAD.
05566  M00S04600.ppr     +++|*
05567  M00S04601.ppr     +++|*         PPN.FTN.                     TRAP ON *FTN* CALL.
05568  M00S04602.ppr     +++|*
05569  M00S04603.ppr     +++|*         PPN.S.                       STEP ONE INSTRUCTION.
05570  M00S04604.ppr     +++|*
05571  M00S04605.ppr     +++|*         PPN.SX.                      STEP ONE INSTRUCTION.
05572  M00S04606.ppr     +++|*                                      (DON-T FOLLOW RJM-S)
05573  M00S04607.ppr     +++|          SPACE  4,10
05574  M00S04608.ppr     +++|***       CAUTIONS.
05575  M00S04609.ppr     +++|*
05576  M00S04610.ppr     +++|*         SETTING A BREAKPOINT REPLACES TWO WORDS OF PP MEMORY WITH
05577  M00S04611.ppr     +++|*                RJM   BKP
05578  M00S04612.ppr     +++|*         WHEN THE BREAKPOINT IS TAKEN, THESE TWO WORDS ARE RESTORED.
05579  M00S04613.ppr     +++|*         THE BREAKPOINT MUST BE SET IN EXECUTABLE CODE.
05580  M00S04614.ppr     +++|*         THE BREAKPOINT MUST BE SET ON A PP INSTRUCTION BOUNDARY.
05581  M00S04615.ppr     +++|*
05582  M00S04616.ppr     +++|*         *7BK* DEPENDS ON PP LOCATIONS 7515-7777.  IF THESE ARE
05583  M00S04617.ppr     +++|*         ALTERED BY THE RUNNING PP, *7BK* WILL PROBABLY FAIL IN
05584  M00S04618.ppr     +++|*         A MOST UNGRACEFUL FASHION.
05585  M00S04619.ppr     +++|*
05586  M00S04620.ppr     +++|*         A MASS-STORAGE ERROR WILL CAUSE THE DRIVER ERROR PROCESSOR
05587  M00S04621.ppr     +++|*         TO OVERLAY *7BK*.
05588  M00S04622.ppr     +++|*
05589  M00S04623.ppr     +++|*         *7BK* MUST BE CM RESIDENT.
05590  M00S04624.ppr     +++|          TITLE  MAIN ROUTINE.
05591  M00S04625.ppr     +++|          ORG    7515
05592  M00S04626.ppr     +++| O"PBK7"  BSS    0
05593  M00S04627.ppr     +++| Q1       SET    10001-*
05594  M00S04628.ppr     +++|          ERRNZ  Q1/5*5-Q1   OVERLAY LOAD DESTROYS DIRECT CELLS
05595  M00S04629.ppr     +++| BKP      SPACE  4,10
05596  M00S04630.ppr     +++|**        BKP - MAIN ROUTINE.
05597  M00S04631.ppr     +++|
05598  M00S04632.ppr     +++|
05599  M00S04633.ppr     +++|*         PBSF - SET PP MEMORY.
05600  M00S04634.ppr     +++|
05601  M00S04635.ppr     +++| BKP6     ZJN    BKP9        IF CHANGING LOCATION ZERO
05602  M00S04636.ppr     +++|          LDM    BKCW+2
05603  M00S04637.ppr     +++|          STI    T0          STORE MEMORY VALUE
05604  M00S04638.ppr     +++|          LDD    T0
05605  M00S04639.ppr     +++|
05606  M00S04640.ppr     +++|*         PBCF - COPY 5 BYTES TO MB+4.
05607  M00S04641.ppr     +++|
05608  M00S04642.ppr     +++| BKP8     ZJN    BKP10       IF DISPLAYING LOCATION ZERO
05609  M00S04643.ppr     +++|          STM    BKPE
05610  M00S04644.ppr     +++|          LDD    MA          CM ADDRESS
05611  M00S04645.ppr     +++|          ADN    4
05612  M00S04646.ppr     +++|          CWM    **,ON       COPY TO MESSAGE BUFFER
05613  M00S04647.ppr     +++| BKPE     EQU    *-1
05614  M00S04648.ppr     +++|          UJN    BKP11       LOOP
05615  M00S04649.ppr     +++|
05616  M00S04650.ppr     +++| BKP9     LDM    BKCW+2      CHANGE (T0)
05617  M00S04651.ppr     +++|          STM    BKPF
05618  M00S04652.ppr     +++| BKP10    LDM    BKPF        RESTORE (T0)
05619  M00S04653.ppr     +++|          STD    T0
05620  M00S04654.ppr     +++|          LDD    MA          COPY DIRECT CELLS TO CM
05621  M00S04655.ppr     +++|          ADN    4
05622  M00S04656.ppr     +++|          CWD    T0
05623  M00S04657.ppr     +++| BKP11    LJM    BKP3        LOOP
05624  M00S04658.ppr     +++|
05625  M00S04659.ppr     +++|*         PBAF - SET *A* REGISTER.
05626  M00S04660.ppr     +++|
05627  M00S04661.ppr     +++| BKP12    STM    BKPG+1      RESET (A)
05628  M00S04662.ppr     +++|          LDM    BKCW+2
05629  M00S04663.ppr     +++|          LPN    77          BITS 12 - 17
05630  M00S04664.ppr     +++|          LMC    LDCI
05631  M00S04665.ppr     +++|          STM    BKPG
05632  M00S04666.ppr     +++|          UJN    BKP11       LOOP
05633  M00S04667.ppr     +++|
05634  M00S04668.ppr     +++|*         PBPF - SET *P* REGISTER.
05635  M00S04669.ppr     +++|
05636  M00S04670.ppr     +++| BKP13    STM    BKP
05637  M00S04671.ppr     +++|          UJN    BKP11       LOOP
05638  M00S04672.ppr     +++|
05639  M00S04673.ppr     +++|*         PBGF - SET PP BREAKPOINT AND GO.
05640  M00S04674.ppr     +++|
05641  M00S04675.ppr     +++| BKP14    LDI    T0          SAVE INSTRUCTION WORD
05642  M00S04676.ppr     +++|          STM    BKPB
05643  M00S04677.ppr     +++|          LDC    RJMI        INSERT RETURN JUMP
05644  M00S04678.ppr     +++|          STI    T0
05645  M00S04679.ppr     +++|          AOD    T0
05646  M00S04680.ppr     +++|          LDI    T0          SAVE INSTRUCTION WORD
05647  M00S04681.ppr     +++|          STM    BKPC
05648  M00S04682.ppr     +++|          LDC    BKP         INSERT *RJM* ADDRESS
05649  M00S04683.ppr     +++|          STI    T0
05650  M00S04684.ppr     +++|
05651  M00S04685.ppr     +++|*         PBRF - RESUME EXECUTION WITH NO BREAKPOINT.
05652  M00S04686.ppr     +++|
05653  M00S04687.ppr     +++| BKP15    LDD    MA          RESTORE MB+4 AND MB+5
05654  M00S04688.ppr     +++|          ADN    4
05655  M00S04689.ppr     +++|          CWM    BKM4,ON
05656  M00S04690.ppr     +++|          CWM    BKM5,ON
05657  M00S04691.ppr     +++|          LDC    **          RESTORE (T0)
05658  M00S04692.ppr     +++| BKPF     EQU    *-1
05659  M00S04693.ppr     +++|          STD    T0
05660  M00S04694.ppr     +++| BKPG     LDC    **          RELOAD (A)
05661  M00S04695.ppr     +++|
05662  M00S04696.ppr     +++| BKP      SUBR               ENTRY/EXIT
05663  M00S04697.ppr     +++|          STM    BKPG+1
05664  M00S04698.ppr     +++|          SHN    -14         SAVE (A)
05665  M00S04699.ppr     +++|          LMC    LDCI
05666  M00S04700.ppr     +++|          STM    BKPG
05667  M00S04701.ppr     +++|          LDD    T0          SAVE (T0)
05668  M00S04702.ppr     +++|          STM    BKPF
05669  M00S04703.ppr     +++|          LCN    2
05670  M00S04704.ppr     +++|          RAM    BKP         RETURN ADDRESS - 2
05671  M00S04705.ppr     +++|          STD    T0
05672  M00S04706.ppr     +++|          LDC    **          RESTORE WORDS SAVED
05673  M00S04707.ppr     +++| BKPB     EQU    *-1
05674  M00S04708.ppr     +++|          STI    T0
05675  M00S04709.ppr     +++|          AOD    T0
05676  M00S04710.ppr     +++|          LDC    **
05677  M00S04711.ppr     +++| BKPC     EQU    *-1
05678  M00S04712.ppr     +++|          STI    T0
05679  M00S04713.ppr     +++| BKP2     LDD    MA          SAVE MB+4
05680  M00S04714.ppr     +++|          ADN    4
05681  M00S04715.ppr     +++|          CRM    BKM4,ON
05682  M00S04716.ppr     +++|          CRM    BKM5,ON     SAVE MB+5
05683  M00S04717.ppr     +++|
05684  M00S04718.ppr     +++|*         DISPLAY BREAK INFORMATION IN READABLE FORMAT.
05685  M00S04719.ppr     +++|
05686  M00S04720.ppr     +++| BKP3     LDM    BKP         (P)
05687  M00S04721.ppr     +++|          STM    BKDW+4
05688  M00S04722.ppr     +++|          LDM    BKPG+1      (A)
05689  M00S04723.ppr     +++|          STM    BKDW+3
05690  M00S04724.ppr     +++|          LDM    BKPG
05691  M00S04725.ppr     +++|          LPN    77
05692  M00S04726.ppr     +++|          STM    BKDW+2
05693  M00S04727.ppr     +++|          LDD    MA          WRITE INFORMATION TO MB+5
05694  M00S04728.ppr     +++|          ADN    5
05695  M00S04729.ppr     +++|          CWM    BKDW,ON
05696  M00S04730.ppr     +++|
05697  M00S04731.ppr     +++|*         WAIT FOR OPERATOR INTERACTION.
05698  M00S04732.ppr     +++|
05699  M00S04733.ppr     +++| BKP4     LDD    MA          READ COMMUNICATIONS WORD
05700  M00S04734.ppr     +++|          ADN    5
05701  M00S04735.ppr     +++|          CRM    BKCW,ON
05702  M00S04736.ppr     +++|          LDM    BKCW        CHECK FOR COMMAND FROM *DSD*
05703  M00S04737.ppr     +++|          LMC    7777
05704  M00S04738.ppr     +++|          ZJN    BKP4        IF NONE
05705  M00S04739.ppr     +++|          LDM    BKCW+3
05706  M00S04740.ppr     +++|          SBN    PBFM
05707  M00S04741.ppr     +++| BKP5     PJN    BKP3        IF COMMAND OUTSIDE TABLE
05708  M00S04742.ppr     +++|          ADC    PBFM+TCMD
05709  M00S04743.ppr     +++|          STD    T0
05710  M00S04744.ppr     +++|          LDI    T0          ADDRESS OF PROCESSOR
05711  M00S04745.ppr     +++|          STM    BKPD
05712  M00S04746.ppr     +++|          ZJN    BKP5        IF NO PROCESSOR
05713  M00S04747.ppr     +++|          LDM    BKCW+4
05714  M00S04748.ppr     +++|
05715  M00S04749.ppr     +++|*         EXIT TO PROCESSOR WITH (A) = (T0) = BYTE 4 OF COMMAND WORD.
05716  M00S04750.ppr     +++|
05717  M00S04751.ppr     +++|          STD    T0
05718  M00S04752.ppr     +++|          LJM    **          JUMP TO PROCESSOR
05719  M00S04753.ppr     +++| BKPD     EQU    *-1
05720  M00S04754.ppr     +++|          SPACE  4,10
05721  M00S04755.ppr     +++|**        TABLE OF COMMAND PROCESSORS.
05722  M00S04756.ppr     +++|
05723  M00S04757.ppr     +++|
05724  M00S04758.ppr     +++| TCMD     INDEX
05725  M00S04759.ppr     +++|          INDEX  PBRF,BKP15  GO
05726  M00S04760.ppr     +++|          INDEX  PBCF,BKP8   DISPLAY PP MEMORY
05727  M00S04761.ppr     +++|          INDEX  PBGF,BKP14  SET BREAKPOINT AND GO
05728  M00S04762.ppr     +++|          INDEX  PBSF,BKP6   CHANGE PP MEMORY
05729  M00S04763.ppr     +++|          INDEX  PBAF,BKP12  CHANGE (A)
05730  M00S04764.ppr     +++|          INDEX  PBPF,BKP13  CHANGE (P)
05731  M00S04765.ppr     +++|          INDEX  PBFM
05732  M00S04766.ppr     +++|          SPACE  4,10
05733  M00S04767.ppr     +++|**        COMMUNICATION WORDS.
05734  M00S04768.ppr     +++|
05735  M00S04769.ppr     +++|
05736  M00S04770.ppr     +++| OPBK     BSS    0
05737  M00S04771.ppr     +++| BKCW     BSS    5           COMMAND WORD
05738  M00S04772.ppr     +++| BKDW     CON    7777        DISPLAY WORD
05739  M00S04773.ppr     +++|          CON    7777
05740  M00S04774.ppr     +++|          BSS    2           (A)
05741  M00S04775.ppr     +++|          BSS    1           (P)
05742  M00S04776.ppr     +++| BKM4     BSS    5           MB+4 SAVE AREA
05743  M00S04777.ppr     +++| BKM5     BSS    5           MB+5 SAVE AREA
05744  M00S04778.ppr     +++|
05745  M00S04779.ppr     +++|
05746  M00S04780.ppr     +++|          ERRNG  10000-3*5-*  BOOTSTRAP OVERLAYS BREAKPOINT CODE
05747  M00S04781.ppr     +++| PBK      SPACE  4,10
05748  M00S04782.ppr     +++|**        PBK - PRESET BREAKPOINT.
05749  M00S04783.ppr     +++|*
05750  M00S04784.ppr     +++|*         USES   CM - CM+4.
05751  M00S04785.ppr     +++|
05752  M00S04786.ppr     +++|
05753  M00S04787.ppr     +++|          ORG    OPBK
05754  M00S04788.ppr     +++|
05755  M00S04789.ppr     +++| PBK      LDC    PLDP        FETCH PLD POINTER
05756  M00S04790.ppr     +++|          CRD    CM
05757  M00S04791.ppr     +++|          LDD    CM          FWA OF PLD
05758  M00S04792.ppr     +++|          SHN    14
05759  M00S04793.ppr     +++|          ADD    CM+1
05760  M00S04794.ppr     +++|          SBN    1           CHECK BREAKPOINT CRITERIA
05761  M00S04795.ppr     +++|          CRD    CM
05762  M00S04796.ppr     +++|          LDD    CM
05763  M00S04797.ppr     +++|          ZJN    PBK1        IF NO CP SPECIFIED
05764  M00S04798.ppr     +++|          LMD    CP
05765  M00S04799.ppr     +++|          NJN    PBK2        IF NOT CORRECT CP
05766  M00S04800.ppr     +++| PBK1     LDM    PLL         SAVE *PLL* CALL ADDRESS
05767  M00S04801.ppr     +++|          STM    BKP
05768  M00S04802.ppr     +++|          LDC    PBK3        CHANGE *PLL* TO REENTER *7BK*
05769  M00S04803.ppr     +++|          STM    PLLD
05770  M00S04804.ppr     +++| PBK2     LDN    0           CLEAR CPA ADDRESS (IF ANY)
05771  M00S04805.ppr     +++|          STD    CM
05772  M00S04806.ppr     +++|          LCN    0           SET UP COMMUNICATIONS CONTROL WITH *DSD*
05773  M00S04807.ppr     +++|          STM    BKDW
05774  M00S04808.ppr     +++|          STM    BKDW+1
05775  M00S04809.ppr     +++|          LDD    OA          SET PARAMETERS IN OR
05776  M00S04810.ppr     +++|          CWD    CM
05777  M00S04811.ppr     +++|          LJM    PLL2        LOAD PROGRAM
05778  M00S04812.ppr     +++|
05779  M00S04813.ppr     +++|*         REENTER HERE WITH *RJM*  FROM *PLL* AFTER LOADING PROGRAM.
05780  M00S04814.ppr     +++|
05781  M00S04815.ppr     +++| PBK3     BSS    1
05782  M00S04816.ppr     +++|          LDC    FTN         RESTORE *PAUSE* MACRO IN *PLL*
05783  M00S04817.ppr     +++|          STM    PLLD
05784  M00S04818.ppr     +++|          LJM    BKP2        ENTER MAIN LOOP
05785  M00S04819.ppr     +++|
05786  M00S04820.ppr     +++|
05787  M00S04821.ppr     +++|
05788  M00S04822.ppr     +++|          ERRNZ  PBK4-BKM4   CHANGE DEFINITION IN *COMSMSC*
05789  M00S04823.ppr     +++|          ERRNZ  PBK5-BKM5   CHANGE DEFINITION IN *COMSMSC*
05790  M00S04824.ppr     +++|          ERRNZ  PBKE-EXR-7  CHANGE DEFINITION IN *COMSMSC*
05791  M00S04825.ppr     +++|          ERRNZ  PBKF-FTN-1  CHANGE DEFINITION IN *COMSMSC*
05792  M00S04826.ppr     +++|
05793  M00S04827.ppr     +++|
05794  M00S04828.ppr     +++|          ERRNG  10000-*     CHECK FOR PP OVERFLOW
05795  M00S04829.ppr     +++|          BSS    10000-*
05796  M00S04830.ppr     +++|          CON    PBK-1       ENTRY TO *7BK*
05797  M00S04831.ppr     +++|          QUAL   *
05798  M00S04832.ppr     +++|
05799  M00S04833.ppr     +++|          TTL    PPR - PP RESIDENT.
05800  M00S04834.ppr     +++|          END