<<=========================================================             00010000
=                                                         =             00015000
=                  inclpcb - a2                           =             00020000
=                                                         =             00025000
=========================================================>>             00030000
                                                                        00035000
                                                                        00040000
equate pcbsize = %20;                                          <<06204>>00045000
                                                               <<06204>>00050000
                                                                        00055000
<<                                                                      00060000
pcb words and fields                                                    00065000
>>                                                                      00070000
                                                                        00075000
logical array pcbresabortinfo(*)=db+0,                                  00080000
              pcbsllptr(*)=db+1,                                        00085000
              pcbdbxdsinfo(*)=db+2,                                     00090000
              pcbstkinfo(*)=db+3,                                       00095000
              pcbwakemask(*)=db+4,                                      00100000
              pcbfathersoninfo(*)=db+5,                                 00105000
              pcbbrotherinfo(*)=db+6,                                   00110000
              pcbpimppinbklink(*)=db+7,                                 00115000
              pcbeventflags(*)=db+%12,                                  00120000
              pcbprocstate(*)=db+%11,                                   00125000
              pcbpiinfonimppin(*)=db+%10,                               00130000
              pcblastrefcode(*)=db+%13,                                 00135000
              pcbmapdst(*)=db+%14,                             <<06106>>00140000
              pcbqueueinginfo(*)=db+%15,                                00145000
              pcbnqptr(*)=db+%16,                                       00150000
              pcbpqptr(*)=db+%17;                                       00155000
                                                                        00160000
define resabortinfo=pcbresabortinfo(x)#,                                00165000
       sllptr=pcbsllptr(x)#,                                            00170000
       dbxdsinfo=pcbdbxdsinfo(x)#,                                      00175000
       stkinfo=pcbstkinfo(x)#,                                          00180000
       wakemask=pcbwakemask(x)#,                                        00185000
       fathersoninfo=pcbfathersoninfo(x)#,                              00190000
       brotherinfo=pcbbrotherinfo(x)#,                                  00195000
       pimppinbklink=pcbpimppinbklink(x)#,                              00200000
       eventflags=pcbeventflags(x)#,                                    00205000
       procstate=pcbprocstate(x)#,                                      00210000
       piinfonimppin=pcbpiinfonimppin(x)#,                              00215000
       lastrefcodeseg=pcblastrefcode(x)#,                               00220000
       mapdst=pcbmapdst(x)#,                                   <<06106>>00225000
       queueinginfo=pcbqueueinginfo(x)#,                                00230000
       nqptr=pcbnqptr(x)#,                                              00235000
       pqptr=pcbpqptr(x)#;                                              00240000
                                                                        00245000
equate resabortinfowordnum=0,                                           00250000
       sllixwordnum=1,                                                  00255000
       dbxdsinfowordnum=2,                                              00260000
       stkinfowordnum=3,                                                00265000
       wakemaskwordnum=4,                                               00270000
       fathersoninfowordnum=5,                                          00275000
       brotherinfowordnum=6,                                            00280000
       pimppinbklinkwordnum=7,                                          00285000
       piinfonimppinwordnum=%10,                                        00290000
       procstatewordnum=%11,                                            00295000
       eventflagswordnum=%12,                                           00300000
       lastrefcodewordnum=%13,                                          00305000
       mapdstwordnum=%14,                                      <<06106>>00310000
       queueinginfowordnum=%15,                                         00315000
       nqptrwordnum=%16,                                                00320000
       pqptrwordnum=%17;                                                00325000
                                                                        00330000
equate sarbit=0, <<misc bits for tbc,trbc, ...>>                        00335000
       scbit=1,                                                         00340000
       critbit=2,                                                       00345000
       hassirbit=3,                                                     00350000
       piovrbit=4,                                                      00355000
       incprotectexpbit=6,                                              00360000
       preemptcapbit=7,                                                 00365000
       mustpreemptbit=8,                                                00370000
       impededwaitbit=12,                                               00375000
       sirwaitbit=13,                                                   00380000
       timwaitbit=14,                                                   00385000
       memorywaitbit=15,                                                00390000
       impededwakebit=12,                                               00395000
       sirwakebit=13,                                                   00400000
       timwakebit=14,                                                   00405000
       memorywakebit=15,                                                00410000
       wwsbit=15,                                                       00415000
       dispqbit=0,                                                      00420000
       main=2,                                                 <<01677>>00425000
       softkill=%20,                                                    00430000
       lschedbit=1,                                                     00435000
       cschedbit=2,                                                     00440000
       dschedbit=3,                                                     00445000
       eschedbit=4,                                                     00450000
       interactivebit=5,                                                00455000
       coreresbit=6,                                                    00460000
       holdsirpribit=5;                                                 00465000
                                                                        00470000
define sarflag=(0:1)#,                                                  00475000
       scflag=(1:1)#,                                                   00480000
       critflag=(2:1)#,                                                 00485000
       hassirflag=(3:1)#,                                               00490000
       critsirflag=(2:2)#,                                     <<03039>>00495000
       piovrflag=(4:1)#,                                                00500000
       incprotectexpflag=(6:1)#,                                        00505000
       preemptcapflag=(7:1)#,                                           00510000
       mustpremptflag=(8:1)#,                                           00515000
       pcblongwaitflag=(9:1)#,                                          00520000
       pcbshortwaitflag=(10:1)#,                                        00525000
       pcbtermreadflag=(11:1)#,                                         00530000
       usedquantumflag=(12:1)#,                                         00535000
       holdimppriflag=(13:1)#,                                          00540000
       delaysoftflag=(8:1)#,                                            00545000
       stovabortflag=(14:1)#,                                           00550000
       ritbrkflag=(15:1)#,                                              00555000
       absdbflag=(0:1)#,                                                00560000
       xdsdstfield=(1:10)#,                                             00565000
       stovrallflag=(0:1)#,                                             00570000
       stkdstfield=(1:10)#,                                             00575000
       insystemflag=(11:1)#,                                            00580000
       pimppinfield=(0:8)#,                                             00585000
       nimppinfield=(8:8)#,                                             00590000
       oafield=(4:2)#,                                                  00595000
       criteventfield=(12:4)#,                                          00600000
       noncriteventfield=(0:12)#,                                       00605000
       mournwaitflag=(0:1)#,                                            00610000
       blkdiowaitflag=(4:1)#,                                           00615000
       impededwaitflag=(12:1)#,                                         00620000
       sirwaitflag=(13:1)#,                                             00625000
       timerwaitflag=(14:1)#,                                           00630000
       fathersonwakeflags=(10:2)#,                                      00635000
       fatherwaitflag=(11:1)#,                                          00640000
       abortwakeflags=(8:4)#,                                  <<03039>>00645000
       intfasonwakeflags=(9:3)#,                                        00650000
       memorywaitflag=(15:1)#,                                          00655000
       mournwakeflag=(0:1)#,                                            00660000
       impededwakeflag=(12:1)#,                                         00665000
       sirwakeflag=(13:1)#,                                             00670000
       timerwakeflag=(14:1)#,                                           00675000
       wws=(15:1)#,                                                     00680000
       memorywakeflag=(15:1)#,                                          00685000
       fatherpinfield=(0:8)#,                                           00690000
       sonpinfield=(8:8)#,                                              00695000
       brotherpinfield=(0:8)#,                                          00700000
       pbxfield=(8:8)#,                                        <<06106>>00705000
       breakptlinkfield=(8:8)#,                                         00710000
       ptypefield=(6:3)#,                                      <<01677>>00715000
       facflag=(7:1)#,                                                  00720000
       stovflag=(5:1)#,                                                 00725000
       systemprocflag=(6:1)#,                                           00730000
       aliveflag=(0:1)#,                                                00735000
       softintflag=(9:1)#,                                     <<03039>>00740000
       sipiflagsfield=(9:7)#,                                  <<03039>>00745000
       piflagsfield=(10:6)#,                                            00750000
       hybernateflag=(13:1)#,                                           00755000
       stopflag=(12:1)#,                                                00760000
       cyflag=(14:1)#,                                                  00765000
       bkflag=(15:1)#,                                                  00770000
       psimfield=(0:3)#,                                                00775000
       wakesoftflag=(3:1)#,                                    <<03039>>00780000
       dispqflag=(0:1)#,                                                00785000
       lschedflag=(1:1)#,                                               00790000
       cschedflag=(2:1)#,                                               00795000
       dschedflag=(3:1)#,                                               00800000
       eschedflag=(4:1)#,                                               00805000
       interactiveflag=(5:1)#,                                 <<04521>>00810000
       procresidentflag=(6:1)#,                                <<04521>>00815000
       holdsirpriflag=(5:1)#,                                  <<04521>>00820000
       queuefield=(1:4)#,                                      <<04521>>00825000
       allowsoftflag=(7:1)#,                                   <<04521>>00830000
       prifield=(8:8)#;                                        <<04521>>00835000
                                                               <<04521>>00840000
                                                               <<04521>>00845000
define                                                         <<04521>>00850000
   spcbcritsir    = pcb(pcbpt).critsirflag#,                   <<04521>>00855000
   spcbpiovrflag  = pcb(pcbpt).piovrflag#,                     <<04521>>00860000
   spcbdelaysoft  = pcb(pcbpt).delaysoftflag#,                          00865000
   spcbwaitfield  = pcb(pcbpt+wakemaskwordnum).(0:15)#,                 00870000
   spcbnoncritwait= pcb(pcbpt+wakemaskwordnum).noncriteventfield#,      00875000
   spcbabortwake  = pcb(pcbpt+wakemaskwordnum).abortwakeflags#,         00880000
   spcbimpede     = pcb(pcbpt+wakemaskwordnum).impededwaitflag#,        00885000
   spcbpsim       = pcb(pcbpt+piinfonimppinwordnum).psimfield#,         00890000
   spcbwakesoft   = pcb(pcbpt+piinfonimppinwordnum).wakesoftflag#,      00895000
   spcbsoftint    = pcb(pcbpt+procstatewordnum).softintflag#,           00900000
   spcbpiflags    = pcb(pcbpt+procstatewordnum).piflagsfield#,          00905000
   spcbdispq      = pcb(pcbpt+queueinginfowordnum).dispqflag#,          00910000
   spcballowsoft  = pcb(pcbpt+queueinginfowordnum).allowsoftflag#,      00915000
   spcbpbx        = pcb(pcbpt+brotherinfowordnum).pbxfield#,   <<06106>>00920000
   spcbmapdst     = pcb(pcbpt+mapdstwordnum)#,                 <<06106>>00925000
                                                                        00930000
   cpcbcritsir    = abs(abs(cpcb)).critsirflag#,                        00935000
   cpcbpiovrflag  = abs(abs(cpcb)).piovrflag#,                          00940000
   cpcbdelaysoft  = abs(abs(cpcb)).delaysoftflag#,                      00945000
   cpcbwaitfield  = abs(abs(cpcb)+wakemaskwordnum).(0:15)#,             00950000
   cpcbnoncritwait= abs(abs(cpcb)+wakemaskwordnum).noncriteventfield#,  00955000
   cpcbabortwake  = abs(abs(cpcb)+wakemaskwordnum).abortwakeflags#,     00960000
   cpcbimpede     = abs(abs(cpcb)+wakemaskwordnum).impededwaitflag#,    00965000
   cpcbpsim       = abs(abs(cpcb)+piinfonimppinwordnum).psimfield#,     00970000
   cpcbwakesoft   = abs(abs(cpcb)+piinfonimppinwordnum).wakesoftflag#,  00975000
   cpcbsoftint    = abs(abs(cpcb)+procstatewordnum).softintflag#,       00980000
   cpcbpiflags    = abs(abs(cpcb)+procstatewordnum).piflagsfield#,      00985000
   cpcbdispq      = abs(abs(cpcb)+queueinginfowordnum).dispqflag#,      00990000
   cpcballowsoft  = abs(abs(cpcb)+queueinginfowordnum).allowsoftflag#,  00995000
   cpcbpbx        =abs(abs(cpcb)+brotherinfowordnum).pbxfield#,<<06106>>01000000
   cpcbmapdst     = abs(abs(cpcb)+mapdstwordnum)#;             <<06106>>01005000
                                                                        01010000
<<=========================================================             01015000
=                                                         =             01020000
=                  end inclpcb                            =             01025000
=                                                         =             01030000
=========================================================>>             01035000
