mirror of
https://github.com/DoctorWkt/pdp7-unix.git
synced 2026-02-19 22:15:49 +00:00
coped maksys.s from scans; fixed assembly errors
This commit is contained in:
52
src/sys/maksys.s
Normal file
52
src/sys/maksys.s
Normal file
@@ -0,0 +1,52 @@
|
||||
"** 01-s1.pdf page 64 -- handwritten maksys
|
||||
" copy a.out to disk track 18x
|
||||
" where x is the argument
|
||||
|
||||
lac 017777 i; sad d8; skp; jmp error
|
||||
lac 017777; tad d5; dac track
|
||||
lac i track; lrss 9; tad om60
|
||||
spa; jmp error; dac track
|
||||
tad dm10; sma; jmp error
|
||||
|
||||
sys open; a.out; 0
|
||||
spa; jmp error
|
||||
sys read; bufp: buf; 3072
|
||||
sad .-1
|
||||
jmp error
|
||||
|
||||
dscs
|
||||
-3072; dslw
|
||||
lac bufp; dslm
|
||||
lac track; alss 8; xor o300000; dsld
|
||||
lac o3000; dsls
|
||||
dssf; jmp .-1
|
||||
dsrs; spa; jmp error
|
||||
-1024; dslw
|
||||
lac d3072; dslm
|
||||
lac track; alss 8; xor o300110; dsld
|
||||
lac o3000; dsls
|
||||
dssf; jmp .-1
|
||||
dsrs; spa; jmp error
|
||||
sys exit
|
||||
|
||||
error:
|
||||
lac d1; sys write; 1f; 2
|
||||
sys exit
|
||||
1: 077077;012
|
||||
|
||||
dm10: -10
|
||||
d5: 5
|
||||
om60: -060
|
||||
o300000: 0300000
|
||||
o300110: 0300110
|
||||
d8: 8
|
||||
d3072: 3072
|
||||
o3000: 03000
|
||||
d1: 1
|
||||
a.out:
|
||||
<a.>;<ou>;<t 040;040040
|
||||
|
||||
track: .=.+1
|
||||
|
||||
buf:
|
||||
|
||||
Reference in New Issue
Block a user