github.com/pkimpel.retro-220
1
0
Fork 0
mirror of https://github.com/pkimpel/retro-220.git synced 2026-04-25 11:41:59 +00:00
Code Issues Releases Wiki Activity
Files
9bfb2224b1f63361b4899c0a06b7913fbc0e09cc
pkimpel.retro-220/software/BALGOL/BALGOL-Generator.bacg
Paul Kimpel d4c6799b25 1. Commit additional transcriptions for BALGOL intrinsic functions. 
2. Commit initial transcription work for BALGOL compiler-generator program.
3. Commit corrections and enhancements to tools/BAC-Assembler.html and tools/BAC-Xscript-Reformatter.wsf to support additional assembly syntax found in the intrinsics.
2017-01-22 09:58:12 -08:00

312 lines
18 KiB
Plaintext
Raw Blame History

6 11 17 40 52 60
SEQ PLAC ADDR WORD LABEL OPCODE OPERAND
1 LOAD 0000
2 ON TAPE,1/4999
3
4
5 THE COMPILER GENERATOR
6
7 DEFINITIONS FOR THE COMPILER
8
9 CHAR IS 179
10 SCNCT IS 225
11 VARB IS 251
12 CCCNT IS 1587
13 CCBEG IS 1618
14 IMAG IS 1632
15 NUTBL IS 3129
16 XONE IS 4097+2
17 SCRTB IS 4114+2
18 SSC IS 4214+2
19 LOCN IS 4215+2
20 MAMAX IS 4225+2
21 HDNG IS 4517
22
23 DEFINITIONS FOR THE OVERLAY
24
25 B IS 5200+13
26 ZERO IS 5200+27
27 LODOX IS 5200+74
28 LIBRARYTABLE
29 IS 1857
30 NUMB IS 4800+1335
31 LOD2 IS 4800+3127
32 POSCT IS 4800+3384
33 HALT IS 4800+3450
34
35 DEFINITIONS FOR OBJECT PROGRAM CARD LOADER
36
37 FIX IS 4240
38
39
40
41 0000 0 0000 30 0002 BUN LOAD
42 0001 0 0000 30 0023 BUN STORE
43 0002 0 0018 50 0000 LOAD MRW 010
44 0003 0 0004 45 0000 CLB
45 0004 1 0001 52 0000 1 -MNC 0,0,0
46 0005 0 0000 42 0006 LDB $+1
47 0006 0 0001 45 0999 CLA 999
48 0007 1 0000 12 0000 2 -ADD 0
49 0008 0 0001 21 0007 DBB 2B,1
50 0009 0 0000 36 0015 BZA 3F
51 0010 0 0040 09 2355 SPO R-CHECK SUM ERROR-
52 0011 0 0001 58 0000 MPB 0,0
53 0012 0 0272 00 2720 HLT 2720,0272(44)
54 0013 0 0000 42 0007 LDB 2B
55 0014 0 0000 30 0004 BUN 1B
56 0015 0 1107 27 0016 3 DFL $+1/11,1
57 0016 0 4000 42 0007 LDB 2B,4(11)
58 0017 0 0999 20 0018 IBB $+1,999
59 0018 0 0412 40 0007 STB 2B/04
60 0019 0 0000 32 0004 BRP 1B
61 0020 0 1105 27 0016 DFL 3B+1/11,5
62 0021 0 0410 40 0007 STA 2B/04
63 0022 0 0000 31 0046 BOF THEBEGINNING
64
65
66 0023 0 0018 50 0000 STORE MRW 010
67 0024 0 0000 42 0025 1 LDB $+1
68 0025 0 4001 45 0998 CLA 998,4(11)
69 0026 1 0000 12 0000 2 -ADD 0
70 0027 0 0001 21 0026 DBB $-1,1
71 0028 0 0000 42 0026 LDB 2B
72 0029 1 0000 41 0999 -LDR 999
73 0030 1 0000 40 0999 -STA 999
74 0031 1 0000 11 0999 -CSU 999
75 0032 1 0000 40 0999 -STA 999
76 0033 1 0000 56 0000 -MOW 0,0,0
77 0034 1 0001 40 0999 -STR 999
78 0035 0 0999 20 0036 IBB $+1,999
79 0036 0 0412 40 0026 STB 2B/04
80 0037 0 1101 27 0025 DFL 1B+1/11,1
81 0038 0 0000 32 0024 BRP 1B
82 0039 0 0000 31 0040 BOF $+1
83 0040 0 0018 50 0000 MRW 010
84 0041 0 1248 00 8421 HLT 8421,1248(44)
85 0042 0 0007 45 0000 CLT
86 0043 0 0410 40 0026 STA 2B/04
87 0044 0 1106 27 0025 DFL 1B+1/11,6
88 0045 0 0000 30 0002 BUN LOAD
89
90
91 THEBEGINNING
92 0046 0 0060 09 2349 SPO LRT-THECOMPILER GENERATOR-R
93 0047 0 1101 26 0051 IFL 20F/11,1
94 0048 0 1101 26 0049 IFL $+1/11,1
95 0049 0 0000 64 0051 CRI 20F,0
96 0050 0 0000 30 0049 BUN THEBEGINNING+3
97 0051 0 0002 62 1517 20 CRF ALFORMAT,0,2
98 0052 0 0008 50 0000 MRW 0
99 0053 0 0000 44 0115 21 DO SAN
54 0 0000 30 0107
100 0055 0 0010 18 2337 CFA -COMME-/00
101 0056 0 0000 35 0134 BCE COMMENT
102 0057 0 0010 18 2411 CFA -COPYC-/00
103 0058 0 0000 35 0139 BCE COMPILERTAPEUNIT
104 0059 0 0010 18 2394 CFA -COMPI-/00
105 0060 0 0000 35 0268 BCE SETLOCN
106 0061 0 0010 18 2416 CFA -GENER-/00
107 0062 0 0000 35 0290 BCE VERSION
108 0063 0 0010 18 2302 CFA -SETSC-/00
109 0064 0 0000 35 0144 BCE SETSCAN
110 0065 0 0010 18 2414 CFA -PRINT-/00
111 0066 0 0000 35 0161 BCE SETPRINTER
112 0067 0 0010 18 2293 CFA -VARIA-/00
113 0068 0 0000 35 0240 BCE VARIABLES
114 0069 0 0010 18 2340 CFA -CARDP-/00
115 0070 0 0000 35 0167 BCE SETPUNCH
116 0071 0 0010 18 2341 CFA -CARDR-/00
117 0072 0 0000 35 0172 BCE SETREADER
118 0073 0 0010 18 2410 CFA -MACHI-/00
119 0074 0 0000 35 0178 BCE SETSCRATCH
120 0075 0 0010 18 2420 CFA -CORRE-/00
121 0076 0 0000 35 0192 BCE SETCORRECTIONS
122 0077 0 0010 18 2393 CFA -MEMOR-/00
123 0078 0 0000 35 0225 BCE SETSIZE
124 0079 0 0010 18 2397 CFA -PROCE-/00
125 0080 0 0000 35 0245 BCE SETPROCESSBIT
126 0081 0 0010 18 2335 CFA -POSIT-/00
127 0082 0 0000 35 0248 BCE SETUPFORPOSITIONFORWARD
128 0083 0 0010 18 2396 CFA -PUNCH-/00
129 0084 0 0000 35 0260 BCE SETTHEPUNCHLIBRARYBIT
130 0085 0 0010 18 2381 CFA -SUPPR-/00
131 0086 0 0000 35 0266 BCE THEREGOESTHEHALT
132 0087 0 0010 18 2365 CFA -DELET-/00
133 0088 0 0000 35 0100 BCE WHATGOES
134 0089 0 0010 18 2440 CFA -INPUT-/00
135 0090 0 0000 35 0603 BCE INPUTMEDIA
136 0091 0 0010 18 2291 CFA -OUTPU-/00
137 0092 0 0000 35 0767 BCE OUTPUTMEDIA
138 0093 0 0010 18 2310 CFA -FINIS-/00
139 0094 0 0000 35 0387 BCE FINIS
140 STATEMENTERROR
141 0095 0 0050 09 2382 SPO R-INCORRECT STATEMENT-RRIII
142 0096 0 0160 09 1778 SPO INPUT,16
143 0097 0 0010 09 2342 SPO RRRRR--
144 0098 0 1370 00 7310 HLT 7310,1370(44)
145 0099 0 0000 30 0098 BUN $-1
146
147
148 0100 0 0000 44 0115 WHATGOES DO SCAN
0101 0 0000 30 0107
149 0102 0 0010 18 2374 CFA -EOUTP-/00
150 0103 0 0000 35 0364 BCE OUTPUTFORMATS
151 0104 0 0010 18 2418 CFA -EINPU-/00
152 0105 0 0000 35 0360 BCE INPUTFORMATS
153 0106 0 0000 30 0095 BUN STATEMENTERROR
154
155
156 0107 0 0000 46 0116 SCAN.1 CLL IMAGE.1
157 0108 0 0000 44 0125 3 DO CHARACTER
0109 0 0000 30 0117
158 0110 0 0000 49 0009 1 SLA 8
159 0111 0 0000 19 0116 ADL IMAGE.1
160 0112 0 0102 27 0110 DFL 1B/01,2
161 0113 0 0000 32 0108 BRP 3B
162 0114 0 0000 10 0116 CAD IMAGE.1
163 0115 0 0000 30 0115 SCAN BUN SCAN
164 0116 0 0000 00 0000 IMAGE.1 (0)
165
166
167 CHARACTER.1
168 IS $+1
169 0117 0 0502 26 0133 3 IFL SCNCT.1/05,2
170 0118 0 9400 28 0133 DLB SCNCT.1/94
171 0119 1 0000 10 1778 -CAD INPUT
172 0120 0 0000 42 0133 LDB SCNCT.1
173 0121 0 0160 21 0126 DBB 40F,160
174 0122 1 0000 49 0002 -SLA 2
175 0123 0 0000 17 2270 EXT =11=
176 0124 0 0000 36 0117 BZA 3B
177 0125 0 0000 30 0125 CHARACTER BUN CHARACTER
178 0126 0 0000 41 0051 40 LDR 20B
179 0127 0 1111 40 0128 STR $+1/11
180 0128 0 0010 60 1793 CNC INPUT+15,0
181 0129 0 0000 10 1793 CAD INPUT+15
182 0130 0 0000 46 0133 CLL SCNCT.1
183 0131 0 0002 33 0117 BSA 3B,2
184 0132 0 0000 30 0095 BUN STATEMENTERROR
185 0133 0 0000 00 0158 SCNCT.1 (158)
186
187
188 0134 0 0502 27 0133 COMMENT DFL SCNCT.1/05,2
189 0135 0 0000 44 0125 DO CHARACTER
0136 0 0000 30 0117
190 0137 0 0213 36 0053 BFA 21B/02,13
191 0138 0 0000 30 0117 BUN CHARACTER.1
192
193
194 COMPILERTAPEUNIT
195 0139 0 0000 44 0359 DO TAPENUMSCAN
0140 0 0000 30 0352
196 0141 0 0000 49 0007 SLA 7
197 0142 0 3310 40 1520 STA COMPILER/33
198 0143 0 0000 30 0134 BUN COMMENT
199
200
201 0144 0 0000 44 0350 SETSCAN DO BASICNUMSCAN
0145 0 0000 30 0337
202 0146 0 0000 40 1676 STA HOLD0
203 0147 0 0000 12 1676 ADD HOLD0
204 0148 0 0000 49 0006 SLA 6
205 0149 0 4210 40 2451 STA TBL+3/42
206 0150 0 0000 44 0350 DO BASICNUMSCAN
0151 0 0000 30 0337
207 0152 0 0000 40 1676 STA HOLD0
208 0153 0 0000 12 1676 ADD HOLD0
209 0154 0 0000 49 0006 SLA 6
210 0155 0 4410 40 2249 STA TBL+1/44
211 0156 0 4204 27 2451 DFL TBL+3/42,4
212 0157 0 0000 30 0134 BUN COMMENT
213 0158 0 0000 10 2449 SETSCAN.1 CRD TBL+1
214 0159 1 4410 40 1677 -STA IA/44
215 0160 0 0000 30 0514 BUN RETURN
216
217
218 0161 0 0000 44 0350 SETPRINTER DO BASICNUMSCAN
0162 0 0000 30 0337
219 0163 0 0000 49 0009 SLA 9
220 0164 0 1110 40 1801 STA PRINTER/11
221 0165 0 1110 40 0792 STA UNIT2/11
222 0166 0 0000 30 0134 BUN COMMENT
223
224
225 0167 0 0000 44 0350 SETPUNCH DO BASICNUMSCAN
0168 0 0000 30 0337
226 0169 0 0000 49 0009 SLA 9
227 0170 0 1110 40 1803 STA PUNCH/11
228 0171 0 0000 30 0134 BUN COMMENT
229
230
231 0172 0 0000 44 0350 SETREADER DO BASICNUMSCAN
0173 0 0000 30 0337
232 0174 0 0000 49 0009 SLA 9
233 0175 0 1110 40 1823 STA READER/11
234 0176 0 1110 40 0621 STA UNIT1/11
235 0177 0 0000 30 0134 BUN COMMENT
236
237
238 0178 0 0000 44 0359 SETSCRATCH DO TAPENUMSCAN
0179 0 0000 30 0352
239 0180 0 0000 49 0007 SLA 7
240 0181 0 3310 40 1827 STA SCRATCHML/33
241 0182 0 0002 49 0003 SLS 3
242 0183 0 0000 16 0000 RND
243 0184 0 0002 48 0010 SRS 10
244 0185 0 0001 48 0010 SRT 10
245 0186 0 0000 10 1827 CAD SCRATCHML
246 0187 0 0000 12 2441 ADD =1(31)=
247 0188 0 0000 37 0190 BZR 1F
248 0189 0 0000 13 2272 SUB =2(32)=
249 0190 0 3310 40 1828 1 STA SCRATCHDUMP/33
250 0191 0 0000 30 0134 BUN COMMENT
251
252
253 SETCORRECTIONS
254 0192 0 0000 41 0051 LDR 20B
255 0193 0 1111 40 0195 STR 1F/11
256 0194 0 1111 40 0219 STR 2F/11
257 0195 0 0011 60 1539 1 CNCL CDR+12,0
258 0196 0 0000 10 1527 CAD CDR
259 0197 0 0002 33 0134 BSA COMMENT,2
260 0198 0 0001 45 0000 CLA CREATE CHECK SUM TOTAL
261 0199 0 0000 42 2442 LDB =6=
262 0200 1 0000 12 1533 12 -ADD CDR+6
263 0201 0 0001 21 0200 DBB 12B,1
264 0202 0 0000 36 0206 BZA $+4
265 0203 0 0060 09 2434 SPO R-ERRONEOUS CORRECTION CARD-
266 0204 0 9669 00 9669 HLT 9669,9669(44)
267 0205 0 0000 30 0204 BUN $-1
268
269 0206 0 0000 10 1536 CAD CDR+9
270 0207 0 0000 42 0223 LDB K
271 0208 0 0402 26 0386 IFL KP/04,2
272 0209 1 0000 40 2449 -STA TBL+1
273 0210 0 0000 10 1535 CAD CDR+8
274 0211 0 0000 12 1534 ADD CDR+7
275 0212 0 0000 41 1532 LDR CDR+5
276 0213 0 0100 37 0217 BFR 3F/01,0
277 0214 0 0102 37 0221 BFR 4F/01,2
278 0215 0 0103 37 1533 BFR CDR+6/01,3
279 0216 0 0001 43 0000 LSA 1
280 0217 1 0000 40 2448 3 -STA TBL
281 0218 0 0002 26 0223 IFL K/00,2
282 0219 0 0010 60 1539 2 CNC CDR+12,0
283 0220 0 0000 30 0195 BUN 1B
284 0221 0 0003 43 0000 4 LSA 3
285 0222 0 0000 30 0217 BUN 3B
286 0223 0 0000 00 0014 K (14)
287 0224 0 0000 00 0000 MAMAXP (0)
288
289
290 0225 0 0000 44 0350 SETSIZE DO BASICNUMSCAN
0226 0 0000 30 0337
291 0227 0 0200 36 0231 BFA 1F/02,00
292 SPO R-MEMORY SIZE MUST BE GIVEN AS A MULTIPLE- ...
293 0228 0 0120 09 2422 - OF ONE HUNDRED-RRRI
294 0229 0 1370 00 7310 HLT 7310,1370(44)
295 0230 0 0000 30 0229 BUN $-1
296 0231 0 0000 12 2443 1 ADD =9999=
Reference in New Issue View Git Blame Copy Permalink