phil
46c761bf5d
simplify boot paper tape (do one xfer of 4K, instead of 3K+1K) Combine cmd/scope.cas cmd/cas.cas into sys/cas.in Add src/other/chrtbl.s write chrtbl.out in "ptr" format
52 lines
958 B
ArmAsm
52 lines
958 B
ArmAsm
"** 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 // word count: 3K
|
|
lac bufp; dslm // transfer from buf
|
|
lac track; alss 8; xor o300000; dsld
|
|
lac o3000; dsls
|
|
dssf; jmp .-1
|
|
dsrs; spa; jmp error
|
|
-1024; dslw // word count: 1K
|
|
lac d3072; dslm // transfer from 3K mark (06000)
|
|
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:
|