$PAGE	17

	BR	P17024

	.WORD	0

  $LABEL APFA14

P17024:
	MOV	@#K01204, R0

	MOV	@#K01206, R1

	ASL	R0
	ASL	R0
	ASL	R0
	ADD	R0, R1
	ASL	R1
	MOV	#P17066, R0

	ADD	R1, R0

	$GOTO	(R0), #APFA14, JUMP

  $LABEL P17066
	.WORD	6		;DEBUG MENU PAGE 1
	.WORD	7		;DEBUG MENU PAGE 2
	.WORD	10		;DEBUG MENU PAGE 3
	.WORD	11		;DEBUG MENU PAGE 4

  $LABEL APFA3E
	CALL	P17150
	$RETURN JUMP

  $LABEL APFA4A
	MOV	#P17503, R3

	CALL	P17232

	MOV	R1, R3
	CALL	P17232

	MOV	#P17533, R3

	CALL	P17232

	$RETURN JUMP

P17150:
	CLR	R2
	CLC
	TST	@#CCR

	BCS	P17172
	COM	R2
	MOV	#P17633, R3

	BR	P17176
P17172:
	MOV	#P17434, R3

P17176:
	CALL	P17232

	MOV	R1, R3
	CALL	P17232

	CMP	#P17561, R1

	BNE	P17220
	RETURN
P17220:
	MOV	#P17467, R3

	CALL	P17232

	RETURN
P17232:
	TSTB	@#TPS

	BPL	P17232
	TSTB	@#TKS

	BPL	P17274
	CMPB	@#TKB, #23

	BNE	P17356
P17256:
	TSTB	@#TKS

	BPL	P17256
	CMPB	@#TKB, #21

	BNE	P17256
P17274:
	MOVB	(R3)+, @#TPB

	CMPB	#377, (R3)

	BNE	P17232
	RETURN

  $LABEL APFAC8
	MOV	#KDSAR0, SP

	MOV	#P17672, R3

	CALL	P17232

P17324:
	MOV	#P17376, -(SP)

  $LABEL P17330
	MOV	(SP)+, R0

	MOV	(R0)+, R4
	BEQ	P17324

	MOV	(R0)+, R5

	MOV	R0, -(SP)

	$SGOTO	#17, #P17330, JUMP

P17356:
	MOV	#KDSAR0, SP

	$GOTO4	#6, #AG0014, JUMP

  $LABEL P17376

	$PGO2	21, AR0010
	$PGO2	24, AUFA14
	$PGO2	25, AVFA14
	$PGO2	25, AVFA1A
	$PGO2	25, AVFA20
	$PGO2	25, AVFA26
	$PGO2	26, AWFA14
	.WORD	0

  $LABEL P17434
	.ASCII	|   TESTING 11/23|
	.BYTE	377

	.ASCII	|  CPU    |
	.BYTE	377

  $LABEL P17467
	.ASCII	|PLEASE WAIT|

	.BYTE	377

  $LABEL P17503
	.ASCII	<BS><BS><BS><BS><BS><BS><BS><BS><BS><BS><BS>

	.BYTE	377
	.ASCII	|OK         |

	.BYTE	377

  $LABEL P17533
	.ASCII	<CR><LF>|INPUT SELECTION?   |
	.BYTE	377

  $LABEL P17561
	.ASCII	|  MEM    |

	.BYTE	377
	.ASCII	|  CACHE  |

	.BYTE	377
	.ASCII	|  MMU    |

	.BYTE	377
	.ASCII	|UNAVAILABLE|

	.BYTE	377

  $LABEL P17633
	.ASCII	|   TESTING 11/73|
	.BYTE	377

	.ASCII	|FAIL      |

	.ASCII	| |
	.BYTE	377

	.ASCII	| |
	.BYTE	377

  $LABEL P17672
	.ASCII	<CR><LF>
	.WORD	377

  $FILL