TITLE 'IFCEF165 MODEL 165 CPU EDIT TABLE 4' 00050002 * DSGEN MACRO DSGEN MACRO DSGEN MACRO DSGEN MACRO * 00100002 SPACE 2 00150002 MACRO 00200002 &NAME DSGEN , 00240002 .* THIS MACRO GENERATES ONE DSECT WORD 00280002 .* FORMATTED FOR THE SUBJECT LOG RECORD 00320002 .* EACH OPERAND HAS TWO SUB LISTS. THE 00360002 .* FIRST IS THE NAME OF THE LOG ITEM 00400002 .* WHILE THE SECOND IS THE # OF BITS TO 00440002 .* ALLOCATE FOR THIS ITEM. ITEMS MUST 00480002 .* BE DEFINED CONTIGUOUSLY WITHOUT GAPS 00520002 .* UNUSED BIT GROUPS MUST BE GIVEN 00560002 .* DUMMY NAMES. THE NAMES PROVIDED FOR 00600002 .* THE LOG ITEMS MAY THEN BE USED IN 00640002 .* THE CONVERSION MACRO INSTRUCTIONS. 00680002 GBLC &ITEM(2000) @YL02021 00720002 GBLA &ITEMNBR,&BITS(2000),&SHIFT(2000) @YL02021 00760002 LCLB &ONLY1,&CTIND @YL02021 00800002 LCLA &START1,&START2,&END1,&END2 @YL02021 00840002 LCLC &SYMBOL,&EQUSYM @YL02021 00880002 LCLA &OP,&COUNT,&BYTE,&EQUCNT @YL02021 00920002 ACTR 100000 @YL02021 00960002 .START AIF (N'&SYSLIST(&OP+1) LT 3).LOOP @YL02021 01000002 AIF ('&SYSLIST(&OP+1,3)' EQ 'EQU').LOOP TEST FOR EQU 01040002 AIF ('&SYSLIST(&OP+1,3)' EQ '' OR '&SYSLIST(&OP+1,4)' EQ '').ERR1 01080002 AIF ('&SYSLIST(&OP+1,3)' GT '&SYSLIST(&OP+1,4)').ERR3 01120002 &START1 SETA &SYSLIST(&OP+1,3) GET START COUNT OF 1 @YL02021 01160002 &START2 SETA &SYSLIST(&OP+1,4) GET FIRST END COUNT @YL02021 01200002 AGO .SET2A BRANCH AROUND @YL02021 01240002 .ERR1 MNOTE '**FIRST SYMBOL CONCATENATION INCOMPLETE**' @YL02021 01280002 MEXIT @YL02021 01320002 .SET2A AIF ('&SYSLIST(&OP+1,5)' EQ ''AND '&SYSLIST(&OP+1,6)' EQ '' X01360002 ).SET2 TEST FOR NO SECOND @YL02021 01400002 AIF ('&SYSLIST(&OP+1,5)' EQ '' OR '&SYSLIST(&OP+1,6)' EQ '').ERR2 01440002 AIF ('&SYSLIST(&OP+1,5)' GT '&SYSLIST(&OP+1,6)').ERR3 01480002 &END1 SETA &SYSLIST(&OP+1,5) GET START COUNT OF 2 @YL02021 01520002 &END2 SETA &SYSLIST(&OP+1,6) GET END COUNT OF 2 @YL02021 01560002 AGO .LOOP @YL02021 01600002 .SET2 ANOP @YL02021 01640002 &ONLY1 SETB 1 INDICATE ONLY ONE CONCATENATION 01680002 AGO .LOOP @YL02021 01720002 .ERR2 MNOTE '**SECOND SYMBOL CONCATENATION INCOMPLETE**' @YL02021 01760002 MEXIT @YL02021 01800002 .ERR3 MNOTE '**START GREATER THAN END CONCATENATION**' @YL02021 01840002 MEXIT @YL02021 01880002 .LOOP ANOP @YL02021 01920002 &OP SETA &OP+1 @YL02021 01960002 AIF (&OP GT N'&SYSLIST).DONE TEST IF ALL DONE @YL02021 02000002 &ITEMNBR SETA &ITEMNBR+1 @YL02021 02040002 AIF ('&SYSLIST(&OP,2)' NE '').OK1 @YL02021 02080002 MNOTE '**NULL BIT COUNT FIELD**' @YL02021 02120002 MEXIT @YL02021 02160002 .OK1 ANOP @YL02021 02200002 &SYMBOL SETC '&SYSLIST(&OP,1)' @YL02021 02240002 AIF ('&SYMBOL' NE '').OK @YL02021 02280002 * ***** LOG ITEM SYMBOL NOT PROVIDED ***** 02320002 AIF ('&SYSLIST(&OP,3)' NE 'EQU').CNT @YL02021 02360002 AGO .START GET NEXT @YL02021 02400002 .OK AIF (N'&SYSLIST(&OP) LT 3).NO3 TEST FOR OLD FORMAT 02440002 AIF ('&SYSLIST(&OP,3)' EQ 'EQU').EQU TEST FOR EQU @YL02021 02480002 AIF (&ONLY1).OK2 TEST FOR ONLY ONE CONCAT 02520002 &SYMBOL SETC '&SYMBOL.&START1.&END1' GET 1 AND 2 CONCAT 02560002 AGO .NO3 BRANCH AROUND @YL02021 02600002 .OK2 ANOP @YL02021 02640002 &SYMBOL SETC '&SYMBOL.&START1' GET 1 CONCATENATED @YL02021 02680002 .NO3 ANOP @YL02021 02720002 &SYMBOL EQU *+&BYTE @YL02021 02760002 &ITEM(&ITEMNBR) SETC '&SYMBOL' GET LABEL IN GLOBAL @YL02021 02800002 &BITS(&ITEMNBR) SETA &SYSLIST(&OP,2) @YL02021 02840002 &SHIFT(&ITEMNBR) SETA &COUNT-&BYTE*8 @YL02021 02880002 .CNT ANOP @YL02021 02920002 &CTIND SETB 1 SET COUNT INDICATOR @YL02021 02960002 &COUNT SETA &COUNT+&SYSLIST(&OP,2) @YL02021 03000002 &BYTE SETA &COUNT/8 @YL02021 03040002 AIF (N'&SYSLIST(&OP) LT 3).START TEST FOR OLD FORMAT 03080002 AIF (&ONLY1).TSTST TEST FOR ONLY ONE CONCAT 03120002 AIF (&END1 EQ &END2).TSTST TEST FOR SECOND END @YL02021 03160002 &END1 SETA &END1+1 INCREMENT COUNT @YL02021 03200002 &OP SETA &OP-1 DECREMENT INCREMENT @YL02021 03240002 AGO .LOOP GENERATE NEXT @YL02021 03280002 .TSTST ANOP @YL02021 03320002 AIF (&START1 EQ &START2).LPDONE TEST FOR END @YL02021 03360002 AIF (&ONLY1).NSET1 TEST FOR ONLY ONE CONCAT 03400002 &END1 SETA &SYSLIST(&OP,5) RE-INIT SECOND START COUNT 03440002 .NSET1 ANOP @YL02021 03480002 &OP SETA &OP-1 DECREMENT INDEX @YL02021 03520002 &START1 SETA &START1+1 INCREMENT FIRST COUNT @YL02021 03560002 AGO .LOOP GO DO NEXT @YL02021 03600002 .LPDONE ANOP @YL02021 03640002 &ONLY1 SETB 0 CLEAR INDICATOR @YL02021 03680002 AGO .START GO TEST FOR MORE SUB-LISTS 03720002 .DONE AIF (&COUNT-&COUNT/8*8 NE 0).ERR TEST FOR MULTIPLE OF EIGHT 03760002 AIF (&CTIND EQ 0).END NO DS IF NO COUNT @YL02021 03800002 &COUNT SETA &COUNT/8 GET NUMBER OF BYTES @YL02021 03840002 &NAME DS &COUNT.C @YL02021 03880002 .END MEXIT @YL02021 03920002 .ERR MNOTE '**BIT COUNT FLDS DO NOT TOTAL MULTIPLE OF 8**' @YL02021 03960002 MEXIT @YL02021 04000002 .EQU AIF ('&SYSLIST(&OP,4)' NE '').EQU1 TEST FOR NULL LABEL 04040002 .ERR4 MNOTE '**EQU OPERAND OMITTED OR NOT FOUND**' @YL02021 04080002 MEXIT @YL02021 04120002 .EQU1 AIF (&SYSLIST(&OP,2) LT 16).EQU2 COUNT OVER FIFTEEN 04160002 ***** THE FOLLOWING STATEMENT ***** 04200002 ***** NUMBER OF BITS EXCEED 15 - DO NOT USE AS BIN ***** 04240002 .EQU2 ANOP @YL02021 04280002 &EQUCNT SETA 0 CLEAR COUNTER @YL02021 04320002 &EQUSYM SETC '&SYSLIST(&OP,4)' GET EQU OPERAND @YL02021 04360002 .EQULOP ANOP @YL02021 04400002 &EQUCNT SETA &EQUCNT+1 INCREMENT INDEX @YL02021 04440002 AIF ('&ITEM(&EQUCNT)' EQ '&EQUSYM').EQUOUT LABEL FOUND? 04480002 AIF (&EQUCNT EQ &ITEMNBR).ERR4 ALL TESTED? @YL02021 04520002 AGO .EQULOP NO-GET NEXT @YL02021 04560002 .EQUOUT ANOP @YL02021 04600002 &ITEM(&ITEMNBR) SETC '&SYMBOL' GET LABEL NAME @YL02021 04640002 &BITS(&ITEMNBR) SETA &SYSLIST(&OP,2) GET NUMBER OF BITS @YL02021 04680002 &SHIFT(&ITEMNBR) SETA &SHIFT(&EQUCNT) GET SHIFT COUNT @YL02021 04720002 &SYMBOL EQU &EQUSYM THIS SYMBOL EQUATED @YL02021 04760002 AGO .START RETURN FOR NEXT @YL02021 04800002 MEND @YL02021 04840002 EJECT @YL02021 04880002 MACRO 06050002 LINEND 06100002 .* THIS MACRO IS USED ONLY BY THE LINE 06150002 .* MACRO TO SET THE NUMBER OF ENTRIES 06200002 .* ASSOCIATED WITH EACH LINE. 06250002 GBLA &NRENTS 06300002 GBLC &NRENTSX 06350002 AIF (&NRENTS EQ 0).NORENTS TEST FOR NO COUNT 06400002 ORG &NRENTSX 06450002 DC FL1'&NRENTS' 06500002 ORG 06550002 &NRENTS SETA 0 06600002 .NORENTS ANOP 06650002 B&SYSNDX EQU * 06700002 &NRENTSX SETC 'B&SYSNDX' 06750002 MEND 06800002 * 06850002 MACRO @YL02021 06900002 BIN , @YL02021 06940002 .* &SYSLIST(&OP,1) - NAME OF LOG ITEM 06980002 .* RECORD DSECT @YL02021 07020002 .* $SYSLIST(&OP,2) - NBR OF SPACES 07060002 .* TO SKIP ON MULTIPLE @YL02021 07100002 .* PRINT OR NBR OF SPACES @YL02021 07140002 .* TO BACK UP FROM COLUMN FOR 07180002 .* START OF PRINTING. THE LETTER 07220002 .* B PRECEEDS THE NUMBER (B5) IF 07260002 .* THE LATTER IS DESIRED. OMISSION 07300002 .* OF THIS OPERAND FORCES OPTION 2 07340002 .* WITH BACKUP SPACING EQUAL TO 07380002 .* THE NUMBER OF BITS IN THE ITEM 07420002 .* DEFINITION (VIA MACRO 'DSGEN'). 07460002 .* A LIMIT OF 15 BITS IS IMPOSED FOR THE 07500002 .* TOTAL NUMBER OF BITS TO PRINT. 07540002 GBLA &INITIAL @YL02021 07580002 GBLB &DIAGTST,&DIAGSET,&DIAGLIN @YL02021 07620002 GBLC &ITEM(2000) @YL02021 07660002 GBLA &ITEMNBR,&BITS(2000),&SHIFT(2000),&NRENTS @YL02021 07700002 GBLC &DSECT @YL02021 07740002 LCLB &B,&SUB @YL02021 07780002 LCLA &IBITS,&NDX,&ISHIFT,&K @YL02021 07820002 LCLA &TEMP,&T,&OP @YL02021 07860002 LCLC &S @YL02021 07900002 AIF (&DIAGTST EQ 0).NOMSG @YL02021 07940002 AIF (&INITIAL EQ 0).NOMSG @YL02021 07980002 AIF (&DIAGLIN EQ 1).NOMSG @YL02021 08020002 MNOTE '**NO LINE ASSOCIATED WITH THIS DATA**' @YL02021 08060002 *****THE FOLLOWING GENERATED FOR TEST PURPOSES***** @YL02021 08100002 * LINE @YL02021 08140002 LINE @YL02021 08180002 .NOMSG ANOP @YL02021 08220002 AIF (K'&SYSLIST(1) EQ K'&SYSLIST(1,1)).LOOP @YL02021 08260002 &SUB SETB 1 @YL02021 08300002 .LOOP ANOP @YL02021 08340002 &OP SETA &OP+1 @YL02021 08380002 .LOOP1 ANOP @YL02021 08420002 &NDX SETA &NDX+1 @YL02021 08460002 AIF ('&ITEM(&NDX)' EQ '&SYSLIST(&OP,1)').FOUND @YL02021 08500002 AIF (&NDX LT &ITEMNBR).LOOP1 @YL02021 08540002 MNOTE '**LOG ITEM NOT DEFINED**' @YL02021 08580002 MEXIT @YL02021 08620002 .FOUND ANOP @YL02021 08660002 &ISHIFT SETA &SHIFT(&NDX) @YL02021 08700002 &IBITS SETA &BITS(&NDX) @YL02021 08740002 &T SETA &IBITS-1 @YL02021 08780002 &B SETB 0 @YL02021 08820002 AIF (&IBITS GT 0 AND &IBITS LT 16).SUB0 @YL02021 08860002 MNOTE '**NO. OF BITS OUTSIDE RANGE OF 1-15**' @YL02021 08900002 MEXIT @YL02021 08940002 .SUB0 AIF (&SUB EQ 1).SUBA @YL02021 08980002 AIF ('&SYSLIST(2)' EQ '').BACKUP @YL02021 09020002 &K SETA K'&SYSLIST(2) @YL02021 09060002 &B SETB ('&SYSLIST(2)'(1,1) EQ 'B') @YL02021 09100002 &S SETC '&SYSLIST(2)'(&B+1,&K-&B) @YL02021 09140002 AGO .SUBB @YL02021 09180002 .SUBA ANOP @YL02021 09220002 AIF ('&SYSLIST(&OP,2)' EQ '').BACKUP @YL02021 09260002 &K SETA K'&SYSLIST(&OP,2) @YL02021 09300002 &B SETB ('&SYSLIST(&OP,2)'(1,1) EQ 'B') @YL02021 09340002 &S SETC '&SYSLIST(&OP,2)'(&B+1,&K-&B) @YL02021 09380002 .SUBB ANOP @YL02021 09420002 &T SETA &S @YL02021 09460002 .BACKUP ANOP @YL02021 09500002 &NRENTS SETA &NRENTS+1 @YL02021 09540002 &TEMP SETA &ISHIFT @YL02021 09580002 AIF (&IBITS NE 1 OR &B NE 0).BIN2 @YL02021 09620002 DC AL.12(&SYSLIST(&OP,1)-&DSECT),XL.4'&TEMP' @YL02021 09660002 AGO .OUT @YL02021 09700002 .BIN2 AIF ('&SYSLIST(&OP,2)' NE '').BIN3 @YL02021 09740002 &B SETB 1 @YL02021 09780002 .BIN3 ANOP @YL02021 09820002 DC AL.12(&SYSLIST(&OP,1)-&DSECT),XL.4'C' @YL02021 09860002 DC BL.1'&B',AL.7(&T),AL.4(&IBITS),FL.4'&ISHIFT' @YL02021 09900002 .OUT ANOP @YL02021 09940002 &NDX SETA 0 @YL02021 09980002 AIF (&SUB EQ 0).OUTA @YL02021 10020002 AIF (&OP LT N'&SYSLIST).LOOP @YL02021 10060002 .OUTA ANOP @YL02021 10100002 MEND @YL02021 10140002 EJECT @YL02021 10180002 MACRO 11000002 HEX 11050002 .* THIS MACRO FACILITATES GENERATION OF THE 11100002 .* TABLE ENTRIES SPECIFYING HEX TYPE 11150002 .* CONVERSIONS. 11200002 .* &SYSLIST(&OP,1) - NAME OF DATA ITEM TO BE 11250002 .* CONVERTED 11300002 .* &SYSLIST(&OP,2) - # OF SPACES TO SKIP ON 11350002 .* MULTIPLE PRINT OR NBR OF SPACES TO 11400002 .* BACK UP FROM COLUMN FOR START OF 11450002 .* PRINTING. THE LETTER B PRECEEDS THE 11500002 .* NUMBER (B8) IF THE LATTER OPTION IS 11550002 .* DESIRED. OMISSION OF THIS OPERAND 11600002 .* FORCES OPTION 2 WITH BACKUP SPACING 11650002 .* EQUAL TO THE NUMBER OF BYTES SPECI- 11700002 .* FIED BY THE NEXT OPERAND (TWICE THIS 11750002 .* NUMBER IF SUFFIX IS EXPLICITLY OR 11800002 .* IMPLICITLY B). 11850002 .* &SYSLIST(&OP,3) - NUMBER OF BYTES TO 11900002 .* PROCESS. THIS NUMBER IS SUFFIXED 11950002 .* WITH AN L,R, OR B TO STIPULATE 12000002 .* PRINTING OF THE LEFT HALF, RIGHT 12050002 .* HALF, OR BOTH HALVES OF THE BYTE 12100002 .* RESPECTIVELY. OMISSION OF THIS 12150002 .* OPERAND DEFAULTS TO B WITH THE NUM- 12200002 .* BER OF BYTES EQUAL TO THE ITEM LNGTH 12250002 .* A NEW ENTRY IS GENERATED ONLY WHEN NECES- 12300002 .* SARY. THIS MACRO MUST BE THE FIRST 12350002 .* MACRO INSTRUCTION ISSUED FOR THE 12400002 .* SUBJECT LINE(S). 12450002 GBLC &ITEM(2000),&DSECT 12500002 GBLA &ITEMNBR,&BITS(2000),&SHIFT(2000),&NRENTS 12550002 GBLA &INITIAL 12600002 GBLB &DIAGTST,&DIAGSET,&DIAGLIN 12650002 LCLB &B,&SUB 12700002 LCLA &IBITS,&NDX,&ISHIFT,&K,&T,&CODE,&BYTESP,&OP 12750002 LCLC &S,&LETTER 12800002 AIF (&DIAGTST EQ 0).NOMSG 12850002 AIF (&INITIAL EQ 0).NOMSG 12900002 AIF (&DIAGLIN EQ 1).NOMSG 12950002 MNOTE '**NO LINE ASSOCIATED WITH THIS DATA**' 13000002 *****THE FOLLOWING GENERATED FOR TEST PURPOSES***** 13050002 * LINE 13100002 LINE 13150002 .NOMSG ANOP 13200002 AIF (K'&SYSLIST(1) EQ K'&SYSLIST(1,1)).LOOP 13250002 &SUB SETB 1 13300002 .LOOP ANOP 13350002 &OP SETA &OP+1 13400002 .LOOP1 ANOP 13450002 &NDX SETA &NDX+1 13500002 AIF ('&ITEM(&NDX)' EQ '&SYSLIST(&OP,1)').FOUND 13550002 AIF (&NDX LT &ITEMNBR).LOOP1 13600002 MNOTE '**LOG ITEM NOT DEFINED**' 13650002 MEXIT 13700002 .FOUND ANOP 13750002 &ISHIFT SETA &SHIFT(&NDX) 13800002 &IBITS SETA &BITS(&NDX) 13850002 AIF (&ISHIFT EQ 0 OR &ISHIFT EQ 4).ALIGN 13900002 .ERR MNOTE '**DATA NOT ALLIGNED ON HEX OR BYTE BOUNDARY**' 13950002 MEXIT 14000002 .ALIGN ANOP 14050002 &CODE SETA 1 14100002 AIF (&SUB EQ 1).SUBA 14150002 &K SETA K'&SYSLIST(3) 14200002 AGO .SUBB 14250002 .SUBA ANOP 14300002 &K SETA K'&SYSLIST(&OP,3) 14350002 .SUBB ANOP 14400002 AIF (&IBITS-(&IBITS/4)*4 EQ 0).OK 14450002 MNOTE '**BIT LENGTH SPECIFICATION INCONSISTENT WITH CONTROL**' 14500002 MEXIT 14550002 .OK AIF (&SUB EQ 1).SUBC 14600002 AIF ('&SYSLIST(3)' EQ '').USEDEFN 14650002 &LETTER SETC '&SYSLIST(3)'(&K,1) 14700002 &S SETC '&SYSLIST(3)'(1,&K-1) 14750002 AGO .SUBD 14800002 .SUBC ANOP 14850002 AIF ('&SYSLIST(&OP,3)' EQ '').USEDEFN 14900002 &LETTER SETC '&SYSLIST(&OP,3)'(&K,1) 14950002 &S SETC '&SYSLIST(&OP,3)'(1,&K-1) 15000002 .SUBD ANOP 15050002 &BYTESP SETA &S 15100002 AIF ('&LETTER' EQ 'B').BOTH 15150002 AIF ('&LETTER' EQ 'L').LEFT 15200002 &CODE SETA 2 15250002 AGO .L 15300002 .LEFT ANOP 15350002 &CODE SETA 1 15400002 AGO .L 15450002 .USEDEFN ANOP 15500002 &BYTESP SETA &IBITS/8 15550002 .BOTH AIF (&ISHIFT NE 0).ERR 15600002 &CODE SETA 3 15650002 &T SETA &BYTESP*2-1 15700002 &S SETC '&T' 15750002 .OK2 AIF (&ISHIFT EQ 0).L 15800002 &CODE SETA 2 15850002 .L ANOP 15900002 &B SETB 1 15950002 AIF (&SUB EQ 1).SUBE 16000002 AIF ('&SYSLIST(2)' EQ '').BACKUP 16050002 &K SETA K'&SYSLIST(2) 16100002 &B SETB ('&SYSLIST(2)'(1,1) EQ 'B') 16150002 &S SETC '&SYSLIST(2)'(&B+1,&K-&B) 16200002 AGO .SUBF 16250002 .SUBE ANOP 16300002 AIF ('&SYSLIST(&OP,2)' EQ '').BACKUP 16350002 &K SETA K'&SYSLIST(&OP,2) 16400002 &B SETB ('&SYSLIST(&OP,2)'(1,1) EQ 'B') 16450002 &S SETC '&SYSLIST(&OP,2)'(&B+1,&K-&B) 16500002 .SUBF ANOP 16550002 .BACKUP ANOP 16600002 &NRENTS SETA &NRENTS+1 16650002 AIF (&BYTESP GT 0 AND &BYTESP LT 16).SUB0 16700002 MNOTE '**NO. OF BYTES OUTSIDE RANGE OF 1-15**' 16750002 MEXIT 16800002 .SUB0 AIF (&SUB EQ 1).SUBG 16850002 DC AL.12(&SYSLIST(1)-&DSECT),XL.4'A' 16900002 AGO .SUBH 16950002 .SUBG ANOP 17000002 DC AL.12(&SYSLIST(&OP,1)-&DSECT),XL.4'A' 17050002 .SUBH ANOP 17100002 DC BL.1'&B',FL.7'&S',AL.4(&BYTESP),FL.4'&CODE' 17150002 .OUT ANOP 17200002 &NDX SETA 0 17250002 AIF (&SUB EQ 0).OUTA 17300002 AIF (&OP LT N'&SYSLIST).LOOP 17350002 .OUTA ANOP 17400002 MEND 17450002 MACRO @YL02021 17500002 LSTART , @YL02021 17540002 .* THIS MACRO IS ISSUED WHEN THE LABEL AREA 17580002 .* OF THE TABLE IS TO BEGIN. @YL02021 17620002 GBLA &LABELNR @YL02021 17660002 GBLC &LBL(100) @YL02021 17700002 GBLC &LABELS(2000) @YL02021 17740002 GBLA &LBLCTR(100) @YL02021 17780002 GBLB &DIAGTST,&DIAGSET,&DIAGLIN @YL02021 17820002 LCLA &NDX,&CTR @YL02021 17860002 AIF (&DIAGTST EQ 0).NODIAG @YL02021 17900002 AIF (&DIAGSET EQ 0).NODIAG @YL02021 17940002 MNOTE '**NO LABEL ASSOCIATED WITH LAST SET**' @YL02021 17980002 ***** THE FOLLOWING GENERATED FOR TEST PURPOSES ***** @YL02021 18020002 * LABEL '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%' 18060002 LABEL '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%' 18100002 .NODIAG ANOP @YL02021 18140002 LINEND @YL02021 18180002 &CTR SETA 1 @YL02021 18220002 .LOOP ANOP @YL02021 18260002 &NDX SETA &NDX+1 @YL02021 18300002 AIF (&LBLCTR(&CTR) NE &NDX).NOLBL @YL02021 18340002 &LBL(&CTR) DC C'&LABELS(&NDX)' @YL02021 18380002 &CTR SETA &CTR+1 @YL02021 18420002 AGO .LOOPCTL @YL02021 18460002 .NOLBL ANOP @YL02021 18500002 DC C'&LABELS(&NDX)' @YL02021 18540002 .LOOPCTL AIF (&NDX LT &LABELNR).LOOP @YL02021 18580002 MEND @YL02021 18620002 EJECT @YL02021 18660002 MACRO @YL02021 18700002 &NAME LABEL &LABEL1,&LABEL2,&LABEL3,&LABEL4,&LABEL5,&LABEL6, C18740002 &LABEL7,&LABEL8 @YL02021 18780002 .* THIS MACRO ALLOWS LABELS TO @YL02021 18820002 .* BE SPECIFIED FOR A GIVEN LINE. THE 18860002 .* LABELS SHOULD BE ENCLOSED IN QUOTA- 18900002 .* TION MARKS. THE COLUMN AND LINE END 18940002 .* CONTROLS WILL BE INSERTED BY THE 18980002 .* MACRO. OMITTED OPERANDS MEAN NO 19020002 .* LABEL REQUIRED FOR RESPECTIVE 19060002 .* COLUMN. @YL02021 19100002 GBLC &LABELS(2000) @YL02021 19140002 GBLC &LBL(100) @YL02021 19180002 GBLA &LBLCTR(100) @YL02021 19220002 GBLA &LABELNR @YL02021 19260002 GBLA &NRENTS,&LPTR,&INITIAL @YL02021 19300002 GBLB &DIAGTST,&DIAGSET,&DIAGLIN @YL02021 19340002 LCLC &MARGIN,&TACK @YL02021 19380002 LCLC &TEXT @YL02021 19420002 LCLA &OP,&K,&START,&NRCHAR,&REMAIN @YL02021 19460002 AIF (&INITIAL EQ 0).DIAGCLR @YL02021 19500002 AIF (&DIAGTST EQ 0).DIAGCLR @YL02021 19540002 AIF (&DIAGLIN EQ 1).DIAGCLR @YL02021 19580002 MNOTE '**NO LINE ASSOCIATED WITH PREVIOUS LABEL**' @YL02021 19620002 ***** THE FOLLOWING GENERATED FOR TEST PURPOSES ***** @YL02021 19660002 * LINE @YL02021 19700002 LINE @YL02021 19740002 .DIAGCLR ANOP @YL02021 19780002 &DIAGSET SETB 0 @YL02021 19820002 &DIAGLIN SETB 0 @YL02021 19860002 &MARGIN SETC '*' @YL02021 19900002 AIF ('&NAME' EQ '').LOOPOUT @YL02021 19940002 &LPTR SETA &LPTR+1 @YL02021 19980002 &LBL(&LPTR) SETC '&NAME' @YL02021 20020002 &LBLCTR(&LPTR) SETA &LABELNR+1 @YL02021 20060002 .LOOPOUT ANOP @YL02021 20100002 &OP SETA &OP+1 @YL02021 20140002 &K SETA K'&SYSLIST(&OP) @YL02021 20180002 AIF (&K GE 2).NORM @YL02021 20220002 &K SETA 2 @YL02021 20260002 .NORM ANOP @YL02021 20300002 &START SETA 2 @YL02021 20340002 AIF (&OP LT N'&SYSLIST).NOTLAST @YL02021 20380002 &MARGIN SETC '$' @YL02021 20420002 .NOTLAST ANOP @YL02021 20460002 &NRCHAR SETA 8 @YL02021 20500002 &TACK SETC '' @YL02021 20540002 .LOOPIN ANOP @YL02021 20580002 &REMAIN SETA &K-&START @YL02021 20620002 AIF (&REMAIN GE 8).MORE @YL02021 20660002 &TACK SETC '&MARGIN' @YL02021 20700002 &NRCHAR SETA &REMAIN @YL02021 20740002 .MORE ANOP @YL02021 20780002 &TEXT SETC '' @YL02021 20820002 AIF (&REMAIN EQ 0).ENDTEXT @YL02021 20860002 &TEXT SETC '&SYSLIST(&OP)'(&START,&NRCHAR) @YL02021 20900002 .ENDTEXT ANOP @YL02021 20940002 &LABELNR SETA &LABELNR+1 @YL02021 20980002 &LABELS(&LABELNR) SETC '&TEXT'.'&TACK' @YL02021 21020002 &START SETA &START+8 @YL02021 21060002 AIF ('&TACK' EQ '').LOOPIN @YL02021 21100002 AIF ('&TACK' EQ '*').LOOPOUT @YL02021 21140002 MEND @YL02021 21180002 EJECT @YL02021 21220002 MACRO 22100002 &NAME ROUTINE &LOGITEM,&RNAME 22150002 GBLA &NRENTS 22200002 GBLC &DSECT,&CSECT 22250002 GBLA &INITIAL 22300002 GBLB &DIAGTST,&DIAGSET,&DIAGLIN 22350002 AIF (&DIAGTST EQ 0).NOMSG 22400002 AIF (&INITIAL EQ 0).NOMSG 22450002 AIF (&DIAGLIN EQ 1).NOMSG 22500002 MNOTE '**NO LINE ASSOCIATED WITH THIS ROUTINE**' 22550002 *****THE FOLLOWING GENERATED FOR TEST PURPOSES***** 22600002 * LINE 22650002 LINE 22700002 .NOMSG ANOP 22750002 &NAME DC AL.12(&LOGITEM-&DSECT),XL.4'D' 22800002 DC AL2(&RNAME-&CSECT) 22850002 &NRENTS SETA &NRENTS+1 22900002 MEND 22950002 EJECT @YL02021 22970002 MACRO 23000002 &NAME LINE &DATA,&LABEL,&SKIP= 23050002 .* THIS MACRO ESTABLISHES THE MARGINS OR 23100002 .* COLUMN SETTINGS FOR EACH LINE. IT 23150002 .* GENERATES NECESSARY CARRIAGE CONTROL 23200002 .* ENTRIES. LASTLY IT DETERMINES THE 23250002 .* NUMBER OF ENTRIES ASSOCIATED WITH 23300002 .* THE PREVIOUS LINE AND STORES THAT # 23350002 .* INTO THE APPROPRIATE BYTE. 23400002 .* &DATA(1) - CHARACTER POSITION TO BEGIN 23450002 .* DATA. 23500002 .* &DATA(2) - # OF SPACES BETWEEN SUCCESSIVE 23550002 .* DATA COLUMN STARTING CHARACTERS. 23600002 .* &LABEL(1) - CHAR. POS. TO BEGIN LABELS. 23650002 .* &LABEL(2) - # SPACES BETWEEN LINE'S LABEL 23700002 .* STARTING CHARACTERS. 23750002 .* &SKIP= - # OF LINES TO ADVANCE CARRIAGE 23800002 .* TO BEGIN NEXT PRINTED LINE. 23850002 .* NEW ENTRIES ARE GENERATED ONLY WHEN 23900002 .* NECESSARY. OMISSION OF ITEMS MEANS 23950002 .* THEY HAVE NOT CHANGED SINCE PREVIOUS 24000002 .* SETTINGS. A LINE MACRO IS REQUIRED 24050002 .* FOR EACH PRINTED LINE. IF NO SETTING 24100002 .* CHANGES ARE REQUIRED ALL OPERANDS 24150002 .* ARE OMITTED IN WHICH CASE ONLY THE 24200002 .* # OF ENTRIES FOR THE PREVIOUS LINE 24250002 .* IS COMPUTED. THIS MACRO MUST BE THE 24300002 .* FIRST MACRO INSTRUCTION ISSUED FOR 24350002 .* THE SUBJECT LINE 24400002 GBLA &DB,&DT,&LB,<,&NRENTS 24450002 GBLA &LASTCC,&INITIAL 24500002 GBLC &NRENTSX 24550002 GBLC &CARRCON 24600002 GBLB &TEST 24650002 GBLB &DIAGTST,&DIAGSET,&DIAGLIN 24700002 LCLA &S 24750002 AIF (&INITIAL EQ 0 OR &DIAGTST EQ 0).DIAGSET 24800002 AIF (&DIAGSET EQ 0).DIAGSET 24850002 MNOTE '**NO LABEL ASSOCIATED WITH LAST SET**' 24900002 ***** THE FOLLOWING GENERATED FOR TEST PURPOSES ***** 24950002 * LABEL '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%' 25000002 LABEL '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%' 25050002 .DIAGSET ANOP 25100002 &DIAGSET SETB 1 25150002 &DIAGLIN SETB 1 25200002 &NAME DS 0C 25250002 AIF (&INITIAL EQ 0).FIRSTLN 25300002 LINEND 25350002 AGO .NTFIRST 25400002 .FIRSTLN ANOP 25450002 &NRENTSX SETC 'N&SYSNDX' 25500002 &INITIAL SETA 1 25550002 N&SYSNDX EQU * 25600002 .NTFIRST ANOP 25650002 DC AL1(0) 25700002 AIF ('&DATA(1)' EQ '').CKDTABS 25750002 AIF (&DATA(1) EQ &DB).CKDTABS 25800002 &DB SETA &DATA(1) 25850002 AGO .AA 25900002 .CKDTABS AIF ('&DATA(2)' EQ '').NCDATA 25950002 AIF (&DATA(2) EQ &DT).NCDATA 26000002 AGO .CC 26050002 .AA AIF ('&DATA(2)' EQ '').BB 26100002 AIF (&DATA(2) EQ &DT).BB 26150002 .CC ANOP 26200002 &DT SETA &DATA(2) 26250002 .BB DC XL2'FFFE' 26300002 DC FL1'&DB' 26350002 DC FL1'&DT' 26400002 &NRENTS SETA &NRENTS+1 26450002 .NCDATA ANOP 26500002 AIF ('&LABEL(1)' EQ '').CKLTABS 26550002 AIF (&LABEL(1) EQ &LB).CKLTABS 26600002 &LB SETA &LABEL(1) 26650002 AGO .AAA 26700002 .CKLTABS AIF ('&LABEL(2)' EQ '').NCLABEL 26750002 AIF (&LABEL(2) EQ <).NCLABEL 26800002 AGO .CCC 26850002 .AAA AIF ('&LABEL(2)' EQ '').BBB 26900002 AIF (&LABEL(2) EQ <).BBB 26950002 .CCC ANOP 27000002 < SETA &LABEL(2) 27050002 .BBB DC XL2'FFFF' 27100002 DC FL1'&LB' 27150002 DC FL1'<' 27200002 &NRENTS SETA &NRENTS+1 27250002 .NCLABEL ANOP 27300002 AIF ('&SKIP' NE '').CONT 27350002 AIF (&TEST EQ 0).NOCHANG 27400002 AGO .DEFALTA 27450002 .CONT ANOP 27500002 AIF (&TEST EQ 0).AB 27550002 AIF ('&SKIP' EQ 'E').AB 27600002 &S SETA &SKIP 27650002 .DEFAULT ANOP 27700002 AIF (&SKIP EQ &LASTCC).DEFALTA 27750002 ORG &CARRCON+3 27800002 DC AL.3(0),AL.2(&S),AL.3(1) 27850002 ORG 27900002 &LASTCC SETA &S 27950002 .DEFALTA ANOP 28000002 &TEST SETB 0 28050002 AGO .DD 28100002 .AB AIF ('&SKIP' NE 'E').ABB 28150002 A&SYSNDX DC X'FFFB8B00' EJECT 28200002 AGO .ABC 28250002 .ABB AIF (&SKIP EQ &LASTCC).NOCHANG 28300002 A&SYSNDX DC XL2'FFFB' 28350002 DC AL.3(0),AL.2(&SKIP),AL.3(1) 28400002 DC AL.3(0),AL.2(&SKIP),AL.3(1) 28450002 &LASTCC SETA &SKIP 28500002 &TEST SETB 1 28550002 .ABC ANOP 28600002 &CARRCON SETC 'A&SYSNDX' 28650002 &NRENTS SETA &NRENTS+1 28700002 .DD ANOP 28750002 .NOCHANG ANOP 28800002 MEND 28850002 EJECT 28900002 GBLC &DSECT,&CSECT 28950002 &DSECT SETC 'INDEPEND' 29000002 &CSECT SETC 'IFCEF165' 29050002 IFCEF165 CSECT 29100002 USING *,R9 29150002 INDEPEND DSECT 29200002 DS 0F 29250002 DSGEN (XKEY,16),(XSWS8,9),(XSWS9,1),(XSWS10,1),(XSWS11,1), C29300002 (XSWS12,1),(XSWS13,1),(XSWS14,1),(XSWS15,1) 29350002 DSGEN (XDUM1,32) 29400002 DSGEN (XDATE,32) 29450002 DSGEN (XTIME,32) 29500002 DSGEN (XDUM2,8),(XSER,24) 29550002 DSGEN (XCPUMOD,16),(XDUM3,16) 29600002 DSGEN (XPGMID,64) 29650002 DSGEN (XJOBID,64) 29700002 ORG XJOBID @YL02021 29710002 DSGEN (MCETEF,1,0,7),(MCEMEF,1,0,7),(MCEIEF,1,0,7), @YL02021X29720002 (MCESEF,1,0,7),(PDAR0,1,0,7),(PDAR1,1,0,7), @YL02021X29730002 (PDAR2,1,0,7),(WDSIZE,8) @YL02021 29740002 DSGEN (XMCKPSW,64) 29750002 M165 DS 214F 29800002 DSGEN (A1LB,32) 29850002 DSGEN (A1LC,32) 29900002 DSGEN (A1LD,32) 29950002 DSGEN (A1LE,32) 30000002 DSGEN (A1LF,32) 30050002 DSGEN (A1LG,32) 30100002 DSGEN (A1LH,32) 30150002 DSGEN (A1LJ,32) 30200002 DSGEN (A1LK,32) 30250002 DSGEN (A1LL,32) 30300002 DSGEN (A2LB,32) 30350002 DSGEN (A2LC,32) 30400002 DSGEN (A2LD,32) 30450002 DSGEN (A2LE,32) 30500002 DSGEN (A2LF,32) 30550002 DSGEN (A2LG,32) 30600002 DSGEN (A2LH,32) 30650002 DSGEN (A2LJ,32) 30700002 DSGEN (A2LK,32) 30750002 DSGEN (A2LL,32) 30800002 DSGEN (A3LB,32) 30850002 DSGEN (A3LC,32) 30900002 DSGEN (A3LD,32) 30950002 DSGEN (A3LE,32) 31000002 DSGEN (A3LF,32) 31050002 DSGEN (A3LG,32) 31100002 DSGEN (A3LH,32) 31150002 DSGEN (A3LJ,32) 31200002 DSGEN (A3LK,32) 31250002 DSGEN (A3LL,32) 31300002 DSGEN (A4LB,32) 31350002 DSGEN (A4LC,32) 31400002 DSGEN (A4LD,32) 31450002 DSGEN (A4LE,32) 31500002 DSGEN (A4LF,32) 31550002 DSGEN (A4LG,32) 31600002 DSGEN (A4LH,32) 31650002 DSGEN (A4LJ,32) 31700002 DSGEN (A4LK,32) 31750002 DSGEN (A4LL,32) 31800002 DSGEN (A5LB,32) 31850002 DSGEN (A5LC,32) 31900002 DSGEN (A5LD,32) 31950002 DSGEN (A5LE,32) 32000002 DSGEN (A5LF,32) 32050002 DSGEN (A5LG,32) 32100002 DSGEN (A5LH,32) 32150002 DSGEN (A5LJ,32) 32200002 DSGEN (A5LK,32) 32250002 DSGEN (A5LL,32) 32300002 DSGEN (A6LB,32) 32350002 DSGEN (A6LC,32) 32400002 DSGEN (A6LD,32) 32450002 DSGEN (A6LE,32) 32500002 DSGEN (A6LF,32) 32550002 DSGEN (A6LG,32) 32600002 DSGEN (A6LH,32) 32650002 DSGEN (A6LJ,32) 32700002 DSGEN (A6LK,32) 32750002 DSGEN (A6LL,32) 32800002 DSGEN (A7LB,32) 32850002 DSGEN (A7LC,32) 32900002 DSGEN (A7LD,32) 32950002 DSGEN (A7LE,32) 33000002 DSGEN (A7LF,32) 33050002 DSGEN (A7LG,32) 33100002 DSGEN (A7LH,32) 33150002 DSGEN (A7LJ,32) 33200002 DSGEN (A7LK,32) 33250002 DSGEN (A7LL,32) 33300002 DSGEN (B0LB,32) 33350002 DSGEN (B0LC,32) 33400002 DSGEN (B0LD,32) 33450002 DSGEN (B0LE,32) 33500002 DSGEN (B0LF,32) 33550002 DSGEN (B0LG,32) 33600002 DSGEN (B0LH,32) 33650002 DSGEN (B0LJ,32) 33700002 DSGEN (B0LK,32) 33750002 DSGEN (B0LL,32) 33800002 DSGEN (B1LB,32) 33850002 DSGEN (B1LC,32) 33900002 DSGEN (B1LD,32) 33950002 DSGEN (B1LE,32) 34000002 DSGEN (B1LF,32) 34050002 DSGEN (B1LG,32) 34100002 DSGEN (B1LH,32) 34150002 DSGEN (B1LJ,32) 34200002 DSGEN (B1LK,32) 34250002 DSGEN (B1LL,32) 34300002 DSGEN (B2LB,32) 34350002 DSGEN (B2LC,32) 34400002 DSGEN (B2LD,32) 34450002 DSGEN (B2LE,32) 34500002 DSGEN (B2LF,32) 34550002 DSGEN (B2LG,32) 34600002 DSGEN (B2LH,32) 34650002 DSGEN (B2LJ,32) 34700002 DSGEN (B2LK,32) 34750002 DSGEN (B2LL,32) 34800002 DSGEN (B3LB,32) 34850002 DSGEN (B3LC,32) 34900002 DSGEN (B3LD,32) 34950002 DSGEN (B3LE,32) 35000002 DSGEN (B3LF,32) 35050002 DSGEN (B3LG,32) 35100002 DSGEN (B3LH,32) 35150002 DSGEN (B3LJ,32) 35200002 DSGEN (B3LK,32) 35250002 DSGEN (B3LL,32) 35300002 DSGEN (B4LB,32) 35350002 DSGEN (B4LC,32) 35400002 DSGEN (B4LD,32) 35450002 DSGEN (B4LE,32) 35500002 DSGEN (B4LF,32) 35550002 DSGEN (B4LG,32) 35600002 DSGEN (B4LH,32) 35650002 DSGEN (B4LJ,32) 35700002 DSGEN (B4LK,32) 35750002 DSGEN (B4LL,32) 35800002 DSGEN (B5LB,32) 35850002 DSGEN (B5LC,32) 35900002 DSGEN (B5LD,32) 35950002 DSGEN (B5LE,32) 36000002 DSGEN (B5LF,32) 36050002 DSGEN (B5LG,32) 36100002 DSGEN (B5LH,32) 36150002 DSGEN (B5LJ,32) 36200002 DSGEN (B5LK,32) 36250002 DSGEN (B5LL,32) 36300002 DSGEN (B6LB,32) 36350002 DSGEN (B6LC,32) 36400002 DSGEN (B6LD,32) 36450002 DSGEN (B6LE,32) 36500002 DSGEN (B6LF,32) 36550002 DSGEN (B6LG,32) 36600002 DSGEN (B6LH,32) 36650002 DSGEN (B6LJ,32) 36700002 DSGEN (B6LK,32) 36750002 DSGEN (B6LL,32) 36800002 DSGEN (C0LB,32) 36850002 DSGEN (C0LC,32) 36900002 DSGEN (C0LD,32) 36950002 DSGEN (C0LE,32) 37000002 DSGEN (C0LF,32) 37050002 DSGEN (C0LG,32) 37100002 DSGEN (C0LH,32) 37150002 DSGEN (C0LJ,32) 37200002 DSGEN (C0LK,32) 37250002 DSGEN (C0LL,32) 37300002 DSGEN (C1LB,32) 37350002 DSGEN (C1LC,32) 37400002 DSGEN (C1LD,32) 37450002 DSGEN (C1LE,32) 37500002 DSGEN (C1LF,32) 37550002 DSGEN (C1LG,32) 37600002 DSGEN (C1LH,32) 37650002 DSGEN (C1LJ,32) 37700002 DSGEN (C1LK,32) 37750002 DSGEN (C1LL,32) 37800002 DSGEN (C2LB,32) 37850002 DSGEN (C2LC,32) 37900002 DSGEN (C2LD,32) 37950002 DSGEN (C2LE,32) 38000002 DSGEN (C2LF,32) 38050002 DSGEN (C2LG,32) 38100002 DSGEN (C2LH,32) 38150002 DSGEN (C2LJ,32) 38200002 DSGEN (C2LK,32) 38250002 DSGEN (C2LL,32) 38300002 DSGEN (C3LB,32) 38350002 DSGEN (C3LC,32) 38400002 DSGEN (C3LD,32) 38450002 DSGEN (C3LE,32) 38500002 DSGEN (C3LF,32) 38550002 DSGEN (C3LG,32) 38600002 DSGEN (C3LH,32) 38650002 DSGEN (C3LJ,32) 38700002 DSGEN (C3LK,32) 38750002 DSGEN (C3LL,32) 38800002 DSGEN (C4LB,32) 38850002 DSGEN (C4LC,32) 38900002 DSGEN (C4LD,32) 38950002 DSGEN (C4LE,32) 39000002 DSGEN (C4LF,32) 39050002 DSGEN (C4LG,32) 39100002 DSGEN (C4LH,32) 39150002 DSGEN (C4LJ,32) 39200002 DSGEN (C4LK,32) 39250002 DSGEN (C4LL,32) 39300002 DSGEN (C5LB,32) 39350002 DSGEN (C5LC,32) 39400002 DSGEN (C5LD,32) 39450002 DSGEN (C5LE,32) 39500002 DSGEN (C5LF,32) 39550002 DSGEN (C5LG,32) 39600002 DSGEN (C5LH,32) 39650002 DSGEN (C5LJ,32) 39700002 DSGEN (C5LK,32) 39750002 DSGEN (C5LL,32) 39800002 DSGEN (C6LB,32) 39850002 DSGEN (C6LC,32) 39900002 DSGEN (C6LD,32) 39950002 DSGEN (C6LE,32) 40000002 DSGEN (C6LF,32) 40050002 DSGEN (C6LG,32) 40100002 DSGEN (C6LH,32) 40150002 DSGEN (C6LJ,32) 40200002 DSGEN (C6LK,32) 40250002 DSGEN (C6LL,32) 40300002 DSGEN (DARLNGTH,16),(,48) 40350002 DSGEN (SYSSTAT,1,0,7) 40400002 DSGEN (AREADT,1,0,15) 40450002 DSGEN (ERRTYPE,1,0,7) 40500002 DSGEN (RMSACTN,1,0,7) 40550002 DSGEN (RMSINFO,1,0,7) 40600002 DSGEN (WAITSUFF,8),(,8),(MCHFSAR,32),(,32) 40650002 DSGEN (TRNSMOD,32,0,7) 40700002 DSGEN (MCHPDR,1,0,7,0,7) 40750002 DSGEN (MCHFSAV,32),(MCHFSEAV,32),(MCHPDARI,32),(MCHTCBCU,32) 40800002 LOGEND EQU *-2 40900002 IFCEF165 CSECT 40950002 *********************************************************************** 41000002 * 41050002 *********************************************************************** 41100002 ENTRYPTR DC A(FORMAT1) 41150002 TABLNAME DC CL8'IFCEF165' 41200002 REG9 DS F 41250002 SAVE DS F 41300002 *** 41350002 * *** SPECIAL ROUTINES AREA *** 41400002 * 41450002 *********************************************************************** 41500002 USING INDEPEND,R2 @YL02021 41502002 ISITVS2 STM R5,R8,XSAVE SAVE REGS @YL02021 41504002 CLI XKEY,H13 IS IT VS2? @YL02021 41506002 BE ISVS2 YES @YL02021 41508002 FIN SR R15,R15 ELIM. LABEL @YL02021 41510002 LM R5,R8,XSAVE @YL02021 41512002 BR R14 @YL02021 41514002 ISVS2 SR R5,R5 @YL02021 41516002 L R5,LINA @YL02021 41518002 ST R5,REG9 @YL02021 41520002 L R6,LABA @YL02021 41522002 ST R6,SAVE @YL02021 41524002 B FIN @YL02021 41526002 NOTVS2 STM R5,R8,XSAVE @YL02021 41528002 L R5,LINC @YL02021 41530002 ST R5,REG9 @YL02021 41532002 B FIN @YL02021 41534002 LINA DC A(LINE1-4) @YL02021 41536002 LABA DC A(LAB1-1) @YL02021 41538002 LINC DC A(VS2DUMP-4) @YL02021 41540002 ROUT0 DS 0C 41550002 STM R3,R4,SAVER34 SAVE PRINT BFR PTR- LOG START 41600002 BR R14 RETURN 41650002 ROUT1 DS 0C 41700002 STM R3,R8,XSAVE SAVE ROUTINE REGISTERS 41750002 L R3,SAVER3 LOAD ADR OF PRINT BFR 41800002 L R7,L0(R4) LOAD LOG DATA 41850002 LA R3,L3(R3) INCREMENT PRINT BFR POINTER 41900002 LA R8,L4 LOAD BYTE COUNT 41950002 ROUT1A DS 0C 42000002 LA R5,L6 LOAD BIT COUNT 42050002 ROUT1B DS 0C 42100002 SR R6,R6 CLEAR REGISTER R6 42150002 MVI L0(R3),CB ASSUME 0 - SET BFR TO BLANK 42200002 SLDL R6,L1 SHIFT DATA BIT INTO R6 42250002 LTR R6,R6 TEST VALUE IN R6 42300002 BZ ROUT1C BRANCH IF R6 ZERO 42350002 MVI L0(R3),CS MOVE SPLAT TO PRINT BFR 42400002 ROUT1C DS 0C 42450002 LA R3,L3(R3) INCREMENT PRINT BFR POINTER 42500002 BCT R5,ROUT1B BRANCH ON BIT COUNT 42550002 SLL R7,L2 BYPASS BITS 6 AND 7 42600002 BCT R8,ROUT1A BRANCH ON BYTE COUNT 42650002 LM R3,R8,XSAVE RESTORE REGISTERS 42700002 SKIPPER BR R14 RETURN 42750002 USING INDEPEND,R2 42751002 *********************************************************************** 42752002 * THIS ROUTINE CHECKS FOR 168-MP SYSTEM 42753002 *********************************************************************** 42754002 MPBIT EQU X'04' 42755002 TESTMOD STM R6,R7,XSAVE SAVE REGS 42756002 CLC XCPUMOD(L2),C165 Q/ IS THIS A 165 42757002 BE UPEXIT YES- DO C0 FOR UP 42758002 BR R14 YES-DO C0 FOR MP 42759002 UPEXIT LA R6,UPLINE-L4 SET 42760002 LA R7,UPLAB-L1 TO 42761002 ST R6,REG9 DO 42762002 ST R7,SAVE UP PANEL 42763002 LM R6,R7,XSAVE RESTORE REGS 42764002 BR R14 RETURN 42765002 *********************************************************************** 42766002 * THIS ROUTINE BRANCHES TO M/F FRAME C1 * 42767002 *********************************************************************** 42768002 C1BR STM R6,R7,XSAVE SAVE REGS 42769002 LA R6,C1LINE-L4 SET 42770002 LA R7,C1LAB-L1 TO 42771002 ST R6,REG9 BRANCH 42772002 ST R7,SAVE TO C1 42773002 LM R6,R7,XSAVE RESTORE REGS 42774002 SR R15,R15 CLEAR R15 42775002 BR 14 RETURN 42776002 C165 DC X'0165' 42777002 SPACE 3 @XA20540 42777601 *********************************************************************** 42778201 ** THIS ROUTINE CHECKS FOR 370-EXTENSION AND VM ACTIVE ** 42778801 ** AND DECIDES WHETHER TO PRINT CONTROL REG 6 OR NOT ** 42779401 *********************************************************************** 42780001 CKEXTVMA ST R5,XSAVE SAVE WORK REG @XA20540 42780601 TM 1(R4),X'30' ARE 370-EXT OR VMA BITS ON? @XA20540 42781201 BNZR R14 YES...CARRY ON @XA20540 42781801 SR R5,R5 NO...CLEAR REG 5 @XA20540 42782401 LA R5,NOEV-4 GET @ NEXT LIST @XA20540 42783001 ST R5,REG9 SKIP LIST FOR CONTROL REG 6 @XA20540 42783601 L R5,MFC5ADR GET @ NEXT LABEL @XA20540 42784201 ST R5,SAVE SKIP REG. 6 LABELS @XA20540 42784801 SR R15,R15 DON'T PRINT THIS LINE @XA20540 42785401 L R5,XSAVE RESTORE WORK REG @XA20540 42786001 BR R14 RETURN @XA20540 42786601 MFC5ADR DC A(MFC5-1) @XA20540 42787201 SPACE 3 @XA20540 42787801 *********************************************************************** 42788401 ** THIS ROUTINE CHOOSES BETWEEN TWO LABELS FOR CONTROL REG ** 42789001 ** 0, BIT 3...EITHER '3' OR 'LAP' DEPENDENT ON THE SETTING OF THE ** 42789601 ** 370-EXT AND VMA BITS ** 42790201 *********************************************************************** 42790801 CKLAP1 TM 1(R4),X'30' ARE 370-EXT OR VMA BITS ON? @XA20540 42791401 BZR R14 NO...RETURN @XA20540 42792001 CKLAPX SR R15,R15 DON'T PRINT THIS LABEL @XA20540 42792601 BR R14 RETURN @XA20540 42793201 CKLAP2 TM 1(R4),X'30' ARE 370-EXT OR VMA BITS ON? @XA20540 42793801 BZ CKLAPX NO...WRONG LABEL @XA20540 42794401 BR R14 YES...RETURN @XA20540 42795001 SPACE 3 @XA20540 42795601 ************************************************************** @XA21819 42796201 * THIS ROUTINE WILL SET THE PROPER DUMP SIZE TO DUMP THE WHOLE @XA21819 42799201 * RECORD BASED ON THE SIZE WHICH PRECEDES THE START OF THE @XA21819 42802201 * MCH RECORD. @XA21819 42805201 ************************************************************** @XA21819 42808201 DUMPSET STM R4,R8,XSAVE SAVE WORK REGS @XA21819 42811201 S R4,TWO BACK UP PTR TO REC LEN @XA21819 42814201 MVC WORKSIZE(2),0(R4) GET RECORD LENGTH @XA21819 42817201 SR R5,R5 ZERO REG @XA21819 42820201 LH R5,WORKSIZE R5 = RECORD LENGTH @XA21819 42823201 SH R5,HTWO GET ACTUAL RECD LENGTH @XA21819 42826201 BC 3,DUMPSET1 NO, LENGTH > ZERO @XA21819 42829201 MVC DUMPSIZE(2),DUMPAMT YES, USE DEFAULT SIZE @XA21819 42832201 B DUMPDONE EXIT @XA21819 42835201 DUMPSET1 STH R5,WORKSIZE STORE FOR MOVE TO AVOID @XA21819 42838201 MVC DUMPSIZE(2),WORKSIZE BOUNDARY PROBLEMS @XA21819 42841201 DUMPDONE SR R15,R15 DO NOT PRINT @XA21819 42844201 LM R4,R8,XSAVE RESTORE WORK REGS @XA21819 42847201 BR R14 EXIT @XA21819 42850201 TWO DC F'00000002' @XA21819 42853201 HTWO DC H'0002' @XA21819 42856201 WORKSIZE DC H'0000' WORK AREA @XA21819 42859201 DUMPAMT DC H'1754' DUMPSIZE IF LEN IS BAD @XA21819 42862201 ************************************************************** @XA21819 42865201 R0 EQU 0 42868201 R1 EQU 1 42871201 R2 EQU 2 42900002 R3 EQU 3 42950002 R4 EQU 4 43000002 R5 EQU 5 43050002 R6 EQU 6 43100002 R7 EQU 7 43150002 R8 EQU 8 43200002 R9 EQU 9 43250002 R10 EQU 10 43300002 R11 EQU 11 43350002 R12 EQU 12 43400002 R13 EQU 13 43450002 R14 EQU 14 43500002 R15 EQU 15 43550002 CC1 EQU 1 43600002 CC2 EQU 2 43650002 CC4 EQU 4 43700002 CC7 EQU 7 43750002 CC8 EQU 8 43800002 L0 EQU 0 43850002 L1 EQU 1 43900002 L2 EQU 2 43950002 L3 EQU 3 44000002 L4 EQU 4 44050002 L5 EQU 5 44100002 L6 EQU 6 44150002 L7 EQU 7 44200002 L8 EQU 8 44250002 L9 EQU 9 44300002 L10 EQU 10 44350002 H13 EQU X'13' @YL02021 44370002 CB EQU C' ' 44400002 CS EQU C'*' 44450002 XWORK DS D 44500002 XSAVE DS 6F 44550002 SAVER34 DS 2F 44600002 SAVER3 EQU SAVER34 44650002 SAVER4 EQU SAVER34+4 44700002 *********************************************************************** 44750002 * 44800002 FORMAT1 DC F'0' 44850002 FORMAT2 DC F'0' 44900002 LABELPTR DC A(LABLAREA) 44950002 DISP DC FL2'0' 45000002 *********************************************************************** 45050002 MFC0 LINE (1,1),(1,1),SKIP=3 45100002 LABEL ' ' 45150002 LINE (1,1),(19,1),SKIP=1 45200002 ROUTINE C0LB,ROUT0 45250002 ROUTINE XCPUMOD,TESTMOD 45270002 LABEL 'M/F FRAME C0 MP CONTROL REGS' 45300002 LINE ,(12,1) 45350002 LABEL 'PREFIX HOLD REGISTER MP OSC ST X INTRLEAVE RX45400002 S MP' 45450002 LINE ,(3,1) 45500002 LABEL 'P1 8 9 10 11 12 13 14 15 P2 16 17 18 19 LTH ON DTCON SX45550002 4 EN P V' 45600002 LINE ,(1,1) 45650002 ROUTINE C0LB,ROUT1 45700002 LABEL 'LB' 45750002 LINE ,(3,1) 45800002 LABEL 'CONF 0/FL REG 0 / FLIG ADDR REG 1 /CONF 4/FL REG 8 / FC45850002 LTG ADDR REG 9' 45900002 LINE ,(4,1) 45950002 LABEL '0 1 2 3 L R 0 1 2 3 L R 0 1 2 3 L R 0 C46000002 1 2 3 L R' 46050002 LINE ,(1,1) 46100002 ROUTINE C0LC,ROUT1 46150002 LABEL 'LC' 46200002 LINE ,(3,1) 46250002 LABEL 'CONF 1/FL REG 2 / FLTG ADDR REG 3 /CONF 5/FL REG 10 / FC46300002 LTG ADDR REG 11' 46350002 LINE ,(4,1) 46400002 LABEL '0 1 2 3 L R 0 1 2 3 L R 0 1 2 3 L R 0 C46450002 1 2 3 L R' 46500002 LINE ,(1,1) 46550002 ROUTINE C0LD,ROUT1 46600002 LABEL 'LD' 46650002 LINE ,(3,1) 46700002 LABEL 'CONF 2/FL REG 4 / FLTG ADDR REG 5 /CONF 6/FL REG 12 / FC46750002 LTG ADDR REG 13' 46800002 LINE ,(4,1) 46850002 LABEL '0 1 2 3 L R 0 1 2 3 L R 0 1 2 3 L R 0 C46900002 1 2 3 L R' 46950002 LINE ,(1,1) 47000002 ROUTINE C0LE,ROUT1 47050002 LABEL 'LE' 47100002 LINE ,(3,1) 47150002 LABEL 'CONF 3/FL REG 6 / FLTG ADDR REG 7 /CONF 7/FL REG 14 / FC47156002 LTG ADDR REG 15' 47162002 LINE ,(4,1) 47168002 LABEL '0 1 2 3 L R 0 1 2 3 L R 0 1 2 3 L R 0 C47174002 1 2 3 L R' 47180002 LINE ,(1,1) 47186002 ROUTINE C0LF,ROUT1 47192002 LABEL 'LF' 47200002 LINE ,(3,1) 47250002 LABEL 'LOC CHAN INT REG STOR SZE LOCAL' 47258002 LINE ,(4,1) 47266002 LABEL '0 1 2 3 4 0 1 2 3 4' 47274002 LINE ,(1,1) 47282002 ROUTINE C0LG,ROUT1 47290002 LABEL 'LG' 47300002 LINE ,(3,1) 47350002 LABEL 'REM CHAN INT REG CPU STOR SZE REMTE C47400002 CONTSTDUAL' 47420002 LINE ,(4,1) 47450002 LABEL '0 1 2 3 4 ADR 0 1 2 3 C47500002 ACTLTHENT' 47520002 LINE ,(1,1),SKIP=3 47550002 ROUTINE C0LH,ROUT1 47600002 LABEL 'LH' 47650002 LINE ,(1,1),SKIP=1 47700002 LABEL 'LJ' 48100002 LINE ,(3,1) 48150002 LABEL 'STOR PROT CHECKS PRFX' 48200002 LINE ,(3,1) 48250002 LABEL ' IK OK R C CHK' 48300002 LINE ,(1,1),SKIP=3 48350002 ROUTINE C0LK,ROUT1 48400002 LABEL 'LK' 48450002 LINE ,(1,1),SKIP=3 48500002 LABEL 'LL' 48800002 LINE ,(19,1),SKIP=1 48850002 ROUTINE XCPUMOD,C1BR 48850802 LABEL ' ' 48851602 UPLINE LINE (1,1),(19,1),SKIP=1 48852402 UPLAB LABEL 'M/F FRAME C0 STORAGE CONFIGURATION' 48853202 LINE ,(57,1) 48854002 LABEL 'INTRLEAVE' 48854802 LINE ,(58,1) 48855602 LABEL 'S 4' 48856402 LINE ,(1,1) 48857202 ROUTINE C0LB,ROUT1 48858002 LABEL 'LB' 48858802 LINE ,(6,1) 48859602 LABEL 'CONFIG REG 0' 48860402 LINE ,(4,1) 48861202 LABEL '0 1 2 3 E' 48862002 LINE ,(1,1) 48862802 ROUTINE C0LC,ROUT1 48863602 LABEL 'LC' 48864402 LINE ,(6,1) 48865202 LABEL 'CONFIG REG 1' 48866002 LINE ,(4,1) 48866802 LABEL '0 1 2 3 E' 48867602 LINE ,(1,1) 48868402 ROUTINE C0LD,ROUT1 48869202 LABEL 'LD' 48870002 LINE ,(6,1) 48870802 LABEL 'CONFIG REG 2' 48871602 LINE ,(4,1) 48872402 LABEL '0 1 2 3 E' 48873202 LINE ,(1,1),SKIP=3 48874002 ROUTINE C0LE,ROUT1 48874802 LABEL 'LE' 48875602 LINE ,(1,1),SKIP=1 48876402 LABEL 'LF' 48877202 LINE ,(42,1) 48878002 LABEL 'STOR SIZE' 48878802 LINE ,(43,1) 48879602 LABEL ' 2 3' 48880402 LINE ,(1,1),SKIP=3 48881202 ROUTINE C0LG,ROUT1 48882002 LABEL 'LG' 48882802 LINE ,(1,1),SKIP=3 48883602 LABEL 'LH' 48884402 LINE ,(1,1),SKIP=1 48885202 LABEL 'LJ' 48886002 LINE ,(5,1) 48886802 LABEL 'STOR PROT CHECKS' 48887602 LINE ,(3,1) 48888402 LABEL 'AC IK IB OK R/C' 48889202 LINE ,(1,1),SKIP=3 48890002 ROUTINE C0LK,ROUT1 48890802 LABEL 'LK' 48891602 LINE ,(1,1),SKIP=3 48892402 LABEL 'LL' 48893202 LINE ,(19,1),SKIP=1 48894002 LABEL ' ' 48894802 C1LINE LINE ,(19,1),SKIP=1 48895602 C1LAB LABEL 'M/F FRAME C1 SEGMENT TABLE ORIGIN STACK' 48900002 LINE (1,1),(26,1),SKIP=1 48950002 MFC1 LABEL 'STOK BFR REG CR 0 PSW' 49000002 LINE ,(7,1) 49050002 LABEL '8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 8 C49100002 11 P' 49150002 LINE ,(1,1),SKIP=3 49200002 ROUTINE C1LB,ROUT1 49250002 LABEL 'LB' 49300002 LINE ,(1,1),SKIP=1 49350002 LABEL 'LC' 49650002 LINE ,(6,1) 49700002 LABEL ' PSW/CR CMP BLK XLAT CTL XC49750002 L' 49800002 LINE ,(6,1) 49850002 LABEL ' FUL MOD 0 1 BX49900002 SY' 49950002 LINE ,(1,1) 50000002 ROUTINE C1LD,ROUT1 50050002 LABEL 'LD' 50100002 LINE ,(5,1) 50150002 LABEL 'STK RP ST P=5 DLAT INV DAT DLAT REQUESTS' 50200002 LINE ,(6,1) 50300002 LABEL 'ON LH VD TGR RSSRCH DLAT ENT 0 1 XLT K' 50350002 LINE ,(1,1) 50450002 ROUTINE C1LE,ROUT1 50500002 LABEL 'LE' 50550002 LINE ,(52,1) 50600002 LABEL 'XLATOR INGATES' 50650002 LINE ,(53,1) 50700002 LABEL 'SAL STE PTE' 50750002 LINE ,(1,1) 50800002 ROUTINE C1LF,ROUT1 50850002 LABEL 'LF' 50900002 LINE ,(54,1) 50950002 LABEL 'TAR INGATES' 51000002 LINE ,(54,1) 51050002 LABEL 'LAR TL RA' 51100002 LINE ,(1,1) 51150002 ROUTINE C1LG,ROUT1 51200002 LABEL 'LG' 51250002 LINE ,(53,1) 51300002 LABEL 'DLAT CTRLS' 51350002 LINE ,(53,1) 51400002 LABEL 'SSK W R' 51450002 LINE ,(1,1) 51500002 ROUTINE C1LH,ROUT1 51550002 LABEL 'LH' 51600002 LINE ,(53,1) 51650002 LABEL 'EXCEPTIONS' 51700002 LINE ,(53,1) 51750002 LABEL 'SEG PG SPL' 51800002 LINE ,(1,1) 51850002 ROUTINE C1LJ,ROUT1 51900002 LABEL 'LJ' 51950002 LINE ,(24,1) 52000002 LABEL 'STOK CHECKS TIR TAL HS CKS' 52050002 LINE ,(23,1) 52100002 LABEL 'BFR SP ID PTY 8 16 24' 52150002 LINE ,(1,1) 52200002 ROUTINE C1LK,ROUT1 52250002 LABEL 'LK' 52300002 LINE ,(24,1) 52350002 LABEL 'DLAT CHECKS TAL FS CKS' 52400002 LINE ,(24,1) 52450002 LABEL 'MC C IK OK RA 8 16 24' 52500002 LINE ,(1,1),SKIP=3 52550002 ROUTINE C1LL,ROUT1 52600002 LABEL 'LL' 52650002 LINE ,(19,1),SKIP=1 52700002 MFC3 LABEL 'M/F FRAME C3 CONTROL REGISTERS' 52750002 LINE ,(24,1) 52800002 LABEL 'CONTROL REGISTER 0 BITS 0-15' 52850002 LINE ,(13,1) 52900002 ROUTINE A4LJ,CKLAP1 @XA20540 52920001 LABEL 'P BM M 2 3 4 5 6 7 P PG SZ/PE/SG SZ 13 14 15' 52950002 LINE , @XA20540 52960001 ROUTINE A4LJ,CKLAP2 @XA20540 52970001 LABEL 'P BM M 2 LAP 4 5 6 7 P PG SZ/PE/SG SZ 13 14 15' 52980001 LINE ,(1,1) 53000002 ROUTINE C3LB,ROUT1 53050002 LABEL 'LB' 53100002 LINE ,(24,1) 53150002 LABEL 'CONTROL REGISTER 0 BITS 16-31' 53200002 LINE ,(13,1) 53250002 LABEL 'P 16 17 18 19 CC CT 22 23 P IT IK ES 27 28 29 30 31' 53300002 LINE ,(1,1) 53350002 ROUTINE C3LC,ROUT1 53400002 LABEL 'LC' 53450002 LINE ,(24,1) 53500002 LABEL 'CONTROL REGISTER 1 BITS 0-15' 53550002 LINE ,(13,1) 53600002 LABEL 'P 0 SGMNT TABLE LGTH 7 P SGMT TAB ORG AD BITS 0-7' 53650002 LINE ,(1,1) 53700002 ROUTINE C3LD,ROUT1 53750002 LABEL 'LD' 53800002 LINE ,(24,1) 53850002 LABEL 'CONTROL REGISTER 1 BITS 16-31' 53900002 LINE ,(13,1) 53950002 LABEL 'P SGMNT TABLE ORG ADDR BITS 8-17 26 27 28 29 30 31' 54000002 LINE ,(1,1) 54050002 ROUTINE C3LE,ROUT1 54100002 LABEL 'LE' 54150002 LINE ,(24,1) 54200002 LABEL 'CONTROL REGISTER 2 BITS 0-15' 54250002 LINE ,(13,1) 54300002 LABEL 'P 0 1 2 CHANNEL 6 7 P CHANNEL 12 13 14 15' 54350002 LINE ,(1,1) 54400002 ROUTINE C3LF,ROUT1 54450002 LABEL 'LF' 54500002 LINE ,(24,1) 54550002 LABEL 'CONTROL REGISTER 2 BITS 16-31' 54600002 LINE ,(13,1) 54650002 LABEL 'P 16 17 18 19 20 21 22 23 P 24 25 26 27 28 29 30 31' 54700002 LINE ,(1,1),SKIP=3 54750002 ROUTINE C3LG,ROUT1 54800002 LABEL 'LG' 54850002 LINE ,(1,1),SKIP=3 54900002 LABEL 'LH' 54950002 LINE ,(1,1),SKIP=3 55000002 LABEL 'LJ' 55050002 LINE ,(1,1),SKIP=3 55100002 LABEL 'LK' 55150002 LINE ,(1,1),SKIP=3 55200002 LABEL 'LL' 55250002 LINE ,(19,1),SKIP=1 @XA20540 55251001 ROUTINE A4LJ,CKEXTVMA @XA20540 55252001 MFC4 LABEL 'M/F FRAME C4 CONTROL REGISTERS' @XA20540 55253001 LINE ,(1,1),SKIP=3 @XA20540 55254001 LABEL 'LB' @XA20540 55255001 LINE ,,SKIP=3 @XA20540 55256001 LABEL 'LC' @XA20540 55257001 LINE ,,SKIP=3 @XA20540 55258001 LABEL 'LD' @XA20540 55259001 LINE ,,SKIP=1 @XA20540 55260001 LABEL 'LE' @XA20540 55261001 LINE ,(24,1) @XA20540 55262001 LABEL 'CONTROL REGISTER 6 BITS 0-15' @XA20540 55263001 LINE ,(13,1) @XA20540 55264001 LABEL ' VM POINTER LIST ADDRESS' 55265001 LINE ,(13,1) @XA20540 55266001 LABEL 'P 0 1 2 3 4 5 6 7 P 8 9 10 11 12 13 14 15' 55267001 LINE ,(1,1) @XA20540 55268001 ROUTINE C4LF,ROUT1 @XA20540 55269001 LABEL 'LF' @XA20540 55270001 LINE ,(24,1) @XA20540 55271001 LABEL 'CONTROL REGISTER 6 BITS 16-31' @XA20540 55272001 LINE ,(13,1) @XA20540 55273001 LABEL ' VM POINTER LIST ADDRESS' @XA20540 55274001 LINE ,(13,1) @XA20540 55275001 LABEL 'P 16 17 18 19 20 21 22 23 P 24 25 26 27 28 29 30 31' 55276001 LINE ,(1,1),SKIP=3 @XA20540 55277001 ROUTINE C4LG,ROUT1 @XA20540 55278001 LABEL 'LG' @XA20540 55279001 LINE ,(1,1),SKIP=3 @XA20540 55280001 LABEL 'LH' @XA20540 55281001 LINE ,(1,1),SKIP=3 @XA20540 55282001 LABEL 'LJ' @XA20540 55283001 LINE ,,SKIP=3 @XA20540 55284001 LABEL 'LK' @XA20540 55285001 LINE ,,SKIP=3 @XA20540 55286001 LABEL 'LL' @XA20540 55287001 NOEV LINE ,(19,1),SKIP=1 @XA20540 55300001 MFC5 LABEL 'M/F FRAME C5 CONTROL REGISTERS' 55350002 LINE ,(24,1) 55400002 LABEL 'CONTROL REGISTER 8 BITS 0-15' 55450002 LINE ,(13,1) 55500002 LABEL 'P 0 1 2 3 4 5 6 7 P 8 9 10 11 12 13 14 15' 55550002 LINE ,(1,1) 55600002 ROUTINE C5LB,ROUT1 55650002 LABEL 'LB' 55700002 LINE ,(24,1) 55750002 LABEL 'CONTROL REGISTER 8 BITS 16-31' 55800002 LINE ,(13,1) 55850002 LABEL 'P 16 17 18 19 20 21 22 23 P 24 25 26 27 28 29 30 31' 55900002 LINE ,(1,1) 55950002 ROUTINE C5LC,ROUT1 56000002 LABEL 'LC' 56050002 LINE ,(24,1) 56100002 LABEL 'CONTROL REGISTER 9 BITS 0-15' 56150002 LINE ,(13,1) 56200002 LABEL 'P SB FTH SA GA 4 5 6 7 P 8 9 10 11 12 13 14 15' 56250002 LINE ,(1,1) 56300002 ROUTINE C5LD,ROUT1 56350002 LABEL 'LD' 56400002 LINE ,(24,1) 56450002 LABEL 'CONTROL REGISTER 9 BITS 16-31' 56500002 LINE ,(13,1) 56550002 LABEL 'P 0 1 2 3 4 5 6 7 P 8 9 10 11 12 13 14 15' 56600002 LINE ,(1,1) 56650002 ROUTINE C5LE,ROUT1 56700002 LABEL 'LE' 56750002 LINE ,(24,1) 56800002 LABEL 'CONTROL REGISTER 10 BITS 0-15' 56850002 LINE ,(13,1) 56900002 LABEL 'P 0 1 2 3 4 5 6 7 P 8 9 10 11 12 13 14 15' 56950002 LINE ,(1,1) 57000002 ROUTINE C5LF,ROUT1 57050002 LABEL 'LF' 57100002 LINE ,(24,1) 57150002 LABEL 'CONTROL REGISTER 10 BITS 16-31' 57200002 LINE ,(13,1) 57250002 LABEL 'P 16 17 18 19 20 21 22 23 P 24 25 26 27 28 29 30 31' 57300002 LINE ,(1,1) 57350002 ROUTINE C5LG,ROUT1 57400002 LABEL 'LG' 57450002 LINE ,(24,1) 57500002 LABEL 'CONTROL REGISTER 11 BITS 0-15' 57550002 LINE ,(13,1) 57600002 LABEL 'P 0 1 2 3 4 5 6 7 P 8 9 10 11 12 13 14 15' 57650002 LINE ,(1,1) 57700002 ROUTINE C5LH,ROUT1 57750002 LABEL 'LH' 57800002 LINE ,(24,1) 57850002 LABEL 'CONTROL REGISTER 11 BITS 16-31' 57900002 LINE ,(13,1) 57950002 LABEL 'P 16 17 18 19 20 21 22 23 P 24 25 26 27 28 29 30 31' 58000002 LINE ,(1,1),SKIP=3 58050002 ROUTINE C5LJ,ROUT1 58100002 LABEL 'LJ' 58150002 LINE ,(1,1),SKIP=3 58200002 LABEL 'LK' 58250002 LINE ,(1,1),SKIP=3 58300002 LABEL 'LL' 58350002 LINE ,(19,1),SKIP=1 58400002 MFC6 LABEL 'M/F FRAME C6 CONTROL REGISTERS' 58450002 LINE ,(1,1),SKIP=3 58500002 LABEL 'LB' 58550002 LINE ,(1,1),SKIP=3 58600002 LABEL 'LC' 58650002 LINE ,(1,1),SKIP=3 58700002 LABEL 'LD' 58750002 LINE ,(1,1),SKIP=1 58800002 LABEL 'LE' 58850002 LINE ,(24,1),SKIP=1 58900002 LABEL 'CONTROL REGISTER 14 BITS 0-15' 58950002 LINE ,(13,1), 59000002 LABEL 'P HS SM ELM 3 RMR 5 DRM 7 P AM AFL 10 11 12 13 14 15' 59050002 LINE ,(1,1) 59100002 ROUTINE C6LF,ROUT1 59150002 LABEL 'LF' 59200002 LINE ,(24,1) 59250002 LABEL 'CONTROL REGISTER 14 BITS 16-31' 59300002 LINE ,(13,1) 59350002 LABEL 'P 16 17 18 19 20 21 22 23 P 24 25 26 27 28 29 30 31' 59400002 LINE ,(1,1) 59450002 ROUTINE C6LG,ROUT1 59500002 LABEL 'LG' 59550002 LINE ,(24,1) 59600002 LABEL 'CONTROL REGISTER 15 BITS 0-15' 59650002 LINE ,(13,1) 59700002 LABEL 'P 0 1 2 3 4 5 6 7 P 8 9 10 11 12 13 14 15' 59750002 LINE ,(1,1) 59800002 ROUTINE C6LH,ROUT1 59850002 LABEL 'LH' 59900002 LINE ,(24,1) 59950002 LABEL 'CONTROL REGISTER 15 BITS 16-31' 60000002 LINE ,(13,1) 60050002 LABEL 'P 16 17 18 19 20 21 22 23 P 24 25 26 27 28 29 30 31' 60100002 LINE ,(1,1),SKIP=3 60150002 ROUTINE C6LJ,ROUT1 60200002 LABEL 'LJ' 60250002 LINE ,(1,1),SKIP=3 60300002 LABEL 'LK' 60350002 LINE ,(1,1),SKIP=3 60400002 LABEL 'LL' 60450002 LINE ,,SKIP=1 @YL02021 60457002 ROUTINE XKEY,ISITVS2 @YL02021 60464002 LABEL '' @YL02021 60471002 LINE ,,SKIP=1 @YL02021 60478002 ROUTINE B6LG,SKIPPER @YL02021 60485002 LABEL '' @YL02021 60492002 LINE ,(19,1),SKIP=2 60500002 LABEL 'MACHINE CHECK STATUS FIELD' 60550002 LINE (41,),(1,),SKIP=1 60600002 HEX DARLNGTH,0,2B 60650002 LABEL 'MCSTATD FIELD LENGTH' 60700002 LINE ,(5,) 60750002 LABEL '--- SYSTEM STATUS ---' 60800002 LINE (35,35),(1,40) 60850002 BIN SYSSTAT0 60900002 BIN SYSSTAT1 60950002 LABEL 'HARDWARE RECOVERY','SOFTWARE RECOVERY' 61000002 LINE 61050002 BIN SYSSTAT2 61100002 BIN SYSSTAT3 61150002 LABEL 'TASK ABORTED','TASK SET NON-DISPATCHABLE' 61200002 LINE 61250002 BIN SYSSTAT4 61300002 BIN SYSSTAT5 61350002 LABEL 'OPERATING SYSTEM TERMINATION','QUIET MODE IN EFFECT' 61400002 LINE ,(5,) 61450002 LABEL '--- DAMAGE AREA ---' 61500002 LINE ,(1,40) 61550002 BIN AREADT0 61600002 BIN AREADT1 61650002 LABEL 'MAIN STORAGE','BUFFER' 61700002 LINE 61750002 BIN AREADT2 61800002 BIN AREADT3 61850002 LABEL 'CONTROL STORAGE','INTERVAL TIMER' 61900002 LINE 61950002 BIN AREADT4 62000002 BIN AREADT5 62050002 LABEL 'PROCESSOR','CHANNEL ERROR' 62100002 LINE 62150002 BIN AREADT6 62200002 BIN AREADT7 62250002 LABEL 'TOD CLOCK','SYSTEM DAMAGE' 62300002 LINE ,(5,) 62350002 LABEL '--- ERROR TYPE ---' 62400002 LINE ,(1,40) 62450002 BIN ERRTYPE0 62500002 BIN ERRTYPE1 62550002 LABEL 'INTERMITTENT','SOLID' 62600002 LINE 62650002 BIN ERRTYPE2 62700002 BIN ERRTYPE3 62750002 LABEL 'DATA','RESERVED' 62800002 LINE 62850002 BIN ERRTYPE4 62900002 BIN ERRTYPE5 62950002 LABEL 'RESERVED','PROTECT' 63000002 LINE ,(5,) 63050002 LABEL '--- RMS ACTION DATA ---' 63100002 LINE ,(1,40) 63150002 BIN RMSACTN0 63200002 BIN RMSACTN1 63250002 LABEL 'LOOP TIME OUT','REPAIR' 63300002 LINE 63350002 BIN RMSACTN2 63400002 BIN RMSACTN3 63450002 LABEL 'STORAGE RECONFIGURE','BUFFER RECONFIGURE' 63500002 LINE ,(5,) 63550002 LABEL '--- RMS INFORMATION STATUS ---' 63600002 LINE ,(1,40) 63650002 BIN RMSINFO0 63700002 BIN RMSINFO1 63750002 LABEL 'RESERVED','INVALID MCI CODE' 63800002 LINE 63850002 BIN RMSINFO2 63900002 BIN RMSINFO3 63950002 LABEL 'INVALID FAILING STORAGE ADDRESS','PROGRAM CHECK IN MCH' 64000002 LINE (15,),(5,),SKIP=1 64050002 LABEL '--- HISTORY OF TRANSIENT MODULES ---' 64350002 LINE (1,15) 64400002 HEX TRNSMOD0,1,4B 64450002 HEX TRNSMOD1,1,4B 64500002 HEX TRNSMOD2,1,4B 64550002 HEX TRNSMOD3,1,4B 64600002 LABEL '' 64650002 LINE ,,SKIP=2 64700002 HEX TRNSMOD4,1,4B 64750002 HEX TRNSMOD5,1,4B 64800002 HEX TRNSMOD6,1,4B 64850002 HEX TRNSMOD7,1,4B 64900002 LABEL '' 64950002 LINE ,(5,),SKIP=1 65000002 LABEL '--- PDAR ACTION ---' 65050002 LINE (35,35),(1,40) 65100002 BIN MCHPDR00 65150002 BIN MCHPDR01 65200002 LABEL 'TERMINATION OF CURRENT TASK','RETRY POSSIBLE' 65250002 LINE 65300002 BIN MCHPDR02 65350002 BIN MCHPDR03 65400002 LABEL 'BYPASS(AFFECTED TASK) POSSIBLE','REPAIR UNSUCCESSFUL' 65450002 LINE 65500002 BIN MCHPDR04 65550002 BIN MCHPDR05 65600002 LABEL 'INDETERMINATE INSTRUCTION COUNTER','RESERVED' 65650002 LINE ,(5,) 65700002 LABEL '--- FAILURE TYPE ---' 65750002 LINE ,(1,40) 65800002 BIN MCHPDR10 65850002 BIN MCHPDR11 65900002 LABEL 'SOLID STORAGE DATA ERROR','INTERMITTENT STOR. DATA ERR' 65950002 LINE 66000002 BIN MCHPDR12 66050002 BIN MCHPDR13 66100002 LABEL 'SOLID SPF KEY ERROR','INTERMITTENT SPF KEY ERROR' 66150002 LINE ,(5,) 66200002 LABEL '--- OPERATING SYSTEM STATUS ---' 66250002 LINE ,(1,40) 66300002 BIN MCHPDR20 66350002 BIN MCHPDR21 66400002 LABEL 'WAIT PSEUDO TASK','PAGE SUPERVISOR TASK' 66450002 LINE 66500002 BIN MCHPDR22 66550002 BIN MCHPDR23 66600002 LABEL 'MASTER SCHEDULER TASK','SYSTEM TASK' 66650002 LINE 66700002 BIN MCHPDR24 66750002 BIN MCHPDR25 66800002 LABEL 'PROBLEM PROGRAM TASK','CURRENT PSW DISABLED FOR I/O' 66850002 LINE ,(5,) 66900002 LABEL '--- LOCATION OF FAILURE ---' 66950002 LINE ,(1,40) 67000002 BIN MCHPDR30 67050002 BIN MCHPDR31 67100002 LABEL 'NUCLEUS','SQA AREA' 67150002 LINE 67200002 BIN MCHPDR32 67250002 BIN MCHPDR33 67300002 LABEL 'LSQA AREA','PQA' 67350002 LINE 67400002 BIN MCHPDR34 67450002 BIN MCHPDR35 67500002 LABEL 'PAGEABLE AREA','FIXED PAGE AREA' 67550002 LINE 67600002 BIN MCHPDR36 67650002 BIN MCHPDR37 67700002 LABEL 'V=R ADDRESS AREA','CRITICAL AREA' 67750002 LINE ,(5,) 67800002 LABEL '--- REQUESTED OPERATOR AWARENESS ---' 67850002 LINE ,(1,40) 67900002 BIN MCHPDR50 67950002 BIN MCHPDR51 68000002 LABEL 'SUPERVISOR DAMAGE MESSAGE','TASK ABNORM TERMINATION MSGC68050002 ' 68100002 LINE 68150002 BIN MCHPDR52 68200002 BIN MCHPDR53 68250002 LABEL 'DAMAGED PAGE NOW UNAVAILABLE MSG','DAMAGED PAGE NOW DELC68300002 ETED MSG' 68350002 LINE 68400002 BIN MCHPDR54 68450002 BIN MCHPDR55 68500002 LABEL 'TASK NON-DISPATCHABLE MESSAGE','SOFTWARE RECOVERY MESSAC68550002 GE' 68600002 LINE ,(5,) 68650002 LABEL '--- FOOTPRINTS ---' 68700002 LINE ,(1,40) 68750002 BIN MCHPDR60 68800002 BIN MCHPDR61 68850002 LABEL 'CHANGE BIT ACTIVE','KEY IN EXTERNAL PAGE TABLE' 68900002 LINE 68950002 BIN MCHPDR62 69000002 BIN MCHPDR63 69050002 LABEL 'PAGE RECURSION','PAGE FIX ACTIVE IN LOW END' 69100002 LINE 69150002 BIN MCHPDR64 69200002 BIN MCHPDR65 69250002 LABEL 'TRANSLATE ERROR','NO PAGE EXISTS' 69300002 LINE 69350002 BIN MCHPDR66 69400002 BIN MCHPDR67 69450002 LABEL 'RELOCATE OFF','LOW END INTERFACE ACTIVE' 69500002 LINE ,(5,) 69650002 LABEL '--- FOOTPRINTS - INTERFACES ---' 69700002 LINE ,(1,40) 69750002 BIN MCHPDR70 69800002 BIN MCHPDR71 69850002 LABEL 'ABTERM INTERFACE ACTIVE','TRANSLATE INTERFACE ACTIVE' 69900002 LINE 69950002 BIN MCHPDR72 70000002 BIN MCHPDR73 70050002 LABEL 'FIND PAGE INTERFACE ACTIVE','PAGE DEQUEUE INTERFACE ACTC70100002 .' 70150002 LINE 70200002 BIN MCHPDR74 70250002 BIN MCHPDR75 70300002 LABEL 'PAGE ENQUEUE INTERFACE ACTIVE', C70350002 'STAT FUNCTION INTERFACE ACT.' 70400002 LINE ,,SKIP=2 70450002 BIN MCHPDR76 70500002 BIN MCHPDR77 70550002 LABEL 'V=R RELEASE INTERFACE ACTIVE','POST INTERFACE ACTIVE' 70600002 LINE (45,1),(1,),SKIP=1 70650002 HEX MCHFSAR,0,4B 70700002 LABEL 'FAILING STORAGE REAL ADDRESS' 70750002 LINE 70800002 HEX MCHFSAV,0,4B 70850002 LABEL 'BEGINNING FAILING STORAGE VIRTUAL ADDRESS' 70900002 LINE 70950002 HEX MCHFSEAV,0,4B 71000002 LABEL 'ENDING FAILING STORAGE VIRTUAL ADDRESS' 71050002 LINE 71100002 HEX MCHPDARI,0,4B 71150002 LABEL 'INSTRUCTION ADDRESS AT FAILURE' 71200002 LINE ,,SKIP=2 71250002 HEX MCHTCBCU,0,4B 71300002 LABEL 'CURRENT TCB POINTER' 71350002 LINE ,,SKIP=1 71500002 LABEL '' 71550002 LINE , @YL02021 71550602 ROUTINE XKEY,NOTVS2 @YL02021 71551202 LABEL '' @YL02021 71551802 LINE1 LINE ,(52,),SKIP=2 @YL02021 71552402 ROUTINE XKEY,SKIPPER @YL02021 71553002 LAB1 LABEL 'MACHINE-CHECK-ERROR INDICATORS' @YL02021 71553602 LINE (5,35),(1,31) @YL02021 71554202 ROUTINE XKEY,SKIPPER @YL02021 71554802 LABEL 'TERMINAL ERROR FLAGS','HARD-MACHINE ERROR FLAGS', X71555402 'INTERMEDIATE ERROR','SOFT-MACHINE-ERROR FLAGS' @YL02021 71556002 LINE (26,31),(1,31),SKIP=1 @YL02021 71556602 BIN (MCETEF0),(MCEMEF0),(MCEIEF0),(MCESEF0) @YL02021 71557202 LABEL 'RESERVED','ASSUMED HD ERR FLG','RESERVED', @YL02021X71557802 'ASSUMED SOFT ERROR ' @YL02021 71558402 LINE , @YL02021 71559002 BIN (MCETEF1),(MCEMEF1),(MCEIEF1),(MCESEF1) @YL02021 71559602 LABEL 'RESERVED','RESERVED','RESERVED','RESERVED' @YL02021 71560202 LINE , @YL02021 71560802 BIN (MCETEF2),(MCEMEF2),(MCEIEF2),(MCESEF2) @YL02021 71561402 LABEL 'THRESHOLD REACHED','RESERVED','RESERVED','RESERVED' 71562001 LINE , @YL02021 71562602 BIN (MCETEF3),(MCEMEF3),(MCEIEF3),(MCESEF3) @YL02021 71563202 LABEL 'SECONDARY ERROR FLAG','SYSTEM DAMAGE FLAG', @XA20540*71563801 'RESERVED','RESERVED' @XA20540 71564101 LINE , @YL02021 71564402 BIN (MCETEF4),(MCEMEF4),(MCEIEF4),(MCESEF4) @YL02021 71565002 LABEL 'CHECK STOP FLAG','REG/PSW INVALID FLAG', @YL02021X71565602 'TOD CLOCK ERROR FLAG','EXT DAMAGE FLAG' @YL02021 71566202 LINE , @YL02021 71566802 BIN (MCETEF5),(MCEMEF5),(MCEIEF5),(MCESEF5) @YL02021 71567402 LABEL 'POWER WARNING FLAG','HARD STOR. ERR. FLAG', @YL02021X71568002 'CLOCK COMP ERR. FLAG','ECC CORR. STOR. ERR. FLG' 71568602 LINE , @YL02021 71569202 BIN (MCETEF6),(MCEMEF6),(MCEIEF6),(MCESEF6) @YL02021 71569802 LABEL 'RESERVED','HARD PROTECT. KEY ERR.', @XA20540*71570401 'CPU TIMER ERR. FLAG','HIR CORR PROC. ERR FG' @YL02021 71571002 LINE ,SKIP=2 @YL02021 71571602 BIN (MCETEF7),(MCEMEF7),(MCEIEF7),(MCESEF7) @YL02021 71572202 LABEL 'INVALID LOGOUT FLAG','INST. PROC. DAMAGE FLAG', X71572802 'INTERVAL TIMER ERR. FLAG','BUFFER ERR. FLAG' @YL02021 71573402 LINE ,(30),SKIP=2 @YL02021 71574002 ROUTINE XKEY,SKIPPER @YL02021 71574602 LABEL 'PROGRAM DAMAGE ASSESSMENT AND REPAIR' @YL02021 71575202 LINE (30,32),(1,35),SKIP=2 @YL02021 71575802 ROUTINE XKEY,SKIPPER @YL02021 71576402 LABEL 'PDAR DATA','STOR. RECONFIG. STATUS', @YL02021X71577002 'STORAGE RECONFIG. STATUS' @YL02021 71577602 LINE (26,32),(1,32),SKIP=1 @YL02021 71578202 BIN (PDAR00),(PDAR10),(PDAR20) @YL02021 71578802 LABEL 'RESERVED','RESERVED','FR OFF LN/SCHED OFF LN' @YL02021 71579402 LINE , @YL02021 71580002 BIN (PDAR01),(PDAR11),(PDAR21) @YL02021 71580602 LABEL 'RESERVED','RESERVED','INTERCEPT' @YL02021 71581202 LINE , @YL02021 71581802 BIN (PDAR02),(PDAR12),(PDAR22) @YL02021 71582402 LABEL 'RESERVED','RESERVED','PERM. ERR. IN FRAME' @YL02021 71583002 LINE , @YL02021 71583602 BIN (PDAR03),(PDAR13),(PDAR23) @YL02021 71584202 LABEL 'STORAGE RECONFIG.','RESERVED', @YL02021X71584802 'FRAME-PERM. RES. SYS.' @YL02021 71585402 LINE , @YL02021 71586002 BIN (PDAR04),(PDAR14),(PDAR24) @YL02021 71586602 LABEL 'STOR. REFIG. STST AVAIL.','RESERVED','FRAME USE SQA' 71587202 LINE , @YL02021 71587802 BIN (PDAR05),(PDAR15),(PDAR25) @YL02021 71588402 LABEL 'STOR REFIG. NOT ATTEMP.','RESERVED','FRAME USE LSQA' 71589002 LINE , @YL02021 71589602 BIN (PDAR06),(PDAR16),(PDAR26) @YL02021 71590202 LABEL 'RESERVED','STOR ERR SET IN FRAME','FRAME-FIXED PG DATA' 71590802 LINE ,,SKIP=2 @YL02021 71591402 BIN (PDAR07),(PDAR17),(PDAR27) @YL02021 71592002 LABEL 'RESERVED','FRAME-CHG IND. ON','FRAME-IS V=R OR SCHED.' 71592602 LINE (25,30),(1,),SKIP=2 @YL02021 71593202 HEX WDSIZE @YL02021 71593802 LABEL 'PHYSICAL WORD LENGTH' @YL02021 71594402 LINE ,,SKIP=1 @YL02021 71595002 LABEL '' @YL02021 71595602 VS2DUMP LINE , @XA21819 71596201 ROUTINE XKEY,DUMPSET @XA21819 71596401 LABEL '' @XA21819 71596601 DC XL1'FF' @XA21819 71596801 DUMPSIZE DC AL2(0) @XA21819 71597001 DC AL2(48) @YL02021 71597402 DC AL2(232) @YL02021 71598002 *********************************************************************** 71600002 * ***** LABEL AREA ***** 71650002 *********************************************************************** 71700002 LABLAREA EQU * 71950002 LSTART 72000002 END 72050002