Commit | Line | Data |
---|---|---|
69f28986 KT |
1 | " chmode |
2 | ||
3 | lac 017777 i | |
4 | sad d4 | |
5 | jmp error | |
6 | ||
7 | lac 017777 | |
8 | tad d4 | |
9 | dac 8 | |
10 | tad d1 | |
11 | dac name | |
12 | dzm octal | |
13 | dzm nchar | |
14 | -8 | |
15 | dac c1 | |
16 | 1: | |
17 | lac nchar | |
18 | dzm nchar | |
19 | sza | |
20 | jmp 2f | |
21 | lac 8 i | |
22 | lmq | |
23 | and o177 | |
24 | dac nchar | |
25 | lacq | |
26 | lrss 9 | |
27 | 2: | |
28 | sad o40 | |
29 | jmp 3f | |
30 | tad om60 | |
31 | lmq | |
32 | lac octal | |
33 | cll; als 3 | |
34 | omq | |
35 | dac octal | |
36 | 3: | |
37 | isz c1 | |
38 | jmp 1b | |
39 | ||
40 | loop: | |
41 | lac 017777 i | |
42 | sad d8 | |
43 | sys exit | |
44 | tad dm4 | |
45 | dac 017777 i | |
46 | lac name | |
47 | tad d4 | |
48 | dac name | |
49 | lac octal | |
50 | sys chmode; name:0 | |
51 | sma | |
52 | jmp loop | |
53 | lac name | |
54 | dac 1f | |
55 | lac d1 | |
56 | sys write; 1:0; 4 | |
57 | lac d1 | |
58 | sys write; 1f; 2 | |
59 | jmp loop | |
60 | 1: | |
61 | 040;077012 | |
62 | error: | |
63 | lac d1 | |
64 | sys write; 1b+1; 1 | |
65 | sys exit | |
66 | ||
67 | om60: -060 | |
68 | o40: 040 | |
69 | d1: 1 | |
70 | d8: 8 | |
71 | dm4: -4 | |
72 | d4: 4 | |
73 | o177: 0177 | |
74 | ||
75 | nchar: .=.+1 | |
76 | c1: .=.+1 | |
77 | octal: .=.+1 |