mirror of
https://github.com/PDP-10/its.git
synced 2026-03-07 19:40:48 +00:00
25 lines
409 B
Groff
25 lines
409 B
Groff
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
|