TITLE 'IFCETRN2 FOR EREP SUPPORT OF 3705/27RN' 00050002 EJECT 00100002 * DSGEN MACRO DSGEN MACRO DSGEN MACRO DSGEN MACRO * 00150002 SPACE 2 00200002 * DSGEN MACRO DSGEN MACRO DSGEN MACRO DSGEN MACRO * 00250002 SPACE 2 00300002 MACRO 00350002 &NAME DSGEN 00400002 .* THIS MACRO GENERATES ONE DSECT WORD 00450002 .* FORMATTED FOR THE SUBJECT LOG RECORD 00500002 .* EACH OPERAND HAS TWO SUB LISTS. THE 00550002 .* FIRST IS THE NAME OF THE LOG ITEM 00600002 .* WHILE THE SECOND IS THE # OF BITS TO 00650002 .* ALLOCATE FOR THIS ITEM. ITEMS MUST 00700002 .* BE DEFINED CONTIGUOUSLY WITHOUT GAPS 00750002 .* UNUSED BIT GROUPS MUST BE GIVEN 00800002 .* DUMMY NAMES. THE NAMES PROVIDED FOR 00850002 .* THE LOG ITEMS MAY THEN BE USED IN 00900002 .* THE CONVERSION MACRO INSTRUCTIONS. 00950002 GBLC &ITEM(1000) 01000002 GBLA &ITEMNBR,&BITS(1000),&SHIFT(1000) 01050002 LCLB &ONLY1,&CTIND 01100002 LCLA &START1,&START2,&END1,&END2 01150002 LCLC &SYMBOL,&EQUSYM 01200002 LCLA &OP,&COUNT,&BYTE,&EQUCNT 01250002 ACTR 100000 01300002 .START AIF (N'&SYSLIST(&OP+1) LT 3).LOOP 01350002 AIF ('&SYSLIST(&OP+1,3)' EQ 'EQU').LOOP TEST FOR EQU 01400002 AIF ('&SYSLIST(&OP+1,3)' EQ '' OR '&SYSLIST(&OP+1,4)' EQ '').ERR1 01450002 AIF ('&SYSLIST(&OP+1,3)' GT '&SYSLIST(&OP+1,4)').ERR3 01500002 &START1 SETA &SYSLIST(&OP+1,3) GET START COUNT OF 1 01550002 &START2 SETA &SYSLIST(&OP+1,4) GET FIRST END COUNT 01600002 AGO .SET2A BRANCH AROUND 01650002 .ERR1 MNOTE '**FIRST SYMBOL CONCATENATION INCOMPLETE**' 01700002 MEXIT 01750002 .SET2A AIF ('&SYSLIST(&OP+1,5)' EQ ''AND '&SYSLIST(&OP+1,6)' EQ '' X01800002 ).SET2 TEST FOR NO SECOND 01850002 AIF ('&SYSLIST(&OP+1,5)' EQ '' OR '&SYSLIST(&OP+1,6)' EQ '').ERR2 01900002 AIF ('&SYSLIST(&OP+1,5)' GT '&SYSLIST(&OP+1,6)').ERR3 01950002 &END1 SETA &SYSLIST(&OP+1,5) GET START COUNT OF 2 02000002 &END2 SETA &SYSLIST(&OP+1,6) GET END COUNT OF 2 02050002 AGO .LOOP 02100002 .SET2 ANOP 02150002 &ONLY1 SETB 1 INDICATE ONLY ONE CONCATENATION 02200002 AGO .LOOP 02250002 .ERR2 MNOTE '**SECOND SYMBOL CONCATENATION INCOMPLETE**' 02300002 MEXIT 02350002 .ERR3 MNOTE '**START GREATER THAN END CONCATENATION**' 02400002 MEXIT 02450002 .LOOP ANOP 02500002 &OP SETA &OP+1 02550002 AIF (&OP GT N'&SYSLIST).DONE TEST IF ALL DONE 02600002 &ITEMNBR SETA &ITEMNBR+1 02650002 AIF ('&SYSLIST(&OP,2)' NE '').OK1 02700002 MNOTE '**NULL BIT COUNT FIELD**' 02750002 MEXIT 02800002 .OK1 ANOP 02850002 &SYMBOL SETC '&SYSLIST(&OP,1)' 02900002 AIF ('&SYMBOL' NE '').OK 02950002 * ***** LOG ITEM SYMBOL NOT PROVIDED ***** 03000002 AIF ('&SYSLIST(&OP,3)' NE 'EQU').CNT 03050002 AGO .START GET NEXT 03100002 .OK AIF (N'&SYSLIST(&OP) LT 3).NO3 TEST FOR OLD FORMAT 03150002 AIF ('&SYSLIST(&OP,3)' EQ 'EQU').EQU TEST FOR EQU 03200002 AIF (&ONLY1).OK2 TEST FOR ONLY ONE CONCAT 03250002 &SYMBOL SETC '&SYMBOL.&START1.&END1' GET 1 AND 2 CONCAT 03300002 AGO .NO3 BRANCH AROUND 03350002 .OK2 ANOP 03400002 &SYMBOL SETC '&SYMBOL.&START1' GET 1 CONCATENATED 03450002 .NO3 ANOP 03500002 &SYMBOL EQU *+&BYTE 03550002 &ITEM(&ITEMNBR) SETC '&SYMBOL' GET LABEL IN GLOBAL 03600002 &BITS(&ITEMNBR) SETA &SYSLIST(&OP,2) 03650002 &SHIFT(&ITEMNBR) SETA &COUNT-&BYTE*8 03700002 .CNT ANOP 03750002 &CTIND SETB 1 SET COUNT INDICATOR 03800002 &COUNT SETA &COUNT+&SYSLIST(&OP,2) 03850002 &BYTE SETA &COUNT/8 03900002 AIF (N'&SYSLIST(&OP) LT 3).START TEST FOR OLD FORMAT 03950002 AIF (&ONLY1).TSTST TEST FOR ONLY ONE CONCAT 04000002 AIF (&END1 EQ &END2).TSTST TEST FOR SECOND END 04050002 &END1 SETA &END1+1 INCREMENT COUNT 04100002 &OP SETA &OP-1 DECREMENT INCREMENT 04150002 AGO .LOOP GENERATE NEXT 04200002 .TSTST ANOP 04250002 AIF (&START1 EQ &START2).LPDONE TEST FOR END 04300002 AIF (&ONLY1).NSET1 TEST FOR ONLY ONE CONCAT 04350002 &END1 SETA &SYSLIST(&OP,5) RE-INIT SECOND START COUNT 04400002 .NSET1 ANOP 04450002 &OP SETA &OP-1 DECREMENT INDEX 04500002 &START1 SETA &START1+1 INCREMENT FIRST COUNT 04550002 AGO .LOOP GO DO NEXT 04600002 .LPDONE ANOP 04650002 &ONLY1 SETB 0 CLEAR INDICATOR 04700002 AGO .START GO TEST FOR MORE SUB-LISTS 04750002 .DONE AIF (&COUNT-&COUNT/8*8 NE 0).ERR TEST FOR MULTIPLE OF EIGHT 04800002 AIF (&CTIND EQ 0).END NO DS IF NO COUNT 04850002 &COUNT SETA &COUNT/8 GET NUMBER OF BYTES 04900002 &NAME DS &COUNT.C 04950002 .END MEXIT 05000002 .ERR MNOTE '**BIT COUNT FLDS DO NOT TOTAL MULTIPLE OF 8**' 05050002 MEXIT 05100002 .EQU AIF ('&SYSLIST(&OP,4)' NE '').EQU1 TEST FOR NULL LABEL 05150002 .ERR4 MNOTE '**EQU OPERAND OMITTED OR NOT FOUND**' 05200002 MEXIT 05250002 .EQU1 AIF (&SYSLIST(&OP,2) LT 16).EQU2 COUNT OVER FIFTEEN 05300002 ***** THE FOLLOWING STATEMENT ***** 05350002 ***** NUMBER OF BITS EXCEED 15 - DO NOT USE AS BIN ***** 05400002 .EQU2 ANOP 05450002 &EQUCNT SETA 0 CLEAR COUNTER 05500002 &EQUSYM SETC '&SYSLIST(&OP,4)' GET EQU OPERAND 05550002 .EQULOP ANOP 05600002 &EQUCNT SETA &EQUCNT+1 INCREMENT INDEX 05650002 AIF ('&ITEM(&EQUCNT)' EQ '&EQUSYM').EQUOUT LABEL FOUND? 05700002 AIF (&EQUCNT EQ &ITEMNBR).ERR4 ALL TESTED? 05750002 AGO .EQULOP NO-GET NEXT 05800002 .EQUOUT ANOP 05850002 &ITEM(&ITEMNBR) SETC '&SYMBOL' GET LABEL NAME 05900002 &BITS(&ITEMNBR) SETA &SYSLIST(&OP,2) GET NUMBER OF BITS 05950002 &SHIFT(&ITEMNBR) SETA &SHIFT(&EQUCNT) GET SHIFT COUNT 06000002 &SYMBOL EQU &EQUSYM THIS SYMBOL EQUATED 06050002 AGO .START RETURN FOR NEXT 06100002 MEND 06150002 EJECT 06200002 MACRO 06250002 LINEND 06300002 .* THIS MACRO IS USED ONLY BY THE LINE 06350002 .* MACRO TO SET THE NUMBER OF ENTRIES 06400002 .* ASSOCIATED WITH EACH LINE. 06450002 GBLA &NRENTS 06500002 GBLC &NRENTSX 06550002 AIF (&NRENTS EQ 0).NORENTS TEST FOR NO COUNT 06600002 ORG &NRENTSX 06650002 DC FL1'&NRENTS' 06700002 ORG 06750002 &NRENTS SETA 0 06800002 .NORENTS ANOP 06850002 B&SYSNDX EQU * 06900002 &NRENTSX SETC 'B&SYSNDX' 06950002 MEND 07000002 EJECT 07050002 MACRO 07100002 BIN 07150002 .* &SYSLIST(&OP,1) - NAME OF LOG ITEM 07200002 .* RECORD DSECT 07250002 .* $SYSLIST(&OP,2) - NBR OF SPACES 07300002 .* TO SKIP ON MULTIPLE 07350002 .* PRINT OR NBR OF SPACES 07400002 .* TO BACK UP FROM COLUMN FOR 07450002 .* START OF PRINTING. THE LETTER 07500002 .* B PRECEEDS THE NUMBER (B5) IF 07550002 .* THE LATTER IS DESIRED. OMISSION 07600002 .* OF THIS OPERAND FORCES OPTION 2 07650002 .* WITH BACKUP SPACING EQUAL TO 07700002 .* THE NUMBER OF BITS IN THE ITEM 07750002 .* DEFINITION (VIA MACRO 'DSGEN'). 07800002 .* A LIMIT OF 15 BITS IS IMPOSED FOR THE 07850002 .* TOTAL NUMBER OF BITS TO PRINT. 07900002 GBLA &INITIAL 07950002 GBLB &DIAGTST,&DIAGSET,&DIAGLIN 08000002 GBLC &ITEM(1000) 08050002 GBLA &ITEMNBR,&BITS(1000),&SHIFT(1000),&NRENTS 08100002 GBLC &DSECT 08150002 LCLB &B,&SUB 08200002 LCLA &IBITS,&NDX,&ISHIFT,&K 08250002 LCLA &TEMP,&T,&OP 08300002 LCLC &S 08350002 AIF (&DIAGTST EQ 0).NOMSG 08400002 AIF (&INITIAL EQ 0).NOMSG 08450002 AIF (&DIAGLIN EQ 1).NOMSG 08500002 MNOTE '**NO LINE ASSOCIATED WITH THIS DATA**' 08550002 *****THE FOLLOWING GENERATED FOR TEST PURPOSES***** 08600002 * LINE 08650002 LINE 08700002 .NOMSG ANOP 08750002 AIF (K'&SYSLIST(1) EQ K'&SYSLIST(1,1)).LOOP 08800002 &SUB SETB 1 08850002 .LOOP ANOP 08900002 &OP SETA &OP+1 08950002 .LOOP1 ANOP 09000002 &NDX SETA &NDX+1 09050002 AIF ('&ITEM(&NDX)' EQ '&SYSLIST(&OP,1)').FOUND 09100002 AIF (&NDX LT &ITEMNBR).LOOP1 09150002 MNOTE '**LOG ITEM NOT DEFINED**' 09200002 MEXIT 09250002 .FOUND ANOP 09300002 &ISHIFT SETA &SHIFT(&NDX) 09350002 &IBITS SETA &BITS(&NDX) 09400002 &T SETA &IBITS-1 09450002 &B SETB 0 09500002 AIF (&IBITS GT 0 AND &IBITS LT 16).SUB0 09550002 MNOTE '**NO. OF BITS OUTSIDE RANGE OF 1-15**' 09600002 MEXIT 09650002 .SUB0 AIF (&SUB EQ 1).SUBA 09700002 AIF ('&SYSLIST(2)' EQ '').BACKUP 09750002 &K SETA K'&SYSLIST(2) 09800002 &B SETB ('&SYSLIST(2)'(1,1) EQ 'B') 09850002 &S SETC '&SYSLIST(2)'(&B+1,&K-&B) 09900002 AGO .SUBB 09950002 .SUBA ANOP 10000002 AIF ('&SYSLIST(&OP,2)' EQ '').BACKUP 10050002 &K SETA K'&SYSLIST(&OP,2) 10100002 &B SETB ('&SYSLIST(&OP,2)'(1,1) EQ 'B') 10150002 &S SETC '&SYSLIST(&OP,2)'(&B+1,&K-&B) 10200002 .SUBB ANOP 10250002 &T SETA &S 10300002 .BACKUP ANOP 10350002 &NRENTS SETA &NRENTS+1 10400002 &TEMP SETA &ISHIFT 10450002 AIF (&IBITS NE 1 OR &B NE 0).BIN2 10500002 DC AL.12(&SYSLIST(&OP,1)-&DSECT),XL.4'&TEMP' 10550002 AGO .OUT 10600002 .BIN2 AIF ('&SYSLIST(&OP,2)' NE '').BIN3 10650002 &B SETB 1 10700002 .BIN3 ANOP 10750002 DC AL.12(&SYSLIST(&OP,1)-&DSECT),XL.4'C' 10800002 DC BL.1'&B',AL.7(&T),AL.4(&IBITS),FL.4'&ISHIFT' 10850002 .OUT ANOP 10900002 &NDX SETA 0 10950002 AIF (&SUB EQ 0).OUTA 11000002 AIF (&OP LT N'&SYSLIST).LOOP 11050002 .OUTA ANOP 11100002 MEND 11150002 EJECT 11200002 MACRO 11250002 LSTART 11300002 .* THIS MACRO IS ISSUED WHEN THE LABEL AREA 11350002 .* OF THE TABLE IS TO BEGIN. 11400002 GBLA &LABELNR 11450002 GBLC &LBL(100) 11500002 GBLC &LABELS(2000) 11550002 GBLA &LBLCTR(100) 11600002 GBLB &DIAGTST,&DIAGSET,&DIAGLIN 11650002 LCLA &NDX,&CTR 11700002 AIF (&DIAGTST EQ 0).NODIAG 11750002 AIF (&DIAGSET EQ 0).NODIAG 11800002 MNOTE '**NO LABEL ASSOCIATED WITH LAST SET**' 11850002 ***** THE FOLLOWING GENERATED FOR TEST PURPOSES ***** 11900002 * LABEL '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%' 11950002 LABEL '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%' 12000002 .NODIAG ANOP 12050002 LINEND 12100002 &CTR SETA 1 12150002 .LOOP ANOP 12200002 &NDX SETA &NDX+1 12250002 AIF (&LBLCTR(&CTR) NE &NDX).NOLBL 12300002 &LBL(&CTR) DC C'&LABELS(&NDX)' 12350002 &CTR SETA &CTR+1 12400002 AGO .LOOPCTL 12450002 .NOLBL ANOP 12500002 DC C'&LABELS(&NDX)' 12550002 .LOOPCTL AIF (&NDX LT &LABELNR).LOOP 12600002 MEND 12650002 EJECT 12700002 MACRO 12750002 &NAME ROUTINE &LOGITEM,&RNAME 12800002 GBLA &NRENTS 12850002 GBLC &DSECT,&CSECT 12900002 GBLA &INITIAL 12950002 GBLB &DIAGTST,&DIAGSET,&DIAGLIN 13000002 AIF (&DIAGTST EQ 0).NOMSG 13050002 AIF (&INITIAL EQ 0).NOMSG 13100002 AIF (&DIAGLIN EQ 1).NOMSG 13150002 MNOTE '**NO LINE ASSOCIATED WITH THIS ROUTINE**' 13200002 *****THE FOLLOWING GENERATED FOR TEST PURPOSES***** 13250002 * LINE 13300002 LINE 13350002 .NOMSG ANOP 13400002 &NAME DC AL.12(&LOGITEM-&DSECT),XL.4'D' 13450002 DC AL2(&RNAME-&CSECT) 13500002 &NRENTS SETA &NRENTS+1 13550002 MEND 13600002 EJECT 13650002 MACRO 13700002 &NAME LINE &DATA,&LABEL,&SKIP= 13750002 .* THIS MACRO ESTABLISHES THE MARGINS OR 13800002 .* COLUMN SETTINGS FOR EACH LINE. IT 13850002 .* GENERATES NECESSARY CARRIAGE CONTROL 13900002 .* ENTRIES. LASTLY IT DETERMINES THE 13950002 .* NUMBER OF ENTRIES ASSOCIATED WITH 14000002 .* THE PREVIOUS LINE AND STORES THAT # 14050002 .* INTO THE APPROPRIATE BYTE. 14100002 .* &DATA(1) - CHARACTER POSITION TO BEGIN 14150002 .* DATA. 14200002 .* &DATA(2) - # OF SPACES BETWEEN SUCCESSIVE 14250002 .* DATA COLUMN STARTING CHARACTERS. 14300002 .* &LABEL(1) - CHAR. POS. TO BEGIN LABELS. 14350002 .* &LABEL(2) - # SPACES BETWEEN LINE'S LABEL 14400002 .* STARTING CHARACTERS. 14450002 .* &SKIP= - # OF LINES TO ADVANCE CARRIAGE 14500002 .* TO BEGIN NEXT PRINTED LINE. 14550002 .* NEW ENTRIES ARE GENERATED ONLY WHEN 14600002 .* NECESSARY. OMISSION OF ITEMS MEANS 14650002 .* THEY HAVE NOT CHANGED SINCE PREVIOUS 14700002 .* SETTINGS. A LINE MACRO IS REQUIRED 14750002 .* FOR EACH PRINTED LINE. IF NO SETTING 14800002 .* CHANGES ARE REQUIRED ALL OPERANDS 14850002 .* ARE OMITTED IN WHICH CASE ONLY THE 14900002 .* # OF ENTRIES FOR THE PREVIOUS LINE 14950002 .* IS COMPUTED. THIS MACRO MUST BE THE 15000002 .* FIRST MACRO INSTRUCTION ISSUED FOR 15050002 .* THE SUBJECT LINE 15100002 GBLA &DB,&DT,&LB,<,&NRENTS 15150002 GBLA &LASTCC,&INITIAL 15200002 GBLC &NRENTSX 15250002 GBLC &CARRCON 15300002 GBLB &TEST 15350002 GBLB &DIAGTST,&DIAGSET,&DIAGLIN 15400002 LCLA &S 15450002 AIF (&INITIAL EQ 0 OR &DIAGTST EQ 0).DIAGSET 15500002 AIF (&DIAGSET EQ 0).DIAGSET 15550002 MNOTE '**NO LABEL ASSOCIATED WITH LAST SET**' 15600002 ***** THE FOLLOWING GENERATED FOR TEST PURPOSES ***** 15650002 * LABEL '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%' 15700002 LABEL '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%' 15750002 .DIAGSET ANOP 15800002 &DIAGSET SETB 1 15850002 &DIAGLIN SETB 1 15900002 &NAME DS 0C 15950002 AIF (&INITIAL EQ 0).FIRSTLN 16000002 LINEND 16050002 AGO .NTFIRST 16100002 .FIRSTLN ANOP 16150002 &NRENTSX SETC 'N&SYSNDX' 16200002 &INITIAL SETA 1 16250002 N&SYSNDX EQU * 16300002 .NTFIRST ANOP 16350002 DC AL1(0) 16400002 AIF ('&DATA(1)' EQ '').CKDTABS 16450002 AIF (&DATA(1) EQ &DB).CKDTABS 16500002 &DB SETA &DATA(1) 16550002 AGO .AA 16600002 .CKDTABS AIF ('&DATA(2)' EQ '').NCDATA 16650002 AIF (&DATA(2) EQ &DT).NCDATA 16700002 AGO .CC 16750002 .AA AIF ('&DATA(2)' EQ '').BB 16800002 AIF (&DATA(2) EQ &DT).BB 16850002 .CC ANOP 16900002 &DT SETA &DATA(2) 16950002 .BB DC XL2'FFFE' 17000002 DC FL1'&DB' 17050002 DC FL1'&DT' 17100002 &NRENTS SETA &NRENTS+1 17150002 .NCDATA ANOP 17200002 AIF ('&LABEL(1)' EQ '').CKLTABS 17250002 AIF (&LABEL(1) EQ &LB).CKLTABS 17300002 &LB SETA &LABEL(1) 17350002 AGO .AAA 17400002 .CKLTABS AIF ('&LABEL(2)' EQ '').NCLABEL 17450002 AIF (&LABEL(2) EQ <).NCLABEL 17500002 AGO .CCC 17550002 .AAA AIF ('&LABEL(2)' EQ '').BBB 17600002 AIF (&LABEL(2) EQ <).BBB 17650002 .CCC ANOP 17700002 < SETA &LABEL(2) 17750002 .BBB DC XL2'FFFF' 17800002 DC FL1'&LB' 17850002 DC FL1'<' 17900002 &NRENTS SETA &NRENTS+1 17950002 .NCLABEL ANOP 18000002 AIF ('&SKIP' NE '').CONT 18050002 AIF (&TEST EQ 0).NOCHANG 18100002 AGO .DEFALTA 18150002 .CONT ANOP 18200002 AIF (&TEST EQ 0).AB 18250002 AIF ('&SKIP' EQ 'E').AB 18300002 &S SETA &SKIP 18350002 .DEFAULT ANOP 18400002 AIF (&SKIP EQ &LASTCC).DEFALTA 18450002 ORG &CARRCON+3 18500002 DC AL.3(0),AL.2(&S),AL.3(1) 18550002 ORG 18600002 &LASTCC SETA &S 18650002 .DEFALTA ANOP 18700002 &TEST SETB 0 18750002 AGO .DD 18800002 .AB AIF ('&SKIP' NE 'E').ABB 18850002 A&SYSNDX DC X'FFFB8B00' EJECT 18900002 AGO .ABC 18950002 .ABB AIF (&SKIP EQ &LASTCC).NOCHANG 19000002 A&SYSNDX DC XL2'FFFB' 19050002 DC AL.3(0),AL.2(&SKIP),AL.3(1) 19100002 DC AL.3(0),AL.2(&SKIP),AL.3(1) 19150002 &LASTCC SETA &SKIP 19200002 &TEST SETB 1 19250002 .ABC ANOP 19300002 &CARRCON SETC 'A&SYSNDX' 19350002 &NRENTS SETA &NRENTS+1 19400002 .DD ANOP 19450002 .NOCHANG ANOP 19500002 MEND 19550002 EJECT 19600002 MACRO 19650002 HEX 19690002 .* THIS MACRO FACILITATES GENERATION OF THE 19730002 .* TABLE ENTRIES SPECIFYING HEX TYPE 19770002 .* CONVERSIONS. 19810002 .* &SYSLIST(&OP,1) - NAME OF DATA ITEM TO BE 19850002 .* CONVERTED 19890002 .* &SYSLIST(&OP,2) - # OF SPACES TO SKIP ON 19930002 .* MULTIPLE PRINT OR NBR OF SPACES TO 19970002 .* BACK UP FROM COLUMN FOR START OF 20010002 .* PRINTING. THE LETTER B PRECEEDS THE 20050002 .* NUMBER (B8) IF THE LATTER OPTION IS 20090002 .* DESIRED. OMISSION OF THIS OPERAND 20130002 .* FORCES OPTION 2 WITH BACKUP SPACING 20170002 .* EQUAL TO THE NUMBER OF BYTES SPECI- 20210002 .* FIED BY THE NEXT OPERAND (TWICE THIS 20250002 .* NUMBER IF SUFFIX IS EXPLICITLY OR 20290002 .* IMPLICITLY B). 20330002 .* &SYSLIST(&OP,3) - NUMBER OF BYTES TO 20370002 .* PROCESS. THIS NUMBER IS SUFFIXED 20410002 .* WITH AN L,R, OR B TO STIPULATE 20450002 .* PRINTING OF THE LEFT HALF, RIGHT 20490002 .* HALF, OR BOTH HALVES OF THE BYTE 20530002 .* RESPECTIVELY. OMISSION OF THIS 20570002 .* OPERAND DEFAULTS TO B WITH THE NUM- 20610002 .* BER OF BYTES EQUAL TO THE ITEM LNGTH 20650002 .* A NEW ENTRY IS GENERATED ONLY WHEN NECES- 20690002 .* SARY. THIS MACRO MUST BE THE FIRST 20730002 .* MACRO INSTRUCTION ISSUED FOR THE 20770002 .* SUBJECT LINE(S). 20810002 GBLC &ITEM(1000),&DSECT 20850002 GBLA &ITEMNBR,&BITS(1000),&SHIFT(1000),&NRENTS 20890002 GBLA &INITIAL 20930002 GBLB &DIAGTST,&DIAGSET,&DIAGLIN 20970002 LCLB &B,&SUB 21010002 LCLA &IBITS,&NDX,&ISHIFT,&K,&T,&CODE,&BYTESP,&OP 21050002 LCLC &S,&LETTER 21090002 AIF (&DIAGTST EQ 0).NOMSG 21130002 AIF (&INITIAL EQ 0).NOMSG 21170002 AIF (&DIAGLIN EQ 1).NOMSG 21210002 MNOTE '**NO LINE ASSOCIATED WITH THIS DATA**' 21250002 *****THE FOLLOWING GENERATED FOR TEST PURPOSES***** 21290002 * LINE 21330002 LINE 21370002 .NOMSG ANOP 21410002 AIF (K'&SYSLIST(1) EQ K'&SYSLIST(1,1)).LOOP 21450002 &SUB SETB 1 21490002 .LOOP ANOP 21530002 &OP SETA &OP+1 21570002 .LOOP1 ANOP 21610002 &NDX SETA &NDX+1 21650002 AIF ('&ITEM(&NDX)' EQ '&SYSLIST(&OP,1)').FOUND 21690002 AIF (&NDX LT &ITEMNBR).LOOP1 21730002 MNOTE '**LOG ITEM NOT DEFINED**' 21770002 MEXIT 21810002 .FOUND ANOP 21850002 &ISHIFT SETA &SHIFT(&NDX) 21890002 &IBITS SETA &BITS(&NDX) 21930002 AIF (&ISHIFT EQ 0 OR &ISHIFT EQ 4).ALIGN 21970002 .ERR MNOTE '**DATA NOT ALLIGNED ON HEX OR BYTE BOUNDARY**' 22010002 MEXIT 22050002 .ALIGN ANOP 22090002 &CODE SETA 1 22130002 AIF (&SUB EQ 1).SUBA 22170002 &K SETA K'&SYSLIST(3) 22210002 AGO .SUBB 22250002 .SUBA ANOP 22290002 &K SETA K'&SYSLIST(&OP,3) 22330002 .SUBB ANOP 22370002 AIF (&SUB EQ 1).SUBC 22410002 AIF ('&SYSLIST(3)' EQ '').USEDEFN 22450002 &LETTER SETC '&SYSLIST(3)'(&K,1) 22490002 &S SETC '&SYSLIST(3)'(1,&K-1) 22530002 AGO .SUBD 22570002 .SUBC ANOP 22610002 AIF ('&SYSLIST(&OP,3)' EQ '').USEDEFN 22650002 &LETTER SETC '&SYSLIST(&OP,3)'(&K,1) 22690002 &S SETC '&SYSLIST(&OP,3)'(1,&K-1) 22730002 .SUBD ANOP 22770002 &BYTESP SETA &S 22810002 AIF ('&LETTER' EQ 'B').BOTH 22850002 AIF ('&LETTER' EQ 'L').LEFT 22890002 &CODE SETA 2 22930002 AGO .L 22970002 .LEFT ANOP 23010002 &CODE SETA 1 23050002 AGO .L 23090002 .USEDEFN ANOP 23130002 AIF (&IBITS-(&IBITS/4)*4 EQ 0).OK 23170002 MNOTE '**BIT LENGTH SPECIFICATION INCONSISTENT WITH CONTROL**' 23210002 MEXIT 23250002 .OK ANOP 23290002 &BYTESP SETA &IBITS/8 23330002 .BOTH AIF (&ISHIFT NE 0).ERR 23370002 &CODE SETA 3 23410002 &T SETA &BYTESP*2-1 23450002 &S SETC '&T' 23490002 .OK2 AIF (&ISHIFT EQ 0).L 23530002 &CODE SETA 2 23570002 .L ANOP 23610002 &B SETB 1 23650002 AIF (&SUB EQ 1).SUBE 23690002 AIF ('&SYSLIST(2)' EQ '').BACKUP 23730002 &K SETA K'&SYSLIST(2) 23770002 &B SETB ('&SYSLIST(2)'(1,1) EQ 'B') 23810002 &S SETC '&SYSLIST(2)'(&B+1,&K-&B) 23850002 AGO .SUBF 23890002 .SUBE ANOP 23930002 AIF ('&SYSLIST(&OP,2)' EQ '').BACKUP 23970002 &K SETA K'&SYSLIST(&OP,2) 24010002 &B SETB ('&SYSLIST(&OP,2)'(1,1) EQ 'B') 24050002 &S SETC '&SYSLIST(&OP,2)'(&B+1,&K-&B) 24090002 .SUBF ANOP 24130002 .BACKUP ANOP 24170002 &NRENTS SETA &NRENTS+1 24210002 AIF (&BYTESP GT 0 AND &BYTESP LT 16).SUB0 24250002 MNOTE '**NO. OF BYTES OUTSIDE RANGE OF 1-15**' 24290002 MEXIT 24330002 .SUB0 AIF (&SUB EQ 1).SUBG 24370002 DC AL.12(&SYSLIST(1)-&DSECT),XL.4'A' 24410002 AGO .SUBH 24450002 .SUBG ANOP 24490002 DC AL.12(&SYSLIST(&OP,1)-&DSECT),XL.4'A' 24530002 .SUBH ANOP 24570002 DC BL.1'&B',FL.7'&S',AL.4(&BYTESP),FL.4'&CODE' 24610002 .OUT ANOP 24650002 &NDX SETA 0 24690002 AIF (&SUB EQ 0).OUTA 24730002 AIF (&OP LT N'&SYSLIST).LOOP 24770002 .OUTA ANOP 24810002 MEND 24850002 EJECT 26150002 MACRO 26200002 &NAME LABEL &LABEL1,&LABEL2,&LABEL3,&LABEL4,&LABEL5,&LABEL6, C26250002 &LABEL7,&LABEL8 26300002 .* THIS MACRO ALLOWS LABELS TO 26350002 .* BE SPECIFIED FOR A GIVEN LINE. THE 26400002 .* LABELS SHOULD BE ENCLOSED IN QUOTA- 26450002 .* TION MARKS. THE COLUMN AND LINE END 26500002 .* CONTROLS WILL BE INSERTED BY THE 26550002 .* MACRO. OMITTED OPERANDS MEAN NO 26600002 .* LABEL REQUIRED FOR RESPECTIVE 26650002 .* COLUMN. 26700002 GBLC &LABELS(2000) 26750002 GBLC &LBL(100) 26800002 GBLA &LBLCTR(100) 26850002 GBLA &LABELNR 26900002 GBLA &NRENTS,&LPTR,&INITIAL 26950002 GBLB &DIAGTST,&DIAGSET,&DIAGLIN 27000002 LCLC &MARGIN,&TACK 27050002 LCLC &TEXT 27100002 LCLA &OP,&K,&START,&NRCHAR,&REMAIN 27150002 AIF (&INITIAL EQ 0).DIAGCLR 27200002 AIF (&DIAGTST EQ 0).DIAGCLR 27250002 AIF (&DIAGLIN EQ 1).DIAGCLR 27300002 MNOTE '**NO LINE ASSOCIATED WITH PREVIOUS LABEL**' 27350002 ***** THE FOLLOWING GENERATED FOR TEST PURPOSES ***** 27400002 * LINE 27450002 LINE 27500002 .DIAGCLR ANOP 27550002 &DIAGSET SETB 0 27600002 &DIAGLIN SETB 0 27650002 &MARGIN SETC '*' 27700002 AIF ('&NAME' EQ '').LOOPOUT 27750002 &LPTR SETA &LPTR+1 27800002 &LBL(&LPTR) SETC '&NAME' 27850002 &LBLCTR(&LPTR) SETA &LABELNR+1 27900002 .LOOPOUT ANOP 27950002 &OP SETA &OP+1 28000002 &K SETA K'&SYSLIST(&OP) 28050002 AIF (&K GE 2).NORM 28100002 &K SETA 2 28150002 .NORM ANOP 28200002 &START SETA 2 28250002 AIF (&OP LT N'&SYSLIST).NOTLAST 28300002 &MARGIN SETC '$' 28350002 .NOTLAST ANOP 28400002 &NRCHAR SETA 8 28450002 &TACK SETC '' 28500002 .LOOPIN ANOP 28550002 &REMAIN SETA &K-&START 28600002 AIF (&REMAIN GE 8).MORE 28650002 &TACK SETC '&MARGIN' 28700002 &NRCHAR SETA &REMAIN 28750002 .MORE ANOP 28800002 &TEXT SETC '' 28850002 AIF (&REMAIN EQ 0).ENDTEXT 28900002 &TEXT SETC '&SYSLIST(&OP)'(&START,&NRCHAR) 28950002 .ENDTEXT ANOP 29000002 &LABELNR SETA &LABELNR+1 29050002 &LABELS(&LABELNR) SETC '&TEXT'.'&TACK' 29100002 &START SETA &START+8 29150002 AIF ('&TACK' EQ '').LOOPIN 29200002 AIF ('&TACK' EQ '*').LOOPOUT 29250002 MEND 29300002 EJECT 29350002 GBLC &CSECT,&DSECT 29400002 IFCETRN2 CSECT 29450002 &CSECT SETC 'IFCETRN2' 29500002 &DSECT SETC 'C3705' 29550002 C3705 DSECT 29600002 DS 0F 29650002 DSGEN (RECT,8),(OPSYS,8),(SWITCH,24),(RCDID,8),(SPARE1,16) 29700002 DSGEN (DATE,32),(TIME,32) 29750002 DSGEN (SPARE2,8),(CPUSER,24),(MODEL,16),(SPARE3,16) 29800002 DSGEN (CUA,16),(TERMN1,16),(TERMN2,32) 29850002 DSGEN (TERMN3,16),(RESID,16),(LINEADD,16),(RECMD,8),(RECID,8) 29900002 DSGEN (ISBOX,8),(BTUMOD,8),(REG100,1),(REG101,1),(REG102,1), C29950002 (REG103,1),(REG104,1),(REG105,1),(REG106,1),(REG107,1), C30000002 (REG108,1),(REG109,1),(REG110,1),(REG111,1),(REG112,1), C30050002 (REG113,1),(REG114,1),(REG115,1),(REG200,1),(REG201,1), C30100002 (REG202,1),(REG203,1),(REG204,1),(REG205,1),(REG206,1), C30150002 (REG207,1),(REG208,1),(REG209,1),(REG210,1),(REG211,1), C30200002 (REG212,1),(REG213,1),(REG214,1),(REG215,1),(REG300,1), C30250002 (REG301,1),(REG302,1),(REG303,1),(REG304,1),(REG305,1), C30300002 (REG306,1),(REG307,1),(REG308,1),(REG309,1),(REG310,1), C30350002 (REG311,1),(REG312,1),(REG313,1),(REG314,1),(REG315,1) 30400002 DSGEN (REG400,1),(REG401,1),(REG402,1),(REG403,1),(REG404,1), C30450002 (REG405,1),(REG406,1),(REG407,1),(REG408,1),(REG409,1), C30500002 (REG410,1),(REG411,1),(REG412,1),(REG413,1),(REG414,1), C30550002 (REG415,1),(REG500,1),(REG501,1),(REG502,1),(REG503,1), C30600002 (REG504,1),(REG505,1),(REG506,1),(REG507,1),(REG508,1), C30650002 (REG509,1),(REG510,1),(REG511,1),(REG512,1),(REG513,1), C30700002 (REG514,1),(REG515,1) 30750002 DSGEN (REG600,1),(REG601,1),(REG602,1),(REG603,1),(REG604,1), C30800002 (REG605,1),(REG606,1),(REG607,1),(REG608,1),(REG609,1), C30850002 (REG610,1),(REG611,1),(REG612,1),(REG613,1),(REG614,1), C30900002 (REG615,1),(REG700,1),(REG701,1),(REG702,1),(REG703,1), C30950002 (REG704,1),(REG705,1),(REG706,1),(REG707,1),(REG708,1), C31000002 (REG709,1),(REG710,1),(REG711,1),(REG712,1),(REG713,1), C31050002 (REG714,1),(REG715,1) 31100002 DSGEN (REG800,1),(REG801,1),(REG802,1),(REG803,1),(REG804,1), C31150002 (REG805,1),(REG806,1),(REG807,1),(REG808,1),(REG809,1), C31200002 (REG810,1),(REG811,1),(REG812,1),(REG813,1),(REG814,1), C31250002 (REG815,1),(REG900,1),(REG901,1),(REG902,1),(REG903,1), C31300002 (REG904,1),(REG905,1),(REG906,1),(REG907,1),(REG908,1), C31350002 (REG909,1),(REG910,1),(REG911,1),(REG912,1),(REG913,1), C31400002 (REG914,1),(REG915,1) 31450002 IFCETRN2 CSECT 31500002 USING *,R9 31550002 USING C3705,R2 31600002 * 31650002 R0 EQU 0 31700002 R1 EQU 1 31750002 R2 EQU 2 31800002 R3 EQU 3 31850002 R4 EQU 4 31900002 R5 EQU 5 31950002 R6 EQU 6 32000002 R7 EQU 7 32050002 R8 EQU 8 32100002 R9 EQU 9 32150002 R10 EQU 10 32200002 R11 EQU 11 32250002 R12 EQU 12 32300002 R13 EQU 13 32350002 R14 EQU 14 32400002 R15 EQU 15 32450002 L0 EQU 0 32500001 L4 EQU 4 32510001 L19 EQU 19 32520001 L3 EQU 3 32530001 L17 EQU 17 32540001 H20 EQU X'20' 32550002 DC A(ENTRIES) 32600002 DC CL8'IFCETRN2' 32650002 XR9PTR DC F'0' 32700002 XLABELP DC F'0' 32750002 XSAVE DC F'0' 32800001 LINEA DC A(LINA-4) 32850002 EJECT 32900001 *********************************************************************** 32920001 ** SPECIAL ROUTINES ** 32940001 *********************************************************************** 32960001 CHKREC MVC L0(L19,R3),CHKMSG MOVE MESSAGE INTO LINE 32980001 ST R6,XSAVE SAVE REGS 33000001 XR R6,R6 CLEAR REG 6 33020001 IC R6,BTUMOD GET LOST CK REC CNT 33040001 CVD R6,LCRCNT CONVERT COUNT TO DECIMAL 33060001 UNPK L17(L3,R3),LCRCNT UNPACK LOST CK REC CNT 33080001 OI L19(R3),X'F0' SET ZONE FOR LAST DIGIT 33100001 L R6,XSAVE RESTORE REG 6 33120001 BR R14 33140001 CHKMSG DC C'LOST CK REC CNT ' 33160001 LCRCNT DS D 33180001 SPACE 3 33200001 TYPE CLI ISBOX,X'08' 33220001 BE CHKREC 33240001 CLI ISBOX,X'20' 33260001 BE SET 33280001 MVC XR9PTR(L4),LINEA 33300001 B SET 33320001 SPACE 3 33340001 TYPE2 CLI ISBOX,H20 33360001 BE CHKREC 33380001 SET XR R15,R15 DON'T PRINT THIS LINE 33400001 BR R14 33420001 EJECT 33440001 ENTRIES DS 0F 33600002 DC XL4'00010001' 33650002 DC XL4'00010001' 33700002 DC A(LABELS) 33750002 DC H'0' 33800002 DC X'01' 33850002 DC X'000B0B00' 33900002 SPACE 3 33950001 LINE (60,34),(2),SKIP=2 33980001 HEX (LINEADD,0,2B) 34010001 ROUTINE ISBOX,TYPE 34050002 LABEL 'RECORD TYPE - INVALID INSTRUCTION OPERATION ABEND CO*34100001 DE' 34180001 SPACE 3 34260001 LINE 34340001 HEX (LINEADD,0,2B) 34450002 ROUTINE ISBOX,TYPE2 34470001 LABEL 'RECORD TYPE - PROGRAM CHECK TYPE INPUT/OUTPUT ABEND COX34500002 DE' 34550002 * 34600002 LINE (32,47),(5,44),SKIP=1 34650002 HEX (REG100,0,2B),(REG200,0,4B) 34700002 LABEL 'FAILING INSTRUCTION','LAGGING ADDRESS REGISTER' 34750002 * 34800002 LINE 34850002 HEX (REG600,0,2B),(REG400,0,4B) 34900002 LABEL 'PROGRAM LEVEL INTERRUPTED','INSTRUCTION ADDRESS REGISTEX34950002 R' 35000002 SPACE 2 35050001 LINE (35,1) 35050701 BIN (REG600) 35051401 LABEL 'UNUSED' 35052101 SPACE 2 35052801 LINE 35053501 BIN (REG601) 35054201 LABEL 'UNUSED' 35054901 SPACE 2 35055601 LINE 35056301 BIN (REG602) 35057001 LABEL 'UNUSED' 35057701 SPACE 2 35058401 LINE 35059101 BIN (REG603) 35059801 LABEL 'UNUSED' 35060501 SPACE 2 35061201 LINE 35061901 BIN (REG604) 35062601 LABEL 'UNUSED' 35063301 SPACE 2 35064001 LINE 35064701 BIN (REG605) 35065401 LABEL 'UNUSED' 35066101 SPACE 2 35066801 LINE 35067501 BIN (REG606) 35068201 LABEL 'PROG LEVEL 5 C CONDITION' 35068901 SPACE 2 35069601 LINE 35070301 BIN (REG607) 35071001 LABEL 'PROG LEVEL 5 Z CONDITION' 35071701 SPACE 2 35072401 LINE 35073101 BIN (REG608) 35073801 LABEL 'PROG LEVEL 2 INTERRUPTED' 35074501 SPACE 2 35075201 LINE 35075901 BIN (REG609) 35076601 LABEL 'PROG LEVEL 3 INTERRUPTED' 35077301 SPACE 2 35078001 LINE 35078701 BIN (REG610) 35079401 LABEL 'PROG LEVEL 4 INTERRUPTED' 35080101 SPACE 2 35080801 LINE 35081501 BIN (REG611) 35082201 LABEL 'PROG LEVEL 5 INTERRUPTED' 35082901 SPACE 2 35083601 LINE 35084301 BIN (REG612) 35085001 LABEL 'FET MEMORY' 35085701 SPACE 2 35086401 LINE 35087101 BIN (REG613) 35087801 LABEL 'UNUSED' 35088501 SPACE 2 35089201 LINE 35089901 BIN (REG614) 35090601 LABEL 'UNUSED' 35091301 SPACE 2 35092001 LINE 35092701 BIN (REG615) 35093401 LABEL 'IPL ESCAPE CONTROL' 35094101 SPACE 2 35094801 LINA DC X'FF' 35100002 DC XL2'0036' 35150002 DC XL2'0018' 35200002 DC XL2'0018' 35250002 LABELS DS 0F 35300002 DC C'$' 35350002 LSTART 35400002 END 35450002