* 00070020 * 00140020 * DSGEN MACRO DSGEN MACRO DSGEN MACRO DSGEN MACRO * 00210020 SPACE 2 00280020 MACRO 00350020 &NAME DSGEN &X1,&X2,&X3,&X4,&X5,&X6,&X7,&X8,&X9,&X10,&X11,&X12,&X13,X00420020 &X14,&X15,&X16,&X17,&X18,&X19,&X20,&X21,&X22,&X23,&X24, X00490020 &X25,&X26,&X27,&X28,&X29,&X30,&X31,&X32 00560020 .* THIS MACRO GENERATES ONE DSECT WORD 00630020 .* FORMATTED FOR THE SUBJECT LOG RECORD 00700020 .* EACH OPERAND HAS TWO SUB LISTS. THE 00770020 .* FIRST IS THE NAME OF THE LOG ITEM 00840020 .* WHILE THE SECOND IS THE # OF BITS TO 00910020 .* ALLOCATE FOR THIS ITEM. ITEMS MUST 00980020 .* BE DEFINED CONTIGUOUSLY WITHOUT GAPS 01050020 .* UNUSED BIT GROUPS MUST BE GIVEN 01120020 .* DUMMY NAMES. THE NAMES PROVIDED FOR 01190020 .* THE LOG ITEMS MAY THEN BE USED IN 01260020 .* THE CONVERSION MACRO INSTRUCTIONS. 01330020 GBLC &ITEM(2000) 01400020 GBLA &ITEMNBR,&BITS(2000),&SHIFT(2000) 01470020 LCLC &SYMBOL 01540020 LCLA &OP,&COUNT,&BYTE 01610020 .LOOP ANOP 01680020 &OP SETA &OP+1 01750020 &ITEMNBR SETA &ITEMNBR+1 01820020 &SYMBOL SETC '&SYSLIST(&OP,1)' 01890020 AIF ('&SYSLIST(&OP,2)' NE '').OK1 01960020 MNOTE 'NULL BIT COUNT FIELD' 02030020 MEXIT 02100020 .OK1 ANOP 02170020 AIF ('&SYMBOL' NE '').OK 02240020 MNOTE 'LOG ITEM SYMBOL NOT PROVIDED' 02310020 AGO .CNT 02380020 .OK ANOP 02450020 AIF ('&SYMBOL'(1,1) EQ '''').CNT *TEMP* 02520020 &SYMBOL EQU *+&BYTE 02590020 &ITEM(&ITEMNBR) SETC '&SYSLIST(&OP,1)' 02660020 &BITS(&ITEMNBR) SETA &SYSLIST(&OP,2) 02730020 &SHIFT(&ITEMNBR) SETA &COUNT-&BYTE*8 02800020 .CNT ANOP 02870020 &COUNT SETA &COUNT+&SYSLIST(&OP,2) 02940020 &BYTE SETA &COUNT/8 03010020 AIF (&OP LT N'&SYSLIST).LOOP 03080020 AIF (&COUNT NE 32).NOT32 03150020 &NAME DS 4C 03220020 MEXIT 03290020 .NOT32 AIF (&COUNT NE 64).ERR 03360020 &NAME DS 8C 03430020 MEXIT 03500020 .ERR MNOTE '**BIT COUNT FIELDS DO NOT TOTAL 32 OR 64**' 03570020 MEND 03640020 * 03710020 * 03780020 MACRO 03850020 &NAME LINE &DATA,&LABEL,&SKIP= 03920020 .* THIS MACRO ESTABLISHES THE MARGINS OR 03990020 .* COLUMN SETTINGS FOR EACH LINE. IT 04060020 .* GENERATES NECESSARY CARRIAGE CONTROL 04130020 .* ENTRIES. LASTLY IT DETERMINES THE 04200020 .* NUMBER OF ENTRIES ASSOCIATED WITH 04270020 .* THE PREVIOUS LINE AND STORES THAT # 04340020 .* INTO THE APPROPRIATE BYTE. 04410020 .* 04480020 .* &DATA(1) - CHARACTER POSITION TO 04550020 .* BEGIN DATA. 04620020 .* 04690020 .* &DATA(2) - # OF SPACES BETWEEN 04760020 .* SUCCESSIVE DATA COLUMN STARTING 04830020 .* CHARACTERS. 04900020 .* 04970020 .* &LABEL(1) - CHARACTER POSITION 05040020 .* TO BEGIN LABELS. 05110020 .* 05180020 .* &LABEL(2) - # OF SPACES BETWEEN 05250020 .* LINE'S LABEL STARTING CHARACTERS. 05320020 .* 05390020 .* &SKIP= - # OF LINES TO ADVANCE 05460020 .* CARRIAGE TO BEGIN NEXT PRINTED LINE. 05530020 .* 05600020 .* NEW ENTRIES ARE GENERATED ONLY WHEN 05670020 .* NECESSARY. OMISSION OF ITEMS MEANS 05740020 .* THEY HAVE NOT CHANGED SINCE PREVIOUS 05810020 .* SETTINGS. A LINE MACRO IS REQUIRED 05880020 .* FOR EACH PRINTED LINE. IF NO SETTING 05950020 .* CHANGES ARE REQUIRED ALL OPERANDS 06020020 .* ARE OMITTED IN WHICH CASE ONLY THE 06090020 .* # OF ENTRIES FOR THE PREVIOUS LINE 06160020 .* IS COMPUTED. THIS MACRO MUST BE THE 06230020 .* FIRST MACRO INSTRUCTION ISSUED FOR 06300020 .* THE SUBJECT LINE. 06370020 GBLA &DB,&DT,&LB,<,&NRENTS 06440020 GBLA &LASTCC,&INITIAL 06510020 GBLC &NRENTSX 06580020 GBLC &CARRCON 06650020 GBLB &TEST 06720020 LCLA &S 06790020 &NAME DS 0C 06860020 AIF (&INITIAL EQ 0).FIRSTLN 06930020 LINEND 07000020 AGO .NTFIRST 07070020 .FIRSTLN ANOP 07140020 &NRENTSX SETC 'N&SYSNDX' 07210020 &INITIAL SETA 1 07280020 N&SYSNDX EQU * 07350020 .NTFIRST ANOP 07420020 DC AL1(0) 07490020 AIF ('&DATA(1)' EQ '').CKDTABS 07560020 AIF (&DATA(1) EQ &DB).CKDTABS 07630020 &DB SETA &DATA(1) 07700020 AGO .AA 07770020 .CKDTABS AIF ('&DATA(2)' EQ '').NCDATA 07840020 AIF (&DATA(2) EQ &DT).NCDATA 07910020 AGO .CC 07980020 .AA AIF ('&DATA(2)' EQ '').BB 08050020 AIF (&DATA(2) EQ &DT).BB 08120020 .CC ANOP 08190020 &DT SETA &DATA(2) 08260020 .BB DC XL2'FFFE' 08330020 DC FL1'&DB' 08400020 DC FL1'&DT' 08470020 &NRENTS SETA &NRENTS+1 08540020 .NCDATA ANOP 08610020 AIF ('&LABEL(1)' EQ '').CKLTABS 08680020 AIF (&LABEL(1) EQ &LB).CKLTABS 08750020 &LB SETA &LABEL(1) 08820020 AGO .AAA 08890020 .CKLTABS AIF ('&LABEL(2)' EQ '').NCLABEL 08960020 AIF (&LABEL(2) EQ <).NCLABEL 09030020 AGO .CCC 09100020 .AAA AIF ('&LABEL(2)' EQ '').BBB 09170020 AIF (&LABEL(2) EQ <).BBB 09240020 .CCC ANOP 09310020 < SETA &LABEL(2) 09380020 .BBB DC XL2'FFFF' 09450020 DC FL1'&LB' 09520020 DC FL1'<' 09590020 &NRENTS SETA &NRENTS+1 09660020 .NCLABEL ANOP 09730020 AIF ('&SKIP' NE '').CONT 09800020 AIF (&TEST EQ 0).NOCHANG 09870020 &S SETA &LASTCC 09940020 AGO .DEFAULT 10010020 .CONT ANOP 10080020 AIF (&TEST EQ 0).AB 10150020 &S SETA &SKIP 10220020 .DEFAULT ANOP 10290020 ORG &CARRCON+3 10360020 DC AL.3(0),AL.2(&S),AL.3(1) 10430020 ORG 10500020 &LASTCC SETA &S 10570020 &TEST SETB 0 10640020 AGO .DD 10710020 .AB AIF (&SKIP EQ &LASTCC).NOCHANG 10780020 A&SYSNDX DC XL2'FFFB' 10850020 DC AL.3(0),AL.2(&SKIP),AL.3(1) 10920020 DC FL1'9' 10990020 &LASTCC SETA &SKIP 11060020 &TEST SETB 1 11130020 &CARRCON SETC 'A&SYSNDX' 11200020 &NRENTS SETA &NRENTS+1 11270020 .DD ANOP 11340020 .NOCHANG ANOP 11410020 MEND 11480020 * 11550020 * 11620020 *********************************************************************** 11690020 * 11760020 * 11830020 MACRO 11900020 BIN &LOGITEM,&SKIP$OR 11970020 .* &LOGITEM - NAME OF ITEM IN LOG DSECT 12040020 .* 12110020 .* &SKIP$OR - NUMBER OF SPACES TO SKIP 12180020 .* ON MULTIPLE PRINT OR NUMBER OF 12250020 .* SPACES TO BACK UP FROM COLUMN FOR 12320020 .* START OF PRINTING. THE LETTER B 12390020 .* PRECEEDS THE NUMBER (B5) IF THE 12460020 .* LATTER IS DESIRED. OMISSION OF THIS 12530020 .* OPERAND FORCES OPTION 2 WITH BACKUP 12600020 .* SPACING EQUAL TO THE NUMBER OF BITS 12670020 .* IN THE ITEM DEFINITION (VIA MACRO 12740020 .* 'DSGEN'). A LIMIT OF 15 BITS IS 12810020 .* IMPOSED FOR THE TOTAL NUMBER OF BITS 12880020 .* TO PRINT. 12950020 GBLC &ITEM(2000) 13020020 GBLA &ITEMNBR,&BITS(2000),&SHIFT(2000),&NRENTS 13090020 GBLC &DSECT 13160020 LCLB &B 13230020 LCLA &IBITS,&NDX,&ISHIFT,&K 13300020 LCLA &TEMP,&T 13370020 LCLC &S 13440020 .LOOP ANOP 13510020 &NDX SETA &NDX+1 13580020 AIF ('&ITEM(&NDX)' EQ '&LOGITEM').FOUND 13650020 AIF (&NDX LT &ITEMNBR).LOOP 13720020 MNOTE '**LOG ITEM NOT FOUND**' 13790020 ROUTINE DUM,SKIPPER 13860020 MEXIT 13930020 .FOUND ANOP 14000020 &ISHIFT SETA &SHIFT(&NDX) 14070020 &IBITS SETA &BITS(&NDX) 14140020 &T SETA &IBITS-1 14210020 &B SETB 0 14280020 AIF ('&SKIP$OR' EQ '').BACKUP 14350020 &K SETA K'&SKIP$OR 14420020 &B SETB ('&SKIP$OR'(1,1) EQ 'B') 14490020 &S SETC '&SKIP$OR'(&B+1,&K-&B) 14560020 &T SETA &S 14630020 .BACKUP ANOP 14700020 &NRENTS SETA &NRENTS+1 14770020 &TEMP SETA &ISHIFT 14840020 A&SYSNDX DC AL.12(&LOGITEM-&DSECT),XL.4'&TEMP' 14910020 AIF (&IBITS EQ 1 AND &B EQ 0).OUT 14980020 ORG A&SYSNDX 15050020 &B SETB 1 15120020 DC AL.12(&LOGITEM-&DSECT),XL.4'C' 15190020 DC BL.1'&B',AL.7(&T),AL.4(&IBITS),FL.4'&ISHIFT' 15260020 .OUT ANOP 15330020 MEND 15400020 * 15470020 * 15540020 *********************************************************************** 15610020 * 15680020 * 15750020 MACRO 15820020 HEX &LOGITEM,&SKIP$OR,&BYTES 15890020 .* 15960020 .* THIS MACRO FACILITATES GENERATION 16030020 .* OF THE TABLE ENTRIES SPECIFYING HEX 16100020 .* TYPE CONVERSIONS. 16170020 .* 16240020 .* &LOGITEM - NAME OF DATA ITEM TO BE 16310020 .* CONVERTED. 16380020 .* 16450020 .* &SKIP$OR - NUMBER OF SPACES TO SKIP 16520020 .* ON MULTIPLE PRINT OF NUMBER OF 16590020 .* SPACES TO BACK UP FROM COLUMN FOR 16660020 .* START OF PRINTING. THE LETTER B 16730020 .* PRECEEDS THE NUMBER (B8) IF THE 16800020 .* LATTER OPTION IS DESIRED. OMISSION 16870020 .* OF THIS OPERAND FORCES OPTION 2 WITH 16940020 .* BACKUP SPACING EQUAL TO THE NUMBER 17010020 .* OF BYTES SPECIFIED BY THE NEXT 17080020 .* OPERAND (TWICE THIS NUMBER IF SUFFIX 17150020 .* IS EXPLICITLY OR IMPLICITLY B). 17220020 .* 17290020 .* &BYTES - NUMBER OF TOTAL INPUT BYTES 17360020 .* TO PROCESS. THIS NUMBER IS SUFFIXED 17430020 .* WITH A L,R, OR B TO STIPULATE 17500020 .* PRINTING OF THE LEFT HALF, RIGHT 17570020 .* HALF, OR BOTH HALVES OF THE BYTE 17640020 .* RESPECTIVELY. OMISSION OF THIS 17710020 .* OPERAND DEFAULTS TO B WITH THE 17780020 .* NUMBER OF BYTES EQUAL TO THE ITEM 17850020 .* LENGTH. 17920020 .* 17990020 .* A NEW ENTRY IS GENERATED ONLY WHEN 18060020 .* NECESSARY. THIS MACRO MUST BE THE 18130020 .* FIRST MACRO INSTRUCTION ISSUED FOR 18200020 .* THE SUBJECT LINE(S) 18270020 GBLC &ITEM(2000),&DSECT 18340020 GBLA &ITEMNBR,&BITS(2000),&SHIFT(2000),&NRENTS 18410020 LCLB &B 18480020 LCLA &IBITS,&NDX,&ISHIFT,&K,&T,&CODE,&BYTESP 18550020 LCLC &S,&LETTER 18620020 .LOOP ANOP 18690020 &NDX SETA &NDX+1 18760020 AIF ('&ITEM(&NDX)' EQ '&LOGITEM').FOUND 18830020 AIF (&NDX LT &ITEMNBR).LOOP 18900020 MNOTE '**LOG ITEM NOT FOUND**' 18970020 MEXIT 19040020 .FOUND ANOP 19110020 &ISHIFT SETA &SHIFT(&NDX) 19180020 &IBITS SETA &BITS(&NDX) 19250020 &CODE SETA 1 19320020 &K SETA K'&BYTES 19390020 AIF (&IBITS-(&IBITS/4)*4 EQ 0).OK 19460020 MNOTE 'BIT LENGTH SPECIFICATION INCONSISTENT WITH CONTROL' 19530020 MEXIT 19600020 .OK AIF ('&BYTES' EQ '').USEDEFN 19670020 &LETTER SETC '&BYTES'(&K,1) 19740020 &S SETC '&BYTES'(1,&K-1) 19810020 &BYTESP SETA &S 19880020 AIF ('&LETTER' EQ 'B').BOTH 19950020 AIF ('&LETTER' EQ 'L').LEFT 20020020 &CODE SETA 2 20090020 AGO .L 20160020 .LEFT ANOP 20230020 &CODE SETA 1 20300020 AGO .L 20370020 AIF (&ISHIFT EQ 0 OR &ISHIFT EQ 4).OK2 20440020 .ERR MNOTE 'DATA NOT ALIGNED ON HEX OR BYTE BOUNDARY' 20510020 MEXIT 20580020 .USEDEFN ANOP 20650020 &BYTESP SETA &IBITS/8 20720020 .BOTH AIF (&ISHIFT NE 0).ERR 20790020 &CODE SETA 3 20860020 &T SETA &BYTESP*2-1 20930020 &S SETC '&T' 21000020 .OK2 AIF (&ISHIFT EQ 0).L 21070020 &CODE SETA 2 21140020 .L ANOP 21210020 &B SETB 1 21280020 AIF ('&SKIP$OR' EQ '').BACKUP 21350020 &K SETA K'&SKIP$OR 21420020 &B SETB ('&SKIP$OR'(1,1) EQ 'B') 21490020 &S SETC '&SKIP$OR'(&B+1,&K-&B) 21560020 .BACKUP ANOP 21630020 &NRENTS SETA &NRENTS+1 21700020 DC AL.12(&LOGITEM-&DSECT),XL.4'A' 21770020 DC BL.1'&B',FL.7'&S',AL.4(&BYTESP),FL.4'&CODE' 21840020 .OUT ANOP 21910020 MEND 21980020 * 22050020 * 22120020 *********************************************************************** 22190020 * 22260020 * 22330020 MACRO 22400020 &NAME ROUTINE &LOGITEM,&RNAME 22470020 GBLC &ITEM(2000) 22540020 GBLA &SHIFT(2000),&ITEMNBR 22610020 GBLC &DSECT,&CSECT 22680020 GBLA &NRENTS 22750020 LCLA &ISHIFT,&NDX 22820020 .LOOP ANOP 22890020 &NDX SETA &NDX+1 22960020 AIF ('&ITEM(&NDX)' EQ '&LOGITEM').FOUND 23030020 AIF (&NDX LT &ITEMNBR).LOOP 23100020 MNOTE 'LOG ITEM NOT DEFINED' 23170020 MEXIT 23240020 .FOUND ANOP 23310020 &ISHIFT SETA &SHIFT(&NDX) 23380020 &NAME DC AL.12(&LOGITEM-&DSECT),XL.4'D' 23450020 DC AL.4(&ISHIFT),AL.12(&RNAME-&CSECT) 23520020 &NRENTS SETA &NRENTS+1 23590020 MEND 23660020 * 23730020 * 23800020 *********************************************************************** 23870020 * 23940020 * 24010020 MACRO 24080020 &NAME LABEL &LABEL1,&LABEL2,&LABEL3,&LABEL4,&LABEL5,&LABEL6, C24150020 &LABEL7,&LABEL8 24220020 .* THIS MACRO ALLOWS UP TO ACHT LABELS TO 24290020 .* BE SPECIFIED FOR A GIVEN LINE. THE 24360020 .* LABELS SHOULD BE ENCLOSED IN QUOTA- 24430020 .* TION MARKS. THE COLUMN AND LINE END 24500020 .* CONTROLS WILL BE INSERTED BY THE 24570020 .* MACRO. OMITTED OPERANDS MEAN NO 24640020 .* LABEL REQUIRED FOR RESPECTIVE 24710020 .* COLUMN. THIS MACRO WILL ALSO ALERT 24780020 .* THE PROGRAMMER TO EXACTLY WHERE THE 24850020 .* TABLE MUST BE BROKEN IF NECESSARY 24920020 .* TO AVOID EXCEEDING THE MAXIMUM LIMIT 24990020 GBLC &LABELS(2000) 25060020 GBLC &LBL(100) 25130020 GBLA &LBLCTR(100) 25200020 GBLA &LABELNR 25270020 GBLA &NRENTS,&LPTR 25340020 LCLC &MARGIN,&TACK 25410020 LCLC &TEXT 25480020 LCLA &OP,&K,&START,&NRCHAR,&REMAIN 25550020 &MARGIN SETC '*' 25620020 AIF ('&NAME' EQ '').LOOPOUT 25690020 &LPTR SETA &LPTR+1 25760020 &LBL(&LPTR) SETC '&NAME' 25830020 &LBLCTR(&LPTR) SETA &LABELNR+1 25900020 .LOOPOUT ANOP 25970020 &OP SETA &OP+1 26040020 &K SETA K'&SYSLIST(&OP) 26110020 AIF (&K GE 2).NORM 26180020 &K SETA 2 26250020 .NORM ANOP 26320020 &START SETA 2 26390020 AIF (&OP LT N'&SYSLIST).NOTLAST 26460020 &MARGIN SETC '$' 26530020 .NOTLAST ANOP 26600020 &NRCHAR SETA 8 26670020 &TACK SETC '' 26740020 .LOOPIN ANOP 26810020 &REMAIN SETA &K-&START 26880020 AIF (&REMAIN GE 8).MORE 26950020 &TACK SETC '&MARGIN' 27020020 &NRCHAR SETA &REMAIN 27090020 .MORE ANOP 27160020 &TEXT SETC '' 27230020 AIF (&REMAIN EQ 0).ENDTEXT 27300020 &TEXT SETC '&SYSLIST(&OP)'(&START,&NRCHAR) 27370020 .ENDTEXT ANOP 27440020 &LABELNR SETA &LABELNR+1 27510020 &LABELS(&LABELNR) SETC '&TEXT'.'&TACK' 27580020 &START SETA &START+8 27650020 AIF ('&TACK' EQ '').LOOPIN 27720020 AIF ('&TACK' EQ '*').LOOPOUT 27790020 MEND 27860020 SPACE 2 27930020 MACRO 28000020 LSTART 28070020 .* THIS MACRO IS ISSUED WHEN THE LABEL AREA 28140020 .* OF THE TABLE IS TO BEGIN. 28210020 GBLC &LABELS(2000) 28280020 GBLA &LABELNR 28350020 GBLC &LBL(100) 28420020 GBLA &LBLCTR(100) 28490020 LCLA &NDX,&CTR 28560020 LINEND 28630020 &CTR SETA 1 28700020 .LOOP ANOP 28770020 &NDX SETA &NDX+1 28840020 AIF (&LBLCTR(&CTR) NE &NDX).NOLBL 28910020 &LBL(&CTR) DC C'&LABELS(&NDX)' 28980020 &CTR SETA &CTR+1 29050020 AGO .LOOPCTL 29120020 .NOLBL ANOP 29190020 DC C'&LABELS(&NDX)' 29260020 .LOOPCTL AIF (&NDX LT &LABELNR).LOOP 29330020 MEND 29400020 * 29470020 * 29540020 *********************************************************************** 29610020 * 29680020 * 29750020 MACRO 29820020 LINEND 29890020 .* THIS MACRO IS USED ONLY BY THE LINE 29960020 .* MACRO TO SET THE NUMBER OF ENTRIES 30030020 .* ASSOCIATED WITH EACH LINE. 30100020 GBLA &NRENTS 30170020 GBLC &NRENTSX 30240020 ORG &NRENTSX 30310020 DC FL1'&NRENTS' 30380020 ORG 30450020 &NRENTS SETA 0 30520020 B&SYSNDX EQU * 30590020 &NRENTSX SETC 'B&SYSNDX' 30660020 MEND 30730020 * 30800020 * 30870020 *********************************************************************** 30940020 * 31010020 * 31080020 MACRO 31150020 &NAME BIND &Z1,&Z2,&Z3,&Z4 31220020 .* THIS MACRO HELPS COLLOCATE BITS IN 31290020 .* DIFFERENT AREAS OF THE LOG TO MAKE 31360020 .* THEM ACCESSIBLE TO THE 'HEX' MACRO. 31430020 .* EACH OPERAND HAS 3 SUBFIELDS:1 SPE- 31500020 .* CIFIES BY LOGITEM NAME THE BYTE TO 31570020 .* BE REFERENCED,2 GIVES THE NUMBER OF 31640020 .* UNDESIRED BITS TO THE LEFT OF THE 31710020 .* LOG ITEM'S FIRST BIT,3 GIVES THE LOG 31780020 .* ITEM'S LENGTH IN BITS. THE MACRO 31850020 .* CAUSES THE INFORMATION TO BE STORED & 31920020 .* CONTROL IS GIVEN TO THE 'BINDER' ROU- 31990020 .* TINE,WHICH STORES THE COLLOCATED 32060020 .* BITS RIGHT-JUSTIFIED IN THE FOUR- 32130020 .* BYTE WORK AREA INSERTED IN THE LOG, 32200020 .* BEGINNING AT 'LOGWORK1' 32270020 GBLC &DSECT 32340020 LCLA &OP 32410020 &NAME BC 15,BINDER 32480020 .LOOP ANOP 32550020 &OP SETA &OP+1 32620020 DC AL.16(&SYSLIST(&OP,1)-&DSECT) 32690020 DC FL1'&SYSLIST(&OP,2)' 32760020 DC FL1'&SYSLIST(&OP,3)' 32830020 AIF (&OP LT N'&SYSLIST).LOOP 32900020 ORG &NAME+4 32970020 DC AL.4(&OP),AL.12(&SYSLIST(1,1)-&DSECT) 33040020 ORG 33110020 MEND 33180020 MACRO 33250020 &NAME CKPARITY &PAR1,&PAR2,&PAR3,&PAR4,&PAR5,&PAR6 33320020 .* THIS MACRO HELPS SET THE LOCATION 33390020 .* CONTROLS FOR A SPECIAL ROUTINE TO 33460020 .* CHECK PARITY ON ITEMS FROM THE LOG 33530020 .* ALREADY ASSEMBLED FOR PRINTING IN THE 33600020 .* PRINT BUFFER THAT HAS BEEN SET UP. 33670020 .* EACH OPERAND (UP TO SIX) HAS THREE 33740020 .* SUBFIELDS:1 GIVES THE DISPLACEMENT 33810020 .* FROM PRINT POSITION ZERO TO BEGIN 33880020 .* THE PARITY CHECK(I.E.,LOC. OF PARITY 33950020 .* BIT IN BUFFER);2 GIVES THE NUMBER OF 34020020 .* POSITIONS TO CHECK AGAINST THE PARITY 34090020 .* BIT (ASSUMING 1 SPACE BETWEEN PAR BIT 34160020 .* AND THE FIRST POSITION TO BE CHECKED) 34230020 .* 3 GIVES THE NUMBER OF SEQUENTIAL PAR. 34300020 .* CHECKS OF THIS SORT TO MAKE,ASSUMING 34370020 .* TWO SPACES BETWEEN THE LAST POSITION 34440020 .* CHECKED AND NEXT PAR. BIT POSITION 34510020 LCLA &OP 34580020 &NAME BC 15,PARPUT 34650020 DC X'0' 34720020 .LOOP ANOP 34790020 &OP SETA &OP+1 34860020 DC FL1'&SYSLIST(&OP,1)' 34930020 DC FL1'&SYSLIST(&OP,2)' 35000020 DC FL1'&SYSLIST(&OP,3)' 35070020 AIF (&OP LT N'&SYSLIST).LOOP 35140020 ORG &NAME+4 35210020 DC FL1'&OP' 35280020 ORG 35350020 MEND 35420020 GBLC &DSECT,&CSECT 35490020 IFCEC155 CSECT 35560020 &CSECT SETC 'IFCEC155' 35630020 &DSECT SETC 'DSECT155' 35700020 DSECT155 DSECT 35770020 DS 0F 35840020 DSGEN (XKEY,16),(XSWS0,8),(XSWS8,1),(XSWS9,1), *35910020 (XSWS10,1),(XSWS11,1), *35980020 (XSWS12,1),(XSWS13,1),(XSWS14,1),(XSWS15,1) 36050020 DSGEN (LOGWORK1,8),(LOGWORK2,6),(LOGWORK3,2),(LOGWRK3A,4), *36120020 (LOGWRK3B,3),(LOGWRK3C,1),(LOGWORK4,8) 36190020 DSGEN (XDATE,32) 36260020 DSGEN (XTIME,32) 36330020 DSGEN (XDUM2,8),(XSER,24) 36400020 DSGEN (XCPUMOD,16),(XDUM3,16) 36470020 DSGEN (XPGMID,64) 36540020 DSGEN (XJOBID,64) 36610020 DSGEN (XMCKPSW,64) 36680020 DSGEN (SYSDAM,1),(PROCD,1),(SYSREC,1),(TIMDAM,1),(CLOCKD,1), X36750020 (EXTDAM,1),(MDUM0,1),(AUTOCON,1),(WARNG,1), X36820020 (DUM,5),(BACKUP1,1),(DELAY,1),(UNSTOR,1), *36890020 (CORRST,1),(KEYERR,1),(DUMMY001,1),(EMWP,1), *36960020 (SYSMSK,1),(PGMSK,1),(IAVLD,1),(FASTVLD,1), X37030020 (RCVLD,1),(MDUM3,1),(FLPVLD,1),(GPRVLD,1), X37100020 (CTLVLD,1),(LOGVLD,1),(STVLD,1) 37170020 DSGEN (RESERVDA,16),(EXTDLOG,16) 37240020 DSGEN (RESRVDB,64) 37310020 DSGEN (MDUM4,8),(FAILSTA,24) 37380020 DSGEN (RGNCODE,32) 37450020 DSGEN (DUMMY1,32) 37520020 DSGEN (MCAR,32) 37590020 DSGEN (MCDR1,32) 37660020 DSGEN (MCDR2,32) 37730020 DSGEN (MANTLTH1,32) 37800020 DSGEN (MANTLTH2,32) 37870020 DSGEN (MCRR1,32) 37940020 DSGEN (MCRR2,32) 38010020 DSGEN (ICM90,32) 38080020 DSGEN (STATUS,32) 38150020 DSGEN (FDUM1,32) 38290020 DSGEN (FDUM2,32) 38360020 DSGEN (FDUM3,32) 38430020 DSGEN (FDUM4,32) 38500020 DSGEN (FDUM5,32) 38570020 DSGEN (FDUM6,32) 38640020 DSGEN (FDUM7,32) 38710020 DSGEN (FDUM8,32) 38780020 DSGEN (FDUM9,32) 38850020 DSGEN (FDUM10,32) 38920020 DSGEN (FDUM11,32) 38990020 DSGEN (FDUM12,32) 39060020 DSGEN (FDUM13,32) 39130020 DSGEN (FDUM14,32) 39200020 FLOATPTS DSGEN (FP0,32) 39270020 DSGEN (FP1,32) 39340020 DSGEN (FP2,32) 39410020 DSGEN (FP3,32) 39480020 DSGEN (FP4,32) 39550020 DSGEN (FP5,32) 39620020 DSGEN (FP6,32) 39690020 DSGEN (FP7,32) 39760020 GENPURPR DSGEN (GPR0,32) 39830020 DSGEN (GPR1,32) 39900020 DSGEN (GPR2,32) 39970020 DSGEN (GPR3,32) 40040020 DSGEN (GPR4,32) 40110020 DSGEN (GPR5,32) 40180020 DSGEN (GPR6,32) 40250020 DSGEN (GPR7,32) 40320020 DSGEN (GPR8,32) 40390020 DSGEN (GPR9,32) 40460020 DSGEN (GP10,32) 40530020 DSGEN (GP11,32) 40600020 DSGEN (GP12,32) 40670020 DSGEN (GP13,32) 40740020 DSGEN (GP14,32) 40810020 DSGEN (GP15,32) 40880020 DSGEN (CTR0,32) 40950020 DSGEN (CTR1,32) 41020020 DSGEN (CTR2,32) 41090020 DSGEN (CTR3,32) 41160020 DSGEN (CTR4,32) 41230020 DSGEN (CTR5,32) 41300020 DSGEN (CTR6,32) 41370020 DSGEN (CTR7,32) 41440020 DSGEN (CTR8,32) 41510020 DSGEN (CTR9,32) 41580020 DSGEN (CR10,32) 41650020 DSGEN (CR11,32) 41720020 DSGEN (CR12,32) 41790020 DSGEN (CR13,32) 41860020 DSGEN (CR14,32) 41930020 DSGEN (CR15,32) 42000020 DSGEN (XBUS0,8),(XBUS1,8),(XBUS2,8),(XBUS3,8) 42070020 DSGEN (YBUS0,8),(YBUS1,8),(YBUS2,8),(YBUS3,8) 42140020 DSGEN (ZBUS0,8),(ZBUS1,8),(ZBUS2,8),(ZBUS3,8) 42210020 DSGEN (UBUS,8),(VBUS,8),(WBUS,8),(FILREG,8) 42280020 DSGEN (STLNK,1),(RABUSRP,1),(RABUSBI,1),(RABUS1P,1), *42350020 (RABUS1,4),(RABUS3,8),(BFRBUSY,1),(RBAR1RP,1), *42420020 (RBAR1BI,1),(RBAR11P,1),(RBAR11,4),(RBAR13,8) 42490020 DSGEN (LSSSTS,2),(CPURLAR,6),(WRCPULS,1),(DUMMY000,1), *42560020 (CPUWLAR,6),(DUMMY002,1),(DUMMY003,1),(IORLAR,6), *42630020 (WRIOLS,1),(DUMMY004,1),(IOWLAR,6) 42700020 DSGEN (EXTSW0,8),(EXTSW1,8),(EXTSW2,8),(EXTSW3,8) 42770020 DSGEN (SPARE030,8),(SPARE031,8),(SPARE032,8),(SPARE033,8) 42840020 DSGEN (AREG0,8),(AREG1,8),(AREG2,8),(AREG3,8) 42910020 DSGEN (BREG0,8),(BREG1,8),(BREG2,8),(BREG3,8) 42980020 DSGEN (CREG0,8),(CREG1,8),(CREG2,8),(CREG3,8) 43050020 DSGEN (DREG0,8),(DREG1,8),(DREG2,8),(DREG3,8) 43120020 DSGEN (IOLSD0,8),(IOLSD1,8),(IOLSD2,8),(IOLSD3,8) 43190020 DSGEN (CPULS0,8),(CPULS1,8),(CPULS2,8),(CPULS3,8) 43260020 DSGEN (IOSAR0,8),(IOSAR1,8),(IOSAR2,8),(IOSAR3,8) 43330020 DSGEN (CPUSR0,8),(CPUSR1,8),(CPUSR2,8),(CPUSR3,8) 43400020 DSGEN (SPARE034,8),(IAR1,8),(IAR2,8),(IAR3,8) 43470020 DSGEN (PSWSM,8),(PSWKEY,8),(PSWESM,8),(SPARE035,8) 43540020 DSGEN (RBAR2IO,1),(RBAR2RP,1),(RBAR2BI,1),(RBAR21P,1), *43610020 (RBAR21,4),(RBAR23,8),(RBAR3IO,1),(RBAR3RP,1), *43680020 (RBAR3BI,1),(RBAR31P,1),(RBAR31,4),(RBAR33,8) 43750020 DSGEN (BS0,4),(BS4P,1),(BS4,3),(ABCTRP,1), *43820020 (ABCTR,3),(CBCTRP,1),(CBCTR,3),(IFTHRS,1), *43890020 (IFRES,1),(IFINV,1),(IFPRTC,1),(IFIC,1), *43960020 (IFEXS,1),(IFILC,2),(ALUFNR,4), *44030020 (QBIT,1),(CCST,1),(CSA,1),(CSB,1) 44100020 DSGEN (L12CTR,8),(L2SS,1),(CC,2), *44170020 (FNBR,2),(ALWTRP,1),(DUMMY006,1),(NSSMD,1), *44240020 (R12CTR,8),(INABRR,3),(INBBRR,4),(HYRST,1) 44310020 DSGEN (SRADAD1,7),(HRDCHK,1),(SERADM,1),(INTDL,1), *44380020 (WAITFR,1),(ENGHEAD,1),(INPERR,1),(CLKERR,1), *44450020 (ABCOMPS,1),(LOGCMPS,1),(DIAGCTR,8),(SPARE036,8) 44520020 DSGEN (DUMMY007,1),(DUMMY008,1),(INDDISP,1),(CPURA1P,1), *44590020 (CPURA1,4),(CPURA3,8),(GPSTL1,4),(GPSTL2P,1), *44660020 (GPSTL2,3),(S19,1),(EXTST,1),(ANYEXC,1), *44730020 (ICPLUS4,1),(IC1B29,1),(IB0FULL,3) 44800020 DSGEN (SPARE037,8),(SPARE038,8),(SPARE039,8),(SPARE040,8) 44870020 DSGEN (XBUSE,4),(YBUSE,4),(CARRYE,8),(HSUME,4),(ZBUSE,4), *44940020 (LSREGE,4),(CISARE,4) 45010020 DSGEN (GPSTE,2),(LCTRE,1),(RCTRE,1), *45080020 (DUMMY009,1),(DUMMY010,1),(ABE,1),(CBE,1), *45150020 (PSW0E,1),(PSW1E,1),(PSW2E,1),(PSW3E,1), *45220020 (WBUSE,1),(ABCTRE,1),(CBCTRE,1),(MEME,1), *45290020 (EXTSWE,4),(EESW0E,1),(HOFFE,1),(ABDLYE,1),(EESW3E,1), *45360020 (CLSARE,1),(CH02E,1),(CH35E,1),(MVRHSE,1), *45430020 (DUMMY013,1),(MVRFNE,1),(ICE,2) 45500020 DSGEN (ERLYRE,3),(RSYNCE,1), *45570020 (LATER0E,1),(LATER1E,1),(LATER2E,1),(LATER3E,1), *45640020 (MISDECE,1),(SSDECE,1),(CNTDECE,1),(BBRE,1), *45710020 (RADRE,1),(ZDECE,1),(CRUCWLS,1),(TMKE,1), *45780020 (SPARE041,8),(SPARE042,8) 45850020 DSGEN (CP1R0,4),(CP1R1P,1),(CP1R1,3),(CP2R0P,1), *45920020 (CP2NC,1),(CP2SE,1),(CP2DE,1),(CP2IE,1), *45990020 (CP2R1P,1),(CP2HC,1),(CP2AC,1),(CP2R3,1), *46060020 (ERRCTR,4),(IGNORE1,1),(SERDIS,1),(ENDATA,1), *46130020 (SDC,1),(DUMMY015,1),(HARDST,1),(ADRCPST,1), *46200020 (DUMMY016,1),(DUMMY017,1),(DUMMY018,1),(DUMMY019,1) 46270020 DSGEN (ABI1,1),(NXA1,3),(NXB1,4),(BRC11,1), *46340020 (ABR1,5),(BBR01,2),(BBR21,2),(IOPR,2), *46410020 (IOSSB,3),(XYALU01,1),(XYALU21,2),(UX1,3), *46480020 (VY1,3) 46550020 DSGEN (LRSP,1),(LSWR,4),(LSRD,3),(MISC21,2), *46620020 (CNT1,4),(Z01,2),(Z21,1),(ZW1,4), *46690020 (XYSH1,3),(EMIT1,5),(EMIT2,3) 46760020 DSGEN (SPARE043,8),(SPARE044,8),(SPARE045,8),(SPARE046,8) 46830020 DSGEN (SPARE047,8),(SPARE048,8),(SPARE049,8),(SPARE050,8) 46900020 DSGEN (C0IOSF,2),(C0SVCO,1),(C0ADRO,1), *46970020 (C0HLDO,1),(DUMMY020,1),(C0CMDO,1),(C0SUPO,1), *47040020 (C0IOSC,4),(C0IOSD,4),(C0IOSA,4),(C0IOSB,4), *47110020 (C0IOSE,2),(C0OPLO,1),(DUMMY021,1), *47180020 (C0DATAO,1),(DUMMY022,1),(DUMMY023,1),(DUMMY024,1) 47250020 DSGEN (DUMMY025,1),(DUMMY026,1),(C0RAR2,1),(C0RAR0P,1), *47320020 (C0RAR1,4),(C0RAR3,8),(DUMMY027,1),(DUMMY028,1), *47390020 (DUMMY029,1),(DUMMY030,1),(C0SRVI,1),(C0ADRI,1), *47460020 (C0SELI,1),(DUMMY031,1),(C0STAI,1),(C0REQI,1), *47530020 (C0OPLI,1),(DUMMY032,1),(C0DISCI,1),(DUMMY033,1), *47600020 (DUMMY034,1),(C0MRKI,1) 47670020 DSGEN (C0DABP,1),(C0DAB,4),(C0RP,1),(C0IOI,1), *47740020 (C0IFCK,1),(DUMMY035,1),(C0CV,1),(DUMMY036,1), *47810020 (C0CB5,1),(C0CB6,1),(C0CB7,1),(C0REQIT,1), *47880020 (C0ERRIT,1),(DUMMY037,1),(C0INT,1),(C0ONSYS,1), *47950020 (DUMMY038,1),(C0LWLUP,1),(C0LWLBU,1),(DUMMY039,1), *48020020 (DUMMY040,1),(SPARE051,8) 48090020 DSGEN (SPARE052,8),(SPARE053,8),(SPARE054,8),(SPARE055,8) 48160020 DSGEN (C1IOSF,2),(C1SVCO,1),(C1ADRO,1), *48230020 (C1HLDO,1),(DUMMY041,1),(C1CMDO,1),(C1SUPO,1), *48300020 (C1IOSC,4),(C1IOSD,4),(C1IOSA,4),(C1IOSB,4), *48370020 (C1IOSE,2),(C1OPLO,1),(DUMMY042,1), *48440020 (C1DATAO,1),(DUMMY043,1),(DUMMY044,1),(DUMMY045,1) 48510020 DSGEN (DUMMY046,1),(DUMMY047,1),(C1RAR2,1),(C1RAR0P,1), *48580020 (C1RAR1,4),(C1RAR3,8),(DUMMY048,1),(DUMMY049,1), *48650020 (DUMMY050,1),(DUMMY051,1),(C1SRVI,1),(C1ADRI,1), *48720020 (C1SELI,1),(DUMMY052,1),(C1STAI,1),(C1REQI,1), *48790020 (C1OPLI,1),(DUMMY053,1),(C1DISCI,1),(DUMMY054,1), *48860020 (DUMMY055,1),(C1MRKI,1) 48930020 DSGEN (C1DABP,1),(C1DAB,4),(C1RP,1),(C1IOI,1), *49000020 (C1IFCK,1),(DUMMY056,1),(C1CV,1),(DUMMY057,1), *49070020 (C1CB5,1),(C1CB6,1),(C1CB7,1),(C1REQIT,1), *49140020 (C1ERRIT,1),(DUMMY058,1),(C1INT,1),(C1ONSYS,1), *49210020 (DUMMY059,1),(C1LWLUP,1),(C1LWLBU,1),(DUMMY060,1), *49280020 (DUMMY061,1),(SPARE056,8) 49350020 DSGEN (C1SCTR,4),(C1HCTR0,5),(C1SUPC,3),(C1LWC0,5), *49420020 (C1ERB,5),(DUMMY062,1),(DUMMY063,1),(SPARE057,8) 49490020 DSGEN (C2IOSF,2),(C2SVCO,1),(C2ADRO,1), *49560020 (C2HLDO,1),(DUMMY064,1),(C2CMDO,1),(C2SUPO,1), *49630020 (C2IOSC,4),(C2IOSD,4),(C2IOSA,4),(C2IOSB,4), *49700020 (C2IOSE,2),(C2OPLO,1),(DUMMY065,1), *49770020 (C2DATAO,1),(DUMMY066,1),(DUMMY067,1),(DUMMY068,1) 49840020 DSGEN (DUMMY069,1),(DUMMY070,1),(C2RAR2,1),(C2RAR0P,1), *49910020 (C2RAR1,4),(C2RAR3,8),(DUMMY071,1),(DUMMY072,1), *49980020 (DUMMY073,1),(DUMMY074,1),(C2SRVI,1),(C2ADRI,1), *50050020 (C2SELI,1),(DUMMY075,1),(C2STAI,1),(C2REQI,1), *50120020 (C2OPLI,1),(DUMMY076,1),(C2DISCI,1),(DUMMY077,1), *50190020 (DUMMY078,1),(C2MRKI,1) 50260020 DSGEN (C2DABP,1),(C2DAB,4),(C2RP,1),(C2IOI,1), *50330020 (C2IFCK,1),(DUMMY079,1),(C2CV,1),(DUMMY080,1), *50400020 (C2CB5,1),(C2CB6,1),(C2CB7,1),(C2REQIT,1), *50470020 (C2ERRIT,1),(DUMMY081,1),(C2INT,1),(C2ONSYS,1), *50540020 (DUMMY082,1),(C2LWLUP,1),(C2LWLBU,1),(DUMMY083,1), *50610020 (DUMMY084,1),(SPARE058,8) 50680020 DSGEN (C2SCTR,4),(C2HCTR0,5),(C2SUPC,3),(C2LWC0,5), *50750020 (C2ERB,5),(DUMMY085,1),(DUMMY086,1),(SPARE059,8) 50820020 DSGEN (C3IOSF,2),(C3SVCO,1),(C3ADRO,1), *50890020 (C3HLDO,1),(DUMMY087,1),(C3CMDO,1),(C3SUPO,1), *50960020 (C3IOSC,4),(C3IOSD,4),(C3IOSA,4),(C3IOSB,4), *51030020 (C3IOSE,2),(C3OPLO,1),(DUMMY088,1), *51100020 (C3DATAO,1),(DUMMY089,1),(DUMMY090,1),(DUMMY091,1) 51170020 DSGEN (DUMMY092,1),(DUMMY093,1),(C3RAR2,1),(C3RAR0P,1), *51240020 (C3RAR1,4),(C3RAR3,8),(DUMMY094,1),(DUMMY095,1), *51310020 (DUMMY096,1),(DUMMY097,1),(C3SRVI,1),(C3ADRI,1), *51380020 (C3SELI,1),(DUMMY098,1),(C3STAI,1),(C3REQI,1), *51450020 (C3OPLI,1),(DUMMY099,1),(C3DISCI,1),(DUMMY100,1), *51520020 (DUMMY101,1),(C3MRKI,1) 51590020 DSGEN (C3DABP,1),(C3DAB,4),(C3RP,1),(C3IOI,1), *51660020 (C3IFCK,1),(DUMMY102,1),(C3CV,1),(DUMMY103,1), *51730020 (C3CB5,1),(C3CB6,1),(C3CB7,1),(C3REQIT,1), *51800020 (C3ERRIT,1),(DUMMY104,1),(C3INT,1),(C3ONSYS,1), *51870020 (DUMMY105,1),(C3LWLUP,1),(C3LWLBU,1),(DUMMY106,1), *51940020 (DUMMY107,1),(SPARE060,8) 52010020 DSGEN (C3SCTR,4),(C3HCTR0,5),(C3SUPC,3),(C3LWC0,5), *52080020 (C3ERB,5),(DUMMY108,1),(DUMMY109,1),(SPARE061,8) 52150020 DSGEN (C4IOSF,2),(C4SVCO,1),(C4ADRO,1), *52220020 (C4HLDO,1),(DUMMY110,1),(C4CMDO,1),(C4SUPO,1), *52290020 (C4IOSC,4),(C4IOSD,4),(C4IOSA,4),(C4IOSB,4), *52360020 (C4IOSE,2),(C4OPLO,1),(DUMMY111,1), *52430020 (C4DATAO,1),(DUMMY112,1),(DUMMY113,1),(DUMMY114,1) 52500020 DSGEN (DUMMY115,1),(DUMMY116,1),(C4RAR2,1),(C4RAR0P,1), *52570020 (C4RAR1,4),(C4RAR3,8),(DUMMY117,1),(DUMMY118,1), *52640020 (DUMMY119,1),(DUMMY120,1),(C4SRVI,1),(C4ADRI,1), *52710020 (C4SELI,1),(DUMMY121,1),(C4STAI,1),(C4REQI,1), *52780020 (C4OPLI,1),(DUMMY122,1),(C4DISCI,1),(DUMMY123,1), *52850020 (DUMMY124,1),(C4MRKI,1) 52920020 DSGEN (C4DABP,1),(C4DAB,4),(C4RP,1),(C4IOI,1), *52990020 (C4IFCK,1),(DUMMY125,1),(C4CV,1),(DUMMY126,1), *53060020 (C4CB5,1),(C4CB6,1),(C4CB7,1),(C4REQIT,1), *53130020 (C4ERRIT,1),(DUMMY127,1),(C4INT,1),(C4ONSYS,1), *53200020 (DUMMY128,1),(C4LWLUP,1),(C4LWLBU,1),(DUMMY129,1), *53270020 (DUMMY130,1),(SPARE062,8) 53340020 DSGEN (C4SCTR,4),(C4HCTR0,5),(C4SUPC,3),(C4LWC0,5), *53410020 (C4ERB,5),(DUMMY131,1),(DUMMY132,1),(SPARE063,8) 53480020 DSGEN (C5IOSF,2),(C5SVCO,1),(C5ADRO,1), *53550020 (C5HLDO,1),(DUMMY133,1),(C5CMDO,1),(C5SUPO,1), *53620020 (C5IOSC,4),(C5IOSD,4),(C5IOSA,4),(C5IOSB,4), *53690020 (C5IOSE,2),(C5OPLO,1),(DUMMY134,1), *53760020 (C5DATAO,1),(DUMMY135,1),(DUMMY136,1),(DUMMY137,1) 53830020 DSGEN (DUMMY138,1),(DUMMY139,1),(C5RAR2,1),(C5RAR0P,1), *53900020 (C5RAR1,4),(C5RAR3,8),(DUMMY140,1),(DUMMY141,1), *53970020 (DUMMY142,1),(DUMMY143,1),(C5SRVI,1),(C5ADRI,1), *54040020 (C5SELI,1),(DUMMY144,1),(C5STAI,1),(C5REQI,1), *54110020 (C5OPLI,1),(DUMMY145,1),(C5DISCI,1),(DUMMY146,1), *54180020 (DUMMY147,1),(C5MRKI,1) 54250020 DSGEN (C5DABP,1),(C5DAB,4),(C5RP,1),(C5IOI,1), *54320020 (C5IFCK,1),(DUMMY148,1),(C5CV,1),(DUMMY149,1), *54390020 (C5CB5,1),(C5CB6,1),(C5CB7,1),(C5REQIT,1), *54460020 (C5ERRIT,1),(DUMMY150,1),(C5INT,1),(C5ONSYS,1), *54530020 (DUMMY151,1),(C5LWLUP,1),(C5LWLBU,1),(DUMMY152,1), *54600020 (DUMMY153,1),(SPARE064,8) 54670020 DSGEN (C5SCTR,4),(C5HCTR0,5),(C5SUPC,3),(C5LWC0,5), *54740020 (C5ERB,5),(DUMMY154,1),(DUMMY155,1),(SPARE065,8) 54810020 DSGEN (C0RCV,1),(DUMMY156,1),(DUMMY157,1),(DUMMY158,1), *54880020 (DUMMY159,1),(DUMMY160,1),(DUMMY161,1),(DUMMY162,1), *54950020 (DUMMY163,1),(DUMMY164,1),(DUMMY165,1),(DUMMY166,1), *55020020 (DUMMY167,1),(DUMMY168,1),(C0ARMRR,1),(C0HSUPO,1), *55090020 (C0BIREG,4),(C0BIREQ,1),(C0IDLE,1),(C0SELU,1), *55160020 (C0IFRR,1),(C0PR3C0,1),(C0IOS0C,1),(C0IOS4C,1), *55230020 (C0HLDOC,1),(C0HADRO,1),(C0HCMDO,1),(C0HHLDO,1), *55300020 (C0HSELO,1) 55370020 DSGEN (C1CC,1),(C1SLI,1),(C1UAR,1),(C1AO,1), *55440020 (C1SO,1),(C1CCSO,1),(C1HSUPO,1),(C1BP3RQ,1), *55510020 (C1P1REQ,1),(C1HRI0,1),(C1HRI4,1),(C1HRSO,1), *55580020 (C1HRCO,1),(DUMMY169,1),(C1DABTD,1),(C1DAB1D,1), *55650020 (C1SIFRW,1),(C11RDCD,1),(C1LIOLS,1),(C1LBIB,1), *55720020 (C1ERDLD,1),(C1ERBU,1),(C1MSELU,1),(C1BLSR,1), *55790020 (C1LSPMD,1),(C1LSR2,1),(C1LSR4,1),(C1IFR2,1), *55860020 (C1IFR4,1),(C1MHCO,1),(C1HCC,1),(C1RCV,1) 55930020 DSGEN (C2CC,1),(C2SLI,1),(C2UAR,1),(C2AO,1), *56000020 (C2SO,1),(C2CCSO,1),(C2HSUPO,1),(C2BP3RQ,1), *56070020 (C2P1REQ,1),(C2HRI0,1),(C2HRI4,1),(C2HRSO,1), *56140020 (C2HRCO,1),(DUMMY170,1),(C2DABTD,1),(C2DAB1D,1), *56210020 (C2SIFRW,1),(C21RDCD,1),(C2LIOLS,1),(C2LBIB,1), *56280020 (C2ERDLD,1),(C2ERBU,1),(C2MSELU,1),(C2BLSR,1), *56350020 (C2LSPMD,1),(C2LSR2,1),(C2LSR4,1),(C2IFR2,1), *56420020 (C2IFR4,1),(C2MHCO,1),(C2HCC,1),(C2RCV,1) 56490020 DSGEN (C3CC,1),(C3SLI,1),(C3UAR,1),(C3AO,1), *56560020 (C3SO,1),(C3CCSO,1),(C3HSUPO,1),(C3BP3RQ,1), *56630020 (C3P1REQ,1),(C3HRI0,1),(C3HRI4,1),(C3HRSO,1), *56700020 (C3HRCO,1),(DUMMY171,1),(C3DABTD,1),(C3DAB1D,1), *56770020 (C3SIFRW,1),(C31RDCD,1),(C3LIOLS,1),(C3LBIB,1), *56840020 (C3ERDLD,1),(C3ERBU,1),(C3MSELU,1),(C3BLSR,1), *56910020 (C3LSPMD,1),(C3LSR2,1),(C3LSR4,1),(C3IFR2,1), *56980020 (C3IFR4,1),(C3MHCO,1),(C3HCC,1),(C3RCV,1) 57050020 DSGEN (C4CC,1),(C4SLI,1),(C4UAR,1),(C4AO,1), *57120020 (C4SO,1),(C4CCSO,1),(C4HSUPO,1),(C4BP3RQ,1), *57190020 (C4P1REQ,1),(C4HRI0,1),(C4HRI4,1),(C4HRSO,1), *57260020 (C4HRCO,1),(DUMMY172,1),(C4DABTD,1),(C4DAB1D,1), *57330020 (C4SIFRW,1),(C41RDCD,1),(C4LIOLS,1),(C4LBIB,1), *57400020 (C4ERDLD,1),(C4ERBU,1),(C4MSELU,1),(C4BLSR,1), *57470020 (C4LSPMD,1),(C4LSR2,1),(C4LSR4,1),(C4IFR2,1), *57540020 (C4IFR4,1),(C4MHCO,1),(C4HCC,1),(C4RCV,1) 57610020 DSGEN (C5CC,1),(C5SLI,1),(C5UAR,1),(C5AO,1), *57680020 (C5SO,1),(C5CCSO,1),(C5HSUPO,1),(C5BP3RQ,1), *57750020 (C5P1REQ,1),(C5HRI0,1),(C5HRI4,1),(C5HRSO,1), *57820020 (C5HRCO,1),(DUMMY173,1),(C5DABTD,1),(C5DAB1D,1), *57890020 (C5SIFRW,1),(C51RDCD,1),(C5LIOLS,1),(C5LBIB,1), *57960020 (C5ERDLD,1),(C5ERBU,1),(C5MSELU,1),(C5BLSR,1), *58030020 (C5LSPMD,1),(C5LSR2,1),(C5LSR4,1),(C5IFR2,1), *58100020 (C5IFR4,1),(C5MHCO,1),(C5HCC,1),(C5RCV,1) 58170020 DSGEN (CCLAR0P,1),(CCLAR0,3),(CCLAR1P,1),(CCLAR1,3), *58240020 (CCWRLAR,1),(CCWR,1),(CCWRP,1),(CCWR1XX,1), *58310020 (CCWRX1X,1),(CCWRXX1,1),(DUMMY174,1),(DUMMY175,1), *58380020 (CCRCK1,1),(CCRCK2,1),(CCRTOBR,1),(CCRWDA,1), *58450020 (CCRWDB,1),(CCRWDC,1),(CCRWDD,1),(CCRWDI,1), *58520020 (CCTHLD0,1),(CCTHLD1,1),(CCTHLD2,1),(CCTHLD3,1), *58590020 (CCBRSTA,1),(CCBRSTB,1),(CCUAPC,1),(CCUAC1,1) 58660020 DSGEN (CCLWCT,1),(CCDABB2,1),(CCDABB4,1),(CCENDR,1), *58730020 (CCDIFC,1),(CCHDWC2,1),(CCHDWC5,1),(CCMVPC,1), *58800020 (CCIOBSP,1),(CCIOBS0,4),(CCIOBSF,1),(CCIOBSL,1), *58870020 (CCMVPCL,1),(CC4WDX,1),(CCUCWS,1),(CCLWIND,1), *58940020 (DUMMY176,1),(DUMMY177,1),(DUMMY178,1),(DUMMY179,1), *59010020 (DUMMY180,1),(DUMMY181,1),(DUMMY182,1),(DUMMY183,1), *59080020 (DUMMY184,1),(CCBFRLS,1),(CCBFRB,1),(CCRDLS,1), *59150020 (CCIBFIB,1) 59220020 DSGEN (CHSELA0,1),(CHSELA1,1),(CHSELA2,1),(CHIOM,1), *59290020 (CHROAR,1),(CHNUM0,1),(CHNUM1,1),(CHNUM2,1), *59360020 (CHREQC1,1),(CHREQCB,1),(CIOMLTH,1),(IOMB,1), *59430020 (C1PR2,1),(C1PR3,1),(C2PR2,1),(C2PR3,1), *59500020 (C3PR2,1),(C3PR3,1),(C4PR2,1),(C4PR3,1), *59570020 (C5PR2,1),(C5PR3,1),(MPXOS2,1),(DUMMY185,1), *59640020 (DUMMY186,1),(DUMMY187,1),(DUMMY188,1),(DUMMY189,1), *59710020 (DUMMY190,1),(ANYIR,1),(CHDIAGM,1),(CHFC,1) 59780020 DSGEN (SPARE066,8),(SPARE067,8),(SPARE068,8),(SPARE069,8) 59850020 DSGEN (C1HCE,1),(C1BCIE,1),(C1BME,1),(C1IRE,1), *59920020 (C1LRE,1),(C1SBE,1),(C1SBOE,1),(C1ISE,1), *59990020 (C1SPE,1),(C1SWE,1),(C2HCE,1),(C2BCIE,1), *60060020 (C2BME,1),(C2IRE,1),(C2LRE,1),(C2SBE,1), *60130020 (C2SBOE,1),(C2ISE,1),(C2SPE,1),(C2SWE,1), *60200020 (C3HCE,1),(C3BCIE,1),(C3BME,1),(C3IRE,1), *60270020 (C3LRE,1),(C3SBE,1),(C3SBOE,1),(C3ISE,1), *60340020 (C3SPE,1),(C3SWE,1),(CCCH1E,1),(CCCH2E,1) 60410020 DSGEN (C4HCE,1),(C4BCIE,1),(C4BME,1),(C4IRE,1), *60480020 (C4LRE,1),(C4SBE,1),(C4SBOE,1),(C4ISE,1), *60550020 (C4SPE,1),(C4SWE,1),(C5HCE,1),(C5BCIE,1), *60620020 (C5BME,1),(C5IRE,1),(C5LRE,1),(C5SBE,1), *60690020 (C5SBOE,1),(C5ISE,1),(C5SPE,1),(C5SWE,1), *60760020 (CCCH3E,1),(CCCH4E,1),(CCCH5E,1),(C3CLE,1), *60830020 (C3ITE,1),(C4CLE,1),(C4ITE,1),(C5CLE,1), *60900020 (C5ITE,1),(C35SCE,1),(C35ITAE,1),(C35ITBE,1) 60970020 DSGEN (BIRPE,1),(BIRE,1),(C0BCE,1),(C0BOCE,1), *61040020 (C0S07E,1),(C0RE,1),(C0UCE,1),(C0CCE,1), *61110020 (C0RCE,1),(C0ITE,1),(C0CLE,1),(C1ITE,1), *61180020 (C1CLE,1),(C2ITE,1),(C2CLE,1),(UPDE,1), *61250020 (EMITFLE,1),(EMITINE,1),(PSWCKE,1),(L2CNTRE,1), *61320020 (CSELCPE,1),(DUMMY191,1),(DUMMY192,1),(DUMMY193,1), *61390020 (DUMMY194,1),(DUMMY195,1),(C02ITAE,1),(C02ITBE,1), *61460020 (C02STCE,1),(SBPE,1),(OUTTAGE,1),(GRPSELE,1) 61530020 DSGEN (DUMMY196,1),(DUMMY197,1),(ROSINTE,1),(ROSINPE,1), *61600020 (LSTOCHE,1),(HDWCHE,1),(HCIE,1),(HRRE,1), *61670020 (HLCE,1),(UPLSARE,1),(WRLSUPE,1),(IN1SELE,1), *61740020 (IN2ROSE,1),(IN3SELE,1),(LS01INE,1),(LS23INE,1), *61810020 (INTCRDE,1),(LOGYINE,1),(LOGRDRE,1),(DUMMY198,1), *61880020 (STBBE,1),(STDCDE,1),(YICDCDE,1),(BUSPTYE,1), *61950020 (RLCTRE,1),(DUMMY199,1),(DUMMY200,1),(DUMMY201,1), *62020020 (LSUCWAE,1),(BIRESPE,1),(SELCNE,1),(MURE,1) 62090020 DSGEN (HCIDE,1),(UPCIDE,1),(C0BOPE,1),(C0BIE,1), *62160020 (C1BOPE,1),(C1BIE,1),(C2BOPE,1),(C2BIE,1), *62230020 (C3BOPE,1),(C3BIE,1),(C4BOPE,1),(C4BIE,1), *62300020 (C5BOPE,1),(C5BIE,1),(HCLE,1),(LSRLOGE,1), *62370020 (C0WRLSE,1),(C1WRLSE,1),(C2WRLSE,1),(C3WRLSE,1), *62440020 (C4WRLSE,1),(C5WRLSE,1),(C01CXE,1),(C23CXE,1), *62510020 (C45CXE,1),(MPCIDE,1),(DUMMY202,1),(DUMMY203,1), *62580020 (DUMMY204,1),(DUMMY205,1),(DUMMY206,1),(DUMMY207,1) 62650020 DSGEN (SPARE070,8),(SPARE071,8),(SPARE072,8),(SPARE073,8) 62720020 DSGEN (AIRINE1,4),(AIROE0,4),(ADOE,8), *62790020 (BSMB1E,2),(DUMMY208,1),(TMRLOE,1), *62860020 (TMRHIE,1),(ECCLOE,1),(ECCHIE,1),(UCORHLD,1), *62930020 (ECCBB,8) 63000020 DSGEN (CONSDR,8),(CONSECE,1),(CONSTOE,1),(CONSR0E,1), *63070020 (CONSR3E,1),(CONSCRL,1),(CONSWR,1),(DUMMY209,1), *63140020 (CONSEXC,1),(SPARE074,8),(SPARE075,8) 63210020 DSGEN (SPARE076,8),(SPARE077,8),(SPARE078,8),(SPARE079,8) 63280020 DSGEN (SPARE080,8),(SPARE081,8),(SPARE082,8),(SPARE083,8) 63350020 DSGEN (FALE0,8),(FALE1,8),(FALE2,8),(FALE3,8) 63420020 DSGEN (FALO0,8),(FALO1,8),(FALO2,8),(FALO3,8) 63490020 DSGEN (FAHE0,8),(FAHE1,8),(FAHE2,8),(FAHE3,8) 63560020 DSGEN (FAHO0,8),(FAHO1,8),(FAHO2,8),(FAHO3,8) 63630020 DSGEN (SPARE084,8),(BCUS1,8),(BCUS2,8),(BCUS3,8) 63700020 DSGEN (SPARE085,8),(ASARB1,8),(ASARB2,8),(ASARB3,8) 63770020 DSGEN (EMITE,1),(TIMEOE,1),(SPKEYOE,1),(KEYBUSE,1), *63840020 (SAR1E,3),(C40B0E,1), *63910020 (C40B2E,6),(IDXLE,1),(IDXUE,1), *63980020 (RDCOMPE,1),(BYTEMKE,1),(SDR08E,1),(SDR19E,1), *64050020 (SDR210E,1),(SDR311E,1),(SDR412E,1),(SDR513E,1), *64120020 (SDR715E,1),(DUMMY210,1),(DUMMY211,1),(DUMMY212,1), *64190020 (DUMMY213,1),(DUMMY214,1),(DUMMY215,1),(DUMMY216,1) 64260020 DSGEN (LINDXA,5),(LINDXB,3),(LINDXV1,1),(LINDXV2,1), *64330020 (LINDXOK,1),(LOWERBC,1),(LOWERVC,1),(LOWOKO,1), *64400020 (LOWERA,1),(MSSELBR,1),(UINDXA,5),(UINDXB,3), *64470020 (UINDXV1,1),(UINDXV2,1),(UINDXOK,1),(UPPERBC,1), *64540020 (UPPERVC,1),(UPROKO,1),(UPPERA,1),(BACKSBY,1) 64610020 DSGEN (BCUB0,4),(BCUB4P,1),(BCUB4,3),(BCUB8P,1), *64680020 (BCUB8,4),(BCUB12P,1),(BCUB12,2),(BCUB15,1), *64750020 (ADP2SEL,1),(ADP2ECC,1),(ADP2MCK,1),(DUMMY217,1), *64820020 (DUMMY218,1),(DUMMY219,1),(IVA,1),(SPDATA,7), *64890020 (SPVIOL,1) 64960020 DSGEN (BCURD,1),(BCUWR,1),(BCUFIB,1),(BCUSPMS,1), *65030020 (BCUIECC,1),(BCUDC40,1),(BCUIOMD,1),(ECCMD1,1), *65100020 (EDRDECC,1),(DUMMY220,1),(EDTS,1),(DUMMY221,1), *65170020 (DUMMY222,1),(EDWTOD,1),(EDWSPK,1),(DUMMY223,1), *65240020 (EDVALA,1),(IBRFCH,1),(DUMMY224,1),(DUMMY225,1), *65310020 (EDRSPK,1),(EDDEGA,1),(HISTAT,1),(ODDSTAT,1), *65380020 (MSIREAD,1),(MSIWR,1),(DUMMY226,1),(MSITS,1), *65450020 (DUMMY227,1),(MSIIOOP,1),(MSIRECC,1),(MSIUCWS,1) 65520020 DSGEN (AIROFET,1),(AIROSTO,1),(AIROHRT,1),(AIROTS,1), *65590020 (DUMMY228,1),(AIROVRD,1),(AIROECD,1),(AIROBS,1), *65660020 (SPARE086,8),(MSCAIDL,1),(DUMMY229,1),(DUMMY230,1), *65730020 (MSCCIP,1),(MSCWC,1),(MSCDR2C,1),(MSCAD25,1), *65800020 (MSCBD25,1),(SPARE087,8) 65870020 DSGEN (CONSR0,8),(CONSR1,8),(CONSR2,8),(CONSR3,8) 65940020 DSGEN (SPARE124,64) 66010020 DSGEN (SPARE125,64) 66080020 DSGEN (SPARE126,64) 66150020 DSGEN (SPARE127,64) 66220020 DSGEN (SPARE128,64) 66290020 DSGEN (SPARE129,64) 66360020 DSGEN (SPARE130,64) 66430020 DSGEN (SPARE131,64) 66500020 DSGEN (SPARE132,64) 66570020 DSGEN (SPARE133,64) 66640020 DSGEN (SPARE134,64) 66710020 DSGEN (SPARE135,64) 66780020 DSGEN (SPARE136,64) 66850020 DSGEN (SPARE137,64) 66920020 DSGEN (SPARE138,64) 66990020 DSGEN (SPARE139,64) 67060020 DSGEN (SPARE140,64) 67130020 DSGEN (SEQCHAN,8),(UNITADR,8),(RETSEQ,8),(SPARE141,40) 67200002 DSGEN (SPARE142,64) 67270020 DSGEN (SPARE143,64) 67340020 DSGEN (XBUS0P,1),(DUMMY231,1),(XBUS1P,1),(DUMMY232,1), *67410020 (XBUS2P,1),(DUMMY233,1),(XBUS3P,1),(DUMMY234,1), *67480020 (YBUS0P,1),(DUMMY235,1),(YBUS1P,1),(DUMMY236,1), *67550020 (YBUS2P,1),(DUMMY237,1),(YBUS3P,1),(DUMMY238,1), *67620020 (ZBUS0P,1),(DUMMY239,1),(ZBUS1P,1),(DUMMY240,1), *67690020 (ZBUS2P,1),(DUMMY241,1),(ZBUS3P,1),(DUMMY242,1), *67760020 (UBUSP,1),(DUMMY243,1),(VBUSP,1),(DUMMY244,1), *67830020 (WBUSP,1),(DUMMY245,1),(FILREGP,1),(DUMMY246,1) 67900020 DSGEN (DUMMY247,1),(DUMMY248,1),(RABUS2,1),(DUMMY249,1), *67970020 (HOLDOFF,1),(DUMMY250,1),(RBAR12,1),(DUMMY251,1), *68040020 (SPARE088,8),(EXTSW0P,1),(DUMMY252,1),(EXTSW1P,1), *68110020 (DUMMY253,1),(EXTSW2P,1),(DUMMY254,1),(EXTSW3P,1), *68180020 (DUMMY255,1),(SPARE089,8) 68250020 DSGEN (AREG0P,1),(DUMMY256,1),(AREG1P,1),(DUMMY257,1), *68320020 (AREG2P,1),(DUMMY258,1),(AREG3P,1),(DUMMY259,1), *68390020 (BREG0P,1),(DUMMY260,1),(BREG1P,1),(DUMMY261,1), *68460020 (BREG2P,1),(DUMMY262,1),(BREG3P,1),(DUMMY263,1), *68530020 (CREG0P,1),(DUMMY264,1),(CREG1P,1),(DUMMY265,1), *68600020 (CREG2P,1),(DUMMY266,1),(CREG3P,1),(DUMMY267,1), *68670020 (DREG0P,1),(DUMMY268,1),(DREG1P,1),(DUMMY269,1), *68740020 (DREG2P,1),(DUMMY270,1),(DREG3P,1),(DUMMY271,1) 68810020 DSGEN (IOLSD0P,1),(DUMMY272,1),(IOLSD1P,1),(DUMMY273,1), *68880020 (IOLSD2P,1),(DUMMY274,1),(IOLSD3P,1),(DUMMY275,1), *68950020 (CPULS0P,1),(DUMMY276,1),(CPULS1P,1),(DUMMY277,1), *69020020 (CPULS2P,1),(DUMMY278,1),(CPULS3P,1),(DUMMY279,1), *69090020 (IOSAR0P,1),(DUMMY280,1),(IOSAR1P,1),(DUMMY281,1), *69160020 (IOSAR2P,1),(DUMMY282,1),(IOSAR3P,1),(DUMMY283,1), *69230020 (CPUSR0P,1),(DUMMY284,1),(CPUSR1P,1),(DUMMY285,1), *69300020 (CPUSR2P,1),(DUMMY286,1),(CPUSR3P,1),(DUMMY287,1) 69370020 DSGEN (DUMMY288,1),(DUMMY289,1),(IAR1P,1),(DUMMY290,1), *69440020 (IAR2P,1),(DUMMY291,1),(IAR3P,1),(DUMMY292,1), *69510020 (PSWSMP,1),(DUMMY293,1),(PSWKEYP,1),(DUMMY294,1), *69580020 (PSWESMP,1),(DUMMY295,1),(DUMMY296,1),(DUMMY297,1), *69650020 (DUMMY298,1),(DUMMY299,1),(RBAR22,1),(DUMMY300,1), *69720020 (DUMMY301,1),(DUMMY302,1),(RBAR32,1),(DUMMY303,1), *69790020 (BS0P,1),(DUMMY304,1),(BS7,1),(DUMMY305,1), *69860020 (IFTCHSP,1),(DUMMY306,1),(ALUFNRP,1),(DUMMY307,1) 69930020 DSGEN (L12CTRP,1),(DUMMY308,1),(L1SS,1),(DUMMY309,1), *70000020 (R12CTRP,1),(DUMMY310,1),(INABRR0,1),(DUMMY311,1), *70070020 (SRADAD0,1),(DUMMY312,1),(BLKCONS,1),(DUMMY313,1), *70140020 (CTRERR,1),(DUMMY314,1),(DUMMY315,1),(DUMMY316,1), *70210020 (DUMMY317,1),(DUMMY318,1),(CPURA2,1),(DUMMY319,1), *70280020 (GPSTL1P,1),(DUMMY320,1),(GPSTL3,1),(DUMMY321,1), *70350020 (SPARE090,8) 70420020 DSGEN (SPARE091,8),(SPARE092,8),(SPARE093,8),(CP1R0P,1), *70490020 (DUMMY322,1),(CP1R2,1),(DUMMY323,1),(CP2R2,1), *70560020 (DUMMY324,1),(DUMMY325,1),(DUMMY326,1) 70630020 DSGEN (R0P1,1),(DUMMY327,1),(BRC01,1),(DUMMY328,1), *70700020 (BBR11,1),(DUMMY329,1),(XYALU11,1),(DUMMY330,1), *70770020 (R1P1,1),(DUMMY331,1),(MISC11,1),(DUMMY332,1), *70840020 (Z11,1),(DUMMY333,1),(R2P1,1),(DUMMY334,1), *70910020 (SPARE094,8),(SPARE095,8) 70980020 DSGEN (SPARE096,64) 71050020 DSGEN (SPARE097,64) 71120020 DSGEN (SPARE098,64) 71190020 DSGEN (SPARE099,64) 71260020 DSGEN (SPARE100,64) 71330020 DSGEN (AIRIN1E,1),(DUMMY335,1),(AIRO5E,1),(DUMMY336,1), *71400020 (DUMMY337,1),(DUMMY338,1),(ECCBBP,1),(DUMMY339,1), *71470020 (CONSEOB,1),(DUMMY340,1),(CONSL2,1),(DUMMY341,1), *71540020 (DUMMY342,1),(DUMMY343,1),(DUMMY344,1),(DUMMY345,1), *71610020 (SPARE101,16) 71680020 DSGEN (FALE0P,1),(DUMMY346,1),(FALE1P,1),(DUMMY347,1), *71750020 (FALE2P,1),(DUMMY348,1),(FALE3P,1),(DUMMY349,1), *71820020 (FALO0P,1),(DUMMY350,1),(FALO1P,1),(DUMMY351,1), *71890020 (FALO2P,1),(DUMMY352,1),(FALO3P,1),(DUMMY353,1), *71960020 (FAHE0P,1),(DUMMY354,1),(FAHE1P,1),(DUMMY355,1), *72030020 (FAHE2P,1),(DUMMY356,1),(FAHE3P,1),(DUMMY357,1), *72100020 (FAHO0P,1),(DUMMY358,1),(FAHO1P,1),(DUMMY359,1), *72170020 (FAHO2P,1),(DUMMY360,1),(FAHO3P,1),(DUMMY361,1) 72240020 DSGEN (DUMMY362,1),(DUMMY363,1),(BCUS1P,1),(DUMMY364,1), *72310020 (BCUS2P,1),(DUMMY365,1),(BCUS3P,1),(DUMMY366,1), *72380020 (DUMMY367,1),(DUMMY368,1),(ASARB1P,1),(DUMMY369,1), *72450020 (ASARB2P,1),(DUMMY370,1),(ASARB3P,1),(DUMMY371,1), *72520020 (INSNE,1),(DUMMY372,1),(C40B1E,1),(DUMMY373,1), *72590020 (INDXCE,1),(DUMMY374,1),(SDR614E,1),(DUMMY375,1), *72660020 (LINDXP,1),(DUMMY376,1),(LINDX19,1),(DUMMY377,1), *72730020 (UINDXP,1),(DUMMY378,1),(UINDX19,1),(DUMMY379,1) 72800020 DSGEN (BCUB0P,1),(SPARE102,1),(BCUB7,1),(SPARE103,1), *72870020 (BCUB14,1),(SPARE104,1),(SPDATAP,1),(SPARE105,1), *72940020 (BCUM9BY,1),(SPARE106,1),(EDRECC,1),(SPARE107,1), *73010020 (EDRDC40,1),(SPARE108,1),(MSIP,1),(SPARE109,1), *73080020 (AIROP,1),(SPARE110,3),(MSC1024,1),(SPARE111,3), *73150020 (CONSR0P,1),(SPARE112,1),(CONSR1P,1),(SPARE113,1), *73220020 (CONSR2P,1),(SPARE114,1),(CONSR3P,1),(SPARE115,1) 73290020 DSGEN (SPARE116,64) 73360020 DSGEN (SPARE117,64) 73430020 DSGEN (SPARE118,64) 73500020 DSGEN (SPARE119,64) 73570020 DSGEN (SPARE120,64) 73640020 DSGEN (SPARE121,8),(CPUSER,24) 73710020 DSGEN (DCTRL,1),(SPARE122,1),(DOSEM,1),(SPARE123,5), *73780020 (UCWCNT,8),(FEATURES,16) 73850020 DSGEN (CUADR1,64) 73920020 DSGEN (CUADR2,64) 73990020 DSGEN (UNPLUG,64) 74060020 DSGEN (FLDLNGTH,16),(FAILINST,16) 74130020 DS CL2 74200020 DSGEN (FAILINSR,16),(COMADR0,16) 74270020 DSGEN (COMADR1,16),(INTCTL1,16) 74340020 DSGEN (INTCTL1A,16),(HRDWRCVY,1),(SOFTRCVY,1),(TSKABORT,1), X74410020 (TSKNODSP,1),(TERM,1),(XDUMY0,3),(MAINSTG,1), X74480020 (BFRSTG,1),(CTLSTG,1),(XMAINSTG,1),(PROCESOR,1), X74550020 (CHNERR,1),(TODCLK,1),(XDUMY1,1) 74620020 DSGEN (INTMIT,1),(SOLID,1),(DATA,1),(ADDRESS,1),(MASK,1), X74690020 (PROTECT,1),(XDUMY2,2),(RETRY,1),(REPAIR,1), X74760020 (RECONFIG,1),(REFRESH,1),(MCIMCH,1),(DOWNCODE,3), X74830020 (CPUID,4),(XDUMY3,12) 74900020 DSGEN (XDUMY4,16),(RCDLOST1,16) 74970020 DSGEN (RCDLOST2,32) 75040020 DSGEN (MCSTATD6,32) 75110020 DSGEN (MCSTATD7,32) 75180020 DSGEN (MCSTATD8,32) 75250020 DSGEN (MCSTATD9,32) 75320020 DSGEN (MCSTATDA,32) 75390020 DSGEN (MCSTATDB,32) 75460020 DSGEN (MCSTATDC,32) 75530020 DSGEN (MCSTATDD,32) 75600020 DSGEN (MCSTATDE,32) 75670020 DSGEN (MCSTATDF,32) 75740020 DSGEN (MCSTATDG,32) 75810020 DSGEN (MCSTATDH,32) 75880020 IFCEC155 CSECT 75950020 USING *,9 76020020 ENTRYPTR DC A(STARTER) 76090020 TABLNAME DC CL8'IFCEC155' 76160020 REG9 DC F'0' 76230020 LP DC F'0' 76300020 SKIPPER BR 14 76370020 USING DSECT155,2 76440020 R0 EQU 0 76510020 R1 EQU 1 76580020 R2 EQU 2 76650020 R3 EQU 3 76720020 R4 EQU 4 76790020 R5 EQU 5 76860020 R6 EQU 6 76930020 R7 EQU 7 77000020 R8 EQU 8 77070020 R9 EQU 9 77140020 R10 EQU 10 77210020 R11 EQU 11 77280020 R12 EQU 12 77350020 R13 EQU 13 77420020 R14 EQU 14 77490020 R15 EQU 15 77560020 X20 EQU X'20' @Z02774 77590002 HEX00 EQU X'00' 77630020 HEX08 EQU X'08' 77700020 HEX40 EQU X'40' 77770020 HEX80 EQU X'80' 77840020 HEX48 EQU X'48' 77910020 HEXBF EQU X'BF' 77980020 L0 EQU 0 78050020 L1 EQU 1 78120020 L2 EQU 2 78190020 L3 EQU 3 78260020 L4 EQU 4 78330020 L5 EQU 5 78400020 L6 EQU 6 78470020 L7 EQU 7 78540020 L8 EQU 8 78610020 L12 EQU 12 78680020 L19 EQU 19 78750020 L60 EQU 60 78820020 CK1583 SR R15,R15 DON'T PRINT THIS LINE @Z02774 78820302 CLI 21(R2),X'58' TEST FOR MOD 158 @Z02774 78820602 BNER R14 NO, GO BACK @Z02774 78820902 CLI 16(R2),X'00' @O 78821002 BE BASIC @O 78821102 TM 16(R2),X'03' 158-3? @Z02774 78821202 BCR 14,R14 BRANCH IF NO @Z02774 78821502 BASIC ST R5,XFIVE SAVE REG 5 @O 78821802 L R5,LN1583 CHANGE LINE/LABEL POINTERS @Z02774 78822102 ST R5,REG9 FOR 158-3 @Z02774 78822402 L R5,LB1583 @Z02774 78822702 ST R5,LP @Z02774 78823002 B EXIT @Z02774 78823302 JUMP ST R5,XFIVE SAVE REG 5 @Z02774 78823602 L R5,JUMPLN JUMP OVER 158-3 PRINT @Z02774 78823902 ST R5,REG9 @Z02774 78824202 L R5,JUMPLB @Z02774 78824502 ST R5,LP @Z02774 78824802 SR R15,R15 DON'T PRINT THIS LINE @Z02774 78825102 B EXIT @Z02774 78825402 CHKFET ST R5,XFIVE STORE REG 5 78826002 CLI 21(R2),X'58' FET MODEL? @Z02774 78828002 BNE EXIT1 NO, RETURN @Z02774 78830002 TM 16(R2),X'03' M158-3? 78844002 BNO TRY01 78850002 LA R5,FETREC-L4 YES SET PTR 78856002 ST R5,REG9 STORE PTR 78862002 B EXIT 78864002 TRY01 TM 16(R2),X'01' IS IT A PEN MACH 78864202 BO EXIT1 RETURN IF YES 78864402 LA R5,FETREC-L4 SET POINTER 78864602 ST R5,REG9 STORE POINTER 78864802 EXIT1 SR R15,R15 DON'T PRINT THIS LINE @Z02774 78865002 EXIT L R5,XFIVE RESTORE 5 78868002 BR R14 GO BACK 78874002 NOFET CLI 16(R2),X'00' 78874402 BCR 7,R14 RETURN TO EDIT CNTRL 78874802 CLI 21(R2),X'58' TEST FOR MOD 158 78875202 BCR 7,R14 RETURN 78875602 SR R15,R15 RESET FOR FET ONLY 78876002 BR R14 78876402 YESFET CLI 16(R2),X'00' TEST FET 78876802 BNE NOTFET BRANCH IF NOT FET 78877202 CLI 21(R2),X'58' TEST FURTHER 78877602 BCR 8,R14 BRANCH IF FET 78878002 NOTFET SR R15,R15 RESET FOR NONFET 78878402 BR R14 78878802 XFIVE DC F'0' 78880002 LN1583 DC A(LN583-4) @Z02774 78882002 LB1583 DC A(LB583-1) @Z02774 78884002 JUMPLN DC A(JUMP1-4) @Z02774 78886002 JUMPLB DC A(JUMP2-1) @Z02774 78888002 LTORG 78890020 STARTER DS 0F 78960020 DC XL4'00010001' 79030020 DC XL4'00010001' 79100020 DC A(LABAREA) 79170020 DC H'0' 79240020 LINE ,(1,1) @Z02774 79250002 ROUTINE SPARE083,CK1583 @Z02774 79260002 LABEL ' ' @Z02774 79270002 BYTMPXA LINE ,(5,23),SKIP=1 79310020 LABEL '---BYTE MPX CHAN CKS---' 79380020 LINE ,(31,20),SKIP=1 79450020 LABEL 'CHANNEL 0','CHANNEL 4' 79520020 LINE (35,20),(4,),SKIP=1 79590020 BIN BIRPE 79660020 BIN C4HCE 79730020 LABEL 'BREAK IN REG PTY CK' 79800020 LINE 79870020 BIN BIRE 79940020 BIN C4BCIE 80010020 LABEL 'BREAK IN REQ CK' 80080020 LINE 80150020 BIN C0BCE 80220020 BIN C4BME 80290020 LABEL 'BFR CONTROL CK' 80360020 LINE , @Z02774 80362002 ROUTINE DUMMY111,JUMP @Z02774 80364002 LABEL ' ' @Z02774 80366002 LN583 LINE (1,1),(5,73),SKIP=1 @Z02774 80368002 LB583 LABEL '---BYTE MPX CHAN CKS---','---ACTIVE UCW---' @Z02774 80370002 LINE (35,61),(31,20) @Z02774 80372002 ROUTINE DUMMY111,SKIPPER @Z02774 80374002 HEX SEQCHAN,0,1L @Z02774 80376002 LABEL 'CHANNEL 0','CHANNEL 4',' SEQ CTRLS' @Z02774 80378002 LINE (35,20),(4,73) @Z02774 80380002 BIN BIRPE @Z02774 80382002 BIN C4HCE @Z02774 80384002 ROUTINE DUMMY111,SKIPPER @Z02774 80386002 HEX SEQCHAN,0,1R @Z02774 80388002 LABEL 'BREAK IN REG PTY','CHAN NO' @Z02774 80390002 LINE , @Z02774 80392002 BIN BIRE @Z02774 80394002 BIN C4BCIE @Z02774 80396002 ROUTINE DUMMY111,SKIPPER @Z02774 80398002 HEX UNITADR,0,1B @Z02774 80400002 LABEL 'BREAK IN REQ CK','UNIT ADDRESS' @Z02774 80402002 LINE , @Z02774 80404002 BIN C0BCE @Z02774 80406002 BIN C4BME @Z02774 80408002 ROUTINE DUMMY111,SKIPPER @Z02774 80410002 HEX RETSEQ,0,1B @Z02774 80412002 LABEL 'BFR CONTROL CK','RETRY SEQ' @Z02774 80414002 JUMP1 LINE (35,20),(4,20),SKIP=1 @Z02774 80430002 BIN C0BOCE 80500020 BIN C4IRE 80570020 JUMP2 LABEL 'BUS OUT LTH CK' @Z02774 80640002 LINE 80710020 BIN C0S07E 80780020 BIN C4LRE 80850020 LABEL 'I/O STAT 0-7 CK' 80920020 LINE 80990020 BIN C0RE 81060020 BIN C4SBE 81130020 ROUTINE DUMMY001,NOFET 81160002 LABEL 'ROSDR 21-25 CK' 81200020 LINE 81210002 BIN C0RE 81220002 BIN C4SBE 81230002 ROUTINE DUMMY001,YESFET 81240002 LABEL 'RCSDR 21-25 CK' 81250002 LINE 81270020 BIN C0UCE 81340020 BIN C4SBOE 81410020 LABEL 'UNIT ADR COMPARE CK' 81480020 LINE 81550020 BIN C0CCE 81620020 BIN C4ISE 81690020 LABEL 'HOLD OUT DLY CTR CK' 81760020 LINE 81830020 BIN C0RCE 81900020 BIN C4SPE 81970020 LABEL 'RETRY CK' 82040020 LINE 82110020 BIN C0ITE 82180020 BIN C4ITE 82250020 LABEL 'IN-TAG CK' 82320020 LINE 82390020 BIN C0CLE 82460020 BIN C4CLE 82530020 LABEL 'CHECK LOG' 82600020 LINE 82670020 BIN C0BOPE 82740020 BIN C4BOPE 82810020 LABEL 'BUS OUT LTH PTY CK' 82880020 LINE 82950020 BIN C0BIE 83020020 BIN C4BIE 83090020 LABEL 'BUS IN PTY CK' 83160020 LINE ,,SKIP=2 83230020 BIN C0WRLSE 83300020 BIN C4WRLSE 83370020 LABEL 'WRITE LS CK' 83440020 LINE ,(5,),SKIP=1 83510020 LABEL '---BLK MPX CHAN CKS---' 83580020 LINE ,(31,20),SKIP=1 83650020 LABEL 'CHANNEL 1','CHANNEL 2','CHANNEL 3','CHANNEL 5' 83720020 LINE (35,20),(4,),SKIP=1 83790020 BIN C1HCE 83860020 BIN C2HCE 83930020 BIN C3HCE 84000020 BIN C5HCE 84070020 LABEL 'HARDWARE CONTROL CK' 84140020 LINE 84210020 BIN C1BCIE 84280020 BIN C2BCIE 84350020 BIN C3BCIE 84420020 BIN C5BCIE 84490020 LABEL 'BYTE CTR INPUT CK' 84560020 LINE 84630020 BIN C1BME 84700020 BIN C2BME 84770020 BIN C3BME 84840020 BIN C5BME 84910020 LABEL 'BYTE CTR MLFN CK' 84980020 LINE 85050020 BIN C1IRE 85120020 BIN C2IRE 85190020 BIN C3IRE 85260020 BIN C5IRE 85330020 LABEL 'INTERFACE RING CK' 85400020 LINE 85470020 BIN C1LRE 85540020 BIN C2LRE 85610020 BIN C3LRE 85680020 BIN C5LRE 85750020 LABEL 'LS RING CK' 85820020 LINE 85890020 BIN C1SBE 85960020 BIN C2SBE 86030020 BIN C3SBE 86100020 BIN C5SBE 86170020 LABEL 'SET BUFFER CK' 86240020 LINE 86310020 BIN C1SBOE 86380020 BIN C2SBOE 86450020 BIN C3SBOE 86520020 BIN C5SBOE 86590020 LABEL 'SET BOL CK' 86660020 LINE 86730020 BIN C1ISE 86800020 BIN C2ISE 86870020 BIN C3ISE 86940020 BIN C5ISE 87010020 LABEL 'I/O STAT 0-7 CK' 87080020 LINE 87150020 BIN C1SPE 87220020 BIN C2SPE 87290020 BIN C3SPE 87360020 BIN C5SPE 87430020 LABEL 'SISC PTY CK' 87500020 LINE 87570020 BIN C1SWE 87640020 BIN C2SWE 87710020 BIN C3SWE 87780020 BIN C5SWE 87850020 LABEL 'SISC WRAP CK' 87920020 LINE 87990020 BIN C1ITE 88060020 BIN C2ITE 88130020 BIN C3ITE 88200020 BIN C5ITE 88270020 LABEL 'IN TAG CK' 88340020 LINE 88410020 BIN C1CLE 88480020 BIN C2CLE 88550020 BIN C3CLE 88620020 BIN C5CLE 88690020 LABEL 'CHECK LOG' 88760020 LINE 88830020 BIN C1BOPE 88900020 BIN C2BOPE 88970020 BIN C3BOPE 89040020 BIN C5BOPE 89110020 LABEL 'BUS OUT LTH PTY CK' 89180020 LINE 89250020 BIN C1BIE 89320020 BIN C2BIE 89390020 BIN C3BIE 89460020 BIN C5BIE 89530020 LABEL 'BUS IN PTY CK' 89600020 LINE 89670020 BIN C1WRLSE 89740020 BIN C2WRLSE 89810020 BIN C3WRLSE 89880020 BIN C5WRLSE 89950020 LABEL 'WRITE LS CK' 90020020 LINE , @Z02774 90028002 BIN CCCH1E @Z02774 90036002 BIN CCCH2E @Z02774 90044002 BIN CCCH3E @Z02774 90052002 BIN CCCH5E @Z02774 90060002 ROUTINE SPARE083,CHKFET @Z02774 90068002 LABEL 'CC ERR CK' @Z02774 90076002 DC X'FE' 90090020 DC CL8'IFCED155' 90160020 FETREC DC X'FE' 90180002 DC CL8'IFCEM155' 90200002 LABAREA EQU * 90230020 LSTART 90300020 END 90370020