TITLE 'IFCEE165 MODEL 165 CPU EDIT TABLE 3' 00050002 * DSGEN MACRO DSGEN MACRO DSGEN MACRO DSGEN MACRO * 00100002 SPACE 2 00150002 MACRO 00200002 &NAME DSGEN 00250002 .* THIS MACRO GENERATES ONE DSECT WORD 00300002 .* FORMATTED FOR THE SUBJECT LOG RECORD 00350002 .* EACH OPERAND HAS TWO SUB LISTS. THE 00400002 .* FIRST IS THE NAME OF THE LOG ITEM 00450002 .* WHILE THE SECOND IS THE # OF BITS TO 00500002 .* ALLOCATE FOR THIS ITEM. ITEMS MUST 00550002 .* BE DEFINED CONTIGUOUSLY WITHOUT GAPS 00600002 .* UNUSED BIT GROUPS MUST BE GIVEN 00650002 .* DUMMY NAMES. THE NAMES PROVIDED FOR 00700002 .* THE LOG ITEMS MAY THEN BE USED IN 00750002 .* THE CONVERSION MACRO INSTRUCTIONS. 00800002 GBLC &ITEM(2000) 00850002 GBLA &ITEMNBR,&BITS(2000),&SHIFT(2000) 00900002 LCLB &ONLY1,&CTIND 00950002 LCLA &START1,&START2,&END1,&END2 01000002 LCLC &SYMBOL,&EQUSYM 01050002 LCLA &OP,&COUNT,&BYTE,&EQUCNT 01100002 ACTR 100000 01150002 .START AIF (N'&SYSLIST(&OP+1) LT 3).LOOP 01200002 AIF ('&SYSLIST(&OP+1,3)' EQ 'EQU').LOOP TEST FOR EQU 01250002 AIF ('&SYSLIST(&OP+1,3)' EQ '' OR '&SYSLIST(&OP+1,4)' EQ '').ERR1 01300002 AIF ('&SYSLIST(&OP+1,3)' GT '&SYSLIST(&OP+1,4)').ERR3 01350002 &START1 SETA &SYSLIST(&OP+1,3) GET START COUNT OF 1 01400002 &START2 SETA &SYSLIST(&OP+1,4) GET FIRST END COUNT 01450002 AGO .SET2A BRANCH AROUND 01500002 .ERR1 MNOTE '**FIRST SYMBOL CONCATENATION INCOMPLETE**' 01550002 MEXIT 01600002 .SET2A AIF ('&SYSLIST(&OP+1,5)' EQ ''AND '&SYSLIST(&OP+1,6)' EQ '' X01650002 ).SET2 TEST FOR NO SECOND 01700002 AIF ('&SYSLIST(&OP+1,5)' EQ '' OR '&SYSLIST(&OP+1,6)' EQ '').ERR2 01750002 AIF ('&SYSLIST(&OP+1,5)' GT '&SYSLIST(&OP+1,6)').ERR3 01800002 &END1 SETA &SYSLIST(&OP+1,5) GET START COUNT OF 2 01850002 &END2 SETA &SYSLIST(&OP+1,6) GET END COUNT OF 2 01900002 AGO .LOOP 01950002 .SET2 ANOP 02000002 &ONLY1 SETB 1 INDICATE ONLY ONE CONCATENATION 02050002 AGO .LOOP 02100002 .ERR2 MNOTE '**SECOND SYMBOL CONCATENATION INCOMPLETE**' 02150002 MEXIT 02200002 .ERR3 MNOTE '**START GREATER THAN END CONCATENATION**' 02250002 MEXIT 02300002 .LOOP ANOP 02350002 &OP SETA &OP+1 02400002 AIF (&OP GT N'&SYSLIST).DONE TEST IF ALL DONE 02450002 &ITEMNBR SETA &ITEMNBR+1 02500002 AIF ('&SYSLIST(&OP,2)' NE '').OK1 02550002 MNOTE '**NULL BIT COUNT FIELD**' 02600002 MEXIT 02650002 .OK1 ANOP 02700002 &SYMBOL SETC '&SYSLIST(&OP,1)' 02750002 AIF ('&SYMBOL' NE '').OK 02800002 * ***** LOG ITEM SYMBOL NOT PROVIDED ***** 02850002 AIF ('&SYSLIST(&OP,3)' NE 'EQU').CNT 02900002 AGO .START GET NEXT 02950002 .OK AIF (N'&SYSLIST(&OP) LT 3).NO3 TEST FOR OLD FORMAT 03000002 AIF ('&SYSLIST(&OP,3)' EQ 'EQU').EQU TEST FOR EQU 03050002 AIF (&ONLY1).OK2 TEST FOR ONLY ONE CONCAT 03100002 &SYMBOL SETC '&SYMBOL.&START1.&END1' GET 1 AND 2 CONCAT 03150002 AGO .NO3 BRANCH AROUND 03200002 .OK2 ANOP 03250002 &SYMBOL SETC '&SYMBOL.&START1' GET 1 CONCATENATED 03300002 .NO3 ANOP 03350002 &SYMBOL EQU *+&BYTE 03400002 &ITEM(&ITEMNBR) SETC '&SYMBOL' GET LABEL IN GLOBAL 03450002 &BITS(&ITEMNBR) SETA &SYSLIST(&OP,2) 03500002 &SHIFT(&ITEMNBR) SETA &COUNT-&BYTE*8 03550002 .CNT ANOP 03600002 &CTIND SETB 1 SET COUNT INDICATOR 03650002 &COUNT SETA &COUNT+&SYSLIST(&OP,2) 03700002 &BYTE SETA &COUNT/8 03750002 AIF (N'&SYSLIST(&OP) LT 3).START TEST FOR OLD FORMAT 03800002 AIF (&ONLY1).TSTST TEST FOR ONLY ONE CONCAT 03850002 AIF (&END1 EQ &END2).TSTST TEST FOR SECOND END 03900002 &END1 SETA &END1+1 INCREMENT COUNT 03950002 &OP SETA &OP-1 DECREMENT INCREMENT 04000002 AGO .LOOP GENERATE NEXT 04050002 .TSTST ANOP 04100002 AIF (&START1 EQ &START2).LPDONE TEST FOR END 04150002 AIF (&ONLY1).NSET1 TEST FOR ONLY ONE CONCAT 04200002 &END1 SETA &SYSLIST(&OP,5) RE-INIT SECOND START COUNT 04250002 .NSET1 ANOP 04300002 &OP SETA &OP-1 DECREMENT INDEX 04350002 &START1 SETA &START1+1 INCREMENT FIRST COUNT 04400002 AGO .LOOP GO DO NEXT 04450002 .LPDONE ANOP 04500002 &ONLY1 SETB 0 CLEAR INDICATOR 04550002 AGO .START GO TEST FOR MORE SUB-LISTS 04600002 .DONE AIF (&COUNT-&COUNT/8*8 NE 0).ERR TEST FOR MULTIPLE OF EIGHT 04650002 AIF (&CTIND EQ 0).END NO DS IF NO COUNT 04700002 &COUNT SETA &COUNT/8 GET NUMBER OF BYTES 04750002 &NAME DS &COUNT.C 04800002 .END MEXIT 04850002 .ERR MNOTE '**BIT COUNT FLDS DO NOT TOTAL MULTIPLE OF 8**' 04900002 MEXIT 04950002 .EQU AIF ('&SYSLIST(&OP,4)' NE '').EQU1 TEST FOR NULL LABEL 05000002 .ERR4 MNOTE '**EQU OPERAND OMITTED OR NOT FOUND**' 05050002 MEXIT 05100002 .EQU1 AIF (&SYSLIST(&OP,2) LT 16).EQU2 COUNT OVER FIFTEEN 05150002 ***** THE FOLLOWING STATEMENT ***** 05200002 ***** NUMBER OF BITS EXCEED 15 - DO NOT USE AS BIN ***** 05250002 .EQU2 ANOP 05300002 &EQUCNT SETA 0 CLEAR COUNTER 05350002 &EQUSYM SETC '&SYSLIST(&OP,4)' GET EQU OPERAND 05400002 .EQULOP ANOP 05450002 &EQUCNT SETA &EQUCNT+1 INCREMENT INDEX 05500002 AIF ('&ITEM(&EQUCNT)' EQ '&EQUSYM').EQUOUT LABEL FOUND? 05550002 AIF (&EQUCNT EQ &ITEMNBR).ERR4 ALL TESTED? 05600002 AGO .EQULOP NO-GET NEXT 05650002 .EQUOUT ANOP 05700002 &ITEM(&ITEMNBR) SETC '&SYMBOL' GET LABEL NAME 05750002 &BITS(&ITEMNBR) SETA &SYSLIST(&OP,2) GET NUMBER OF BITS 05800002 &SHIFT(&ITEMNBR) SETA &SHIFT(&EQUCNT) GET SHIFT COUNT 05850002 &SYMBOL EQU &EQUSYM THIS SYMBOL EQUATED 05900002 AGO .START RETURN FOR NEXT 05950002 MEND 06000002 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 06900002 BIN 06950002 .* &SYSLIST(&OP,1) - NAME OF LOG ITEM 07000002 .* RECORD DSECT 07050002 .* $SYSLIST(&OP,2) - NBR OF SPACES 07100002 .* TO SKIP ON MULTIPLE 07150002 .* PRINT OR NBR OF SPACES 07200002 .* TO BACK UP FROM COLUMN FOR 07250002 .* START OF PRINTING. THE LETTER 07300002 .* B PRECEEDS THE NUMBER (B5) IF 07350002 .* THE LATTER IS DESIRED. OMISSION 07400002 .* OF THIS OPERAND FORCES OPTION 2 07450002 .* WITH BACKUP SPACING EQUAL TO 07500002 .* THE NUMBER OF BITS IN THE ITEM 07550002 .* DEFINITION (VIA MACRO 'DSGEN'). 07600002 .* A LIMIT OF 15 BITS IS IMPOSED FOR THE 07650002 .* TOTAL NUMBER OF BITS TO PRINT. 07700002 GBLA &INITIAL 07750002 GBLB &DIAGTST,&DIAGSET,&DIAGLIN 07800002 GBLC &ITEM(2000) 07850002 GBLA &ITEMNBR,&BITS(2000),&SHIFT(2000),&NRENTS 07900002 GBLC &DSECT 07950002 LCLB &B,&SUB 08000002 LCLA &IBITS,&NDX,&ISHIFT,&K 08050002 LCLA &TEMP,&T,&OP 08100002 LCLC &S 08150002 AIF (&DIAGTST EQ 0).NOMSG 08200002 AIF (&INITIAL EQ 0).NOMSG 08250002 AIF (&DIAGLIN EQ 1).NOMSG 08300002 MNOTE '**NO LINE ASSOCIATED WITH THIS DATA**' 08350002 *****THE FOLLOWING GENERATED FOR TEST PURPOSES***** 08400002 * LINE 08450002 LINE 08500002 .NOMSG ANOP 08550002 AIF (K'&SYSLIST(1) EQ K'&SYSLIST(1,1)).LOOP 08600002 &SUB SETB 1 08650002 .LOOP ANOP 08700002 &OP SETA &OP+1 08750002 .LOOP1 ANOP 08800002 &NDX SETA &NDX+1 08850002 AIF ('&ITEM(&NDX)' EQ '&SYSLIST(&OP,1)').FOUND 08900002 AIF (&NDX LT &ITEMNBR).LOOP1 08950002 MNOTE '**LOG ITEM NOT DEFINED**' 09000002 MEXIT 09050002 .FOUND ANOP 09100002 &ISHIFT SETA &SHIFT(&NDX) 09150002 &IBITS SETA &BITS(&NDX) 09200002 &T SETA &IBITS-1 09250002 &B SETB 0 09300002 AIF (&IBITS GT 0 AND &IBITS LT 16).SUB0 09350002 MNOTE '**NO. OF BITS OUTSIDE RANGE OF 1-15**' 09400002 MEXIT 09450002 .SUB0 AIF (&SUB EQ 1).SUBA 09500002 AIF ('&SYSLIST(2)' EQ '').BACKUP 09550002 &K SETA K'&SYSLIST(2) 09600002 &B SETB ('&SYSLIST(2)'(1,1) EQ 'B') 09650002 &S SETC '&SYSLIST(2)'(&B+1,&K-&B) 09700002 AGO .SUBB 09750002 .SUBA ANOP 09800002 AIF ('&SYSLIST(&OP,2)' EQ '').BACKUP 09850002 &K SETA K'&SYSLIST(&OP,2) 09900002 &B SETB ('&SYSLIST(&OP,2)'(1,1) EQ 'B') 09950002 &S SETC '&SYSLIST(&OP,2)'(&B+1,&K-&B) 10000002 .SUBB ANOP 10050002 &T SETA &S 10100002 .BACKUP ANOP 10150002 &NRENTS SETA &NRENTS+1 10200002 &TEMP SETA &ISHIFT 10250002 AIF (&IBITS NE 1 OR &B NE 0).BIN2 10300002 DC AL.12(&SYSLIST(&OP,1)-&DSECT),XL.4'&TEMP' 10350002 AGO .OUT 10400002 .BIN2 AIF ('&SYSLIST(&OP,2)' NE '').BIN3 10450002 &B SETB 1 10500002 .BIN3 ANOP 10550002 DC AL.12(&SYSLIST(&OP,1)-&DSECT),XL.4'C' 10600002 DC BL.1'&B',AL.7(&T),AL.4(&IBITS),FL.4'&ISHIFT' 10650002 .OUT ANOP 10700002 &NDX SETA 0 10750002 AIF (&SUB EQ 0).OUTA 10800002 AIF (&OP LT N'&SYSLIST).LOOP 10850002 .OUTA ANOP 10900002 MEND 10950002 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 17500002 LSTART 17550002 .* THIS MACRO IS ISSUED WHEN THE LABEL AREA 17600002 .* OF THE TABLE IS TO BEGIN. 17650002 GBLA &LABELNR 17700002 GBLC &LBL(100) 17750002 GBLC &LABELS(2000) 17800002 GBLA &LBLCTR(100) 17850002 GBLB &DIAGTST,&DIAGSET,&DIAGLIN 17900002 LCLA &NDX,&CTR 17950002 AIF (&DIAGTST EQ 0).NODIAG 18000002 AIF (&DIAGSET EQ 0).NODIAG 18050002 MNOTE '**NO LABEL ASSOCIATED WITH LAST SET**' 18100002 ***** THE FOLLOWING GENERATED FOR TEST PURPOSES ***** 18150002 * LABEL '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%' 18200002 LABEL '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%' 18250002 .NODIAG ANOP 18300002 LINEND 18350002 &CTR SETA 1 18400002 .LOOP ANOP 18450002 &NDX SETA &NDX+1 18500002 AIF (&LBLCTR(&CTR) NE &NDX).NOLBL 18550002 &LBL(&CTR) DC C'&LABELS(&NDX)' 18600002 &CTR SETA &CTR+1 18650002 AGO .LOOPCTL 18700002 .NOLBL ANOP 18750002 DC C'&LABELS(&NDX)' 18800002 .LOOPCTL AIF (&NDX LT &LABELNR).LOOP 18850002 MEND 18900002 MACRO 18950002 &NAME LABEL &LABEL1,&LABEL2,&LABEL3,&LABEL4,&LABEL5,&LABEL6, C19000002 &LABEL7,&LABEL8 19050002 .* THIS MACRO ALLOWS LABELS TO 19100002 .* BE SPECIFIED FOR A GIVEN LINE. THE 19150002 .* LABELS SHOULD BE ENCLOSED IN QUOTA- 19200002 .* TION MARKS. THE COLUMN AND LINE END 19250002 .* CONTROLS WILL BE INSERTED BY THE 19300002 .* MACRO. OMITTED OPERANDS MEAN NO 19350002 .* LABEL REQUIRED FOR RESPECTIVE 19400002 .* COLUMN. 19450002 GBLC &LABELS(2000) 19500002 GBLC &LBL(100) 19550002 GBLA &LBLCTR(100) 19600002 GBLA &LABELNR 19650002 GBLA &NRENTS,&LPTR,&INITIAL 19700002 GBLB &DIAGTST,&DIAGSET,&DIAGLIN 19750002 LCLC &MARGIN,&TACK 19800002 LCLC &TEXT 19850002 LCLA &OP,&K,&START,&NRCHAR,&REMAIN 19900002 AIF (&INITIAL EQ 0).DIAGCLR 19950002 AIF (&DIAGTST EQ 0).DIAGCLR 20000002 AIF (&DIAGLIN EQ 1).DIAGCLR 20050002 MNOTE '**NO LINE ASSOCIATED WITH PREVIOUS LABEL**' 20100002 ***** THE FOLLOWING GENERATED FOR TEST PURPOSES ***** 20150002 * LINE 20200002 LINE 20250002 .DIAGCLR ANOP 20300002 &DIAGSET SETB 0 20350002 &DIAGLIN SETB 0 20400002 &MARGIN SETC '*' 20450002 AIF ('&NAME' EQ '').LOOPOUT 20500002 &LPTR SETA &LPTR+1 20550002 &LBL(&LPTR) SETC '&NAME' 20600002 &LBLCTR(&LPTR) SETA &LABELNR+1 20650002 .LOOPOUT ANOP 20700002 &OP SETA &OP+1 20750002 &K SETA K'&SYSLIST(&OP) 20800002 AIF (&K GE 2).NORM 20850002 &K SETA 2 20900002 .NORM ANOP 20950002 &START SETA 2 21000002 AIF (&OP LT N'&SYSLIST).NOTLAST 21050002 &MARGIN SETC '$' 21100002 .NOTLAST ANOP 21150002 &NRCHAR SETA 8 21200002 &TACK SETC '' 21250002 .LOOPIN ANOP 21300002 &REMAIN SETA &K-&START 21350002 AIF (&REMAIN GE 8).MORE 21400002 &TACK SETC '&MARGIN' 21450002 &NRCHAR SETA &REMAIN 21500002 .MORE ANOP 21550002 &TEXT SETC '' 21600002 AIF (&REMAIN EQ 0).ENDTEXT 21650002 &TEXT SETC '&SYSLIST(&OP)'(&START,&NRCHAR) 21700002 .ENDTEXT ANOP 21750002 &LABELNR SETA &LABELNR+1 21800002 &LABELS(&LABELNR) SETC '&TEXT'.'&TACK' 21850002 &START SETA &START+8 21900002 AIF ('&TACK' EQ '').LOOPIN 21950002 AIF ('&TACK' EQ '*').LOOPOUT 22000002 MEND 22050002 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 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 'IFCEE165' 29050002 IFCEE165 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 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),(LOSTSUM,48),(,16) 40650002 DSGEN (TRNSMOD,32,0,7) 40700002 DSGEN (MCHPDR,1,0,7,0,7) 40750002 DSGEN (FSRADDR,32),(BFSVADDR,32),(EFSVADDR,32), C40800002 (INSTADDR,32) 40850002 LOGEND EQU *-2 40900002 IFCEE165 CSECT 40950002 *********************************************************************** 41000002 * 41050002 *********************************************************************** 41100002 ENTRYPTR DC A(FORMAT1) 41150002 TABLNAME DC CL8'IFCEE165' 41200002 REG9 DS F 41250002 SAVE DS F 41300002 *** 41350002 * *** SPECIAL ROUTINES AREA *** 41400002 * 41450002 *********************************************************************** 41500002 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 BR R14 RETURN 42750002 USING INDEPEND,R2 42753002 *** THIS ROUTINE DETERMINES MODEL NUMBER *** 42756002 MODCK CLC XCPUMOD(L2),C168 Q/ IS THIS A 168 42759002 BE INSERT YES--BRANCH 42762002 CLC XCPUMOD(L2),C3062 3062? @Z402IFR 42763002 BE INSERT @Z402IFR 42764002 BR R14 RETURN 42765002 INSERT MVC L0(L2,R3),FPCON MOVE LABEL 42768002 BR R14 RETURN 42771002 C168 DC X'0168' 42774002 C3062 DC X'3062' @Z402IFR 42775002 FPCON DC C'FP' 42777002 CKMOD CLC XCPUMOD(L2),C168 Q/ IS THIS A 168 42780002 BE INSRP YES--BRANCH 42783002 CLC XCPUMOD(L2),C3062 3062? @Z402IFR 42784002 BE INSRP @Z402IFR 42785002 BR R14 RETURN 42786002 INSRP MVC L0(L2,R3),RPCON MOVE LABEL 42789002 BR R14 RETURN 42792002 RPCON DC C'RP' 42795002 CHKEMU ST R5,XSAVE @Z402IFR 42795202 TM L0(R4),X10 @Z402IFR 42795302 BO RETURN @Z402IFR 42795402 TM L0(R4),X08 @Z402IFR 42795502 BNO TRY7074 @Z402IFR 42795602 L R5,A7080LN @Z402IFR 42795702 ST R5,REG9 @Z402IFR 42795802 L R5,A7080LB @Z402IFR 42795902 ST R5,SAVE @Z402IFR 42796002 B RETURN @Z402IFR 42796102 TRY7074 TM L0(R4),X04 @Z402IFR 42796202 BNO JUMP1 @Z402IFR 42796302 L R5,A7074LN @Z402IFR 42796402 ST R5,REG9 @Z402IFR 42796502 L R5,A7074LB @Z402IFR 42796602 ST R5,SAVE @Z402IFR 42796702 RETURN L R5,XSAVE @Z402IFR 42796802 BR 14 @Z402IFR 42796902 JUMP ST R5,XSAVE @Z402IFR 42797002 JUMP1 L R5,JUMPLN @Z402IFR 42797102 ST R5,REG9 @Z402IFR 42797202 L R5,JUMPLB @Z402IFR 42797302 ST R5,SAVE @Z402IFR 42797402 B RETURN @Z402IFR 42797502 WHERETO ST R5,XSAVE @Z402IFR 42797602 CLI 21(R2),X'68' IS IT A 168? @Z402IFR 42797702 BE ISTH @Z402IFR 42797802 CLI 21(R2),X'62' IS IT A 3062? @Z402IFR 42797902 BNE GO @Z402IFR 42798002 ISTH TM 16(R2),X'81' IS A LEXINGTON CPU OR AU? @Z402IFR 42798102 BNO GO @Z402IFR 42798202 LA R5,LEX-4 SET UP FOR LEX LOAD @Z402IFR 42798302 ST R5,REG9 @Z402IFR 42798402 GO L R5,XSAVE @Z402IFR 42798502 SR R15,R15 @Z402IFR 42798602 BR R14 @Z402IFR 42798702 R0 EQU 0 42800002 R1 EQU 1 42850002 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 CB EQU C' ' 44400002 CS EQU C'*' 44450002 X10 EQU X'10' @YA07735 44460002 X08 EQU X'08' @YA07735 44470002 X04 EQU X'04' @YA07735 44480002 XWORK DS D 44500002 XSAVE DS 6F 44550002 SAVER34 DS 2F 44600002 A7074LN DC A(LN7074-4) @YA07735 44607002 A7074LB DC A(LB7074-1) @YA07735 44614002 A7080LN DC A(LN7080-4) @YA07735 44621002 A7080LB DC A(LB7080-1) @YA07735 44628002 JUMPLN DC A(LNJUMP-4) @YA07735 44635002 JUMPLB DC A(LBJUMP-1) @YA07735 44642002 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 LINE (1,1),(1,1),SKIP=3 45100002 ROUTINE XKEY,ROUT0 45150002 LABEL ' ' 45200002 LINE (1,1),(19,1),SKIP=1 S21021 45250002 LABEL 'M/F FRAME B0 MAINTENANCE CONTROLS' 45300002 LINE ,(18,1) 45350002 LABEL 'MCW MODE BITS - CPUA' 45400002 LINE ,(3,1) 45450002 LABEL 'RS SA DO DT OS BD BP BSC C MC AP BV SWC IR R M C EC45500002 ' 45550002 LINE ,(1,1) 45600002 ROUTINE B0LB,ROUT1 45650002 LABEL 'LB' 45700002 LINE ,(20,1) 45750002 LABEL 'CPU B MODE BITS' 45758002 LINE (30,1),(10,28) 45766002 ROUTINE XCPUMOD,MODCK 45772002 LABEL 'CC BB AC','DS DS FD' 45778002 LINE (1,1),(1,1) 45784002 ROUTINE B0LC,ROUT1 45790002 LABEL 'LC' 45800002 LINE ,(4,1) 45850002 LABEL 'MINNOW FILE ADDRESS BITS MINNOW WCS AX45900002 DDRESS BITS' 45950002 LINE ,(4,1) 46000002 LABEL '0 1 2 3 4 5 6 7 1 2 3 4 5 6 X46050002 7 8 9 10 11' 46100002 LINE ,(1,1),SKIP=3 46150002 ROUTINE B0LD,ROUT1 46200002 LABEL 'LD' 46250002 LINE ,(1,1),SKIP=1 46300002 LABEL 'LE' 46350002 LINE ,(6,1) 46400002 LABEL 'MACHINE CHECK INTERRUPT CODE TRIGGERS' 46450002 LINE ,(4,1) 46500002 LABEL 'SDIPD SR CD ED DI SU SC CU FV GV CV LV TV CV HS LDX46550002 PB' 46570002 LINE ,(1,1) 46600002 ROUTINE B0LF,ROUT1 46650002 LABEL 'LF' 46700002 LINE ,(4,1) 46750002 LABEL 'MAIN CTLS / D R / RIPPL/ DS ST ST M DIG I HNG D BY X46800002 NORSTO OP' @YM6450P 46850002 LINE ,(4,1) 46900002 LABEL '0 1 2 A E D WR RD CH TR LP DI MD BF SYC O OP X46950002 ADVVIO INT' @YM6450P 47000002 LINE ,(1,1) 47050002 ROUTINE B0LG,ROUT1 47100002 LABEL 'LG' 47150002 LINE ,(3,1) 47200002 LABEL 'SR OP BE IC OP PG MLCR EN E RST RTRY-CNT SS ST ST X47250002 LOGOUT' 47300002 LINE ,(3,1) 47350002 LABEL 'LC 3B IU VL IV SC 0 1 IN BSY SQ 0 1 2 CK LC EE X47400002 BS LS' 47450002 LINE ,(1,1) 47500002 ROUTINE B0LH,ROUT1 47550002 LABEL 'LH' 47600002 LINE ,(3,1) 47650002 LABEL 'RG ST PT RS EX UR MSSR EL' 47700002 LINE ,(3,1) 47750002 LABEL 'AL AL ST ST SB EV 0 1 IPT CY RIP CHN LP' 47800002 LINE ,(1,1),SKIP=3 47850002 ROUTINE B0LJ,ROUT1 47900002 LABEL 'LJ' 47950002 LINE ,(1,1),SKIP=3 48000002 LABEL 'LK' 48050002 LINE ,(1,1),SKIP=3 48100002 LABEL 'LL' 48150002 LINE ,(19,1),SKIP=1 48200002 LABEL 'M/F FRAME B1 SCU-CH MATRIX CTL-CKS' 48250002 LINE ,(3,1) 48300002 LABEL 'RIB VD ADDR VALID IBBSY IP RIB / CHANNEL ADDR 0 ASX48350002 SGNED BFR GRP /' 48400002 LINE ,(3,1) 48450002 LABEL ' A B T LA TA TB A B S ACT 1 2 3 4 5 6 7X48500002 9 A B C D' 48550002 LINE ,(1,1) 48600002 ROUTINE B1LB,ROUT1 48650002 LABEL 'LB' 48700002 LINE ,(3,1) 48750002 LABEL 'CS / LSU BUSY / FL /BI STACK/ / CHANNEL ADDR 1 ASX48800002 SGNED BFR GRP /' 48850002 LINE ,(3,1) 48900002 LABEL 'ST 0 1 2 3 B TM PU R 1 2 3 4 5 6 7X48950002 9 A B C D' 49000002 LINE ,(1,1) 49050002 ROUTINE B1LC,ROUT1 49100002 LABEL 'LC' 49150002 LINE ,(4,1) 49200002 LABEL 'COB END PSCH DIB ACT / CHANNEL ADDR 2 ASSX49250002 GNED BFR GRP /' 49300002 LINE ,(3,1) 49350002 LABEL 'BS EC SQ SEQ B EC 1 2 3 4 5 6 7X49400002 9 A B C D' 49450002 LINE ,(1,1) 49500002 ROUTINE B1LD,ROUT1 49550002 LABEL 'LD' 49600002 LINE ,(3,1) 49650002 LABEL 'ADR KEY DAT PROT / CHANNEL ADDR 3 AX49700002 SSGNED BFR GRP /' 49750002 LINE ,(3,1) 49800002 LABEL 'CHK CHK CHK VIOL 1 2 3 4 5 6 7X49850002 9 A B C D' 49900002 LINE ,(1,1) 49950002 ROUTINE B1LE,ROUT1 50000002 LABEL 'LE' 50050002 LINE ,(3,1) 50100002 LABEL 'MK INB OUT INV / CHANNEL ADDR 4 ASX50150002 SGNED BFR GRP /' 50200002 LINE ,(3,1) 50250002 LABEL 'CK CK CK ADR 1 2 3 4 5 6 7X50300002 9 A B C D' 50350002 LINE ,(1,1) 50400002 ROUTINE B1LF,ROUT1 50450002 LABEL 'LF' 50500002 LINE ,(3,1) 50550002 LABEL 'CH BFR-OUT DATA CHK BYTE / CHANNEL ADDR 5 ASX50600002 SGNED BFR GRP /' 50650002 LINE ,(3,1) 50700002 LABEL ' 0 1 2 3 4 5 6 7 1 2 3 4 5 6 7X50750002 9 A B C D' 50800002 LINE ,(1,1) 50850002 ROUTINE B1LG,ROUT1 50900002 LABEL 'LG' 50950002 LINE ,(40,1) 51000002 LABEL '/ CHANNEL ADDR 6 ASSGNED BFR GRP /' 51050002 LINE ,(40,1) 51100002 LABEL '1 2 3 4 5 6 7 9 A B C D' 51150002 LINE ,(1,1),SKIP=3 51200002 ROUTINE B1LH,ROUT1 51250002 LABEL 'LH' 51300002 LINE ,(1,1),SKIP=1 51350002 LABEL 'LJ' 51400002 LINE ,(24,1) 51450002 LABEL 'BI STK CK' 51458002 LINE (28,1),(24,7) 51466002 ROUTINE XCPUMOD,CKMOD 51472002 LABEL 'PTY','OV' 51478002 LINE (1,1),(1,1),SKIP=3 51484002 ROUTINE B1LK,ROUT1 51490002 LABEL 'LK' 51500002 LINE ,(1,1),SKIP=3 51550002 LABEL 'LL' 51600002 LINE ,(19,1),SKIP=1 51650002 LABEL 'M/F FRAME B2 SCU- CHANNEL CTLS' 51700002 LINE ,(26,1) 51750002 LABEL 'REQUEST FOR CHANNEL IN-BUS' 51800002 LINE ,(4,1) 51850002 LABEL 'GRP1 GRP2 GRP3 GRP4 GRP5 GRP6 GRP7 GRP9 GRPA GRX51900002 PB GRPC GRPD' 51950002 LINE ,(1,1) 52000002 ROUTINE B2LB,ROUT1 52050002 LABEL 'LB' 52100002 LINE ,(27,1) 52150002 LABEL 'CHANNEL-BUFFER RESPONSE' 52200002 LINE ,(4,1) 52250002 LABEL 'GRP1 GRP2 GRP3 GRP4 GRP5 GRP6 GRP7 GRP9 GRPA GRX52300002 PB GRPC GRPD' 52350002 LINE ,(1,1) 52400002 ROUTINE B2LC,ROUT1 52450002 LABEL 'LC' 52500002 LINE ,(30,1) 52550002 LABEL 'REMEMBER RESPONSE' 52600002 LINE ,(4,1) 52650002 LABEL 'GRP1 GRP2 GRP3 GRP4 GRP5 GRP6 GRP7 GRP9 GRPA GRX52700002 PB GRPC GRPD' 52750002 LINE ,(1,1) 52800002 ROUTINE B2LD,ROUT1 52850002 LABEL 'LD' 52900002 LINE ,(29,1) 52950002 LABEL 'CHANNEL-BUFFER BUSY' 53000002 LINE ,(4,1) 53050002 LABEL 'GRP1 GRP2 GRP3 GRP4 GRP5 GRP6 GRP7 GRP9 GRPA GRX53100002 PB GRPC GRPD' 53150002 LINE ,(1,1) 53200002 ROUTINE B2LE,ROUT1 53250002 LABEL 'LE' 53300002 LINE ,(27,1) 53350002 LABEL 'CHANNEL IN-BUFFER VALID' 53400002 LINE ,(4,1) 53450002 LABEL 'GRP1 GRP2 GRP3 GRP4 GRP5 GRP6 GRP7 GRP9 GRPA GRX53500002 PB GRPC GRPD' 53550002 LINE ,(1,1) 53600002 ROUTINE B2LF,ROUT1 53650002 LABEL 'LF' 53700002 LINE ,(27,1) 53750002 LABEL 'CHANNEL OUT-BUFFER VALID' 53800002 LINE ,(4,1) 53850002 LABEL 'GRP1 GRP2 GRP3 GRP4 GRP5 GRP6 GRP7 GRP9 GRPA GRX53900002 PB GRPC GRPD' 53950002 LINE ,(1,1) 54000002 ROUTINE B2LG,ROUT1 54050002 LABEL 'LG' 54100002 LINE ,(25,1) 54150002 LABEL 'REQUEST FOR CHANNEL OUT-BUS' 54200002 LINE ,(4,1) 54250002 LABEL 'GRP1 GRP2 GRP3 GRP4 GRP5 GRP6 GRP7 GRP9 GRPA GRX54300002 PB GRPC GRPD' 54350002 LINE ,(1,1) 54400002 ROUTINE B2LH,ROUT1 54450002 LABEL 'LH' 54500002 LINE ,(28,1) 54550002 LABEL 'CHANNEL-BUFFER ADVANCE' 54600002 LINE ,(4,1) 54650002 LABEL 'GRP1 GRP2 GRP3 GRP4 GRP5 GRP6 GRP7 GRP9 GRPA GRX54700002 PB GRPC GRPD' 54750002 LINE ,(1,1),SKIP=3 54800002 ROUTINE B2LJ,ROUT1 54850002 LABEL 'LJ' 54900002 LINE ,(1,1),SKIP=3 54950002 LABEL 'LK' 55000002 LINE ,(1,1),SKIP=3 55050002 LABEL 'LL' 55100002 LINE ,(19,1),SKIP=1 55150002 LABEL 'M/F FRAME B3 HSM AND/OR EXTD CHN' 55200002 LINE ,(40,1) 55250002 LABEL '/ CHANNEL ADDR 7 ASSGNED BFR GRP /' 55300002 LINE ,(40,1) 55350002 LABEL '1 2 3 4 5 6 7 9 A B C D' 55400002 LINE ,(1,1) 55450002 ROUTINE B3LB,ROUT1 55500002 LABEL 'LB' 55550002 LINE ,(40,1) 55600002 LABEL '/ CHANNEL ADDR 8 ASSGNED BFR GRP /' 55650002 LINE ,(40,1) 55700002 LABEL '1 2 3 4 5 6 7 9 A B C D' 55750002 LINE ,(1,1) 55800002 ROUTINE B3LC,ROUT1 55850002 LABEL 'LC' 55900002 LINE ,(40,1) 55950002 LABEL '/ CHANNEL ADDR 9 ASSGNED BFR GRP /' 56000002 LINE ,(40,1) 56050002 LABEL '1 2 3 4 5 6 7 9 A B C D' 56100002 LINE ,(1,1) 56150002 ROUTINE B3LD,ROUT1 56200002 LABEL 'LD' 56250002 LINE ,(40,1) 56300002 LABEL '/ CHANNEL ADDR A ASSGNED BFR GRP /' 56350002 LINE ,(40,1) 56400002 LABEL '1 2 3 4 5 6 7 9 A B C D' 56450002 LINE ,(1,1) 56500002 ROUTINE B3LE,ROUT1 56550002 LABEL 'LE' 56600002 LINE ,(3,1) 56650002 LABEL 'CLOCK HI MNOR CYC DECD FLPSHRT / CHANNEL ADDR B ASX56700002 SGNED BFR GRP /' 56750002 LINE ,(4,1) 56800002 LABEL 'C CSAOR 1 2 3 1 IN RR RX 1 2 3 4 5 6 7 X56850002 9 A B C D' 56900002 LINE ,(1,1) 56950002 ROUTINE B3LF,ROUT1 57000002 LABEL 'LF' 57050002 LINE ,(3,1) 57100002 LABEL 'SPILLADDR MPLR' 57150002 LINE ,(4,1) 57200002 LABEL '2CRYCSA CPMPAR' 57250002 LINE ,(1,1) 57300002 ROUTINE B3LG,ROUT1 57350002 LABEL 'LG' 57400002 LINE ,(4,1) 57450002 LABEL 'RESIDUE SP SP SP MPLR REG SPILADDR' 57500002 LINE ,(3,1) 57550002 LABEL 'MP SUMCRY 0 1 2 0 1 2 0 1 2' 57600002 LINE ,(1,1) 57650002 ROUTINE B3LH,ROUT1 57700002 LABEL 'LH' 57750002 LINE ,(4,1) 57800002 LABEL 'MPCD/SUM/ CARRY /CMPT RSLT/ACT RSLT/' 57850002 LINE ,(4,1) 57900002 LABEL '0 1 2 0 1 2 0 1 2 0 1 2' 57950002 LINE ,(1,1) 58000002 ROUTINE B3LJ,ROUT1 58050002 LABEL 'LJ' 58100002 LINE ,(3,1) 58150002 LABEL 'CK MPLMPC/RESIDUE CTL---ACT/' 58200002 LINE ,(3,1) 58250002 LABEL 'RES P P MPC S CRYMPLSP RSL' 58300002 LINE ,(1,1),SKIP=3 58350002 ROUTINE B3LK,ROUT1 58400002 LABEL 'LK' 58450002 LINE ,(1,1),SKIP=3 58500002 LABEL 'LL' 58550002 LINE ,(1,1),SKIP=1 @YA07735 58550102 ROUTINE A4LJ,CHKEMU @YA07735 58550202 LABEL ' ' @YA07735 58550302 LINE ,(19,1),SKIP=1 58550502 LABEL 'M/F FRAME B5 7094 EMULATOR FEATURE' 58551002 LINE ,(23,1) 58551502 LABEL 'CONTROL STORAGE BITS (108-125)' 58552002 LINE ,(3,1) 58552502 LABEL '108 109 10 11 12 113 14 15 16 17 118 19 20 121 X58553002 122 123 24 25' 58553502 LINE ,(1,1) 58554002 ROUTINE B5LB,ROUT1 58554502 LABEL 'LB' 58555002 LINE ,(30,1) 58555502 LABEL '94 OPERATION CODE' 58556002 LINE ,(22,1) 58556502 LABEL 'S 1 2 3 4 5 6 7 8 9 10 11' 58557002 LINE ,(1,1),SKIP=3 58557502 ROUTINE B5LC,ROUT1 58558002 LABEL 'LC' 58558502 LINE ,(1,1),SKIP=1 58559002 LABEL 'LD' 58559502 LINE ,(3,1),SKIP=1 58560002 LABEL ' SIGN MODE / CONTROL TGRS/ X58560502 EMIT TO LSAL' 58561002 LINE ,(3,1) 58561502 LABEL 'ACC MQ ST SV 40 CT WABA4 AR1AR1AR2 LC IA X58562002 0 1 2 3' 58562502 LINE ,(1,1) 58563002 ROUTINE B5LE,ROUT1 58563502 LABEL 'LE' 58564002 LINE ,(3,1) 58564502 LABEL 'BUFFER MODE CONTROL TRIGGERS X58565002 EMIT TO LSAL5' 58565502 LINE ,(3,1) 58566002 LABEL 'ACC MQ HS MT TT 94 EI IV LC LSD EO HT CS X58566502 0 1 2 3' 58567002 LINE ,(1,1) 58567502 ROUTINE B5LF,ROUT1 58568002 LABEL 'LF' 58568502 LINE ,(38,1) 58569002 LABEL 'CONTROL TRIGGERS' 58569502 LINE ,(36,1) 58570002 LABEL 'IFI IFIIF AC ST PE ST' 58570502 LINE ,(1,1),SKIP=3 58571002 ROUTINE B5LG,ROUT1 58571502 LABEL 'LG' 58572002 LINE ,(1,1),SKIP=1 58572502 LABEL 'LH' 58573002 LINE ,(24,1) 58573502 LABEL '94 INSTRUCTION COUNTER BUFFER' 58574002 LINE ,(4,1) 58574502 LABEL 'P1 P2 P3 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 X58575002 24 25 26 27 28' 58575502 LINE ,(1,1) 58576002 ROUTINE B5LJ,ROUT1 58576502 LABEL 'LJ' 58577002 LINE ,(32,1) 58577502 LABEL 'XLTR' 58578002 LINE ,(33,1) 58578502 LABEL 'IN CS' 58579002 LINE ,(1,1),SKIP=3 58579502 ROUTINE B5LK,ROUT1 58580002 LABEL 'LK' 58580502 LINE ,(1,1),SKIP=3 58581002 LABEL 'LL' 58581502 LINE ,(19,1),SKIP=1 @YA07735 58600202 LABEL 'M/F FRAME B6 7094 EMULATOR' @YA07735 58600402 LINE ,(3,1),SKIP=1 @YA07735 58600602 LABEL 'P1 P9 94 INSTRUCTION REGIST58600802 TER' @YA07735 58601002 LINE , @YA07735 58601202 LABEL '-8 -16 S 1 2 3 4 5 6 7 8 9 10 11 1X58601402 2 13 14 15 16 17' @YA07735 58601602 LINE ,(1,1),SKIP=1 @YA07735 58601802 ROUTINE B6LB,ROUT1 @YA07735 58602002 LABEL 'LB' @YA07735 58602202 LINE ,(3,1),SKIP=1 @YA07735 58602402 LABEL 'P17 25 33 94 INSTRUCTION REGIST58602602 TER' @YA07735 58602802 LINE , @YA07735 58603002 LABEL '-24 32 35 18 19 20 21 22 23 24 25 26 27 28 29 3058603202 0 31 32 33 34 35' @YA07735 58603402 LINE ,(1,1),SKIP=3 @YA07735 58603602 ROUTINE B6LC,ROUT1 @YA07735 58603802 LABEL 'LC' @YA07735 58604002 LINE ,(1,1),SKIP=1 @YA07735 58604202 LABEL 'LD' @YA07735 58604402 LINE ,(26,1),SKIP=1 @YA07735 58604602 LABEL '94 INSTRUCTION COUNTER' @YA07735 58604802 LINE ,(3,1),SKIP=1 @YA07735 58605002 LABEL 'P1 P2 P3 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 2358605202 3 24 25 26 27 28' @YA07735 58605402 LINE ,(1,1),SKIP=3 @YA07735 58605602 ROUTINE B6LE,ROUT1 @YA07735 58605802 LABEL 'LE' @YA07735 58606002 LINE ,(1,1),SKIP=1 @YA07735 58606202 ROUTINE B6LF,ROUT1 @YA07735 58606402 LABEL 'LF' @YA07735 58606602 LINE ,(3,1),SKIP=1 @YA07735 58606802 LABEL 'INVINV INV ADDR REG 1' 58607002 LINE , @YA07735 58607202 LABEL 'R2AR2B P1AP2 P3 14 15 16 17 18 19 20 21 22 2358607402 3 24 25 26 27 28' @YA07735 58607602 LINE ,(1,1),SKIP=1 @YA07735 58607802 ROUTINE B6LG,ROUT1 @YA07735 58608002 LABEL 'LG' @YA07735 58608202 LINE ,(39,1),SKIP=1 @YA07735 58608402 LABEL 'ADDR REG 2' @YA07735 58608602 LINE ,(3,1),SKIP=1 @YA07735 58608802 LABEL 'P1 P2 P3 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 2358609002 3 24 25 26 27 28' @YA07735 58609202 LINE ,(1,1),SKIP=3 @YA07735 58609402 ROUTINE B6LH,ROUT1 @YA07735 58609602 LABEL 'LH' @YA07735 58609802 LINE , @YA07735 58610002 LABEL 'LJ' @YA07735 58610202 LINE , @YA07735 58610402 LABEL 'LK' @YA07735 58610602 LINE , @YA07735 58610802 LABEL 'LL' @YA07735 58611002 LINE ,(1,1),SKIP=1 @YA07735 58611202 ROUTINE A4LJ,JUMP @YA07735 58611402 LABEL ' ' @YA07735 58611602 LN7080 LINE ,(26,1),SKIP=1 @YA07735 58611802 LB7080 LABEL 'M/F FRAME B6 7080 EMULATOR' @YA07735 58612002 LINE ,(15,1) @YA07735 58612202 LABEL 'STATUS GROUP 1 CS BITS' @YA07735 58612402 LINE ,(12,1) @YA07735 58612602 LABEL 'CPT SX OT INDEX ZC DC 108 09 10 11 12 13' 58612802 LINE ,(1,1) @YA07735 58613002 ROUTINE B6LB,ROUT1 @YA07735 58613202 LABEL 'LB' @YA07735 58613402 LINE ,(15,1) @YA07735 58613602 LABEL 'STATUS GROUP 2 CS BITS' @YA07735 58613802 LINE ,(12,1) @YA07735 58614002 LABEL 'IN FAC MI IP CHK AZ MI 114 15 16 17 18 19' 58614202 LINE ,(1,1) @YA07735 58614402 ROUTINE B6LC,ROUT1 @YA07735 58614602 LABEL 'LC' @YA07735 58614802 LINE ,(15,1) @YA07735 58615002 LABEL 'STATUS GROUP 3 CS BITS' @YA07735 58615202 LINE ,(12,1) @YA07735 58615402 LABEL 'DIL DC 80 05 SW ME 5S 4S 120 21 22 23 24 25' 58615602 LINE ,(1,1) @YA07735 58615802 ROUTINE B6LD,ROUT1 @YA07735 58616002 LABEL 'LD' @YA07735 58616202 LINE ,(35,1) @YA07735 58616402 LABEL 'STATUS EM LCL STOR' @YA07735 58616602 LINE ,(35,1) @YA07735 58616802 LABEL 'VALID 0 1 2 3' @YA07735 58617002 LINE ,(1,1) @YA07735 58617202 ROUTINE B6LE,ROUT1 @YA07735 58617402 LABEL 'LE' @YA07735 58617602 LINE ,(12,1) @YA07735 58617802 LABEL 'ADD TLCH 20 40 80 GW EMIT' 58618002 LINE ,(12,1) @YA07735 58618202 LABEL '80A A B WR WR WR IN 5 W PA BR LSAR' 58618402 LINE ,(1,1) @YA07735 58618602 ROUTINE B6LF,ROUT1 @YA07735 58618802 LABEL 'LF' @YA07735 58619002 LINE ,(54,1) @YA07735 58619202 LABEL 'EMU BITS' @YA07735 58619402 LINE , @YA07735 58619602 LABEL 'CS 0 1 2 3' @YA07735 58619802 LINE ,(1,1) @YA07735 58620002 ROUTINE B6LG,ROUT1 @YA07735 58620202 LABEL 'LG' @YA07735 58620402 LINE ,(10,1) @YA07735 58620602 LABEL 'PAGE CHECKS' @YA07735 58620802 LINE , @YA07735 58621002 LABEL 'AB20 00 01 10 11' @YA07735 58621202 LINE ,(1,1) @YA07735 58621402 ROUTINE B6LH,ROUT1 @YA07735 58621602 LABEL 'LH' @YA07735 58621802 LINE ,(10,1) @YA07735 58622002 LABEL 'PAGE REMEMBERS' @YA07735 58622202 LINE ,(10,1) @YA07735 58622402 LABEL 'AB20 00 01 10 11' @YA07735 58622602 LINE ,(1,1) @YA07735 58622802 ROUTINE B6LJ,ROUT1 @YA07735 58623002 LABEL 'LJ' @YA07735 58623202 LINE ,(48,1) @YA07735 58623402 LABEL 'S-ADDER' @YA07735 58623602 LINE ,(45,1) @YA07735 58623802 LABEL 'CS A B' @YA07735 58624002 LINE ,(1,1),SKIP=3 @YA07735 58624202 ROUTINE B6LK,ROUT1 @YA07735 58624402 LABEL 'LK' @YA07735 58624602 LINE ,(1,1),SKIP=3 @YA07735 58624802 LABEL 'LL' @YA07735 58625002 LINE ,(1,1),SKIP=1 @YA07735 58625202 ROUTINE B6LK,JUMP @YA07735 58625402 LABEL ' ' @YA07735 58625602 LN7074 LINE ,(26,1),SKIP=1 @YA07735 58625802 LB7074 LABEL 'M/F FRAME B6 7074 EMULATOR' @YA07735 58626002 LINE ,(27,1),SKIP=1 @YA07735 58626202 LABEL 'CONTROL STORE BITS 108-125' @YA07735 58626402 LINE ,(3,1) @YA07735 58626602 LABEL '108 09 10 11 12 113 14 15 16 17 118 19 20 21 C58626802 22 123 24 25' @YA07735 58627002 LINE ,(1,1),SKIP=3 @YA07735 58627202 ROUTINE B6LB,ROUT1 @YA07735 58627402 LABEL 'LB' @YA07735 58627602 LINE ,,SKIP=1 @YA07735 58627802 LABEL 'LC' @YA07735 58628002 LINE ,(27,1),SKIP=1 @YA07735 58628202 LABEL 'STAT MISC 4-LSAL' 58628402 LINE ,(27,1) @YA07735 58628602 LABEL 'VLD W X Y Z 0 1 2 3' 58628802 LINE ,(1,1),SKIP=3 @YA07735 58629002 ROUTINE B6LD,ROUT1 @YA07735 58629202 LABEL 'LD' @YA07735 58629402 LINE , @YA07735 58629602 LABEL 'LE' @YA07735 58629802 LINE , @YA07735 58630002 LABEL 'LF' @YA07735 58630202 LINE ,,SKIP=1 @YA07735 58630402 LABEL 'LG' @YA07735 58630602 LINE ,(10,1) @YA07735 58630802 LABEL 'PAGE CHECKS' @YA07735 58631002 LINE ,(10,1) @YA07735 58631202 LABEL 'AB18 00 01 10 11' @YA07735 58631402 LINE ,(1,1) @YA07735 58631602 ROUTINE B6LH,ROUT1 @YA07735 58631802 LABEL 'LH' @YA07735 58632002 LINE ,(10,1) @YA07735 58632202 LABEL 'PAGE REMEMBERS' @YA07735 58632402 LINE ,(10,1) @YA07735 58632602 LABEL 'AB18 00 01 10 11' @YA07735 58632802 LINE ,(1,1) @YA07735 58633002 ROUTINE B6LJ,ROUT1 @YA07735 58633202 LABEL 'LJ' @YA07735 58633402 LINE ,(36,1) @YA07735 58633602 LABEL 'CS' @YA07735 58633802 LINE ,(34,1) @YA07735 58634002 LABEL '108-125' @YA07735 58634202 LINE ,(1,1),SKIP=3 @YA07735 58634402 ROUTINE B6LK,ROUT1 @YA07735 58634602 LABEL 'LK' @YA07735 58634802 LINE ,(1,1) @YA07735 58635002 LABEL 'LL' @YA07735 58635202 LNJUMP LINE ,(1,1),SKIP=1 @YA07735 58635402 ROUTINE XDUM2,WHERETO @Z402IFR 58635502 LBJUMP LABEL ' ' @YA07735 58635602 DC X'FE' @YA07735 58635802 DC CL8'IFCEF165' 58650002 LEX DC X'FE' @Z402IFR 58660002 DC CL8'IFCELEX1' @Z402IFR 58670002 LABLAREA EQU * 58700002 LSTART 58750002 END 58800002