.title	MEMHDL

	.includ	'b:global'

	sect	code

ARGHDL:	mov	#2,r0
	call	$RePa
	bcs	999$
	call	fixlst
	bcs	999$
	mov	Found(r0),r5
	bit	#2,KSW
	bne	50$
	cmp	Me,(r5)
	beq	50$
	gos	getrec,	<#1, rArg(r5), #FB1, #Unlock>
	cmp	Me,10(r1)
	beq	50$
	Write	#DHIR
	br	999$

50$:	tst	(pc)+

999$:	sec
	rts	pc

ADDM:	mov	#G30,Pprom
	call	arghdl
	bcs	e312
	mov	#1,r3
	mov	#G60,r4
	cmpb	r3,rPri1(r5)
	bne	e162
	inc	r3
	mov	#G104,r4
	call	CCOff

E162:	PARSER	#Meet1, r3, r4
	Write	#CR2LF
	tst	level
	beq	e306
	clr	r0
	call	fixlst
	bcs	e162
	mov	Found(r0),r0
	cmp	#1,r3
	beq	e254
	mov	rArg(r0),r1
	mov	(r5),r0
	br	e262
e254:	mov	rArg(r5),r1
	mov	(r0),r0
e262:	call	addmem
	bcc	e162
	call	prtnam
	Write	#G130
	br	e162

e306:	call	ccon
e312:	rts	pc

SUBM:	mov	#G172,Pprom
	call	arghdl
	bcs	e540
	mov	#G226,r4
	mov	#1,r3
	cmpb	r3,rPri1(r5)
	bne	e360
	inc	r3
	mov	#G256,r4
	call	CCOff

e360:	PARSER	#Meet1, r3, r4
	Write	#CR2LF
	tst	level
	beq	e534
	clr	r0
	call	fixlst
	bcs	e360
	mov	Found(r0),r2
	cmp	#1,r3
	beq	e452
	mov	rArg(r2),r1
	mov	(r5),r0
	br	e460

e452:	mov	rArg(r5),r1
	mov	(r2),r0
e460:	call	submem
	bcc	e502
	call	prtnam
	Write	#G376
e502:	cmp	#1,r3
	beq	e520
	mov	rArg(r5),r1
	mov	(r2),r0
	br	e526

e520:	mov	(r5),r0
	mov	rArg(r2),r1
e526:	call	subprs
	br	e360

e534:	call	ccon
e540:	rts	pc

LEAVP:	mov	#2,r0
	cmp	level,r0
	blt	e566
e554:	call	fixlst
	mov	Found(r0),r5
	br	e632

e566:	mov	thisg,r1
	bne	e612
	mov	#G330,Pprom
	call	$RePa
	bcs	e726
	br	e554

e612:	mov	r1,r0
	mov	#GRPLST,r1
	call	findcm
	mov	r0,r5
	sub	#rStr,r5

e632:	mov	(r5),r0
	cmp	Thisg,r0
	bne	e650
	clr	r1
	call	GoToIt
e650:	call	CCOff
	mov	MyRec,r1
	call	subprs
	bcc	e706
	Write	#G372
	Write	#G376
e706:	mov	Me,r0
	mov	rArg(r5),r1
	call	submem
	call	ccon
e726:	rts	pc

ADDR:	mov	#2,r0
	cmp	level,r0
	bge	e774

	mov	Oldl,r5
	bne	e1060
	REPARS	#2, #G306
	bcc	e774
e770:	jmp	e1230
e774:	cmp	@Found+2,#$RRTE
	bne	e1030
	cmp	level,#3
	bge	e1026
	Write	#NoText
	br	e770

e1026:	tst	(r0)+

e1030:	call	GetNum
	mov	r0,FB1+2
	mov	#FB1,r0
	mov	r1,(r0)
	mov	r0,r1
	call	cnvlet
	bcs	e770
	mov	r0,r5
e1060:	bit	#2,KSW
	bne	e1134
	gos	GetRec,	<#2, r5, #FB1, #Unlock>
	cmp	Me,12(r1)
	beq	e1134
	Write	#DHIR
	br	e1230

e1134:	PARSER	#Meet1, #377, #G60
	Write	#CR2LF
	tst	level
	beq	e1224
	clr	r0
	call	fixlst
	bcs	e1134
	mov	Found(r0),r0
	mov	r5,r1
	call	AddRec
	br	e1134

e1224:	call	CCOn
e1230:	rts	pc

AddRec:	push	<r0,r1,r2,r3,r4,r5>
	mov	r0,r5
	gos	GetRec,	<#2, r1, #FB3,>
	mov	r1,r4
	mov	16(r4),r2
	tst	(r1)+
	mov	(r1)+,-(sp)
	mov	(r1)+,-(sp)
	bit	#1,14(r4)
	bne	e1546

	cmp	(r5),r2
	bne	e1356
e1320:	mov	#2,r0
	call	releas
	mov	r5,r1
	add	#rStr,r1
	call	strout
	Write	#G0
	cmp	(sp)+,(sp)+
	br	e1530

e1356:	mov	#2,r0
	mov	#FB2,r1
	call	spawn
	mov	(r1),16(r4)
	bis	#1,14(r4)
e1404:	cmp	r0,FB3-1
	bne	e1432

	mov	r4,r3
	sub	#FB3-FB2,r4
	mov	#20,r0
e1424:	mov	(r3)+,(r4)+
	sob	r0,e1424
	br	e1450

e1432:	gos	put,	<#2,,#FB3>
e1450:	mov	#3,(r1)+
	clr	(r1)+
	tst	r2
	bne	e1470
	mov	#1,(r1)+
	br	e1476
e1470:	mov	#2,(r1)+
	mov	r2,(r1)+
e1476:	mov	(r5),(r1)
	gos	put,	<#2,,#FB2>
e1516:	pop	<r0,r1>
	mov	(r5),r2
	call	putlet
e1530:	pop	<r5,r4,r3,r2,r1,r0>
	rts	pc

e1546:	gos	TryRec,	<#2, r2, #FB3,>
	tst	(r1)+
	mov	(r1)+,r2
	mov	r1,r3
	mov	(r1)+,r4

e1576:	cmp	(r5),(r1)+
	beq	e1320
	sob	r4,e1576
	tst	r2
	bne	e1546
	cmp	#15,(r3)
	ble	e1642

	inc	(r3)
	mov	(r5),(r1)
	gos	put,	<#2,,#FB3>
	br	e1516

e1642:	mov	#2,r0
	mov	#FB2,r1
	call	spawn
	mov	(r1),-(r3)
	mov	r3,r4
	tst	-(r4)
	br	e1404

	sect	TEXTS

G0:	.WORD	20026
	.WORD	71173
	.WORD	71040
	.WORD	62145
	.WORD	67141
	.WORD	66440
	.WORD	72157
	.WORD	60564
	.WORD	60547
	.WORD	62562
	.WORD	5015
	.BYTE	12
	.BLKB	1

G30:	.WORD	52027
	.WORD	66151
	.WORD	20154
	.WORD	60566
	.WORD	20144
	.WORD	64566
	.WORD	66154
	.WORD	62040
	.WORD	20165
	.WORD	42101
	.WORD	42504
	.WORD	40522

G60:	.WORD	53022
	.WORD	66545
	.WORD	73040
	.WORD	66151
	.WORD	20154
	.WORD	72544
	.WORD	40440
	.WORD	42104
	.WORD	51105
	.BYTE	101
	.BLKB	1

G104:	.WORD	53022
	.WORD	62141
	.WORD	73040
	.WORD	66151
	.WORD	20154
	.WORD	72544
	.WORD	40440
	.WORD	42104
	.WORD	51105
	.BYTE	101
	.BLKB	1

G130:	.WORD	20040
	.WORD	71173
	.WORD	71040
	.WORD	62145
	.WORD	67141
	.WORD	66440
	.WORD	62145
	.WORD	62554
	.WORD	20155
	.WORD	20151
	.WORD	62544
	.WORD	72164
	.WORD	20141
	.WORD	76155
	.WORD	62564
	.WORD	5015
	.BYTE	12
	.BLKB	1

G172:	.WORD	43033
	.WORD	76562
	.WORD	20156
	.WORD	60566
	.WORD	20144
	.WORD	64566
	.WORD	66154
	.WORD	62040
	.WORD	20165
	.WORD	52523
	.WORD	52102
	.WORD	40522
	.WORD	42510
	.WORD	40522

G226:	.WORD	53026
	.WORD	66545
	.WORD	73040
	.WORD	66151
	.WORD	20154
	.WORD	72544
	.WORD	51440
	.WORD	41125
	.WORD	51124
	.WORD	44101
	.WORD	51105
	.BYTE	101
	.BLKB	1

G256:	.WORD	53026
	.WORD	62141
	.WORD	73040
	.WORD	66151
	.WORD	20154
	.WORD	72544
	.WORD	51440
	.WORD	41125
	.WORD	51124
	.WORD	44101
	.WORD	51105
	.BYTE	101
	.BLKB	1

G306:	.WORD	52020
	.WORD	66151
	.WORD	20154
	.WORD	64566
	.WORD	65554
	.WORD	67145
	.WORD	72040
	.WORD	74145
	.BYTE	164
	.BLKB	1

G330:	.WORD	43040
	.WORD	76562
	.WORD	20156
	.WORD	64566
	.WORD	65554
	.WORD	72145
	.WORD	66440
	.WORD	72174
	.WORD	20145
	.WORD	64566
	.WORD	66154
	.WORD	62040
	.WORD	20165
	.WORD	52125
	.WORD	51124
	.WORD	42133
	.BYTE	101
	.BLKB	1

G372:	.WORD	42002
	.BYTE	165
	.BLKB	1

G376:	.WORD	20037
	.WORD	71173
	.WORD	64440
	.WORD	72156
	.WORD	20145
	.WORD	62555
	.WORD	66144
	.WORD	66545
	.WORD	64440
	.WORD	62040
	.WORD	72145
	.WORD	60564
	.WORD	66440
	.WORD	72174
	.WORD	6545
	.WORD	5012

	.end