github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-02-26 17:03:20 +00:00
Code Issues Releases Wiki Activity

Created source for defanged JEDGAR.

Browse Source 
From disassembly of SYS2; TS JEDGAR, dated 1976-09-29.
This commit is contained in:
Lars Brinkhoff
2018-10-01 08:15:38 +02:00
parent eceabf062d
commit b7fe5b0dd7
3 changed files with 28 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
bin/sys2/ts.jedgar
View File

Binary file not shown.

4
build/misc.tcl
View File

@@ -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"

24
src/sysen3/jedgar.1 Normal file
View File

@@ -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