From 078fc0a18a0c7ceec2f779396a730959737a2f64 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Thu, 18 Feb 2021 13:35:59 +0100
Subject: [PATCH] Move build of processor-specific programs.

KA10 specific programs: DECtape tools, programs related to the Rubin
10-11 interface (including the Knight TV), programs using the 340
display, and programs using the PDP-6.

KL10 specific programs: microcode, frontend programs, and LSPEED.

KS10 specific programs: microcode, frontend programs, MTBOOT, and TENTH.
---
 build/basics.tcl         |  11 +-
 build/build.tcl          |   1 +
 build/ka10/include.tcl   |  24 +--
 build/ka10/processor.tcl | 260 +++++++++++++++++++++++++
 build/kl10/include.tcl   |  11 +-
 build/kl10/processor.tcl | 157 +++++++++++++++
 build/ks10/include.tcl   |  22 +--
 build/ks10/processor.tcl |  36 ++++
 build/lisp.tcl           |  10 +-
 build/misc.tcl           | 400 +--------------------------------------
 src/channa/rakash.namdrg |   1 -
 src/channa/rakash.tvfix  |   1 -
 12 files changed, 474 insertions(+), 460 deletions(-)
 create mode 100644 build/ka10/processor.tcl
 create mode 100644 build/kl10/processor.tcl
 create mode 100644 build/ks10/processor.tcl
 delete mode 120000 src/channa/rakash.namdrg
 delete mode 120000 src/channa/rakash.tvfix

diff --git a/build/basics.tcl b/build/basics.tcl
index 8ce207d0..3a82ff95 100644
--- a/build/basics.tcl
+++ b/build/basics.tcl
@@ -158,9 +158,6 @@ respond "*" ":midas device;jobdev loss_syseng;loss\r"
 expect ":KILL"
 respond "*" ":link device;jobdev los,device;jobdev loss\r"
 
-respond "*" ":midas kshack;ts mtboot_kshack;mtboot\r"
-expect ":KILL"
-
 respond "*" ":midas syshst;_syshst;hosts3\r"
 expect ":KILL"
 respond "*" ":link syshst;ts hosts3,syshst;hosts3 bin\r"
@@ -300,12 +297,6 @@ respond "*" ":link sys2;ts n,sys;ts name\r"
 respond "*" ":link device;tcp syn117,sys;ts name\r"
 respond "*" ":link device;chaos name,sys;ts name\r"
 
-# Name Dragon
-respond "*" ":link syseng;tvkbd rooms, sysen2;\r"
-type ":vk\r"
-respond "*" ":midas sysbin;_sysen2;namdrg\r"
-expect ":KILL"
-
 respond "*" ":midas device;atsign mldev_sysen2;mldev\r"
 expect ":KILL"
 
@@ -360,3 +351,5 @@ expect ":KILL"
 # GT40 boot ROM.
 respond "*" ":palx gt40;_gt40;bootvt\r"
 expect ":KILL"
+
+processor_basics
diff --git a/build/build.tcl b/build/build.tcl
index 26b187d6..8f5dc460 100644
--- a/build/build.tcl
+++ b/build/build.tcl
@@ -173,6 +173,7 @@ source $build/basics.tcl
 
 if {$env(BASICS)!="yes"} {
     source $build/misc.tcl
+    source $build/$cpu/processor.tcl
     source $build/lisp.tcl
     if {$env(MACSYMA)=="yes"} {
 	source $build/macsyma.tcl
diff --git a/build/ka10/include.tcl b/build/ka10/include.tcl
index 0d9ef269..41124137 100644
--- a/build/ka10/include.tcl
+++ b/build/ka10/include.tcl
@@ -1,6 +1,7 @@
 #Default ITS name for KA10.
 set mchn "KA"
 
+set cpu "ka10"
 set salv "salv"
 
 proc start_dskdmp_its {} {
@@ -183,26 +184,6 @@ proc clib_switches {} {
     respond "with ^C" "\003"
 }
 
-proc patch_lisp {} {
-    respond "*" ":job lisp\r"
-    respond "*" ":load .; @ lisp\r"
-    respond "*" "33777//\031"
-    respond "*" "\033q\033,777777\033\033z"
-    respond "*" "pitele+13/"
-    respond "FSC" "push p,b\n"
-    respond "FSC" "jrst patch\r"
-    respond "\n" "patch/"
-    respond "0" "move b,echocc\n"
-    respond "0" "add b,ticc\n"
-    respond "0" "dpb b,.+3\n"
-    respond "0" "pop p,b\n"
-    respond "0" "jrst pitele+15\n"
-    respond "0" "331000,,a\r"
-    respond "\n" "\033y"
-    respond " " "dsk0:.;@ lisp\r"
-    respond "*" ":kill\r"
-}
-
 proc translate_diagnostics {} {
     respond "*" "\033\024"
     respond " " "dsk: maint; part f, part f.old\r"
@@ -238,3 +219,6 @@ proc comsat_switches {} {
 proc dqxdev_switches {} {
     respond "Limit to KA-10 instructions" "y\r"
 }
+
+proc processor_basics {} {
+}
diff --git a/build/ka10/processor.tcl b/build/ka10/processor.tcl
new file mode 100644
index 00000000..0e51b41e
--- /dev/null
+++ b/build/ka10/processor.tcl
@@ -0,0 +1,260 @@
+log_progress "ENTERING BUILD SCRIPT: PROCESSOR"
+
+# Programs particular to the KA10 processor.
+
+# macdmp, PDP-10 hardware read in, with 340 support.
+respond "*" ":midas;77\r"
+respond "MIDAS.77" ".;MACDMP RIM10_SYSENG; MACDMP MOBY1\r"
+expect ":KILL"
+# macdmp, PDP-6 read in hack.
+respond "*" ":midas;77\r"
+respond "MIDAS.77" ".;MACDMP RIM2_SYSENG; MACDMP 6U32\r"
+expect ":KILL"
+
+# system gen
+respond "*" ":midas;324 dsk0:.;@ sysgen_syseng; system gen\r"
+expect ":KILL"
+
+# mark
+respond "*" ":midas;324 dsk0:.;@ mark_syseng; mark\r"
+expect ":KILL"
+
+# utnam
+respond "*" ":midas sys3; ts utnam_lars; utnam\r"
+expect ":KILL"
+
+# Name Dragon
+respond "*" ":link syseng;tvkbd rooms, sysen2;\r"
+type ":vk\r"
+respond "*" ":midas sysbin;_sysen2;namdrg\r"
+expect ":KILL"
+respond "*" ":link channa;rakash namdrg, sysbin; namdrg bin;\r"
+type ":vk\r"
+
+# STUFF
+respond "*" ":midas sys1;ts stuff_sysen2;stuff\r"
+expect ":KILL"
+respond "*" ":link channa;rakash tvfix, sys1; ts stuff;\r"
+type ":vk\r"
+
+# IOELEV, PDP-11 doing I/O for the PDP-10 host.
+# The "AI" IOELEV, also known as CHAOS-11.
+# STUFF prefers to have it in the "." directory.
+respond "*" ":palx dsk0:.;_system;ioelev\r"
+respond "MACHINE NAME =" "AI\r"
+expect ":KILL"
+
+# TV-11.  STUFF prefers it to be in the "." directory.
+respond "*" ":palx dsk0:.;_system;tv\r"
+expect ":KILL"
+
+# XGP-11.  STUFF prefers it to be SYSBIN; VXGP BIN.
+respond "*" ":palx sysbin;vxgp bin_sysen2;xgp\r"
+expect ":KILL"
+
+# CCONS.  STUFF prefers it to be in the CONS directory.
+mkdir "cons"
+respond "*" ":palx cons;_lmcons;ccons\r"
+expect ":KILL"
+
+# Old Spacewar
+respond "*" ":cwd spcwar\r"
+respond "*" ":midas;324 spcwar; war\r"
+expect ":KILL"
+respond "*" ":midas spcwar; stars\r"
+expect ":KILL"
+respond "*" ":midas;324 spcwar; math\r"
+expect ":KILL"
+respond "*" ":stink\r"
+respond "\n" "mspcwar; war\033l\033\033"
+respond "\n" "mstars\033l\033\033"
+respond "\n" "mmath\033l\033\033"
+respond "\n" "jwar\033d\033\033"
+respond "\n" "\033y"
+respond " " "dsk0:.;@ war\r"
+respond "*" ":kill\r"
+
+# Spacewar, standalone
+respond "*" ":midas;324 dsk0:.;@ spcwar_spcwar; spcwar\r"
+respond "ITS version" "NO\r"
+respond "interrupt" "NO\r"
+respond "ships" "\r"
+respond "designs" "\r"
+respond "suns" "\r"
+respond "recording" "\r"
+expect ":KILL"
+
+# Spacewar, timesharing
+respond "*" ":midas games;ts spcwar_spcwar; spcwar\r"
+respond "ITS version" "YES\r"
+respond "ships" "\r"
+respond "designs" "\r"
+respond "suns" "\r"
+expect ":KILL"
+
+# PDP-6/10 Dazzle Dart
+respond "*" ":midas games;ts dazdrt_klh; dazdrt\r"
+respond "Run under ITS?" "YES\r"
+expect ":KILL"
+respond "*" ":midas;324 dsk0:.;@ dazdrt_klh; dazdrt\r"
+respond "Run under ITS?" "NO\r"
+expect ":KILL"
+
+# Knight TV Spacewar
+respond "*" ":midas gjd;_swr data\r"
+expect ":KILL"
+respond "*" ":job swr\r"
+respond "*" ":load gjd; swr bin\r"
+respond "*" "first\033,last\033\060ygjd; swr ships\r"
+respond "*" ":kill\r"
+respond "*" ":midas games;ts tvwar_spcwar; tvwar\r"
+expect ":KILL"
+
+# Dump TV bitmap as XGP scan file.
+# TVREAD expects the binary in BKPH.
+respond "*" ":midas bkph; ts zap_zap\r"
+expect ":KILL"
+
+# View bitmap file on TV.
+respond "*" ":midas sys2; ts tvread_vis; tvread\r"
+expect ":KILL"
+
+# Save TV display as bitmap file.
+respond "*" ":midas sys2; ts tvwrit_sysen2; tvwrit\r"
+expect ":KILL"
+
+# Save TV display as text file.
+respond "*" ":midas sys2; ts record_sysen2; record\r"
+expect ":KILL"
+
+# TV paint program.
+respond "*" ":midas sys2; ts tvedit_sysen2; tvedit\r"
+expect ":KILL"
+
+# KLH's Knight TV clock.
+respond "*" ":midas klh; ts tinyw_klh; clock\r"
+respond "=" "1\r"
+respond "=" "1\r"
+expect ":KILL"
+respond "*" ":midas klh; ts bigw_klh; clock\r"
+respond "=" "1\r"
+respond "=" "0\r"
+respond "=" "0\r"
+expect ":KILL"
+respond "*" ":midas klh; ts digiw_klh; clock\r"
+respond "=" "1\r"
+respond "=" "0\r"
+respond "=" "1\r"
+expect ":KILL"
+
+# XD, view XGP files on TV.
+respond "*" ":midas sys3;ts xd_sysen2;xd\r"
+expect ":KILL"
+
+# TV-munching square.
+respond "*" ":midas sys2;ts munch_sysen2;munch\r"
+expect ":KILL"
+
+# TITLER
+respond "*" ":midas dsk0:.;@ titler_mb; titler\r"
+expect ":KILL"
+
+# MLIFE
+respond "*" ":midas;324 games;ts mlife_rwg;mlife\r"
+expect ":KILL"
+respond "*" ":midas;324 /t dsk0:.;@ mlife_rwg;mlife\r"
+respond "with ^C" "TS==0\r\003"
+expect ":KILL"
+
+# MLIFE
+respond "*" ":midas;324 dsk0:.;@ pornis_rwg; pornis\r"
+expect ":KILL"
+
+# 3406
+respond "*" ":midas;324 dsk0:.;@ 3406_stan.k; 3406\r"
+expect ":KILL"
+
+# 340D
+respond "*" ":midas stan.k;mod11 bin_340d\r"
+expect ":KILL"
+respond "*" ":link sys1;ts 340d, stan.k; mod11 bin\r"
+
+# Munching squares for 340 display.
+respond "*" ":midas lars; ts munch_munch\r"
+expect ":KILL"
+respond "*" ":midas /t dsk0: .; @ munch_lars; munch\r"
+respond "with ^C" ".iotlsr==jfcl\r\003"
+expect ":KILL"
+
+# Minskytron, translated from PDP-1.
+respond "*" ":midas dsk0: lars; ts minsky_minsky tron\r"
+expect ":KILL"
+respond "*" ":link dsk0: .; @ minsky, lars; ts minsky\r"
+
+# Edward Lorenz' strange attactor.
+respond "*" ":midas dsk0: lars; ts lorenz_lorenz\r"
+expect ":KILL"
+respond "*" ":link dsk0: .; @ lorenz, lars; ts lorenz\r"
+
+# Mandelbrot.
+respond "*" ":midas lars; ts tvbrot_tvbrot\r"
+expect ":KILL"
+
+# MUSRUN
+respond "*" ":midas;77\r"
+respond "MIDAS.77" "SYSBIN;_SYSENG; MUSRUN\r"
+expect ":KILL"
+respond "*" ":midas;77\r"
+respond "MIDAS.77" "SYSBIN;_SYSENG; H10D\r"
+expect ":KILL"
+respond "*" ":stink\r"
+respond "\n" "msysbin; musrun\033l\033\033"
+respond "\n" "mh10d\033l\033\033"
+respond "\n" "jmusrun\033?d\033\033"
+respond "\n" "\033y"
+respond " " "sys1; ts musrun\r"
+respond "*" ":kill\r"
+
+# KA10 maintenance
+respond "*" ":midas;324 sys;ts 10run_sysen2; 10run\r"
+expect ":KILL"
+
+# Display all Type 342 characters.
+respond "*" ":midas dsk0:maint;_tst342\r"
+expect ":KILL"
+
+# XGP spooler
+respond "*" ":midas sys2;ts xgpspl_sysen2;xgpspl\r"
+expect ":KILL"
+
+# XGP unspooler
+respond "*" ":midas sysbin;_syseng;scrimp\r"
+expect ":KILL"
+
+# CARPET, remote PDP-11 debugger through Rubin 10-11 interface.
+respond "*" ":midas sys3;ts carpet_syseng;carpet\r"
+expect ":KILL"
+
+# Patch PDP-6 LISP to run on PDP-10.
+respond "*" ":job lisp\r"
+respond "*" ":load .; @ lisp\r"
+respond "*" "33777//\031"
+respond "*" "\033q\033,777777\033\033z"
+respond "*" "pitele+13/"
+respond "FSC" "push p,b\n"
+respond "FSC" "jrst patch\r"
+respond "\n" "patch/"
+respond "0" "move b,echocc\n"
+respond "0" "add b,ticc\n"
+respond "0" "dpb b,.+3\n"
+respond "0" "pop p,b\n"
+respond "0" "jrst pitele+15\n"
+respond "0" "331000,,a\r"
+respond "\n" "\033y"
+respond " " "dsk0:.;@ lisp\r"
+respond "*" ":kill\r"
+
+# Lisp display slave, PDP-6 version.
+respond "*" ":midas sys; atsign 6slave_sysen2; ld10\r"
+respond "   PDP6F = " "1\r"
+expect ":KILL"
diff --git a/build/kl10/include.tcl b/build/kl10/include.tcl
index 7ce252d2..f5ae176d 100644
--- a/build/kl10/include.tcl
+++ b/build/kl10/include.tcl
@@ -1,6 +1,7 @@
 #Default ITS name for KL10.
 set mchn "KL"
 
+set cpu "kl10"
 set salv "salv"
 
 proc start_dskdmp_its {} {
@@ -172,18 +173,11 @@ proc bootable_tapes {} {
     expect ":KILL"
 }
 
-proc update_microcode {} {
-    copy_to_klfe "ucode;u1 ram"
-}
-
 proc clib_switches {} {
     ### UFA or FIX?!?  Probably the latter.
     respond "with ^C" "\003"
 }
 
-proc patch_lisp {} {
-}
-
 proc translate_diagnostics {} {
     # KL10 doesn't need any translations.
 }
@@ -216,3 +210,6 @@ proc comsat_switches {} {
 proc dqxdev_switches {} {
     respond "Limit to KA-10 instructions" "n\r"
 }
+
+proc processor_basics {} {
+}
diff --git a/build/kl10/processor.tcl b/build/kl10/processor.tcl
new file mode 100644
index 00000000..f0a04e36
--- /dev/null
+++ b/build/kl10/processor.tcl
@@ -0,0 +1,157 @@
+log_progress "ENTERING BUILD SCRIPT: PROCESSOR"
+
+# Programs particular to the KL10 processor.
+
+# KL10 front end directory tool
+respond "*" ":midas sys1;ts klfedr_syseng;klfedr\r"
+respond "RP06P=" "0\r"
+respond "RP04P=" "1\r"
+expect ":KILL"
+
+mkdir ".klfe."
+respond "*" ":move .temp.; -read- -this-, .klfe.;\r"
+copy_to_klfe "kldcp; kldcp hlp"
+#copy_to_klfe "kldcp; kldcp doc"
+
+# 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"
+
+# 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"
+
+# Update microcode in frontend filesystem.
+copy_to_klfe "ucode;u1 ram"
+
+# KLDDT
+respond "*" ":cwd kldcp\r"
+respond "*" ":macro\r"
+respond "*" "klddt=klddt\r"
+expect "CORE USED"
+respond "*" "\003"
+respond "*" ":kill\r"
+respond "*" ":dec sys:link\r"
+respond "*" "klddt/go\r"
+respond "EXIT" ":start 45\r"
+respond "Command:" "d"
+respond "*" "\033y"
+respond " " "kldcp; klddt bin\r"
+respond "*" ":kill\r"
+respond "*" ":mcnvrt kldcp; klddt bin\r"
+expect ":KILL"
+move_to_klfe "kldcp; klddt a10"
+
+# KL10 front end dumper
+respond "*" ":midas dsk0:.;@ fedump_kldcp; fedump\r"
+expect ":KILL"
+
+# KL10 front end debugger.  Put it in the same directory as the
+# "MC" IOELEV.
+respond "*" ":palx sysbin;_syseng; klrug\r"
+expect ":KILL"
+# 11STNK expects a copy in the . directory.
+respond "*" ":copy sysbin; klrug bin, .;\r"
+
+# PDP-11 linker.
+respond "*" ":midas sys1;ts 11stnk_kldcp;11stnk\r"
+expect ":KILL"
+respond "*" ":link .; ts boot11, sys1; ts 11stnk\r"
+
+# KL10 diagnostics console program.
+respond "*" ":palx kldcp;_kldcp\r"
+expect ":KILL"
+respond "*" ":11stnk\r"
+respond "*" "R"
+respond "FILENAME" "\r"
+respond "*" "L"
+respond "FILENAME" "kldcp; kldcp bin\r"
+respond "*" "B"
+respond "FILENAME" ".temp.; kldcp bin\r"
+expect ":KILL"
+move_to_klfe ".temp.; kldcp bin"
+
+# KL10 diagnostic console utility
+respond "*" ":palx kldcp;_kldcpu\r"
+expect ":KILL"
+respond "*" ":pcnvrt kldcp; kldcpu bin\r"
+move_to_klfe "kldcp; kldcpu a11"
+
+# PDP-11 debugger.
+# 16K is used with the DL10 IOELEV.
+respond "*" ":palx .; 11ddt 16k_kldcp; 11ddt\r"
+respond "PDP11=" "40\r"
+respond "EISSW=" "0\r"
+respond "MAPSW=" "0\r"
+respond "HCOR=" "100000\r"
+respond "TT10SW=" "0\r"
+respond "VT05SW=" "0\r"
+respond "DEBSW=" "0\r"
+expect ":KILL"
+# 14K is used with the console IOELEV.
+respond "*" ":palx dsk0:.;11ddt 14k_kldcp; 11ddt\r"
+respond "PDP11=" "40\r"
+respond "EISSW=" "0\r"
+respond "MAPSW=" "0\r"
+respond "HCOR=" "70000\r"
+respond "TT10SW=" "0\r"
+respond "VT05SW=" "0\r"
+respond "DEBSW=" "0\r"
+expect ":KILL"
+
+# The KL10 console "MC" IOELEV.
+respond "*" ":palx .; cons11_system;ioelev\r"
+respond "MACHINE NAME =" "MC\r"
+expect ":KILL"
+respond "*" ":11stnk\r"
+respond "*" "D"
+respond "FILENAME" ".; 11ddt 14k\r"
+respond "*" "L"
+respond "FILENAME" ".; cons11 bin\r"
+respond "*" "A"
+respond "FILENAME" ".temp.; ioelev bin\r"
+expect ":KILL"
+respond "*" ":pcnvrt .temp.; ioelev bin\r"
+expect ":KILL"
+move_to_klfe ".temp.; ioelev a11"
+
+# The KL10 "MC-DL" IOELEV.  Put in same directory as KLRUG BIN.
+# TS BOOT11 stuffs it over DL10 in timesharing.  TS 11BOOT makes a
+# @ BOOT11 to stuff out of timesharing.
+respond "*" ":palx sysbin;_system;ioelev\r"
+respond "MACHINE NAME =" "MC\r"
+expect ":KILL"
+
+# 11BOOT
+respond "*" ":midas;324 sys3;ts 11boot_syseng;11boot\r"
+expect ":KILL"
+# Note, must be run with symbols loaded.
+# Takes IOELEV BIN and KLRUG BIN from the current directory.
+respond "*" ":cwd sysbin\r"
+respond "*" "11boot\033\013"
+expect ":KILL"
+respond "*" ":move sysbin;@ boot11, .;\r"
+
+# LSPEED
+respond "*" ":midas sys1;ts lspeed_syseng;lspeed\r"
+expect ":KILL"
diff --git a/build/ks10/include.tcl b/build/ks10/include.tcl
index 00e30a57..4819d77c 100644
--- a/build/ks10/include.tcl
+++ b/build/ks10/include.tcl
@@ -1,6 +1,7 @@
 #Default ITS name for KS10.
 set mchn "DB"
 
+set cpu "ks10"
 set salv "nsalv"
 
 proc start_dskdmp_its {} {
@@ -187,25 +188,10 @@ proc bootable_tapes {} {
     expect ":KILL"
 }
 
-proc update_microcode {} {
-    type ":ksfedr\r"
-    respond "!" "write\r"
-    respond "Are you sure" "yes\r"
-    respond "Which file" "ram\r"
-    expect "Input from"
-    sleep 1
-    respond ":" ".;ram ram\r"
-    respond "!" "quit\r"
-    expect ":KILL"
-}
-
 proc clib_switches {} {
     respond "with ^C" "KS10==1\r\003"
 }
 
-proc patch_lisp {} {
-}
-
 proc translate_diagnostics {} {
     # PART K doesn't work on the KS10.
     respond "*" "\033\024"
@@ -225,3 +211,9 @@ proc comsat_switches {} {
 proc dqxdev_switches {} {
     respond "Limit to KA-10 instructions" "n\r"
 }
+
+proc processor_basics {} {
+    # Create KS10 bootable tape.
+    respond "*" ":midas kshack;ts mtboot_kshack;mtboot\r"
+    expect ":KILL"
+}
diff --git a/build/ks10/processor.tcl b/build/ks10/processor.tcl
new file mode 100644
index 00000000..971b8145
--- /dev/null
+++ b/build/ks10/processor.tcl
@@ -0,0 +1,36 @@
+log_progress "ENTERING BUILD SCRIPT: PROCESSOR"
+
+# Programs particular to the KS10 processor.
+
+# KNS10, KS10 console
+respond "*" ":cwd kshack\r"
+respond "*" ":cross\r"
+respond "*" "FOR21.DAT/PTP,KNS10.PNT/M80/OCT/CRF/EQ:PASS2:SCECOD=CONDEF.M80,HCORE.M80,CMDS.M80,SUBRTN.M80,DR.M80,MSG.M80,STORE.M80\r"
+expect "Core used"
+respond "*" "\003"
+type ":kill\r"
+
+# KS10 microcode assembler
+respond "*" ":midas kshack;ts micro_micro\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 on frontend filesystem.
+type ":ksfedr\r"
+respond "!" "write\r"
+respond "Are you sure" "yes\r"
+respond "Which file" "ram\r"
+expect "Input from"
+sleep 1
+respond ":" ".;ram ram\r"
+respond "!" "quit\r"
+expect ":KILL"
+
+# TENTH, toy Forth for KS10.
+respond "*" ":midas .; @ tenth_aap; tenth\r"
+expect ":KILL"
diff --git a/build/lisp.tcl b/build/lisp.tcl
index 25c2fcd5..dd990d68 100644
--- a/build/lisp.tcl
+++ b/build/lisp.tcl
@@ -1,9 +1,6 @@
 log_progress "ENTERING BUILD SCRIPT: LISP"
 
 
-# PDP-6 LISP.
-patch_lisp
-
 # lisp
 respond "*" ":link l;fasdfs 1,lisp;.fasl defs\r"
 respond "*" ":link lisp;grind fasl,lisp;gfile fasl\r"
@@ -650,10 +647,7 @@ respond "*" ":link sys2;ts lispt,sys2;ts edit\r"
 respond "*" ":midas lisp; slave fasl_l; slave\r"
 expect ":KILL"
 
-# Lisp display slave, PDP-6 and PDP-10 versions.
-respond "*" ":midas sys; atsign 6slave_sysen2; ld10\r"
-respond "   PDP6F = " "1\r"
-expect ":KILL"
+# Lisp display slave, PDP-10 and GT40 version.
 respond "*" ":midas sys; atsign 10slav_sysen2; ld10\r"
 respond "   PDP6F = " "0\r"
 respond "GT40F=" "1\r"
@@ -720,8 +714,6 @@ type ":kill\r"
 # Knight TV Spacewar
 respond "*" ":lisp gjd; sine lisp\r"
 expect ":KILL"
-respond "*" ":midas games;ts tvwar_spcwar; tvwar\r"
-expect ":KILL"
 
 # Kermit
 respond "*" ":link math;defset fasl,lisp;\r"
diff --git a/build/misc.tcl b/build/misc.tcl
index 6cbe238e..683cc38e 100644
--- a/build/misc.tcl
+++ b/build/misc.tcl
@@ -1,12 +1,12 @@
 log_progress "ENTERING BUILD SCRIPT: MISC"
 
+# MIDAS 324, needed for older programs.
 respond "*" ":midas /t sysbin; midas 324bin_midas; midas 324\r"
 respond "\n" "itssw==1\r"
 respond "\n" "ptr==100\r"
 respond "\n" "ldbi=ildb\r"
 respond "\n" "dpbi=idpb\003"
 expect ":KILL"
-
 respond "*" ":job midas\r"
 respond "*" ":load sysbin; midas 324bin\r"
 respond "*" "purify\033g"
@@ -64,27 +64,6 @@ respond "*" ":midas sys1;ts salv_system;salv\r"
 respond "time-sharing?" "y\r"
 expect ":KILL"
 
-# macdmp, PDP-10 hardware read in, with 340 support.
-respond "*" ":midas;77\r"
-respond "MIDAS.77" ".;MACDMP RIM10_SYSENG; MACDMP MOBY1\r"
-expect ":KILL"
-# macdmp, PDP-6 read in hack.
-respond "*" ":midas;77\r"
-respond "MIDAS.77" ".;MACDMP RIM2_SYSENG; MACDMP 6U32\r"
-expect ":KILL"
-
-# system gen
-respond "*" ":midas;324 dsk0:.;@ sysgen_syseng; system gen\r"
-expect ":KILL"
-
-# mark
-respond "*" ":midas;324 dsk0:.;@ mark_syseng; mark\r"
-expect ":KILL"
-
-# utnam
-respond "*" ":midas sys3; ts utnam_lars; utnam\r"
-expect ":KILL"
-
 respond "*" ":midas sys3;ts syslod_sysen1;syslod\r"
 expect ":KILL"
 
@@ -562,49 +541,6 @@ expect ":KILL"
 respond "*" ":midas games;ts ckr_agb;ckr\r"
 expect ":KILL"
 
-# Old Spacewar
-respond "*" ":cwd spcwar\r"
-respond "*" ":midas;324 spcwar; war\r"
-expect ":KILL"
-respond "*" ":midas spcwar; stars\r"
-expect ":KILL"
-respond "*" ":midas;324 spcwar; math\r"
-expect ":KILL"
-respond "*" ":stink\r"
-respond "\n" "mspcwar; war\033l\033\033"
-respond "\n" "mstars\033l\033\033"
-respond "\n" "mmath\033l\033\033"
-respond "\n" "jwar\033d\033\033"
-respond "\n" "\033y"
-respond " " "dsk0:.;@ war\r"
-respond "*" ":kill\r"
-
-# Spacewar, standalone
-respond "*" ":midas;324 dsk0:.;@ spcwar_spcwar; spcwar\r"
-respond "ITS version" "NO\r"
-respond "interrupt" "NO\r"
-respond "ships" "\r"
-respond "designs" "\r"
-respond "suns" "\r"
-respond "recording" "\r"
-expect ":KILL"
-
-# Spacewar, timesharing
-respond "*" ":midas games;ts spcwar_spcwar; spcwar\r"
-respond "ITS version" "YES\r"
-respond "ships" "\r"
-respond "designs" "\r"
-respond "suns" "\r"
-expect ":KILL"
-
-# PDP-6/10 Dazzle Dart
-respond "*" ":midas games;ts dazdrt_klh; dazdrt\r"
-respond "Run under ITS?" "YES\r"
-expect ":KILL"
-respond "*" ":midas;324 dsk0:.;@ dazdrt_klh; dazdrt\r"
-respond "Run under ITS?" "NO\r"
-expect ":KILL"
-
 # Dazzle Dart, video game for the Logo group PDP-11/45
 respond "*" ":palx bs;_dazzle\r"
 expect ":KILL"
@@ -613,65 +549,6 @@ expect ":KILL"
 respond "*" ":midas pdp11;ts tosblk_tosblk\r"
 expect ":KILL"
 
-# TITLER
-respond "*" ":midas dsk0:.;@ titler_mb; titler\r"
-expect ":KILL"
-
-# Knight TV Spacewar
-respond "*" ":midas gjd;_swr data\r"
-expect ":KILL"
-respond "*" ":job swr\r"
-respond "*" ":load gjd; swr bin\r"
-respond "*" "first\033,last\033\060ygjd; swr ships\r"
-respond "*" ":kill\r"
-respond "*" ":midas games;ts tvwar_spcwar; tvwar\r"
-expect ":KILL"
-
-# MLIFE
-respond "*" ":midas;324 games;ts mlife_rwg;mlife\r"
-expect ":KILL"
-respond "*" ":midas;324 /t dsk0:.;@ mlife_rwg;mlife\r"
-respond "with ^C" "TS==0\r\003"
-expect ":KILL"
-
-# MLIFE
-respond "*" ":midas;324 dsk0:.;@ pornis_rwg; pornis\r"
-expect ":KILL"
-
-# 3406
-respond "*" ":midas;324 dsk0:.;@ 3406_stan.k; 3406\r"
-expect ":KILL"
-
-# 340D
-respond "*" ":midas stan.k;mod11 bin_340d\r"
-expect ":KILL"
-respond "*" ":link sys1;ts 340d, stan.k; mod11 bin\r"
-
-# TV-munching square.
-respond "*" ":midas sys2;ts munch_sysen2;munch\r"
-expect ":KILL"
-
-# Munching squares for 340 display.
-respond "*" ":midas lars; ts munch_munch\r"
-expect ":KILL"
-respond "*" ":midas /t dsk0: .; @ munch_lars; munch\r"
-respond "with ^C" ".iotlsr==jfcl\r\003"
-expect ":KILL"
-
-# Minskytron, translated from PDP-1.
-respond "*" ":midas dsk0: lars; ts minsky_minsky tron\r"
-expect ":KILL"
-respond "*" ":link dsk0: .; @ minsky, lars; ts minsky\r"
-
-# Edward Lorenz' strange attactor.
-respond "*" ":midas dsk0: lars; ts lorenz_lorenz\r"
-expect ":KILL"
-respond "*" ":link dsk0: .; @ lorenz, lars; ts lorenz\r"
-
-# Mandelbrot.
-respond "*" ":midas lars; ts tvbrot_tvbrot\r"
-expect ":KILL"
-
 # PI
 respond "*" ":midas sys3;ts pi_rwg; ran\r"
 expect ":KILL"
@@ -989,10 +866,6 @@ expect ":KILL"
 respond "*" ":midas sys2;ts hostat_sysen2;hostat\r"
 expect ":KILL"
 
-# LSPEED
-respond "*" ":midas sys1;ts lspeed_syseng;lspeed\r"
-expect ":KILL"
-
 # PROBE
 respond "*" ":link syseng;its defs,sys;itsdfs >\r"
 respond "*" ":midas sysbin;probe bin_bawden;probe\r"
@@ -1142,21 +1015,6 @@ respond "*" ":midas sysbin;_syseng; muscom\r"
 expect ":KILL"
 respond "*" ":link sys1;ts muscom, sysbin; muscom bin\r"
 
-# MUSRUN
-respond "*" ":midas;77\r"
-respond "MIDAS.77" "SYSBIN;_SYSENG; MUSRUN\r"
-expect ":KILL"
-respond "*" ":midas;77\r"
-respond "MIDAS.77" "SYSBIN;_SYSENG; H10D\r"
-expect ":KILL"
-respond "*" ":stink\r"
-respond "\n" "msysbin; musrun\033l\033\033"
-respond "\n" "mh10d\033l\033\033"
-respond "\n" "jmusrun\033?d\033\033"
-respond "\n" "\033y"
-respond " " "sys1; ts musrun\r"
-respond "*" ":kill\r"
-
 # BIG
 respond "*" ":midas;77\r"
 respond "MIDAS.77" "SYSBIN;_SYSENG; BIG\r"
@@ -1293,10 +1151,6 @@ respond "*" ":link sys3;ts unscr,sys3;ts scrmbl\r"
 respond "*" ":midas ksc; ts zotz_zotz\r"
 expect ":KILL"
 
-# KA10 maintenance
-respond "*" ":midas;324 sys;ts 10run_sysen2; 10run\r"
-expect ":KILL"
-
 respond "*" ":job maint\r"
 # KA10 needs the .OLD files.  KL10 and KS10 the newer.
 translate_diagnostics
@@ -1306,10 +1160,6 @@ respond "PARt a" "\032"
 expect -re {>>|\)}
 type ":kill\r"
 
-# Display all Type 342 characters.
-respond "*" ":midas dsk0:maint;_tst342\r"
-expect ":KILL"
-
 # Test one-proceed.
 respond "*" ":midas maint;ts 1proc_1proc test\r"
 expect ":KILL"
@@ -1317,14 +1167,6 @@ respond "*" ":maint;1proc\r"
 expect "SUCCESSFUL"
 expect ":KILL"
 
-# KNS10, KS10 console
-respond "*" ":cwd kshack\r"
-respond "*" ":cross\r"
-respond "*" "FOR21.DAT/PTP,KNS10.PNT/M80/OCT/CRF/EQ:PASS2:SCECOD=CONDEF.M80,HCORE.M80,CMDS.M80,SUBRTN.M80,DR.M80,MSG.M80,STORE.M80\r"
-expect "Core used"
-respond "*" "\003"
-type ":kill\r"
-
 # XXFILE
 respond "*" ":midas sysbin;xxfile bin_sysen1;xxfile\r"
 expect ":KILL"
@@ -1364,31 +1206,10 @@ respond "*" ":link sys1; ts tekprn, sys1; ts imprnt\r"
 respond "*" ":midas sys3; ts imgout_cbf; imgout\r"
 expect ":KILL"
 
-# Dump TV bitmap as XGP scan file.
-# TVREAD expects the binary in BKPH.
-respond "*" ":midas bkph; ts zap_zap\r"
-expect ":KILL"
-
 # LINES
 respond "*" ":midas bkph; ts lines_lines\r"
 expect ":KILL"
 
-# View bitmap file on TV.
-respond "*" ":midas sys2; ts tvread_vis; tvread\r"
-expect ":KILL"
-
-# Save TV display as bitmap file.
-respond "*" ":midas sys2; ts tvwrit_sysen2; tvwrit\r"
-expect ":KILL"
-
-# Save TV display as text file.
-respond "*" ":midas sys2; ts record_sysen2; record\r"
-expect ":KILL"
-
-# TV paint program.
-respond "*" ":midas sys2; ts tvedit_sysen2; tvedit\r"
-expect ":KILL"
-
 # BLKLDR, Imlac secondary block loader.
 respond "*" ":midas sysbin;_imsrc; blkldr\r"
 expect ":KILL"
@@ -1487,22 +1308,6 @@ respond "*" ":imtran\r"
 respond "@" "imlac; crash iml_imlac; crash bin\r"
 respond "@" "\021"
 
-# KLH's Knight TV clock.
-respond "*" ":midas klh; ts tinyw_klh; clock\r"
-respond "=" "1\r"
-respond "=" "1\r"
-expect ":KILL"
-respond "*" ":midas klh; ts bigw_klh; clock\r"
-respond "=" "1\r"
-respond "=" "0\r"
-respond "=" "0\r"
-expect ":KILL"
-respond "*" ":midas klh; ts digiw_klh; clock\r"
-respond "=" "1\r"
-respond "=" "0\r"
-respond "=" "1\r"
-expect ":KILL"
-
 # The old CLIB has a UFA instruction which doesn't work on a KS10.
 # Patch out the call to FIXIFY.
 respond "*" ":job cc\r"
@@ -1699,14 +1504,6 @@ respond "*" ":kill\r"
 respond "*" ":midas sys3;ts cmd_dcp; cmd\r"
 expect ":KILL"
 
-# XGP spooler
-respond "*" ":midas sys2;ts xgpspl_sysen2;xgpspl\r"
-expect ":KILL"
-
-# XGP unspooler
-respond "*" ":midas sysbin;_syseng;scrimp\r"
-expect ":KILL"
-
 # XGP and GLP
 respond "*" ":midas sysbin;xgp bin_sysen2;xqueue\r"
 expect ":KILL"
@@ -1731,92 +1528,6 @@ respond "*" ":midas /t device;jobdev glp_sysen2;xgpdev\r"
 respond "with ^C" "GLP==1\r\003"
 expect ":KILL"
 
-# XD, view XGP files on TV.
-respond "*" ":midas sys3;ts xd_sysen2;xd\r"
-expect ":KILL"
-
-# KL10 front end directory tool
-respond "*" ":midas sys1;ts klfedr_syseng;klfedr\r"
-respond "RP06P=" "0\r"
-respond "RP04P=" "1\r"
-expect ":KILL"
-
-mkdir ".klfe."
-respond "*" ":move .temp.; -read- -this-, .klfe.;\r"
-copy_to_klfe "kldcp; kldcp hlp"
-#copy_to_klfe "kldcp; kldcp doc"
-
-# 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"
-
-# KLDDT
-respond "*" ":cwd kldcp\r"
-respond "*" ":macro\r"
-respond "*" "klddt=klddt\r"
-expect "CORE USED"
-respond "*" "\003"
-respond "*" ":kill\r"
-respond "*" ":dec sys:link\r"
-respond "*" "klddt/go\r"
-respond "EXIT" ":start 45\r"
-respond "Command:" "d"
-respond "*" "\033y"
-respond " " "kldcp; klddt bin\r"
-respond "*" ":kill\r"
-respond "*" ":mcnvrt kldcp; klddt bin\r"
-expect ":KILL"
-move_to_klfe "kldcp; klddt a10"
-
-# 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"
-
-# PDP-11 linker.
-respond "*" ":midas sys1;ts 11stnk_kldcp;11stnk\r"
-expect ":KILL"
-respond "*" ":link .; ts boot11, sys1; ts 11stnk\r"
-
-# CARPET, remote PDP-11 debugger through Rubin 10-11 interface.
-respond "*" ":midas sys3;ts carpet_syseng;carpet\r"
-expect ":KILL"
-
 # GTLOAD, load programs into GT40.
 respond "*" ":midas sys1; ts gtload_syseng; gtload\r"
 expect ":KILL"
@@ -1840,103 +1551,12 @@ expect ":KILL"
 respond "*" ":palx gt40;_gt40;gtlem\r"
 expect ":KILL"
 
-# KL10 front end debugger.  Put it in the same directory as the
-# "MC" IOELEV.
-respond "*" ":palx sysbin;_syseng; klrug\r"
-expect ":KILL"
-# 11STNK expects a copy in the . directory.
-respond "*" ":copy sysbin; klrug bin, .;\r"
-
-# PDP-11 debugger.
-# 16K is used with the DL10 IOELEV.
-respond "*" ":palx .; 11ddt 16k_kldcp; 11ddt\r"
-respond "PDP11=" "40\r"
-respond "EISSW=" "0\r"
-respond "MAPSW=" "0\r"
-respond "HCOR=" "100000\r"
-respond "TT10SW=" "0\r"
-respond "VT05SW=" "0\r"
-respond "DEBSW=" "0\r"
-expect ":KILL"
-# 14K is used with the console IOELEV.
-respond "*" ":palx dsk0:.;11ddt 14k_kldcp; 11ddt\r"
-respond "PDP11=" "40\r"
-respond "EISSW=" "0\r"
-respond "MAPSW=" "0\r"
-respond "HCOR=" "70000\r"
-respond "TT10SW=" "0\r"
-respond "VT05SW=" "0\r"
-respond "DEBSW=" "0\r"
-expect ":KILL"
-
-# KL10 diagnostics console program.
-respond "*" ":palx kldcp;_kldcp\r"
-expect ":KILL"
-respond "*" ":11stnk\r"
-respond "*" "R"
-respond "FILENAME" "\r"
-respond "*" "L"
-respond "FILENAME" "kldcp; kldcp bin\r"
-respond "*" "B"
-respond "FILENAME" ".temp.; kldcp bin\r"
-expect ":KILL"
-move_to_klfe ".temp.; kldcp bin"
-
-# KL10 diagnostic console utility
-respond "*" ":palx kldcp;_kldcpu\r"
-expect ":KILL"
-respond "*" ":pcnvrt kldcp; kldcpu bin\r"
-move_to_klfe "kldcp; kldcpu a11"
-
-# IOELEV, PDP-11 doing I/O for the PDP-10 host.
-# First, the "AI" IOELEV, also known as CHAOS-11.
-# STUFF prefers to have it in the "." directory.
-respond "*" ":palx dsk0:.;_system;ioelev\r"
-respond "MACHINE NAME =" "AI\r"
-expect ":KILL"
-
-# The KL10 console "MC" IOELEV.
-respond "*" ":palx .; cons11_system;ioelev\r"
-respond "MACHINE NAME =" "MC\r"
-expect ":KILL"
-respond "*" ":11stnk\r"
-respond "*" "D"
-respond "FILENAME" ".; 11ddt 14k\r"
-respond "*" "L"
-respond "FILENAME" ".; cons11 bin\r"
-respond "*" "A"
-respond "FILENAME" ".temp.; ioelev bin\r"
-expect ":KILL"
-respond "*" ":pcnvrt .temp.; ioelev bin\r"
-expect ":KILL"
-move_to_klfe ".temp.; ioelev a11"
-
-# The KL10 "MC-DL" IOELEV.  Put in same directory as KLRUG BIN.
-# TS BOOT11 stuffs it over DL10 in timesharing.  TS 11BOOT makes a
-# @ BOOT11 to stuff out of timesharing.
-respond "*" ":palx sysbin;_system;ioelev\r"
-respond "MACHINE NAME =" "MC\r"
-expect ":KILL"
-
 # MINITS
 respond "*" ":cwd mits.s\r"
 respond "*" ":palx test_config\r"
 respond ":::" "777\r"
 expect ":KILL"
 
-# TV-11.  STUFF prefers it to be in the "." directory.
-respond "*" ":palx dsk0:.;_system;tv\r"
-expect ":KILL"
-
-# XGP-11.  STUFF prefers it to be SYSBIN; VXGP BIN.
-respond "*" ":palx sysbin;vxgp bin_sysen2;xgp\r"
-expect ":KILL"
-
-# CCONS.  STUFF prefers it to be in the CONS directory.
-mkdir "cons"
-respond "*" ":palx cons;_lmcons;ccons\r"
-expect ":KILL"
-
 # ITS universal file.
 respond "*" ":cwd decsys\r"
 respond "*" ":macro\r"
@@ -2013,29 +1633,13 @@ expect "Core used"
 respond "*" "\003"
 respond "*" ":kill\r"
 
-# TENTH, toy Forth for KS10.
-respond "*" ":midas .; @ tenth_aap; tenth\r"
-expect ":KILL"
+# TENTH, toy Forth.
 respond "*" ":midas /t aap; ts tenth_tenth\r"
 respond "end input with ^C" "TS==1\r"
 respond "\n" "KS==0\r"
 respond "\n" "\003"
 expect ":KILL"
 
-# 11BOOT
-respond "*" ":midas;324 sys3;ts 11boot_syseng;11boot\r"
-expect ":KILL"
-# Note, must be run with symbols loaded.
-# Takes IOELEV BIN and KLRUG BIN from the current directory.
-respond "*" ":cwd sysbin\r"
-respond "*" "11boot\033\013"
-expect ":KILL"
-respond "*" ":move sysbin;@ boot11, .;\r"
-
-# STUFF
-respond "*" ":midas sys1;ts stuff_sysen2;stuff\r"
-expect ":KILL"
-
 # GEORGE
 respond "*" ":midas sys3;ts george_syseng;george\r"
 expect ":KILL"
diff --git a/src/channa/rakash.namdrg b/src/channa/rakash.namdrg
deleted file mode 120000
index c7fab0d3..00000000
--- a/src/channa/rakash.namdrg
+++ /dev/null
@@ -1 +0,0 @@
-sysbin/namdrg.bin
\ No newline at end of file
diff --git a/src/channa/rakash.tvfix b/src/channa/rakash.tvfix
deleted file mode 120000
index cb68b802..00000000
--- a/src/channa/rakash.tvfix
+++ /dev/null
@@ -1 +0,0 @@
-sys1/ts.stuff
\ No newline at end of file