Commit | Line | Data |
---|---|---|
1 | " trysys | |
2 | ||
3 | sys open; a.out; 0 | |
4 | spa | |
5 | jmp error | |
6 | sys read; buf; 3072 | |
7 | sad .-1 | |
8 | jmp error | |
9 | iof | |
10 | caf | |
11 | cdf | |
12 | clof | |
13 | law buf | |
14 | dac t1 | |
15 | dzm t2 | |
16 | -3072 | |
17 | dac c1 | |
18 | 1: | |
19 | lac t1 i | |
20 | dac t2 i | |
21 | isz t1 | |
22 | isz t2 | |
23 | isz c1 | |
24 | jmp 1b | |
25 | jmp 0100 | |
26 | ||
27 | error: | |
28 | lac d1 | |
29 | sys write; 1f; 1 | |
30 | sys exit | |
31 | 1: 077012 | |
32 | ||
33 | a.out: | |
34 | <a.>;<ou>;<t 040; 040040 | |
35 | t1: 0 | |
36 | t2: 0 | |
37 | c1: 0 | |
38 | d1: 1 | |
39 | buf: |