	.psect	.prog.
aet_acce:
	jsr	r0,__csav
	mov	$177775,status
	mov	aet_name,(sp)
	jsr	pc,find_aet
	mov	r0,r2
	beq	.2
	mov	4(r2),(sp)
	mov	password,-(sp)
	jsr	pc,strcmp
	tst	(sp)+
	tst	r0
	bne	.3
	mov	6(r2),(sp)
	jsr	pc,get_f_bi
	mov	r0,r4
	beq	.4
	jsr	pc,gethdr
	mov	r0,r3
	beq	.5
	bis	r4,6(r2)
	mov	r4,12(r3)
	mov	10(r2),(r3)
	mov	r3,10(r2)
	mov	pcb,2(r3)
	mov	nml_ast,4(r3)
	mov	int_ast,6(r3)
	mov	ast_parm,10(r3)
	mov	$2,status
	mov	r2,descript
	mov	r2,r0
	br	.1
.5:
.4:
.3:
.2:
	mov	$0,r0
.1:
	jmp	__cret
aet_clea:
	jsr	r0,__csav
	mov	aether,r4
	br	.11
.10:
	mov	r3,r4
.11:
	tst	r4
	beq	.7
	mov	(r4),r3
	mov	r4,descript
.13:
	jsr	pc,aet_deac
	tst	r0
	bne	.13
.12:
	br	.10
.7:
.6:
	jmp	__cret
aet_crea:
	jsr	r0,__csav
	sub	$4,sp
	mov	$177775,status
	mov	$0,-2(r5)
	mov	$0,r3
	mov	$0,r4
	mov	aet_name,(sp)
	jsr	pc,find_aet
	tst	r0
	bne	.15
	jsr	pc,gethdr
	mov	r0,r4
	beq	.16
	jsr	pc,gethdr
	mov	r0,r3
	beq	.17
	jsr	pc,gtlbuf
	mov	r0,-2(r5)
	beq	.20
	jsr	pc,gtlbuf
	mov	r0,-4(r5)
	beq	.21
	mov	password,(sp)
	mov	-4(r5),-(sp)
	jsr	pc,strcpy
	tst	(sp)+
	mov	aet_name,(sp)
	mov	-2(r5),-(sp)
	jsr	pc,strcpy
	tst	(sp)+
	mov	$0,(r3)
	mov	pcb,2(r3)
	mov	nml_ast,4(r3)
	mov	int_ast,6(r3)
	mov	ast_parm,10(r3)
	mov	$1,12(r3)
	mov	aether,(r4)
	mov	r4,aether
	mov	-2(r5),2(r4)
	mov	-4(r5),4(r4)
	mov	$1,6(r4)
	mov	r3,10(r4)
	mov	$0,12(r4)
	mov	$0,14(r4)
	mov	$1,status
	mov	r4,descript
	mov	r4,r0
	br	.14
.21:
.20:
.17:
.16:
	br	.22
.15:
	tst	if_acces
	beq	.23
	jsr	pc,aet_acce
	br	.14
.23:
.22:
	mov	-2(r5),(sp)
	jsr	pc,ptlbuf
	mov	r3,(sp)
	jsr	pc,puthdr
	mov	r4,(sp)
	jsr	pc,puthdr
	mov	$0,r0
.14:
	jmp	__cret
find_aet:
	jsr	r0,__csav
	mov	aether,r4
	br	.27
.26:
	mov	(r4),r4
.27:
	tst	r4
	beq	.25
	mov	2(r4),(sp)
	mov	12(r5),-(sp)
	jsr	pc,strcmp
	tst	(sp)+
	tst	r0
	beq	.25
.30:
	br	.26
.25:
	mov	r4,r0
.24:
	jmp	__cret
getbuf:
	jsr	r0,__csav
	mov	buf_list,r4
	br	.34
.33:
	mov	(r4),r4
.34:
	tst	r4
	beq	.32
	sub	$40,12(r5)
	ble	.32
.35:
	br	.33
.32:
	tst	12(r5)
	ble	.36
	mov	$0,r0
	br	.31
.36:
	mov	buf_list,r3
	mov	(r4),buf_list
	mov	$0,(r4)
	mov	r3,r0
	br	.31
.37:
.31:
	jmp	__cret
get_f_bi:
	jsr	r0,__csav
	mov	$2,r4
	br	.43
.42:
	asl	r4
.43:
	tst	r4
	beq	.41
	bit	12(r5),r4
	beq	.41
.44:
	br	.42
.41:
	mov	r4,r0
.40:
	jmp	__cret
gethdr:
	jsr	r0,__csav
	mov	msg_list,r4
	tst	r4
	beq	.46
	mov	(r4),msg_list
	mov	$0,4(r4)
.46:
	mov	r4,r0
.45:
	jmp	__cret
gtlbuf:
	jsr	r0,__csav
	mov	nam_list,r4
	tst	r4
	beq	.50
	mov	(r4),nam_list
.50:
	mov	r4,r0
.47:
	jmp	__cret
inshdr:
	jsr	r0,__csav
	mov	12(r5),r0
	mov	14(r0),r4
	beq	.52
	mov	14(r5),2(r4)
	mov	14(r5),r0
	mov	$0,2(r0)
	mov	r4,*14(r5)
	mov	12(r5),r0
	mov	14(r5),14(r0)
	br	.53
.52:
	mov	12(r5),r0
	mov	14(r5),14(r0)
	mov	12(r5),r0
	mov	14(r5),12(r0)
	mov	$0,*14(r5)
	mov	14(r5),r0
	mov	$0,2(r0)
.53:
.51:
	jmp	__cret
ptlbuf:
	jsr	r0,__csav
	tst	12(r5)
	beq	.55
	mov	12(r5),r4
	mov	nam_list,(r4)
	mov	r4,nam_list
.55:
.54:
	jmp	__cret
putbuf:
	jsr	r0,__csav
	mov	12(r5),r0
	mov	4(r0),r4
	br	.61
.60:
	mov	r3,r4
.61:
	tst	r4
	beq	.57
	mov	(r4),r3
	mov	buf_list,(r4)
	mov	r4,buf_list
	br	.60
.57:
	mov	12(r5),r0
	mov	$0,4(r0)
.56:
	jmp	__cret
puthdr:
	jsr	r0,__csav
	tst	12(r5)
	beq	.63
	mov	msg_list,*12(r5)
	mov	12(r5),msg_list
.63:
.62:
	jmp	__cret
remhdr:
	jsr	r0,__csav
	mov	*14(r5),r4
	beq	.65
	mov	14(r5),r0
	mov	2(r0),2(r4)
	br	.66
.65:
	mov	14(r5),r3
	mov	12(r5),r0
	mov	2(r3),12(r0)
.66:
	mov	14(r5),r0
	mov	2(r0),r4
	beq	.67
	mov	*14(r5),(r4)
	br	.70
.67:
	mov	12(r5),r0
	mov	*14(r5),14(r0)
.70:
.64:
	jmp	__cret
aet_time:
	jsr	r0,__csav
	mov	aether,r4
	br	.74
.73:
	mov	(r4),r4
.74:
	tst	r4
	beq	.72
	mov	14(r4),r3
	br	.77
.76:
	mov	r2,r3
.77:
	tst	r3
	beq	.75
	mov	(r3),r2
	sub	$5,12(r3)
	bgt	.100
	mov	r3,(sp)
	mov	r4,-(sp)
	jsr	pc,remhdr
	tst	(sp)+
	mov	r3,(sp)
	jsr	pc,putbuf
	mov	r3,(sp)
	jsr	pc,puthdr
.100:
	br	.76
.75:
	br	.73
.72:
.71:
	jmp	__cret
val_ptr:
	jsr	r0,__csav
	mov	aether,r4
	br	.104
.103:
	mov	(r4),r4
.104:
	tst	r4
	beq	.102
	cmp	r4,12(r5)
	beq	.102
.105:
	br	.103
.102:
	mov	r4,r0
.101:
	jmp	__cret
aet_deac:
	jsr	r0,__csav
	sub	$6,sp
	clr	status
	mov	descript,(sp)
	jsr	pc,val_ptr
	mov	r0,r4
	beq	.107
	mov	$0,r3
	mov	10(r4),r2
	br	.112
.111:
	mov	r2,r3
	mov	(r3),r2
.112:
	tst	r2
	beq	.110
	cmp	2(r2),pcb
	bne	.113
	tst	r3
	bne	.114
	mov	(r2),10(r4)
	br	.115
.114:
	mov	(r2),(r3)
.115:
	mov	12(r2),r0
	com	r0
	mov	r0,-6(r5)
	mov	-6(r5),-(sp)
	com	(sp)
	bic	(sp)+,6(r4)
	mov	r2,(sp)
	jsr	pc,puthdr
	mov	14(r4),-2(r5)
	br	.120
.117:
	mov	-4(r5),-2(r5)
.120:
	tst	-2(r5)
	beq	.116
	mov	*-2(r5),-4(r5)
	mov	-6(r5),-(sp)
	com	(sp)
	mov	-2(r5),r0
	bic	(sp)+,14(r0)
	bne	.121
	mov	-2(r5),(sp)
	mov	r4,-(sp)
	jsr	pc,remhdr
	tst	(sp)+
	mov	-2(r5),(sp)
	jsr	pc,putbuf
	mov	-2(r5),(sp)
	jsr	pc,puthdr
.121:
	br	.117
.116:
	br	.110
.113:
	br	.111
.110:
	tst	6(r4)
	bne	.122
	mov	r4,(sp)
	jsr	pc,rem_aeth
.122:
	mov	r2,r0
	br	.106
.107:
	mov	$0,r0
	br	.106
.123:
.106:
	jmp	__cret
rem_aeth:
	jsr	r0,__csav
	mov	$0,r4
	mov	aether,r3
	br	.127
.126:
	mov	r3,r4
	mov	(r4),r3
.127:
	tst	r3
	beq	.125
	cmp	r3,12(r5)
	bne	.130
	tst	r4
	bne	.131
	mov	(r3),aether
	br	.132
.131:
	mov	(r3),(r4)
.132:
	mov	2(r3),(sp)
	jsr	pc,ptlbuf
	mov	4(r3),(sp)
	jsr	pc,ptlbuf
	mov	r3,(sp)
	jsr	pc,puthdr
	br	.125
.130:
	br	.126
.125:
.124:
	jmp	__cret
val_pcb:
	jsr	r0,__csav
	mov	12(r5),r0
	mov	10(r0),r4
	br	.136
.135:
	mov	(r4),r4
.136:
	tst	r4
	beq	.134
	cmp	2(r4),pcb
	beq	.134
.137:
	br	.135
.134:
	mov	r4,r0
.133:
	jmp	__cret
aet_rece:
	jsr	r0,__csav
	mov	$177775,status
	mov	descript,(sp)
	jsr	pc,val_ptr
	mov	r0,r4
	beq	.141
	mov	r4,(sp)
	jsr	pc,val_pcb
	mov	r0,r3
	beq	.142
	mov	12(r4),r2
	br	.145
.144:
	mov	2(r2),r2
.145:
	tst	r2
	beq	.143
	bit	14(r2),12(r3)
	beq	.146
	mov	r2,(sp)
	jsr	pc,sys_usr
	mov	12(r3),-(sp)
	com	(sp)
	com	(sp)
	bic	(sp)+,14(r2)
	bne	.147
	mov	r2,(sp)
	mov	r4,-(sp)
	jsr	pc,remhdr
	tst	(sp)+
	mov	r2,(sp)
	jsr	pc,putbuf
	mov	r2,(sp)
	jsr	pc,puthdr
.147:
	mov	r2,r0
	br	.140
.146:
	br	.144
.143:
.142:
.141:
	mov	$0,r0
.140:
	jmp	__cret
sys_usr:
	jsr	r0,__csav
	sub	$4,sp
	mov	buf_ptr,r3
	mov	12(r5),r0
	mov	10(r0),r2
	cmp	r2,buf_size
	ble	.151
	mov	buf_size,r2
	mov	$177777,status
	br	.152
.151:
	mov	r2,status
.152:
	mov	12(r5),r0
	mov	4(r0),-4(r5)
.154:
	tst	r2
	ble	.153
	mov	-4(r5),r4
	add	$2,r4
	mov	$40,-2(r5)
	br	.157
.156:
	dec	r2
	dec	-2(r5)
.157:
	tst	r2
	ble	.155
	tst	-2(r5)
	ble	.155
	movb	(r4)+,(r3)+
	br	.156
.155:
	mov	*-4(r5),-4(r5)
	br	.154
.153:
.150:
	jmp	__cret
usr_sys:
	jsr	r0,__csav
	sub	$4,sp
	mov	buf_ptr,r3
	mov	12(r5),r0
	mov	10(r0),r2
	mov	12(r5),r0
	mov	4(r0),-4(r5)
.162:
	tst	r2
	ble	.161
	mov	-4(r5),r4
	add	$2,r4
	mov	$40,-2(r5)
	br	.165
.164:
	dec	r2
	dec	-2(r5)
.165:
	tst	r2
	ble	.163
	tst	-2(r5)
	ble	.163
	movb	(r3)+,(r4)+
	br	.164
.163:
	mov	*-4(r5),-4(r5)
	br	.162
.161:
.160:
	jmp	__cret
aet_send:
	jsr	r0,__csav
	tst	-(sp)
	mov	$177775,status
	mov	descript,(sp)
	jsr	pc,val_ptr
	mov	r0,r4
	beq	.167
	mov	r4,(sp)
	jsr	pc,val_pcb
	mov	r0,r3
	beq	.170
	mov	6(r4),-(sp)
	com	(sp)
	mov	12(r3),r0
	com	r0
	bic	(sp)+,r0
	mov	r0,r2
	mov	life_tim,-2(r5)
	cmp	-2(r5),$36
	bge	.171
	mov	$36,-2(r5)
	br	.172
.171:
	cmp	-2(r5),$1130
	ble	.173
	mov	$1130,-2(r5)
.173:
.172:
	mov	-2(r5),(sp)
	mov	r2,-(sp)
	mov	r4,-(sp)
	jsr	pc,insert_m
	cmp	(sp)+,(sp)+
	br	.166
.170:
.167:
	mov	$0,r0
.166:
	jmp	__cret
aet_osen:
	jsr	r0,__csav
	mov	$177775,status
	mov	aet_name,(sp)
	jsr	pc,find_aet
	mov	r0,r4
	beq	.175
	mov	12(r4),r3
	br	.200
.177:
	mov	2(r3),r3
.200:
	tst	r3
	beq	.176
	cmp	6(r3),pcb
	beq	.176
.201:
	br	.177
.176:
	tst	r3
	bne	.202
	bit	6(r4),$1
	beq	.202
	mov	$36,(sp)
	mov	$1,-(sp)
	mov	r4,-(sp)
	jsr	pc,insert_m
	cmp	(sp)+,(sp)+
	br	.174
.202:
.175:
	mov	$0,r0
.174:
	jmp	__cret
insert_m:
	jsr	r0,__csav
	jsr	pc,gethdr
	mov	r0,r4
	beq	.204
	mov	buf_size,(sp)
	jsr	pc,getbuf
	mov	r0,4(r4)
	beq	.205
	mov	14(r5),(sp)
	mov	12(r5),-(sp)
	jsr	pc,all_ast
	tst	(sp)+
	tst	r0
	bne	.206
	mov	buf_size,10(r4)
	mov	16(r5),12(r4)
	mov	14(r5),14(r4)
	mov	pcb,6(r4)
	mov	r4,(sp)
	jsr	pc,usr_sys
	mov	r4,(sp)
	mov	12(r5),-(sp)
	jsr	pc,inshdr
	tst	(sp)+
	mov	12(r5),(sp)
	jsr	pc,que_ast
	clr	status
	mov	r4,r0
	br	.203
.206:
	mov	r4,(sp)
	jsr	pc,putbuf
	mov	r4,(sp)
	jsr	pc,puthdr
.207:
	br	.210
.205:
	mov	r4,(sp)
	jsr	pc,puthdr
.210:
.204:
	mov	$0,r0
.203:
	jmp	__cret
aet_isen:
	jsr	r0,__csav
	mov	$177775,status
	mov	descript,(sp)
	jsr	pc,val_ptr
	mov	r0,r4
	beq	.212
	mov	r4,(sp)
	jsr	pc,val_pcb
	mov	r0,r3
	beq	.213
	mov	6(r4),-(sp)
	com	(sp)
	mov	12(r3),r0
	com	r0
	bic	(sp)+,r0
	mov	r0,r2
	mov	r2,(sp)
	mov	r4,-(sp)
	jsr	pc,all_ast
	tst	(sp)+
	tst	r0
	bne	.214
	mov	r4,(sp)
	jsr	pc,que_ast
	clr	status
.214:
.213:
.212:
.211:
	jmp	__cret
	.globl	aet_isen
	.globl	que_ast
	.globl	all_ast
	.globl	aet_osen
	.globl	insert_m
	.globl	aet_send
	.globl	usr_sys
	.globl	sys_usr
	.globl	aet_rece
	.globl	val_pcb
	.globl	rem_aeth
	.globl	val_ptr
	.globl	aet_time
	.globl	remhdr
	.globl	putbuf
	.globl	inshdr
	.globl	getbuf
	.globl	puthdr
	.globl	ptlbuf
	.globl	strcpy
	.globl	gtlbuf
	.globl	aet_crea
	.globl	aet_deac
	.globl	aet_clea
	.globl	get_f_bi
	.globl	strcmp
	.globl	gethdr
	.globl	find_aet
	.globl	aet_acce
	.globl	status
	.globl	life_tim
	.globl	buf_size
	.globl	buf_ptr
	.globl	descript
	.globl	type
	.globl	if_acces
	.globl	ast_parm
	.globl	int_ast
	.globl	nml_ast
	.globl	pcb
	.globl	password
	.globl	aet_name
	.globl	nam_list
	.globl	buf_list
	.globl	msg_list
	.globl	aether
	.globl	__csav
	.globl	__cret
	.psect	.prog.
	.even
	.psect	.data.
	.even
	.psect	.mwcn.
	.even
	.psect	.prof.
	.even
