" 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 sysopen; 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 o30000; 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 dm5: 5 om60: -060 o300000: 0300000 o300100: 0300110 d8: 8 d3072: 3072 o3000: 03000 d1: 1 a.out: ;;