... / ...
Commit | Line | Data |
| 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: |