Commit | Line | Data |
---|---|---|
69f28986 KT |
1 | " bl\r |
2 | \r | |
3 | jmp start\r | |
4 | \r | |
5 | .array: .+1\r | |
6 | s 2\r | |
7 | n 8\r | |
8 | n 7\r | |
9 | -1\r | |
10 | tad sp i\r | |
11 | cma\r | |
12 | tad lastv\r | |
13 | dac lastv\r | |
14 | lmq\r | |
15 | lac sp\r | |
16 | tad d1\r | |
17 | dac sp i\r | |
18 | isz sp\r | |
19 | lacq\r | |
20 | dac sp i\r | |
21 | isz sp\r | |
22 | jmp fetch\r | |
23 | \r | |
24 | .read: .+1\r | |
25 | s 2\r | |
26 | n 8\r | |
27 | n 7\r | |
28 | lac sp\r | |
29 | tad d1\r | |
30 | dac sp i\r | |
31 | isz sp\r | |
32 | jms getc\r | |
33 | dac sp i\r | |
34 | isz sp\r | |
35 | jmp fetch\r | |
36 | \r | |
37 | .write: .+1\r | |
38 | s 2\r | |
39 | n 8\r | |
40 | n 7\r | |
41 | lac sp i\r | |
42 | dac t1\r | |
43 | lrss 9\r | |
44 | jms putc\r | |
45 | lac t1\r | |
46 | jms putc\r | |
47 | jmp fetch\r | |
48 | \r | |
49 | .flush: .+1\r | |
50 | n 8\r | |
51 | n 7\r | |
52 | jms flush\r | |
53 | jmp fetch\r | |
54 | \r | |
55 | getc: 0\r | |
56 | lac iflg\r | |
57 | dzm iflg\r | |
58 | sza\r | |
59 | jmp getc i\r | |
60 | lac cibufp\r | |
61 | sad eibufp\r | |
62 | jmp 1f\r | |
63 | lac cibufp i\r | |
64 | and o777\r | |
65 | dac iflg\r | |
66 | lac cibufp i\r | |
67 | isz cibufp\r | |
68 | lrss 9\r | |
69 | jmp getc i\r | |
70 | 1:\r | |
71 | lac .fin\r | |
72 | sys read; ibufp: ..; 64\r | |
73 | sna spa\r | |
74 | jmp 1f\r | |
75 | tad ibufp\r | |
76 | dac eibufp\r | |
77 | lac ibufp\r | |
78 | dac cibufp\r | |
79 | jmp getc+1\r | |
80 | 1:\r | |
81 | lac o4\r | |
82 | jmp getc i\r | |
83 | \r | |
84 | putc: 0\r | |
85 | and o777\r | |
86 | sna\r | |
87 | jmp putc i\r | |
88 | lmq\r | |
89 | lac oflg\r | |
90 | sza\r | |
91 | jmp 1f\r | |
92 | lacq\r | |
93 | alss 9\r | |
94 | dac cobufp i\r | |
95 | dac oflg\r | |
96 | jmp putc i\r | |
97 | 1:\r | |
98 | lac cobufp i\r | |
99 | omq\r | |
100 | dac cobufp i\r | |
101 | dac cobufp i\r | |
102 | dzm oflg\r | |
103 | isz cobufp\r | |
104 | lac cobufp\r | |
105 | sad eobufp\r | |
106 | skp\r | |
107 | jmp putc i\r | |
108 | lac .fout\r | |
109 | sys write; obufp: ..; 64\r | |
110 | lac obufp\r | |
111 | dac cobufp\r | |
112 | jmp putc i\r | |
113 | \r | |
114 | stop:\r | |
115 | jms flush\r | |
116 | las\r | |
117 | sma\r | |
118 | sys save\r | |
119 | sys exit\r | |
120 | \r | |
121 | flush: 0\r | |
122 | lac oflg\r | |
123 | sza\r | |
124 | isz cobufp\r | |
125 | lac cobufp\r | |
126 | cma\r | |
127 | tad obufp\r | |
128 | cma\r | |
129 | sna\r | |
130 | jmp flush i\r | |
131 | dac 1f+1\r | |
132 | lac obufp\r | |
133 | dac 1f\r | |
134 | lac .fout\r | |
135 | sys write; 1: ..; ..\r | |
136 | lac obufp\r | |
137 | dac cobufp\r | |
138 | dzm oflg\r | |
139 | jmp flush i\r | |
140 | \r | |
141 | initio: 0\r | |
142 | lac 017777 i\r | |
143 | sad d4\r | |
144 | jmp 2f\r | |
145 | sad d8\r | |
146 | jmp 1f\r | |
147 | \r | |
148 | law 9\r | |
149 | tad 017777\r | |
150 | dac .+3\r | |
151 | law 017\r | |
152 | sys creat; ..\r | |
153 | spa\r | |
154 | jmp stop\r | |
155 | dac .fout\r | |
156 | 1:\r | |
157 | law 5\r | |
158 | tad 017777\r | |
159 | dac .+2\r | |
160 | sys open; ..; 0\r | |
161 | spa\r | |
162 | jmp stop\r | |
163 | dac .fin\r | |
164 | 2:\r | |
165 | lac lastv\r | |
166 | dac eibufp\r | |
167 | dac cibufp\r | |
168 | -64\r | |
169 | tad lastv\r | |
170 | dac lastv\r | |
171 | dac ibufp\r | |
172 | lac lastv\r | |
173 | dac eobufp\r | |
174 | -64\r | |
175 | tad lastv\r | |
176 | dac lastv\r | |
177 | dac obufp\r | |
178 | dac cobufp\r | |
179 | dzm oflg\r | |
180 | jmp initio i\r | |
181 | \r | |
182 | .fin: 0\r | |
183 | .fout: 1\r | |
184 | eibufp: 0\r | |
185 | cibufp: 0\r | |
186 | iflg: 0\r | |
187 | eobufp: 0\r | |
188 | cobufp: 0\r | |
189 | oflg: 0\r | |
190 | lastv: 017770\r | |
191 | \r | |
192 | o777: 0777\r | |
193 | d4:o4: 4\r | |
194 | d8: 8 |