projects / unix-history / blame
| Commit | Line | Data |
|---|---|---|
| 69f28986 KT |
1 | " cp |
| 2 | ||
| 3 | lac 017777 | |
| 4 | tad d1 | |
| 5 | dac name2 | |
| 6 | loop: | |
| 7 | lac 017777 i | |
| 8 | sad d4 | |
| 9 | sys exit | |
| 10 | sad d8 | |
| 11 | jmp unbal | |
| 12 | tad dm8 | |
| 13 | dac 017777 i | |
| 14 | lac name2 | |
| 15 | tad d4 | |
| 16 | dac name1 | |
| 17 | tad d4 | |
| 18 | dac name2 | |
| 19 | sys open; name1: 0; 0 | |
| 20 | spa | |
| 21 | jmp error | |
| 22 | lac o17 | |
| 23 | sys creat; name2: 0 | |
| 24 | spa | |
| 25 | jmp error | |
| 26 | dzm nin | |
| 27 | ||
| 28 | 1: | |
| 29 | lac bufp | |
| 30 | tad nin | |
| 31 | dac 0f | |
| 32 | -1 | |
| 33 | tad nin | |
| 34 | cma | |
| 35 | tad d1024 | |
| 36 | dac 0f+1 | |
| 37 | lac d2 | |
| 38 | sys read; 0:..;.. | |
| 39 | sna | |
| 40 | jmp 2f | |
| 41 | tad nin | |
| 42 | dac nin | |
| 43 | sad d1024 | |
| 44 | jmp 2f | |
| 45 | jmp 1b | |
| 46 | 2: | |
| 47 | lac nin | |
| 48 | dac 2f | |
| 49 | lac d3 | |
| 50 | sys write; buf; 2: 0 | |
| 51 | dzm nin | |
| 52 | lac 2b | |
| 53 | sad d1024 | |
| 54 | jmp 1b | |
| 55 | lac d2 | |
| 56 | sys close | |
| 57 | lac d3 | |
| 58 | sys close | |
| 59 | jmp loop | |
| 60 | error: | |
| 61 | lac name1 | |
| 62 | dac 1f | |
| 63 | lac d1 | |
| 64 | sys write; 1: 0; 4 | |
| 65 | lac d1 | |
| 66 | sys write; mes; 1 | |
| 67 | lac name2 | |
| 68 | dac 1f | |
| 69 | lac d1 | |
| 70 | sys write; 1: 0; 4 | |
| 71 | lac d1 | |
| 72 | sys write; mes; 2 | |
| 73 | jmp loop | |
| 74 | mes: | |
| 75 | 040000;077012 | |
| 76 | unbal: | |
| 77 | lac name2 | |
| 78 | tad d4 | |
| 79 | dac 1f | |
| 80 | lac d1 | |
| 81 | sys write; 1: 0; 4 | |
| 82 | lac d1 | |
| 83 | sys write; mes; 2 | |
| 84 | sys exit | |
| 85 | ||
| 86 | d1: 1 | |
| 87 | d4: 4 | |
| 88 | d8: 8 | |
| 89 | o17: 017 | |
| 90 | dm8: -8 | |
| 91 | d3: 3 | |
| 92 | d1024: 1024 | |
| 93 | nin: 0 | |
| 94 | bufp: buf | |
| 95 | d2: 2 | |
| 96 | ||
| 97 | buf: |