From 8fac03950e0f29fdeb514f3c5732b032b38ee1f2 Mon Sep 17 00:00:00 2001 From: Lars Brinkhoff Date: Sat, 29 Jun 2019 21:33:27 +0200 Subject: [PATCH] Copy files to KL10 front end file directory. DUMP refuses to write files to the .KLFE. directory, so the -READ- -THIS- file is stored in .TEMP. on the tape and later moved to .KLFE. --- Makefile | 2 +- build/build.tcl | 5 ++ build/ka10/include.tcl | 3 + build/kl10/include.tcl | 6 ++ build/ks10/include.tcl | 3 + build/misc.tcl | 84 +++++++++++++++------------- doc/{_klfe_ => _temp_}/-read-.-this- | 0 7 files changed, 63 insertions(+), 40 deletions(-) rename doc/{_klfe_ => _temp_}/-read-.-this- (100%) diff --git a/Makefile b/Makefile index 0380c91f..fb54a62e 100644 --- a/Makefile +++ b/Makefile @@ -33,7 +33,7 @@ DOC = info _info_ sysdoc sysnet syshst kshack _teco_ emacs emacs1 c kcc \ chprog sail draw wl pc tj6 share _glpr_ _xgpr_ inquir mudman system \ xfont maxout ucode moon acount alan channa fonts games graphs humor \ kldcp libdoc lisp _mail_ midas quux scheme manual wp chess ms macdoc \ - aplogo _klfe_ pdp11 chsncp cbf rug bawden llogo eak clib teach pcnet \ + aplogo _temp_ pdp11 chsncp cbf rug bawden llogo eak clib teach pcnet \ combat pdl minits mits_s chaos hal -pics- imlac maint cent ksc klh BIN = sys sys1 sys2 emacs _teco_ lisp liblsp alan inquir sail comlap \ c decsys graphs draw datdrw fonts fonts1 fonts2 games macsym \ diff --git a/build/build.tcl b/build/build.tcl index 1dff265f..0693f2ab 100644 --- a/build/build.tcl +++ b/build/build.tcl @@ -139,6 +139,11 @@ proc mkdir {name} { type ":vk\r" } +proc move_to_klfe {file} { + copy_to_klfe $file + respond "*" ":delete $file\r" +} + set ip [ip_address [lindex $argv 0]] set gw [ip_address [lindex $argv 1]] diff --git a/build/ka10/include.tcl b/build/ka10/include.tcl index f7ad920d..0cae9d49 100644 --- a/build/ka10/include.tcl +++ b/build/ka10/include.tcl @@ -213,3 +213,6 @@ proc patch_clib_16 {} { respond " " "c; \[clib\] 16\r" respond "*" ":kill\r" } + +proc copy_to_klfe {file} { +} diff --git a/build/kl10/include.tcl b/build/kl10/include.tcl index fe1cbf32..1af41948 100644 --- a/build/kl10/include.tcl +++ b/build/kl10/include.tcl @@ -155,6 +155,7 @@ proc bootable_tapes {} { } proc update_microcode {} { + copy_to_klfe "ucode;u1 ram" } proc clib_switches {} { @@ -189,3 +190,8 @@ proc patch_clib_16 {} { respond " " "c; \[clib\] 16\r" respond "*" ":kill\r" } + +proc copy_to_klfe {file} { + respond "*" ":klfedr write $file\r" + expect ":KILL" +} diff --git a/build/ks10/include.tcl b/build/ks10/include.tcl index 5dd7311e..21637547 100644 --- a/build/ks10/include.tcl +++ b/build/ks10/include.tcl @@ -202,3 +202,6 @@ proc translate_diagnostics {} { proc patch_clib_16 {} { } + +proc copy_to_klfe {file} { +} diff --git a/build/misc.tcl b/build/misc.tcl index 0294f0d5..bca365c1 100644 --- a/build/misc.tcl +++ b/build/misc.tcl @@ -1132,43 +1132,6 @@ type ":kill\r" respond "*" ":midas dsk0:maint;_tst342\r" expect ":KILL" -# KL10 microcode assembler -respond "*" ":midas sysbin;_syseng;micro\r" -expect ":KILL" -respond "*" ":job micro\r" -respond "*" ":load sysbin; micro bin\r" -respond "*" ":start purify\r" -respond "TS MICRO" "sys; ts micro\r" -respond "*" ":kill\r" - -# Microcode ASCIIzer and binarator converter. -respond "*" ":midas sysbin;_syseng;cnvrt\r" -expect ":KILL" -respond "*" ":link sys1;ts mcnvrt,sysbin;cnvrt bin\r" -respond "*" ":link sys1;ts pcnvrt,sysbin;cnvrt bin\r" -respond "*" ":link sys1;ts ucnvrt,sysbin;cnvrt bin\r" -respond "*" ":link sys1;ts acnvrt,sysbin;cnvrt bin\r" - -# KS10 microcode assembler -respond "*" ":midas kshack;ts micro_micro\r" -expect ":KILL" - -# KL10 microcode. -respond "*" ":micro ucode;u1=ucode;its,define,macro,basic,skpjmp,shift,arith,fp,byte,io,eis,blt\r" -expect ":KILL" -respond "*" ":ucnvrt ucode; u1\r" -expect ":KILL" -# Write the RAM file to the front end filesystem: -# :klfedr write ucode;u1 ram - -# KS10 microcode. -# It doesn't seem to work very well when purified. -respond "*" ":kshack;micro kshack;mcr 262=kshack;its,ks10,simple,flt,extend,inout,itspag,pagef\r" -expect ":KILL" -respond "*" ":copy kshack; mcr ram, .; ram ram\r" - -update_microcode - # KNS10, KS10 console respond "*" ":cwd kshack\r" respond "*" ":cross\r" @@ -1544,6 +1507,50 @@ expect ":KILL" respond "*" ":midas sys1;ts klfedr_syseng;klfedr\r" expect ":KILL" +mkdir ".klfe." +respond "*" ":move .temp.; -read- -this-, .klfe.;\r" +copy_to_klfe "kldcp; kldcp hlp" + +# KL10 microcode assembler +respond "*" ":midas sysbin;_syseng;micro\r" +expect ":KILL" +respond "*" ":job micro\r" +respond "*" ":load sysbin; micro bin\r" +respond "*" ":start purify\r" +respond "TS MICRO" "sys; ts micro\r" +respond "*" ":kill\r" + +# Microcode ASCIIzer and binarator converter. +respond "*" ":midas sysbin;_syseng;cnvrt\r" +expect ":KILL" +respond "*" ":link sys1;ts mcnvrt,sysbin;cnvrt bin\r" +respond "*" ":link sys1;ts pcnvrt,sysbin;cnvrt bin\r" +respond "*" ":link sys1;ts ucnvrt,sysbin;cnvrt bin\r" +respond "*" ":link sys1;ts acnvrt,sysbin;cnvrt bin\r" + +respond "*" ":mcnvrt .; @ ddt\r" +expect ":KILL" +respond "*" ":rename .; @ a10, ddt a10\r" +move_to_klfe ".; ddt a10" + +# KS10 microcode assembler +respond "*" ":midas kshack;ts micro_micro\r" +expect ":KILL" + +# KL10 microcode. +respond "*" ":micro ucode;u1=ucode;its,define,macro,basic,skpjmp,shift,arith,fp,byte,io,eis,blt\r" +expect ":KILL" +respond "*" ":ucnvrt ucode; u1\r" +expect ":KILL" + +# KS10 microcode. +# It doesn't seem to work very well when purified. +respond "*" ":kshack;micro kshack;mcr 262=kshack;its,ks10,simple,flt,extend,inout,itspag,pagef\r" +expect ":KILL" +respond "*" ":copy kshack; mcr ram, .; ram ram\r" + +update_microcode + # KL10 front end dumper respond "*" ":midas dsk0:.;@ fedump_kldcp; fedump\r" expect ":KILL" @@ -1636,8 +1643,7 @@ respond "FILENAME" ".temp.; ioelev bin\r" expect ":KILL" respond "*" ":pcnvrt .temp.; ioelev bin\r" expect ":KILL" -# Write the file to the front end filesystem: -# :klfedr write .temp.; ioelev a11 +move_to_klfe ".temp.; ioelev a11" # The KL10 "MX-DL" IOELEV won't assemble due to CHADD being undefined. # Maybe roll back to IOELEV 431, or fix it in new version 433. Maybe diff --git a/doc/_klfe_/-read-.-this- b/doc/_temp_/-read-.-this- similarity index 100% rename from doc/_klfe_/-read-.-this- rename to doc/_temp_/-read-.-this-