$page "Include File For PCBX Acess : INCLPCBX"                          00001000
                                                                        00002000
                                                                        00003000
INTEGER ARRAY MEM(*)=DB+0;                                              00004000
                                                                        00005000
<<                                                                      00006000
PCBX                                                                    00007000
>>                                                                      00008000
                                                                        00009000
EQUATE PXGLOBSIZE=%10,  <<FOR ACCESS THRU EXTENDED ADDRESSING>>         00010000
       SBTOSTKRELDBDISP=1,                                              00011000
       STKDLTOSTKDBDISP=1,                                              00012000
       STKDBTOSTKDLDISP=-1,                                             00013000
       STKDLTODBRELZDISP=10,                                            00014000
       SBTODBRELSDISP=PXGLOBSIZE+1,                                     00015000
       SBTODBRELZDISP=PXGLOBSIZE+2,                                     00016000
       SBTOINITQDISP=PXGLOBSIZE+3,                                      00017000
       SBTODBRELDLDISP=PXGLOBSIZE+4,                                    00018000
       SBTOMAXDATADISP=PXGLOBSIZE+%15,                                  00019000
       SBTOPROCTIMEDISP=PXGLOBSIZE+%30,                                 00020000
       SBTOPMBNDSTAT=PXGLOBSIZE+%36,                                    00021000
       SBTOTIMELEFTDISP=PXGLOBSIZE+%37,                                 00022000
       SBTOTSLRDISP=PXGLOBSIZE+%52,                                     00023000
       SBTOTSTBDISP=PXGLOBSIZE+%53,                                     00024000
       SBTOTSSWAPINDISP=PXGLOBSIZE+%54,                                 00025000
       SBTOTSLADISP=PXGLOBSIZE+%55,                                     00026000
       SBTOTSLDDISP=PXGLOBSIZE+%56,                                     00027000
       SBTOMEASSTOPREASON=PXGLOBSIZE+%101,                              00028000
       SBTOMEASSTOPTIME=PXGLOBSIZE+%102,                                00029000
       SBTOQUEUETIMESTAMPDISP=PXGLOBSIZE+%76; <<DOUBLE WORD>>           00030000
                                                                        00031000
EQUATE TSLRTOTSTBDISP=1,                                                00032000
       TSLRTOQCNTDISP=5,                                                00033000
       STKRELDBTODBRELDLDISP=%13,                                       00034000
       STKRELDBTOSBDISP=-1,                                             00035000
       DBRELDLTODBRELZDISP=-2,                                          00036000
       DBRELZTODBRELSDISP=-1,                                           00037000
       PROCTIMETOJCIDISP=-%31,                                          00038000
       JCITOFROLSDISP=%40,                                              00039000
       JCITOTSSWAPINDISP=%55,                                           00040000
       FROLSTOJCIDISP=-%40,                                             00041000
       JCITOSBDISP=-%7,                                                 00042000
       TSLDTOTSLADISP=-1,                                               00043000
       TSLSWAPINTOTSLRDISP=-2,                                          00044000
       TSSWAPINTOTSLDDISP=2,                                            00045000
       JCITOJROLSDISP=%40,                                              00046000
       TSLRTOQCNTDISIP=5,                                               00047000
       TSTBTOQCNTDISP=4,                                                00048000
       TSLATOTSLDDISP=1;                                                00049000
                                                                        00050000
EQUATE STBTOMAXDATA=21,                                                 00052000
       MAXDATATORELZ=-11,                                               00053000
       SBTORELDB=1,                                                     00054000
       MAXDATATORELDB=-20,                                              00055000
       RELZTORBDISP=-10,                                                00056000
       RELDBTORELZ=9;                                                   00057000
