reduce-historical/psl-1983/3-1/tests/20/dmain0.mac

	radix 10
STACK:	block 5001
	intern STACK
L0001:	STACK+0
	intern L0001
L0002:	STACK+5000
	intern L0002
HEAP:	block 150001
	intern HEAP
L0006:	HEAP+0
	intern L0006
L0007:	HEAP+150000
	intern L0007
L0008:	0
	intern L0008
L0009:	0
	intern L0009
L0010:	0
	intern L0010
L0011:	0
	intern L0011
L0012:	block 20
	intern L0012
BPS:	block 501
	intern BPS
L0013:	BPS+0
	intern L0013
L0014:	BPS+0
	intern L0014
L0015:	BPS+500
	intern L0015
L0016:	BPS+500
	intern L0016
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
L0005:	block 401
	intern L0005
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
	<29_31>+132
	<30_31>+128
	<30_31>+128
	<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
	<29_31>+144
	<29_31>+145
	<29_31>+146
	<29_31>+147
	<29_31>+148
	<29_31>+149
	<30_31>+128
	<30_31>+128
	<29_31>+152
	<29_31>+153
	<29_31>+154
	<29_31>+155
	<29_31>+156
	<29_31>+157
	<29_31>+158
	<29_31>+159
	block 641
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
	block 641
SYMNAM:	intern SYMNAM
	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
	extern L0195
	<4_31>+L0195
	extern L0196
	<4_31>+L0196
	161
	162
	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
	501
	502
	503
	504
	505
	506
	507
	508
	509
	510
	511
	512
	513
	514
	515
	516
	517
	518
	519
	520
	521
	522
	523
	524
	525
	526
	527
	528
	529
	530
	531
	532
	533
	534
	535
	536
	537
	538
	539
	540
	541
	542
	543
	544
	545
	546
	547
	548
	549
	550
	551
	552
	553
	554
	555
	556
	557
	558
	559
	560
	561
	562
	563
	564
	565
	566
	567
	568
	569
	570
	571
	572
	573
	574
	575
	576
	577
	578
	579
	580
	581
	582
	583
	584
	585
	586
	587
	588
	589
	590
	591
	592
	593
	594
	595
	596
	597
	598
	599
	600
	601
	602
	603
	604
	605
	606
	607
	608
	609
	610
	611
	612
	613
	614
	615
	616
	617
	618
	619
	620
	621
	622
	623
	624
	625
	626
	627
	628
	629
	630
	631
	632
	633
	634
	635
	636
	637
	638
	639
	640
	641
	642
	643
	644
	645
	646
	647
	648
	649
	650
	651
	652
	653
	654
	655
	656
	657
	658
	659
	660
	661
	662
	663
	664
	665
	666
	667
	668
	669
	670
	671
	672
	673
	674
	675
	676
	677
	678
	679
	680
	681
	682
	683
	684
	685
	686
	687
	688
	689
	690
	691
	692
	693
	694
	695
	696
	697
	698
	699
	700
	701
	702
	703
	704
	705
	706
	707
	708
	709
	710
	711
	712
	713
	714
	715
	716
	717
	718
	719
	720
	721
	722
	723
	724
	725
	726
	727
	728
	729
	730
	731
	732
	733
	734
	735
	736
	737
	738
	739
	740
	741
	742
	743
	744
	745
	746
	747
	748
	749
	750
	751
	752
	753
	754
	755
	756
	757
	758
	759
	760
	761
	762
	763
	764
	765
	766
	767
	768
	769
	770
	771
	772
	773
	774
	775
	776
	777
	778
	779
	780
	781
	782
	783
	784
	785
	786
	787
	788
	789
	790
	791
	792
	793
	794
	795
	796
	797
	798
	799
	800
	0
SYMFNC:	intern SYMFNC
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
	extern L0017
	jrst L0017##
	extern L0035
	jrst L0035##
	extern MAIN.
	jrst MAIN.##
	extern INIT
	jrst INIT##
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
	extern GETC
	jrst GETC##
	extern TIMC
	jrst TIMC##
 JRST SYMFNC+149
	extern PUTC
	jrst PUTC##
	extern QUIT
	jrst QUIT##
	extern L0021
	jrst L0021##
 JRST SYMFNC+149
	extern RESET
	jrst RESET##
	extern DATE
	jrst DATE##
	extern L0028
	jrst L0028##
	extern PUTINT
	jrst PUTINT##
	extern L0029
	jrst L0029##
	extern L0030
	jrst L0030##
	extern L0031
	jrst L0031##
 JRST SYMFNC+149
 JRST SYMFNC+149
 JRST SYMFNC+149
	extern L0032
	jrst L0032##
 JRST SYMFNC+149
	extern L0033
	jrst L0033##
 JRST SYMFNC+149
	extern L0034
	jrst L0034##
	extern TERPRI
	jrst TERPRI##
	extern L0036
	jrst L0036##
	block 641
L0003:	intern L0003
	160
	end