MEMORY PLUS Manual By Lee Davison and Hans Otten Back to The Computerist

  003A	A5 01				LDAZ	END	HAVE WE PASSED
  003C	C5 D2				CMPZ	POINTH	END OF TEST AREA?
  003E	B0 EC				BCS	FILL	NO. KEEP GOING

				MEMORY SET UP.  NOW TEST IT

  0040	A5 00				LDAZ	BEGIN	SET POINTER
  0042	85 D2				STAZ	POINTH	BACK TO START
  0044	A6 D5				LDXZ	PASS	SET UP 3 COUNTER

  0046	A5 D4		POP		LDAZ	FLIP	TEST FOR FLIP VALUE
  0048	CA				DEX		2 OUT OF 3 TIMES
  0049	10 04				BPL	SLIP	OR
  004B	A2 02				LDXIM	$02	1 OUT OF 3 TIMES
  004D	A5 D3				LDAZ	FLAG	TEST FOR FLAG VALUE

  004F	D1 D1		SLIP		CMPIY	POINTL	HER IS THE TEST
  0051	D0 15				BNE	OUT	BRANCH IF FAILED
  0053	C8				INY		BUMP POINTER
  0054	D0 F0				BNE	POP	IF NOT DONE, KEEP GOING
  0056	E6 D2				INCZ	POINTH
  0058	A5 01				LDAZ	END	TEST END
  005A	C5 D2				CMPZ	POINTH
  005C	B0 E8				BCS	POP

				ABOVE TEST OKAY.  CHANCE AND REPEAT

  005E	C6 D5				DECZ	PASS	CHANCE I IN 3 POSITION
  0060	10 AD				BPL	NPASS	AND DO NEXT PASS
  0062	A5 D3				LDAZ	FLAG	INVERT FLAG
  0064	49 FF				EORIM	$FF	FOR PASS TWO
  0066	30 A1				BMI	BIGLP	AND REPEAT BIG LOOP

  0068	84 D1		OUT		STYZ	POINTL	PUT LOW ORDER ADDRESS FOR DISPLAY
  006A	AD FD FF			LDA	$FFFD	TEST HICH BYTE OF JNTERRUPT VECTOR
  006D	C9 8B				CMPIM	$8B	SYM-1
  006F	F0 46				BEQ	SYM
  0071	C9 E0				CMPIM	$E0	AIM 65
  0073	F0 0B				BEQ	AIM

  0075	A5 D1		KIM		LDAZ	POINTL	MOVE POINTERS FOR KIM
  0077	85 FA				STAZ	LPOINT
  0079	A5 D2				LDAZ	POINTH
  007B	85 FB				STAZ	HPOINT
  007D	4C 4F 1C			JMP	GOKIM	RETURN TO KIM MONITOR

  0080	A5 D2		AIM		LDAZ	POINTH	MOVE DATA FOR AIM DISPLAY
  0082	85 D6				STAZ	AHIGH
  0084	A5 D1				LDAZ	POINTL
  0086	85 D7				STAZ	ALOW
  0088	A2 00				LDXIM	$00	GET DATA AT ADDRESS
  008A	A1 D1				LDAIX	POINTL
  008C	85 D8				STAZ	ADATA
  008E	A2 13				LDXIM	$13	START AT POSITION 19.

  0090	8A		ALOOP		TXA		SAVE X VALUE