$SAVE NOLIST

dq$read:  PROCEDURE( conn,
                     buff$ptr,
                     count,
                     except$ptr ) WORD EXTERNAL;

DECLARE conn            TOKEN,
        buff$ptr        POINTER,
        count           WORD,
        except$ptr      POINTER;

END dq$read;

$RESTORE