Commit | Line | Data |
---|---|---|
69f28986 KT |
1 | " ald |
2 | ||
3 | law 17 | |
4 | sys sysloc | |
5 | dac crread | |
6 | tad d1 | |
7 | dac crchar | |
8 | ||
9 | law 4 | |
10 | sys sysloc | |
11 | tad d14 | |
12 | dac systime | |
13 | ||
14 | loop: | |
15 | jms holcard | |
16 | lac o12 | |
17 | dac buf+4 | |
18 | lac d1 | |
19 | sys write; buf; 5 | |
20 | law 017 | |
21 | sys creat; buf | |
22 | spa | |
23 | jmp ferror | |
24 | dac fo | |
25 | dzm noc | |
26 | law obuf | |
27 | dac opt | |
28 | dzm seq | |
29 | ||
30 | cloop: | |
31 | jms bincard | |
32 | lac buf | |
33 | and o700 | |
34 | sad o500 | |
35 | skp | |
36 | jmp notbin | |
37 | ||
38 | -48 | |
39 | dac c1 | |
40 | lac buf+3 | |
41 | dac sum | |
42 | dzm buf+3 | |
43 | law buf-1 | |
44 | dac 10 | |
45 | cla | |
46 | 1: | |
47 | add 10 i | |
48 | isz c1 | |
49 | jmp 1b | |
50 | sad sum | |
51 | skp | |
52 | jmp badcksum | |
53 | ||
54 | lac buf+1 | |
55 | sad seq | |
56 | skp | |
57 | jmp badseq | |
58 | ||
59 | -1 | |
60 | tad buf+2 | |
61 | cma | |
62 | dac c1 | |
63 | law buf+3 | |
64 | dac 10 | |
65 | 1: | |
66 | lac 10 i | |
67 | jms putword | |
68 | isz c1 | |
69 | jmp 1b | |
70 | ||
71 | isz seq | |
72 | lac buf | |
73 | sma | |
74 | jmp cloop | |
75 | lac noc | |
76 | sna | |
77 | jmp 1f | |
78 | dac 0f | |
79 | lac fo | |
80 | sys write; obuf; 0;.. | |
81 | 1: | |
82 | lac fo | |
83 | sys close | |
84 | sys exit | |
85 | ||
86 | holcard: 0 | |
87 | jms rawcard | |
88 | lac 1f | |
89 | dac buf | |
90 | lac 1f+1 | |
91 | dac buf+1 | |
92 | lac 1f+2 | |
93 | dac buf+2 | |
94 | lac 1f+3 | |
95 | dac buf+3 | |
96 | jmp holcard i | |
97 | 1: <xx>;040040;040040;040040 | |
98 | ||
99 | bincard: 0 | |
100 | jms rawcard | |
101 | -24 | |
102 | dac c | |
103 | law tbuf-1 | |
104 | dac 8 | |
105 | law buf-1 | |
106 | dac 9 | |
107 | 1: | |
108 | lac 8 i | |
109 | alss 6 | |
110 | dac 1f | |
111 | lac 8 i | |
112 | dac 1f+1 | |
113 | lac 8 i | |
114 | dac 1f+2 | |
115 | lac 1f+1 | |
116 | lrss 6 | |
117 | xor 1f | |
118 | dac 9 i | |
119 | lac 1f+1 | |
120 | alss 12 | |
121 | xor 1f+2 | |
122 | dac 9 i | |
123 | isz c | |
124 | jmp 1b | |
125 | jmp bincard i | |
126 | 1: 0;0;0 | |
127 | ||
128 | rawcard: 0 | |
129 | lac systime i | |
130 | tad wtime | |
131 | dac tmtime | |
132 | -80 | |
133 | dac c | |
134 | law tbuf-1 | |
135 | dac 8 | |
136 | crsb | |
137 | 1: | |
138 | dzm crread i | |
139 | 2: | |
140 | lac systime i | |
141 | cma | |
142 | tad tmtime | |
143 | spa | |
144 | jmp timeout | |
145 | lac crread i | |
146 | sna | |
147 | jmp 2b | |
148 | lac crchar i | |
149 | dac 8 i | |
150 | isz c | |
151 | jmp 1b | |
152 | law | |
153 | dac 1f | |
154 | isz 1f | |
155 | jmp .-1 | |
156 | jmp rawcard i | |
157 | 1: 0 | |
158 | ||
159 | badcksum: | |
160 | lac d1 | |
161 | sys write; m1; m1s | |
162 | jms wait | |
163 | jmp cloop | |
164 | ||
165 | badseq: | |
166 | lac d1 | |
167 | sys write; m2; m2s | |
168 | jms wait | |
169 | jmp cloop | |
170 | ||
171 | notbin: | |
172 | lac d1 | |
173 | sys write; m3; m3s | |
174 | jms wait | |
175 | cmp cloop | |
176 | ||
177 | timeout: | |
178 | lac d1 | |
179 | sys write; m4; m4s | |
180 | jms wait | |
181 | jmp rawcard+1 | |
182 | ||
183 | m1: | |
184 | <ba>;<d 040; <ch>;<ec>;<ks>;<um>; 012 | |
185 | m1s = .-m1 | |
186 | ||
187 | m2: | |
188 | <ba>;<d 040; <se>;<qu>;<en>;<ce>; 012 | |
189 | m2s = .-m2 | |
190 | ||
191 | m3: | |
192 | <no>;<t 040; <bi>;<na>;<ry>; 012 | |
193 | m3s = .-m3 | |
194 | ||
195 | m4: | |
196 | <ti>;<me>;<ou>;<t 012 | |
197 | m4s = .-m4 | |
198 | ||
199 | wait: 0 | |
200 | las | |
201 | dac 2f | |
202 | 1: | |
203 | las | |
204 | sad 2f | |
205 | jmp 1b | |
206 | and d1 | |
207 | sna | |
208 | jmp wait i | |
209 | sys save | |
210 | 2: 0 | |
211 | ||
212 | putword: 0 | |
213 | dac opt i | |
214 | isz opt | |
215 | isz noc | |
216 | lac noc | |
217 | sad d2048 | |
218 | skp | |
219 | jmp putword i | |
220 | lac fo | |
221 | sys write; obuf; 2048 | |
222 | dzm noc | |
223 | law obuf | |
224 | dac opt | |
225 | jmp putword i | |
226 | jmp putword i | |
227 | ||
228 | d1: 1 | |
229 | d2048: 2048 | |
230 | d14: 14 | |
231 | o500: 0500 | |
232 | o700: 0700 | |
233 | o12: 012 | |
234 | wtime: 300 | |
235 | c: .=.+1 | |
236 | c1: .=.+1 | |
237 | buf: .=.+100 | |
238 | tbuf: .=.+80 | |
239 | fo: .=.+1 | |
240 | seq: .=.+1 | |
241 | sum: .=.+1 | |
242 | obuf: .=.+2048 | |
243 | noc: .=.+1 | |
244 | opt: .=.+1 | |
245 | systime: .=.+1 | |
246 | crread: .=.+1 | |
247 | crchar: .=.+1 | |
248 | tmtime: .=.+1 | |
249 | ||
250 | crsb = 0706744 |