github.com/pkimpel.retro-220
1
0
Fork 0
mirror of https://github.com/pkimpel/retro-220.git synced 2026-04-10 06:46:01 +00:00
Code Issues Releases Wiki Activity

Commit 220 Diagnostic paper tape routines from Al Kossow

Browse Source 
1. Commit 220-Paper-Tape-Decoder.html script to convert Al Kossow's
binary paper tape images to retro-220 paper tape image files.
2. Commit decoded paper tapes and disassembly listings.
3. Additional refinements to BAC-Disassembler.html.
This commit is contained in:
Paul Kimpel
2020-08-20 15:37:57 -07:00
parent 0a9ec1bff5
commit 0c57cfb6dd
12 changed files with 6671 additions and 228 deletions
Download Patch File Download Diff File Expand all files Collapse all files

545
software/Diagnostics/TR1202-Memory-Test.lst Normal file
View File

@@ -0,0 +1,545 @@
Disassembler for the Burroughs 220 BALGOL Compiler & Library -- 2020-08-20 09:52
Source File: TR1202-Memory-Test.pt
1 0000 REM TR1202-MEMORY-TEST.PT
2 0020 LOCN 20
3 0020 0 0000 42 0378 LDB 378
4 0021 1 0000 10 0363 CAD - 363
5 0022 0 0008 43 0000 LSA 8
6 0023 1 0000 40 0363 STA - 363
7 0024 1 0000 10 0364 CAD - 364
8 0025 0 0007 43 0000 LSA 7
9 0026 1 0000 40 0364 STA - 364
10 0027 0 0002 21 0021 DBB 21,2
11 0028 0 0000 01 0000 NOP
12 0029 0 0000 01 0000 NOP
13 0030 0 0000 42 0357 LDB 357
14 0031 0 0001 45 0000 CLA
15 0032 1 0000 12 0020 ADD - 20
16 0033 0 0000 31 0034 BOF *+1
17 0034 0 0001 21 0032 DBB *-2,1
18 0035 0 0000 01 0000 NOP
19 0036 0 0000 18 0382 CFA 382
20 0037 0 0000 35 0042 BCE 42
21 0038 0 6661 00 6666 HLT 6666,6661
22 0039 0 0000 30 0030 BUN 30
23 0040 0 0000 01 0000 NOP
24 0041 0 0000 01 0000 NOP
25 0042 0 0000 10 0358 CAD 358
26 0043 0 7110 40 0088 STA 88,71
27 0044 0 7110 40 0090 STA 90,71
28 0045 0 7110 40 0091 STA 91,71
29 0046 0 7110 40 0139 STA 139,71
30 0047 0 7110 40 0141 STA 141,71
31 0048 0 7110 40 0142 STA 142,71
32 0049 0 7110 40 0180 STA 180,71
33 0050 0 7110 40 0182 STA 182,71
34 0051 0 7110 40 0183 STA 183,71
35 0052 0 7110 40 0347 STA 347,71
36 0053 0 7110 40 0349 STA 349,71
37 0054 0 7110 40 0355 STA 355,71
38 0055 0 7110 40 0359 STA 359,71
39 0056 0 0000 01 0000 NOP
40 0057 0 0000 01 0000 NOP
41 0058 0 0000 42 0361 LDB 361
42 0059 0 0000 10 0356 CAD 356
43 0060 0 0000 14 0375 MUL 375
44 0061 0 4110 40 0063 STA *+2,41
45 0062 0 0001 49 0005 SLT 5
46 0063 0 0000 43 0000 LSA 0
47 0064 1 0000 40 0600 STA - 600
48 0065 1 0000 18 0600 CFA - 600
49 0066 0 0000 35 0070 BCE 70
50 0067 1 0000 41 0600 LDR - 600
51 0068 1 0001 00 0600 HLT - 600,1
52 0069 0 0000 30 0064 BUN 64
53 0070 0 0001 21 0060 DBB 60,1
54 0071 0 0000 40 0356 STA 356
55 0072 0 4112 40 0063 STB 63,41
56 0073 0 0000 01 0000 NOP
57 0074 0 0000 42 0361 LDB 361
58 0075 1 0000 46 0500 CLL - 500
59 0076 0 0001 21 0075 DBB *-1,1
60 0077 0 0000 42 0358 LDB 358
61 0078 0 0000 29 0500 RTF 500,0
62 0079 0 2101 27 0080 DFL *+1,21,1
63 0080 0 0900 32 0078 BRP *-2,900
64 0081 0 0000 42 0358 LDB 358
65 0082 0 0000 29 0600 RTF 600,0
66 0083 0 2101 27 0084 DFL *+1,21,1
67 0084 0 0900 32 0082 BRP *-2,900
68 0085 0 0000 01 0000 NOP
69 0086 0 0000 42 0360 LDB 360
70 0087 0 0000 10 0699 CAD 699
71 0088 1 0000 18 1000 CFA - 1000
72 0089 0 0000 35 0094 BCE 94
73 0090 1 0000 41 1000 LDR - 1000
74 0091 1 0002 00 1000 HLT - 1000,2
75 0092 0 0000 30 0094 BUN *+2
76 0093 0 0000 01 0000 NOP
77 0094 0 0201 27 0087 DFL 87,2,1
78 0095 0 0001 21 0087 DBB 87,1
79 0096 0 1000 38 0077 BCS 77,1
80 0097 0 0000 01 0000 NOP
81 0098 0 0000 01 0000 NOP
82 0099 0 0000 01 0000 NOP
83 0100 0 0000 42 0104 LDB 104
84 0101 0 0000 29 0600 RTF 600,0
85 0102 0 0000 01 0000 NOP
86 0103 0 0000 42 0361 LDB 361
87 0104 1 0001 10 0500 CAA - 500,1
88 0105 0 0000 12 0367 ADD 367
89 0106 0 0000 31 0109 BOF *+3
90 0107 0 0000 41 0368 LDR 368
91 0108 0 0000 30 0110 BUN *+2
92 0109 0 0000 41 0369 LDR 369
93 0110 0 0001 49 0001 SLT 1
94 0111 0 2101 27 0112 DFL *+1,21,1
95 0112 0 0900 32 0105 BRP 105,900
96 0113 0 0001 48 0010 SRT 10
97 0114 1 0000 10 0500 CAD - 500
98 0115 0 0002 48 0001 SRS 1
99 0116 0 1110 18 0367 CFA 367,11
100 0117 0 0000 34 0120 BCH *+3
101 0118 0 0006 43 0000 LSA 6
102 0119 0 0000 30 0121 BUN *+2
103 0120 0 0009 43 0000 LSA 9
104 0121 0 0001 48 0000 SRT 0
105 0122 1 0001 40 0600 STR - 600
106 0123 0 0001 21 0104 DBB 104,1
107 0124 0 0000 01 0000 NOP
108 0125 0 0000 01 0000 NOP
109 0126 0 0000 30 0132 BUN 132
110 0127 0 0000 42 0358 LDB 358
111 0128 0 0000 29 0500 RTF 500,0
112 0129 0 2101 27 0130 DFL *+1,21,1
113 0130 0 0900 32 0128 BRP *-2,900
114 0131 0 0000 01 0000 NOP
115 0132 0 0000 42 0358 LDB 358
116 0133 0 0000 29 0600 RTF 600,0
117 0134 0 2101 27 0135 DFL *+1,21,1
118 0135 0 0900 32 0133 BRP *-2,900
119 0136 0 0000 01 0000 NOP
120 0137 0 0000 42 0360 LDB 360
121 0138 0 0000 10 0699 CAD 699
122 0139 1 0000 18 1000 CFA - 1000
123 0140 0 0000 35 0145 BCE 145
124 0141 1 0000 41 1000 LDR - 1000
125 0142 1 0003 00 1000 HLT - 1000,3
126 0143 0 0000 30 0145 BUN *+2
127 0144 0 0000 01 0000 NOP
128 0145 0 0201 27 0138 DFL 138,2,1
129 0146 0 0001 21 0138 DBB 138,1
130 0147 0 1000 38 0127 BCS 127,1
131 0148 0 0000 01 0000 NOP
132 0149 0 0000 01 0000 NOP
133 0150 0 0000 42 0154 LDB 154
134 0151 0 0000 29 0600 RTF 600,0
135 0152 0 0000 01 0000 NOP
136 0153 0 0000 42 0370 LDB 370
137 0154 1 0000 10 0500 CAD - 500
138 0155 0 0000 42 0371 LDB 371
139 0156 0 0009 33 0159 BSA *+3,9
140 0157 0 0009 43 0000 LSA 9
141 0158 0 0000 30 0160 BUN *+2
142 0159 0 0006 43 0000 LSA 6
143 0160 0 0002 49 0001 SLS 1
144 0161 0 0001 21 0156 DBB 156,1
145 0162 0 0000 42 0370 LDB 370
146 0163 1 0000 40 0600 STA - 600
147 0164 0 0201 27 0370 DFL 370,2,1
148 0165 0 0000 32 0153 BRP 153
149 0166 0 0000 01 0000 NOP
150 0167 0 0000 30 0173 BUN 173
151 0168 0 0000 42 0358 LDB 358
152 0169 0 0000 29 0500 RTF 500,0
153 0170 0 2101 27 0171 DFL *+1,21,1
154 0171 0 0900 32 0169 BRP *-2,900
155 0172 0 0000 01 0000 NOP
156 0173 0 0000 42 0358 LDB 358
157 0174 0 0000 29 0600 RTF 600,0
158 0175 0 2101 27 0176 DFL *+1,21,1
159 0176 0 0900 32 0174 BRP *-2,900
160 0177 0 0000 01 0000 NOP
161 0178 0 0000 42 0360 LDB 360
162 0179 0 0000 10 0699 CAD 699
163 0180 1 0000 18 1000 CFA - 1000
164 0181 0 0000 35 0186 BCE 186
165 0182 1 0000 41 1000 LDR - 1000
166 0183 1 0004 00 1000 HLT - 1000,4
167 0184 0 0000 30 0186 BUN *+2
168 0185 0 0000 01 0000 NOP
169 0186 0 0201 27 0179 DFL 179,2,1
170 0187 0 0001 21 0179 DBB 179,1
171 0188 0 1000 38 0168 BCS 168,1
172 0189 0 0000 42 0193 LDB 193
173 0190 0 0000 29 0600 RTF 600,0
174 0191 0 0000 30 0197 BUN 197
175 0192 0 0000 42 0358 LDB 358
176 0193 0 0000 29 0500 RTF 500,0
177 0194 0 2101 27 0195 DFL *+1,21,1
178 0195 0 0900 32 0193 BRP *-2,900
179 0196 0 0000 01 0000 NOP
180 0197 0 0001 45 0000 CLA
181 0198 0 7110 40 0248 STA 248,71
182 0199 0 0000 01 0000 NOP
183 0200 0 0000 01 0000 NOP
184 0201 0 0000 01 0000 NOP
185 0202 0 0000 01 0000 NOP
186 0203 0 0000 42 0359 LDB 359
187 0204 0 0002 40 0372 STB 372
188 0205 0 0000 10 0372 CAD 372
189 0206 0 0002 49 0010 SLS 10
190 0207 0 0002 33 0212 BSA 212,2
191 0208 0 0003 33 0212 BSA 212,3
192 0209 0 0006 33 0212 BSA *+3,6
193 0210 0 0007 33 0212 BSA *+2,7
194 0211 0 0000 30 0213 BUN *+2
195 0212 0 0001 26 0373 IFL 373,0,1
196 0213 0 0000 10 0372 CAD 372
197 0214 0 0002 49 0009 SLS 9
198 0215 0 0002 33 0221 BSA 221,2
199 0216 0 0003 33 0221 BSA 221,3
200 0217 0 0006 33 0221 BSA 221,6
201 0218 0 0007 33 0221 BSA *+3,7
202 0219 0 0000 30 0222 BUN *+3
203 0220 0 0000 01 0000 NOP
204 0221 0 0001 26 0373 IFL 373,0,1
205 0222 0 0000 10 0372 CAD 372
206 0223 0 0002 49 0008 SLS 8
207 0224 0 0001 33 0232 BSA 232,1
208 0225 0 0002 33 0232 BSA 232,2
209 0226 0 0003 33 0234 BSA 234,3
210 0227 0 0005 33 0232 BSA 232,5
211 0228 0 0006 33 0232 BSA 232,6
212 0229 0 0007 33 0234 BSA 234,7
213 0230 0 0009 33 0232 BSA *+2,9
214 0231 0 0000 30 0235 BUN 235
215 0232 0 0001 26 0373 IFL 373,0,1
216 0233 0 0000 30 0235 BUN *+2
217 0234 0 0002 26 0373 IFL 373,0,2
218 0235 0 0000 10 0372 CAD 372
219 0236 0 0002 49 0007 SLS 7
220 0237 0 0000 12 0374 ADD 374
221 0238 0 0000 33 0240 BSA *+2,0
222 0239 0 0001 26 0373 IFL 373,0,1
223 0240 0 0000 10 0373 CAD 373
224 0241 0 0000 46 0373 CLL 373
225 0242 0 0002 49 0010 SLS 10
226 0243 0 0000 12 0374 ADD 374
227 0244 0 0000 33 0247 BSA *+3,0
228 0245 0 0000 10 0363 CAD 363
229 0246 0 0000 30 0248 BUN *+2
230 0247 0 0000 10 0364 CAD 364
231 0248 1 0000 40 0000 STA - 0
232 0249 0 0001 21 0250 DBB *+1,1
233 0250 0 4301 27 0251 DFL *+1,43,1
234 0251 0 0999 32 0204 BRP 204,999
235 0252 0 0000 01 0000 NOP
236 0253 0 0001 45 0000 CLA
237 0254 0 7110 40 0261 STA 261,71
238 0255 0 7110 40 0264 STA 264,71
239 0256 0 7110 40 0265 STA 265,71
240 0257 0 7110 40 0267 STA 267,71
241 0258 0 7110 40 0268 STA 268,71
242 0259 0 7110 40 0278 STA 278,71
243 0260 0 0000 42 0359 LDB 359
244 0261 1 0000 10 0000 CAD - 0
245 0262 0 0000 40 0379 STA 379
246 0263 0 0000 10 0365 CAD 365
247 0264 1 0000 40 0000 STA - 0
248 0265 1 0000 18 0000 CFA - 0
249 0266 0 0000 35 0270 BCE 270
250 0267 1 0000 41 0000 LDR - 0
251 0268 1 0005 00 0000 HLT - 0,5
252 0269 0 0000 30 0264 BUN 264
253 0270 0 1000 38 0264 BCS 264,1
254 0271 0 0000 10 0365 CAD 365
255 0272 0 0000 41 0366 LDR 366
256 0273 0 0000 40 0366 STA 366
257 0274 0 0001 40 0365 STR 365
258 0275 0 2105 27 0276 DFL *+1,21,5
259 0276 0 0900 32 0263 BRP 263,900
260 0277 0 0000 10 0379 CAD 379
261 0278 1 0000 40 0000 STA - 0
262 0279 0 0001 21 0280 DBB *+1,1
263 0280 0 4301 27 0281 DFL *+1,43,1
264 0281 0 0999 32 0261 BRP 261,999
265 0282 0 0000 01 0000 NOP
266 0283 0 0000 01 0000 NOP
267 0284 0 0000 01 0000 NOP
268 0285 0 0000 01 0000 NOP
269 0286 0 0000 10 0363 CAD 363
270 0287 0 0000 41 0364 LDR 364
271 0288 0 0000 40 0364 STA 364
272 0289 0 0001 40 0363 STR 363
273 0290 0 2105 27 0291 DFL *+1,21,5
274 0291 0 0900 32 0203 BRP 203,900
275 0292 0 0000 01 0000 NOP
276 0293 0 0000 01 0000 NOP
277 0294 0 7000 38 0296 BCS *+2,7
278 0295 0 0000 30 0297 BUN *+2
279 0296 0 7201 26 0380 IFL 380,72,1
280 0297 0 8000 38 0299 BCS *+2,8
281 0298 0 0000 30 0300 BUN *+2
282 0299 0 7202 26 0380 IFL 380,72,2
283 0300 0 9000 38 0302 BCS *+2,9
284 0301 0 0000 30 0303 BUN *+2
285 0302 0 7204 26 0380 IFL 380,72,4
286 0303 0 0000 38 0305 BCS *+2
287 0304 0 0000 30 0306 BUN *+2
288 0305 0 7208 26 0380 IFL 380,72,8
289 0306 0 0000 10 0380 CAD 380
290 0307 0 0000 46 0380 CLL 380
291 0308 0 0000 36 0315 BFA 315,0,0
292 0309 0 7110 18 0358 CFA 358,71
293 0310 0 0000 35 0042 BCE 42
294 0311 0 0000 01 0000 NOP
295 0312 0 0000 01 0000 NOP
296 0313 0 0000 01 0000 NOP
297 0314 0 0000 01 0000 NOP
298 0315 0 7201 26 0358 IFL 358,72,1
299 0316 0 0000 01 0000 NOP
300 0317 0 0000 10 0358 CAD 358
301 0318 0 0000 18 0000 CFA 0
302 0319 0 0001 35 0339 BCU 339
303 0320 0 0000 46 0358 CLL 358
304 0321 0 0000 10 0376 CAD 376
305 0322 0 0000 40 0316 STA 316
306 0323 0 0000 30 0339 BUN 339
307 0324 0 0001 27 0354 DFL 354,0,1
308 0325 0 0000 32 0332 BRP 332
309 0326 0 0000 42 0374 LDB 374
310 0327 0 0010 29 0000 RTF 0,1
311 0328 0 1000 04 0000 PRB 0,1
312 0329 0 0000 01 0000 NOP
313 0330 0 0000 01 0000 NOP
314 0331 0 0000 01 0000 NOP
315 0332 0 0000 10 0381 CAD 381
316 0333 0 0000 40 0316 STA 316
317 0334 0 0000 30 0339 BUN 339
318 0335 0 0000 01 0000 NOP
319 0336 0 0000 01 0000 NOP
320 0337 0 0000 01 0000 NOP
321 0338 0 0000 01 0000 NOP
322 0339 0 0000 42 0355 LDB 355
323 0340 0 0000 29 0000 RTF 0,0
324 0341 0 0000 29 0100 RTF 100,0
325 0342 0 0000 29 0200 RTF 200,0
326 0343 0 0000 29 0300 RTF 300,0
327 0344 0 0000 01 0000 NOP
328 0345 0 0000 42 0377 LDB 377
329 0346 0 0000 10 0355 CAD 355
330 0347 1 7110 40 1020 STA - 1020,71
331 0348 0 0001 21 0347 DBB *-1,1
332 0349 0 0000 30 1042 BUN 1042
333 0350 0 0000 01 0000 NOP
334 0351 0 0000 00 0000 HLT
335 0352 0 0000 00 0000 HLT
336 0353 0 0000 00 0000 HLT
337 0354 0 0000 00 0000 HLT
338 0355 0 0000 00 0000 HLT
339 0356 0 9173 55 3719 MIR 3719,9,1,73
340 0357 0 0000 00 0330 HLT 330
341 0358 0 0000 00 1000 HLT 1000
342 0359 0 0000 00 1999 HLT 1999
343 0360 0 0000 00 0999 HLT 999
344 0361 0 0000 00 0099 HLT 99
345 0362 0 0000 00 0500 HLT 500
346 0363 0 8888 88 8888 CNST 8888888888
347 0364 0 7777 77 7777 CNST 7777777777
348 0365 0 8888 88 8888 CNST 8888888888
349 0366 0 7777 77 7777 CNST 7777777777
350 0367 0 5000 00 0000 HLT 0,5000
351 0368 0 6000 00 0000 HLT 0,6000
352 0369 0 9000 00 0000 HLT 0,9000
353 0370 0 0000 00 0099 HLT 99
354 0371 0 0000 00 0010 HLT 10
355 0372 0 0000 00 0000 HLT
356 0373 0 0000 00 0000 HLT
357 0374 0 0000 00 0000 HLT
358 0375 1 1111 11 1111 CSA - 1111,1111
359 0376 0 0000 30 0324 BUN 324
360 0377 0 0000 00 0330 HLT 330
361 0378 0 0000 00 0002 HLT 2
362 0379 0 0000 00 0000 HLT
363 0380 0 0000 00 0000 HLT
364 0381 0 0000 01 0000 NOP
365 0382 0 4864 11 0965 CSU 965,4864
366 0383 0 0000 00 0000 HLT
367 0384 0 0000 00 0000 HLT
368 0385 0 0000 00 0000 HLT
369 0386 0 0000 00 0000 HLT
370 0387 0 0000 00 0000 HLT
371 0388 0 0000 00 0000 HLT
372 0389 0 0000 00 0000 HLT
373 0390 0 0000 00 0000 HLT
374 0391 0 0000 00 0000 HLT
375 0392 6 0000 30 0020 BUN 6 20
376 0020 LOCN 20
377 0020 0 0000 42 0179 LDB 179
378 0021 1 0000 10 0174 CAD - 174
379 0022 0 0008 43 0000 LSA 8
380 0023 1 0000 40 0174 STA - 174
381 0024 1 0000 10 0175 CAD - 175
382 0025 0 0007 43 0000 LSA 7
383 0026 1 0000 40 0175 STA - 175
384 0027 0 0002 21 0021 DBB 21,2
385 0028 0 0000 42 0029 LDB *+1
386 0029 0 0001 45 0142 CLA 142
387 0030 1 0000 12 0020 ADD - 20
388 0031 0 0000 31 0032 BOF *+1
389 0032 0 0001 21 0030 DBB *-2,1
390 0033 0 0000 18 0163 CFA 163
391 0034 0 0000 35 0039 BCE 39
392 0035 0 6662 00 6666 HLT 6666,6662
393 0036 0 0000 30 0028 BUN 28
394 0037 0 0000 01 0000 NOP
395 0038 0 0000 01 0000 NOP
396 0039 0 0000 10 0000 CAD 0
397 0040 0 0000 40 0165 STA 165
398 0041 0 0000 13 0166 SUB 166
399 0042 0 0000 40 0167 STA 167
400 0043 0 0000 13 0168 SUB 168
401 0044 0 0000 40 0164 STA 164
402 0045 0 0000 40 0169 STA 169
403 0046 0 0000 40 0170 STA 170
404 0047 0 0000 12 0182 ADD 182
405 0048 0 8210 40 0154 STA 154,82
406 0049 0 8210 40 0159 STA 159,82
407 0050 0 8210 40 0161 STA 161,82
408 0051 0 0000 40 0181 STA 181
409 0052 0 0000 42 0167 LDB 167
410 0053 0 0002 40 0171 STB 171
411 0054 0 0000 10 0171 CAD 171
412 0055 0 0002 49 0010 SLS 10
413 0056 0 0002 33 0061 BSA 61,2
414 0057 0 0003 33 0061 BSA 61,3
415 0058 0 0006 33 0061 BSA *+3,6
416 0059 0 0007 33 0061 BSA *+2,7
417 0060 0 0000 30 0062 BUN *+2
418 0061 0 0001 26 0172 IFL 172,0,1
419 0062 0 0000 10 0171 CAD 171
420 0063 0 0002 49 0009 SLS 9
421 0064 0 0002 33 0070 BSA 70,2
422 0065 0 0003 33 0070 BSA 70,3
423 0066 0 0006 33 0070 BSA 70,6
424 0067 0 0007 33 0070 BSA *+3,7
425 0068 0 0000 30 0071 BUN *+3
426 0069 0 0000 01 0000 NOP
427 0070 0 0001 26 0172 IFL 172,0,1
428 0071 0 0000 10 0171 CAD 171
429 0072 0 0002 49 0008 SLS 8
430 0073 0 0001 33 0081 BSA 81,1
431 0074 0 0002 33 0081 BSA 81,2
432 0075 0 0003 33 0083 BSA 83,3
433 0076 0 0005 33 0081 BSA 81,5
434 0077 0 0006 33 0081 BSA 81,6
435 0078 0 0007 33 0083 BSA 83,7
436 0079 0 0009 33 0081 BSA *+2,9
437 0080 0 0000 30 0084 BUN 84
438 0081 0 0001 26 0172 IFL 172,0,1
439 0082 0 0000 30 0084 BUN *+2
440 0083 0 0002 26 0172 IFL 172,0,2
441 0084 0 0000 10 0171 CAD 171
442 0085 0 0002 49 0007 SLS 7
443 0086 0 0000 12 0173 ADD 173
444 0087 0 0000 33 0089 BSA *+2,0
445 0088 0 0001 26 0172 IFL 172,0,1
446 0089 0 0000 10 0172 CAD 172
447 0090 0 0000 46 0172 CLL 172
448 0091 0 0002 49 0010 SLS 10
449 0092 0 0000 12 0173 ADD 173
450 0093 0 0000 33 0096 BSA *+3,0
451 0094 0 0000 10 0174 CAD 174
452 0095 0 0000 30 0097 BUN *+2
453 0096 0 0000 10 0175 CAD 175
454 0097 1 0000 40 0000 STA - 0
455 0098 0 0001 21 0099 DBB *+1,1
456 0099 0 0001 27 0169 DFL 169,0,1
457 0100 0 0000 32 0053 BRP 53
458 0101 0 0000 30 0112 BUN 112
459 0102 0 0000 01 0000 NOP
460 0103 0 0000 01 0000 NOP
461 0104 0 0000 01 0000 NOP
462 0105 0 0000 01 0000 NOP
463 0106 0 0000 01 0000 NOP
464 0107 0 0000 01 0000 NOP
465 0108 0 0000 01 0000 NOP
466 0109 0 0000 01 0000 NOP
467 0110 0 0000 01 0000 NOP
468 0111 0 0000 01 0000 NOP
469 0112 0 0000 42 0167 LDB 167
470 0113 1 0000 10 0000 CAD - 0
471 0114 0 0000 40 0178 STA 178
472 0115 0 0000 10 0176 CAD 176
473 0116 1 0000 40 0000 STA - 0
474 0117 1 0000 18 0000 CFA - 0
475 0118 0 0000 35 0122 BCE 122
476 0119 1 0000 41 0000 LDR - 0
477 0120 1 0006 00 0000 HLT - 0,6
478 0121 0 0000 30 0115 BUN 115
479 0122 0 1000 38 0115 BCS 115,1
480 0123 0 0000 10 0176 CAD 176
481 0124 0 0000 41 0177 LDR 177
482 0125 0 0000 40 0177 STA 177
483 0126 0 0001 40 0176 STR 176
484 0127 0 2105 27 0128 DFL *+1,21,5
485 0128 0 0900 32 0115 BRP 115,900
486 0129 0 0000 10 0178 CAD 178
487 0130 1 0000 40 0000 STA - 0
488 0131 0 0001 21 0132 DBB *+1,1
489 0132 0 0001 27 0170 DFL 170,0,1
490 0133 0 0000 32 0113 BRP 113
491 0134 0 0000 01 0000 NOP
492 0135 0 0000 01 0000 NOP
493 0136 0 0000 10 0174 CAD 174
494 0137 0 0000 41 0175 LDR 175
495 0138 0 0000 40 0175 STA 175
496 0139 0 0001 40 0174 STR 174
497 0140 0 2105 27 0141 DFL *+1,21,5
498 0141 0 0900 32 0039 BRP 39,900
499 0142 0 2105 27 0143 DFL *+1,21,5
500 0143 0 0900 32 0148 BRP 148,900
501 0144 0 0000 42 0173 LDB 173
502 0145 0 0010 29 0000 RTF 0,1
503 0146 0 9999 00 0099 HLT 99,9999
504 0147 0 0000 30 0146 BUN *-1
505 0148 0 0103 27 0052 DFL 52,1,3
506 0149 0 0103 27 0112 DFL 112,1,3
507 0150 0 0000 42 0181 LDB 181
508 0151 0 0000 29 0000 RTF 0,0
509 0152 0 0000 29 0100 RTF 100,0
510 0153 0 0000 42 0180 LDB 180
511 0154 1 0000 10 0020 CAD - 20
512 0155 0 0001 33 0160 BSA 160,1
513 0156 0 0000 12 0181 ADD 181
514 0157 0 0000 01 0000 NOP
515 0158 0 0000 01 0000 NOP
516 0159 1 0000 40 0020 STA - 20
517 0160 0 0001 21 0154 DBB 154,1
518 0161 0 0000 30 0039 BUN 39
519 0162 0 0000 01 0000 NOP
520 0163 0 1659 82 8814 CNST 1659828814
521 0164 0 0000 00 0000 HLT
522 0165 0 0000 00 0000 HLT
523 0166 0 0000 00 0001 HLT 1
524 0167 0 0000 00 0000 HLT
525 0168 0 0000 00 0200 HLT 200
526 0169 0 0000 00 0000 HLT
527 0170 0 0000 00 0000 HLT
528 0171 0 0000 00 0000 HLT
529 0172 0 0000 00 0000 HLT
530 0173 0 0000 00 0000 HLT
531 0174 0 8888 88 8888 CNST 8888888888
532 0175 0 7777 77 7777 CNST 7777777777
533 0176 0 8888 88 8888 CNST 8888888888
534 0177 0 7777 77 7777 CNST 7777777777
535 0178 0 0000 00 0000 HLT
536 0179 0 0000 00 0002 HLT 2
537 0180 0 0000 00 0140 HLT 140
538 0181 0 0000 00 0000 HLT
539 0182 0 0000 00 0001 HLT 1
540 0183 6 0000 30 0020 BUN 6 20
541 0184 FINI 20

539
software/Diagnostics/TR1202-Memory-Test.pt Normal file
View File

@@ -0,0 +1,539 @@
61000040020
00000420378
10000100363
00008430000
10000400363
10000100364
00007430000
10000400364
00002210021
00000010000
00000010000
00000420357
00001450000
10000120020
00000310034
00001210032
00000010000
00000180382
00000350042
06661006666
00000300030
00000010000
00000010000
00000100358
07110400088
07110400090
07110400091
07110400139
07110400141
07110400142
07110400180
07110400182
07110400183
07110400347
07110400349
07110400355
07110400359
00000010000
00000010000
00000420361
00000100356
00000140375
04110400063
00001490005
00000430000
10000400600
10000180600
00000350070
10000410600
10001000600
00000300064
00001210060
00000400356
04112400063
00000010000
00000420361
10000460500
00001210075
00000420358
00000290500
02101270080
00900320078
00000420358
00000290600
02101270084
00900320082
00000010000
00000420360
00000100699
10000181000
00000350094
10000411000
10002001000
00000300094
00000010000
00201270087
00001210087
01000380077
00000010000
00000010000
00000010000
00000420104
00000290600
00000010000
00000420361
10001100500
00000120367
00000310109
00000410368
00000300110
00000410369
00001490001
02101270112
00900320105
00001480010
10000100500
00002480001
01110180367
00000340120
00006430000
00000300121
00009430000
00001480000
10001400600
00001210104
00000010000
00000010000
00000300132
00000420358
00000290500
02101270130
00900320128
00000010000
00000420358
00000290600
02101270135
00900320133
00000010000
00000420360
00000100699
10000181000
00000350145
10000411000
10003001000
00000300145
00000010000
00201270138
00001210138
01000380127
00000010000
00000010000
00000420154
00000290600
00000010000
00000420370
10000100500
00000420371
00009330159
00009430000
00000300160
00006430000
00002490001
00001210156
00000420370
10000400600
00201270370
00000320153
00000010000
00000300173
00000420358
00000290500
02101270171
00900320169
00000010000
00000420358
00000290600
02101270176
00900320174
00000010000
00000420360
00000100699
10000181000
00000350186
10000411000
10004001000
00000300186
00000010000
00201270179
00001210179
01000380168
00000420193
00000290600
00000300197
00000420358
00000290500
02101270195
00900320193
00000010000
00001450000
07110400248
00000010000
00000010000
00000010000
00000010000
00000420359
00002400372
00000100372
00002490010
00002330212
00003330212
00006330212
00007330212
00000300213
00001260373
00000100372
00002490009
00002330221
00003330221
00006330221
00007330221
00000300222
00000010000
00001260373
00000100372
00002490008
00001330232
00002330232
00003330234
00005330232
00006330232
00007330234
00009330232
00000300235
00001260373
00000300235
00002260373
00000100372
00002490007
00000120374
00000330240
00001260373
00000100373
00000460373
00002490010
00000120374
00000330247
00000100363
00000300248
00000100364
10000400000
00001210250
04301270251
00999320204
00000010000
00001450000
07110400261
07110400264
07110400265
07110400267
07110400268
07110400278
00000420359
10000100000
00000400379
00000100365
10000400000
10000180000
00000350270
10000410000
10005000000
00000300264
01000380264
00000100365
00000410366
00000400366
00001400365
02105270276
00900320263
00000100379
10000400000
00001210280
04301270281
00999320261
00000010000
00000010000
00000010000
00000010000
00000100363
00000410364
00000400364
00001400363
02105270291
00900320203
00000010000
00000010000
07000380296
00000300297
07201260380
08000380299
00000300300
07202260380
09000380302
00000300303
07204260380
00000380305
00000300306
07208260380
00000100380
00000460380
00000360315
07110180358
00000350042
00000010000
00000010000
00000010000
00000010000
07201260358
00000010000
00000100358
00000180000
00001350339
00000460358
00000100376
00000400316
00000300339
00001270354
00000320332
00000420374
00010290000
01000040000
00000010000
00000010000
00000010000
00000100381
00000400316
00000300339
00000010000
00000010000
00000010000
00000010000
00000420355
00000290000
00000290100
00000290200
00000290300
00000010000
00000420377
00000100355
17110401020
00001210347
00000301042
00000010000
00000000000
00000000000
00000000000
00000000000
00000000000
09173553719
00000000330
00000001000
00000001999
00000000999
00000000099
00000000500
08888888888
07777777777
08888888888
07777777777
05000000000
06000000000
09000000000
00000000099
00000000010
00000000000
00000000000
00000000000
11111111111
00000300324
00000000330
00000000002
00000000000
00000000000
00000010000
04864110965
00000000000
00000000000
00000000000
00000000000
00000000000
00000000000
00000000000
00000000000
00000000000
60000300020
61000040020
00000420179
10000100174
00008430000
10000400174
10000100175
00007430000
10000400175
00002210021
00000420029
00001450142
10000120020
00000310032
00001210030
00000180163
00000350039
06662006666
00000300028
00000010000
00000010000
00000100000
00000400165
00000130166
00000400167
00000130168
00000400164
00000400169
00000400170
00000120182
08210400154
08210400159
08210400161
00000400181
00000420167
00002400171
00000100171
00002490010
00002330061
00003330061
00006330061
00007330061
00000300062
00001260172
00000100171
00002490009
00002330070
00003330070
00006330070
00007330070
00000300071
00000010000
00001260172
00000100171
00002490008
00001330081
00002330081
00003330083
00005330081
00006330081
00007330083
00009330081
00000300084
00001260172
00000300084
00002260172
00000100171
00002490007
00000120173
00000330089
00001260172
00000100172
00000460172
00002490010
00000120173
00000330096
00000100174
00000300097
00000100175
10000400000
00001210099
00001270169
00000320053
00000300112
00000010000
00000010000
00000010000
00000010000
00000010000
00000010000
00000010000
00000010000
00000010000
00000010000
00000420167
10000100000
00000400178
00000100176
10000400000
10000180000
00000350122
10000410000
10006000000
00000300115
01000380115
00000100176
00000410177
00000400177
00001400176
02105270128
00900320115
00000100178
10000400000
00001210132
00001270170
00000320113
00000010000
00000010000
00000100174
00000410175
00000400175
00001400174
02105270141
00900320039
02105270143
00900320148
00000420173
00010290000
09999000099
00000300146
00103270052
00103270112
00000420181
00000290000
00000290100
00000420180
10000100020
00001330160
00000120181
00000010000
00000010000
10000400020
00001210154
00000300039
00000010000
01659828814
00000000000
00000000000
00000000001
00000000000
00000000200
00000000000
00000000000
00000000000
00000000000
00000000000
08888888888
07777777777
08888888888
07777777777
00000000000
00000000002
00000000140
00000000000
00000000001
60000300020

1846
software/Diagnostics/TR1203-Operations-Test.lst Normal file
View File

File diff suppressed because it is too large Load Diff

1840
software/Diagnostics/TR1203-Operations-Test.pt Normal file
View File

File diff suppressed because it is too large Load Diff

337
software/Diagnostics/TR1204-Arithmetic-Test.lst Normal file
View File

@@ -0,0 +1,337 @@
Disassembler for the Burroughs 220 BALGOL Compiler & Library -- 2020-08-20 15:28
Source File: TR1204-Arithmetic-Test.pt
2384 0000 REM TR1204-ARITHMETIC-TEST.PT
2385 0000 LOCN 20
2386 0020 0 0000 42 0021 LDB *+1
2387 0021 0 0001 45 0328 CLA 328
2388 0022 1 0000 12 0020 ADD - *-2
2389 0023 0 0000 31 0024 BOF *+1
2390 0024 0 0001 21 0022 DBB *-2,1
2391 0025 0 0000 36 0030 BFA 30,0,0
2392 0026 0 6666 00 6666 HLT 6666,6666
2393 0027 0 0000 30 0020 BUN 20
2394 0028 0 0000 01 0000 NOP
2395 0029 1 1513 06 3308 PWR - 3308,1,51
2396 0030 0 0000 42 0220 LDB 220
2397 0031 1 0000 10 0200 CAD - 200
2398 0032 1 0000 12 0210 ADD - 210
2399 0033 0 0000 31 0034 BOF *+1
2400 0034 0 1000 38 0031 BCS *-3,1
2401 0035 0 0000 18 0221 CFA 221
2402 0036 0 0000 35 0043 BCE 43
2403 0037 0 0000 40 0042 STA 42
2404 0038 1 0000 10 0200 CAD - 200
2405 0039 1 0000 41 0210 LDR - 210
2406 0040 0 1012 00 0042 HLT 42,1012
2407 0041 0 0000 30 0031 BUN 31
2408 0042 0 0000 00 0000 HLT
2409 0043 0 0001 21 0031 DBB 31,1
2410 0044 0 2000 38 0030 BCS 30,2
2411 0045 0 0000 42 0220 LDB 220
2412 0046 1 0000 10 0200 CAD - 200
2413 0047 1 0000 12 0240 ADD - 240
2414 0048 0 0000 31 0056 BOF 56
2415 0049 0 1000 38 0046 BCS *-3,1
2416 0050 0 0000 40 0055 STA 55
2417 0051 1 0000 10 0200 CAD - 200
2418 0052 1 0000 41 0240 LDR - 240
2419 0053 0 2012 00 0055 HLT 55,2012
2420 0054 0 0000 30 0046 BUN 46
2421 0055 0 0000 00 0000 HLT
2422 0056 0 1000 38 0046 BCS 46,1
2423 0057 0 0000 18 0222 CFA 222
2424 0058 0 0001 35 0050 BCU 50
2425 0059 0 0001 21 0046 DBB 46,1
2426 0060 0 2000 38 0045 BCS 45,2
2427 0061 0 0000 42 0224 LDB 224
2428 0062 1 0000 10 0200 CAD - 200
2429 0063 1 0000 13 0230 SUB - 230
2430 0064 0 0000 31 0065 BOF *+1
2431 0065 0 1000 38 0062 BCS *-3,1
2432 0066 0 0000 18 0223 CFA 223
2433 0067 0 0000 35 0074 BCE 74
2434 0068 0 0000 40 0073 STA 73
2435 0069 1 0000 10 0200 CAD - 200
2436 0070 1 0000 41 0230 LDR - 230
2437 0071 0 3013 00 0073 HLT 73,3013
2438 0072 0 0000 30 0062 BUN 62
2439 0073 0 0000 00 0000 HLT
2440 0074 0 0001 21 0062 DBB 62,1
2441 0075 0 2000 38 0061 BCS 61,2
2442 0076 0 0000 01 0000 NOP
2443 0077 0 0000 01 0000 NOP
2444 0078 0 0000 01 0000 NOP
2445 0079 0 0000 01 0000 NOP
2446 0080 0 0000 42 0225 LDB 225
2447 0081 1 0000 10 0250 CAD - 250
2448 0082 1 0000 12 0256 ADD - 256
2449 0083 0 0000 31 0084 BOF *+1
2450 0084 0 1000 38 0081 BCS *-3,1
2451 0085 1 0000 18 0262 CFA - 262
2452 0086 0 0000 35 0093 BCE 93
2453 0087 0 0000 40 0092 STA 92
2454 0088 1 0000 10 0250 CAD - 250
2455 0089 1 0000 41 0256 LDR - 256
2456 0090 0 4012 00 0092 HLT 92,4012
2457 0091 0 0000 30 0081 BUN 81
2458 0092 0 0000 00 0000 HLT
2459 0093 0 0001 21 0081 DBB 81,1
2460 0094 0 2000 38 0080 BCS 80,2
2461 0095 0 0000 42 0225 LDB 225
2462 0096 1 0000 10 0268 CAD - 268
2463 0097 1 0000 13 0274 SUB - 274
2464 0098 0 0000 31 0099 BOF *+1
2465 0099 0 1000 38 0096 BCS *-3,1
2466 0100 1 0000 18 0280 CFA - 280
2467 0101 0 0000 35 0108 BCE 108
2468 0102 0 0000 40 0107 STA 107
2469 0103 1 0000 10 0268 CAD - 268
2470 0104 1 0000 41 0274 LDR - 274
2471 0105 0 5013 00 0107 HLT 107,5013
2472 0106 0 0000 30 0096 BUN 96
2473 0107 0 0000 00 0000 HLT
2474 0108 0 0001 21 0096 DBB 96,1
2475 0109 0 2000 38 0095 BCS 95,2
2476 0110 0 0000 42 0226 LDB 226
2477 0111 1 0000 10 0290 CAD - 290
2478 0112 1 0000 14 0295 MUL - 295
2479 0113 0 0000 31 0114 BOF *+1
2480 0114 0 1000 38 0111 BCS *-3,1
2481 0115 1 0000 18 0300 CFA - 300
2482 0116 0 0000 35 0123 BCE 123
2483 0117 0 0000 40 0122 STA 122
2484 0118 1 0000 10 0290 CAD - 290
2485 0119 1 0000 41 0295 LDR - 295
2486 0120 0 0014 00 0122 HLT 122,14
2487 0121 0 0000 30 0111 BUN 111
2488 0122 0 0000 00 0000 HLT
2489 0123 1 0001 18 0305 CFR - 305
2490 0124 0 0000 35 0131 BCE 131
2491 0125 0 0001 40 0130 STR 130
2492 0126 1 0000 10 0290 CAD - 290
2493 0127 1 0000 41 0295 LDR - 295
2494 0128 0 1014 00 0130 HLT 130,1014
2495 0129 0 0000 30 0111 BUN 111
2496 0130 0 0000 00 0000 HLT
2497 0131 0 0001 21 0111 DBB 111,1
2498 0132 0 2000 38 0110 BCS 110,2
2499 0133 0 0000 01 0000 NOP
2500 0134 0 0000 01 0000 NOP
2501 0135 0 0000 42 0226 LDB 226
2502 0136 1 0000 10 0295 CAD - 295
2503 0137 1 0000 14 0290 MUL - 290
2504 0138 0 0000 31 0139 BOF *+1
2505 0139 0 1000 38 0136 BCS *-3,1
2506 0140 1 0000 18 0300 CFA - 300
2507 0141 0 0000 35 0148 BCE 148
2508 0142 0 0000 40 0147 STA 147
2509 0143 1 0000 10 0295 CAD - 295
2510 0144 1 0000 41 0290 LDR - 290
2511 0145 0 2014 00 0147 HLT 147,2014
2512 0146 0 0000 30 0136 BUN 136
2513 0147 0 0000 00 0000 HLT
2514 0148 1 0001 18 0305 CFR - 305
2515 0149 0 0000 35 0156 BCE 156
2516 0150 0 0001 40 0155 STR 155
2517 0151 1 0000 10 0295 CAD - 295
2518 0152 1 0000 41 0290 LDR - 290
2519 0153 0 3014 00 0155 HLT 155,3014
2520 0154 0 0000 30 0136 BUN 136
2521 0155 0 0000 00 0000 HLT
2522 0156 0 0001 21 0136 DBB 136,1
2523 0157 0 2000 38 0135 BCS 135,2
2524 0158 0 0000 42 0226 LDB 226
2525 0159 0 0002 45 0000 CLR
2526 0160 1 0000 10 0295 CAD - 295
2527 0161 1 0000 15 0290 DIV - 290
2528 0162 0 0000 31 0170 BOF 170
2529 0163 0 1000 38 0159 BCS 159,1
2530 0164 0 0000 40 0169 STA 169
2531 0165 1 0000 10 0295 CAD - 295
2532 0166 1 0000 41 0290 LDR - 290
2533 0167 0 0015 00 0169 HLT 169,15
2534 0168 0 0000 30 0159 BUN 159
2535 0169 0 0000 00 0000 HLT
2536 0170 0 1000 38 0159 BCS 159,1
2537 0171 1 0000 18 0295 CFA - 295
2538 0172 0 0001 35 0164 BCU 164
2539 0173 0 0001 21 0159 DBB 159,1
2540 0174 0 2000 38 0158 BCS 158,2
2541 0175 0 0000 42 0226 LDB 226
2542 0176 0 0002 45 0000 CLR
2543 0177 1 0000 10 0290 CAD - 290
2544 0178 1 0000 15 0295 DIV - 295
2545 0179 0 0000 31 0180 BOF *+1
2546 0180 0 1000 38 0176 BCS 176,1
2547 0181 1 0000 18 0310 CFA - 310
2548 0182 0 0000 35 0189 BCE 189
2549 0183 0 0000 40 0188 STA 188
2550 0184 1 0000 10 0290 CAD - 290
2551 0185 1 0000 41 0295 LDR - 295
2552 0186 0 2015 00 0188 HLT 188,2015
2553 0187 0 0000 30 0176 BUN 176
2554 0188 0 0000 00 0000 HLT
2555 0189 1 0001 18 0315 CFR - 315
2556 0190 0 0000 35 0197 BCE 197
2557 0191 0 0001 40 0196 STR 196
2558 0192 1 0000 10 0290 CAD - 290
2559 0193 1 0000 41 0295 LDR - 295
2560 0194 0 3015 00 0196 HLT 196,3015
2561 0195 0 0000 30 0176 BUN 176
2562 0196 0 0000 00 0000 HLT
2563 0197 0 0001 21 0176 DBB 176,1
2564 0198 0 2000 38 0175 BCS 175,2
2565 0199 0 0000 30 0320 BUN 320
2566 0200 0 0835 69 2147 CNST 835692147
2567 0201 0 8356 92 1470 CNST 8356921470
2568 0202 0 3569 21 4708 DBB 4708,3569
2569 0203 0 5692 14 7083 MUL 7083,5692
2570 0204 0 6921 47 0835 CNST 6921470835
2571 0205 0 9214 70 8356 CNST 9214708356
2572 0206 0 2147 08 3569 KAD 3569,2147
2573 0207 0 1470 83 5692 CNST 1470835692
2574 0208 0 4708 35 6921 BCE 6921,470
2575 0209 0 7083 56 9214 MOW 9214,7,0,83
2576 0210 0 9164 30 7852 BUN 7852,9164
2577 0211 0 1643 07 8529 PWI 8529,1
2578 0212 0 6430 78 5291 CNST 6430785291
2579 0213 0 4307 85 2916 CNST 4307852916
2580 0214 0 3078 52 9164 MRD 9164,3,0,BMOD
2581 0215 0 0785 29 1643 RTF 1643,78
2582 0216 0 7852 91 6430 CNST 7852916430
2583 0217 0 8529 16 4307 RND 4307,8529
2584 0218 0 5291 64 3078 CRI 3078,5
2585 0219 0 2916 43 0785 LSA 6,785,291
2586 0220 0 0000 00 0009 HLT 9
2587 0221 0 9999 99 9999 CNST 9999999999
2588 0222 0 0000 00 0000 HLT
2589 0223 1 0000 00 0001 HLT - 1
2590 0224 0 0000 00 0019 HLT 19
2591 0225 0 0000 00 0005 HLT 5
2592 0226 0 0000 00 0004 HLT 4
2593 0227 0 0000 00 0000 HLT
2594 0228 0 0010 00 0000 HLT 0,10
2595 0229 0 0000 00 0000 HLT
2596 0230 0 0835 69 2148 CNST 835692148
2597 0231 0 8356 92 1471 CNST 8356921471
2598 0232 0 3569 21 4709 DBB 4709,3569
2599 0233 0 5692 14 7084 MUL 7084,5692
2600 0234 0 6921 47 0836 CNST 6921470836
2601 0235 0 9214 70 8357 CNST 9214708357
2602 0236 0 2147 08 3570 KAD 3570,2147
2603 0237 0 1470 83 5693 CNST 1470835693
2604 0238 0 4708 35 6922 BCE 6922,470
2605 0239 0 7083 56 9215 MOW 9215,7,0,83
2606 0240 0 9164 30 7853 BUN 7853,9164
2607 0241 0 1643 07 8530 PWI 8530,1
2608 0242 0 6430 78 5292 CNST 6430785292
2609 0243 0 4307 85 2917 CNST 4307852917
2610 0244 0 3078 52 9165 MRD 9165,3,0,BMOD
2611 0245 0 0785 29 1644 RTF 1644,78
2612 0246 0 7852 91 6431 CNST 7852916431
2613 0247 0 8529 16 4308 RND 4308,8529
2614 0248 0 5291 64 3079 CRI 3079,5
2615 0249 0 2916 43 0786 LSA 6,786,291
2616 0250 0 0987 65 4321 CWI 4321,0
2617 0251 0 9432 15 8766 DIV 8766,9432
2618 0252 0 6192 58 7034 MPE 6,7034
2619 0253 1 9182 73 6455 CNST 19182736455
2620 0254 1 7142 56 3784 MOW - 3784,7,1,42
2621 0255 1 9614 30 7852 BUN - 7852,9614
2622 0256 0 5709 13 2486 SUB 2486,5709
2623 0257 1 8043 21 6987 DBB - 6987,8043
2624 0258 1 8591 73 6240 CNST 18591736240
2625 0259 0 5546 37 2819 BFR 2819,55,46
2626 0260 0 7345 69 5679 CNST 7345695679
2627 0261 1 0123 45 6789 CAR - 6789,12
2628 0262 0 6696 78 6807 CNST 6696786807
2629 0263 0 1388 94 1779 CNST 1388941779
2630 0264 1 2399 14 9206 MUL - 9206,2399
2631 0265 1 3636 36 3636 BFA - 3636,36,36
2632 0266 0 0203 13 1895 SUB 1895,203
2633 0267 1 9737 76 4641 CNST 19737764641
2634 0268 0 6742 80 4935 CNST 6742804935
2635 0269 0 5693 34 3570 BCH 3570,569
2636 0270 0 6420 13 5798 SUB 5798,6420
2637 0271 1 8765 43 2109 LSA - 5,2109,876
2638 0272 1 8018 02 8038 CNST 18018028038
2639 0273 1 1020 30 4040 BUN - 4040,1020
2640 0274 0 4280 49 3567 SLA 3567,428
2641 0275 0 5703 04 4269 PRB 4269,5,3,70
2642 0276 1 3456 78 9012 CNST 13456789012
2643 0277 0 1234 23 4560 FSU 4560,1
2644 0278 1 7938 08 2081 KAD - 2081,7938
2645 0279 1 9080 70 6050 CNST 19080706050
2646 0280 0 2462 31 1368 BOF 1368,2462
2647 0281 1 0009 70 0699 CNST 10009700699
2648 0282 0 9876 92 4810 CNST 9876924810
2649 0283 1 9999 66 6669 HPW - 6669,99
2650 0284 1 0079 94 5957 CNST 10079945957
2651 0285 0 8060 40 2010 STA 2010,80
2652 0286 0 0000 00 0000 HLT
2653 0287 0 0000 00 0000 HLT
2654 0288 0 0000 00 0000 HLT
2655 0289 0 0000 00 0000 HLT
2656 0290 0 1234 55 4321 MIR 4321,1,2,34
2657 0291 1 5555 55 5555 MIR - 5555,5,5,55
2658 0292 0 5142 33 2415 BSA 2415,2,514
2659 0293 1 5152 53 5455 MRR - 5455,5,1
2660 0294 0 1020 30 4050 BUN 4050,1020
2661 0295 1 9966 99 6699 CNST 19966996699
2662 0296 0 9876 98 7698 CNST 9876987698
2663 0297 0 6677 88 9987 CNST 6677889987
2664 0298 1 6978 87 9678 CNST 16978879678
2665 0299 1 6070 80 9066 CNST 16070809066
2666 0300 1 1230 47 9884 CNST 11230479884
2667 0301 1 5487 21 5387 DBB - 5387,5487
2668 0302 0 3433 99 3014 CNST 3433993014
2669 0303 0 3595 89 2497 CNST 3595892497
2670 0304 1 0619 40 7107 STA - 7107,6
2671 0305 1 2143 18 6379 CFA - 6379,21
2672 0306 1 2290 56 2390 MOW - 2390,2,2,90
2673 0307 0 3954 02 8605 CNST 3954028605
2674 0308 0 7073 98 3490 CNST 7073983490
2675 0309 1 6816 51 7300 MTC - 7300,816,6
2676 0310 1 1238 64 2249 CRI - 2249,1
2677 0311 1 5624 74 6860 CNST 15624746860
2678 0312 0 7700 53 4787 MRR 4787,7,7
2679 0313 0 7383 04 0964 PRB 964,7,3,38
2680 0314 1 1680 67 2277 HPI - 2277,1680
2681 0315 0 2975 06 3949 PWR 3949,2,97
2682 0316 1 9415 87 1720 CNST 19415871720
2683 0317 0 1347 52 2231 MRD 2231,1,3
2684 0318 1 4498 87 0408 CNST 14498870408
2685 0319 0 3813 53 6718 MRR 6718,3,8
2686 0320 0 0000 42 0226 LDB 226
2687 0321 1 0000 10 0295 CAD - 295
2688 0322 0 0000 14 0229 MUL 229
2689 0323 0 0000 31 0324 BOF *+1
2690 0324 0 1000 38 0321 BCS *-3,1
2691 0325 0 0000 36 0332 BFA 332,0,0
2692 0326 0 0000 40 0331 STA 331
2693 0327 1 0000 10 0295 CAD - 295
2694 0328 0 0002 45 0000 CLR
2695 0329 0 4014 00 0331 HLT 331,4014
2696 0330 0 0000 30 0321 BUN 321
2697 0331 0 0000 00 0000 HLT
2698 0332 0 0000 37 0339 BFR 339,0,0
2699 0333 0 0001 40 0338 STR 338
2700 0334 1 0000 10 0295 CAD - 295
2701 0335 0 0002 45 0000 CLR
2702 0336 0 5014 00 0338 HLT 338,5014
2703 0337 0 0000 30 0321 BUN 321
2704 0338 0 0000 00 0000 HLT
2705 0339 0 0001 21 0321 DBB 321,1
2706 0340 0 2000 38 0320 BCS 320,2
2707 0341 0 0000 10 0227 CAD 227
2708 0342 0 0000 12 0228 ADD 228
2709 0343 0 0000 31 0346 BOF *+3
2710 0344 0 0000 40 0227 STA 227
2711 0345 0 0000 30 0030 BUN 30
2712 0346 0 0000 46 0227 CLL 227
2713 0347 0 9999 00 9999 HLT 9999,9999
2714 0348 0 0000 30 0030 BUN 30
2715 0349 6 0000 30 0020 BUN 6 20
2716 0350 FINI 20

331
software/Diagnostics/TR1204-Arithmetic-Test.pt Normal file
View File

@@ -0,0 +1,331 @@
61000040020
0420021
01450328
10000120020
0310024
01210022
0360030
06666006666
0300020
010000
11513063308
0420220
10000100200
10000120210
0310034
01000380031
0180221
0350043
0400042
10000100200
10000410210
01012000042
0300031
00
01210031
02000380030
0420220
10000100200
10000120240
0310056
01000380046
0400055
10000100200
10000410240
02012000055
0300046
00
01000380046
0180222
01350050
01210046
02000380045
0420224
10000100200
10000130230
0310065
01000380062
0180223
0350074
0400073
10000100200
10000410230
03013000073
0300062
00
01210062
02000380061
010000
010000
010000
010000
0420225
10000100250
10000120256
0310084
01000380081
10000180262
0350093
0400092
10000100250
10000410256
04012000092
0300081
00
01210081
02000380080
0420225
10000100268
10000130274
0310099
01000380096
10000180280
0350108
0400107
10000100268
10000410274
05013000107
0300096
00
01210096
02000380095
0420226
10000100290
10000140295
0310114
01000380111
10000180300
0350123
0400122
10000100290
10000410295
014000122
0300111
00
10001180305
0350131
01400130
10000100290
10000410295
01014000130
0300111
00
01210111
02000380110
010000
010000
0420226
10000100295
10000140290
0310139
01000380136
10000180300
0350148
0400147
10000100295
10000410290
02014000147
0300136
00
10001180305
0350156
01400155
10000100295
10000410290
03014000155
0300136
00
01210136
02000380135
0420226
02450000
10000100295
10000150290
0310170
01000380159
0400169
10000100295
10000410290
015000169
0300159
00
01000380159
10000180295
01350164
01210159
02000380158
0420226
02450000
10000100290
10000150295
0310180
01000380176
10000180310
0350189
0400188
10000100290
10000410295
02015000188
0300176
00
10001180315
0350197
01400196
10000100290
10000410295
03015000196
0300176
00
01210176
02000380175
0300320
0835692147
08356921470
03569214708
05692147083
06921470835
09214708356
02147083569
01470835692
04708356921
07083569214
09164307852
01643078529
06430785291
04307852916
03078529164
0785291643
07852916430
08529164307
05291643078
02916430785
09
09999999999
00
10000000001
019
05
04
00
010000000
00
0835692148
08356921471
03569214709
05692147084
06921470836
09214708357
02147083570
01470835693
04708356922
07083569215
09164307853
01643078530
06430785292
04307852917
03078529165
0785291644
07852916431
08529164308
05291643079
02916430786
0987654321
09432158766
06192587034
19182736455
17142563784
19614307852
05709132486
18043216987
18591736240
05546372819
07345695679
10123456789
06696786807
01388941779
12399149206
13636363636
0203131895
19737764641
06742804935
05693343570
06420135798
18765432109
18018028038
11020304040
04280493567
05703044269
13456789012
01234234560
17938082081
19080706050
02462311368
10009700699
09876924810
19999666669
10079945957
08060402010
00
00
00
00
01234554321
15555555555
05142332415
15152535455
01020304050
19966996699
09876987698
06677889987
16978879678
16070809066
11230479884
15487215387
03433993014
03595892497
10619407107
12143186379
12290562390
03954028605
07073983490
16816517300
11238642249
15624746860
07700534787
07383040964
11680672277
02975063949
19415871720
01347522231
14498870408
03813536718
0420226
10000100295
0140229
0310324
01000380321
0360332
0400331
10000100295
02450000
04014000331
0300321
00
0370339
01400338
10000100295
02450000
05014000338
0300321
00
01210321
02000380320
0100227
0120228
0310346
0400227
0300030
0460227
09999009999
0300030
60000300020

265
software/Diagnostics/TR1205-Floating-Point-Test.lst Normal file
View File

@@ -0,0 +1,265 @@
Disassembler for the Burroughs 220 BALGOL Compiler & Library -- 2020-08-20 15:29
Source File: TR1205-Floating-Point-Test.pt
2717 0000 REM TR1205-FLOATING-POINT-TEST.PT
2718 0000 LOCN 20
2719 0020 0 0000 42 0021 LDB *+1
2720 0021 0 0001 45 0256 CLA 256
2721 0022 1 0000 12 0020 ADD - *-2
2722 0023 0 0000 31 0024 BOF *+1
2723 0024 0 0001 21 0022 DBB *-2,1
2724 0025 0 0000 36 0030 BFA 30,0,0
2725 0026 0 6666 00 6666 HLT 6666,6666
2726 0027 0 0000 30 0020 BUN 20
2727 0028 0 0000 01 0000 NOP
2728 0029 1 6495 02 9165 CNST 16495029165
2729 0030 0 0000 42 0219 LDB 219
2730 0031 0 0000 10 0218 CAD 218
2731 0032 0 0000 22 0217 FAD 217
2732 0033 0 0000 31 0034 BOF *+1
2733 0034 0 1000 38 0031 BCS *-3,1
2734 0035 1 0000 18 0200 CFA - 200
2735 0036 0 0000 35 0043 BCE 43
2736 0037 0 0000 40 0042 STA 42
2737 0038 0 0000 10 0218 CAD 218
2738 0039 0 0000 41 0217 LDR 217
2739 0040 0 0022 00 0042 HLT 42,22
2740 0041 0 0000 30 0031 BUN 31
2741 0042 0 0000 00 0000 HLT
2742 0043 0 2201 27 0217 DFL 217,22,1
2743 0044 0 0001 21 0031 DBB 31,1
2744 0045 0 0000 10 0219 CAD 219
2745 0046 0 2210 40 0217 STA 217,22
2746 0047 0 2000 38 0030 BCS 30,2
2747 0048 0 0000 01 0000 NOP
2748 0049 0 0000 01 0000 NOP
2749 0050 0 0000 42 0219 LDB 219
2750 0051 0 0000 11 0217 CSU 217
2751 0052 0 0000 23 0218 FSU 218
2752 0053 0 0000 31 0054 BOF *+1
2753 0054 0 1000 38 0051 BCS *-3,1
2754 0055 1 0000 12 0200 ADD - 200
2755 0056 0 0000 36 0063 BFA 63,0,0
2756 0057 0 0000 40 0062 STA 62
2757 0058 0 0000 11 0217 CSU 217
2758 0059 0 0000 41 0218 LDR 218
2759 0060 0 0023 00 0062 HLT 62,23
2760 0061 0 0000 30 0051 BUN 51
2761 0062 0 0000 00 0000 HLT
2762 0063 0 2201 27 0217 DFL 217,22,1
2763 0064 0 0001 21 0051 DBB 51,1
2764 0065 0 0000 10 0219 CAD 219
2765 0066 0 2210 40 0217 STA 217,22
2766 0067 0 2000 38 0050 BCS 50,2
2767 0068 0 0000 42 0258 LDB 258
2768 0069 0 0000 10 0221 CAD 221
2769 0070 0 0001 22 0220 FAA 220
2770 0071 0 0000 31 0079 BOF 79
2771 0072 0 1000 38 0069 BCS *-3,1
2772 0073 0 0000 40 0078 STA 78
2773 0074 0 0000 10 0221 CAD 221
2774 0075 0 0000 41 0220 LDR 220
2775 0076 0 0122 00 0078 HLT 78,122
2776 0077 0 0000 30 0069 BUN 69
2777 0078 0 0000 00 0000 HLT
2778 0079 0 1000 38 0069 BCS 69,1
2779 0080 0 2201 27 0220 DFL 220,22,1
2780 0081 0 0001 21 0069 DBB 69,1
2781 0082 0 0000 10 0258 CAD 258
2782 0083 0 2210 40 0220 STA 220,22
2783 0084 0 2000 38 0068 BCS 68,2
2784 0085 0 0000 42 0236 LDB 236
2785 0086 1 0000 10 0222 CAD - 222
2786 0087 1 0001 23 0223 FSA - 223
2787 0088 0 0000 31 0089 BOF *+1
2788 0089 0 1000 38 0086 BCS *-3,1
2789 0090 0 0000 36 0097 BFA 97,0,0
2790 0091 0 0000 40 0096 STA 96
2791 0092 1 0000 10 0222 CAD - 222
2792 0093 1 0000 41 0223 LDR - 223
2793 0094 0 0123 00 0096 HLT 96,123
2794 0095 0 0000 30 0086 BUN 86
2795 0096 0 0000 00 0000 HLT
2796 0097 0 0002 21 0086 DBB 86,2
2797 0098 0 2000 38 0085 BCS 85,2
2798 0099 0 0000 01 0000 NOP
2799 0100 0 0000 42 0219 LDB 219
2800 0101 0 0000 10 0218 CAD 218
2801 0102 1 0000 24 0200 FMU - 200
2802 0103 0 0000 31 0104 BOF *+1
2803 0104 0 1000 38 0101 BCS *-3,1
2804 0105 1 0000 18 0240 CFA - 240
2805 0106 0 0000 35 0113 BCE 113
2806 0107 0 0000 40 0112 STA 112
2807 0108 0 0000 10 0218 CAD 218
2808 0109 1 0000 41 0200 LDR - 200
2809 0110 0 0024 00 0112 HLT 112,24
2810 0111 0 0000 30 0101 BUN 101
2811 0112 0 0000 00 0000 HLT
2812 0113 0 0001 21 0101 DBB 101,1
2813 0114 0 2000 38 0100 BCS 100,2
2814 0115 0 0000 42 0237 LDB 237
2815 0116 0 0000 10 0221 CAD 221
2816 0117 1 0000 24 0209 FMU - 209
2817 0118 0 0000 31 0126 BOF 126
2818 0119 0 1000 38 0116 BCS *-3,1
2819 0120 0 0000 40 0125 STA 125
2820 0121 0 0000 10 0221 CAD 221
2821 0122 1 0000 41 0209 LDR - 209
2822 0123 0 0024 00 0125 HLT 125,24
2823 0124 0 0000 30 0116 BUN 116
2824 0125 0 0000 00 0000 HLT
2825 0126 0 1000 38 0116 BCS 116,1
2826 0127 0 0001 21 0116 DBB 116,1
2827 0128 0 2000 38 0115 BCS 115,2
2828 0129 0 0000 01 0000 NOP
2829 0130 0 0000 42 0236 LDB 236
2830 0131 1 0000 10 0222 CAD - 222
2831 0132 1 0000 24 0223 FMU - 223
2832 0133 0 0000 36 0141 BFA 141,0,0
2833 0134 0 1000 38 0131 BCS *-3,1
2834 0135 0 0000 40 0140 STA 140
2835 0136 1 0000 10 0222 CAD - 222
2836 0137 1 0000 41 0223 LDR - 223
2837 0138 0 0024 00 0140 HLT 140,24
2838 0139 0 0000 30 0131 BUN 131
2839 0140 0 0000 00 0000 HLT
2840 0141 0 1000 38 0131 BCS 131,1
2841 0142 0 0002 21 0131 DBB 131,2
2842 0143 0 2000 38 0130 BCS 130,2
2843 0144 0 0000 42 0219 LDB 219
2844 0145 0 0002 45 0000 CLR
2845 0146 0 0000 10 0238 CAD 238
2846 0147 1 0000 25 0200 FDV - 200
2847 0148 0 0000 31 0149 BOF *+1
2848 0149 0 1000 38 0145 BCS 145,1
2849 0150 1 0000 18 0260 CFA - 260
2850 0151 0 0000 35 0158 BCE 158
2851 0152 0 0000 40 0157 STA 157
2852 0153 0 0000 10 0238 CAD 238
2853 0154 1 0000 41 0200 LDR - 200
2854 0155 0 0025 00 0157 HLT 157,25
2855 0156 0 0000 30 0145 BUN 145
2856 0157 0 0000 00 0000 HLT
2857 0158 0 0001 21 0145 DBB 145,1
2858 0159 0 2000 38 0144 BCS 144,2
2859 0160 0 0000 42 0219 LDB 219
2860 0161 1 0000 10 0200 CAD - 200
2861 0162 0 0000 25 0239 FDV 239
2862 0163 0 0000 31 0171 BOF 171
2863 0164 0 1000 38 0161 BCS *-3,1
2864 0165 0 0000 40 0170 STA 170
2865 0166 1 0000 10 0200 CAD - 200
2866 0167 0 0000 41 0239 LDR 239
2867 0168 0 0025 00 0170 HLT 170,25
2868 0169 0 0000 30 0161 BUN 161
2869 0170 0 0000 00 0000 HLT
2870 0171 0 1000 38 0161 BCS 161,1
2871 0172 0 0001 21 0161 DBB 161,1
2872 0173 0 2000 38 0160 BCS 160,2
2873 0174 0 0000 42 0219 LDB 219
2874 0175 1 2240 26 0200 IFL - 200,22,40
2875 0176 0 0001 21 0175 DBB *-1,1
2876 0177 0 0000 42 0219 LDB 219
2877 0178 0 0000 10 0257 CAD 257
2878 0179 1 0000 25 0200 FDV - 200
2879 0180 0 0000 31 0181 BOF *+1
2880 0181 0 0000 36 0189 BFA 189,0,0
2881 0182 0 1000 38 0178 BCS 178,1
2882 0183 0 0000 40 0188 STA 188
2883 0184 0 0000 10 0257 CAD 257
2884 0185 1 0000 41 0200 LDR - 200
2885 0186 0 0025 00 0188 HLT 188,25
2886 0187 0 0000 30 0178 BUN 178
2887 0188 0 0000 00 0000 HLT
2888 0189 0 1000 38 0178 BCS 178,1
2889 0190 0 0001 21 0178 DBB 178,1
2890 0191 0 2000 38 0177 BCS 177,2
2891 0192 0 0000 42 0219 LDB 219
2892 0193 1 2240 27 0200 DFL - 200,22,40
2893 0194 0 0001 21 0193 DBB *-1,1
2894 0195 0 3301 26 0196 IFL *+1,33,1
2895 0196 0 0000 31 0198 BOF *+2
2896 0197 0 0000 30 0030 BUN 30
2897 0198 0 9999 00 9999 HLT 9999,9999
2898 0199 0 0000 30 0030 BUN 30
2899 0200 0 5021 34 9876 BCL 9876,502
2900 0201 0 5021 34 9884 BCL 9884,502
2901 0202 0 5021 34 9962 BCL 9962,502
2902 0203 0 5021 35 0740 BCU 740,502
2903 0204 0 5021 35 8518 BCU 8518,502
2904 0205 0 5021 43 6297 LSA 1,6297,502
2905 0206 0 5022 21 4089 DBB 4089,5022
2906 0207 0 5029 99 2011 CNST 5029992011
2907 0208 0 5110 77 7123 CNST 5110777123
2908 0209 0 5188 55 6344 MIR 6344,5,1,88
2909 0210 0 5286 63 4855 CWF 4855,45
2910 0211 0 5386 44 2706 STP 2706,5386
2911 0212 0 5486 42 3491 LDB 3491,548
2912 0213 0 5586 42 1570 LDB 1570,558
2913 0214 0 5686 42 1378 LDB 1378,568
2914 0215 0 5786 42 1359 LDB 1359,578
2915 0216 0 5886 42 1357 LDB 1357,588
2916 0217 0 5886 42 1357 LDB 1357,588
2917 0218 0 5021 34 9876 BCL 9876,502
2918 0219 0 5800 00 0016 HLT 16,5800
2919 0220 1 9910 00 0000 HLT - 0,9910
2920 0221 0 9999 99 9999 CNST 9999999999
2921 0222 0 0612 34 5679 BCH 5679,61
2922 0223 1 0612 34 5678 BCH - 5678,61
2923 0224 0 0523 45 6789 CAR 6789,52
2924 0225 1 0523 45 6779 CAR - 6779,52
2925 0226 0 0497 53 1248 MRR 1248,0,4
2926 0227 1 0497 53 1148 MRR - 1148,0,4
2927 0228 0 0324 68 1357 CNST 324681357
2928 0229 1 0324 68 0357 CNST 10324680357
2929 0230 0 0257 03 0442 PRD 442,0,25,7
2930 0231 1 0257 02 0442 CNST 10257020442
2931 0232 0 0198 76 5432 CNST 198765432
2932 0233 1 0198 66 5432 HPW - 5432,19
2933 0234 0 0013 57 9115 MOR 9115,0,0,13
2934 0235 1 0012 57 9115 MOR - 9115,0,0,12
2935 0236 0 0000 00 0012 HLT 12
2936 0237 0 0000 00 0007 HLT 7
2937 0238 0 7598 76 5432 CNST 7598765432
2938 0239 0 0012 34 5678 BCH 5678,1
2939 0240 0 4945 58 1720 MPF 4,9,1720
2940 0241 0 4945 58 1737 MPF 4,9,1737
2941 0242 0 4945 58 1904 MPF 4,9,1904
2942 0243 0 4945 58 3565 MPF 4,9,3565
2943 0244 0 4945 60 0171 CRD 171,4,5,94
2944 0245 0 4945 76 6228 CNST 4945766228
2945 0246 0 4947 42 6804 LDB 6804,494
2946 0247 0 4964 03 2571 PRD 2571,4,96,4
2947 0248 0 5023 00 9023 HLT 9023,5023
2948 0249 0 5118 90 6669 CNST 5118906669
2949 0250 0 5218 49 6434 SLA 6434,521
2950 0251 0 5318 45 5410 CNST 5318455410
2951 0252 0 5418 45 1308 CNST 5418451308
2952 0253 0 5518 45 0898 CNST 5518450898
2953 0254 0 5618 45 0857 CNST 5618450857
2954 0255 0 5718 45 0852 CNST 5718450852
2955 0256 0 5818 45 0852 CNST 5818450852
2956 0257 0 3998 76 5432 CNST 3998765432
2957 0258 0 9900 00 0007 HLT 7,9900
2958 0259 0 0000 00 0000 HLT
2959 0260 0 7646 26 0424 IFL 424,76,46
2960 0261 0 7646 26 0406 IFL 406,76,46
2961 0262 0 7646 26 0237 IFL 237,76,46
2962 0263 0 7646 25 8552 FDV 8552,7646
2963 0264 0 7646 24 1706 FMU 1706,7646
2964 0265 0 7646 07 3924 PWI 3924,7
2965 0266 0 7644 46 0716 CLL 716,7644
2966 0267 0 7632 93 0580 CNST 7632930580
2967 0268 0 7591 64 3597 CRI 3597,7
2968 0269 0 7511 15 2835 DIV 2835,7511
2969 0270 0 7411 40 0195 STR 195,74
2970 0271 0 7311 42 5536 LBC 5536,731
2971 0272 0 7211 42 8077 LBC 8077,721
2972 0273 0 7111 42 8331 LBC 8331,711
2973 0274 0 7011 42 8356 LBC 8356,701
2974 0275 0 6911 42 8359 LBC 8359,691
2975 0276 0 6811 42 8359 LBC 8359,681
2976 0277 6 0000 30 0020 BUN 6 20
2977 0278 FINI 20

259
software/Diagnostics/TR1205-Floating-Point-Test.pt Normal file
View File

@@ -0,0 +1,259 @@
61000040020
00000420021
00001450256
10000120020
00000310024
00001210022
00000360030
06666006666
00000300020
00000010000
16495029165
00000420219
00000100218
00000220217
00000310034
01000380031
10000180200
00000350043
00000400042
00000100218
00000410217
00022000042
00000300031
00000000000
02201270217
00001210031
00000100219
02210400217
02000380030
00000010000
00000010000
00000420219
00000110217
00000230218
00000310054
01000380051
10000120200
00000360063
00000400062
00000110217
00000410218
00023000062
00000300051
00000000000
02201270217
00001210051
00000100219
02210400217
02000380050
00000420258
00000100221
00001220220
00000310079
01000380069
00000400078
00000100221
00000410220
00122000078
00000300069
00000000000
01000380069
02201270220
00001210069
00000100258
02210400220
02000380068
00000420236
10000100222
10001230223
00000310089
01000380086
00000360097
00000400096
10000100222
10000410223
00123000096
00000300086
00000000000
00002210086
02000380085
00000010000
00000420219
00000100218
10000240200
00000310104
01000380101
10000180240
00000350113
00000400112
00000100218
10000410200
00024000112
00000300101
00000000000
00001210101
02000380100
00000420237
00000100221
10000240209
00000310126
01000380116
00000400125
00000100221
10000410209
00024000125
00000300116
00000000000
01000380116
00001210116
02000380115
00000010000
00000420236
10000100222
10000240223
00000360141
01000380131
00000400140
10000100222
10000410223
00024000140
00000300131
00000000000
01000380131
00002210131
02000380130
00000420219
00002450000
00000100238
10000250200
00000310149
01000380145
10000180260
00000350158
00000400157
00000100238
10000410200
00025000157
00000300145
00000000000
00001210145
02000380144
00000420219
10000100200
00000250239
00000310171
01000380161
00000400170
10000100200
00000410239
00025000170
00000300161
00000000000
01000380161
00001210161
02000380160
00000420219
12240260200
00001210175
00000420219
00000100257
10000250200
00000310181
00000360189
01000380178
00000400188
00000100257
10000410200
00025000188
00000300178
00000000000
01000380178
00001210178
02000380177
00000420219
12240270200
00001210193
03301260196
00000310198
00000300030
09999009999
00000300030
05021349876
05021349884
05021349962
05021350740
05021358518
05021436297
05022214089
05029992011
05110777123
05188556344
05286634855
05386442706
05486423491
05586421570
05686421378
05786421359
05886421357
05886421357
05021349876
05800000016
19910000000
09999999999
00612345679
10612345678
00523456789
10523456779
00497531248
10497531148
00324681357
10324680357
00257030442
10257020442
00198765432
10198665432
00013579115
10012579115
00000000012
00000000007
07598765432
00012345678
04945581720
04945581737
04945581904
04945583565
04945600171
04945766228
04947426804
04964032571
05023009023
05118906669
05218496434
05318455410
05418451308
05518450898
05618450857
05718450852
05818450852
03998765432
09900000007
00000000000
07646260424
07646260406
07646260237
07646258552
07646241706
07646073924
07644460716
07632930580
07591643597
07511152835
07411400195
07311425536
07211428077
07111428331
07011428356
06911428359
06811428359
60000300020

163
software/Diagnostics/TR1206-Field-Select-Test.lst Normal file
View File

@@ -0,0 +1,163 @@
Disassembler for the Burroughs 220 BALGOL Compiler & Library -- 2020-08-20 15:30
Source File: TR1206-Field-Select-Test.pt
2978 0000 REM TR1206-FIELD-SELECT-TEST.PT
2979 0000 LOCN 100
2980 0100 0 0000 01 0000 NOP
2981 0101 0 0000 01 0000 NOP
2982 0102 0 0000 42 0218 LDB 218
2983 0103 0 0000 10 0227 CAD 227
2984 0104 0 0000 41 0232 LDR 232
2985 0105 0 0010 18 0229 CFA 229,0
2986 0106 0 1000 38 0105 BCS *-1,1
2987 0107 0 0000 35 0111 BCE 111
2988 0108 0 0001 00 0105 HLT 105,1
2989 0109 0 0000 30 0105 BUN 105
2990 0110 0 0000 01 0000 NOP
2991 0111 0 0011 18 0234 CFR 234,0
2992 0112 0 1000 38 0111 BCS *-1,1
2993 0113 0 0000 35 0117 BCE 117
2994 0114 0 0002 00 0111 HLT 111,2
2995 0115 0 0000 30 0111 BUN 111
2996 0116 0 0000 01 0000 NOP
2997 0117 0 0000 10 0229 CAD 229
2998 0118 0 0000 17 0206 EXT 206
2999 0119 0 0000 40 0229 STA 229
3000 0120 0 0000 10 0234 CAD 234
3001 0121 0 0000 17 0206 EXT 206
3002 0122 0 0000 40 0234 STA 234
3003 0123 0 0000 10 0105 CAD 105
3004 0124 0 0000 17 0207 EXT 207
3005 0125 1 0000 12 0208 ADD - 208
3006 0126 0 0000 40 0105 STA 105
3007 0127 0 0000 12 0219 ADD 219
3008 0128 0 0000 40 0111 STA 111
3009 0129 0 0000 10 0206 CAD 206
3010 0130 0 0000 48 0001 SRA 1
3011 0131 0 0000 40 0206 STA 206
3012 0132 0 0001 21 0103 DBB 103,1
3013 0133 0 0000 10 0227 CAD 227
3014 0134 0 0000 17 0220 EXT 220
3015 0135 0 0000 40 0229 STA 229
3016 0136 0 0000 10 0232 CAD 232
3017 0137 0 0000 17 0220 EXT 220
3018 0138 0 0000 40 0234 STA 234
3019 0139 0 0000 42 0218 LDB 218
3020 0140 0 0000 10 0227 CAD 227
3021 0141 0 0000 41 0232 LDR 232
3022 0142 0 9010 18 0229 CFA 229,90
3023 0143 0 1000 38 0142 BCS *-1,1
3024 0144 0 0000 35 0148 BCE 148
3025 0145 0 0003 00 0142 HLT 142,3
3026 0146 0 0000 30 0142 BUN 142
3027 0147 0 0000 01 0000 NOP
3028 0148 0 9011 18 0234 CFR 234,90
3029 0149 0 1000 38 0148 BCS *-1,1
3030 0150 0 0000 35 0154 BCE 154
3031 0151 0 0004 00 0148 HLT 148,4
3032 0152 0 0000 30 0148 BUN 148
3033 0153 0 0000 01 0000 NOP
3034 0154 0 0000 10 0229 CAD 229
3035 0155 0 0000 17 0221 EXT 221
3036 0156 0 0000 40 0229 STA 229
3037 0157 0 0000 10 0234 CAD 234
3038 0158 0 0000 17 0221 EXT 221
3039 0159 0 0000 40 0234 STA 234
3040 0160 0 0000 10 0142 CAD 142
3041 0161 0 0000 17 0207 EXT 207
3042 0162 1 0000 12 0208 ADD - 208
3043 0163 0 0000 40 0142 STA 142
3044 0164 0 0000 12 0219 ADD 219
3045 0165 0 0000 40 0148 STA 148
3046 0166 0 0000 10 0221 CAD 221
3047 0167 0 0000 48 0001 SRA 1
3048 0168 0 0000 40 0221 STA 221
3049 0169 0 0001 21 0140 DBB 140,1
3050 0170 0 0000 10 0222 CAD 222
3051 0171 0 0002 49 0001 SLS 1
3052 0172 0 0000 43 0300 LSA 0,300
3053 0173 0 0000 40 0222 STA 222
3054 0174 0 0000 40 0221 STA 221
3055 0175 0 0000 10 0220 CAD 220
3056 0176 0 0000 43 0100 LSA 0,100
3057 0177 0 0002 49 0001 SLS 1
3058 0178 0 0000 40 0220 STA 220
3059 0179 0 0000 10 0218 CAD 218
3060 0180 0 0000 13 0223 SUB 223
3061 0181 0 0000 40 0218 STA 218
3062 0182 0 0000 12 0224 ADD 224
3063 0183 0 0000 31 0185 BOF *+2
3064 0184 0 0000 30 0195 BUN 195
3065 0185 0 0000 42 0218 LDB 218
3066 0186 0 0000 10 0235 CAD 235
3067 0187 0 0000 13 0236 SUB 236
3068 0188 1 0000 12 0209 ADD - 209
3069 0189 0 0000 40 0142 STA 142
3070 0190 0 0000 12 0219 ADD 219
3071 0191 0 0000 40 0148 STA 148
3072 0192 0 0000 17 0207 EXT 207
3073 0193 0 0000 40 0235 STA 235
3074 0194 0 0000 30 0133 BUN 133
3075 0195 0 0000 42 0176 LDB 176
3076 0196 0 0000 29 0300 RTF 300,0
3077 0197 0 0370 29 0400 RTF 400,37
3078 0198 0 0000 10 0238 CAD 238
3079 0199 0 0000 12 0237 ADD 237
3080 0200 0 0000 31 0203 BOF *+3
3081 0201 0 0000 40 0238 STA 238
3082 0202 0 0000 30 0102 BUN 102
3083 0203 0 0000 46 0238 CLL 238
3084 0204 0 9999 00 9999 HLT 9999,9999
3085 0205 0 0000 30 0102 BUN 102
3086 0206 0 0111 11 1111 CSA 1111,111
3087 0207 0 1010 11 1100 CSU 1100,1010
3088 0208 0 0000 00 0000 HLT
3089 0209 0 0100 00 0029 HLT 29,100
3090 0210 0 0200 00 0029 HLT 29,200
3091 0211 0 0300 00 0029 HLT 29,300
3092 0212 0 0400 00 0029 HLT 29,400
3093 0213 0 0500 00 0029 HLT 29,500
3094 0214 0 0600 00 0029 HLT 29,600
3095 0215 0 0700 00 0029 HLT 29,700
3096 0216 0 0800 00 0029 HLT 29,800
3097 0217 0 0900 00 0029 HLT 29,900
3098 0218 0 0000 00 0009 HLT 9
3099 0219 0 0001 00 0005 HLT 5,1
3100 0220 1 1111 11 1110 CSA - 1110,1111
3101 0221 0 1111 11 1110 CSA 1110,1111
3102 0222 0 1111 11 1110 CSA 1110,1111
3103 0223 0 0000 00 0001 HLT 1
3104 0224 0 9999 99 9999 CNST 9999999999
3105 0225 0 0000 00 0000 HLT
3106 0226 0 0000 00 0000 HLT
3107 0227 1 9876 54 3218 MIW - 3218,9,8,76
3108 0228 0 0000 00 0000 HLT
3109 0229 0 9876 54 3218 MIW 3218,9,8,76
3110 0230 0 0000 00 0000 HLT
3111 0231 0 0000 00 0000 HLT
3112 0232 1 8123 45 6789 CAR - 6789,812
3113 0233 0 0000 00 0001 HLT 1
3114 0234 0 8123 45 6789 CAR 6789,812
3115 0235 0 9010 18 0200 CFA 200,90
3116 0236 0 1000 00 0000 HLT 0,1000
3117 0237 0 0020 00 0000 HLT 0,20
3118 0238 0 0000 00 0000 HLT
3119 0239 0 0000 42 0172 LDB 172
3120 0240 0 0000 29 0100 RTF 100,0
3121 0241 0 0370 29 0200 RTF 200,37
3122 0242 0 0000 30 0100 BUN 100
3123 0243 0 0000 42 0244 LDB *+1
3124 0244 0 0001 45 0153 CLA 153
3125 0245 1 0000 12 0100 ADD - 100
3126 0246 0 0000 31 0247 BOF *+1
3127 0247 0 0001 21 0245 DBB *-2,1
3128 0248 0 0000 12 0254 ADD 254
3129 0249 0 0000 31 0252 BOF *+3
3130 0250 0 0000 12 0233 ADD 233
3131 0251 0 0000 31 0239 BOF 239
3132 0252 0 6666 00 6666 HLT 6666,6666
3133 0253 0 0000 30 0243 BUN 243
3134 0254 0 3742 50 9703 MTS 9703,743
3135 0255 6 0000 30 0243 BUN 6 243
3136 0256 FINI 243

157
software/Diagnostics/TR1206-Field-Select-Test.pt Normal file
View File

@@ -0,0 +1,157 @@
61000040100
00000010000
00000010000
00000420218
00000100227
00000410232
00010180229
01000380105
00000350111
00001000105
00000300105
00000010000
00011180234
01000380111
00000350117
00002000111
00000300111
00000010000
00000100229
00000170206
00000400229
00000100234
00000170206
00000400234
00000100105
00000170207
10000120208
00000400105
00000120219
00000400111
00000100206
00000480001
00000400206
00001210103
00000100227
00000170220
00000400229
00000100232
00000170220
00000400234
00000420218
00000100227
00000410232
09010180229
01000380142
00000350148
00003000142
00000300142
00000010000
09011180234
01000380148
00000350154
00004000148
00000300148
00000010000
00000100229
00000170221
00000400229
00000100234
00000170221
00000400234
00000100142
00000170207
10000120208
00000400142
00000120219
00000400148
00000100221
00000480001
00000400221
00001210140
00000100222
00002490001
00000430300
00000400222
00000400221
00000100220
00000430100
00002490001
00000400220
00000100218
00000130223
00000400218
00000120224
00000310185
00000300195
00000420218
00000100235
00000130236
10000120209
00000400142
00000120219
00000400148
00000170207
00000400235
00000300133
00000420176
00000290300
00370290400
00000100238
00000120237
00000310203
00000400238
00000300102
00000460238
09999009999
00000300102
00111111111
01010111100
00000000000
00100000029
00200000029
00300000029
00400000029
00500000029
00600000029
00700000029
00800000029
00900000029
00000000009
00001000005
11111111110
01111111110
01111111110
00000000001
09999999999
00000000000
00000000000
19876543218
00000000000
09876543218
00000000000
00000000000
18123456789
00000000001
08123456789
09010180200
01000000000
00020000000
00000000000
00000420172
00000290100
00370290200
00000300100
00000420244
00001450153
10000120100
00000310247
00001210245
00000120254
00000310252
00000120233
00000310239
06666006666
00000300243
03742509703
60000300243

277
software/tools/220-Paper-Tape-Decoder.html Normal file
View File

@@ -0,0 +1,277 @@
<!DOCTYPE html>
<head>
<title>Burroughs 220 Paper Tape Extract</title>
<meta name="Author" content="Paul Kimpel">
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<meta http-equiv="Content-Script-Type" content="text/javascript">
<meta http-equiv="Content-Style-Type" content="text/css">
<script>
/***********************************************************************
* retro-220/tools 220-Paper-Tape-Decoder.html
************************************************************************
* Copyright (c) 2012, Paul Kimpel.
* Licensed under the MIT License,
* see http://www.opensource.org/licenses/mit-license.php
************************************************************************
* Burroughs 220 Library Maintenance tape file extract and conversion.
*
* This script reads a Burroughs Burroughs 220 paper tape image as one
* large blob and extracts the data, converting the punch pattern bytes
* to 8-bit ASCII.
*
* The blob is assumed to be in the so-called ".ptp" format. Each 7-bit
* frame from the tape is represented as one 8-bit unsigned byte.
* The bits in a frame, from most- to least-significant, are:
*
* X 0 P 8 4 2 1
*
* where "P" is the odd-parity bit, "X" has the value 32, and "0" has the
* value 16.
*
* To use, select the .ptp file using the file selection control on the
* page. The script writes a log of activity to the web page.
*
* This version outputs the converted data by opening a browser window for
* each file and inserting the converted text into a <textarea> element in
* that window. From there you can copy the text and paste into another
* program that can save the data to a local filesystem. This approach is
* being used until we can figure out a better way to get data out of a
* browser environment and into a local filesystem. Ugh.
************************************************************************
* 2020-08-02 P.Kimpel
* Original version, from retro-B5500 tools/B5500LibMaintExtract.html.
***********************************************************************/
"use strict";
window.onload = function() {
var endOfWord = 0x0D;
var panel = document.getElementById("TextPanel");
var tapeBlob = null; // blob read from .ptp file
var tapeData = null; // tape blob as a DataView
var codeXlate = [ // translate internal B220 code to ANSI
// Note that ANSI new-line sequences are used for end-of-word characters,
// so B220 carriage-return (16) translates to "|". To avoid space-expansion
// of tabs (26), they are translated to "~". The 02 "blank" code is "_".
// Form-feed (15) translates to "^".
// 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F
" ", "?", "_", ".", "\u00A4", "?", "?", "?", "?", "?", "!", "!", "!", "!", "!", "!", // 00-0F
"&", "?", "?", "$", "*", "^", "|", "?", "?", "?", "!", "!", "!", "!", "!", "!", // 10-1F
"-", "/", "?", ",", "%", "?", "~", "?", "?", "?", "!", "!", "!", "!", "!", "!", // 20-2F
"?", "?", "?", "#", "@", "\\", "?", "?", "?", "?", "!", "!", "!", "!", "!", "!", // 30-3F
"?", "A", "B", "C", "D", "E", "F", "G", "H", "I", "!", "!", "!", "!", "!", "!", // 40-4F
"?", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "!", "!", "!", "!", "!", "!", // 50-5F
"?", "?", "S", "T", "U", "V", "W", "X", "Y", "Z", "!", "!", "!", "!", "!", "!", // 60-6F
"?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "!", "!", "!", "!", "!", "!", // 70-7F
"0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "!", "!", "!", "!", "!", "!", // 80-8F
"?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "!", "!", "!", "!", "!", "!", // 90-9F
"!", "!", "!", "!", "!", "!", "!", "!", "!", "!", "!", "!", "!", "!", "!", "!", // A0-AF
"!", "!", "!", "!", "!", "!", "!", "!", "!", "!", "!", "!", "!", "!", "!", "!", // B0-BF
"!", "!", "!", "!", "!", "!", "!", "!", "!", "!", "!", "!", "!", "!", "!", "!", // C0-CF
"!", "!", "!", "!", "!", "!", "!", "!", "!", "!", "!", "!", "!", "!", "!", "!", // D0-DF
"!", "!", "!", "!", "!", "!", "!", "!", "!", "!", "!", "!", "!", "!", "!", "!", // E0-EF
"!", "!", "!", "!", "!", "!", "!", "!", "!", "!", "!", "!", "!", "!", "!", "!"]; // F0-FF
var ptXlate = [ // translate 220 paper tape punch patterns to ANSI
// 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F
"?", "1", "2", "?", "4", "?", "?", "7", "8", "?", "?", "#", "?", "?", "<", "?", // 00-0F
" ", "?", "?", "3", "?", "5", "6", "?", "?", "9", "?", "?", "@", "?", "?", "?", // 10-1F
"0", "?", "?", "T", "?", "V", "W", "?", "?", "Z", "?", ",", "%", "?", "?", "?", // 20-2F
"?", "/", "S", "?", "U", "?", "?", "X", "Y", "?", "?", "?", "?", "?", "~", "?", // 30-3F
"-", "?", "?", "L", "?", "N", "O", "?", "?", "R", "?", "?", "*", "?", "?", "?", // 40-4F
"?", "J", "K", "?", "M", "?", "?", "P", "Q", "?", "?", "$", "?", "^", "|", "?", // 50-5F
"?", "A", "B", "?", "D", "?", "?", "G", "H", "?", "?", ".", "?", "?", "?", "?", // 60-6F
"&", "?", "?", "C", "?", "E", "F", "?", "?", "I", "_", "?", "\u00A4", "?", "?", "?", // 70-7F
"?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", // 80-8F
"?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", // 90-9F
"?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", // A0-AF
"?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", // B0-BF
"?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", // C0-CF
"?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", // D0-DF
"?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", // E0-EF
"?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?"]; // F0-FF
var pow2 = [ // powers of 2 from 0 to 52
0x1, 0x2, 0x4, 0x8,
0x10, 0x20, 0x40, 0x80,
0x100, 0x200, 0x400, 0x800,
0x1000, 0x2000, 0x4000, 0x8000,
0x10000, 0x20000, 0x40000, 0x80000,
0x100000, 0x200000, 0x400000, 0x800000,
0x1000000, 0x2000000, 0x4000000, 0x8000000,
0x10000000, 0x20000000, 0x40000000, 0x80000000,
0x100000000, 0x200000000, 0x400000000, 0x800000000,
0x1000000000, 0x2000000000, 0x4000000000, 0x8000000000,
0x10000000000, 0x20000000000, 0x40000000000, 0x80000000000,
0x100000000000, 0x200000000000, 0x400000000000, 0x800000000000,
0x1000000000000, 0x2000000000000, 0x4000000000000, 0x8000000000000,
0x10000000000000];
function bit(word, bit) {
/* Extracts and returns the specified bit from the word */
var e = 47-bit; // word lower power exponent
var p; // bottom portion of word power of 2
if (e > 0) {
return ((word - word % (p = pow2[e]))/p) % 2;
} else {
return word % 2;
}
};
function fieldIsolate(word, start, width) {
/* Extracts a bit field [start:width] from word and returns the field */
var le = 48-start-width; // lower power exponent
var p; // bottom portion of word power of 2
return (le == 0 ? word : (word - word % (p = pow2[le]))/p) % pow2[width];
};
function spout(text) {
/* Appends "text"+NL as a new text node to the panel DOM element */
var e = document.createTextNode(text + "\n");
panel.appendChild(e);
}
function clearPanel() {
/* Clears the text panel */
var kid;
while (kid = panel.firstChild) {
panel.removeChild(kid);
}
}
function rtrim(s) {
/* Trims trailing spaces from "s" and returns the resulting string */
var m = s.match(/^(.*?) *$/);
return m[1];
}
function extractFile(data, fileNr, fileName) {
/* Extracts the 220 digits from the tape blob, converts the data
to ASCII, and writes it to a new window object within the browser.
Returns true if no more files should be converted */
var box = null;
var frame = 0;
var len = data.byteLength;
var result = false;
var text = "";
var win = null;
var x = 0;
spout(" ");
spout("Extracting #" + fileNr + ": " + fileName);
win = window.open("", fileName, "width=800,height=600,status,scrollbars");
win.moveTo((screen.availWidth - 800)/2, (screen.availHeight - 600)/2);
win.focus();
box = win.document.createElement("code");
box.appendChild(win.document.createTextNode(fileName));
win.document.body.appendChild(box);
win.document.body.appendChild(win.document.createElement("br"));
box = win.document.createElement("textarea");
box.cols = 90;
box.rows = 30;
win.document.body.appendChild(box);
for (x=0; x<len; ++x) {
frame = data.getUint8(x);
switch (frame) {
case 0: // ignore blank tape
break;
case 0x0D: // End of Word code
text += "\n";
break;
default:
text += ptXlate[frame];
}
}
box.value = text;
box.focus();
box.select();
result = !confirm("Copy and save " + fileName + " from the sub-window.\n" +
"Then click OK to continue or Cancel to quit.");
win.close();
return result;
}
function fileLoader_onLoad(ev) {
/* Handle the onload event for an ArrayBuffer FileReader */
var tapeBlob = ev.target.result;
var tapeData = new DataView(tapeBlob); // use DataView() to avoid problems with little-endians.
extractFile(tapeData, ev.target._fileNr, ev.target._fileName);
}
function fileSelector_onChange(ev) {
/* Handle the <input type=file> onchange event when afiles are selected */
var f = null;
var reader = null;
var x = 0; // for now...
clearPanel();
f = ev.target.files[x];
//alert("File selected: " + f.name +
// "\nModified " + f.lastModifiedDate +
// "\nType=" + f.type + ", Size=" + f.size + " octets");
reader = new FileReader();
reader.onload = fileLoader_onLoad;
reader._fileNr = x;
reader._fileName = f.name;
reader.readAsArrayBuffer(f);
}
function checkBrowser() {
/* Checks whether this browser can support the necessary stuff */
var missing = "";
if (!window.File) {missing += ", File"}
if (!window.FileReader) {missing += ", FileReader"}
if (!window.FileList) {missing += ", FileList"}
if (!window.Blob) {missing += ", Blob"}
if (!window.ArrayBuffer) {missing += ", ArrayBuffer"}
if (!window.DataView) {missing += ", DataView"}
if (missing.length == 0) {
return false;
} else {
alert("No can do... your browser does not support the following features:\n" +
missing.substring(2));
return true;
}
}
/* Start of window.onload() */
if (checkBrowser()) {
return;
}
document.getElementById("FileSelector").addEventListener("change", fileSelector_onChange, false);
}
</script>
</head>
<body>
<div style="position:relative; width:100%; height:3em">
<div style="position:absolute; left:0; top:0; width:auto">
retro-220 Paper Tape Tape Decoder Utility
</div>
<div style="position:absolute; top:0; right:0; width:auto">
<input id=FileSelector type=file size=60>
</div>
</div>
<pre id=TextPanel>
</pre>
</body>
</html>

340
software/tools/BAC-Disassembler.html
View File

@@ -133,16 +133,13 @@ LABEL {
<tbody>
<tr>
<td class=center>
<input id=Pass1ListCheck type=checkbox value=1>
<input id=Pass1ListCheck type=checkbox value=1 DISABLED>
<td class=center>
<input id=Pass2ListCheck type=checkbox value=1 CHECKED>
<input id=Pass2ListCheck type=checkbox value=1 DISABLED CHECKED>
<td class=center>
<select id=OutputModeSelect DISABLED>
<option value="" >No Object
<option value=L SELECTED>Loadable Deck
<option value=M >BALGOL ML Deck
<option value=P >Gen MEDIA Deck
<option value=T >Object Tape
<select id=OutputModeSelect>
<option value="" SELECTED>Listing only
<option value=D >List + Asm Deck
</select>
<td class=rj>
<button id=ExtractListing type=button>Extract Listing</button>
@@ -179,6 +176,7 @@ window.addEventListener("load", function() {
var labelIndex = 4;
var opCodeIndex = labelIndex + 6;
var operandIndex = labelIndex + 12;
var commentIndex = operandIndex + 14;
var operandLength = 55;
// Code word data structure
@@ -193,17 +191,19 @@ window.addEventListener("load", function() {
var pass1List = false;
var pass2List = true;
var generateDeck = false; // true if generating a source deck
var deckWin = null; // window for the output source deck
var deckDoc = null; // window document object for the source deck
var deck = null; // deck window text area
var panel = $$("TextPanel");
var cardReaderUnit = 1; // Cardatron input unit number for object card decks
// Assembly storage
var asmCode = []; // buffer for assembled words of code
var errorCount = 0; // assembler error count
var errorTank = []; // holding area for errors on current line
var lineNr = 1; // assembly output line number
var location = 0; // current instruction address
var startAddress = 0; // starting execution address, from FINI card
var symTab = {}; // Symbol table: holds the address value for each label
var p10 = [ 1, // powers of 10 table
10,
@@ -281,7 +281,8 @@ window.addEventListener("load", function() {
* 16 = Cardatron c-digit inserted in (31) for T-relays (carriage control)
* 17 = variant value added to (41)
* 18 = mag tape unit/lane as LLU, inserted as ULL in (33)
* 19 = resolved address only
* 19 = resolved address only in (04)
* 20 = optional address in (04)
***************************************/
// Pseudo-instruction codes
@@ -294,29 +295,29 @@ window.addEventListener("load", function() {
var pseudoFINI = -9;
var fieldTab = [-1,
4, 33, 44, 11, 41, 22, 22, 32, 42, 21, 62, 64, 11, 41, 41, 31, 41, 33, 4];
4, 33, 44, 11, 41, 22, 22, 32, 42, 21, 62, 64, 11, 41, 41, 31, 41, 33, 4, 4];
var opTab = {
"HLT": [ 0, 1, 0, 3, 0],
"NOP": [ 1, 1, 0, 3, 0],
"HLT": [ 0, 20, 0, 3, 0],
"NOP": [ 1, 20, 0, 3, 0],
"PRD": [ 3, 1, -1, 4, -1, 8, -1, 5, 0],
"PRB": [ 4, 1, -1, 4, -1, 5, 0, 8, 0],
"PRI": [ 5, 1, -1, 4, -1, 8, -1, 5, 0],
"PWR": [ 6, 1, -1, 4, -1, 8, -1],
"PWI": [ 7, 1, -1, 4, -1],
"KAD": [ 8, 1, 0, 3, 0],
"KAD": [ 8, 20, 0, 3, 0],
"SPO": [ 9, 1, -1, 8, -1, 15, 0],
"CAD": [ 10, 1, -1],
"CAA": [ 110, 1, -1],
"CSU": [ 11, 1, -1],
"CSA": [ 111, 1, -1],
"ADD": [ 12, 1, -1],
"ADA": [ 112, 1, -1],
"SUB": [ 13, 1, -1],
"SUA": [ 113, 1, -1],
"CAD": [ 10, 1, -1, 3, 0],
"CAA": [ 110, 1, -1, 3, 0],
"CSU": [ 11, 1, -1, 3, 0],
"CSA": [ 111, 1, -1, 3, 0],
"ADD": [ 12, 1, -1, 3, 0],
"ADA": [ 112, 1, -1, 3, 0],
"SUB": [ 13, 1, -1, 3, 0],
"SUA": [ 113, 1, -1, 3, 0],
"MUL": [ 14, 1, -1, 3, 0],
"DIV": [ 15, 1, -1, 3, 0],
"RND": [ 16, 1, 0, 3, 0],
"RND": [ 16, 20, 0, 3, 0],
"EXT": [ 17, 1, -1, 3, 0],
"CFA": [ 18, 1, -1, 6, 0],
"CFR": [ 118, 1, -1, 6, 0],
@@ -348,8 +349,8 @@ window.addEventListener("load", function() {
"BFR": [ 37, 1, -1, 7, -1, 9, -1],
"BZR": [ 37, 1, -1, 7, 0, 9, 0],
"BCS": [ 38, 1, -1, 4, 0],
"SOR": [ 39, 1, 0, 2, 0],
"SOH": [ 139, 1, 0, 2, 0],
"SOR": [ 39, 20, 0, 2, 0],
"SOH": [ 139, 20, 0, 2, 0],
"IOM": [ 239, 1, -1, 2, 0],
"STA": [ 40, 1, -1, 6, 0],
"STR": [ 140, 1, -1, 6, 0],
@@ -357,15 +358,15 @@ window.addEventListener("load", function() {
"LDR": [ 41, 1, -1, 3, 0],
"LDB": [ 42, 1, -1, 2, 0],
"LBC": [ 142, 1, -1, 2, 0],
"LSA": [ 43, 5, -1, 1, 0, 2, 0],
"LSA": [ 43, 5, -1, 20, 0, 2, 0],
"STP": [ 44, 1, -1, 3, 0],
"CLA": [ 145, 1, 0, 2, 0],
"CLR": [ 245, 1, 0, 2, 0],
"CAR": [ 345, 1, 0, 2, 0],
"CLB": [ 445, 1, 0, 2, 0],
"CAB": [ 545, 1, 0, 2, 0],
"CRB": [ 645, 1, 0, 2, 0],
"CLT": [ 745, 1, 0, 2, 0],
"CLA": [ 145, 20, 0, 2, 0],
"CLR": [ 245, 20, 0, 2, 0],
"CAR": [ 345, 20, 0, 2, 0],
"CLB": [ 445, 20, 0, 2, 0],
"CAB": [ 545, 20, 0, 2, 0],
"CRB": [ 645, 20, 0, 2, 0],
"CLT": [ 745, 20, 0, 2, 0],
"CLL": [ 46, 1, -1, 3, 0],
"SRA": [ 48, 1, -1, 2, 0],
"SRT": [ 148, 1, -1, 2, 0],
@@ -375,9 +376,9 @@ window.addEventListener("load", function() {
"SLS": [ 249, 1, -1, 2, 0],
"MTS": [ 50, 1, -1, 18, -1],
"MFS": [4000050, 1, -1, 18, -1],
"MLS": [ 450, 18, -1, 1, 0],
"MRW": [ 850, 18, -1, 1, 0],
"MDA": [ 950, 18, -1, 1, 0],
"MLS": [ 450, 18, -1, 20, 0],
"MRW": [ 850, 18, -1, 20, 0],
"MDA": [ 950, 18, -1, 20, 0],
"MTC": [ 51, 1, -1, 18, -1, 5, -1],
"MFC": [4000051, 1, -1, 18, -1, 5, -1],
"MRD": [ 52, 1, -1, 4, -1, 10, -1, 17, 0],
@@ -387,9 +388,9 @@ window.addEventListener("load", function() {
"MIR": [ 55, 1, -1, 4, -1, 10, -1, 9, 0],
"MOW": [ 56, 1, -1, 4, -1, 10, -1, 9, 0],
"MOR": [ 57, 1, -1, 4, -1, 10, -1, 9, 0],
"MPF": [ 58, 4, -1, 10, -1, 1, 0],
"MPB": [ 158, 4, -1, 10, -1, 1, 0],
"MPE": [ 258, 4, -1, 1, 0],
"MPF": [ 58, 4, -1, 10, -1, 20, 0],
"MPB": [ 158, 4, -1, 10, -1, 20, 0],
"MPE": [ 258, 4, -1, 20, 0],
"MIB": [ 59, 1, -1, 4, -1, 8, 0],
"MIE": [ 159, 1, -1, 4, -1, 8, 0],
"CRD": [ 60, 1, -1, 4, -1, 5, 0, 8, 0],
@@ -662,57 +663,17 @@ window.addEventListener("load", function() {
panel.scrollTop += 30;
}
/**************************************/
function dumpErrorTank() {
/* Dumps the tank of error messages to the text panel */
var x;
for (x=0; x<errorTank.length; ++x) {
printLine(errorTank[x]);
}
printLine("");
errorTank = [];
}
/**************************************/
function printError(msg) {
/* Prints an error message to the text panel and bumps the error count */
++errorCount;
errorTank.push("******** " + msg);
}
/**************************************/
function dumpSymbolTable() {
/* Dumps the contents of the symbol table to the text panel */
var keys; // sorted symbol table keys
var offset = 0; // print line offset
var text = ""; // print line
var x; // scratch index
printLine("");
printLine("SYMBOL TABLE");
printLine("");
keys = Object.keys(symTab).sort();
for (x=0; x<keys.length; ++x) {
if (offset > 80) {
printLine(text);
text = "";
offset = 0;
}
text += padLeft(symTab[keys[x]], offset-text.length+5) + " " + keys[x];
offset += 20;
}
printLine(text);
printLine("******** " + msg);
}
/*******************************************************************
* Assembler Output *
* Disassembler Output *
*******************************************************************/
/**************************************/
@@ -744,143 +705,16 @@ window.addEventListener("load", function() {
}
/**************************************/
function generateFormat6LoadableDeck(asmCode, outputChecksum, startAddress) {
/* Formats the assembled object code as a standard Cardatron format-6
loadable deck in a temporary window. From there it can be save, copied,
etc. */
var crdSkeleton = ""; // skeleton card-read instruction
var doc = null; // temp window document object
var deck = null; // temp window text area
var pval = p10[10]; // modulus for a word's absolute value
var psign = pval*2; // modulus for a word's sign bit
var title = "220 BAC-Assembler Band-6 Loadable Deck";
var win = window.open("../../webUI/B220FramePaper.html", "BAC-Asm-Object",
"scrollbars,resizable,width=600,height=500");
function writeDeck(card) {
/* Writes one card-image line to the output source deck */
function checksum(cksum, word) {
var sw = word%psign; // will be the signed algebraic value of word
if (sw >= pval) { // check if word has sign bit=1
sw = pval - sw; // if so, make it algebraically negative
}
return (cksum+sw)%pval; // compute the algebraic checksum
}
function writeCard(card, addr) {
deck.appendChild(doc.createTextNode("666" +
padLeft(crdSkeleton + padLeft(addr, 4, "0") + card, 77, " ") + "\n"));
}
function generateDeck(ev) {
var addr = 0; // assembled code address
var card = ""; // text line for an 80-column card image
var cksum = 0; // algebraic value of the checksum word
var count = 0; // number of words on card
var gapCount = 0; // number of consecutive undefined words
var priorAddr = 0; // CRD address for prior card image
var priorCard = ""; // prior image, awaiting terminating CRD instruction
var word = undefined; // object code word
var x = 0; // scratch index
win.removeEventListener("load", generateDeck, false);
doc = win.document;
doc.title = title;
deck = doc.getElementById("Paper");
while (addr < asmCode.length && asmCode[addr] === undefined) {
++addr;
}
while (addr < asmCode.length) {
word = asmCode[addr];
if (word === undefined) {
++gapCount;
} else {
if (count > 5 || gapCount > 0) {
writeCard(priorCard, priorAddr);
priorCard = card;
card = "";
gapCount = 0;
count = 0;
}
priorAddr = addr;
card += padLeft(word, 11, "0");
++count;
if (outputChecksum) {
cksum = checksum(cksum, word);
}
}
++addr;
} // while addr
writeCard(priorCard, priorAddr);
if (outputChecksum) {
// Compute and output a card with the 220 negative checksum at the next address
writeCard(card, priorAddr+1);
card = crdSkeleton + "9999";
if (cksum < 0) {
card += padLeft(-cksum, 11, "0");
} else {
card += padLeft(cksum+pval, 11, "0");
}
card = "***CHECKSUM FOR " + sourceName + " " + card;
}
writeCard(card, 9999);
if (startAddress >= 0) {
writeCard("6000030" + padLeft(startAddress, 4, "0"), 9999); // BUN to start
} else {
writeCard("69999009999", 9999); // HLT 9999
}
}
crdSkeleton = "6" + padLeft(cardReaderUnit, 1, "0") + "00060";
win.addEventListener("load", generateDeck, false);
win.moveTo((screen.availWidth-win.outerWidth)/2, (screen.availHeight-win.outerHeight)/2);
}
/*******************************************************************
* Initialization and Termination *
*******************************************************************/
/**************************************/
function finishAssembly() {
/* Finishes the assembly of a program unit, and if appropriate, starts
assembly of the next one */
var oms = $$("OutputModeSelect");
var x = oms.selectedIndex;
if (errorCount == 0 && x >= 0) {
switch(oms.options[x].value) {
case "L":
generateFormat6LoadableDeck(asmCode, outputChecksum, startAddress);
break;
case "M":
generateMachineLanguageDeck(asmCode, outputChecksum, startAddress);
break;
case "P":
generateGeneratorMediaDeck(asmCode, outputChecksum, startAddress);
break;
case "T":
generateObjectTape(asmCode, outputChecksum, startAddress);
break;
}// switch oms.options
}
$$("CRFileSelector").value = null; // reset the <input> elements
//document.body.removeChild($$("Spinner")); // remove the spinner image
// And... we're done -- just fall out of the script.
deck.appendChild(deckDoc.createTextNode(card + "\n"));
}
/**************************************/
function emitLine(location, word, lab, op, sign, operand, comment) {
/* Formats one line of disassembler output */
var card = "";
var line = " " + padLeft(lineNr, 4, " ") +
" " + padLeft(location, 4, "0") + " ";
var text = "";
@@ -894,28 +728,31 @@ window.addEventListener("load", function() {
text.substring(5, 7) + " " + text.substring(7, 11) + " ";
}
line += padRight(lab, 6, " ") + padRight(op, 4, " ");
card = padRight(lab, 6, " ") + padRight(op, 4, " ");
if (sign == 0) {
line += " ";
card += " ";
} else if (sign == 1) {
line += "- ";
card += "- ";
} else {
line += padLeft(sign, 1, "") + " ";
card += padLeft(sign, 1, "") + " ";
}
if ((comment || "").length == 0) {
line += operand;
card += operand;
} else {
if (operand.length < 14) {
line += padLeft(operand, 14);
card += padLeft(operand, 14);
} else {
line += operand + " ";
card += operand + " ";
}
line += comment;
card += comment;
}
printLine(line);
printLine(line + card);
if (generateDeck) {
writeDeck("1 " + card);
}
}
/**************************************/
@@ -1076,6 +913,9 @@ window.addEventListener("load", function() {
w2 = getField(word, 11); // U=unit number
operand += (w1*10 + w2);
break;
case 20: // optional address in (04)
optional(4);
break;
default:
printError("INVALID OPDESC INDEX: " + opDesc[ox]);
break;
@@ -1121,8 +961,8 @@ window.addEventListener("load", function() {
if ((sign & 0x06) == 6) {
switch (op) {
case 4:
location = addr;
emitPseudo(location, null, "", "LOCN", 0, addr);
location = addr;
return;
break;
case 30:
@@ -1470,13 +1310,10 @@ window.addEventListener("load", function() {
printLine("");
errorCount = 0;
errorTank = [];
location = 0;
wordData.atEOF = false;
wordData.serial = 0;
asmCode = [];
startAddress = 0;
symTab = {};
emitPseudo(0, null, "", "REM", 0, "", sourceName.toUpperCase());
do {
@@ -1485,8 +1322,55 @@ window.addEventListener("load", function() {
emitPseudo(location, null, "", "FINI", 0, startAddress)
document.body.removeChild($$("Spinner")); // remove the spinner image
$$("CRFileSelector").value = null; // reset the <input> elements
}
/*******************************************************************
* Initialization and Termination *
*******************************************************************/
/**************************************/
function configureOutput() {
/* Determines the output mode. Opens the source deck window if
needed and sets it up. Finally, calls disassembleFile() */
var index = 0;
var select = document.getElementById("OutputModeSelect");
var title = "220 BAC-Disassembler Source Deck";
function configureDeck(ev) {
generateDeck = true;
deckWin.removeEventListener("load", configureDeck, false);
deckDoc = deckWin.document;
deckDoc.title = title;
deck = deckDoc.getElementById("Paper");
deckWin.moveTo((screen.availWidth-deckWin.outerWidth)/2,
(screen.availHeight-deckWin.outerHeight)/2);
setTimeout(disassembleFile, 100);
}
index = select.selectedIndex;
if (index < 0) {
setTimeout(disassembleFile, 100);
} else {
switch (select.options[index].value) {
case "D":
if (!deckWin) {
deckWin = window.open("", "BAC-Asm-Source", "");
}
deckWin.close();
deckWin = window.open("../../webUI/B220FramePaper.html", "BAC-Asm-Source",
"scrollbars,resizable,width=600,height=500");
deckWin.addEventListener("load", configureDeck, false);
break;
default:
setTimeout(disassembleFile, 100);
break;
}
}
}
/**************************************/
function loadCodeFile(ev) {
/* Handle the <input type=file> onchange event when a file is selected */
@@ -1500,7 +1384,7 @@ window.addEventListener("load", function() {
buffer = ev.target.result;
bufferOffset = 0;
bufferLength = buffer.length;
setTimeout(disassembleFile, 100);
configureOutput();
}
sourceName = f.name;