| 1 | " copy a.out to disk track 18x |
| 2 | " where x is the argument |
| 3 | |
| 4 | lac 017777 i; sad d8; skp; jmp error |
| 5 | lac 017777; tad d5; dac track |
| 6 | lac i track; lrss 9; tad om60 |
| 7 | spa; jmp error; dac track |
| 8 | tad dm10; sma; jmp error |
| 9 | |
| 10 | sysopen; a.out; 0 |
| 11 | spa; jmp error |
| 12 | sys read; bufp; buf; 3072 |
| 13 | sad .-1 |
| 14 | jmp error |
| 15 | |
| 16 | dscs |
| 17 | -3072; dslw |
| 18 | lac bufp; dslm |
| 19 | lac track; alss 8; xor o300000; dsld |
| 20 | lac o30000; dsls |
| 21 | dssf; jmp .-1 |
| 22 | dsrs; spa; jmp error |
| 23 | -1024; dslw |
| 24 | lac d3072; dslm |
| 25 | lac track; alss 8; xor o300110; dsld |
| 26 | lac o3000; dsls |
| 27 | dssf; jmp .-1 |
| 28 | dsrs; spa; jmp error |
| 29 | sys exit |
| 30 | |
| 31 | error: |
| 32 | lac d1; sys write; 1f; 2 |
| 33 | sys exit |
| 34 | 1: 077077;012 |
| 35 | |
| 36 | dm10: -10 |
| 37 | dm5: 5 |
| 38 | om60: -060 |
| 39 | o300000: 0300000 |
| 40 | o300100: 0300110 |
| 41 | d8: 8 |
| 42 | d3072: 3072 |
| 43 | o3000: 03000 |
| 44 | d1: 1 |
| 45 | a.out: |
| 46 | <a.>;<ou>;<t 040;040040 |
| 47 | |
| 48 | track: .=.+1 |
| 49 | |
| 50 | buf: |
| 51 | |