projects / unix-history / blame
| Commit | Line | Data |
|---|---|---|
| 69f28986 KT |
1 | " dsw |
| 2 | ||
| 3 | lac djmp | |
| 4 | dac .-1 | |
| 5 | oas cla | |
| 6 | oma | |
| 7 | tad d1 | |
| 8 | dac t1 | |
| 9 | sys open; dd; 0 | |
| 10 | 1: | |
| 11 | lac d2 | |
| 12 | sys read; dir; 8 | |
| 13 | sna | |
| 14 | sys exit | |
| 15 | lac dir | |
| 16 | sna | |
| 17 | jmp 1b | |
| 18 | isz t1 | |
| 19 | jmp 1b | |
| 20 | ||
| 21 | wr: | |
| 22 | lac d1 | |
| 23 | sys write; dir+1; 4 | |
| 24 | lac d1 | |
| 25 | sys write; o12; 1 | |
| 26 | sys save | |
| 27 | io: | |
| 28 | sys unlink; dir+1 | |
| 29 | sys exit | |
| 30 | ||
| 31 | d1: 1 | |
| 32 | d2: 2 | |
| 33 | o12: 012 | |
| 34 | t1: 0 | |
| 35 | djmp: jmp do | |
| 36 | dd: 056056;040040;040040;040040 | |
| 37 | dir: .=.+8 |