TITLE 'IFCEM155 MODEL 155 OLYMPUS EDIT TABLE 2' 00030002 MACRO 00060002 &NAME LINE &DATA,&LABEL,&SKIP= 00090002 .* THIS MACRO ESTABLISHES THE MARGINS OR 00120002 .* COLUMN SETTINGS FOR EACH LINE. IT 00150002 .* GENERATES NECESSARY CARRIAGE CONTROL 00180002 .* ENTRIES. LASTLY IT DETERMINES THE 00210002 .* NUMBER OF ENTRIES ASSOCIATED WITH 00240002 .* THE PREVIOUS LINE AND STORES THAT # 00270002 .* INTO THE APPROPRIATE BYTE. 00300002 .* &DATA(1) - CHARACTER POSITION TO BEGIN 00330002 .* DATA. 00360002 .* &DATA(2) - # OF SPACES BETWEEN SUCCESSIVE 00390002 .* DATA COLUMN STARTING CHARACTERS. 00420002 .* &LABEL(1) - CHAR. POS. TO BEGIN LABELS. 00450002 .* &LABEL(2) - # SPACES BETWEEN LINE'S LABEL 00480002 .* STARTING CHARACTERS. 00510002 .* &SKIP= - # OF LINES TO ADVANCE CARRIAGE 00540002 .* TO BEGIN NEXT PRINTED LINE. 00570002 .* NEW ENTRIES ARE GENERATED ONLY WHEN 00600002 .* NECESSARY. OMISSION OF ITEMS MEANS 00630002 .* THEY HAVE NOT CHANGED SINCE PREVIOUS 00660002 .* SETTINGS. A LINE MACRO IS REQUIRED 00690002 .* FOR EACH PRINTED LINE. IF NO SETTING 00720002 .* CHANGES ARE REQUIRED ALL OPERANDS 00750002 .* ARE OMITTED IN WHICH CASE ONLY THE 00780002 .* # OF ENTRIES FOR THE PREVIOUS LINE 00810002 .* IS COMPUTED. THIS MACRO MUST BE THE 00840002 .* FIRST MACRO INSTRUCTION ISSUED FOR 00870002 .* THE SUBJECT LINE 00900002 GBLA &DB,&DT,&LB,<,&NRENTS 00930002 GBLA &LASTCC,&INITIAL 00960002 GBLC &NRENTSX 00990002 GBLC &CARRCON 01020002 GBLB &TEST 01050002 GBLB &DIAGTST,&DIAGSET,&DIAGLIN 01080002 LCLA &S 01110002 AIF (&INITIAL EQ 0 OR &DIAGTST EQ 0).DIAGSET 01140002 AIF (&DIAGSET EQ 0).DIAGSET 01170002 MNOTE '**NO LABEL ASSOCIATED WITH LAST SET**' 01200002 ***** THE FOLLOWING GENERATED FOR TEST PURPOSES ***** 01230002 * LABEL '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%' 01260002 LABEL '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%' 01290002 .DIAGSET ANOP 01320002 &DIAGSET SETB 1 01350002 &DIAGLIN SETB 1 01380002 &NAME DS 0C 01410002 AIF (&INITIAL EQ 0).FIRSTLN 01440002 LINEND 01470002 AGO .NTFIRST 01500002 .FIRSTLN ANOP 01530002 &NRENTSX SETC 'N&SYSNDX' 01560002 &INITIAL SETA 1 01590002 N&SYSNDX EQU * 01620002 .NTFIRST ANOP 01650002 DC AL1(0) 01680002 AIF ('&DATA(1)' EQ '').CKDTABS 01710002 AIF (&DATA(1) EQ &DB).CKDTABS 01740002 &DB SETA &DATA(1) 01770002 AGO .AA 01800002 .CKDTABS AIF ('&DATA(2)' EQ '').NCDATA 01830002 AIF (&DATA(2) EQ &DT).NCDATA 01860002 AGO .CC 01890002 .AA AIF ('&DATA(2)' EQ '').BB 01920002 AIF (&DATA(2) EQ &DT).BB 01950002 .CC ANOP 01980002 &DT SETA &DATA(2) 02010002 .BB DC XL2'FFFE' 02040002 DC FL1'&DB' 02070002 DC FL1'&DT' 02100002 &NRENTS SETA &NRENTS+1 02130002 .NCDATA ANOP 02160002 AIF ('&LABEL(1)' EQ '').CKLTABS 02190002 AIF (&LABEL(1) EQ &LB).CKLTABS 02220002 &LB SETA &LABEL(1) 02250002 AGO .AAA 02280002 .CKLTABS AIF ('&LABEL(2)' EQ '').NCLABEL 02310002 AIF (&LABEL(2) EQ <).NCLABEL 02340002 AGO .CCC 02370002 .AAA AIF ('&LABEL(2)' EQ '').BBB 02400002 AIF (&LABEL(2) EQ <).BBB 02430002 .CCC ANOP 02460002 < SETA &LABEL(2) 02490002 .BBB DC XL2'FFFF' 02520002 DC FL1'&LB' 02550002 DC FL1'<' 02580002 &NRENTS SETA &NRENTS+1 02610002 .NCLABEL ANOP 02640002 AIF ('&SKIP' NE '').CONT 02670002 AIF (&TEST EQ 0).NOCHANG 02700002 AGO .DEFALTA 02730002 .CONT ANOP 02760002 AIF (&TEST EQ 0).AB 02790002 AIF ('&SKIP' EQ 'E').AB 02820002 &S SETA &SKIP 02850002 .DEFAULT ANOP 02880002 AIF (&SKIP EQ &LASTCC).DEFALTA 02910002 ORG &CARRCON+3 02940002 DC AL.3(0),AL.2(&S),AL.3(1) 02970002 ORG 03000002 &LASTCC SETA &S 03030002 .DEFALTA ANOP 03060002 &TEST SETB 0 03090002 AGO .DD 03120002 .AB AIF ('&SKIP' NE 'E').ABB 03150002 A&SYSNDX DC X'FFFB8B00' EJECT 03180002 AGO .ABC 03210002 .ABB AIF (&SKIP EQ &LASTCC).NOCHANG 03240002 A&SYSNDX DC XL2'FFFB' 03270002 DC AL.3(0),AL.2(&SKIP),AL.3(1) 03300002 DC AL.3(0),AL.2(&SKIP),AL.3(1) 03330002 &LASTCC SETA &SKIP 03360002 &TEST SETB 1 03390002 .ABC ANOP 03420002 &CARRCON SETC 'A&SYSNDX' 03450002 &NRENTS SETA &NRENTS+1 03480002 .DD ANOP 03510002 .NOCHANG ANOP 03540002 MEND 03570002 * 03720002 *********************************************************************** 03750002 * 03780002 * 03810002 MACRO 03840002 &NAME ROUTINE &LOGITEM,&RNAME 03870002 GBLC &ITEM(3000) 03900002 GBLA &SHIFT(3000),&ITEMNBR 03930002 GBLC &DSECT,&CSECT 03960002 GBLA &NRENTS 03990002 LCLA &ISHIFT,&NDX 04020002 .LOOP ANOP 04050002 &NDX SETA &NDX+1 04080002 AIF ('&ITEM(&NDX)' EQ '&LOGITEM').FOUND 04110002 AIF (&NDX LT &ITEMNBR).LOOP 04140002 MNOTE 'LOG ITEM NOT DEFINED' 04170002 MEXIT 04200002 .FOUND ANOP 04230002 &ISHIFT SETA &SHIFT(&NDX) 04260002 &NAME DC AL.12(&LOGITEM-&DSECT),XL.4'D' 04290002 DC AL.4(&ISHIFT),AL.12(&RNAME-&CSECT) 04320002 &NRENTS SETA &NRENTS+1 04350002 MEND 04380002 * 04410002 * 04440002 *********************************************************************** 04470002 * 04500002 * 04530002 MACRO 04560002 &NAME LABEL &LABEL1,&LABEL2,&LABEL3,&LABEL4,&LABEL5,&LABEL6, C04580002 &LABEL7,&LABEL8 04600002 .* THIS MACRO ALLOWS LABELS TO 04620002 .* BE SPECIFIED FOR A GIVEN LINE. THE 04640002 .* LABELS SHOULD BE ENCLOSED IN QUOTA- 04660002 .* TION MARKS. THE COLUMN AND LINE END 04680002 .* CONTROLS WILL BE INSERTED BY THE 04700002 .* MACRO. OMITTED OPERANDS MEAN NO 04720002 .* LABEL REQUIRED FOR RESPECTIVE 04740002 .* COLUMN. 04760002 GBLC &LABELS(3000) 04780002 GBLC &LBL(300) 04800002 GBLA &LBLCTR(300) 04820002 GBLA &LABELNR 04840002 GBLA &NRENTS,&LPTR,&INITIAL 04860002 GBLB &DIAGTST,&DIAGSET,&DIAGLIN 04880002 LCLC &MARGIN,&TACK 04900002 LCLC &TEXT 04920002 LCLA &OP,&K,&START,&NRCHAR,&REMAIN 04940002 ACTR 500000 04960002 AIF (&INITIAL EQ 0).DIAGCLR 04980002 AIF (&DIAGTST EQ 0).DIAGCLR 05000002 AIF (&DIAGLIN EQ 1).DIAGCLR 05020002 MNOTE '**NO LINE ASSOCIATED WITH PREVIOUS LABEL**' 05040002 ***** THE FOLLOWING GENERATED FOR TEST PURPOSES ***** 05060002 * LINE 05080002 LINE 05100002 .DIAGCLR ANOP 05120002 &DIAGSET SETB 0 05140002 &DIAGLIN SETB 0 05160002 &MARGIN SETC '*' 05180002 AIF ('&NAME' EQ '').LOOPOUT 05200002 &LPTR SETA &LPTR+1 05220002 &LBL(&LPTR) SETC '&NAME' 05240002 &LBLCTR(&LPTR) SETA &LABELNR+1 05260002 .LOOPOUT ANOP 05280002 &OP SETA &OP+1 05300002 &K SETA K'&SYSLIST(&OP) 05320002 AIF (&K GE 2).NORM 05340002 &K SETA 2 05360002 .NORM ANOP 05380002 &START SETA 2 05400002 AIF (&OP LT N'&SYSLIST).NOTLAST 05420002 &MARGIN SETC '$' 05440002 .NOTLAST ANOP 05460002 &NRCHAR SETA 8 05480002 &TACK SETC '' 05500002 .LOOPIN ANOP 05520002 &REMAIN SETA &K-&START 05540002 AIF (&REMAIN GE 8).MORE 05560002 &TACK SETC '&MARGIN' 05580002 &NRCHAR SETA &REMAIN 05600002 .MORE ANOP 05620002 &TEXT SETC '' 05640002 AIF (&REMAIN EQ 0).ENDTEXT 05660002 &TEXT SETC '&SYSLIST(&OP)'(&START,&NRCHAR) 05680002 .ENDTEXT ANOP 05700002 &LABELNR SETA &LABELNR+1 05720002 &LABELS(&LABELNR) SETC '&TEXT'.'&TACK' 05740002 &START SETA &START+8 05760002 AIF ('&TACK' EQ '').LOOPIN 05780002 AIF ('&TACK' EQ '*').LOOPOUT 05800002 MEND 05820002 SPACE 2 06210002 MACRO 06240002 LSTART 06270002 .* THIS MACRO IS ISSUED WHEN THE LABEL AREA 06300002 .* OF THE TABLE IS TO BEGIN. 06330002 GBLC &LABELS(3000) 06360002 GBLA &LABELNR 06390002 GBLC &LBL(300) 06420002 GBLA &LBLCTR(300) 06450002 LCLA &NDX,&CTR 06480002 LINEND 06510002 &CTR SETA 1 06540002 .LOOP ANOP 06570002 &NDX SETA &NDX+1 06600002 AIF (&LBLCTR(&CTR) NE &NDX).NOLBL 06630002 &LBL(&CTR) DC C'&LABELS(&NDX)' 06660002 &CTR SETA &CTR+1 06690002 AGO .LOOPCTL 06720002 .NOLBL ANOP 06750002 DC C'&LABELS(&NDX)' 06780002 .LOOPCTL AIF (&NDX LT &LABELNR).LOOP 06810002 MEND 06840002 * 06870002 * 06900002 *********************************************************************** 06930002 * 06960002 * 06990002 MACRO 07020002 LINEND 07050002 .* THIS MACRO IS USED ONLY BY THE LINE 07080002 .* MACRO TO SET THE NUMBER OF ENTRIES 07110002 .* ASSOCIATED WITH EACH LINE. 07140002 GBLA &NRENTS 07170002 GBLC &NRENTSX 07200002 ORG &NRENTSX 07230002 DC FL1'&NRENTS' 07260002 ORG 07290002 &NRENTS SETA 0 07320002 B&SYSNDX EQU * 07350002 &NRENTSX SETC 'B&SYSNDX' 07380002 MEND 07410002 * 07440002 * 07470002 *********************************************************************** 07500002 * 07530002 * 07560002 MACRO 07590002 &NAME BIND &Z1,&Z2,&Z3,&Z4 07620002 .* THIS MACRO HELPS COLLOCATE BITS IN 07650002 .* DIFFERENT AREAS OF THE LOG TO MAKE 07680002 .* THEM ACCESSIBLE TO THE 'HEX' MACRO. 07710002 .* EACH OPERAND HAS 3 SUBFIELDS:1 SPE- 07740002 .* CIFIES BY LOGITEM NAME THE BYTE TO 07770002 .* BE REFERENCED,2 GIVES THE NUMBER OF 07800002 .* UNDESIRED BITS TO THE LEFT OF THE 07830002 .* LOG ITEM'S FIRST BIT,3 GIVES THE LOG 07860002 .* ITEM'S LENGTH IN BITS. THE MACRO 07890002 .* CAUSES THE INFORMATION TO BE STORED & 07920002 .* CONTROL IS GIVEN TO THE 'BINDER' ROU- 07950002 .* TINE,WHICH STORES THE COLLOCATED 07980002 .* BITS RIGHT-JUSTIFIED IN THE FOUR- 08010002 .* BYTE WORK AREA INSERTED IN THE LOG, 08040002 .* BEGINNING AT 'LOGWORK1' 08070002 GBLC &DSECT 08100002 LCLA &OP 08130002 ACTR 500000 08160002 &NAME BC 15,BINDER 08190002 .LOOP ANOP 08220002 &OP SETA &OP+1 08250002 DC AL.16(&SYSLIST(&OP,1)-&DSECT) 08280002 DC FL1'&SYSLIST(&OP,2)' 08310002 DC FL1'&SYSLIST(&OP,3)' 08340002 AIF (&OP LT N'&SYSLIST).LOOP 08370002 ORG &NAME+4 08400002 DC AL.4(&OP),AL.12(&SYSLIST(1,1)-&DSECT) 08430002 ORG 08460002 MEND 08490002 MACRO 08520002 &NAME CKPARITY &PAR1,&PAR2,&PAR3,&PAR4,&PAR5,&PAR6 08550002 .* THIS MACRO HELPS SET THE LOCATION 08580002 .* CONTROLS FOR A SPECIAL ROUTINE TO 08610002 .* CHECK PARITY ON ITEMS FROM THE LOG 08640002 .* ALREADY ASSEMBLED FOR PRINTING IN THE 08670002 .* PRINT BUFFER THAT HAS BEEN SET UP. 08700002 .* EACH OPERAND (UP TO SIX) HAS THREE 08730002 .* SUBFIELDS:1 GIVES THE DISPLACEMENT 08760002 .* FROM PRINT POSITION ZERO TO BEGIN 08790002 .* THE PARITY CHECK(I.E.,LOC. OF PARITY 08820002 .* BIT IN BUFFER);2 GIVES THE NUMBER OF 08850002 .* POSITIONS TO CHECK AGAINST THE PARITY 08880002 .* BIT (ASSUMING 1 SPACE BETWEEN PAR BIT 08910002 .* AND THE FIRST POSITION TO BE CHECKED) 08940002 .* 3 GIVES THE NUMBER OF SEQUENTIAL PAR. 08970002 .* CHECKS OF THIS SORT TO MAKE,ASSUMING 09000002 .* TWO SPACES BETWEEN THE LAST POSITION 09030002 .* CHECKED AND NEXT PAR. BIT POSITION 09060002 LCLA &OP 09090002 &NAME BC 15,PARPUT 09120002 DC X'0' 09150002 .LOOP ANOP 09180002 &OP SETA &OP+1 09210002 DC FL1'&SYSLIST(&OP,1)' 09240002 DC FL1'&SYSLIST(&OP,2)' 09270002 DC FL1'&SYSLIST(&OP,3)' 09300002 AIF (&OP LT N'&SYSLIST).LOOP 09330002 ORG &NAME+4 09360002 DC FL1'&OP' 09390002 ORG 09420002 MEND 09450002 MACRO 09480002 DSGENFET 09510002 DS 0F 09540002 DSGEN (XKEY,16),(XSWS0,8),(XSWS8,1),(XSWS9,1), *09570002 (XSWS10,1),(XSWS11,1), *09600002 (XSWS12,1),(XSWS13,1),(XSWS14,1),(XSWS15,1) 09630002 DSGEN (LOGWORK1,8),(LOGWORK2,6),(LOGWORK3,2),(LOGWRK3A,4), *09660002 (LOGWRK3B,3),(LOGWRK3C,1),(LOGWORK4,8) 09690002 DSGEN (XDATE,32) 09720002 DSGEN (XTIME,32) 09750002 DSGEN (XDUM2,8),(XSER,24) 09780002 DSGEN (XCPUMOD,16),(XDUM3,16) 09810002 DSGEN (XPGMID,64) 09840002 DSGEN (XJOBID,64) 09870002 DSGEN (XMCKPSW,64) 09900002 DSGEN (SYSDAM,1),(PROCD,1),(SYSREC,1),(TIMDAM,1),(CLOCKD,1), X09930002 (EXTDAM,1),(MDUM0,1),(AUTOCON,1),(WARNG,1), X09960002 (DUM,5),(BACKUP1,1),(DELAY,1),(UNSTOR,1), *09990002 (CORRST,1),(KEYERR,1),(DUMMY001,1),(EMWP,1), *10020002 (SYSMSK,1),(PGMSK,1),(IAVLD,1),(FASTVLD,1), X10050002 (RCVLD,1),(MDUM3,1),(FLPVLD,1),(GPRVLD,1), X10080002 (CTLVLD,1),(LOGVLD,1),(STVLD,1) 10110002 DS 276C 10140002 DSGEN (XBUS0,8),(XBUS1,8),(XBUS2,8),(XBUS3,8) 12180002 DSGEN (YBUS0,8),(YBUS1,8),(YBUS2,8),(YBUS3,8) 12210002 DSGEN (ZBUS0,8),(ZBUS1,8),(ZBUS2,8),(ZBUS3,8) 12240002 DSGEN (UBUS,8),(VBUS,8),(WBUS,8),(FILREG,8) 12270002 DSGEN (STLNK,1),(RABUSRP,1),(RABUSBI,1),(RABUS1P,1), *12300002 (RABUS1,4),(RABUS3,8),(BFRBUSY,1),(RBAR1RP,1), *12330002 (RBAR1BI,1),(RBAR11P,1),(RBAR11,4),(RBAR13,8) 12360002 DSGEN (LSSSTS,2),(CPURLAR,6),(WRCPULS,1),(DUMMY000,1), *12390002 (CPUWLAR,6),(DUMMY002,1),(DUMMY003,1),(IORLAR,6), *12420002 (WRIOLS,1),(DUMMY004,1),(IOWLAR,6) 12450002 DSGEN (EXTSW0,8),(EXTSW1,8),(EXTSW2,8),(EXTSW3,8) 12480002 DSGEN (SPARE030,8),(SPARE031,8),(SPARE032,8),(SPARE033,8) 12510002 DSGEN (AREG0,8),(AREG1,8),(AREG2,8),(AREG3,8) 12540002 DSGEN (BREG0,8),(BREG1,8),(BREG2,8),(BREG3,8) 12570002 DSGEN (CREG0,8),(CREG1,8),(CREG2,8),(CREG3,8) 12600002 DSGEN (DREG0,8),(DREG1,8),(DREG2,8),(DREG3,8) 12630002 DSGEN (IOLSD0,8),(IOLSD1,8),(IOLSD2,8),(IOLSD3,8) 12660002 DSGEN (CPULS0,8),(CPULS1,8),(CPULS2,8),(CPULS3,8) 12690002 DSGEN (IOSAR0,8),(IOSAR1,8),(IOSAR2,8),(IOSAR3,8) 12720002 DSGEN (CPUSR0,8),(CPUSR1,8),(CPUSR2,8),(CPUSR3,8) 12750002 DSGEN (SPARE034,8),(IAR1,8),(IAR2,8),(IAR3,8) 12780002 DSGEN (PSWSM,8),(PSWKEY,8),(PSWESM,8),(CONSUM,1), @YA02788X12810002 (STRT,1),(RSTRT,1),(MPRSET,1),(SPARE035,4) @YA02788 12820002 DSGEN (RBAR2IO,1),(RBAR2RP,1),(RBAR2BI,1),(RBAR21P,1), *12840002 (RBAR21,4),(RBAR23,8),(RBAR3IO,1),(RBAR3RP,1), *12870002 (RBAR3BI,1),(RBAR31P,1),(RBAR31,4),(RBAR33,8) 12900002 DSGEN (BS0,4),(BS4P,1),(BS4,3),(ABCTRP,1), *12930002 (ABCTR,3),(CBCTRP,1),(CBCTR,3),(IFTHRS,1), *12960002 (IFRES,1),(IFINV,1),(IFPRTC,1),(IFIC,1), *12990002 (IFEXS,1),(IFILC,2),(ALUFNR,4), *13020002 (QBIT,1),(CCST,1),(CSA,1),(CSB,1) 13050002 DSGEN (L12CTR,8),(L2SS,1),(CC,2), *13080002 (FNBR,2),(ALWTRP,1),(NSSMD,1),(DUMMY006,1), *13110020 (R12CTR,8),(INABRR,3),(INBBRR,4),(HYRST,1) 13140002 DSGEN (SRADAD1,7),(HRDCHK,1),(SERADM,1),(INTDL,1), *13170002 (WAITFR,1),(ENGHEAD,1),(INPERR,1),(CLKERR,1), *13200002 (ABCOMPS,1),(LOGCMPS,1),(DIAGCTR,8),(SPRWL036,7), X13230002 (R5136,1) 13260002 DSGEN (DUMMY007,1),(DUMMY008,1),(INDDISP,1),(CPURA1P,1), *13290002 (CPURA1,4),(CPURA3,8),(GPSTL1,4),(GPSTL2P,1), *13320002 (GPSTL2,3),(S19,1),(EXTST,1),(ANYEXC,1), *13350002 (ICPLUS4,1),(IC1B29,1),(IB0FULL,3) 13380002 DSGEN (SPARE037,8),(SPARE038,8),(SPARE039,8),(SPARE040,8) 13410002 DSGEN (XBUSE,4),(YBUSE,4),(CARRYE,8),(HSUME,4),(ZBUSE,4), *13440002 (LSREGE,4),(CISARE,4) 13470002 DSGEN (GPSTE,2),(LCTRE,1),(RCTRE,1), *13500002 (DUMMY009,1),(DUMMY010,1),(ABE,1),(CBE,1), *13530002 (PSW0E,1),(PSW1E,1),(PSW2E,1),(PSW3E,1), *13560002 (WBUSE,1),(ABCTRE,1),(CBCTRE,1),(MEME,1), *13590002 (EXTSWE,4),(EESW0E,1),(HOFFE,1),(ABDLYE,1),(EESW3E,1), *13620002 (CLSARE,1),(CH02E,1),(CH35E,1),(MVRHSE,1), *13650002 (MPSCC,1),(MVRFNE,1),(ICE,2) @YA02788 13680002 DSGEN (ERLYRE,3),(RSYNCE,1), *13710002 (LATER0E,1),(LATER1E,1),(LATER2E,1),(LATER3E,1), *13740002 (MISDECE,1),(SSDECE,1),(CNTDECE,1),(BBRE,1), *13770002 (RADRE,1),(ZDECE,1),(CRUCWLS,1),(TMKE,1), *13800002 (SPARE041,8),(SPARE042,8) 13830002 DSGEN (CP1R0,4),(CP1R1P,1),(CP1R1,3),(CP2R0P,1), *13860002 (CP2NC,1),(CP2SE,1),(CP2DE,1),(CP2IE,1), *13890002 (CP2R1P,1),(CP2HC,1),(CP2AC,1),(CP2R3,1), *13920002 (ERRCTR,4),(IGNORE1,1),(SERDIS,1),(ENDATA,1), *13950002 (SDC,1),(DUMMY015,1),(HARDST,1),(ADRCPST,1), *13980002 (DUMMY016,1),(DUMMY017,1),(DUMMY018,1),(DUMMY019,1) 14010002 DSGEN (ABI1,1),(NXA1,3),(NXB1,4),(BRC11,1), *14040002 (ABR1,5),(BBR01,2),(BBR21,2),(IOPR,2), *14070002 (IOSSB,3),(XYALU01,1),(XYALU21,2),(UX1,3), *14100002 (VY1,3) 14130002 DSGEN (LRSP,1),(LSWR,4),(LSRD,3),(MISC21,2), *14160002 (CNT1,4),(Z01,2),(Z21,1),(ZW1,4), *14190002 (XYSH1,3),(EMIT1,5),(EMIT2,3) 14220002 SPARE043 DS 136C 14250002 DSGEN (CHSELA0,1),(CHSELA1,1),(CHSELA2,1),(CHIOM,1), *19590002 (CHROAR,1),(CHNUM0,1),(CHNUM1,1),(CHNUM2,1), *19620002 (CHREQC1,1),(CHREQCB,1),(CIOMLTH,1),(IOMB,1), *19650002 (C1PR2,1),(C1PR3,1),(C2PR2,1),(C2PR3,1), *19680002 (C3PR2,1),(C3PR3,1),(C4PR2,1),(C4PR3,1), *19710002 (C5PR2,1),(C5PR3,1),(MPXOS2,1),(DUMMY185,1), *19740002 (DUMMY186,1),(DUMMY187,1),(DUMMY188,1),(DUMMY189,1), *19770002 (DUMMY190,1),(ANYIR,1),(CHDIAGM,1),(CHFC,1) 19800002 DSGEN (SNSBYTX,8),(RDYX,1),(SELPGX,1),(XSDSEL,1),(SEQ1X,1), *19830002 (SEQ2X,1),(SEQ3X,1),(SEQ4X,1),(SEQ5X,1),(DISCX,1), *19860002 (STAPTYX,1),(ATTX,1),(BUSYX,1),(CHENDX,1),(DVENDX,1), *19890002 (UNCKX,1),(UNEXCPX,1),(STACKX,1),(WRITX,1),(XREAD,1), *19920002 (CTRLX,1),(SCBYX,1),(EOFX,1),(XSPARE,1),(ENCMPX,1) 19950002 DS 4C 19980002 DSGEN (C4HCE,1),(C4BCIE,1),(C4BME,1),(C4IRE,1), *20220002 (C4LRE,1),(C4SBE,1),(C4SBOE,1),(C4ISE,1), *20250002 (C4SPE,1),(C4SWE,1),(C5HCE,1),(C5BCIE,1), *20280002 (C5BME,1),(C5IRE,1),(C5LRE,1),(C5SBE,1), *20310002 (C5SBOE,1),(C5ISE,1),(C5SPE,1),(C5SWE,1), *20340002 (CCCH3E,1),(CCCH4E,1),(CCCH5E,1),(C3CLE,1), *20370002 (C3ITE,1),(C4CLE,1),(C4ITE,1),(C5CLE,1), *20400002 (C5ITE,1),(C35SCE,1),(C35ITAE,1),(C35ITBE,1) 20430002 DSGEN (BIRPE,1),(BIRE,1),(C0BCE,1),(C0BOCE,1), *20460002 (C0S07E,1),(C0RE,1),(C0UCE,1),(C0CCE,1), *20490002 (C0RCE,1),(C0ITE,1),(C0CLE,1),(C1ITE,1), *20520002 (C1CLE,1),(C2ITE,1),(C2CLE,1),(UPDE,1), *20550002 (EMITFLE,1),(EMITINE,1),(PSWCKE,1),(L2CNTRE,1), *20580002 (CSELCPE,1),(DUMMY191,1),(DUMMY192,1),(DUMMY193,1), *20610002 (DUMMY194,1),(DUMMY195,1),(C02ITAE,1),(C02ITBE,1), *20640002 (C02STCE,1),(SBPE,1),(OUTTAGE,1),(GRPSELE,1) 20670002 DSGEN (DUMMY196,1),(DUMMY197,1),(ROSINTE,1),(ROSINPE,1), *20700002 (LSTOCHE,1),(HDWCHE,1),(HCIE,1),(HRRE,1), *20730002 (HLCE,1),(UPLSARE,1),(WRLSUPE,1),(IN1SELE,1), *20760002 (IN2ROSE,1),(IN3SELE,1),(LS01INE,1),(LS23INE,1), *20790002 (INTCRDE,1),(LOGYINE,1),(LOGRDRE,1),(DUMMY198,1), *20820002 (STBBE,1),(STDCDE,1),(YICDCDE,1),(BUSPTYE,1), *20850002 (RLCTRE,1),(DUMMY199,1),(DUMMY200,1),(DUMMY201,1), *20880002 (LSUCWAE,1),(BIRESPE,1),(SELCNE,1),(MURE,1) 20910002 DSGEN (HCIDE,1),(UPCIDE,1),(C0BOPE,1),(C0BIE,1), *20940002 (C1BOPE,1),(C1BIE,1),(C2BOPE,1),(C2BIE,1), *20970002 (C3BOPE,1),(C3BIE,1),(C4BOPE,1),(C4BIE,1), *21000002 (C5BOPE,1),(C5BIE,1),(HCLE,1),(LSRLOGE,1), *21030002 (C0WRLSE,1),(C1WRLSE,1),(C2WRLSE,1),(C3WRLSE,1), *21060002 (C4WRLSE,1),(C5WRLSE,1),(C01CXE,1),(C23CXE,1), *21090002 (C45CXE,1),(MPCIDE,1),(DUMMY202,1),(DUMMY203,1), *21120002 (DUMMY204,1),(DUMMY205,1),(DUMMY206,1),(DUMMY207,1) 21150002 DSGEN (SNSBYTY,8),(RDYY,1),(SELPGY,1),(YSDSEL,1),(SEQ1Y,1), *21180002 (SEQ2Y,1),(SEQ3Y,1),(SEQ4Y,1),(SEQ5Y,1),(DISCY,1), *21210002 (STAPTYY,1),(ATTY,1),(BUSYY,1),(CHENDY,1),(DVENDY,1), *21240002 (UNCKY,1),(UNEXCPY,1),(STACKY,1),(WRITY,1),(YREAD,1), *21270002 (CTRLY,1),(SCBYY,1),(EOFY,1),(YSPARE,1),(ENCMPY,1) 21300002 DSGEN (AIRINE1,6),(AIROE0,2),(ADOE,4),(BSMB1E,2), @Z02774 X21330002 (ECCLOE,1),(ECCHIE,1),(SASTORE,1),(SATS,1), X21360002 (ECCRD,1),(UCWSEL,1),(IOMODE,1),(DUMMY208,1), X21390002 (UCORIO,1),(UCORCPU,1),(ECCBB,8) 21420002 DSGEN (CONSDR,8),(CONSECE,1),(CONSTOE,1),(CONSR0E,1), *21450002 (CONSR3E,1),(CONSCRL,1),(CONSWR,1),(DUMMY209,1), *21480002 (CONSEXC,1),(SPARE074,8),(SPARE075,8) 21510002 DSGEN (SPARE076,8),(SPARE077,8),(SPARE078,8),(SPARE079,8) 21540002 DSGEN (SPARE080,8),(SPARE081,8),(SPARE082,8),(SPARE083,8) 21570002 DSGEN (FALE0,8),(FALE1,8),(FALE2,8),(FALE3,8) 21600002 DSGEN (FALO0,8),(FALO1,8),(FALO2,8),(FALO3,8) 21630002 DSGEN (FAHE0,8),(FAHE1,8),(FAHE2,8),(FAHE3,8) 21660002 DSGEN (FAHO0,8),(FAHO1,8),(FAHO2,8),(FAHO3,8) 21690002 DSGEN (SPARE084,8),(BCUS1,8),(BCUS2,8),(BCUS3,8) 21720002 DSGEN (SPARE085,8),(ASARB1,8),(ASARB2,8),(ASARB3,4),(ASARB4,4) 21750002 DSGEN (R540,1,2,9),(R54,1,11,18),(R54,1,20,27),(R54,1,29,36) 21780002 BASIC DSGEN (EMITE,1,EQU,R5402),(TIMEOE,1,EQU,R5403), X21810002 (SPKEYOE,1,EQU,R5404),(KEYBUSE,1,EQU,R5405), X21840002 (SAR1E,3,EQU,R5406),(C40B0E,1,EQU,R5409), X21870002 (C40B2E,6,EQU,R5411),(IDXLE,1,EQU,R5417), X21900002 (IDXUE,1,EQU,R5418),(RDCOMPE,1,EQU,R5420), X21930002 (BYTEMKE,1,EQU,R5421),(SDR08E,1,EQU,R5422), X21960002 (SDR19E,1,EQU,R5423),(SDR210E,1,EQU,R5424), X21990002 (SDR311E,1,EQU,R5425),(SDR412E,1,EQU,R5426), X22020002 (SDR513E,1,EQU,R5427),(SDR715E,1,EQU,R5429) 22050002 M9 DSGEN (ER5405,3,EQU,R5405),(ER5411,5,EQU,R5411), X22080002 (ER5408,2,EQU,R5408),(R542627,2,EQU,R5426), X22110002 (R540507,3,EQU,R5405) 22140002 DSGEN (LINDXA,5),(LINDXB,3),(LINDXV1,1),(LINDXV2,1), *22170002 (LINDXOK,1),(LOWERBC,1),(LOWERVC,1),(LOWOKO,1), *22200002 (LOWERA,1),(MSSELBR,1),(UINDXA,5),(UINDXB,3), *22230002 (UINDXV1,1),(UINDXV2,1),(UINDXOK,1),(UPPERBC,1), *22260002 (UPPERVC,1),(UPROKO,1),(UPPERA,1),(BACKSBY,1) 22290002 DSGEN (BCUB0,4),(BCUB4P,1),(BCUB4,3),(BCUB8P,1), *22320002 (BCUB8,4),(BCUB12P,1),(BCUB12,2),(BCUB15,1), *22350002 (ADP2SEL,1),(ADP2ECC,1),(ADP2MCK,1),(DUMMY217,1), *22380002 (DUMMY218,1),(DUMMY219,1),(IVA,1),(R2529,5), *22410002 (R2534,1),(R2535,2) 22440002 DSGEN (BCURD,1),(BCUWR,1),(BCUFIB,1),(BCUSPMS,1), *22470002 (BCUIECC,1),(BCUDC40,1),(BCUIOMD,1),(ECCMD1,1), *22500002 (EDRDECC,1),(DUMMY220,1),(EDTS,1),(R1514,1), *22530002 (R1515,1),(R1516,1),(EDWSPK,1),(R1518,1), *22560002 (EDVALA,1),(IBRFCH,1),(DUMMY224,1),(DUMMY225,1), *22590002 (EDRSPK,1),(EDDEGA,1),(HISTAT,1),(ODDSTAT,1), *22620002 (MSIREAD,1),(MSIWR,1),(DUMMY226,1),(MSITS,1), *22650002 (DUMMY227,1),(MSIIOOP,1),(MSIRECC,1),(MSIUCWS,1) 22680002 DSGEN (AIROFET,1),(AIROSTO,1),(AIROHRT,1),(AIROTS,1), *22710002 (DUMMY228,1),(AIROVRD,1),(AIROECD,1),(AIROBS,1), *22740002 (SPARE086,8),(MSCAIDL,1),(DUMMY229,1),(DUMMY230,1), *22770002 (MSCCIP,1),(MSCWC,1),(MSCDR2C,1),(MSCAD25,1), *22800002 (MSCBD25,1),(SPARE087,8) 22830002 DSGEN (CONSR0,8),(CONSR1,8),(CONSR2,8),(CONSR3,8) 22860002 R1802 DS 4C 22890002 DSGEN (R2802,1),(R2803,1),(R2804,1),(R2805,1),(R2806,1), X23010002 (R2807,1),(R2808,1),(R2809,1),(R281A,1), X23040002 (R2812,1),(R2813,1),(R2814,1),(R2815,1),(R2816,1), X23070002 (R2817,1),(R2818,1),(R2820,1),(R2821,1),(R2822,1), X23100002 (R2823,1),(R2824,1), X23130002 (R2825,3), X23160002 (R2829,5),(R2834,2),(R2836,1) 23190002 XQX DSGEN (R2811,13,EQU,R281A), X23220002 (R2811R,8,EQU,R281A),(R2820R,8,EQU,R2820), X23250002 (R2829R,8,EQU,R2829) 23280002 DS 3C 23310002 R3829 DS 2C 23510002 R1711 DS 7C 23710002 DS 4C 23910002 SPARE127 DS 136C 24110002 DSGEN (XBUS0P,1),(DUMMY231,1),(XBUS1P,1),(DUMMY232,1), *24660002 (XBUS2P,1),(DUMMY233,1),(XBUS3P,1),(DUMMY234,1), *24690002 (YBUS0P,1),(DUMMY235,1),(YBUS1P,1),(DUMMY236,1), *24720002 (YBUS2P,1),(DUMMY237,1),(YBUS3P,1),(DUMMY238,1), *24750002 (ZBUS0P,1),(DUMMY239,1),(ZBUS1P,1),(DUMMY240,1), *24780002 (ZBUS2P,1),(DUMMY241,1),(ZBUS3P,1),(DUMMY242,1), *24810002 (UBUSP,1),(DUMMY243,1),(VBUSP,1),(DUMMY244,1), *24840002 (WBUSP,1),(DUMMY245,1),(FILREGP,1),(DUMMY246,1) 24870002 DSGEN (DUMMY247,1),(DUMMY248,1),(RABUS2,1),(DUMMY249,1), *24900002 (HOLDOFF,1),(DUMMY250,1),(RBAR12,1),(DUMMY251,1), *24930002 (SPARE088,8),(EXTSW0P,1),(DUMMY252,1),(EXTSW1P,1), *24960002 (DUMMY253,1),(EXTSW2P,1),(DUMMY254,1),(EXTSW3P,1), *24990002 (DUMMY255,1),(SPARE089,8) 25020002 DSGEN (AREG0P,1),(DUMMY256,1),(AREG1P,1),(DUMMY257,1), *25050002 (AREG2P,1),(DUMMY258,1),(AREG3P,1),(DUMMY259,1), *25080002 (BREG0P,1),(DUMMY260,1),(BREG1P,1),(DUMMY261,1), *25110002 (BREG2P,1),(DUMMY262,1),(BREG3P,1),(DUMMY263,1), *25140002 (CREG0P,1),(DUMMY264,1),(CREG1P,1),(DUMMY265,1), *25170002 (CREG2P,1),(DUMMY266,1),(CREG3P,1),(DUMMY267,1), *25200002 (DREG0P,1),(DUMMY268,1),(DREG1P,1),(DUMMY269,1), *25230002 (DREG2P,1),(DUMMY270,1),(DREG3P,1),(DUMMY271,1) 25260002 DSGEN (IOLSD0P,1),(DUMMY272,1),(IOLSD1P,1),(DUMMY273,1), *25290002 (IOLSD2P,1),(DUMMY274,1),(IOLSD3P,1),(DUMMY275,1), *25320002 (CPULS0P,1),(DUMMY276,1),(CPULS1P,1),(DUMMY277,1), *25350002 (CPULS2P,1),(DUMMY278,1),(CPULS3P,1),(DUMMY279,1), *25380002 (IOSAR0P,1),(DUMMY280,1),(IOSAR1P,1),(DUMMY281,1), *25410002 (IOSAR2P,1),(DUMMY282,1),(IOSAR3P,1),(DUMMY283,1), *25440002 (CPUSR0P,1),(DUMMY284,1),(CPUSR1P,1),(DUMMY285,1), *25470002 (CPUSR2P,1),(DUMMY286,1),(CPUSR3P,1),(DUMMY287,1) 25500002 DSGEN (DUMMY288,1),(DUMMY289,1),(IAR1P,1),(DUMMY290,1), *25530002 (IAR2P,1),(DUMMY291,1),(IAR3P,1),(DUMMY292,1), *25560002 (PSWSMP,1),(DUMMY293,1),(PSWKEYP,1),(DUMMY294,1), *25590002 (PSWESMP,1),(DUMMY295,1),(RETENBL,1),(DUMMY297,1), X25620002 (DUMMY298,1),(DUMMY299,1),(RBAR22,1),(DUMMY300,1), *25650002 (DUMMY301,1),(DUMMY302,1),(RBAR32,1),(DUMMY303,1), *25680002 (BS0P,1),(DUMMY304,1),(BS7,1),(DUMMY305,1), *25710002 (IFTCHSP,1),(DUMMY306,1),(ALUFNRP,1),(DUMMY307,1) 25740002 DSGEN (L12CTRP,1),(DUMMY308,1),(L1SS,1),(DUMMY309,1), *25770002 (R12CTRP,1),(DUMMY310,1),(INABRR0,1),(DUMMY311,1), *25800002 (SRADAD0,1),(DUMMY312,1),(BLKCONS,1),(DUMMY313,1), *25830002 (CTRERR,1),(DUMMY314,1),(DUMMY315,1),(DUMMY316,1), *25860002 (DUMMY317,1),(DUMMY318,1),(CPURA2,1),(DUMMY319,1), *25890002 (GPSTL1P,1),(DUMMY320,1),(GPSTL3,1),(DUMMY321,1), *25920002 (SPARE090,8) 25950002 DSGEN (SPARE091,8),(SPARE092,8),(SPARE093,8),(CP1R0P,1), *25980002 (DUMMY322,1),(CP1R2,1),(DUMMY323,1),(CP2R2,1), *26010002 (DUMMY324,1),(DUMMY325,1),(DUMMY326,1) 26040002 DSGEN (R0P1,1),(DUMMY327,1),(BRC01,1),(DUMMY328,1), *26070002 (BBR11,1),(DUMMY329,1),(XYALU11,1),(DUMMY330,1), *26100002 (R1P1,1),(DUMMY331,1),(MISC11,1),(DUMMY332,1), *26130002 (Z11,1),(DUMMY333,1),(R2P1,1),(DUMMY334,1), *26160002 (SPARE094,8),(SPARE095,8) 26190002 DSGEN (SPARE096,64) 26220002 DSGEN (SPARE097,64) 26250002 DSGEN (SPARE098,64) 26280002 DSGEN (SPARE099,64) 26310002 DSGEN (SPARE100,64) 26340002 DSGEN (AIRIN1E,1),(DUMMY335,1),(AIRO5E,1),(DUMMY336,1), *26370002 (SAFETCH,1),(DUMMY338,1),(BUMPBIT,1),(DUMMY339,1), X26400002 (CONSEOB,1),(DUMMY340,1),(CONSL2,1),(DUMMY341,1), *26430002 (DUMMY342,1),(DUMMY343,1),(DUMMY344,1),(DUMMY345,1), *26460002 (SPARE101,16) 26490002 DSGEN (FALE0P,1),(DUMMY346,1),(FALE1P,1),(DUMMY347,1), *26520002 (FALE2P,1),(DUMMY348,1),(FALE3P,1),(DUMMY349,1), *26550002 (FALO0P,1),(DUMMY350,1),(FALO1P,1),(DUMMY351,1), *26580002 (FALO2P,1),(DUMMY352,1),(FALO3P,1),(DUMMY353,1), *26610002 (FAHE0P,1),(DUMMY354,1),(FAHE1P,1),(DUMMY355,1), *26640002 (FAHE2P,1),(DUMMY356,1),(FAHE3P,1),(DUMMY357,1), *26670002 (FAHO0P,1),(DUMMY358,1),(FAHO1P,1),(DUMMY359,1), *26700002 (FAHO2P,1),(DUMMY360,1),(FAHO3P,1),(DUMMY361,1) 26730002 DSGEN (DUMMY362,1),(DUMMY363,1),(BCUS1P,1),(DUMMY364,1), *26760002 (BCUS2P,1),(DUMMY365,1),(BCUS3P,1),(DUMMY366,1), *26790002 (DUMMY367,1),(DUMMY368,1),(ASARB1P,1),(DUMMY369,1), *26820002 (ASARB2P,1),(DUMMY370,1),(ASARB3P,1),(DUMMY371,1), *26850002 (INSNE,1),(DUMMY372,1),(C40B1E,1),(DUMMY373,1), *26880002 (INDXCE,1),(DUMMY374,1),(SDR614E,1),(DUMMY375,1), *26910002 (LINDXP,1),(DUMMY376,1),(LINDX19,1),(DUMMY377,1), *26940002 (UINDXP,1),(DUMMY378,1),(UINDX19,1),(DUMMY379,1) 26970002 DSGEN (BCUB0P,1),(SPRWL102,1),(BCUB7,1),(SPRWL103,1), *27000002 (BCUB14,1),(SPRWL104,1),(SPDATAP,1),(SPRWL105,1), *27030002 (BCUM9BY,1),(SPRWL106,1),(EDRECC,1),(SPRWL107,1), *27060002 (EDRDC40,1),(SPRWL108,1),(MSIP,1),(SPRWL109,1), *27090002 (AIROP,1),(SPRWL110,3),(MSC1024,1),(SPRWL111,1), *27120002 (R5528,1),(,1), *27150002 (CONSR0P,1),(SPRWL112,1),(CONSR1P,1),(SPRWL113,1), *27180002 (CONSR2P,1),(SPRWL114,1),(CONSR3P,1),(SPRWL115,1) 27210002 DSGEN (R1801,1),(,2),(R1810,1),(,1),(R1819,1),(,1),(R1828,1), X27240002 (R2801,1),(,1),(R2810,1),(,1),(R2819,1),(,1),(R2828,1), X27270002 (,1),(R3801,1),(,1),(R3810,1),(,1),(R3819,1),(,1), X27300002 (R3828,1),(,1),(R1701,1),(,1),(R1710,1),(,1),(R1719,1), X27330002 (,1),(R1728,1),(,1),(R2701,1),(,1),(R2710,1),(,1), X27360002 (R2719,1),(,1),(R2728,1),(,1),(R1601,1),(,1),(R1610,1), X27390002 (,1),(R1619,1),(,1),(R1628,1),(,1) 27420002 DSGEN (SPARE116,16) 27450002 SPARE117 DS 32C 27480002 DSGEN (SPARE121,8),(CPUSER,24) 27600002 DSGEN (DCTRL,1),(SPRWL122,1),(DOSEM,1),(SPRWL123,5), *27630002 (UCWCNT,8),(FEATURES,16) 27660002 DSGEN (CUADR1,64) 27690002 DSGEN (CUADR2,64) 27720002 DSGEN (UNPLUG,64) 27750002 DSGEN (DARLNGTH,16),(,48) 27780002 DS 6C 27810002 DSGEN (WAITSUFF,8),(,8),(LOSTSUM,48),(,16) 27960002 DS 40C 27990002 DSGEN (FSRADDR,32),(BFSVADDR,32),(EFSVADDR,32), C28050002 (INSTADDR,32) 28080002 ORG LOGWORK1 28090002 DSGEN (LOGWRK,1,0,3,0,7) 28100002 ORG IAR1 28110002 DSGEN (LH241,24) 28140002 ORG L2SS 28150002 DSGEN (LB251,1,0,7) 28160002 ORG SPARE043 28170002 DSGEN (LH278,32),(LH27C,32) 28200002 ORG AIRINE1 28230002 DSGEN (LB32,1,0,4,0,7) 28260002 ORG SPARE080 28266002 DSGEN (LB32C,1,0,7),(LB32D,1,0,7),(LB32E,1,0,7),(LB32F,1,0,7) 28272002 ORG AIROFET 28278002 DSGEN (LB32C,32) 28284002 ORG SPARE084 28286020 DSGEN (LB340,1,0,7) 28288020 ORG EMITE 28290002 DSGEN (LB34,1,8,9,0,7) 28320002 ORG RDCOMPE 28350002 DSGEN (LB34A,1,0,7),(LB34B,1,0,7) 28380002 ORG LINDXA 28410002 DSGEN (LB34C,1,0,7),(LB34D,1,0,7),(LB34E,1,0,7),(LB34F,1,0,7) 28440002 ORG BCUB15 28470002 DSGEN (LB35,1,2,6,0,7) 28500002 ORG MSIREAD 28530002 DSGEN (LB357,1,0,7),(LB358,1,0,7) @YA02788 28560002 ORG R2811 28590002 DSGEN (LH365,24) 28620002 ORG R1802 28650002 DSGEN (LB36,1,0,9,0,7) 28680002 DSGEN (LB36A,1,0,7) 28685002 ORG R3829 28690002 DSGEN (LB36B,1,0,7),(LB36C,1,0,7) 0.2 28700002 ORG R1711 28710002 DSGEN (LB36D,1,0,7),(LB36E,1,0,7),(LB36F,1,0,7) 28740002 ORG SPARE127+2 28770002 DSGEN (LB37A,1,0,7),(LB37B,1,0,7) 28800002 ORG SPARE127 0.2 28802002 DSGEN (LH378,32),(LH37C,8),(LH37D,8),(LH37E,8),(LH37F,8) 0.2 28804002 ORG DUMMY288 28806002 DSGEN (LB410,1,0,7) 28812002 ORG SPARE094 28818002 DSGEN (LB41E,1,0,7),(LB41F,1,0,7) 28824002 ORG AIRIN1E 28830002 DSGEN (LB44,1,8,9,0,7) 28860002 DS 6C 28870002 DSGEN (LB45,1,0,9,0,7) 28880002 DSGEN (LB45A,1,0,7),(LB45B,1,0,7),(LB45C,1,0,7) 0.2 28883002 DSGEN (LB45D,1,0,7),(LB45E,1,0,7) 0.2 28886002 ORG SPARE117 28890002 DSGEN (LB460,1,0,7) 28920002 ORG SPARE076 0.2 28924002 DSGEN (LB328,1,0,7),(LB329,1,0,7),(LB32A,1,0,7),(LB32B,1,0,7) 28928002 ORG UINDXV1 @Z02774 28929002 DSGEN (INDEXZ,1),(CMPABCD,4),(BUF1819,2),(OKOFF,1) @Z02774 28930002 ORG SPARE076 28932002 DSGEN (LH328,8),(LH329,8) 28936002 ORG SPARE117+4 0.2 28940002 DSGEN (LB464,1,0,7) 0.2 28944002 ORG R1711+3 @YA02788 28945002 DSGEN (LB37,1,0,7,0,7) @YA02788 28946002 ORG CUADR1 @YA02788 28947002 DSGEN (LB48A,1,0,7),(LB48B,1,0,7) @YA02788 28948002 MEND 28950002 MACRO 28980002 &NAME DSGEN 29010002 .* THIS MACRO GENERATES ONE DSECT WORD 29040002 .* FORMATTED FOR THE SUBJECT LOG RECORD 29070002 .* EACH OPERAND HAS TWO SUB LISTS. THE 29100002 .* FIRST IS THE NAME OF THE LOG ITEM 29130002 .* WHILE THE SECOND IS THE # OF BITS TO 29160002 .* ALLOCATE FOR THIS ITEM. ITEMS MUST 29190002 .* BE DEFINED CONTIGUOUSLY WITHOUT GAPS 29220002 .* UNUSED BIT GROUPS MUST BE GIVEN 29250002 .* DUMMY NAMES. THE NAMES PROVIDED FOR 29280002 .* THE LOG ITEMS MAY THEN BE USED IN 29310002 .* THE CONVERSION MACRO INSTRUCTIONS. 29340002 GBLC &ITEM(3000) 29370002 GBLA &ITEMNBR,&BITS(3000),&SHIFT(3000) 29400002 LCLB &ONLY1,&CTIND 29430002 LCLA &START1,&START2,&END1,&END2 29460002 LCLC &SYMBOL,&EQUSYM 29490002 LCLA &OP,&COUNT,&BYTE,&EQUCNT 29520002 ACTR 500000 29550002 .START AIF (N'&SYSLIST(&OP+1) LT 3).LOOP 29580002 AIF ('&SYSLIST(&OP+1,3)' EQ 'EQU').LOOP TEST FOR EQU 29610002 AIF ('&SYSLIST(&OP+1,3)' EQ '' AND '&SYSLIST(&OP+1,4)' EQ '').ERR1 29640002 AIF ('&SYSLIST(&OP+1,3)' EQ '' OR '&SYSLIST(&OP+1,4)' EQ '').ERR1 29670002 AIF ('&SYSLIST(&OP+1,3)' GT '&SYSLIST(&OP+1,4)').ERR3 29700002 &START1 SETA &SYSLIST(&OP+1,3) GET START COUNT OF 1 29730002 &START2 SETA &SYSLIST(&OP+1,4) GET FIRST END COUNT 29760002 AGO .SET2A BRANCH AROUND 29790002 .ERR1 MNOTE '**FIRST SYMBOL CONCATENATION INCOMPLETE**' 29820002 MEXIT 29850002 .SET2A AIF ('&SYSLIST(&OP+1,5)' EQ ''AND '&SYSLIST(&OP+1,6)' EQ '' X29880002 ).SET2 TEST FOR NO SECOND 29910002 AIF ('&SYSLIST(&OP+1,5)' EQ '' OR '&SYSLIST(&OP+1,6)' EQ '').ERR2 29940002 AIF ('&SYSLIST(&OP+1,5)' GT '&SYSLIST(&OP+1,6)').ERR3 29970002 &END1 SETA &SYSLIST(&OP+1,5) GET START COUNT OF 2 30000002 &END2 SETA &SYSLIST(&OP+1,6) GET END COUNT OF 2 30030002 AGO .LOOP 30060002 .SET2 ANOP 30090002 &ONLY1 SETB 1 INDICATE ONLY ONE CONCATENATION 30120002 AGO .LOOP 30150002 .ERR2 MNOTE '**SECOND SYMBOL CONCATENATION INCOMPLETE**' 30180002 MEXIT 30210002 .ERR3 MNOTE '**START GREATER THAN END CONCATENATION**' 30240002 MEXIT 30270002 .LOOP ANOP 30300002 &OP SETA &OP+1 30330002 AIF (&OP GT N'&SYSLIST).DONE TEST IF ALL DONE 30360002 &ITEMNBR SETA &ITEMNBR+1 30390002 AIF ('&SYSLIST(&OP,2)' NE '').OK1 30420002 MNOTE '**NULL BIT COUNT FIELD**' 30450002 MEXIT 30480002 .OK1 ANOP 30510002 &SYMBOL SETC '&SYSLIST(&OP,1)' 30540002 AIF ('&SYMBOL' NE '').OK 30570002 * ***** LOG ITEM SYMBOL NOT PROVIDED ***** 30600002 AIF ('&SYSLIST(&OP,3)' NE 'EQU').CNT 30630002 AGO .START GET NEXT 30660002 .OK AIF (N'&SYSLIST(&OP) LT 3).NO3 TEST FOR OLD FORMAT 30690002 AIF ('&SYSLIST(&OP,3)' EQ 'EQU').EQU TEST FOR EQU 30720002 AIF (&ONLY1).OK2 TEST FOR ONLY ONE CONCAT 30750002 &SYMBOL SETC '&SYMBOL.&START1.&END1' GET 1 AND 2 CONCAT 30780002 AGO .NO3 BRANCH AROUND 30810002 .OK2 ANOP 30840002 &SYMBOL SETC '&SYMBOL.&START1' GET 1 CONCATENATED 30870002 .NO3 ANOP 30900002 &SYMBOL EQU *+&BYTE 30930002 &ITEM(&ITEMNBR) SETC '&SYMBOL' GET LABEL IN GLOBAL 30960002 &BITS(&ITEMNBR) SETA &SYSLIST(&OP,2) 30990002 &SHIFT(&ITEMNBR) SETA &COUNT-&BYTE*8 31020002 .CNT ANOP 31050002 &CTIND SETB 1 SET COUNT INDICATOR 31080002 &COUNT SETA &COUNT+&SYSLIST(&OP,2) 31110002 &BYTE SETA &COUNT/8 31140002 AIF (N'&SYSLIST(&OP) LT 3).START TEST FOR OLD FORMAT 31170002 AIF (&ONLY1).TSTST TEST FOR ONLY ONE CONCAT 31200002 AIF (&END1 EQ &END2).TSTST TEST FOR SECOND END 31230002 &END1 SETA &END1+1 INCREMENT COUNT 31260002 &OP SETA &OP-1 DECREMENT INCREMENT 31290002 AGO .LOOP GENERATE NEXT 31320002 .TSTST ANOP 31350002 AIF (&START1 EQ &START2).LPDONE TEST FOR END 31380002 AIF (&ONLY1).NSET1 TEST FOR ONLY ONE CONCAT 31410002 &END1 SETA &SYSLIST(&OP,5) RE-INIT SECOND START COUNT 31440002 .NSET1 ANOP 31470002 &OP SETA &OP-1 DECREMENT INDEX 31500002 &START1 SETA &START1+1 INCREMENT FIRST COUNT 31530002 AGO .LOOP GO DO NEXT 31560002 .LPDONE ANOP 31590002 &ONLY1 SETB 0 CLEAR INDICATOR 31620002 AGO .START GO TEST FOR MORE SUB-LISTS 31650002 .DONE AIF (&COUNT-&COUNT/8*8 NE 0).ERR TEST FOR MULTIPLE OF EIGHT 31680002 AIF (&CTIND EQ 0).END NO DS IF NO COUNT 31710002 &COUNT SETA &COUNT/8 GET NUMBER OF BYTES 31740002 &NAME DS &COUNT.C 31770002 .END MEXIT 31800002 .ERR MNOTE '**BIT COUNT FLDS DO NOT TOTAL MULTIPLE OF 8**' 31830002 MEXIT 31860002 .EQU AIF ('&SYSLIST(&OP,4)' NE '').EQU1 TEST FOR NULL LABEL 31890002 .ERR4 MNOTE '**EQU OPERAND OMITTED OR NOT FOUND**' 31920002 MEXIT 31950002 .EQU1 AIF (&SYSLIST(&OP,2) LT 16).EQU2 COUNT OVER FIFTEEN 31980002 ***** THE FOLLOWING STATEMENT ***** 32010002 ***** NUMBER OF BITS EXCEED 15 - DO NOT USE AS BIN ***** 32040002 .EQU2 ANOP 32070002 &EQUCNT SETA 0 CLEAR COUNTER 32100002 &EQUSYM SETC '&SYSLIST(&OP,4)' GET EQU OPERAND 32130002 .EQULOP ANOP 32160002 &EQUCNT SETA &EQUCNT+1 INCREMENT INDEX 32190002 AIF ('&ITEM(&EQUCNT)' EQ '&EQUSYM').EQUOUT LABEL FOUND? 32220002 AIF (&EQUCNT EQ &ITEMNBR).ERR4 ALL TESTED? 32250002 AGO .EQULOP NO-GET NEXT 32280002 .EQUOUT ANOP 32310002 &ITEM(&ITEMNBR) SETC '&SYMBOL' GET LABEL NAME 32340002 &BITS(&ITEMNBR) SETA &SYSLIST(&OP,2) GET NUMBER OF BITS 32370002 &SHIFT(&ITEMNBR) SETA &SHIFT(&EQUCNT) GET SHIFT COUNT 32400002 &SYMBOL EQU &EQUSYM THIS SYMBOL EQUATED 32430002 AGO .START RETURN FOR NEXT 32460002 MEND 32490002 MACRO 32520002 BIN 32540002 .* &SYSLIST(&OP,1) - NAME OF LOG ITEM 32560002 .* RECORD DSECT 32580002 .* $SYSLIST(&OP,2) - NBR OF SPACES 32600002 .* TO SKIP ON MULTIPLE 32620002 .* PRINT OR NBR OF SPACES 32640002 .* TO BACK UP FROM COLUMN FOR 32660002 .* START OF PRINTING. THE LETTER 32680002 .* B PRECEEDS THE NUMBER (B5) IF 32700002 .* THE LATTER IS DESIRED. OMISSION 32720002 .* OF THIS OPERAND FORCES OPTION 2 32740002 .* WITH BACKUP SPACING EQUAL TO 32760002 .* &SYSLIST(&OP,3) - NBR OF BITS TO PRO 32780002 .* THE NUMBER OF BITS IN THE ITEM 32800002 .* DEFINITION (VIA MACRO 'DSGEN'). 32820002 .* A LIMIT OF 15 BITS IS IMPOSED FOR THE 32840002 .* TOTAL NUMBER OF BITS TO PRINT. 32860002 GBLA &INITIAL 32880002 GBLB &DIAGTST,&DIAGSET,&DIAGLIN 32900002 GBLC &ITEM(3000) 32920002 GBLA &ITEMNBR,&BITS(3000),&SHIFT(3000),&NRENTS 32940002 GBLC &DSECT 32960002 LCLB &B,&SUB 32980002 LCLA &IBITS,&NDX,&ISHIFT,&K 33000002 LCLA &TEMP,&T,&OP 33020002 LCLC &S 33040002 ACTR 500000 33060002 AIF (&DIAGTST EQ 0).NOMSG 33080002 AIF (&INITIAL EQ 0).NOMSG 33100002 AIF (&DIAGLIN EQ 1).NOMSG 33120002 MNOTE '**NO LINE ASSOCIATED WITH THIS DATA**' 33140002 *****THE FOLLOWING GENERATED FOR TEST PURPOSES***** 33160002 * LINE 33180002 LINE 33200002 .NOMSG ANOP 33220002 AIF (K'&SYSLIST(1) EQ K'&SYSLIST(1,1)).LOOP 33240002 &SUB SETB 1 33260002 .LOOP ANOP 33280002 &OP SETA &OP+1 33300002 .LOOP1 ANOP 33320002 &NDX SETA &NDX+1 33340002 AIF ('&ITEM(&NDX)' EQ '&SYSLIST(&OP,1)').FOUND 33360002 AIF (&NDX LT &ITEMNBR).LOOP1 33380002 MNOTE '**LOG ITEM NOT DEFINED**' 33400002 MEXIT 33420002 .FOUND ANOP 33440002 &ISHIFT SETA &SHIFT(&NDX) 33460002 &IBITS SETA &BITS(&NDX) 33480002 AIF (&SUB EQ 1).SUB00 33500002 AIF ('&SYSLIST(3)' EQ '').SETT 33520002 &IBITS SETA &SYSLIST(3) 33540002 AGO .SETT 33560002 .SUB00 AIF ('&SYSLIST(&OP,3)' EQ '').SETT 33580002 &IBITS SETA &SYSLIST(&OP,3) 33600002 .SETT ANOP 33620002 &T SETA &IBITS-1 33640002 &B SETB 0 33660002 AIF (&IBITS GT 0 AND &IBITS LT 16).SUB0 33680002 MNOTE '**NO. OF BITS OUTSIDE RANGE OF 1-15**' 33700002 MEXIT 33720002 .SUB0 AIF (&SUB EQ 1).SUBA 33740002 AIF ('&SYSLIST(2)' EQ '').BACKUP 33760002 &K SETA K'&SYSLIST(2) 33780002 &B SETB ('&SYSLIST(2)'(1,1) EQ 'B') 33800002 &S SETC '&SYSLIST(2)'(&B+1,&K-&B) 33820002 AGO .SUBB 33840002 .SUBA ANOP 33860002 AIF ('&SYSLIST(&OP,2)' EQ '').BACKUP 33880002 &K SETA K'&SYSLIST(&OP,2) 33900002 &B SETB ('&SYSLIST(&OP,2)'(1,1) EQ 'B') 33920002 &S SETC '&SYSLIST(&OP,2)'(&B+1,&K-&B) 33940002 .SUBB ANOP 33960002 &T SETA &S 33980002 .BACKUP ANOP 34000002 &NRENTS SETA &NRENTS+1 34020002 &TEMP SETA &ISHIFT 34040002 AIF (&IBITS NE 1 OR &B NE 0).BIN2 34060002 DC AL.12(&SYSLIST(&OP,1)-&DSECT),XL.4'&TEMP' 34080002 AGO .OUT 34100002 .BIN2 AIF (&SUB EQ 1).BIN2A 34120002 AIF ('&SYSLIST(2)' NE '').BIN3 34140002 AGO .BIN2B 34160002 .BIN2A AIF ('&SYSLIST(&OP,2)' NE '').BIN3 34180002 .BIN2B ANOP 34200002 &B SETB 1 34220002 .BIN3 ANOP 34240002 DC AL.12(&SYSLIST(&OP,1)-&DSECT),XL.4'C' 34260002 DC BL.1'&B',AL.7(&T),AL.4(&IBITS),FL.4'&ISHIFT' 34280002 .OUT ANOP 34300002 &NDX SETA 0 34320002 AIF (&SUB EQ 0).OUTA 34340002 AIF (&OP LT N'&SYSLIST).LOOP 34360002 .OUTA ANOP 34380002 MEND 34400002 MACRO 34650002 HEX 34680002 .* THIS MACRO FACILITATES GENERATION OF THE 34710002 .* TABLE ENTRIES SPECIFYING HEX TYPE 34740002 .* CONVERSIONS. 34770002 .* &SYSLIST(&OP,1) - NAME OF DATA ITEM TO BE 34800002 .* CONVERTED 34830002 .* &SYSLIST(&OP,2) - # OF SPACES TO SKIP ON 34860002 .* MULTIPLE PRINT OR NBR OF SPACES TO 34890002 .* BACK UP FROM COLUMN FOR START OF 34920002 .* PRINTING. THE LETTER B PRECEEDS THE 34950002 .* NUMBER (B8) IF THE LATTER OPTION IS 34980002 .* DESIRED. OMISSION OF THIS OPERAND 35010002 .* FORCES OPTION 2 WITH BACKUP SPACING 35040002 .* EQUAL TO THE NUMBER OF BYTES SPECI- 35070002 .* FIED BY THE NEXT OPERAND (TWICE THIS 35100002 .* NUMBER IF SUFFIX IS EXPLICITLY OR 35130002 .* IMPLICITLY B). 35160002 .* &SYSLIST(&OP,3) - NUMBER OF BYTES TO 35190002 .* PROCESS. THIS NUMBER IS SUFFIXED 35220002 .* WITH AN L,R, OR B TO STIPULATE 35250002 .* PRINTING OF THE LEFT HALF, RIGHT 35280002 .* HALF, OR BOTH HALVES OF THE BYTE 35310002 .* RESPECTIVELY. OMISSION OF THIS 35340002 .* OPERAND DEFAULTS TO B WITH THE NUM- 35370002 .* BER OF BYTES EQUAL TO THE ITEM LNGTH 35400002 .* A NEW ENTRY IS GENERATED ONLY WHEN NECES- 35430002 .* SARY. THIS MACRO MUST BE THE FIRST 35460002 .* MACRO INSTRUCTION ISSUED FOR THE 35490002 .* SUBJECT LINE(S). 35520002 GBLC &ITEM(3000),&DSECT 35550002 GBLA &ITEMNBR,&BITS(3000),&SHIFT(3000),&NRENTS 35580002 LCLB &B,&SUB 35610002 LCLA &IBITS,&NDX,&ISHIFT,&K,&T,&CODE,&BYTESP,&OP 35640002 LCLC &S,&LETTER 35670002 ACTR 500000 35700002 AIF (K'&SYSLIST(1) EQ K'&SYSLIST(1,1)).LOOP 35730002 &SUB SETB 1 35760002 .LOOP ANOP 35790002 &OP SETA &OP+1 35820002 .LOOP1 ANOP 35850002 &NDX SETA &NDX+1 35880002 AIF ('&ITEM(&NDX)' EQ '&SYSLIST(&OP,1)').FOUND 35910002 AIF (&NDX LT &ITEMNBR).LOOP1 35940002 MNOTE *,'LOG ITEM NOT DEFINED' 35970002 MEXIT 36000002 .FOUND ANOP 36030002 &ISHIFT SETA &SHIFT(&NDX) 36060002 &IBITS SETA &BITS(&NDX) 36090002 AIF (&ISHIFT EQ 0 OR &ISHIFT EQ 4).ALIGN 36120002 .ERR MNOTE *,'DATA NOT ALLIGNED ON HEX OR BYTE BOUNDARY' 36150002 MEXIT 36180002 .ALIGN ANOP 36210002 &CODE SETA 1 36240002 AIF (&SUB EQ 1).SUBA 36270002 &K SETA K'&SYSLIST(3) 36300002 AGO .SUBB 36330002 .SUBA ANOP 36360002 &K SETA K'&SYSLIST(&OP,3) 36390002 .SUBB ANOP 36420002 AIF (&IBITS-(&IBITS/4)*4 EQ 0).OK 36450002 MNOTE *,'BIT LENGTH SPECIFICATION INCONSISTENT WITH CONTROL' 36480002 MEXIT 36510002 .OK AIF (&SUB EQ 1).SUBC 36540002 AIF ('&SYSLIST(3)' EQ '').USEDEFN 36570002 &LETTER SETC '&SYSLIST(3)'(&K,1) 36600002 &S SETC '&SYSLIST(3)'(1,&K-1) 36630002 AGO .SUBD 36660002 .SUBC ANOP 36690002 AIF ('&SYSLIST(&OP,3)' EQ '').USEDEFN 36720002 &LETTER SETC '&SYSLIST(&OP,3)'(&K,1) 36750002 &S SETC '&SYSLIST(&OP,3)'(1,&K-1) 36780002 .SUBD ANOP 36810002 &BYTESP SETA &S 36840002 AIF ('&LETTER' EQ 'B').BOTH 36870002 AIF ('&LETTER' EQ 'L').LEFT 36900002 &CODE SETA 2 36930002 AGO .L 36960002 .LEFT ANOP 36990002 &CODE SETA 1 37020002 AGO .L 37050002 .USEDEFN ANOP 37080002 &BYTESP SETA &IBITS/8 37110002 .BOTH AIF (&ISHIFT NE 0).ERR 37140002 &CODE SETA 3 37170002 &T SETA &BYTESP*2-1 37200002 &S SETC '&T' 37230002 .OK2 AIF (&ISHIFT EQ 0).L 37260002 &CODE SETA 2 37290002 .L ANOP 37320002 &B SETB 1 37350002 AIF (&SUB EQ 1).SUBE 37380002 AIF ('&SYSLIST(2)' EQ '').BACKUP 37410002 &K SETA K'&SYSLIST(2) 37440002 &B SETB ('&SYSLIST(2)'(1,1) EQ 'B') 37470002 &S SETC '&SYSLIST(2)'(&B+1,&K-&B) 37500002 AGO .SUBF 37530002 .SUBE ANOP 37560002 AIF ('&SYSLIST(&OP,2)' EQ '').BACKUP 37590002 &K SETA K'&SYSLIST(&OP,2) 37620002 &B SETB ('&SYSLIST(&OP,2)'(1,1) EQ 'B') 37650002 &S SETC '&SYSLIST(&OP,2)'(&B+1,&K-&B) 37680002 .SUBF ANOP 37710002 .BACKUP ANOP 37740002 &NRENTS SETA &NRENTS+1 37770002 AIF (&SUB EQ 1).SUBG 37800002 DC AL.12(&SYSLIST(1)-&DSECT),XL.4'A' 37830002 AGO .SUBH 37860002 .SUBG ANOP 37890002 DC AL.12(&SYSLIST(&OP,1)-&DSECT),XL.4'A' 37920002 .SUBH ANOP 37950002 DC BL.1'&B',FL.7'&S',AL.4(&BYTESP),FL.4'&CODE' 37980002 .OUT ANOP 38010002 &NDX SETA 0 38040002 AIF (&SUB EQ 0).OUTA 38070002 AIF (&OP LT N'&SYSLIST).LOOP 38100002 .OUTA ANOP 38130002 MEND 38160002 GBLC &DSECT,&CSECT 38190002 GBLB &DIAGTST,&DIAGSET,&DIAGLIN 38220002 &DIAGTST SETB 1 38250002 IFCEM155 CSECT 38280002 &CSECT SETC 'IFCEM155' 38310002 &DSECT SETC 'DSECT155' 38340002 DSECT155 DSECT 38370002 DSGENFET 38400002 IFCEM155 CSECT 38430002 USING *,9 38460002 ENTRYPTR DC A(STARTER) 38490002 TABLNAME DC CL8'IFCEM155' YM5999 38520002 REG9 DC F'0' 38550002 LP DC F'0' 38580002 SKIPPER BR 14 38610002 DC H'13' 38612020 UP13 AH R3,*-2 38614020 BR R14 38616020 DC H'25' 38618020 BCK25 SH R3,*-2 38620020 BR R14 38622020 DC H'78' 38624020 BCK78 SH R3,*-2 38626020 BR R14 38628020 DC H'17' 38630020 BCK17 SH R3,*-2 38632020 BR R14 38634020 DC H'117' AMOUNT TO 38640002 BCK117 SH R3,*-2 DECREMENT COUNT IN PRINT BUFFER 38670002 BR R14 RETURN 38700002 DC H'53' 38703002 BCK53 SH R3,*-2 38706002 BR 14 38709002 DC H'36' 38712002 BCK36 SH R3,*-2 38715002 BR 14 38718002 DC H'48' 38721002 BCK48 SH R3,*-2 38724002 BR 14 38727002 USING DSECT155,2 38730020 *********************************************************************** 38731020 P8CON STM R5,R8,XSAVE SAVE REGS 38732020 CLI 21(R2),X'58' Q/ IS THIS A 158 38733020 BNE RETURN EXIT 38734020 LA R5,L115 AMOUNT TO BACKSPACE 38735020 SR R3,R5 BACKSPACE 38736020 MVC L0(L16,R3),P8LABEL MOVE IN LABEL 38737020 RETURN LM R5,R8,XSAVE RESTORE REGS 38738020 BR R14 EXIT 38739020 P8LABEL DC C'PLUS 8 CONDITION' 38740020 *********************************************************************** 38741020 APCALLR TM 16(R2),X'04' Q/ IS THIS ATTACHED PROCESSOR 38742020 BNOR R14 NO 38743020 CLI 21(R2),X'58' Q/ IS THIS A 158 38744020 BNER R14 NO, EXIT 38745020 ST R5,XSAVE SAVE REG 38746020 L R5,APNXTMOD ADDR OF BRANCH TO IFCEG155 38747020 ST R5,REG9 UPDATE LINE PTR 38748020 L R5,XSAVE RESTORE REG 38749020 BR R14 EXIT 38750020 APNXTMOD DC A(APMODBR-4) 38751020 *********************************************************************** 38752020 NOPRINT SR R15,R15 DO NOT PRINT THIS LINE 38753020 BR R14 EXIT 38754020 *********************************************************************** 38755020 WORKSAVE ST 5,XSAVE 38760002 L 5,LOGWORK1 38790002 ST 5,LOGSAVE 38820002 L 5,XSAVE 38850002 BR 14 38880002 *********************************************************************** 38881020 CHK158 CLI 21(R2),X'58' Q/ IS THIS A 158 38882020 BNER R14 NO, EXIT 38883020 CHK1581 SR R15,R15 DO NOT PRINT THIS LINE 38884020 BR R14 EXIT 38885020 *********************************************************************** 38886020 N1583AP CLI 21(R2),X'58' Q/ IS THIS A 158 38887020 BNER R14 NO, EXIT 38888020 TM 16(R2),X'03' Q/ IS THIS 158-3 38889020 BO Y1583 YES 38890020 TM 16(R2),X'04' Q/ IS THIS AP 38891020 BNOR R14 NOT 158-3 OR AP SO EXIT 38892020 Y1583 SR R15,R15 DO NOT PRINT THIS LINE SINCE 38893020 BR R14 THIS IS 158-3 OR AP 38894020 *********************************************************************** 38895020 DO1583AP CLI 21(R2),X'58' Q/ IS THIS A 158 38896020 BNER R14 NO, EXIT 38897020 TM 16(R2),X'03' Q/ IS THIS 158-3 38898020 BOR R14 YES 38899020 TM 16(R2),X'04' Q/ IS THIS AP 38900020 BOR R14 YES 38901020 SR R15,R15 NOT AP OR 158-3 SO DO NOT PRINT 38902020 BR R14 THIS LINE 38903020 *********************************************************************** 38904020 WORKREST ST 5,XSAVE 38910002 L 5,LOGSAVE 38940002 ST 5,LOGWORK1 38970002 L 5,XSAVE 39000002 BR 14 39030002 NOT1583 TM 16(R2),X'03' @Z02774 39033002 BCR 14,R14 @Z02774 39036002 SR R15,R15 @Z02774 39039002 BR R14 @Z02774 39042002 DO1583 TM 16(R2),X'03' @Z02774 39045002 BOR R14 @Z02774 39048002 SR R15,R15 @Z02774 39051002 BR R14 @Z02774 39054002 BINDER STM R14,R12,L12(R13) SAVE REGS 39060002 SR R6,R6 CLEAR REG 39090002 SR R4,R4 CLEAR REG 39120002 SR R5,R5 CLEAR REG 39150002 IC R5,4(R15) PUT HEX DIGIT CONTAINING DATA LENGTH 39180002 SLDL R4,28 DECODED INTO REG 4 39210002 AGAIN LH R5,4(R15) ADDRESS OF BYTE TO BE PROCESSED 39240002 SLL R5,20 (CLEAR OFF 39270002 SRL R5,20 LENGTH SPECIFIER) 39300002 AR R5,R2 TO REG 5 39330002 IC R7,0(R5) BYTE TO BE PROCESSED IN REG 7 39360002 IC R11,6(R15) NUM. UNWANTED BITS TO REG 11 39390002 IC R10,7(R15) ITEM LENGTH IN BITS TO REG 10 39420002 SLL R7,24(R11) LEFT-JUSTIFY 39450002 SLDL R6,0(R10) ADD TO BITS IN REG 6 39480002 LA R15,4(R15) UP POINTER TO NEXT SET OF DATA 39510002 BCT R4,AGAIN BACK IF MORE DATA TO BE PROCESSED 39540002 ST R6,LOGWORK1 PUT IN WORK AREA 39570002 LM R14,R12,L12(R13) RESTORE REGS 39600002 BR R14 RETURN 39630002 PARPUT STM R14,R12,12(R13) SAVE REGS 39660002 SR R8,R8 CLEAR REG 39690002 SR R11,R11 CLEAR REG 39720002 IC R8,4(R15) REG 8-# ENTRIES TO BE PROCESSED 39750002 SR R10,R10 CLEAR REG 10 39780002 LR R3,R0 REG 3 POINTS TO PRINTBUF POS. 0 39810002 RETURN1 LR R4,R3 39840002 IC R10,5(R15) 39870002 AR R4,R10 REG 4 HAS LOCATION OF PARITY BIT 39900002 IC R10,7(R15) REG 10-# OF TIMES TO REPEAT PROCESS 39930002 RETURN2 MVC KEEPER(L1),0(R4) PARITY BYTE IN KEEPER 39960002 IC R11,6(R15) REG 11-# POSITIONS TO BE PROCESSED 39990002 NI KEEPER,X'0F' 40020002 XI KEEPER,X'01' NOT OF PARITY BIT IN KEEPER 40050002 LA R5,2(R4) REG 5-POINTER TO BYTE FOR PROCESSING 40080002 SR R12,R12 CLEAR REG 12 40110002 IC R12,KEEPER REG 12-KEEPS PARITY COUNT 40140002 RETURN3 MVC KEEPER(L1),0(R5) EBCDIC BYTE TO KEEPER 40170002 CLI KEEPER,X'C6' SEE IF DIGIT (0-9) 40200002 BH DIGIT 40230002 SR R2,R2 CLEAR REG 2 40260002 IC R2,KEEPER ASSUME A-F 40290002 SH R2,ABCDEF CONVERT TO HEX BY SUBTRACTING HEX B7 40320002 STC R2,KEEPER MAKE BELIEVE NOTHING HAPPENED 40350002 DIGIT IC R7,KEEPER READY FOR PARITY ROUTINE 40380002 SLL R7,28 LEFT-JUSTIFY 40410002 RETURN4 SR R6,R6 CLEAR REG 6 40440002 SLDL R6,1 40470002 XR R12,R6 ADD PARITY BIT 40500002 NR R7,R7 SET CONDITION CODE 40530002 BC 7,RETURN4 BACK IF MORE BITS TO BE TESTED 40560002 LA R5,1(R5) BUMP TO NEXT PRINT POSITION 40590002 BCT R11,RETURN3 BACK IF MORE POSITIONS TO BE CHECKED 40620002 NR R12,R12 SET CONDITION CODE 40650002 BZ NOSPLAT SKIP * MAKER IF GOOD PARITY 40680002 MVI 1(R4),C'*' SPLAT FOR BAD PARITY 40710002 NOSPLAT LA R4,2(R5) BUMP PARITY POS. COUNTER 40740002 BCT R10,RETURN2 BACK IF MORE PARITY CHECKS 40770002 LA R15,3(R15) BUMP CONTROL ENTRY POINTER 40800002 BCT R8,RETURN1 BACK IF MORE COLUMN ENTRIES 40830002 LM R14,R12,12(R13) RESTORE REGS 40860002 BR R14 RETURN 40890002 ABCDEF DC XL2'B7' 40920002 KEEPER DS X 40950002 TSTRB ST 5,XSAVE 40980002 TM 0(4),X'02' 41010002 BC 7,TSTEDB 41040002 L R5,BLKMPXBA ADDRESS OFBRANCH TO BLK MPX TBL 41070002 ST 5,REG9 41100002 TSTEDB L 5,XSAVE 41130002 BR 14 41160002 BLKMPXBA DC A(BLKMPXB-4) 41190002 *********************************************************************** 41190620 SCUSKIP2 TM 16(R2),X'04' Q/ IS THIS ATTACHED PROCESSOR 41191220 BOR R14 YES, CONTINUE PROCESSING 41191820 MVC REG9(8),SCUNAPAD UPDATE LINE/LABEL PTR 41192420 SR R15,R15 DO NOT PRINT THIS LINE 41193020 BR R14 EXIT 41193620 SCUNAPAD DC A(SCUNAPLN-4) 41194220 DC A(SCUNAPLB) 41194820 *********************************************************************** 41195420 APSKIP1 TM 16(R2),X'04' Q/ IS THIS ATTACHED PROCESSOR 41196020 BO APSKIP11 YES 41196620 BR R14 EXIT 41197220 APSKIP11 CLI 21(R2),X'58' Q/ IS THIS A 158 41197820 BE APSKIP12 YES 41198420 BR R14 EXIT 41199020 APSKIP12 MVC REG9(8),APSKIPAD UPDATE LINE/LABEL PTRS 41199620 SR R15,R15 DO NOT PRINT THIS LINE 41200220 BR R14 EXIT 41200820 APSKIPAD DC A(APSKPLNE-4) 41201420 DC A(APSKPLAB) 41202020 *********************************************************************** 41202620 SKIPAP TM 16(R2),X'04' Q/ IS THIS ATTACHED PROCESSOR 41203220 BO SKIPAP1 YES 41203820 BR R14 EXIT 41204420 SKIPAP1 CLI 21(R2),X'58' Q/ IS THIS A 158 41205020 BNER R14 NO, EXIT 41205620 MVC REG9(8),SCUSKPAD UPDATE LINE/LABEL PTRS 41206220 SR R15,R15 DO NOT PRINT THIS LINE 41206820 BR R14 EXIT 41207420 SCUSKPAD DC A(SCUAPLNE-4) 41208020 DC A(SCUAPLAB) 41208620 *********************************************************************** 41209220 APCHKNP TM 16(R2),X'04' Q/ IS THIS ATTACHED PROCESSOR 41209820 BO APYES YES 41210420 BR R14 EXIT 41211020 APYES CLI 21(R2),X'58' Q/ IS THIS A 158 41211620 BNER R14 EXIT 41212220 SR R15,R15 DO NOT PRINT THIS LINE 41212820 BR R14 EXIT 41213420 *********************************************************************** 41214020 APCHKP TM 16(R2),X'04' Q/ IS THIS ATTACHED PROCESSOR 41214620 BO APYES1 YES 41215220 APNO SR R15,R15 DO NOT PRINT THIS LINE 41215820 BR R14 EXIT 41216420 APYES1 CLI 21(R2),X'58' Q/ IS THIS A 158 41217020 BER R14 EXIT, AND PRINT THIS LINE 41217620 B APNO EXIT WITHOUT PRINTING 41218220 *********************************************************************** 41218820 SRADADR BIND (SRADAD0,0,1),(SRADAD1,0,7) 41220002 IFTCHS BIND (IFTHRS,0,8) 41250002 AIRO BIND (AIROFET,0,8) 41280002 MSI BIND (MSIREAD,0,8) 41310002 CP2B BIND (CP2HC,6,2),(CP2R2,4,1),(CP2R3,0,13) 41340002 CP2A BIND (CP2NC,1,16) 41370002 UPINDX BIND (UINDXA,0,4),(UINDXB,3,5),(UINDX19,6,1),(UINDXV1,0,2) 41400002 LOWINDX BIND (LINDXA,0,4),(LINDXB,3,5),(LINDX19,2,1),(LINDXV1,0,2) 41430002 P197799 CKPARITY (19,2,4),(77,2,1),(99,2,4) 41460002 P377599 CKPARITY (37,2,1),(75,4,1),(99,2,4) 41490002 P7699 CKPARITY (76,4,1),(99,2,4) 41520002 *********************************************************************** 41527020 P76 CKPARITY (76,4,1) 41534020 *********************************************************************** 41541020 P9924 CKPARITY (99,2,4) 41550002 P1965117 CKPARITY (19,2,4),(65,2,3),(117,2,1) 41580002 *********************************************************************** 41587020 P65117 CKPARITY (65,2,3),(117,2,1) 41594020 *********************************************************************** 41601020 P19117 CKPARITY (19,2,4),(117,2,1) 41610002 P2571117 CKPARITY (25,2,3),(71,8,1),(117,2,1) 41640002 P2523 CKPARITY (25,2,3) 41670002 P2742 CKPARITY (27,4,2) 41700002 P3541 CKPARITY (35,4,1),(107,4,2) 41710002 P11721 CKPARITY (117,2,1) 41730002 P10742 CKPARITY (107,4,2) 41760002 P2799 CKPARITY (27,4,2),(99,2,4) 41790002 P11181 CKPARITY (111,8,1) 41820002 P1145 CKPARITY (114,5,1) 41850002 P10523 CKPARITY (105,2,3) 41880002 P107 CKPARITY (107,4,2) 41910002 P7181 CKPARITY (71,8,1) 41940002 P117 CKPARITY (117,2,1) 41950002 P91 CKPARITY (91,8,1) 41960002 P71 CKPARITY (71,8,1) @YA02788 41965002 R0 EQU 0 41970002 R1 EQU 1 42000002 R2 EQU 2 42030002 R3 EQU 3 42060002 R4 EQU 4 42090002 R5 EQU 5 42120002 R6 EQU 6 42150002 R7 EQU 7 42180002 R8 EQU 8 42210002 R9 EQU 9 42240002 R10 EQU 10 42270002 R11 EQU 11 42300002 R12 EQU 12 42330002 R13 EQU 13 42360002 R14 EQU 14 42390002 R15 EQU 15 42420002 HEX00 EQU X'00' 42450002 HEX08 EQU X'08' 42480002 HEX40 EQU X'40' 42510002 HEX80 EQU X'80' 42540002 HEX48 EQU X'48' 42570002 HEXBF EQU X'BF' 42600002 L0 EQU 0 42630002 X20 EQU X'20' @Z02774 42640002 L1 EQU 1 42660002 L2 EQU 2 42690002 L3 EQU 3 42720002 L4 EQU 4 42750002 L5 EQU 5 42780002 L6 EQU 6 42810002 L7 EQU 7 42840002 L8 EQU 8 42870002 L12 EQU 12 42900002 L16 EQU 16 42910020 L19 EQU 19 42930002 L60 EQU 60 42960002 L115 EQU 115 42970020 LOGSAVE DS F 42990002 XSAVE DC 4F'0' @XA21544 43020020 LTORG 43050002 STARTER DS 0F 43080002 DC XL4'00010001' 43110002 DC XL4'00010001' 43140002 DC A(LABAREA) 43170002 DC H'0' 43200002 LINE ,,SKIP=1 43230020 LABEL '' 43250020 LINE ,(24,53) 43270020 ROUTINE XDUM2,APSKIP1 43290020 LABEL '+------------------------- COMMON CHANNEL CKS -----',*43310020 '--------------------+' 43330020 LINE (35,40),(4,40),SKIP=1 43350002 BIN C35SCE 43380002 BIN ROSINTE 43410002 BIN STBBE 43440002 LABEL 'STAT CARD CH 3-5 CK','CS INTER CK', X43470002 'STAT BB DECODE CK' 43500002 LINE 43530002 BIN C35ITAE 43560002 BIN ROSINPE 43590002 BIN STDCDE 43620002 LABEL 'INTAG A CH 3-5 CK','CS INPUT CK','STAT DECODE CK' 43650002 LINE 43680002 BIN C35ITBE 43710002 BIN LSTOCHE 43740002 BIN YICDCDE 43770002 LABEL 'INTAG B CH 3-5 CK','LS TO CH BUS CK', X43800002 'YIC DECODE CK' 43830002 LINE 43860002 BIN UPDE 43890002 BIN HDWCHE 43920002 BIN BUSPTYE 43950002 LABEL 'U-PGM DETECTED CK','HDW CHAN NO CK','BUS PTY CK' 43980002 LINE 44010002 BIN EMITINE 44040002 BIN HCIE 44070002 BIN RLCTRE 44100002 LABEL 'EMIT FLD INPUT CK','HDW CTRL INPUT CK', X44130002 'RETRY L CNTR CK' 44160002 LINE 44190002 BIN EMITFLE 44220002 BIN HRRE 44250002 BIN LSUCWAE 44280002 LABEL 'EMIT FLD LATE CK','HDW READ RTN CK', X44310002 'I/O LS UCW ADR CK' 44340002 LINE 44370002 BIN PSWCKE 44400002 BIN HLCE 44430002 BIN BIRESPE 44460002 LABEL 'PSW CK','HDW LSAR CK','BREAK IN RESP CK' 44490002 LINE 44520002 BIN L2CNTRE 44550002 BIN UPLSARE 44580002 BIN SELCNE 44610002 LABEL 'L2 COUNTER CK','U-PGM LSAR CK','SEL CHAN NO CK' 44640002 LINE 44670002 BIN CSELCPE 44700002 BIN WRLSUPE 44730002 BIN MURE 44760002 LABEL 'CHAN SELECT COMP ERROR','WR LS U-PGM CK', X44790002 'MULTIPLE USE CSAR CK' 44820002 LINE 44850002 BIN C02ITAE 44880002 BIN IN1SELE 44910002 BIN HCIDE 44940002 LABEL 'INTAG A CH 0-2 CK','INP 1 WD SEL CK','HDW CH ID CK' 44970002 LINE 45000002 BIN C02ITBE 45030002 BIN IN2ROSE 45060002 BIN UPCIDE 45090002 LABEL 'INTAG B CH 0-2 CK','INP 2 WD CS CK', X45120002 'U-PGM CH ID CK' 45150002 LINE 45180002 BIN C02STCE 45210002 BIN IN3SELE 45240002 BIN HCLE 45270002 LABEL 'STAT CARD CH 0-2 CK','INP 3 CH SEL CK', X45300002 'HDW CH ID LOG' 45330002 LINE 45360002 BIN SBPE 45390002 BIN LS01INE 45420002 BIN LSRLOGE 45450002 LABEL 'STAT BROR PTY CK','LS 0+1 INP CK','LS RTN LOG CK' 45480002 LINE 45510002 BIN OUTTAGE 45540002 BIN LS23INE 45570002 BIN C01CXE 45600002 LABEL 'OUT TAG CK','LS 2+3 INP CK','CARD XFER CH 0-1 CK' 45630002 LINE ,,SKIP=1 45660002 BIN GRPSELE 45690002 BIN INTCRDE 45720002 BIN C23CXE 45750002 LABEL 'GROUP SELECT CK','INTER CARD CK', X45780002 'CARD XFER CH 2-3 CK' 45810002 LINE (75,40),(4,40),SKIP=1 45840002 BIN LOGYINE 45870002 BIN C45CXE 45900002 LABEL ' ','LOG Y INPUT CK','CARD XFER CH 4-5 CK' 45930002 LINE 45960002 BIN LOGRDRE 45990002 BIN MPCIDE 46020002 LABEL '','LOG CSAR CK','MP CH ID CK' 46050002 LINE (18,),(4,) 46150002 HEX (CONSDR,4,4B) 0.2 46250002 LABEL 'CONSOLE REG' 0.2 46350002 LINE ,,SKIP=E 46530002 APSKPLAB LABEL '' 46560020 APSKPLNE LINE ,(41),SKIP=1 46590020 LABEL '//////////////////////////////////////' 46620002 LINE 46650002 LABEL '/ /' 46680002 LINE 46710002 LABEL '/ ///CPU DATA FLOW + CONTROLS/// /' 46740002 LINE 46770002 LABEL '/ /' 46800002 LINE ,,SKIP=3 46830002 LABEL '//////////////////////////////////////' 46860002 LINE ,(16,41),SKIP=1 46890002 LABEL '---ALU---','---MOVER---','---DATA REGS---' 46920002 LINE (21,16),(5,40) 46950002 HEX XBUS0,4,4B 46980002 BIN XBUS0P,B18 47010002 BIN XBUS1P,B28 47040002 BIN XBUS2P,B38 47070002 BIN XBUS3P,B48 47100002 HEX AREG0,4,4B 47130002 BIN AREG0P,B18 47160002 BIN AREG1P,B28 47190002 BIN AREG2P,B38 47220002 BIN AREG3P,B48 47250002 ROUTINE DUMMY001,BCK117 47280002 HEX UBUS,,1B 47310002 BIN UBUSP,B19 47340002 ROUTINE DUMMY001,P197799 47370002 LABEL 'X-BUS','U-BUS','A-REG' 47400002 LINE 47430002 HEX YBUS0,4,4B 47460002 BIN YBUS0P,B18 47490002 BIN YBUS1P,B28 47520002 BIN YBUS2P,B38 47550002 BIN YBUS3P,B48 47580002 HEX BREG0,4,4B 47610002 BIN BREG0P,B18 47640002 BIN BREG1P,B28 47670002 BIN BREG2P,B38 47700002 BIN BREG3P,B48 47730002 ROUTINE DUMMY001,BCK117 47760002 HEX VBUS,,1B 47790002 BIN VBUSP,B19 47820002 ROUTINE DUMMY001,P197799 47850002 LABEL 'Y-BUS','V-BUS','B-REG' 47880002 LINE 47910002 HEX ZBUS0,4,4B 47940002 BIN ZBUS0P,B18 47970002 BIN ZBUS1P,B28 48000002 BIN ZBUS2P,B38 48030002 BIN ZBUS3P,B48 48060002 HEX CREG0,4,4B 48090002 BIN CREG0P,B18 48120002 BIN CREG1P,B28 48150002 BIN CREG2P,B38 48180002 BIN CREG3P,B48 48210002 ROUTINE DUMMY001,BCK117 48240002 HEX WBUS,,1B 48270002 BIN WBUSP,B19 48300002 ROUTINE DUMMY001,P197799 48330002 LABEL 'Z-BUS','W-BUS','C-REG' 48360002 LINE (39,31) 48390002 HEX FILREG,1,1B 48420002 BIN FILREGP,B33 48450002 HEX DREG0,4,4B 48480002 BIN DREG0P,B33 48510002 BIN DREG1P,B58 48540002 BIN DREG2P,B83 48570002 BIN DREG3P,B108 48600002 ROUTINE DUMMY001,BCK117 48630002 BIN ALUFNR,B93 48660002 BIN ALUFNRP,B126 48690002 ROUTINE DUMMY001,P377599 48720002 LABEL 'F+G REG','FUNCTION REG','D-REG' 48750002 LINE (41,20) 48780002 BIN QBIT,B1 48810002 ROUTINE DUMMY001,SKIPPER 48840002 BIN ABCTR,B3 48870002 HEX CPULS0,4,4B 48900002 BIN ABCTRP,B45 48930002 BIN CPULS0P,B42 48960002 BIN CPULS1P,B56 48990002 BIN CPULS2P,B70 49020002 BIN CPULS3P,B84 49050002 ROUTINE DUMMY001,P7699 49080002 ROUTINE XDUM2,APCHKNP 49110020 LABEL 'Q-REG','AB COUNTER','LS(CPU/UCW)' 49112020 LINE , 49114020 BIN QBIT,B1 49116020 ROUTINE XDUM2,SKIPPER 49118020 BIN ABCTR,B3 49120020 HEX CPULS0,4,4B 49122020 BIN ABCTRP,B45 49124020 BIN CPULS0P,B42 49126020 BIN CPULS1P,B56 49128020 BIN CPULS2P,B70 49130020 BIN CPULS3P,B84 49132020 ROUTINE XDUM2,P7699 49134020 ROUTINE XDUM2,APCHKP 49136020 LABEL 'Q-REG','AB COUNTER','CPU LS' 49138020 LINE 49140002 BIN CCST,B1 49170002 ROUTINE DUMMY001,SKIPPER 49200002 BIN CBCTR,B3 49230002 HEX IOLSD0,4,4B 49260002 BIN CBCTRP,B45 49290002 BIN IOLSD0P,B42 49320002 BIN IOLSD1P,B56 49350002 BIN IOLSD2P,B70 49380002 BIN IOLSD3P,B84 49410002 ROUTINE DUMMY001,P7699 49440002 ROUTINE XDUM2,APCHKNP 49470020 LABEL 'CARRY CONTROL','CB COUNTER','LS(I/O BUFR)' 49472020 LINE , 49474020 BIN CCST,B1 49476020 ROUTINE XDUM2,SKIPPER 49478020 BIN CBCTR,B3 49480020 ROUTINE XDUM2,SKIPPER 49482020 BIN CBCTRP,B45 49484020 ROUTINE XDUM2,P76 49486020 ROUTINE XDUM2,APCHKP 49488020 LABEL 'CARRY CONTROL','CB COUNTER' 49490020 LINE (41,20),(5,80) 49500002 BIN CSA,B1 49530002 ROUTINE DUMMY001,SKIPPER 49560002 ROUTINE DUMMY001,SKIPPER 49590002 HEX EXTSW0,4,4B 49620002 BIN EXTSW0P,B22 49650002 BIN EXTSW1P,B36 49680002 BIN EXTSW2P,B50 49710002 BIN EXTSW3P,B64 49740002 ROUTINE DUMMY001,P9924 49770002 LABEL 'CARRY STAT A','E-SWITCH' 49800002 LINE ,,SKIP=3 49830002 BIN CSB,B1 49860002 LABEL 'CARRY STAT B' 49890002 LINE ,(15,39),SKIP=1 49920002 LABEL '---STORAGE---',' ---I-FETCH---', X49950002 '---CONTROL REGS---' 49980002 LINE (21,23),(5,40),SKIP=1 50010002 HEX IOSAR0,4,4B 50040002 BIN IOSAR0P,B25 50070002 HEX IAR1,4,3B 50100002 BIN IOSAR1P,B65 50130002 BIN IOSAR2P,B82 50160002 BIN IOSAR3P,B99 50190002 ROUTINE DUMMY001,BCK117 50220002 BIN IAR1P 50250002 BIN IAR2P,B17 50280002 BIN IAR3P,B34 50310002 BIN PSWSMP,B17 50340002 HEX PSWSM,B38,1B 50370002 ROUTINE DUMMY001,P1965117 50400002 ROUTINE XDUM2,APCHKNP 50430020 LABEL 'I/O KEY+SAR','INST COUNTER','PSW-SYS MASK' 50432020 LINE (67,23),(5,40),SKIP=1 50434020 HEX IAR1,4,3B 50436020 ROUTINE XDUM2,BCK48 50438020 BIN IAR1P 50440020 BIN IAR2P,B17 50442020 BIN IAR3P,B34 50444020 BIN PSWSMP,B17 50446020 HEX PSWSM,B38,1B 50448020 ROUTINE DUMMY001,P65117 50450020 ROUTINE XDUM2,APCHKP 50452020 LABEL ' ','INST COUNTER','PSW-SYS MASK' 50454020 LINE (21,16) 50460002 HEX CPUSR0,4,4B 50490002 BIN CPUSR0P,B18 50520002 BIN CPUSR1P,B28 50550002 BIN CPUSR2P,B38 50580002 BIN CPUSR3P,B48 50610002 BIN IB0FULL,B23 50640002 BIN PSWKEYP 50670002 HEX PSWKEY,B14,1B 50700002 ROUTINE DUMMY001,P19117 50730002 LABEL 'CPU KEY+SAR','BFR FULL TRIGS',' -KEY/EMWP' 50760002 LINE (27,13) 50790002 HEX BCUS1,4,3B 50820002 BIN BCUS1P,B15 50850002 BIN BCUS2P,B22 50880002 BIN BCUS3P,B29 50910002 ROUTINE DUMMY001,IFTCHS 50940002 BIN LOGWORK4,B19 50970002 BIN IFTCHSP,B34 51000002 BIN PSWESMP,B1 51030002 HEX PSWESM,B12,1B 51060002 ROUTINE DUMMY001,P2571117 51090002 LABEL 'MS SAR','STATUS---',' -EXT SYS MASK' 51120002 LINE (27,20) 51150002 HEX ASARB1,4,3B 51180002 BIN ASARB1P,B22 51210002 BIN ASARB2P,B36 51240002 BIN ASARB3P,B50 51270002 BIN IFTHRS,B27 51300002 BIN CC,B8 51330002 ROUTINE DUMMY001,P2523 51360002 LABEL ' ',' -THRESHOLDX51390002 ',' -COND CODE' 51400020 LINE (40,20) 51420002 BIN HOLDOFF @Z02774 51664002 ROUTINE DUMMY001,SKIPPER @Z02774 51666002 BIN IFRES @Z02774 51668002 ROUTINE DUMMY001,SKIPPER @Z02774 51670002 HEX L12CTR,,1B @Z02774 51672002 BIN L12CTRP,B23 @Z02774 51674002 ROUTINE DUMMY001,P11721 @Z02774 51676002 LABEL 'HOLD OFF',' -RESET BFR','L1L2 COUNTER' @Z02774 51680002 LINE (80,40),(45,40) 51690002 BIN IFINV 51720002 BIN L2SS 51750002 BIN L1SS,B43 51780002 LABEL ' -INVALID ADR','L1L2 SIGN STATS' 51810002 LINE 51840002 BIN IFPRTC 51870002 BIN ALWTRP 51900002 LABEL ' -PROTECT VIOL','ALLOW TRAP' 51930002 LINE 51960002 BIN IFIC 51990002 HEX R12CTR,,1B 52020002 BIN R12CTRP,B43 52050002 ROUTINE DUMMY001,P11721 52080002 LABEL ' -INCR CARRY','R1R2 COUNTER' 52110002 LINE (,20),(5,40) 52140002 BIN IFEXS 52170002 ROUTINE DUMMY001,SKIPPER 52200002 BIN GPSTL3 52230002 BIN GPSTL2P,B25 52260002 BIN GPSTL1,B51 52290002 BIN GPSTL1P,B73 52320002 BIN GPSTL2,B83 52350002 ROUTINE DUMMY001,P10742 52380002 LABEL ' ---LOCAL STORAGE---',' -EXECUTE STAT', X52410002 'GP STATS' 52440002 LINE (40,40),(5,40) 52470002 BIN LSSSTS 52500002 BIN IFILC 52530002 BIN S19 52560002 LABEL 'LS SECTOR',' -ILC','STAT 19' 52590002 LINE (40,20) 52620002 BIN CPURLAR 52650002 ROUTINE DUMMY001,SKIPPER 52680002 ROUTINE DUMMY001,SKIPPER 52710002 ROUTINE DUMMY001,SKIPPER 52740002 BIN BS7 52770002 BIN BS4,B23 52800002 BIN BS4P,B45 52830002 BIN BS0,B71 52860002 BIN BS0P,B93 52890002 ROUTINE DUMMY001,P10742 52920002 LABEL 'CPU READ LSAR','I FETCH EXCEPTION-','BYTE STATS' 52950002 LINE (40,40) 52980002 BIN WRCPULS 53010002 BIN EXTST 53040002 BIN INBBRR 53070002 BIN INABRR,B46 @Z02774 53100002 BIN INABRR0,B87 @Z02774 53110002 ROUTINE LB32F2,NOT1583 @Z02774 53120002 LABEL 'WRITE CPU LS BIT',' MASKED EXT STAT', X53130002 'IND BR REG' 53160002 LINE , @Z02774 53163002 BIN WRCPULS @Z02774 53166002 BIN EXTST @Z02774 53169002 BIN INBBRR @Z02774 53172002 BIN INABRR,B46 @Z02774 53175002 BIN INABRR0,B87 @Z02774 53178002 ROUTINE LB32F2,DO1583 @Z02774 53181002 LABEL 'WRITE CPU LS BIT',' MASKED EXT STAT','IND BR REG' 53184002 LINE 53190002 BIN CPUWLAR 53220002 BIN ADRCPST 53250002 BIN HYRST 53280002 LABEL 'CPU WRI LSAR',' ADR COMP STAT','LEX MODE' 53310002 LINE 53340002 BIN IORLAR 53370002 BIN IC1B29 53400002 BIN LB2516 NOT SS MODE 53430002 LABEL 'I/O UCW READ LSAR','PLUS 8 CONDITION','NOT SS MODE' 53442020 LINE 53460002 BIN IOWLAR 53490002 BIN ICPLUS4 53520002 LABEL 'I/O UCW WRITE LSAR','PLUS 4 CONDITION' 53554020 LINE ,,SKIP=3 53580002 BIN WRIOLS 53610002 BIN ANYEXC 53640002 LABEL 'WRITE I/O LS BIT','ANY EXCEPTION' 53674020 LINE ,(16,40),SKIP=1 53700002 LABEL '---RETRY---','---SERAD---','---CONSOLE---' 53730002 LINE (41,10),(5,40),SKIP=1 53760002 BIN CP1R2,B1 53790002 BIN CP1R1P,B16 53820002 BIN CP1R0,B32 53850002 BIN CP1R0P,B44 53880002 BIN SERADM,B1 53910002 BIN CP1R1,B54 53940002 HEX CONSR0,4,4B 53970002 BIN CONSR0P,B12 54000002 BIN CONSR1P,B16 54030002 BIN CONSR2P,B20 54060002 BIN CONSR3P,B24 54090002 ROUTINE DUMMY001,P2799 54120002 LABEL 'CHECK PT 1 REG','SERAD MODE','CONSOLE REG' 54150002 LINE (30,10) 54180002 ROUTINE DUMMY001,CP2B 54210002 BIN LOGWRK3A 54240002 ROUTINE DUMMY001,CP2A 54270002 BIN LOGWRK3A,B31 54300002 BIN CP2R0P,B43 54330002 BIN INTDL 54360002 BIN CP2R1P,B55 54390002 ROUTINE DUMMY001,SKIPPER 54420002 ROUTINE DUMMY001,SKIPPER 54450002 BIN BLKCONS 54480002 ROUTINE DUMMY001,P2742 54510002 LABEL 'CHECK PT 2 REG','INTERNAL DATA LOAD', X54540002 'BLOCK CONSOLE' 54570002 LINE (40,40) 54600002 BIN CP2NC 54630002 BIN WAITFR 54660002 BIN DIAGCTR 54690002 LABEL ' -N-TH CHECK','WAIT FOR RESET', X54720002 'DIAGNOSTIC COUNTER' 54750002 LINE 54780002 BIN CP2SE 54810002 BIN INPERR 54840002 BIN CTRERR 54870002 LABEL ' -SINGLE ECC/IO DBL','INPUT CK', X54900002 'DIAG CYCL CTR CK' 54930002 LINE 54960002 BIN CP2DE 54990002 BIN CLKERR 55020002 BIN INDDISP 55050002 LABEL ' -DOUBLE ECC','CLOCK CK','INDIRECT DISPLAY' 55080002 LINE , @Z02774 55236002 BIN CP2IE @Z02774 55242002 LABEL ' -IF EXCEP TAKEN' @Z02774 55254002 LINE 55260002 BIN CP2HC 55290002 BIN LOGCMPS 55320002 BIN CONSDR 55350002 ROUTINE XDUM2,APCHKNP 55380020 LABEL ' -TIMER ERR','LOG COMPARE','I/O CONSOLE REG' 55390020 LINE , 55400020 BIN CP2HC 55410020 BIN LOGCMPS 55420020 ROUTINE XDUM2,APCHKP 55430020 LABEL ' -TIMER ERR','LOG COMPARE' 55440020 LINE , @Z02774 55463002 ROUTINE DUMMY001,SKIPPER @Z02774 55466002 BIN ABCOMPS @Z02774 55469002 LABEL ' ','SERAD CS STOP' @Z02774 55475002 LINE , @YA02788 55480002 BIN CP2AC @YA02788 55500002 BIN SERDIS @YA02788 55520002 LABEL ' -STORAGE HARD ERR','SERAD DISABLE ERROR', X55540020 ' ---SIGP CNTLS---' @YA02788 55560002 LINE (40,40) @YA02788 55580002 BIN CP2R2 @YA02788 55600002 ROUTINE DUMMY001,SKIPPER @YA02788 55620002 BIN (LB3740,,8) @YA02788 55640002 LABEL ' -DEGRADE BUFFER',' ','EXT IRPT REG' @YA02788 55660002 LINE , @YA02788 55680002 BIN CP2R3 @YA02788 55700002 ROUTINE DUMMY001,SKIPPER @YA02788 55720002 BIN (LB3750,,8) @YA02788 55740002 ROUTINE XDUM2,APCHKNP 55760020 LABEL ' -TIME OF DAY CK',' ---MP SVP FCNS---', *55764020 'MASK REG/E SW INPUT' 55768020 LINE , 55772020 BIN CP2R3 55776020 ROUTINE XDUM2,SKIPPER 55780020 BIN (LB3750,,8) 55784020 ROUTINE XDUM2,APCHKP 55788020 LABEL ' -TIME OF DAY CK',' ---AP SVP FCNS---', *55792020 'MASK REG/E SW INPUT' 55796020 LINE (80,40),(45,40) @YA02788 55800002 BIN CONSUM @YA02788 55820002 BIN (LB3760,,3) @YA02788 55840002 LABEL 'CONSOLE SUMMARY BIT','CNTL GATES' @YA02788 55860002 LINE (40,40),(5,40) @YA02788 55880002 BIN SDC @YA02788 55900002 BIN STRT @YA02788 55920002 BIN LB3763 @YA02788 55940002 LABEL 'SOURCE DATA CHANGED','START','BUSY' @YA02788 55960002 LINE , @YA02788 55980002 BIN HARDST @YA02788 56000002 BIN RSTRT @YA02788 56020002 BIN LB3764 @YA02788 56040002 LABEL 'HARD STOP','RESTART','STATUS IN' @YA02788 56060002 LINE , @YA02788 56080002 BIN ERRCTR @YA02788 56100002 BIN MPRSET @YA02788 56120002 BIN LB3765 @YA02788 56140002 ROUTINE XDUM2,APCHKNP 56160020 LABEL 'ERROR COUNTER','MP RESET','FCN REG PTY CK' 56162020 LINE , 56164020 BIN ERRCTR 56166020 BIN MPRSET 56168020 BIN LB3765 56170020 ROUTINE XDUM2,APCHKP 56172020 LABEL 'ERROR COUNTER','AP RESET','FCN REG PTY CK' 56174020 LINE , @YA02788 56180002 BIN IGNORE1 @YA02788 56200002 ROUTINE DUMMY001,SKIPPER @YA02788 56220002 BIN LB3766 @YA02788 56240002 LABEL 'IGNORE 1',' ','Z BUS CK' @YA02788 56260002 LINE , @YA02788 56280002 BIN ENDATA @YA02788 56300002 ROUTINE DUMMY001,SKIPPER @YA02788 56320002 BIN LB3767 @YA02788 56340002 LABEL 'ENABLE DATA ERROR',' ','MASK REG CK' @YA02788 56360002 LINE , @YA02788 56380002 BIN DUMMY015 @YA02788 56400002 ROUTINE DUMMY001,SKIPPER @YA02788 56420002 BIN (LB3770,,8) @YA02788 56440002 LABEL 'MACH CK PENDING',' ','CMD OUT(LCL,RMT)/FCN REG' 56460002 LINE ,,SKIP=E 56640002 LABEL '' 56670002 LINE ,(41,),SKIP=1 56700002 LABEL '//////////////////////////////////////' 56730002 LINE 56760002 LABEL '/ /' 56790002 LINE 56820002 LABEL '/ ///SCU DATA FLOW + CONTROLS/// /' 56850002 LINE 56880002 LABEL '/ /' 56910002 LINE ,,SKIP=3 56940002 LABEL '//////////////////////////////////////' 56970002 LINE ,(12,40),SKIP=1 57000002 LABEL '---SCU INSTRUCTION---','---EMIT DECODE---', C57030002 '---FET CONTROLS---' 57060002 LINE (40,40),(5,40) 57090002 BIN LB4550 MS BUSY 57120002 BIN LB4552 RESET ECC 57150002 BIN LB4556 MS RD&LOCK 57180002 LABEL 'MS BUSY','0-RESET ECC','MS RD+LOCK' 57250002 LINE 57330002 BIN LB3540 RD 57360002 BIN LB3550 IRPT DATA RD/RD ECC 57390002 BIN LB3570 READ 57420002 LABEL 'RD','1-IRPT DATA READ','MS READ' 57450002 LINE 57480002 BIN LB3541 WR 57510002 ROUTINE DUMMY001,SKIPPER 57540002 BIN LB3571 WRITE 57570002 LABEL 'WR','2-SPARE','MS WRITE' 57600020 LINE 57630002 BIN LB3542 FILL INS BFR 57660002 BIN LB3552 RD & LOCK 57690002 BIN LB3572 CANCEL 57720002 ROUTINE XDUM2,APCHKNP 57750020 LABEL 'FILL INST BFR','3-RD + LOCK','FET CANCEL' 57754020 LINE , 57758020 BIN LB3542 57762020 BIN LB3552 57766020 ROUTINE XDUM2,APCHKP 57770020 LABEL 'FILL INST BFR','3-RD + LOCK' 57774020 LINE 57780002 BIN LB3543 SP STOR SEL 57810002 BIN LB3553 FTE 57840002 BIN LB3573 BUSY 57870002 ROUTINE XDUM2,APCHKNP 57900020 LABEL 'SPMS','4-FTE','FET BUSY' 57904020 LINE , 57908020 BIN LB3543 57912020 BIN LB3553 57916020 ROUTINE XDUM2,APCHKP 57920020 LABEL 'SPMS','4-FTE' 57924020 LINE 57930002 BIN LB3544 DIS ECC 57960002 BIN LB3554 PTLB 57990002 BIN LB3574 LCL LOCK 58020002 ROUTINE XDUM2,APCHKNP 58050020 LABEL 'DIS ECC','5-PTLB','FET LCL LOCK' 58054020 LINE , 58058020 BIN LB3544 58062020 BIN LB3554 58066020 ROUTINE XDUM2,APCHKP 58070020 LABEL 'DIS ECC','5-PTLB' 58074020 LINE 58080002 BIN LB3545 DIS BFR 58110002 BIN LB3555 SET TOD 58140002 BIN LB3576 WRITE 58170002 ROUTINE XDUM2,APCHKNP 58200020 LABEL 'DIS BFR','6-SET TOD','FET WRITE' 58204020 LINE , 58208020 BIN LB3545 58212020 BIN LB3555 58216020 ROUTINE XDUM2,APCHKP 58220020 LABEL 'DIS BFR','6-SET TOD' 58224020 LINE 58230002 BIN LB3546 I/O MODE OP 58260002 BIN LB3556 WR SP KEY 58290002 BIN LB3580 58320002 ROUTINE XDUM2,APCHKNP 58330020 LABEL 'I/O MODE','7-WR SP KEY','MS UCW' 58332020 LINE , 58334020 ROUTINE XDUM2,SKIPPER 58336020 BIN LB3556 58338020 ROUTINE XDUM2,APCHKP 58340020 LABEL ' ','7-WR SP KEY' 58342020 LINE 58350002 ROUTINE DUMMY001,SKIPPER 58380002 BIN LB3557 RES BFR BIT 58410002 ROUTINE XDUM2,APCHKP 58420020 LABEL ' ','8-RST REF BIT' 58440002 LINE , @Z02774 58444002 ROUTINE DUMMY001,SKIPPER @Z02774 58448002 BIN LB3557 @Z02774 58452002 BIN MSIUCWS @Z02774 58456002 ROUTINE XDUM2,APCHKNP 58460020 LABEL ' ','8-RST REF BIT','FET RMT CYCLE' @Z02774 58464002 LINE 58470002 ROUTINE DUMMY001,SKIPPER 58500002 BIN LB4554 58530002 ROUTINE XDUM2,APCHKP 58540020 LABEL ' ','9-RD BFR' 58560002 LINE , @Z02774 58564002 ROUTINE DUMMY001,SKIPPER @Z02774 58568002 BIN LB4554 @Z02774 58572002 BIN MSIIOOP @Z02774 58576002 ROUTINE XDUM2,APCHKNP 58580020 LABEL ' ','9-RD BFR','FET RMT LOCK' @Z02774 58584002 LINE 58590002 ROUTINE DUMMY001,SKIPPER 58620002 BIN LB3560 VAL DT ARRAY 58650002 ROUTINE XDUM2,APCHKP 58660020 LABEL '---TLB CONTROLS---','A-VAL ARRAY' 58680002 LINE , @Z02774 58684002 ROUTINE DUMMY001,SKIPPER @Z02774 58688002 BIN LB3560 @Z02774 58692002 BIN RETENBL @Z02774 58696002 ROUTINE XDUM2,APCHKNP 58700020 LABEL '---TLB CONTROLS---','A-VAL ARRAY','FET RMT ENABLED' 58705020 LINE 58710002 BIN LB34E5 TLB COMP 58740002 BIN LB3561 IB RE-FTH 58770002 LABEL 'TLB COMP','B-IB RE-FETCH' 58800002 LINE , @Z02774 58895002 BIN LB34E6 @Z02774 58900002 BIN LB3562 @Z02774 58905002 LABEL 'TLB V2','C-CLK ESAR' @Z02774 58915002 LINE 58920002 BIN LB34E7 TLB 1 58950002 BIN LB3563 58980020 LABEL 'TLB V1','D-NO-OP' 58990020 LINE 59010002 BIN LB34F0 TLB CTRLS ENC 1 59040002 BIN LB3564 RD SP KEY 59070002 LABEL 'ENC STO 1','E-RD SP KEY' 59100002 LINE ,,SKIP=2 59130002 BIN LB4536 TLB CTRLS ENC 2 59160002 BIN LB3565 DEGRD ARRAY 59190002 LABEL 'ENC STO 2','F-DEG ARRAY' 59220002 LINE ,(13,40),SKIP=1 59250020 ROUTINE XDUM2,N1583AP 59260020 LABEL '---MISC GATES---','---INDEX DATA---', *59280020 '---STORAGE PROTECT---' 59283020 LINE , @Z02774 59287002 ROUTINE XDUM2,DO1583AP 59294020 LABEL '---MISC GATES---','---INDEX CTRL---', *59301020 '---STORAGE PROTECT---' 59305020 LINE (40,40),(5,40) 59310002 BIN LB3527 ODD STAT 59340002 BIN LB34F1 INDEX LO COMP 59370002 BIN R2529 SP DATA KEY 59430002 BIN SPDATAP,B46 59490002 ROUTINE DUMMY001,P1145 59550002 ROUTINE XDUM2,N1583AP 59560020 LABEL ' ODD STAT','INDEX LO COMP','SP DATA KEY' 0.2 59580002 LINE , @Z02774 59583002 BIN LB3527 @Z02774 59586002 BIN CMPABCD @Z02774 59589002 BIN R2529 @Z02774 59592002 BIN SPDATAP,B46 @Z02774 59595002 ROUTINE DUMMY001,P1145 @Z02774 59598002 ROUTINE XDUM2,DO1583AP 59601020 LABEL ' ODD STAT','COMP A,B,C,D','SP DATA KEY' @Z02774 59604002 LINE 59610002 BIN LB3525 LOAD HI STAT 59640002 BIN LB34F2 INDEX HI COMP 59670002 BIN R2535 59700002 BIN R2534,B43 59730002 ROUTINE DUMMY001,P117 59740002 ROUTINE XDUM2,N1583AP 59750020 LABEL 'LOAD HI STAT','INDEX HI COMP','SP DATA RC' 59760002 LINE , @Z02774 59763002 BIN LB3525 @Z02774 59766002 BIN ASARB3 @Z02774 59769002 BIN R2535 @Z02774 59772002 BIN R2534,B43 @Z02774 59775002 ROUTINE DUMMY001,P117 @Z02774 59778002 ROUTINE XDUM2,DO1583AP 59781020 LABEL 'LOAD HI STAT','VALID SELECT','SP DATA RC' @Z02774 59784002 LINE 59790002 BIN LB3526 UNLOAD HI STAT 59820002 BIN LB34F3 INDEX LO VALID 59850002 ROUTINE XDUM2,N1583AP 59880020 LABEL 'UNLOAD HI STAT','INDEX LO VALID' 59910002 LINE , @Z02774 59920002 BIN LB3526 @Z02774 59930002 BIN ASARB4 @Z02774 59940002 ROUTINE XDUM2,DO1583AP 59950020 LABEL 'UNLOAD HI STAT','VALID REGEN' @Z02774 59960002 LINE (40,40) 59970002 BIN LB34D5 GATE BUFF 60000002 BIN LB34F4 INDEX HI VALID 60030002 ROUTINE XDUM2,N1583AP 60040020 LABEL 'GATE BUFF','INDEX HI VALID' 60060002 LINE , @Z02774 60065002 BIN LB34D5 @Z02774 60070002 BIN AIROE0 @Z02774 60075002 ROUTINE XDUM2,DO1583AP 60080020 LABEL 'GATE BUFF','OK AB,CD' @Z02774 60085002 LINE 60090002 BIN LB34D6 ACC LOAD 60120002 BIN LB34F5 INDEX OK 60150002 ROUTINE XDUM2,N1583AP 60160020 LABEL 'XAR LOAD','INDEX OK',' ---STORAGE---' 60180020 LINE , @Z02774 60185002 BIN LB34D6 @Z02774 60190002 BIN AIRINE1 @Z02774 60195002 ROUTINE XDUM2,DO1583AP 60200020 LABEL 'XAR LOAD','ALG BITS',' ---STORAGE---' 60205020 LINE (53,27) 60210002 ROUTINE DUMMY001,SKIPPER 60240002 BIN LB34F6 INDEX LRU 60270002 HEX BCUS1,4,3B 60300002 BIN BCUS1P,B29 60330002 BIN BCUS2P,B50 60360002 BIN BCUS3P,B71 60390002 ROUTINE DUMMY001,P10523 60420002 ROUTINE XDUM2,N1583AP 60430020 LABEL ' ','INDEX LRU','MS SAR' 60450002 LINE , @Z02774 60450902 ROUTINE DUMMY001,SKIPPER @Z02774 60451802 BIN OKOFF @Z02774 60452702 HEX BCUS1,4,3B @Z02774 60453602 BIN BCUS1P,B29 @Z02774 60454502 BIN BCUS2P,B50 @Z02774 60455402 BIN BCUS3P,B71 @Z02774 60456302 ROUTINE DUMMY001,P10523 @Z02774 60457202 ROUTINE XDUM2,DO1583AP 60458120 LABEL ' ','OK OFF','MS SAR' @Z02774 60459002 LINE (80,20) @Z02774 60459902 ROUTINE DUMMY001,SKIPPER @Z02774 60460802 ROUTINE DUMMY001,SKIPPER @Z02774 60461702 BIN BCUB7 @Z02774 60462602 BIN BCUB0P,B33 @Z02774 60463502 BIN BCUB0,B51 @Z02774 60464402 BIN BCUB4P,B65 @Z02774 60465302 BIN BCUB4,B83 @Z02774 60466202 ROUTINE DUMMY001,P107 @Z02774 60467102 ROUTINE XDUM2,DO1583AP 60468020 LABEL ' ',' ','SCU BYTE MARKS 0-7' @Z02774 60468902 LINE (80,20) 60470002 BIN LB34F7 INDEX OK OFF 60490002 ROUTINE DUMMY001,SKIPPER 60510002 BIN BCUB7 60540002 BIN BCUB0P,B33 P0-3 60580002 BIN BCUB0,B51 BM 0-3 60620002 BIN BCUB4P,B65 P4-7 60660002 BIN BCUB4,B83 BM 4-6 60700002 ROUTINE DUMMY001,P107 60740002 ROUTINE XDUM2,N1583AP 60760020 LABEL '','INDEX OK OFF','SCU BYTE MARKS 0-7' 60780002 LINE 60870002 ROUTINE DUMMY001,SKIPPER 60900002 ROUTINE DUMMY001,SKIPPER 60930002 BIN BCUB15 61020002 BIN BCUB8P,B33 61050002 BIN BCUB8,B51 61080002 BIN BCUB12P,B65 61110002 BIN BCUB12,B83 61140002 BIN BCUB14,B101 61170002 ROUTINE DUMMY001,P107 61200002 LABEL '','','SCU BYTE MARKS 8-15' 61250002 LINE (107,) 61300002 HEX FALE0,2,4B 61350002 ROUTINE XDUM2,SKIPAP 61360020 LABEL '','','FINAL ASM LO EVEN' 61380002 LINE 61440002 HEX FALO0,2,4B 61530002 LABEL '','','FINAL ASM LO ODD' 61560002 LINE (111,3) 61620002 BIN FALE0P 61680002 BIN FALE1P 61710002 BIN FALE2P 61740002 BIN FALE3P 61770002 LABEL '','','CK BITS C0-C3' 61800002 LINE 61830002 BIN FALO0P 61920002 BIN FALO1P 61950002 BIN FALO2P 61980002 BIN FALO3P 62010002 LABEL '',' ---REAL SAR GATES---','CK BITS C4-C7' 62040002 LINE (40,40),(5,40) 62070002 ROUTINE DUMMY001,SKIPPER 62100002 BIN LB4534 GATE TLB 62110002 ROUTINE DUMMY001,BCK53 62120002 HEX FAHE0,2,4B 62130002 LABEL '','TLB','FINAL ASM HI EVEN' 62160002 LINE 62190002 ROUTINE DUMMY001,SKIPPER 62220002 BIN LB34E2 ADDER 62230002 ROUTINE DUMMY001,BCK53 62240002 HEX FAHO0,2,4B 62250002 LABEL '','ADDER','FINAL ASM HI ODD' 62280002 LINE (80,20) 62300002 BIN LB34E3 CPU/ADDER 62320002 ROUTINE DUMMY001,SKIPPER 62340002 BIN FAHE3P 62370002 BIN FAHE0P,B29 62400002 BIN FAHE1P,B46 62430002 BIN FAHE2P,B63 62460002 LABEL '','CPU ADDER','CK BITS C0-C3' 62490002 LINE (80,20),(45,40) @Z02774 62676002 BIN LB34E0 @Z02774 62682002 ROUTINE DUMMY001,SKIPPER @Z02774 62688002 BIN FAHO3P @Z02774 62694002 BIN FAHO0P,B29 @Z02774 62700002 BIN FAHO1P,B46 @Z02774 62706002 BIN FAHO2P,B63 @Z02774 62712002 LABEL 'RMT SAR','CK BITS C4-C7' @Z02774 62724002 LINE (80,20),(45,40) @Z02774 62794002 BIN LB34E1 @Z02774 62798002 ROUTINE DUMMY001,SKIPPER @Z02774 62802002 BIN (LB34A0,B13,8),(LB34B0,B24,5) @Z02774 62806002 LABEL 'PREFIX REAL SAR','REAL SAR(BINARY)' @Z02774 62814002 LINE (105,2),(45,40) 62820002 BIN (LB4102,2,6) 62830002 HEX (LH241,4,3B) IC 62850002 ROUTINE DUMMY001,P10523 62860002 LABEL ' ---ERROR STATUS---','INST COUNTER' 62880002 LINE (80,25) 62890002 BIN LB36B5 PAGE LOOKUP 62900002 BIN (LB4592,2,6) 62910002 ROUTINE DUMMY001,BCK48 62920002 HEX (LH365,4,3B) DAT ADDER 62930002 ROUTINE DUMMY001,P10523 62940002 LABEL 'PAGE LOOKUP','DAT ADDER SAR' 62950002 LINE (,19) 62960002 BIN LB36B6 PASS REAL 62970002 BIN (LB41E0,2,8) 62980002 ROUTINE DUMMY001,BCK36 62990002 HEX (LH278,4,4B) SDR 63000002 ROUTINE DUMMY001,P9924 63010002 LABEL 'PASS REAL ','SDR EVEN' 63020002 LINE 63030002 BIN LB34E2 GATE ADDER 63040002 BIN (LB41F0,2,8) 63050002 ROUTINE DUMMY001,BCK36 63060002 HEX (LH27C,4,4B) SDR 63070002 ROUTINE DUMMY001,P9924 63080002 LABEL 'GATE ADDER','SDR ODD' 63090002 LINE 63100002 BIN LB36C5 0.2 63105002 BIN (LB4560,2,8) 63110002 ROUTINE DUMMY001,BCK36 0.2 63115002 HEX LB32C,4,4B 63120002 ROUTINE DUMMY001,P9924 63130002 LABEL 'IBUF ERR','SAR BU' 0.2 63140002 LINE (80,25) 0.2 63142002 BIN LB36C6 63144002 LABEL 'IBIX ERR',' ----IBUF---- ' 63146002 LINE 63148002 BIN LB36C7 63150002 BIN LB36C0 63152002 LABEL 'RIC ERR','RIC VALID' 63154002 LINE (105),(85) 63156002 BIN LB36C1 63158002 LABEL 'DATA AVAIL' 63160002 LINE 63162002 BIN LB36C2 63164002 LABEL 'ALLOW IBUF' 63166002 LINE 63168002 BIN LB36C3 63170002 LABEL 'IBIX VAL LO' 63172002 LINE 63174002 BIN LB36C4 63176002 SCUAPLAB LABEL 'IBIX VAL HI' 63178020 SCUAPLNE LINE (1,1),(1,1),SKIP=1 63178920 ROUTINE XDUM2,NOPRINT 63179820 LABEL '' 63180720 LINE (120,20),(85,40),SKIP=1 63181620 BIN (LB34A0,B13,8),(LB34B0,B24,5) 63182520 ROUTINE XDUM2,SCUSKIP2 63183420 LABEL 'REAL SAR(BINARY)' 63184320 LINE (105,2) 63185220 BIN (LB4102,2,6) 63186120 HEX (LH241,4,3B) 63187020 ROUTINE XDUM2,P10523 63187920 LABEL 'INST COUNTER' 63188820 LINE , 63189720 BIN (LB4592,2,6) 63190620 HEX (LH365,4,3B) 63191520 ROUTINE XDUM2,P10523 63192420 LABEL 'DAT ADDER SAR' 63193320 LINE (99,3),(45,40) 63194220 BIN LB41E0 63195120 BIN LB41E1 63196020 BIN LB41E2 63196920 BIN LB41E3 63197820 BIN LB41E4 63198720 BIN LB41E5 63199620 BIN LB41E6 63200520 BIN LB41E7 63201420 ROUTINE XDUM2,BCK25 63202320 HEX (LH278,4,4B) 63203220 ROUTINE XDUM2,P9924 63204120 LABEL ' ---REAL SAR GATES---','SDR EVEN' 63205020 LINE (80,3) 63205920 BIN LB4534 63206820 ROUTINE XDUM2,UP13 63207720 BIN LB41F0 63208620 BIN LB41F1 63209520 BIN LB41F2 63210420 BIN LB41F3 63211320 BIN LB41F4 63212220 BIN LB41F5 63213120 BIN LB41F6 63214020 BIN LB41F7 63214920 ROUTINE XDUM2,BCK25 63215820 HEX (LH27C,4,4B) 63216720 ROUTINE XDUM2,P9924 63217620 LABEL 'TLB','SDR ODD' 63218520 LINE , 63219420 BIN LB34E2 63220320 ROUTINE XDUM2,UP13 63221220 BIN LB4560 63222120 BIN LB4561 63223020 BIN LB4562 63223920 BIN LB4563 63224820 BIN LB4564 63225720 BIN LB4565 63226620 BIN LB4566 63227520 BIN LB4567 63228420 ROUTINE XDUM2,BCK25 63229320 HEX (LB32C,4,4B) 63230220 ROUTINE XDUM2,P9924 63231120 LABEL 'ADDER','SAR BU' 63232020 LINE (80,40) 63232920 BIN LB34E3 63233820 LABEL 'CPU ADDER',' ----IBUF----' 63234720 LINE (,25) 63235620 BIN LB34E0 63236520 BIN LB36C0 63237420 LABEL 'RMT SAR','RIC VALID' 63238320 LINE , 63239220 BIN LB34E1 63240120 BIN LB36C1 63241020 LABEL 'PREFIX REAL SAR','DATA AVAIL' 63241920 LINE , 63242820 ROUTINE XDUM2,SKIPPER 63243720 BIN LB36C2 63244620 LABEL ' ---ERROR STATUS---','ALLOW IBUF' 63245520 LINE , 63246420 BIN LB36B5 63247320 BIN LB36C3 63248220 LABEL 'PAGE LOOKUP','IBIX VAL LO' 63249120 LINE , 63250020 BIN LB36B6 63250920 BIN LB36C4 63251820 LABEL 'PASS REAL','IBIX VAL HI' 63252720 LINE , 63253620 BIN LB34E2 63254520 LABEL 'GATE ADDER' 63255420 LINE , 63256320 BIN LB36C5 63257220 LABEL 'IBUF ERR' 63258120 LINE , 63259020 BIN LB36C6 63259920 LABEL 'IBIX ERR' 63260820 LINE , 63261720 BIN LB36C7 63262620 SCUNAPLB LABEL 'RIC ERR' 63263520 SCUNAPLN LINE ,,SKIP=E 63264420 LABEL '' 63265320 LINE (40,35),(24,35),SKIP=2 63266220 LABEL '--------------------------- SCU DATA FLOW -X63270002 -----------------------------' @YA02788 63290002 LINE ,(12,40),SKIP=1 @YA02788 63310002 LABEL '---TRAP STATUS---','---SCU CONTROLS---', @YA02788X63330002 '---MP STG CONFIG---' @YA02788 63350002 LINE (40,40),(5,40),SKIP=1 @YA02788 63370002 BIN LB36D5 SEG IB1 @YA02788 63390002 BIN LB34C1 REL ACTIVE @YA02788 63410002 BIN LB3700 UNIT 0 ON LINE @YA02788 63430002 LABEL 'I-FETCH SEG IB1','REL ACTIVE','UNIT 0 ON LINE' @YA02788 63450002 LINE , @YA02788 63470002 BIN LB36D6 SPEC IB1 @YA02788 63490002 BIN LB4530 SEG MODE @YA02788 63510002 BIN (LB3701,,3) UNIT 0 BITS 4,2,1 @YA02788 63530002 LABEL 'I-FETCH SPEC IB1','SEG MODE','UNIT 0 BITS 4,2,1' 63550002 LINE , @YA02788 63570002 BIN LB36D7 PAGE IB1 @YA02788 63590002 BIN LB34C0 PAGE MODE @YA02788 63610002 BIN LB3704 UNIT 1 ON LINE @YA02788 63630002 LABEL 'I-FETCH PAGE IB1','PAGE MODE','UNIT 1 ON LINE' @YA02788 63650002 LINE , @YA02788 63670002 BIN (LB36D1),(LB34C2) SEG IB2,XLTN REQD @YA02788 63690002 BIN (LB3705,,3) UNIT 1 BITS 4,2,1 @YA02788 63710002 LABEL 'I-FETCH SEG IB2','XLTN REQD','UNIT 1 BITS 4,2,1' 63730002 LINE , @YA02788 63750002 BIN (LB36D2),(LB34C3) SPEC IB2,STE LTH @YA02788 63770002 BIN LB45C2 UNIT 2 ON LINE @YA02788 63790002 LABEL 'I-FETCH SPEC IB2','STE LTH','UNIT 2 ON LINE' @YA02788 63810002 LINE , @YA02788 63830002 BIN (LB36D3),(LB34C4) PAGE IB2,SEG IN BFR @YA02788 63850002 BIN (LB3710,,3) UNIT 2 BITS 4,2,1 @YA02788 63870002 LABEL 'I-FETCH PAGE IB2','STE IN BFR','UNIT 2 BITS 4,2,1' 63890002 LINE , @YA02788 63910002 BIN (LB36E0),(LB34C5) SUCC BR,PG IN BFR @YA02788 63930002 BIN LB3713 UNIT 3 ON LINE @YA02788 63950002 LABEL 'PER SUCC BR','PTE IN BFR','UNIT 3 ON LINE' @YA02788 63970002 LINE , @YA02788 63990002 BIN (LB36E1),(LB4532) PER I-FETCH,MS BUSY @YA02788 64010002 BIN (LB3714,,3) UNIT 3 BITS 4,2,1 @YA02788 64030002 LABEL 'PER I-FETCH','MS BUSY','UNIT 3 BITS 4,2,1' @YA02788 64050002 LINE , @YA02788 64070002 BIN (LB36E2),(LB34D0) PER MS,XLTN BUSY @YA02788 64090002 BIN LB3720 UNIT 0 INSTLD @YA02788 64110002 LABEL 'PER MS','XLTN BUSY','UNIT 4 ON LINE' 64130020 LINE , @YA02788 64150002 BIN (LB36E3),(LB34D1) PER GP ALT,MS BUSY BR @YA02788 64170002 BIN (LB3721,,3) UNIT 0 BITS 4,2,1 @YA02788 64190002 LABEL 'PER GP ALT','MS BUSY BR','UNIT 4 BITS 4,2,1' 64210020 LINE , @YA02788 64230002 BIN (LB36E4),(LB34D2) PER SUCC U-BR,DAT VIOL @YA02788 64250002 BIN LB3724 UNIT 1 INSTLD @YA02788 64270002 LABEL 'PER SUCC U-BR','DAT VIOL','UNIT 5 ON LINE' 64290020 LINE , @YA02788 64310002 BIN (LB36E6),(LB34D3) 64K SEG,IVA @YA02788 64330002 BIN (LB3725,,3) UNIT 1 BITS 4,2,1 @YA02788 64350002 LABEL 'BASE REG ALTER','IVA','UNIT 5 BITS 4,2,1' 64370020 LINE , @YA02788 64390002 BIN (LB36E7),(LB34D4) 1M SEG,PAV @YA02788 64410002 BIN LB45C6 UNIT 2 INSTLD @YA02788 64430002 LABEL '64K SEG','PAV','UNIT 6 ON LINE' 64450020 LINE , @YA02788 64470002 BIN (LB36F0),(LB3544) OP EX LTH CK,DIS ECC @YA02788 64490002 BIN (LB3730,,3) UNIT 2 BITS 4,2,1 @YA02788 64510002 LABEL 'OP EX LGTH CK','DIS ECC','UNIT 6 BITS 4,2,1' 64530020 LINE , @YA02788 64550002 BIN (LB36F1),(LB3545) OP EX SEG,DIS BFR @YA02788 64570002 BIN LB3733 UNIT 3 INSTLD @YA02788 64590002 LABEL 'OP EX SEG','DIX BFR','UNIT 7 ON LINE' 64610020 LINE , @YA02788 64630002 BIN (LB36F2),(LB3522,,3) OP EX SPEC4,SEL PTR @YA02788 64650002 BIN (LB3734,,3) UNIT 3 BITS 4,2,1 @YA02788 64670002 LABEL 'OP EX SPEC4','SEL PTR','UNIT 7 BITS 4,2,1' 64690020 LINE , @YA02788 64710002 BIN (LB36F3),(LB3521) OP EX SPEC 5,DBL WD WR @YA02788 64730002 BIN LB3737 64750020 LABEL 'OP EX SPEC 5','DBL WD WR','CPU B ONLINE' 64760020 LINE , @YA02788 64770002 BIN (LB36F4),(LB3566) EX 4K,SAR 13 INV @YA02788 64790002 LABEL '4K PAGE','SAR 13 INV' @YA02788 64810002 LINE , @YA02788 64830002 BIN (LB36F5),(LB3214) EX 2K,ECC REC MODE @YA02788 64850002 LABEL '2K PAGE','ECC REC MD' @YA02788 64870002 LINE , @YA02788 64890002 BIN (LB36F6),(LB36E5) 0.2 64910002 LABEL 'OP EX SPEC 1-3','VIRT ADDR COMP' 0.2 64930002 LINE , 64950020 BIN (LB36F7),(LB45C0) 64955020 ROUTINE XDUM2,APCHKNP 64960020 LABEL 'OP EX PAGE','MP MODE' 64965020 LINE ,,SKIP=2 64970020 BIN (LB36F7),(LB3572) 64975020 ROUTINE XDUM2,APCHKP 64980020 LABEL 'OP EX PAGE','AP MODE' 64985020 LINE ,,SKIP=2 64992020 ROUTINE DUMMY001,SKIPPER @Z02774 64994002 BIN BUF1819 @Z02774 64996002 ROUTINE LB32F2,DO1583 @Z02774 64998002 LABEL ' ','BUFSAR 18,19' @Z02774 65000002 LINE ,(24,44) 65002020 LABEL '+----------------------------- SCU ERRORS ', *65004020 '-----------------------------+' 65006020 LINE ,(12,40),SKIP=1 @YA02788 65010002 LABEL '---SCU CHECKS---','---TLB ERRORS---' @YA02788 65030002 LINE (40,40),(5,40),SKIP=1 @YA02788 65050002 BIN LB3490 INDEX @YA02788 65070002 BIN LB36B0 O.1 65090002 LABEL 'INDEX','CNTR' @YA02788 65110002 LINE , @YA02788 65130002 BIN LB3491 INDEX COMP @YA02788 65150002 BIN LB36B1 O.1 65170002 LABEL 'INDEX COMP','VIRT' @YA02788 65190002 LINE , @YA02788 65210002 BIN LB3492 RD COMP @YA02788 65230002 BIN LB36B2 O.1 65250002 LABEL 'RD COMP','REAL' @YA02788 65270002 LINE , @YA02788 65290002 BIN LB3496 FET SAR LCL @YA02788 65310002 BIN LB36B3 O.1 65330002 ROUTINE XDUM2,APCHKNP 65350020 LABEL 'FET SAR (LCL)','MAP' 65352020 LINE , 65354020 ROUTINE XDUM2,SKIPPER 65356020 BIN LB36B3 65358020 ROUTINE XDUM2,APCHKP 65360020 LABEL ' ','MAP' 65362020 LINE , @YA02788 65370002 BIN LB3497 FET SAR (RMT) @YA02788 65390002 LABEL 'FET SAR (RMT)' @YA02788 65410002 LINE , @YA02788 65430002 BIN LB45A2 0.2 65450002 LABEL 'TIME OUT' @YA02788 65470002 LINE , @YA02788 65490002 BIN LB45A0 65500002 LABEL 'SCU BYTE MARK' 0.1 65510002 LINE , @YA02788 65530002 BIN LB4520 INSTR @YA02788 65550002 LABEL 'INST',' ---ECC---' @YA02788 65570002 LINE , @YA02788 65590002 BIN LB3480 EMIT @YA02788 65610002 BIN LB4482 HDW CK LCL LO @YA02788 65630002 ROUTINE XDUM2,APCHKNP 65650020 LABEL 'EMIT','HDW CK LCL LO' 65653020 LINE , 65656020 BIN LB3480 65659020 ROUTINE XDUM2,APCHKP 65662020 LABEL 'EMIT' 65665020 LINE , @YA02788 65670002 BIN LB3481 KEY BUS @YA02788 65690002 BIN LB3210 HDW CK LCL HI @YA02788 65710002 ROUTINE XDUM2,APCHKNP 65730020 LABEL 'KEY BUS','HDW CK LCL HI' 65733020 LINE , 65736020 BIN LB3481 65739020 ROUTINE XDUM2,APCHKP 65742020 LABEL 'KEY BUS' 65745020 LINE , @YA02788 65750002 BIN LB3482 SP DATA OUT @YA02788 65770002 BIN LB3213 ECC UNC @YA02788 65790002 LABEL 'SP DATA','ECC UNC' @YA02788 65810002 LINE , @YA02788 65830002 BIN LB4580 0.1 65850002 BIN LB3217 0.1 65870002 ROUTINE XDUM2,APCHKNP 65890020 LABEL 'LCL BM LO','UNC CPU' 65892020 LINE , 65894020 ROUTINE XDUM2,SKIPPER 65896020 BIN LB3217 65898020 ROUTINE XDUM2,APCHKP 65900020 LABEL ' ','UNC CPU' 65902020 LINE , @YA02788 65910002 BIN LB4582 0.1 65930002 BIN LB3216 UNC I/O @YA02788 65950002 ROUTINE XDUM2,APCHKNP 65970020 LABEL 'LCL BM HI','UNC I/O' 65980020 LINE , @YA02788 65990002 BIN LB4584 RMT BM LO @YA02788 66010002 BIN (LB3220,,8) 0.1 66030002 BIN LB4484,B49 0.1 66050002 ROUTINE DUMMY001,P71 @YA02788 66070002 LABEL 'RMT BM LO','BIE LO' @YA02788 66090002 LINE , @YA02788 66110002 BIN LB4586 RMT BM HI @YA02788 66130002 BIN (LB3230,,8) 0.1 66150002 BIN LB4486,B49 0.1 66170002 ROUTINE DUMMY001,P71 @YA02788 66190002 LABEL 'RMT BM HI','BIE HI' @YA02788 66210002 LINE , @YA02788 66230002 BIN LB36D4 SEG LENGTH @YA02788 66250002 LABEL 'SEG LTH' @YA02788 66270002 LINE ,,SKIP=1 @Z02774 66331002 BIN LB3495 @Z02774 66332002 BIN LB3211 @Z02774 66333002 LABEL 'RMT CYCLE ERR','HDW CK RMT LO' @Z02774 66335002 LINE ,(45) @O 66335202 ROUTINE XDUM2,SKIPPER 66335320 BIN LB3212 @O 66335402 ROUTINE XDUM2,N1583AP 66335620 LABEL 'HDW CK RMT HI' @O 66335802 LINE (40,40),(5,40) @O 66336002 BIN LB3493 @Z02774 66337002 BIN LB3212 @Z02774 66338002 ROUTINE XDUM2,DO1583AP 66339020 LABEL 'ALG ERROR','HDW CK RMT HI' @Z02774 66340002 LINE (40,40),(5,40),SKIP=2 @O 66341002 BIN LB3494 @Z02774 66342002 BIN LB3215 @Z02774 66343002 LABEL 'FET ERROR','RMT ECC ERR' @Z02774 66345002 LINE (18,3),(5,40),SKIP=1 @YA02788 66350002 LABEL 'BYTE- 0 1 2 3 4 5 6 7' @YA02788 66370002 LINE , @YA02788 66390002 BIN (LB3680,2,8) SDR @YA02788 66410002 LABEL 'SDR' @YA02788 66430002 LINE , @YA02788 66450002 BIN (LB3690,2,8) BFR @YA02788 66470002 LABEL 'BFR' @YA02788 66490002 LINE , 66500020 BIN (LB45A4),(LB36A0,2,3) 0.2 66510002 LABEL 'WD FUNNEL' 0.1 66530002 LINE , @YA02788 66550002 ROUTINE DUMMY001,SKIPPER @YA02788 66570002 BIN (LB36A3,2,3) O.1 66590002 LABEL 'HS BYTE' @YA02788 66610002 LINE , @YA02788 66630002 ROUTINE DUMMY001,SKIPPER @YA02788 66650002 BIN (LB36A6,2,2) O.1 66670002 ROUTINE DUMMY001,SKIPPER O.1 66690002 BIN (LB45A6) 0.2 66710002 LABEL 'ADDER' @YA02788 66730002 LINE , @YA02788 66750002 BIN (LB3600,2,8) SIR LO LCL @YA02788 66770002 ROUTINE XDUM2,APCHKNP 66780020 LABEL 'SIR LCL LO' @YA02788 66790002 LINE , @YA02788 66810002 BIN (LB3610,2,8) SIR LCL HI @YA02788 66830002 ROUTINE XDUM2,APCHKNP 66840020 LABEL 'SIR LCL HI' @YA02788 66850002 LINE , @YA02788 66870002 BIN (LB3620,2,8) SIR RMT LO @YA02788 66890002 LABEL 'SIR RMT LO' @YA02788 66910002 LINE , @YA02788 66930002 BIN (LB3630,2,8) SIR RMT HI @YA02788 66950002 LABEL 'SIR RMT HI' @YA02788 66970002 LINE , @YA02788 66990002 ROUTINE DUMMY001,SKIPPER @YA02788 67010002 BIN (LB3483,2,3) CPU SAR @YA02788 67030002 LABEL 'CPU SAR' @YA02788 67050002 LINE , @YA02788 67070002 ROUTINE DUMMY000,SKIPPER @YA02788 67090002 BIN (LB3486,2,2) O.1 67110002 ROUTINE DUMMY001,SKIPPER O.1 67130002 BIN (LB4522) O.1 67150002 LABEL 'REAL SAR' 67830002 LINE ,,SKIP=E 67860002 LABEL '' 67890002 LINE (34,2),(50,40),SKIP=1 67890402 LABEL '/////////////////' 67890802 LINE (34,2),(50,40) 67891202 LABEL '-EXECUTION ARRAY-' 67891602 LINE 67892002 LABEL '/////////////////' 67892402 LINE ,,SKIP=3 67892802 LABEL '' 67893202 LINE ,,SKIP=1 67893602 LABEL '' 67894002 LINE (34,2),(20,40) 67894402 BIN (LB45E0,2,8) 67894802 HEX (LH378,4,4B) 67895202 LABEL 'ASSY REG','--ERRORS--' 67895602 LINE (55,41) 67896002 HEX (LH37C) 67896402 BIN (LB32A0) 67896802 LABEL 'CSAL','CSDR BIT1' 67897202 LINE 67897602 HEX (LH37F) 67898002 BIN (LB32A1) 67898402 LABEL 'D-BUS','CSDR BIT2' 67898802 LINE 67899202 HEX (LH37E) 67899602 BIN (LB32B2) 67900002 LABEL 'R-BUS','CSDR BIT3' 67900402 LINE 67900802 HEX (LH328) 67901202 BIN (LB32B3) 67901602 LABEL 'OP CODE','CSDR BIT4' 67902002 LINE 67902402 HEX LH37D 67902802 BIN LB32A2 67903202 LABEL 'AL1-AL2','AL CNTR' 67903602 LINE 67904002 BIN (LB3292,,4) @YA02788 67904402 BIN (LB3290,B48,2) @YA02788 67904602 BIN (LB32A3,B41) @YA02788 67904802 LABEL 'XAR CB/AB REG','SEQ CHK' 67905202 LINE 67905602 BIN LB3296 67906002 BIN LB32A4 67906402 LABEL 'L1 SS','D-BUS' 67906802 LINE 67907202 BIN LB3297 67907602 BIN LB32A5 67908002 LABEL 'L2 SS','EMIT' 67908402 LINE 67908802 BIN LB32B5 67909202 BIN LB32B4,B42 67909602 BIN LB32A6,B41 67910002 LABEL 'WD RING','MULT RES' 67910402 LINE 67910802 BIN LB32B6 67911202 BIN LB32A7 67911602 LABEL '1ST WD','CONV-DEC RES' 67912002 LINE 67912402 BIN LB32B7 67912802 BIN LB32B0 67913202 LABEL 'ACTIVE','BYTE 0-1' 67913602 LINE (96,),(60,80) 67914002 BIN LB32B1 67914402 ROUTINE XDUM2,APCALLR 67914620 LABEL 'BYTE 2-3' 67914802 LINE ,,SKIP=E 67915202 LABEL '' 67915602 LINE ,(39,),SKIP=1 67920002 LABEL '//////////////////////////////////////////' 67950002 LINE 67980002 LABEL '/ /' 68010002 LINE 68040002 LABEL '/ ///CHANNEL DATA FLOW + CONTROLS/// /' 68070002 LINE 68100002 LABEL '/ /' 68130002 LINE ,,SKIP=2 68160002 ROUTINE DUMMY001,WORKREST 68190002 ROUTINE MPXOS2,TSTRB 68220002 LABEL '//////////////////////////////////////////' 68250002 DC X'FE' 68280002 DC CL8'IFCEF155' 68310002 BLKMPXB DC X'FE' 68340002 DC CL8'IFCEE155' 68370002 APMODBR DC X'FE' 68380020 DC CL8'IFCEG155' 68390020 LABAREA EQU * 68400002 LSTART 68430002 END 68460002