/MEMORY TEST PROGRAM
                ORG 001 000
AGAIN,	XRA	/SET ACCUMULATOR TO ZEROS
LMA		/DEPOSIT ACCUMULAATOR INTO MEMORY
LAM		/NOW READ BACK FROM SAME LOCATION
NDA		/BOOLEAN OP SETS UP FLAGS AFTER LOAD
JFZ STOP	/ACCUMULATOR SHOULD BE ALL 0'S
LMI 377		/NOW LOAD MEMORY WITH ALL 1'S
LAM		/AND THEN READ IT BACK
ADI 001		/IF ADD 1 TO 377 HAVE 0001
RTZ		/END SUBROUTINE IF O.K.
STOP,	377	/OTHERWISE HALT WITH MC LAMPS ON
NEWTES,	XRA	/PROGRAM STARTS HERE - CLEAR ACC
LDI 200		/SET UP LOOP CNTR IN CPU REG "D"
GO, CAL AGAIN	/CALL SUBRTN TO WRITE 0'S AND 1'S
INL		/SET POINTER TO NEXT MEMORY LOC
JFZ GO		/REPEAT TEST IF NOT THROUGH PAGE
DCD             /DECR LOOP CNTR IF THROUGH PAGE
JFZ GO          /CONTINUE TEST IF CNTR IS NOT ZERO
ALDONE, 000	/TEST DONE O.K. - MC LAMPS OFF
JMP NEWTES	/ALLOW EASY RESTART