folkert/simh-testsetgenerator
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

sigma: Fix MT tape mark error handling

Browse source 
revised error handling failed to set tape mark status on space file
forward/reverse.
This commit is contained in:
Ken Rector 2022-07-23 16:52:50 -07:00 • committed by Mark Pizzolato
parent debde9a0a3
commit 6b544073ae
2 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
sigma/sigma_bugs.txt
View file

@ -121,6 +121,7 @@
115. MT: error handling not consistent. 115. MT: error handling not consistent.
116: IO: dangling else in write direct mode 1 code causes incorrect behavior. 116: IO: dangling else in write direct mode 1 code causes incorrect behavior.
117: CPU: sim_interval is decremented before breakpoint test, which is incorrect. 117: CPU: sim_interval is decremented before breakpoint test, which is incorrect.
118. MT: revised error handling failed to set tape mark status on space file forward/reverse.
Diagnostic Notes Diagnostic Notes

3
sigma/sigma_mt.c
View file

@ -25,6 +25,7 @@
mt 7320 and 7322/7323 magnetic tape mt 7320 and 7322/7323 magnetic tape
20-Jul-22 RMS Space record must set EOF flag on tape mark (Ken Rector)
03-Jul-22 RMS Fixed error in handling of channel errors (Ken Rector) 03-Jul-22 RMS Fixed error in handling of channel errors (Ken Rector)
02-Jul-22 RMS Fixed bugs in multi-unit operation 02-Jul-22 RMS Fixed bugs in multi-unit operation
07-Jun-22 RMS Removed unused variables (V4) 07-Jun-22 RMS Removed unused variables (V4)
@ -380,6 +381,7 @@ switch (cmd) { /* case on command */
if (CHS_IFERR (st)) /* chan or SCP err? */ if (CHS_IFERR (st)) /* chan or SCP err? */
return mt_chan_err (dva, st); /* uend and stop */ return mt_chan_err (dva, st); /* uend and stop */
} }
uptr->UST |= MTDV_EOF; /* set eof */
break; break;
case MCM_SBKF: /* space rev file */ case MCM_SBKF: /* space rev file */
@ -389,6 +391,7 @@ switch (cmd) { /* case on command */
if (CHS_IFERR (st)) /* chan or SCP err? */ if (CHS_IFERR (st)) /* chan or SCP err? */
return mt_chan_err (dva, st); /* uend and stop */ return mt_chan_err (dva, st); /* uend and stop */
} }
uptr->UST |= MTDV_EOF; /* set eof */
break; break;
case MCM_WTM: /* write eof */ case MCM_WTM: /* write eof */