$CONTROL MAP,CODE,USLINIT                                               00010000
<< MISCSEGC - MODULE 95 >>                                              00012000
<< HP32002C MPE SOURCE C.00.00 >>                                       00014000
<< COPYRIGHT     "(C) COPYRIGHT HEWLETT-PACKARD CO. 1980.           >>  00016000
<<     THIS PROGRAM MAY BE USED WITH ONE COMPUTER SYSTEM AT A       >>  00018000
<<     TIME AND SHALL NOT OTHERWISE BE RECORDED, TRANSMITTED OR     >>  00020000
<<     STORED IN A RETRIEVAL SYSTEM.  COPYING OR OTHER REPRODUCTION >>  00022000
<<     OF THIS PROGRAM EXCEPT FOR ARCHIVAL PURPOSES IS PROHIBITED   >>  00024000
<<     WITHOUT THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.>>  00026000
<< **** Note - Dollar Copyright cannot be used with this module *** >>  00028000
$CONTROL SEGMENT=MISCSEGC,MAIN=MISCSEGC                                 00030000
$CONTROL PRIVILEGED ,MAP, CODE                                          00032000
                                                                        00034000
BEGIN                                                                   00036000
                                                                        00038000
                                                               <<JB.IV>>00040000
DEFINE ASMB=ASSEMBLE#,                                         <<JB.IV>>00042000
       DISABLE=ASMB(SED 0)#,                                   <<JB.IV>>00044000
       ENABLE=ASMB(SED 1)#,                                    <<JB.IV>>00046000
       PDISABLE=ASMB(PSDB)#,                                   <<JB.IV>>00048000
       PENABLE=ASMB(PSEB)#,                                    <<JB.IV>>00050000
       EXCHDB=ASMB(XCHD 0)#,                                   <<JB.IV>>00052000
       SETCLOCK=ASMB(SCLK)#;                                   <<JB.IV>>00054000
                                                               <<JB.IV>>00056000
INTEGER X=X,                                                   <<JB.IV>>00058000
        S0=S-0,                                                <<JB.IV>>00060000
        S1=S-1,                                                <<JB.IV>>00062000
        S2=S-2,                                                <<JB.IV>>00064000
        S3=S-3,                                                <<JB.IV>>00066000
        S4=S-1,                                                <<JB.IV>>00068000
        S5=S-5;                                                <<JB.IV>>00070000
                                                               <<JB.IV>>00072000
LOGICAL LS0=S-0;                                               <<JB.IV>>00074000
                                                               <<JB.IV>>00076000
INTEGER STATUS=Q-1;                                            <<JB.IV>>00078000
                                                               <<JB.IV>>00080000
                                                               <<JB.IV>>00082000
EQUATE CCL=1,                                                  <<JB.IV>>00084000
       CCE=2,                                                  <<JB.IV>>00086000
       CCG=0;                                                  <<JB.IV>>00088000
                                                               <<JB.IV>>00090000
DEFINE CC=STATUS.(6:2)#;                                       <<JB.IV>>00092000
                                                               <<JB.IV>>00094000
                                                               <<JB.IV>>00096000
                                                               <<JB.IV>>00098000
                                                               <<JB.IV>>00100000
<<FIXED CELLS>>                                                <<JB.IV>>00102000
                                                               <<JB.IV>>00104000
EQUATE CSTP=0,                                                 <<JB.IV>>00106000
       CSTXP=1,                                                <<JB.IV>>00108000
       DSTP=2,                                                 <<JB.IV>>00110000
       PCBP=3,                                                 <<JB.IV>>00112000
       CPCB=4,                                                 <<JB.IV>>00114000
       ICS'QI=5,                                               <<JB.IV>>00116000
       ICS'ZI=6;                                               <<JB.IV>>00118000
                                                               <<JB.IV>>00120000
                                                               <<JB.IV>>00122000
<<SYSGLOB CELLS>>                                              <<JB.IV>>00124000
                                                               <<JB.IV>>00126000
                                                               <<JB.IV>>00128000
EQUATE SYSBASE=%1000,                                          <<JB.IV>>00130000
       SLIX=1,                                                 <<JB.IV>>00132000
       SYSSL=SYSBASE+SLIX,                                     <<JB.IV>>00134000
       DSTIX=2,                                                <<JB.IV>>00136000
       SYSDST=SYSBASE+DSTIX,                                   <<JB.IV>>00138000
       PCBIX=3,                                                <<JB.IV>>00140000
       SYSPCB=SYSBASE+PCBIX,                                   <<JB.IV>>00142000
       ARSBMIX=4,                                              <<JB.IV>>00144000
       SYSARSBM=SYSBASE+ARSBMIX,                               <<JB.IV>>00146000
       LPDTIX=%10,                                             <<JB.IV>>00148000
       SYSLPDT=SYSBASE+LPDTIX,                                 <<JB.IV>>00150000
       BPTIX=%11,                                              <<JB.IV>>00152000
       SYSBPT=SYSBASE+BPTIX,                                   <<JB.IV>>00154000
       TRLIX=%12,                                              <<JB.IV>>00156000
       SYSTRL=SYSBASE+TRLIX,                                   <<JB.IV>>00158000
       SIRTABIX=%14,                                           <<JB.IV>>00160000
       SYSSIRTAB=SYSBASE+SIRTABIX,                             <<JB.IV>>00162000
       SWAPTABIX=%25,                                          <<JB.IV>>00164000
       SYSSWAPTAB=SYSBASE+SWAPTABIX,                           <<JB.IV>>00166000
       DISCREQTABIX=%31,                                       <<JB.IV>>00168000
       SYSDISCREQTAB=SYSBASE+DISCREQTABIX,                     <<JB.IV>>00170000
       DFCIX=%32,                                              <<JB.IV>>00172000
       SYSDFC=SYSBASE+DFCIX,                                   <<JB.IV>>00174000
       DFSIX=%33,                                              <<JB.IV>>00176000
       SYSDFS=SYSBASE+DFSIX,                                   <<JB.IV>>00178000
       XSLIX=%43,                                              <<JB.IV>>00180000
       SYSXSL=SYSBASE+XSLIX,                                   <<JB.IV>>00182000
       ARLDIX=%44,                                             <<JB.IV>>00184000
       SYSARLD=SYSBASE+ARLDIX,                                 <<JB.IV>>00186000
       MOCINFOIX=%46,                                          <<JB.IV>>00188000
       SYSMOCINFO=SYSBASE+MOCINFOIX,                           <<JB.IV>>00190000
       NBANKSIX=%47,                                           <<JB.IV>>00192000
       SYSNBANKS=SYSBASE+NBANKSIX,                             <<JB.IV>>00194000
       MAXAVAILREGIX=%45,                                      <<JB.IV>>00196000
       SYSMAXAVAILREG=SYSBASE+MAXAVAILREGIX,                   <<JB.IV>>00198000
       DISPAWAKEMSGIX=%50,                                     <<JB.IV>>00200000
       SYSDISPAWAKEMSG=SYSBASE+DISPAWAKEMSGIX,                 <<JB.IV>>00202000
       CSTXBLKIX=%51,                                          <<JB.IV>>00204000
       SYSCSTXBLK=SYSBASE+CSTXBLKIX,                           <<JB.IV>>00206000
       AWAKESCHEDMSGIX=%52,                                    <<JB.IV>>00208000
       SYSAWAKESCHEDMSGIX=SYSBASE+AWAKESCHEDMSGIX,             <<JB.IV>>00210000
       WAITDISPMSGIX=%53,                                      <<JB.IV>>00212000
       SYSWAITDISPMSG=SYSBASE+WAITDISPMSGIX,                   <<JB.IV>>00214000
       CURRACTPRIIX=%54,                                       <<JB.IV>>00216000
       SYSCURRACTPRI=SYSBASE+CURRACTPRIIX,                     <<JB.IV>>00218000
       DISPQHEADIX=%271,                                       <<JB.IV>>00220000
       SYSDISPQHEAD=SYSBASE+DISPQHEADIX,                       <<JB.IV>>00222000
       DISPQTAILIX=%272,                                       <<JB.IV>>00224000
       SYSDISPQTAIL=SYSBASE+DISPQTAILIX,                       <<JB.IV>>00226000
       SWAPQHEADIX=%273,                                       <<JB.IV>>00228000
       SYSSWAPQHEAD=SYSBASE+SWAPQHEADIX,                       <<JB.IV>>00230000
       SWAPQTAILIX=%274,                                       <<JB.IV>>00232000
       SYSSWAPQTAIL=SYSBASE+SWAPQTAILIX,                       <<JB.IV>>00234000
       LASTBANKIX=%361,                                        <<JB.IV>>00236000
       SYSLASTBANK=SYSBASE+LASTBANKIX,                         <<JB.IV>>00238000
       LASTBASEIX=%362,                                        <<JB.IV>>00240000
       SYSLASTBASE=SYSBASE+LASTBASEIX;                         <<JB.IV>>00242000
                                                               <<JB.IV>>00244000
                                                               <<JB.IV>>00246000
<<SYSGLOB CELLS FOR DIRECT DB REL ACCESS>>                     <<JB.IV>>00248000
                                                               <<JB.IV>>00250000
INTEGER PCBSYSBASEINX=DB+PCBIX,                                <<JB.IV>>00252000
        DSTSYSBASEINX=DB+DSTIX,                                <<JB.IV>>00254000
        DFC=DB+DFCIX,                                          <<JB.IV>>00256000
        DFS=DB+DFSIX,                                          <<JB.IV>>00258000
        SLSYSBASEINX=DB+SLIX,                                  <<JB.IV>>00260000
        XSLSYSBASEINX=DB+XSLIX,                                <<JB.IV>>00262000
        MAXAVAILREG=DB+MAXAVAILREGIX,                          <<JB.IV>>00264000
        MOCINFO=DB+MOCINFOIX,                                  <<JB.IV>>00266000
        NBANKS=DB+NBANKSIX,                                    <<JB.IV>>00268000
        ARSBMSYSBASEINX=DB+ARSBMIX,                            <<JB.IV>>00270000
        ARLDSYSBASEINX=DB+ARLDIX,                              <<JB.IV>>00272000
        SWAPTABSYSBASEINX=DB+SWAPTABIX,                        <<JB.IV>>00274000
        DISCREQTABSYSBASEINX=DB+DISCREQTABIX,                  <<JB.IV>>00276000
        CSTXBLKSYSBASEINX=DB+CSTXBLKIX,                        <<JB.IV>>00278000
        SWAPQHEAD=DB+SWAPQHEADIX,                              <<JB.IV>>00280000
        SWAPQTAIL=DB+SWAPQTAILIX,                              <<JB.IV>>00282000
        DISPQHEAD=DB+DISPQHEADIX,                              <<JB.IV>>00284000
        DISPQTAIL=DB+DISPQTAILIX;                              <<JB.IV>>00286000
                                                               <<JB.IV>>00288000
LOGICAL DISPTOAWAKEMSG=DB+DISPAWAKEMSGIX,                      <<JB.IV>>00290000
        CURRACTPRI=DB+CURRACTPRIIX,                            <<JB.IV>>00292000
        AWAKETOSCHEDMSG=DB+AWAKESCHEDMSGIX,                    <<JB.IV>>00294000
        WAITTODISPMSG=DB+WAITDISPMSGIX;                        <<JB.IV>>00296000
                                                               <<JB.IV>>00298000
DOUBLE LASTMEMORYADDRESS=DB+LASTBANKIX;                        <<JB.IV>>00300000
                                                               <<JB.IV>>00302000
                                                               <<JB.IV>>00304000
                                                               <<JB.IV>>00306000
<<TABLE POINTERS (LST ACCESS)>>                                <<JB.IV>>00308000
                                                               <<JB.IV>>00310000
INTEGER POINTER SL=SLIX,                                       <<JB.IV>>00312000
                DST=DSTIX,                                     <<JB.IV>>00314000
                PCB=PCBIX,                                     <<JB.IV>>00316000
                LPDT=LPDTIX,                                   <<JB.IV>>00318000
                BPT=BPTIX,                                     <<JB.IV>>00320000
                TRL=TRLIX,                                     <<JB.IV>>00322000
                ARSBM=ARSBMIX,                                 <<JB.IV>>00324000
                SIRTAB=SIRTABIX,                               <<JB.IV>>00326000
                SWAPTAB=SWAPTABIX,                             <<JB.IV>>00328000
                DISCREQTAB=DISCREQTABIX,                       <<JB.IV>>00330000
                CSTXBLK=CSTXBLKIX,                             <<JB.IV>>00332000
                XSL=XSLIX;                                     <<JB.IV>>00334000
                                                               <<JB.IV>>00336000
DOUBLE POINTER ARLD=DB+ARLDIX,                                 <<JB.IV>>00338000
               LPDTD=DB+LPDTIX;                                <<JB.IV>>00340000
                                                               <<JB.IV>>00342000
<<ICS GLOBALS>>                                                <<JB.IV>>00344000
                                                               <<JB.IV>>00346000
EQUATE ICSCURRACTPRICELL=20,                                   <<JB.IV>>00348000
       ICSPDISABLECNTCELL=18,                                  <<JB.IV>>00350000
       ICSSTKDSTCELL=16,                                       <<JB.IV>>00352000
       ICSSTKBANKCELL=5,                                       <<JB.IV>>00354000
       ICSSTKDBCELL=4;                                         <<JB.IV>>00356000
                                                               <<JB.IV>>00358000
                                                               <<JB.IV>>00360000
<<STANDARD SYSTEM TABLE ENTRY ALLOCATION>>                     <<JB.IV>>00362000
                                                               <<JB.IV>>00364000
INTEGER ARRAY SYSTABENTRY00(*)=DB+0,                           <<JB.IV>>00366000
              SYSTABENTRY01(*)=DB+1,                           <<JB.IV>>00368000
              SYSTABENTRY02(*)=DB+2,                           <<JB.IV>>00370000
              SYSTABENTRY03(*)=DB+3,                           <<JB.IV>>00372000
              SYSTABENTRY04(*)=DB+4;                           <<JB.IV>>00374000
                                                               <<JB.IV>>00376000
DEFINE ENTRYWORD00=SYSTABENTRY00(X)#,                          <<JB.IV>>00378000
       ENTRYWORD01=SYSTABENTRY01(X)#,                          <<JB.IV>>00380000
       ENTRYWORD02=SYSTABENTRY02(X)#,                          <<JB.IV>>00382000
       ENTRYWORD03=SYSTABENTRY03(X)#,                          <<JB.IV>>00384000
       ENTRYWORD04=SYSTABENTRY04(X)#;                          <<JB.IV>>00386000
                                                               <<JB.IV>>00388000
INTEGER ARRAY SYSTABFREECOUNT(*)=DB+2,                         <<JB.IV>>00390000
              SYSTABCONFCOUNT(*)=DB+0,                         <<JB.IV>>00392000
              SYSTABFREEHEAD(*)=DB+3,                          <<JB.IV>>00394000
              SYSTABSIZE(*)=DB+1,                              <<JB.IV>>00396000
              SYSTABFREEWORD(*)=DB+0,                          <<JB.IV>>00398000
              SYSTABNEXT(*)=DB+1;                              <<JB.IV>>00400000
                                                               <<JB.IV>>00402000
DEFINE SYSTABFREECNT=SYSTABFREECOUNT(X)#,                      <<JB.IV>>00404000
       SYSTABENTRYSIZE=SYSTABSIZE(X)#,                         <<JB.IV>>00406000
       SYSTABENTRYCOUNT=SYSTABCONFCOUNT(X)#,                   <<JB.IV>>00408000
       SYSTABFIRSTFREEINX=SYSTABFREEHEAD(X)#,                  <<JB.IV>>00410000
       SYSTABFREEINDICATOR=SYSTABFREEWORD(X)#,                 <<JB.IV>>00412000
       SYSTABENTRYNEXTINX=SYSTABNEXT(X)#;                      <<JB.IV>>00414000
                                                               <<JB.IV>>00416000
                                                               <<JB.IV>>00418000
$INCLUDE INCLST                                                         00420000
$INCLUDE INCLPCB                                                        00422000
                                                               <<JB.IV>>00424000
<<PCBX>>                                                       <<JB.IV>>00426000
                                                               <<JB.IV>>00428000
EQUATE PXGLOBSIZE=%10,  <<FOR ACCESS THRU EXTENDED ADDRESSING>><<JB.IV>>00430000
       SBTOSTKRELDBDISP=1,                                     <<JB.IV>>00432000
       SBTODBRELSDISP=PXGLOBSIZE+1,                            <<JB.IV>>00434000
       SBTODBRELZDISP=PXGLOBSIZE+2,                            <<JB.IV>>00436000
       SBTOINITQDISP=PXGLOBSIZE+3,                             <<JB.IV>>00438000
       SBTODBRELDLDISP=PXGLOBSIZE+4,                           <<JB.IV>>00440000
       SBTOMAXDATADISP=PXGLOBSIZE+%15,                         <<JB.IV>>00442000
       SBTOPROCTIMEDISP=PXGLOBSIZE+%30,                        <<JB.IV>>00444000
       SBTOTIMELEFTDISP=PXGLOBSIZE+%37,                        <<JB.IV>>00446000
       SBTOTSLRDISP=PXGLOBSIZE+%52,                            <<JB.IV>>00448000
       SBTOTSTBDISP=PXGLOBSIZE+%53,                            <<JB.IV>>00450000
       SBTOTSSWAPINDISP=PXGLOBSIZE+%54,                        <<JB.IV>>00452000
       SBTOTSLADISP=PXGLOBSIZE+%55,                            <<JB.IV>>00454000
       SBTOTSLDDISP=PXGLOBSIZE+%56;                            <<JB.IV>>00456000
                                                               <<JB.IV>>00458000
EQUATE TSLRTOTSTBDISP=1,                                       <<JB.IV>>00460000
       TSLRTOQCNTDISP=5,                                       <<JB.IV>>00462000
       STKRELDBTODBRELDLDISP=%13,                              <<JB.IV>>00464000
       STKRELDBTOSBDISP=-1,                                    <<JB.IV>>00466000
       DBRELDLTODBRELZDISP=-2,                                 <<JB.IV>>00468000
       DBRELZTODBRELSDISP=-1,                                  <<JB.IV>>00470000
       PROCTIMETOJCIDISP=-%31,                                 <<JB.IV>>00472000
       JCITOFROLSDISP=%40,                                     <<JB.IV>>00474000
       JCITOTSSWAPINDISP=%55,                                  <<JB.IV>>00476000
       FROLSTOJCIDISP=-%40,                                    <<JB.IV>>00478000
       JCITOSBDISP=-%7,                                        <<JB.IV>>00480000
       TSLDTOTSLADISP=-1,                                      <<JB.IV>>00482000
       TSLSWAPINTOTSLRDISP=-2,                                 <<JB.IV>>00484000
       JCITOJROLSDISP=%40,                                     <<JB.IV>>00486000
       TSLRTOQCNTDISIP=5,                                      <<JB.IV>>00488000
       TSTBTOQCNTDISP=4,                                       <<JB.IV>>00490000
       TSLATOTSLDDISP=1;                                       <<JB.IV>>00492000
                                                               <<JB.IV>>00494000
                                                               <<JB.IV>>00496000
                                                               <<JB.IV>>00498000
<<MEMORY REGION HEADERS AND TRAILERS>>                         <<JB.IV>>00500000
                                                               <<JB.IV>>00502000
EQUATE RBTOPTSSDISP=-22,                                       <<JB.IV>>00504000
       RBTOPTRASDISP=-21,                                      <<JB.IV>>00506000
       RBTOPTRSDISP=-20,                                       <<JB.IV>>00508000
       RBTORASDISP=-19,                                        <<JB.IV>>00510000
       RBTORSDISP=-18,                                         <<JB.IV>>00512000
       RBTOIOCNTDISP=-17,                                      <<JB.IV>>00514000
       RBTOINITMSGDISP=-16,                                    <<JB.IV>>00516000
       RBTOINITINFODISP=-15,                                   <<JB.IV>>00518000
       RBTOPLDISP=-15,                                         <<JB.IV>>00520000
       RBTOCOMPMSGDISP=-14,                                    <<JB.IV>>00522000
       RBTOMPDQLINKDISP=-13,                                   <<JB.IV>>00524000
       RBTONLDISP=-13,                                         <<JB.IV>>00526000
       RBTORPAGECNTDISP=-12,                                   <<JB.IV>>00528000
       RBTOSSDISP=-10,                                         <<JB.IV>>00530000
       RBTOSDDISP=-9,                                          <<JB.IV>>00532000
       RBTOWREQPDISP=-8,                                       <<JB.IV>>00534000
       RBTOSEGIDENTDISP=-7,                                    <<JB.IV>>00536000
       RBTOLKFZCNTDISP=-6,                                     <<JB.IV>>00538000
       RBTOWDIOFZCNTDISP=-5,                                   <<JB.IV>>00540000
       RBTOHODADISP=-4,                                        <<JB.IV>>00542000
       RBTOLODADISP=-3,                                        <<JB.IV>>00544000
       RBTODSKREQHEADPDISP=-2,                                 <<JB.IV>>00546000
       RBTODSKREQTAILPDISP=-1,                                 <<JB.IV>>00548000
       PTSSTORBDISP=22,                                        <<JB.IV>>00550000
       PTRASTORBDISP=21,                                       <<JB.IV>>00552000
       PTRSTORBDISP=20,                                        <<JB.IV>>00554000
       RASTORBDISP=19,                                         <<JB.IV>>00556000
       RSTORBDISP=18,                                          <<JB.IV>>00558000
       IOCNTTORBDISP=17,                                       <<JB.IV>>00560000
       INITMSGTORBDISP=16,                                     <<JB.IV>>00562000
       INITINFOTORBDISP=15,                                    <<JB.IV>>00564000
       PLTORBDISP=15,                                          <<JB.IV>>00566000
       COMPMSGTORBDISP=14,                                     <<JB.IV>>00568000
       MPDQLINKTORBDISP=13,                                    <<JB.IV>>00570000
       NLTORBDISP=13,                                          <<JB.IV>>00572000
       RPAGECNTTORBDISP=12,                                    <<JB.IV>>00574000
       SSTORBDISP=10,                                          <<JB.IV>>00576000
       SSTORSDISP=-8,                                          <<JB.IV>>00578000
       RSTOSSDISP=8,                                           <<JB.IV>>00580000
       SDTORBDISP=9,                                           <<JB.IV>>00582000
       WREQPTORBDISP=8,                                        <<JB.IV>>00584000
       SEGIDENTTORBDISP=7,                                     <<JB.IV>>00586000
       LKFZCNTTORBDISP=6,                                      <<JB.IV>>00588000
       WDIOFZCNTTORBDISP=5,                                    <<JB.IV>>00590000
       HODATORBDISP=4,                                         <<JB.IV>>00592000
       LODATORBDISP=3,                                         <<JB.IV>>00594000
       DSKREQHEADPTORBDISP=2,                                  <<JB.IV>>00596000
       DSKREQTAILPTORBDISP=1,                                  <<JB.IV>>00598000
       RASTORSDISP=1,                                          <<JB.IV>>00600000
       RASTOIOCNTDISP=2,                                       <<JB.IV>>00602000
       RASTOINITMSGDISP=3,                                     <<JB.IV>>00604000
       RASTOINITINFODISP=4,                                    <<JB.IV>>00606000
       RASTOCOMPMSGDISP=5,                                     <<JB.IV>>00608000
       RASTOMPDQLINKDISP=6,                                    <<JB.IV>>00610000
       RASTORPAGECNTDISP=7,                                    <<JB.IV>>00612000
       RASTOSSDISP=9,                                          <<JB.IV>>00614000
       RASTOSDDISP=10,                                         <<JB.IV>>00616000
       RASTOWREQPDISP=11,                                      <<JB.IV>>00618000
       RASTOSEGIDENTDISP=12,                                   <<JB.IV>>00620000
       RASTOLKFZCNTDISP=13,                                    <<JB.IV>>00622000
       RASTOWDIOFZCNTDISP=14,                                  <<JB.IV>>00624000
       RASTOHODADISP=15,                                       <<JB.IV>>00626000
       RASTOLODADISP=16,                                       <<JB.IV>>00628000
       RASTODSKREQHEADPDISP=17,                                <<JB.IV>>00630000
       RASTODSKREQTAILPDISP=18,                                <<JB.IV>>00632000
       RSTORASDISP=-1,                                         <<JB.IV>>00634000
       IOCNTTORASDISP=-2,                                      <<JB.IV>>00636000
       INITMSGTORASDISP=-3,                                    <<JB.IV>>00638000
       INITINFOTORASDISP=-4,                                   <<JB.IV>>00640000
       COMPMSGTORASDISP=-5,                                    <<JB.IV>>00642000
       MPDQLINKTORASDISP=-6,                                   <<JB.IV>>00644000
       RPAGECNTTORASDISP=-7,                                   <<JB.IV>>00646000
       SSTORASDISP=-9,                                         <<JB.IV>>00648000
       SDTORASDISP=-10,                                        <<JB.IV>>00650000
       WREQPTORASDISP=-11,                                     <<JB.IV>>00652000
       SEGIDENTTORASDISP=-12,                                  <<JB.IV>>00654000
       LKFZCNTTORASDISP=-13,                                   <<JB.IV>>00656000
       WDIOFZCNTTORASDISP=-14,                                 <<JB.IV>>00658000
       HODATORASDISP=-15,                                      <<JB.IV>>00660000
       LODATORASDISP=-16,                                      <<JB.IV>>00662000
       DSKREQHEADPTORASDISP=-17,                               <<JB.IV>>00664000
       DSKREQTAILPTORASDISP=-18,                               <<JB.IV>>00666000
       DSKREQHEADPTOWDIOFZCNTDISP=-3,                          <<JB.IV>>00668000
       WDIOFZCNTTODSKREQHEADP=3,                               <<JB.IV>>00670000
       WDIOFZCNTTOLKFZCNTDISP=-1,                              <<JB.IV>>00672000
       COMPMSGTOWDIOFZCNTDISP=9,                               <<JB.IV>>00674000
       HODATOCOMPMSGDISP=-10,                                  <<JB.IV>>00676000
       HODATOWREQPDISP=-4,                                     <<JB.IV>>00678000
       PTRASTORSDISP=3,                                        <<JB.IV>>00680000
       PTSSTORSDISP=4,                                         <<JB.IV>>00682000
       RSTOPTSSDISP=-4,                                        <<JB.IV>>00684000
       RSTOPTRASDISP=-3,                                       <<JB.IV>>00686000
       TRASTOTRSDISP=1,                                        <<JB.IV>>00688000
       TRASTOTSSDISP=-1,                                       <<JB.IV>>00690000
       TRSTOTRASDISP=-1,                                       <<JB.IV>>00692000
       TSSTORSDISP=2,                                          <<JB.IV>>00694000
       TRSTOTSSDISP=-2,                                        <<JB.IV>>00696000
       TSSTOTRASDISP=1,                                        <<JB.IV>>00698000
       RASTOPTRASDISP=-2,                                      <<JB.IV>>00700000
       PTRASTORASDISP=2,                                       <<JB.IV>>00702000
       RASTOPTSSDISP=-3,                                       <<JB.IV>>00704000
       PTSSTORASDISP=3,                                        <<JB.IV>>00706000
       PLTONLDISP=2,                                           <<JB.IV>>00708000
       NLTOPLDISP=-2,                                          <<JB.IV>>00710000
       RSTOPTRSDISP=-2,                                        <<JB.IV>>00712000
       PTRSTORSDISP=2,                                         <<JB.IV>>00714000
       SEGIDENTTOPTRSDISP=-14,                                 <<JB.IV>>00716000
       SEGIDENTTOINITMSGDISP=-9,                               <<JB.IV>>00718000
       SEGIDENTTOINITINFODISP=-8,                              <<JB.IV>>00720000
       MPDQLINKTOCOMPMSGDISP=-1,                               <<JB.IV>>00722000
       COMPMSGTOINITINFODISP=-1,                               <<JB.IV>>00724000
       INITMSGTOCOMPMSGDISP=2,                                 <<JB.IV>>00726000
       COMPMSGTOINITMSGDISP=-2,                                <<JB.IV>>00728000
       INITMSGTOINITINFODISP=1,                                <<JB.IV>>00730000
       INITMSGTORPAGECNTDISP=4,                                <<JB.IV>>00732000
       INITMSGTOMPDQLINKDISP=3,                                <<JB.IV>>00734000
       INITMSGTOWREQPDISP=8,                                   <<JB.IV>>00736000
       INITINFOTOSEGIDENTDISP=8,                               <<JB.IV>>00738000
       RPAGECNTTORSDISP=-6,                                    <<JB.IV>>00740000
       WREQPTOSDDISP=-1,                                       <<JB.IV>>00742000
       INITINFOTOHODADISP=11,                                  <<JB.IV>>00744000
       SSTOSEGIDENTDISP=3,                                     <<JB.IV>>00746000
       SSTOSDDISP=1,                                           <<JB.IV>>00748000
       SDTOSSDISP=-1,                                          <<JB.IV>>00750000
       SDTOIOCNTDISP=-8,                                       <<JB.IV>>00752000
       IOCNTTOINITMSGDISP=1,                                   <<JB.IV>>00754000
       RSTOSEGIDENTDISP=11,                                    <<JB.IV>>00756000
       NLTORBTORBDISP=13,                                      <<JB.IV>>00758000
       PLTORBTORBDISP=15,                                      <<JB.IV>>00760000
       RASTOPTRSDISP=-1,                                       <<JB.IV>>00762000
       PTRSTORASDISP=1;                                        <<JB.IV>>00764000
                                                               <<JB.IV>>00766000
DEFINE REGASSIGNEDFLAG=(0:1)#,                                 <<JB.IV>>00768000
       REGRESERVEDFLAG=(1:1)#,                                 <<JB.IV>>00770000
       REGAVAILABLEFLAG=(2:1)#,                                <<JB.IV>>00772000
       REGCLEAREDFLAG=(3:1)#,                                  <<JB.IV>>00774000
       REGLKDFLAG=(5:1)#,                                      <<JB.IV>>00776000
       BLKDLKMIGIPFLAG=(15:1)#,                                <<JB.IV>>00778000
       REGFZFLAG=(6:1)#,                                       <<JB.IV>>00780000
       REGIOFZFLAG=(7:1)#,                                     <<JB.IV>>00782000
       SIZECHANGEPNDGFLAG=(4:1)#,                              <<JB.IV>>00784000
       INITMSGTOGGLESWITCH=(0:1)#,                             <<JB.IV>>00786000
       MSGEXTDISABLEDFLAG=(1:1)#,                              <<JB.IV>>00788000
       MSGONGOINGIODISABLED=(2:1)#,                            <<JB.IV>>00790000
       QUEUEREADREQFLAG=(3:1)#,                                <<JB.IV>>00792000
       INCMOVEREQFLAG=(4:1)#,                                  <<JB.IV>>00794000
       EXPREQFLAG=(5:1)#,                                      <<JB.IV>>00796000
       GARBCOLLFLAG=(6:1)#,                                    <<JB.IV>>00798000
       UPDDISCCOPYFLAG=(7:1)#,                                 <<JB.IV>>00800000
       COMPMSGTOGGLESWITCH=(0:1)#,                             <<JB.IV>>00802000
       COMPMSGMOVEFLAG=(1:1)#,                                 <<JB.IV>>00804000
       COMPMSGBLKDLKFLAG=(2:1)#,                               <<JB.IV>>00806000
       COMPMSGIOWAKEFLAG=(4:1)#,                               <<JB.IV>>00808000
       COMPMSGLDEVFIELD=(8:8)#,                                <<JB.IV>>00810000
       MSGVALIDYETFLAG=(15:1)#,                                <<JB.IV>>00812000
       MSGGARBCOLLFLAG=(6:1)#,                                 <<JB.IV>>00814000
       INITMSGABORTEDFLAG=(6:1)#,                              <<JB.IV>>00816000
       COMPMSGABORTEDFLAG=(5:1)#,                              <<JB.IV>>00818000
       FZCNTFIELD=(0:8)#,                                      <<JB.IV>>00820000
       LKCNTFIELD=(8:8)#,                                      <<JB.IV>>00822000
       SDVALIDFLAG=(0:1)#,                                     <<JB.IV>>00824000
       IOFZCNTFIELD=(8:8)#,                                    <<JB.IV>>00826000
       WRITDCNTFIELD=(0:8)#;                                   <<JB.IV>>00828000
                                                               <<JB.IV>>00830000
EQUATE REGIOFZBIT=7,                                           <<JB.IV>>00832000
       REGLKDBIT=5,                                            <<JB.IV>>00834000
       REGFZBIT=6,                                             <<JB.IV>>00836000
       MSGVALIDBIT=15,                                         <<JB.IV>>00838000
       INITMSGTOGGLEBIT=0,                                     <<JB.IV>>00840000
       COMPMSGTOGGLEBIT=0,                                     <<JB.IV>>00842000
       COMPMSGIOWAKEBIT=4,                                     <<JB.IV>>00844000
       SDVALIDBIT=0,                                           <<JB.IV>>00846000
       MSGGARBCOLLBIT=6;                                       <<JB.IV>>00848000
                                                               <<JB.IV>>00850000
EQUATE COMPLETEDFLAG=6,                                        <<JB.IV>>00852000
       CURRENTFLAG=10;                                         <<JB.IV>>00854000
                                                               <<JB.IV>>00856000
EQUATE REGAVAILABLECODE=%20000,                                <<JB.IV>>00858000
       REGRESERVEDCODE=%40000,                                 <<JB.IV>>00860000
       REGASSIGNEDCODE=%10000,                                 <<JB.IV>>00862000
       LASTTRASADDR=%177776;                                   <<JB.IV>>00864000
                                                               <<JB.IV>>00866000
                                                               <<JB.IV>>00868000
<<MSG TABLE>>                                                  <<JB.IV>>00870000
                                                               <<JB.IV>>00872000
DEFINE NONEMPTYPORTMASK=SYSTABENTRY03(X)#,                     <<JB.IV>>00874000
       NEXTMSGINX=SYSTABENTRY03(X)#;                           <<JB.IV>>00876000
                                                               <<JB.IV>>00878000
EQUATE PORTMASKWORDNUM=3;                                      <<JB.IV>>00880000
                                                               <<JB.IV>>00882000
                                                               <<JB.IV>>00884000
                                                               <<JB.IV>>00886000
<<DISCREQTAB>>                                                 <<JB.IV>>00888000
                                                               <<JB.IV>>00890000
INTEGER ARRAY DISCREQ00(*)=DB+0,                               <<JB.IV>>00892000
              DISCREQ01(*)=DB+1,                               <<JB.IV>>00894000
              DISCREQ02(*)=DB+2,                               <<JB.IV>>00896000
              DISCREQ03(*)=DB+3,                               <<JB.IV>>00898000
              DISCREQ04(*)=DB+4,                               <<JB.IV>>00900000
              DISCREQ05(*)=DB+5,                               <<JB.IV>>00902000
              DISCREQ06(*)=DB+6,                               <<JB.IV>>00904000
              DISCREQ07(*)=DB+7,                               <<JB.IV>>00906000
              DISCREQ08(*)=DB+8,                               <<JB.IV>>00908000
              DISCREQ09(*)=DB+9,                               <<JB.IV>>00910000
              DISCREQ10(*)=DB+10,                              <<JB.IV>>00912000
              DISCREQ11(*)=DB+11,                              <<JB.IV>>00914000
              DISCREQ12(*)=DB+12,                              <<JB.IV>>00916000
              DISCREQ13(*)=DB+13,                              <<JB.IV>>00918000
              DISCREQ14(*)=DB+14,                              <<JB.IV>>00920000
              DISCREQ15(*)=DB+15;                              <<JB.IV>>00922000
                                                               <<JB.IV>>00924000
DEFINE REQLDEVN=DISCREQ02(X)#,                                 <<JB.IV>>00926000
       REQFLAGS=DISCREQ00(X)#,                                 <<JB.IV>>00928000
       PREVREQP=DISCREQ11(X)#,                                 <<JB.IV>>00930000
       NEXTREQP=DISCREQ12(X)#,                                 <<JB.IV>>00932000
       PREVSEGREQP=DISCREQ13(X)#,                              <<JB.IV>>00934000
       NEXTSEGREQP=DISCREQ14(X)#,                              <<JB.IV>>00936000
       REQREADDISP=DISCREQ14(X)#,                              <<JB.IV>>00938000
       REQSEGIDENT=DISCREQ13(X)#,                              <<JB.IV>>00940000
       REQDSTINFO=DISCREQ04(X)#,                               <<JB.IV>>00942000
       REQDSTNFIELD=(6:10)#,                                   <<JB.IV>>00944000
       REQURGCLASS=DISCREQ01(X)#,                              <<JB.IV>>00946000
       REQMMBASE=DISCREQ05(X)#,                                <<JB.IV>>00948000
       REQFUNCTION=DISCREQ06(X).(8:8)#,                        <<JB.IV>>00950000
       REQMMBANK=DISCREQ04(X)#,                                <<JB.IV>>00952000
       REQTRANSFERCNT=DISCREQ07(X)#,                           <<JB.IV>>00954000
       REQHODA=DISCREQ08(X)#,                                  <<JB.IV>>00956000
       REQLODA=DISCREQ09(X)#,                                  <<JB.IV>>00958000
       REQSTAT=DISCREQ10(X)#,                                  <<JB.IV>>00960000
       ABORTREQATTMPTFLAG=(0:1)#,                              <<JB.IV>>00962000
       MMDISCREQFLAG=(1:1)#,                                   <<JB.IV>>00964000
       REQSYSBUFR=(3:1)#,                                      <<JB.IV>>00966000
       REQQUEUEDFLAG=(9:1)#,                                   <<JB.IV>>00968000
       DISABLEDREQFLAG=(13:1)#,                                <<JB.IV>>00970000
       DISABLEREQATTMPTFLAG=(14:1)#,                           <<JB.IV>>00972000
       DITSCURRREQFLAG=(12:1)#,                                <<JB.IV>>00974000
       REQSTKFLAG=(0:1)#,                                      <<JB.IV>>00976000
       REQSEGQUEUEDFLAG=(1:1)#,                                <<JB.IV>>00978000
       REQSTATUS=DISCREQ10(X).(13:3)#;                         <<JB.IV>>00980000
EQUATE ABORTREQATTMPTBIT=0,                                    <<JB.IV>>00982000
       REQQUEUEDBIT=9,                                         <<JB.IV>>00984000
       DITSCURRREQBIT=12,                                      <<JB.IV>>00986000
       MMDISCREQBIT=1;                                         <<JB.IV>>00988000
EQUATE READREQ=0,                                              <<JB.IV>>00990000
       WRITEREQ=1; <<FUNCTION CODE>>                           <<JB.IV>>00992000
EQUATE REQURGCLASSWORD=1,                                      <<JB.IV>>00994000
       REQPREEMPTCLASS=0,                                      <<JB.IV>>00996000
       QUEUEREQCODE=0,                                         <<JB.IV>>00998000
       DISABLEREQCODE=1,                                       <<JB.IV>>01000000
       ABORTREQCODE=%100000,                                   <<JB.IV>>01002000
       REQBACKGROUNDCLASS=-1;                                  <<JB.IV>>01004000
DEFINE ABORTDISCREQFLAG=(0:1)#,                                <<JB.IV>>01006000
       DISABLEDISCREQFLAG=(15:1)#;                             <<JB.IV>>01008000
                                                               <<JB.IV>>01010000
<<DIT>>                                                        <<JB.IV>>01012000
                                                               <<JB.IV>>01014000
LOGICAL ARRAY DIT00(*)=DB+0,                                   <<JB.IV>>01016000
              DIT02(*)=DB+2,                                   <<JB.IV>>01018000
              DIT04(*)=DB+4;                                   <<JB.IV>>01020000
                                                               <<JB.IV>>01022000
DEFINE DITFLAGS=DIT00(X)#,                                     <<JB.IV>>01024000
       DITIOQP=DIT02(X)#,                                      <<JB.IV>>01026000
       DITDLTP=DIT04(X)#;                                      <<JB.IV>>01028000
                                                               <<JB.IV>>01030000
INTEGER ARRAY DISCDIT00(*)=DB+0,                               <<JB.IV>>01032000
              DISCDIT01(*)=DB+1,                               <<JB.IV>>01034000
              DISCDIT02(*)=DB+2,                               <<JB.IV>>01036000
              DISCDIT03(*)=DB+3,                               <<JB.IV>>01038000
              DISCDIT04(*)=DB+4,                               <<JB.IV>>01040000
              DISCDIT05(*)=DB+5,                               <<JB.IV>>01042000
              DISCDIT06(*)=DB+6,                               <<JB.IV>>01044000
              DISCDIT07(*)=DB+7,                               <<JB.IV>>01046000
              DISCDIT08(*)=DB+8,                               <<JB.IV>>01048000
              DISCDIT09(*)=DB+9;                               <<JB.IV>>01050000
                                                               <<JB.IV>>01052000
DEFINE DITACTIVEFLAG=(2:1)#;                                   <<JB.IV>>01054000
                                                               <<JB.IV>>01056000
DEFINE DITQHEADERP=DISCDIT08(X)#;                              <<JB.IV>>01058000
                                                               <<JB.IV>>01060000
                                                               <<JB.IV>>01062000
INTEGER ARRAY QHEADER00(*)=DB+0,                               <<JB.IV>>01064000
              QHEADER01(*)=DB+1,                               <<JB.IV>>01066000
              QHEADER02(*)=DB+2;                               <<JB.IV>>01068000
                                                               <<JB.IV>>01070000
DEFINE QUEUELENGTH=QHEADER00(X)#,                              <<JB.IV>>01072000
       QUEUEHEADP=QHEADER01(X)#,                               <<JB.IV>>01074000
       QUEUETAILP=QHEADER02(X)#;                               <<JB.IV>>01076000
                                                               <<JB.IV>>01078000
                                                               <<JB.IV>>01080000
<<DLT MM/DRIVER COMMUNICATION BITS>>                           <<JB.IV>>01082000
                                                               <<JB.IV>>01084000
INTEGER ARRAY DLT(*)=DB+0;                                     <<JB.IV>>01086000
                                                               <<JB.IV>>01088000
DEFINE DLTFLAGS=DLT(X)#,                                       <<JB.IV>>01090000
       DLTDRVRFRZNFLAG=(8:1)#,                                 <<JB.IV>>01092000
       DLTMMERRORCFLAG=(9:1)#;                                 <<JB.IV>>01094000
                                                               <<JB.IV>>01096000
                                                               <<JB.IV>>01098000
<<IOQ>>                                                        <<JB.IV>>01100000
                                                               <<JB.IV>>01102000
INTEGER ARRAY IOQ00(*)=DB+0;                                   <<JB.IV>>01104000
                                                               <<JB.IV>>01106000
DEFINE IOQFLAGS=IOQ00(X)#,                                     <<JB.IV>>01108000
       IOQDATAFZNFLAG=(7:1)#,                                  <<JB.IV>>01110000
       IOQMMERRORDFLAG=(8:1)#;                                 <<JB.IV>>01112000
                                                               <<JB.IV>>01114000
                                                               <<JB.IV>>01116000
<<MISC>>                                                       <<JB.IV>>01118000
                                                               <<JB.IV>>01120000
EQUATE PAGEPOWER=8,                                            <<JB.IV>>01122000
       MMPAGESIZE=256,                                         <<JB.IV>>01124000
       HEADERLENGTH=19,                                        <<JB.IV>>01126000
       TRAILERLENGTH=4,                                        <<JB.IV>>01128000
       OVERHEAD=HEADERLENGTH+TRAILERLENGTH,                    <<JB.IV>>01130000
       MAXHOLESIZE=256,                                        <<JB.IV>>01132000
       ARSBMLENGTH=MAXHOLESIZE/16+1,                           <<JB.IV>>01134000
       ARLDLENGTH=MAXHOLESIZE*2+2,                             <<JB.IV>>01136000
       SIRTABENTRYLENGTH=2,                                    <<JB.IV>>01138000
       CSTXBMWRDCNT=4,                                         <<JB.IV>>01140000
       MAXALLOCCNT=255,                                        <<JB.IV>>01142000
       SCHEDPIN=0,                                             <<JB.IV>>01144000
       PCBSIZE=%20;                                            <<JB.IV>>01146000
                                                               <<JB.IV>>01148000
EQUATE DISPATCHINGQ=1, <<FOR QUEUEPROC CALLS>>                 <<JB.IV>>01150000
       SWAPOUTCANDQ=-1,                                        <<JB.IV>>01152000
       NOQUEUE=0,                                              <<JB.IV>>01154000
       FRONTOFCLASS=1,                                         <<JB.IV>>01156000
       FRONTOFQUEUE=1,                                         <<JB.IV>>01158000
       ENDOFCLASS=0,                                           <<JB.IV>>01160000
       ENDOFQUEUE=0;                                           <<JB.IV>>01162000
                                                               <<JB.IV>>01164000
DEFINE DISPRUNNINGFLAG=(0:1)#, <<DISPTOAWAKEMSG>>              <<JB.IV>>01166000
       PREEMPTOKFLAG=(1:1)#,                                   <<JB.IV>>01168000
       CURPROCPRI=(2:8)#,                                      <<JB.IV>>01170000
       PAUSEDFLAG=(15:1)#;                                     <<JB.IV>>01172000
                                                               <<JB.IV>>01174000
EQUATE DISPRUNNINGBIT=0,                                       <<JB.IV>>01176000
       PAUSEDBIT=15;                                           <<JB.IV>>01178000
                                                               <<JB.IV>>01180000
DEFINE TRANSCOMPFLAG=(15:1)#,  <<WAITTODISPMSG>>               <<JB.IV>>01182000
       LONGWAITFLAG=(1:1)#,                                    <<JB.IV>>01184000
       PHASETRANSFLAG=(3:1)#,                                  <<JB.IV>>01186000
       MEMTRAPFLAG=(4:1)#,                                     <<JB.IV>>01188000
       IMPTRAPFLAG=(5:1)#,                                     <<JB.IV>>01190000
       SWFLAG=(0:1)#;                                          <<JB.IV>>01192000
                                                               <<JB.IV>>01194000
EQUATE NOINFO=0, <<WAIT FLAGS PARAMETER>>                      <<JB.IV>>01196000
       MEMTRAP=%4000,                                          <<JB.IV>>01198000
       TRANSCOMPBIT=15,                                        <<JB.IV>>01200000
       SWBIT=0,                                                <<JB.IV>>01202000
       LONGWAITBIT=1,                                          <<JB.IV>>01204000
       NEWVERSIONBIT=2,                                        <<JB.IV>>01206000
       PHASETRANSBIT=3,                                        <<JB.IV>>01208000
       MEMTRAPBIT=4,                                           <<JB.IV>>01210000
       IMPTRAPBIT=5,                                           <<JB.IV>>01212000
       NOWAIT=0; <<AWAKE PARAMETER>>                           <<JB.IV>>01214000
                                                               <<JB.IV>>01216000
EQUATE IMPWAITCODE=%100000,  <<FOR WAIT/AWAKE  CALLS>>         <<JB.IV>>01218000
       SIRWAITCODE=%40000,                                     <<JB.IV>>01220000
       TIMERWAITCODE=%20000,                                   <<JB.IV>>01222000
       MEMORYWAITCODE=%10000,                                  <<JB.IV>>01224000
       MOURNINGWAITCODE=%4000,                                 <<JB.IV>>01226000
       GLOBALRINWAITCODE=%2000,                                <<JB.IV>>01228000
       LOCALRINWAITCODE=%1000,                                 <<JB.IV>>01230000
       MAILWAITCODE=%400,                                      <<JB.IV>>01232000
       BIOWAITCODE=%200,                                       <<JB.IV>>01234000
       UIOWAITCODE=%100,                                       <<JB.IV>>01236000
       UCOPWAITCODE=%40,                                       <<JB.IV>>01238000
       JUNKWAITCODE=%20,                                       <<JB.IV>>01240000
       MSGWAITCODE=%10,                                        <<JB.IV>>01242000
       SONWAITCODE=%2,                                         <<JB.IV>>01244000
       FATHERWAITCODE=1;                                       <<JB.IV>>01246000
                                                               <<JB.IV>>01248000
EQUATE IOSYSREQBIT=0, <<FETCHSEGMENT'S SPECIALFLAGS PARAMETER>><<JB.IV>>01250000
       IOFZREQBIT=1,                                           <<JB.IV>>01252000
       BKLKREQBIT=2,                                           <<JB.IV>>01254000
       LKREQBIT=3,                                             <<JB.IV>>01256000
       FZREQBIT=4;                                             <<JB.IV>>01258000
                                                               <<JB.IV>>01260000
DEFINE IOSYSREQFLAG=(0:1)#,                                    <<JB.IV>>01262000
       IOFZREQFLAG=(1:1)#,                                     <<JB.IV>>01264000
       BKLKREQFLAG=(2:1)#,                                     <<JB.IV>>01266000
       LKREQFLAG=(3:1)#,                                       <<JB.IV>>01268000
       FZREQFLAG=(4:1)#;                                       <<JB.IV>>01270000
                                                               <<JB.IV>>01272000
EQUATE RELNRSBIT=0, <<ADJUSTLOCALITY PARAMETER BITS>>          <<JB.IV>>01274000
       INITLOCBIT=1,                                           <<JB.IV>>01276000
       FLUSHLOCBIT=2,                                          <<JB.IV>>01278000
       DECDISCIOCNTBIT=3,                                      <<JB.IV>>01280000
       CLEARDBATSEGBIT=4,                                      <<JB.IV>>01282000
       CLEARFZFLAGBIT=5,                                       <<JB.IV>>01284000
       CLEARLKFLAGBIT=6,                                       <<JB.IV>>01286000
       RELLOCBIT=15;                                           <<JB.IV>>01288000
                                                               <<JB.IV>>01290000
DEFINE SETMEMREQPTRFLAG=(0:1)#, <<ADDTOLOCALITY PARAMETER FLAGS<<JB.IV>>01292000
       SETBLKLKFLAG=(4:1)#,                                    <<JB.IV>>01294000
       SETLOCKFLAG=(5:1)#,                                     <<JB.IV>>01296000
       SETFZFLAG=(6:1)#,                                       <<JB.IV>>01298000
       INCDISCIOCNTFLAG=(1:1)#,                                <<JB.IV>>01300000
       PROCSSTKFLAG=(2:1)#,                                    <<JB.IV>>01302000
       UPDSLLFLAG=(15:1)#,                                     <<JB.IV>>01304000
       SETDBATSEGFLAG=(3:1)#,                                  <<JB.IV>>01306000
       RELNRSEGFLAG=(0:1)#,<<ADJUSTLOCALITY PARAMETER FLAGS>>  <<JB.IV>>01308000
       INITLOCFLAG=(1:1)#,                                     <<JB.IV>>01310000
       FLUSHLOCFLAG=(2:1)#,                                    <<JB.IV>>01312000
       DECDISCIOCNTFLAG=(3:1)#,                                <<JB.IV>>01314000
       CLEARDBATSEGFLAG=(4:1)#,                                <<JB.IV>>01316000
       CLEARFZFLAGFLAG=(5:1)#,                                 <<JB.IV>>01318000
       CLEARLKFLAGFLAG=(6:1)#,                                 <<JB.IV>>01320000
       RELLOCFLAG=(15:1)#;                                     <<JB.IV>>01322000
                                                               <<JB.IV>>01324000
EQUATE UPDATESLLBIT=15;                                        <<JB.IV>>01326000
                                                               <<JB.IV>>01328000
EQUATE MEMOVRFLOW=0, <<ABORTPROCESS CODES>>                    <<JB.IV>>01330000
       MAKEPRESIOERR=1;                                        <<JB.IV>>01332000
                                                               <<JB.IV>>01334000
                                                                        01336000
<<------------------------------------------------------------------->> 01338000
                                                                        01340000
DOUBLE PROCEDURE ATTACHIO(P1,P2,P3,P4,P5,P6,P7,P8,P9);                  01342000
   VALUE P1,P2,P3,P4,P5,P6,P7,P8,P9;                                    01344000
   INTEGER P1,P2,P3,P4,P5,P6,P7,P8,P9;                                  01346000
   OPTION EXTERNAL;                                                     01348000
                                                                        01350000
<<------------------------------------------------------------------->> 01352000
                                                                        01354000
PROCEDURE SYSBREAK;OPTION EXTERNAL;                                     01356000
                                                                        01358000
<<------------------------------------------------------------------->> 01360000
                                                                        01362000
PROCEDURE TERMINATE;OPTION EXTERNAL;                                    01364000
                                                                        01366000
<<------------------------------------------------------------------->> 01368000
                                                                        01370000
                                                               <<JB.IV>>01372000
PROCEDURE QUEUEONSEGMENT(SEGIDENT);                            <<JB.IV>>01374000
VALUE SEGIDENT;                                                <<JB.IV>>01376000
LOGICAL SEGIDENT;                                              <<JB.IV>>01378000
OPTION EXTERNAL;                                               <<JB.IV>>01380000
                                                               <<JB.IV>>01382000
                                                               <<JB.IV>>01384000
PROCEDURE HELP;                                                <<JB.IV>>01386000
OPTION EXTERNAL;                                               <<JB.IV>>01388000
PROCEDURE CRASH'(WHY);                                         <<JB.IV>>01390000
VALUE WHY;                                                     <<JB.IV>>01392000
INTEGER WHY;                                                   <<JB.IV>>01394000
OPTION EXTERNAL;                                               <<JB.IV>>01396000
                                                               <<JB.IV>>01398000
                                                                        01400000
COMMENT  THIS FUNCTION IS CALLED TO MONITOR AND/OR COLLECT              01402000
         PERFORMANCE MEASUREMENT DATA;                                  01404000
PROCEDURE SUDDENDEATH(N);                                      <<JB.IV>>01406000
VALUE N;                                                       <<JB.IV>>01408000
INTEGER N;                                                     <<JB.IV>>01410000
OPTION EXTERNAL;                                               <<JB.IV>>01412000
                                                               <<JB.IV>>01414000
INTEGER PROCEDURE CONVEXTLABELTODELTAP(PLABEL);                <<JB.IV>>01416000
VALUE PLABEL;                                                  <<JB.IV>>01418000
INTEGER PLABEL;                                                <<JB.IV>>01420000
OPTION EXTERNAL;                                               <<JB.IV>>01422000
                                                               <<JB.IV>>01424000
PROCEDURE WAIT(WAITF,SPECIALINFO);                             <<JB.IV>>01426000
VALUE WAITF,SPECIALINFO;                                       <<JB.IV>>01428000
INTEGER WAITF,SPECIALINFO;                                     <<JB.IV>>01430000
OPTION EXTERNAL;                                               <<JB.IV>>01432000
                                                               <<JB.IV>>01434000
PROCEDURE IMPEDE(WHO);                                         <<JB.IV>>01436000
VALUE WHO;                                                     <<JB.IV>>01438000
INTEGER WHO;                                                   <<JB.IV>>01440000
OPTION EXTERNAL;                                               <<JB.IV>>01442000
                                                               <<JB.IV>>01444000
PROCEDURE CLEAR'PSIF(PCBPT,FLAG);                              <<JB.IV>>01446000
VALUE PCBPT,FLAG;                                              <<JB.IV>>01448000
INTEGER PCBPT;                                                 <<JB.IV>>01450000
LOGICAL FLAG;                                                  <<JB.IV>>01452000
OPTION EXTERNAL;                                               <<JB.IV>>01454000
PROCEDURE ABORT(A,B,C);                                        <<JB.IV>>01456000
VALUE A,B,C;                                                   <<JB.IV>>01458000
INTEGER A,B,C;                                                 <<JB.IV>>01460000
OPTION EXTERNAL;                                               <<JB.IV>>01462000
                                                               <<JB.IV>>01464000
INTEGER PROCEDURE FAMILY(PIN,LASTPIN);                                  01466000
VALUE PIN,LASTPIN;                                                      01468000
INTEGER PIN,LASTPIN;                                                    01470000
OPTION PRIVILEGED,UNCALLABLE;                                           01472000
                                                                        01474000
COMMENT: RETURNS A MEMBER OF THE SUB TREE SUCH THAT                     01476000
         ,IF CALLED ITERATIVELY, USING THE LAST VALUE RETURNED          01478000
         AS PIN, THE ENTIRE SUB TREE CAN BE DESCRIBED.                  01480000
         THE LAST ELEMENT IS GIVEN BY FAMILY=LASTPIN.                   01482000
         UNCALLABLE.                                                    01484000
      ;                                                                 01486000
                                                                        01488000
BEGIN                                                                   01490000
                                                                        01492000
      X:=PIN*PCBSIZE+5;                                                 01494000
      TOS:=PCB(X);                                                      01496000
      ASMB(DUP); TOS:=TOS.(8:8);                                        01498000
      IF <> THEN                                                        01500000
      BEGIN                                                             01502000
F1:      FAMILY:=TOS;                  <<FAMILY=SON>>                   01504000
         RETURN;                                                        01506000
      END;                                                              01508000
      X:=X+1;                                                           01510000
      TOS:=PCB(X)&LSR(8);                                               01512000
      IF <> THEN GOTO F1;              <<FAMILY = BROTHER>>             01514000
      DEL;DEL;                                                          01516000
      IF PIN=LASTPIN THEN              <<ONLY ONE PROCESS IN FAMILY>>   01518000
      BEGIN                                                             01520000
F2:      FAMILY:=LASTPIN;                                               01522000
         RETURN;                                                        01524000
      END;                                                              01526000
F3:   TOS:=TOS&LSR(8);                                                  01528000
      ASMB(DUP);                                                        01530000
      IF TOS=LASTPIN THEN GOTO F2;                                      01532000
      X:=TOS*PCBSIZE+6;                                                 01534000
      TOS:=PCB(X);                                                      01536000
      TOS:=TOS&LSR(8);                                                  01538000
      IF <> THEN GOTO F1;                                               01540000
      TOS:=PCB(X-1);                                                    01542000
      GOTO F3;                                                          01544000
                                                                        01546000
END;  << F A M I L Y >>                                                 01548000
<<THISCPU DETECTS THE CURRENT TYPE OF CPU IN EXECUTION>>       <<01.02>>01552000
<<AND RETURNS A VALUE:                                >>       <<01.02>>01554000
<<       0  IF SERIES I                               >>       <<01.02>>01556000
<<       1  IF SERIES II                              >>       <<01.02>>01558000
<<       2  IF TOOTHPICK                              >>       <<01.02>>01560000
<<       3  IF SERIES III                             >>       <<RK2MB>>01562000
<<       4  IF ICF/44                                 >>                01564000
<<       5  IF ICF/55                                 >>                01566000
INTEGER PROCEDURE THISCPU;                                     <<01.02>>01568000
  OPTION PRIVILEGED;   << THIS PROCEDURE SHOULD BE CALLABLE. >><<01891>>01570000
  BEGIN                                                        <<01.02>>01572000
    INTEGER X=X;                                               <<01.02>>01574000
    TOS:=0;         <<INITIALIZE RETURN (SERIES I)>>           <<01.02>>01576000
    TOS:=-1;        <<TEST FLAG - ILLEGAL BANK #  >>           <<01.02>>01578000
    PUSH(DB);       <<1 WORD ON SERIES I          >>           <<01.02>>01580000
                    <<2 WORDS ON SERIES II/TOOTHPICK>>         <<01.02>>01582000
    DEL;            <<DON'T NEED DB ADDRESS       >>           <<01.02>>01584000
    IF TOS <> -1 THEN <<WAS BANK # PUSHED?        >>           <<01.02>>01586000
      BEGIN         <<YES - NOT SERIES I          >>           <<01.02>>01588000
        DEL;        <<DELETE TEST FLAG            >>           <<01.02>>01590000
        DEL;        <<DELETE RETURN VALUE         >>           <<RK2MB>>01592000
        ASSEMBLE(CON %020362); <<GET MICROCODE CPU #>>         <<01.02>>01594000
        X:=TOS;                                                <<RK2MB>>01596000
        IF X=1 THEN TOS:=1 <<SERIES II>                        <<RK2MB>>01598000
          ELSE IF X=2 THEN TOS:=3 <<SERIES III>>               <<RK2MB>>01600000
            ELSE IF X= 8 THEN TOS:=2 <<SERIES 33>>            <<ICF55>> 01602000
              ELSE IF X= 3 THEN TOS:=4 <<ICF/44>>                       01604000
                ELSE IF X=4 THEN TOS:=5 <<ICF/55>>                      01606000
                  ELSE SUDDENDEATH(13); <<BAD MICRO RETURN>>            01608000
                                                               <<RK2MB>>01610000
      END;                                                     <<01.02>>01612000
    THISCPU:=TOS;  <<RETURN VALUE>>                            <<01.02>>01614000
  END;    << END THISCPU >>                                    <<01.02>>01616000
                                                                        01618000
                                                                        01620000
                                                                        01622000
                                                                        01624000
                                                                        01626000
Integer Procedure Get'DSDEVICE (Ldev);                          <<3.00>>01628000
COMMENT:  This procedure retrieves entries from the             <<3.00>>01630000
          DSDEVICE table. (In the DS Global Dataseg)            <<3.00>>01632000
          Functional Return:                                    <<3.00>>01634000
            -2 = No DSLINES configured                          <<3.00>>01636000
            -1 = Illegal LDEV passed                            <<3.00>>01638000
             0 = Non DS related device                          <<3.00>>01640000
             1 = DS related CS device                           <<3.00>>01642000
             2 = DS device                                      <<3.00>>01644000
             3 = DS pseudo terminal;                            <<3.00>>01646000
                                                                <<3.00>>01648000
Value Ldev;                                                     <<3.00>>01650000
Integer Ldev;                                                   <<3.00>>01652000
OPTION PRIVILEGED,UNCALLABLE <<,UNREADABLE>>;                   <<3.00>>01654000
Begin                                                           <<3.00>>01656000
Equate  Base'word    =  %2;                                     <<3.00>>01658000
Pointer SYSDB        =  %0,                                     <<3.00>>01660000
        DST'base     =  %2;                                     <<3.00>>01662000
Integer Pointer LPDT = %10;                                     <<3.00>>01664000
Define  DEVTYPE      = (12:4)        #,                         <<3.00>>01666000
        DST'size     = DST'base(1)   #,                         <<3.00>>01668000
        Numldevs     = LPDT(0).(0:8) #,                         <<3.00>>01670000
        DSGlobalDST  = SYSDB(%320)   #;                         <<3.00>>01672000
Integer DSGlobal'Bank,DSGlobal'base,Table'Base;                 <<3.00>>01674000
                                                                <<3.00>>01676000
If DSGlobalDST = 0 then                                         <<3.00>>01678000
   Begin                                                        <<3.00>>01680000
   Get'DSDEVICE := -2;                                          <<3.00>>01682000
   Return;                                                      <<3.00>>01684000
   End;                                                         <<3.00>>01686000
                                                                <<3.00>>01688000
If 1 <= Ldev <= Numldevs then                                   <<3.00>>01690000
   Begin                                                        <<3.00>>01692000
   DSGlobal'Bank := DST'base (DST'size*DSGlobalDST+2);         <<01877>>01694000
   DSGlobal'Base := DST'base (DST'size*DSGlobalDST+3);          <<3.00>>01696000
                                                                <<3.00>>01698000
<< Get the DSDEVICE base from the Dataseg header  >>            <<3.00>>01700000
                                                                <<3.00>>01702000
   TOS := DSGlobal'Bank;                                        <<3.00>>01704000
   TOS := DSGlobal'Base+Base'word;                              <<3.00>>01706000
   Assemble (LSEA);                                             <<3.00>>01708000
                                                                <<3.00>>01710000
<< DSDEVICE table offset is now on top of stack   >>            <<3.00>>01712000
                                                                <<3.00>>01714000
   Table'base := TOS;                                           <<3.00>>01716000
   TOS := DSGlobal'Bank;                                        <<3.00>>01718000
   TOS := DSGlobal'Base+Table'Base+Ldev;                        <<3.00>>01720000
   Assemble (LSEA);                                             <<3.00>>01722000
   Get'DSDEVICE := TOS.DEVTYPE;                                 <<3.00>>01724000
   End                                                          <<3.00>>01726000
Else                                                            <<3.00>>01728000
   Get'DSDEVICE := -1;                                          <<3.00>>01730000
End;  << Get'DSDEVICE >>                                        <<3.00>>01732000
$CONTROL SEGMENT=MAIN                                                   01734000
END.                                                                    01736000
