github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-02-15 04:16:21 +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

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