.mcall	.readw, .writw, .close, .enter, .lookup, .csispc, .purge

st:	.csispc	#name,#fext
	tst	(sp)+
	.lookup	#area,#1,#name+36
	bcc	1$
	.word	0,0

1$:	mov	name+2,onameh+2
	mov	name+4,onameh+4
	mov	name+2,onamel+2
	mov	name+4,onamel+4

	mov	r0,sizei
	mov	r0,sizeo
	asr	sizeo
	bic	#100000,sizeo

	.enter	#area,#2,#onamel,sizeo
	bcc	21$
	.word	0,11

21$:	.enter	#area,#3,#onameh,sizeo
	bcc	2$
	.word	0,12

2$:	.readw	#area,#1,#ibuf,#512.,infile
	bcc	4$
	.word	0,2

4$:	mov	#ibuf,r0
	mov	#obufh,r1
	mov	#obufl,r2
	mov	#512.,r3

6$:	movb	(r0)+,(r2)+
	movb	(r0)+,(r1)+
	sob	r3,6$

	.writw	#area,#2,#obufl,#256.,oufile
	bcc	7$
	.word	0,41
7$:
	.writw	#area,#3,#obufh,#256.,oufile
	bcc	71$
	.word	0,42

71$:	inc	oufile
	inc	infile
	inc	infile
	cmp	infile,sizei
	bne	2$


10$:	.close	#2
	bcc	11$
	.word	0,6

11$:	.close	#3
	bcc	12$
	.word	0,7

12$:	.purge	#1
13$:	clr	r0
	emt	350
	halt

sizeo:	.word	0
sizei:	.word	0
infile:	.word	0
oufile:	.word	0
area:	.blkw	20
name:	.blkw	100
fext:	.rad50	/datdatdatdatdatdat/
onameh:	.rad50	/DK       HI /
onamel:	.rad50	/DK       LO /
obufh:	.blkb	1000
obufl:	.blkb	1000
ibuf:	.blkb	2000
	.end	st