reduce-historical/psl-1983/20-tests/dmain1.mac

	radix 10
STACK:	block 5001
	intern STACK
HEAP:	block 50001
	intern HEAP
L0001:	STACK+0
	intern L0001
L0002:	STACK+5000
	intern L0002
L0004:	block 10
	intern L0004
ARG1:	0
	intern ARG1
ARG2:	0
	intern ARG2
ARG3:	0
	intern ARG3
ARG4:	0
	intern ARG4
ARG5:	0
	intern ARG5
ARG6:	0
	intern ARG6
ARG7:	0
	intern ARG7
ARG8:	0
	intern ARG8
ARG9:	0
	intern ARG9
ARG10:	0
	intern ARG10
ARG11:	0
	intern ARG11
ARG12:	0
	intern ARG12
ARG13:	0
	intern ARG13
ARG14:	0
	intern ARG14
ARG15:	0
	intern ARG15
SYMVAL:	intern SYMVAL
	<29_31>+0
	<29_31>+1
	<29_31>+2
	<29_31>+3
	<29_31>+4
	<29_31>+5
	<29_31>+6
	<29_31>+7
	<29_31>+8
	<29_31>+9
	<29_31>+10
	<29_31>+11
	<29_31>+12
	<29_31>+13
	<29_31>+14
	<29_31>+15
	<29_31>+16
	<29_31>+17
	<29_31>+18
	<29_31>+19
	<29_31>+20
	<29_31>+21
	<29_31>+22
	<29_31>+23
	<29_31>+24
	<29_31>+25
	<29_31>+26
	<29_31>+27
	<29_31>+28
	<29_31>+29
	<29_31>+30
	<29_31>+31
	<29_31>+32
	<29_31>+33
	<29_31>+34
	<29_31>+35
	<29_31>+36
	<29_31>+37
	<29_31>+38
	<29_31>+39
	<29_31>+40
	<29_31>+41
	<29_31>+42
	<29_31>+43
	<29_31>+44
	<29_31>+45
	<29_31>+46
	<29_31>+47
	<29_31>+48
	<29_31>+49
	<29_31>+50
	<29_31>+51
	<29_31>+52
	<29_31>+53
	<29_31>+54
	<29_31>+55
	<29_31>+56
	<29_31>+57
	<29_31>+58
	<29_31>+59
	<29_31>+60
	<29_31>+61
	<29_31>+62
	<29_31>+63
	<29_31>+64
	<29_31>+65
	<29_31>+66
	<29_31>+67
	<29_31>+68
	<29_31>+69
	<29_31>+70
	<29_31>+71
	<29_31>+72
	<29_31>+73
	<29_31>+74
	<29_31>+75
	<29_31>+76
	<29_31>+77
	<29_31>+78
	<29_31>+79
	<29_31>+80
	<29_31>+81
	<29_31>+82
	<29_31>+83
	<30_31>+84
	<29_31>+85
	<29_31>+86
	<29_31>+87
	<29_31>+88
	<29_31>+89
	<29_31>+90
	<29_31>+91
	<29_31>+92
	<29_31>+93
	<29_31>+94
	<29_31>+95
	<29_31>+96
	<29_31>+97
	<29_31>+98
	<29_31>+99
	<29_31>+100
	<29_31>+101
	<29_31>+102
	<29_31>+103
	<29_31>+104
	<29_31>+105
	<29_31>+106
	<29_31>+107
	<29_31>+108
	<29_31>+109
	<29_31>+110
	<29_31>+111
	<29_31>+112
	<29_31>+113
	<29_31>+114
	<29_31>+115
	<29_31>+116
	<29_31>+117
	<29_31>+118
	<29_31>+119
	<29_31>+120
	<29_31>+121
	<29_31>+122
	<29_31>+123
	<29_31>+124
	<29_31>+125
	<29_31>+126
	<29_31>+127
	<30_31>+128
	<29_31>+129
	<29_31>+130
	<29_31>+131
	<30_31>+128
	<30_31>+128
	<29_31>+134
	<29_31>+135
	<29_31>+136
	<29_31>+137
	<29_31>+138
	<29_31>+139
	<29_31>+140
	<29_31>+141
	<29_31>+142
	<29_31>+143
	<30_31>+128
	<30_31>+128
	<29_31>+146
	<29_31>+147
	<29_31>+148
	<29_31>+149
	<29_31>+150
	<29_31>+151
	<29_31>+152
	<29_31>+153
	<29_31>+154
	<29_31>+155
	<29_31>+156
	<29_31>+157
	<29_31>+158
	<29_31>+159
	<29_31>+160
	<29_31>+161
	block 339
SYMPRP:	intern SYMPRP
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	block 339
SYMNAM:	intern SYMNAM
	extern L0033
	<4_31>+L0033
	extern L0034
	<4_31>+L0034
	extern L0035
	<4_31>+L0035
	extern L0036
	<4_31>+L0036
	extern L0037
	<4_31>+L0037
	extern L0038
	<4_31>+L0038
	extern L0039
	<4_31>+L0039
	extern L0040
	<4_31>+L0040
	extern L0041
	<4_31>+L0041
	extern L0042
	<4_31>+L0042
	extern L0043
	<4_31>+L0043
	extern L0044
	<4_31>+L0044
	extern L0045
	<4_31>+L0045
	extern L0046
	<4_31>+L0046
	extern L0047
	<4_31>+L0047
	extern L0048
	<4_31>+L0048
	extern L0049
	<4_31>+L0049
	extern L0050
	<4_31>+L0050
	extern L0051
	<4_31>+L0051
	extern L0052
	<4_31>+L0052
	extern L0053
	<4_31>+L0053
	extern L0054
	<4_31>+L0054
	extern L0055
	<4_31>+L0055
	extern L0056
	<4_31>+L0056
	extern L0057
	<4_31>+L0057
	extern L0058
	<4_31>+L0058
	extern L0059
	<4_31>+L0059
	extern L0060
	<4_31>+L0060
	extern L0061
	<4_31>+L0061
	extern L0062
	<4_31>+L0062
	extern L0063
	<4_31>+L0063
	extern L0064
	<4_31>+L0064
	extern L0065
	<4_31>+L0065
	extern L0066
	<4_31>+L0066
	extern L0067
	<4_31>+L0067
	extern L0068
	<4_31>+L0068
	extern L0069
	<4_31>+L0069
	extern L0070
	<4_31>+L0070
	extern L0071
	<4_31>+L0071
	extern L0072
	<4_31>+L0072
	extern L0073
	<4_31>+L0073
	extern L0074
	<4_31>+L0074
	extern L0075
	<4_31>+L0075
	extern L0076
	<4_31>+L0076
	extern L0077
	<4_31>+L0077
	extern L0078
	<4_31>+L0078
	extern L0079
	<4_31>+L0079
	extern L0080
	<4_31>+L0080
	extern L0081
	<4_31>+L0081
	extern L0082
	<4_31>+L0082
	extern L0083
	<4_31>+L0083
	extern L0084
	<4_31>+L0084
	extern L0085
	<4_31>+L0085
	extern L0086
	<4_31>+L0086
	extern L0087
	<4_31>+L0087
	extern L0088
	<4_31>+L0088
	extern L0089
	<4_31>+L0089
	extern L0090
	<4_31>+L0090
	extern L0091
	<4_31>+L0091
	extern L0092
	<4_31>+L0092
	extern L0093
	<4_31>+L0093
	extern L0094
	<4_31>+L0094
	extern L0095
	<4_31>+L0095
	extern L0096
	<4_31>+L0096
	extern L0097
	<4_31>+L0097
	extern L0098
	<4_31>+L0098
	extern L0099
	<4_31>+L0099
	extern L0100
	<4_31>+L0100
	extern L0101
	<4_31>+L0101
	extern L0102
	<4_31>+L0102
	extern L0103
	<4_31>+L0103
	extern L0104
	<4_31>+L0104
	extern L0105
	<4_31>+L0105
	extern L0106
	<4_31>+L0106
	extern L0107
	<4_31>+L0107
	extern L0108
	<4_31>+L0108
	extern L0109
	<4_31>+L0109
	extern L0110
	<4_31>+L0110
	extern L0111
	<4_31>+L0111
	extern L0112
	<4_31>+L0112
	extern L0113
	<4_31>+L0113
	extern L0114
	<4_31>+L0114
	extern L0115
	<4_31>+L0115
	extern L0116
	<4_31>+L0116
	extern L0117
	<4_31>+L0117
	extern L0118
	<4_31>+L0118
	extern L0119
	<4_31>+L0119
	extern L0120
	<4_31>+L0120
	extern L0121
	<4_31>+L0121
	extern L0122
	<4_31>+L0122
	extern L0123
	<4_31>+L0123
	extern L0124
	<4_31>+L0124
	extern L0125
	<4_31>+L0125
	extern L0126
	<4_31>+L0126
	extern L0127
	<4_31>+L0127
	extern L0128
	<4_31>+L0128
	extern L0129
	<4_31>+L0129
	extern L0130
	<4_31>+L0130
	extern L0131
	<4_31>+L0131
	extern L0132
	<4_31>+L0132
	extern L0133
	<4_31>+L0133
	extern L0134
	<4_31>+L0134
	extern L0135
	<4_31>+L0135
	extern L0136
	<4_31>+L0136
	extern L0137
	<4_31>+L0137
	extern L0138
	<4_31>+L0138
	extern L0139
	<4_31>+L0139
	extern L0140
	<4_31>+L0140
	extern L0141
	<4_31>+L0141
	extern L0142
	<4_31>+L0142
	extern L0143
	<4_31>+L0143
	extern L0144
	<4_31>+L0144
	extern L0145
	<4_31>+L0145
	extern L0146
	<4_31>+L0146
	extern L0147
	<4_31>+L0147
	extern L0148
	<4_31>+L0148
	extern L0149
	<4_31>+L0149
	extern L0150
	<4_31>+L0150
	extern L0151
	<4_31>+L0151
	extern L0152
	<4_31>+L0152
	extern L0153
	<4_31>+L0153
	extern L0154
	<4_31>+L0154
	extern L0155
	<4_31>+L0155
	extern L0156
	<4_31>+L0156
	extern L0157
	<4_31>+L0157
	extern L0158
	<4_31>+L0158
	extern L0159
	<4_31>+L0159
	extern L0160
	<4_31>+L0160
	extern L0161
	<4_31>+L0161
	extern L0162
	<4_31>+L0162
	extern L0163
	<4_31>+L0163
	extern L0164
	<4_31>+L0164
	extern L0165
	<4_31>+L0165
	extern L0166
	<4_31>+L0166
	extern L0167
	<4_31>+L0167
	extern L0168
	<4_31>+L0168
	extern L0169
	<4_31>+L0169
	extern L0170
	<4_31>+L0170
	extern L0171
	<4_31>+L0171
	extern L0172
	<4_31>+L0172
	extern L0173
	<4_31>+L0173
	extern L0174
	<4_31>+L0174
	extern L0175
	<4_31>+L0175
	extern L0176
	<4_31>+L0176
	extern L0177
	<4_31>+L0177
	extern L0178
	<4_31>+L0178
	extern L0179
	<4_31>+L0179
	extern L0180
	<4_31>+L0180
	extern L0181
	<4_31>+L0181
	extern L0182
	<4_31>+L0182
	extern L0183
	<4_31>+L0183
	extern L0184
	<4_31>+L0184
	extern L0185
	<4_31>+L0185
	extern L0186
	<4_31>+L0186
	extern L0187
	<4_31>+L0187
	extern L0188
	<4_31>+L0188
	extern L0189
	<4_31>+L0189
	extern L0190
	<4_31>+L0190
	extern L0191
	<4_31>+L0191
	extern L0192
	<4_31>+L0192
	extern L0193
	<4_31>+L0193
	extern L0194
	<4_31>+L0194
	163
	164
	165
	166
	167
	168
	169
	170
	171
	172
	173
	174
	175
	176
	177
	178
	179
	180
	181
	182
	183
	184
	185
	186
	187
	188
	189
	190
	191
	192
	193
	194
	195
	196
	197
	198
	199
	200
	201
	202
	203
	204
	205
	206
	207
	208
	209
	210
	211
	212
	213
	214
	215
	216
	217
	218
	219
	220
	221
	222
	223
	224
	225
	226
	227
	228
	229
	230
	231
	232
	233
	234
	235
	236
	237
	238
	239
	240
	241
	242
	243
	244
	245
	246
	247
	248
	249
	250
	251
	252
	253
	254
	255
	256
	257
	258
	259
	260
	261
	262
	263
	264
	265
	266
	267
	268
	269
	270
	271
	272
	273
	274
	275
	276
	277
	278
	279
	280
	281
	282
	283
	284
	285
	286
	287
	288
	289
	290
	291
	292
	293
	294
	295
	296
	297
	298
	299
	300
	301
	302
	303
	304
	305
	306
	307
	308
	309
	310
	311
	312
	313
	314
	315
	316
	317
	318
	319
	320
	321
	322
	323
	324
	325
	326
	327
	328
	329
	330
	331
	332
	333
	334
	335
	336
	337
	338
	339
	340
	341
	342
	343
	344
	345
	346
	347
	348
	349
	350
	351
	352
	353
	354
	355
	356
	357
	358
	359
	360
	361
	362
	363
	364
	365
	366
	367
	368
	369
	370
	371
	372
	373
	374
	375
	376
	377
	378
	379
	380
	381
	382
	383
	384
	385
	386
	387
	388
	389
	390
	391
	392
	393
	394
	395
	396
	397
	398
	399
	400
	401
	402
	403
	404
	405
	406
	407
	408
	409
	410
	411
	412
	413
	414
	415
	416
	417
	418
	419
	420
	421
	422
	423
	424
	425
	426
	427
	428
	429
	430
	431
	432
	433
	434
	435
	436
	437
	438
	439
	440
	441
	442
	443
	444
	445
	446
	447
	448
	449
	450
	451
	452
	453
	454
	455
	456
	457
	458
	459
	460
	461
	462
	463
	464
	465
	466
	467
	468
	469
	470
	471
	472
	473
	474
	475
	476
	477
	478
	479
	480
	481
	482
	483
	484
	485
	486
	487
	488
	489
	490
	491
	492
	493
	494
	495
	496
	497
	498
	499
	500
	0
SYMFNC:	intern SYMFNC
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
	extern L0014
	jrst L0014##
	extern MAIN.
	jrst MAIN.##
	extern INIT
	jrst INIT##
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
	extern GETC
	jrst GETC##
	extern TIMC
	jrst TIMC##
 JRST SYMFNC+143
	extern PUTC
	jrst PUTC##
	extern QUIT
	jrst QUIT##
	extern PUTINT
	jrst PUTINT##
	extern L0008
	jrst L0008##
	extern L0009
	jrst L0009##
	extern L0010
	jrst L0010##
 JRST SYMFNC+143
 JRST SYMFNC+143
 JRST SYMFNC+143
	extern FLAG
	jrst FLAG##
	extern L0011
	jrst L0011##
 JRST SYMFNC+143
	extern L0012
	jrst L0012##
 JRST SYMFNC+143
	extern L0013
	jrst L0013##
	extern TERPRI
	jrst TERPRI##
	extern IFACT
	jrst IFACT##
	extern L0015
	jrst L0015##
	extern L0021
	jrst L0021##
	extern L0017
	jrst L0017##
	extern FACT
	jrst FACT##
	extern L0022
	jrst L0022##
	extern TAK
	jrst TAK##
	extern L0032
	jrst L0032##
	block 339
L0003:	intern L0003
	162
	end