User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:ppr.002

Deck PPR Part 002

17 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
03533  M00S03029.ppr     +++|          ADD    CN+3
03534  M00S03030.ppr     +++|          LMC    LDCI
03535  M00S03031.ppr     +++|          STM    XJ2
03536  M00S03032.ppr     +++|          SETMS  NODRIVER    FORCE DRIVER RELOAD ON NEXT *SETMS*
03537  M00S03033.ppr     +++|          LJM    PRSX        RETURN
03538  M00S03034.ppr     +++|          TTL    PPR - PP RESIDENT.
03539  M00S03035.ppr     +++| 7SE      MSOVL  7656,T2,EPFW-1,(PROCESS SYSTEM DEVICE ERROR.)
03540  M00S03036.ppr     +++|          SPACE  4
03541  M00S03037.ppr     +++|***       7SE - PROCESS SYSTEM DEVICE ERRORS.
03542  M00S03038.ppr     +++|*         W. E. GOEBEL.      76/01/01.
03543  M00S03039.ppr     +++|          SPACE  4
03544  M00S03040.ppr     +++|***              7SE IS CALLED BY PPR TO PROCESS ERRORS ENCOUNTERED
03545  M00S03041.ppr     +++|*         WHILE LOADING PROGRAMS FROM A SYSTEM DEVICE.  IF THE LOAD
03546  M00S03042.ppr     +++|*         WAS FROM AN ALTERNATE SYSTEM DEVICE THE DIRECTORY ENTRY FOR
03547  M00S03043.ppr     +++|*         THAT PROGRAM WILL BE CHANGED SO ALL FURTHER LOADS WILL GO
03548  M00S03044.ppr     +++|*         TO THE SYSTEM DEVICE. IF THE ERROR WAS NOT ON AN ALTERNATE
03549  M00S03045.ppr     +++|*         SYSTEM DEVICE *7SE* RETURNS TO *PPR - PLL* TO RETRY THE LOAD.
03550  M00S03046.ppr     +++|*         THE REPLACEMENT ENTRIES FOR ALTERNATE SYSTEM PLD ENTRIES ARE
03551  M00S03047.ppr     +++|*         FOUND BY SEARCHING BACKWARDS FROM THE START OF THE PLD.
03552  M00S03048.ppr     +++|*         WHEN A REPLACEMENT ENTRY IS FOUND IT IS COPIED ON TOP OF
03553  M00S03049.ppr     +++|*         THE PLD ENTRY THUS FORCING ALL FURTHER LOADS OF THAT PROGRAM
03554  M00S03050.ppr     +++|*         TO THE SYSTEM DEVICE.
03555  M00S03051.ppr     +++|*                7SE IS A ROUTINE LOADED IN THE DISK ERROR PROCESSING
03556  M00S03052.ppr     +++|*         AREA.
03557  M00S03053.ppr     +++|*                7SE IS REQUIRED TO BE CM RESIDENT.
03558  M00S03054.ppr     +++|          SPACE  4
03559  M00S03055.ppr     +++|***       ENTRY.
03560  M00S03056.ppr     +++|*
03561  M00S03057.ppr     +++|*
03562  M00S03058.ppr     +++|*         (PLLA - PLLA+1) = PROGRAM BEING LOADED AT THE TIME OF THE
03563  M00S03059.ppr     +++|*         ERROR, IF CALLED FROM *PLL*.
03564  M00S03060.ppr     +++|*         ((T8) - (T8)+1) = PROGRAM BEING LOADED AT THE TIME OF THE
03565  M00S03061.ppr     +++|*         ERROR, IF *7SE* CALLED DIRECTLY FROM *EXR*.
03566  M00S03062.ppr     +++|*         IF *7SE* NOT CALLED DIRECTLY FROM *EXR* -
03567  M00S03063.ppr     +++|*         (T3) = BUFFER ADDRESS OF SECTOR BEING LOADED WHEN THE
03568  M00S03064.ppr     +++|*                ERROR OCCURED.
03569  M00S03065.ppr     +++|*         (T8) = WORD TO BE RESTORED TO FIRST LINKAGE BYTE.
03570  M00S03066.ppr     +++|*         (T9) = WORD TO BE RESTORED TO SECOND LINKAGE BYTE.
03571  M00S03067.ppr     +++| 7SE      TITLE  MAIN PROGRAM.
03572  M00S03068.ppr     +++| DSE      ENTRY              *7SE* ENTRY
03573  M00S03069.ppr     +++|
03574  M00S03070.ppr     +++| SDE      LDI    T1          CHECK FOR DIRECT CALL TO *0SE*
03575  M00S03071.ppr     +++|          LMN    1R7
03576  M00S03072.ppr     +++|          NJN    SDE1        IF NOT DIRECT CALL
03577  M00S03073.ppr     +++|          LDM    EXR         SET EXIT ADDRESS
03578  M00S03074.ppr     +++|          STM    SDEB
03579  M00S03075.ppr     +++|          LDD    T8          SET PROGRAM NAME POINTER
03580  M00S03076.ppr     +++|          STD    T1
03581  M00S03077.ppr     +++|          ADN    1
03582  M00S03078.ppr     +++|          STD    T2
03583  M00S03079.ppr     +++|          UJN    SDE2        CHECK LIBRARY
03584  M00S03080.ppr     +++|
03585  M00S03081.ppr     +++| SDE1     LDD    T8          RESTORE TWO BYTES
03586  M00S03082.ppr     +++|          STI    T3
03587  M00S03083.ppr     +++|          LDD    T9
03588  M00S03084.ppr     +++|          STM    1,T3
03589  M00S03085.ppr     +++|
03590  M00S03086.ppr     +++|*         CHECK LIBRARY FOR ALTERNATE SYSTEM RESIDENCE
03591  M00S03087.ppr     +++|
03592  M00S03088.ppr     +++| SDE2     LDI    T1          SET PROGRAM NAME IN REQUEST
03593  M00S03089.ppr     +++|          STD    CM+2
03594  M00S03090.ppr     +++|          LDI    T2
03595  M00S03091.ppr     +++|          STD    CM+3
03596  M00S03092.ppr     +++|          MONITOR SPLM       SEARCH PERIPHERAL LIBRARY
03597  M00S03093.ppr     +++|          LDD    CM+1
03598  M00S03094.ppr     +++|          SCN    77
03599  M00S03095.ppr     +++|          NJN    SDE4        IF CM RESIDENT OR NOT FOUND
03600  M00S03096.ppr     +++|          SFA    EST,CM+1    READ EQUIPMENT EST
03601  M00S03097.ppr     +++|          ADK    EQDE
03602  M00S03098.ppr     +++|          CRD    T4
03603  M00S03099.ppr     +++|          LDD    T4
03604  M00S03100.ppr     +++|          SHN    21-12
03605  M00S03101.ppr     +++|          PJN    SDE5        IF NOT SYSTEM DEVICE
03606  M00S03102.ppr     +++| SDE4     LJM    PLL2        PROCEED WITH PROGRAM LOAD
03607  M00S03103.ppr     +++| SDEB     EQU    *-1         (EXIT ADDRESS)
03608  M00S03104.ppr     +++|
03609  M00S03105.ppr     +++|*         SEARCH DIRECTORY FOR ENTRY.
03610  M00S03106.ppr     +++|
03611  M00S03107.ppr     +++| SDE5     LDC    PLDP        FETCH PLD POINTER
03612  M00S03108.ppr     +++|          CRD    T4
03613  M00S03109.ppr     +++|          CRD    T6
03614  M00S03110.ppr     +++|          LDD    T4          READ DIRECTORY ENTRY
03615  M00S03111.ppr     +++| SDE6     SHN    14
03616  M00S03112.ppr     +++|          LMD    T5
03617  M00S03113.ppr     +++|          ZJN    SDE5        IF LIBRARY LOCKED
03618  M00S03114.ppr     +++|          RJM    CFP         CHECK FOR PROGRAM
03619  M00S03115.ppr     +++|          ZJN    SDE7        IF PROGRAM FOUND
03620  M00S03116.ppr     +++|          AOD    T5          INCREMENT DIRECTORY ADDRESS
03621  M00S03117.ppr     +++|          SHN    -14
03622  M00S03118.ppr     +++|          RAD    T4
03623  M00S03119.ppr     +++|          UJN    SDE6        LOOP FOR NEXT ENTRY
03624  M00S03120.ppr     +++|
03625  M00S03121.ppr     +++|*         SEARCH ALTERNATE SYSTEM REPLACEMENT ENTRIES.
03626  M00S03122.ppr     +++|
03627  M00S03123.ppr     +++| SDE7     SOD    T6+1        SET NEXT ENTRY
03628  M00S03124.ppr     +++|          PJN    SDE8        IF NO BORROW
03629  M00S03125.ppr     +++|          SOD    T6
03630  M00S03126.ppr     +++|          AOD    T6+1
03631  M00S03127.ppr     +++| SDE8     LDD    T6          READ REPLACEMENT ENTRY
03632  M00S03128.ppr     +++|          SHN    14
03633  M00S03129.ppr     +++|          LMD    T6+1
03634  M00S03130.ppr     +++|          RJM    CFP         CHECK FOR PROGRAM
03635  M00S03131.ppr     +++|          NJN    SDE7        IF PROGRAM NOT FOUND
03636  M00S03132.ppr     +++|          LDD    T4          WRITE REPLACEMENT ENTRY TO *PLD*
03637  M00S03133.ppr     +++|          SHN    14
03638  M00S03134.ppr     +++|          LMD    T5
03639  M00S03135.ppr     +++|          CWD    CM
03640  M00S03136.ppr     +++|          LJM    SDE2        RETURN PROCESSING
03641  M00S03137.ppr     +++| CFP      SPACE  4
03642  M00S03138.ppr     +++|**        CFP - CHECK FOR PROGRAM.
03643  M00S03139.ppr     +++|*
03644  M00S03140.ppr     +++|*         ENTRY  (A) = ADDRESS OF PLD ENTRY TO CHECK.
03645  M00S03141.ppr     +++|*                ((T1)) = FIRST CHARACTER OF PROGRAM NAME.
03646  M00S03142.ppr     +++|*                ((T2)) = LAST TWO CHARACTERS OF PROGRAM NAME.
03647  M00S03143.ppr     +++|*
03648  M00S03144.ppr     +++|*         EXIT   (A) = 0 IF ENTRY MATCHES.
03649  M00S03145.ppr     +++|*                (CM - CM+4) = PLD ENTRY.
03650  M00S03146.ppr     +++|
03651  M00S03147.ppr     +++|
03652  M00S03148.ppr     +++| CFP      SUBR               ENTRY/EXIT
03653  M00S03149.ppr     +++|          CRD    CM
03654  M00S03150.ppr     +++|          LDD    CM+1        CHECK FOR CORRECT PROGRAM FOR REPLACEMENT
03655  M00S03151.ppr     +++|          SCN    77
03656  M00S03152.ppr     +++|          LMI    T1
03657  M00S03153.ppr     +++|          SHN    6
03658  M00S03154.ppr     +++|          LMD    CM
03659  M00S03155.ppr     +++|          SHN    6
03660  M00S03156.ppr     +++|          LMI    T2
03661  M00S03157.ppr     +++|          UJN    CFPX        RETURN
03662  M00S03158.ppr     +++|          SPACE  4
03663  M00S03159.ppr     +++|          ERRNG  10000-*     *7SE* HAS OVERFLOWED
03664  M00S03160.ppr     +++|          BSS    10000-*     SPARES
03665  M00S03161.ppr     +++|          CON    DSE-1       (T0) = ENTRY ADDRESS - 1
03666  M00S03162.ppr     +++|          CON    PLLA        ((T1)) = FIRST CHARACTER OF PROGRAM NAME
03667  M00S03163.ppr     +++|          CON    PLLB        ((T2)) = LAST TWO CHARACTERS OF NAME
03668  M00S03164.ppr     +++|          ERRNZ  LN-*        INCORRECT PROGRAM LENGTH
03669  M00S03165.ppr     +++|          QUAL   *
Line S03166 Modification History
M01 (Removed by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
03670  M01S03166.261l700 ---| 7EL      MSOVL  7530,T1,DEXA,(ERROR MESSAGE GENERATOR.)
Line S00001 Modification History
M01 (Added by) 261l700
M02 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
03671  M02S00001.272l774 ---| 7EL      MSOVL  7547,T1,DEXA,(ERROR MESSAGE GENERATOR.)
Line S00001 Modification History
M01 (Added by) 272l774
M02 (Removed by) ns2741
Seq #  *Modification Id* Act 
----------------------------+
03672  M02S00001.ns2741  ---| 7EL      MSOVL  7511,T1,DEXA,(ERROR MESSAGE GENERATOR.)
Line S03167 Modification History
M01 (Removed by) ns2741
Seq #  *Modification Id* Act 
----------------------------+
03673  M01S03167.ns2741  ---| 7EL      SPACE  4,10
03674  M01S03168.ns2741  ---|***       7EL - ERROR MESSAGE GENERATOR.
03675  M01S03169.ns2741  ---|*         K. F. REHM.        84/02/01.
03676  M01S03170.ns2741  ---| 7EL      SPACE  4,10
03677  M01S03171.ns2741  ---|***              *7EL* IS CALLED BY THE ERROR PROCESSOR IN THE RESIDENT
Line S00001 Modification History
M01 (Added by) ns2741
Seq #  *Modification Id* Act 
----------------------------+
03678  M01S00001.ns2741  +++| 7EK      MSOVL  7662,T1,DDMD+4,(ERROR MESSAGE GENERATOR.)
03679  M01S00002.ns2741  +++| 7EK      SPACE  4,10
03680  M01S00003.ns2741  +++|***       7EK - ERROR MESSAGE GENERATOR.
03681  M01S00004.ns2741  +++|*         P. C. SMITH.       91/12/05.
03682  M01S00005.ns2741  +++| 7EK      SPACE  4,10
03683  M01S00006.ns2741  +++|***              *7EK* IS CALLED BY THE ERROR PROCESSOR IN THE RESIDENT
03684  M00S03172.ppr     +++|*         DRIVER TO GENERATE APPROPRIATE BML, ERRLOG AND DAYFILE
03685  M00S03173.ppr     +++|*         MESSAGES AND TO DETERMINE THE CORRECT ADDRESS AT WHICH TO
Line S03174 Modification History
M01 (Removed by) ns2741
Seq #  *Modification Id* Act 
----------------------------+
03686  M01S03174.ns2741  ---|*         RESUME PROCESSING.  *7EL* BEGINS THE PROCESS BY INITIALIZING
Line S00007 Modification History
M01 (Added by) ns2741
Seq #  *Modification Id* Act 
----------------------------+
03687  M01S00007.ns2741  +++|*         RESUME PROCESSING.  *7EK* BEGINS THE PROCESS BY INITIALIZING
03688  M00S03175.ppr     +++|*         THE AREA WHERE THE BML MESSAGE HEADER IS TO BE BUILT AND BY
03689  M00S03176.ppr     +++|*         FILLING IN MANY OF THE FIELDS WHICH ARE COMMON TO ALL DRIVER
Line S03177 Modification History
M01 (Removed by) ns2741
Seq #  *Modification Id* Act 
----------------------------+
03690  M01S03177.ns2741  ---|*         BML MESSAGES.  *7EL* THEN CALLS *7EM* TO CONTINUE BUILDING
Line S00008 Modification History
M01 (Added by) ns2741
Seq #  *Modification Id* Act 
----------------------------+
03691  M01S00008.ns2741  +++|*         BML MESSAGES.  *7EK* THEN CALLS *7EL* TO CONTINUE BUILDING
03692  M00S03178.ppr     +++|*         THE BML MESSAGE.
03693  M00S03179.ppr     +++|          SPACE  4,10
03694  M00S03180.ppr     +++|****      DIRECT LOCATION ASSIGNMENTS.
03695  M00S03181.ppr     +++|
03696  M00S03182.ppr     +++|
03697  M00S03183.ppr     +++|          QUAL
03698  M00S03184.ppr     +++| WB       EQU    LA - LA+4   CM WORD BUFFER
03699  M00S03185.ppr     +++|          ERRNZ  CM+5-WB     DIRECT CELLS MUST BE CONTIGUOUS
03700  M00S03186.ppr     +++|          QUAL   *
03701  M00S03187.ppr     +++|****
Line S03188 Modification History
M01 (Removed by) ns2741
Seq #  *Modification Id* Act 
----------------------------+
03702  M01S03188.ns2741  ---| 7EL      SPACE  4,35
Line S00009 Modification History
M01 (Added by) ns2741
Seq #  *Modification Id* Act 
----------------------------+
03703  M01S00009.ns2741  +++| 7EK      SPACE  4,35
03704  M01S00010.ns2741  +++|**        EKG - ERROR MESSAGE GENERATOR.
03705  M01S00011.ns2741  +++|*
03706  M01S00012.ns2741  +++|*         ENTRY  (T2) = READ BUFFER ADDRESS.
03707  M01S00013.ns2741  +++|*                (T4 - T7) = DRIVER PARAMETERS.
03708  M01S00014.ns2741  +++|*                (DEDT) = ERROR PROCESSING CONTROL WORD.
03709  M01S00015.ns2741  +++|*                (DEEC) = ERROR CODE.
03710  M01S00016.ns2741  +++|*                (MSFW) = INITIAL CHANNEL IF *6DI* OR *6DP*.
03711  M01S00017.ns2741  +++|*                (MB+1) = PHYSICAL DISK ADDRESS FROM *LDAM*.
03712  M01S00018.ns2741  +++|*                (MB+2 - MB+5) = DRIVER DEPENDENT PART OF BML MESSAGE
03713  M01S00019.ns2741  +++|*                                (FOR FORMAT, SEE INDIVIDUAL DRIVERS).
03714  M01S00020.ns2741  +++|*
03715  M01S00021.ns2741  +++|*         EXIT   TO *7EL*.
03716  M01S00022.ns2741  +++|*                (T2) = UNCHANGED.
03717  M01S00023.ns2741  +++|*                (T4 - T7) = UNCHANGED.
03718  M01S00024.ns2741  +++|*                (MSGH - MSGH+4) = PARTIAL *EMB* MESSAGE HEADER.
03719  M01S00025.ns2741  +++|*                (HEDR - HEDR+11) = PARTIAL BML MESSAGE HEADER.
03720  M01S00026.ns2741  +++|*                (DDMD - DDMD+4) = DEVICE DEPENDENT MESSAGE DATA.
03721  M01S00027.ns2741  +++|*                (MB) = ORIGINAL (T3 - T7).
03722  M01S00028.ns2741  +++|*                (MB+1) = ORIGINAL (WB - WB+4).
03723  M01S00029.ns2741  +++|*                (MB+2 - MB+5) = UNCHANGED.
03724  M01S00030.ns2741  +++|*
03725  M01S00031.ns2741  +++|*         USES   CM - CM+4, WB - WB+4, T1, T3.
03726  M01S00032.ns2741  +++|*
03727  M01S00033.ns2741  +++|*         MACROS MONITOR, MSERR.
03728  M01S00034.ns2741  +++|
03729  M01S00035.ns2741  +++|
03730  M01S00036.ns2741  +++| EKG      ENTRY              *7EK* ENTRY
03731  M01S00037.ns2741  +++|          LDM    DEEC
03732  M01S00038.ns2741  +++|          STM    DDMD
03733  M01S00039.ns2741  +++|          LMK    ADDE
03734  M01S00040.ns2741  +++|          NJN    EKG1        IF NOT AN ADDRESS ERROR
03735  M01S00041.ns2741  +++|
03736  M01S00042.ns2741  +++|*         THE *CHGM* MONITOR FUNCTION IS ISSUED FOR ADDRESS ERRORS
03737  M01S00043.ns2741  +++|*         SINCE THESE ARE OFTEN CAUSED BY OPERATING SYSTEM PROBLEMS
03738  M01S00044.ns2741  +++|*         RATHER THAN HARDWARE FAILURE.
03739  M01S00045.ns2741  +++|
03740  M01S00046.ns2741  +++|          STD    CM+2
03741  M01S00047.ns2741  +++|          LDC    *
03742  M01S00048.ns2741  +++|          STD    CM+1
03743  M01S00049.ns2741  +++|          MONITOR  CHGM
03744  M01S00050.ns2741  +++|
03745  M01S00051.ns2741  +++|*         SAVE CELLS (T3 - T7) AND (WB - WB+4) IN THE MESSAGE BUFFER
03746  M01S00052.ns2741  +++|*         TO PROVIDE SCRATCH SPACE IN THE OVERLAY FOR READING IN
03747  M01S00053.ns2741  +++|*         DATA.  INITIALIZE THE BML MESSAGE HEADER TO ZEROS.
03748  M01S00054.ns2741  +++|*         ADD EST ORDINAL, MACHINE ID, LINK CODE AND PHYSICAL UNIT
03749  M01S00055.ns2741  +++|*         NUMBER TO THE MESSAGE HEADER.
03750  M01S00056.ns2741  +++|
03751  M01S00057.ns2741  +++| EKG1     LDD    MA
03752  M01S00058.ns2741  +++|          CWD    T3          SAVE CELLS (T3 - T7)
03753  M01S00059.ns2741  +++|          ADN    1
03754  M01S00060.ns2741  +++|          CRD    CM          GET PHYSICAL DISK ADDRESS
03755  M01S00061.ns2741  +++|          CWD    WB          SAVE CELLS (WB - WB+4)
03756  M01S00062.ns2741  +++|          LDK    ZERL
03757  M01S00063.ns2741  +++|          CRM    MSGH,ON     CLEAR *EMB* MESSAGE HEADER
03758  M01S00064.ns2741  +++|          SBN    1
03759  M01S00065.ns2741  +++|          CRM    HEDR,ON     CLEAR BML MESSAGE HEADER
03760  M01S00066.ns2741  +++|          SBN    1
03761  M01S00067.ns2741  +++|          CRM    HEDR+5,ON
03762  M01S00068.ns2741  +++|          SBN    1           CLEAR POTENTIALLY UNUSED FIELDS
03763  M01S00069.ns2741  +++|          CRM    DDMD+1,ON
03764  M01S00070.ns2741  +++|          LDN    MLDY
03765  M01S00071.ns2741  +++|          STM    MSGH+4      SET DESTINATION DAYFILE
03766  M01S00072.ns2741  +++|          LDM    DEDT
03767  M01S00073.ns2741  +++|          LPN    17
03768  M01S00074.ns2741  +++|          SBK    /COMSDFS/D6DI
03769  M01S00075.ns2741  +++|          ERRNZ  /COMSDFS/D6DJ-/COMSDFS/D6DI  CODE ASSUMES VALUES
03770  M01S00076.ns2741  +++|          NJN    EKG2        IF NOT *6DI*
03771  M01S00077.ns2741  +++|          LDD    CM+1
03772  M01S00078.ns2741  +++|          LPN    77
03773  M01S00079.ns2741  +++|          STM    HEDR+3      ADD PHYSICAL UNIT NUMBER TO MESSAGE
03774  M01S00080.ns2741  +++|          LDD    CM+2
03775  M01S00081.ns2741  +++|          STM    DDMD+1      INSERT CYLINDER NUMBER
03776  M01S00082.ns2741  +++|          LDD    CM+3
03777  M01S00083.ns2741  +++|          SHN    6
03778  M01S00084.ns2741  +++|          LMD    CM+4        MERGE TRACK AND SECTOR
03779  M01S00085.ns2741  +++|          STM    DDMD+2
03780  M01S00086.ns2741  +++|          LDM    DELF        SET LAST FUNCTION
03781  M01S00087.ns2741  +++|          STM    DDMD+3
03782  M01S00088.ns2741  +++|          LDM    DEGS        INSERT GENERAL STATUS
03783  M01S00089.ns2741  +++|          STM    DDMD+4
03784  M01S00090.ns2741  +++| EKG2     LDK    PPCP        ADD LINK CODE (PP NUMBER) TO MESSAGE
03785  M01S00091.ns2741  +++|          CRD    CM
03786  M01S00092.ns2741  +++|          ADK    MMFL-PPCP
03787  M01S00093.ns2741  +++|          CRD    WB
03788  M01S00094.ns2741  +++|          LDD    WB          ADD MACHINE ID TO MESSAGE
03789  M01S00095.ns2741  +++|          STM    HEDR+10
03790  M01S00096.ns2741  +++|          LDD    IA
03791  M01S00097.ns2741  +++|          SBD    CM+4
03792  M01S00098.ns2741  +++|          SHN    3
03793  M01S00099.ns2741  +++|          RAM    HEDR+2
03794  M01S00100.ns2741  +++|          MSERR  7EL         EXECUTE *7EL*
03795  M01S00101.ns2741  +++|          SPACE  4,10
03796  M01S00102.ns2741  +++|          ERRNG  10000-*     *7EK* HAS OVERFLOWED
03797  M01S00103.ns2741  +++|          BSS    10000-*     (SPARES)
03798  M01S00104.ns2741  +++|          CON    EKG-1       (T0) = ENTRY ADDRESS - 1
03799  M01S00105.ns2741  +++|          CON    0           (T1) = 0
03800  M01S00106.ns2741  +++|*                            (T2) = READ BUFFER ADDRESS
03801  M01S00107.ns2741  +++|          ERRNZ  LN-*        INCORRECT *7EK* OVERLAY LENGTH
03802  M01S00108.ns2741  +++|          QUAL   *
Line S00109 Modification History
M01 (Added by) ns2741
M02 (Removed by) ns2768
Seq #  *Modification Id* Act 
----------------------------+
03803  M02S00109.ns2768  ---| 7EL      MSOVL  7612,T1,DDMD+4,(ERROR MESSAGE GENERATOR.)
Line S00001 Modification History
M01 (Added by) ns2768
M02 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
03804  M02S00001.284l847 ---| 7EL      MSOVL  7605,T1,DDMD+4,(ERROR MESSAGE GENERATOR.)
Line S00001 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
03805  M01S00001.284l847 +++| 7EL      MSOVL  7554,T1,DDMD+4,(ERROR MESSAGE GENERATOR.)
Line S00110 Modification History
M01 (Added by) ns2741
Seq #  *Modification Id* Act 
----------------------------+
03806  M01S00110.ns2741  +++|          SPACE  4,10
03807  M01S00111.ns2741  +++|***       7EL - ERROR MESSAGE GENERATOR.
03808  M01S00112.ns2741  +++|*         K. F. REHM.        84/02/01.
03809  M01S00113.ns2741  +++|          SPACE  4,10
03810  M01S00114.ns2741  +++|***              *7EL* IS CALLED BY *7EK* TO CONTINUE BUILDING THE
03811  M01S00115.ns2741  +++|*         BML MESSAGE HEADER.  *7EL* DETERMINES THE BML MESSAGE ID
03812  M01S00116.ns2741  +++|*         FOR THE DEVICE IN QUESTION.  *7EL* THEN CALLS *7EM* TO
03813  M01S00117.ns2741  +++|*         CONTINUE THE MESSAGE BUILDING PROCESS.
03814  M01S00118.ns2741  +++|          SPACE  4,10
03815  M00S03189.ppr     +++|**        ELG - ERROR MESSAGE GENERATOR.
03816  M00S03190.ppr     +++|*
Line S03191 Modification History
M01 (Removed by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
03817  M01S03191.261l700 ---|*         ENTRY  (T1) = BML MESSAGE IDENTIFIER TABLE LENGTH.
Line S00002 Modification History
M01 (Added by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
03818  M01S00002.261l700 +++|*         ENTRY  (T1) = BASE ADDRESS OF MESSAGE ID TABLE.
03819  M00S03192.ppr     +++|*                (T2) = READ BUFFER ADDRESS.
03820  M00S03193.ppr     +++|*                (T4 - T7) = DRIVER PARAMETERS.
Line S03194 Modification History
M01 (Removed by) ns2741
Seq #  *Modification Id* Act 
----------------------------+
03821  M01S03194.ns2741  ---|*                (DEDT) = ERROR PROCESSING CONTROL WORD.
03822  M00S03195.ppr     +++|*                (DEEC) = ERROR CODE.
Line S00119 Modification History
M01 (Added by) ns2741
Seq #  *Modification Id* Act 
----------------------------+
03823  M01S00119.ns2741  +++|*                (DERW) = 1 IF WRITE REQUEST, 0 IF READ REQUEST.
03824  M01S00120.ns2741  +++|*                (ERXA) = EXIT ADDRESS.
03825  M01S00121.ns2741  +++|*                (UERR) = ERROR PROCESSING OPTIONS.
03826  M00S03196.ppr     +++|*                (MSFW) = INITIAL CHANNEL IF *6DI* OR *6DP*.
Line S03197 Modification History
M01 (Removed by) ns2741
Seq #  *Modification Id* Act 
----------------------------+
03827  M01S03197.ns2741  ---|*                (MB+1) = PHYSICAL DISK ADDRESS FROM *LDAM*.
Line S00122 Modification History
M01 (Added by) ns2741
Seq #  *Modification Id* Act 
----------------------------+
03828  M01S00122.ns2741  +++|*                (MSGH - MSGH+4) = PARTIAL *EMB* MESSAGE HEADER.
03829  M01S00123.ns2741  +++|*                (HEDR - HEDR+11) = PARTIAL BML MESSAGE HEADER.
03830  M01S00124.ns2741  +++|*                (DDMD - DDMD+4) = DEVICE DEPENDENT MESSAGE DATA.
03831  M01S00125.ns2741  +++|*                (MB) = ORIGINAL (T3 - T7).
03832  M01S00126.ns2741  +++|*                (MB+1) = ORIGINAL (WB - WB+4).
03833  M00S03198.ppr     +++|*                (MB+2 - MB+5) = DRIVER DEPENDENT PART OF BML MESSAGE
03834  M00S03199.ppr     +++|*                                (FOR FORMAT, SEE INDIVIDUAL DRIVERS).
03835  M00S03200.ppr     +++|*
03836  M00S03201.ppr     +++|*         EXIT   TO *7EM*.
03837  M00S03202.ppr     +++|*                (T2) = UNCHANGED.
03838  M00S03203.ppr     +++|*                (T4 - T7) = UNCHANGED.
03839  M00S03204.ppr     +++|*                (WB+3 - WB+4) = ADDRESS OF BEGINNING OF TRT.
03840  M00S03205.ppr     +++|*                (MSGH - MSGH+4) = PARTIAL *EMB* MESSAGE HEADER.
03841  M00S03206.ppr     +++|*                (HEDR - HEDR+11) = PARTIAL BML MESSAGE HEADER.
03842  M00S03207.ppr     +++|*                (DDMD - DDMD+4) = DEVICE DEPENDENT MESSAGE DATA.
03843  M00S03208.ppr     +++|*                (MB) = ORIGINAL (T3 - T7).
03844  M00S03209.ppr     +++|*                (MB+1) = ORIGINAL (WB - WB+4).
03845  M00S03210.ppr     +++|*                (MB+2 - MB+5) = UNCHANGED.
03846  M00S03211.ppr     +++|*
Line S03212 Modification History
M01 (Removed by) ns2741
Seq #  *Modification Id* Act 
----------------------------+
03847  M01S03212.ns2741  ---|*         USES   CM - CM+4, WB - WB+4, T1, T3.
Line S00127 Modification History
M01 (Added by) ns2741
Seq #  *Modification Id* Act 
----------------------------+
03848  M01S00127.ns2741  +++|*         USES   T1, T3, CM - CM+4, WB - WB+4.
03849  M00S03213.ppr     +++|*
Line S03214 Modification History
M01 (Removed by) ns2741
Seq #  *Modification Id* Act 
----------------------------+
03850  M01S03214.ns2741  ---|*         MACROS MONITOR, MSERR, SFA.
Line S00128 Modification History
M01 (Added by) ns2741
Seq #  *Modification Id* Act 
----------------------------+
03851  M01S00128.ns2741  +++|*         MACROS MSERR, SFA.
03852  M00S03215.ppr     +++|
03853  M00S03216.ppr     +++|
03854  M00S03217.ppr     +++| ELG      ENTRY              *7EL* ENTRY
Line S03218 Modification History
M01 (Removed by) ns2741
Seq #  *Modification Id* Act 
----------------------------+
03855  M01S03218.ns2741  ---|          LDM    DEEC
03856  M01S03219.ns2741  ---|          STM    DDMD
03857  M01S03220.ns2741  ---|          LMK    ADDE
03858  M01S03221.ns2741  ---|          NJN    ELG0        IF NOT AN ADDRESS ERROR
03859  M01S03222.ns2741  ---|
03860  M01S03223.ns2741  ---|*         THE *CHGM* MONITOR FUNCTION IS ISSUED FOR ADDRESS ERRORS
03861  M01S03224.ns2741  ---|*         SINCE THESE ARE OFTEN CAUSED BY OPERATING SYSTEM PROBLEMS
03862  M01S03225.ns2741  ---|*         RATHER THAN HARDWARE FAILURE.
03863  M01S03226.ns2741  ---|
03864  M01S03227.ns2741  ---|          STD    CM+2
03865  M01S03228.ns2741  ---|          LDC    *
03866  M01S03229.ns2741  ---|          STD    CM+1
03867  M01S03230.ns2741  ---|          MONITOR  CHGM
03868  M01S03231.ns2741  ---|
03869  M01S03232.ns2741  ---|*         SAVE CELLS (T3 - T7) AND (WB - WB+4) IN THE MESSAGE BUFFER
03870  M01S03233.ns2741  ---|*         TO PROVIDE SCRATCH SPACE IN THE OVERLAY FOR READING IN
03871  M01S03234.ns2741  ---|*         DATA.  INITIALIZE THE BML MESSAGE HEADER TO ZEROS.
03872  M01S03235.ns2741  ---|*         ADD EST ORDINAL, MACHINE ID, LINK CODE AND PHYSICAL UNIT
03873  M01S03236.ns2741  ---|*         NUMBER TO THE MESSAGE HEADER.
03874  M01S03237.ns2741  ---|
03875  M01S03238.ns2741  ---| ELG0     LDD    MA
03876  M01S03239.ns2741  ---|          CWD    T3          SAVE CELLS (T3 - T7)
03877  M01S03240.ns2741  ---|          ADN    1
03878  M01S03241.ns2741  ---|          CRD    CM          GET PHYSICAL DISK ADDRESS
03879  M01S03242.ns2741  ---|          CWD    WB          SAVE CELLS (WB - WB+4)
03880  M01S03243.ns2741  ---|          LDK    ZERL
03881  M01S03244.ns2741  ---|          CRM    MSGH,ON     CLEAR *EMB* MESSAGE HEADER
03882  M01S03245.ns2741  ---|          SBN    1
03883  M01S03246.ns2741  ---|          CRM    HEDR,ON     CLEAR BML MESSAGE HEADER
03884  M01S03247.ns2741  ---|          SBN    1
03885  M01S03248.ns2741  ---|          CRM    HEDR+5,ON
03886  M01S03249.ns2741  ---|          SBN    1           CLEAR POTENTIALLY UNUSED FIELDS
03887  M01S03250.ns2741  ---|          CRM    DDMD+1,ON
03888  M01S03251.ns2741  ---|          ERRPL  DDMD+5-*    CLEARING DESTROYS CODE
03889  M01S03252.ns2741  ---|          LDN    MLDY
03890  M01S03253.ns2741  ---|          STM    MSGH+4      SET DESTINATION DAYFILE
03891  M01S03254.ns2741  ---|          LDM    DEDT
03892  M01S03255.ns2741  ---|          LPN    17
03893  M01S03256.ns2741  ---|          SBK    /COMSDFS/D6DI
03894  M01S03257.ns2741  ---|          ERRNZ  /COMSDFS/D6DJ-/COMSDFS/D6DI  CODE ASSUMES VALUES
03895  M01S03258.ns2741  ---|          NJN    ELG1        IF NOT *6DI*
03896  M01S03259.ns2741  ---|          LDD    CM+1
03897  M01S03260.ns2741  ---|          LPN    77
03898  M01S03261.ns2741  ---|          STM    HEDR+3      ADD PHYSICAL UNIT NUMBER TO MESSAGE
03899  M01S03262.ns2741  ---|          LDD    CM+2
03900  M01S03263.ns2741  ---|          STM    DDMD+1      INSERT CYLINDER NUMBER
03901  M01S03264.ns2741  ---|          LDD    CM+3
03902  M01S03265.ns2741  ---|          SHN    6
03903  M01S03266.ns2741  ---|          LMD    CM+4        MERGE TRACK AND SECTOR
03904  M01S03267.ns2741  ---|          STM    DDMD+2
03905  M01S03268.ns2741  ---|          LDM    DELF        SET LAST FUNCTION
03906  M01S03269.ns2741  ---|          STM    DDMD+3
03907  M01S03270.ns2741  ---|          LDM    DEGS        INSERT GENERAL STATUS
03908  M01S03271.ns2741  ---|          STM    DDMD+4
03909  M01S03272.ns2741  ---| ELG1     LDK    PPCP        ADD LINK CODE (PP NUMBER) TO MESSAGE
03910  M01S03273.ns2741  ---|          CRD    CM
03911  M01S03274.ns2741  ---|          ADK    MMFL-PPCP
03912  M01S03275.ns2741  ---|          CRD    WB
03913  M01S03276.ns2741  ---|          LDD    WB          ADD MACHINE ID TO MESSAGE
03914  M01S03277.ns2741  ---|          STM    HEDR+10
03915  M01S03278.ns2741  ---|          LDD    IA
03916  M01S03279.ns2741  ---|          SBD    CM+4
03917  M01S03280.ns2741  ---|          SHN    3
03918  M01S03281.ns2741  ---|          RAM    HEDR+2
03919  M01S03282.ns2741  ---|          LDD    T5          ADD EST ORDINAL TO MESSAGE
03920  M01S03283.ns2741  ---|          STM    HEDR+5
03921  M00S03284.ppr     +++|
03922  M00S03285.ppr     +++|*         DETERMINE THE APPROPRIATE BML MESSAGE IDENTIFIER TO BE
03923  M00S03286.ppr     +++|*         ADDED TO THE MESSAGE.  FOR DISKS, THE MESSAGE ID CAN BE
03924  M00S03287.ppr     +++|*         DETERMINED FROM THE DEVICE CODE.  FOR EXTENDED MEMORY,
03925  M00S03288.ppr     +++|*         IT MUST BE DETERMINED FROM DATA IN WORD *DILL* OF THE MST.
03926  M00S03289.ppr     +++|
Line S00129 Modification History
M01 (Added by) ns2741
Seq #  *Modification Id* Act 
----------------------------+
03927  M01S00129.ns2741  +++|          LDD    T5          ADD EST ORDINAL TO MESSAGE
03928  M01S00130.ns2741  +++|          STM    HEDR+5
03929  M00S03290.ppr     +++|          SFA    EST         READ EST ENTRY
03930  M00S03291.ppr     +++|          ADK    EQDE
03931  M00S03292.ppr     +++|          CRD    CM
Line S03293 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
03932  M01S03293.272l774 ---|          LDD    CM+3        SAVE LAST CHARACTER OF THE DEVICE CODE
03933  M01S03294.272l774 ---|          LPN    77
Line S00002 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
03934  M01S00002.272l774 +++|          LDD    CM+3        SAVE DEVICE CODE
03935  M00S03295.ppr     +++|          STD    T3
Line S03296 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
03936  M01S03296.272l774 ---|          LDD    CM+4        GET MST WORDS *TRLL* AND *DILL*
Line S00003 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
03937  M01S00003.272l774 +++|          LMC    2RDE
03938  M01S00004.272l774 +++|          ZJN    ELG2        IF A *DE* TYPE DEVICE
03939  M01S00005.272l774 +++|          LMN    2RDP&2RDE
03940  M01S00006.272l774 +++|          NJN    ELG3        IF NOT A *DP* TYPE DEVICE
03941  M01S00007.272l774 +++| ELG2     LDD    CM+4        GET MST WORD *DILL*
03942  M00S03297.ppr     +++|          SHN    3
Line S03298 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
03943  M01S03298.272l774 ---|          ADK    TRLL
03944  M01S03299.272l774 ---|          CRD    WB          GET TRT ADDRESS FOR *7EM*
03945  M01S03300.272l774 ---|          SBK    TRLL-DILL
Line S00008 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
03946  M01S00008.272l774 +++|          ADK    DILL
03947  M00S03301.ppr     +++|          CRD    CM
Line S00131 Modification History
M01 (Added by) ns2741
Seq #  *Modification Id* Act 
----------------------------+
03948  M01S00131.ns2741  +++|          ADK    TRLL-DILL
03949  M01S00132.ns2741  +++|          CRD    WB
Line S03302 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
03950  M01S03302.272l774 ---|          LDD    T3
Line S03303 Modification History
M01 (Removed by) 261l700
M02 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
03951  M02S03303.272l774 ---|          LMN    1RE
Line S00003 Modification History
M01 (Added by) 261l700
M02 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
03952  M02S00003.272l774 ---|          SBK    1RE
Line S03304 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
03953  M01S03304.272l774 ---|          ZJN    ELG2        IF A *DE* TYPE DEVICE
Line S03305 Modification History
M01 (Removed by) 261l700
M02 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
03954  M02S03305.272l774 ---|          LMN    1RP&1RE
Line S00004 Modification History
M01 (Added by) 261l700
M02 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
03955  M02S00004.272l774 ---|          SBK    1RP-1RE
Line S03306 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
03956  M01S03306.272l774 ---|          NJN    ELG3        IF NOT A *DP* TYPE DEVICE
03957  M01S03307.272l774 ---| ELG2     LDD    CM+3        USE *DILL* DATA FIELDS
Line S00009 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
03958  M01S00009.272l774 +++|          LDD    CM+3        USE *DILL* DATA FIELDS
03959  M00S03308.ppr     +++|          LPC    707
03960  M00S03309.ppr     +++|          STD    T3
Line S03310 Modification History
M01 (Removed by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
03961  M01S03310.261l700 ---| ELG3     LCN    2           SCAN TABLE FOR A MATCH
03962  M01S03311.261l700 ---|          RAD    T1
03963  M01S03312.261l700 ---|          ZJN    ELG4        IF DEVICE IS NOT FOUND IN TABLE
03964  M01S03313.261l700 ---|          LDM    MSGID-2,T1
03965  M01S03314.261l700 ---|          LMD    T3
03966  M01S03315.261l700 ---|          NJN    ELG3        IF A MATCH HAS NOT YET BEEN FOUND
03967  M01S03316.261l700 ---|          LDM    MSGID-1,T1
Line S00005 Modification History
M01 (Added by) 261l700
M02 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
03968  M02S00005.272l774 ---|          SHN    1
03969  M02S00006.272l774 ---|          ADD    T3
03970  M02S00007.272l774 ---|          SHN    -6
03971  M02S00008.272l774 ---|          ADD    T3
03972  M02S00009.272l774 ---|          LPN    77
03973  M02S00010.272l774 ---|          ADK    1RZ-1*3-1RP+1  INDEX = (EM TYPE - 1)*3 + PP PATH + 26
03974  M02S00011.272l774 ---| ELG3     RAD    T1
Line S00010 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
03975  M01S00010.272l774 +++|          LDC    MSEID-2     SET TABLE ADDRESS
03976  M01S00011.272l774 +++|          STD    T1
03977  M01S00012.272l774 +++| ELG3     LDN    2           CHECK NEXT TABLE ENTRY
03978  M01S00013.272l774 +++|          RAD    T1
Line S00012 Modification History
M01 (Added by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
03979  M01S00012.261l700 +++|          LDI    T1          GET MESSAGE ID
Line S00014 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
03980  M01S00014.272l774 +++|          ZJN    ELG4        IF END OF TABLE
03981  M01S00015.272l774 +++|          LMD    T3
03982  M01S00016.272l774 +++|          NJN    ELG3        IF NOT A MATCH
03983  M01S00017.272l774 +++|          LDM    1,T1        GET MESSAGE ID
03984  M00S03317.ppr     +++| ELG4     STM    HEDR+0
03985  M00S03318.ppr     +++|          MSERR  7EM         EXECUTE *7EM*
Line S00013 Modification History
M01 (Added by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
03986  M01S00013.261l700 +++| MSGID    SPACE  4,10
Line S00014 Modification History
M01 (Added by) 261l700
M02 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
03987  M02S00014.272l774 ---|**        MSGID - TABLE OF *BML* MESSAGE IDENTIFIERS.
03988  M02S00015.272l774 ---|*
03989  M02S00016.272l774 ---|*         ENTRIES IN THE TABLE ARE ORGANIZED BY THE SECOND LETTER OF
03990  M02S00017.272l774 ---|*         OF THE DEVICE TYPE, EXCEPT FOR *DE* AND *DP* DEVICES.  THE
03991  M02S00018.272l774 ---|*         MESSAGE ID-S FOR THESE DEVICES FOLLOW THE OTHERS AND ARE
03992  M02S00019.272l774 ---|*         ORGANIZED BY THE MEMORY TYPE CODE.
03993  M02S00020.272l774 ---|*
03994  M02S00021.272l774 ---|*         THE ENTRIES ARE BUILT BY THE *MSGID* MACRO.
Line S00018 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
03995  M01S00018.272l774 +++|*         MSGID - TABLE OF MESSAGE ID-S FOR NON-EXTENDED MEMORY DEVICES.
03996  M00S03319.ppr     +++|
Line S03320 Modification History
M01 (Removed by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
03997  M01S03320.261l700 ---| MSGID    BSS    0           TABLE OF MESSAGE IDENTIFIERS.
03998  M00S03321.ppr     +++|
Line S03322 Modification History
M01 (Removed by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
03999  M01S03322.261l700 ---|          CON    1RI,/COMSDFS/RM0002    (DI)  844-2X, HALF TRACK
04000  M01S03323.261l700 ---|          CON    1RJ,/COMSDFS/RM0003    (DJ)  844-4X, HALF TRACK
04001  M01S03324.261l700 ---|          CON    1RK,/COMSDFS/RM0004    (DK)  844-2X, FULL TRACK
04002  M01S03325.261l700 ---|          CON    1RL,/COMSDFS/RM0005    (DL)  844-4X, FULL TRACK
04003  M01S03326.261l700 ---|          CON    1RV,/COMSDFS/RM0006    (DV)  819, SINGLE DENSITY
04004  M01S03327.261l700 ---|          CON    1RW,/COMSDFS/RM0006    (DW)  819, DOUBLE DENSITY
04005  M01S03328.261l700 ---|          CON    1RM,/COMSDFS/RM0007    (DM)  885, HALF TRACK
04006  M01S03329.261l700 ---|          CON    1RQ,/COMSDFS/RM0017    (DQ)  885, FULL TRACK
04007  M01S03330.261l700 ---|          CON    1RX,/COMSDFS/RM0010    (DX)  3330-1
04008  M01S03331.261l700 ---|          CON    1RY,/COMSDFS/RM0011    (DY)  3330-11
04009  M01S03332.261l700 ---|          CON    1RZ,/COMSDFS/RM0012    (DZ)  3350
04010  M01S03333.261l700 ---|          CON    1RA,/COMSDFS/RM0013    (DA)  33502
04011  M01S03334.261l700 ---|          CON    1RB,/COMSDFS/RM0014    (DB)  DEMA/PFMD
04012  M01S03335.261l700 ---|          CON    1RC,/COMSDFS/RM0115    (DC)  895
04013  M01S03336.261l700 ---|          CON    1RD,/COMSDFS/RM0110    (DD)  834
04014  M01S03337.261l700 ---|          CON    1RF,/COMSDFS/RM0120    (DF)  887, 4KB SECTOR
04015  M01S03338.261l700 ---|          CON    1RG,/COMSDFS/RM0111    (DG)  836
04016  M01S03339.261l700 ---|          CON    1RH,/COMSDFS/RM0121    (DH)  887, 16KB SECTOR
04017  M01S03340.261l700 ---|          CON    102,/COMSDFS/RM0070    (DP)  ECS I  - DC135 DDP
04018  M01S03341.261l700 ---|          CON    100,/COMSDFS/RM0071    (DE)  ECS I  - COUPLER
04019  M01S03342.261l700 ---|          CON    202,/COMSDFS/RM0072    (DP)  ECS II - DC135 DDP
04020  M01S03343.261l700 ---|          CON    200,/COMSDFS/RM0073    (DE)  ECS II - COUPLER
04021  M01S03344.261l700 ---|          CON    101,/COMSDFS/RM0074    (DP)  ECS I  - DC145 DDP
04022  M01S03345.261l700 ---|          CON    201,/COMSDFS/RM0075    (DP)  ECS II - DC145 DDP
04023  M01S03346.261l700 ---|          CON    300,/COMSDFS/RM0076    (DP)  LCME   - COUPLER
04024  M01S03347.261l700 ---|          CON    400,/COMSDFS/RM0077    (DE)  UEM
04025  M01S03348.261l700 ---|          CON    500,/COMSDFS/RM0207    (DE)  ESM    - COUPLER
04026  M01S03349.261l700 ---|          CON    501,/COMSDFS/RM0210    (DP)  ESM    - LOW SPEED PORT
Line S00022 Modification History
M01 (Added by) 261l700
M02 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
04027  M02S00022.272l774 ---|          PURGMAC  MSGID
Line S00019 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
04028  M01S00019.272l774 +++| MSGID    BSS    0
04029  M01S00020.272l774 +++|          CON    2RDI,/COMSDFS/RM0002   (DI)  844-2X, HALF TRACK
04030  M01S00021.272l774 +++|          CON    2RDJ,/COMSDFS/RM0003   (DJ)  844-4X, HALF TRACK
04031  M01S00022.272l774 +++|          CON    2RDK,/COMSDFS/RM0004   (DK)  844-2X, FULL TRACK
04032  M01S00023.272l774 +++|          CON    2RDL,/COMSDFS/RM0005   (DL)  844-4X, FULL TRACK
04033  M01S00024.272l774 +++|          CON    2RDV,/COMSDFS/RM0006   (DV)  819, SINGLE DENSITY
04034  M01S00025.272l774 +++|          CON    2RDW,/COMSDFS/RM0006   (DW)  819, DOUBLE DENSITY
04035  M01S00026.272l774 +++|          CON    2RDM,/COMSDFS/RM0007   (DM)  885, HALF TRACK
04036  M01S00027.272l774 +++|          CON    2RDQ,/COMSDFS/RM0017   (DQ)  885, FULL TRACK
Line S00002 Modification History
M01 (Added by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
04037  M01S00002.ns2776  +++|          CON    2RDR,/COMSDFS/RM0015   (DR)  CDSS II
Line S00028 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
04038  M01S00028.272l774 +++|          CON    2RDX,/COMSDFS/RM0010   (DX)  3330-1
04039  M01S00029.272l774 +++|          CON    2RDY,/COMSDFS/RM0011   (DY)  3330-11
04040  M01S00030.272l774 +++|          CON    2RDZ,/COMSDFS/RM0012   (DZ)  3350
04041  M01S00031.272l774 +++|          CON    2RDA,/COMSDFS/RM0013   (DA)  33502
04042  M01S00032.272l774 +++|          CON    2RDB,/COMSDFS/RM0014   (DB)  885-42 (PFMD)
04043  M01S00033.272l774 +++|          CON    2RDC,/COMSDFS/RM0115   (DC)  895
04044  M01S00034.272l774 +++|          CON    2RDD,/COMSDFS/RM0110   (DD)  834
04045  M01S00035.272l774 +++|          CON    2RDF,/COMSDFS/RM0120   (DF)  887 (4KB SECTOR)
04046  M01S00036.272l774 +++|          CON    2RDG,/COMSDFS/RM0111   (DG)  836
04047  M01S00037.272l774 +++|          CON    2RDH,/COMSDFS/RM0121   (DH)  887 (16KB SECTOR)
04048  M01S00038.272l774 +++|          CON    2RDN,/COMSDFS/RM0124   (DN)  9853 (XMD/CM3)
04049  M01S00039.272l774 +++|          CON    2REA,/COMSDFS/RM0130   (EA)  5832 (1X SSD)
04050  M01S00040.272l774 +++|          CON    2REB,/COMSDFS/RM0131   (EB)  5832 (2X SSD)
04051  M01S00041.272l774 +++|          CON    2REC,/COMSDFS/RM0132   (EC)  5833 (1X SABRE)
04052  M01S00042.272l774 +++|          CON    2RED,/COMSDFS/RM0133   (ED)  5833 (1XP SABRE)
04053  M01S00043.272l774 +++|          CON    2REE,/COMSDFS/RM0134   (EE)  5833 (2X SABRE)
04054  M01S00044.272l774 +++|          CON    2REF,/COMSDFS/RM0137   (EF)  5833 (2XP SABRE)
Line S00002 Modification History
M01 (Added by) ns2768
Seq #  *Modification Id* Act 
----------------------------+
04055  M01S00002.ns2768  +++|          CON    2REG,/COMSDFS/RM0142   (EG)  5838 (1X ELITE)
04056  M01S00003.ns2768  +++|          CON    2REH,/COMSDFS/RM0143   (EH)  5838 (1XP ELITE)
Line S00002 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
04057  M01S00002.284l847 +++|          CON    2REI,/COMSDFS/RM0144   (EI)  5838 (2X ELITE)
04058  M01S00003.284l847 +++|          CON    2REJ,/COMSDFS/RM0147   (EJ)  5838 (2XP ELITE)
04059  M01S00004.284l847 +++|          CON    2REK,/COMSDFS/RM0145   (EK)  5838 (3XP ELITE)
04060  M01S00005.284l847 +++|          CON    2REL,/COMSDFS/RM0146   (EL)  5838 (4X ELITE)
04061  M01S00006.284l847 +++|          CON    2REM,/COMSDFS/RM0135   (EM)  5833 (3XP SABRE)
04062  M01S00007.284l847 +++|          CON    2REN,/COMSDFS/RM0136   (EN)  5833 (4X SABRE)
04063  M01S00008.284l847 +++|          CON    2REO,/COMSDFS/RM0162   (EO) 47444 (1X 3.5IN)
04064  M01S00009.284l847 +++|          CON    2REP,/COMSDFS/RM0163   (EP) 47444 (1XP 3.5IN)
04065  M01S00010.284l847 +++|          CON    2RES,/COMSDFS/RM0164   (ES) 47444 (2X 3.5IN)
04066  M01S00011.284l847 +++|          CON    2REU,/COMSDFS/RM0167   (EU) 47444 (2XP 3.5IN)
04067  M01S00012.284l847 +++|          CON    2REV,/COMSDFS/RM0165   (EV) 47444 (3XP 3.5IN)
04068  M01S00013.284l847 +++|          CON    2REW,/COMSDFS/RM0166   (EW) 47444 (4X 3.5IN)
Line S00045 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
04069  M01S00045.272l774 +++|          CON    0           END OF TABLE
04070  M01S00046.272l774 +++| MSEID    SPACE  4,10
04071  M01S00047.272l774 +++|*         MSEID - TABLE OF MESSAGE ID-S FOR EXTENDED MEMORY DEVICES.
04072  M00S03350.ppr     +++|
Line S03351 Modification History
M01 (Removed by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
04073  M01S03351.261l700 ---| MSGIDL   EQU    *-MSGID+2   MESSAGE ID TABLE LENGTH
Line S00023 Modification History
M01 (Added by) 261l700
M02 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
04074  M02S00023.272l774 ---| MSGID    MACRO  T,I
04075  M02S00024.272l774 ---| .A       IFLE   T,1RZ
04076  M02S00025.272l774 ---|          INDEX  T-1,I
04077  M02S00026.272l774 ---| .A       ELSE
04078  M02S00027.272l774 ---| .1       SET    T
04079  M02S00028.272l774 ---| .1       SET    .1/100*3-3+.1-.1/100*100
04080  M02S00029.272l774 ---|          INDEX  .1+1RZ,I
04081  M02S00030.272l774 ---| .A       ENDIF
04082  M02S00031.272l774 ---| MSGID    ENDM
Line S00032 Modification History
M01 (Added by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
04083  M01S00032.261l700 +++|
Line S00033 Modification History
M01 (Added by) 261l700
M02 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
04084  M02S00033.272l774 ---|
04085  M02S00034.272l774 ---| MSGID    INDEX              TABLE OF MESSAGE IDENTIFIERS.
04086  M02S00035.272l774 ---|
04087  M02S00036.272l774 ---|          MSGID  1RI,/COMSDFS/RM0002    (DI)  844-2X, HALF TRACK
04088  M02S00037.272l774 ---|          MSGID  1RJ,/COMSDFS/RM0003    (DJ)  844-4X, HALF TRACK
04089  M02S00038.272l774 ---|          MSGID  1RK,/COMSDFS/RM0004    (DK)  844-2X, FULL TRACK
04090  M02S00039.272l774 ---|          MSGID  1RL,/COMSDFS/RM0005    (DL)  844-4X, FULL TRACK
04091  M02S00040.272l774 ---|          MSGID  1RV,/COMSDFS/RM0006    (DV)  819, SINGLE DENSITY
04092  M02S00041.272l774 ---|          MSGID  1RW,/COMSDFS/RM0006    (DW)  819, DOUBLE DENSITY
04093  M02S00042.272l774 ---|          MSGID  1RM,/COMSDFS/RM0007    (DM)  885, HALF TRACK
04094  M02S00043.272l774 ---|          MSGID  1RQ,/COMSDFS/RM0017    (DQ)  885, FULL TRACK
04095  M02S00044.272l774 ---|          MSGID  1RX,/COMSDFS/RM0010    (DX)  3330-1
04096  M02S00045.272l774 ---|          MSGID  1RY,/COMSDFS/RM0011    (DY)  3330-11
04097  M02S00046.272l774 ---|          MSGID  1RZ,/COMSDFS/RM0012    (DZ)  3350
04098  M02S00047.272l774 ---|          MSGID  1RA,/COMSDFS/RM0013    (DA)  33502
04099  M02S00048.272l774 ---|          MSGID  1RB,/COMSDFS/RM0014    (DB)  DEMA/PFMD
04100  M02S00049.272l774 ---|          MSGID  1RC,/COMSDFS/RM0115    (DC)  895
04101  M02S00050.272l774 ---|          MSGID  1RD,/COMSDFS/RM0110    (DD)  834
04102  M02S00051.272l774 ---|          MSGID  1RF,/COMSDFS/RM0120    (DF)  887, 4KB SECTOR
04103  M02S00052.272l774 ---|          MSGID  1RG,/COMSDFS/RM0111    (DG)  836
04104  M02S00053.272l774 ---|          MSGID  1RH,/COMSDFS/RM0121    (DH)  887, 16KB SECTOR
04105  M02S00054.272l774 ---|          MSGID  102,/COMSDFS/RM0070    (DP)  ECS I  - DC135 DDP
04106  M02S00055.272l774 ---|          MSGID  100,/COMSDFS/RM0071    (DE)  ECS I  - COUPLER
04107  M02S00056.272l774 ---|          MSGID  202,/COMSDFS/RM0072    (DP)  ECS II - DC135 DDP
04108  M02S00057.272l774 ---|          MSGID  200,/COMSDFS/RM0073    (DE)  ECS II - COUPLER
04109  M02S00058.272l774 ---|          MSGID  101,/COMSDFS/RM0074    (DP)  ECS I  - DC145 DDP
04110  M02S00059.272l774 ---|          MSGID  201,/COMSDFS/RM0075    (DP)  ECS II - DC145 DDP
04111  M02S00060.272l774 ---|          MSGID  300,/COMSDFS/RM0076    (DP)  LCME   - COUPLER
04112  M02S00061.272l774 ---|          MSGID  400,/COMSDFS/RM0077    (DE)  UEM
04113  M02S00062.272l774 ---|          MSGID  500,/COMSDFS/RM0207    (DE)  ESM    - COUPLER
04114  M02S00063.272l774 ---|          MSGID  501,/COMSDFS/RM0210    (DP)  ESM    - LOW SPEED PORT
04115  M02S00064.272l774 ---|          MSGID  601,/COMSDFS/RM0172    (DP)  STORNET
04116  M02S00065.272l774 ---|
04117  M02S00066.272l774 ---|          MSGID  601+1
Line S00048 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
04118  M01S00048.272l774 +++| MSEID    BSS    0
04119  M01S00049.272l774 +++|          CON    102,/COMSDFS/RM0070    (DP)  ECS I  - DC135 DDP
04120  M01S00050.272l774 +++|          CON    100,/COMSDFS/RM0071    (DE)  ECS I  - COUPLER
04121  M01S00051.272l774 +++|          CON    202,/COMSDFS/RM0072    (DP)  ECS II - DC135 DDP
04122  M01S00052.272l774 +++|          CON    200,/COMSDFS/RM0073    (DE)  ECS II - COUPLER
04123  M01S00053.272l774 +++|          CON    101,/COMSDFS/RM0074    (DP)  ECS I  - DC145 DDP
04124  M01S00054.272l774 +++|          CON    201,/COMSDFS/RM0075    (DP)  ECS II - DC145 DDP
04125  M01S00055.272l774 +++|          CON    300,/COMSDFS/RM0076    (DP)  LCME   - COUPLER
04126  M01S00056.272l774 +++|          CON    400,/COMSDFS/RM0077    (DE)  UEM
04127  M01S00057.272l774 +++|          CON    500,/COMSDFS/RM0207    (DE)  ESM    - COUPLER
04128  M01S00058.272l774 +++|          CON    501,/COMSDFS/RM0210    (DP)  ESM    - LOW SPEED PORT
04129  M01S00059.272l774 +++|          CON    601,/COMSDFS/RM0172    (DP)  STORNET
04130  M01S00060.272l774 +++|          CON    0           END OF TABLE
Line S03352 Modification History
M01 (Removed by) ns2741
Seq #  *Modification Id* Act 
----------------------------+
04131  M01S03352.ns2741  ---|
04132  M01S03353.ns2741  ---|
Line S00133 Modification History
M01 (Added by) ns2741
Seq #  *Modification Id* Act 
----------------------------+
04133  M01S00133.ns2741  +++|          SPACE  4,10
04134  M00S03354.ppr     +++|          ERRNG  10000-*     *7EL* HAS OVERFLOWED
04135  M00S03355.ppr     +++|          BSS    10000-*     (SPARES)
04136  M00S03356.ppr     +++|          CON    ELG-1       (T0) = ENTRY ADDRESS - 1
Line S03357 Modification History
M01 (Removed by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
04137  M01S03357.261l700 ---|          CON    MSGIDL      (T1) = MESSAGE ID TABLE LENGTH
Line S00067 Modification History
M01 (Added by) 261l700
M02 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
04138  M02S00067.272l774 ---|          CON    MSGID+1RP-1 (T1) = BASE ADDRESS OF MESSAGE ID TABLE
Line S00061 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
04139  M01S00061.272l774 +++|          CON    MSGID-2     (T1) = BASE ADDRESS OF MESSAGE ID TABLE
04140  M00S03358.ppr     +++|*                            (T2) = READ BUFFER ADDRESS
04141  M00S03359.ppr     +++|          ERRNZ  LN-*        INCORRECT *7EL* OVERLAY LENGTH
04142  M00S03360.ppr     +++|          QUAL   *
Line S03361 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
04143  M01S03361.272l774 ---| 7EM      MSOVL  7566,T1,DDMD+4,(ERROR MESSAGE GENERATOR.)
Line S00062 Modification History
M01 (Added by) 272l774
M02 (Removed by) ns2741
Seq #  *Modification Id* Act 
----------------------------+
04144  M02S00062.ns2741  ---| 7EM      MSOVL  7554,T1,DDMD+4,(ERROR MESSAGE GENERATOR.)
Line S00134 Modification History
M01 (Added by) ns2741
Seq #  *Modification Id* Act 
----------------------------+
04145  M01S00134.ns2741  +++| 7EM      MSOVL  7566,T1,DDMD+4,(ERROR MESSAGE GENERATOR.)
04146  M00S03362.ppr     +++|          SPACE  4
04147  M00S03363.ppr     +++|***       7EM - ERROR MESSAGE GENERATOR.
04148  M00S03364.ppr     +++|*         C. R. LUND.        81/07/16.
04149  M00S03365.ppr     +++|          SPACE  4
04150  M00S03366.ppr     +++|***              *7EM* IS CALLED BY *7EL* BOTH TO CONTINUE BUILDING
04151  M00S03367.ppr     +++|*         THE BML MESSAGE HEADER AND TO COLLECT DATA USED TO DECIDE
04152  M00S03368.ppr     +++|*         WHERE TO RESUME PROCESSING.  THE DATA IS STORED IN *DEST*
04153  M00S03369.ppr     +++|*         FOR LATER USE BY *7EP*.  *7EM* THEN CALLS *7EN* TO CONTINUE
04154  M00S03370.ppr     +++|*         THE MESSAGE BUILDING PROCESS.
04155  M00S03371.ppr     +++|          SPACE  4,10
04156  M00S03372.ppr     +++|****      DIRECT LOCATION ASSIGNMENTS.
04157  M00S03373.ppr     +++|
04158  M00S03374.ppr     +++|
04159  M00S03375.ppr     +++| CN       EQU    CM+3        CM WORD BUFFER
04160  M00S03376.ppr     +++|****
04161  M00S03377.ppr     +++|          SPACE  4
04162  M00S03378.ppr     +++|**        EMG - ERROR MESSAGE GENERATOR.
04163  M00S03379.ppr     +++|*
04164  M00S03380.ppr     +++|*         ENTRY  (T1) = DEST.
04165  M00S03381.ppr     +++|*                (T2) = READ BUFFER ADDRESS.
04166  M00S03382.ppr     +++|*                (T4 - T7) = DRIVER PARAMETERS.
Line S00135 Modification History
M01 (Added by) ns2741
Seq #  *Modification Id* Act 
----------------------------+
04167  M01S00135.ns2741  +++|*                (WB+3 - WB+4) = ADDRESS OF BEGINNING OF TRT.
Line S03383 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
04168  M01S03383.272l774 ---|*                (WB+3 - WB+4) = ADDRESS OF BEGINNING OF TRT.
04169  M00S03384.ppr     +++|*                (DEEC) = ERROR CODE.
04170  M00S03385.ppr     +++|*                (DERW) = 1 IF WRITE REQUEST, 0 IF READ REQUEST.
04171  M00S03386.ppr     +++|*                (ERXA) = EXIT ADDRESS.
04172  M00S03387.ppr     +++|*                (UERR) = ERROR PROCESSING OPTIONS.
04173  M00S03388.ppr     +++|*                (MSFW) = INITIAL CHANNEL IF *6DI* OR *6DP*.
04174  M00S03389.ppr     +++|*                (MSGH - MSGH+4) = PARTIAL *EMB* MESSAGE HEADER.
04175  M00S03390.ppr     +++|*                (HEDR - HEDR+11) = PARTIAL BML MESSAGE HEADER.
04176  M00S03391.ppr     +++|*                (DDMD - DDMD+4) = DEVICE DEPENDENT MESSAGE DATA.
04177  M00S03392.ppr     +++|*                (MB) = ORIGINAL (T3 - T7).
04178  M00S03393.ppr     +++|*                (MB+1) = ORIGINAL (WB - WB+4).
04179  M00S03394.ppr     +++|*                (MB+2 - MB+5) = DRIVER DEPENDENT PART OF BML MESSAGE
04180  M00S03395.ppr     +++|*                                (FOR FORMAT, SEE INDIVIDUAL DRIVERS).
04181  M00S03396.ppr     +++|*
04182  M00S03397.ppr     +++|*         EXIT   TO *7EN*.
04183  M00S03398.ppr     +++|*                (T7) = JOB TERMINATION MODE.
04184  M00S03399.ppr     +++|*                (WB) = ERROR CODE.
04185  M00S03400.ppr     +++|*                (DEST) = ERROR PROCESSING CONTROL WORD.
04186  M00S03401.ppr     +++|*                         BITS AFFECTED BY THIS OVERLAY -
04187  M00S03402.ppr     +++|*                         BIT 11 = 1 IF IMMEDIATE RETURN ON ERROR
04188  M00S03403.ppr     +++|*                         WAS SELECTED BY CALLER.
04189  M00S03404.ppr     +++|*                (DEWR) = 1 IF *PARE* ERROR CODE ON READ REQUEST AND
04190  M00S03405.ppr     +++|*                         LINKAGE BYTES ARE CORRECT.
04191  M00S03406.ppr     +++|*                (ERXA) = EXIT ADDRESS (FROM *RDS*/*WDS* ENTRY).
04192  M00S03407.ppr     +++|*                (MSGH - MSGH+4) = PARTIAL *EMB* MESSAGE HEADER.
04193  M00S03408.ppr     +++|*                (HEDR - HEDR+11) = PARTIAL BML MESSAGE HEADER.
04194  M00S03409.ppr     +++|*                (DDMD - DDMD+4) = DEVICE DEPENDENT MESSAGE DATA.
04195  M00S03410.ppr     +++|*                (MB - MB+5) = UNCHANGED.
04196  M00S03411.ppr     +++|*
Line S00063 Modification History
M01 (Added by) 272l774
M02 (Removed by) ns2741
Seq #  *Modification Id* Act 
----------------------------+
04197  M02S00063.ns2741  ---|*         USES   T1, T3, CM - CM+4, CN - CN+4, WB - WB+4.
Line S00136 Modification History
M01 (Added by) ns2741
Seq #  *Modification Id* Act 
----------------------------+
04198  M01S00136.ns2741  +++|*         USES   T1, T3, CM - CM+4, CN - CN+4.
04199  M00S03412.ppr     +++|*
Line S03413 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
04200  M01S03413.272l774 ---|*         USES   T1, WB, CM - CM+4.
04201  M01S03414.272l774 ---|*
04202  M01S03415.272l774 ---|*         MACROS MSERR.
Line S00064 Modification History
M01 (Added by) 272l774
M02 (Removed by) ns2741
Seq #  *Modification Id* Act 
----------------------------+
04203  M02S00064.ns2741  ---|*         MACROS MSERR, SFA.
Line S00137 Modification History
M01 (Added by) ns2741
Seq #  *Modification Id* Act 
----------------------------+
04204  M01S00137.ns2741  +++|*         MACROS MSERR.
04205  M00S03416.ppr     +++|
04206  M00S03417.ppr     +++|
04207  M00S03418.ppr     +++| EMG      ENTRY              *7EM* ENTRY
Line S00065 Modification History
M01 (Added by) 272l774
M02 (Removed by) ns2741
Seq #  *Modification Id* Act 
----------------------------+
04208  M02S00065.ns2741  ---|          SFA    EST,T5      READ EST ENTRY
04209  M02S00066.ns2741  ---|          ADK    EQDE
04210  M02S00067.ns2741  ---|          CRD    CM
04211  M02S00068.ns2741  ---|          LDD    CM+4        GET TRT ADDRESS
04212  M02S00069.ns2741  ---|          SHN    3
04213  M02S00070.ns2741  ---|          ADK    TRLL
04214  M02S00071.ns2741  ---|          CRD    WB
04215  M00S03419.ppr     +++|
04216  M00S03420.ppr     +++|*         IN THE SPECIAL CASE OF A PARITY ERROR OCCURRING DURING A READ
04217  M00S03421.ppr     +++|*         OPERATION, *7EM* VERIFIES THAT THE LINKAGE BYTES WHICH WERE
04218  M00S03422.ppr     +++|*         RECEIVED WITH THE SECTOR ARE VALID.  IF THE LINKAGE BYTES ARE
04219  M00S03423.ppr     +++|*         BAD (OR IT WAS SOME OTHER KIND OF ERROR), A FLAG IS SET WHICH
04220  M00S03424.ppr     +++|*         IS PASSED BACK TO INFORM THE CALLER IN *RDCT*.
04221  M00S03425.ppr     +++|
04222  M00S03426.ppr     +++|          LDM    DEEC
04223  M00S03427.ppr     +++|          STD    T3
04224  M00S03428.ppr     +++|          LMN    PARE
04225  M00S03429.ppr     +++|          ADM    DERW
04226  M00S03430.ppr     +++|          NJN    EMG5        IF WRITE OR NOT *PARE* ERROR CODE
04227  M00S03431.ppr     +++|          LDI    T2          COPY FIRST LINKAGE BYTE TO SCRATCH
04228  M00S03432.ppr     +++|          STD    CM
04229  M00S03433.ppr     +++|          NJN    EMG6        IF NOT EOF/EOI
04230  M00S03434.ppr     +++|          LDM    1,T2
04231  M00S03435.ppr     +++|          STD    CM
04232  M00S03436.ppr     +++|          NJN    EMG7        IF NOT EOI
04233  M00S03437.ppr     +++|
04234  M00S03438.ppr     +++|*         VALIDATE EOI IN TRT.
04235  M00S03439.ppr     +++|
04236  M00S03440.ppr     +++|          LDD    T7          SET FOR EOI SECTOR VALIDATION
04237  M00S03441.ppr     +++|          STD    CM
04238  M00S03442.ppr     +++|
04239  M00S03443.ppr     +++|*         VALIDATE NEXT TRACK LINKAGE IN TRT.
04240  M00S03444.ppr     +++|
04241  M00S03445.ppr     +++| EMG4     LDD    T6          GET TRT WORD FOR LINKAGE VALIDATION
04242  M00S03446.ppr     +++|          SHN    7
04243  M00S03447.ppr     +++|          SHN    -11
04244  M00S03448.ppr     +++|          STD    T0
04245  M00S03449.ppr     +++|          LDD    WB+3
04246  M00S03450.ppr     +++|          LPN    77
04247  M00S03451.ppr     +++|          SHN    14
04248  M00S03452.ppr     +++|          LMD    WB+4
04249  M00S03453.ppr     +++|          ADD    T0
04250  M00S03454.ppr     +++|          CRD    CN
04251  M00S03455.ppr     +++|          LDD    T6          GET NEXT TRACK POINTER
04252  M00S03456.ppr     +++|          LPN    3
04253  M00S03457.ppr     +++|          ADN    CN
04254  M00S03458.ppr     +++|          STD    T0
04255  M00S03459.ppr     +++|          LDD    CM
04256  M00S03460.ppr     +++|          LMI    T0
04257  M00S03461.ppr     +++|          ZJN    EMG8        IF EOI OR NEXT TRACK LINK GOOD
04258  M00S03462.ppr     +++| EMG5     UJN    EMG9        CONTINUE
04259  M00S03463.ppr     +++|
04260  M00S03464.ppr     +++| EMG6     LDD    HN
04261  M00S03465.ppr     +++|          SBM    1,T2
04262  M00S03466.ppr     +++|          MJN    EMG9        IF SECTOR WORD COUNT .GT. 100
04263  M00S03467.ppr     +++| EMG7     LDD    T7
04264  M00S03468.ppr     +++|          ADN    1
04265  M00S03469.ppr     +++|          LMM    SLM
04266  M00S03470.ppr     +++|          ZJN    EMG4        IF SECTOR LIMIT
04267  M00S03471.ppr     +++|          LMM    SLM
04268  M00S03472.ppr     +++|          LMD    CM
04269  M00S03473.ppr     +++|          NJN    EMG9        IF LINKAGE BYTE BAD
04270  M00S03474.ppr     +++| EMG8     LDN    1           SET *DATA READ/WRITTEN* FLAG
04271  M00S03475.ppr     +++|          STM    DEWR
04272  M00S03476.ppr     +++|
04273  M00S03477.ppr     +++|*         PREVENT *7EQ* FROM BEING RECALLED UPON ERROR RECOVERY IF THIS
04274  M00S03478.ppr     +++|*         IS A READ OPERATION AND THE READ BUFFER EXTENDS BEYOND
04275  M00S03479.ppr     +++|*         *EPFW*-1 IN PP MEMORY.  *7EQ* CANNOT BE RECALLED TO ISSUE BML
04276  M00S03480.ppr     +++|*         MESSAGES BECAUSE THE RECOVERED SECTOR HAS WRITTEN OVER PART
04277  M00S03481.ppr     +++|*         OF THE BML MESSAGE, AND *7EQ* MIGHT OVERLAY PART OF THE
04278  M00S03482.ppr     +++|*         SECTOR.
04279  M00S03483.ppr     +++|
04280  M00S03484.ppr     +++| EMG9     LDM    ERXA
04281  M00S03485.ppr     +++|          NJN    EMG13       IF EXIT ADDRESS SET UP ON PREVIOUS PASS
04282  M00S03486.ppr     +++|          LDD    T2
04283  M00S03487.ppr     +++|          SBK    EPFW-502+1
04284  M00S03488.ppr     +++|          MJN    EMG10       IF BUFFER NOT DESTROYED BY ERROR PROCESSOR
04285  M00S03489.ppr     +++|          LDI    T1          FORCE ERROR UNRECOVERED
04286  M00S03490.ppr     +++|          LPC    -2000
04287  M00S03491.ppr     +++|          LMC    2000
04288  M00S03492.ppr     +++|          STI    T1
04289  M00S03493.ppr     +++| EMG10    LDM    DERW
04290  M00S03494.ppr     +++|          ERRNZ  REDP        CODE ASSUMES VALUE
04291  M00S03495.ppr     +++|          ERRNZ  WRIP-1      CODE ASSUMES VALUE
04292  M00S03496.ppr     +++|          NJN    EMG12       IF WRITE
04293  M00S03497.ppr     +++|          LCN    1
04294  M00S03498.ppr     +++| EMG12    ADC    RDS+1
04295  M00S03499.ppr     +++|          ERRNZ  RDS+2-WDS   CODE DEPENDS ON LOCATION OF ROUTINES
04296  M00S03500.ppr     +++|          STD    CM
04297  M00S03501.ppr     +++|          LDI    CM
04298  M00S03502.ppr     +++|          STM    ERXA
04299  M00S03503.ppr     +++|          LDC    LEP
04300  M00S03504.ppr     +++|          STI    CM
04301  M00S03505.ppr     +++|
04302  M00S03506.ppr     +++|*         SET A FLAG FOR *7EP* INDICATING WHETHER OR NOT THE CALLER
04303  M00S03507.ppr     +++|*         REQUESTED IMMEDIATE RETURN ON THIS TYPE OF ERROR.  IF SO,
04304  M00S03508.ppr     +++|*         *7EP* WILL CALL *7ES* TO EXIT TO THE CALLER WITHOUT MAKING
04305  M00S03509.ppr     +++|*         ANY RETRIES.
04306  M00S03510.ppr     +++|
04307  M00S03511.ppr     +++| EMG13    LDM    UERR
04308  M00S03512.ppr     +++|          LMM    TEPO,T3
04309  M00S03513.ppr     +++|          SBM    UERR
04310  M00S03514.ppr     +++|          PJN    EMG15       IF RETURN NOT SELECTED
04311  M00S03515.ppr     +++|          LDI    T1          CHECK FOR IMMEDIATE RETURN TO DRIVER
04312  M00S03516.ppr     +++|          SHN    21-4
04313  M00S03517.ppr     +++|          MJN    EMG15       IF IMMEDIATE RETURN TO CALLER OVERRIDDEN
04314  M00S03518.ppr     +++|          LDD    TH
04315  M00S03519.ppr     +++|          RAI    T1
04316  M00S03520.ppr     +++|
04317  M00S03521.ppr     +++|*         ADD READ/WRITE FLAG TO BML MESSAGE HEADER.
04318  M00S03522.ppr     +++|
04319  M00S03523.ppr     +++| EMG15    LDM    DERW
04320  M00S03524.ppr     +++|          SHN    1
04321  M00S03525.ppr     +++|          RAM    HEDR+6
04322  M00S03526.ppr     +++|
04323  M00S03527.ppr     +++|*         EXTRACT JOB TERMINATION MODE FROM EJT ENTRY.
04324  M00S03528.ppr     +++|
04325  M00S03529.ppr     +++|          LDD    CP          FETCH EJT ORDINAL
04326  M00S03530.ppr     +++|          ADK    TFSW
04327  M00S03531.ppr     +++|          CRD    T7
04328  M00S03532.ppr     +++|          LDK    EJTP        GET EJT POINTER
04329  M00S03533.ppr     +++|          CRD    CM
04330  M00S03534.ppr     +++|          LDD    T7
04331  M00S03535.ppr     +++|          CFI    EJT,,T7
04332  M00S03536.ppr     +++|          SHN    6
04333  M00S03537.ppr     +++|          ADD    CM
04334  M00S03538.ppr     +++|          SHN    14
04335  M00S03539.ppr     +++|          ADK    SCHE        READ EJT ENTRY
04336  M00S03540.ppr     +++|          ADD    CM+1
04337  M00S03541.ppr     +++|          CRD    CM
04338  M00S03542.ppr     +++|          LDD    CM+2        EXTRACT JOB TERMINATION MODE
04339  M00S03543.ppr     +++|          SHN    0-11
04340  M00S03544.ppr     +++|          LPN    3
04341  M00S03545.ppr     +++|          STD    T7
04342  M00S03546.ppr     +++|          LDD    T3          MOVE ERROR CODE
04343  M00S03547.ppr     +++|          STD    WB
04344  M00S03548.ppr     +++|          MSERR  7EN         EXECUTE *7EN*
04345  M00S03549.ppr     +++|
04346  M00S03550.ppr     +++|
04347  M00S03551.ppr     +++|*         TEPO - ERROR PROCESSING OPTIONS TABLE FOR IMMEDIATE RETURN.
04348  M00S03552.ppr     +++|
04349  M00S03553.ppr     +++|
04350  M00S03554.ppr     +++|          LIST   G
04351  M00S03555.ppr     +++| TEPO     EQU    *-1
04352  M00S03556.ppr     +++|          ECHO   1,ERRCODE=("DREC")
04353  M00S03557.ppr     +++|          CON    EPO._ERRCODE      "TXT._ERRCODE" ERROR
04354  M00S03558.ppr     +++|          LIST   *
04355  M00S03559.ppr     +++|
04356  M00S03560.ppr     +++|          ERRNG  10000-*     *7EM* HAS OVERFLOWED
04357  M00S03561.ppr     +++|          BSS    10000-*     (SPARES)
04358  M00S03562.ppr     +++|          CON    EMG-1       (T0) = ENTRY ADDRESS - 1
04359  M00S03563.ppr     +++|          CON    DEST        (T1) = DEST
04360  M00S03564.ppr     +++|*                            (T2) = READ BUFFER ADDRESS
04361  M00S03565.ppr     +++|          ERRNZ  LN-*        INCORRECT *7EM* OVERLAY LENGTH
04362  M00S03566.ppr     +++|          QUAL   *
04363  M00S03567.ppr     +++| 7EN      MSOVL  7537,T3,DDMD+4,(ERROR MESSAGE GENERATOR.)
04364  M00S03568.ppr     +++|          SPACE  4
04365  M00S03569.ppr     +++|***       7EN - ERROR MESSAGE GENERATOR.
04366  M00S03570.ppr     +++|*         C. R. LUND.        81/07/16.
04367  M00S03571.ppr     +++|          SPACE  4
04368  M00S03572.ppr     +++|***              *7EN* IS CALLED BY *7EM* BOTH TO COMPLETE THE BML
04369  M00S03573.ppr     +++|*         MESSAGE HEADER AND TO COLLECT ADDITIONAL DATA NEEDED TO
04370  M00S03574.ppr     +++|*         DECIDE WHERE TO RESUME PROCESSING.  THE RETRY COUNT IS
04371  M00S03575.ppr     +++|*         INCREMENTED AND THEN CHECKED TO SEE IF IT HAS EXCEEDED
04372  M00S03576.ppr     +++|*         DEFINED LIMITS.
04373  M00S03577.ppr     +++| GEM      SPACE  4,10
04374  M00S03578.ppr     +++|**        GEM - ERROR MESSAGE GENERATOR.
04375  M00S03579.ppr     +++|*
04376  M00S03580.ppr     +++|*         ENTRY  (T1) = DEST.
04377  M00S03581.ppr     +++|*                (T2) = DERC.
04378  M00S03582.ppr     +++|*                (T3) = DERW.
04379  M00S03583.ppr     +++|*                (T5) = EST ORDINAL.
04380  M00S03584.ppr     +++|*                (T6) = LOGICAL TRACK.
04381  M00S03585.ppr     +++|*                (T7) = JOB TERMINATION MODE.
04382  M00S03586.ppr     +++|*                (WB) = ERROR CODE.
04383  M00S03587.ppr     +++|*                (DEDT) = ERROR PROCESSING CONTROL WORD.
04384  M00S03588.ppr     +++|*                (DENR) = 1 IF NON-RECOVERABLE ERROR, ELSE 0.
04385  M00S03589.ppr     +++|*                (DERC) = RETRY COUNT.
04386  M00S03590.ppr     +++|*                (DERW) = 1 IF WRITE REQUEST, 0 IF READ REQUEST.
04387  M00S03591.ppr     +++|*                (DEST) = ERROR PROCESSING CONTROL WORD.
04388  M00S03592.ppr     +++|*                (UERR) = ERROR PROCESSING OPTIONS.
04389  M00S03593.ppr     +++|*                (MSGH - MSGH+4) = PARTIAL *EMB* MESSAGE HEADER.
04390  M00S03594.ppr     +++|*                (HEDR - HEDR+11) = PARTIAL BML MESSAGE HEADER.
04391  M00S03595.ppr     +++|*                (DDMD - DDMD+4) = DEVICE DEPENDENT MESSAGE DATA.
04392  M00S03596.ppr     +++|*                (MB) = ORIGINAL (T3 - T7).
04393  M00S03597.ppr     +++|*                (MB+1) = ORIGINAL (WB - WB+4).
04394  M00S03598.ppr     +++|*                (MB+2 - MB+5) = DRIVER DEPENDENT PART OF BML MESSAGE
04395  M00S03599.ppr     +++|*                                (FOR FORMAT, SEE INDIVIDUAL DRIVERS).
04396  M00S03600.ppr     +++|*
04397  M00S03601.ppr     +++|*         EXIT   TO *7EO*.
04398  M00S03602.ppr     +++|*                (WB) = UNCHANGED.
04399  M00S03603.ppr     +++|*                (DENR) = 1 IF NON-RECOVERABLE ERROR CODE SET OR
04400  M00S03604.ppr     +++|*                         *UCTM* JOB TERMINATION MODE IS SET.
04401  M00S03605.ppr     +++|*                (DERC) = INCREMENTED RETRY COUNT.
04402  M00S03606.ppr     +++|*                (DEST) = ERROR PROCESSING CONTROL WORD.
04403  M00S03607.ppr     +++|*                         BITS AFFECTED BY THIS OVERLAY -
04404  M00S03608.ppr     +++|*                         BIT 13 = 1 IF MST ERROR COUNTER SHOULD BE
04405  M00S03609.ppr     +++|*                         INCREMENTED FOR THIS ERROR TYPE.
04406  M00S03610.ppr     +++|*                         BIT 12 = 1 IF UNRECOVERED (RETRY LIMIT
04407  M00S03611.ppr     +++|*                         REACHED).
04408  M00S03612.ppr     +++|*                (MSGH - MSGH+4) = PARTIAL *EMB* MESSAGE HEADER.
04409  M00S03613.ppr     +++|*                (HEDR - HEDR+11) = PARTIAL BML MESSAGE HEADER.
04410  M00S03614.ppr     +++|*                (DDMD - DDMD+4) = DEVICE DEPENDENT MESSAGE DATA.
04411  M00S03615.ppr     +++|*                (MB - MB+5) = UNCHANGED.
04412  M00S03616.ppr     +++|*
04413  M00S03617.ppr     +++|*         USES   T1 - T3, T7, CM - CM+4.
04414  M00S03618.ppr     +++|*
04415  M00S03619.ppr     +++|*         MACROS MONITOR, MSERR.
04416  M00S03620.ppr     +++|
04417  M00S03621.ppr     +++|
04418  M00S03622.ppr     +++| GEM      ENTRY              *7EN* ENTRY
04419  M00S03623.ppr     +++|
04420  M00S03624.ppr     +++|*         DETERMINE WHETHER OR NOT TO TRY AND REVERSE THE CHANNELS IN
04421  M00S03625.ppr     +++|*         WORD *DALL* OF THE MST FOR THIS DEVICE.  CHANNEL REVERSAL
04422  M00S03626.ppr     +++|*         INCREASES THE LIKELIHOOD THAT THE DRIVER WILL BE GIVEN THE
04423  M00S03627.ppr     +++|*         ALTERNATE PATH TO THE DEVICE ON THE NEXT ERROR RETRY.  THIS
04424  M00S03628.ppr     +++|*         MIGHT IMPROVE THE CHANCES FOR ERROR RECOVERY.  CERTAIN TYPES
04425  M00S03629.ppr     +++|*         OF ERRORS OCCUR ON THE DATA PATH (E.G. CONTROLLER MEMORY
04426  M00S03630.ppr     +++|*         ERRORS AND CHANNEL PARITY ERRORS).  CHANNEL REVERSAL IS NOT
04427  M00S03631.ppr     +++|*         DONE FOR SUCH ERRORS SINCE IT IS IMPORTANT TO IDENTIFY A
04428  M00S03632.ppr     +++|*         SOLIDLY FAILING DATA PATH COMPONENT AS SOON AS POSSIBLE TO
04429  M00S03633.ppr     +++|*         AVOID PERFORMANCE DEGRADATION.
04430  M00S03634.ppr     +++|*
Line S03635 Modification History
M01 (Removed by) ns2632
Seq #  *Modification Id* Act 
----------------------------+
04431  M01S03635.ns2632  ---|*         THE CHANNEL ORDER WILL NOT BE REVERSED UNTIL AFTER THE
04432  M01S03636.ns2632  ---|*         SUSPECT FLAG HAS BEEN SET SO THAT SOLID CONTROLLER FAILURES
04433  M01S03637.ns2632  ---|*         WILL BE DETECTED.  *SURT* IS DEFINED SUCH THAT THE CHANNEL
04434  M01S03638.ns2632  ---|*         ORDER WILL NEVER BE REVERSED FOR ERRORS KNOWN TO BE CAUSED
04435  M01S03639.ns2632  ---|*         BY DATA PATH FAILURES.
04436  M01S03640.ns2632  ---|
04437  M00S03641.ppr     +++|          LDI    T2
04438  M00S03642.ppr     +++|          SBK    SURT
04439  M00S03643.ppr     +++|          MJP    GEM4        IF TOO EARLY FOR CHANNEL REVERSAL
04440  M00S03644.ppr     +++|          NJN    GEM2        IF NOT TIME TO SET SUSPECT FLAG
04441  M00S03645.ppr     +++|          LDM    UERR
04442  M00S03646.ppr     +++|          ERRNZ  EPDF-2000   CODE ASSUMES *EPDF* = 2000
04443  M00S03647.ppr     +++|          SHN    21-12
04444  M00S03648.ppr     +++|          MJN    GEM2        IF FAILURE EVALUATION DISABLED
04445  M00S03649.ppr     +++|          LDM    GEMB,WB
04446  M00S03650.ppr     +++|          SHN    21-7
04447  M00S03651.ppr     +++|          PJN    GEM1        IF SUSPECT NOT TO BE SET FOR THIS ERROR
04448  M00S03652.ppr     +++|
04449  M00S03653.ppr     +++|*         SET THE SUSPECT FLAG.
04450  M00S03654.ppr     +++|
04451  M00S03655.ppr     +++|          LDD    T5
04452  M00S03656.ppr     +++|          STD    CM+1
04453  M00S03657.ppr     +++|          LDN    SSES
04454  M00S03658.ppr     +++|          STD    CM+2
04455  M00S03659.ppr     +++|          MONITOR  SEQM
04456  M00S03660.ppr     +++|*         LDD    T5          SET DEVICE ERROR STATUS
04457  M00S03661.ppr     +++|*         STD    CM+1
04458  M00S03662.ppr     +++|          LDN    STDE
04459  M00S03663.ppr     +++|          STD    CM+2
04460  M00S03664.ppr     +++|          LDN    SERS
04461  M00S03665.ppr     +++|          STD    CM+3
04462  M00S03666.ppr     +++|          MONITOR  SMDM
04463  M00S03667.ppr     +++|
04464  M00S03668.ppr     +++|*         IF THE ERROR IS  CAUSED BY A MEDIA FAILURE, STORE THE TRACK
04465  M00S03669.ppr     +++|*         NUMBER IN THE MST TO CAUSE A MEDIA VERIFICATION WHEN THE
04466  M00S03670.ppr     +++|*         TRACK IS RELEASED.
04467  M00S03671.ppr     +++|
04468  M00S03672.ppr     +++| GEM1     LDD    WB
04469  M00S03673.ppr     +++|          LMK    PARE
04470  M00S03674.ppr     +++| GEM2     NJN    GEM3        IF NOT MEDIA ERROR
04471  M00S03675.ppr     +++|          LDD    T5
04472  M00S03676.ppr     +++|          STD    CM+1
04473  M00S03677.ppr     +++|          LDD    T6
04474  M00S03678.ppr     +++|          STD    CM+2
04475  M00S03679.ppr     +++|          LDN    SFTS
04476  M00S03680.ppr     +++|          STD    CM+3
04477  M00S03681.ppr     +++|          MONITOR  SMDM
04478  M00S03682.ppr     +++|
04479  M00S03683.ppr     +++|*         REVERSE CHANNELS IN MST ENTRY.
04480  M00S03684.ppr     +++|
04481  M00S03685.ppr     +++| GEM3     LDD    T5
04482  M00S03686.ppr     +++|          STD    CM+1
04483  M00S03687.ppr     +++|          LDN    RVCS        *SCSM* SUBFUNCTION
04484  M00S03688.ppr     +++|          STD    CM+3
04485  M00S03689.ppr     +++|          MONITOR  SCSM
04486  M00S03690.ppr     +++|
04487  M00S03691.ppr     +++|*         DETERMINE WHETHER OR NOT THIS IS A RECOVERABLE ERROR.
04488  M00S03692.ppr     +++|
04489  M00S03693.ppr     +++| GEM4     LDM    DENR
04490  M00S03694.ppr     +++|          NJN    GEM4.1      IF NON-RECOVERABLE
04491  M00S03695.ppr     +++|          LDD    T7
04492  M00S03696.ppr     +++|          LMK    UCTM
04493  M00S03697.ppr     +++|          ZJN    GEM5        IF UNCONDITIONAL JOB TERMINATION MODE
04494  M00S03698.ppr     +++|          LDM    GEMB,WB
04495  M00S03699.ppr     +++|          SHN    0-10
04496  M00S03700.ppr     +++|          LPN    3
04497  M00S03701.ppr     +++|          ZJN    GEM5        IF NON-RECOVERABLE ERROR
04498  M00S03702.ppr     +++|          LPN    1
04499  M00S03703.ppr     +++| GEM4.1   NJN    GEM6        IF RECOVERABLE ERROR
04500  M00S03704.ppr     +++|          LDI    T3
04501  M00S03705.ppr     +++|          ZJN    GEM6        IF READ
04502  M00S03706.ppr     +++| GEM5     AOM    DENR        SET *NON-RECOVERABLE ERROR* FLAG
04503  M00S03707.ppr     +++|
04504  M00S03708.ppr     +++|*         INCREMENT THE RETRY COUNT AND ADD IT TO THE BML MESSAGE,
04505  M00S03709.ppr     +++|*         EXCEPT IN THE CASE WHERE A CONTINUE FUNCTION WILL BE ISSUED
04506  M00S03710.ppr     +++|*         (4400 OR 4600 GENERAL STATUS).  IF THE RETRY COUNT HAS
04507  M00S03711.ppr     +++|*         REACHED THE LIMIT DEFINED FOR THE CURRENT ERROR TYPE, A
04508  M00S03712.ppr     +++|*         FLAG IS SET TO INDICATE THAT THE ERROR IS UNRECOVERED.
04509  M00S03713.ppr     +++|
04510  M00S03714.ppr     +++|
04511  M00S03715.ppr     +++| GEM6     LDI    T1
04512  M00S03716.ppr     +++|          SHN    21-4
04513  M00S03717.ppr     +++|          MJN    GEM7        IF RECOVERY IN PROGRESS (4400/4600 STATUS)
04514  M00S03718.ppr     +++|          LDI    T3
04515  M00S03719.ppr     +++|          ZJN    GEM6.1      IF NOT A WRITE OPERATION
04516  M00S03720.ppr     +++|          LDD    WB
04517  M00S03721.ppr     +++|          LMK    NRDE
04518  M00S03722.ppr     +++|          ZJN    GEM7        IF *NOT READY*
04519  M00S03723.ppr     +++| GEM6.1   AOI    T2          INCREMENT RETRY COUNT
04520  M00S03724.ppr     +++|          SBM    GEMA,WB
04521  M00S03725.ppr     +++|          MJN    GEM7        IF NOT YET UNRECOVERED
04522  M00S03726.ppr     +++|          LDI    T1          SET UNRECOVERED FLAG
04523  M00S03727.ppr     +++|          LPC    -2000
04524  M00S03728.ppr     +++|          LMC    2000
04525  M00S03729.ppr     +++|          STI    T1
04526  M00S03730.ppr     +++| GEM7     LDI    T2
04527  M00S03731.ppr     +++|          SHN    6
04528  M00S03732.ppr     +++|          RAM    HEDR+6
04529  M00S03733.ppr     +++|          LDM    GEMB,WB     SET/CLEAR *ERROR COUNT INCREMENT* FLAG
04530  M00S03734.ppr     +++|          SHN    0-12
04531  M00S03735.ppr     +++|          ZJN    GEM9        IF NO BML MESSAGE/NO ERROR COUNT INCREMENT
04532  M00S03736.ppr     +++|          SHN    0-1
04533  M00S03737.ppr     +++|          ZJN    GEM8        IF BML MESSAGE AND ERROR COUNT INCREMENT
04534  M00S03738.ppr     +++|          LDI    T1
04535  M00S03739.ppr     +++|          SHN    21-12
04536  M00S03740.ppr     +++|          PJN    GEM9        IF NOT UNRECOVERED
04537  M00S03741.ppr     +++| GEM8     LDM    DEDT
04538  M00S03742.ppr     +++|          LPN    17
04539  M00S03743.ppr     +++|          LMK    /COMSDFS/D6DE
04540  M00S03744.ppr     +++|          NJN    GEM8.1      IF NOT *6DE* CALL
04541  M00S03745.ppr     +++|          LDD    WB
04542  M00S03746.ppr     +++|          LMK    ADDE
04543  M00S03747.ppr     +++|          NJN    GEM9        IF NOT ADDRESS ERROR
04544  M00S03748.ppr     +++| GEM8.1   LDC    4000        SET BML MESSAGE/ERROR COUNT INCREMENT FLAG
04545  M00S03749.ppr     +++|          RAI    T1
04546  M00S03750.ppr     +++|
04547  M00S03751.ppr     +++|*         ADD THE SYMPTOM CODE TO THE BML MESSAGE HEADER.
04548  M00S03752.ppr     +++|
04549  M00S03753.ppr     +++|          LDM    GEMB,WB
04550  M00S03754.ppr     +++|          LPC    177
04551  M00S03755.ppr     +++|          STM    HEDR+1
04552  M00S03756.ppr     +++|          LMK    /COMSDFS/HS0040
04553  M00S03757.ppr     +++|          NJN    GEM9        IF NOT A PARITY ERROR
04554  M00S03758.ppr     +++|          LDI    T3          MODIFY CODE IF WRITE PARITY ERROR
04555  M00S03759.ppr     +++|          RAM    HEDR+1
04556  M00S03760.ppr     +++|          ERRNZ  /COMSDFS/HS0040+1-/COMSDFS/HS0041
04557  M00S03761.ppr     +++| GEM9     MSERR  7EO         EXECUTE *7EO*
04558  M00S03762.ppr     +++|
04559  M00S03763.ppr     +++|*         THE FOLLOWING TABLE LISTS THE RETRY COUNT LIMITS FOR ALL
04560  M00S03764.ppr     +++|*         ERROR TYPES.
04561  M00S03765.ppr     +++|
04562  M00S03766.ppr     +++|          LIST   G
04563  M00S03767.ppr     +++| GEMA     EQU    *-1
04564  M00S03768.ppr     +++|          ECHO   1,ERRCODE=("DREC")
04565  M00S03769.ppr     +++|          CON    RTC._ERRCODE      "TXT._ERRCODE" ERROR
04566  M00S03770.ppr     +++|          LIST   *
04567  M00S03771.ppr     +++|          SPACE  4,15
04568  M00S03772.ppr     +++|*         THE FOLLOWING TABLE CONTAINS INFORMATION RELATED TO EACH
04569  M00S03773.ppr     +++|*         ERROR TYPE.  ITS FORMAT IS -
04570  M00S03774.ppr     +++|*                VFD    2/ERROR COUNT INCREMENT, BML MESSAGE INDICATOR
04571  M00S03775.ppr     +++|*                            0    DO NOT INCREMENT MST ERROR COUNT
04572  M00S03776.ppr     +++|*                                 AND DO NOT ISSUE BML MESSAGE.
04573  M00S03777.ppr     +++|*                            1    INCREMENT MST ERROR COUNT AND ISSUE
04574  M00S03778.ppr     +++|*                                 BML MESSAGE.
04575  M00S03779.ppr     +++|*                            2    INCREMENT MST ERROR COUNT AND ISSUE
04576  M00S03780.ppr     +++|*                                 BML MESSAGE IF UNRECOVERED ERROR.
04577  M00S03781.ppr     +++|*                VFD    2/RECOVERABILITY INDICATOR
04578  M00S03782.ppr     +++|*                            0    NON-RECOVERABLE.
04579  M00S03783.ppr     +++|*                            1    RECOVERABLE.
04580  M00S03784.ppr     +++|*                            2    RECOVERABLE IF READ REQUEST.
04581  M00S03785.ppr     +++|*                VFD    1/SUSPECT FLAG
04582  M00S03786.ppr     +++|*                            0    DO NOT SET *SUSPECT* FLAG.
04583  M00S03787.ppr     +++|*                            1    SET *SUSPECT* FLAG.
04584  M00S03788.ppr     +++|*                VFD    7/SYMPTOM CODE
04585  M00S03789.ppr     +++|*                            IF THIS FIELD IS ZERO, NO BML MESSAGE WILL
04586  M00S03790.ppr     +++|*                            BE ISSUED FOR THE ERROR TYPE.
04587  M00S03791.ppr     +++|
04588  M00S03792.ppr     +++|          LIST   G
04589  M00S03793.ppr     +++| GEMB     EQU    *-1
04590  M00S03794.ppr     +++|          ECHO   1,EC=("DREC")
04591  M00S03795.ppr     +++|          VFD    2/IEC._EC,2/REC._EC,1/SUS._EC,7/SYM._EC
04592  M00S03796.ppr     +++|          LIST   *
04593  M00S03797.ppr     +++|
04594  M00S03798.ppr     +++|
04595  M00S03799.ppr     +++|          ERRNG  10000-*     *7EN* HAS OVERFLOWED
04596  M00S03800.ppr     +++|          BSS    10000-*     (SPARES)
04597  M00S03801.ppr     +++|          CON    GEM-1       (T0) = ENTRY ADDRESS - 1
04598  M00S03802.ppr     +++|          CON    DEST        (T1) = DEST
04599  M00S03803.ppr     +++|          CON    DERC        (T2) = DERC
04600  M00S03804.ppr     +++|          CON    DERW        (T3) = DERW
04601  M00S03805.ppr     +++|          ERRNZ  LN-*        INCORRECT *7EN* OVERLAY LENGTH
04602  M00S03806.ppr     +++|          QUAL   *
04603  M00S03807.ppr     +++| 7EO      MSOVL  7562,T2,DDMD+4,(ERROR MESSAGE GENERATOR.)
04604  M00S03808.ppr     +++|          SPACE  4,10
04605  M00S03809.ppr     +++|***       7EO - COMPLETE ERROR MESSAGE.
04606  M00S03810.ppr     +++|*         C. R. LUND.        81/10/08.
04607  M00S03811.ppr     +++|          SPACE  4,10
04608  M00S03812.ppr     +++|*                *7EO* IS CALLED BY *7EN* TO ISSUE A GENERIC MASS
04609  M00S03813.ppr     +++|*         STORAGE ERROR MESSAGE TO *MS2W* AND TO FINISH CONSTRUCTING
04610  M00S03814.ppr     +++|*         THE BML MESSAGE.  IF THE ERROR OCCURRED ON AN ISD DEVICE,
04611  M00S03815.ppr     +++|*         *7EO* MAY CALL *7KI* TO EXECUTE LEVEL ONE DIAGNOSTICS BEFORE
04612  M00S03816.ppr     +++|*         PROCEEDING TO *7EP*.  IN ALL OTHER CASES *7EP* IS CALLED
04613  M00S03817.ppr     +++|*         DIRECTLY BY *7EO*.
04614  M00S03818.ppr     +++| CEM      SPACE  4,20
04615  M00S03819.ppr     +++|**        CEM - COMPLETE ERROR MESSAGE.
04616  M00S03820.ppr     +++|*
04617  M00S03821.ppr     +++|*         ENTRY  (T1) = DEST.
04618  M00S03822.ppr     +++|*                (T2) = 2.
04619  M00S03823.ppr     +++|*                (T4) = CHANNEL NUMBER.
04620  M00S03824.ppr     +++|*                (T5) = EST ORDINAL.
04621  M00S03825.ppr     +++|*                (WB) = ERROR CODE.
04622  M00S03826.ppr     +++|*                (CHRV) = CHANNEL RESERVATION WORD.
04623  M00S03827.ppr     +++|*                         BIT 5 = 1 IF SYSTEM FILE READ.
04624  M00S03828.ppr     +++|*                (DEDT) = ERROR PROCESSING CONTROL WORD.
04625  M00S03829.ppr     +++|*                (DEST) = ERROR PROCESSING CONTROL WORD.
04626  M00S03830.ppr     +++|*                (MSD)  = MASS STORAGE DESIGNATOR WORD.
04627  M00S03831.ppr     +++|*                (MSFW) = INITIAL CHANNEL IF *6DI*, *6DJ* OR *6DP*.
04628  M00S03832.ppr     +++|*                (MSGH - MSGH+4) = PARTIAL *EMB* MESSAGE HEADER.
04629  M00S03833.ppr     +++|*                (HEDR - HEDR+11) = PARTIAL BML MESSAGE HEADER.
04630  M00S03834.ppr     +++|*                (DDMD - DDMD+4) = DEVICE DEPENDENT MESSAGE DATA.
04631  M00S03835.ppr     +++|*                (MB) = ORIGINAL (T3 - T7).
04632  M00S03836.ppr     +++|*                (MB+1) = ORIGINAL (WB - WB+4).
04633  M00S03837.ppr     +++|*                (MB+2 - MB+5) = DRIVER DEPENDENT PART OF BML MESSAGE
04634  M00S03838.ppr     +++|*                                (FOR FORMAT, SEE INDIVIDUAL DRIVERS).
04635  M00S03839.ppr     +++|*
04636  M00S03840.ppr     +++|*         EXIT   TO *7KI*, IF LEVEL ONE DIAGNOSTICS MUST BE RUN ON AN
04637  M00S03841.ppr     +++|*                          ISD DEVICE.
04638  M00S03842.ppr     +++|*                TO *7EP*, OTHERWISE.
04639  M00S03843.ppr     +++|*                (T3 - T7) = RESTORED FROM MESSAGE BUFFER.
04640  M00S03844.ppr     +++|*                (WB - WB+4) = RESTORED FROM MESSAGE BUFFER.
04641  M00S03845.ppr     +++|*                (MSD) = MASS STORAGE DESIGNATOR WORD.
04642  M00S03846.ppr     +++|*                        BITS AFFECTED BY THIS OVERLAY -
04643  M00S03847.ppr     +++|*                        BITS 5-0 = 0.
04644  M00S03848.ppr     +++|*                (MSGH - MSGH+4) = *EMB* MESSAGE HEADER.
04645  M00S03849.ppr     +++|*                (HEDR - HEDR+11) = BML MESSAGE HEADER.
04646  M00S03850.ppr     +++|*                (DDMD - DSFA+4) = DEVICE DEPENDENT MESSAGE DATA.
04647  M00S03851.ppr     +++|*                (MB+3 - MB+5) = UNCHANGED.
04648  M00S03852.ppr     +++|*
04649  M00S03853.ppr     +++|*         USES   T6.
04650  M00S03854.ppr     +++|*
04651  M00S03855.ppr     +++|*         MACROS MSERR.
04652  M00S03856.ppr     +++|
04653  M00S03857.ppr     +++|
04654  M00S03858.ppr     +++| CEM      ENTRY              *7EO* ENTRY
04655  M00S03859.ppr     +++|
04656  M00S03860.ppr     +++|*         ADD THE DRIVER TYPE AND INITIAL AND RECOVERY CHANNELS TO THE
04657  M00S03861.ppr     +++|*         BML MESSAGE HEADER.
04658  M00S03862.ppr     +++|
04659  M00S03863.ppr     +++|          LDM    DEDT        ADD DRIVER TYPE TO MESSAGE
04660  M00S03864.ppr     +++|          LPN    17
04661  M00S03865.ppr     +++|          STD    T6
04662  M00S03866.ppr     +++|          SHN    10-0
04663  M00S03867.ppr     +++|          RAM    HEDR+1
04664  M00S03868.ppr     +++|          SHN    0-10
04665  M00S03869.ppr     +++|          SBK    /COMSDFS/DRCH
04666  M00S03870.ppr     +++|          PJN    CEM1        IF NO CHANNEL IN MESSAGE
04667  M00S03871.ppr     +++|          LDM    MSFW        ADD INITIAL CHANNEL TO MESSAGE
04668  M00S03872.ppr     +++|          RAM    HEDR+2
04669  M00S03873.ppr     +++|          LDD    T4          ADD RECOVERY CHANNEL TO MESSAGE
04670  M00S03874.ppr     +++|          SHN    6
04671  M00S03875.ppr     +++|          STM    HEDR+7
04672  M00S03876.ppr     +++|
04673  M00S03877.ppr     +++|*         IF ERROR IS UNRECOVERED, SET A FLAG IN THE BML MESSAGE.
04674  M00S03878.ppr     +++|
04675  M00S03879.ppr     +++| CEM1     LDI    T1
04676  M00S03880.ppr     +++|          SHN    0-12
04677  M00S03881.ppr     +++|          LPN    1
04678  M00S03882.ppr     +++|          RAM    HEDR+6
04679  M00S03883.ppr     +++|          LDM    CEMD,T6     SET BML MESSAGE LENGTH
04680  M00S03884.ppr     +++|          STM    MSGH+3
04681  M00S03885.ppr     +++|
04682  M00S03886.ppr     +++|*         POST AN ERROR MESSAGE IN *MS2W* INDICATING THE TYPE OF ERROR
04683  M00S03887.ppr     +++|*         AND THE DEVICE ON WHICH THE ERROR OCCURRED.
04684  M00S03888.ppr     +++|
04685  M00S03889.ppr     +++|          LDM    CEMC,WB     PLACE ERROR TYPE IN *MS2W* MESSAGE
04686  M00S03890.ppr     +++|          STM    CEMA+3
04687  M00S03891.ppr     +++|          LDD    T5          PUT EST ORDINAL INTO *MS2W* MESSAGE
04688  M00S03892.ppr     +++|          SCN    7
04689  M00S03893.ppr     +++|          STD    T0
04690  M00S03894.ppr     +++|          SHN    -3
04691  M00S03895.ppr     +++|          LMD    T0
04692  M00S03896.ppr     +++|          SCN    70
04693  M00S03897.ppr     +++|          RAM    CEMA+1
04694  M00S03898.ppr     +++|          LDD    T5
04695  M00S03899.ppr     +++|          LPN    7
04696  M00S03900.ppr     +++|          SHN    6
04697  M00S03901.ppr     +++|          RAM    CEMA+2
04698  M00S03902.ppr     +++|
04699  M00S03903.ppr     +++|*         RESTORE ALL SCRATCH CELLS.  READ IN THE FIRST WORD OF THE
04700  M00S03904.ppr     +++|*         DRIVER DEPENDENT PART OF THE BML MESSAGE FROM THE MESSAGE
04701  M00S03905.ppr     +++|*         BUFFER SO THAT IT WILL NOT BE DESTROYED BY A LATER *ENDMS* OR
04702  M00S03906.ppr     +++|*         *UTEM* FUNCTION.
04703  M00S03907.ppr     +++|
04704  M00S03908.ppr     +++|          LDD    MA          RESTORE DRIVER PARAMETERS
04705  M00S03909.ppr     +++|          CRM    T3,ON
04706  M00S03910.ppr     +++|          CRM    WB,ON       RESTORE CELLS (WB - WB+4)
04707  M00S03911.ppr     +++|          CRM    DSFA,ON     READ FIRST WORD OF BML MESSAGE TEXT
04708  M00S03912.ppr     +++|          ERRPL  DSFA+5-*    DATA OVERLAYS CODE
04709  M00S03913.ppr     +++|          LDM    MSD         FORCE DRIVER LOAD ON NEXT *SETMS*
04710  M00S03914.ppr     +++|          SCN    77          PRESERVE OTHER DATA SET BY *LMSM*
04711  M00S03915.ppr     +++|          STM    MSD
04712  M00S03916.ppr     +++|
04713  M00S03917.ppr     +++|*         CALL THE NEXT OVERLAY.  *7KI* WILL BE CALLED IF THE ERROR
04714  M00S03918.ppr     +++|*         OCCURRED ON AN ISD DEVICE AND *LEVEL 1* DIAGNOSTICS MUST BE
04715  M00S03919.ppr     +++|*         RUN.  *7EP* WILL BE CALLED IN ALL OTHER CASES.
04716  M00S03920.ppr     +++|
04717  M00S03921.ppr     +++|          LDI    T1
04718  M00S03922.ppr     +++|          LPC    3040
04719  M00S03923.ppr     +++|          LMC    2040
04720  M00S03924.ppr     +++|          NJN    CEM3        IF NOT UNRECOVERED ISD DRIVE ERROR
04721  M00S03925.ppr     +++|          LDM    UERR
04722  M00S03926.ppr     +++|          ERRNZ  EPND-1000   CODE ASSUMES VALUE
04723  M00S03927.ppr     +++|          SHN    21-11
04724  M00S03928.ppr     +++|          MJN    CEM3        IF *NO LEVEL 1 DIAGNOSTICS* SET ON *SETMS*
04725  M00S03929.ppr     +++|          LDM    CHRV
04726  M00S03930.ppr     +++|          LPN    40
04727  M00S03931.ppr     +++|          NJN    CEM3        IF *READSYS* OPERATION
04728  M00S03932.ppr     +++|          SOM    CEMA+4      CHANGE MESSAGE TEXT
04729  M00S03933.ppr     +++|          LDD    CP          WRITE *7KI* MESSAGE TO *MS2W*
04730  M00S03934.ppr     +++|          ADK    MS2W
04731  M00S03935.ppr     +++|          CWM    CEMA,ON
04732  M00S03936.ppr     +++|          CWM    CEMB,T2
04733  M00S03937.ppr     +++|          MSERR  7KI         CALL *7KI*
04734  M00S03938.ppr     +++|
04735  M00S03939.ppr     +++| CEM3     LDD    CP
04736  M00S03940.ppr     +++|          ADK    MS2W
04737  M00S03941.ppr     +++|          CWM    CEMA,TR
04738  M00S03942.ppr     +++|          MSERR  7EP         EXECUTE *7EP*
04739  M00S03943.ppr     +++|
04740  M00S03944.ppr     +++|
04741  M00S03945.ppr     +++| CEMA     DATA   C*EQ000 XX ERROR RETRY UNDERWAY.*
04742  M00S03946.ppr     +++| CEMB     DATA   C*IAGNOSTICS RUNNING.*
04743  M00S03947.ppr     +++|
04744  M00S03948.ppr     +++|*         THE FOLLOWING TABLE LISTS THE TWO CHARACTER MNEMONICS
04745  M00S03949.ppr     +++|*         CORRESPONDING TO EACH MASS STORAGE ERROR TYPE.
04746  M00S03950.ppr     +++|
04747  M00S03951.ppr     +++|          LIST   G
04748  M00S03952.ppr     +++| CEMC     EQU    *-1
04749  M00S03953.ppr     +++|          ECHO   1,ERRCODE=("DREC")
04750  M00S03954.ppr     +++|          CON    EMN._ERRCODE      "TXT._ERRCODE" ERROR
04751  M00S03955.ppr     +++|          CON    0           LAST WORD OF TABLE MUST NOT BE .LT. 7777
04752  M00S03956.ppr     +++|          LIST   *
04753  M00S03957.ppr     +++|
04754  M00S03958.ppr     +++|*         THE FOLLOWING TABLE LISTS THE LENGTH OF THE BML
04755  M00S03959.ppr     +++|*         MESSAGE PRODUCED BY EACH DRIVER.
04756  M00S03960.ppr     +++|
04757  M00S03961.ppr     +++| CEMD     INDEX
04758  M00S03962.ppr     +++|          INDEX  /COMSDFS/D6DI,10
04759  M00S03963.ppr     +++|          INDEX  /COMSDFS/D6DJ,10
04760  M00S03964.ppr     +++|          INDEX  /COMSDFS/D6DP,5
04761  M00S03965.ppr     +++|          INDEX  /COMSDFS/D6DE,5
04762  M00S03966.ppr     +++|          INDEX  /COMSDFS/D6DX,5
04763  M00S03967.ppr     +++|          INDEX  /COMSDFS/D6DX+1
04764  M00S03968.ppr     +++|
04765  M00S03969.ppr     +++|
04766  M00S03970.ppr     +++|          ERRNG  10000-*     *7EO* HAS OVERFLOWED
04767  M00S03971.ppr     +++|          BSS    10000-*     (SPARES)
04768  M00S03972.ppr     +++|          CON    CEM-1       (T0) = ENTRY ADDRESS - 1
04769  M00S03973.ppr     +++|          CON    DEST        (T1) = DEST
04770  M00S03974.ppr     +++|          CON    2           (T2) = 2
04771  M00S03975.ppr     +++|*                            (T3) = ERROR CODE
04772  M00S03976.ppr     +++|          ERRNZ  LN-*        INCORRECT *7EO* OVERLAY LENGTH
04773  M00S03977.ppr     +++|          QUAL   *
Line S03978 Modification History
M01 (Removed by) ns2632
Seq #  *Modification Id* Act 
----------------------------+
04774  M01S03978.ns2632  ---| 7EP      MSOVL  7637,T2,DSFA+4,(MASS STORAGE ERROR PROCESSOR.)
Line S00001 Modification History
M01 (Added by) ns2632
Seq #  *Modification Id* Act 
----------------------------+
04775  M01S00001.ns2632  +++| 7EP      MSOVL  7620,T2,DSFA+4,(MASS STORAGE ERROR PROCESSOR.)
04776  M00S03979.ppr     +++|          SPACE  4
04777  M00S03980.ppr     +++|***       7EP - DISK ERROR PROCESSING.
04778  M00S03981.ppr     +++|*         W. E. GOEBEL.      78/04/01.
04779  M00S03982.ppr     +++|          SPACE  4
04780  M00S03983.ppr     +++|***              *7EP* IS CALLED BY *7EO* TO DETERMINE HOW PROCESSING
04781  M00S03984.ppr     +++|*         OF THIS ERROR SHOULD CONTINUE.
04782  M00S03985.ppr     +++|*
04783  M00S03986.ppr     +++|*         AN *ENDMS* WILL BE ISSUED EXCEPT IN THE FOLLOWING CASES -
04784  M00S03987.ppr     +++|*
04785  M00S03988.ppr     +++|*                1) A CONTINUE FUNCTION MUST BE ISSUED.  *7EP* CALLS
04786  M00S03989.ppr     +++|*                   *7SI*.
04787  M00S03990.ppr     +++|*                2) *7DP* CALLED FOR IMMEDIATE RETURN.  *7EP* CALLS
04788  M00S03991.ppr     +++|*                   *7SP*.
04789  M00S03992.ppr     +++|*                3) CONTROLWARE MUST BE RELOADED OR A CHANNEL MUST BE
04790  M00S03993.ppr     +++|*                   DOWNED.  *7EP* CALLS *7II*.
04791  M00S03994.ppr     +++|*                4) THE *DE* ERROR PROCESSING OPTION WAS SPECIFIED ON
04792  M00S03995.ppr     +++|*                   THE *SETMS* CALL.
04793  M00S03996.ppr     +++|*
04794  M00S03997.ppr     +++|*         FOR ALL OTHER CASES AN *ENDMS* WILL BE DONE AND PROCESSING
04795  M00S03998.ppr     +++|*         WILL CONTINUE AS FOLLOWS -
04796  M00S03999.ppr     +++|*
04797  M00S04000.ppr     +++|*                1) IF THE CALLER SELECTED IMMEDIATE RETURN ON THE
04798  M00S04001.ppr     +++|*                   ERROR, *7EP* CALLS *7ES*.
04799  M00S04002.ppr     +++|*                2) IF THE ERROR IS A RESERVE ERROR NOT YET AT RETRY
04800  M00S04003.ppr     +++|*                   LIMIT, *7EP* DELAYS AND THEN REENTERS THE DRIVER AT
04801  M00S04004.ppr     +++|*                   TO RETRY THE OPERATION.
04802  M00S04005.ppr     +++|*                3) IF THE OPERATION IS A *READSYS* ON A SYSTEM DEVICE,
04803  M00S04006.ppr     +++|*                   THE OPERATION WILL BE RETRIED INDEFINITELY.  THE
04804  M00S04007.ppr     +++|*                   SYSTEM DEVICE SELECTION ALGORITHM IN *MTR* ENSURES
04805  M00S04008.ppr     +++|*                   THAT IF A SYSTEM DEVICE FAILS AND AN ALTERNATE ONE
04806  M00S04009.ppr     +++|*                   EXISTS, THAT ONE WILL BE SELECTED ON THE NEXT
04807  M00S04010.ppr     +++|*                   RETRY.  TO RETRY THE OPERATION, *7EP* REENTERS THE
04808  M00S04011.ppr     +++|*                   DRIVER.
04809  M00S04012.ppr     +++|*                4) IF THE ERROR IS UNRECOVERED, *7EP* CALLS *7EQ* TO
04810  M00S04013.ppr     +++|*                   ISSUE THE BML MESSAGE BUILT BY *7EL* - *7EO*.
04811  M00S04014.ppr     +++|*                5) FOR ALL OTHER CASES IN WHICH THE ERROR IS NOT YET
04812  M00S04015.ppr     +++|*                   UNRECOVERED, *7EP* WILL REENTER THE DRIVER TO RETRY
04813  M00S04016.ppr     +++|*                   THE OPERATION.
04814  M00S04017.ppr     +++| DEP      SPACE  4,25
04815  M00S04018.ppr     +++|**        DEP - DISK ERROR PROCESSING.
04816  M00S04019.ppr     +++|*
04817  M00S04020.ppr     +++|*         ENTRY  (T1) = DEST.
04818  M00S04021.ppr     +++|*                (T2) = DEEC.
Line S00002 Modification History
M01 (Added by) ns2632
Seq #  *Modification Id* Act 
----------------------------+
04819  M01S00002.ns2632  +++|*                (T5) = EST ORDINAL.
04820  M00S04022.ppr     +++|*                (CHRV) = DRIVER CONTROL WORD.
04821  M00S04023.ppr     +++|*                (DEDT) = ERROR PROCESSING CONTROL WORD.
04822  M00S04024.ppr     +++|*                (DEEC) = ERROR CODE.
04823  M00S04025.ppr     +++|*                (DENR) = 1 IF NON-RECOVERABLE ERROR.
04824  M00S04026.ppr     +++|*                (DEST) = ERROR PROCESSING CONTROL WORD.
04825  M00S04027.ppr     +++|*                (DEXA) = EXIT ADDRESS.
04826  M00S04028.ppr     +++|*                (UERR) = ERROR PROCESSING OPTIONS.
04827  M00S04029.ppr     +++|*                (MSGH - MSGH+4) = PARTIAL *EMB* MESSAGE HEADER.
04828  M00S04030.ppr     +++|*                (HEDR - HEDR+11) = BML MESSAGE HEADER.
04829  M00S04031.ppr     +++|*                (DDMD - DSFA+4) = DEVICE DEPENDENT MESSAGE DATA.
04830  M00S04032.ppr     +++|*                (MB+3 - MB+5) = LAST THREE WORDS OF DRIVER DEPENDENT
04831  M00S04033.ppr     +++|*                                PART OF BML MESSAGE.  (FOR FORMAT, SEE
04832  M00S04034.ppr     +++|*                                INDIVIDUAL DRIVERS.)
04833  M00S04035.ppr     +++|*
04834  M00S04036.ppr     +++|*         EXIT   (MSGH - MSGH+4) = PARTIAL *EMB* MESSAGE HEADER.
04835  M00S04037.ppr     +++|*                (HEDR - HEDR+11) = BML MESSAGE HEADER.
04836  M00S04038.ppr     +++|*                (DDMD - DSFA+4) = DEVICE DEPENDENT MESSAGE DATA.
04837  M00S04039.ppr     +++|*                (MB+3 - MB+5) = UNCHANGED.
04838  M00S04040.ppr     +++|*
04839  M00S04041.ppr     +++|*         USES   T1, CM - CM+4.
04840  M00S04042.ppr     +++|*
Line S04043 Modification History
M01 (Removed by) ns2632
Seq #  *Modification Id* Act 
----------------------------+
04841  M01S04043.ns2632  ---|*         MACROS DELAY, ENDMS, MSERR, PAUSE, SFA.
Line S00003 Modification History
M01 (Added by) ns2632
Seq #  *Modification Id* Act 
----------------------------+
04842  M01S00003.ns2632  +++|*         MACROS DELAY, ENDMS, MONITOR, MSERR, PAUSE, SFA.
04843  M00S04044.ppr     +++|
04844  M00S04045.ppr     +++|
04845  M00S04046.ppr     +++| DEP      ENTRY              *7EP* ENTRY
04846  M00S04047.ppr     +++|
04847  M00S04048.ppr     +++|          LDI    T2
04848  M00S04049.ppr     +++|          SBK    NRVE
04849  M00S04050.ppr     +++|          PJN    DEP1        IF SPECIAL CHANNEL ACTION NOT NEEDED
04850  M00S04051.ppr     +++|          LDM    DEDT
04851  M00S04052.ppr     +++|          LPN    17
04852  M00S04053.ppr     +++|          LMK    /COMSDFS/D6DI
04853  M00S04054.ppr     +++|          ERRNZ  /COMSDFS/D6DI-/COMSDFS/D6DJ  CODE DEPENDS ON VALUE
04854  M00S04055.ppr     +++|          NJN    DEP1        IF NOT *6DI*/*6DJ* CALL
Line S00004 Modification History
M01 (Added by) ns2632
Seq #  *Modification Id* Act 
----------------------------+
04855  M01S00004.ns2632  +++|          LDD    T5          ENSURE SUSPECT SET FOR PATH FAILURES
04856  M01S00005.ns2632  +++|          STD    CM+1
04857  M01S00006.ns2632  +++|          LDK    SSES
04858  M01S00007.ns2632  +++|          STD    CM+2
04859  M01S00008.ns2632  +++|          MONITOR  SEQM
04860  M00S04056.ppr     +++|          LDI    T1
04861  M00S04057.ppr     +++|          SHN    21-12
04862  M00S04058.ppr     +++|          MJN    DEP1        IF UNRECOVERED ERROR
Line S00009 Modification History
M01 (Added by) ns2632
Seq #  *Modification Id* Act 
----------------------------+
04863  M01S00009.ns2632  +++|*         LDD    T5          REVERSE CHANNELS FOR PATH FAILURE
04864  M01S00010.ns2632  +++|*         STD    CM+1
04865  M01S00011.ns2632  +++|          LDK    RVCS
04866  M01S00012.ns2632  +++|          STD    CM+3
04867  M01S00013.ns2632  +++|          MONITOR  SCSM
04868  M00S04059.ppr     +++|          MSERR  7II         EXECUTE *7II*
04869  M00S04060.ppr     +++|
04870  M00S04061.ppr     +++| DEP1     LDI    T1
04871  M00S04062.ppr     +++|          SHN    21-4
04872  M00S04063.ppr     +++|          PJN    DEP4        IF NOT IMMEDIATE RETURN TO DRIVER
04873  M00S04064.ppr     +++| DEP2     LDM    DEXA
04874  M00S04065.ppr     +++|          STD    CM
04875  M00S04066.ppr     +++|          LJM    0,CM        RETURN TO DRIVER
04876  M00S04067.ppr     +++|
04877  M00S04068.ppr     +++| DEP2.1   LDD    TH          SET IMMEDIATE RETURN TO CALLER
04878  M00S04069.ppr     +++|          RAM    DEST
04879  M00S04070.ppr     +++| DEP3     MSERR  7ES         EXECUTE *7ES*
04880  M00S04071.ppr     +++|
04881  M00S04072.ppr     +++| DEP4     LDM    UERR
04882  M00S04073.ppr     +++|          ERRNZ  EPDE-400-EPSM  CODE ASSUMES VALUE
04883  M00S04074.ppr     +++|          SHN    21-10
04884  M00S04075.ppr     +++|          MJN    DEP5        IF *ENDMS* DISABLED
04885  M00S04076.ppr     +++|          ENDMS
04886  M00S04077.ppr     +++| DEP5     LDI    T1
04887  M00S04078.ppr     +++|          SHN    21-11
04888  M00S04079.ppr     +++|          MJN    DEP3        IF RETURN TO CALLER SELECTED
04889  M00S04080.ppr     +++|          SHN    11-12+22
04890  M00S04081.ppr     +++|          MJN    DEP9        IF UNRECOVERED
04891  M00S04082.ppr     +++|          LDI    T2
04892  M00S04083.ppr     +++|          SBK    RESE
04893  M00S04084.ppr     +++|          MJN    DEP2        IF NOT A RESERVE ERROR
04894  M00S04085.ppr     +++| DEP5.1   LDC    250D        ALLOW OPERATOR TO SEE B-DISPLAY MESSAGE
04895  M00S04086.ppr     +++|          STD    T1
04896  M00S04087.ppr     +++| DEP6     PAUSE
04897  M00S04088.ppr     +++|          LDD    CM+1
04898  M00S04089.ppr     +++|          LMN    ORET
04899  M00S04090.ppr     +++|          ZJP    DEP2.1      IF OPERATOR OVERRIDE
04900  M00S04091.ppr     +++|          DELAY  8D
04901  M00S04092.ppr     +++|          SOD    T1
04902  M00S04093.ppr     +++| DEP7     NJN    DEP6        IF NOT END OF DELAY
04903  M00S04094.ppr     +++|          LDD    CP          CLEAR MESSAGE
04904  M00S04095.ppr     +++|          ADN    MS2W
04905  M00S04096.ppr     +++|          CWD    T1
04906  M00S04097.ppr     +++| DEP8     LJM    DEP2        REENTER DRIVER AT RETRY ADDRESS
04907  M00S04098.ppr     +++|
04908  M00S04099.ppr     +++| DEP9     SFA    EST,T5
04909  M00S04100.ppr     +++|          ADK    EQDE
04910  M00S04101.ppr     +++|          CRD    CM
04911  M00S04102.ppr     +++|          LDD    CM
04912  M00S04103.ppr     +++|          SHN    21-12
04913  M00S04104.ppr     +++|          PJN    DEP10       IF NOT SYSTEM DEVICE
04914  M00S04105.ppr     +++|          LDM    CHRV
04915  M00S04106.ppr     +++|          SHN    21-5
04916  M00S04107.ppr     +++|          PJN    DEP10       IF NOT *READSYS* OPERATION
04917  M00S04108.ppr     +++| DEP9.1   LDC    -2000       CLEAR UNRECOVERED FLAG IN *DEST*
04918  M00S04109.ppr     +++|          RAI    T1
04919  M00S04110.ppr     +++|          SOM    HEDR+6      CLEAR UNRECOVERED FLAG IN BML MESSAGE
04920  M00S04111.ppr     +++|          SOM    DERC        ENSURE RETRY COUNT DOESN-T WRAP
04921  M00S04112.ppr     +++|          UJP    DEP5.1      CHECK FOR OVERRIDE / RETRY
04922  M00S04113.ppr     +++|
04923  M00S04114.ppr     +++| DEP10    LDI    T2
04924  M00S04115.ppr     +++|          SBN    IRTE
04925  M00S04116.ppr     +++|          PJN    DEP9.1      IF INDEFINITE RETRY CONDITION
04926  M00S04117.ppr     +++|          MSERR  7EQ         EXECUTE *7EQ*
04927  M00S04118.ppr     +++|
04928  M00S04119.ppr     +++|
04929  M00S04120.ppr     +++|          ERRNG  10000-*     *7EP* HAS OVERFLOWED
04930  M00S04121.ppr     +++|          BSS    10000-*     (SPARES)
04931  M00S04122.ppr     +++|          CON    DEP-1       ENTRY ADDRESS - 1
04932  M00S04123.ppr     +++|          CON    DEST        (T1) = DEST
04933  M00S04124.ppr     +++|          CON    DEEC        (T2) = DEEC
04934  M00S04125.ppr     +++|          ERRNZ  LN-*        INCORRECT *7EP* OVERLAY LENGTH
04935  M00S04126.ppr     +++|          QUAL   *
Line S04127 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
04936  M01S04127.ns2769  ---| 7EQ      MSOVL  7632,T2,DSFA+4,(MASS STORAGE ERROR PROCESSOR.)
Line S00001 Modification History
M01 (Added by) ns2769
M02 (Removed by) ns2777
Seq #  *Modification Id* Act 
----------------------------+
04937  M02S00001.ns2777  ---| 7EQ      MSOVL  7550,T2,DSFA+4,(MASS STORAGE ERROR PROCESSOR.)
Line S00001 Modification History
M01 (Added by) ns2777
Seq #  *Modification Id* Act 
----------------------------+
04938  M01S00001.ns2777  +++| 7EQ      MSOVL  7543,T2,DSFA+4,(MASS STORAGE ERROR PROCESSOR.)
04939  M00S04128.ppr     +++| 7EQ      SPACE  4,10
04940  M00S04129.ppr     +++|***       7EQ - MASS STORAGE ERROR PROCESSOR.
04941  M00S04130.ppr     +++|*         K. F. REHM.        84/02/01.
04942  M00S04131.ppr     +++| 7EQ      SPACE  4,10
04943  M00S04132.ppr     +++|***              *7EQ* IS CALLED BY *7EP* FOR UNRECOVERED ERRORS AND
04944  M00S04133.ppr     +++|*         VIA THE *RDS*/*WDS* EXIT ADDRESS FOR RECOVERED ERRORS.  IT
04945  M00S04134.ppr     +++|*         COPIES THE BML MESSAGE BUILT BY *7EL* - *7EO* INTO THE
04946  M00S04135.ppr     +++|*         *EMB* AND THEN REQUESTS *1MD* TO ISSUE THE MESSAGE.
04947  M00S04136.ppr     +++|*         *7EQ* EXITS TO *7ES*.
04948  M00S04137.ppr     +++| 7EQ      SPACE  4,25
04949  M00S04138.ppr     +++|**        DEQ - ISSUE DRIVER BML MESSAGES.
04950  M00S04139.ppr     +++|*
04951  M00S04140.ppr     +++|*         ENTRY  (T1) = DEST.
04952  M00S04141.ppr     +++|*                (T2) = MSGH+3.
04953  M00S04142.ppr     +++|*                (DEDT) = ERROR PROCESSING CONTROL WORD.
04954  M00S04143.ppr     +++|*                (DEGS) = GENERAL STATUS TAKEN BY *7CI* IF
04955  M00S04144.ppr     +++|*                         *6DI*/*6DJ* CALL.
04956  M00S04145.ppr     +++|*                (DELF) = LAST FUNCTION ISSUED BEFORE TIMEOUT.
04957  M00S04146.ppr     +++|*                (DENR) = 1 IF NON-RECOVERABLE ERROR.
04958  M00S04147.ppr     +++|*                (DEST) = ERROR PROCESSING CONTROL WORD.
04959  M00S04148.ppr     +++|*                (UERR) = ERROR PROCESSING OPTIONS.
04960  M00S04149.ppr     +++|*                (MSGH - MSGH+4) = *EMB* MESSAGE HEADER.
04961  M00S04150.ppr     +++|*                (HEDR - HEDR+11) = BML MESSAGE HEADER.
04962  M00S04151.ppr     +++|*                (DDMD - DSFA+4) = DEVICE DEPENDENT MESSAGE DATA.
04963  M00S04152.ppr     +++|*                (MB+3 - MB+5) = LAST THREE WORDS OF DRIVER DEPENDENT
04964  M00S04153.ppr     +++|*                                PART OF BML MESSAGE (FOR FORMAT, SEE
04965  M00S04154.ppr     +++|*                                INDIVIDUAL DRIVERS).
04966  M00S04155.ppr     +++|*
04967  M00S04156.ppr     +++|*         EXIT   TO *7ES*.
04968  M00S04157.ppr     +++|*
04969  M00S04158.ppr     +++|*         USES   CM - CM+4, T3 - T7, WB - WB+4.
04970  M00S04159.ppr     +++|*
04971  M00S04160.ppr     +++|*         MACROS DELAY, ENDMS, EXECUTE, MONITOR, MSERR.
04972  M00S04161.ppr     +++|
04973  M00S04162.ppr     +++| DEQ      ENTRY              *7EQ* ENTRY
04974  M00S04163.ppr     +++|
04975  M00S04164.ppr     +++|          LDI    T1
04976  M00S04165.ppr     +++|          SHN    0-11
04977  M00S04166.ppr     +++|          LPN    5
04978  M00S04167.ppr     +++|          LMN    4
04979  M00S04168.ppr     +++|          NJP    DEQ6        IF NO BML MESSAGE SHOULD BE ISSUED
04980  M00S04169.ppr     +++|          LDM    DEDT
04981  M00S04170.ppr     +++|          LPN    20
04982  M00S04171.ppr     +++|          NJN    DEQ1        IF RETURN TO ERROR PROCESSOR
04983  M00S04172.ppr     +++|
04984  M00S04173.ppr     +++|*         READ THE REMAINDER OF THE BML MESSAGE IN FROM THE MESSAGE
04985  M00S04174.ppr     +++|*         BUFFER AND THEN COPY THE MESSAGE TO THE *EMB*.  CALL
04986  M00S04175.ppr     +++|*         *1MD* TO ISSUE THE MESSAGE.
04987  M00S04176.ppr     +++|
04988  M00S04177.ppr     +++|          LDM    UERR
04989  M00S04178.ppr     +++|          ERRNZ  EPDE-400-EPSM  CODE ASSUMES VALUE
04990  M00S04179.ppr     +++|          SHN    21-10
04991  M00S04180.ppr     +++|          MJN    DEQ1        IF *ENDMS* DISABLED
04992  M00S04181.ppr     +++|          ENDMS
04993  M00S04182.ppr     +++| DEQ1     LDD    MA          GET REMAINDER OF DRIVER DEPENDENT DATA
04994  M00S04183.ppr     +++|          ADN    3
04995  M00S04184.ppr     +++|          CRM    DSFA+5,TR
04996  M00S04185.ppr     +++|          ERRPL  DSFA+24-*   DATA OVERLAYS CODE
04997  M00S04186.ppr     +++|          SBN    1
04998  M00S04187.ppr     +++|          CWD    WB          SAVE CELLS (WB - WB+4)
04999  M00S04188.ppr     +++|          SBN    1
05000  M00S04189.ppr     +++|          CWD    T3          SAVE CELLS (T3 - T7)
Line S00001 Modification History
M01 (Added by) ns2769b
Seq #  *Modification Id* Act 
----------------------------+
05001  M01S00001.ns2769b +++|
05002  M01S00002.ns2769b +++|*         THE FOLLOWING CODE EMULATES THE ERROR MESSAGE BUFFER
05003  M01S00003.ns2769b +++|*         HANDLING FOUND AND DOCUMENTED IN COMMON DECK *COMPIMB*.
05004  M01S00004.ns2769b +++|
Line S00002 Modification History
M01 (Added by) ns2777
Seq #  *Modification Id* Act 
----------------------------+
05005  M01S00002.ns2777  +++|          LDD    TH          SET MAXIMUM RETRY COUNT
05006  M01S00003.ns2777  +++|          STD    T3
05007  M00S04190.ppr     +++|          LDN    EMBP
05008  M00S04191.ppr     +++|          CRD    T5          FETCH *EMB* POINTER
Line S00004 Modification History
M01 (Added by) ns2777
Seq #  *Modification Id* Act 
----------------------------+
05009  M01S00004.ns2777  +++|
05010  M01S00005.ns2777  +++|*         TRY TO OBTAIN THE *EMB* INTERLOCK.
05011  M01S00006.ns2777  +++|
05012  M00S04192.ppr     +++| DEQ2     LDN    ZERL
05013  M00S04193.ppr     +++|          CRD    CM          PRESET *UTEM* REQUEST
05014  M00S04194.ppr     +++|          LDD    T7
05015  M00S04195.ppr     +++|          STD    CM+4        SET ADDRESS OF INTERLOCK WORD
05016  M00S04196.ppr     +++|          LDD    T6
05017  M00S04197.ppr     +++|          STD    CM+3
05018  M00S04198.ppr     +++|          MONITOR  UTEM      GET *EMB* INTERLOCK
05019  M00S04199.ppr     +++|          LDD    CM+1
05020  M00S04200.ppr     +++|          ZJN    DEQ3        IF INTERLOCK OBTAINED
Line S04201 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
05021  M01S04201.ns2769  ---|          DELAY
Line S00002 Modification History
M01 (Added by) ns2769
M02 (Removed by) ns2777
Seq #  *Modification Id* Act 
----------------------------+
05022  M02S00002.ns2777  ---| DEQ2.1   DELAY
Line S00007 Modification History
M01 (Added by) ns2777
Seq #  *Modification Id* Act 
----------------------------+
05023  M01S00007.ns2777  +++| DEQ2.1   DELAY  10          DELAY 1 MILLISECOND
05024  M00S04202.ppr     +++|          UJN    DEQ2        RETRY INTERLOCK ATTEMPT
Line S00008 Modification History
M01 (Added by) ns2777
Seq #  *Modification Id* Act 
----------------------------+
05025  M01S00008.ns2777  +++|
05026  M01S00009.ns2777  +++|*         *EMB* INTERLOCKED - GET *EMB* HEADER WORDS.
05027  M00S04203.ppr     +++|
Line S04204 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
05028  M01S04204.ns2769  ---| DEQ3     LDD    T6          READ INTERLOCK WORD
Line S00003 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
05029  M01S00003.ns2769  +++| DEQ3     LDD    T6          GET *EMB* HEADER 1 (FLAGS, *IN*)
05030  M00S04205.ppr     +++|          SHN    14
05031  M00S04206.ppr     +++|          LMD    T7
05032  M00S04207.ppr     +++|          CRD    WB
Line S04208 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
05033  M01S04208.ns2769  ---|          LDI    T2          EXTRACT MESSAGE LENGTH
05034  M01S04209.ns2769  ---|          STD    T3
05035  M01S04210.ns2769  ---|          ADD    WB+3        CURRENT WORD COUNT
05036  M01S04211.ns2769  ---|          SBK    EMBLL-1
05037  M01S04212.ns2769  ---|          MJN    DEQ4        IF ROOM IN BUFFER FOR MESSAGE
05038  M01S04213.ns2769  ---|          LDN    1
05039  M01S04214.ns2769  ---|          STD    WB+1        SET DATA LOST FLAG
05040  M01S04215.ns2769  ---|          UJN    DEQ5        CLEAR *EMB* INTERLOCK
Line S00004 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
05041  M01S00004.ns2769  +++|          ADN    1           GET *EMB* HEADER 2 (*OUT*, *LIMIT*)
05042  M01S00005.ns2769  +++|          CRD    CM
Line S00010 Modification History
M01 (Added by) ns2777
Seq #  *Modification Id* Act 
----------------------------+
05043  M01S00010.ns2777  +++|
05044  M01S00011.ns2777  +++|*         SEE IF MESSAGE WILL FIT IN THE BUFFER.
05045  M01S00012.ns2777  +++|
05046  M01S00013.ns2777  +++|          LDI    T2          EXTRACT MESSAGE LENGTH
05047  M01S00014.ns2777  +++|          STD    CM
05048  M01S00015.ns2777  +++| DEQ3.1   LDD    WB+3        *IN*
05049  M01S00016.ns2777  +++|          SBD    CM+3        *OUT*
05050  M01S00017.ns2777  +++|          PJN    DEQ3.4      IF *IN* .GE. *OUT*
05051  M01S00018.ns2777  +++|          ADD    CM          MESSAGE LENGTH
05052  M01S00019.ns2777  +++|          MJN    DEQ3.5      IF MESSAGE FITS BETWEEN *IN* AND *OUT*
05053  M01S00020.ns2777  +++| DEQ3.2   RJM    IMD         CALL *1MD*
05054  M01S00021.ns2777  +++|          ZJN    DEQ3.3      IF UNABLE TO CALL *1MD*
05055  M01S00022.ns2777  +++|          LDD    WB+1
05056  M01S00023.ns2777  +++|          NJN    DEQ3.3      IF *MESSAGES LOST* FLAG IS ALREADY SET
05057  M01S00024.ns2777  +++|          SOD    T3
05058  M01S00025.ns2777  +++|          ZJN    DEQ3.3      IF MAXIMUM RETRY COUNT EXCEEDED
Line S00006 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
05059  M01S00006.ns2769  +++|          SOD    WB+4        CLEAR *EMB* INTERLOCK BIT
Line S00007 Modification History
M01 (Added by) ns2769
M02 (Removed by) ns2769b
Seq #  *Modification Id* Act 
----------------------------+
05060  M02S00007.ns2769b ---| DEQ3.1   LDI    T2          EXTRACT MESSAGE LENGTH
Line S00005 Modification History
M01 (Added by) ns2769b
M02 (Removed by) ns2777
Seq #  *Modification Id* Act 
----------------------------+
05061  M02S00005.ns2777  ---|          LDI    T2          EXTRACT MESSAGE LENGTH
Line S00008 Modification History
M01 (Added by) ns2769
M02 (Removed by) ns2777
Seq #  *Modification Id* Act 
----------------------------+
05062  M02S00008.ns2777  ---|          STD    CM
Line S00009 Modification History
M01 (Added by) ns2769
M02 (Removed by) ns2769b
M03 (Removed by) ns2777
Seq #  *Modification Id* Act 
----------------------------+
05063  M03S00009.ns2777  ---|          ADD    WB+3        *IN*
05064  M03S00010.ns2777  ---|          SBD    CM+3        *OUT*
Line S00006 Modification History
M01 (Added by) ns2769b
M02 (Removed by) ns2777
Seq #  *Modification Id* Act 
----------------------------+
05065  M02S00006.ns2777  ---|          LDD    WB+3        *IN*
05066  M02S00007.ns2777  ---| DEQ3.0   SBD    CM+3        *OUT*
05067  M02S00008.ns2777  ---|          PJN    DEQ3.3      IF *IN* .GE. *OUT*
05068  M02S00009.ns2777  ---|          ADD    CM          MESSAGE LENGTH
Line S00011 Modification History
M01 (Added by) ns2769
M02 (Removed by) ns2777
Seq #  *Modification Id* Act 
----------------------------+
05069  M02S00011.ns2777  ---|          MJN    DEQ4        IF MESSAGE FITS BETWEEN *IN* AND *OUT*
Line S00012 Modification History
M01 (Added by) ns2769
M02 (Removed by) ns2769b
M03 (Removed by) ns2777
Seq #  *Modification Id* Act 
----------------------------+
05070  M03S00012.ns2777  ---|          SBD    CM+4        *LIMIT*
05071  M03S00013.ns2777  ---|          MJN    DEQ3.3      IF MESSAGE FITS BUT *OUT*.LE.*IN*
05072  M03S00014.ns2777  ---|          RJM    IMD         CALL *1MD*
Line S00010 Modification History
M01 (Added by) ns2769b
M02 (Removed by) ns2777
Seq #  *Modification Id* Act 
----------------------------+
05073  M02S00010.ns2777  ---| DEQ3.1   RJM    IMD         CALL *1MD*
Line S00015 Modification History
M01 (Added by) ns2769
M02 (Removed by) ns2777
Seq #  *Modification Id* Act 
----------------------------+
05074  M02S00015.ns2777  ---|          ZJN    DEQ3.2      IF UNABLE TO CALL *1MD*
Line S00016 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
05075  M01S00016.ns2769  +++|          LDD    T6          RELEASE *EMB* INTERLOCK
05076  M01S00017.ns2769  +++|          SHN    14
05077  M01S00018.ns2769  +++|          LMD    T7
05078  M01S00019.ns2769  +++|          CWD    WB
05079  M01S00020.ns2769  +++|          UJN    DEQ2.1      RETRY
Proceed to Part 3
cdc/nos2.source/opl.opl871/deck/ppr.002.txt ยท Last modified: by 127.0.0.1