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

BESM6: Using sim_fwrite for formatting.

Browse source
This commit is contained in:
Leo Broukhis 2014-12-31 10:50:21 -08:00
parent 3ddb9e9929
commit a50bd68ce5
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
BESM6/besm6_disk.c
View file

@ -204,11 +204,11 @@ t_stat disk_attach (UNIT *u, char *cptr)
for (blkno = 0; blkno < DISK_TOTBLK; ++blkno) { for (blkno = 0; blkno < DISK_TOTBLK; ++blkno) {
control[0] = SET_CONVOL((t_value)(2*blkno) << 36, CONVOL_NUMBER); control[0] = SET_CONVOL((t_value)(2*blkno) << 36, CONVOL_NUMBER);
fwrite(control, sizeof(t_value), 4, u->fileref); sim_fwrite(control, sizeof(t_value), 4, u->fileref);
control[0] = SET_CONVOL((t_value)(2*blkno+1) << 36, CONVOL_NUMBER); control[0] = SET_CONVOL((t_value)(2*blkno+1) << 36, CONVOL_NUMBER);
fwrite(control, sizeof(t_value), 4, u->fileref); sim_fwrite(control, sizeof(t_value), 4, u->fileref);
for (word = 0; word < 02000; ++word) { for (word = 0; word < 02000; ++word) {
fwrite(control+2, sizeof(t_value), 1, u->fileref); sim_fwrite(control+2, sizeof(t_value), 1, u->fileref);
} }
} }
return SCPE_OK; return SCPE_OK;