AUSAM/source/S/edrecon.s

	/edrecon
	/
	/ converts a file in editor format back
	/ to normal( you hope). files which have been
	/ grossly manipulated will be perhaps esoteric
	/ one argument is required. the file to be translated
	/ output is on standard output.
	/
	/
	.globl	fopen,getc,putc,flush
	.bss
obuf:	.=.+518.
ibuf:	.=.+518.
	.text
	mov	$1,obuf
	cmp	$2,(sp)+
	beq	0f
	mov	$2,r0
	sys	write;m1;m1l
	sys	exit
	.data
m1:	<Give one filename only\n>
m1l=.-m1
	.text
0:	mov	2(sp),r0
	jsr	r5,fopen; ibuf
	bec	0f
	mov	$2,r0
	sys	write;m2;m2l
	sys	exit
	.data
m2:	<cannot open file\n>
m2l = .-m2
	.text
0:	jsr	r5,getc;ibuf
	bes	9f
	inc	r3
	tst	r0
	bne	4f
1:	bit	$7,r3
	beq	1f
	jsr	r5,getc;ibuf
	inc	r3
	br	1b
1:	mov	$12,r0
4:	jsr	r5,putc;obuf
	br	0b
9:	jsr	r5,flush;obuf
	sys	exit
	/there is also a problem if the file has some text
	/in core