         PROC                                                           00000000
XTC#WDCI NAME  X                                                        00000100
TC#WDQCI NAME                                                           00000200
.* .                                                                    00000300
.* . * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 00000400
.* .                                                                  * 00000500
.* . THIS AND ALL RELATED PROGRAMS ARE PROPERTY OF                    * 00000600
.* .                                                                  * 00000700
.* . UNIVAC CONTAINING ITS CONFIDENTIAL INFORMATION                   * 00000800
.* .                                                                  * 00000900
.* . * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 00001000
         GBL   &TC#WDQGB                                                00001100
         DO    '&TC#WDQGB'='1'=0                                        00001200
&TC#WDQGB SET  1                                                        00001300
*    DISC QUEUEING FILE CONTROL INFO                                    00001400
*                                                                       00001500
TC#WDQCI DSECT                                                          00001600
TC#WDDTF DS    XL(ST$DPCA3-ST$DTF) . SAT DTF                            00001700
TC#WDEXS DS    XL72                . SAT FILE EXTENT STORAGE            00001800
TC#WDPC1 DS    XL(ST$DEODA+4-ST$DPCA) . SAT PCA1                        00001900
TC#WDPC2 DS    XL(ST$DEODA+4-ST$DPCA) . SAT PCA2                        00002000
TC#WDRSV DS    XL72                . SAT REGISTER SAVE AREA             00002100
TC#WDECB EQU   TC#WDRSV,8          . EVENT CONTROL BLOCK                00002200
TC#WDPLT DS    XL(TC#WPL)          . I/O PARAM LIST                     00002300
TC#WDLNK DS    A                   . LINK TO NEXT DTF                   00002350
TC#WDARP DS    0XL12               . ARP QUEUES (HIGH, MEDIUM, AND LOW)
TC#WDARH DS    A                   . HIGH ARP QUEUE
TC#WDARM DS    A                   . MEDIUM ARP QUEUE
TC#WDARL DS    A                   . LOW ARP QUEUE
TC#WDMCT DS    5A                  . MAP CONTROL TABLE                  00002700
TC#WDMAP DS    XL256               . BIT MAP                            00002800
&SYSECT  CSECT                                                          00002900
         ENDO                                                           00003000
         END                                                            00003100
