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 |