projects / unix-history / blame
| Commit | Line | Data |
|---|---|---|
| 69f28986 KT |
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 |