github.com/simh.simh
1
0
Fork 0
mirror of https://github.com/simh/simh.git synced 2026-04-30 21:38:32 +00:00
Code Releases Activity

Update descrip.mms and pdp11_tu.c

Browse Source
This commit is contained in:
Mark Pizzolato
2012-03-23 15:51:41 -07:00
parent 63aeb04030
commit f77bc42547
2 changed files with 859 additions and 602 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
PDP11/pdp11_tu.c
View File

@@ -25,6 +25,7 @@
tu TM02/TM03 magtape tu TM02/TM03 magtape
18-Apr-11 MP Fixed t_addr printouts for 64b big-endian systems
17-May-07 RMS CS1 DVA resides in device, not MBA 17-May-07 RMS CS1 DVA resides in device, not MBA
29-Apr-07 RMS Fixed bug in setting FCE on TMK (found by Naoki Hamada) 29-Apr-07 RMS Fixed bug in setting FCE on TMK (found by Naoki Hamada)
16-Feb-06 RMS Added tape capacity checking 16-Feb-06 RMS Added tape capacity checking
@@ -466,10 +467,12 @@ UNIT *uptr;
fnc = GET_FNC (tucs1); /* get function */ fnc = GET_FNC (tucs1); /* get function */
den = GET_DEN (tutc); /* get density */ den = GET_DEN (tutc); /* get density */
uptr = tu_dev.units + drv; /* get unit */ uptr = tu_dev.units + drv; /* get unit */
if (DEBUG_PRS (tu_dev)) if (DEBUG_PRS (tu_dev)) {
fprintf (sim_deb, ">>TU%d STRT: fnc=%s, fc=%06o, fs=%06o, er=%06o, pos=%d\n", fprintf (sim_deb, ">>TU%d STRT: fnc=%s, fc=%06o, fs=%06o, er=%06o, pos=",
drv, tu_fname[fnc], tufc, tufs, tuer, uptr->pos); drv, tu_fname[fnc], tufc, tufs, tuer);
fprint_val (sim_deb, uptr->pos, 10, T_ADDR_W, PV_LEFT);
fprintf (sim_deb, "\n");
}
if ((fnc != FNC_FCLR) && /* not clear & err */ if ((fnc != FNC_FCLR) && /* not clear & err */
((tufs & FS_ERR) || sim_is_active (uptr))) { /* or in motion? */ ((tufs & FS_ERR) || sim_is_active (uptr))) { /* or in motion? */
tu_set_er (ER_ILF); /* set err */ tu_set_er (ER_ILF); /* set err */
@@ -598,7 +601,7 @@ return MBE_GOE;
/* Abort transfer */ /* Abort transfer */
t_stat tu_abort (void) int32 tu_abort (void)
{ {
return tu_reset (&tu_dev); return tu_reset (&tu_dev);
} }
@@ -786,9 +789,12 @@ if (fnc >= FNC_XFER) { /* data xfer? */
tu_update_fs (0, drv); /* update fs */ tu_update_fs (0, drv); /* update fs */
} }
else tu_update_fs (FS_ATA, drv); /* no, set attn */ else tu_update_fs (FS_ATA, drv); /* no, set attn */
if (DEBUG_PRS (tu_dev)) if (DEBUG_PRS (tu_dev)) {
fprintf (sim_deb, ">>TU%d DONE: fnc=%s, fc=%06o, fs=%06o, er=%06o, pos=%d\n", fprintf (sim_deb, ">>TU%d DONE: fnc=%s, fc=%06o, fs=%06o, er=%06o, pos=",
drv, tu_fname[fnc], tufc, tufs, tuer, uptr->pos); drv, tu_fname[fnc], tufc, tufs, tuer);
fprint_val (sim_deb, uptr->pos, 10, T_ADDR_W, PV_LEFT);
fprintf (sim_deb, "\n");
}
return SCPE_OK; return SCPE_OK;
} }

1439
descrip.mms
View File

File diff suppressed because it is too large Load Diff