1
0
mirror of https://github.com/rcornwell/sims.git synced 2026-01-21 10:12:30 +00:00

KA10: Fixed attach -a option.

This commit is contained in:
Richard Cornwell 2020-03-22 15:05:46 -04:00
parent edb8bbeceb
commit 02fdb12af9
2 changed files with 2 additions and 0 deletions

View File

@ -1182,6 +1182,7 @@ t_stat dt_attach (UNIT *uptr, CONST char *cptr)
sim_printf ("16b format");
else sim_printf ("18b/36b format");
sim_printf (", buffering file in memory\n");
(void)sim_fseek (uptr->fileref, 0, SEEK_SET); /* start at the beginning of file */
uptr->io_flush = dt_flush;
if (uptr->flags & UNIT_8FMT) { /* 12b? */
for (ba = 0; ba < uptr->capac; ) { /* loop thru file */

View File

@ -1194,6 +1194,7 @@ dtc_attach (UNIT *uptr, CONST char *cptr)
sim_printf ("16b format");
else sim_printf ("18b/36b format");
sim_printf (", buffering file in memory\n");
(void)sim_fseek (uptr->fileref, 0, SEEK_SET); /* start at the beginning of file */
uptr->WRITTEN = 0;
uptr->io_flush = dtc_flush;
if (uptr->flags & UNIT_8FMT) { /* 12b? */