$save nolist
/*
 * Name: iors.lit  --   I/O Request/Result Segment
 *
 */

$IF r_32
			/* 32 bit declaration */
DECLARE
	IORS$PART$ONE LITERALLY
	   'status       WORD,
	    unit$status  WORD,
	    actual       DWORD,
	    device       WORD,
	    unit         BYTE,
	    funct        BYTE,
	    subfunct     WORD,
	    dev$loc      DWORD,
	    buff$p       POINTER',
	IORS$PART$TWO LITERALLY
	   'count        DWORD,
	    aux$p        POINTER,
	    link$for     POINTER,
	    link$back    POINTER,
	    resp$mbox    MAILBOX,
	    done         BOOLEAN,
	    iors$fill    BYTE,
	    cancel$id    TOKEN,
	    conn$t       TOKEN',
	IO$REQ$RES$SEG LITERALLY 'STRUCTURE(
	    IORS$PART$ONE,
	    IORS$PART$TWO)';

/*
 * Define number of actual bytes of data (i.e., before links)
 */

DECLARE
	IORS$DATA$SIZE    LITERALLY '34';

$ELSE
			/* 16 bit declaration */
DECLARE
	IORS$PART$ONE LITERALLY
	   'status       WORD,
	    unit$status  WORD,
	    actual       WORD,
	    actual$fill  WORD,
	    device       WORD,
	    unit         BYTE,
	    funct        BYTE,
	    subfunct     WORD,
	    dev$loc      DWORD,
	    buff$p       POINTER',
	IORS$PART$TWO LITERALLY
	   'count        WORD,
	    count$fill   WORD,
	    aux$p        POINTER,
	    link$for     POINTER,
	    link$back    POINTER,
	    resp$mbox    MAILBOX,
	    done         BOOLEAN,
	    iors$fill    BYTE,
	    cancel$id    TOKEN,
	    conn$t       TOKEN',
	IO$REQ$RES$SEG LITERALLY 'STRUCTURE(
	    IORS$PART$ONE,
	    IORS$PART$TWO)';

/*
 * Define number of actual bytes of data (i.e., before links)
 */

DECLARE
	IORS$DATA$SIZE    LITERALLY '30';

$ENDIF


DECLARE
        F$READ              LITERALLY '0',
        F$WRITE             LITERALLY '1',
        F$SEEK              LITERALLY '2',
        F$SPECIAL           LITERALLY '3',
        F$ATTACH$DEV        LITERALLY '4',
        F$DETACH$DEV        LITERALLY '5',
        F$OPEN              LITERALLY '6',
        F$CLOSE             LITERALLY '7',
        F$GETCS             LITERALLY '8',
        F$GETFS             LITERALLY '9',
        F$GETEXT            LITERALLY '10',
        F$SETEXT            LITERALLY '11',
        F$NULL$CH$ACCESS    LITERALLY '12',
        F$NULL$DELETE       LITERALLY '13',
        F$RENAME            LITERALLY '14',
        F$GET$PATH$COMP     LITERALLY '15',
        F$GET$DIR$ENTRY     LITERALLY '16',
        F$TRUNC             LITERALLY '17',
        F$DETACH            LITERALLY '18',

        F$NUM$FUNCT         LITERALLY '19';

/*
 * Function codes for internal use only.
 * The rq$common$attach and common$io$task use F$ATTACH$THRU.
 * The req$update and common$io$task use F$UPDATE.
 */

DECLARE
        F$ATTACH$THRU   LITERALLY '19',
        F$UPDATE        LITERALLY '20';

$restore