TITLE 'IFCELEX1 MODEL 165 CPU EDIT TABLE 4' 00060002 * DSGEN MACRO DSGEN MACRO DSGEN MACRO DSGEN MACRO * 00120002 SPACE 2 00180002 MACRO 00240002 &NAME DSGEN , 00300002 .* THIS MACRO GENERATES ONE DSECT WORD 00360002 .* FORMATTED FOR THE SUBJECT LOG RECORD 00420002 .* EACH OPERAND HAS TWO SUB LISTS. THE 00480002 .* FIRST IS THE NAME OF THE LOG ITEM 00540002 .* WHILE THE SECOND IS THE # OF BITS TO 00600002 .* ALLOCATE FOR THIS ITEM. ITEMS MUST 00660002 .* BE DEFINED CONTIGUOUSLY WITHOUT GAPS 00720002 .* UNUSED BIT GROUPS MUST BE GIVEN 00780002 .* DUMMY NAMES. THE NAMES PROVIDED FOR 00840002 .* THE LOG ITEMS MAY THEN BE USED IN 00900002 .* THE CONVERSION MACRO INSTRUCTIONS. 00960002 GBLC &ITEM(2000) 01020002 GBLA &ITEMNBR,&BITS(2000),&SHIFT(2000) 01080002 LCLB &ONLY1,&CTIND 01140002 LCLA &START1,&START2,&END1,&END2 01200002 LCLC &SYMBOL,&EQUSYM 01260002 LCLA &OP,&COUNT,&BYTE,&EQUCNT 01320002 ACTR 100000 01380002 .START AIF (N'&SYSLIST(&OP+1) LT 3).LOOP 01440002 AIF ('&SYSLIST(&OP+1,3)' EQ 'EQU').LOOP TEST FOR EQU 01500002 AIF ('&SYSLIST(&OP+1,3)' EQ '' OR '&SYSLIST(&OP+1,4)' EQ '').ERR1 01560002 AIF ('&SYSLIST(&OP+1,3)' GT '&SYSLIST(&OP+1,4)').ERR3 01620002 &START1 SETA &SYSLIST(&OP+1,3) GET START COUNT OF 1 01680002 &START2 SETA &SYSLIST(&OP+1,4) GET FIRST END COUNT 01740002 AGO .SET2A BRANCH AROUND 01800002 .ERR1 MNOTE '**FIRST SYMBOL CONCATENATION INCOMPLETE**' 01860002 MEXIT 01920002 .SET2A AIF ('&SYSLIST(&OP+1,5)' EQ ''AND '&SYSLIST(&OP+1,6)' EQ '' X01980002 ).SET2 TEST FOR NO SECOND 02040002 AIF ('&SYSLIST(&OP+1,5)' EQ '' OR '&SYSLIST(&OP+1,6)' EQ '').ERR2 02100002 AIF ('&SYSLIST(&OP+1,5)' GT '&SYSLIST(&OP+1,6)').ERR3 02160002 &END1 SETA &SYSLIST(&OP+1,5) GET START COUNT OF 2 02220002 &END2 SETA &SYSLIST(&OP+1,6) GET END COUNT OF 2 02280002 AGO .LOOP 02340002 .SET2 ANOP 02400002 &ONLY1 SETB 1 INDICATE ONLY ONE CONCATENATION 02460002 AGO .LOOP 02520002 .ERR2 MNOTE '**SECOND SYMBOL CONCATENATION INCOMPLETE**' 02580002 MEXIT 02640002 .ERR3 MNOTE '**START GREATER THAN END CONCATENATION**' 02700002 MEXIT 02760002 .LOOP ANOP 02820002 &OP SETA &OP+1 02880002 AIF (&OP GT N'&SYSLIST).DONE TEST IF ALL DONE 02940002 &ITEMNBR SETA &ITEMNBR+1 03000002 AIF ('&SYSLIST(&OP,2)' NE '').OK1 03060002 MNOTE '**NULL BIT COUNT FIELD**' 03120002 MEXIT 03180002 .OK1 ANOP 03240002 &SYMBOL SETC '&SYSLIST(&OP,1)' 03300002 AIF ('&SYMBOL' NE '').OK 03360002 * ***** LOG ITEM SYMBOL NOT PROVIDED ***** 03420002 AIF ('&SYSLIST(&OP,3)' NE 'EQU').CNT 03480002 AGO .START GET NEXT 03540002 .OK AIF (N'&SYSLIST(&OP) LT 3).NO3 TEST FOR OLD FORMAT 03600002 AIF ('&SYSLIST(&OP,3)' EQ 'EQU').EQU TEST FOR EQU 03660002 AIF (&ONLY1).OK2 TEST FOR ONLY ONE CONCAT 03720002 &SYMBOL SETC '&SYMBOL.&START1.&END1' GET 1 AND 2 CONCAT 03780002 AGO .NO3 BRANCH AROUND 03840002 .OK2 ANOP 03900002 &SYMBOL SETC '&SYMBOL.&START1' GET 1 CONCATENATED 03960002 .NO3 ANOP 04020002 &SYMBOL EQU *+&BYTE 04080002 &ITEM(&ITEMNBR) SETC '&SYMBOL' GET LABEL IN GLOBAL 04140002 &BITS(&ITEMNBR) SETA &SYSLIST(&OP,2) 04200002 &SHIFT(&ITEMNBR) SETA &COUNT-&BYTE*8 04260002 .CNT ANOP 04320002 &CTIND SETB 1 SET COUNT INDICATOR 04380002 &COUNT SETA &COUNT+&SYSLIST(&OP,2) 04440002 &BYTE SETA &COUNT/8 04500002 AIF (N'&SYSLIST(&OP) LT 3).START TEST FOR OLD FORMAT 04560002 AIF (&ONLY1).TSTST TEST FOR ONLY ONE CONCAT 04620002 AIF (&END1 EQ &END2).TSTST TEST FOR SECOND END 04680002 &END1 SETA &END1+1 INCREMENT COUNT 04740002 &OP SETA &OP-1 DECREMENT INCREMENT 04800002 AGO .LOOP GENERATE NEXT 04860002 .TSTST ANOP 04920002 AIF (&START1 EQ &START2).LPDONE TEST FOR END 04980002 AIF (&ONLY1).NSET1 TEST FOR ONLY ONE CONCAT 05040002 &END1 SETA &SYSLIST(&OP,5) RE-INIT SECOND START COUNT 05100002 .NSET1 ANOP 05160002 &OP SETA &OP-1 DECREMENT INDEX 05220002 &START1 SETA &START1+1 INCREMENT FIRST COUNT 05280002 AGO .LOOP GO DO NEXT 05340002 .LPDONE ANOP 05400002 &ONLY1 SETB 0 CLEAR INDICATOR 05460002 AGO .START GO TEST FOR MORE SUB-LISTS 05520002 .DONE AIF (&COUNT-&COUNT/8*8 NE 0).ERR TEST FOR MULTIPLE OF EIGHT 05580002 AIF (&CTIND EQ 0).END NO DS IF NO COUNT 05640002 &COUNT SETA &COUNT/8 GET NUMBER OF BYTES 05700002 &NAME DS &COUNT.C 05760002 .END MEXIT 05820002 .ERR MNOTE '**BIT COUNT FLDS DO NOT TOTAL MULTIPLE OF 8**' 05880002 MEXIT 05940002 .EQU AIF ('&SYSLIST(&OP,4)' NE '').EQU1 TEST FOR NULL LABEL 06000002 .ERR4 MNOTE '**EQU OPERAND OMITTED OR NOT FOUND**' 06060002 MEXIT 06120002 .EQU1 AIF (&SYSLIST(&OP,2) LT 16).EQU2 COUNT OVER FIFTEEN 06180002 ***** THE FOLLOWING STATEMENT ***** 06240002 ***** NUMBER OF BITS EXCEED 15 - DO NOT USE AS BIN ***** 06300002 .EQU2 ANOP 06360002 &EQUCNT SETA 0 CLEAR COUNTER 06420002 &EQUSYM SETC '&SYSLIST(&OP,4)' GET EQU OPERAND 06480002 .EQULOP ANOP 06540002 &EQUCNT SETA &EQUCNT+1 INCREMENT INDEX 06600002 AIF ('&ITEM(&EQUCNT)' EQ '&EQUSYM').EQUOUT LABEL FOUND? 06660002 AIF (&EQUCNT EQ &ITEMNBR).ERR4 ALL TESTED? 06720002 AGO .EQULOP NO-GET NEXT 06780002 .EQUOUT ANOP 06840002 &ITEM(&ITEMNBR) SETC '&SYMBOL' GET LABEL NAME 06900002 &BITS(&ITEMNBR) SETA &SYSLIST(&OP,2) GET NUMBER OF BITS 06960002 &SHIFT(&ITEMNBR) SETA &SHIFT(&EQUCNT) GET SHIFT COUNT 07020002 &SYMBOL EQU &EQUSYM THIS SYMBOL EQUATED 07080002 AGO .START RETURN FOR NEXT 07140002 MEND 07200002 EJECT 07260002 MACRO 07320002 LINEND 07380002 .* THIS MACRO IS USED ONLY BY THE LINE 07440002 .* MACRO TO SET THE NUMBER OF ENTRIES 07500002 .* ASSOCIATED WITH EACH LINE. 07560002 GBLA &NRENTS 07620002 GBLC &NRENTSX 07680002 AIF (&NRENTS EQ 0).NORENTS TEST FOR NO COUNT 07740002 ORG &NRENTSX 07800002 DC FL1'&NRENTS' 07860002 ORG 07920002 &NRENTS SETA 0 07980002 .NORENTS ANOP 08040002 B&SYSNDX EQU * 08100002 &NRENTSX SETC 'B&SYSNDX' 08160002 MEND 08220002 * 08280002 MACRO 08340002 BIN , 08400002 .* &SYSLIST(&OP,1) - NAME OF LOG ITEM 08460002 .* RECORD DSECT 08520002 .* $SYSLIST(&OP,2) - NBR OF SPACES 08580002 .* TO SKIP ON MULTIPLE 08640002 .* PRINT OR NBR OF SPACES 08700002 .* TO BACK UP FROM COLUMN FOR 08760002 .* START OF PRINTING. THE LETTER 08820002 .* B PRECEEDS THE NUMBER (B5) IF 08880002 .* THE LATTER IS DESIRED. OMISSION 08940002 .* OF THIS OPERAND FORCES OPTION 2 09000002 .* WITH BACKUP SPACING EQUAL TO 09060002 .* THE NUMBER OF BITS IN THE ITEM 09120002 .* DEFINITION (VIA MACRO 'DSGEN'). 09180002 .* A LIMIT OF 15 BITS IS IMPOSED FOR THE 09240002 .* TOTAL NUMBER OF BITS TO PRINT. 09300002 GBLA &INITIAL 09360002 GBLB &DIAGTST,&DIAGSET,&DIAGLIN 09420002 GBLC &ITEM(2000) 09480002 GBLA &ITEMNBR,&BITS(2000),&SHIFT(2000),&NRENTS 09540002 GBLC &DSECT 09600002 LCLB &B,&SUB 09660002 LCLA &IBITS,&NDX,&ISHIFT,&K 09720002 LCLA &TEMP,&T,&OP 09780002 LCLC &S 09840002 AIF (&DIAGTST EQ 0).NOMSG 09900002 AIF (&INITIAL EQ 0).NOMSG 09960002 AIF (&DIAGLIN EQ 1).NOMSG 10020002 MNOTE '**NO LINE ASSOCIATED WITH THIS DATA**' 10080002 *****THE FOLLOWING GENERATED FOR TEST PURPOSES***** 10140002 * LINE 10200002 LINE 10260002 .NOMSG ANOP 10320002 AIF (K'&SYSLIST(1) EQ K'&SYSLIST(1,1)).LOOP 10380002 &SUB SETB 1 10440002 .LOOP ANOP 10500002 &OP SETA &OP+1 10560002 .LOOP1 ANOP 10620002 &NDX SETA &NDX+1 10680002 AIF ('&ITEM(&NDX)' EQ '&SYSLIST(&OP,1)').FOUND 10740002 AIF (&NDX LT &ITEMNBR).LOOP1 10800002 MNOTE '**LOG ITEM NOT DEFINED**' 10860002 MEXIT 10920002 .FOUND ANOP 10980002 &ISHIFT SETA &SHIFT(&NDX) 11040002 &IBITS SETA &BITS(&NDX) 11100002 &T SETA &IBITS-1 11160002 &B SETB 0 11220002 AIF (&IBITS GT 0 AND &IBITS LT 16).SUB0 11280002 MNOTE '**NO. OF BITS OUTSIDE RANGE OF 1-15**' 11340002 MEXIT 11400002 .SUB0 AIF (&SUB EQ 1).SUBA 11460002 AIF ('&SYSLIST(2)' EQ '').BACKUP 11520002 &K SETA K'&SYSLIST(2) 11580002 &B SETB ('&SYSLIST(2)'(1,1) EQ 'B') 11640002 &S SETC '&SYSLIST(2)'(&B+1,&K-&B) 11700002 AGO .SUBB 11760002 .SUBA ANOP 11820002 AIF ('&SYSLIST(&OP,2)' EQ '').BACKUP 11880002 &K SETA K'&SYSLIST(&OP,2) 11940002 &B SETB ('&SYSLIST(&OP,2)'(1,1) EQ 'B') 12000002 &S SETC '&SYSLIST(&OP,2)'(&B+1,&K-&B) 12060002 .SUBB ANOP 12120002 &T SETA &S 12180002 .BACKUP ANOP 12240002 &NRENTS SETA &NRENTS+1 12300002 &TEMP SETA &ISHIFT 12360002 AIF (&IBITS NE 1 OR &B NE 0).BIN2 12420002 DC AL.12(&SYSLIST(&OP,1)-&DSECT),XL.4'&TEMP' 12480002 AGO .OUT 12540002 .BIN2 AIF ('&SYSLIST(&OP,2)' NE '').BIN3 12600002 &B SETB 1 12660002 .BIN3 ANOP 12720002 DC AL.12(&SYSLIST(&OP,1)-&DSECT),XL.4'C' 12780002 DC BL.1'&B',AL.7(&T),AL.4(&IBITS),FL.4'&ISHIFT' 12840002 .OUT ANOP 12900002 &NDX SETA 0 12960002 AIF (&SUB EQ 0).OUTA 13020002 AIF (&OP LT N'&SYSLIST).LOOP 13080002 .OUTA ANOP 13140002 MEND 13200002 EJECT 13260002 MACRO 13320002 HEX 13380002 .* THIS MACRO FACILITATES GENERATION OF THE 13440002 .* TABLE ENTRIES SPECIFYING HEX TYPE 13500002 .* CONVERSIONS. 13560002 .* &SYSLIST(&OP,1) - NAME OF DATA ITEM TO BE 13620002 .* CONVERTED 13680002 .* &SYSLIST(&OP,2) - # OF SPACES TO SKIP ON 13740002 .* MULTIPLE PRINT OR NBR OF SPACES TO 13800002 .* BACK UP FROM COLUMN FOR START OF 13860002 .* PRINTING. THE LETTER B PRECEEDS THE 13920002 .* NUMBER (B8) IF THE LATTER OPTION IS 13980002 .* DESIRED. OMISSION OF THIS OPERAND 14040002 .* FORCES OPTION 2 WITH BACKUP SPACING 14100002 .* EQUAL TO THE NUMBER OF BYTES SPECI- 14160002 .* FIED BY THE NEXT OPERAND (TWICE THIS 14220002 .* NUMBER IF SUFFIX IS EXPLICITLY OR 14280002 .* IMPLICITLY B). 14340002 .* &SYSLIST(&OP,3) - NUMBER OF BYTES TO 14400002 .* PROCESS. THIS NUMBER IS SUFFIXED 14460002 .* WITH AN L,R, OR B TO STIPULATE 14520002 .* PRINTING OF THE LEFT HALF, RIGHT 14580002 .* HALF, OR BOTH HALVES OF THE BYTE 14640002 .* RESPECTIVELY. OMISSION OF THIS 14700002 .* OPERAND DEFAULTS TO B WITH THE NUM- 14760002 .* BER OF BYTES EQUAL TO THE ITEM LNGTH 14820002 .* A NEW ENTRY IS GENERATED ONLY WHEN NECES- 14880002 .* SARY. THIS MACRO MUST BE THE FIRST 14940002 .* MACRO INSTRUCTION ISSUED FOR THE 15000002 .* SUBJECT LINE(S). 15060002 GBLC &ITEM(2000),&DSECT 15120002 GBLA &ITEMNBR,&BITS(2000),&SHIFT(2000),&NRENTS 15180002 GBLA &INITIAL 15240002 GBLB &DIAGTST,&DIAGSET,&DIAGLIN 15300002 LCLB &B,&SUB 15360002 LCLA &IBITS,&NDX,&ISHIFT,&K,&T,&CODE,&BYTESP,&OP 15420002 LCLC &S,&LETTER 15480002 AIF (&DIAGTST EQ 0).NOMSG 15540002 AIF (&INITIAL EQ 0).NOMSG 15600002 AIF (&DIAGLIN EQ 1).NOMSG 15660002 MNOTE '**NO LINE ASSOCIATED WITH THIS DATA**' 15720002 *****THE FOLLOWING GENERATED FOR TEST PURPOSES***** 15780002 * LINE 15840002 LINE 15900002 .NOMSG ANOP 15960002 AIF (K'&SYSLIST(1) EQ K'&SYSLIST(1,1)).LOOP 16020002 &SUB SETB 1 16080002 .LOOP ANOP 16140002 &OP SETA &OP+1 16200002 .LOOP1 ANOP 16260002 &NDX SETA &NDX+1 16320002 AIF ('&ITEM(&NDX)' EQ '&SYSLIST(&OP,1)').FOUND 16380002 AIF (&NDX LT &ITEMNBR).LOOP1 16440002 MNOTE '**LOG ITEM NOT DEFINED**' 16500002 MEXIT 16560002 .FOUND ANOP 16620002 &ISHIFT SETA &SHIFT(&NDX) 16680002 &IBITS SETA &BITS(&NDX) 16740002 AIF (&ISHIFT EQ 0 OR &ISHIFT EQ 4).ALIGN 16800002 .ERR MNOTE '**DATA NOT ALLIGNED ON HEX OR BYTE BOUNDARY**' 16860002 MEXIT 16920002 .ALIGN ANOP 16980002 &CODE SETA 1 17040002 AIF (&SUB EQ 1).SUBA 17100002 &K SETA K'&SYSLIST(3) 17160002 AGO .SUBB 17220002 .SUBA ANOP 17280002 &K SETA K'&SYSLIST(&OP,3) 17340002 .SUBB ANOP 17400002 AIF (&IBITS-(&IBITS/4)*4 EQ 0).OK 17460002 MNOTE '**BIT LENGTH SPECIFICATION INCONSISTENT WITH CONTROL**' 17520002 MEXIT 17580002 .OK AIF (&SUB EQ 1).SUBC 17640002 AIF ('&SYSLIST(3)' EQ '').USEDEFN 17700002 &LETTER SETC '&SYSLIST(3)'(&K,1) 17760002 &S SETC '&SYSLIST(3)'(1,&K-1) 17820002 AGO .SUBD 17880002 .SUBC ANOP 17940002 AIF ('&SYSLIST(&OP,3)' EQ '').USEDEFN 18000002 &LETTER SETC '&SYSLIST(&OP,3)'(&K,1) 18060002 &S SETC '&SYSLIST(&OP,3)'(1,&K-1) 18120002 .SUBD ANOP 18180002 &BYTESP SETA &S 18240002 AIF ('&LETTER' EQ 'B').BOTH 18300002 AIF ('&LETTER' EQ 'L').LEFT 18360002 &CODE SETA 2 18420002 AGO .L 18480002 .LEFT ANOP 18540002 &CODE SETA 1 18600002 AGO .L 18660002 .USEDEFN ANOP 18720002 &BYTESP SETA &IBITS/8 18780002 .BOTH AIF (&ISHIFT NE 0).ERR 18840002 &CODE SETA 3 18900002 &T SETA &BYTESP*2-1 18960002 &S SETC '&T' 19020002 .OK2 AIF (&ISHIFT EQ 0).L 19080002 &CODE SETA 2 19140002 .L ANOP 19200002 &B SETB 1 19260002 AIF (&SUB EQ 1).SUBE 19320002 AIF ('&SYSLIST(2)' EQ '').BACKUP 19380002 &K SETA K'&SYSLIST(2) 19440002 &B SETB ('&SYSLIST(2)'(1,1) EQ 'B') 19500002 &S SETC '&SYSLIST(2)'(&B+1,&K-&B) 19560002 AGO .SUBF 19620002 .SUBE ANOP 19680002 AIF ('&SYSLIST(&OP,2)' EQ '').BACKUP 19740002 &K SETA K'&SYSLIST(&OP,2) 19800002 &B SETB ('&SYSLIST(&OP,2)'(1,1) EQ 'B') 19860002 &S SETC '&SYSLIST(&OP,2)'(&B+1,&K-&B) 19920002 .SUBF ANOP 19980002 .BACKUP ANOP 20040002 &NRENTS SETA &NRENTS+1 20100002 AIF (&BYTESP GT 0 AND &BYTESP LT 16).SUB0 20160002 MNOTE '**NO. OF BYTES OUTSIDE RANGE OF 1-15**' 20220002 MEXIT 20280002 .SUB0 AIF (&SUB EQ 1).SUBG 20340002 DC AL.12(&SYSLIST(1)-&DSECT),XL.4'A' 20400002 AGO .SUBH 20460002 .SUBG ANOP 20520002 DC AL.12(&SYSLIST(&OP,1)-&DSECT),XL.4'A' 20580002 .SUBH ANOP 20640002 DC BL.1'&B',FL.7'&S',AL.4(&BYTESP),FL.4'&CODE' 20700002 .OUT ANOP 20760002 &NDX SETA 0 20820002 AIF (&SUB EQ 0).OUTA 20880002 AIF (&OP LT N'&SYSLIST).LOOP 20940002 .OUTA ANOP 21000002 MEND 21060002 MACRO 21120002 LSTART , 21180002 .* THIS MACRO IS ISSUED WHEN THE LABEL AREA 21240002 .* OF THE TABLE IS TO BEGIN. 21300002 GBLA &LABELNR 21360002 GBLC &LBL(100) 21420002 GBLC &LABELS(2000) 21480002 GBLA &LBLCTR(100) 21540002 GBLB &DIAGTST,&DIAGSET,&DIAGLIN 21600002 LCLA &NDX,&CTR 21660002 AIF (&DIAGTST EQ 0).NODIAG 21720002 AIF (&DIAGSET EQ 0).NODIAG 21780002 MNOTE '**NO LABEL ASSOCIATED WITH LAST SET**' 21840002 ***** THE FOLLOWING GENERATED FOR TEST PURPOSES ***** 21900002 * LABEL '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%' 21960002 LABEL '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%' 22020002 .NODIAG ANOP 22080002 LINEND 22140002 &CTR SETA 1 22200002 .LOOP ANOP 22260002 &NDX SETA &NDX+1 22320002 AIF (&LBLCTR(&CTR) NE &NDX).NOLBL 22380002 &LBL(&CTR) DC C'&LABELS(&NDX)' 22440002 &CTR SETA &CTR+1 22500002 AGO .LOOPCTL 22560002 .NOLBL ANOP 22620002 DC C'&LABELS(&NDX)' 22680002 .LOOPCTL AIF (&NDX LT &LABELNR).LOOP 22740002 MEND 22800002 EJECT 22860002 MACRO 22920002 &NAME LABEL &LABEL1,&LABEL2,&LABEL3,&LABEL4,&LABEL5,&LABEL6, C22980002 &LABEL7,&LABEL8 23040002 .* THIS MACRO ALLOWS LABELS TO 23100002 .* BE SPECIFIED FOR A GIVEN LINE. THE 23160002 .* LABELS SHOULD BE ENCLOSED IN QUOTA- 23220002 .* TION MARKS. THE COLUMN AND LINE END 23280002 .* CONTROLS WILL BE INSERTED BY THE 23340002 .* MACRO. OMITTED OPERANDS MEAN NO 23400002 .* LABEL REQUIRED FOR RESPECTIVE 23460002 .* COLUMN. 23520002 GBLC &LABELS(2000) 23580002 GBLC &LBL(100) 23640002 GBLA &LBLCTR(100) 23700002 GBLA &LABELNR 23760002 GBLA &NRENTS,&LPTR,&INITIAL 23820002 GBLB &DIAGTST,&DIAGSET,&DIAGLIN 23880002 LCLC &MARGIN,&TACK 23940002 LCLC &TEXT 24000002 LCLA &OP,&K,&START,&NRCHAR,&REMAIN 24060002 AIF (&INITIAL EQ 0).DIAGCLR 24120002 AIF (&DIAGTST EQ 0).DIAGCLR 24180002 AIF (&DIAGLIN EQ 1).DIAGCLR 24240002 MNOTE '**NO LINE ASSOCIATED WITH PREVIOUS LABEL**' 24300002 ***** THE FOLLOWING GENERATED FOR TEST PURPOSES ***** 24360002 * LINE 24420002 LINE 24480002 .DIAGCLR ANOP 24540002 &DIAGSET SETB 0 24600002 &DIAGLIN SETB 0 24660002 &MARGIN SETC '*' 24720002 AIF ('&NAME' EQ '').LOOPOUT 24780002 &LPTR SETA &LPTR+1 24840002 &LBL(&LPTR) SETC '&NAME' 24900002 &LBLCTR(&LPTR) SETA &LABELNR+1 24960002 .LOOPOUT ANOP 25020002 &OP SETA &OP+1 25080002 &K SETA K'&SYSLIST(&OP) 25140002 AIF (&K GE 2).NORM 25200002 &K SETA 2 25260002 .NORM ANOP 25320002 &START SETA 2 25380002 AIF (&OP LT N'&SYSLIST).NOTLAST 25440002 &MARGIN SETC '$' 25500002 .NOTLAST ANOP 25560002 &NRCHAR SETA 8 25620002 &TACK SETC '' 25680002 .LOOPIN ANOP 25740002 &REMAIN SETA &K-&START 25800002 AIF (&REMAIN GE 8).MORE 25860002 &TACK SETC '&MARGIN' 25920002 &NRCHAR SETA &REMAIN 25980002 .MORE ANOP 26040002 &TEXT SETC '' 26100002 AIF (&REMAIN EQ 0).ENDTEXT 26160002 &TEXT SETC '&SYSLIST(&OP)'(&START,&NRCHAR) 26220002 .ENDTEXT ANOP 26280002 &LABELNR SETA &LABELNR+1 26340002 &LABELS(&LABELNR) SETC '&TEXT'.'&TACK' 26400002 &START SETA &START+8 26460002 AIF ('&TACK' EQ '').LOOPIN 26520002 AIF ('&TACK' EQ '*').LOOPOUT 26580002 MEND 26640002 EJECT 26700002 MACRO 26760002 &NAME ROUTINE &LOGITEM,&RNAME 26820002 GBLA &NRENTS 26880002 GBLC &DSECT,&CSECT 26940002 GBLA &INITIAL 27000002 GBLB &DIAGTST,&DIAGSET,&DIAGLIN 27060002 AIF (&DIAGTST EQ 0).NOMSG 27120002 AIF (&INITIAL EQ 0).NOMSG 27180002 AIF (&DIAGLIN EQ 1).NOMSG 27240002 MNOTE '**NO LINE ASSOCIATED WITH THIS ROUTINE**' 27300002 *****THE FOLLOWING GENERATED FOR TEST PURPOSES***** 27360002 * LINE 27420002 LINE 27480002 .NOMSG ANOP 27540002 &NAME DC AL.12(&LOGITEM-&DSECT),XL.4'D' 27600002 DC AL2(&RNAME-&CSECT) 27660002 &NRENTS SETA &NRENTS+1 27720002 MEND 27780002 EJECT 27840002 MACRO 27900002 &NAME LINE &DATA,&LABEL,&SKIP= 27960002 .* THIS MACRO ESTABLISHES THE MARGINS OR 28020002 .* COLUMN SETTINGS FOR EACH LINE. IT 28080002 .* GENERATES NECESSARY CARRIAGE CONTROL 28140002 .* ENTRIES. LASTLY IT DETERMINES THE 28200002 .* NUMBER OF ENTRIES ASSOCIATED WITH 28260002 .* THE PREVIOUS LINE AND STORES THAT # 28320002 .* INTO THE APPROPRIATE BYTE. 28380002 .* &DATA(1) - CHARACTER POSITION TO BEGIN 28440002 .* DATA. 28500002 .* &DATA(2) - # OF SPACES BETWEEN SUCCESSIVE 28560002 .* DATA COLUMN STARTING CHARACTERS. 28620002 .* &LABEL(1) - CHAR. POS. TO BEGIN LABELS. 28680002 .* &LABEL(2) - # SPACES BETWEEN LINE'S LABEL 28740002 .* STARTING CHARACTERS. 28800002 .* &SKIP= - # OF LINES TO ADVANCE CARRIAGE 28860002 .* TO BEGIN NEXT PRINTED LINE. 28920002 .* NEW ENTRIES ARE GENERATED ONLY WHEN 28980002 .* NECESSARY. OMISSION OF ITEMS MEANS 29040002 .* THEY HAVE NOT CHANGED SINCE PREVIOUS 29100002 .* SETTINGS. A LINE MACRO IS REQUIRED 29160002 .* FOR EACH PRINTED LINE. IF NO SETTING 29220002 .* CHANGES ARE REQUIRED ALL OPERANDS 29280002 .* ARE OMITTED IN WHICH CASE ONLY THE 29340002 .* # OF ENTRIES FOR THE PREVIOUS LINE 29400002 .* IS COMPUTED. THIS MACRO MUST BE THE 29460002 .* FIRST MACRO INSTRUCTION ISSUED FOR 29520002 .* THE SUBJECT LINE 29580002 GBLA &DB,&DT,&LB,<,&NRENTS 29640002 GBLA &LASTCC,&INITIAL 29700002 GBLC &NRENTSX 29760002 GBLC &CARRCON 29820002 GBLB &TEST 29880002 GBLB &DIAGTST,&DIAGSET,&DIAGLIN 29940002 LCLA &S 30000002 AIF (&INITIAL EQ 0 OR &DIAGTST EQ 0).DIAGSET 30060002 AIF (&DIAGSET EQ 0).DIAGSET 30120002 MNOTE '**NO LABEL ASSOCIATED WITH LAST SET**' 30180002 ***** THE FOLLOWING GENERATED FOR TEST PURPOSES ***** 30240002 * LABEL '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%' 30300002 LABEL '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%' 30360002 .DIAGSET ANOP 30420002 &DIAGSET SETB 1 30480002 &DIAGLIN SETB 1 30540002 &NAME DS 0C 30600002 AIF (&INITIAL EQ 0).FIRSTLN 30660002 LINEND 30720002 AGO .NTFIRST 30780002 .FIRSTLN ANOP 30840002 &NRENTSX SETC 'N&SYSNDX' 30900002 &INITIAL SETA 1 30960002 N&SYSNDX EQU * 31020002 .NTFIRST ANOP 31080002 DC AL1(0) 31140002 AIF ('&DATA(1)' EQ '').CKDTABS 31200002 AIF (&DATA(1) EQ &DB).CKDTABS 31260002 &DB SETA &DATA(1) 31320002 AGO .AA 31380002 .CKDTABS AIF ('&DATA(2)' EQ '').NCDATA 31440002 AIF (&DATA(2) EQ &DT).NCDATA 31500002 AGO .CC 31560002 .AA AIF ('&DATA(2)' EQ '').BB 31620002 AIF (&DATA(2) EQ &DT).BB 31680002 .CC ANOP 31740002 &DT SETA &DATA(2) 31800002 .BB DC XL2'FFFE' 31860002 DC FL1'&DB' 31920002 DC FL1'&DT' 31980002 &NRENTS SETA &NRENTS+1 32040002 .NCDATA ANOP 32100002 AIF ('&LABEL(1)' EQ '').CKLTABS 32160002 AIF (&LABEL(1) EQ &LB).CKLTABS 32220002 &LB SETA &LABEL(1) 32280002 AGO .AAA 32340002 .CKLTABS AIF ('&LABEL(2)' EQ '').NCLABEL 32400002 AIF (&LABEL(2) EQ <).NCLABEL 32460002 AGO .CCC 32520002 .AAA AIF ('&LABEL(2)' EQ '').BBB 32580002 AIF (&LABEL(2) EQ <).BBB 32640002 .CCC ANOP 32700002 < SETA &LABEL(2) 32760002 .BBB DC XL2'FFFF' 32820002 DC FL1'&LB' 32880002 DC FL1'<' 32940002 &NRENTS SETA &NRENTS+1 33000002 .NCLABEL ANOP 33060002 AIF ('&SKIP' NE '').CONT 33120002 AIF (&TEST EQ 0).NOCHANG 33180002 AGO .DEFALTA 33240002 .CONT ANOP 33300002 AIF (&TEST EQ 0).AB 33360002 AIF ('&SKIP' EQ 'E').AB 33420002 &S SETA &SKIP 33480002 .DEFAULT ANOP 33540002 AIF (&SKIP EQ &LASTCC).DEFALTA 33600002 ORG &CARRCON+3 33660002 DC AL.3(0),AL.2(&S),AL.3(1) 33720002 ORG 33780002 &LASTCC SETA &S 33840002 .DEFALTA ANOP 33900002 &TEST SETB 0 33960002 AGO .DD 34020002 .AB AIF ('&SKIP' NE 'E').ABB 34080002 A&SYSNDX DC X'FFFB8B00' EJECT 34140002 AGO .ABC 34200002 .ABB AIF (&SKIP EQ &LASTCC).NOCHANG 34260002 A&SYSNDX DC XL2'FFFB' 34320002 DC AL.3(0),AL.2(&SKIP),AL.3(1) 34380002 DC AL.3(0),AL.2(&SKIP),AL.3(1) 34440002 &LASTCC SETA &SKIP 34500002 &TEST SETB 1 34560002 .ABC ANOP 34620002 &CARRCON SETC 'A&SYSNDX' 34680002 &NRENTS SETA &NRENTS+1 34740002 .DD ANOP 34800002 .NOCHANG ANOP 34860002 MEND 34920002 EJECT 34980002 GBLC &DSECT,&CSECT 35040002 &DSECT SETC 'INDEPEND' 35100002 &CSECT SETC 'IFCELEX1' 35160002 IFCELEX1 CSECT 35220002 USING *,R9 35280002 INDEPEND DSECT 35340002 DS 0F 35400002 DSGEN (XKEY,16),(XSWS8,9),(XSWS9,1),(XSWS10,1),(XSWS11,1), C35460002 (XSWS12,1),(XSWS13,1),(XSWS14,1),(XSWS15,1) 35520002 DSGEN (XDUM1,32) 35580002 DSGEN (XDATE,32) 35640002 DSGEN (XTIME,32) 35700002 DSGEN (XDUM2,8),(XSER,24) 35760002 DSGEN (XCPUMOD,16),(XDUM3,16) 35820002 DSGEN (XPGMID,64) 35880002 DSGEN (XJOBID,64) 35940002 ORG XJOBID 36000002 DSGEN (MCETEF,1,0,7),(MCEMEF,1,0,7),(MCEIEF,1,0,7), X36060002 (MCESEF,1,0,7),(PDAR0,1,0,7),(PDAR1,1,0,7), X36120002 (PDAR2,1,0,7),(WDSIZE,8) 36180002 DSGEN (XMCKPSW,64) 36240002 M165 DS 214F 36300002 DSGEN (A1LB,32) 36360002 DSGEN (A1LC,32) 36420002 DSGEN (A1LD,32) 36480002 DSGEN (A1LE,32) 36540002 DSGEN (A1LF,32) 36600002 DSGEN (A1LG,32) 36660002 DSGEN (A1LH,32) 36720002 DSGEN (A1LJ,32) 36780002 DSGEN (A1LK,32) 36840002 DSGEN (A1LL,32) 36900002 DSGEN (A2LB,32) 36960002 DSGEN (A2LC,32) 37020002 DSGEN (A2LD,32) 37080002 DSGEN (A2LE,32) 37140002 DSGEN (A2LF,32) 37200002 DSGEN (A2LG,32) 37260002 DSGEN (A2LH,32) 37320002 DSGEN (A2LJ,32) 37380002 DSGEN (A2LK,32) 37440002 DSGEN (A2LL,32) 37500002 DSGEN (A3LB,32) 37560002 DSGEN (A3LC,32) 37620002 DSGEN (A3LD,32) 37680002 DSGEN (A3LE,32) 37740002 DSGEN (A3LF,32) 37800002 DSGEN (A3LG,32) 37860002 DSGEN (A3LH,32) 37920002 DSGEN (A3LJ,32) 37980002 DSGEN (A3LK,32) 38040002 DSGEN (A3LL,32) 38100002 DSGEN (A4LB,32) 38160002 DSGEN (A4LC,32) 38220002 DSGEN (A4LD,32) 38280002 DSGEN (A4LE,32) 38340002 DSGEN (A4LF,32) 38400002 DSGEN (A4LG,32) 38460002 DSGEN (A4LH,32) 38520002 DSGEN (A4LJ,32) 38580002 DSGEN (A4LK,32) 38640002 DSGEN (A4LL,32) 38700002 DSGEN (A5LB,32) 38760002 DSGEN (A5LC,32) 38820002 DSGEN (A5LD,32) 38880002 DSGEN (A5LE,32) 38940002 DSGEN (A5LF,32) 39000002 DSGEN (A5LG,32) 39060002 DSGEN (A5LH,32) 39120002 DSGEN (A5LJ,32) 39180002 DSGEN (A5LK,32) 39240002 DSGEN (A5LL,32) 39300002 DSGEN (A6LB,32) 39360002 DSGEN (A6LC,32) 39420002 DSGEN (A6LD,32) 39480002 DSGEN (A6LE,32) 39540002 DSGEN (A6LF,32) 39600002 DSGEN (A6LG,32) 39660002 DSGEN (A6LH,32) 39720002 DSGEN (A6LJ,32) 39780002 DSGEN (A6LK,32) 39840002 DSGEN (A6LL,32) 39900002 DSGEN (A7LB,32) 39960002 DSGEN (A7LC,32) 40020002 DSGEN (A7LD,32) 40080002 DSGEN (A7LE,32) 40140002 DSGEN (A7LF,32) 40200002 DSGEN (A7LG,32) 40260002 DSGEN (A7LH,32) 40320002 DSGEN (A7LJ,32) 40380002 DSGEN (A7LK,32) 40440002 DSGEN (A7LL,32) 40500002 DSGEN (B0LB,32) 40560002 DSGEN (B0LC,32) 40620002 DSGEN (B0LD,32) 40680002 DSGEN (B0LE,32) 40740002 DSGEN (B0LF,32) 40800002 DSGEN (B0LG,32) 40860002 DSGEN (B0LH,32) 40920002 DSGEN (B0LJ,32) 40980002 DSGEN (B0LK,32) 41040002 DSGEN (B0LL,32) 41100002 DSGEN (B1LB,32) 41160002 DSGEN (B1LC,32) 41220002 DSGEN (B1LD,32) 41280002 DSGEN (B1LE,32) 41340002 DSGEN (B1LF,32) 41400002 DSGEN (B1LG,32) 41460002 DSGEN (B1LH,32) 41520002 DSGEN (B1LJ,32) 41580002 DSGEN (B1LK,32) 41640002 DSGEN (B1LL,32) 41700002 DSGEN (B2LB,32) 41760002 DSGEN (B2LC,32) 41820002 DSGEN (B2LD,32) 41880002 DSGEN (B2LE,32) 41940002 DSGEN (B2LF,32) 42000002 DSGEN (B2LG,32) 42060002 DSGEN (B2LH,32) 42120002 DSGEN (B2LJ,32) 42180002 DSGEN (B2LK,32) 42240002 DSGEN (B2LL,32) 42300002 DSGEN (B3LB,32) 42360002 DSGEN (B3LC,32) 42420002 DSGEN (B3LD,32) 42480002 DSGEN (B3LE,32) 42540002 DSGEN (B3LF,32) 42600002 DSGEN (B3LG,32) 42660002 DSGEN (B3LH,32) 42720002 DSGEN (B3LJ,32) 42780002 DSGEN (B3LK,32) 42840002 DSGEN (B3LL,32) 42900002 DSGEN (B4LB,32) 42960002 DSGEN (B4LC,32) 43020002 DSGEN (B4LD,32) 43080002 DSGEN (B4LE,32) 43140002 DSGEN (B4LF,32) 43200002 DSGEN (B4LG,32) 43260002 DSGEN (B4LH,32) 43320002 DSGEN (B4LJ,32) 43380002 DSGEN (B4LK,32) 43440002 DSGEN (B4LL,32) 43500002 DSGEN (B5LB,32) 43560002 DSGEN (B5LC,32) 43620002 DSGEN (B5LD,32) 43680002 DSGEN (B5LE,32) 43740002 DSGEN (B5LF,32) 43800002 DSGEN (B5LG,32) 43860002 DSGEN (B5LH,32) 43920002 DSGEN (B5LJ,32) 43980002 DSGEN (B5LK,32) 44040002 DSGEN (B5LL,32) 44100002 DSGEN (B6LB,32) 44160002 DSGEN (B6LC,32) 44220002 DSGEN (B6LD,32) 44280002 DSGEN (B6LE,32) 44340002 DSGEN (B6LF,32) 44400002 DSGEN (B6LG,32) 44460002 DSGEN (B6LH,32) 44520002 DSGEN (B6LJ,32) 44580002 DSGEN (B6LK,32) 44640002 DSGEN (B6LL,32) 44700002 DSGEN (C0LB,32) 44760002 DSGEN (C0LC,32) 44820002 DSGEN (C0LD,32) 44880002 DSGEN (C0LE,32) 44940002 DSGEN (C0LF,32) 45000002 DSGEN (C0LG,32) 45060002 DSGEN (C0LH,32) 45120002 DSGEN (C0LJ,32) 45180002 DSGEN (C0LK,32) 45240002 DSGEN (C0LL,32) 45300002 DSGEN (C1LB,32) 45360002 DSGEN (C1LC,32) 45420002 DSGEN (C1LD,32) 45480002 DSGEN (C1LE,32) 45540002 DSGEN (C1LF,32) 45600002 DSGEN (C1LG,32) 45660002 DSGEN (C1LH,32) 45720002 DSGEN (C1LJ,32) 45780002 DSGEN (C1LK,32) 45840002 DSGEN (C1LL,32) 45900002 DSGEN (C2LB,32) 45960002 DSGEN (C2LC,32) 46020002 DSGEN (C2LD,32) 46080002 DSGEN (C2LE,32) 46140002 DSGEN (C2LF,32) 46200002 DSGEN (C2LG,32) 46260002 DSGEN (C2LH,32) 46320002 DSGEN (C2LJ,32) 46380002 DSGEN (C2LK,32) 46440002 DSGEN (C2LL,32) 46500002 DSGEN (C3LB,32) 46560002 DSGEN (C3LC,32) 46620002 DSGEN (C3LD,32) 46680002 DSGEN (C3LE,32) 46740002 DSGEN (C3LF,32) 46800002 DSGEN (C3LG,32) 46860002 DSGEN (C3LH,32) 46920002 DSGEN (C3LJ,32) 46980002 DSGEN (C3LK,32) 47040002 DSGEN (C3LL,32) 47100002 DSGEN (C4LB,32) 47160002 DSGEN (C4LC,32) 47220002 DSGEN (C4LD,32) 47280002 DSGEN (C4LE,32) 47340002 DSGEN (C4LF,32) 47400002 DSGEN (C4LG,32) 47460002 DSGEN (C4LH,32) 47520002 DSGEN (C4LJ,32) 47580002 DSGEN (C4LK,32) 47640002 DSGEN (C4LL,32) 47700002 DSGEN (C5LB,32) 47760002 DSGEN (C5LC,32) 47820002 DSGEN (C5LD,32) 47880002 DSGEN (C5LE,32) 47940002 DSGEN (C5LF,32) 48000002 DSGEN (C5LG,32) 48060002 DSGEN (C5LH,32) 48120002 DSGEN (C5LJ,32) 48180002 DSGEN (C5LK,32) 48240002 DSGEN (C5LL,32) 48300002 DSGEN (C6LB,32) 48360002 DSGEN (C6LC,32) 48420002 DSGEN (C6LD,32) 48480002 DSGEN (C6LE,32) 48540002 DSGEN (C6LF,32) 48600002 DSGEN (C6LG,32) 48660002 DSGEN (C6LH,32) 48720002 DSGEN (C6LJ,32) 48780002 DSGEN (C6LK,32) 48840002 DSGEN (C6LL,32) 48900002 DSGEN (DARLNGTH,16),(,48) 48960002 DSGEN (SYSSTAT,1,0,7) 49020002 DSGEN (AREADT,1,0,15) 49080002 DSGEN (ERRTYPE,1,0,7) 49140002 DSGEN (RMSACTN,1,0,7) 49200002 DSGEN (RMSINFO,1,0,7) 49260002 DSGEN (WAITSUFF,8),(,8),(MCHFSAR,32),(,32) 49320002 DSGEN (TRNSMOD,32,0,7) 49380002 DSGEN (MCHPDR,1,0,7,0,7) 49440002 DSGEN (MCHFSAV,32),(MCHFSEAV,32),(MCHPDARI,32),(MCHTCBCU,32) 49500002 LOGEND EQU *-2 49560002 IFCELEX1 CSECT 49620002 *********************************************************************** 49680002 * 49740002 *********************************************************************** 49800002 ENTRYPTR DC A(FORMAT1) 49860002 TABLNAME DC CL8'IFCELEX1' 49920002 REG9 DS F 49980002 SAVE DS F 50040002 *** 50100002 * *** SPECIAL ROUTINES AREA *** 50160002 * 50220002 *********************************************************************** 50280002 USING INDEPEND,R2 50340002 ISITVS2 STM R5,R8,XSAVE SAVE REGS 50400002 CLI XKEY,H13 IS IT VS2? 50460002 BE ISVS2 YES 50520002 FIN SR R15,R15 ELIM. LABEL 50580002 LM R5,R8,XSAVE 50640002 BR R14 50700002 ISVS2 SR R5,R5 50760002 L R5,LINA 50820002 ST R5,REG9 50880002 L R6,LABA 50940002 ST R6,SAVE 51000002 B FIN 51060002 NOTVS2 STM R5,R8,XSAVE 51120002 L R5,LINC 51180002 ST R5,REG9 51240002 B FIN 51300002 LINA DC A(LINE1-4) 51360002 LABA DC A(LAB1-1) 51420002 LINC DC A(VS2DUMP-4) 51480002 ************************************************************** @XA21819 51482001 * THIS ROUTINE WILL SET THE PROPER DUMP SIZE TO DUMP THE WHOLE @XA21819 51484001 * RECORD BASED ON THE SIZE WHICH PRECEDES THE START OF THE @XA21819 51486001 * MCH RECORD. @XA21819 51488001 ************************************************************** @XA21819 51490001 DUMPSET STM R4,R8,XSAVE SAVE WORK REGS @XA21819 51492001 S R4,TWO BACK UP PTR TO REC LEN @XA21819 51494001 MVC WORKSIZE(2),0(R4) GET RECORD LENGTH @XA21819 51496001 SR R5,R5 ZERO REG @XA21819 51498001 LH R5,WORKSIZE R5 = RECORD LENGTH @XA21819 51500001 SH R5,HTWO GET ACTUAL RECD LENGTH @XA21819 51502001 BC 3,DUMPSET1 NO, LENGTH > ZERO @XA21819 51504001 MVC DUMPSIZE(2),DUMPAMT YES, USE DEFAULT SIZE @XA21819 51506001 B DUMPDONE EXIT @XA21819 51508001 DUMPSET1 STH R5,WORKSIZE STORE FOR MOVE TO AVOID @XA21819 51510001 MVC DUMPSIZE(2),WORKSIZE BOUNDARY PROBLEMS @XA21819 51512001 DUMPDONE SR R15,R15 DO NOT PRINT @XA21819 51514001 LM R4,R8,XSAVE RESTORE WORK REGS @XA21819 51516001 BR R14 EXIT @XA21819 51518001 TWO DC F'00000002' @XA21819 51520001 HTWO DC H'0002' @XA21819 51522001 WORKSIZE DC H'0000' WORK AREA @XA21819 51524001 DUMPAMT DC H'1754' DUMPSIZE IF LEN IS BAD @XA21819 51526001 ************************************************************** @XA21819 51528001 ROUT0 DS 0C 51540002 STM R3,R4,SAVER34 SAVE PRINT BFR PTR- LOG START 51600002 BR R14 RETURN 51660002 ROUT1 DS 0C 51720002 STM R3,R8,XSAVE SAVE ROUTINE REGISTERS 51780002 L R3,SAVER3 LOAD ADR OF PRINT BFR 51840002 L R7,L0(R4) LOAD LOG DATA 51900002 LA R3,L3(R3) INCREMENT PRINT BFR POINTER 51960002 LA R8,L4 LOAD BYTE COUNT 52020002 ROUT1A DS 0C 52080002 LA R5,L6 LOAD BIT COUNT 52140002 ROUT1B DS 0C 52200002 SR R6,R6 CLEAR REGISTER R6 52260002 MVI L0(R3),CB ASSUME 0 - SET BFR TO BLANK 52320002 SLDL R6,L1 SHIFT DATA BIT INTO R6 52380002 LTR R6,R6 TEST VALUE IN R6 52440002 BZ ROUT1C BRANCH IF R6 ZERO 52500002 MVI L0(R3),CS MOVE SPLAT TO PRINT BFR 52560002 ROUT1C DS 0C 52620002 LA R3,L3(R3) INCREMENT PRINT BFR POINTER 52680002 BCT R5,ROUT1B BRANCH ON BIT COUNT 52740002 SLL R7,L2 BYPASS BITS 6 AND 7 52800002 BCT R8,ROUT1A BRANCH ON BYTE COUNT 52860002 LM R3,R8,XSAVE RESTORE REGISTERS 52920002 SKIPPER BR R14 RETURN 52980002 C165 DC X'0165' 53040002 C168 DC X'0168' 53100002 R0 EQU 0 53160002 R1 EQU 1 53220002 R2 EQU 2 53280002 R3 EQU 3 53340002 R4 EQU 4 53400002 R5 EQU 5 53460002 R6 EQU 6 53520002 R7 EQU 7 53580002 R8 EQU 8 53640002 R9 EQU 9 53700002 R10 EQU 10 53760002 R11 EQU 11 53820002 R12 EQU 12 53880002 R13 EQU 13 53940002 R14 EQU 14 54000002 R15 EQU 15 54060002 CC1 EQU 1 54120002 CC2 EQU 2 54180002 CC4 EQU 4 54240002 CC7 EQU 7 54300002 CC8 EQU 8 54360002 L0 EQU 0 54420002 L1 EQU 1 54480002 L2 EQU 2 54540002 L3 EQU 3 54600002 L4 EQU 4 54660002 L5 EQU 5 54720002 L6 EQU 6 54780002 L7 EQU 7 54840002 L8 EQU 8 54900002 L9 EQU 9 54960002 L10 EQU 10 55020002 H13 EQU X'13' 55080002 CB EQU C' ' 55140002 CS EQU C'*' 55200002 XWORK DS D 55260002 XSAVE DS 6F 55320002 SAVER34 DS 2F 55380002 SAVER3 EQU SAVER34 55440002 SAVER4 EQU SAVER34+4 55500002 *********************************************************************** 55560002 * 55620002 FORMAT1 DC F'0' 55680002 FORMAT2 DC F'0' 55740002 LABELPTR DC A(LABLAREA) 55800002 DISP DC FL2'0' 55860002 *********************************************************************** 55920002 ALTLINE LINE (1,1),(19,1),SKIP=1 55980002 ROUTINE C0LB,ROUT0 56040002 LABEL 'M/F FRAME C0 STORAGE CONTROLS' 56100002 LINE ,(12,1) 56160002 LABEL 'PREFIX HOLD REGISTER SS OSC SS X INTRLEAVE X56220002 RS CONFIG' CZ30LIFR 56280002 LINE ,(3,1) 56340002 LABEL 'P1 8 9 10 11 12 13 14 15 P2 16 17 18 19 IND ON DTCON *56400002 S 4 EN V' CZ30LIFR 56460002 LINE ,(1,1) 56520002 ROUTINE C0LB,ROUT1 56580002 LABEL 'LB' 56640002 LINE ,(3,1) 56700002 LABEL 'CONF 0 CONF 4' 56760002 LINE ,(4,1) 56820002 LABEL '0 1 2 3 L R 0 1 2 3 L R' 56880002 LINE ,(1,1) 56940002 ROUTINE C0LC,ROUT1 57000002 LABEL 'LC' 57060002 LINE ,(3,1) 57120002 LABEL 'CONF 1 CONF 5' 57180002 LINE ,(4,1) 57240002 LABEL '0 1 2 3 L R 0 1 2 3 L R' 57300002 LINE ,(1,1) 57360002 ROUTINE C0LD,ROUT1 57420002 LABEL 'LD' 57480002 LINE ,(3,1) 57540002 LABEL 'CONF 2 CONF 6' 57600002 LINE ,(4,1) 57660002 LABEL '0 1 2 3 L R 0 1 2 3 L R' 57720002 LINE ,(1,1) 57780002 ROUTINE C0LE,ROUT1 57840002 LABEL 'LE' 57900002 LINE ,(3,1) 57960002 LABEL 'CONF 3 CONF 7' 58020002 LINE ,(4,1) 58080002 LABEL '0 1 2 3 L R 0 1 2 3 L R' 58140002 LINE ,(1,1) 58200002 ROUTINE C0LF,ROUT1 58260002 LABEL 'LF' 58320002 LINE ,(3,1) 58380002 LABEL ' STOR SZE LOCAL' 58440002 LINE ,(4,1) 58500002 LABEL ' 0 1 2 3' 58560002 LINE ,(1,1) 58620002 ROUTINE C0LG,ROUT1 58680002 LABEL 'LG' 58740002 LINE ,(3,1) 58800002 LABEL ' MAINT IPU STOR SZE REMTE C58860002 TST ' 58920002 LINE ,(4,1) 58980002 LABEL ' CPU APU ADR 0 1 2 3 X59040002 LTH' 59100002 LINE ,(1,1) 59160002 ROUTINE C0LH,ROUT1 59220002 LABEL 'LH' 59280002 LINE ,(1,1),SKIP=1 59580002 ROUTINE C0LJ,ROUT1 59640002 LABEL 'LJ' 59700002 LINE ,(3,1) 59760002 LABEL 'STOR PROT CHECKS PRFX' 59820002 LINE ,(3,1) 59880002 LABEL ' IK OK R C CHK' 59940002 LINE ,(1,1),SKIP=3 60000002 ROUTINE C0LK,ROUT1 60060002 LABEL 'LK' 60120002 LINE ,(1,1),SKIP=1 60180002 LABEL 'LL' 60240002 LINE ,(3,1) 60250002 LABEL ' FILE' 60260002 LINE ,(4,1),SKIP=3 60270002 LABEL ' CHK' 60280002 C1LINE LINE ,(19,1),SKIP=1 60300002 C1LAB LABEL 'M/F FRAME C1 SEGMENT TABLE ORIGIN STACK' 60360002 LINE (1,1),(26,1),SKIP=1 60420002 MFC1 LABEL 'STOK BFR REG CR 0 PSW' 60480002 LINE ,(7,1) 60540002 LABEL '8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 8 C60600002 11 P' 60660002 LINE ,(1,1),SKIP=3 60720002 ROUTINE C1LB,ROUT1 60780002 LABEL 'LB' 60840002 LINE ,(1,1),SKIP=1 60900002 LABEL 'LC' 60960002 LINE ,(6,1) 61020002 LABEL ' PSW/CR CMP BLK XLAT CTL XC61080002 L' 61140002 LINE ,(6,1) 61200002 LABEL ' FUL MOD 0 1 BX61260002 SY' 61320002 LINE ,(1,1) 61380002 ROUTINE C1LD,ROUT1 61440002 LABEL 'LD' 61500002 LINE ,(5,1) 61560002 LABEL 'STK RP ST P=5 DLAT INV DAT DLAT REQUESTS' 61620002 LINE ,(6,1) 61680002 LABEL 'ON LH VD TGR RSSRCH DLAT ENT 0 1 XLT K' 61740002 LINE ,(1,1) 61800002 ROUTINE C1LE,ROUT1 61860002 LABEL 'LE' 61920002 LINE ,(52,1) 61980002 LABEL 'XLATOR INGATES' 62040002 LINE ,(53,1) 62100002 LABEL 'SAL STE PTE' 62160002 LINE ,(1,1) 62220002 ROUTINE C1LF,ROUT1 62280002 LABEL 'LF' 62340002 LINE ,(54,1) 62400002 LABEL 'TAR INGATES' 62460002 LINE ,(54,1) 62520002 LABEL 'LAR TL RA' 62580002 LINE ,(1,1) 62640002 ROUTINE C1LG,ROUT1 62700002 LABEL 'LG' 62760002 LINE ,(53,1) 62820002 LABEL 'DLAT CTRLS' 62880002 LINE ,(53,1) 62940002 LABEL 'SSK W R' 63000002 LINE ,(1,1) 63060002 ROUTINE C1LH,ROUT1 63120002 LABEL 'LH' 63180002 LINE ,(53,1) 63240002 LABEL 'EXCEPTIONS' 63300002 LINE ,(53,1) 63360002 LABEL 'SEG PG SPL' 63420002 LINE ,(1,1) 63480002 ROUTINE C1LJ,ROUT1 63540002 LABEL 'LJ' 63600002 LINE ,(24,1) 63660002 LABEL 'STOK CHECKS TIR TAL HS CKS' 63720002 LINE ,(23,1) 63780002 LABEL 'BFR SP ID PTY 8 16 24' 63840002 LINE ,(1,1) 63900002 ROUTINE C1LK,ROUT1 63960002 LABEL 'LK' 64020002 LINE ,(24,1) 64080002 LABEL 'DLAT CHECKS TAL FS CKS' 64140002 LINE ,(24,1) 64200002 LABEL 'MC C IK OK RA 8 16 24' 64260002 LINE ,(1,1),SKIP=3 64320002 ROUTINE C1LL,ROUT1 64380002 LABEL 'LL' 64440002 LINE ,(19,1),SKIP=1 64500002 MFC3 LABEL 'M/F FRAME C3 CONTROL REGISTERS' 64560002 LINE ,(24,1) 64620002 LABEL 'CONTROL REGISTER 0 BITS 0-15' 64680002 LINE ,(13,1) 64740002 LABEL 'P BM M 2 3 4 5 6 7 P PG SZ/PE/SG SZ 13 14 15' 64800002 LINE ,(1,1) 64860002 ROUTINE C3LB,ROUT1 64920002 LABEL 'LB' 64980002 LINE ,(24,1) 65040002 LABEL 'CONTROL REGISTER 0 BITS 16-31' 65100002 LINE ,(13,1) 65160002 LABEL 'P 16 17 18 19 CC CT 22 23 P IT IK ES 27 28 29 30 31' 65220002 LINE ,(1,1) 65280002 ROUTINE C3LC,ROUT1 65340002 LABEL 'LC' 65400002 LINE ,(24,1) 65460002 LABEL 'CONTROL REGISTER 1 BITS 0-15' 65520002 LINE ,(13,1) 65580002 LABEL 'P 0 SGMNT TABLE LGTH 7 P SGMT TAB ORG AD BITS 0-7' 65640002 LINE ,(1,1) 65700002 ROUTINE C3LD,ROUT1 65760002 LABEL 'LD' 65820002 LINE ,(24,1) 65880002 LABEL 'CONTROL REGISTER 1 BITS 16-31' 65940002 LINE ,(13,1) 66000002 LABEL 'P SGMNT TABLE ORG ADDR BITS 8-17 26 27 28 29 30 31' 66060002 LINE ,(1,1) 66120002 ROUTINE C3LE,ROUT1 66180002 LABEL 'LE' 66240002 LINE ,(24,1) 66300002 LABEL 'CONTROL REGISTER 2 BITS 0-15' 66360002 LINE ,(13,1) 66420002 LABEL 'P 0 1 2 CHANNEL 6 7 P CHANNEL 12 13 14 15' 66480002 LINE ,(1,1) 66540002 ROUTINE C3LF,ROUT1 66600002 LABEL 'LF' 66660002 LINE ,(24,1) 66720002 LABEL 'CONTROL REGISTER 2 BITS 16-31' 66780002 LINE ,(13,1) 66840002 LABEL 'P 16 17 18 19 20 21 22 23 P 24 25 26 27 28 29 30 31' 66900002 LINE ,(1,1),SKIP=3 66960002 ROUTINE C3LG,ROUT1 67020002 LABEL 'LG' 67080002 LINE ,(1,1),SKIP=3 67140002 LABEL 'LH' 67200002 LINE ,(1,1),SKIP=3 67260002 LABEL 'LJ' 67320002 LINE ,(1,1),SKIP=3 67380002 LABEL 'LK' 67440002 LINE ,(1,1),SKIP=3 67500002 LABEL 'LL' 67560002 LINE ,(19,1),SKIP=1 67620002 MFC5 LABEL 'M/F FRAME C5 CONTROL REGISTERS' 67680002 LINE ,(24,1) 67740002 LABEL 'CONTROL REGISTER 8 BITS 0-15' 67800002 LINE ,(13,1) 67860002 LABEL 'P 0 1 2 3 4 5 6 7 P 8 9 10 11 12 13 14 15' 67920002 LINE ,(1,1) 67980002 ROUTINE C5LB,ROUT1 68040002 LABEL 'LB' 68100002 LINE ,(24,1) 68160002 LABEL 'CONTROL REGISTER 8 BITS 16-31' 68220002 LINE ,(13,1) 68280002 LABEL 'P 16 17 18 19 20 21 22 23 P 24 25 26 27 28 29 30 31' 68340002 LINE ,(1,1) 68400002 ROUTINE C5LC,ROUT1 68460002 LABEL 'LC' 68520002 LINE ,(24,1) 68580002 LABEL 'CONTROL REGISTER 9 BITS 0-15' 68640002 LINE ,(13,1) 68700002 LABEL 'P SB FTH SA GA 4 5 6 7 P 8 9 10 11 12 13 14 15' 68760002 LINE ,(1,1) 68820002 ROUTINE C5LD,ROUT1 68880002 LABEL 'LD' 68940002 LINE ,(24,1) 69000002 LABEL 'CONTROL REGISTER 9 BITS 16-31' 69060002 LINE ,(13,1) 69120002 LABEL 'P 0 1 2 3 4 5 6 7 P 8 9 10 11 12 13 14 15' 69180002 LINE ,(1,1) 69240002 ROUTINE C5LE,ROUT1 69300002 LABEL 'LE' 69360002 LINE ,(24,1) 69420002 LABEL 'CONTROL REGISTER 10 BITS 0-15' 69480002 LINE ,(13,1) 69540002 LABEL 'P 0 1 2 3 4 5 6 7 P 8 9 10 11 12 13 14 15' 69600002 LINE ,(1,1) 69660002 ROUTINE C5LF,ROUT1 69720002 LABEL 'LF' 69780002 LINE ,(24,1) 69840002 LABEL 'CONTROL REGISTER 10 BITS 16-31' 69900002 LINE ,(13,1) 69960002 LABEL 'P 16 17 18 19 20 21 22 23 P 24 25 26 27 28 29 30 31' 70020002 LINE ,(1,1) 70080002 ROUTINE C5LG,ROUT1 70140002 LABEL 'LG' 70200002 LINE ,(24,1) 70260002 LABEL 'CONTROL REGISTER 11 BITS 0-15' 70320002 LINE ,(13,1) 70380002 LABEL 'P 0 1 2 3 4 5 6 7 P 8 9 10 11 12 13 14 15' 70440002 LINE ,(1,1) 70500002 ROUTINE C5LH,ROUT1 70560002 LABEL 'LH' 70620002 LINE ,(24,1) 70680002 LABEL 'CONTROL REGISTER 11 BITS 16-31' 70740002 LINE ,(13,1) 70800002 LABEL 'P 16 17 18 19 20 21 22 23 P 24 25 26 27 28 29 30 31' 70860002 LINE ,(1,1),SKIP=3 70920002 ROUTINE C5LJ,ROUT1 70980002 LABEL 'LJ' 71040002 LINE ,(1,1),SKIP=3 71100002 LABEL 'LK' 71160002 LINE ,(1,1),SKIP=3 71220002 LABEL 'LL' 71280002 LINE ,(19,1),SKIP=1 71340002 MFC6 LABEL 'M/F FRAME C6 CONTROL REGISTERS' 71400002 LINE ,(1,1),SKIP=3 71460002 LABEL 'LB' 71520002 LINE ,(1,1),SKIP=3 71580002 LABEL 'LC' 71640002 LINE ,(1,1),SKIP=3 71700002 LABEL 'LD' 71760002 LINE ,(1,1),SKIP=1 71820002 LABEL 'LE' 71880002 LINE ,(24,1),SKIP=1 71940002 LABEL 'CONTROL REGISTER 14 BITS 0-15' 72000002 LINE ,(13,1), 72060002 LABEL 'P HS SM ELM 3 RMR 5 DRM 7 P AM AFL 10 11 12 13 14 15' 72120002 LINE ,(1,1) 72180002 ROUTINE C6LF,ROUT1 72240002 LABEL 'LF' 72300002 LINE ,(24,1) 72360002 LABEL 'CONTROL REGISTER 14 BITS 16-31' 72420002 LINE ,(13,1) 72480002 LABEL 'P 16 17 18 19 20 21 22 23 P 24 25 26 27 28 29 30 31' 72540002 LINE ,(1,1) 72600002 ROUTINE C6LG,ROUT1 72660002 LABEL 'LG' 72720002 LINE ,(24,1) 72780002 LABEL 'CONTROL REGISTER 15 BITS 0-15' 72840002 LINE ,(13,1) 72900002 LABEL 'P 0 1 2 3 4 5 6 7 P 8 9 10 11 12 13 14 15' 72960002 LINE ,(1,1) 73020002 ROUTINE C6LH,ROUT1 73080002 LABEL 'LH' 73140002 LINE ,(24,1) 73200002 LABEL 'CONTROL REGISTER 15 BITS 16-31' 73260002 LINE ,(13,1) 73320002 LABEL 'P 16 17 18 19 20 21 22 23 P 24 25 26 27 28 29 30 31' 73380002 LINE ,(1,1),SKIP=3 73440002 ROUTINE C6LJ,ROUT1 73500002 LABEL 'LJ' 73560002 LINE ,(1,1),SKIP=3 73620002 LABEL 'LK' 73680002 LINE ,(1,1),SKIP=3 73740002 LABEL 'LL' 73800002 LINE ,,SKIP=1 73860002 ROUTINE XKEY,ISITVS2 73920002 LABEL '' 73980002 LINE ,,SKIP=1 74040002 ROUTINE B6LG,SKIPPER 74100002 LABEL '' 74160002 LINE ,(19,1),SKIP=2 74220002 LABEL 'MACHINE CHECK STATUS FIELD' 74280002 LINE (41,),(1,),SKIP=1 74340002 HEX DARLNGTH,0,2B 74400002 LABEL 'MCSTATD FIELD LENGTH' 74460002 LINE ,(5,) 74520002 LABEL '--- SYSTEM STATUS ---' 74580002 LINE (35,35),(1,40) 74640002 BIN SYSSTAT0 74700002 BIN SYSSTAT1 74760002 LABEL 'HARDWARE RECOVERY','SOFTWARE RECOVERY' 74820002 LINE 74880002 BIN SYSSTAT2 74940002 BIN SYSSTAT3 75000002 LABEL 'TASK ABORTED','TASK SET NON-DISPATCHABLE' 75060002 LINE 75120002 BIN SYSSTAT4 75180002 BIN SYSSTAT5 75240002 LABEL 'OPERATING SYSTEM TERMINATION','QUIET MODE IN EFFECT' 75300002 LINE ,(5,) 75360002 LABEL '--- DAMAGE AREA ---' 75420002 LINE ,(1,40) 75480002 BIN AREADT0 75540002 BIN AREADT1 75600002 LABEL 'MAIN STORAGE','BUFFER' 75660002 LINE 75720002 BIN AREADT2 75780002 BIN AREADT3 75840002 LABEL 'CONTROL STORAGE','INTERVAL TIMER' 75900002 LINE 75960002 BIN AREADT4 76020002 BIN AREADT5 76080002 LABEL 'PROCESSOR','CHANNEL ERROR' 76140002 LINE 76200002 BIN AREADT6 76260002 BIN AREADT7 76320002 LABEL 'TOD CLOCK','SYSTEM DAMAGE' 76380002 LINE ,(5,) 76440002 LABEL '--- ERROR TYPE ---' 76500002 LINE ,(1,40) 76560002 BIN ERRTYPE0 76620002 BIN ERRTYPE1 76680002 LABEL 'INTERMITTENT','SOLID' 76740002 LINE 76800002 BIN ERRTYPE2 76860002 BIN ERRTYPE3 76920002 LABEL 'DATA','RESERVED' 76980002 LINE 77040002 BIN ERRTYPE4 77100002 BIN ERRTYPE5 77160002 LABEL 'RESERVED','PROTECT' 77220002 LINE ,(5,) 77280002 LABEL '--- RMS ACTION DATA ---' 77340002 LINE ,(1,40) 77400002 BIN RMSACTN0 77460002 BIN RMSACTN1 77520002 LABEL 'LOOP TIME OUT','REPAIR' 77580002 LINE 77640002 BIN RMSACTN2 77700002 BIN RMSACTN3 77760002 LABEL 'STORAGE RECONFIGURE','BUFFER RECONFIGURE' 77820002 LINE ,(5,) 77880002 LABEL '--- RMS INFORMATION STATUS ---' 77940002 LINE ,(1,40) 78000002 BIN RMSINFO0 78060002 BIN RMSINFO1 78120002 LABEL 'RESERVED','INVALID MCI CODE' 78180002 LINE 78240002 BIN RMSINFO2 78300002 BIN RMSINFO3 78360002 LABEL 'INVALID FAILING STORAGE ADDRESS','PROGRAM CHECK IN MCH' 78420002 LINE (15,),(5,),SKIP=1 78480002 LABEL '--- HISTORY OF TRANSIENT MODULES ---' 78540002 LINE (1,15) 78600002 HEX TRNSMOD0,1,4B 78660002 HEX TRNSMOD1,1,4B 78720002 HEX TRNSMOD2,1,4B 78780002 HEX TRNSMOD3,1,4B 78840002 LABEL '' 78900002 LINE ,,SKIP=2 78960002 HEX TRNSMOD4,1,4B 79020002 HEX TRNSMOD5,1,4B 79080002 HEX TRNSMOD6,1,4B 79140002 HEX TRNSMOD7,1,4B 79200002 LABEL '' 79260002 LINE ,(5,),SKIP=1 79320002 LABEL '--- PDAR ACTION ---' 79380002 LINE (35,35),(1,40) 79440002 BIN MCHPDR00 79500002 BIN MCHPDR01 79560002 LABEL 'TERMINATION OF CURRENT TASK','RETRY POSSIBLE' 79620002 LINE 79680002 BIN MCHPDR02 79740002 BIN MCHPDR03 79800002 LABEL 'BYPASS(AFFECTED TASK) POSSIBLE','REPAIR UNSUCCESSFUL' 79860002 LINE 79920002 BIN MCHPDR04 79980002 BIN MCHPDR05 80040002 LABEL 'INDETERMINATE INSTRUCTION COUNTER','RESERVED' 80100002 LINE ,(5,) 80160002 LABEL '--- FAILURE TYPE ---' 80220002 LINE ,(1,40) 80280002 BIN MCHPDR10 80340002 BIN MCHPDR11 80400002 LABEL 'SOLID STORAGE DATA ERROR','INTERMITTENT STOR. DATA ERR' 80460002 LINE 80520002 BIN MCHPDR12 80580002 BIN MCHPDR13 80640002 LABEL 'SOLID SPF KEY ERROR','INTERMITTENT SPF KEY ERROR' 80700002 LINE ,(5,) 80760002 LABEL '--- OPERATING SYSTEM STATUS ---' 80820002 LINE ,(1,40) 80880002 BIN MCHPDR20 80940002 BIN MCHPDR21 81000002 LABEL 'WAIT PSEUDO TASK','PAGE SUPERVISOR TASK' 81060002 LINE 81120002 BIN MCHPDR22 81180002 BIN MCHPDR23 81240002 LABEL 'MASTER SCHEDULER TASK','SYSTEM TASK' 81300002 LINE 81360002 BIN MCHPDR24 81420002 BIN MCHPDR25 81480002 LABEL 'PROBLEM PROGRAM TASK','CURRENT PSW DISABLED FOR I/O' 81540002 LINE ,(5,) 81600002 LABEL '--- LOCATION OF FAILURE ---' 81660002 LINE ,(1,40) 81720002 BIN MCHPDR30 81780002 BIN MCHPDR31 81840002 LABEL 'NUCLEUS','SQA AREA' 81900002 LINE 81960002 BIN MCHPDR32 82020002 BIN MCHPDR33 82080002 LABEL 'LSQA AREA','PQA' 82140002 LINE 82200002 BIN MCHPDR34 82260002 BIN MCHPDR35 82320002 LABEL 'PAGEABLE AREA','FIXED PAGE AREA' 82380002 LINE 82440002 BIN MCHPDR36 82500002 BIN MCHPDR37 82560002 LABEL 'V=R ADDRESS AREA','CRITICAL AREA' 82620002 LINE ,(5,) 82680002 LABEL '--- REQUESTED OPERATOR AWARENESS ---' 82740002 LINE ,(1,40) 82800002 BIN MCHPDR50 82860002 BIN MCHPDR51 82920002 LABEL 'SUPERVISOR DAMAGE MESSAGE','TASK ABNORM TERMINATION MSGC82980002 ' 83040002 LINE 83100002 BIN MCHPDR52 83160002 BIN MCHPDR53 83220002 LABEL 'DAMAGED PAGE NOW UNAVAILABLE MSG','DAMAGED PAGE NOW DELC83280002 ETED MSG' 83340002 LINE 83400002 BIN MCHPDR54 83460002 BIN MCHPDR55 83520002 LABEL 'TASK NON-DISPATCHABLE MESSAGE','SOFTWARE RECOVERY MESSAC83580002 GE' 83640002 LINE ,(5,) 83700002 LABEL '--- FOOTPRINTS ---' 83760002 LINE ,(1,40) 83820002 BIN MCHPDR60 83880002 BIN MCHPDR61 83940002 LABEL 'CHANGE BIT ACTIVE','KEY IN EXTERNAL PAGE TABLE' 84000002 LINE 84060002 BIN MCHPDR62 84120002 BIN MCHPDR63 84180002 LABEL 'PAGE RECURSION','PAGE FIX ACTIVE IN LOW END' 84240002 LINE 84300002 BIN MCHPDR64 84360002 BIN MCHPDR65 84420002 LABEL 'TRANSLATE ERROR','NO PAGE EXISTS' 84480002 LINE 84540002 BIN MCHPDR66 84600002 BIN MCHPDR67 84660002 LABEL 'RELOCATE OFF','LOW END INTERFACE ACTIVE' 84720002 LINE ,(5,) 84780002 LABEL '--- FOOTPRINTS - INTERFACES ---' 84840002 LINE ,(1,40) 84900002 BIN MCHPDR70 84960002 BIN MCHPDR71 85020002 LABEL 'ABTERM INTERFACE ACTIVE','TRANSLATE INTERFACE ACTIVE' 85080002 LINE 85140002 BIN MCHPDR72 85200002 BIN MCHPDR73 85260002 LABEL 'FIND PAGE INTERFACE ACTIVE','PAGE DEQUEUE INTERFACE ACTC85320002 .' 85380002 LINE 85440002 BIN MCHPDR74 85500002 BIN MCHPDR75 85560002 LABEL 'PAGE ENQUEUE INTERFACE ACTIVE', C85620002 'STAT FUNCTION INTERFACE ACT.' 85680002 LINE ,,SKIP=2 85740002 BIN MCHPDR76 85800002 BIN MCHPDR77 85860002 LABEL 'V=R RELEASE INTERFACE ACTIVE','POST INTERFACE ACTIVE' 85920002 LINE (45,1),(1,),SKIP=1 85980002 HEX MCHFSAR,0,4B 86040002 LABEL 'FAILING STORAGE REAL ADDRESS' 86100002 LINE 86160002 HEX MCHFSAV,0,4B 86220002 LABEL 'BEGINNING FAILING STORAGE VIRTUAL ADDRESS' 86280002 LINE 86340002 HEX MCHFSEAV,0,4B 86400002 LABEL 'ENDING FAILING STORAGE VIRTUAL ADDRESS' 86460002 LINE 86520002 HEX MCHPDARI,0,4B 86580002 LABEL 'INSTRUCTION ADDRESS AT FAILURE' 86640002 LINE ,,SKIP=2 86700002 HEX MCHTCBCU,0,4B 86760002 LABEL 'CURRENT TCB POINTER' 86820002 LINE ,,SKIP=1 86880002 LABEL '' 86940002 LINE , 87000002 ROUTINE XKEY,NOTVS2 87060002 LABEL '' 87120002 LINE1 LINE ,(52,),SKIP=2 87180002 ROUTINE XKEY,SKIPPER 87240002 LAB1 LABEL 'MACHINE-CHECK-ERROR INDICATORS' 87300002 LINE (5,35),(1,31) 87360002 ROUTINE XKEY,SKIPPER 87420002 LABEL 'TERMINAL ERROR FLAGS','HARD-MACHINE ERROR FLAGS', X87480002 'INTERMEDIATE ERROR','SOFT-MACHINE-ERROR FLAGS' 87540002 LINE (26,31),(1,31),SKIP=1 87600002 BIN (MCETEF0),(MCEMEF0),(MCEIEF0),(MCESEF0) 87660002 LABEL 'RESERVED','ASSUMED HD ERR FLG','RESERVED', X87720002 'ASSUMED SOFT ERROR ' 87780002 LINE , 87840002 BIN (MCETEF1),(MCEMEF1),(MCEIEF1),(MCESEF1) 87900002 LABEL 'RESERVED','RESERVED','RESERVED','RESERVED' 87960002 LINE , 88020002 BIN (MCETEF2),(MCEMEF2),(MCEIEF2),(MCESEF2) 88080002 LABEL 'RESERVED','RESERVED','RESERVED','RESERVED' 88140002 LINE , 88200002 BIN (MCETEF3),(MCEMEF3),(MCEIEF3),(MCESEF3) 88260002 LABEL 'SECONDARY ERROR FLAG','RESERVED','RESERVED','RESERVED' 88320002 LINE , 88380002 BIN (MCETEF4),(MCEMEF4),(MCEIEF4),(MCESEF4) 88440002 LABEL 'CHECK STOP FLAG','REG/PSW INVALID FLAG', X88500002 'TOD CLOCK ERROR FLAG','EXT DAMAGE FLAG' 88560002 LINE , 88620002 BIN (MCETEF5),(MCEMEF5),(MCEIEF5),(MCESEF5) 88680002 LABEL 'POWER WARNING FLAG','HARD STOR. ERR. FLAG', X88740002 'CLOCK COMP ERR. FLAG','ECC CORR. STOR. ERR. FLG' 88800002 LINE , 88860002 BIN (MCETEF6),(MCEMEF6),(MCEIEF6),(MCESEF6) 88920002 LABEL 'SYS. DAMAGE FLAG','HARD PROTECT. KEY ERR.', X88980002 'CPU TIMER ERR. FLAG','HIR CORR PROC. ERR FG' 89040002 LINE ,SKIP=2 89100002 BIN (MCETEF7),(MCEMEF7),(MCEIEF7),(MCESEF7) 89160002 LABEL 'INVALID LOGOUT FLAG','INST. PROC. DAMAGE FLAG', X89220002 'INTERVAL TIMER ERR. FLAG','BUFFER ERR. FLAG' 89280002 LINE ,(30),SKIP=2 89340002 ROUTINE XKEY,SKIPPER 89400002 LABEL 'PROGRAM DAMAGE ASSESSMENT AND REPAIR' 89460002 LINE (30,32),(1,35),SKIP=2 89520002 ROUTINE XKEY,SKIPPER 89580002 LABEL 'PDAR DATA','STOR. RECONFIG. STATUS', X89640002 'STORAGE RECONFIG. STATUS' 89700002 LINE (26,32),(1,32),SKIP=1 89760002 BIN (PDAR00),(PDAR10),(PDAR20) 89820002 LABEL 'RESERVED','RESERVED','FR OFF LN/SCHED OFF LN' 89880002 LINE , 89940002 BIN (PDAR01),(PDAR11),(PDAR21) 90000002 LABEL 'RESERVED','RESERVED','INTERCEPT' 90060002 LINE , 90120002 BIN (PDAR02),(PDAR12),(PDAR22) 90180002 LABEL 'RESERVED','RESERVED','PERM. ERR. IN FRAME' 90240002 LINE , 90300002 BIN (PDAR03),(PDAR13),(PDAR23) 90360002 LABEL 'STORAGE RECONFIG.','RESERVED', X90420002 'FRAME-PERM. RES. SYS.' 90480002 LINE , 90540002 BIN (PDAR04),(PDAR14),(PDAR24) 90600002 LABEL 'STOR. REFIG. STST AVAIL.','RESERVED','FRAME USE SQA' 90660002 LINE , 90720002 BIN (PDAR05),(PDAR15),(PDAR25) 90780002 LABEL 'STOR REFIG. NOT ATTEMP.','RESERVED','FRAME USE LSQA' 90840002 LINE , 90900002 BIN (PDAR06),(PDAR16),(PDAR26) 90960002 LABEL 'RESERVED','STOR ERR SET IN FRAME','FRAME-FIXED PG DATA' 91020002 LINE ,,SKIP=2 91080002 BIN (PDAR07),(PDAR17),(PDAR27) 91140002 LABEL 'RESERVED','FRAME-CHG IND. ON','FRAME-IS V=R OR SCHED.' 91200002 LINE (25,30),(1,),SKIP=2 91260002 HEX WDSIZE 91320002 LABEL 'PHYSICAL WORD LENGTH' 91380002 LINE ,,SKIP=1 91440002 LABEL '' 91500002 VS2DUMP LINE , @XA21819 91560001 ROUTINE XKEY,DUMPSET @XA21819 91580001 LABEL '' @XA21819 91600001 DC XL1'FF' @XA21819 91620001 DUMPSIZE DC AL2(0) @XA21819 91640001 DC AL2(48) 91680002 DC AL2(232) 91740002 *********************************************************************** 91800002 * ***** LABEL AREA ***** 91860002 *********************************************************************** 91920002 LABLAREA EQU * 92220002 LSTART 92280002 END 92340002