; modified by Frank Vest
; Last modified April 9, 1985
L X Reset
L X Do-it
L X Ld ftest		; load ftest diagnostic
L C0 Addr FIRSTADDR
L C1 Addr SECONDADDR
L C2 Addr FIRSTPATRN
L C3 Addr SECONDPATRN
L C4 Addr XORPAT
L C5 Addr FIRSTMCR
L C6 Addr SECONDMCR
L C7 Addr 
L C7 Addr CACHEA 0
L C8 Addr CACHEA 100
L C9 Addr CACHEA 200
L C10 Addr CACHEA 300
L C11 Addr 
L C12 Addr 
L C13 Addr 
L C14 Addr 
L C15 Addr 
L C2 Val -1 
L C3 Val 0 
L C4 Val 0
L C7 Val 1
L C8 Val 66
L C9 Val 55
L C10 Val 0
L A17 Val 
L A19 Val 
L X TimeOut 77777777777; A long time
L X Go BEGIN
L X Skip 1
L X ShowError Timed out