add tmg to src/cmd and image
add doug user to image, put tmg sources there fix an as7 bug found by tmg
This commit is contained in:
@@ -0,0 +1,69 @@
|
||||
"** 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
|
||||
Reference in New Issue
Block a user