/ Decus C patch level 0, Compilation date: "Tue May 21 15:59:18 1985"
	.psect	c~data
_~~narg:
	.word	1
	.even
_doall:
	.word	0
	.even
_video:
	.word	0
	.even
_isvt52:
	.word	0
	.even
_notLong:
	.word	0
	.even
_continuo:
	.word	0
	.even
_long_sle:
	.word	0
	.even
_extrafd:
	.word	0
	.even
_talkfd:
	.word	0
	.even
_cur_line:
	.word	0
	.even
_linecoun:
	.word	0
	.even
_old_buff:
	.word	0
	.even
_sc_buff:
	.blkb	171
	.even
_temp_tex:
	.blkb	121
	.even
_cookfd:
	.word	0
	.even
_cookfile:
	.psect	c~strn
.1:
	.byte	143,157,157,153,151,145,56,146,151,154,0
	.psect	c~data
	.word	.1
	.psect	c~strn
.2:
	.byte	163,171,163,137,143,157,157,153,151,145,72,143
	.byte	157,157,153,151,145,56,146,151,154,0
	.psect	c~data
	.word	.2
	.psect	c~strn
.3:
	.byte	160,165,142,154,151,143,72,143,157,157,153,151
	.byte	145,56,146,151,154,0
	.psect	c~data
	.word	.3
	.psect	c~strn
.4:
	.byte	160,165,142,72,143,157,157,153,151,145,56,146
	.byte	151,154,0
	.psect	c~data
	.word	.4
	.psect	c~strn
.5:
	.byte	163,171,163,44,160,165,142,154,151,143,72,143
	.byte	157,157,153,151,145,56,146,151,154,0
	.psect	c~data
	.word	.5
	.psect	c~strn
.6:
	.byte	147,141,155,145,163,72,143,157,157,153,151,145
	.byte	56,146,151,154,0
	.psect	c~data
	.word	.6
	.psect	c~strn
.7:
	.byte	147,141,155,145,72,143,157,157,153,151,145,56
	.byte	146,151,154,0
	.psect	c~data
	.word	.7
	.psect	c~strn
.10:
	.byte	163,171,163,44,147,141,155,145,163,72,143,157
	.byte	157,153,151,145,56,146,151,154,0
	.psect	c~data
	.word	.10,0
	.even
_header:
	.blkb	46
	.even
_t:
	.blkb	4000
	.even
_topindex:
	.blkb	4000
	.even
	.psect	c~code
_main:
	jsr	r5,csv~
	sub	$10,sp
	clr	-14(r5)
	clr	-12(r5)
	cmp	4(r5),$1
	bgt	.77777
	mov	$1,r0
	br	.77776
.77777:
	clr	r0
.77776:
	mov	r0,-10(r5)
.13:
	cmp	4(r5),$1
	ble	.12
	mov	6(r5),r3
	mov	2(r3),r3
	movb	(r3),r0
	mov	r0,-(sp)
	jsr	pc,_isdigit
	tst	(sp)+
	tst	r0
	bne	.77775
	cmpb	(r3),$55
	bne	.14
	movb	1(r3),r0
	mov	r0,-(sp)
	jsr	pc,_isdigit
	tst	(sp)+
	tst	r0
	beq	.14
.77775:
	mov	r3,-(sp)
	jsr	pc,_atol
	tst	(sp)+
	mov	r0,-14(r5)
	mov	r1,-12(r5)
	br	.15
.14:
	cmpb	(r3),$55
	beq	.16
	.psect	c~strn
.20:
	.byte	57,110,105,111,116,114,111,105,116,75,116,117
	.byte	0
	.psect	c~code
	.psect	c~strn
.21:
	.byte	57,150,145,151,156,154,151,145,156,75,156,157
	.byte	0
	.psect	c~code
	mov	$.20,-(sp)
	mov	r3,-(sp)
	jsr	pc,_streq
	cmp	(sp)+,(sp)+
	tst	r0
	bne	.77774
	mov	$.21,-(sp)
	mov	r3,-(sp)
	jsr	pc,_streq
	cmp	(sp)+,(sp)+
	tst	r0
	beq	.17
.77774:
	inc	_notLong
	br	.22
.17:
	.psect	c~strn
.23:
	.byte	77,125,156,153,156,157,167,156,40,143,157,155
	.byte	155,141,156,144,40,42,45,163,42,12,0
	.psect	c~code
	mov	r3,-(sp)
	mov	$.23,-(sp)
	mov	_stderr,-(sp)
	jsr	pc,_fprintf
	add	$6,sp
.22:
	br	.24
.16:
	inc	r3
	br	.27
.30:
	movb	(r3),r0
	mov	r0,-(sp)
	jsr	pc,_isupper
	tst	(sp)+
	tst	r0
	beq	.31
	movb	(r3),r0
	mov	r0,-(sp)
	jsr	pc,_tolower
	tst	(sp)+
	movb	r0,(r3)
.31:
	movb	(r3),r0
	br	.33
.34:
	inc	_doall
	br	.32
.35:
	inc	_continuo
	br	.32
.36:
	.psect	c~strn
.40:
	.byte	162,165,156,0
	.psect	c~code
	mov	$.40,-(sp)
	mov	6(r5),r0
	mov	4(r0),-(sp)
	jsr	pc,_fopen
	cmp	(sp)+,(sp)+
	mov	r0,_cookfd
	bne	.37
	mov	6(r5),r0
	mov	4(r0),-(sp)
	jsr	pc,_perror
	tst	(sp)+
	mov	$2,-(sp)
	jsr	pc,_exit
	tst	(sp)+
.37:
	add	$2,6(r5)
	dec	4(r5)
	br	.41
.42:
	inc	_notLong
	br	.32
.43:
	inc	_continuo
	movb	1(r3),r0
	mov	r0,-(sp)
	jsr	pc,_isdigit
	tst	(sp)+
	tst	r0
	beq	.44
	mov	r3,-(sp)
	inc	(sp)
	jsr	pc,_atoi
	tst	(sp)+
	mov	r0,_long_sle
	br	.45
.44:
	mov	6(r5),r0
	mov	4(r0),r0
	movb	(r0),r0
	mov	r0,-(sp)
	jsr	pc,_isdigit
	tst	(sp)+
	tst	r0
	beq	.46
	mov	6(r5),r0
	mov	4(r0),-(sp)
	jsr	pc,_atoi
	tst	(sp)+
	mov	r0,_long_sle
	add	$2,6(r5)
	dec	4(r5)
	br	.47
.46:
	mov	$74,_long_sle
	br	.32
.47:
.45:
	br	.41
.50:
	mov	$1,_video
	cmpb	1(r3),$164
	beq	.77773
	cmpb	1(r3),$124
	bne	.51
.77773:
	mov	r3,-(sp)
	add	$2,(sp)
	jsr	pc,_atoi
	tst	(sp)+
	mov	r0,_video
	cmp	_video,$64
	bne	.52
	mov	$1,_isvt52
	br	.53
.52:
	cmp	_video,$144
	bne	.54
	clr	_isvt52
	br	.55
.54:
	.psect	c~strn
.56:
	.byte	77,125,156,153,156,157,167,156,40,166,151,144
	.byte	145,157,40,42,45,163,42,12,0
	.psect	c~code
	mov	r3,-(sp)
	mov	$.56,-(sp)
	mov	_stderr,-(sp)
	jsr	pc,_fprintf
	add	$6,sp
.55:
.53:
	br	.41
.51:
	br	.32
.57:
	.psect	c~strn
.61:
	.byte	167,0
	.psect	c~code
	mov	$.61,-(sp)
	mov	6(r5),r0
	mov	4(r0),-(sp)
	jsr	pc,_fopen
	cmp	(sp)+,(sp)+
	mov	r0,_talkfd
	bne	.60
	mov	6(r5),r0
	mov	4(r0),-(sp)
	jsr	pc,_perror
	tst	(sp)+
	mov	$2,-(sp)
	jsr	pc,_exit
	tst	(sp)+
.60:
	add	$2,6(r5)
	dec	4(r5)
	br	.41
.62:
	.psect	c~strn
.64:
	.byte	167,0
	.psect	c~code
	mov	$.64,-(sp)
	mov	6(r5),r0
	mov	4(r0),-(sp)
	jsr	pc,_fopen
	cmp	(sp)+,(sp)+
	mov	r0,_extrafd
	bne	.63
	mov	6(r5),r0
	mov	4(r0),-(sp)
	jsr	pc,_perror
	tst	(sp)+
	mov	$2,-(sp)
	jsr	pc,_exit
	tst	(sp)+
.63:
	add	$2,6(r5)
	dec	4(r5)
	br	.41
.65:
	.psect	c~strn
.66:
	.byte	77,125,156,153,156,157,167,156,40,157,160,164
	.byte	151,157,156,40,47,45,143,47,12,0
	.psect	c~code
	movb	(r3),r0
	mov	r0,-(sp)
	mov	$.66,-(sp)
	mov	_stderr,-(sp)
	jsr	pc,_fprintf
	add	$6,sp
	.psect	c~strn
.67:
	.byte	117,160,164,151,157,156,40,163,164,162,151,156
	.byte	147,40,151,163,40,42,45,163,42,12,0
	.psect	c~code
	mov	r3,-(sp)
	mov	$.67,-(sp)
	mov	_stderr,-(sp)
	jsr	pc,_fprintf
	add	$6,sp
	br	.32
.33:
	sub	$141,r0

	cmp	r0,$26
	bhi	.65
	asl	r0
	jmp	*.77772(r0)
	.psect	c~mwcn
.77772:
	.word	.34,.65,.35,.57,.65,.36,.65,.42,.65,.65,.65,.65
	.word	.65,.65,.65,.65,.65,.65,.43,.65,.65,.50,.62
	.psect	c~code
.32:
.26:
	inc	r3
.27:
	tstb	(r3)
	bne	.30
.25:
.24:
.15:
.41:
	dec	4(r5)
	add	$2,6(r5)
	br	.13
.12:
	jsr	pc,_setup_co
	tst	_video
	beq	.70
	mov	$1,-(sp)
	mov	$1,-(sp)
	jsr	pc,_erpage
	cmp	(sp)+,(sp)+
.70:
	tst	_doall
	beq	.71
	mov	$1,-12(r5)
	sxt	-14(r5)
	br	.74
.75:
	clr	-(sp)
	jsr	pc,_time
	tst	(sp)+
	mov	r1,-(sp)
	mov	r0,-(sp)
	mov	-12(r5),-(sp)
	mov	-14(r5),-(sp)
	jsr	pc,_docookie
	add	$10,sp
.73:
	add	$1,-12(r5)
	adc	-14(r5)
.74:
	cmp	-14(r5),_header
	bgt	.77771
	blt	.75
	cmp	-12(r5),_header+2
	blos	.75
.77771:
.72:
.71:
	tst	_continuo
	beq	.76
	mov	$177777,-12(r5)
	sxt	-14(r5)
.76:
	mov	-12(r5),r1
	mov	-14(r5),r0
	ashc	$0,r0
	ble	.77
	cmp	-14(r5),_header
	bgt	.77770
	blt	.100
	cmp	-12(r5),_header+2
	blos	.100
.77770:
	.psect	c~strn
.101:
	.byte	115,151,163,146,157,162,164,165,156,145,72,40
	.byte	164,150,145,162,145,40,141,162,145,40,157,156
	.byte	154,171,40,45,154,144,40,143,157,157,153,151,145
	.byte	163,56,12,0
	.psect	c~code
	mov	_header+2,-(sp)
	mov	_header,-(sp)
	mov	$.101,-(sp)
	mov	$_t,-(sp)
	jsr	pc,_sprintf
	add	$10,sp
	clr	-(sp)
	jsr	pc,_time
	tst	(sp)+
	mov	r1,-(sp)
	mov	r0,-(sp)
	mov	$_t,-(sp)
	mov	-12(r5),-(sp)
	mov	-14(r5),-(sp)
	jsr	pc,_output
	add	$12,sp
	br	.102
.100:
	clr	-(sp)
	jsr	pc,_time
	tst	(sp)+
	mov	r1,-(sp)
	mov	r0,-(sp)
	mov	-12(r5),-(sp)
	mov	-14(r5),-(sp)
	jsr	pc,_docookie
	add	$10,sp
.102:
	br	.103
.77:
	mov	-12(r5),r1
	mov	-14(r5),r0
	neg	r0
	neg	r1
	sbc	r0
	mov	r1,r4
	bne	.104
	mov	$1,r4
.104:
.106:
	mov	r4,r0
	dec	r4
	tst	r0
	ble	.105
	jsr	pc,_rand
	mov	r0,-14(r5)
	mov	r1,-12(r5)
	clr	-(sp)
	jsr	pc,_time
	tst	(sp)+
	mov	r0,-20(r5)
	mov	r1,-16(r5)
	.psect	c~mwcn
.77767:
	.word	37777,177777
	.psect	c~code
	mov	_header+2,-(sp)
	mov	_header,-(sp)
	mov	-16(r5),-(sp)
	mov	-20(r5),-(sp)
	mov	-12(r5),r1
	mov	-14(r5),r0
	xor	r0,(sp)
	mov	(sp)+,r0
	xor	r1,(sp)
	mov	(sp)+,r1
	mov	r1,-(sp)
	mov	r0,-(sp)
	mov	.77767+2,r1
	mov	.77767,r0
	com	r0
	com	r1
	bic	r1,2(sp)
	bic	r0,(sp)
	.globl	mod~l
	jsr	pc,mod~l
	add	$10,sp
	mov	r0,-14(r5)
	mov	r1,-12(r5)
	mov	-16(r5),-(sp)
	mov	-20(r5),-(sp)
	mov	$1,-(sp)
	sxt	-(sp)
	add	-12(r5),2(sp)
	adc	(sp)
	add	-14(r5),(sp)
	jsr	pc,_docookie
	add	$10,sp
	tst	_continuo
	beq	.107
	mov	$1,r4
.107:
	tst	r4
	ble	.110
	tst	_long_sle
	ble	.111
	mov	_long_sle,-(sp)
	jsr	pc,_sleep
	tst	(sp)+
	br	.112
.111:
	mov	_linecoun,r2
	inc	r2
	asl	r2
	tst	r2
	ble	.113
	mov	r2,-(sp)
	jsr	pc,_sleep
	tst	(sp)+
.113:
.112:
.110:
	br	.106
.105:
.103:
.114:
	tst	_extrafd
	beq	.115
	mov	_extrafd,-(sp)
	jsr	pc,_fclose
	tst	(sp)+
.115:
	tst	_talkfd
	beq	.116
	mov	_talkfd,-(sp)
	jsr	pc,_fclose
	tst	(sp)+
.116:
.11:
	jmp	cret~
	.psect	c~data
	.even
	.psect	c~code
_setup_co:
	jsr	r5,csv~
	tst	_cookfd
	bne	.120
	mov	$_cookfile,r4
	br	.123
.124:
	.psect	c~strn
.125:
	.byte	164,162,171,151,156,147,40,42,45,163,42,12,0
	.psect	c~code
	mov	(r4),-(sp)
	mov	$.125,-(sp)
	mov	_stderr,-(sp)
	jsr	pc,_fprintf
	add	$6,sp
	.psect	c~strn
.127:
	.byte	162,165,156,0
	.psect	c~code
	mov	$.127,-(sp)
	mov	(r4),-(sp)
	jsr	pc,_fopen
	cmp	(sp)+,(sp)+
	mov	r0,_cookfd
	beq	.126
	.psect	c~strn
.130:
	.byte	143,157,157,153,151,145,40,146,151,154,145,40
	.byte	42,45,163,42,40,157,160,145,156,12,0
	.psect	c~code
	mov	(r4),-(sp)
	mov	$.130,-(sp)
	mov	_stderr,-(sp)
	jsr	pc,_fprintf
	add	$6,sp
	br	.121
.126:
	mov	(r4),-(sp)
	jsr	pc,_perror
	tst	(sp)+
.122:
	add	$2,r4
.123:
	tst	(r4)
	bne	.124
.121:
	tst	_cookfd
	bne	.131
	.psect	c~strn
.132:
	.byte	103,141,156,47,164,40,157,160,145,156,40,143,157
	.byte	157,153,151,145,40,146,151,154,145,12,0
	.psect	c~code
	mov	$.132,-(sp)
	mov	_stderr,-(sp)
	jsr	pc,_fprintf
	cmp	(sp)+,(sp)+
	mov	$2,-(sp)
	jsr	pc,_exit
	tst	(sp)+
.131:
.120:
	mov	_cookfd,-(sp)
	mov	$46,-(sp)
	mov	$_header,-(sp)
	jsr	pc,_fget
	add	$6,sp
	mov 	r0,r3
	cmp	r3,$46
	beq	.133
	.psect	c~strn
.134:
	.byte	122,145,141,144,151,156,147,40,150,145,141,144
	.byte	145,162,40,146,151,154,145,0
	.psect	c~code
	mov	$.134,-(sp)
	mov	r3,-(sp)
	mov	$46,-(sp)
	jsr	pc,_rerror
	add	$6,sp
.133:
	mov	_cookfd,-(sp)
	mov	_header+10,-(sp)
	mov	$_topindex,-(sp)
	jsr	pc,_fget
	add	$6,sp
	mov 	r0,r3
	cmp	r3,_header+10
	beq	.135
	.psect	c~strn
.136:
	.byte	122,145,141,144,151,156,147,40,164,157,160,55
	.byte	154,145,166,145,154,40,151,156,144,145,170,0
	.psect	c~code
	mov	$.136,-(sp)
	mov	r3,-(sp)
	mov	_header+10,-(sp)
	jsr	pc,_rerror
	add	$6,sp
.135:
.117:
	jmp	cret~
	.psect	c~data
	.even
	.psect	c~code
_rerror:
	jsr	r5,csv~
	mov	10(r5),-(sp)
	jsr	pc,_perror
	tst	(sp)+
	.psect	c~strn
.140:
	.byte	145,170,160,145,143,164,145,144,40,45,144,40,142
	.byte	171,164,145,163,54,40,162,145,141,144,40,45,144
	.byte	40,142,171,164,145,163,12,0
	.psect	c~code
	mov	6(r5),-(sp)
	mov	4(r5),-(sp)
	mov	$.140,-(sp)
	mov	_stderr,-(sp)
	jsr	pc,_fprintf
	add	$10,sp
	.psect	c~strn
.141:
	.byte	103,141,156,47,164,40,143,157,156,164,151,156
	.byte	165,145,12,0
	.psect	c~code
	mov	$.141,-(sp)
	mov	_stderr,-(sp)
	jsr	pc,_fprintf
	cmp	(sp)+,(sp)+
	mov	$2,-(sp)
	jsr	pc,_exit
	tst	(sp)+
.137:
	jmp	cret~
	.psect	c~data
	.even
	.psect	c~code
_docookie:
	jsr	r5,csv~
	sub	$6,sp
	sub	$1,6(r5)
	sbc	4(r5)
	mov	_header+4,-14(r5)
	sxt	-16(r5)
	mov	-14(r5),-(sp)
	mov	-16(r5),-(sp)
	mov	6(r5),-(sp)
	mov	4(r5),-(sp)
	.globl	div~l
	jsr	pc,div~l
	add	$10,sp
	mov	r0,-16(r5)
	mov	r1,-14(r5)
	mov	-14(r5),r3
	cmp	r3,_header+6
	blt	.143
	.psect	c~strn
.144:
	.byte	102,165,147,72,40,107,157,156,145,40,164,157,157
	.byte	40,146,141,162,54,40,151,156,144,145,170,40,75
	.byte	40,45,144,54,40,155,141,170,40,75,40,45,144,12
	.byte	0
	.psect	c~code
	mov	_header+6,-(sp)
	mov	r3,-(sp)
	mov	$.144,-(sp)
	mov	_stderr,-(sp)
	jsr	pc,_fprintf
	add	$10,sp
	mov	$2,-(sp)
	jsr	pc,_exit
	tst	(sp)+
.143:
	mov	r3,r0
	asl	r0
	asl	r0
	add	$_topindex,r0
	mov	(r0),-12(r5)
	mov	2(r0),-10(r5)
	clr	-(sp)
	mov	-10(r5),-(sp)
	mov	-12(r5),-(sp)
	mov	_cookfd,-(sp)
	jsr	pc,_fseek
	add	$10,sp
	tst	r0
	beq	.145
	.psect	c~strn
.146:
	.byte	143,157,157,153,151,145,40,146,151,154,145,0
	.psect	c~code
	mov	$.146,-(sp)
	jsr	pc,_perror
	tst	(sp)+
	mov	$2,-(sp)
	jsr	pc,_exit
	tst	(sp)+
.145:
	mov	_cookfd,-(sp)
	mov	_header+10,-(sp)
	mov	$_t,-(sp)
	jsr	pc,_fget
	add	$6,sp
	mov 	r0,r4
	cmp	r4,_header+10
	beq	.147
	.psect	c~strn
.150:
	.byte	163,145,145,153,40,164,157,40,163,165,142,55,151
	.byte	156,144,145,170,40,45,144,54,40,45,154,144,56
	.byte	40,45,60,66,157,40,45,60,66,157,12,0
	.psect	c~code
	mov	-10(r5),-(sp)
	mov	-12(r5),-(sp)
	mov	-10(r5),-(sp)
	mov	-12(r5),-(sp)
	mov	r3,-(sp)
	mov	$.150,-(sp)
	mov	_stderr,-(sp)
	jsr	pc,_fprintf
	add	$16,sp
	.psect	c~strn
.151:
	.byte	103,141,156,47,164,40,162,145,141,144,40,163,165
	.byte	142,137,151,156,144,145,170,0
	.psect	c~code
	mov	$.151,-(sp)
	mov	r4,-(sp)
	mov	_header+10,-(sp)
	jsr	pc,_rerror
	add	$6,sp
.147:
	mov	_header+4,-14(r5)
	sxt	-16(r5)
	mov	-14(r5),-(sp)
	mov	-16(r5),-(sp)
	mov	6(r5),-(sp)
	mov	4(r5),-(sp)
	.globl	mod~l
	jsr	pc,mod~l
	add	$10,sp
	mov	r0,-16(r5)
	mov	r1,-14(r5)
	mov	-14(r5),r3
	mov	r3,r0
	asl	r0
	asl	r0
	add	$_t,r0
	mov	(r0),-12(r5)
	mov	2(r0),-10(r5)
	clr	-(sp)
	mov	-10(r5),-(sp)
	mov	-12(r5),-(sp)
	mov	_cookfd,-(sp)
	jsr	pc,_fseek
	add	$10,sp
	tst	r0
	beq	.152
	.psect	c~strn
.153:
	.byte	155,151,156,157,162,40,151,156,144,145,170,40
	.byte	163,145,145,153,0
	.psect	c~code
	mov	$.153,-(sp)
	jsr	pc,_perror
	tst	(sp)+
	.psect	c~strn
.154:
	.byte	77,122,145,161,165,145,163,164,151,156,147,40
	.byte	143,157,157,153,151,145,40,45,154,144,54,40,155
	.byte	141,170,40,75,40,45,154,144,12,0
	.psect	c~code
	mov	_header+2,-(sp)
	mov	_header,-(sp)
	mov	6(r5),-(sp)
	mov	4(r5),-(sp)
	mov	$.154,-(sp)
	mov	_stderr,-(sp)
	jsr	pc,_fprintf
	add	$14,sp
	br	.142
.152:
	mov	$_t,r2
.156:
	mov	_cookfd,-(sp)
	mov	$4000,-(sp)
	mov	r2,r0
	sub	$_t,r0
	sub	r0,(sp)
	mov	r2,-(sp)
	jsr	pc,_fget
	add	$6,sp
	tst	r0
	ble	.155
	mov	_cookfd,-(sp)
	jsr	pc,_feof
	tst	(sp)+
	tst	r0
	bne	.155
	cmpb	(r2),$45
	beq	.155
	cmpb	1(r2),$45
	beq	.155
	mov	r2,-(sp)
	jsr	pc,_strlen
	tst	(sp)+
	add	r0,r2
	br	.156
.155:
	clrb	(r2)
	mov	_cookfd,-(sp)
	jsr	pc,_feof
	tst	(sp)+
	tst	r0
	beq	.157
	.psect	c~strn
.160:
	.byte	103,141,156,47,164,40,162,145,141,144,40,143,157
	.byte	157,153,151,145,0
	.psect	c~code
	mov	$.160,-(sp)
	mov	r2,-(sp)
	sub	$_t,(sp)
	mov	r2,-(sp)
	sub	$_t,(sp)
	jsr	pc,_rerror
	add	$6,sp
.157:
	tst	_notLong
	beq	.161
	mov	$_t,-(sp)
	jsr	pc,_isLong
	tst	(sp)+
	tst	r0
	beq	.161
	mov	12(r5),-(sp)
	mov	10(r5),-(sp)
	mov	$1,-(sp)
	sxt	-(sp)
	add	6(r5),2(sp)
	adc	(sp)
	add	4(r5),(sp)
	jsr	pc,_antihein
	add	$10,sp
	br	.162
.161:
	mov	12(r5),-(sp)
	mov	10(r5),-(sp)
	mov	$_t,-(sp)
	mov	$1,-(sp)
	sxt	-(sp)
	add	6(r5),2(sp)
	adc	(sp)
	add	4(r5),(sp)
	jsr	pc,_output
	add	$12,sp
.162:
.142:
	jmp	cret~
	.psect	c~data
	.even
_anti1:
	.psect	c~strn
.163:
	.byte	101,40,110,145,151,156,154,151,145,156,40,103
	.byte	157,157,153,151,145,40,171,157,165,40,144,157
	.byte	40,144,151,163,164,141,151,156,54,12,111,47,154
	.byte	154,40,163,141,171,40,156,157,40,155,157,162,145
	.byte	40,164,157,40,163,157,157,164,150,145,40,171,157
	.byte	165,162,40,142,162,141,151,156,56,0
	.psect	c~data
	.word	.163
	.psect	c~strn
.164:
	.byte	111,47,144,40,162,141,164,150,145,162,40,144,162
	.byte	151,156,153,40,141,40,147,141,154,154,157,156
	.byte	40,157,146,40,157,166,145,162,141,147,145,40,122
	.byte	150,151,156,145,40,167,151,156,145,54,12,124,150
	.byte	141,156,40,162,145,141,144,40,141,40,161,165,157
	.byte	164,145,40,142,171,40,122,157,142,145,162,164
	.byte	40,101,56,40,110,145,151,156,154,151,145,156,56
	.byte	0
	.psect	c~data
	.word	.164
	.psect	c~strn
.165:
	.byte	111,47,144,40,162,141,164,150,145,162,40,142,151
	.byte	164,145,40,142,157,151,154,163,40,146,162,157
	.byte	155,40,141,156,40,145,154,145,160,150,141,156
	.byte	164,47,163,40,142,145,150,151,156,144,54,12,124
	.byte	150,141,156,40,162,145,141,144,40,155,157,162
	.byte	145,40,161,165,157,164,145,163,40,142,171,40,122
	.byte	157,142,145,162,164,40,101,56,40,110,145,151,156
	.byte	154,151,145,156,56,0
	.psect	c~data
	.word	.165
	.psect	c~strn
.166:
	.byte	52,111,47,144,40,162,141,164,150,145,162,40,141
	.byte	40,164,141,170,40,141,165,144,151,164,40,146,157
	.byte	165,156,144,40,155,145,40,167,162,157,156,147
	.byte	54,0
	.psect	c~data
	.word	.166
	.psect	c~strn
.167:
	.byte	52,111,47,144,40,162,141,164,150,145,162,40,142
	.byte	145,40,144,162,151,142,142,154,145,144,40,142
	.byte	171,40,157,154,144,40,113,151,156,147,40,113,157
	.byte	156,147,54,0
	.psect	c~data
	.word	.167
	.psect	c~strn
.170:
	.byte	52,111,47,144,40,162,141,164,150,145,162,40,146
	.byte	151,156,144,40,160,141,162,141,161,165,141,164
	.byte	40,151,156,40,155,171,40,142,157,156,147,54,0
	.psect	c~data
	.word	.170
	.psect	c~strn
.171:
	.byte	52,111,47,144,40,162,141,164,150,145,162,40,103
	.byte	150,165,143,153,40,102,141,162,162,151,163,40
	.byte	165,163,145,144,40,155,145,40,141,163,40,164,150
	.byte	145,40,147,157,156,147,54,0
	.psect	c~data
	.word	.171
	.psect	c~strn
.172:
	.byte	52,111,47,144,40,162,141,164,150,145,162,40,144
	.byte	157,40,165,160,144,141,164,145,163,40,164,157
	.byte	40,101,164,141,162,151,40,120,157,156,147,54,0
	.psect	c~data
	.word	.172
	.psect	c~strn
.173:
	.byte	52,111,47,144,40,162,141,164,150,145,162,40,167
	.byte	162,151,164,145,40,141,40,42,125,163,145,162,47
	.byte	163,40,107,165,151,144,145,40,164,157,40,120,157
	.byte	156,147,42,54,0
	.psect	c~data
	.word	.173
	.even
_anti2:
	.psect	c~strn
.174:
	.byte	124,150,141,156,40,162,145,141,144,40,141,156
	.byte	157,164,150,145,162,40,161,165,157,164,145,40
	.byte	142,171,40,114,141,172,141,162,165,163,40,114
	.byte	157,156,147,56,0
	.psect	c~data
	.word	.174
	.psect	c~strn
.175:
	.byte	124,150,141,156,40,150,141,166,145,40,164,157
	.byte	40,162,145,141,144,40,155,157,162,145,40,157,146
	.byte	40,114,141,172,141,162,165,163,40,114,157,156
	.byte	147,56,0
	.psect	c~data
	.word	.175
	.psect	c~strn
.176:
	.byte	124,150,141,156,40,142,145,40,146,157,162,143
	.byte	145,144,40,164,157,40,143,157,156,163,151,144
	.byte	145,162,40,155,157,162,145,40,114,141,172,141
	.byte	162,165,163,40,114,157,156,147,56,0
	.psect	c~data
	.word	.176
	.even
	.psect	c~code
_isLong:
	jsr	r5,csv~
	mov	4(r5),r4
.201:
	movb	(r4)+,r3
	beq	.200
	movb	r3,r0
	br	.203
.204:
	.psect	c~strn
.206:
	.byte	145,151,156,154,151,145,156,0
	.psect	c~code
	mov	$.206,-(sp)
	mov	r4,-(sp)
	jsr	pc,_streq
	cmp	(sp)+,(sp)+
	tst	r0
	beq	.205
	mov	$1,r0
	br	.177
.205:
	br	.202
.207:
	.psect	c~strn
.211:
	.byte	141,172,141,162,165,163,40,114,157,156,147,0
	.psect	c~code
	mov	$.211,-(sp)
	mov	r4,-(sp)
	jsr	pc,_streq
	cmp	(sp)+,(sp)+
	tst	r0
	beq	.210
	mov	$1,r0
	br	.177
.210:
	br	.202
.203:
	sub	$110,r0

	cmp	r0,$4
	bhi	.202
	asl	r0
	jmp	*.77766(r0)
	.psect	c~mwcn
.77766:
	.word	.204,.202,.202,.202,.207
	.psect	c~code
.202:
	br	.201
.200:
	clr	r0
.177:
	jmp	cret~
	.psect	c~data
	.even
_antibuff:
	.blkb	401
	.even
	.psect	c~code
_antihein:
	jsr	r5,csv~
	mov	$2,-(sp)
	mov	$22,-(sp)
	mov	$77777,-(sp)
	sxt	-(sp)
	jsr	pc,_rand
	com	r0
	com	r1
	bic	r1,2(sp)
	bic	r0,(sp)
	.globl	mod~li
	jsr	pc,mod~li
	add	$6,sp
	mov	r1,-(sp)
	mov	r0,-(sp)
	.globl	div~li
	jsr	pc,div~li
	add	$6,sp
	mov 	r0,r2
	mov 	r1,r3
	mov	r3,r4
	asl	r4
	add	$_anti1,r4
	mov	(r4),r4
	cmpb	(r4),$52
	bne	.213
	.psect	c~strn
.214:
	.byte	45,163,12,45,163,0
	.psect	c~code
	mov	$2,-(sp)
	mov	$6,-(sp)
	mov	$77777,-(sp)
	sxt	-(sp)
	jsr	pc,_rand
	com	r0
	com	r1
	bic	r1,2(sp)
	bic	r0,(sp)
	.globl	mod~li
	jsr	pc,mod~li
	add	$6,sp
	mov	r1,-(sp)
	mov	r0,-(sp)
	.globl	div~li
	jsr	pc,div~li
	add	$6,sp
	mov 	r0,r2
	mov 	r1,r3
	mov	r3,r0
	asl	r0
	add	$_anti2,r0
	mov	(r0),r0
	mov	r0,-(sp)
	mov	r4,-(sp)
	inc	(sp)
	mov	$.214,-(sp)
	mov	$_antibuff,-(sp)
	jsr	pc,_sprintf
	add	$10,sp
	br	.215
.213:
	mov	r4,-(sp)
	mov	$_antibuff,-(sp)
	jsr	pc,_strcpy
	cmp	(sp)+,(sp)+
.215:
	mov	12(r5),-(sp)
	mov	10(r5),-(sp)
	mov	$_antibuff,-(sp)
	mov	6(r5),-(sp)
	mov	4(r5),-(sp)
	jsr	pc,_output
	add	$12,sp
.212:
	jmp	cret~
	.psect	c~data
	.even
_nvoice:
	.blkb	2
	.even
_voices:
	.psect	c~strn
.216:
	.byte	133,72,156,160,135,0
	.psect	c~data
	.word	.216
	.psect	c~strn
.217:
	.byte	133,72,156,142,135,0
	.psect	c~data
	.word	.217
	.psect	c~strn
.220:
	.byte	133,72,156,150,135,0
	.psect	c~data
	.word	.220
	.psect	c~strn
.221:
	.byte	133,72,156,165,135,0
	.psect	c~data
	.word	.221
	.psect	c~strn
.222:
	.byte	133,72,156,153,135,0
	.psect	c~data
	.word	.222
	.psect	c~strn
.223:
	.byte	133,72,156,146,135,0
	.psect	c~data
	.word	.223
	.psect	c~strn
.224:
	.byte	133,72,156,162,135,0
	.psect	c~data
	.word	.224,0
	.even
	.psect	c~code
_output:
	jsr	r5,csv~
	mov	14(r5),-(sp)
	mov	12(r5),-(sp)
	mov	6(r5),-(sp)
	mov	4(r5),-(sp)
	jsr	pc,_startout
	add	$10,sp
	tst	_extrafd
	beq	.226
	.psect	c~strn
.227:
	.byte	45,163,12,0
	.psect	c~code
	mov	10(r5),-(sp)
	mov	$.227,-(sp)
	mov	_extrafd,-(sp)
	jsr	pc,_fprintf
	add	$6,sp
.226:
	tst	_talkfd
	beq	.230
	mov	10(r5),-(sp)
	jsr	pc,_speak
	tst	(sp)+
.230:
	.psect	c~strn
.231:
	.byte	45,163,45,163,0
	.psect	c~code
	.psect	c~strn
.232:
	.byte	45,45,12,0
	.psect	c~code
	.psect	c~strn
.233:
	.byte	0
	.psect	c~code
	cmp	_doall,$1
	ble	.77765
	mov	$.232,-(sp)
	br	.77764
.77765:
	mov	$.233,-(sp)
.77764:
	mov	10(r5),-(sp)
	mov	$.231,-(sp)
	jsr	pc,_printf
	add	$6,sp
	mov	$1,_linecoun
	mov	10(r5),r4
.235:
	mov	$12,-(sp)
	mov	r4,-(sp)
	jsr	pc,_strchr
	cmp	(sp)+,(sp)+
	mov 	r0,r4
	beq	.234
	inc	_linecoun
	inc	r4
	br	.235
.234:
	jsr	pc,_endoutpu
.225:
	jmp	cret~
	.psect	c~data
	.even
	.psect	c~code
_speak:
	jsr	r5,csv~
	mov	_nvoice,r0
	asl	r0
	add	$_voices,r0
	mov	(r0),r0
	bne	.237
	clr	_nvoice
.237:
	.psect	c~strn
.240:
	.byte	45,163,40,0
	.psect	c~code
	mov	_nvoice,r0
	asl	r0
	add	$_voices,r0
	mov	(r0),r0
	mov	r0,-(sp)
	mov	$.240,-(sp)
	mov	_talkfd,-(sp)
	jsr	pc,_fprintf
	add	$6,sp
	inc	_nvoice
	mov	4(r5),r4
	br	.243
.244:
	mov	r3,r0
	br	.246
.247:
	mov	_talkfd,-(sp)
	mov	$54,-(sp)
	jsr	pc,_putc
	cmp	(sp)+,(sp)+
	movb	(r4),r0
	mov	r0,-(sp)
	jsr	pc,_isspace
	tst	(sp)+
	tst	r0
	bne	.250
	mov	_talkfd,-(sp)
	mov	$40,-(sp)
	jsr	pc,_putc
	cmp	(sp)+,(sp)+
.250:
	br	.245
.251:
	mov	_talkfd,-(sp)
	mov	$50,-(sp)
	jsr	pc,_putc
	cmp	(sp)+,(sp)+
	br	.245
.252:
	mov	_talkfd,-(sp)
	mov	$51,-(sp)
	jsr	pc,_putc
	cmp	(sp)+,(sp)+
	br	.245
.253:
	movb	(r4),r0
	mov	r0,-(sp)
	jsr	pc,_isalpha
	tst	(sp)+
	tst	r0
	beq	.254
	cmpb	1(r4),$56
	bne	.254
	mov	_talkfd,-(sp)
	mov	r3,-(sp)
	jsr	pc,_putc
	cmp	(sp)+,(sp)+
	mov	$40,r3
.254:
	mov	_talkfd,-(sp)
	mov	r3,-(sp)
	jsr	pc,_putc
	cmp	(sp)+,(sp)+
	br	.245
.255:
	mov	4(r5),r0
	inc	r0
	cmp	r0,r4
	bhis	.256
	movb	-2(r4),r0
	mov	r0,-(sp)
	jsr	pc,_isalpha
	tst	(sp)+
	tst	r0
	bne	.256
	cmpb	(r4),$77
	bne	.256
	mov	_talkfd,-(sp)
	mov	r3,-(sp)
	jsr	pc,_putc
	cmp	(sp)+,(sp)+
	mov	$40,r3
	inc	r4
.256:
	mov	_talkfd,-(sp)
	mov	r3,-(sp)
	jsr	pc,_putc
	cmp	(sp)+,(sp)+
	br	.245
.257:
	mov	4(r5),r0
	add	$3,r0
	cmp	r0,r4
	bhis	.260
	movb	-2(r4),r0
	mov	r0,-(sp)
	jsr	pc,_isupper
	tst	(sp)+
	tst	r0
	beq	.260
	movb	-3(r4),r0
	mov	r0,-(sp)
	jsr	pc,_isspace
	tst	(sp)+
	tst	r0
	beq	.260
	movb	(r4),r0
	mov	r0,-(sp)
	jsr	pc,_isspace
	tst	(sp)+
	tst	r0
	bne	.242
.260:
	mov	4(r5),r0
	add	$2,r0
	cmp	r0,r4
	bhis	.261
	cmpb	-2(r4),$56
	bne	.261
	movb	(r4),r0
	mov	r0,-(sp)
	jsr	pc,_isalpha
	tst	(sp)+
	tst	r0
	beq	.261
	mov	_talkfd,-(sp)
	mov	r3,-(sp)
	jsr	pc,_putc
	cmp	(sp)+,(sp)+
	mov	$40,r3
.261:
	mov	_talkfd,-(sp)
	mov	r3,-(sp)
	jsr	pc,_putc
	cmp	(sp)+,(sp)+
	br	.245
.262:
	mov	4(r5),r0
	add	$2,r0
	cmp	r0,r4
	bhis	.263
	movb	-2(r4),r0
	mov	r0,-(sp)
	jsr	pc,_isalpha
	tst	(sp)+
	tst	r0
	beq	.263
	movb	(r4),r0
	mov	r0,-(sp)
	jsr	pc,_isspace
	tst	(sp)+
	tst	r0
	beq	.263
	mov	_talkfd,-(sp)
	mov	r3,-(sp)
	jsr	pc,_putc
	cmp	(sp)+,(sp)+
.263:
	br	.245
.264:
	mov	_talkfd,-(sp)
	mov	r3,-(sp)
	jsr	pc,_putc
	cmp	(sp)+,(sp)+
	mov	r3,-(sp)
	jsr	pc,_isdigit
	tst	(sp)+
	tst	r0
	beq	.265
	movb	(r4),r0
	mov	r0,-(sp)
	jsr	pc,_isdigit
	tst	(sp)+
	tst	r0
	bne	.265
	movb	(r4),r0
	br	.267
.270:
	cmpb	1(r4),$55
	bne	.266
.271:
	inc	r4
.272:
	mov	_talkfd,-(sp)
	mov	$54,-(sp)
	jsr	pc,_putc
	cmp	(sp)+,(sp)+
	mov	_talkfd,-(sp)
	mov	$40,-(sp)
	jsr	pc,_putc
	cmp	(sp)+,(sp)+
	inc	r4
	cmpb	(r4),$77
	bne	.273
	cmpb	1(r4),$51
	bne	.273
	add	$2,r4
.273:
	br	.266
.267:
	mov	$.77762,r1
.77761:
	cmp	r0,(r1)+
	bhi	.77761
	bne	.266
	jmp	*.77763-.77762-2(r1)
	.psect	c~mwcn
.77762:
	.word	55,77
	.word	-1
.77763:
	.word	.272,.270,.266
	.psect	c~code
.266:
.265:
	br	.245
.246:
	mov	$.77757,r1
.77756:
	cmp	r0,(r1)+
	bhi	.77756
	bne	.264
	jmp	*.77760-.77757-2(r1)
	.psect	c~mwcn
.77757:
	.word	50,51,54,56,77,133,135
	.word	-1
.77760:
	.word	.253,.255,.247,.257,.262,.251,.252,.264
	.psect	c~code
.245:
.242:
.243:
	movb	(r4)+,r3
	bne	.244
.241:
	mov	_talkfd,-(sp)
	mov	$14,-(sp)
	jsr	pc,_putc
	cmp	(sp)+,(sp)+
.236:
	jmp	cret~
	.psect	c~data
	.even
	.psect	c~code
_startout:
	jsr	r5,csv~
	tst	_video
	beq	.275
	.psect	c~strn
.276:
	.byte	45,154,144,0
	.psect	c~code
	mov	6(r5),-(sp)
	mov	4(r5),-(sp)
	mov	$.276,-(sp)
	mov	$_temp_tex,-(sp)
	jsr	pc,_sprintf
	add	$10,sp
	mov	r5,-(sp)
	add	$10,(sp)
	jsr	pc,_ctime
	tst	(sp)+
	mov 	r0,r4
	clrb	30(r4)
	mov	$1,-(sp)
	mov	$1,-(sp)
	jsr	pc,_erpage
	cmp	(sp)+,(sp)+
	tst	_isvt52
	beq	.277
	mov	r4,-(sp)
	mov	$33,-(sp)
	mov	$1,-(sp)
	jsr	pc,_vtout
	add	$6,sp
	mov	$_temp_tex,-(sp)
	mov	$44,-(sp)
	mov	$3,-(sp)
	jsr	pc,_vtout
	add	$6,sp
	br	.300
.277:
	tst	_~~rsts
	beq	.301
	.psect	c~strn
.302:
	.byte	233,43,63,0
	.psect	c~code
	mov	$.302,-(sp)
	mov	$10,-(sp)
	mov	$1,-(sp)
	jsr	pc,_vtout
	add	$6,sp
	mov	r4,-(sp)
	clr	-(sp)
	clr	-(sp)
	jsr	pc,_vtout
	add	$6,sp
	.psect	c~strn
.303:
	.byte	233,43,64,0
	.psect	c~code
	mov	$.303,-(sp)
	mov	$10,-(sp)
	mov	$2,-(sp)
	jsr	pc,_vtout
	add	$6,sp
	mov	r4,-(sp)
	clr	-(sp)
	clr	-(sp)
	jsr	pc,_vtout
	add	$6,sp
	.psect	c~strn
.304:
	.byte	233,43,66,0
	.psect	c~code
	mov	$.304,-(sp)
	mov	$22,-(sp)
	mov	$3,-(sp)
	jsr	pc,_vtout
	add	$6,sp
	mov	$_temp_tex,-(sp)
	clr	-(sp)
	clr	-(sp)
	jsr	pc,_vtout
	add	$6,sp
	br	.305
.301:
	.psect	c~strn
.306:
	.byte	33,43,63,0
	.psect	c~code
	mov	$.306,-(sp)
	mov	$10,-(sp)
	mov	$1,-(sp)
	jsr	pc,_vtout
	add	$6,sp
	mov	r4,-(sp)
	clr	-(sp)
	clr	-(sp)
	jsr	pc,_vtout
	add	$6,sp
	.psect	c~strn
.307:
	.byte	33,43,64,0
	.psect	c~code
	mov	$.307,-(sp)
	mov	$10,-(sp)
	mov	$2,-(sp)
	jsr	pc,_vtout
	add	$6,sp
	mov	r4,-(sp)
	clr	-(sp)
	clr	-(sp)
	jsr	pc,_vtout
	add	$6,sp
	.psect	c~strn
.310:
	.byte	33,43,66,0
	.psect	c~code
	mov	$.310,-(sp)
	mov	$22,-(sp)
	mov	$3,-(sp)
	jsr	pc,_vtout
	add	$6,sp
	mov	$_temp_tex,-(sp)
	clr	-(sp)
	clr	-(sp)
	jsr	pc,_vtout
	add	$6,sp
.305:
.300:
	.psect	c~strn
.311:
	.byte	0
	.psect	c~code
	mov	$.311,-(sp)
	mov	$1,-(sp)
	mov	$5,-(sp)
	jsr	pc,_vtout
	add	$6,sp
.275:
.274:
	jmp	cret~
	.psect	c~data
	.even
	.psect	c~code
_endoutpu:
	jsr	r5,csv~
	tst	_video
	beq	.313
	clr	-(sp)
	clr	-(sp)
	jsr	pc,_erpage
	cmp	(sp)+,(sp)+
	mov	_stdout,-(sp)
	jsr	pc,_fflush
	tst	(sp)+
	br	.314
.313:
	mov	$12,-(sp)
	jsr	pc,_putchar
	tst	(sp)+
.314:
.312:
	jmp	cret~
	.psect	c~data
	.even
	.psect	c~code
_vtcurse:
	jsr	r5,csv~
	tst	4(r5)
	beq	.315
.316:
	tst	_isvt52
	beq	.317
	.psect	c~strn
.320:
	.byte	15,233,131,45,143,45,143,0
	.psect	c~code
	.psect	c~strn
.321:
	.byte	15,33,131,45,143,45,143,0
	.psect	c~code
	mov	6(r5),-(sp)
	add	$40,(sp)
	dec	(sp)
	mov	4(r5),-(sp)
	add	$40,(sp)
	dec	(sp)
	tst	_~~rsts
	beq	.77755
	mov	$.320,-(sp)
	br	.77754
.77755:
	mov	$.321,-(sp)
.77754:
	jsr	pc,_printf
	add	$6,sp
	br	.322
.317:
	.psect	c~strn
.323:
	.byte	15,233,133,45,144,73,45,144,110,0
	.psect	c~code
	.psect	c~strn
.324:
	.byte	15,33,133,45,144,73,45,144,110,0
	.psect	c~code
	mov	6(r5),-(sp)
	mov	4(r5),-(sp)
	tst	_~~rsts
	beq	.77753
	mov	$.323,-(sp)
	br	.77752
.77753:
	mov	$.324,-(sp)
.77752:
	jsr	pc,_printf
	add	$6,sp
.322:
.315:
	jmp	cret~
	.psect	c~data
	.even
	.psect	c~code
_erpage:
	jsr	r5,csv~
	mov	6(r5),-(sp)
	mov	4(r5),-(sp)
	jsr	pc,_vtcurse
	cmp	(sp)+,(sp)+
	tst	_isvt52
	beq	.326
	.psect	c~strn
.327:
	.byte	233,112,0
	.psect	c~code
	.psect	c~strn
.330:
	.byte	33,112,0
	.psect	c~code
	mov	_stdout,-(sp)
	tst	_~~rsts
	beq	.77751
	mov	$.327,-(sp)
	br	.77750
.77751:
	mov	$.330,-(sp)
.77750:
	jsr	pc,_fputs
	cmp	(sp)+,(sp)+
	br	.331
.326:
	.psect	c~strn
.332:
	.byte	233,133,112,0
	.psect	c~code
	.psect	c~strn
.333:
	.byte	33,133,112,0
	.psect	c~code
	mov	_stdout,-(sp)
	tst	_~~rsts
	beq	.77747
	mov	$.332,-(sp)
	br	.77746
.77747:
	mov	$.333,-(sp)
.77746:
	jsr	pc,_fputs
	cmp	(sp)+,(sp)+
.331:
.325:
	jmp	cret~
	.psect	c~data
	.even
	.psect	c~code
_erline:
	jsr	r5,csv~
	mov	6(r5),-(sp)
	mov	4(r5),-(sp)
	jsr	pc,_vtcurse
	cmp	(sp)+,(sp)+
	tst	_isvt52
	beq	.335
	.psect	c~strn
.336:
	.byte	233,113,0
	.psect	c~code
	.psect	c~strn
.337:
	.byte	33,113,0
	.psect	c~code
	mov	_stdout,-(sp)
	tst	_~~rsts
	beq	.77745
	mov	$.336,-(sp)
	br	.77744
.77745:
	mov	$.337,-(sp)
.77744:
	jsr	pc,_fputs
	cmp	(sp)+,(sp)+
	br	.340
.335:
	.psect	c~strn
.341:
	.byte	233,133,113,0
	.psect	c~code
	.psect	c~strn
.342:
	.byte	33,133,113,0
	.psect	c~code
	mov	_stdout,-(sp)
	tst	_~~rsts
	beq	.77743
	mov	$.341,-(sp)
	br	.77742
.77743:
	mov	$.342,-(sp)
.77742:
	jsr	pc,_fputs
	cmp	(sp)+,(sp)+
.340:
.334:
	jmp	cret~
	.psect	c~data
	.even
	.psect	c~code
_vtout:
	jsr	r5,csv~
	mov	6(r5),-(sp)
	mov	4(r5),-(sp)
	jsr	pc,_vtcurse
	cmp	(sp)+,(sp)+
	mov	_stdout,-(sp)
	mov	10(r5),-(sp)
	jsr	pc,_fputs
	cmp	(sp)+,(sp)+
.343:
	jmp	cret~
	.psect	c~data
	.even
	.globl	_startout
	.globl	_sprintf
	.globl	_fflush
	.globl	_isupper
	.globl	_vtcurse
	.globl	_tolower
	.globl	_doall
	.globl	_fseek
	.globl	_ctime
	.globl	_printf
	.globl	_speak
	.globl	_stderr
	.globl	_strchr
	.globl	_video
	.globl	_strlen
	.globl	_sleep
	.globl	_fopen
	.globl	_perror
	.globl	_rerror
	.globl	_feof
	.globl	_stdout
	.globl	_strcpy
	.globl	_main
	.globl	_rand
	.globl	_~~narg
	.globl	_fget
	.globl	_atoi
	.globl	_isvt52
	.globl	_streq
	.globl	_time
	.globl	_output
	.globl	_atol
	.globl	_fputs
	.globl	_exit
	.globl	_putc
	.globl	_old_buff
	.globl	_vtout
	.globl	_~~rsts
	.globl	_docookie
	.globl	_cookfile
	.globl	_antihein
	.globl	_cur_line
	.globl	_long_sle
	.globl	_sc_buff
	.globl	_linecoun
	.globl	_notLong
	.globl	_isalpha
	.globl	_setup_co
	.globl	_temp_tex
	.globl	_isspace
	.globl	_header
	.globl	_topindex
	.globl	_isLong
	.globl	_isdigit
	.globl	_extrafd
	.globl	_continuo
	.globl	_endoutpu
	.globl	_erpage
	.globl	_t
	.globl	_putchar
	.globl	_cookfd
	.globl	_talkfd
	.globl	_fprintf
	.globl	_fclose
	.globl	_erline
	.globl	csv~
	.globl	cret~
	.psect	c~code
	.even
	.psect	c~data
	.even
	.psect	c~mwcn
	.even
