$PAGE 06

	BR	P06024
	.WORD	0

  $LABEL AG0014
  $LABEL DEBMNU

P06024:
	MOV	#P06222, R0

P06030:
	TSTB	@#TPS

	BPL	P06030
	MOVB	(R0)+, @#TPB

	TSTB	@#TKS

	BPL	P06072
	CMPB	@#TKB, #23

	BNE	P06072
P06060:
	TSTB	@#TKS

	BPL	P06060
	TSTB	@#TKB

P06072:
	CMPB	#377, (R0)

	BNE	P06030

  $LABEL P06100

	MOV	#KDSAR0, SP

; !!!!!!!
P06114 =: .+10
P06120 =: .+14
	$GOTO2	#5, #AFF798	; ! $CALL

	MOV	#P06666, R3

P06132:
	CMPB	R2, #CR

	BEQ	P06210
	MOV	(R3)+, R4	; Address
	CMP	#177777, (R3)	; end od descriptors?

	BEQ	P06210
	MOV	(R3)+, R5	; Page
	CMP	R2, (R3)+	; symbol
	BEQ	P06160
	BR	P06132
P06160:
	MOV	#P06100, -(SP)	; return address

	BIT	#177400, R5	; Page num?

	BEQ	P06120		; eq if yes

	MOV	R5, -(SP)
	MOV	R4, -(SP)

	$GOTO	#12, #AKF814

P06210:
	MOV	#AFFA12, R4	; on Page 5 - BRTBL+2

	MOV	#P06100, -(SP)

	BR	P06114

  $LABEL P06222

	.ASCII	<CR><LF><LF><LF><LF><LF>

	.ASCII	|DEBUG MENU PAGE  1|<CR><LF><LF><LF><LF>

	.ASCII	|1  =  CPU TEST |<CR><LF>

	.ASCII	|2  =  MEM 0-64KB|<CR><LF>

	.ASCII	|3  =  MEM 0-1MB |<CR><LF>

	.ASCII	|4  =  MEM 1-2MB |<CR><LF>

	.ASCII	|5  =  MEM 2-3MB |<CR><LF>

	.ASCII	|6  =  MEM 3-4MB |<CR><LF>

	.ASCII	|7  =  CACHE TEST|<CR><LF>

	.ASCII	|8  =           |<CR><LF>

	.ASCII	|9  =            |<CR><LF>

	.ASCII	|0  =  SEQUENCER |<CR><LF>

	.ASCII	|=  =  THIS MENU|<CR><LF>

	.ASCII	|-  =  BOOT SELECTION|<CR><LF><LF><LF><LF>

	.ASCII	|INPUT SELECTION?   |

	.WORD	377
	.WORD	177777
	.WORD	177777
	.WORD	177777
	.WORD	177777
	.WORD	177777
	.WORD	177777
	.WORD	177777
	.WORD	177777
	.WORD	177777
	.WORD	177777
	.WORD	177777

  $LABEL P06666

	$PGO2	21, AR0010
	.ASCIZ	|1|

	$PGO2	24, AUFA14
	.ASCIZ	|2|

	$PGO2	25, AVFA14
	.ASCIZ	|3|

	$PGO2	25, AVFA1A
	.ASCIZ	|4|

	$PGO2	25, AVFA20
	.ASCIZ	|5|

	$PGO2	25, AVFA26
	.ASCIZ	|6|

	$PGO2	26, AWFA14
	.ASCIZ	|7|

	$PGO2	6, AG0014
	.ASCIZ	|8|

	$PGO2	6, AG0014
	.ASCIZ	|9|

	$PGO2	17, APFAC8
	.ASCIZ	|0|

	$PGO2	6, AG0014
	.ASCIZ	|=|

	$PGO2	0, AA0018
	.ASCIZ	|-|

  $FILL