
  PROCEDURE [XREF] bap$get_device_class
    (    path_handle: fmt$path_handle;
     VAR device_assigned: boolean;
     VAR device_class: rmt$device_class;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc fmt$path_handle
*copyc ost$status
*copyc rmt$device_class
?? POP ??
