1
0
mirror of https://github.com/PDP-10/PCC20.git synced 2026-01-14 15:35:57 +00:00
PDP-10.PCC20/sail/c24.mid
2018-10-25 11:25:56 +02:00

6591 lines
50 KiB
Plaintext
Raw Permalink Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

TITLE c24
RADIX 10.
.INSRT <C>NC
.CODE
ENTRY Zar6
ENTRY Zar7
ENTRY Zar8
ENTRY Zar9
ENTRY Zar10
ENTRY Zar11
ENTRY Zar12
ENTRY Zar13
ENTRY Zar16
ENTRY Zar17
ENTRY Zar18
ENTRY Zar24
ENTRY Zar25
ENTRY Zar26
ENTRY Zar27
ENTRY Zar28
ENTRY Zar29
ENTRY Zar30
ENTRY Zar31
ENTRY Zar37
ENTRY Zar38
ENTRY Zar39
ENTRY Zar42
ENTRY Zar43
ENTRY Zar44
ENTRY Zar45
ENTRY Zar46
ENTRY Zar47
ENTRY Zar48
ENTRY Zar49
ENTRY Zar50
ENTRY Zar51
ENTRY Zar52
ENTRY Zar53
ENTRY Zar54
ENTRY Zar55
ENTRY Zar56
ENTRY Zar57
ENTRY Zar58
ENTRY Zar59
ENTRY Zar60
ENTRY Zar63
ENTRY Zar64
ENTRY Zar65
ENTRY Zar66
ENTRY Zar67
ENTRY Zar68
ENTRY Zar69
ENTRY Zar70
ENTRY Zar71
ENTRY Zar72
ENTRY Zar73
ENTRY Zar74
ENTRY Zar75
ENTRY Zar76
ENTRY Zar77
ENTRY Zar78
ENTRY Zar79
ENTRY Zar80
ENTRY Zar81
ENTRY Zar88
ENTRY Zar89
ENTRY Zar91
ENTRY Zar92
ENTRY Zar94
ENTRY Zar95
ENTRY Zar96
ENTRY Zar97
ENTRY Zar98
ENTRY Zar99
ENTRY Zar100
ENTRY Zar101
ENTRY Zar102
ENTRY Zar103
ENTRY Zar104
ENTRY Zar105
ENTRY Zar106
ENTRY Zar107
ENTRY Zar108
ENTRY Zar109
ENTRY Zar111
ENTRY Zar113
ENTRY Zar114
ENTRY Zar115
ENTRY Zar116
ENTRY Zar117
ENTRY Zar118
ENTRY Zar119
ENTRY Zar120
ENTRY Zar121
ENTRY Zar122
ENTRY Zar123
ENTRY Zar124
ENTRY Zar125
ENTRY Zar126
ENTRY Zar127
ENTRY Zar128
ENTRY Zar129
ENTRY Zar130
ENTRY Zar131
ENTRY Zar132
ENTRY Zar133
ENTRY Zar134
ENTRY Zar135
ENTRY Zar138
ENTRY Zar140
ENTRY Zar141
ENTRY Zar142
ENTRY Zar143
ENTRY Zar144
ENTRY Zar145
ENTRY Zar146
ENTRY Zar147
ENTRY Zar148
ENTRY Zar149
ENTRY Zar150
ENTRY Zar151
ENTRY Zar152
ENTRY Zar153
ENTRY Zar154
ENTRY Zar155
ENTRY Zar156
ENTRY Zar157
ENTRY Zar158
ENTRY Zar159
ENTRY Zar160
ENTRY Zar161
ENTRY Zar162
ENTRY Zar163
ENTRY Zar172
ENTRY Zar173
ENTRY Zar174
ENTRY Zar175
ENTRY Zar176
ENTRY Zar177
ENTRY Zar178
ENTRY Zar179
ENTRY Zar180
ENTRY Zar181
ENTRY Zar182
ENTRY Zar183
ENTRY Zar184
ENTRY Zar185
ENTRY Zar186
ENTRY Zar187
ENTRY Zar188
ENTRY Zar189
ENTRY Zar190
ENTRY Zar191
ENTRY Zar192
ENTRY Zar193
ENTRY Zar194
ENTRY Zar195
ENTRY Zar196
ENTRY Zar197
ENTRY Zar198
ENTRY Zar200
ENTRY Zar201
ENTRY Zar202
ENTRY Zar204
ENTRY Zact
ENTRY Zr1
ENTRY Zr2
ENTRY Zg
ENTRY Zpg
ENTRY Znbpw
ENTRY Znwpbt
ENTRY Za
ENTRY Zpa
EXTERN Ztsize
EXTERN Ztalig
EXTERN Zcalig
EXTERN Ztpoin
EXTERN Zntype
EXTERN Znac
EXTERN ZsvJar
EXTERN Zdbegi
EXTERN Zdgdp
EXTERN Zdldp
EXTERN Zdend
EXTERN Zlinen
EXTERN Ztop
EXTERN ZgetJt
EXTERN Zpush
EXTERN Zsetsp
EXTERN Zfind
EXTERN Zdefin
EXTERN ZTCHAR
EXTERN ZTINT
EXTERN ZTFLOA
EXTERN ZTDOUB
EXTERN ZTLONG
EXTERN ZTUNSI
EXTERN ZTUNDE
EXTERN ZTPCHA
EXTERN ZTACHA
EXTERN ZTFINT
EXTERN Zmtype
EXTERN Zbtype
EXTERN ZinJty
EXTERN Zstrle
EXTERN Zparml
EXTERN Zval
EXTERN Zline
EXTERN Zpv
EXTERN Zpl
EXTERN Zafdef
EXTERN Zafdcl
EXTERN Zafpdc
EXTERN Zaidec
EXTERN Zadecl
EXTERN Zmakty
EXTERN Zinz
EXTERN Zattri
EXTERN Zastru
EXTERN Zaostr
EXTERN Zafiel
EXTERN Zaiinz
EXTERN Zadclr
EXTERN Zastmt
EXTERN Zaexpr
EXTERN Zaif
EXTERN Zawhil
EXTERN Zafor
EXTERN Zado
EXTERN Zaswit
EXTERN Zacase
EXTERN Zadefa
EXTERN Zabrea
EXTERN Zacont
EXTERN Zaretu
EXTERN Zagoto
EXTERN Zalabe
EXTERN Zaentr
EXTERN Zanull
EXTERN Zaelis
EXTERN Znode
EXTERN Zaidn
EXTERN Zalidn
EXTERN Zafidn
EXTERN Zatidn
EXTERN Zasubs
EXTERN Zacall
EXTERN Zadot
EXTERN Zaptr
EXTERN Zaeidn
EXTERN Zapshw
EXTERN Zapshd
EXTERN Zapshf
EXTERN Zapshs
EXTERN Zastri
EXTERN Zabegi
EXTERN Zaend
.IDATA
Zact:
0
0
0
0
0
0
Zar6
Zar7
Zar8
Zar9
Zar10
Zar11
Zar12
Zar13
0
0
Zar16
Zar17
Zar18
0
0
0
0
0
Zar24
Zar25
Zar26
Zar27
Zar28
Zar29
Zar30
Zar31
0
0
0
0
0
Zar37
Zar38
Zar39
0
0
Zar42
Zar43
Zar44
Zar45
Zar46
Zar47
Zar48
Zar49
Zar50
Zar51
Zar52
Zar53
Zar54
Zar55
Zar56
Zar57
Zar58
Zar59
Zar60
0
0
Zar63
Zar64
Zar65
Zar66
Zar67
Zar68
Zar69
Zar70
Zar71
Zar72
Zar73
Zar74
Zar75
Zar76
Zar77
Zar78
Zar79
Zar80
Zar81
0
0
0
0
0
0
Zar88
Zar89
0
Zar91
Zar92
0
Zar94
Zar95
Zar96
Zar97
Zar98
Zar99
Zar100
Zar101
Zar102
Zar103
Zar104
Zar105
Zar106
Zar107
Zar108
Zar109
0
Zar111
0
Zar113
Zar114
Zar115
Zar116
Zar117
Zar118
Zar119
Zar120
Zar121
Zar122
Zar123
Zar124
Zar125
Zar126
Zar127
Zar128
Zar129
Zar130
Zar131
Zar132
Zar133
Zar134
Zar135
0
0
Zar138
0
Zar140
Zar141
Zar142
Zar143
Zar144
Zar145
Zar146
Zar147
Zar148
Zar149
Zar150
Zar151
Zar152
Zar153
Zar154
Zar155
Zar156
Zar157
Zar158
Zar159
Zar160
Zar161
Zar162
Zar163
0
0
0
0
0
0
0
0
Zar172
Zar173
Zar174
Zar175
Zar176
Zar177
Zar178
Zar179
Zar180
Zar181
Zar182
Zar183
Zar184
Zar185
Zar186
Zar187
Zar188
Zar189
Zar190
Zar191
Zar192
Zar193
Zar194
Zar195
Zar196
Zar197
Zar198
0
Zar200
Zar201
Zar202
0
Zar204
-1
Zr1:
0
1
2
2
3
3
4
5
5
6
7
7
8
8
9
9
10
10
10
11
11
11
12
12
13
13
13
13
13
13
13
14
14
15
15
16
16
17
17
17
18
18
19
19
19
19
19
19
19
19
19
19
19
19
19
19
20
20
20
20
20
21
21
22
22
22
23
24
24
24
24
24
24
25
25
25
25
25
25
25
26
26
27
27
28
28
29
29
30
31
32
32
33
33
33
33
33
33
33
33
33
33
33
33
33
33
33
33
33
33
34
34
35
35
36
36
36
36
36
36
36
36
36
36
36
36
36
36
36
36
36
36
36
36
36
36
36
37
37
38
38
39
40
40
40
40
40
40
40
40
40
40
40
40
40
40
40
40
40
40
40
40
40
40
41
42
42
42
42
42
42
42
43
44
45
46
47
48
49
50
51
51
51
51
51
51
51
51
51
51
51
51
51
51
51
51
51
51
51
51
52
52
52
52
52
-1
Zr2:
0
2
2
0
1
1
2
2
1
2
1
0
4
3
1
3
2
1
1
1
3
4
1
3
1
2
1
2
1
2
1
1
1
1
2
3
2
1
2
2
1
1
1
1
1
1
1
2
1
2
2
1
2
4
5
2
1
1
1
1
1
1
3
1
3
2
1
2
3
3
4
1
3
2
3
3
4
3
4
3
1
3
1
2
1
2
1
2
3
1
1
2
2
1
5
7
5
9
7
5
4
3
2
2
2
3
3
3
4
1
1
0
1
3
3
3
3
3
3
3
3
3
3
3
3
3
3
3
3
3
3
3
5
3
3
3
1
1
1
1
1
1
2
2
2
2
2
2
2
2
2
2
4
4
4
4
3
3
3
1
1
1
1
3
2
0
2
5
2
3
4
3
1
1
1
1
1
1
1
1
3
3
3
3
3
3
3
3
3
3
3
3
3
3
3
3
3
3
5
1
2
2
2
1
3
-1
Zg:
0
0
2
0
19
0
20
0
21
0
40
0
41
41
72
0
142
0
53
92
180
0
54
0
101
0
184
56
102
0
185
286
338
0
186
0
114
73
115
114
201
0
22
2
23
0
116
2
24
26
60
73
24
114
24
0
42
2
25
73
25
114
25
118
202
224
202
0
43
24
58
0
26
0
78
47
79
153
263
0
55
0
56
47
80
48
82
49
83
75
82
76
83
153
80
0
57
2
27
4
32
23
51
49
32
92
181
116
181
0
31
0
69
0
44
44
74
0
45
110
197
0
108
38
70
63
109
108
196
110
109
197
196
0
46
0
47
114
200
0
143
143
229
149
260
199
289
200
229
221
299
300
345
301
346
344
360
352
363
355
366
369
373
376
377
0
144
354
365
371
375
0
333
0
325
118
205
126
214
127
216
218
298
224
205
231
303
232
304
233
305
234
306
235
307
236
308
237
309
238
310
239
311
240
312
241
313
242
314
243
315
244
316
245
317
246
318
247
319
248
320
249
321
250
322
251
323
252
324
253
326
256
328
259
331
261
334
262
335
348
361
349
362
353
364
354
334
371
334
0
145
0
217
0
146
0
28
119
206
120
207
121
208
122
209
123
210
124
211
125
212
138
225
294
343
347
343
0
147
224
302
0
203
291
340
292
341
0
293
0
148
0
149
0
150
0
151
0
29
0
65
0
73
200
290
0
227
52
90
62
107
84
156
85
157
104
193
136
222
161
265
162
266
163
267
164
268
165
269
166
270
167
271
168
272
169
273
170
274
171
275
172
276
173
277
174
278
175
279
176
280
177
281
178
282
179
283
336
356
342
359
0
187
86
158
87
159
88
160
182
160
0
91
-1
Zpg:
0
0
1
3
5
7
9
11
13
17
19
23
25
27
31
35
37
43
47
57
69
73
75
81
83
97
111
113
115
119
123
135
137
141
167
173
175
251
253
255
257
279
283
289
291
293
295
297
299
301
303
307
363
-1
Znbpw:
16
Znwpbt:
5
Za:
0
0
0
117
195
71
106
62
66
118
52
92
257
179
119
120
121
176
175
163
162
122
123
164
250
168
169
124
125
172
173
170
171
166
167
258
251
177
178
0
5
6
7
8
9
10
11
12
126
127
128
369
129
130
131
132
133
134
135
136
137
13
138
14
15
16
17
0
0
0
0
0
0
0
0
113
139
140
141
12291
20481
0
0
65280
40960
7
4097
16384
4105
8195
4117
8196
4171
8210
0
4105
8195
4117
8196
4171
8222
0
12330
12331
12332
12333
12464
12344
12345
12346
12347
4136
8225
4138
8226
12334
4136
8227
12336
4136
8228
12339
12348
4105
8229
12429
12290
12293
20481
0
0
7936
32768
3
4157
8230
4171
8231
12299
12292
4105
8240
4106
8244
4117
8241
4171
8242
0
20481
0
0
57344
8192
4
12325
4099
8251
12329
20481
0
0
7936
32768
3
4171
8231
0
4103
8254
4105
8253
12296
12328
4101
8255
4171
8256
0
4105
8229
0
4103
8254
4104
8258
4105
8253
0
4103
8254
4105
8253
12361
12335
12338
12337
12340
4104
8259
4171
8260
0
20481
0
0
7936
32768
3
4171
8231
0
12429
12294
4101
8263
0
12377
12329
20481
0
0
7936
32768
3
4157
8230
4171
8231
12298
12370
12372
4105
8267
4106
8244
4117
8268
4171
8269
0
4105
8240
4117
8241
4171
8273
0
4105
8240
4117
8241
4171
8273
0
4105
8229
4106
8276
12359
4099
12306
4103
8254
4105
8253
4107
12306
12295
4105
8277
4110
8278
4111
8279
4118
8280
4172
8281
0
4099
8285
4107
8284
0
12302
12305
4101
8286
4112
8287
4118
8288
4171
8289
4172
8290
4173
8291
4174
8292
0
4099
12351
4103
8296
4105
8295
4107
12351
12354
12327
12324
12326
4104
8297
0
4102
8298
4105
8277
4110
8278
4111
8279
4118
8280
4172
8281
0
20481
0
0
7936
32768
3
4171
8231
0
4101
12465
12343
4101
8302
0
12367
12365
12368
4104
8303
4107
8304
0
12373
12466
12297
20481
49704
6241
65280
65527
30727
0
12371
4105
8267
4117
8268
4171
8344
0
4106
8276
12359
4099
8346
4107
8345
0
12349
4103
8296
4105
8295
12351
4105
8229
12359
4103
8296
4104
8347
4105
8295
0
4103
8296
4105
8295
12355
4105
8277
4110
8278
4111
8279
4118
8280
4172
8281
0
12491
20481
8192
59038
103
0
0
4112
8366
4117
8353
4118
8357
12353
12487
4105
8240
4106
8244
4117
8241
4171
8242
0
12323
4105
8277
4110
8278
4111
8279
4112
8287
4118
8374
4171
8289
4172
8375
4173
8291
4174
8292
0
4171
8380
0
4172
8381
4173
8382
0
12316
12312
12314
12318
12304
12307
4104
8383
0
4102
8384
4105
8277
4110
8278
4111
8279
4118
8280
4172
8281
0
12362
12363
20481
8192
59038
103
0
0
4102
8386
4112
8366
4117
8353
4118
8357
0
20481
16
0
7936
32768
3
4171
8231
0
12374
12366
4171
8390
0
4105
12428
4106
8391
4117
12429
4141
12429
4142
12429
4143
12429
4157
12429
4162
12429
4171
12429
12447
20481
49704
6241
65280
65527
30727
0
12321
4105
8240
4106
8244
4117
8241
4171
8242
0
12397
20481
49664
6241
7936
49152
28675
4171
8396
0
20481
49664
6241
0
16384
28672
4171
8396
0
20481
49664
6241
0
16384
28672
4099
8405
4171
8396
0
20481
49664
6241
0
16384
28672
4171
8407
0
4105
8410
0
12463
4099
8411
0
4099
8412
0
12460
12461
12462
4106
8413
0
4171
8415
0
20481
49152
6241
0
16384
28672
4105
8416
4171
8396
0
12448
12449
12450
12381
20481
49704
6241
0
24567
28672
4100
8418
4171
8420
0
12378
4099
8422
4107
8444
4109
8441
4112
8436
4113
8438
4114
8437
4115
8425
4116
8424
4117
8423
4118
8427
4119
8426
4120
8442
4121
8430
4122
8431
4125
8434
4126
8435
4127
8432
4128
8433
4129
8428
4130
8429
4132
8443
4133
8439
4134
8440
0
4105
8445
0
4103
8448
4105
12427
4108
8449
4123
8446
4124
8447
4131
8450
12424
4105
8451
0
20481
49704
6241
0
24567
28672
4171
8420
0
4105
8453
0
4105
8454
0
12359
4105
8267
4106
8244
4117
8268
4171
8269
0
12376
12360
20481
8192
59038
103
0
0
4112
8366
4117
8353
4118
8357
12352
20481
8192
59038
103
0
0
4104
8456
4112
8366
4117
8353
4118
8357
0
12490
12489
12488
12303
4103
8254
4105
8253
12306
4105
8277
4110
8278
4111
8279
4118
8280
4172
8476
4173
8382
0
4100
12312
4107
12312
12491
4100
8477
4107
8478
0
12320
12310
20481
8192
59038
103
0
0
4112
8366
4117
8353
4118
8357
12319
12317
12313
12315
12356
12357
20481
8192
59038
103
0
0
4102
8479
4112
8366
4117
8353
4118
8357
0
12364
12341
12375
20481
0
0
7936
32768
3
4100
8480
4171
8231
0
12369
20481
49704
6241
0
24567
28672
4100
8418
4171
8420
0
12322
4105
8483
4117
8484
12453
4104
8486
0
4105
12428
12447
4104
8487
4107
8444
4109
8441
4112
8436
4113
8438
4114
8437
4115
8425
4116
8424
4117
8423
4118
8427
4119
8426
4120
8442
4121
8430
4122
8431
4125
8434
4126
8435
4127
8432
4128
8433
4129
8428
4130
8429
4132
8443
4133
8439
4134
8440
0
4103
8448
4105
12427
4108
8449
4123
8446
4124
8447
4131
8450
12436
4103
8448
4105
12427
4108
8449
4123
8446
4124
8447
4131
8450
12435
4103
8448
4105
12427
4108
8449
4123
8446
4124
8447
4131
8450
12433
4103
8448
4105
12427
4108
8449
4123
8446
4124
8447
4131
8450
12432
4103
8448
4105
12427
4108
8449
4123
8446
4124
8447
4131
8450
12434
4103
8448
4105
12427
4108
8449
4123
8446
4124
8447
4131
8450
12437
4103
8448
4105
12427
4108
8449
4123
8446
4124
8447
4131
8450
12438
12392
4099
8488
4107
8444
4109
8441
4112
8436
4113
8438
4114
8437
4115
8425
4116
8424
4117
8423
4118
8427
4119
8426
4120
8442
4121
8430
4122
8431
4125
8434
4126
8435
4127
8432
4128
8433
4129
8428
4130
8429
4132
8443
4133
8439
4134
8440
0
4099
12426
4105
12428
12447
4107
8444
4109
8441
4112
8436
4113
8438
4114
8437
4115
8425
4116
8424
4117
8423
4118
8427
4119
8426
4120
8442
4121
8430
4122
8431
4125
8434
4126
8435
4127
8432
4128
8433
4129
8428
4130
8429
4132
8443
4133
8439
4134
8440
12425
4099
8489
0
20481
49664
6241
0
16384
28672
4171
8396
0
12390
12391
20481
8192
59038
103
0
0
4106
8492
4112
8366
4117
8353
4118
8357
0
4106
8493
0
20481
49664
6241
7936
49152
28675
4171
8396
0
4103
8448
4105
12427
4108
8449
4123
8446
4124
8447
4131
8450
12439
12467
12301
4105
12428
4106
8391
12447
12379
12380
20481
49664
6241
0
16384
28672
4104
8519
4171
8396
0
12430
12431
4171
8521
0
4171
8522
0
4151
8524
0
20481
49664
6241
0
16384
28672
4171
8396
12399
12350
12492
12468
12469
12470
4115
8355
4116
8354
4117
8353
12471
4115
8355
4116
8354
4117
8353
12472
20481
0
152
0
0
0
4117
8353
4118
8357
12473
20481
0
152
0
0
0
4117
8353
4118
8357
12474
20481
0
152
6
0
0
4117
8353
4118
8357
12475
20481
0
152
6
0
0
4117
8353
4118
8357
12476
20481
0
152
6
0
0
4117
8353
4118
8357
12477
20481
0
152
6
0
0
4117
8353
4118
8357
12478
20481
0
34456
7
0
0
4117
8353
4118
8357
12479
20481
0
34456
7
0
0
4117
8353
4118
8357
12480
20481
0
59032
7
0
0
4117
8353
4118
8357
12481
20481
0
59032
7
0
0
4112
8366
4117
8353
4118
8357
12482
20481
0
59036
7
0
0
4112
8366
4117
8353
4118
8357
12483
20481
0
59038
7
0
0
4112
8366
4117
8353
4118
8357
12484
20481
0
59038
39
0
0
4112
8366
4117
8353
4118
8357
12485
20481
8192
59038
103
0
0
4106
8528
4112
8366
4117
8353
4118
8357
0
4100
12313
4107
12313
12491
12308
4100
8529
4105
8277
4110
8278
4111
8279
4112
8287
4118
8374
4171
8289
4172
8375
4173
8291
4174
8292
0
12358
12342
12395
12300
4104
8531
4105
8483
4117
8484
12453
4105
8483
4117
8484
12453
4103
8534
12452
12451
12393
12394
4104
8536
4107
8444
4109
8441
4112
8436
4113
8438
4114
8437
4115
8425
4116
8424
4117
8423
4118
8427
4119
8426
4120
8442
4121
8430
4122
8431
4125
8434
4126
8435
4127
8432
4128
8433
4129
8428
4130
8429
4132
8443
4133
8439
4134
8440
0
12389
4104
8539
0
12402
12403
12404
4115
8425
4116
8424
4117
8423
12405
4115
8425
4116
8424
4117
8423
12406
4115
8425
4116
8424
4117
8423
4118
8427
4119
8426
12407
4115
8425
4116
8424
4117
8423
4118
8427
4119
8426
12408
4115
8425
4116
8424
4117
8423
4118
8427
4119
8426
4129
8428
4130
8429
12409
4115
8425
4116
8424
4117
8423
4118
8427
4119
8426
4129
8428
4130
8429
12410
4115
8425
4116
8424
4117
8423
4118
8427
4119
8426
4129
8428
4130
8429
12411
4115
8425
4116
8424
4117
8423
4118
8427
4119
8426
4129
8428
4130
8429
12412
4115
8425
4116
8424
4117
8423
4118
8427
4119
8426
4121
8430
4122
8431
4127
8432
4128
8433
4129
8428
4130
8429
12413
4115
8425
4116
8424
4117
8423
4118
8427
4119
8426
4121
8430
4122
8431
4127
8432
4128
8433
4129
8428
4130
8429
12414
4115
8425
4116
8424
4117
8423
4118
8427
4119
8426
4121
8430
4122
8431
4125
8434
4126
8435
4127
8432
4128
8433
4129
8428
4130
8429
12415
4112
8436
4115
8425
4116
8424
4117
8423
4118
8427
4119
8426
4121
8430
4122
8431
4125
8434
4126
8435
4127
8432
4128
8433
4129
8428
4130
8429
12416
4112
8436
4114
8437
4115
8425
4116
8424
4117
8423
4118
8427
4119
8426
4121
8430
4122
8431
4125
8434
4126
8435
4127
8432
4128
8433
4129
8428
4130
8429
12417
4112
8436
4113
8438
4114
8437
4115
8425
4116
8424
4117
8423
4118
8427
4119
8426
4121
8430
4122
8431
4125
8434
4126
8435
4127
8432
4128
8433
4129
8428
4130
8429
12418
4112
8436
4113
8438
4114
8437
4115
8425
4116
8424
4117
8423
4118
8427
4119
8426
4121
8430
4122
8431
4125
8434
4126
8435
4127
8432
4128
8433
4129
8428
4130
8429
4133
8439
12419
4106
8540
4107
8444
4109
8441
4112
8436
4113
8438
4114
8437
4115
8425
4116
8424
4117
8423
4118
8427
4119
8426
4120
8442
4121
8430
4122
8431
4125
8434
4126
8435
4127
8432
4128
8433
4129
8428
4130
8429
4132
8443
4133
8439
4134
8440
0
4109
8441
4112
8436
4113
8438
4114
8437
4115
8425
4116
8424
4117
8423
4118
8427
4119
8426
4120
8442
4121
8430
4122
8431
4125
8434
4126
8435
4127
8432
4128
8433
4129
8428
4130
8429
4132
8443
4133
8439
4134
8440
12421
4109
8441
4112
8436
4113
8438
4114
8437
4115
8425
4116
8424
4117
8423
4118
8427
4119
8426
4120
8442
4121
8430
4122
8431
4125
8434
4126
8435
4127
8432
4128
8433
4129
8428
4130
8429
4132
8443
4133
8439
4134
8440
12422
4109
8441
4112
8436
4113
8438
4114
8437
4115
8425
4116
8424
4117
8423
4118
8427
4119
8426
4120
8442
4121
8430
4122
8431
4125
8434
4126
8435
4127
8432
4128
8433
4129
8428
4130
8429
4132
8443
4133
8439
4134
8440
12423
4104
8542
4107
8541
0
4109
8441
4112
8436
4113
8438
4114
8437
4115
8425
4116
8424
4117
8423
4118
8427
4119
8426
4120
8442
4121
8430
4122
8431
4125
8434
4126
8435
4127
8432
4128
8433
4129
8428
4130
8429
4132
8443
4133
8439
4134
8440
12400
12444
4102
8543
4107
8444
4109
8441
4112
8436
4113
8438
4114
8437
4115
8425
4116
8424
4117
8423
4118
8427
4119
8426
4120
8442
4121
8430
4122
8431
4125
8434
4126
8435
4127
8432
4128
8433
4129
8428
4130
8429
4132
8443
4133
8439
4134
8440
0
12445
12446
4104
8544
4107
8444
4109
8441
4112
8436
4113
8438
4114
8437
4115
8425
4116
8424
4117
8423
4118
8427
4119
8426
4120
8442
4121
8430
4122
8431
4125
8434
4126
8435
4127
8432
4128
8433
4129
8428
4130
8429
4132
8443
4133
8439
4134
8440
0
4105
8545
0
4099
8546
0
4107
8444
4109
8441
4112
8436
4113
8438
4114
8437
4115
8425
4116
8424
4117
8423
4118
8427
4119
8426
4120
8442
4121
8430
4122
8431
4125
8434
4126
8435
4127
8432
4128
8433
4129
8428
4130
8429
4132
8443
4133
8439
4134
8440
12398
4104
8547
4107
8444
4109
8441
4112
8436
4113
8438
4114
8437
4115
8425
4116
8424
4117
8423
4118
8427
4119
8426
4120
8442
4121
8430
4122
8431
4125
8434
4126
8435
4127
8432
4128
8433
4129
8428
4130
8429
4132
8443
4133
8439
4134
8440
0
12309
12311
12454
4103
8534
4104
8549
0
4103
8534
12456
4102
8550
4105
8277
4110
8278
4111
8279
4118
8280
4172
8281
0
4103
8448
4105
12427
4108
8449
4123
8446
4124
8447
4131
8450
12441
12388
12396
20481
512
6144
0
16384
28672
4171
8396
12440
12443
12442
20481
49664
6241
0
16384
28672
4171
8396
12399
20481
8192
59038
103
0
0
4112
8366
4117
8353
4118
8357
12486
4105
8559
12459
12457
20481
8192
59038
103
0
0
4102
8560
4112
8366
4117
8353
4118
8357
0
4147
8561
12382
4109
8441
4112
8436
4113
8438
4114
8437
4115
8425
4116
8424
4117
8423
4118
8427
4119
8426
4121
8430
4122
8431
4125
8434
4126
8435
4127
8432
4128
8433
4129
8428
4130
8429
4133
8439
4134
8440
12420
4109
8441
4112
8436
4113
8438
4114
8437
4115
8425
4116
8424
4117
8423
4118
8427
4119
8426
4120
8442
4121
8430
4122
8431
4125
8434
4126
8435
4127
8432
4128
8433
4129
8428
4130
8429
4132
8443
4133
8439
4134
8440
12401
12384
4104
8562
4107
8444
4109
8441
4112
8436
4113
8438
4114
8437
4115
8425
4116
8424
4117
8423
4118
8427
4119
8426
4120
8442
4121
8430
4122
8431
4125
8434
4126
8435
4127
8432
4128
8433
4129
8428
4130
8429
4132
8443
4133
8439
4134
8440
0
4099
8563
0
12387
4104
8564
0
12458
4099
8566
0
20481
49664
6241
0
16384
28672
4171
8396
12399
12455
12383
12386
4104
8568
0
12385
-1
Zpa:
0
79
80
95
95
102
103
104
105
106
107
108
109
110
111
116
119
122
123
126
127
128
139
140
149
156
159
168
173
174
179
182
189
194
195
196
197
198
203
212
213
214
217
218
219
230
231
232
241
248
255
260
269
280
285
286
287
302
311
312
313
314
317
330
339
342
345
346
347
348
353
354
355
356
363
364
364
371
374
379
380
385
388
395
269
269
400
400
400
411
412
425
426
435
436
455
458
463
464
465
466
467
468
469
472
485
486
487
502
511
330
512
513
516
535
542
543
552
553
562
562
562
562
562
562
562
571
582
591
594
595
598
601
602
603
604
269
607
610
621
622
623
624
625
636
637
684
687
700
703
712
715
718
719
728
729
730
743
758
759
760
269
269
269
269
269
269
269
269
269
269
269
269
269
269
269
269
269
269
269
761
762
767
780
785
790
791
792
805
806
807
808
809
810
825
826
827
828
839
703
840
851
852
857
860
863
910
923
936
949
962
975
988
1001
1002
1049
1054
1099
1102
1111
1112
703
1113
1128
1131
1140
1153
1154
1155
1160
1161
1102
1102
1102
1102
1102
1102
1102
1102
1102
1102
1102
1102
1102
1102
1102
1102
1102
1102
1102
1102
1102
1102
1162
1173
1174
1102
1175
1178
1102
1181
1184
1102
1193
1194
1195
1196
1197
1198
1205
1212
1223
1234
1245
1256
1267
1278
1289
1300
1311
1324
1337
1350
1363
1378
1383
1384
1405
1406
1407
1408
1409
1416
1421
562
1424
1425
1426
1427
1474
703
703
1475
1478
1479
1480
1481
1488
1495
1506
1517
1532
1547
1562
1577
1600
1623
1650
1679
1710
1743
1778
1825
1868
1911
1954
1959
2002
2003
2050
2051
2052
2099
2102
2105
2150
269
2197
2198
2199
2200
2205
2208
2221
703
2234
2235
2236
1102
1102
2245
2246
703
1102
2247
703
2256
2269
2272
2273
2288
2291
2330
2373
2374
2421
2424
2425
2428
703
2429
2432
2441
2442
2443
2444
703
2447
-1
.CODE
.PDATA
S0: 116
0
S2: 98
0
S4: 45
51
52
51
53
57
55
51
56
51
54
56
0
.CODE
%A==0
%A,,[ASCIZ/ar6/]
Zar6: ADDI P,FS1
; LINE 18
MOVE A,Zpv
PPUSH 1(A)
MOVE A,Zpv
PPUSH 2(A)
CCALL 2,Zafdef
SUBI P,FS1+%A+1
GO @<%A+1>(P)
FS1==1-1
%A==0
%A,,[ASCIZ/ar7/]
Zar7: ADDI P,FS2
; LINE 21
PPUSH [1]
CCALL 1,Zafdcl
MOVEM A,Zval
SUBI P,FS2+%A+1
GO @<%A+1>(P)
FS2==1-1
%A==0
%A,,[ASCIZ/ar8/]
Zar8: ADDI P,FS3
; LINE 24
PPUSH [0]
CCALL 1,Zafdcl
MOVEM A,Zval
SUBI P,FS3+%A+1
GO @<%A+1>(P)
FS3==1-1
%A==0
%A,,[ASCIZ/ar9/]
Zar9: ADDI P,FS4
; LINE 27
MOVE A,Zpv
MOVE A,2(A)
MOVEM A,Zval
SUBI P,FS4+%A+1
GO @<%A+1>(P)
FS4==1-1
%A==0
%A,,[ASCIZ/ar10/]
Zar10: ADDI P,FS5
; LINE 30
CCALL 0,Zafpdc
SUBI P,FS5+%A+1
GO @<%A+1>(P)
FS5==1-1
%A==0
%A,,[ASCIZ/ar11/]
Zar11: ADDI P,FS6
; LINE 33
CCALL 0,Zafpdc
SUBI P,FS6+%A+1
GO @<%A+1>(P)
FS6==1-1
%A==0
%A,,[ASCIZ/ar12/]
Zar12: ADDI P,FS7
; LINE 36
MOVE A,Zpv
MOVE A,3(A)
MOVEM A,Zval
SUBI P,FS7+%A+1
GO @<%A+1>(P)
FS7==1-1
%A==0
%A,,[ASCIZ/ar13/]
Zar13: ADDI P,FS8
; LINE 39
MOVE A,Zpv
MOVE A,2(A)
MOVEM A,Zval
SUBI P,FS8+%A+1
GO @<%A+1>(P)
FS8==1-1
%A==0
%A,,[ASCIZ/ar16/]
Zar16: ADDI P,FS9
; LINE 42
CCALL 0,Zaidec
SUBI P,FS9+%A+1
GO @<%A+1>(P)
FS9==1-1
%A==0
%A,,[ASCIZ/ar17/]
Zar17: ADDI P,FS10
; LINE 45
CCALL 0,Zaidec
SUBI P,FS10+%A+1
GO @<%A+1>(P)
FS10==1-1
%A==0
%A,,[ASCIZ/ar18/]
Zar18: ADDI P,FS11
; LINE 48
CCALL 0,Zmakty
PPUSH A
CCALL 1,Zadecl
SUBI P,FS11+%A+1
GO @<%A+1>(P)
FS11==1-1
%A==0
%A,,[ASCIZ/ar24/]
Zar24: ADDI P,FS12
; LINE 51
PPUSH [1]
MOVE A,Zpv
PPUSH 1(A)
CCALL 2,Zinz
SUBI P,FS12+%A+1
GO @<%A+1>(P)
FS12==1-1
%A==0
%A,,[ASCIZ/ar25/]
Zar25: ADDI P,FS13
; LINE 54
PPUSH [1]
MOVE A,Zpv
MOVN C,2(A)
PPUSH C
CCALL 2,Zinz
SUBI P,FS13+%A+1
GO @<%A+1>(P)
FS13==1-1
%A==0
%A,,[ASCIZ/ar26/]
Zar26: ADDI P,FS14
; LINE 57
PPUSH [2]
MOVE A,Zpv
PPUSH 1(A)
CCALL 2,Zinz
SUBI P,FS14+%A+1
GO @<%A+1>(P)
FS14==1-1
%A==0
%A,,[ASCIZ/ar27/]
Zar27: ADDI P,FS15
; LINE 60
PPUSH [3]
MOVE A,Zpv
PPUSH 2(A)
CCALL 2,Zinz
SUBI P,FS15+%A+1
GO @<%A+1>(P)
FS15==1-1
%A==0
%A,,[ASCIZ/ar28/]
Zar28: ADDI P,FS16
; LINE 63
PPUSH [5]
MOVE A,Zpv
PPUSH 1(A)
CCALL 2,Zinz
SUBI P,FS16+%A+1
GO @<%A+1>(P)
FS16==1-1
%A==0
%A,,[ASCIZ/ar29/]
Zar29: ADDI P,FS17
; LINE 66
PPUSH [5]
MOVE A,Zpv
PPUSH 2(A)
CCALL 2,Zinz
SUBI P,FS17+%A+1
GO @<%A+1>(P)
FS17==1-1
%A==0
%A,,[ASCIZ/ar30/]
Zar30: ADDI P,FS18
; LINE 69
PPUSH [4]
MOVE A,Zpv
PPUSH 1(A)
CCALL 2,Zinz
SUBI P,FS18+%A+1
GO @<%A+1>(P)
FS18==1-1
%A==0
%A,,[ASCIZ/ar31/]
Zar31: ADDI P,FS19
; LINE 72
PPUSH [1]
MOVE A,Zpv
PPUSH 1(A)
CCALL 2,Zinz
SUBI P,FS19+%A+1
GO @<%A+1>(P)
FS19==1-1
%A==0
%A,,[ASCIZ/ar37/]
Zar37: ADDI P,FS20
; LINE 75
PPUSH [-1]
MOVE A,Zpv
PPUSH 1(A)
CCALL 2,Zattri
SUBI P,FS20+%A+1
GO @<%A+1>(P)
FS20==1-1
%A==0
%A,,[ASCIZ/ar38/]
Zar38: ADDI P,FS21
; LINE 78
MOVE A,Zpv
PPUSH 1(A)
MOVE A,Zpv
PPUSH 2(A)
CCALL 2,Zattri
SUBI P,FS21+%A+1
GO @<%A+1>(P)
FS21==1-1
%A==0
%A,,[ASCIZ/ar39/]
Zar39: ADDI P,FS22
; LINE 81
MOVE A,Zpv
PPUSH 2(A)
MOVE A,Zpv
PPUSH 1(A)
CCALL 2,Zattri
SUBI P,FS22+%A+1
GO @<%A+1>(P)
FS22==1-1
%A==0
%A,,[ASCIZ/ar42/]
Zar42: ADDI P,FS23
; LINE 84
MOVE A,ZTINT
MOVEM A,Zval
SUBI P,FS23+%A+1
GO @<%A+1>(P)
FS23==1-1
%A==0
%A,,[ASCIZ/ar43/]
Zar43: ADDI P,FS24
; LINE 87
MOVE A,ZTCHAR
MOVEM A,Zval
SUBI P,FS24+%A+1
GO @<%A+1>(P)
FS24==1-1
%A==0
%A,,[ASCIZ/ar44/]
Zar44: ADDI P,FS25
; LINE 90
MOVE A,ZTFLOA
MOVEM A,Zval
SUBI P,FS25+%A+1
GO @<%A+1>(P)
FS25==1-1
%A==0
%A,,[ASCIZ/ar45/]
Zar45: ADDI P,FS26
; LINE 93
MOVE A,ZTDOUB
MOVEM A,Zval
SUBI P,FS26+%A+1
GO @<%A+1>(P)
FS26==1-1
%A==0
%A,,[ASCIZ/ar46/]
Zar46: ADDI P,FS27
; LINE 96
MOVE A,ZTINT
MOVEM A,Zval
SUBI P,FS27+%A+1
GO @<%A+1>(P)
FS27==1-1
%A==0
%A,,[ASCIZ/ar47/]
Zar47: ADDI P,FS28
; LINE 99
MOVE A,ZTINT
MOVEM A,Zval
SUBI P,FS28+%A+1
GO @<%A+1>(P)
FS28==1-1
%A==0
%A,,[ASCIZ/ar48/]
Zar48: ADDI P,FS29
; LINE 102
MOVE A,ZTINT
MOVEM A,Zval
SUBI P,FS29+%A+1
GO @<%A+1>(P)
FS29==1-1
%A==0
%A,,[ASCIZ/ar49/]
Zar49: ADDI P,FS30
; LINE 105
MOVE A,ZTINT
MOVEM A,Zval
SUBI P,FS30+%A+1
GO @<%A+1>(P)
FS30==1-1
%A==0
%A,,[ASCIZ/ar50/]
Zar50: ADDI P,FS31
; LINE 108
MOVE A,ZTDOUB
MOVEM A,Zval
SUBI P,FS31+%A+1
GO @<%A+1>(P)
FS31==1-1
%A==0
%A,,[ASCIZ/ar51/]
Zar51: ADDI P,FS32
; LINE 111
MOVE A,ZTINT
MOVEM A,Zval
SUBI P,FS32+%A+1
GO @<%A+1>(P)
FS32==1-1
%A==0
%A,,[ASCIZ/ar52/]
Zar52: ADDI P,FS33
; LINE 114
MOVE A,ZTINT
MOVEM A,Zval
SUBI P,FS33+%A+1
GO @<%A+1>(P)
FS33==1-1
%A==0
%A,,[ASCIZ/ar53/]
Zar53: ADDI P,FS34
; LINE 117
PPUSH [0]
MOVE A,Zpv
PPUSH 3(A)
CCALL 2,Zastru
MOVEM A,Zval
SUBI P,FS34+%A+1
GO @<%A+1>(P)
FS34==1-1
%A==0
%A,,[ASCIZ/ar54/]
Zar54: ADDI P,FS35
; LINE 120
MOVE A,Zpv
PPUSH 2(A)
MOVE A,Zpv
PPUSH 4(A)
CCALL 2,Zastru
MOVEM A,Zval
SUBI P,FS35+%A+1
GO @<%A+1>(P)
FS35==1-1
%A==0
%A,,[ASCIZ/ar55/]
Zar55: ADDI P,FS36
; LINE 123
MOVE A,Zpv
PPUSH 2(A)
CCALL 1,Zaostr
MOVEM A,Zval
SUBI P,FS36+%A+1
GO @<%A+1>(P)
FS36==1-1
%A==0
%A,,[ASCIZ/ar56/]
Zar56: ADDI P,FS37
; LINE 126
MOVEI A,1
MOVEM A,Zval
SUBI P,FS37+%A+1
GO @<%A+1>(P)
FS37==1-1
%A==0
%A,,[ASCIZ/ar57/]
Zar57: ADDI P,FS38
; LINE 129
MOVEI A,3
MOVEM A,Zval
SUBI P,FS38+%A+1
GO @<%A+1>(P)
FS38==1-1
%A==0
%A,,[ASCIZ/ar58/]
Zar58: ADDI P,FS39
; LINE 132
MOVEI A,50
MOVEM A,Zval
SUBI P,FS39+%A+1
GO @<%A+1>(P)
FS39==1-1
%A==0
%A,,[ASCIZ/ar59/]
Zar59: ADDI P,FS40
; LINE 135
MOVEI A,1
MOVEM A,Zval
SUBI P,FS40+%A+1
GO @<%A+1>(P)
FS40==1-1
%A==0
%A,,[ASCIZ/ar60/]
Zar60: ADDI P,FS41
; LINE 138
MOVEI A,53
MOVEM A,Zval
SUBI P,FS41+%A+1
GO @<%A+1>(P)
FS41==1-1
%A==0
%A,,[ASCIZ/ar63/]
Zar63: ADDI P,FS42
; LINE 141
CCALL 0,Zmakty
PPUSH A
CCALL 1,Zadecl
MOVEM A,Zval
SUBI P,FS42+%A+1
GO @<%A+1>(P)
FS42==1-1
%A==0
%A,,[ASCIZ/ar64/]
Zar64: ADDI P,FS43
; LINE 144
MOVE A,Zpv
PPUSH 1(A)
MOVE A,Zpv
PPUSH 3(A)
CCALL 2,Zafiel
PPUSH A
CCALL 1,Zadecl
MOVEM A,Zval
SUBI P,FS43+%A+1
GO @<%A+1>(P)
FS43==1-1
%A==0
%A,,[ASCIZ/ar65/]
Zar65: ADDI P,FS44
; LINE 147
PPUSH [-1]
MOVE A,Zpv
PPUSH 2(A)
CCALL 2,Zafiel
PPUSH A
CCALL 1,Zadecl
MOVEM A,Zval
SUBI P,FS44+%A+1
GO @<%A+1>(P)
FS44==1-1
%A==0
%A,,[ASCIZ/ar66/]
Zar66: ADDI P,FS45
; LINE 150
CCALL 0,Zmakty
PPUSH A
CCALL 1,Zadecl
PPUSH A
CCALL 1,Zaiinz
SUBI P,FS45+%A+1
GO @<%A+1>(P)
FS45==1-1
%A==0
%A,,[ASCIZ/ar67/]
Zar67: ADDI P,FS46
; LINE 153
MOVE A,Zpv
PPUSH 2(A)
PPUSH [1]
CCALL 2,Zadclr
MOVEM A,Zval
SUBI P,FS46+%A+1
GO @<%A+1>(P)
FS46==1-1
%A==0
%A,,[ASCIZ/ar68/]
Zar68: ADDI P,FS47
; LINE 156
MOVE A,Zpv
PPUSH 1(A)
PPUSH [2]
CCALL 2,Zadclr
MOVEM A,Zval
SUBI P,FS47+%A+1
GO @<%A+1>(P)
FS47==1-1
%A==0
%A,,[ASCIZ/ar69/]
Zar69: ADDI P,FS48
; LINE 159
MOVE A,Zpv
PPUSH 1(A)
PPUSH [3]
PPUSH [1]
CCALL 3,Zadclr
MOVEM A,Zval
SUBI P,FS48+%A+1
GO @<%A+1>(P)
FS48==1-1
%A==0
%A,,[ASCIZ/ar70/]
Zar70: ADDI P,FS49
; LINE 162
MOVE A,Zpv
PPUSH 1(A)
PPUSH [3]
MOVE A,Zpv
PPUSH 3(A)
CCALL 3,Zadclr
MOVEM A,Zval
SUBI P,FS49+%A+1
GO @<%A+1>(P)
FS49==1-1
%A==0
%A,,[ASCIZ/ar71/]
Zar71: ADDI P,FS50
; LINE 165
PPUSH [0]
PPUSH [0]
CCALL 2,Zadclr
MOVEM A,Zval
SUBI P,FS50+%A+1
GO @<%A+1>(P)
FS50==1-1
%A==0
%A,,[ASCIZ/ar72/]
Zar72: ADDI P,FS51
; LINE 168
MOVE A,Zpv
MOVE A,2(A)
MOVEM A,Zval
SUBI P,FS51+%A+1
GO @<%A+1>(P)
FS51==1-1
%A==0
%A,,[ASCIZ/ar73/]
Zar73: ADDI P,FS52
; LINE 171
MOVE A,Zpv
PPUSH 2(A)
PPUSH [1]
CCALL 2,Zadclr
MOVEM A,Zval
SUBI P,FS52+%A+1
GO @<%A+1>(P)
FS52==1-1
%A==0
%A,,[ASCIZ/ar74/]
Zar74: ADDI P,FS53
; LINE 174
MOVE A,Zpv
PPUSH 1(A)
PPUSH [2]
CCALL 2,Zadclr
MOVEM A,Zval
SUBI P,FS53+%A+1
GO @<%A+1>(P)
FS53==1-1
%A==0
%A,,[ASCIZ/ar75/]
Zar75: ADDI P,FS54
; LINE 177
MOVE A,Zpv
PPUSH 1(A)
PPUSH [3]
PPUSH [1]
CCALL 3,Zadclr
MOVEM A,Zval
SUBI P,FS54+%A+1
GO @<%A+1>(P)
FS54==1-1
%A==0
%A,,[ASCIZ/ar76/]
Zar76: ADDI P,FS55
; LINE 180
MOVE A,Zpv
PPUSH 1(A)
PPUSH [3]
MOVE A,Zpv
PPUSH 3(A)
CCALL 3,Zadclr
MOVEM A,Zval
SUBI P,FS55+%A+1
GO @<%A+1>(P)
FS55==1-1
%A==0
%A,,[ASCIZ/ar77/]
Zar77: ADDI P,FS56
; LINE 183
PPUSH [0]
PPUSH [0]
CCALL 2,Zadclr
PPUSH A
PPUSH [2]
CCALL 2,Zadclr
MOVEM A,Zval
; LINE 184
MOVEI A,0
MOVEM A,Zparml
SUBI P,FS56+%A+1
GO @<%A+1>(P)
FS56==1-1
%A==0
%A,,[ASCIZ/ar78/]
Zar78: ADDI P,FS57
; LINE 187
PPUSH [0]
PPUSH [0]
CCALL 2,Zadclr
PPUSH A
PPUSH [2]
CCALL 2,Zadclr
MOVEM A,Zval
; LINE 188
MOVE A,Zpv
MOVE A,3(A)
MOVEM A,Zparml
SUBI P,FS57+%A+1
GO @<%A+1>(P)
FS57==1-1
%A==0
%A,,[ASCIZ/ar79/]
Zar79: ADDI P,FS58
; LINE 191
MOVE A,Zpv
MOVE A,2(A)
MOVEM A,Zval
SUBI P,FS58+%A+1
GO @<%A+1>(P)
FS58==1-1
%A==0
%A,,[ASCIZ/ar80/]
Zar80: ADDI P,FS59
; LINE 194
MOVE A,Zpv
PPUSH 1(A)
CCALL 1,Zpush
MOVEM A,Zval
SUBI P,FS59+%A+1
GO @<%A+1>(P)
FS59==1-1
%A==0
%A,,[ASCIZ/ar81/]
Zar81: ADDI P,FS60
; LINE 197
MOVE A,Zpv
PPUSH 3(A)
CCALL 1,Zpush
SUBI P,FS60+%A+1
GO @<%A+1>(P)
FS60==1-1
%A==0
%A,,[ASCIZ/ar88/]
Zar88: ADDI P,FS61
; LINE 200
MOVEI A,0
MOVEM A,ZinJty
; LINE 201
MOVE A,Zpv
MOVE A,2(A)
MOVEM A,Zval
SUBI P,FS61+%A+1
GO @<%A+1>(P)
FS61==1-1
%A==0
%A,,[ASCIZ/ar89/]
Zar89: ADDI P,FS62
; LINE 204
MOVEI A,1
MOVEM A,ZinJty
; LINE 205
PPUSH [-1]
MOVE A,Zpv
PPUSH 1(A)
CCALL 2,Zattri
SUBI P,FS62+%A+1
GO @<%A+1>(P)
FS62==1-1
%A==0
%A,,[ASCIZ/ar91/]
Zar91: ADDI P,FS63
; LINE 208
MOVE A,Zpv
PPUSH 1(A)
MOVE A,Zpv
PPUSH 2(A)
CCALL 2,Zastmt
MOVEM A,Zval
SUBI P,FS63+%A+1
GO @<%A+1>(P)
FS63==1-1
%A==0
%A,,[ASCIZ/ar92/]
Zar92: ADDI P,FS64
; LINE 211
MOVE A,Zpv
PPUSH 1(A)
CCALL 1,Zaexpr
MOVEM A,Zval
SUBI P,FS64+%A+1
GO @<%A+1>(P)
FS64==1-1
%A==0
%A,,[ASCIZ/ar94/]
Zar94: ADDI P,FS65
; LINE 214
MOVE A,Zpv
PPUSH 3(A)
MOVE A,Zpv
PPUSH 5(A)
PPUSH [0]
CCALL 3,Zaif
MOVEM A,Zval
SUBI P,FS65+%A+1
GO @<%A+1>(P)
FS65==1-1
%A==0
%A,,[ASCIZ/ar95/]
Zar95: ADDI P,FS66
; LINE 217
MOVE A,Zpv
PPUSH 3(A)
MOVE A,Zpv
PPUSH 5(A)
MOVE A,Zpv
PPUSH 7(A)
CCALL 3,Zaif
MOVEM A,Zval
SUBI P,FS66+%A+1
GO @<%A+1>(P)
FS66==1-1
%A==0
%A,,[ASCIZ/ar96/]
Zar96: ADDI P,FS67
; LINE 220
MOVE A,Zpv
PPUSH 3(A)
MOVE A,Zpv
PPUSH 5(A)
CCALL 2,Zawhil
MOVEM A,Zval
SUBI P,FS67+%A+1
GO @<%A+1>(P)
FS67==1-1
%A==0
%A,,[ASCIZ/ar97/]
Zar97: ADDI P,FS68
; LINE 223
MOVE A,Zpv
PPUSH 3(A)
MOVE A,Zpv
PPUSH 5(A)
MOVE A,Zpv
PPUSH 7(A)
MOVE A,Zpv
PPUSH 9(A)
CCALL 4,Zafor
MOVEM A,Zval
SUBI P,FS68+%A+1
GO @<%A+1>(P)
FS68==1-1
%A==0
%A,,[ASCIZ/ar98/]
Zar98: ADDI P,FS69
; LINE 226
MOVE A,Zpv
PPUSH 2(A)
MOVE A,Zpv
PPUSH 5(A)
CCALL 2,Zado
MOVEM A,Zval
SUBI P,FS69+%A+1
GO @<%A+1>(P)
FS69==1-1
%A==0
%A,,[ASCIZ/ar99/]
Zar99: ADDI P,FS70
; LINE 229
MOVE A,Zpv
PPUSH 3(A)
MOVE A,Zpv
PPUSH 5(A)
CCALL 2,Zaswit
MOVEM A,Zval
SUBI P,FS70+%A+1
GO @<%A+1>(P)
FS70==1-1
%A==0
%A,,[ASCIZ/ar100/]
Zar100: ADDI P,FS71
; LINE 232
MOVE A,Zpv
PPUSH 2(A)
MOVE A,Zpv
PPUSH 4(A)
CCALL 2,Zacase
MOVEM A,Zval
SUBI P,FS71+%A+1
GO @<%A+1>(P)
FS71==1-1
%A==0
%A,,[ASCIZ/ar101/]
Zar101: ADDI P,FS72
; LINE 235
MOVE A,Zpv
PPUSH 3(A)
CCALL 1,Zadefa
MOVEM A,Zval
SUBI P,FS72+%A+1
GO @<%A+1>(P)
FS72==1-1
%A==0
%A,,[ASCIZ/ar102/]
Zar102: ADDI P,FS73
; LINE 238
CCALL 0,Zabrea
MOVEM A,Zval
SUBI P,FS73+%A+1
GO @<%A+1>(P)
FS73==1-1
%A==0
%A,,[ASCIZ/ar103/]
Zar103: ADDI P,FS74
; LINE 241
CCALL 0,Zacont
MOVEM A,Zval
SUBI P,FS74+%A+1
GO @<%A+1>(P)
FS74==1-1
%A==0
%A,,[ASCIZ/ar104/]
Zar104: ADDI P,FS75
; LINE 244
PPUSH [0]
CCALL 1,Zaretu
MOVEM A,Zval
SUBI P,FS75+%A+1
GO @<%A+1>(P)
FS75==1-1
%A==0
%A,,[ASCIZ/ar105/]
Zar105: ADDI P,FS76
; LINE 247
MOVE A,Zpv
PPUSH 2(A)
CCALL 1,Zaretu
MOVEM A,Zval
SUBI P,FS76+%A+1
GO @<%A+1>(P)
FS76==1-1
%A==0
%A,,[ASCIZ/ar106/]
Zar106: ADDI P,FS77
; LINE 250
MOVE A,Zpv
PPUSH 2(A)
CCALL 1,Zagoto
MOVEM A,Zval
SUBI P,FS77+%A+1
GO @<%A+1>(P)
FS77==1-1
%A==0
%A,,[ASCIZ/ar107/]
Zar107: ADDI P,FS78
; LINE 253
MOVE A,Zpv
PPUSH 1(A)
MOVE A,Zpv
PPUSH 3(A)
CCALL 2,Zalabe
MOVEM A,Zval
SUBI P,FS78+%A+1
GO @<%A+1>(P)
FS78==1-1
%A==0
%A,,[ASCIZ/ar108/]
Zar108: ADDI P,FS79
; LINE 256
MOVE A,Zpv
PPUSH 2(A)
MOVE A,Zpv
PPUSH 4(A)
CCALL 2,Zaentr
MOVEM A,Zval
SUBI P,FS79+%A+1
GO @<%A+1>(P)
FS79==1-1
%A==0
%A,,[ASCIZ/ar109/]
Zar109: ADDI P,FS80
; LINE 259
CCALL 0,Zanull
MOVEM A,Zval
SUBI P,FS80+%A+1
GO @<%A+1>(P)
FS80==1-1
%A==0
%A,,[ASCIZ/ar111/]
Zar111: ADDI P,FS81
; LINE 262
MOVEI A,0
MOVEM A,Zval
SUBI P,FS81+%A+1
GO @<%A+1>(P)
FS81==1-1
%A==0
%A,,[ASCIZ/ar113/]
Zar113: ADDI P,FS82
; LINE 265
MOVE A,Zpv
PPUSH 1(A)
MOVE A,Zpv
PPUSH 3(A)
CCALL 2,Zaelis
MOVEM A,Zval
SUBI P,FS82+%A+1
GO @<%A+1>(P)
FS82==1-1
%A==0
%A,,[ASCIZ/ar114/]
Zar114: ADDI P,FS83
; LINE 268
PPUSH [22]
MOVE A,Zpv
PPUSH 1(A)
MOVE A,Zpv
PPUSH 3(A)
CCALL 3,Znode
MOVEM A,Zval
SUBI P,FS83+%A+1
GO @<%A+1>(P)
FS83==1-1
%A==0
%A,,[ASCIZ/ar115/]
Zar115: ADDI P,FS84
; LINE 271
PPUSH [21]
MOVE A,Zpv
PPUSH 1(A)
MOVE A,Zpv
PPUSH 3(A)
CCALL 3,Znode
MOVEM A,Zval
SUBI P,FS84+%A+1
GO @<%A+1>(P)
FS84==1-1
%A==0
%A,,[ASCIZ/ar116/]
Zar116: ADDI P,FS85
; LINE 274
PPUSH [20]
MOVE A,Zpv
PPUSH 1(A)
MOVE A,Zpv
PPUSH 3(A)
CCALL 3,Znode
MOVEM A,Zval
SUBI P,FS85+%A+1
GO @<%A+1>(P)
FS85==1-1
%A==0
%A,,[ASCIZ/ar117/]
Zar117: ADDI P,FS86
; LINE 277
PPUSH [24]
MOVE A,Zpv
PPUSH 1(A)
MOVE A,Zpv
PPUSH 3(A)
CCALL 3,Znode
MOVEM A,Zval
SUBI P,FS86+%A+1
GO @<%A+1>(P)
FS86==1-1
%A==0
%A,,[ASCIZ/ar118/]
Zar118: ADDI P,FS87
; LINE 280
PPUSH [23]
MOVE A,Zpv
PPUSH 1(A)
MOVE A,Zpv
PPUSH 3(A)
CCALL 3,Znode
MOVEM A,Zval
SUBI P,FS87+%A+1
GO @<%A+1>(P)
FS87==1-1
%A==0
%A,,[ASCIZ/ar119/]
Zar119: ADDI P,FS88
; LINE 283
PPUSH [32]
MOVE A,Zpv
PPUSH 1(A)
MOVE A,Zpv
PPUSH 3(A)
CCALL 3,Znode
MOVEM A,Zval
SUBI P,FS88+%A+1
GO @<%A+1>(P)
FS88==1-1
%A==0
%A,,[ASCIZ/ar120/]
Zar120: ADDI P,FS89
; LINE 286
PPUSH [33]
MOVE A,Zpv
PPUSH 1(A)
MOVE A,Zpv
PPUSH 3(A)
CCALL 3,Znode
MOVEM A,Zval
SUBI P,FS89+%A+1
GO @<%A+1>(P)
FS89==1-1
%A==0
%A,,[ASCIZ/ar121/]
Zar121: ADDI P,FS90
; LINE 289
PPUSH [28]
MOVE A,Zpv
PPUSH 1(A)
MOVE A,Zpv
PPUSH 3(A)
CCALL 3,Znode
MOVEM A,Zval
SUBI P,FS90+%A+1
GO @<%A+1>(P)
FS90==1-1
%A==0
%A,,[ASCIZ/ar122/]
Zar122: ADDI P,FS91
; LINE 292
PPUSH [29]
MOVE A,Zpv
PPUSH 1(A)
MOVE A,Zpv
PPUSH 3(A)
CCALL 3,Znode
MOVEM A,Zval
SUBI P,FS91+%A+1
GO @<%A+1>(P)
FS91==1-1
%A==0
%A,,[ASCIZ/ar123/]
Zar123: ADDI P,FS92
; LINE 295
PPUSH [30]
MOVE A,Zpv
PPUSH 1(A)
MOVE A,Zpv
PPUSH 3(A)
CCALL 3,Znode
MOVEM A,Zval
SUBI P,FS92+%A+1
GO @<%A+1>(P)
FS92==1-1
%A==0
%A,,[ASCIZ/ar124/]
Zar124: ADDI P,FS93
; LINE 298
PPUSH [31]
MOVE A,Zpv
PPUSH 1(A)
MOVE A,Zpv
PPUSH 3(A)
CCALL 3,Znode
MOVEM A,Zval
SUBI P,FS93+%A+1
GO @<%A+1>(P)
FS93==1-1
%A==0
%A,,[ASCIZ/ar125/]
Zar125: ADDI P,FS94
; LINE 301
PPUSH [26]
MOVE A,Zpv
PPUSH 1(A)
MOVE A,Zpv
PPUSH 3(A)
CCALL 3,Znode
MOVEM A,Zval
SUBI P,FS94+%A+1
GO @<%A+1>(P)
FS94==1-1
%A==0
%A,,[ASCIZ/ar126/]
Zar126: ADDI P,FS95
; LINE 304
PPUSH [27]
MOVE A,Zpv
PPUSH 1(A)
MOVE A,Zpv
PPUSH 3(A)
CCALL 3,Znode
MOVEM A,Zval
SUBI P,FS95+%A+1
GO @<%A+1>(P)
FS95==1-1
%A==0
%A,,[ASCIZ/ar127/]
Zar127: ADDI P,FS96
; LINE 307
PPUSH [17]
MOVE A,Zpv
PPUSH 1(A)
MOVE A,Zpv
PPUSH 3(A)
CCALL 3,Znode
MOVEM A,Zval
SUBI P,FS96+%A+1
GO @<%A+1>(P)
FS96==1-1
%A==0
%A,,[ASCIZ/ar128/]
Zar128: ADDI P,FS97
; LINE 310
PPUSH [19]
MOVE A,Zpv
PPUSH 1(A)
MOVE A,Zpv
PPUSH 3(A)
CCALL 3,Znode
MOVEM A,Zval
SUBI P,FS97+%A+1
GO @<%A+1>(P)
FS97==1-1
%A==0
%A,,[ASCIZ/ar129/]
Zar129: ADDI P,FS98
; LINE 313
PPUSH [18]
MOVE A,Zpv
PPUSH 1(A)
MOVE A,Zpv
PPUSH 3(A)
CCALL 3,Znode
MOVEM A,Zval
SUBI P,FS98+%A+1
GO @<%A+1>(P)
FS98==1-1
%A==0
%A,,[ASCIZ/ar130/]
Zar130: ADDI P,FS99
; LINE 316
PPUSH [44]
MOVE A,Zpv
PPUSH 1(A)
MOVE A,Zpv
PPUSH 3(A)
CCALL 3,Znode
MOVEM A,Zval
SUBI P,FS99+%A+1
GO @<%A+1>(P)
FS99==1-1
%A==0
%A,,[ASCIZ/ar131/]
Zar131: ADDI P,FS100
; LINE 319
PPUSH [45]
MOVE A,Zpv
PPUSH 1(A)
MOVE A,Zpv
PPUSH 3(A)
CCALL 3,Znode
MOVEM A,Zval
SUBI P,FS100+%A+1
GO @<%A+1>(P)
FS100==1-1
%A==0
%A,,[ASCIZ/ar132/]
Zar132: ADDI P,FS101
; LINE 322
PPUSH [7]
MOVE A,Zpv
PPUSH 1(A)
PPUSH [47]
MOVE A,Zpv
PPUSH 3(A)
MOVE A,Zpv
PPUSH 5(A)
CCALL 3,Znode
PPUSH A
CCALL 3,Znode
MOVEM A,Zval
SUBI P,FS101+%A+1
GO @<%A+1>(P)
FS101==1-1
%A==0
%A,,[ASCIZ/ar133/]
Zar133: ADDI P,FS102
; LINE 325
PPUSH [25]
MOVE A,Zpv
PPUSH 1(A)
MOVE A,Zpv
PPUSH 3(A)
CCALL 3,Znode
MOVEM A,Zval
SUBI P,FS102+%A+1
GO @<%A+1>(P)
FS102==1-1
%A==0
%A,,[ASCIZ/ar134/]
Zar134: ADDI P,FS103
; LINE 328
MOVE A,Zpv
MOVE A,2(A)
ADDI A,34
PPUSH A
MOVE A,Zpv
PPUSH 1(A)
MOVE A,Zpv
PPUSH 3(A)
CCALL 3,Znode
MOVEM A,Zval
SUBI P,FS103+%A+1
GO @<%A+1>(P)
FS103==1-1
%A==0
%A,,[ASCIZ/ar135/]
Zar135: ADDI P,FS104
; LINE 331
PPUSH [48]
MOVE A,Zpv
PPUSH 1(A)
MOVE A,Zpv
PPUSH 3(A)
CCALL 3,Znode
MOVEM A,Zval
SUBI P,FS104+%A+1
GO @<%A+1>(P)
FS104==1-1
%A==0
%A,,[ASCIZ/ar138/]
Zar138: ADDI P,FS105
; LINE 334
MOVE A,Zpv
PPUSH 1(A)
CCALL 1,Zalidn
PPUSH A
CCALL 1,Zaidn
MOVEM A,Zval
SUBI P,FS105+%A+1
GO @<%A+1>(P)
FS105==1-1
%A==0
%A,,[ASCIZ/ar140/]
Zar140: ADDI P,FS106
; LINE 337
MOVE A,Zpv
PPUSH 1(A)
CCALL 1,Zafidn
PPUSH A
CCALL 1,Zaidn
MOVEM A,Zval
SUBI P,FS106+%A+1
GO @<%A+1>(P)
FS106==1-1
%A==0
%A,,[ASCIZ/ar141/]
Zar141: ADDI P,FS107
; LINE 340
MOVE A,Zpv
PPUSH 1(A)
CCALL 1,Zatidn
MOVEM A,Zval
SUBI P,FS107+%A+1
GO @<%A+1>(P)
FS107==1-1
%A==0
%A,,[ASCIZ/ar142/]
Zar142: ADDI P,FS108
; LINE 343
PPUSH [9]
MOVE A,Zpv
PPUSH 1(A)
CCALL 2,Znode
MOVEM A,Zval
SUBI P,FS108+%A+1
GO @<%A+1>(P)
FS108==1-1
%A==0
%A,,[ASCIZ/ar143/]
Zar143: ADDI P,FS109
; LINE 346
PPUSH [11]
MOVE A,Zpv
PPUSH 1(A)
CCALL 2,Znode
MOVEM A,Zval
SUBI P,FS109+%A+1
GO @<%A+1>(P)
FS109==1-1
%A==0
%A,,[ASCIZ/ar144/]
Zar144: ADDI P,FS110
; LINE 349
PPUSH [12]
MOVE A,Zpv
PPUSH 2(A)
CCALL 2,Znode
MOVEM A,Zval
SUBI P,FS110+%A+1
GO @<%A+1>(P)
FS110==1-1
%A==0
%A,,[ASCIZ/ar145/]
Zar145: ADDI P,FS111
; LINE 352
PPUSH [13]
MOVE A,Zpv
PPUSH 2(A)
CCALL 2,Znode
MOVEM A,Zval
SUBI P,FS111+%A+1
GO @<%A+1>(P)
FS111==1-1
%A==0
%A,,[ASCIZ/ar146/]
Zar146: ADDI P,FS112
; LINE 355
PPUSH [14]
MOVE A,Zpv
PPUSH 2(A)
CCALL 2,Znode
MOVEM A,Zval
SUBI P,FS112+%A+1
GO @<%A+1>(P)
FS112==1-1
%A==0
%A,,[ASCIZ/ar147/]
Zar147: ADDI P,FS113
; LINE 358
PPUSH [16]
MOVE A,Zpv
PPUSH 2(A)
CCALL 2,Znode
MOVEM A,Zval
SUBI P,FS113+%A+1
GO @<%A+1>(P)
FS113==1-1
%A==0
%A,,[ASCIZ/ar148/]
Zar148: ADDI P,FS114
; LINE 361
PPUSH [15]
MOVE A,Zpv
PPUSH 2(A)
CCALL 2,Znode
MOVEM A,Zval
SUBI P,FS114+%A+1
GO @<%A+1>(P)
FS114==1-1
%A==0
%A,,[ASCIZ/ar149/]
Zar149: ADDI P,FS115
; LINE 364
PPUSH [8]
MOVE A,Zpv
PPUSH 2(A)
CCALL 2,Znode
MOVEM A,Zval
SUBI P,FS115+%A+1
GO @<%A+1>(P)
FS115==1-1
%A==0
%A,,[ASCIZ/ar150/]
Zar150: ADDI P,FS116
; LINE 367
PPUSH [10]
MOVE A,Zpv
PPUSH 2(A)
CCALL 2,Znode
MOVEM A,Zval
SUBI P,FS116+%A+1
GO @<%A+1>(P)
FS116==1-1
%A==0
%A,,[ASCIZ/ar151/]
Zar151: ADDI P,FS117
; LINE 370
PPUSH [49]
MOVE A,Zpv
PPUSH 2(A)
CCALL 2,Znode
MOVEM A,Zval
SUBI P,FS117+%A+1
GO @<%A+1>(P)
FS117==1-1
%A==0
%A,,[ASCIZ/ar152/]
Zar152: ADDI P,FS118
; LINE 373
PPUSH [3]
PPUSH [1]
CCALL 2,Znode
MOVEM A,Zval
SUBI P,FS118+%A+1
GO @<%A+1>(P)
FS118==1-1
%A==0
%A,,[ASCIZ/ar153/]
Zar153: ADDI P,FS119
; LINE 376
MOVE A,Zpv
MOVE A,4(A)
MOVEM A,Zval
SUBI P,FS119+%A+1
GO @<%A+1>(P)
FS119==1-1
%A==0
%A,,[ASCIZ/ar154/]
Zar154: ADDI P,FS120
; LINE 379
MOVE A,Zpv
PPUSH 1(A)
MOVE A,Zpv
PPUSH 3(A)
CCALL 2,Zasubs
MOVEM A,Zval
SUBI P,FS120+%A+1
GO @<%A+1>(P)
FS120==1-1
%A==0
%A,,[ASCIZ/ar155/]
Zar155: ADDI P,FS121
; LINE 382
MOVE A,Zpv
PPUSH 1(A)
MOVE A,Zpv
PPUSH 3(A)
CCALL 2,Zacall
MOVEM A,Zval
SUBI P,FS121+%A+1
GO @<%A+1>(P)
FS121==1-1
%A==0
%A,,[ASCIZ/ar156/]
Zar156: ADDI P,FS122
; LINE 385
MOVE A,Zpv
PPUSH 1(A)
PPUSH [0]
CCALL 2,Zacall
MOVEM A,Zval
SUBI P,FS122+%A+1
GO @<%A+1>(P)
FS122==1-1
%A==0
%A,,[ASCIZ/ar157/]
Zar157: ADDI P,FS123
; LINE 388
MOVE A,Zpv
PPUSH 1(A)
MOVE A,Zpv
PPUSH 3(A)
CCALL 2,Zadot
MOVEM A,Zval
SUBI P,FS123+%A+1
GO @<%A+1>(P)
FS123==1-1
%A==0
%A,,[ASCIZ/ar158/]
Zar158: ADDI P,FS124
; LINE 391
MOVE A,Zpv
PPUSH 1(A)
MOVE A,Zpv
PPUSH 3(A)
CCALL 2,Zaptr
MOVEM A,Zval
SUBI P,FS124+%A+1
GO @<%A+1>(P)
FS124==1-1
%A==0
%A,,[ASCIZ/ar159/]
Zar159: ADDI P,FS125
; LINE 394
MOVE A,Zpv
PPUSH 1(A)
CCALL 1,Zaeidn
PPUSH A
CCALL 1,Zaidn
MOVEM A,Zval
SUBI P,FS125+%A+1
GO @<%A+1>(P)
FS125==1-1
%A==0
%A,,[ASCIZ/ar160/]
Zar160: ADDI P,FS126
; LINE 397
PPUSH [3]
MOVE A,Zpv
PPUSH 1(A)
CCALL 2,Znode
MOVEM A,Zval
SUBI P,FS126+%A+1
GO @<%A+1>(P)
FS126==1-1
%A==0
%A,,[ASCIZ/ar161/]
Zar161: ADDI P,FS127
; LINE 400
PPUSH [4]
MOVE A,Zpv
PPUSH 1(A)
CCALL 2,Znode
MOVEM A,Zval
SUBI P,FS127+%A+1
GO @<%A+1>(P)
FS127==1-1
%A==0
%A,,[ASCIZ/ar162/]
Zar162: ADDI P,FS128
; LINE 403
PPUSH [5]
MOVE A,Zpv
PPUSH 1(A)
CCALL 2,Znode
MOVEM A,Zval
SUBI P,FS128+%A+1
GO @<%A+1>(P)
FS128==1-1
%A==0
%A,,[ASCIZ/ar163/]
Zar163: ADDI P,FS129
; LINE 406
MOVE A,Zpv
MOVE A,2(A)
MOVEM A,Zval
SUBI P,FS129+%A+1
GO @<%A+1>(P)
FS129==1-1
%A==0
%A,,[ASCIZ/ar172/]
Zar172: ADDI P,FS130
; LINE 409
CCALL 0,Zapshw
SUBI P,FS130+%A+1
GO @<%A+1>(P)
FS130==1-1
%A==0
%A,,[ASCIZ/ar173/]
Zar173: ADDI P,FS131
; LINE 412
CCALL 0,Zapshd
SUBI P,FS131+%A+1
GO @<%A+1>(P)
FS131==1-1
%A==0
%A,,[ASCIZ/ar174/]
Zar174: ADDI P,FS132
; LINE 415
CCALL 0,Zapshf
SUBI P,FS132+%A+1
GO @<%A+1>(P)
FS132==1-1
%A==0
%A,,[ASCIZ/ar175/]
Zar175: ADDI P,FS133
; LINE 418
CCALL 0,Zapshs
SUBI P,FS133+%A+1
GO @<%A+1>(P)
FS133==1-1
%A==0
%A,,[ASCIZ/ar176/]
Zar176: ADDI P,FS134
; LINE 421
MOVE A,Zstrle
AOS Zstrle
SUBI P,FS134+%A+1
GO @<%A+1>(P)
FS134==1-1
%A==0
%A,,[ASCIZ/ar177/]
Zar177: ADDI P,FS135
; LINE 424
MOVE A,Zpv
PPUSH 1(A)
CCALL 1,Zastri
MOVEM A,Zval
SUBI P,FS135+%A+1
GO @<%A+1>(P)
FS135==1-1
%A==0
%A,,[ASCIZ/ar178/]
Zar178: ADDI P,FS136
; LINE 427
CCALL 0,Zabegi
SUBI P,FS136+%A+1
GO @<%A+1>(P)
FS136==1-1
%A==0
%A,,[ASCIZ/ar179/]
Zar179: ADDI P,FS137
; LINE 430
CCALL 0,Zaend
SUBI P,FS137+%A+1
GO @<%A+1>(P)
FS137==1-1
%A==0
%A,,[ASCIZ/ar180/]
Zar180: ADDI P,FS138
; LINE 433
MOVE A,Zpv
MOVE A,1(A)
MOVE C,Zpv
IMUL A,3(C)
MOVEM A,Zval
SUBI P,FS138+%A+1
GO @<%A+1>(P)
FS138==1-1
%A==0
%A,,[ASCIZ/ar181/]
Zar181: ADDI P,FS139
; LINE 436
MOVE A,Zpv
MOVE A,1(A)
MOVE C,Zpv
IDIV A,3(C)
MOVEM A,Zval
SUBI P,FS139+%A+1
GO @<%A+1>(P)
FS139==1-1
%A==0
%A,,[ASCIZ/ar182/]
Zar182: ADDI P,FS140
; LINE 439
MOVE A,Zpv
MOVE A,1(A)
MOVE C,Zpv
IDIV A,3(C)
MOVEM B,Zval
SUBI P,FS140+%A+1
GO @<%A+1>(P)
FS140==1-1
%A==0
%A,,[ASCIZ/ar183/]
Zar183: ADDI P,FS141
; LINE 442
MOVE A,Zpv
MOVE A,1(A)
MOVE C,Zpv
ADD A,3(C)
MOVEM A,Zval
SUBI P,FS141+%A+1
GO @<%A+1>(P)
FS141==1-1
%A==0
%A,,[ASCIZ/ar184/]
Zar184: ADDI P,FS142
; LINE 445
MOVE A,Zpv
MOVE A,1(A)
MOVE C,Zpv
SUB A,3(C)
MOVEM A,Zval
SUBI P,FS142+%A+1
GO @<%A+1>(P)
FS142==1-1
%A==0
%A,,[ASCIZ/ar185/]
Zar185: ADDI P,FS143
; LINE 448
MOVE A,Zpv
MOVE A,1(A)
MOVE C,Zpv
MOVE C,3(C)
LSH A,(C)
MOVEM A,Zval
SUBI P,FS143+%A+1
GO @<%A+1>(P)
FS143==1-1
%A==0
%A,,[ASCIZ/ar186/]
Zar186: ADDI P,FS144
; LINE 451
MOVE A,Zpv
MOVE A,1(A)
MOVE C,Zpv
MOVE C,3(C)
MOVN C,C
LSH A,(C)
MOVEM A,Zval
SUBI P,FS144+%A+1
GO @<%A+1>(P)
FS144==1-1
%A==0
%A,,[ASCIZ/ar187/]
Zar187: ADDI P,FS145
; LINE 454
MOVE A,Zpv
MOVE A,1(A)
MOVE C,Zpv
CAML A,3(C)
GO L5000
MOVEI A,1
GO L5001
L5000:
MOVEI A,0
L5001:
MOVEM A,Zval
SUBI P,FS145+%A+1
GO @<%A+1>(P)
FS145==1-1
%A==0
%A,,[ASCIZ/ar188/]
Zar188: ADDI P,FS146
; LINE 457
MOVE A,Zpv
MOVE A,1(A)
MOVE C,Zpv
CAMG A,3(C)
GO L5002
MOVEI A,1
GO L5003
L5002:
MOVEI A,0
L5003:
MOVEM A,Zval
SUBI P,FS146+%A+1
GO @<%A+1>(P)
FS146==1-1
%A==0
%A,,[ASCIZ/ar189/]
Zar189: ADDI P,FS147
; LINE 460
MOVE A,Zpv
MOVE A,1(A)
MOVE C,Zpv
CAMLE A,3(C)
GO L5004
MOVEI A,1
GO L5005
L5004:
MOVEI A,0
L5005:
MOVEM A,Zval
SUBI P,FS147+%A+1
GO @<%A+1>(P)
FS147==1-1
%A==0
%A,,[ASCIZ/ar190/]
Zar190: ADDI P,FS148
; LINE 463
MOVE A,Zpv
MOVE A,1(A)
MOVE C,Zpv
CAMGE A,3(C)
GO L5006
MOVEI A,1
GO L5007
L5006:
MOVEI A,0
L5007:
MOVEM A,Zval
SUBI P,FS148+%A+1
GO @<%A+1>(P)
FS148==1-1
%A==0
%A,,[ASCIZ/ar191/]
Zar191: ADDI P,FS149
; LINE 466
MOVE A,Zpv
MOVE A,1(A)
MOVE C,Zpv
CAME A,3(C)
GO L5008
MOVEI A,1
GO L5009
L5008:
MOVEI A,0
L5009:
MOVEM A,Zval
SUBI P,FS149+%A+1
GO @<%A+1>(P)
FS149==1-1
%A==0
%A,,[ASCIZ/ar192/]
Zar192: ADDI P,FS150
; LINE 469
MOVE A,Zpv
MOVE A,1(A)
MOVE C,Zpv
CAMN A,3(C)
GO L5010
MOVEI A,1
GO L5011
L5010:
MOVEI A,0
L5011:
MOVEM A,Zval
SUBI P,FS150+%A+1
GO @<%A+1>(P)
FS150==1-1
%A==0
%A,,[ASCIZ/ar193/]
Zar193: ADDI P,FS151
; LINE 472
MOVE A,Zpv
MOVE A,1(A)
MOVE C,Zpv
AND A,3(C)
MOVEM A,Zval
SUBI P,FS151+%A+1
GO @<%A+1>(P)
FS151==1-1
%A==0
%A,,[ASCIZ/ar194/]
Zar194: ADDI P,FS152
; LINE 475
MOVE A,Zpv
MOVE A,1(A)
MOVE C,Zpv
XOR A,3(C)
MOVEM A,Zval
SUBI P,FS152+%A+1
GO @<%A+1>(P)
FS152==1-1
%A==0
%A,,[ASCIZ/ar195/]
Zar195: ADDI P,FS153
; LINE 478
MOVE A,Zpv
MOVE A,1(A)
MOVE C,Zpv
IOR A,3(C)
MOVEM A,Zval
SUBI P,FS153+%A+1
GO @<%A+1>(P)
FS153==1-1
%A==0
%A,,[ASCIZ/ar196/]
Zar196: ADDI P,FS154
; LINE 481
MOVE A,Zpv
MOVE A,1(A)
JUMPE A,L5012
MOVE A,Zpv
MOVE A,3(A)
JUMPE A,L5012
MOVEI A,1
GO L5013
L5012:
MOVEI A,0
L5013:
MOVEM A,Zval
SUBI P,FS154+%A+1
GO @<%A+1>(P)
FS154==1-1
%A==0
%A,,[ASCIZ/ar197/]
Zar197: ADDI P,FS155
; LINE 484
MOVE A,Zpv
MOVE A,1(A)
JUMPN A,L5015
MOVE A,Zpv
MOVE A,3(A)
JUMPE A,L5014
L5015:
MOVEI A,1
GO L5016
L5014:
MOVEI A,0
L5016:
MOVEM A,Zval
SUBI P,FS155+%A+1
GO @<%A+1>(P)
FS155==1-1
%A==0
%A,,[ASCIZ/ar198/]
Zar198: ADDI P,FS156
; LINE 487
MOVE A,Zpv
MOVE A,1(A)
JUMPE A,L5017
MOVE A,Zpv
MOVE A,3(A)
GO L5018
L5017:
MOVE A,Zpv
MOVE A,5(A)
L5018:
MOVEM A,Zval
SUBI P,FS156+%A+1
GO @<%A+1>(P)
FS156==1-1
%A==0
%A,,[ASCIZ/ar200/]
Zar200: ADDI P,FS157
; LINE 490
MOVE A,Zpv
MOVN C,2(A)
MOVEM C,Zval
SUBI P,FS157+%A+1
GO @<%A+1>(P)
FS157==1-1
%A==0
%A,,[ASCIZ/ar201/]
Zar201: ADDI P,FS158
; LINE 493
MOVE A,Zpv
MOVE A,2(A)
JUMPN A,L5019
MOVEI A,1
GO L5020
L5019:
MOVEI A,0
L5020:
MOVEM A,Zval
SUBI P,FS158+%A+1
GO @<%A+1>(P)
FS158==1-1
%A==0
%A,,[ASCIZ/ar202/]
Zar202: ADDI P,FS159
; LINE 496
MOVE A,Zpv
SETCM C,2(A)
MOVEM C,Zval
SUBI P,FS159+%A+1
GO @<%A+1>(P)
FS159==1-1
%A==0
%A,,[ASCIZ/ar204/]
Zar204: ADDI P,FS160
; LINE 499
MOVE A,Zpv
MOVE A,2(A)
MOVEM A,Zval
SUBI P,FS160+%A+1
GO @<%A+1>(P)
FS160==1-1
.PDATA
CONSTANTS
END