$SAVE NOLIST

rq$s$read$move:  PROCEDURE( connection$t,
                            buf$ptr,
                            bytes$desired,
                            except$ptr ) WORD EXTERNAL;

DECLARE connection$t  TOKEN,
        buf$ptr       POINTER,
        bytes$desired WORD,
        except$ptr    POINTER;

END rq$s$read$move;

$RESTORE