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

B5500: Updated reader/punch for new translation tables.

Browse source
This commit is contained in:
Richard Cornwell 2020-11-09 19:33:03 -05:00
parent 47dbc558a2
commit c86bd2271f
1 changed files with 14 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
B5500/b5500_urec.c
View file

@ -406,29 +406,26 @@ cdr_srv(UNIT *uptr) {
ch = 015; ch = 015;
break; break;
case 016: ch = 035; break; /* Translate = */ case 016: ch = 035; break; /* Translate = */
case 017: if (image[uptr->POS] == 0x006) /* Translate " */ case 017: ch = 037; break; /* Translate " */
ch = 037;
break;
case 036: ch = 016; break; case 036: ch = 016; break;
case 037: ch = 0; /* Handle ? */ case 037: ch = 0; /* Handle ? */
if (uptr->POS == 0) if (uptr->POS == 0)
chan_set_parity(chan); chan_set_parity(chan);
break; break;
case 052: if (image[uptr->POS] == 0x482) /* Translate ! not equal */ case 052: ch = 032; /* Translate ! not equal */
ch = 032;
break; break;
case 072: if (image[uptr->POS] == 0xA00) /* Translate [ */
ch = 074;
else
ch = 036;
break; /* Translate */
case 074: ch = 076; break; /* Translate < */ case 074: ch = 076; break; /* Translate < */
case 076: ch = 072; break; /* Translate + */ case 076: ch = 072; break; /* Translate + */
case 077: ch = 052; break; /* Translate | */
case 0177: case 0177:
if (image[uptr->POS] == 0x405) /* Translate { */ if (image[uptr->POS] == 0x805) /* Translate } */
ch = 057;
else if (image[uptr->POS] == 0x805) /* Translate } */
ch = 017; ch = 017;
else if (image[uptr->POS] == 0xE42) /* Translate ] */
ch = 036;
else if (image[uptr->POS] == 0xE82) /* Translate [ */
ch = 074;
else if (image[uptr->POS] == 0xF02) /* Translate ~ */
ch = 077;
else { else {
ch = 0; ch = 0;
/* Handle invalid punch */ /* Handle invalid punch */
@ -588,12 +585,13 @@ cdp_srv(UNIT *uptr) {
case 017: hol = 0x805; break; /* } */ case 017: hol = 0x805; break; /* } */
case 032: hol = 0x482; break; /* ! */ case 032: hol = 0x482; break; /* ! */
case 035: hol = 0X00A; break; /* = */ case 035: hol = 0X00A; break; /* = */
case 036: hol = 0x882; break; /* ] */ case 036: hol = 0xE42; break; /* ] */
case 037: hol = 0x006; break; /* " */ case 037: hol = 0x006; break; /* " */
case 057: hol = 0x405; break; /* { */ case 052: hol = 0x806; break; /* | */
case 072: hol = 0x80A; break; /* + */ case 072: hol = 0x80A; break; /* + */
case 074: hol = 0xA00; break; /* [ */ case 074: hol = 0xE82; break; /* [ */
case 076: hol = 0x822; break; /* < */ case 076: hol = 0x822; break; /* < */
case 077: hol = 0xF02; break; /* ~ */
default: default:
hol = sim_bcd_to_hol(ch & 077); hol = sim_bcd_to_hol(ch & 077);
} }