" 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
sys read; bufp; buf; 3072
lac track; alss 8; xor o300000; dsld
lac track; alss 8; xor o300110; dsld