$save nolist
    /*
     * Name: radsf.lit  --   Random-Access driver Special-Function Mnemonics.
     *
     */

    DECLARE
        FS$FORMAT$TRACK    LITERALLY '0';        /* format a track */

    /*
     *    Format info structure to format one track on
     *    a disk(hard or floppy)
     *    used by 204 & 206 drivers
     */

    DECLARE
        FORMAT$INFO$STRUCT      LITERALLY 'STRUCTURE(
            track$num           WORD,
            track$interleave    WORD,
            track$skew          WORD,
            fill$char           BYTE)';

    /*
     *    Device label special function.  Asks driver to supply
     *    device information for named file label.
     */

    DECLARE
        FS$DEVICE$LABEL     LITERALLY '3';

    /*
     *    Special tape functions.
     */

    DECLARE
        FS$REWIND           LITERALLY '7',
        FS$RESET            LITERALLY '7',
        FS$READ$FILE$MARK   LITERALLY '8',
        FS$WRITE$FILE$MARK  LITERALLY '9',
        FS$RETENSION        LITERALLY '10';

    /*
     *    Special bad track/sector information functions
     */

    DECLARE
        FS$SET$BAD$INFO     LITERALLY '12',
        FS$GET$BAD$INFO     LITERALLY '13';

    /*
     *    Bad track/sector Information block structures
     *    used by 215 & 218 drivers
     *
     */

    DECLARE
        BAD$INFO$HEADER$STRUCT  LITERALLY 'STRUCTURE(
            bad$info$valid      WORD,
            num$bad$info        WORD)',
        BAD$INFO$STRUCT         LITERALLY 'STRUCTURE(
            bad$cylinder        WORD,
            bad$surface         BYTE,
            bad$sector          BYTE)';

/*
 * special function to return device specific status
 * - supported by PCI drivers
 */
DECLARE
	FS$DEV$SPEC$STATUS		LITERALLY	'14';

DECLARE
	READ$FM$STRUCT	LITERALLY  'STRUCTURE(
			search		BYTE,
			file$count	WORD)';

$restore