/ Decus C patch level 0, Compilation date: "Sat Feb 02 14:36:56 2002"
	.psect	c~data d w
	.ident	"X0.0"
	.psect	c~code i r
_astsrv:
	mov	r0,~~asr0
	mov	r1,~~asr1
	clr	-(sp)
	jsr	r5,csv~
	.psect	c~strn d w
.2:
	.byte	102,145,145,160,7,40,40,105,106,116,40,75,40,45
	.byte	144,56,40,103,141,154,154,157,165,164,72,12,0
	.psect	c~code i r
	mov	4(r5),-(sp)
	mov	$.2,-(sp)
	jsr	pc,_printf
	cmp	(sp)+,(sp)+
	mov	_stdout,-(sp)
	jsr	pc,_calltr
	tst	(sp)+
	mov	$4,-(sp)
	jsr	pc,_setf
	tst	(sp)+
	mov	$1,r0
.1:
	jmp	acret~
	.psect	c~data d w
	.even
	.psect	c~code i r
_main:
	jsr	r5,csv~
	.psect	c~strn d w
.4:
	.byte	164,151,72,0
	.psect	c~code i r
	mov	$.4,_~~pfil
	.psect	c~strn d w
.5:
	.byte	110,145,154,154,157,0
	.psect	c~code i r
	mov	$.5,-(sp)
	jsr	pc,_puts
	tst	(sp)+
	mov	$4,-(sp)
	jsr	pc,_clef
	tst	(sp)+
	mov	$_astsrv,-(sp)
	mov	$2,-(sp)
	mov	$2,-(sp)
	mov	$5,-(sp)
	jsr	pc,_mrkt
	add	$10,sp
	mov	$4,-(sp)
	jsr	pc,_stse
	tst	(sp)+
	.psect	c~strn d w
.6:
	.byte	102,171,145,0
	.psect	c~code i r
	mov	$.6,-(sp)
	jsr	pc,_puts
	tst	(sp)+
.3:
	jmp	cret~
	.psect	c~data d w
	.even
	.globl	_calltr
	.globl	_printf
	.globl	_clef
	.globl	_astsrv
	.globl	_stdout
	.globl	_main
	.globl	_~~pfil
	.globl	_setf
	.globl	_stse
	.globl	_mrkt
	.globl	_puts
	.globl	csv~
	.globl	cret~
	.globl	~~asr0
	.globl	~~asr1
	.globl	acret~
	.psect	c~code i r
	.even
	.psect	c~data d w
	.even