github.com/aap.pdp6
1
0
Fork 0
mirror of https://github.com/aap/pdp6.git synced 2026-01-30 21:42:13 +00:00
Code Issues Releases Wiki Activity

lots of additions and changes

Browse Source
This commit is contained in:
aap
2019-12-05 00:31:20 +01:00
parent 207c7fde95
commit 716317c8ce
35 changed files with 3156 additions and 93 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
fe6/fe.c
View File

@@ -87,6 +87,7 @@ enum {
MODE_ASCII,
MODE_SIXBIT,
MODE_SQUOZE,
MODE_FLOAT,
/* flags */
CF = 1, // one altmode
@@ -404,6 +405,7 @@ prword(int mode, word wd)
int i;
char c;
char s[7];
double f;
switch(mode){
case MODE_ASCII:
@@ -453,6 +455,12 @@ prword(int mode, word wd)
typenum((wd>>18)&0777777);
break;
case MODE_FLOAT:
f = pdptod(wd);
printf("%lf", f);
fflush(stdout);
break;
default:
typenum(wd);
}
@@ -553,12 +561,14 @@ quit(void)
int started;
int
main()
threadmain(int argc, char *argv[])
{
char chu;
word t;
init6();
initcrt("soma");
// initnetmem("10.0.0.222", 10006);
raw(0);
erasec = tiosaved.c_cc[VERASE];
@@ -603,6 +613,7 @@ main()
typestr("/ ");
t = examine(t);
prword(MODE_SYM, t);
q = t;
typestr(" ");
started = 0;
@@ -898,6 +909,9 @@ main()
case '=':
typeout(MODE_NUM);
break;
case ';':
typeout(MODE_FLOAT);
break;
case '"':
if(flags & CF)
modechange(MODE_ASCII);