--- /dev/null
+" 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:
+ <a.>;<ou>;<t 040;040040
+
+track: .=.+1
+
+buf:
+