************************************************************************
*                                                                      *
*                                                                      *
*                       -----------------------                        *
*                       this is file QIO.PAR                           *
*                       -----------------------                        *
*                                                                      *
*                                                                      *
************************************************************************
*
*     Name: QIO functions codes parameter file
*
*     Operating System:      RSX-11M V4.2 BL38C
*     Language:              FORTRAN-77
*     Original Programmer:   R. E. K. Neitzel
*                            Rockwell International
*                            Rocky Flats Plant
*                            Process Control Applications
*                            Golden, CO 80401
*                            (303) 966-7171
*
*     Date Written:          3/3/87
*
*
*     Revisions:             Programmer    Date    Description
*                            ----------  --------  ---------------------
*                            
*
*     Description:
*           This parameter file sets out the more frequent QIO functions codes. 
*        Those marked A are valid for any device, M means mag tape only and T 
*        means the terminal driver only.
*
*
*       ---Global constants---
*       type         name          usage
*       ----         ----          -----
        INTEGER*2    IOATT        ! Attach device          A
        INTEGER*2    IODET        ! Dettach device         A
        INTEGER*2    IOKIL        ! Kill i/o               A
        INTEGER*2    IORLB        ! Read logical block     AP
        INTEGER*2    IORVB        ! Read virtual block     A
        INTEGER*2    IOWLB        ! Write logical block    AP
        INTEGER*2    IOWVB        ! Write virtual block    A
        INTEGER*2    IORWD        ! Rewind mag tape        M
        INTEGER*2    IORAL        ! Read pass all          T
        INTEGER*2    IORNE        ! Read no echo           T
        INTEGER*2    IORPR        ! Read after prompt      T
        INTEGER*2    IOWAL        ! Write pass all         T
        INTEGER*2    IOWBT        ! Write break through    T
*
        PARAMETER (IOATT = "1400)
        PARAMETER (IODET = "2000)
        PARAMETER (IOKIL = "12)
        PARAMETER (IORLB = "1000)
        PARAMETER (IORVB = "10400)
        PARAMETER (IOWLB = "400)
        PARAMETER (IOWVB = "11000)
        PARAMETER (IORWD = "2400)
        PARAMETER (IORAL = "1010)
        PARAMETER (IORNE = "1020)
        PARAMETER (IORPR = "4400)
        PARAMETER (IOWAL = "410)
        PARAMETER (IOWBT = "500)
*