.TITLE	$OTI  
	.IDENT	/F40003/
	.GLOBL	STP$  
V007A ==000000
	.GLOBL	$ERRTB
	.GLOBL	$ERRTE
	.GLOBL	$EXIT$
	.GLOBL	$OTSV 
	.GLOBL	$VIRIN
	.GLOBL	.FINIT
	.PSECT	      

	.PSECT	OTS$I 
OTS$I:
$OTI  ==.+000000
$$OTI ==.+000002
; 
	.PSECT	OTS$I

	MOV	#5001,R1
4$:	MOV	@#$OTSV,R3
10$:	MOV	#37,146(R3)
16$:	MOV	R1,202(R3)
22$:	MOV	#10,-(SP)
26$:	MOV	172(R3),-(SP)
32$:	MOV	#1551,-(SP)
36$:	EMT	377
40$:	BCS	240$
42$:	MOV	22(R3),R0
46$:	MOV	4(R3),R1
52$:	BEQ	72$
54$:	MOV	#66,R2
60$:	CLR	(R0)+
62$:	DEC	R2
64$:	BNE	60$
66$:	DEC	R1
70$:	BNE	54$
72$:	MOV	164(R3),R0
76$:	MOV	#$ERRTB,R1
102$:	MOV	#$ERRTE,R2
106$:	SUB	R1,R2
110$:	ASR	R2
112$:	MOV	(R1)+,(R0)+
114$:	DEC	R2
116$:	BNE	112$
120$:	MOV	14(R3),R0
124$:	SUB	10(R3),R0
130$:	MOV	R0,12(R3)
134$:	MOV	#OTS$I+156,R0
140$:	MOVB	(R0)+,R1
142$:	BEQ	172$
144$:	BIC	#177400,R1
150$:	ADD	R3,R1
152$:	CLR	(R1)
154$:	BR	140$
156$:	MOV	-(R0),R2
160$:	ADD	(R1)+,-(R2)
162$:	.WORD	100150
164$:	XOR	R1,60136(SP)
170$:	.WORD	000000
.=OTS$I+172
172$:	MOV	#1,402(R3)
	JSR	PC,$.$MCR
200$:	JSR	PC,.FINIT
204$:	JSR	PC,$VIRIN
210$:	MOV	(R4)+,R0
212$:	MOV	(R0)+,212(R3)
216$:	MOV	(R0),210(R3)
222$:	TSTB	202(R3)
226$:	BNE	236$
230$:	JSR	PC,(R4)
232$:	JMP	STP$
236$:	JMP	@(R4)+
240$:	TRAP	202
242$:	JMP	$EXIT$
	.END