{
{   The purpose of this procedure is to make a work station file behave  as  a
{ local  mass storage file. When a work station file is used as an input file,
{ this procedure first copies the file from the work station to a  local  mass
{ storage  file,  and then diverts amp$get requests to that local file. When a
{ work station file is used as an output file, this procedure creates a  local
{ mass storage file and diverts amp$put requests to that local file. Then when
{ that output file is closed, this procedure copies that local file out to the
{ work station.
{
{   The command language recognizes (by analyzing the path name) when  a  file
{ reference  refers  to a work station file. For such files, a device class is
{ established such that the code in this procedure is  executed  whenever  the
{ file is referenced via calls to amp$ bam procedures.
{
{
{       BAP$WORK_STATION_DEVICE (FILE_IDENTIFIER, CALL_BLOCK, LAYER_NUMBER,
{         STATUS)
{
{ FILE_IDENTIFIER: (input) This parameter specifies the file access identifier
{       established when the file was opened.
{
{ CALL_BLOCK:  (input)  This parameter specifies the call block that describes
{       the request to be performed.
{
{ LAYER_NUMBER: (input) This  parameter  specifies  the  index  into  the  fap
{       control information for this layer.
{
{ STATUS: (output) This parameter specifies the request status.
{
