         PROC  &P,0                                                     00000000
XTC#QPRM NAME  X   . 05/08/75 ICAM7 CONVERSION                          00000100
TC#QPRML NAME  0   . DISC I/O PARAMETER LIST                            00000200
.* .                                                                    00000300
.* . * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 00000400
.* .                                                                  * 00000500
.* . THIS AND ALL RELATED PROGRAMS ARE PROPERTY OF                    * 00000600
.* .                                                                  * 00000700
.* . UNIVAC CONTAINING ITS CONFIDENTIAL INFORMATION                   * 00000800
.* .                                                                  * 00000900
.* . * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 00001000
         GBL   &TC#TDQ4                                                 00001100
         DO    1-('&TC#TDQ4'='1')                                       00001200
&TC#TDQ4 SET   1                                                        00001300
*                                                                       00001400
*              VERSION 01,10                                            00001500
*        DISC I/O PARAMETER LIST                                        00001600
*                                                                       00001700
TC#WP    DSECT                                                          00001800
*                                                                       00001900
*        I/O PARAMETER LIST                                             00002000
*                                                                       00002100
TC#WPFA  DS    CL4                      . DTF ADDRESS                   00002200
TC#WPBA  DS    CL4                      . I/O BUFFER ADDRESS            00002300
TC#WPDA  DS    CL4                      . DISC ADDRESS                  00002400
TC#WPFC  DS    CL2                      . I/O FUNCTION CODE             00002500
TC#WIOST DS    X                   . I/O STATUS                         00002600
         DS    X                   . (UNUSED)                           00002700
TC#WPL   EQU   *-TC#WP                  . DSECT LENGTH                  00002800
&SYSECT  CSECT                                                          00002900
         ENDO                                                           00003000
         END                                                            00003100
