.title	xlate
	.psect	data,noexe,long
section:
	.blkb	10752
pro:	$xabpro
trnam:	$nam	rsa=name2,rss=63
blk1:	$fab	fna=name1,fns=63,nam=trnam,xab=pro,-
	dnm=<PARM.PLV>
blk2:	$fab	fna=name1,fns=63,nam=trnam,xab=pro,-
	dnm=<VECTR1.PLV>
name1:	.ascii	/                    / -
		/                    / -
		/                       /
name2:	.blkb	63
	.psect	code,exe,long
	.entry	xlate1,^M<r2,r3,r4,r5,r6,r7>
	movl	#0,@20(ap)
	movw	#999,@24(ap)
	movl	@8(ap),r6
	movc3	r6,@4(ap),name1
	$OPEN	fab=blk1
	blbc	r0,badopen1
	movzbl	trnam+nam$b_rsl,r7
	movl	r7,@16(ap)
	movc3	r7,name2,@12(ap)
	$DISPLAY fab=blk1
	blbc	r0,baddisp1
	mcomw	pro+XAB$W_PRO,@24(ap)	
	$CLOSE	fab=blk1
	ret
badopen1:
	movl	#1,@20(ap)
	ret
baddisp1:
	movl	#2,@20(ap)
	ret
	.entry	xlate2,^M<r2,r3,r4,r5,r6,r7>
	movl	#0,@20(ap)
	movw	#999,@24(ap)
	movl	@8(ap),r6
	movc3	r6,@4(ap),name1
	$OPEN	fab=blk2
	blbc	r0,badopen2
	movzbl	trnam+nam$b_rsl,r7
	movl	r7,@16(ap)
	movc3	r7,name2,@12(ap)
	$DISPLAY fab=blk2
	blbc	r0,baddisp2
	mcomw	pro+XAB$W_PRO,@24(ap)	
	$CLOSE	fab=blk2
	ret
badopen2:
	movl	#1,@20(ap)
	ret
baddisp2:
	movl	#2,@20(ap)
	ret
	.entry	addr1,^M<r2,r3>
	movl	4(ap),r3
	moval	section,r2
	addl2	#511,r2
	movl	r2,(r3)+
	addl	#10240,r2
	movl	r2,(r3)
	ret
	.end