!
! *************************************************************************
! *                                                                       *
! * © Copyright 1976, 2006 Hewlett-Packard Development Company, L.P.      *
! *                                                                       *
! * Confidential computer software.  Valid license from HP and/or         *
! * its subsidiaries required for possession, use, or copying.            *
! *                                                                       *
! * Consistent with FAR 12.211 and 12.212, Commercial Computer Software,  *
! * Computer Software Documentation, and Technical Data for Commercial    *
! * Items are licensed to the U.S. Government under vendor's standard     *
! * commercial license.                                                   *
! *                                                                       *
! * Neither HP nor any of its subsidiaries shall be liable for technical  *
! * or editorial errors or omissions contained herein.  The information   *
! * in this document is provided "as is" without warranty of any kind and *
! * is subject to change without notice.  The warranties for HP products  *
! * are set forth in the express limited warranty statements accompanying *
! * such products.  Nothing herein should be construed as constituting an *
! * additional warranty.                                                  *
! *                                                                       *
! *************************************************************************
!
!
!
define verb cddvd
        image nla0:
        parameter p1,           label=infile, prompt="From", value (required,list,impcat,type=$infile)
        parameter p2,           label=outfile, prompt="To", value (required,type=$outfile)
        qualifier compare,      syntax=cddvd_compare, nonnegatable
        qualifier copy,         syntax=cddvd_copy, nonnegatable
        qualifier diagnostics,  syntax=cddvd_diag, nonnegatable
        qualifier inquire,      syntax=cddvd_info, nonnegatable
        qualifier information,  syntax=cddvd_info, nonnegatable
        qualifier pattern,      syntax=cddvd_pattern, nonnegatable
        qualifier warnings,     default
	qualifier zzzz,         nonnegatable, default
        disallow any2( compare, copy, inquire, information, pattern )

define type cddvd_algopts
        keyword address
        keyword ones
        keyword sequential
        keyword zeros

define type cddvd_dataopts
        keyword read
        keyword write

define type cddvd_diagopts
        keyword all
        keyword commands
        keyword details
        keyword device
        keyword failures
        keyword io
        keyword level,          value (required,type=$number)
        keyword major
        keyword performance

define type cddvd_extopts
        keyword dma
        keyword reset
        keyword trace
        keyword noavailable
        keyword nopackack

define type cddvd_ovropts
        keyword accessability

define syntax cddvd_compare
        image sys$etc:cddvd$compare
        parameter P1,           prompt="Source disk or file", value (required,type=$infile)
        parameter P2,           prompt="Target optical disk", value (required,type=$device)
        qualifier bell,         nonnegatable
        qualifier data_check,   nonnegatable, value (list,type=cddvd_dataopts)
        qualifier device_type,  nonnegatable, value (required,type=$insym)
        qualifier diagnostics,  nonnegatable, value (list,type=cddvd_diagopts)
        qualifier extensions,   nonnegatable, value (list,type=cddvd_extopts)
        qualifier dump
        qualifier log, default
        qualifier maximum_differences,  nonnegatable, value (type=$number,required)
        qualifier warnings,     default
	qualifier zzzz,         nonnegatable, default

define syntax cddvd_diag
        image sys$etc:cddvd$diag
        parameter P1,           prompt="Target device", value (required,type=$device)
        qualifier bell,         nonnegatable
        qualifier device_type,  nonnegatable, value (required,type=$insym)
        qualifier diagnostics,  nonnegatable, value (list,type=cddvd_diagopts)
        qualifier eject,        nonnegatable
        qualifier extensions,   nonnegatable, value (list,type=cddvd_extopts)
        qualifier override,     nonnegatable, value (list,type=cddvd_ovropts)
        qualifier dump
        qualifier log,          default
        qualifier warnings,     default
	qualifier zzzz,         nonnegatable, default

define type copy_blocks
        keyword start,          value (type=$number, required)
        keyword end,            value (type=$number, required)
        keyword count,          value (type=$number, required)

define syntax cddvd_copy
        image sys$etc:cddvd$copy
        parameter p1,           prompt="Source Disk", value (required,type=$device)
        parameter p2,           prompt="Target Disk", value (required,type=$device)
        qualifier blocks,       value (list,type=copy_blocks)
        qualifier bell,         nonnegatable
        qualifier confirm
        qualifier data_check,   nonnegatable, value (list,type=cddvd_dataopts)
        qualifier device_type,  nonnegatable, value (required,type=$insym)
        qualifier diagnostics,  nonnegatable, value (list,type=cddvd_diagopts)
        qualifier extensions,   nonnegatable, value (list,type=cddvd_extopts)
        qualifier dump
        qualifier log, default
        qualifier warnings,     default
	qualifier zzzz,         nonnegatable, default
        disallow any2( blocks.count, blocks.end )

define syntax cddvd_info
        image sys$etc:cddvd$info
        parameter p1,           prompt="Target Device", value (required,type=$device)
        qualifier bell,         nonnegatable
        qualifier data_check,   nonnegatable, value (list,type=cddvd_dataopts)
        qualifier device_type,  nonnegatable, value (required,type=$insym)
        qualifier diagnostics,  nonnegatable, value (list,type=cddvd_diagopts)
        qualifier extensions,   nonnegatable, value (list,type=cddvd_extopts)
        qualifier dump
        qualifier log,          default
        qualifier warnings,     default
	qualifier zzzz,         nonnegatable, default
        disallow                data_check.write

define syntax cddvd_pattern
        image sys$etc:cddvd$testpatt
        parameter p1,           prompt="Target Disk", value (required,type=$device)
        qualifier bell,         nonnegatable
        qualifier confirm
        qualifier data_check,   nonnegatable, value (list,type=cddvd_dataopts)
        qualifier device_type,  nonnegatable, value (required,type=$insym)
        qualifier diagnostics,  nonnegatable, value (list,type=cddvd_diagopts)
        qualifier dump
        qualifier extensions,   nonnegatable, value (list,type=cddvd_extopts)
        qualifier log,          default
        qualifier algorithm,    nonnegatable, value (list,type=cddvd_algopts)
        qualifier warnings,     default
	qualifier zzzz,         nonnegatable, default
        disallow                algorithm.sequential and algorithm.zeros
        disallow                algorithm.zeros and algorithm.ones
        disallow                algorithm.sequential and algorithm.ones