diff --git a/bin/sys2/ts.jedgar b/bin/sys2/ts.jedgar deleted file mode 100644 index 164d80f9..00000000 Binary files a/bin/sys2/ts.jedgar and /dev/null differ diff --git a/build/misc.tcl b/build/misc.tcl index aee62e38..5bd6688a 100644 --- a/build/misc.tcl +++ b/build/misc.tcl @@ -269,6 +269,10 @@ expect ":KILL" respond "*" ":midas sys1;ts timoon_syseng;timoon\r" expect ":KILL" +# jedgar +respond "*" ":midas sys2; ts jedgar_sysen3; jedgar\r" +expect ":KILL" + # ports respond "*" ":midas sys2;ts ports_sysen2;ports\r" expect ":KILL" diff --git a/src/sysen3/jedgar.1 b/src/sysen3/jedgar.1 new file mode 100644 index 00000000..9bdd5a46 --- /dev/null +++ b/src/sysen3/jedgar.1 @@ -0,0 +1,24 @@ +TITLE FAKE JEDGAR + +;This is not the original source code. It's created from disassembly +;of the file SYS2; TS JEDGAR, dated 1976-09-29. The assembled binary +;is identical. + +CHI=1 +CHO=2 + +START: .OPEN CHI,['TTY] + .VALUE + .OPEN CHO,['#TTY] + .VALUE + MOVEI 4,20. + .SLEEP 4, + .IOT CHO,[-5,,[ascii /Am I licensed to kill? /]] + .IOT CHI,5 + .VALUE [ASCIZ /:PROCED +/] + MOVEI 1,600 + .SLEEP 1, + JRST .-2 + +END START