mirror of
https://github.com/DoctorWkt/pdp7-unix.git
synced 2026-01-27 20:48:00 +00:00
120 lines
1.2 KiB
ArmAsm
120 lines
1.2 KiB
ArmAsm
"** 13-120-147.pdf page 1
|
|
" stat
|
|
|
|
arg = 017777
|
|
|
|
lac arg
|
|
tad d1
|
|
dac name
|
|
|
|
loop:
|
|
lac arg i
|
|
sad d4
|
|
sys exit
|
|
tad dm4
|
|
dac arg i
|
|
lac name
|
|
tad d4
|
|
dac name
|
|
|
|
law statbuf
|
|
sys status; dotdot; name: ..
|
|
spa
|
|
jmp error
|
|
law obuf-1
|
|
dac 12
|
|
lac ii
|
|
lmq
|
|
-3
|
|
jms octal
|
|
lac iflags
|
|
lmq
|
|
-2
|
|
jms octal
|
|
lac iuid
|
|
lmq
|
|
-2
|
|
jms octal
|
|
-1
|
|
tad iniks
|
|
cma
|
|
lmq
|
|
-2
|
|
jms octal
|
|
lac isize
|
|
lmq
|
|
-5
|
|
jms octal
|
|
lac o12
|
|
dac obuf+18
|
|
lac d1
|
|
sys write; obuf; 19
|
|
jmp loop
|
|
|
|
error:
|
|
lac name
|
|
dac 1f
|
|
lac d1
|
|
sys write; 1:..; 4
|
|
lac d1
|
|
sys write; 1f; 2
|
|
jmp loop
|
|
1: 040077; 012
|
|
|
|
"** 13-120-147.pdf page 2
|
|
octal: 0
|
|
dac c
|
|
law tbuf-1
|
|
dac 8
|
|
lac o40
|
|
dac 8 i
|
|
1:
|
|
lacq
|
|
and o7
|
|
tad o60
|
|
dac 8 i
|
|
lrs 3
|
|
isz c
|
|
jmp 1b
|
|
lac 8
|
|
dac c
|
|
1:
|
|
lac c i
|
|
dac 12 i
|
|
sad o40
|
|
jmp octal i
|
|
-1
|
|
tad c
|
|
dac c
|
|
jmp 1b
|
|
|
|
dotdot:
|
|
056056; 040040; 040040; 040040
|
|
|
|
d1: 1
|
|
d2: 2
|
|
d3: 3
|
|
d8: 8
|
|
d14: 14
|
|
d12: 12
|
|
o12: 012
|
|
o60: 060
|
|
o40: 040
|
|
o7: 7
|
|
d4: 4
|
|
dm4: -4
|
|
|
|
c: .=.+1
|
|
|
|
statbuf:
|
|
iflags: .=.+1
|
|
.=.+7
|
|
iuid: .=.+1
|
|
iniks: .=.+1
|
|
isize: .=.+1
|
|
.=.+1
|
|
ii: .=.+1
|
|
|
|
obuf: .=.+19
|
|
tbuf: .=.+10
|