mirror of
https://github.com/DoctorWkt/pdp7-unix.git
synced 2026-01-11 23:53:23 +00:00
116 lines
1.2 KiB
ArmAsm
116 lines
1.2 KiB
ArmAsm
"** 01-s1.pdf page 53
|
|
" s9 -- cold boot
|
|
|
|
. = coldentry+4
|
|
|
|
" zero i-list
|
|
|
|
dzm ii
|
|
jms copyz; dskbuf; 64
|
|
1:
|
|
lac ii
|
|
jms dskio; 07000
|
|
isz ii
|
|
-710
|
|
tad ii
|
|
sza
|
|
jmp 1b
|
|
|
|
" free rest of disk
|
|
|
|
1:
|
|
lac ii
|
|
jms free
|
|
isz ii
|
|
-6400
|
|
tad ii
|
|
sza
|
|
jmp 1b
|
|
|
|
" read in tapes
|
|
|
|
dzm ii
|
|
1:
|
|
dzm sum
|
|
jms getw " count
|
|
sza
|
|
jmp .+3
|
|
hlt
|
|
jmp 1b " 0 count means pause
|
|
dac xx
|
|
isz ii
|
|
lac ii
|
|
jms iget
|
|
jms copyz; inode; 12
|
|
jms getw " flags
|
|
dac i.flags
|
|
-1
|
|
dac i.uid
|
|
jms getw " number links
|
|
dac i.nlks
|
|
-2
|
|
tad xx
|
|
dac i.size
|
|
lac ii
|
|
dac i.uniq
|
|
law 4096-1
|
|
dac 8
|
|
-1
|
|
tad i.size
|
|
cma
|
|
sna
|
|
jmp 3f
|
|
dac xx
|
|
|
|
"** 01-s1.pdf page 54
|
|
2:
|
|
jms getw
|
|
dac 8 i
|
|
isz xx
|
|
jmp 2b
|
|
3:
|
|
lac sum
|
|
dac xx
|
|
jms getw " checksum
|
|
sad xx
|
|
skp
|
|
jms halt
|
|
lac i.size
|
|
dac .+4
|
|
cla
|
|
jms iwrite; 4096; ..
|
|
jms iput
|
|
cla
|
|
jms dskio; 07000 "** writing on listing
|
|
jmp 1b
|
|
|
|
getw: 0
|
|
jms getc
|
|
alss 12
|
|
lmq
|
|
jms getc
|
|
alss 6
|
|
omq
|
|
lmq
|
|
jms getc
|
|
omq
|
|
lmq
|
|
add sum
|
|
dac sum
|
|
lacq
|
|
jmp getw i
|
|
|
|
getc: 0
|
|
iof
|
|
rsa
|
|
rsf
|
|
jmp .-1
|
|
rrb
|
|
sna
|
|
jmp getc+1
|
|
and o77
|
|
ion
|
|
jmp getc i
|
|
xx: 0
|
|
sum: 0
|