... / ...
Commit | Line | Data |
| 1 | " chowner |
| 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 chowner; 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 | |
| 63 | error: |
| 64 | lac d1 |
| 65 | sys write; 1b+1; 1 |
| 66 | sys exit |
| 67 | |
| 68 | om60: -060 |
| 69 | o40: 040 |
| 70 | d1: 1 |
| 71 | d8: 8 |
| 72 | dm4: -4 |
| 73 | d4: 4 |
| 74 | o177: 0177 |
| 75 | |
| 76 | nchar: .=.+1 |
| 77 | c1: .=.+1 |
| 78 | octal: .=.+1 |