github.com/rcornwell.sims
1
0
Fork 0
mirror of https://github.com/rcornwell/sims.git synced 2026-01-19 01:18:10 +00:00
Code Releases Activity

I7000: Added load mode support to the I7070 simulator.

Browse Source
This commit is contained in:
Richard Cornwell 2017-01-08 15:01:14 -05:00
parent 48bdb87b17
commit bd83b1f2be
3 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
I7000/i7000_cdr.c
View File

@ -238,6 +238,7 @@ cdr_srv(UNIT *uptr) {
/* Check if load card. */
if (uptr->capac && (data->image[uptr->capac-1] & 0x800)) {
uptr->u5 |= URCSTA_LOAD;
chan_set_load_mode(chan);
} else {
uptr->u5 &= ~URCSTA_LOAD;
}
@ -278,6 +279,13 @@ cdr_srv(UNIT *uptr) {
ch = 017;
#endif
}
#ifdef I7070
/* During load, only sign on every 10 columns */
if (uptr->u5 & URCSTA_LOAD && (uptr->u4 % 10) != 9)
ch &= 0xf;
#endif
switch(chan_write_char(chan, &ch, (uptr->u4 == 79)? DEV_REOR: 0)) {
case TIME_ERROR:
case END_RECORD:

1
I7000/i7000_defs.h
View File

@ -391,6 +391,7 @@ void chan_set_attn_a(int chan);
void chan_set_attn_b(int chan);
void chan_set_attn_inq(int chan);
void chan_clear_attn_inq(int chan);
void chan_set_load_mode(int chan);
#endif
#ifdef I7080

7
I7000/i7070_chan.c
View File

@ -1555,6 +1555,13 @@ done:
return DATA_OK;
}
void
chan_set_load_mode(int chan)
{
cmd[chan] &= ~CHN_ALPHA;
cmd[chan] |= CHN_NUM_MODE;
}
void
chan9_set_error(int chan, uint32 mask)
{