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

Previous page Next page

Page 21




			MEMORY TEST		9 FEBRUARY 1979

			MEMORY	ORG	$0000

			ACCESS		*	$8B86	SYM-1 ACCESS ENTRY
			OUTBYT		*	$82FA	SYM-1 OUTPUT BYTE
			SCANDS		*	$8906	SYM-1 SCAN DISPLAY

			GOKIM		*	$1C4F	KIM-1 ENTRY POINT
			LPOINT		*	$00FA	KIM DISPLAY POINTERS
			HPOINT		*	$00FB


			ASCOUT		*	$EF7B	AIM 65 OUTPUT ASCII

  0000	20		BEGIN		=	$20	STARTING TEST PACE
  0001	3F		END		=	$3F	ENDING TEST PACE

  0002	A9 00		START		LDAIM	$00	ZERO POINTERS
  0004	A8				TAY		FOR LOW ORDER ADDRESSES
  0005	48				PHA		SET ALL STATUS BITS TO ZERO
  0006	28				PLP
  0007	85 D1				STAZ	POINTL

  0009	85 D3		BIGLP		STAZ	FLAG	= 00 FIRST PASS, = FF SECOND PASS
  000B	A2 02				LDXIM	$02
  000D	86 D5				STXZ	PASS	SET 3 TESTS EACH PASS

  000F	A5 00		NPASS		LDAZ	BEGIN	SET POINTER TO
  0011	85 D2				STAZ	POINTH	START OF TES~ AREA
  0013	A6 01				LDXZ	END
  0015	A5 D3				LDAZ	FLAC
  0017	49 FF				EORIM	$FF	REVERSE FLAG
  0019	85 D4				STAZ	FLIP	FF FIRST PASS,    00 SECOND PASS

  001B	91 D1		CLEAR		STAIY	POINTL	WRITE FLIP VALUE
  001D	C8				INY		INTO ALL LOCATIONS
  001E	D0 FB				BNE	CLEAR
  0020	E6 D2				INCZ	POINTH
  0022	E4 D2				CPXZ	POINTH
  0024	B0 F5				BCS	CLEAR

                  FLIP VALUE IN ALL LOCATIONS.   NOW CHANCE 1 IN 3

  0026	A6 D5				LDXZ	PASS
  0028	A5 00				LDAZ	BECIN	SET POINTER
  002A	85 D2				STAZ	POINTH	BACK TO START

  002C	A5 D3		FILL		LDAZ	FLAG	CHANGE VALUE
  002E	CA		TOP		DEX
  002F	10 04				BPL	SKIP	SKIP 2 OUT OF 3
  0031	A2 02				LDXIM	$02	RESTORE 3 COUNTER
  0033	91 D1				STAIY	POINTL	CHANCE 1 OUT CF 3
  0035	C8		SKIP		INY
  0036	D0 F6				BNE	TOP
  0038	E6 D2				INCZ	POINTH	NEW PAGE


 


Previous page Next page
Page 21

Last page update: April 6, 2017.