github.com/rcornwell.sims
1
0
Fork 0
mirror of https://github.com/rcornwell/sims.git synced 2026-02-02 06:41:52 +00:00
Code Releases Activity

IBM360: Added command that VM/370 used to detect new disk.

Browse Source
This commit is contained in:
Richard Cornwell
2020-12-22 20:39:08 -05:00
parent d132e80982
commit 5437b534a8
1 changed files with 15 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
IBM360/ibm360_dasd.c
View File

@@ -99,6 +99,7 @@
#define DK_ERASE 0x11 /* Erase to end of track */
#define DK_RD_SECT 0x22 /* Read sector counter */
#define DK_SETSECT 0x23 /* Set sector */
#define DK_RD_BUFF 0xA4 /* Read and reset record log */
#define DK_MT 0x80 /* Multi track flag */
/* u3 */
@@ -1812,6 +1813,20 @@ wrckd:
chan_end(addr, SNS_CHNEND|SNS_DEVEND);
break;
case DK_RD_BUFF & 0x7f:
if (disk_type[type].sen_cnt > 6 && (cmd = uptr->CMD & 0xff) == DK_RD_BUFF) {
ch = 0;
for (i = 0; i < 32; i++) {
if (chan_write_byte(addr, &ch))
break;
}
uptr->LCMD = 0;
uptr->CMD &= ~(0xff);
chan_end(addr, SNS_CHNEND|SNS_DEVEND);
break;
}
/* Fall through */
case DK_SPACE: /* Space record */
/* Not implemented yet */
default: