; Written by Frank Vest
; Last modified April 9, 1985
L X Reset
L X Do-it
L X Ld MEMA		; load memAll diagnostic
L C0 Addr R0;		This code is stolen from "showS.midas"
L C1 Addr SVA		; current virtual address for storage
L C2 Addr COL		; current cache column
L C3 Addr SEXPECTED
L C4 Addr ;	leave it blank
L C5 Addr RSCR
L C6 Addr RSCR2
L C7 Addr T 20;	End code stolen from "showS.midas"
L C8 Addr ROW 0
L C12 Addr ITERATIONS
L C13 Addr MEMFLAGS
L C14 Addr FLAGS
L C15 Addr ROW 1
L B0 Addr SPATX;		Begin more code stolen from "showS.midas"
L B1 Addr CURSPATTERN
L B2 Addr SVAX
L B3 Addr SVAHIX
L B4 Addr SMAXBRHI
L B5 Addr SNMODULES
L B6 Addr SSUBRSCR
L B7 Addr SVAHIOLD
L B8 Addr SVAXOLD
L B9 Addr SIMSCR0		; SIM TASK SCRATCH REGISTER
L B10 Addr SIMSCR1	; SIM TASK SCRATCH REGISTER
L B11 Addr SMCRVICTIM
L B11 Addr HOLD
L B12 Addr PIPE 0
L B15 Addr PIPE 10
L A19 Addr TASK 20	; use task 0 as default
L A19 Val 0
L A7 Addr RBASE 20	; use rbase 17 as default
L A7 Val 17
L A17 Addr PROCSRN	; init procsrn to zero
L A17 Val 0
L X DisplayOn		; memA.midas  August 13, 1979  6:44 PM
L X UnBrk SVATRYNEXTPAT
L X TimeOut 40000000; 120 min, for 12 megaword memory systems.
L X Go BEGIN
L X Skip 1
L X ShowError MemA Timed out