{   This procedure is called to write a tape mark on a tape file.
{
{   Tape I/O errors are indicated by both an abnormal status and a value in
{ the tape_failure_isolation.  If an error is detected on a previously written
{ block which was buffered, a status condition of
{ BAE$WRITE_ERROR_PREVIOUS_BLOCK will be returned.  If the error is detected
{ on the block being written by this call the condition is
{ BAE$WRITE_ERROR_THIS_BLOCK.  If media_recovery is TRUE, the tape will be
{ positioned just before the tapemark just (improperly) written.  IF
{ media_recovery is FALSE, the tape will be left positioned after the bad
{ tapemark.
{
{   Recovery from a write error depends upon when the error is detected.  If
{ the error occured on the block just written the caller may be able to take
{ action to avoid the error (such as a backspace and a call to
{ BAP$TAPE_BM_ERASE_BLOCK) and re-write the tapemark.  It may also be
{ reasonable to retry the write with system_media_recovery.  If the error
{ occured on some previous block there is very little that can be done to
{ correct just the one block.  If an error free tape is desired the tape must
{ be rewound (or repositioned to some place that the caller knows is before
{ any error, such as the location where the tape was opened) and begin again
{ from there.
{
{ NOTE:  Calling this procedure implicitly releases any tape block buffer
{       reservation.
{
{       BAP$TAPE_BM_WRITE_TAPE_MARK(FILE_IDENTIFIER, MEDIA_RECOVERY,
{       FORCED_WRITE, FAILURE_MODES, STATUS)
{
{   FILE_IDENTIFIER (Input):  The file identifier for the file.
{
{  MEDIA_RECOVERY:  (Input) TRUE to have the system attempt recovery from
{        media errors encountered when writing this tape mark.  FALSE to
{        suppress any attempt by the system to recover from media errors.
{
{  FORCE_WRITE:  (Input) TRUE forces the tape mark and any buffered blocks or
{        tape marks to be written to tape before the procedure returns.  FALSE
{        allows block management to buffer the write to allow greater
{        efficiency.
{
{  FAILURE_ISOLATION:  (Output) Detailed information on any tape I/O error.
{
{  STATUS: (output) Request status.
