L X Reset 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 B19 Addr TOPE L B18 Addr READY L B17 Addr PENC L B16 Addr BNPC L B15 Addr TNIA L B9 Addr STKP L B10 Addr STK 0 L B11 Addr STK 1 L B12 Addr STK 2 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 CNT L C10 Addr Q L C11 Addr FLAGS ; control for hold, task simulator L C12 Addr ITERATIONS ; count of iterations L C13 Addr NEXTTASK L C14 Addr HOLDVALUE 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 C11 Val 7 ; TURN ON TASK CIRC, HOLD SIM, TASK SIM 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