$SAVE NOLIST rq$a$physical$detach$device: PROCEDURE( connection$t, hard, resp$mbox, except$ptr ) EXTERNAL; DECLARE connection$t TOKEN, hard BYTE, resp$mbox TOKEN, except$ptr POINTER; END rq$a$physical$detach$device; $RESTORE