mirror of
https://github.com/livingcomputermuseum/pdp7-unix.git
synced 2026-04-20 01:33:50 +00:00
70 lines
807 B
ArmAsm
70 lines
807 B
ArmAsm
"** 13-120-147.pdf page 5
|
|
t=0
|
|
main:
|
|
lac 017777 i
|
|
sad d4
|
|
jmp 2f
|
|
sad d8
|
|
jmp 1f
|
|
law 9
|
|
tad 017777
|
|
dac 0f
|
|
law 017
|
|
sys creat;0:0
|
|
dac output
|
|
1:law 5
|
|
tad 017777
|
|
dac 0f
|
|
sys open;0:0;0
|
|
dac input
|
|
spa
|
|
sys exit
|
|
2:
|
|
jms advance; jmp 1f
|
|
jmp rinterp
|
|
|
|
0:lac 2f
|
|
jms obuild
|
|
1:lac owrite
|
|
spa
|
|
jmp 0b
|
|
jms oflush
|
|
las
|
|
spa
|
|
sys exit
|
|
sys save
|
|
2:o777
|
|
|
|
|
|
"special machine language code
|
|
|
|
"puts out and octal strin g from symtab entry
|
|
|
|
symoct:
|
|
lac equ
|
|
add equbot
|
|
dac 9f+t
|
|
lac 1f
|
|
jms twoktab; lac 9f+t i
|
|
1:gf .+1 x
|
|
lac ii
|
|
dac 8
|
|
lac 8 i
|
|
add symbot
|
|
dac 9f+t
|
|
|
|
2:lac 9f+t i
|
|
jms putoct
|
|
lac onenl
|
|
jms obuild
|
|
lac 9f+t i
|
|
and o600600
|
|
sza "skip unless word contained eof (0777)
|
|
jmp ggoon
|
|
|
|
"** 13-120-147.pdf page 6
|
|
isz 9f+t
|
|
jmp 2b
|
|
t=t+1
|
|
o600600:0600600
|