<<subset of INCL DRQV>>                                                 00001000
                                                                        00002000
logical pointer drq=%31;                                                00003000
                                                                        00004000
equate                                                                  00005000
                                                                        00005100
    DRQ'FLAGS'INDEX = 0,                                                00005200
    DRQ'URGCLAS'INDEX=1,                                                00005300
    DRQ'LDEV'INDEX=2,                                                   00005400
    DRQ'NEXTQ'INDEX=12;                                                 00005450
                                                                        00005500
                                                                        00006000
                                                                        00007000
DEFINE                                                                  00007100
                                                                        00007200
    DRQ'FLAGS = DRQ(DRQ'FLAGS'INDEX+DRQ'ENTRY'INDEX)#,                  00007300
    DRQ'URG'CLASS = DRQ(DRQ'URGCLAS'INDEX+DRQ'ENTRY'INDEX)#,            00007400
    DRQ'NEXTQ = DRQ(DRQ'NEXTQ'INDEX+DRQ'ENTRY'INDEX)#,                  00007450
    DRQ'LDEV  = DRQ(DRQ'LDEV'INDEX+DRQ'ENTRY'INDEX)#;                   00007500
                                                                        00007550
DEFINE                                                                  00008000
                                                                        00009000
    SERWQFLAG =(8:1)#,                                                  00009100
    DRQ'SERWQ  = DRQ'FLAGS.serwqflag#;                                  00010000
