User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:1md

Deck 1MD

Library Member Format: MODIFY

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.1md     +++|          IDENT  1MD,MPR
00002  M00S00002.1md     +++|          PERIPH
00003  M00S00003.1md     +++|          BASE   MIXED
00004  M00S00004.1md     +++|          SST
00005  M00S00005.1md     +++|          TITLE  1MD - MASS STORAGE ERROR MESSAGE PROCESSOR.
00006  M00S00006.1md     +++|*COMMENT  1MD - MS ERROR MESSAGE PROCESSOR.
Line S00007 Modification History
M01 (Removed by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00007.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORPORATION, 1985.
Line S00001 Modification History
M01 (Added by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00008  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00009  M00S00008.1md     +++| 1MD      SPACE  4,10
00010  M00S00009.1md     +++|***       1MD - MASS STORAGE ERROR MESSAGE PROCESSOR.
00011  M00S00010.1md     +++|*         S. L. BETH         80/03/17.
00012  M00S00011.1md     +++|*         R. M. DANISCH      85/12/31.
00013  M00S00012.1md     +++|*         P. D. HAAS         86/07/01.
00014  M00S00013.1md     +++|          SPACE  4,15
00015  M00S00014.1md     +++|***       *1MD* IS CALLED BY THE MASS STORAGE DRIVERS AND THE 819
00016  M00S00015.1md     +++|*         INTERRUPT HANDLER TO ISSUE MASS STORAGE ERROR MESSAGES.  FOR
00017  M00S00016.1md     +++|*         819 ERRORS, *1MD* MUST CONSTRUCT THE BML MESSAGE BEFORE
00018  M00S00017.1md     +++|*         ISSUING IT.  FOR ALL OTHER DEVICE TYPES, IT IS ASSUMED THE
00019  M00S00018.1md     +++|*         DRIVER HAS ALREADY BUILT THE MESSAGE BEFORE CALLING *1MD*.
00020  M00S00019.1md     +++|*         ONLY BML MESSAGES ARE ISSUED FOR 819 DEVICES.  BUT BML, ERROR
00021  M00S00020.1md     +++|*         LOG OR SYSTEM DAYFILE MESSAGES MAY BE ISSUED FOR OTHER DEVICE
00022  M00S00021.1md     +++|*         TYPES.
00023  M00S00022.1md     +++|*
00024  M00S00023.1md     +++|*         *1MD* MUST BE CM RESIDENT SINCE A LOAD FROM DISK MAY NOT BE
00025  M00S00024.1md     +++|*         POSSIBLE IN A CONFIGURATION WHERE THE ONLY SYSTEM DEVICE IS
00026  M00S00025.1md     +++|*         THE DEVICE TAKING ERRORS.
00027  M00S00026.1md     +++| 1MD      SPACE  4,10
00028  M00S00027.1md     +++|***       CALL FORMAT -
00029  M00S00028.1md     +++|*
00030  M00S00029.1md     +++|*T        18/ 1MD, 1/, 5/ SCP, 24/, 12/ F
Figure

0111229 F30353640414259 SCP 1MD

00031  M00S00030.1md     +++|*
00032  M00S00031.1md     +++|*         SCP = SYSTEM CONTROL POINT NUMBER.
00033  M00S00032.1md     +++|*         F = 0 IF 819 DEVICE.
00034  M00S00033.1md     +++|*             1 IF NOT 819 DEVICE.
00035  M00S00034.1md     +++| 1MD      SPACE  4,10
00036  M00S00035.1md     +++|***       ERROR LOG MESSAGES.
00037  M00S00036.1md     +++|*
00038  M00S00037.1md     +++|*         * 1MD - MESSAGES LOST.* - *1MD* WAS UNABLE TO FLUSH THE ERROR
00039  M00S00038.1md     +++|*                BUFFER FAST ENOUGH TO KEEP UP WITH THE GENERATION OF
00040  M00S00039.1md     +++|*                ERROR MESSAGES BY THE DRIVER(S).
00041  M00S00040.1md     +++| 1MD      SPACE  4,20
00042  M00S00041.1md     +++|***       BINARY MAINTENANCE LOG ENTRY FORMATS.
00043  M00S00042.1md     +++|*
00044  M00S00043.1md     +++|*         GENERAL FORMAT -
00045  M00S00044.1md     +++|*
00046  M00S00045.1md     +++|*T        12/ ID, 4/ DT, 1/ 0, 7/ SC, 6/ PP, 6/ CH, 6/ 0, 6/ UN, 12/ 0
Figure

011121718232429 0 UN 0 CH303536424344474859 PP SC 0 DT ID

00047  M00S00046.1md     +++|*T,       12/ EO, 6/ RC, 6/ FG, 6/ CR, 6/ 0, 12/ MF, 12/ 0
Figure

01112232429 0 MF 03035364142474859 CR FG RC EO

00048  M00S00047.1md     +++|*T,       12/ EC, 12/ CY, 12/ TS, 12/ LF, 12/ GS
Figure

01112232429 GS LF TS303536474859 TS CY EC

00049  M00S00048.1md     +++|*T,       60/ DETAILED STATUS
Figure

029 DETAILED STATUS3059 DETAILED STATUS

00050  M00S00049.1md     +++|*T,       60/     .
Figure

029 .3059 .

00051  M00S00050.1md     +++|*T,       60/     .
Figure

029 .3059 .

00052  M00S00051.1md     +++|*T,       60/     .
Figure

029 .3059 .

00053  M00S00052.1md     +++|*T,       6/ UFC, 18/ OSR, 18/ ACR, 18/ ESR
Figure

0171829 ESR ACR303536535459 ACR OSR UFC

00054  M00S00053.1md     +++|*
00055  M00S00054.1md     +++|*
00056  M00S00055.1md     +++|*         EXTENDED MEMORY FORMAT -
00057  M00S00056.1md     +++|*
00058  M00S00057.1md     +++|*T        12/ ID, 4/ DT, 1/ 0, 7/ SC, 6/ PP, 6/ CH, 24/ 0
Figure

0232429 0 CH303536424344474859 PP SC 0 DT ID

00059  M00S00058.1md     +++|*T,       12/ EO, 6/ RC, 6/ FG, 6/ CR, 6/ 0, 12/ MF, 12/ 0
Figure

01112232429 0 MF 03035364142474859 CR FG RC EO

00060  M00S00059.1md     +++|*T,       12/ EC, 48/ 0
Figure

029 030474859 0 EC

00061  M00S00060.1md     +++|*T,       12/ FB, 12/ FS, 12/ WC, 24/ AD
Figure

0232429 AD WC303536474859 WC FS FB

00062  M00S00061.1md     +++|*T,       60/ ERROR DATA
Figure

029 ERROR DATA3059 ERROR DATA

00063  M00S00062.1md     +++|*T,       60/ ERROR DATA
Figure

029 ERROR DATA3059 ERROR DATA

00064  M00S00063.1md     +++|*
00065  M00S00064.1md     +++|*
00066  M00S00065.1md     +++|*         819 FORMAT -
00067  M00S00066.1md     +++|*
00068  M00S00067.1md     +++|*T        12/ ID, 4/ DT, 1/, 7/ SC, 36/ ACCESS PATH
Figure

029 ACCESS PATH303536424344474859 ACCESS PATH SC DT ID

00069  M00S00068.1md     +++|*T,       12/ EO, 6/ RC, 6/ FG, 6/ CR, 6/ 0, 24/ 0
Figure

0232429 0 03035364142474859 CR FG RC EO

00070  M00S00069.1md     +++|*T,       12/ PPID, 12/ BYTE COUNT, 36/ ERROR DATA
Figure

029 ERROR DATA303536474859 ERROR DATA BYTE COUNT PPID

00071  M00S00070.1md     +++|*T,       60/ ERROR DATA
Figure

029 ERROR DATA3059 ERROR DATA

00072  M00S00071.1md     +++|*T,       60/ ERROR DATA
Figure

029 ERROR DATA3059 ERROR DATA

00073  M00S00072.1md     +++|*T,       60/ ERROR DATA
Figure

029 ERROR DATA3059 ERROR DATA

00074  M00S00073.1md     +++|*
00075  M00S00074.1md     +++|*
Line S00075 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00076  M01S00075.271l716 ---|*         887 FORMAT -
Line S00001 Modification History
M01 (Added by) 271l716
M02 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
00077  M02S00001.272l774 ---|*         887 / 9853 FORMAT -
Line S00001 Modification History
M01 (Added by) 272l774
M02 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
00078  M02S00001.284l847 ---|*         887 / 9853 / 583X FORMAT -
Line S00001 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
00079  M01S00001.284l847 +++|*         887 / 9853 / 583X / 47444 FORMAT -
00080  M00S00076.1md     +++|*
Line S00077 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
00081  M01S00077.272l774 ---|*T        12/ ID, 4/ DT, 1/ 0, 7/ SC, 6/ PP, 6/ CH, 12/ UN, 6/ PN, 6/ 0
Figure

0561112232429 0 PN UN CH303536424344474859 PP SC 0 DT ID


Line S00002 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
00082  M01S00002.272l774 +++|*T        12/ ID, 4/ DT, 1/0, 7/ SC, 6/PP, 6/CH, 6/EQ, 6/UN, 6/PN, 6/0
Figure

056111217182324290PNUNEQCH303536424344474859PP SC0 DT ID

00083  M00S00078.1md     +++|*T,       12/ EO, 6/ RC, 6/ FG, 12/ 0, 12/ MF, 12/ 0
Figure

01112232429 0 MF 03035364142474859 0 FG RC EO

00084  M00S00079.1md     +++|*T,       12/ IF, 12/ F1, 12/ F2, 12/ F3, 12/ FF
Figure

01112232429 FF F3 F2303536474859 F2 F1 IF

00085  M00S00080.1md     +++|*T,       12/ RS, 12/ RB, 12/ ST, 12/ CY, 12/ TS
Figure

01112232429 TS CY ST303536474859 ST RB RS

00086  M00S00081.1md     +++|*T,       16/ EXS, 16/ IDS, 16/ BSR, 12/ LCM
Figure

01112272829 LCM BSR IDS30434459 IDS EXS

00087  M00S00082.1md     +++|*T,       04/ LCM, 16/ LFN, 16/ CRG, 16/ CRG, 08/ CRG
Figure

Bitfield Rendering Failure
======== ========= =======
The field description 
[
{ "name": " CRG", "bits":  08, "type": 5 },
{ "name": " CRG", "bits":  16, "type": 4 },
{ "name": " CRG", "bits":  16, "type": 3 },
{ "name": " LFN", "bits":  16, "type": 2 },
{ "name": " LCM", "bits": 04, "type": 1 }
]


 is invalid.

Please check your syntax and try again.

00088  M00S00083.1md     +++|*T,       08/ CRG, 16/ CRG, 16/ 000, 16/ 000, 04/ 000
Figure

Bitfield Rendering Failure
======== ========= =======
The field description 
[
{ "name": " 000", "bits":  04, "type": 5 },
{ "name": " 000", "bits":  16, "type": 4 },
{ "name": " 000", "bits":  16, "type": 3 },
{ "name": " CRG", "bits":  16, "type": 2 },
{ "name": " CRG", "bits": 08, "type": 1 }
]


 is invalid.

Please check your syntax and try again.

00089  M00S00084.1md     +++|*T,       12/ 000, 16/ TRG, 16/ TRG, 16/ TRG
Figure

0151629 TRG TRG303132474859 TRG TRG 000

00090  M00S00085.1md     +++|*T,       16/ SLS, 16/ SLS, 16/ SLS, 12/ SLS
Figure

01112272829 SLS SLS SLS30434459 SLS SLS

00091  M00S00086.1md     +++|*T,       04/ SLS, 16/ SLS, 16/ SLS, 16/ SLS, 08/ DVS
Figure

Bitfield Rendering Failure
======== ========= =======
The field description 
[
{ "name": " DVS", "bits":  08, "type": 5 },
{ "name": " SLS", "bits":  16, "type": 4 },
{ "name": " SLS", "bits":  16, "type": 3 },
{ "name": " SLS", "bits":  16, "type": 2 },
{ "name": " SLS", "bits": 04, "type": 1 }
]


 is invalid.

Please check your syntax and try again.

00092  M00S00087.1md     +++|*T,       08/ DVS, 16/ DVS, 16/ DVS, 16/ DVS, 04/ DVS
Figure

Bitfield Rendering Failure
======== ========= =======
The field description 
[
{ "name": " DVS", "bits":  04, "type": 5 },
{ "name": " DVS", "bits":  16, "type": 4 },
{ "name": " DVS", "bits":  16, "type": 3 },
{ "name": " DVS", "bits":  16, "type": 2 },
{ "name": " DVS", "bits": 08, "type": 1 }
]


 is invalid.

Please check your syntax and try again.

00093  M00S00088.1md     +++|*T,       12/ DVS, 16/ DVS, 16/ DVS, 16/ DVS
Figure

0151629 DVS DVS303132474859 DVS DVS DVS

00094  M00S00089.1md     +++|*
00095  M00S00090.1md     +++|*
00096  M00S00091.1md     +++|*         COMMON FIELD DESCRIPTIONS -
00097  M00S00092.1md     +++|*
Line S00093 Modification History
M01 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
00098  M01S00093.284l847 ---|*         ID     MESSAGE ID.
00099  M01S00094.284l847 ---|*                6      819
00100  M01S00095.284l847 ---|*                14     885-42
00101  M01S00096.284l847 ---|*                115    895
Line S00097 Modification History
M01 (Removed by) 272l774
M02 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
00102  M02S00097.284l847 ---|*                120    887 (SMALL SECTOR)
00103  M02S00098.284l847 ---|*                121    887 (LARGE SECTOR)
Line S00003 Modification History
M01 (Added by) 272l774
M02 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
00104  M02S00003.284l847 ---|*                120    887 (4KB SECTOR)
00105  M02S00004.284l847 ---|*                121    887 (16KB SECTOR)
Line S00002 Modification History
M01 (Added by) 271l716
M02 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
00106  M02S00002.284l847 ---|*                124    9853
Line S00005 Modification History
M01 (Added by) 272l774
M02 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
00107  M02S00005.284l847 ---|*                130    5832 (1X SSD)
00108  M02S00006.284l847 ---|*                131    5832 (2X SSD)
00109  M02S00007.284l847 ---|*                132    5833 (1X SABRE)
00110  M02S00008.284l847 ---|*                133    5833 (1XP SABRE)
00111  M02S00009.284l847 ---|*                134    5833 (2X SABRE)
00112  M02S00010.284l847 ---|*                137    5833 (2XP SABRE)
Line S00001 Modification History
M01 (Added by) ns2768
M02 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
00113  M02S00001.284l847 ---|*                142    5838 (1X ELITE)
00114  M02S00002.284l847 ---|*                143    5838 (1XP ELITE)
Line S00002 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
00115  M01S00002.284l847 +++|*         ID     MESSAGE ID.  SEE *COMSDFS*.
00116  M00S00099.1md     +++|*         DT     DRIVER TYPE.  SEE *COMSDFS*.
00117  M00S00100.1md     +++|*         SC     SYMPTOM CODE.  SEE *COMSDFS*.
00118  M00S00101.1md     +++|*         PP     PP NUMBER OF DRIVER.
00119  M00S00102.1md     +++|*         CH     CHANNEL NUMBER.
Line S00011 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
00120  M01S00011.272l774 +++|*         EQ     EQUIPMENT (CONTROL MODULE/CONTROLLER) NUMBER.
00121  M00S00103.1md     +++|*         UN     UNIT NUMBER.
00122  M00S00104.1md     +++|*         PN     PORT NUMBER.
00123  M00S00105.1md     +++|*         EO     EST ORDINAL.
00124  M00S00106.1md     +++|*         RC     RETRY COUNT.
00125  M00S00107.1md     +++|*         FG     FLAGS (GENERAL)
00126  M00S00108.1md     +++|*                BIT 41      UNUSED (ZERO).
00127  M00S00109.1md     +++|*                BIT 40      UNUSED (ZERO).
00128  M00S00110.1md     +++|*                BIT 39      SET IF NOT FIRST BLOCK OF MESSAGE.
00129  M00S00111.1md     +++|*                BIT 38      SET IF NOT LAST BLOCK OF MESSAGE.
00130  M00S00112.1md     +++|*                BIT 37      SET/CLEAR IF WRITE/READ OPERATION,
00131  M00S00113.1md     +++|*                            RESPECTIVELY.
00132  M00S00114.1md     +++|*                BIT 36      SET/CLEAR IF UNRECOVERED/RECOVERED,
00133  M00S00115.1md     +++|*                            RESPECTIVELY.
00134  M00S00116.1md     +++|*         CR     RECOVERY CHANNEL.
00135  M00S00117.1md     +++|*         MF     MAINFRAME ID.
00136  M00S00118.1md     +++|*         EC     ERROR CODE.
00137  M00S00119.1md     +++|*         CY     CYLINDER AT SEEK TIME.
00138  M00S00120.1md     +++|*         TS     TRACK AND SECTOR AT SEEK TIME.
00139  M00S00121.1md     +++|*         LF     LAST FUNCTION ISSUED.
00140  M00S00122.1md     +++|*         GS     INITIAL GENERAL STATUS.
00141  M00S00123.1md     +++|
00142  M00S00124.1md     +++|
00143  M00S00125.1md     +++|*         EXTENDED MEMORY FIELD DESCRIPTIONS -
00144  M00S00126.1md     +++|*
00145  M00S00127.1md     +++|*         FB     FLAG BITS
00146  M00S00128.1md     +++|*                BIT 59      UNUSED (ZERO).
00147  M00S00129.1md     +++|*                BIT 58      UNUSED (ZERO).
00148  M00S00130.1md     +++|*                BIT 57      UNUSED (ZERO).
00149  M00S00131.1md     +++|*                BIT 56      UNUSED (ZERO).
00150  M00S00132.1md     +++|*                BIT 55      UNUSED (ZERO).
00151  M00S00133.1md     +++|*                BIT 54      UNUSED (ZERO).
00152  M00S00134.1md     +++|*                BIT 53      UNUSED (ZERO).
00153  M00S00135.1md     +++|*                BIT 52      UNUSED (ZERO).
00154  M00S00136.1md     +++|*                BIT 51      UNUSED (ZERO).
00155  M00S00137.1md     +++|*                BIT 50      UNUSED (ZERO).
00156  M00S00138.1md     +++|*                BIT 49      SET IF ERROR DATA WORD TWO PRESENT.
00157  M00S00139.1md     +++|*                BIT 48      SET IF ERROR DATA WORD ONE PRESENT.
00158  M00S00140.1md     +++|*         FS     FUNCTION STATUS.
00159  M00S00141.1md     +++|*         WC     WORD COUNT.
00160  M00S00142.1md     +++|*         AD     EXTENDED MEMORY ADDRESS.
00161  M00S00143.1md     +++|*
00162  M00S00144.1md     +++|*
00163  M00S00145.1md     +++|*         819 FIELD DESCRIPTIONS -
00164  M00S00146.1md     +++|*
00165  M00S00147.1md     +++|*         ACCESS PATH = HARDWARE PATH TO DEVICE.
00166  M00S00148.1md     +++|*         PPID = INPUT REGISTER ADDRESS OF *1MD* PPU.
00167  M00S00149.1md     +++|*         BYTE COUNT = ERROR DATA BYTE COUNT.
00168  M00S00150.1md     +++|*         ERROR DATA = COPY OF DATA FROM *FLPP* DRIVER.
00169  M00S00151.1md     +++|*
00170  M00S00152.1md     +++|*
Line S00153 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00171  M01S00153.271l716 ---|*         887 FIELD DESCRIPTIONS -
Line S00003 Modification History
M01 (Added by) 271l716
M02 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
00172  M02S00003.272l774 ---|*         887 / 9853 FIELD DESCRIPTIONS -
Line S00012 Modification History
M01 (Added by) 272l774
M02 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
00173  M02S00012.284l847 ---|*         887 / 9853 / 583X FIELD DESCRIPTIONS -
Line S00003 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
00174  M01S00003.284l847 +++|*         887 / 9853 / 583X /47444 FIELD DESCRIPTIONS -
00175  M00S00154.1md     +++|*
00176  M00S00155.1md     +++|*         IF  = INITIAL FAULT CODE.
Line S00156 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00177  M01S00156.271l716 ---|*         F1  = *T* REGISTER FAULT CODE.
Line S00004 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00178  M01S00004.271l716 +++|*         F1  = *T* REGISTER FAULT CODE (887 ONLY).
Line S00005 Modification History
M01 (Added by) 271l716
M02 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
00179  M02S00005.272l774 ---|*             = CHANNEL STATUS FAULT CODE (9853 ONLY).
Line S00013 Modification History
M01 (Added by) 272l774
M02 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
00180  M02S00013.284l847 ---|*             = CHANNEL STATUS FAULT CODE (9853/583X ONLY).
Line S00004 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
00181  M01S00004.284l847 +++|*             = CHANNEL STATUS FAULT CODE (9853/583X/47444 ONLY).
00182  M00S00157.1md     +++|*         F2  = STATUS FAULT CODE.
00183  M00S00158.1md     +++|*         F3  = RECOVERY FAULT CODE.
00184  M00S00159.1md     +++|*         FF  = FINAL FAULT CODE.
00185  M00S00160.1md     +++|*         RS  = RESERVED.
00186  M00S00161.1md     +++|*         RB  = RESIDUAL BYTE COUNT.
00187  M00S00162.1md     +++|*         ST  = SECTORS TRANSFERED SINCE SEEK.
Line S00163 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00188  M01S00163.271l716 ---|*         EXS = EXECUTION STATUS.
00189  M01S00164.271l716 ---|*         IDS = IDLE STATUS.
00190  M01S00165.271l716 ---|*         BSR = BIT SIGNIFICANT RESPONSE.
00191  M01S00166.271l716 ---|*         LCM = LAST COMMAND.
00192  M01S00167.271l716 ---|*         LFN = LAST ISI ADAPTOR FUNCTION.
Line S00006 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00193  M01S00006.271l716 +++|*         EXS = EXECUTION STATUS (887 ONLY).
Line S00007 Modification History
M01 (Added by) 271l716
M02 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
00194  M02S00007.272l774 ---|*             = ENDING STATUS (9853 ONLY).
Line S00014 Modification History
M01 (Added by) 272l774
M02 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
00195  M02S00014.284l847 ---|*             = ENDING STATUS (9853/583X ONLY).
Line S00005 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
00196  M01S00005.284l847 +++|*             = ENDING STATUS (9853/583X/47444 ONLY).
Line S00008 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00197  M01S00008.271l716 +++|*         IDS = IDLE STATUS (887 ONLY).
00198  M01S00009.271l716 +++|*         BSR = BIT SIGNIFICANT RESPONSE (887 ONLY).
00199  M01S00010.271l716 +++|*         LCM = LAST COMMAND.
00200  M01S00011.271l716 +++|*         LFN = LAST ISI/IPI ADAPTOR FUNCTION.
00201  M00S00168.1md     +++|*         CRG = CHANNEL REGISTER.
00202  M00S00169.1md     +++|*         TRG = *T* REGISTER.
Line S00170 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00203  M01S00170.271l716 ---|*         SLS = SLAVE STATUS.
00204  M01S00171.271l716 ---|*         DVS = DEVICE STATUS.
Line S00012 Modification History
M01 (Added by) 271l716
M02 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
00205  M02S00012.272l774 ---|*         SLS = SLAVE STATUS (INCLUDES 9853 DEVICE STATUS).
Line S00015 Modification History
M01 (Added by) 272l774
M02 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
00206  M02S00015.284l847 ---|*         SLS = SLAVE STATUS (INCLUDES 9853/583X DEVICE STATUS).
Line S00006 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
00207  M01S00006.284l847 +++|*         SLS = SLAVE STATUS (INCLUDES 9853/583X/47444 DEVICE STATUS).
Line S00013 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00208  M01S00013.271l716 +++|*         DVS = DEVICE STATUS (887 ONLY).
00209  M00S00172.1md     +++|
00210  M00S00173.1md     +++|
00211  M00S00174.1md     +++|*         895 (DMA ONLY) FIELD DESCRIPTIONS -
00212  M00S00175.1md     +++|*
00213  M00S00176.1md     +++|*         UFC    UPPER 4 BITS OF LAST FUNCTION.
00214  M00S00177.1md     +++|*         OSR    OPERATIONAL STATUS REGISTER.
00215  M00S00178.1md     +++|*         ACR    ADAPTOR CONTROL REGISTER.
00216  M00S00179.1md     +++|*         ESR    ERROR STATUS REGISTER.
00217  M00S00180.1md     +++| 1MD      SPACE  4,10
00218  M00S00181.1md     +++|*         COMMON DECKS.
00219  M00S00182.1md     +++|
00220  M00S00183.1md     +++|
00221  M00S00184.1md     +++|*CALL     COMPMAC
00222  M00S00185.1md     +++| QUAL$S   EQU    1           DEFINE NO QUALIFICATION FOR *COMSDFS*
00223  M00S00186.1md     +++|*CALL     COMSDFS
00224  M00S00187.1md     +++|*CALL     COMSEVT
00225  M00S00188.1md     +++|*CALL     COMSMSC
00226  M00S00189.1md     +++|*CALL     COMSMSP
00227  M00S00190.1md     +++|*CALL     COMSPIM
00228  M00S00191.1md     +++|          TITLE  MACRO DEFINITIONS.
00229  M00S00192.1md     +++| MACROS   SPACE  4,10
00230  M00S00193.1md     +++|**        MACRO DEFINITIONS.
00231  M00S00194.1md     +++|
00232  M00S00195.1md     +++|
Line S00196 Modification History
M01 (Removed by) 1md5
Seq #  *Modification Id* Act 
----------------------------+
00233  M01S00196.1md5    ---|**        TBLM = GENERATE LIST OF ERROR MESSAGE PROCESSORS.
Line S00001 Modification History
M01 (Added by) 1md5
Seq #  *Modification Id* Act 
----------------------------+
00234  M01S00001.1md5    +++|**        TBLM = GENERATE MASS STORAGE TABLES.
00235  M00S00197.1md     +++|*
00236  M00S00198.1md     +++|*         TBLM   EQ
00237  M00S00199.1md     +++|*                EQ = MASS STORAGE EQUIPMENT MNEMONIC.
00238  M00S00200.1md     +++|
00239  M00S00201.1md     +++|
00240  M00S00202.1md     +++|          PURGMAC  TBLM
00241  M00S00203.1md     +++|
00242  M00S00204.1md     +++| TBLM     MACRO  EQ
00243  M00S00205.1md     +++|          VFD    12/2R_EQ
00244  M00S00206.1md     +++| TEMP     RMT
00245  M00S00207.1md     +++| .2       IF     -DEF,P_EQ
00246  M00S00208.1md     +++|          VFD    12/GEMX
00247  M00S00209.1md     +++| .2       ELSE   1
00248  M00S00210.1md     +++|          VFD    12/P_EQ
Line S00211 Modification History
M01 (Removed by) 1md5
Seq #  *Modification Id* Act 
----------------------------+
00249  M01S00211.1md5    ---|          RMT
Line S00002 Modification History
M01 (Added by) 1md5
Seq #  *Modification Id* Act 
----------------------------+
00250  M01S00002.1md5    +++| TEMP     RMT
00251  M01S00003.1md5    +++| TMID     RMT
00252  M01S00004.1md5    +++|          VFD    12/MLID_EQ
00253  M01S00005.1md5    +++| TMID     RMT
00254  M00S00212.1md     +++|          ENDM
00255  M00S00213.1md     +++|          TITLE  ASSEMBLY CONSTANTS.
00256  M00S00214.1md     +++|****      ASSEMBLY CONSTANTS.
00257  M00S00215.1md     +++|
00258  M00S00216.1md     +++|
00259  M00S00217.1md     +++|*         819 GENERAL STATUS FIELDS.
00260  M00S00218.1md     +++|
00261  M00S00219.1md     +++| G1FD     EQU    0           GROUP 1 STATUS FIELD
00262  M00S00220.1md     +++| UNFD     EQU    1           UNIT FIELD
00263  M00S00221.1md     +++| CLFD     EQU    2           CYLINDER ADDRESS
00264  M00S00222.1md     +++| EQFD     EQU    3           3/ MUX CHANNEL, 9/ EST ORDINAL
00265  M00S00223.1md     +++| WCFD     EQU    4           NUMBER OF ERROR PACKET WORDS
00266  M00S00224.1md     +++| ADFD     EQU    5           HEAD AND SECTOR
00267  M00S00225.1md     +++| PCFD     EQU    7           PREVIOUS CYLINDER
00268  M00S00226.1md     +++| PAFD     EQU    10          PREVIOUS HEAD AND SECTOR
00269  M00S00227.1md     +++| EPFD     EQU    11          START OF ERROR PACKET
00270  M00S00228.1md     +++|
00271  M00S00229.1md     +++|*         ERROR PACKET FIELDS.
00272  M00S00230.1md     +++|
00273  M00S00231.1md     +++| G2FD     EQU    0           GROUP 2 STATUS FIELD
00274  M00S00232.1md     +++| SBFD     EQU    1           SUBSYSTEM STATUS
00275  M00S00233.1md     +++| CNFD     EQU    2           CONTROLLER STATUS
00276  M00S00234.1md     +++| RTFD     EQU    3           RETRY COUNT
00277  M00S00235.1md     +++| 1MD      SPACE  4,10
00278  M00S00236.1md     +++|**        DIRECT LOCATION ASSIGNMENTS.
00279  M00S00237.1md     +++|
00280  M00S00238.1md     +++|
00281  M00S00239.1md     +++| BA       EQU    16          BML DATA BUFFER ADDRESS
00282  M00S00240.1md     +++| PA       EQU    17          ERRLOG MESSAGE PARAMETER ADDRESS
00283  M00S00241.1md     +++| ED       EQU    20          ERROR DATA POINTER
00284  M00S00242.1md     +++| WC       EQU    21          PP WORD COUNT
00285  M00S00243.1md     +++| MT       EQU    22          MESSAGE TYPE
00286  M00S00244.1md     +++| BC       EQU    23          ERROR DATA BYTE COUNT
00287  M00S00245.1md     +++| CB       EQU    24          CM WORD BYTE COUNT
00288  M00S00246.1md     +++| EP       EQU    25 - 31     *EMB* POINTER WORD
Line S00247 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00289  M01S00247.ns2769  ---| EH       EQU    32 - 36     *EMB* HEADER WORD
Line S00001 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00290  M01S00001.ns2769  +++| EH       EQU    32 - 36     *EMB* HEADER WORD 1
00291  M00S00248.1md     +++| EO       EQU    37          ERROR MESSAGE OFFSET
00292  M00S00249.1md     +++| LN       EQU    40          MESSAGE LENGTH
00293  M00S00250.1md     +++| EL       EQU    41          *ERROR LOG MESSAGES ISSUED* FLAG
00294  M00S00251.1md     +++| ML       EQU    42          MESSAGES LOST ACCUMULATOR
00295  M00S00252.1md     +++| MD       EQU    43 - 47     MESSAGE DATA ADDRESS (5 LOCATIONS)
00296  M00S00253.1md     +++| CT       EQU    57          CHANNEL TYPE
Line S00002 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00297  M01S00002.ns2769  +++| EX       EQU    60 - 64     *EMB* HEADER WORD 2
00298  M00S00254.1md     +++|****
00299  M00S00255.1md     +++|          TITLE  MAIN PROGRAM.
00300  M00S00256.1md     +++|**        MPR - BUFFERED I/O MESSAGE PROCESSOR.
00301  M00S00257.1md     +++|
00302  M00S00258.1md     +++|
00303  M00S00259.1md     +++|          ORG    PPFW
00304  M00S00260.1md     +++|
00305  M00S00261.1md     +++|
00306  M00S00262.1md     +++| MPR      LDN    EMBP        FETCH *EMB* POINTER WORD
00307  M00S00263.1md     +++|          CRD    EP
00308  M00S00264.1md     +++|          LDN    ZERL        INITIALIZE DIRECT CELLS
00309  M00S00265.1md     +++|          CRD    EL
00310  M00S00266.1md     +++|          ERRNZ  EL+1-ML     CODE DEPENDS ON VALUE
00311  M00S00267.1md     +++|          ERRNZ  ML+1-MD     CODE DEPENDS ON VALUE
Line S00268 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00312  M01S00268.ns2769  ---|          LDD    IR+4
00313  M01S00269.ns2769  ---|          SBN    MPRAL
00314  M01S00270.ns2769  ---|          MJN    MPR1        IF VALID PROCESSOR CODE
00315  M01S00271.ns2769  ---|          LDC    *           CONDITIONALLY HANG PP
00316  M01S00272.ns2769  ---|          STD    CM+1
00317  M01S00273.ns2769  ---|          LDK    PPET        ABORT CALLER
00318  M01S00274.ns2769  ---|          STD    CM+2
00319  M01S00275.ns2769  ---|          MONITOR  CHGM
00320  M01S00276.ns2769  ---|          LJM    MPR4        DROP PP
00321  M01S00277.ns2769  ---|
00322  M01S00278.ns2769  ---| MPR1     RJM    GIL         GET *EMB* INTERLOCK
00323  M01S00279.ns2769  ---|          LDD    EP+1
00324  M01S00280.ns2769  ---|          SHN    14          READ *EMB* HEADER WORD
Line S00003 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00325  M01S00003.ns2769  +++| MPR1     LDD    EP+1
00326  M01S00004.ns2769  +++|          SHN    14          READ *EMB* HEADER WORD 1
00327  M00S00281.1md     +++|          LMD    EP+2
00328  M00S00282.1md     +++|          CRD    EH
Line S00283 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00329  M01S00283.ns2769  ---|          ADN    2           SET MESSAGE DATA ADDRESS
Line S00005 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00330  M01S00005.ns2769  +++|          ADN    1           READ *EMB* HEADER WORD 2
00331  M01S00006.ns2769  +++|          CRD    EX
Line S00284 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00332  M01S00284.ns2769  ---|          ADD    MD
00333  M01S00285.ns2769  ---|          STD    MD+4
00334  M01S00286.ns2769  ---|          SHN    -14
00335  M01S00287.ns2769  ---|          STD    MD+3
00336  M01S00288.ns2769  ---|          LDD    EH+3
00337  M01S00289.ns2769  ---|          SBD    MD
00338  M01S00290.ns2769  ---|          ZJN    MPR2        IF BUFFER EMPTY
00339  M01S00291.ns2769  ---|          STD    T3
00340  M01S00292.ns2769  ---|          SHN    2           SET BYTE COUNT
00341  M01S00293.ns2769  ---|          ADD    T3
00342  M01S00294.ns2769  ---|          STD    WC
00343  M01S00295.ns2769  ---|          LDD    EP+1        READ CONTENTS OF *EMB* INTO PP
Line S00007 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00344  M01S00007.ns2769  +++|          LDD    EH+3        *IN*
00345  M01S00008.ns2769  +++|          SBD    EX+3        *OUT*
00346  M01S00009.ns2769  +++|          ZJP    MPR7        IF NO MORE MESSAGES
Line S00010 Modification History
M01 (Added by) ns2769
M02 (Removed by) ns2769a
Seq #  *Modification Id* Act 
----------------------------+
00347  M02S00010.ns2769a ---| MPR2     LDD    EX+4        *LIMIT*
00348  M02S00011.ns2769a ---|          SBD    EX+3        *OUT*
00349  M02S00012.ns2769a ---|          ZJP    MPR5        IF AT *LIMIT*
00350  M02S00013.ns2769a ---|          PJN    MPR3        IF NOT BEYOND *LIMIT*
00351  M02S00014.ns2769a ---|          MONITOR HNGM
Line S00001 Modification History
M01 (Added by) ns2769a
Seq #  *Modification Id* Act 
----------------------------+
00352  M01S00001.ns2769a +++| MPR2     LDD    EX+3        *OUT*
00353  M01S00002.ns2769a +++|          SBD    EX+4        *LIMIT*
00354  M01S00003.ns2769a +++|          MJN    MPR3        IF *OUT* IN PROPER RANGE
00355  M01S00004.ns2769a +++|          MONITOR HNGM       *OUT* BEYOND *LIMIT*
Line S00015 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00356  M01S00015.ns2769  +++|
00357  M01S00016.ns2769  +++| MPR3     LDD    EP+1        READ NEXT MESSAGE HEADER INTO PP
00358  M00S00296.1md     +++|          SHN    14
00359  M00S00297.1md     +++|          LMD    EP+2
Line S00298 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00360  M01S00298.ns2769  ---|          ADN    1           SKIP HEADER WORD
00361  M01S00299.ns2769  ---|          ADD    MD
00362  M01S00300.ns2769  ---|          CRM    BUFF,T3
00363  M01S00301.ns2769  ---|          LDD    EH+3        OFFSET FOR NEXT PASS
00364  M01S00302.ns2769  ---|          STD    MD
00365  M01S00303.ns2769  ---|          LDN    2           CLEAR INTERLOCK
00366  M01S00304.ns2769  ---|          RJM    CIL
00367  M01S00305.ns2769  ---|          LDM    MPRA,IR+4   SET PROCESSOR ADDRESS
Line S00017 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00368  M01S00017.ns2769  +++|          ADD    EX+3
00369  M01S00018.ns2769  +++|          ADN    2           ALLOW FOR *EMB* HEADER
00370  M01S00019.ns2769  +++|          CRD    CM
00371  M01S00020.ns2769  +++|          LDD    CM+3        MESSAGE LENGTH IN CM WORDS
00372  M01S00021.ns2769  +++|          ZJN    MPR5        IF BUFFER TERMINATOR - RESET *EMB* *OUT*
00373  M01S00022.ns2769  +++|          STD    LN
00374  M01S00023.ns2769  +++|          SHN    2
00375  M01S00024.ns2769  +++|          ADD    LN
00376  M01S00025.ns2769  +++|          STD    WC          MESSAGE LENGTH IN PP WORDS
00377  M01S00026.ns2769  +++|          SBK    BUFFL+1
00378  M01S00027.ns2769  +++|          MJN    MPR4        IF MESSAGE WILL FIT IN BUFFER
Line S00028 Modification History
M01 (Added by) ns2769
M02 (Removed by) ns2769a
Seq #  *Modification Id* Act 
----------------------------+
00379  M02S00028.ns2769a ---|          MONITOR HNGM
Line S00005 Modification History
M01 (Added by) ns2769a
Seq #  *Modification Id* Act 
----------------------------+
00380  M01S00005.ns2769a +++|          MONITOR HNGM       MESSAGE TOO LARGE FOR BUFFER
Line S00029 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00381  M01S00029.ns2769  +++|
00382  M01S00030.ns2769  +++| MPR4     LDD    EP+1        READ COMPLETE MESSAGE INTO PP
00383  M01S00031.ns2769  +++|          SHN    14
00384  M01S00032.ns2769  +++|          LMD    EP+2
00385  M01S00033.ns2769  +++|          ADD    EX+3
00386  M01S00034.ns2769  +++|          ADN    2           ALLOW FOR *EMB* HEADER
00387  M01S00035.ns2769  +++|          CRM    BUFF,LN
00388  M01S00036.ns2769  +++|          LDD    CM+4
00389  M01S00037.ns2769  +++|          SHN    -13
00390  M00S00306.1md     +++|          STD    T1
Line S00307 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00391  M01S00307.ns2769  ---|          RJM    0,T1        PROCESS BUFFER
00392  M01S00308.ns2769  ---|          LDD    EH+1
Line S00038 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00393  M01S00038.ns2769  +++|          LDM    MPRA,T1     SET PROCESSOR ADDRESS
00394  M01S00039.ns2769  +++|          STD    T1
00395  M01S00040.ns2769  +++|          RJM    0,T1        PROCESS MESSAGE
00396  M01S00041.ns2769  +++|          LDD    EX+3        UPDATE *OUT*
00397  M01S00042.ns2769  +++|          ADD    LN
00398  M01S00043.ns2769  +++| MPR5     STD    EX+3
Line S00044 Modification History
M01 (Added by) ns2769
M02 (Removed by) ns2769a
Seq #  *Modification Id* Act 
----------------------------+
00399  M02S00044.ns2769a ---|          LDD    EP+1
Line S00006 Modification History
M01 (Added by) ns2769a
Seq #  *Modification Id* Act 
----------------------------+
00400  M01S00006.ns2769a +++|          SBD    EX+4        *LIMIT*
00401  M01S00007.ns2769a +++|          MJN    MPR5.1      IF *OUT* IN PROPER RANGE
00402  M01S00008.ns2769a +++|          ZJN    MPR5        IF *OUT* AT *LIMIT*
00403  M01S00009.ns2769a +++|          MONITOR HNGM       *OUT* BEYOND *LIMIT*
00404  M01S00010.ns2769a +++|
00405  M01S00011.ns2769a +++| MPR5.1   LDD    EP+1
Line S00045 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00406  M01S00045.ns2769  +++|          SHN    14
00407  M01S00046.ns2769  +++|          LMD    EP+2
00408  M01S00047.ns2769  +++|          ADN    1           UPDATE *EMB* HEADER WORD 2
00409  M01S00048.ns2769  +++|          CWD    EX
00410  M01S00049.ns2769  +++|          LDD    EH+3        *IN*
00411  M01S00050.ns2769  +++|          SBD    EX+3        *OUT*
00412  M01S00051.ns2769  +++| MPR6     NJP    MPR2        IF MORE MESSAGES
00413  M01S00052.ns2769  +++|          LJM    MPR1        REREAD HEADER AND RECHECK
00414  M01S00053.ns2769  +++|
00415  M01S00054.ns2769  +++| MPR7     RJM    GIL         GET INTERLOCK, READ *EMB* HEADER WORD 1
00416  M01S00055.ns2769  +++|          LDD    EH+1        COUNT MESSAGES LOST
00417  M00S00309.1md     +++|          RAD    ML
Line S00310 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00418  M01S00310.ns2769  ---|          UJP    MPR1        CHECK BUFFER AGAIN
00419  M01S00311.ns2769  ---|
00420  M01S00312.ns2769  ---| MPR2     RJM    CIL         CLEAR INTERLOCK AND *1MD* ACTIVE FLAG
00421  M01S00313.ns2769  ---|          LDD    ML
00422  M01S00314.ns2769  ---|          ZJN    MPR3        IF NO MESSAGES WERE LOST
Line S00056 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00423  M01S00056.ns2769  +++|          ZJN    MPR8        IF NO MESSAGES WERE LOST
00424  M00S00315.1md     +++|          STD    EL
00425  M00S00316.1md     +++|          LDC    MPRB+ERLN   ISSUE * 1MD - MESSAGES LOST* MESSAGE
00426  M00S00317.1md     +++|          RJM    DFM
Line S00318 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00427  M01S00318.ns2769  ---| MPR3     LDD    EL
00428  M01S00319.ns2769  ---|          ZJN    MPR4        IF NO ERROR LOG MESSAGES WERE ISSUED
Line S00057 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00429  M01S00057.ns2769  +++| MPR8     LDD    EL
00430  M01S00058.ns2769  +++|          ZJN    MPR9        IF NO ERROR LOG MESSAGES WERE ISSUED
00431  M00S00320.1md     +++|          LDN    ZERL
00432  M00S00321.1md     +++|          CRD    CM
00433  M00S00322.1md     +++|          LDK    ELAE        ISSUE *ERROR LOG ALERT* EVENT
00434  M00S00323.1md     +++|          STD    CM+4
00435  M00S00324.1md     +++|          MONITOR  EATM
Line S00325 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00436  M01S00325.ns2769  ---| MPR4     MONITOR  DPPM      DROP PP
Line S00059 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00437  M01S00059.ns2769  +++| MPR9     RJM    CIL         CLEAR INTERLOCK AND *1MD* ACTIVE FLAG
00438  M01S00060.ns2769  +++|          NJP    MPR6        IF THERE ARE MESSAGES IN THE BUFFER
00439  M01S00061.ns2769  +++|          MONITOR  DPPM      DROP PP
00440  M00S00326.1md     +++|          LJM    PPR         EXIT
00441  M00S00327.1md     +++|
00442  M00S00328.1md     +++|
00443  M00S00329.1md     +++| MPRA     BSS    0           TABLE OF PROCESSOR ADDRESSES
Line S00062 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00444  M01S00062.ns2769  +++|          CON    LOG         NON-819 PROCESSOR
00445  M00S00330.1md     +++|          CON    FMM         819 PROCESSOR
Line S00331 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00446  M01S00331.ns2769  ---|          CON    LOG         NON-819 PROCESSOR
00447  M01S00332.ns2769  ---| MPRAL    EQU    *-MPRA
00448  M00S00333.1md     +++|
00449  M00S00334.1md     +++| MPRB     DATA   C* 1MD - MESSAGES LOST.*
00450  M00S00335.1md     +++|          TITLE  MAIN PROCESSING ROUTINES.
00451  M00S00336.1md     +++| FMM      SPACE  4,10
00452  M00S00337.1md     +++|**        FMM - FORMAT AND ISSUE 819 BML MESSAGE.
00453  M00S00338.1md     +++|*
Line S00339 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00454  M01S00339.ns2769  ---|*         ENTRY  (EH - EH+4) = *EMB* HEADER.
00455  M01S00340.ns2769  ---|*                (BUFF - BUFF+(EH+3)-1) = MESSAGE DATA.
Line S00063 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00456  M01S00063.ns2769  +++|*         ENTRY  (BUFF - BUFF+(EX+3)-1) = MESSAGE TO BE PROCESSED.
00457  M00S00341.1md     +++|*
00458  M00S00342.1md     +++|*         USES   BC, CB, CM+1, ED.
00459  M00S00343.1md     +++|*
00460  M00S00344.1md     +++|*         CALLS  CLM, CPD, DFM, FMT.
00461  M00S00345.1md     +++|
00462  M00S00346.1md     +++|
Line S00347 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00463  M01S00347.ns2769  ---| FMM3     LDD    EH+3
Line S00348 Modification History
M01 (Removed by) 1md3
M02 (Added by) 271l716
M03 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00464  M03S00348.ns2769  ---|          NJN    FMM1        IF MORE MESSAGES TO FORMAT
Line S00001 Modification History
M01 (Added by) 1md3
M02 (Removed by) 271l716
M03 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00465  M03S00001.ns2769  ---|          ZJN    FMMX        IF NO MORE MESSAGES TO FORMAT
00466  M03S00002.ns2769  ---|          SOD    EH+3        ADJUST COUNT FOR HEADER WORD
00467  M03S00003.ns2769  ---|          LDN    5           ADVANCE DATA POINTER BEYOND HEADER WORD
00468  M03S00004.ns2769  ---|          RAD    ED
00469  M03S00005.ns2769  ---|          UJN    FMM1        CONTINUE
Line S00349 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00470  M01S00349.ns2769  ---|
00471  M00S00350.1md     +++| FMM      SUBR               ENTRY/EXIT
Line S00351 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00472  M01S00351.271l716 ---|          LDC    BUFF        SET START OF ERROR DATA
00473  M01S00352.271l716 ---|          STD    ED
Line S00006 Modification History
M01 (Added by) 1md3
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00474  M02S00006.271l716 ---|          SOD    EH+3        ADJUST COUNT FOR HEADER WORD
Line S00353 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00475  M01S00353.271l716 ---| FMM1     RJM    CLM         CLEAR MESSAGE BUFFER
Line S00014 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00476  M02S00014.ns2769  ---|          LDC    BUFF-5
Line S00064 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00477  M01S00064.ns2769  +++|          LDC    BUFF+5
Line S00015 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00478  M01S00015.271l716 +++|          STD    ED          SET START OF ERROR DATA
Line S00016 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00479  M02S00016.ns2769  ---| FMM1     SOD    EH+3        ADJUST COUNT FOR HEADER WORD
00480  M02S00017.ns2769  ---|          LDN    5           ADVANCE POINTER OVER HEADER WORD
00481  M02S00018.ns2769  ---|          RAD    ED
00482  M02S00019.ns2769  ---|          RJM    CLM         CLEAR MESSAGE BUFFER
Line S00065 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00483  M01S00065.ns2769  +++| FMM1     RJM    CLM         CLEAR MESSAGE BUFFER
00484  M00S00354.1md     +++|*         LDN    0           CLEAR CM WORD BYTE COUNT
00485  M00S00355.1md     +++|          STD    CB
00486  M00S00356.1md     +++|          RJM    FMT         FORMAT BML DATA
00487  M00S00357.1md     +++|          LDM    WCFD,ED     SET ERROR DATA BYTE COUNT
00488  M00S00358.1md     +++|          ADN    EPFD
00489  M00S00359.1md     +++|          STD    BC
00490  M00S00360.1md     +++|          STM    BYTM
00491  M00S00361.1md     +++| FMM2     RJM    CPD         COPY ERROR DATA
00492  M00S00362.1md     +++|          LDN    6*5         SET *BML* MESSAGE BYTE COUNT
00493  M00S00363.1md     +++|          STD    CM+1
00494  M00S00364.1md     +++|          LDC    BMLM+BMLN   ISSUE BML DATA
00495  M00S00365.1md     +++|          RJM    DFM
00496  M00S00366.1md     +++|*         LDN    0           CLEAR BYTE COUNT IN BML DATA
00497  M00S00367.1md     +++|          STM    BYTM
00498  M00S00368.1md     +++|          LDD    BC
Line S00369 Modification History
M01 (Removed by) 1md3
Seq #  *Modification Id* Act 
----------------------------+
00499  M01S00369.1md3    ---|          ZJN    FMM3        IF NO MORE DATA TO COPY
Line S00007 Modification History
M01 (Added by) 1md3
M02 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00500  M02S00007.ns2769  ---|          ZJP    FMM3        IF NO MORE DATA TO COPY
Line S00066 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00501  M01S00066.ns2769  +++|          ZJP    FMMX        IF NO MORE DATA TO COPY
00502  M00S00370.1md     +++|          LDM    RTYM        SET *NOT FIRST BLOCK* FLAG
00503  M00S00371.1md     +++|          SCN    10
00504  M00S00372.1md     +++|          LMN    10
00505  M00S00373.1md     +++|          STM    RTYM
00506  M00S00374.1md     +++|          UJN    FMM2        COPY ADDITIONAL DATA
00507  M00S00375.1md     +++| FMM      SPACE  4,10
00508  M00S00376.1md     +++|**        BML MESSAGE BUFFER.
00509  M00S00377.1md     +++|
00510  M00S00378.1md     +++|
00511  M00S00379.1md     +++| BMLM     VFD    12/RM0006   819 MESSAGE ID
00512  M00S00380.1md     +++| SYMM     BSS    1           SYMPTOM CODE
00513  M00S00381.1md     +++| PTHM     BSS    3           PATH IDENTIFICATION
00514  M00S00382.1md     +++| ESTM     BSS    1           EST ORDINAL
00515  M00S00383.1md     +++| RTYM     BSS    1           RETRY COUNT
00516  M00S00384.1md     +++| MFIM     BSS    1           MAINFRAME ID
00517  M00S00385.1md     +++| HUIM     BSS    2           6/ FLAGS, 18/ HARDWARE IDENTIFICATION
00518  M00S00386.1md     +++| PPIM     BSS    1           PPU IDENTIFICATION
00519  M00S00387.1md     +++| BYTM     BSS    1           ERROR DATA BYTE COUNT
00520  M00S00388.1md     +++| ERDM     BSS    22          ERROR DATA
00521  M00S00389.1md     +++| ENDM     BSS    0           END OF BLOCK
00522  M00S00390.1md     +++| LOG      SPACE  4,20
Line S00391 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00523  M01S00391.ns2769  ---|*         LOG - LOG MESSAGES FOR NON-819 DEVICES.
Line S00067 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00524  M01S00067.ns2769  +++|*         LOG - LOG NON-819 MESSAGES.
00525  M00S00392.1md     +++|*
Line S00393 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00526  M01S00393.ns2769  ---|*         THIS ROUTINE ISSUES ERROR MESSAGES FOR 885-42, 895 AND
00527  M01S00394.ns2769  ---|*         887 DEVICES.  MESSAGES MAY BE SENT TO THE BML, ERROR
00528  M01S00395.ns2769  ---|*         LOG OR SYSTEM DAYFILE.
Line S00068 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00529  M01S00068.ns2769  +++|*         THIS ROUTINE ISSUES NON-819 ERROR MESSAGES.  MESSAGES
00530  M01S00069.ns2769  +++|*         MAY BE SENT TO THE BML, ERROR LOG OR SYSTEM DAYFILE.
00531  M00S00396.1md     +++|*
Line S00397 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00532  M01S00397.ns2769  ---|*         ENTRY  (EL) = 0.
00533  M01S00398.ns2769  ---|*                (WC) = AMOUNT OF DATA IN BUFFER (IN PP WORDS).
00534  M01S00399.ns2769  ---|*                (BUFF) = CONTENTS OF *EMB*.
Line S00070 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00535  M01S00070.ns2769  +++|*         ENTRY  (LN) = MESSAGE LENGTH IN CM WORDS.
00536  M01S00071.ns2769  +++|*                (WC) = MESSAGE LENGTH IN PP WORDS.
00537  M01S00072.ns2769  +++|*                (EP+1 - EP+2) = *EMB* ADDRESS.
00538  M01S00073.ns2769  +++|*                (EX+3) = OFFSET TO MESSAGE HEADER IN *EMB*.
00539  M01S00074.ns2769  +++|*                (BUFF - BUFF+(LN)-1) = MESSAGE TO BE PROCESSED.
00540  M00S00400.1md     +++|*
00541  M00S00401.1md     +++|*         EXIT   (EL) .NE. 0 IF ERROR LOG MESSAGE WAS ISSUED.
00542  M00S00402.1md     +++|*
Line S00403 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00543  M01S00403.ns2769  ---|*         USES   CM+1, EL, EO, LN, MT, T3.
Line S00075 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00544  M01S00075.ns2769  +++|*         USES   CM+1, EL, MT.
00545  M00S00404.1md     +++|*
00546  M00S00405.1md     +++|*         CALLS  DFM, DV5, GEM.
00547  M00S00406.1md     +++|
00548  M00S00407.1md     +++|
Line S00408 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00549  M01S00408.ns2769  ---| LOG5     LDD    T3          ADVANCE TO NEXT ENTRY
00550  M01S00409.ns2769  ---|          RAD    EO
00551  M01S00410.ns2769  ---|          SBD    WC
00552  M01S00411.ns2769  ---|          MJN    LOG1        IF MORE ENTRIES IN BUFFER
00553  M01S00412.ns2769  ---|
00554  M00S00413.1md     +++| LOG      SUBR               ENTRY/EXIT
Line S00414 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00555  M01S00414.ns2769  ---|          LDN    0           INITIALIZE ENTRY OFFSET
00556  M01S00415.ns2769  ---|          STD    EO
00557  M01S00416.ns2769  ---| LOG1     LDM    BUFF+3,EO   MESSAGE LENGTH (INCLUDING HEADER)
00558  M01S00417.ns2769  ---|          STD    LN
00559  M01S00418.ns2769  ---|          SHN    2           SET LINK TO NEXT MESSAGE
00560  M01S00419.ns2769  ---|          ADD    LN
00561  M01S00420.ns2769  ---|          STD    T3
00562  M01S00421.ns2769  ---|          LDM    BUFF+4,EO   SET MESSAGE TYPE
Line S00076 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00563  M01S00076.ns2769  +++|          LDN    0
00564  M01S00077.ns2769  +++|          STD    EO
00565  M01S00078.ns2769  +++|          LDM    BUFF+4,EO   SET MESSAGE TYPE
00566  M00S00422.1md     +++|          STD    MT
00567  M00S00423.1md     +++|          LMN    ELDY
00568  M00S00424.1md     +++|          ZJN    LOG2        IF ERROR LOG MESSAGE
00569  M00S00425.1md     +++|          LMN    MLDY&ELDY
00570  M00S00426.1md     +++|          NJN    LOG3        IF NOT BML MESSAGE
Line S00427 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00571  M01S00427.ns2769  ---|          LDD    T3
00572  M01S00428.ns2769  ---|          SBM    BUFF+2,EO
Line S00079 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00573  M01S00079.ns2769  +++|          LDD    EP+1        GET *EMB* ADDRESS
00574  M01S00080.ns2769  +++|          SHN    14
00575  M01S00081.ns2769  +++|          LMD    EP+2
00576  M01S00082.ns2769  +++|          ADD    EX+3        ADD OFFSET TO MESSAGE HEADER
00577  M01S00083.ns2769  +++|          ADN    3           ALLOW FOR *EMB* AND MESSAGE HEADERS
00578  M01S00084.ns2769  +++|          STD    MD+4        SET CENTRAL MESSAGE DATA ADDRESS
00579  M01S00085.ns2769  +++|          SHN    -14
00580  M01S00086.ns2769  +++|          STD    MD+3
00581  M01S00087.ns2769  +++|          LDD    WC
00582  M01S00088.ns2769  +++|          SBM    BUFF+2,EO
00583  M00S00429.1md     +++|          RJM    DV5         RECALCULATE BYTE COUNT
00584  M00S00430.1md     +++|          STD    T0
00585  M00S00431.1md     +++|          SHN    2
Line S00432 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00586  M01S00432.ns2769  ---|          ADM    BUFF+2,EO   INCLUDE RESIDUAL BYTE COUNT
Line S00089 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00587  M01S00089.ns2769  +++|          ADM    BUFF+2,EO   INCLUDE RESIDUAL BYTE COUNT
00588  M00S00433.1md     +++|          ADD    T0
00589  M00S00434.1md     +++|          SBN    5           EXCLUDE HEADER WORD
00590  M00S00435.1md     +++|          STD    CM+1
00591  M00S00436.1md     +++|          LDC    BMCN+MD
00592  M00S00437.1md     +++|          UJN    LOG4        ISSUE BML MESSAGE
00593  M00S00438.1md     +++|
Line S00439 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00594  M01S00439.271l716 ---| LOG2     AOD    EL
Line S00020 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00595  M02S00020.ns2769  ---| LOG2     LDM    BUFF+2,EO   PRESERVE ERRLOG ALERT FLAG
Line S00090 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00596  M01S00090.ns2769  +++| LOG2     LDM    CM+2        PRESERVE ERRLOG ALERT FLAG
Line S00021 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00597  M01S00021.271l716 +++|          RAD    EL
00598  M00S00440.1md     +++| LOG3     LDM    LOGA,MT     SET DAYFILE SELECTION OPTION
00599  M00S00441.1md     +++|          SHN    14
00600  M00S00442.1md     +++|          LMC    BUFF+5      ISSUE DAYFILE MESSAGE
Line S00443 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00601  M01S00443.ns2769  ---|          ADD    EO
00602  M00S00444.1md     +++| LOG4     RJM    DFM
00603  M00S00445.1md     +++|          RJM    GEM         GENERATE ERRLOG MESSAGE
Line S00446 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00604  M01S00446.ns2769  ---|          LDD    LN
00605  M01S00447.ns2769  ---|          RAD    MD+4        ADVANCE MESSAGE DATA ADDRESS
00606  M01S00448.ns2769  ---|          SHN    -14
00607  M01S00449.ns2769  ---|          RAD    MD+3
00608  M01S00450.ns2769  ---|          UJP    LOG5        CHECK NEXT ENTRY
Line S00091 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00609  M01S00091.ns2769  +++|          UJP    LOGX        RETURN
00610  M00S00451.1md     +++|
00611  M00S00452.1md     +++|
00612  M00S00453.1md     +++|*         TABLE OF DAYFILE SELECTION OPTIONS.
00613  M00S00454.1md     +++|
00614  M00S00455.1md     +++| LOGA     INDEX
00615  M00S00456.1md     +++|          INDEX  MSDY,JNMN/10000  MASTER DAYFILE
00616  M00S00457.1md     +++|          INDEX  ELDY,ERLN/10000  ERROR LOG DAYFILE
Line S00092 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00617  M01S00092.ns2769  +++|          INDEX  MLDY,BMLN/10000  MAINTENANCE LOG DAYFILE
00618  M00S00458.1md     +++|          INDEX  MLDY+1
00619  M00S00459.1md     +++|          TITLE  SUBROUTINES.
00620  M00S00460.1md     +++| CCR      SPACE  4,10
00621  M00S00461.1md     +++|**        CCR - CALL CONVERSION ROUTINE.
00622  M00S00462.1md     +++|*
00623  M00S00463.1md     +++|*         ENTRY  (T5) = INDEX TO LAST CONVERSION ROUTINE USED.
00624  M00S00464.1md     +++|*
00625  M00S00465.1md     +++|*         EXIT   (T5) = INDEX TO CONVERSION ROUTINE USED.
00626  M00S00466.1md     +++|*
00627  M00S00467.1md     +++|*         USES   T1.
00628  M00S00468.1md     +++|*
00629  M00S00469.1md     +++|*         CALLS  CONVERSION ROUTINES LISTED IN *THCR*.
00630  M00S00470.1md     +++|
00631  M00S00471.1md     +++|
00632  M00S00472.1md     +++| CCR1     LDM    THCR,T5     SELECT CONVERSION ROUTINE
00633  M00S00473.1md     +++|          STD    T1
00634  M00S00474.1md     +++|          RJM    0,T1        CONVERT HEX DATA
00635  M00S00475.1md     +++|
00636  M00S00476.1md     +++| CCR      SUBR               ENTRY/EXIT
00637  M00S00477.1md     +++|          AOD    T5
Line S00478 Modification History
M01 (Removed by) 1md4
Seq #  *Modification Id* Act 
----------------------------+
00638  M01S00478.1md4    ---|          LMN    THCRL
00639  M01S00479.1md4    ---|          NJN    CCR1        IF NOT END OF *THCR*
00640  M01S00480.1md4    ---|          STD    T5
Line S00001 Modification History
M01 (Added by) 1md4
Seq #  *Modification Id* Act 
----------------------------+
00641  M01S00001.1md4    +++|          SBN    THCRL
00642  M01S00002.1md4    +++|          MJN    CCR1        IF NOT END OF *THCR*
00643  M01S00003.1md4    +++|          ZJN    CCR0        IF VALID INDEX
00644  M01S00004.1md4    +++|          MONITOR  CHGM      CONDITIONAL HANG
00645  M01S00005.1md4    +++|
00646  M01S00006.1md4    +++| CCR0     STD    T5          RESET INDEX
00647  M00S00481.1md     +++|          UJN    CCR1        SELECT CONVERSION ROUTINE
Line S00007 Modification History
M01 (Added by) 1md4
Seq #  *Modification Id* Act 
----------------------------+
00648  M01S00007.1md4    +++|
00649  M01S00008.1md4    +++|
00650  M01S00009.1md4    +++| THCR     BSS    0           TABLE OF HEX CONVERSION ROUTINES
00651  M01S00010.1md4    +++|          CON    C1P
00652  M01S00011.1md4    +++|          CON    C2P
00653  M01S00012.1md4    +++|          CON    C3P
00654  M01S00013.1md4    +++| THCRL    EQU    *-THCR      LENGTH OF TABLE
00655  M00S00482.1md     +++| CDA      SPACE  4,10
00656  M00S00483.1md     +++|**        CDA - CONVERT DISK ADDRESS FOR *ERMD* MESSAGE.
00657  M00S00484.1md     +++|*
00658  M00S00485.1md     +++|*         ENTRY  (A) = RELATIVE LOCATION OF DISK ADDRESS.
00659  M00S00486.1md     +++|*
00660  M00S00487.1md     +++|*         EXIT   (BA) = DATA ADDRESS ADVANCED.
00661  M00S00488.1md     +++|*
00662  M00S00489.1md     +++|*         USES   PA.
00663  M00S00490.1md     +++|*
00664  M00S00491.1md     +++|*         CALLS  C2D, C4D.
00665  M00S00492.1md     +++|
00666  M00S00493.1md     +++|
00667  M00S00494.1md     +++| CDA      SUBR               ENTRY/EXIT
00668  M00S00495.1md     +++|          ADD    EO
00669  M00S00496.1md     +++|          STD    BA
00670  M00S00497.1md     +++|          LDC    ERMD+3      SET PARAMETER ADDRESS
00671  M00S00498.1md     +++|          STD    PA
00672  M00S00499.1md     +++|          RJM    C4D         CONVERT CYLINDER NUMBER
00673  M00S00500.1md     +++|          LDI    BA
00674  M00S00501.1md     +++|          SHN    -6
00675  M00S00502.1md     +++|          RJM    C2D         CONVERT TRACK NUMBER
00676  M00S00503.1md     +++|          STM    ERMD+11
00677  M00S00504.1md     +++|          LDI    BA
00678  M00S00505.1md     +++|          RJM    C2D         CONVERT SECTOR NUMBER
00679  M00S00506.1md     +++|          STM    ERMD+16
00680  M00S00507.1md     +++|          AOD    BA
00681  M00S00508.1md     +++|          UJN    CDAX        RETURN
Line S00509 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00682  M01S00509.271l716 ---| CHD      SPACE  4,10
00683  M01S00510.271l716 ---|**        CHD - CONVERT TWO HEX DIGITS TO DISPLAY CODE.
00684  M01S00511.271l716 ---|*
00685  M01S00512.271l716 ---|*         ENTRY  (A) = DIGITS RIGHT JUSTIFIED.
00686  M01S00513.271l716 ---|*                (PA) = ADDRESS TO STORE CONVERSION.
00687  M01S00514.271l716 ---|*
00688  M01S00515.271l716 ---|*         EXIT   (PA) = PARAMETER ADDRESS ADVANCED.
00689  M01S00516.271l716 ---|
00690  M01S00517.271l716 ---|
00691  M01S00518.271l716 ---| CHD      SUBR               ENTRY/EXIT
00692  M01S00519.271l716 ---|          STD    T0
00693  M01S00520.271l716 ---|          SHN    -4          EXTRACT FIRST DIGIT
00694  M01S00521.271l716 ---|          LPN    17
00695  M01S00522.271l716 ---|          SBN    10D
00696  M01S00523.271l716 ---|          PJN    CHD1        IF .GE. TEN
00697  M01S00524.271l716 ---|          ADN    1R0+9D
00698  M01S00525.271l716 ---| CHD1     ADN    1
00699  M01S00526.271l716 ---|          SHN    6           POSITION CONVERSION
00700  M01S00527.271l716 ---|          STI    PA
00701  M01S00528.271l716 ---|          LDD    T0
00702  M01S00529.271l716 ---|          LPN    17          EXTRACT SECOND DIGIT
00703  M01S00530.271l716 ---|          SBN    10D
00704  M01S00531.271l716 ---|          PJN    CHD2        IF .GE. TEN
00705  M01S00532.271l716 ---|          ADN    1R0+9D
00706  M01S00533.271l716 ---| CHD2     ADN    1
00707  M01S00534.271l716 ---|          RAI    PA          SET CONVERSION
00708  M01S00535.271l716 ---|          AOD    PA
00709  M01S00536.271l716 ---|          UJN    CHDX        RETURN
00710  M00S00537.1md     +++| CIL      SPACE  4,10
Line S00538 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00711  M01S00538.ns2769  ---|**        CIL - CLEAR *EMB* INTERLOCK AND RESET POINTERS.
Line S00093 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00712  M01S00093.ns2769  +++|**        CIL - CLEAR *EMB* INTERLOCK AND RESET FLAGS.
00713  M00S00539.1md     +++|*
Line S00540 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00714  M01S00540.ns2769  ---|*         ENTRY  (A) = VALUE FOR BYTE 4 OF INTERLOCK WORD.
00715  M01S00541.ns2769  ---|*                (EP+3 - EP+4) = FWA OF *EMB*.
00716  M01S00542.ns2769  ---|*                (EH - EH+4) = *EMB* INTERLOCK WORD.
Line S00094 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00717  M01S00094.ns2769  +++|*         ENTRY  (EP+1 - EP+2) = FWA OF *EMB*.
00718  M01S00095.ns2769  +++|*                (EH - EH+4) = *EMB* INTERLOCK WORD 1.
00719  M01S00096.ns2769  +++|*                (EX - EX+4) = *EMB* INTERLOCK WORD 2.
00720  M01S00097.ns2769  +++|*
00721  M01S00098.ns2769  +++|*         EXIT   (A) = (EH+4) = 0 IF *EMB* BUFFER IS EMPTY.
00722  M01S00099.ns2769  +++|*                *1MD* ACTIVE CLEARED IF *EMB* BUFFER IS EMPTY.
00723  M01S00100.ns2769  +++|*                *EMB* INTERLOCK CLEARED IN ALL CASES.
00724  M00S00543.1md     +++|
00725  M00S00544.1md     +++|
00726  M00S00545.1md     +++| CIL      SUBR               ENTRY/EXIT
Line S00101 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00727  M01S00101.ns2769  +++|          LDD    EH+3        *IN*
00728  M01S00102.ns2769  +++|          SBD    EX+3        *OUT*
00729  M01S00103.ns2769  +++|          ZJN    CIL1        IF *EMB* EMPTY
00730  M01S00104.ns2769  +++|          LDN    2           AVOID CLEARING *1MD ACTIVE*
00731  M01S00105.ns2769  +++| CIL1     LMN    3           INTERLOCK AND *1MD* ACTIVE
00732  M01S00106.ns2769  +++|          LMD    EH+4        CLEAR INTERLOCK, POSSIBLY *1MD ACTIVE*
00733  M00S00546.1md     +++|          STD    EH+4
Line S00547 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00734  M01S00547.ns2769  ---|          NJN    CIL1        IF NOT CLEARING *1MD* ACTIVE
00735  M01S00548.ns2769  ---|          LDN    ZERL
00736  M01S00549.ns2769  ---|          CRD    EH          CLEAR ALL FLAGS
00737  M01S00550.ns2769  ---|          AOD    EH
00738  M01S00551.ns2769  ---| CIL1     LDD    EP+1        UPDATE *EMB* HEADER
Line S00107 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00739  M01S00107.ns2769  +++|          LDN    0           CLEAR *MESSAGES LOST*
00740  M01S00108.ns2769  +++|          STD    EH+1
00741  M01S00109.ns2769  +++|          LDD    EP+1
00742  M00S00552.1md     +++|          SHN    14
00743  M00S00553.1md     +++|          LMD    EP+2
00744  M00S00554.1md     +++|          CWD    EH
Line S00110 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00745  M01S00110.ns2769  +++|          LDD    EH+4
00746  M00S00555.1md     +++|          UJN    CILX        RETURN
00747  M00S00556.1md     +++| CLM      SPACE  4,10
00748  M00S00557.1md     +++|**        CLM - CLEAR MESSAGE BUFFER.
00749  M00S00558.1md     +++|*
00750  M00S00559.1md     +++|*         EXIT   (A) = 0.
00751  M00S00560.1md     +++|*
00752  M00S00561.1md     +++|*         USES   T1.
00753  M00S00562.1md     +++|
00754  M00S00563.1md     +++|
00755  M00S00564.1md     +++| CLM      SUBR               ENTRY/EXIT
00756  M00S00565.1md     +++|          LDN    ENDM-BMLM-1
00757  M00S00566.1md     +++|          STD    T1
00758  M00S00567.1md     +++| CLM1     LDN    0           CLEAR BUFFER
00759  M00S00568.1md     +++|          STM    BMLM,T1
00760  M00S00569.1md     +++|          SOD    T1
00761  M00S00570.1md     +++|          NJN    CLM1        IF NOT END OF BUFFER
00762  M00S00571.1md     +++|          UJN    CLMX        RETURN
00763  M00S00572.1md     +++| CMP      SPACE  4,10
00764  M00S00573.1md     +++|**        CMP - CONVERT BASIC MESSAGE PARAMETERS.
00765  M00S00574.1md     +++|*
00766  M00S00575.1md     +++|*         ENTRY  (EO) = BML MESSAGE OFFSET INTO *BUFF*.
00767  M00S00576.1md     +++|*
00768  M00S00577.1md     +++|*         EXIT   (CT) = CHANNEL TYPE.
00769  M00S00578.1md     +++|*
00770  M00S00579.1md     +++|*         USES   PA.
00771  M00S00580.1md     +++|*
00772  M00S00581.1md     +++|*         CALLS  CDA, C2D, C4D.
00773  M00S00582.1md     +++|
00774  M00S00583.1md     +++|
00775  M00S00584.1md     +++| CMP      SUBR               ENTRY/EXIT
00776  M00S00585.1md     +++|
00777  M00S00586.1md     +++|*         INSERT PARAMETERS IN *ERMB* MESSAGE.
00778  M00S00587.1md     +++|
00779  M00S00588.1md     +++|          LDM    BUFF+3*5,EO  CONVERT ERROR CODE
00780  M00S00589.1md     +++|          RJM    C2D
00781  M00S00590.1md     +++|          STM    ERMB+7      SET IN MESSAGE
00782  M00S00591.1md     +++|
00783  M00S00592.1md     +++|*         INSERT PARAMETERS IN *ERMC* MESSAGE.
00784  M00S00593.1md     +++|
00785  M00S00594.1md     +++|          LDM    BUFF+1*5+2,EO  SET CHANNEL SPECIFICATION
00786  M00S00595.1md     +++|          STD    CT
00787  M00S00596.1md     +++|          LPN    37          CONVERT CHANNEL NUMBER
00788  M00S00597.1md     +++|          RJM    C2D
00789  M00S00598.1md     +++|          STM    ERMC+3
00790  M00S00599.1md     +++|          LDD    CT          EXTRACT CHANNEL TYPE
00791  M00S00600.1md     +++|          LPN    40
00792  M00S00601.1md     +++|          STD    CT
00793  M00S00602.1md     +++|          ZJN    CMP1        IF NON-CONCURRENT CHANNEL
00794  M00S00603.1md     +++|          LDC    2RNC&2RCC
00795  M00S00604.1md     +++| CMP1     LMC    2RNC        SET CHANNEL TYPE IN MESSAGE
00796  M00S00605.1md     +++|          STM    ERMC
00797  M00S00606.1md     +++|          LDM    BUFF+1*5+3,EO  CONVERT UNIT NUMBER
00798  M00S00607.1md     +++|          RJM    C2D
00799  M00S00608.1md     +++|          STM    ERMC+10
00800  M00S00609.1md     +++|
00801  M00S00610.1md     +++|*         INSERT PARAMETERS IN *ERMD* MESSAGE.
00802  M00S00611.1md     +++|
00803  M00S00612.1md     +++|          LDC    BUFF+3*5+1  CONVERT DISK ADDRESS
00804  M00S00613.1md     +++|          RJM    CDA
00805  M00S00614.1md     +++|
00806  M00S00615.1md     +++|*         INSERT PARAMETERS IN *ERME* MESSAGE.
00807  M00S00616.1md     +++|
00808  M00S00617.1md     +++|          LDC    ERME+14     SET PARAMETER ADDRESS
00809  M00S00618.1md     +++|          STD    PA
00810  M00S00619.1md     +++|          LDD    CT
00811  M00S00620.1md     +++|          ZJN    CMP2        IF NON-CONCURRENT CHANNEL
00812  M00S00621.1md     +++|          LDM    BUFF+10*5,EO
00813  M00S00622.1md     +++|          SHN    -6          CONVERT UPPER 4 BITS OF FUNCTION
00814  M00S00623.1md     +++|          RJM    C2D
00815  M00S00624.1md     +++|          STI    PA          SET IN MESSAGE
00816  M00S00625.1md     +++|          AOD    PA
00817  M00S00626.1md     +++| CMP2     RJM    C4D         CONVERT LAST FUNCTION
00818  M00S00627.1md     +++|          LDC    2L..
00819  M00S00628.1md     +++|          STI    PA          TERMINATE MESSAGE
00820  M00S00629.1md     +++|
00821  M00S00630.1md     +++|*         INSERT PARAMETERS IN *ERMF* MESSAGE.
00822  M00S00631.1md     +++|
00823  M00S00632.1md     +++|          LDC    ERMG+5      SET PARAMETER ADDRESS
00824  M00S00633.1md     +++|          STD    PA
00825  M00S00634.1md     +++|          RJM    C4D         CONVERT GENERAL STATUS
00826  M00S00635.1md     +++|          UJP    CMPX        RETURN
00827  M00S00636.1md     +++| CPD      SPACE  4,15
00828  M00S00637.1md     +++|**        CPD - COPY ERROR DATA.
00829  M00S00638.1md     +++|*
00830  M00S00639.1md     +++|*         ENTRY  (BC) = ERROR PACKET BYTE COUNT.
00831  M00S00640.1md     +++|*                (CB) = CM WORD BYTE COUNT.
00832  M00S00641.1md     +++|*                (ED) = ADDRESS OF ERROR PACKET.
Line S00642 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00833  M01S00642.ns2769  ---|*                (EH+3) = CM WORD COUNT OF ERROR DATA BUFFER.
00834  M00S00643.1md     +++|*
00835  M00S00644.1md     +++|*         EXIT   *BML* BUFFER FILLED.
00836  M00S00645.1md     +++|*                POINTERS UPDATED.
00837  M00S00646.1md     +++|*
00838  M00S00647.1md     +++|*         USES   BC, CB, ED, T2.
00839  M00S00648.1md     +++|
00840  M00S00649.1md     +++|
00841  M00S00650.1md     +++| CPD3     AOD    T2          ADVANCE *BML* BUFFER COUNT
00842  M00S00651.1md     +++|          LMN    ENDM-ERDM
00843  M00S00652.1md     +++|          ZJN    CPD5        IF END OF BUFFER
00844  M00S00653.1md     +++|          LDN    0           ZERO FILL BUFFER
00845  M00S00654.1md     +++|          STM    ERDM,T2
00846  M00S00655.1md     +++| CPD4     UJN    CPD3        LOOP ON ZERO FILL
00847  M00S00656.1md     +++|
00848  M00S00657.1md     +++| CPD5     STD    BC
00849  M00S00658.1md     +++|          LDD    CB
00850  M00S00659.1md     +++|          ZJN    CPDX        IF EVEN CM WORD BYTE COUNT
00851  M00S00660.1md     +++| CPD6     AOD    ED          ADVANCE ERROR DATA POINTER
00852  M00S00661.1md     +++|          AOD    CB
00853  M00S00662.1md     +++|          LMN    5
00854  M00S00663.1md     +++|          NJN    CPD6        IF NOT END OF CM WORD
00855  M00S00664.1md     +++|          STD    CB
Line S00665 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00856  M01S00665.ns2769  ---|          SOD    EH+3        DECREMENT CM WORD COUNT
00857  M00S00666.1md     +++|          LDM    RTYM        CLEAR CONTINUATION FLAG
00858  M00S00667.1md     +++|          SCN    4
00859  M00S00668.1md     +++|          STM    RTYM
00860  M00S00669.1md     +++|
00861  M00S00670.1md     +++| CPD      SUBR               ENTRY/EXIT
00862  M00S00671.1md     +++|          LDN    0
00863  M00S00672.1md     +++|          STD    T2
00864  M00S00673.1md     +++| CPD1     LDI    ED          COPY ERROR DATA
00865  M00S00674.1md     +++|          STM    ERDM,T2
00866  M00S00675.1md     +++|          AOD    ED          ADVANCE ERROR DATA POINTER
00867  M00S00676.1md     +++|          AOD    CB
00868  M00S00677.1md     +++|          LMN    5
00869  M00S00678.1md     +++|          NJN    CPD2        IF NOT FULL CM WORD
00870  M00S00679.1md     +++|          STD    CB
Line S00680 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00871  M01S00680.ns2769  ---|          SOD    EH+3        DECREMENT CM WORD COUNT
00872  M00S00681.1md     +++| CPD2     SOD    BC          DECREMENT BYTE COUNT
00873  M00S00682.1md     +++|          ZJN    CPD4        IF END OF ERROR DATA
00874  M00S00683.1md     +++|          AOD    T2          ADVANCE *BML* BUFFER POINTER
00875  M00S00684.1md     +++|          LMN    ENDM-ERDM
00876  M00S00685.1md     +++|          NJN    CPD1        IF NOT END OF *BML* BUFFER
00877  M00S00686.1md     +++|          LDM    RTYM        SET CONTINUATION FLAG
00878  M00S00687.1md     +++|          SCN    4
00879  M00S00688.1md     +++|          LMN    4
00880  M00S00689.1md     +++|          STM    RTYM
00881  M00S00690.1md     +++|          UJN    CPDX        RETURN
00882  M00S00691.1md     +++| CSD      SPACE  4,10
00883  M00S00692.1md     +++|**        CSD - CONVERT STATUS DATA.
00884  M00S00693.1md     +++|*
00885  M00S00694.1md     +++|*         ENTRY  (A) = 6/ PC, 12/ MA
00886  M00S00695.1md     +++|*                      PC = PARAMETER COUNT FOR MESSAGE BLOCK.
00887  M00S00696.1md     +++|*                      MA = MESSAGE ADDRESS FOR 1ST PARAMETER.
00888  M00S00697.1md     +++|*
00889  M00S00698.1md     +++|*         USES   PA, T6, T7.
00890  M00S00699.1md     +++|*
00891  M00S00700.1md     +++|*         CALLS  CCR.
00892  M00S00701.1md     +++|
00893  M00S00702.1md     +++|
00894  M00S00703.1md     +++| CSD1     RJM    CCR         CALL CONVERSION ROUTINE
00895  M00S00704.1md     +++|          LDD    T6
00896  M00S00705.1md     +++|          SHN    21-0
00897  M00S00706.1md     +++|          NJN    CSD3        IF NOT MESSAGE BOUNDARY
00898  M00S00707.1md     +++| CSD2     LDC    200125
00899  M00S00708.1md     +++| CSD3     STD    T6          UPDATE SKIP CONTROL
00900  M00S00709.1md     +++|          SHN    1-21
00901  M00S00710.1md     +++|          LMN    2
00902  M00S00711.1md     +++|          RAD    PA          ADJUST PARAMETER ADDRESS
00903  M00S00712.1md     +++|          SOD    T7
00904  M00S00713.1md     +++|          NJN    CSD1        IF NOT END OF PARAMETERS
00905  M00S00714.1md     +++|
00906  M00S00715.1md     +++| CSD      SUBR               ENTRY/EXIT
00907  M00S00716.1md     +++|          SBN    3
00908  M00S00717.1md     +++|          STD    PA
00909  M00S00718.1md     +++|          SHN    -14         SET PARAMETER COUNT
00910  M00S00719.1md     +++|          STD    T7
00911  M00S00720.1md     +++|          ADN    1           ALLOW FOR TWO BYTE PARAMETERS
00912  M00S00721.1md     +++|          RAD    T7
00913  M00S00722.1md     +++|          UJN    CSD2        SET SKIP CONTROL
00914  M00S00723.1md     +++| C1P      SPACE  4,10
00915  M00S00724.1md     +++|**        C1P - CONVERT FIRST PAIR OF HEX DIGITS.
00916  M00S00725.1md     +++|*
00917  M00S00726.1md     +++|*         ENTRY  (BA) = ADDRESS OF HEX DATA.
00918  M00S00727.1md     +++|*
00919  M00S00728.1md     +++|*         EXIT   (T2) = FIRST DIGIT OF NEXT PAIR.
00920  M00S00729.1md     +++|*                (BA) = BUFFER ADDRESS ADVANCED.
00921  M00S00730.1md     +++|*
00922  M00S00731.1md     +++|*         CALLS  CHD.
00923  M00S00732.1md     +++|
00924  M00S00733.1md     +++|
00925  M00S00734.1md     +++| C1P      SUBR               ENTRY/EXIT
00926  M00S00735.1md     +++|          LDI    BA
00927  M00S00736.1md     +++|          STD    T2          SAVE DIGIT FOR NEXT CONVERSION
00928  M00S00737.1md     +++|          SHN    -4
00929  M00S00738.1md     +++|          RJM    CHD         CONVERT HEX DATA
00930  M00S00739.1md     +++|          AOD    BA
00931  M00S00740.1md     +++|          UJN    C1PX        RETURN
00932  M00S00741.1md     +++| C2P      SPACE  4,10
00933  M00S00742.1md     +++|**        C2P - CONVERT SECOND PAIR OF HEX DIGITS.
00934  M00S00743.1md     +++|*
00935  M00S00744.1md     +++|*         ENTRY  (T2) = FIRST DIGIT OF PAIR.
00936  M00S00745.1md     +++|*                (BA) = ADDRESS OF HEX DATA.
00937  M00S00746.1md     +++|*
00938  M00S00747.1md     +++|*         EXIT   (T2) = NEXT PAIR FOR CONVERSION.
00939  M00S00748.1md     +++|*
00940  M00S00749.1md     +++|*         CALLS  CHD.
00941  M00S00750.1md     +++|
00942  M00S00751.1md     +++|
00943  M00S00752.1md     +++| C2P      SUBR               ENTRY/EXIT
00944  M00S00753.1md     +++|          LDD    T2
00945  M00S00754.1md     +++|          LPN    17          EXTRACT FIRST DIGIT
00946  M00S00755.1md     +++|          SHN    14
00947  M00S00756.1md     +++|          LMI    BA          SAVE NEXT PAIR OF HEX DIGITS
00948  M00S00757.1md     +++|          STD    T2
00949  M00S00758.1md     +++|          SHN    -10         CONVERT HEX DATA
00950  M00S00759.1md     +++|          RJM    CHD
00951  M00S00760.1md     +++|          UJN    C2PX        RETURN
00952  M00S00761.1md     +++| C3P      SPACE  4,10
00953  M00S00762.1md     +++|**        C3P - CONVERT THIRD PAIR OF HEX DIGITS.
00954  M00S00763.1md     +++|*
00955  M00S00764.1md     +++|*         ENTRY  (T2) = PAIR FOR CONVERSION.
00956  M00S00765.1md     +++|*                (BA) = ADDRESS OF HEX DATA.
00957  M00S00766.1md     +++|*
00958  M00S00767.1md     +++|*         EXIT   (BA) = BUFFER ADDRESS ADVANCED.
00959  M00S00768.1md     +++|*
00960  M00S00769.1md     +++|*         CALLS  CHD.
00961  M00S00770.1md     +++|
00962  M00S00771.1md     +++|
00963  M00S00772.1md     +++| C3P      SUBR               ENTRY/EXIT
00964  M00S00773.1md     +++|          LDD    T2
00965  M00S00774.1md     +++|          RJM    CHD         CONVERT HEX DATA
00966  M00S00775.1md     +++|          AOD    BA
00967  M00S00776.1md     +++|          UJN    C3PX        RETURN
00968  M00S00777.1md     +++| C4D      SPACE  4,10
00969  M00S00778.1md     +++|**        C4D - CONVERT FOUR OCTAL DIGITS.
00970  M00S00779.1md     +++|*
00971  M00S00780.1md     +++|*         ENTRY  (BA) = ADDRESS OF OCTAL DATA.
00972  M00S00781.1md     +++|*                (PA) = ADDRESS TO STORE CONVERSION.
00973  M00S00782.1md     +++|*
00974  M00S00783.1md     +++|*         EXIT   (BA) = DATA ADDRESS ADVANCED.
00975  M00S00784.1md     +++|*                (PA) = PARAMETER ADDRESS ADVANCED.
00976  M00S00785.1md     +++|*
00977  M00S00786.1md     +++|*         CALLS  C2D.
00978  M00S00787.1md     +++|
00979  M00S00788.1md     +++|
00980  M00S00789.1md     +++| C4D      SUBR               ENTRY/EXIT
00981  M00S00790.1md     +++|          LDI    BA
00982  M00S00791.1md     +++|          SHN    -6          CONVERT UPPER TWO DIGITS
00983  M00S00792.1md     +++|          RJM    C2D
00984  M00S00793.1md     +++|          STI    PA          STORE CONVERSION
00985  M00S00794.1md     +++|          AOD    PA
00986  M00S00795.1md     +++|          LDI    BA          CONVERT LOWER DIGITS
00987  M00S00796.1md     +++|          RJM    C2D
00988  M00S00797.1md     +++|          STI    PA          STORE CONVERSION
00989  M00S00798.1md     +++|          AOD    BA
00990  M00S00799.1md     +++|          AOD    PA
00991  M00S00800.1md     +++|          UJN    C4DX        RETURN
00992  M00S00801.1md     +++| C6D      SPACE  4,15
00993  M00S00802.1md     +++|**        C6D - CONVERT SIX OCTAL DIGITS.
00994  M00S00803.1md     +++|*
00995  M00S00804.1md     +++|*         ENTRY  (A) .GE. 0 IF DATA BEGINS ON HALF BYTE BOUNDARY.
00996  M00S00805.1md     +++|*                    .LT. 0 IF DATA BEGINS ON FULL BYTE BOUNDARY.
00997  M00S00806.1md     +++|*                (BA) = ADDRESS OF OCTAL DATA.
00998  M00S00807.1md     +++|*                (PA) = ADDRESS TO STORE CONVERSION.
00999  M00S00808.1md     +++|*
01000  M00S00809.1md     +++|*         EXIT   (BA) = DATA ADDRESS ADVANCED.
01001  M00S00810.1md     +++|*                (PA) = PARAMETER ADDRESS ADVANCED.
01002  M00S00811.1md     +++|*
01003  M00S00812.1md     +++|*         CALLS  C2D, C4D.
01004  M00S00813.1md     +++|
01005  M00S00814.1md     +++|
01006  M00S00815.1md     +++| C6D1     LDI    BA          CONVERT TWO DIGITS
01007  M00S00816.1md     +++|          RJM    C2D
01008  M00S00817.1md     +++|          STI    PA          SET CONVERSION IN MESSAGE
01009  M00S00818.1md     +++|          AOD    PA
01010  M00S00819.1md     +++|          AOD    BA          CONVERT FOUR DIGITS
01011  M00S00820.1md     +++|          RJM    C4D
01012  M00S00821.1md     +++|
01013  M00S00822.1md     +++| C6D      SUBR               ENTRY/EXIT
01014  M00S00823.1md     +++|          PJN    C6D1        IF DATA ON HALF BYTE BOUNDARY
01015  M00S00824.1md     +++|          RJM    C4D         CONVERT FOUR DIGITS
01016  M00S00825.1md     +++|          LDI    BA
01017  M00S00826.1md     +++|          SHN    -6          CONVERT TWO DIGITS
01018  M00S00827.1md     +++|          RJM    C2D
01019  M00S00828.1md     +++|          STI    PA          SET CONVERSION IN MESSAGE
01020  M00S00829.1md     +++|          AOD    PA
01021  M00S00830.1md     +++|          UJN    C6DX        RETURN
01022  M00S00831.1md     +++| FNT      SPACE  4,10
01023  M00S00832.1md     +++|**        FMT - FORMAT *BML* MESSAGE.
01024  M00S00833.1md     +++|*
01025  M00S00834.1md     +++|*         ENTRY  (ED) = ADDRESS OF ERROR MESSAGE DATA.
01026  M00S00835.1md     +++|*
01027  M00S00836.1md     +++|*         USES   T0, T1, CM - CM+4.
01028  M00S00837.1md     +++|
01029  M00S00838.1md     +++|
01030  M00S00839.1md     +++| FMT      SUBR               ENTRY/EXIT
01031  M00S00840.1md     +++|
01032  M00S00841.1md     +++|*         SET SYMPTOM CODE AND DRIVER TYPE.
01033  M00S00842.1md     +++|
01034  M00S00843.1md     +++|          LDI    ED          TEST UNRECOVERED DATA ERROR
01035  M00S00844.1md     +++|          ERRNZ  G1FD        CODE IS VALUE DEPENDENT
01036  M00S00845.1md     +++|          SHN    21-12
01037  M00S00846.1md     +++|          PJN    FMT1        IF NOT UNRECOVERED DATA ERROR
01038  M00S00847.1md     +++|          LDN    RS0101-100
01039  M00S00848.1md     +++|          UJN    FMT4        SET SYMPTOM CODE
01040  M00S00849.1md     +++|
01041  M00S00850.1md     +++| FMT1     SHN    12-2
01042  M00S00851.1md     +++|          PJN    FMT2        IF NOT REQUEST ERROR
01043  M00S00852.1md     +++|          LDN    RS0104-100
01044  M00S00853.1md     +++|          UJN    FMT4        SET SYMPTOM CODE
01045  M00S00854.1md     +++|
01046  M00S00855.1md     +++| FMT2     LDM    EPFD+G2FD,ED  CHECK ERROR RECOVERY
01047  M00S00856.1md     +++|          SHN    21-6
01048  M00S00857.1md     +++|          PJN    FMT3        IF NOT RECOVERED DATA ERROR
01049  M00S00858.1md     +++|          LDN    RS0102-100
01050  M00S00859.1md     +++|          UJN    FMT4        SET SYMPTOM CODE
01051  M00S00860.1md     +++|
01052  M00S00861.1md     +++| FMT3     LDN    RS0103-100
01053  M00S00862.1md     +++| FMT4     ADC    DHCD*400+100
01054  M00S00863.1md     +++|          STM    SYMM
01055  M00S00864.1md     +++|
01056  M00S00865.1md     +++|*         SET DATA PATH INFORMATION.
01057  M00S00866.1md     +++|
01058  M00S00867.1md     +++|          LDM    UNFD,ED     CHECK UNIT NUMBER
01059  M00S00868.1md     +++|          LPN    7
01060  M00S00869.1md     +++|          STM    PTHM+1      SET VALUE IN BML MESSAGE
01061  M00S00870.1md     +++|          LPN    4
01062  M00S00871.1md     +++|          ADN    2           CHANNEL (CONTROLLER) NUMBER
01063  M00S00872.1md     +++|          STD    T1
01064  M00S00873.1md     +++|          LDM    EQFD,ED     SET FLPP NUMBER
01065  M00S00874.1md     +++|          SHN    -11
01066  M00S00875.1md     +++|          SHN    1
01067  M00S00876.1md     +++|          STD    T0
01068  M00S00877.1md     +++|          LDM    EQFD,ED     SET EST ORDINAL
01069  M00S00878.1md     +++|          LPC    777
01070  M00S00879.1md     +++|          STM    ESTM
01071  M00S00880.1md     +++|          SFA    EST         SET DEVICE MNEMONIC
01072  M00S00881.1md     +++|          ADK    EQDE
01073  M00S00882.1md     +++|          CRD    CM
01074  M00S00883.1md     +++|          LDD    CM+3
01075  M00S00884.1md     +++|          ADC    -2RDV
01076  M00S00885.1md     +++|          STM    EQFD,ED
01077  M00S00886.1md     +++|          LDM    EPFD+G2FD,ED  CHECK WHICH FLPP FOUND ERROR
01078  M00S00887.1md     +++|          SHN    0-13
01079  M00S00888.1md     +++|          ADD    T0          ADJUST FLPP NUMBER
01080  M00S00889.1md     +++|          SHN    6
01081  M00S00890.1md     +++|          STM    MFIM
01082  M00S00891.1md     +++|          LMD    T1
01083  M00S00892.1md     +++|          STM    PTHM        SET RECOVERY PATH
01084  M00S00893.1md     +++|
01085  M00S00894.1md     +++|*         SET RETRY COUNT + RECOVERY FLAGS.
01086  M00S00895.1md     +++|
01087  M00S00896.1md     +++|          LDM    UNFD,ED     SET READ/WRITE FLAG
01088  M00S00897.1md     +++|          SHN    -5
01089  M00S00898.1md     +++|          LPN    2
01090  M00S00899.1md     +++|          STD    T0
01091  M00S00900.1md     +++|          LDI    ED
01092  M00S00901.1md     +++|          ERRNZ  G1FD        CODE IS VALUE DEPENDENT
01093  M00S00902.1md     +++|          SHN    -12
01094  M00S00903.1md     +++|          LPN    1           EXTRACT UNRECOVERED STATUS
01095  M00S00904.1md     +++|          RAD    T0
01096  M00S00905.1md     +++|          LDM    EPFD+RTFD,ED  SET RETRY COUNT
01097  M00S00906.1md     +++|          LPC    777
01098  M00S00907.1md     +++|          SBD    HN
01099  M00S00908.1md     +++|          MJN    FMT5        IF .LE. 77
01100  M00S00909.1md     +++|          LCN    1
01101  M00S00910.1md     +++| FMT5     ADD    HN          RECOVERY COUNT
01102  M00S00911.1md     +++|          SHN    6
01103  M00S00912.1md     +++|          LMD    T0          APPEND FLAGS
01104  M00S00913.1md     +++|          STM    RTYM
01105  M00S00914.1md     +++|          LDD    IA          SET PP IDENTIFICATION
01106  M00S00915.1md     +++|          STM    PPIM
01107  M00S00916.1md     +++|          LJM    FMTX        RETURN
01108  M00S00917.1md     +++| GEM      SPACE  4,15
Line S00918 Modification History
M01 (Removed by) 1md5
Seq #  *Modification Id* Act 
----------------------------+
01109  M01S00918.1md5    ---|**        GEM - GENERATE ERRLOG MESSAGE.
Line S00006 Modification History
M01 (Added by) 1md5
Seq #  *Modification Id* Act 
----------------------------+
01110  M01S00006.1md5    +++|**        GEM - GENERATE ERRLOG MESSAGE FOR MASS STORAGE ERROR.
01111  M00S00919.1md     +++|*
01112  M00S00920.1md     +++|*         ENTRY  (EO) = BML MESSAGE OFFSET INTO *BUFF*.
01113  M00S00921.1md     +++|*                (LN) = BML MESSAGE LENGTH.
01114  M00S00922.1md     +++|*                (MT) = MESSAGE TYPE.
Line S00022 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01115  M01S00022.271l716 +++|*
01116  M01S00023.271l716 +++|*         EXIT   (EL) = 1 IF ERRLOG MESSAGE ISSUED.
01117  M00S00923.1md     +++|*
Line S00924 Modification History
M01 (Removed by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
01118  M01S00924.ns2714  ---|*         USES   T5, T7, LA, CM - CM+4.
Line S00001 Modification History
M01 (Added by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
01119  M01S00001.ns2714  +++|*         USES   T1, T5, T7, EL, LA, CM - CM+4.
01120  M00S00925.1md     +++|*
01121  M00S00926.1md     +++|*         CALLS  ACS, C2D, DFM.
01122  M00S00927.1md     +++|*
01123  M00S00928.1md     +++|*         MACROS SFA.
01124  M00S00929.1md     +++|
01125  M00S00930.1md     +++|
Line S00931 Modification History
M01 (Removed by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
01126  M01S00931.ns2714  ---| GEM2     STD    LA          SAVE MESSAGE TABLE ADDRESS
01127  M01S00932.ns2714  ---| GEM3     LDC    ELMB+3
Line S00002 Modification History
M01 (Added by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
01128  M01S00002.ns2714  +++| GEM3     STD    LA          SAVE MESSAGE TABLE ADDRESS
01129  M01S00003.ns2714  +++| GEM4     LDC    ELMB+3
01130  M00S00933.1md     +++|          STD    T1          SET ASSEMBLY ADDRESS
01131  M00S00934.1md     +++|          LDN    0
01132  M00S00935.1md     +++|          STI    T1
01133  M00S00936.1md     +++|          LDI    LA          APPEND MESSAGE TO PREFIX
01134  M00S00937.1md     +++|          RJM    ACS
01135  M00S00938.1md     +++|          LDC    ELMB+ERLN   ISSUE ERRLOG MESSAGE
01136  M00S00939.1md     +++|          RJM    DFM
01137  M00S00940.1md     +++|          AOD    LA          ADVANCE MESSAGE TABLE ADDRESS
01138  M00S00941.1md     +++|          LDI    LA
Line S00942 Modification History
M01 (Removed by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
01139  M01S00942.ns2714  ---|          NJN    GEM3        IF NOT END OF TABLE
Line S00004 Modification History
M01 (Added by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
01140  M01S00004.ns2714  +++|          NJN    GEM4        IF NOT END OF TABLE
Line S00024 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01141  M01S00024.271l716 +++|          LDN    1
01142  M01S00025.271l716 +++|          STD    EL          SET ERRLOG ALERT STATUS
01143  M00S00943.1md     +++|
01144  M00S00944.1md     +++| GEM      SUBR               ENTRY/EXIT
01145  M00S00945.1md     +++|          LDD    MT
01146  M00S00946.1md     +++|          LMN    MLDY
01147  M00S00947.1md     +++|          NJN    GEMX        IF NOT BML MESSAGE
Line S00007 Modification History
M01 (Added by) 1md5
Seq #  *Modification Id* Act 
----------------------------+
01148  M01S00007.1md5    +++|          LCN    0           INITIALIZE INDEX
01149  M01S00008.1md5    +++|          STD    T7
01150  M01S00009.1md5    +++| GEM0     AOD    T7          ADVANCE INDEX
01151  M01S00010.1md5    +++|          SBK    TMIDL
01152  M01S00011.1md5    +++|          ZJN    GEMX        IF END OF LIST
01153  M01S00012.1md5    +++|          LDM    TMID,T7     GET NEXT MASS STORAGE MESSAGE ID
01154  M01S00013.1md5    +++|          LMM    BUFF+1*5,EO
01155  M01S00014.1md5    +++|          NJN    GEM0        IF MESSAGE ID DOES NOT MATCH
01156  M00S00948.1md     +++|          LDM    BUFF+2*5+1,EO
01157  M00S00949.1md     +++|          LPN    1
01158  M00S00950.1md     +++|          ZJN    GEMX        IF RECOVERED ERROR
01159  M00S00951.1md     +++|          LDM    BUFF+2*5,EO
01160  M00S00952.1md     +++|          STD    T5          SET EST ORDINAL
Line S00953 Modification History
M01 (Removed by) 1md5
Seq #  *Modification Id* Act 
----------------------------+
01161  M01S00953.1md5    ---|          SFA    EST
Line S00015 Modification History
M01 (Added by) 1md5
Seq #  *Modification Id* Act 
----------------------------+
01162  M01S00015.1md5    +++|          ZJN    GEMX        IF NO EST ORDINAL SPECIFIED
01163  M01S00016.1md5    +++|          LDK    ESTP        CHECK MAXIMUM EST ORDINAL
01164  M01S00017.1md5    +++|          CRD    CM
01165  M01S00018.1md5    +++|          LDD    T5
01166  M01S00019.1md5    +++|          SBD    CM+1        MAXIMUM MASS STORAGE EST ORDINAL + 1
01167  M01S00020.1md5    +++|          PJN    GEMX        IF NOT VALID MASS STORAGE DEVICE
01168  M01S00021.1md5    +++|          SFA    EST,T5
01169  M00S00954.1md     +++|          ADK    EQDE        READ EST ENTRY
01170  M00S00955.1md     +++|          CRD    CM
01171  M00S00956.1md     +++|          LCN    0           INITIALIZE INDEX
01172  M00S00957.1md     +++|          STD    T7
01173  M00S00958.1md     +++| GEM1     AOD    T7          ADVANCE INDEX
Line S00959 Modification History
M01 (Removed by) 1md5
Seq #  *Modification Id* Act 
----------------------------+
01174  M01S00959.1md5    ---|          LDM    TDVT,T7
01175  M01S00960.1md5    ---|          ZJN    GEMX        IF END OF LIST
Line S00022 Modification History
M01 (Added by) 1md5
Seq #  *Modification Id* Act 
----------------------------+
01176  M01S00022.1md5    +++|          LDM    TDVT,T7     CHECK NEXT MASS STORAGE DEVICE TYPE
01177  M01S00023.1md5    +++|          ZJP    GEMX        IF END OF LIST
01178  M00S00961.1md     +++|          LMD    CM+3
01179  M00S00962.1md     +++|          NJN    GEM1        IF NOT MATCHING DEVICE TYPE
01180  M00S00963.1md     +++|          LDD    CM+3
01181  M00S00964.1md     +++|          STM    ELMB        GENERATE MESSAGE PREFIX
01182  M00S00965.1md     +++|          LDD    T5
01183  M00S00966.1md     +++|          LPN    7
01184  M00S00967.1md     +++|          SHN    6           SEPARATE PREFIX FROM MESSAGE
01185  M00S00968.1md     +++|          ADC    2R0,
01186  M00S00969.1md     +++|          STM    ELMB+2
01187  M00S00970.1md     +++|          LDD    T5          CONVERT REMAINDER OF EST ORDINAL
01188  M00S00971.1md     +++|          SHN    -3
01189  M00S00972.1md     +++|          RJM    C2D
01190  M00S00973.1md     +++|          STM    ELMB+1
Line S00974 Modification History
M01 (Removed by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
01191  M01S00974.ns2714  ---|          LDM    TEMP,T7     SET PROCESSOR ADDRESS
Line S00005 Modification History
M01 (Added by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
01192  M01S00005.ns2714  +++|          LDD    LN          CHECK MESSAGE LENGTH
01193  M01S00006.ns2714  +++|          SBN    4
01194  M01S00007.ns2714  +++|          PJN    GEM2        IF NOT BASIC MESSAGE
01195  M01S00008.ns2714  +++|          LDC    GEMA
01196  M01S00009.ns2714  +++|          LJM    GEM3        ISSUE BASIC ERRLOG MESSAGE
01197  M01S00010.ns2714  +++|
01198  M01S00011.ns2714  +++| GEM2     LDM    TEMP,T7     SET PROCESSOR ADDRESS
01199  M00S00975.1md     +++|          STD    T7
01200  M00S00976.1md     +++|          LJM    0,T7        EXIT TO MESSAGE PROCESSOR
Line S00012 Modification History
M01 (Added by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
01201  M01S00012.ns2714  +++|
01202  M01S00013.ns2714  +++|
01203  M01S00014.ns2714  +++| GEMA     CON    ERMA
01204  M01S00015.ns2714  +++|          CON    0
01205  M00S00977.1md     +++| GIL      SPACE  4,10
01206  M00S00978.1md     +++|**        GIL - GET *EMB* INTERLOCK.
01207  M00S00979.1md     +++|*
Line S00980 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01208  M01S00980.ns2769  ---|*         ENTRY  (EP+3 - EP+4) = FWA OF *EMB*.
Line S00111 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01209  M01S00111.ns2769  +++|*         ENTRY  (EP+1 - EP+2) = FWA OF *EMB*.
01210  M00S00981.1md     +++|*
Line S00982 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01211  M01S00982.ns2769  ---|*         USES   CM - CM+4.
Line S00112 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01212  M01S00112.ns2769  +++|*         EXIT   *EMB* INTERLOCK OBTAINED.
01213  M01S00113.ns2769  +++|*                (EH - EH+4) = *EMB* HEADER WORD 1 REFRESHED.
01214  M01S00114.ns2769  +++|*
01215  M01S00115.ns2769  +++|*         USES   CM - CM+4, EH - EH+4.
01216  M00S00983.1md     +++|*
01217  M00S00984.1md     +++|*         MACROS DELAY, MONITOR.
01218  M00S00985.1md     +++|
01219  M00S00986.1md     +++|
Line S00116 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01220  M01S00116.ns2769  +++| GIL2     LDD    EP+1
01221  M01S00117.ns2769  +++|          SHN    14          READ *EMB* HEADER WORD
01222  M01S00118.ns2769  +++|          LMD    EP+2
01223  M01S00119.ns2769  +++|          CRD    EH
01224  M01S00120.ns2769  +++|
01225  M00S00987.1md     +++| GIL      SUBR               ENTRY/EXIT
01226  M00S00988.1md     +++| GIL1     LDK    ZERL
01227  M00S00989.1md     +++|          CRD    CM
01228  M00S00990.1md     +++|          LDD    EP+1        FORMAT *UTEM* REQUEST
01229  M00S00991.1md     +++|          STD    CM+3
01230  M00S00992.1md     +++|          LDD    EP+2
01231  M00S00993.1md     +++|          STD    CM+4
01232  M00S00994.1md     +++|          MONITOR  UTEM      GET *EMB* INTERLOCK
01233  M00S00995.1md     +++|          LDD    CM+1
Line S00996 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01234  M01S00996.ns2769  ---|          ZJN    GILX        IF INTERLOCK OBTAINED
Line S00121 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01235  M01S00121.ns2769  +++|          ZJN    GIL2        IF INTERLOCK OBTAINED
01236  M00S00997.1md     +++|          DELAY
01237  M00S00998.1md     +++|          UJN    GIL1        RETRY
01238  M00S00999.1md     +++|          TITLE  MESSAGE GENERATORS.
01239  M00S01000.1md     +++| PDA      SPACE  4,10
01240  M00S01001.1md     +++|**        GENERATE ERRLOG MESSAGES FOR *LDAM* TYPE DEVICES.
01241  M00S01002.1md     +++|
01242  M00S01003.1md     +++|
01243  M00S01004.1md     +++| PDA      BSS    0           ENTRY
01244  M00S01005.1md     +++| PDB      BSS    0
01245  M00S01006.1md     +++| PDD      BSS    0
01246  M00S01007.1md     +++| PDG      BSS    0
01247  M00S01008.1md     +++| PDI      BSS    0
01248  M00S01009.1md     +++| PDJ      BSS    0
01249  M00S01010.1md     +++| PDK      BSS    0
01250  M00S01011.1md     +++| PDL      BSS    0
01251  M00S01012.1md     +++| PDM      BSS    0
01252  M00S01013.1md     +++| PDQ      BSS    0
Line S00001 Modification History
M01 (Added by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
01253  M01S00001.ns2776  +++| PDR      BSS    0
01254  M00S01014.1md     +++| PDX      BSS    0
01255  M00S01015.1md     +++| PDY      BSS    0
01256  M00S01016.1md     +++| PDZ      BSS    0
01257  M00S01017.1md     +++|          RJM    CMP         CONVERT MESSAGE PARAMETERS
01258  M00S01018.1md     +++|
01259  M00S01019.1md     +++|*         INSERT PARAMETERS IN *ERMI* THRU *ERMM* MESSAGES.
01260  M00S01020.1md     +++|
01261  M00S01021.1md     +++|          LDC    ERMI+2      SET PARAMETER ADDRESS
01262  M00S01022.1md     +++|          STD    PA
01263  M00S01023.1md     +++|          LDN    5           NUMBER OF MESSAGES
01264  M00S01024.1md     +++|          STD    T7
01265  M00S01025.1md     +++| PDA1     LDN    4           NUMBER OF PARAMETERS / MESSAGE
01266  M00S01026.1md     +++|          STD    T6
01267  M00S01027.1md     +++| PDA2     RJM    C4D         CONVERT FOUR OCTAL DIGITS
01268  M00S01028.1md     +++|          LDN    2
01269  M00S01029.1md     +++|          RAD    PA          ADVANCE PARAMETER ADDRESS
01270  M00S01030.1md     +++|          SOD    T6
01271  M00S01031.1md     +++|          NJN    PDA2        IF NOT END OF MESSAGE
01272  M00S01032.1md     +++|          AOD    PA
01273  M00S01033.1md     +++|          SOD    T7
01274  M00S01034.1md     +++|          NJN    PDA1        IF NOT END OF MESSAGES
01275  M00S01035.1md     +++|          LDC    PDAT
Line S01036 Modification History
M01 (Removed by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
01276  M01S01036.ns2714  ---|          LJM    GEM2        ISSUE ERRLOG MESSAGES
Line S00016 Modification History
M01 (Added by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
01277  M01S00016.ns2714  +++|          LJM    GEM3        ISSUE ERRLOG MESSAGES
01278  M00S01037.1md     +++|
01279  M00S01038.1md     +++|
01280  M00S01039.1md     +++| PDAT     CON    ERMA
01281  M00S01040.1md     +++|          CON    ERMB
01282  M00S01041.1md     +++|          CON    ERMC
01283  M00S01042.1md     +++|          CON    ERMD
01284  M00S01043.1md     +++|          CON    ERME
01285  M00S01044.1md     +++|          CON    ERMF
01286  M00S01045.1md     +++|          CON    ERMH
01287  M00S01046.1md     +++|          CON    ERMI
01288  M00S01047.1md     +++|          CON    ERMJ
01289  M00S01048.1md     +++|          CON    ERMK
01290  M00S01049.1md     +++|          CON    ERML
01291  M00S01050.1md     +++|          CON    ERMM
01292  M00S01051.1md     +++|          CON    0
01293  M00S01052.1md     +++|          TITLE  MESSAGE GENERATORS.
01294  M00S01053.1md     +++| PDC      SPACE  4,10
01295  M00S01054.1md     +++|**        GENERATE ERRLOG MESSAGES FOR CCC COUPLED DEVICES.
01296  M00S01055.1md     +++|
01297  M00S01056.1md     +++|
01298  M00S01057.1md     +++| PDC      BSS    0           ENTRY
01299  M00S01058.1md     +++|          RJM    CMP         CONVERT MESSAGE PARAMETERS
01300  M00S01059.1md     +++|
01301  M00S01060.1md     +++|*         INSERT PARAMETERS IN *ERMZ* THRU *ERM5* MESSAGES.
01302  M00S01061.1md     +++|
01303  M00S01062.1md     +++|          LDC    ERMZ-1      SET PARAMETER ADDRESS
01304  M00S01063.1md     +++|          STD    PA
01305  M00S01064.1md     +++|          LDN    THCRL-1     INITIALIZE CONVERSION ROUTINE INDEX
01306  M00S01065.1md     +++|          STD    T5
01307  M00S01066.1md     +++|          LDN    24D         NUMBER OF PARAMETERS IN MESSAGE BLOCK
01308  M00S01067.1md     +++|          STD    T7
01309  M00S01068.1md     +++| PDC1     LPN    3
01310  M00S01069.1md     +++|          ZJN    PDC2        IF CROSSING MESSAGE BOUNDARY
01311  M00S01070.1md     +++|          LCN    1
01312  M00S01071.1md     +++| PDC2     ADN    4           ADVANCE CONVERSION ADDRESS
01313  M00S01072.1md     +++|          RAD    PA
01314  M00S01073.1md     +++|          RJM    CCR         CALL CONVERSION ROUTINE
01315  M00S01074.1md     +++|          SOD    T7
01316  M00S01075.1md     +++|          NJN    PDC1        IF NOT END OF PARAMETERS
01317  M00S01076.1md     +++|
01318  M00S01077.1md     +++|*         INSERT PARAMETERS IN *ERMX* MESSAGE.
01319  M00S01078.1md     +++|
01320  M00S01079.1md     +++|          LDC    ERMX+12     SET PARAMETER ADDRESS
01321  M00S01080.1md     +++|          STD    PA
01322  M00S01081.1md     +++|          AOD    BA          ADJUST BML DATA ADDRESS
01323  M00S01082.1md     +++|          LDI    BA
01324  M00S01083.1md     +++|          RJM    CHD         CONVERT CYBER I/F STATUS
01325  M00S01084.1md     +++|
01326  M00S01085.1md     +++|*         INSERT PARAMETERS IN *ERMY* MESSAGE.
01327  M00S01086.1md     +++|
01328  M00S01087.1md     +++|          LDC    ERMY+6      SET PARAMETER ADDRESS
01329  M00S01088.1md     +++|          STD    PA
01330  M00S01089.1md     +++|          AOD    BA          ADJUST BML DATA ADDRESS
01331  M00S01090.1md     +++|          LDI    BA
01332  M00S01091.1md     +++|          STD    T2          SAVE STATUS FOR *C3P*
01333  M00S01092.1md     +++|          SHN    -10
01334  M00S01093.1md     +++|          RJM    CHD         CONVERT CCC STATUS
01335  M00S01094.1md     +++|          LDN    1R -1R0
01336  M00S01095.1md     +++|          SHN    6           INSERT BLANK SEPARATOR
01337  M00S01096.1md     +++|          RAM    -1,PA
01338  M00S01097.1md     +++|          RJM    C3P         CONVERT REMAINDER OF STATUS
01339  M00S01098.1md     +++|          LDD    CT
01340  M00S01099.1md     +++|          ZJN    PDC3        IF NOT DMA PATH TO DEVICE
01341  M00S01100.1md     +++|
01342  M00S01101.1md     +++|*         INSERT PARAMETERS IN *ERM6* MESSAGE.
01343  M00S01102.1md     +++|
01344  M00S01103.1md     +++|          AOD    BA          ADJUST DATA ADDRESS
01345  M00S01104.1md     +++|          LDC    ERM6+7
01346  M00S01105.1md     +++|          STD    PA
01347  M00S01106.1md     +++|          RJM    C6D         CONVERT OPERATIONAL STATUS REGISTER
01348  M00S01107.1md     +++|
01349  M00S01108.1md     +++|*         INSERT PARAMETERS IN *ERM7* MESSAGE.
01350  M00S01109.1md     +++|
01351  M00S01110.1md     +++|          LDC    ERM7+7      SET PARAMETER ADDRESS
01352  M00S01111.1md     +++|          STD    PA
01353  M00S01112.1md     +++|          LCN    0           CONVERT ADAPTOR CONTROL REGISTER
01354  M00S01113.1md     +++|          RJM    C6D
01355  M00S01114.1md     +++|
01356  M00S01115.1md     +++|*         INSERT PARAMETERS IN *ERM8* MESSAGE.
01357  M00S01116.1md     +++|
01358  M00S01117.1md     +++|          LDC    ERM8+7      SET PARAMETER ADDRESS
01359  M00S01118.1md     +++|          STD    PA
01360  M00S01119.1md     +++|          RJM    C6D         CONVERT ERROR STATUS REGISTER
01361  M00S01120.1md     +++|          LDC    ERM6
01362  M00S01121.1md     +++| PDC3     STM    PDCTE       SET / CLEAR END OF MESSAGES
01363  M00S01122.1md     +++|          LDC    PDCT
Line S01123 Modification History
M01 (Removed by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
01364  M01S01123.ns2714  ---|          LJM    GEM2        ISSUE ERRLOG MESSAGES
Line S00017 Modification History
M01 (Added by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
01365  M01S00017.ns2714  +++|          LJM    GEM3        ISSUE ERRLOG MESSAGES
01366  M00S01124.1md     +++|
01367  M00S01125.1md     +++|
01368  M00S01126.1md     +++| PDCT     CON    ERMA
01369  M00S01127.1md     +++|          CON    ERMB
01370  M00S01128.1md     +++|          CON    ERMC
01371  M00S01129.1md     +++|          CON    ERMD
01372  M00S01130.1md     +++|          CON    ERME
01373  M00S01131.1md     +++|          CON    ERMF
01374  M00S01132.1md     +++|          CON    ERMX
01375  M00S01133.1md     +++|          CON    ERMY
01376  M00S01134.1md     +++|          CON    ERMH
01377  M00S01135.1md     +++|          CON    ERMZ
01378  M00S01136.1md     +++|          CON    ERM1
01379  M00S01137.1md     +++|          CON    ERM2
01380  M00S01138.1md     +++|          CON    ERM3
01381  M00S01139.1md     +++|          CON    ERM4
01382  M00S01140.1md     +++|          CON    ERM5
01383  M00S01141.1md     +++| PDCTE    CON    ERM6
01384  M00S01142.1md     +++|          CON    ERM7
01385  M00S01143.1md     +++|          CON    ERM8
01386  M00S01144.1md     +++|          CON    0
01387  M00S01145.1md     +++|          TITLE  MESSAGE GENERATORS.
01388  M00S01146.1md     +++| PDE      SPACE  4,10
01389  M00S01147.1md     +++|**        GENERATE ERRLOG MESSAGES FOR EXTENDED MEMORY DEVICES.
01390  M00S01148.1md     +++|
01391  M00S01149.1md     +++|
01392  M00S01150.1md     +++| PDE      BSS    0           ENTRY
01393  M00S01151.1md     +++| PDP      BSS    0
01394  M00S01152.1md     +++|
01395  M00S01153.1md     +++|*         INSERT PARAMETERS IN *ERMB* MESSAGE.
01396  M00S01154.1md     +++|
01397  M00S01155.1md     +++|          LDM    BUFF+3*5,EO  CONVERT ERROR CODE
01398  M00S01156.1md     +++|          RJM    C2D
01399  M00S01157.1md     +++|          STM    ERMB+7      SET IN MESSAGE
01400  M00S01158.1md     +++|
01401  M00S01159.1md     +++|*         INSERT PARAMETERS IN *ERMG* MESSAGE.
01402  M00S01160.1md     +++|
01403  M00S01161.1md     +++|          LDC    BUFF+4*5+1  SET BUFFER ADDRESS
01404  M00S01162.1md     +++|          ADD    EO
01405  M00S01163.1md     +++|          STD    BA
01406  M00S01164.1md     +++|          LDC    ERMG+5      SET PARAMETER ADDRESS
01407  M00S01165.1md     +++|          STD    PA
01408  M00S01166.1md     +++|          RJM    C4D         CONVERT STATUS
01409  M00S01167.1md     +++|
01410  M00S01168.1md     +++|*         INSERT PARAMETERS IN *ERMN* MESSAGE.
01411  M00S01169.1md     +++|
01412  M00S01170.1md     +++|          LDC    ERMN+7      SET PARAMETER ADDRESS
01413  M00S01171.1md     +++|          STD    PA
01414  M00S01172.1md     +++|          RJM    C4D         CONVERT WORD COUNT
01415  M00S01173.1md     +++|
01416  M00S01174.1md     +++|*         INSERT PARAMETERS IN *ERMO* MESSAGE.
01417  M00S01175.1md     +++|
01418  M00S01176.1md     +++|          LDC    ERMO+5      SET PARAMETER ADDRESS
01419  M00S01177.1md     +++|          STD    PA
01420  M00S01178.1md     +++|          RJM    C4D         CONVERT EXTENDED MEMORY ADDRESS
01421  M00S01179.1md     +++|          RJM    C4D
01422  M00S01180.1md     +++|          LDC    PDET
Line S01181 Modification History
M01 (Removed by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
01423  M01S01181.ns2714  ---|          LJM    GEM2        ISSUE ERRLOG MESSAGES
Line S00018 Modification History
M01 (Added by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
01424  M01S00018.ns2714  +++|          LJM    GEM3        ISSUE ERRLOG MESSAGES
01425  M00S01182.1md     +++|
01426  M00S01183.1md     +++|
01427  M00S01184.1md     +++| PDET     CON    ERMA
01428  M00S01185.1md     +++|          CON    ERMB
01429  M00S01186.1md     +++|          CON    ERMG
01430  M00S01187.1md     +++|          CON    ERMN
01431  M00S01188.1md     +++|          CON    ERMO
01432  M00S01189.1md     +++|          CON    0
01433  M00S01190.1md     +++|          TITLE  MESSAGE GENERATORS.
01434  M00S01191.1md     +++| PDF      SPACE  4,10
Line S01192 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
01435  M01S01192.272l774 ---|**        GENERATE ERRLOG MESSAGES FOR HYDRA TYPE DEVICES.
Line S00016 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
01436  M01S00016.272l774 +++|**        GENERATE ERRLOG MESSAGES FOR 887 DEVICES.
01437  M00S01193.1md     +++|
01438  M00S01194.1md     +++|
01439  M00S01195.1md     +++| PDF      BSS    0           ENTRY
01440  M00S01196.1md     +++| PDH      BSS    0
Line S00026 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01441  M01S00026.271l716 +++|          LDN    0
01442  M01S00027.271l716 +++| PDF1     STM    PDFA
01443  M00S01197.1md     +++|
01444  M00S01198.1md     +++|*         INSERT PARAMETERS IN *ERMP* MESSAGE.
01445  M00S01199.1md     +++|
01446  M00S01200.1md     +++|          LDM    BUFF+3*5+4,EO  CONVERT FAULT CODE
01447  M00S01201.1md     +++|          RJM    C2D
01448  M00S01202.1md     +++|          STM    ERMP+7      SET IN MESSAGE
01449  M00S01203.1md     +++|
01450  M00S01204.1md     +++|*         INSERT PARAMETERS IN *ERMQ* MESSAGE.
01451  M00S01205.1md     +++|
01452  M00S01206.1md     +++|          LDM    BUFF+1*5+2,EO  CONVERT CPP NUMBER
01453  M00S01207.1md     +++|          SHN    -6
01454  M00S01208.1md     +++|          RJM    C2D
01455  M00S01209.1md     +++|          STM    ERMQ+3
01456  M00S01210.1md     +++|          LDM    BUFF+1*5+2,EO  CONVERT CCH NUMBER
01457  M00S01211.1md     +++|          LPN    37
01458  M00S01212.1md     +++|          RJM    C2D
01459  M00S01213.1md     +++|          STM    ERMQ+10
01460  M00S01214.1md     +++|          LDM    BUFF+1*5+4,EO  APPEND PORT DESIGNATOR
01461  M00S01215.1md     +++|          ADC    2RA,
01462  M00S01216.1md     +++|          STM    ERMQ+11
Line S00017 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
01463  M01S00017.272l774 +++|          LDM    BUFF+1*5+3,EO  CONVERT EQUIPMENT (CONTROLLER) NUMBER
01464  M01S00018.272l774 +++|          SHN    -6
01465  M01S00019.272l774 +++|          RJM    C2D
01466  M01S00020.272l774 +++|          SHN    6
01467  M01S00021.272l774 +++|          LMN    1R,
01468  M01S00022.272l774 +++|          STM    ERMQ+15
01469  M00S01217.1md     +++|          LDM    BUFF+1*5+3,EO  CONVERT UNIT NUMBER
Line S00023 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
01470  M01S00023.272l774 +++|          LPN    77
01471  M00S01218.1md     +++|          RJM    C2D
Line S01219 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
01472  M01S01219.272l774 ---|          STM    ERMQ+15
Line S00024 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
01473  M01S00024.272l774 +++|          STM    ERMQ+21
Line S00019 Modification History
M01 (Added by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
01474  M01S00019.ns2714  +++| PDF2     LDC    PDNT        SET LIST ADDRESS
01475  M01S00020.ns2714  +++|          STD    LA
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/1md.txt ยท Last modified: by 127.0.0.1