;MAIN.TXT/B:1030=MAIN/I:ALL/L/N
;RANGE:	1030-4230

$$OTSI::
	NOP
	MOV	$AOTS,R3	;0
	MOV	150(R3),R4	;
	MOVB	165(R3),R1
	MOV	152(R3),@#50
	BR	.1032
$OTI::
	MOV	(PC)+,R1
$$OTI::
	CLR	R1
	MOV	.4154,R0	;Ots$p+20, 0
	BEQ	1$
	JSR	PC,@R0		;1040	4710
1$:	MOV	@#42,SP		;HI-HI
	MOV	R4,-(SP)
	MOV	#.2716,R0
	EMT	375		;.Purge	#0

	MOV	@#50,R5		;1056	13705	50
	MOV	R5,-(SP)	;1062	10546
	TST	(R5)+		;1064	5725
	CLR	-(SP)		;1066	5046
	MOV	#10000,-(SP)	;1070	12746	10000
	MOV	SP,R0		;1074	10600
	SUB	#20,SP		;1076	162706	20
	MOV	SP,22(SP)	;1102	10666	22
	EMT	375	;.GtJb
	MOV	2(SP),R4	; Top ADDRESS
	TST	.4154		;1114	5767	3034 first pass ?
	BNE	.1216		;1120	1036
	MOV	#.1732,R0	;1122	12700	1732
	EMT	375			;.GVal #.1732,#300 (CONFIG)
	BIT	#10000,R0	; MMU$ Test
	BEQ	.1144
	MOV	#170000,@#36	;
.1144:	;--BR-
	BIT	#1000,R0	; USR noswap test
	BNE	.1216
	MOV	#1000,@#46	;1152	12737	1000	46
	TST	.4224		;1160	5767	3040
	BEQ	.1216		;1164	1414
	TST	@SP		; Job Number
	BEQ	.1202		;1170	1404
	.PRINT	#.1634		; USR not locked
	BR	.1216		;1200	406
.1202:
	MOV	#.1736,R0
	EMT	375	; .GVal #.1736,#266 (USRLC)
	MOV	R0,R4
	CLR	@#46
.1216:
	TST	-(R4)
	.SETTOP	R4
	MOV	R0,R4		;1224	10004
	CMP	R4,R5		;1226	20405
	BLOS	.1616		;1230	101572
	SUB	#324,R4		;
	MOV	R4,$AOTS	;
	MOV	R4,R3		;1242	10403
	SUB	.4222,R4	;word	210
	BIC	#1,R4		;
	MOV	R4,-(SP)	;1254	10446
	MOV	.4226,R2	;word	6
	BEQ	.1616		;1262	1555
	SUB	R2,R4
	MOV	R4,-(SP)	;1266	10446
	BIC	#1,R4
.1274:
	SUB	#40,R4		;1274	162704	40
	DEC	R2		;1300	5302
	BNE	.1274		;1302	1374
	MOV	R4,-(SP)	;1304	10446
	SUB	#120,R4		;1306	162704	120
	MOV	R4,-(SP)	;1312	10446
	CMP	R4,R5		;1314	20405
	BLOS	.1616		;1316	101537
	MOV	R3,R2		;1320	10302
	ADD	#324,R2		;1322	62702	324
.1326:
	CLR	-(R2)		;MMU-halt
	CMP	R2,R4		;1330	20204
	BHI	.1326		;1332	101375
	MOVB	R1,164(R3)	;1334	110163	164
	MOVB	R1,165(R3)	;1340	110163	165
	MOV	(SP)+,10(R3)	;1344	12663	10
	MOV	(SP)+,6(R3)	;1350	12663	6
	MOV	(SP)+,4(R3)	;1354	12663	4
	MOV	(SP)+,2(R3)	;1360	12663	2
	MOV	2(SP),166(R3)	;1364	16663	2	166
	MOV	4(SP),170(R3)	;1372	16663	4	170
	SUB	#106,R4		;1400	162704	106
	MOV	R4,154(R3)	;1404	10463	154
	MOV	R4,12(R3)	;1410	10463	12
	MOV	R4,R1		;1414	10401
	MOV	#$ERRTB,R0	;1416	12700	3110
	MOV	#43,R2		;1422	12702	43
.1426:	;--BR-
	MOV	(R0)+,(R1)+	;1426	12021
	DEC	R2		;1430	5302
	BNE	.1426		;1432	1375
	MOV	R5,14(R3)	;1434	10563	14
	CMP	R4,R5		;1440	20405
	BLOS	.1616		;1442	101465
	TST	.4154		;1444	5767	2504
	BNE	.1510		;1450	1017
	MOV	#.1732,R0
	EMT	375	;.GVal #.1732,#300 (CONFIG)
	BIT	#1000,R0	; USR noswap test
	BNE	.1510		;1464	1011
	CMP	@SP,.4224	;1466	21667	2532
	BCS	.1510		;1472	103406
	MOV	@#42,R2		;1474	13702	42
	ADD	#10000,R2	;1500	62702	10000
	CMP	R4,R2		;1504	20402
	BLOS	.1616		;1506	101443
.1510:	;--BR-
	ADD	#24,SP		;1510	62706	24
	MOV	#100000,20(R3)	;1514	12763	100000	20
	MOV	R3,120(R3)	;1522	10363	120
	ADD	#42,120(R3)	;1526	62763	42	120
	MOV	(SP)+,152(R3)	;1534	12663	152
	MOV	(SP)+,R4	;1540	12604
	MOV	R4,150(R3)	;1542	10463	150
	MOV	(R4)+,R0	;1546	12400
	MOV	(R0)+,174(R3)	;1550	12063	174
	MOV	@R0,172(R3)	;1554	11063	172
	TST	.4154		;1560	5767	2370
	BNE	.1602		;1564	1006
	MOV	#1002,@#40	;1566	12737	1002	40
	BIS	#20000,@#44	;1574	52737	20000	44
.1602:	;--BR-
	JSR	PC,$VRINT	;1602	4767	2276
	TSTB	165(R3)		;1606	105763	165
	BEQ	.1716		;1612	1441
	JMP	@(R4)+
				;1614	134
.1616:	.PRINT	#.1663		; FORTRAN start fail
	BISB	#10,@#53	;1624	152737	10	53
	.EXIT
.1634:	;--GBL--#X-
	.ASCII	|?Err 59 USR not locked|<0>
.1663:	;--#X-
	.ASCII	|?Err 62 FORTRAN start fail|<0>;1716
.1716:	;--BR-
	MOV	#STP$,-(SP)	;1716	12746	3734
	JMP	@R4
				;1722	114
.1724:	MOV	0(R4),R0	;1724	16400	0
	HALT			;1730	0
.1732:	;--GBL--#X-
	MOV	300(R0),R0	;1732	16000	300
.1736:	;--GBL--#X-
	MOV	266(R0),R0	;1736	16000	266
	MOV	R1,-(SP)	;1742	10146
	MOV	2(SP),R1	;1744	16601	2
	MOV	R0,-(SP)	;1750	10046
	MOV	R2,-(SP)	;1752	10246
	MOV	R3,-(SP)	;1754	10346
	MOV	-(R1),R1	;1756	14101
	BIC	#-200,R1	;1760	42701	177600
	MOV	$AOTS,R3	;1764	16703	2240
	MOV	R1,R0		;1770	10100
	JSR	PC,$$SET	;1772	4767	612
	MOV	154(R3),R2	;1776	16302	154
	ADD	R1,R2		;2002	60102
	MOVB	@R2,-(SP)	;2004	111246
	BMI	.2132		;2006	100451
	BEQ	.2042		;2010	1414
	TST	162(R3)		;2012	5763	162
	BEQ	.2030		;2016	1404
	MOV	162(R3),R4	;2020	16304	162
	JMP	$IOEXI
				;2024	167	1532
.2030:	;--BR-
	INCB	@R2		;2030	105212
	MOVB	@R2,@SP		;2032	111216
	BPL	.2040		;2034	100001
	DECB	@R2		;2036	105312
.2040:	;--BR-
	EMT	355	;.RCTRLO;2040	104355
.2042:	;--BR-
	MOV	#$ERRS,R2	;2042	12702	3215
.2046:	;--BR-
	MOVB	(R2)+,R0	;2046	112200
	BEQ	.2064		;2050	1405
	CMPB	R1,R0		;2052	120100
	BEQ	.2070		;2054	1405
.2056:	;--BR-
	TSTB	(R2)+		;2056	105722
	BNE	.2056		;2060	1376
	BR	.2046
				;2062	771
.2064:	;--BR-
	MOV	#-1,@SP		;2064	12716	177777
.2070:	;--BR-
	MOV	#.3065,R3	;2070	12703	3065
	MOV	#.3064,R0	;2074	12700	3064
	EMT	351	;.PRINT	R0;2100	104351
	JSR	PC,.2244	;2102	4767	136
	MOV	R2,R0		;2106	10200
	EMT	351	;.PRINT	R0;2110	104351
	MOV	#.3030,R3	;2112	12703	3030
	JSR	PC,.2244	;2116	4767	122
	JSR	PC,.2256	;2122	4767	130
	TSTB	@SP		;2126	105716
	BMI	.2162		;2130	100414
.2132:	;--BR-
	TST	(SP)+		;2132	5726
	TST	.4154		;2134	5767	2014
	BNE	.2150		;2140	1003
	BISB	#2,@#53		;2142	152737	2	53
.2150:	;--BR-
	MOV	(SP)+,R3	;2150	12603
	MOV	(SP)+,R2	;2152	12602
	MOV	(SP)+,R0	;2154	12600
	MOV	(SP)+,R1	;2156	12601
	RTI
				;2160	2
.2162:	;--BR-
	TST	.4154		;2162	5767	1766
	BNE	.2176		;2166	1003
	BISB	#4,@#53		;2170	152737	4	53
.2176:	;--BR-
	MOV	$AOTS,R3	;2176	16703	2026
	MOV	16(R3),R2	;2202	16302	16
	BEQ	.2240		;2206	1414
	MOV	6(R2),16(R3)	;2210	16263	6	16
	MOV	4(R2),@R3	;2216	16213	4
	MOV	#.3023,R3	;2222	12703	3023
	JSR	PC,.2244	;2226	4767	12
	JSR	PC,.2256	;2232	4767	20
	BR	.2176
				;2236	757
.2240:	;--BR-
	JMP	$EXIT
				;2240	167	1514
.2244:	;--BR---XX-
	MOVB	(R3)+,R0	;2244	112300
	BEQ	.2464		;2246	1506
.2250:	;--BR-
	EMT	341	;.TTOUR	R0;2250	104341
	BCS	.2250		;2252	103776
	BR	.2244
				;2254	773
.2256:	;--BR---XX-
	MOV	#.3040,R3	;2256	12703	3040
	JSR	PC,.2244	;2262	4767	177756
	MOV	$AOTS,R3	;2266	16703	1736
	MOV	172(R3),-(SP)	;2272	16346	172
	MOV	174(R3),R0	;2276	16300	174
	MOV	16(R3),R3	;2302	16303	16
	BEQ	.2314		;2306	1402
	MOV	(R3)+,@SP	;2310	12316
	MOV	@R3,R0		;2312	11300
.2314:	;--BR-
	JSR	PC,.2544	;2314	4767	224
	MOV	(SP)+,R0	;2320	12600
	JSR	PC,.2544	;2322	4767	216
	MOV	#.3053,R3	;2326	12703	3053
	JSR	PC,.2244	;2332	4767	177706
	MOV	@$AOTS,R0	;2336	17700	1666
	BNE	.2356		;2342	1005
	MOVB	#77,R0		;2344	112700	77
.2350:	;--BR-
	EMT	341	;.TTOUR	R0;2350	104341
	BCS	.2350		;2352	103776
	BR	.2362
				;2354	402
.2356:	;--BR-
	JSR	PC,.2466	;2356	4767	104
.2362:	;--BR-
	CMPB	R1,#75		;2362	120127	75
	BEQ	.2376		;2366	1403
	CMPB	R1,#77		;2370	120127	77
	BNE	.2456		;2374	1030
.2376:	;--BR-
	MOV	#.3075,R3	;2376	12703	3075
	JSR	PC,.2244	;2402	4767	177636
	MOV	20(SP),R1	;2406	16601	20
	SEC			;2412	261
	MOVB	#30,R0		;2414	112700	30
.2420:	;--BR-
	ROL	R1		;2420	6101
	ROLB	R0		;2422	106100
.2424:	;--BR-
	EMT	341	;.TTOUR	R0;2424	104341
	BCS	.2424		;2426	103776
	MOVB	#206,R0		;2430	112700	206
.2434:	;--BR-
	ASL	R1		;2434	6301
	BEQ	.2446		;2436	1403
	ROLB	R0		;2440	106100
	BCS	.2434		;2442	103774
	BR	.2420
				;2444	765
.2446:	;--BR-
	MOVB	#51,R0		;2446	112700	51
.2452:	;--BR-
	EMT	341	;.TTOUR	R0;2452	104341
	BCS	.2452		;2454	103776
.2456:	;--BR-
	MOV	#.3035,R0	;2456	12700	3035
	EMT	351	;.PRINT	R0;2462	104351
.2464:	;--BR-
	RTS	PC
				;2464	207
.2466:	;--BR---XX-
	MOV	R0,-(SP)	;2466	10046
	CLR	R0		;2470	5000
.2472:	;--BR-
	INC	R0		;2472	5200
	SUB	#12,@SP		;2474	162716	12
.2476:	;--BR-
	BGE	.2472		;2500	2374
	ADD	#72,@SP		;2502	62716	72
	DEC	R0		;2506	5300
	BEQ	.2516		;2510	1402
	JSR	PC,.2466	;2512	4767	177750
.2516:	;--BR-
	MOVB	(SP)+,R0	;2516	112600
.2520:	;--BR-
	EMT	341	;.TTOUR	R0;2520	104341
	BCS	.2520		;2522	103776
	RTS	PC
				;2524	207
.2526:	;--BR---XX-
	MOV	R0,R3		;2526	10003
	CLR	R0		;2530	5000
.2532:	;--BR-
	CMP	R2,R3		;2532	20203
	BHI	.2464		;2534	101353
	SUB	R2,R3		;2536	160203
	INC	R0		;2540	5200
	BR	.2532
				;2542	773
.2544:	;--BR---XX-
	MOV	#50,R2		;2544	12702	50
	JSR	PC,.2526	;2550	4767	177752
	MOV	R3,-(SP)	;2554	10346
	JSR	PC,.2526	;2556	4767	177744
	MOV	R3,-(SP)	;2562	10346
	MOV	#3,R3		;2564	12703	3
.2570:	;--BR-
	MOVB	2753(R0),R0	;2570	116000	2753
.2574:	;--BR-
	EMT	341	;.TTOUR	R0;2574	104341
	BCS	.2574		;2576	103776
	DEC	R3		;2600	5303
	BEQ	.2464		;2602	1730
	MOV	(SP)+,R0	;2604	12600
	BR	.2570
				;2606	770
$$SET:	;--GBL--BR---XX-
	MOVB	R0,240(R3)	;2610	110063	240
	MOVB	242(R3),241(R3)	;2614	116363	242	241
	MOV	R0,R2		;2622	10002
	ASR	R0		;2624	6200
	ASR	R0		;2626	6200
	ASR	R0		;2630	6200
	BIC	#1,R0		;2632	42700	1
	ADD	R3,R0		;2636	60300
	BIC	#-20,R2		;2640	42702	177760
	CLR	-(SP)		;2644	5046
	SEC			;2646	261
.2650:	;--BR-
	ROL	@SP		;2650	6116
	DEC	R2		;2652	5302
	BPL	.2650		;2654	100375
	BIS	(SP)+,226(R0)	;2656	52660	226
	RTS	PC
				;2662	207
.2664:	;--BR-
	TRAP	277		;2664	104677
	BCS	.2664		;2666	103776
	CMP	#500,SP		;2670	22706	500
	BCC	.2700		;2674	103001
	TRAP	275		;2676	104675
.2700:	;--BR-
	MOV	@#42,SP		;2700	13706	42
	MOV	#.2722,R0	;2704	12700	2722
	EMT	351	;.PRINT	R0;2710	104351
	JMP	$EXIT
				;2712	167	1042
.2714:	;--BR-

.2716:	.Word	1400,2666
.2722:	.BYTE	77,105	;42477
.2724:	.BYTE	162,162	;71162
.2726:	.BYTE	40,66	;33040
.2730:	.BYTE	60,40	;20060

.2732:	.BYTE	163,164	;72163
.2734:	.BYTE	141,143	;61541
.2736:	.BYTE	153,40	;20153
.2740:	.BYTE	157,166	;73157
.2742:	.BYTE	145,162	;71145
.2744:	.BYTE	146,154	;66146
.2746:	.BYTE	157,167	;73557
.2750:	.BYTE	145,144	;62145
.2753:	;--XX-
.2752:	.BYTE	0
.2753:	.ASCII	" ABCDEFGHIJKLMNOPQRSTUVWXYZ$. 0123456789"
.3023:	.ASCII	"from"<0>
.3030:	.ASCII	"in  "<0>
.3035:	.BYTE	15,12,0
.3040:	.ASCII	| routine "|<0>;3053
.3053:	;--GBL--#X-
	.ASCII	|"  line |<0>
.3064:	;--GBL--#X-
	MTPI	R0		;3064	6600
.3065:	;--GBL--#X-
	BIT	@71105(R4),@R2	;3066	37412	71105
	CMP	R1,20000(R2)	;3072	20162	20000
.3075:	;--GBL--#X-
	BIS	R0,@-(R0)	;3076	50050
	BIT	0(R5),R3	;3100	36503	0
EXIT:	;--GBL--BR---XX-
	JMP	$EXIT
				;3104	167	650
$ERRTB::
$short::
	SOB	R5,.2714
				;3110	77577
.3112:	SOB	R5,.2716
				;3112	77577
.3114:	.BYTE	0,174	;76000
	SOB	PC,.2722
				;3116	77777
.3120:	SOB	R5,.2724
				;3120	77577
.3122:	.BYTE	174,377	;177574
.3124:	.BYTE	177,174	;76177
.3126:	.SAME	77577,22
.3172:	SOB	R5,.2776
				;3172	77577
.3174:	JMP	@102776
.3174:	.BYTE	177,0	;177
.3176:	.SAME	77577,5
.3210:	SOB	R5,.3014
				;3210	77577
.3212:	JMP	@11014
.3212:	.BYTE	177,0	;177
$ERRS:	;--GBL--#X-
.3214:	.BYTE	177,13	;5577
.3216:	.BYTE	61,61	;30461
	BGT	.+2		;3220	3000
.3222:	.BYTE	66,0	;66
.3224:	.BYTE	4,64	;32004
.3226:	.BYTE	0,14	;6000
.3230:	.BYTE	61,62	;31061
	BNE	.+2		;3232	1000
.3234:	.BYTE	62,0	;62
.3236:	.BYTE	3,63	;31403
.3240:	.BYTE	0,20	;10000
.3242:	.BYTE	61,66	;33061
	MARK	0
.3244:	.BYTE	0,15	;6400
.3246:	.BYTE	61,63	;31461
	BR	.+2
				;3250	400
.3252:	.BYTE	61,0	;61
.3254:	.BYTE	12,61	;30412
.3256:	.BYTE	60,0	;60
.3260:	.BYTE	5,65	;32405
.3262:	.BYTE	0,16	;7000
.3264:	.BYTE	61,64	;32061
.3266:	.BYTE	0,17	;7400
.3270:	.BYTE	61,65	;32461
	BLE	.+2		;3272	3400
.3274:	.BYTE	67,0	;67
.3276:	.BYTE	65,65	;32465
.3300:	.BYTE	63,0	;63
.3302:	.BYTE	75,66	;33075
.3304:	.BYTE	61,0	;61
.3306:	.BYTE	24,62	;31024
.3310:	.BYTE	60,0	;60
.3312:	.BYTE	25,62	;31025
.3314:	.BYTE	61,0	;61
.3316:	.BYTE	26,62	;31026
.3320:	.BYTE	62,0	;62
.3322:	.BYTE	27,62	;31027
.3324:	.BYTE	63,0	;63
.3326:	.BYTE	77,66	;33077
.3330:	.BYTE	63,0	;63
.3332:	.BYTE	30,62	;31030
.3334:	.BYTE	64,0	;64
.3336:	.BYTE	31,62	;31031
.3340:	.BYTE	65,0	;65
.3342:	.BYTE	32,62	;31032
.3344:	.BYTE	66,0	;66
.3346:	.BYTE	55,64	;32055
.3350:	.BYTE	65,0	;65
.3352:	.BYTE	33,62	;31033
.3354:	.BYTE	67,0	;67
.3356:	.BYTE	37,63	;31437
.3360:	.BYTE	61,0	;61
.3362:	.BYTE	34,62	;31034
.3364:	.BYTE	70,0	;70
.3366:	.BYTE	35,62	;31035
.3370:	.BYTE	71,0	;71
.3372:	.BYTE	44,63	;31444
.3374:	.BYTE	66,0	;66
.3376:	.BYTE	54,64	;32054
.3400:	;--XX-
.3400:	.BYTE	64,0	;64
.3402:	.BYTE	40,63	;31440
.3404:	.BYTE	62,0	;62
.3406:	.BYTE	41,63	;31441
.3410:	.BYTE	63,0	;63
.3412:	.BYTE	42,63	;31442
.3414:	;--XX-
.3414:	.BYTE	64,0	;64
.3416:	.BYTE	45,63	;31445
.3420:	.BYTE	67,0	;67
.3422:	.BYTE	46,63	;31446
.3424:	.BYTE	70,0	;70
.3426:	.BYTE	47,63	;31447
.3430:	.BYTE	71,0	;71
.3432:	.BYTE	50,64	;32050
.3434:	.BYTE	60,0	;60
.3436:	.BYTE	51,64	;32051
.3440:	.BYTE	61,0	;61
.3442:	.BYTE	43,63	;31443
.3444:	.BYTE	65,0	;65
.3446:	.BYTE	36,63	;31436
.3450:	.BYTE	60,0	;60
.3452:	.BYTE	52,64	;32052
.3454:	.BYTE	62,0	;62
.3456:	.BYTE	56,64	;32056
.3460:	.BYTE	66,0	;66
.3462:	.BYTE	53,64	;32053
.3464:	.BYTE	63,0	;63
.3466:	.BYTE	61,64	;32061
.3470:	.BYTE	71,0	;71
.3472:	.BYTE	57,64	;32057
.3474:	.BYTE	67,0	;67
.3476:	.BYTE	60,64	;32060
.3500:	.BYTE	70,0	;70
.3502:	.BYTE	100,66	;33100
.3504:	.BYTE	64,0	;64
.3506:	.BYTE	101,66	;33101
.3510:	.BYTE	65,0	;65
.3512:	.BYTE	102,66	;33102
.3514:	.BYTE	66,0	;66
.3516:	.BYTE	103,66	;33103
.3520:	.BYTE	67,0	;67
	BIT	(R4)+,61(R3)	;3522	32463	61
	BIT	(R4)+,60(R2)	;3526	32462	60
	BIT	R0,R0		;3532	30000
	HALT			;3534	0
$CHKER::
	MOV	162(R3),R0	;3536	16300	162
	BNE	.3546		;3542	1001
	RTS	R5
.3546:	MOV	R0,R4		;3546	10004
	MOV	@R5,R0		;3550	11500
	BIC	#-200,R0	;3552	42700	177600
	JSR	PC,$$SET	;3556	4767	177026
$IOEXI:
	MOV	144(R3),SP	;3562	16306	144
	MOV	#.3724,-(SP)	;3566	12746	3724
	MOV	R3,-(SP)	;3572	10346
	TSTB	164(R3)		;3574	105763	164
	BNE	.3672		;3600	1034
	MOV	R4,2(SP)	;3602	10466	2
	BR	.3672
				;3606	431
$EOL::	MOV	R3,-(SP)	;3610	10346
EOL$::	MOV	$AOTS,R3	;3612	16703	412
	CLR	104(R3)		;3616	5063	104
	TSTB	164(R3)		;3622	105763	164
	BNE	.3642		;3626	1005
	MOV	2(SP),176(R3)	;3630	16663	2	176
	MOV	(SP)+,R3	;3636	12603
	TST	(SP)+		;3640	5726
.3642:	;--BR-
	JSR	PC,@(SP)+	;3642	4736
	MOV	#.3724,-(SP)	;3644	12746	3724
	MOV	R3,-(SP)	;3650	10346
	MOV	$AOTS,R3	;3652	16703	352
	TSTB	164(R3)		;3656	105763	164
	BNE	.3672		;3662	1003
	MOV	176(R3),2(SP)	;3664	16366	176	2
.3672:	;--BR-
	CLR	162(R3)		;3672	5063	162
	CLR	160(R3)		;3676	5063	160
	CLR	24(R3)		;3702	5063	24
	MOV	130(R3),14(R3)	;3706	16363	130	14
	CLRB	242(R3)		;3714	105063	242
	MOV	(SP)+,R3	;3720	12603
	RTS	PC
				;3722	207
.3724:	;--#X-
	JMP	@(R4)+
				;3724	134
$STPS::	TST	(SP)+		;3726	5726
	MOV	SP,R4		;3730	10604
	BR	FOO$
				;3732	402
STP$::
$STP::
	MOV	#.4066,R4
FOO$::
	.PRINT	#.4070
	.PRINT	#.4072
	.PRINT	(R4)+
$EXIT::
	BISB	#1,@#53
	MOV	$AOTS,R3
	INC	146(R3)
	MOV	4(R3),R4
.4002:
	CMP	R4,2(R3)
	BCC	.4042
	MOVB	(R4)+,R2
	BEQ	.4002
	CMP	146(R3),#2
	BNE	.4034
	CLRB	-(R4)
	DEC	146(R3)
	BR	.4002
.4034:
	JSR	PC,@.4152	;4034	4777	112
	BR	.4002		;4040	760
.4042:
	MOV	156(R3),R0	;4042	16300	156
	BEQ	.4052		;4046	1401
	JMP	@R0		;4050	110
.4052:
	BIT	#4000,@#44	;4052	32737	4000	44
	BNE	.4064		;4060	1001
	INC	R0		;4062	5200
.4064:	.EXIT
.4066:
	JSR	R0,@0(R0)	;4066	4070	0
.4070:	.WORD	0
.4072:
	.ASCII	|STOP -- |<200>
	.EVEN
$VRINT::
	RTS	PC

    .Psect	OTS$P,RW,D,GBL,REL,OVR
.4106:	.BLKW	23
.4152:	
.4154:	.Word	0
Start:
	JSR	R4,$$OTI
	.Word	$$OTSO
	MOV	#2,@$AOTS
	MOV	#.4220,R5	;4172	12705	4220
	JSR	PC,EXIT
	INC	@$AOTS
	RTS	PC
				;4206	207
	.Psect	OTS$O
$$OTS0:
	.Psect	$DATAP
	CMP	R5,@(R0)+	;4210	20530
	HALT			;4212	0
	HALT			;4214	0
	.WORD	4232
.4220:	;--#X-
.4220:	.BYTE	0,0	;0
.4222:	.Word	210
.4224:	;--GBL--XX-
	HALT			;4224	0
.4226:	.Word	6
$AOTS:	;--GBL--XX-
	.WORD
                                                                             