[_CD8_]<doradosource>GarageMidasManual.dm!2>garagemidas2.bravo

1. Kernel.Midas

L X Reset ; KERNEL.MIDAS display relevant rm, im values for kernel diagnostics
L X Do-it
L X Ld KERNEL; load the microprogram
L B0 Addr RBASE 0
L B1 Addr RBASE 17
L B0 Val 0
L B1 Val 0
L B2 Addr MCR
L B2 Val 1; turn off stack overflow/underflow wakeups from memC
L B4 Addr STACKPTOPBITS
L B5 Addr STACKPADDR
L C0 Addr R0; display common registers
L C1 Addr R1
L C2 Addr RM1
L C3 Addr R01
L C4 Addr R10
L C5 Addr RHIGH1
L C6 Addr RSCR
L C7 Addr RSCR2
L C8 Addr T 20
L C9 Addr FLAGS; control for hold, task simulator
L C10 Addr ITERATIONS; count of iterations
L C11 Addr NEXTTASK
L C12 Addr HOLDVALUE
L C13 Addr
L C14 Addr
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 0
L X DisplayOn; May 18, 1981 11:43 AM
L X TimeOut 10000
L X Call XORTASKCIRC(); TURN ON TASK CIRCULATE
L X Skip 1
L X ShowError Timed out
L X TimeOut 100000
L X Go BEGIN
L X Skip 1
L X ShowError Timed out

2. MemA.Midas

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 Timed out

3. MemMisc.Midas

; Modified by Frank Vest
; April 9, 1985
L X Reset
L X Do-it ; Added by McDaniel June 1, 1981 4:50 PM
L X Ld MEMMISC; load memAll diagnostic
;L X DisplayOn
L C0 Addr R0
L C1 Addr ANFAULTSX
L C2 Addr ANFAULTSX2
L C3 Addr ATESTTASKX
L C4 Addr ASUBTASKX
L C5 Addr ASRNX
L C6 Addr AUSESRN
L C7 Addr AMAKINGFAULTS
L C8 Addr RSCR
L C9 Addr RSCR2
L C10 Addr RSCR3
L C11 Addr T 20;End code stolen from "showS.midas"
L C12 Addr ITERATIONS
L C13 Addr MEMFLAGS
L C14 Addr FLAGS
L C15 Addr
L C16 Addr
L C17 Addr
L B0 Addr PIPE 0
L B4 Addr PIPE 10
L B8 Addr ROW 0
L B12 Addr HOLD
L B13 Addr
L B14 Addr ARLINK
L B15 Addr TPC 2
L B16 Addr TPC 1;End code stolen from "showS.midas"
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 A14 Val -1; Set Q to 1777777 to make sure of task switch.
L X DisplayOn; memMisc.midas July 10, 1979 2:51 PM
L X TimeOut 400000; increase timeout for 256k memory chips
L X Go BEGIN
L X Skip 1
L X ShowError Timed out

4. IfuSimple.Midas

L X Reset ; IFU midas display June 18, 1981 10:15 AM
L X Do-it
L X Ld ifuSimple; load the microprogram
L B0 Addr RBASE 0; Rbase values
L B1 Addr RBASE 17
L B0 Val 0
L B1 Val 0
L B2 Addr MEMRQ; MIDAS MUFFLERS
L B3 Addr LOADS
L B4 Addr HJ
L B5 Addr MX
L B6 Addr JMPEXC
L B7 Addr PCJ
L B8 Addr FFK
L B9 Addr HOLD;
L B10 Addr ITESTX; ifu test number
L B11 Addr ITESTCOUNTX; ifujump count
L B12 Addr ICURRENTTESTLOC ;byte (memory) address of beginning of ifu test program.
L B13 Addr KLINK;place where return link from ifu jumps is kept
L B14 Addr TPC 1;convenient task pc we can clobber w/ KLINK contents to get pretty print
L B15 Addr STKP
L B15 Val 1;initialize stkp for convenience
L B15 Addr ;throw it away to avoid cluttered screen
L C0 Addr R0; display common registers
L C1 Addr
L C2 Addr EXPECTEDDISPATCH
L C3 Addr PAT16
L C4 Addr IADDRX
L C5 Addr RHIGH1
L C6 Addr RSCR
L C7 Addr RSCR2
L C8 Addr T 20
L C9 Addr FLAGS; control for hold, task simulator
L C10 Addr ITERATIONS; count of iterations
L C11 Addr NEXTTASK
L C12 Addr HOLDVALUE
L C13 Addr
L C14 Addr
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 X DisplayOn; June 18, 1981 10:14 AM
L X TimeOut 100000
L X Go BEGIN
L X Skip 1
L X ShowError Timed out

5. IfuComplex.Midas

L X Reset ; IFU midas display June 18, 1981 10:15 AM
L X Do-it
L X Ld ifuComplex; load the microprogram
L B0 Addr RBASE 0; Rbase values
L B1 Addr RBASE 17
L B0 Val 0
L B1 Val 0
L B2 Addr MEMRQ; MIDAS MUFFLERS
L B3 Addr LOADS
L B4 Addr HJ
L B5 Addr MX
L B6 Addr JMPEXC
L B7 Addr PCJ
L B8 Addr FFK
L B9 Addr HOLD;
L B10 Addr ITESTX;ifu test number
L B11 Addr ITESTCOUNTX;ifujump count
L B12 Addr ICURRENTTESTLOC;byte (memory) address of beginning of ifu test program.
L B13 Addr KLINK;place where return link from ifu jumps is kept
L B14 Addr TPC 1;convenient task pc we can clobber w/ KLINK contents to get pretty print
L B15 Addr STKP
L B15 Val 1;initialize stkp for convenience
L B15 Addr ;throw it away to avoid cluttered screen
L C0 Addr R0; display common registers
L C1 Addr
L C2 Addr EXPECTEDDISPATCH
L C3 Addr PAT16
L C4 Addr IADDRX
L C5 Addr RHIGH1
L C6 Addr RSCR
L C7 Addr RSCR2
L C8 Addr T 20
L C9 Addr FLAGS; control for hold, task simulator
L C10 Addr ITERATIONS; count of iterations
L C11 Addr NEXTTASK
L C12 Addr HOLDVALUE
L C13 Addr
L C14 Addr
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 X DisplayOn; June 18, 1981 10:14 AM
L X TimeOut 100000
L X Go BEGIN
L X Skip 1
L X ShowError Timed out

6. EventCounters.Midas

;L X DisplayOn; October 12, 1979 5:59 PM
L X Reset ; event counters midas display
L X Do-it
L X Ld eventCounters; load the microprogram
L B0 Addr RBASE 0; Rbase values
L B1 Addr RBASE 17
L B0 Val 17
L B1 Val 17
;L B2 Addr MEMRQ; MIDAS MUFFLERS
L B3 Addr LOADS
L B4 Addr HJ
L B5 Addr MX
L B6 Addr JMPEXC
L B7 Addr PCJ
L B8 Addr FFK
L B9 Addr HOLD;
;L B10 Addr
;L B11 Addr
;L B12 Addr
L B13 Addr KLINK;place where return link from ifu jumps is kept
L B14 Addr TPC 1;convenient task pc we can clobber w/ KLINK contents to get pretty print
L B15 Addr STKP
L B15 Val 1;initialize stkp for convenience
L B15 Addr ;throw it away to avoid cluttered screen
L B16 Addr CTRLO
L C0 Addr R0; display common registers
;L C1 Addr
;L C2 Addr
;L C3 Addr
;L C4 Addr
;L C5 Addr
L C6 Addr RSCR
L C7 Addr RSCR2
L C8 Addr T 20
L C9 Addr FLAGS; control for hold, task simulator
L C10 Addr ITERATIONS; count of iterations
L C11 Addr NEXTTASK
L C12 Addr HOLDVALUE
L C13 Addr
L C14 Addr
L C15 Addr
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 X DisplayOn; May 18, 1981 11:43 AM
L X TimeOut 100000
L X Go BEGIN
L X Skip 1
L X ShowError Timed out

7. TriconD.Midas

;L X Displayon; July 19, 1979 1:55 PM
L X Reset ; KERNEL.MIDAS display relevant rm, im values for TriconD diagnostics
L X Do-it
L X Ld TriconD; load the microprogram
L B0 Addr RBASE 0
L B1 Addr RBASE 14
L B2 Addr KSTATE
L B3 Addr KSTAT
L B4 Addr KRAM
L B5 Addr KTAG
L B6 Addr KFIFO
L B15 Addr DMUX100
L B16 Addr DMUX101
L B17 Addr DMUX102
L B18 Addr DMUX103
L B19 Addr DMUX104
L C0 Addr ERRORS; display common registers
L C1 Addr T 14
L C2 Addr KSCR
L C3 Addr KSCR2
L C4 Addr KSCR3
L C5 Addr KSCR4
L C6 Addr COUNT
L C7 Addr COUNTS
L C8 Addr KSCRS
L C9 Addr ; control for hold, task simulator
L C10 Addr ITERATIONS; count of iterations
L C11 Addr
L C12 Addr
L C13 Addr
L C14 Addr
L C15 Addr
L C16 Addr
L C17 Addr
L A19 Addr TASK 20; use task 0 as default
L A19 Val 14
L A7 Addr RBASE 20; use rbase 17 as default
L A7 Val 17
L X DisplayOn
L X TimeOut 100000
L X Go BEGIN
L X Skip 1
L X ShowError Timed out

8. Triex.Midas

L X Ld TRIMESA
L X TimeOut 7777777777;as close to infinite timeout as we can manage.
L X Go INITMAP
L X Skip 1
L X ShowError Timed out
L X Abort

9. KernelS.Midas

; Written by Frank Vest
; May 1, 1984
L X SetClk
L X 31
L X RunProg
L X KERNEL
L A6 SkipE DONE+1
L X ShowError KERNEL Failed AT 31 NS
L X SetClk
L X 30
L X TimeOut 30000 ; 12 seconds
L X Go BEGIN
L X Skip 1
L X ShowError KERNEL Failed AT 30 NS. Timed out
L A6 SkipE DONE+1
L X ShowError KERNEL Failed AT 30 NS
L X SetClk
L X 29
L A2 Val 476 ;Quit checking for RM parity errors at speeds faster than 30 ns.
;(ProcH board has a known problem).
L X TimeOut 30000
L X Go BEGIN
L X Skip 1
L X ShowError KERNEL Failed AT 29 NS. Timed out
L A6 SkipE DONE+1
L X ShowError KERNEL Failed AT 29 NS
L X SetClk
L X 28
L X TimeOut 30000
L X Go BEGIN
L X Skip 1
L X ShowError KERNEL Failed AT 28 NS. Timed out
L A6 SkipE DONE+1
L X ShowError KERNEL Failed AT 28 NS
L X SetClk
L X 27
L X TimeOut 30000
L X Go BEGIN
L X Skip 1
L X ShowError KERNEL Failed AT 27 NS. Timed out
L A6 SkipE DONE+1
L X ShowError KERNEL Failed AT 27 NS
L X SetClk
L X 26
L X TimeOut 30000
L X Go BEGIN
L X Skip 1
L X ShowError KERNEL Failed AT 26 NS. Timed out
L A6 SkipE DONE+1
L X ShowError KERNEL Failed AT 26 NS
L X SetClk
L X 25
L X TimeOut 30000
L X Go BEGIN
L X Skip 1
L X ShowError KERNEL Failed AT 25 NS. Timed out
L A6 SkipE DONE+1
L X ShowError KERNEL Failed AT 25 NS
L X SetClk
L X 24
L X TimeOut 30000
L X Go BEGIN
L X Skip 1
L X ShowError KERNEL Failed AT 24 NS. Timed out
L A6 SkipE DONE+1
L X ShowError KERNEL Failed AT 24 NS
L X SetClk
L X 23
L X TimeOut 30000
L X Go BEGIN
L X Skip 1
L X ShowError KERNEL Failed AT 23 NS. Timed out
L A6 SkipE DONE+1
L X ShowError KERNEL Failed AT 23 NS
L X SetClk
L X 22
L X TimeOut 30000
L X Go BEGIN
L X Skip 1
L X ShowError KERNEL Failed AT 22 NS. Timed out
L A6 SkipE DONE+1
L X ShowError KERNEL Failed AT 22 NS

10. MemaS.Midas

; Modified by Frank Vest
; May 7, 1985
L X SetClk
L X 31
L X RunProg
L X MEMA
L A6 SkipE DONE+1
L X ShowError MEMA Failed AT 31 NS
L X SetClk
L X 30
L X TimeOut 40000000
L X Go BEGIN
L X Skip 1
L X ShowError MEMA Failed AT 30 NS (Timed out)
L A6 SkipE DONE+1
L X ShowError MEMA Failed AT 30 NS
L X SetClk
L X 29
L A2 Val 476 ;Quit checking for RM parity errors at speeds faster than 30 ns.
;(ProcH board has a known problem).
L X TimeOut 40000000
L X Go BEGIN
L X Skip 1
L X ShowError MEMA Failed AT 29 NS (Timed out)
L A6 SkipE DONE+1
L X ShowError MEMA Failed AT 29 NS
L X SetClk
L X 28
L X TimeOut 40000000
L X Go BEGIN
L X Skip 1
L X ShowError MEMA Failed AT 28 NS (Timed out)
L A6 SkipE DONE+1
L X ShowError MEMA Failed AT 28 NS
L X SetClk
L X 27
L X TimeOut 40000000
L X Go BEGIN
L X Skip 1
L X ShowError MEMA Failed AT 27 NS (Timed out)
L A6 SkipE DONE+1
L X ShowError MEMA Failed AT 27 NS
L X SetClk
L X 26
L X TimeOut 40000000
L X Go BEGIN
L X Skip 1
L X ShowError MEMA Failed AT 26 NS (Timed out)
L A6 SkipE DONE+1
L X ShowError MEMA Failed AT 26 NS
L X SetClk
L X 25
L X TimeOut 40000000
L X Go BEGIN
L X Skip 1
L X ShowError MEMA Failed AT 25 NS (Timed out)
L A6 SkipE DONE+1
L X ShowError MEMA Failed AT 25 NS
L X SetClk
L X 24
L X TimeOut 40000000
L X Go BEGIN
L X Skip 1
L X ShowError MEMA Failed AT 24 NS (Timed out)
L A6 SkipE DONE+1
L X ShowError MEMA Failed AT 24 NS
L X SetClk
L X 23
L X TimeOut 40000000
L X Go BEGIN
L X Skip 1
L X ShowError MEMA Failed AT 23 NS (Timed out)
L A6 SkipE DONE+1
L X ShowError MEMA Failed AT 23 NS
L X SetClk
L X 22
L X TimeOut 40000000
L X Go BEGIN
L X Skip 1
L X ShowError MEMA Failed AT 22 NS (Timed out)
L A6 SkipE DONE+1
L X ShowError MEMA Failed AT 22 NS

11. MemMiscS.Midas

; Modified by Frank Vest
; May 7, 1985
L X SetClk
L X 31
L X RunProg
L X MEMMISC
L A6 SkipE DONE+1
L X ShowError MEMMISC Failed AT 31 NS
L X SetClk
L X 30
L X TimeOut 400000 ; 12 seconds
L X Go BEGIN
L X Skip 1
L X ShowError MEMMISC Failed AT 30 NS (Timed out)
L A6 SkipE DONE+1
L X ShowError MEMMISC Failed AT 30 NS
L X SetClk
L X 29
L A2 Val 476 ;Quit checking for RM parity errors at speeds faster than 30 ns.
;(ProcH board has a known problem).
L X TimeOut 400000
L X Go BEGIN
L X Skip 1
L X ShowError MEMMISC Failed AT 29 NS (Timed out)
L A6 SkipE DONE+1
L X ShowError MEMMISC Failed AT 29 NS
L X SetClk
L X 28
L X TimeOut 400000
L X Go BEGIN
L X Skip 1
L X ShowError MEMMISC Failed AT 28 NS (Timed out)
L A6 SkipE DONE+1
L X ShowError MEMMISC Failed AT 28 NS
L X SetClk
L X 27
L X TimeOut 400000
L X Go BEGIN
L X Skip 1
L X ShowError MEMMISC Failed AT 27 NS (Timed out)
L A6 SkipE DONE+1
L X ShowError MEMMISC Failed AT 27 NS
L X SetClk
L X 26
L X TimeOut 400000
L X Go BEGIN
L X Skip 1
L X ShowError MEMMISC Failed AT 26 NS (Timed out)
L A6 SkipE DONE+1
L X ShowError MEMMISC Failed AT 26 NS
L X SetClk
L X 25
L X TimeOut 400000
L X Go BEGIN
L X Skip 1
L X ShowError MEMMISC Failed AT 25 NS (Timed out)
L A6 SkipE DONE+1
L X ShowError MEMMISC Failed AT 25 NS
L X SetClk
L X 24
L X TimeOut 400000
L X Go BEGIN
L X Skip 1
L X ShowError MEMMISC Failed AT 24 NS (Timed out)
L A6 SkipE DONE+1
L X ShowError MEMMISC Failed AT 24 NS
L X SetClk
L X 23
L X TimeOut 400000
L X Go BEGIN
L X Skip 1
L X ShowError MEMMISC Failed AT 23 NS (Timed out)
L A6 SkipE DONE+1
L X ShowError MEMMISC Failed AT 23 NS
L X SetClk
L X 22
L X TimeOut 400000
L X Go BEGIN
L X Skip 1
L X ShowError MEMMISC Failed AT 22 NS (Timed out)
L A6 SkipE DONE+1
L X ShowError MEMMISC Failed AT 22 NS

12. IfuSimpleS.Midas

L X SetClk
L X 31
L X RunProg
L X IFUSIMPLE
L A6 SkipE DONE+1
L X ShowError IFUSIMPLE Failed AT 31 NS
L X SetClk
L X 30
L X TimeOut 100000
L X Go BEGIN
L X Skip 1
L X ShowError IFUSIMPLE Failed AT 30 NS. Timed out
L A6 SkipE DONE+1
L X ShowError IFUSIMPLE Failed AT 30 NS
L X SetClk
L X 29
L A2 Val 476 ;Quit checking for RM parity errors at speeds faster than 30 ns.
;(ProcH board has a known problem).
L X TimeOut 100000
L X Go BEGIN
L X Skip 1
L X ShowError IFUSIMPLE Failed AT 31 NS. Timed out
L A6 SkipE DONE+1
L X ShowError IFUSIMPLE Failed AT 29 NS
L X SetClk
L X 28
L X TimeOut 100000
L X Go BEGIN
L X Skip 1
L X ShowError IFUSIMPLE Failed AT 28 NS. Timed out
L A6 SkipE DONE+1
L X ShowError IFUSIMPLE Failed AT 28 NS
L X SetClk
L X 27
L X TimeOut 100000
L X Go BEGIN
L X Skip 1
L X ShowError IFUSIMPLE Failed AT 27 NS. Timed out
L A6 SkipE DONE+1
L X ShowError IFUSIMPLE Failed AT 27 NS
L X SetClk
L X 26
L X TimeOut 100000
L X Go BEGIN
L X Skip 1
L X ShowError IFUSIMPLE Failed AT 26 NS. Timed out
L A6 SkipE DONE+1
L X ShowError IFUSIMPLE Failed AT 26 NS
L X SetClk
L X 25
L X TimeOut 100000
L X Go BEGIN
L X Skip 1
L X ShowError IFUSIMPLE Failed AT 25 NS. Timed out
L A6 SkipE DONE+1
L X ShowError IFUSIMPLE Failed AT 25 NS
L X SetClk
L X 24
L X TimeOut 100000
L X Go BEGIN
L X Skip 1
L X ShowError IFUSIMPLE Failed AT 24 NS. Timed out
L A6 SkipE DONE+1
L X ShowError IFUSIMPLE Failed AT 24 NS
L X SetClk
L X 23
L X TimeOut 100000
L X Go BEGIN
L X Skip 1
L X ShowError IFUSIMPLE Failed AT 23 NS. Timed out
L A6 SkipE DONE+1
L X ShowError IFUSIMPLE Failed AT 23 NS
L X SetClk
L X 22
L X TimeOut 10000
L X Go BEGIN
L X Skip 1
L X ShowError IFUSIMPLE Failed AT 22 NS. Timed out
L A6 SkipE DONE+1
L X ShowError IFUSIMPLE Failed AT 22 NS

13. IfuComplexS.Midas

L X SetClk
L X 31
L X RunProg
L X IFUCOMPLEX
L A6 SkipE DONE+1
L X ShowError IFUCOMPLEX Failed AT 31 NS
L X SetClk
L X 30
L X TimeOut 100000
L X Go BEGIN
L X Skip 1
L X ShowError IFUCOMPLEX Failed AT 30 NS. Timed out
L A6 SkipE DONE+1
L X ShowError IFUCOMPLEX Failed AT 30 NS
L X SetClk
L X 29
L A2 Val 476 ;Quit checking for RM parity errors at speeds faster than 30 ns.
;(ProcH board has a known problem).
L X TimeOut 100000
L X Go BEGIN
L X Skip 1
L X ShowError IFUCOMPLEX Failed AT 29 NS. Timed out
L A6 SkipE DONE+1
L X ShowError IFUCOMPLEX Failed AT 29 NS
L X SetClk
L X 28
L X TimeOut 100000
L X Go BEGIN
L X Skip 1
L X ShowError IFUCOMPLEX Failed AT 28 NS. Timed out
L A6 SkipE DONE+1
L X ShowError IFUCOMPLEX Failed AT 28 NS
L X SetClk
L X 27
L X TimeOut 100000
L X Go BEGIN
L X Skip 1
L X ShowError IFUCOMPLEX Failed AT 27 NS. Timed out
L A6 SkipE DONE+1
L X ShowError IFUCOMPLEX Failed AT 27 NS
L X SetClk
L X 26
L X TimeOut 100000
L X Go BEGIN
L X Skip 1
L X ShowError IFUCOMPLEX Failed AT 26 NS. Timed out
L A6 SkipE DONE+1
L X ShowError IFUCOMPLEX Failed AT 26 NS
L X SetClk
L X 25
L X TimeOut 100000
L X Go BEGIN
L X Skip 1
L X ShowError IFUCOMPLEX Failed AT 25 NS. Timed out
L A6 SkipE DONE+1
L X ShowError IFUCOMPLEX Failed AT 25 NS
L X SetClk
L X 24
L X TimeOut 100000
L X Go BEGIN
L X Skip 1
L X ShowError IFUCOMPLEX Failed AT 24 NS. Timed out
L A6 SkipE DONE+1
L X ShowError IFUCOMPLEX Failed AT 24 NS
L X SetClk
L X 23
L X TimeOut 100000
L X Go BEGIN
L X Skip 1
L X ShowError IFUCOMPLEX Failed AT 23 NS. Timed out
L A6 SkipE DONE+1
L X ShowError IFUCOMPLEX Failed AT 23 NS
L X SetClk
L X 22
L X TimeOut 10000
L X Go BEGIN
L X Skip 1
L X ShowError IFUCOMPLEX Failed AT 22 NS. Timed out
L A6 SkipE DONE+1
L X ShowError IFUCOMPLEX Failed AT 22 NS

14. SboardTest.Midas

; 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 C9 Addr
L C10 Addr
L C11 Addr
L C12 Addr ITERATIONS
L C13 Addr MEMFLAGS
L C14 Addr FLAGS
L C15 Addr ROW 1
L C16 Addr
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
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 TimeOut 10000
L X Call ONLYSBOARDTEST(
L X Skip 1
L X ShowError Timed out
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 Timed out

15. CboardTest.Midas

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
L C9 Addr
L C10 Addr
L C11 Addr
L C12 Addr ITERATIONS
L C13 Addr MEMFLAGS
L C14 Addr FLAGS
L C15 Addr
L C16 Addr
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 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 TimeOut 10000
L X Call ONLYCBOARDTEST(
L X Skip 1
L X ShowError Timed out
;L X UnBrk SVATRYNEXTPAT
L X TimeOut 10000000
L X Go BEGIN
L X Skip 1
L X ShowError Timed out

16. XboardTest.Midas

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 MPATLOW
L C9 Addr MPATHI
L C10 Addr
L C11 Addr
L C12 Addr ITERATIONS
L C13 Addr MEMFLAGS
L C14 Addr FLAGS
L C15 Addr
L C16 Addr
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 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 TimeOut 10000
L X Call ONLYXBOARDTEST(
L X Skip 1
L X ShowError Timed out
;L X UnBrk SVATRYNEXTPAT
L X TimeOut 10000000
L X Go BEGIN
L X Skip 1
L X ShowError Timed out

17. DboardTest.Midas

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
L C9 Addr
L C10 Addr
L C11 Addr
L C12 Addr ITERATIONS
L C13 Addr MEMFLAGS
L C14 Addr FLAGS
L C15 Addr
L C16 Addr
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 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 TimeOut 10000
L X Call ONLYDBOARDTEST(
L X Skip 1
L X ShowError Timed out
;L X UnBrk SVATRYNEXTPAT
L X TimeOut 10000000
L X Go BEGIN
L X Skip 1
L X ShowError Timed out

18. FIO.Midas

; This test the MEMMISC test with the FIO option turned on
; Be sure that the memory system is ok before running the FIO Command file
; Last modified April 9, 1985
L X Reset
L X Do-it ; Added by McDaniel June 1, 1981 4:50 PM
L X Ld MEMMISC; load memAll diagnostic
;L X DisplayOn
L C0 Addr R0
L C1 Addr ANFAULTSX
L C2 Addr ANFAULTSX2
L C3 Addr ATESTTASKX
L C4 Addr ASUBTASKX

L C5 Addr ASRNX
L C6 Addr AUSESRN
L C7 Addr AMAKINGFAULTS
L C8 Addr RSCR
L C9 Addr RSCR2
L C10 Addr RSCR3
L C11 Addr T 20;End code stolen from "showS.midas"
L C12 Addr ITERATIONS
L C13 Addr MEMFLAGS
L C14 Addr FLAGS
L C15 Addr
L C16 Addr
L C17 Addr
L B0 Addr
L B1 Addr
L B2 Addr
L B3 Addr
L B4 Addr
L B5 Addr
L B6 Addr
L B7 Addr
L B8 Addr
L B9 Addr
L B10 Addr
L B11 Addr HOLD
L B12 Addr
L B13 Addr
L B14 Addr ARLINK
L B15 Addr TPC 2
L B16 Addr TPC 1;End code stolen from "showS.midas"
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; memMisc.midas July 10, 1979 2:51 PM
L X TimeOut 40000; increase timeout for 256k memory chips
L X Call FIOTESTON(); TURN ON FIO TEST
L X Skip 1
L X ShowError Timed out
L X TimeOut 100000
L X Go BEGIN
L X Skip 1
L X ShowError Timed out

19. LAG.Midas

.BeginL X RunProg
L X KERNEL
L A6 SkipE DONE+1
L X ShowError KERNEL Failed
L X RunProg
L X MEMMISC
L A6 SkipE DONE+1
L X ShowError MEMMISC Failed
L X RunProg
L X IFUSIMPLE
L A6 SkipE DONE+1
L X ShowError IFUSIMPLE Failed
L X RunProg
L X IFUCOMPLEX
L A6 SkipE DONE+1
L X ShowError IFUCOMPLEX Failed
L X RunProg
L X EVENTCOUNTERS
L A6 SkipE DONE+1
L X ShowError EVENTCOUNTERS Failed
L X RunProg
L X MEMA
L A6 SkipE DONE+1
L X ShowError MEMA Failed
L X BackSkip .Begin

20. LAG1.Midas

.BeginL X SetClk
L X 30
L X RunProg
L X KERNEL
L A6 SkipE DONE+1
L X ShowError KERNEL Failed at 30 Nanoseconds
L X RunProg
L X MEMMISC
L A6 SkipE DONE+1
L X ShowError MEMMISC Failed 30 Nanoseconds
L X RunProg
L X IFUSIMPLE
L A6 SkipE DONE+1
L X ShowError IFUSIMPLE Failed 30 Nanoseconds
L X RunProg
L X IFUCOMPLEX
L A6 SkipE DONE+1
L X ShowError IFUCOMPLEX Failed 30 Nanoseconds
L X RunProg
L X EVENTCOUNTERS
L A6 SkipE DONE+1
L X ShowError EVENTCOUNTERS Failed 30 Nanoseconds
L X RunProg
L X MEMA
L A6 SkipE DONE+1
L X ShowError MEMA Failed
L X ShowError Kernel MemMisc IfuSimple IfuComplex EventCounters and Mema ran at 30 ns

21. LAGSpeedtest.Midas

; Written by Frank Vest
; December 9, 1983 5:49 PM
; Last modified by Frank Vest May 7, 1985
L X SetClk
L X 31
L X RunProg
L X KERNEL
L A6 SkipE DONE+1
L X ShowError KERNEL Failed AT 31 NS
L X RunProg
L X MEMMISC
L A6 SkipE DONE+1
L X ShowError MEMMISC Failed AT 31 NS
L X RunProg
L X IFUSIMPLE
L A6 SkipE DONE+1
L X ShowError IFUSIMPLE Failed AT 31 NS
L X RunProg
L X IFUCOMPLEX
L A6 SkipE DONE+1
L X ShowError IFUCOMPLEX Failed AT 31 NS
L X RunProg
L X MEMA
L A6 SkipE DONE+1
L X ShowError MEMA Failed AT 31 NS
L X SetClk
L X 30
L X RunProg
L X KERNEL
L A6 SkipE DONE+1
L X ShowError KERNEL Failed AT 30 NS
L X RunProg
L X MEMMISC
L A6 SkipE DONE+1
L X ShowError MEMMISC Failed AT 30 NS
L X RunProg
L X IFUSIMPLE
L A6 SkipE DONE+1
L X ShowError IFUSIMPLE Failed AT 30 NS
L X RunProg
L X IFUCOMPLEX
L A6 SkipE DONE+1
L X ShowError IFUCOMPLEX Failed AT 30 NS
L X RunProg
L X MEMA
L A6 SkipE DONE+1
L X ShowError MEMA Failed AT 30 NS
L X SetClk
L X 29
;If we have RM parity errors at speeds faster than 30 ns. Turn checking off
;(ProcH board has a known problem).
L X RunProg
L X KERNEL
L A2 SkipE 12476 ; 12-9-83; Skip the next instruction if RM parity error.
L X Skip +5
L A2 Val 476
L X TimeOut 30000; 12 sec
L X Go
L X Skip 1
L X ShowError KERNEL Timed out at 29 ns.
L A6 SkipE DONE+1
L X ShowError KERNEL Failed AT 29 NS
L X RunProg
L X MEMMISC
L A2 SkipE 12476 ; 12-9-83; Skip the next instruction if RM parity error.
L X Skip +5
L A2 Val 476
L X TimeOut 400000; 40 sec
L X Go
L X Skip 1
L X ShowError MEMMISC Timed out at 29 ns.
L A6 SkipE DONE+1
L X ShowError MEMMISC Failed AT 29 NS
L X RunProg
L X IFUSIMPLE
L A2 SkipE 12476 ; 12-9-83; Skip the next instruction if RM parity error.
L X Skip +5
L A2 Val 476
L X TimeOut 30000; 12 sec
L X Go
L X Skip 1
L X ShowError IFUSIMPLE Timed out at 29 ns.
L A6 SkipE DONE+1
L X ShowError IFUSIMPLE Failed AT 29 NS
L X RunProg
L X IFUCOMPLEX
L A2 SkipE 12476 ; 12-9-83; Skip the next instruction if RM parity error.
L X Skip +5
L A2 Val 476
L X TimeOut 30000; 12 sec
L X Go
L X Skip 1
L X ShowError IFUCOMPLEX Timed out at 29 ns.
L A6 SkipE DONE+1
L X ShowError IFUCOMPLEX Failed AT 29 NS
L X RunProg
L X MEMA
L A2 SkipE 12476 ; 12-9-83; Skip the next instruction if RM parity error.
L X Skip +5
L A2 Val 476
L X TimeOut 40000000; 80 minutes
L X Go
L X Skip 1
L X ShowError MEMA Timed out at 29 ns.
L A6 SkipE DONE+1
L X ShowError MEMA Failed AT 29 NS
L X SetClk
L X 28
L X RunProg
L X KERNEL
L A2 SkipE 12476 ; 12-9-83; Skip the next instruction if RM parity error.
L X Skip +5; Skip 5 places if no RM parity error.
L A2 Val 476 ; Turn off RM parity errors ; 12-9-83
L X TimeOut 30000; 12 sec ; 12-9-83
L X Go ; Continue running diagnostic from RM parity errors. ; 12-9-83
L X Skip 1 ; 12-9-83
L X ShowError Kernel Timed out at 28 ns. ; 12-9-83
L A6 SkipE DONE+1
L X ShowError KERNEL Failed AT 28 NS
L X RunProg
L X MEMMISC
L A2 SkipE 12476 ; 12-9-83; Skip the next instruction if RM parity error.
L X Skip +5
L A2 Val 476
L X TimeOut 400000; 40 sec
L X Go
L X Skip 1
L X ShowError MEMMISC Timed out at 28 ns.
L A6 SkipE DONE+1
L X ShowError MEMMISC Failed AT 28 NS
L X RunProg
L X IFUSIMPLE
L A2 SkipE 12476 ; 12-9-83; Skip the next instruction if RM parity error.
L X Skip +5
L A2 Val 476
L X TimeOut 30000; 12 sec
L X Go
L X Skip 1
L X ShowError IFUSIMPLE Timed out at 28 ns.
L A6 SkipE DONE+1
L X ShowError IFUSIMPLE Failed AT 28 NS
L X RunProg
L X IFUCOMPLEX
L A2 SkipE 12476 ; 12-9-83; Skip the next instruction if RM parity error.
L X Skip +5
L A2 Val 476
L X TimeOut 30000; 12 sec
L X Go
L X Skip 1
L X ShowError IFUCOMPLEX Timed out at 28 ns.
L A6 SkipE DONE+1
L X ShowError IFUCOMPLEX Failed AT 28 NS
L X RunProg
L X MEMA
L A2 SkipE 12476 ; 12-9-83; Skip the next instruction if RM parity error.
L X Skip +5
L A2 Val 476
L X TimeOut 40000000; 80 minutes
L X Go
L X Skip 1
L X ShowError MEMA Timed out at 28 ns.
L A6 SkipE DONE+1
L X ShowError MEMA Failed AT 28 NS
L X SetClk
L X 27
L X RunProg
L X KERNEL
L A2 SkipE 12476 ; 12-9-83; Skip the next instruction if RM parity error.
L X Skip +5
L A2 Val 476
L X TimeOut 30000; 12 sec
L X Go
L X Skip 1
L X ShowError KERNEL Timed out at 27 ns.
L A6 SkipE DONE+1
L X ShowError KERNEL Failed AT 27 NS
L X RunProg
L X MEMMISC
L A2 SkipE 12476 ; 12-9-83; Skip the next instruction if RM parity error.
L X Skip +5
L A2 Val 476
L X TimeOut 400000; 40 sec
L X Go
L X Skip 1
L X ShowError MEMMISC Timed out at 27 ns.
L A6 SkipE DONE+1
L X ShowError MEMMISC Failed AT 27 NS
L X RunProg
L X IFUSIMPLE
L A2 SkipE 12476 ; 12-9-83; Skip the next instruction if RM parity error.
L X Skip +5
L A2 Val 476
L X TimeOut 30000; 12 sec
L X Go
L X Skip 1
L X ShowError IFUSIMPLE Timed out at 27 ns.
L A6 SkipE DONE+1
L X ShowError IFUSIMPLE Failed AT 27 NS
L X RunProg
L X IFUCOMPLEX
L A2 SkipE 12476 ; 12-9-83; Skip the next instruction if RM parity error.
L X Skip +5
L A2 Val 476
L X TimeOut 30000; 12 sec
L X Go
L X Skip 1
L X ShowError IFUCOMPLEX Timed out at 27 ns.
L A6 SkipE DONE+1
L X ShowError IFUCOMPLEX Failed AT 27 NS
L X RunProg
L X MEMA
L A2 SkipE 12476 ; 12-9-83; Skip the next instruction if RM parity error.
L X Skip +5
L A2 Val 476
L X TimeOut 40000000; 80 minutes
L X Go
L X Skip 1
L X ShowError MEMA Timed out at 27 ns.
L A6 SkipE DONE+1
L X ShowError MEMA Failed AT 27 NS
L X SetClk
L X 26
L X RunProg
L X KERNEL
L A2 SkipE 12476 ; 12-9-83; Skip the next instruction if RM parity error.
L X Skip +5
L A2 Val 476
L X TimeOut 30000; 12 sec
L X Go
L X Skip 1
L X ShowError KERNEL Timed out at 26 ns.
L A6 SkipE DONE+1
L X ShowError KERNEL Failed AT 26 NS
L X RunProg
L X MEMMISC
L A2 SkipE 12476 ; 12-9-83; Skip the next instruction if RM parity error.
L X Skip +5
L A2 Val 476
L X TimeOut 400000; 40 sec
L X Go
L X Skip 1
L X ShowError MEMMISC Timed out at 26 ns.
L A6 SkipE DONE+1
L X ShowError MEMMISC Failed AT 26 NS
L X RunProg
L X IFUSIMPLE
L A2 SkipE 12476 ; 12-9-83; Skip the next instruction if RM parity error.
L X Skip +5
L A2 Val 476
L X TimeOut 30000; 12 sec
L X Go
L X Skip 1
L X ShowError IFUSIMPLE Timed out at 26 ns.
L A6 SkipE DONE+1
L X ShowError IFUSIMPLE Failed AT 26 NS
L X RunProg
L X IFUCOMPLEX
L A2 SkipE 12476 ; 12-9-83; Skip the next instruction if RM parity error.
L X Skip +5
L A2 Val 476
L X TimeOut 30000; 12 sec
L X Go
L X Skip 1
L X ShowError IFUCOMPLEX Timed out at 26 ns.
L A6 SkipE DONE+1
L X ShowError IFUCOMPLEX Failed AT 26 NS
L X RunProg
L X MEMA
L A2 SkipE 12476 ; 12-9-83; Skip the next instruction if RM parity error.
L X Skip +5
L A2 Val 476
L X TimeOut 40000000; 80 minutes
L X Go
L X Skip 1
L X ShowError MEMA Timed out at 26 ns.
L A6 SkipE DONE+1
L X ShowError MEMA Failed AT 26 NS
L X SetClk
L X 25
L X RunProg
L X KERNEL
L A2 SkipE 12476 ; 12-9-83; Skip the next instruction if RM parity error.
L X Skip +5
L A2 Val 476
L X TimeOut 30000; 12 sec
L X Go
L X Skip 1
L X ShowError KERNEL Timed out at 25 ns.
L A6 SkipE DONE+1
L X ShowError KERNEL Failed AT 25 NS
L X RunProg
L X MEMMISC
L A2 SkipE 12476 ; 12-9-83; Skip the next instruction if RM parity error.
L X Skip +5
L A2 Val 476
L X TimeOut 400000; 40 sec
L X Go
L X Skip 1
L X ShowError MEMMISC Timed out at 25 ns.
L A6 SkipE DONE+1
L X ShowError MEMMISC Failed AT 25 NS
L X RunProg
L X IFUSIMPLE
L A2 SkipE 12476 ; 12-9-83; Skip the next instruction if RM parity error.
L X Skip +5
L A2 Val 476
L X TimeOut 30000; 12 sec
L X Go
L X Skip 1
L X ShowError IFUSIMPLE Timed out at 25 ns.
L A6 SkipE DONE+1
L X ShowError IFUSIMPLE Failed AT 25 NS
L X RunProg
L X IFUCOMPLEX
L A2 SkipE 12476 ; 12-9-83; Skip the next instruction if RM parity error.
L X Skip +5
L A2 Val 476
L X TimeOut 30000; 12 sec
L X Go
L X Skip 1
L X ShowError IFUCOMPLEX Timed out at 25 ns.
L A6 SkipE DONE+1
L X ShowError IFUCOMPLEX Failed AT 25 NS
L X RunProg
L X MEMA
L A2 SkipE 12476 ; 12-9-83; Skip the next instruction if RM parity error.
L X Skip +5
L A2 Val 476
L X TimeOut 40000000; 80 minutes
L X Go
L X Skip 1
L X ShowError MEMA Timed out at 25 ns.
L A6 SkipE DONE+1
L X ShowError MEMA Failed AT 25 NS
L X SetClk
L X 24
L X RunProg
L X KERNEL
L A2 SkipE 12476 ; 12-9-83; Skip the next instruction if RM parity error.
L X Skip +5
L A2 Val 476
L X TimeOut 30000; 12 sec
L X Go
L X Skip 1
L X ShowError KERNEL Timed out at 24 ns.
L A6 SkipE DONE+1
L X ShowError KERNEL Failed AT 24 NS
L X RunProg
L X MEMMISC
L A2 SkipE 12476 ; 12-9-83; Skip the next instruction if RM parity error.
L X Skip +5
L A2 Val 476
L X TimeOut 400000; 40 sec
L X Go
L X Skip 1
L X ShowError MEMMISC Timed out at 24 ns.
L A6 SkipE DONE+1
L X ShowError MEMMISC Failed AT 24 NS
L X RunProg
L X IFUSIMPLE
L A2 SkipE 12476 ; 12-9-83; Skip the next instruction if RM parity error.
L X Skip +5
L A2 Val 476
L X TimeOut 30000; 12 sec
L X Go
L X Skip 1
L X ShowError IFUSIMPLE Timed out at 24 ns.
L A6 SkipE DONE+1
L X ShowError IFUSIMPLE Failed AT 24 NS
L X RunProg
L X IFUCOMPLEX
L A2 SkipE 12476 ; 12-9-83; Skip the next instruction if RM parity error.
L X Skip +5
L A2 Val 476
L X TimeOut 30000; 12 sec
L X Go
L X Skip 1
L X ShowError IFUCOMPLEX Timed out at 24 ns.
L A6 SkipE DONE+1
L X ShowError IFUCOMPLEX Failed AT 24 NS
L X RunProg
L X MEMA
L A2 SkipE 12476 ; 12-9-83; Skip the next instruction if RM parity error.
L X Skip +5
L A2 Val 476
L X TimeOut 40000000; 80 minutes
L X Go
L X Skip 1
L X ShowError MEMA Timed out at 24 ns.
L A6 SkipE DONE+1
L X ShowError MEMA Failed AT 24 NS
L X ShowError Kernel MemMisc IfuSimple IfuComplex EventCounters and Mema ran error free at 24 ns.

22. KernelTask.Midas

; Kernel task circulate test
; By Frank Vest
; July 6, 1983 2:24 PM
L X DisplayOff
L A19 SkipE 0 ; Task 0
L X ShowError Kernel Failed. TASK problem, should be at TASK 0
L X TimeOut 30000; 12 sec
L X Proceed ; ;P
L X Skip 1
L X ShowError Timed out
; For the next task
L X DisplayOff
L A19 SkipE 1 ; Task 1
L X ShowError Kernel Failed. TASK problem, should be at TASK 1
L X TimeOut 30000; 12 sec
L X Proceed ; ;P
L X Skip 1
L X ShowError Timed out
; For the next task
L X DisplayOff
L A19 SkipE 2 ; Task 2
L X ShowError Kernel Failed. TASK problem, should be at TASK 2
L X TimeOut 30000; 12 sec
L X Proceed ; ;P
L X Skip 1
L X ShowError Timed out
; For the next task
L X DisplayOff
L A19 SkipE 3 ; Task 3
L X ShowError Kernel Failed. TASK problem, should be at TASK 3
L X TimeOut 30000; 12 sec
L X Proceed ; ;P
L X Skip 1
L X ShowError Timed out
; For the next task
L X DisplayOff
L A19 SkipE 4 ; Task 4
L X ShowError Kernel Failed. TASK problem, should be at TASK 4
L X TimeOut 30000; 12 sec
L X Proceed ; ;P
L X Skip 1
L X ShowError Timed out
; For the next task
L X DisplayOff
L A19 SkipE 5 ; Task 5
L X ShowError Kernel Failed. TASK problem, should be at TASK 5
L X TimeOut 30000; 12 sec
L X Proceed ; ;P
L X Skip 1
L X ShowError Timed out
; For the next task
L X DisplayOff
L A19 SkipE 6 ; Task 6
L X ShowError Kernel Failed. TASK problem, should be at TASK 6
L X TimeOut 30000; 12 sec
L X Proceed ; ;P
L X Skip 1
L X ShowError Timed out
; For the next task
L X DisplayOff
L A19 SkipE 7 ; Task 7
L X ShowError Kernel Failed. TASK problem, should be at TASK 7
L X TimeOut 30000; 12 sec
L X Proceed ; ;P
L X Skip 1
L X ShowError Timed out
; For the next task
L X DisplayOff
L A19 SkipE 10 ; Task 10
L X ShowError Kernel Failed. TASK problem, should be at TASK 10
L X TimeOut 30000; 12 sec
L X Proceed ; ;P
L X Skip 1
L X ShowError Timed out
; For the next task
L A19 SkipE 11 ; Task 11
L X ShowError Kernel Failed. TASK problem, should be at TASK 11
L X TimeOut 30000; 12 sec
L X Proceed ; ;P
L X Skip 1
L X ShowError Timed out
; For the next task
L A19 SkipE 13 ; Task 13
L X ShowError Kernel Failed. TASK problem, should be at TASK 13
L X TimeOut 30000; 12 sec
L X Proceed ; ;P
L X Skip 1
L X ShowError Timed out
; For the next task
L A19 SkipE 14 ; Task 14
L X ShowError Kernel Failed. TASK problem, should be at TASK 14
L X TimeOut 30000; 12 sec
L X Proceed ; ;P
L X Skip 1
L X ShowError Timed out
; For the next task
L A19 SkipE 15 ; Task 15
L X ShowError Kernel Failed. TASK problem, should be at TASK 15
L X TimeOut 30000; 12 sec
L X Proceed ; ;P
L X Skip 1
L X ShowError Timed out
; For the next task
L A19 SkipE 16 ; Task 16
L X ShowError Kernel Failed. TASK problem, should be at TASK 16
L X TimeOut 30000; 12 sec
L X Proceed ; ;P
L X Skip 1
L X ShowError Timed out
; For the next task
L A19 SkipE 17 ; Task 17
L X ShowError Kernel Failed. TASK problem, should be at TASK 17
L X TimeOut 30000; 12 sec
L X Proceed ; ;P
L X Skip 1
L X ShowError Timed out
; For the next task
L A19 SkipE 0 ; Task 0
L X ShowError Kernel Failed. TASK problem, should be at TASK 0
L X TimeOut 30000; 12 sec
L X Proceed ; ;P
L X Skip 1
L X ShowError Timed out
; For the next task
L A19 SkipE 1 ; Task 1
L X ShowError Kernel Failed. TASK problem, should be at TASK 1
L X TimeOut 30000; 12 sec
L X Proceed ; ;P
L X Skip 1
L X ShowError Timed out
; For the next task
L A19 SkipE 2 ; Task 2
L X ShowError Kernel Failed. TASK problem, should be at TASK 2
L X TimeOut 30000; 12 sec
L X Proceed ; ;P
L X Skip 1
L X ShowError Timed out
; For the next task
L A19 SkipE 2 ; Task 2
L X ShowError Kernel Failed. TASK problem, should be at TASK 2
L X TimeOut 30000; 12 sec
L X Proceed ; ;P
L X Skip 1
L X ShowError Timed out
; For the next task
L A19 SkipE 3 ; Task 3
L X ShowError Kernel Failed. TASK problem, should be at TASK 3
L X TimeOut 30000; 12 sec
L X Proceed ; ;P
L X Skip 1
L X ShowError Timed out
; For the next task
L A19 SkipE 3 ; Task 3
L X ShowError Kernel Failed. TASK problem, should be at TASK 3
L X TimeOut 30000; 12 sec
L X Proceed ; ;P
L X Skip 1
L X ShowError Timed out
; For the next task
L A19 SkipE 4 ; Task 4
L X ShowError Kernel Failed. TASK problem, should be at TASK 4
L X TimeOut 30000; 12 sec
L X Proceed ; ;P
L X Skip 1
L X ShowError Timed out
; For the next task
L A19 SkipE 4 ; Task 4
L X ShowError Kernel Failed. TASK problem, should be at TASK 4
L X TimeOut 30000; 12 sec
L X Proceed ; ;P
L X Skip 1
L X ShowError Timed out
; For the next task
L A19 SkipE 5 ; Task 5
L X ShowError Kernel Failed. TASK problem, should be at TASK 5
L X TimeOut 30000; 12 sec
L X Proceed ; ;P
L X Skip 1
L X ShowError Timed out
; For the next task
L A19 SkipE 5 ; Task 5
L X ShowError Kernel Failed. TASK problem, should be at TASK 5
L X TimeOut 30000; 12 sec
L X Proceed ; ;P
L X Skip 1
L X ShowError Timed out
; For the next task
L A19 SkipE 6 ; Task 6
L X ShowError Kernel Failed. TASK problem, should be at TASK 6
L X TimeOut 30000; 12 sec
L X Proceed ; ;P
L X Skip 1
L X ShowError Timed out
; For the next task
L A19 SkipE 7 ; Task 7
L X ShowError Kernel Failed. TASK problem, should be at TASK 7
L X TimeOut 30000; 12 sec
L X Proceed ; ;P
L X Skip 1
L X ShowError Timed out
; For the next task
L A19 SkipE 7 ; Task 7
L X ShowError Kernel Failed. TASK problem, should be at TASK 7
L X TimeOut 30000; 12 sec
L X Proceed ; ;P
L X Skip 1
L X ShowError Timed out
; For the next task
L A19 SkipE 10 ; Task 10
L X ShowError Kernel Failed. TASK problem, should be at TASK 10
L X TimeOut 30000; 12 sec
L X Proceed ; ;P
L X Skip 1
L X ShowError Timed out
; For the next task
L A19 SkipE 10 ; Task 10
L X ShowError Kernel Failed. TASK problem, should be at TASK 10
L X TimeOut 30000; 12 sec
L X Proceed ; ;P
L X Skip 1
L X ShowError Timed out
; For the next task
L A19 SkipE 11 ; Task 11
L X ShowError Kernel Failed. TASK problem, should be at TASK 11
L X TimeOut 30000; 12 sec
L X Proceed ; ;P
L X Skip 1
L X ShowError Timed out
; For the next task
L A19 SkipE 13 ; Task 13
L X ShowError Kernel Failed. TASK problem, should be at TASK 13
L X TimeOut 30000; 12 sec
L X Proceed ; ;P
L X Skip 1
L X ShowError Timed out
; For the next task
L A19 SkipE 14 ; Task 14
L X ShowError Kernel Failed. TASK problem, should be at TASK 14
L X TimeOut 30000; 12 sec
L X Proceed ; ;P
L X Skip 1
L X ShowError Timed out
; For the next task
L A19 SkipE 15 ; Task 15
L X ShowError Kernel Failed. TASK problem, should be at TASK 15
L X TimeOut 30000; 12 sec
L X Proceed ; ;P
L X Skip 1
L X ShowError Timed out
; For the next task
L A19 SkipE 16 ; Task 16
L X ShowError Kernel Failed. TASK problem, should be at TASK 16
L X TimeOut 30000; 12 sec
L X Proceed ; ;P
L X Skip 1
L X ShowError Timed out
; For the next task
L A19 SkipE 17 ; Task 17
L X ShowError Kernel Failed. TASK problem, should be at TASK 17
L X TimeOut 30000; 12 sec
L X Proceed ; ;P
L X Skip 1
L X ShowError Timed out
; For the next task
L A19 SkipE 0 ; Task 0
L X ShowError Kernel Failed. TASK problem, should be at TASK 0

23. VoltageTest.Midas

;Voltage test
;By Frank Vest
;February 28, 1984 10:00 AM

;+12 VOLTS MIN AND MAX (Normal voltage)

L B0 Addr $ABSOLUTE 2
L B0 SkipGE BA; 11.51
L X ShowError +12 Volts too low (11.51 min.)
L B0 SkipLE CA ; 12.50
L X ShowError +12 Volts too high (12.50 max.)

;+5 VOLTS MIN AND MAX
L B0 Addr $ABSOLUTE 3
L B0 SkipGE B8 ; 4.82
L X ShowError +5 Volts too low (4.82 min.)
L B0 SkipLE C6 ; 5.19
L X ShowError +5 Volts too high (5.19 max.)

;-2 VOLTS MIN AND MAX
L B0 Addr $ABSOLUTE 4
L B0 SkipGE BB ; 1.89
L X ShowError -2 Volts too low (1.89 min.)
L B0 SkipLE D0 ; 2.10
L X ShowError -2 Volts too high (2.10 max.)

;-5.2 VOLTS MIN AND MAX
L B0 Addr $ABSOLUTE 5
L B0 SkipGE C3; 5.05
L X ShowError -5.2 Volts too low (5.05 min.)
L B0 SkipLE CF; 5.36
L X ShowError -5.2 Volts too high (5.36 max.)

;+12 VOLTS MIN AND MAX (Maximum voltages read)

L B0 Addr $ABSOLUTE 3E
L B0 SkipGE BA; 11.51
L X ShowError MAXVOLTS +12 Volts too low (11.51 min.)
L B0 SkipLE CA ; 12.50
L X ShowError MAXVOLTS +12 Volts too high (12.50 max.)

;+5 VOLTS MIN AND MAX
L B0 Addr $ABSOLUTE 3F
L B0 SkipGE B8 ; 4.82
L X ShowError MAXVOLTS +5 Volts too low (4.82 min.)
L B0 SkipLE C6 ; 5.19
L X ShowError MAXVOLTS +5 Volts too high (5.19 max.)

;-2 VOLTS MIN AND MAX
L B0 Addr $ABSOLUTE 40
L B0 SkipGE BB ; 1.89
L X ShowError MAXVOLTS -2 Volts too low (1.89 min.)
L B0 SkipLE D0 ; 2.10
L X ShowError MAXVOLTS -2 Volts too high (2.10 max.)

;-5.2 VOLTS MIN AND MAX
L B0 Addr $ABSOLUTE 41
L B0 SkipGE C3; 5.05
L X ShowError MAXVOLTS -5.2 Volts too low (5.05 min.)
L B0 SkipLE CF; 5.36
L X ShowError MAXVOLTS -5.2 Volts too high (5.36 max.)

;+12 VOLTS MIN AND MAX ( Min. voltages read)

L B0 Addr $ABSOLUTE 2A
L B0 SkipGE BA; 11.51
L X ShowError MINVOLTS +12 Volts too low (11.51 min.)
L B0 SkipLE CA ; 12.50
L X ShowError MINVOLTS +12 Volts too high (12.50 max.)

;+5 VOLTS MIN AND MAX
L B0 Addr $ABSOLUTE 2B
L B0 SkipGE B8 ; 4.82
L X ShowError MINVOLTS +5 Volts too low (4.82 min.)
L B0 SkipLE C6 ; 5.19
L X ShowError MINVOLTS +5 Volts too high (5.19 max.)
;L X ShowError MINVOLTS +5 Volts ok.; For debugging

;-2 VOLTS MIN AND MAX
L B0 Addr $ABSOLUTE 2C
L B0 SkipGE BB ; 1.89
L X ShowError MINVOLTS -2 Volts too low (1.89 min.)
L B0 SkipLE D0 ; 2.10
L X ShowError MINVOLTS -2 Volts too high (2.10 max.)

;-5.2 VOLTS MIN AND MAX
L B0 Addr $ABSOLUTE 2D
L B0 SkipGE C3; 5.05
L X ShowError MINVOLTS -5.2 Volts too low (5.05 min.)
L B0 SkipLE CF; 5.36
L X ShowError MINVOLTS -5.2 Volts too high (5.36 max.)

24. CurrentTest.Midas

;Current test
;By Frank Vest
;February 28, 1984 10:01 AM

;+12 VOLTS MIN AND MAX (Normal Current)

L B0 Addr $ABSOLUTE 6
L B0 SkipGE 0; 0 amps
L X ShowError +12 Current too low (AMPS "0" Amps min.)
L B0 SkipLE 10 ; 3 amps
L X ShowError +12 Current too high (AMPS "3" Amps max.)

;+5 VOLTS MIN AND MAX CURRENT CHECK
L B0 Addr $ABSOLUTE 7
L B0 SkipGE 1 ; 3 amps
L X ShowError +5 Current too low (AMPS "3" Amps min.)
L B0 SkipLE 17 ; 61 amps
L X ShowError +5 Current too high (AMPS "61" Amps max.)

;-2 VOLTS MIN AND MAX CURRENT CHECK
L B0 Addr $ABSOLUTE 8
L B0 SkipGE 10 ; 41 amps
L X ShowError -2 Current too low (AMPS "41" Amps min.)
L B0 SkipLE 1B ; 69 amps
L X ShowError -2 Current too high (AMPS "69" Amps max.)

;-5.2 VOLTS MIN AND MAX CURRENT CHECK
L B0 Addr $ABSOLUTE 9
L B0 SkipGE 28; 151 amps
L X ShowError -5.2 Current too low (AMPS "151" Amps min.)
L B0 SkipLE 3B; 222 amps
L X ShowError -5.2 Current too high (AMPS "222" Amps max.)

;+12 VOLTS CURRENT CHECK (MINAMPS)

L B0 Addr $ABSOLUTE 2E
L B0 SkipGE 0; 0 amps
L X ShowError +12 Current too low (MINAMPS "0" Amps min.)
L B0 SkipLE 10 ; 3 amps
L X ShowError +12 Current too high (MINAMPS)

;+5 VOLTS CURRENT CHECK (MINAMPS)
L B0 Addr $ABSOLUTE 2F
L B0 SkipGE 0 ; 0 amps
L X ShowError +5 Current too low (MINAMPS "0" Amps min.)
L B0 SkipLE 17 ; 61 amps
L X ShowError +5 Current too high (MINAMPS)

;-2 VOLTS CURRENT CHECK (MINAMPS)
L B0 Addr $ABSOLUTE 30
L B0 SkipGE 10 ; 41 amps
L X ShowError -2 Current too low (MINAMPS "41" Amps min.)
L B0 SkipLE 1B ; 69 amps
L X ShowError -2 Current too high (MINAMPS)

;-5.2 VOLTS CURRENT CHECK (MINAMPS)
L B0 Addr $ABSOLUTE 31
L B0 SkipGE 28; 151 amps
L X ShowError -5.2 Current too low (MINAMPS "151" Amps min.)
L B0 SkipLE 3B; 222 amps
L X ShowError -5.2 Current too high (MINAMPS)

;+12 VOLTS CURRENT CHECK (MAXAMPS)

L B0 Addr $ABSOLUTE 42
L B0 SkipGE 0; 0 amps
L X ShowError +12 Current too low (MAXAMPS)
L B0 SkipLE 10 ; 3 amps
L X ShowError +12 Current too high (MAXAMPS "3" Amps max.)

;+5 VOLTS CURRENT CHECK (MAXAMPS)
L B0 Addr $ABSOLUTE 43
L B0 SkipGE 1 ; 3 amps
L X ShowError +5 Current too low (MAXAMPS)
L B0 SkipLE 17 ; 61 amps
L X ShowError +5 Current too high (MAXAMPS "61" Amps max.)

;-2 VOLTS CURRENT CHECK (MAXAMPS)
L B0 Addr $ABSOLUTE 44
L B0 SkipGE 10 ; 41 amps
L X ShowError -2 Current too low (MAXAMPS)
L B0 SkipLE 1B ; 69 amps
L X ShowError -2 Current too high (MAXAMPS "69" Amps max.)

;-5.2 VOLTS CURRENT CHECK (MAXAMPS)
L B0 Addr $ABSOLUTE 45
L B0 SkipGE 28; 151 amps
L X ShowError -5.2 Current too low (MAXAMPS)
L B0 SkipLE 3B; 222 amps
L X ShowError -5.2 Current too high (MAXAMPS "222" Amps max.)

25. TemperatureTest.Midas

;Temperature test
;By Frank Vest
;June 29, 1985
;Temperature test

;Baseboard
L B0 Addr $ABSOLUTE A
L B0 SkipGE 94; 17 Degrees C
L X ShowError BaseBoard temperature too low (17 Degrees C min.)
L B0 SkipLE A0 ; 41
L X ShowError BaseBoard temperature too high (41 Degrees C max.)

;ContB board
L B0 Addr $ABSOLUTE B
L B0 SkipGE 94; 17 Degrees C
L X ShowError ContB Board temperature too low (17 Degrees C min.)
L B0 SkipLE A0 ; 41
L X ShowError ContB Board temperature too high (41 Degrees C max.)

;ProcL board
L B0 Addr $ABSOLUTE D
L B0 SkipGE 94; 17 Degrees C
L X ShowError ProcL board temperature too low (17 Degrees C min.)
L B0 SkipLE A0 ; 41
L X ShowError ProcL board temperature too high (41 Degrees C max.)

;ProcH board
L B0 Addr $ABSOLUTE E
L B0 SkipGE 94; 17 Degrees C
L X ShowError ProcH board temperature too low (17 Degrees C min.)
L B0 SkipLE A0 ; 41
L X ShowError ProcH board temperature too high (41 Degrees C max.)

;IFU board
L B0 Addr $ABSOLUTE F
L B0 SkipGE 94; 17 Degrees C
L X ShowError IFU board temperature too low (17 Degrees C min.)
L B0 SkipLE A0 ; 41
L X ShowError IFU board temperature too high (41 Degrees C max.)

;MemD board
L B0 Addr $ABSOLUTE 12
L B0 SkipGE 94; 17 Degrees C
L X ShowError MemD board temperature too low (17 Degrees C min.)
L B0 SkipLE A0 ; 41
L X ShowError MemD board temperature too high (41 Degrees C max.)

;DSK/ETH board
L B0 Addr $ABSOLUTE 13
L B0 SkipGE 94; 17 Degrees C
L X ShowError DSK/ETH board temperature too low (17 Degrees C min.)
L B0 SkipLE A0 ; 41
L X ShowError DSK/ETH board temperature too high (41 Degrees C max.)

;Temperature test for "Max" temperature ever logged.

;Baseboard
L B0 Addr $ABSOLUTE 46
L B0 SkipGE 94; 17 Degrees C
L X ShowError BaseBoard "MAXTEMP" too low (17 Degrees C min.)
L B0 SkipLE A0 ; 41
L X ShowError BaseBoard "MAXTEMP" too high (41 Degrees C max.)

;ContB board
L B0 Addr $ABSOLUTE 47
L B0 SkipGE 94; 17 Degrees C
L X ShowError ContB Board "MAXTEMP" too low (17 Degrees C min.)
L B0 SkipLE A0 ; 41
L X ShowError ContB Board "MAXTEMP" too high (41 Degrees C max.)

;ProcL board
L B0 Addr $ABSOLUTE 49
L B0 SkipGE 94; 17 Degrees C
L X ShowError ProcL board "MAXTEMP" too low (17 Degrees C min.)
L B0 SkipLE A0 ; 41
L X ShowError ProcL board "MAXTEMP" too high (41 Degrees C max.)

;ProcH board
L B0 Addr $ABSOLUTE 4A
L B0 SkipGE 94; 17 Degrees C
L X ShowError ProcH board "MAXTEMP" too low (17 Degrees C min.)
L B0 SkipLE A0 ; 41
L X ShowError ProcH board "MAXTEMP" too high (41 Degrees C max.)

;IFU board
L B0 Addr $ABSOLUTE 4B
L B0 SkipGE 94; 17 Degrees C
L X ShowError IFU board "MAXTEMP" too low (17 Degrees C min.)
L B0 SkipLE A0 ; 41
L X ShowError IFU board "MAXTEMP" too high (41 Degrees C max.)

;MemD board
L B0 Addr $ABSOLUTE 4E
L B0 SkipGE 94; 17 Degrees C
L X ShowError MemD board "MAXTEMP" too low (17 Degrees C min.)
L B0 SkipLE A0 ; 41
L X ShowError MemD board "MAXTEMP" too high (41 Degrees C max.)

;DSK/ETH board
L B0 Addr $ABSOLUTE 4F
L B0 SkipGE 94; 17 Degrees C
L X ShowError DSK/ETH board "MAXTEMP" too low (17 Degrees C min.)
L B0 SkipLE A0 ; 41
L X ShowError DSK/ETH board "MAXTEMP" too high (41 Degrees C max.)

26. VIT.Midas

L X RdCmds VOLTAGETEST
L X RdCmds CURRENTTEST
L X RdCmds TEMPERATURETEST