function: SYSTEM-STARTUP
function: UPDATE-MICROSECOND-CLOCK
function: INITIALIZE-MAIN-CONSOLE
function: FIND-MAIN-CONSOLE
function: INTERNAL
function: SETUP-MAIN-CONSOLE-HARDWARE
function: MAIN-CONSOLE-VIDEO-ADDRESS
function: AUX-SET-WHO-LINE-RUN-LIGHT-LOC
function: SET-RUN-LIGHT
function: INITIALIZE-STORAGE
function: INITIALIZE-DISK
function: INITIALIZE-IO-WIRED
function: SETUP-DISK-QUEUE
function: %SET-DISK-DCW-INDEX
function: REINITIALIZE-STORAGE
function: REINITIALIZE-PHT-AND-MMPT
function: INITIALIZE-STORAGE-CLEAR-PHT
function: ADJUST-*COUNT-SWAP-PAGES*
function: INITIALIZE-GC-MAP
function: FILL-GC-MAP
function: INITIALIZE-WIRED-SCHEDULER
function: PRESET-MAIN-STACK-BUFFER

end of SYSTEM-STARTUP ()

function: LISP-TOP-LEVEL-WARM
function: LISP-REINITIALIZE-PART-1
function: RESET-WARM-BOOT-BINDINGS
function: TIME
function: FULL-MICROSECOND-TIME
function: INITIALIZE-COLD-LOAD-STREAM
function: INITIALIZE-CONSOLE
function: DISABLE-CONSOLES
function: VALIDATE-KEYWORDS-INTERNAL
function: INITIALIZE-SLB-CONSOLE-WIRED
function: %VMA-TO-WIRED-PMA
function: FILL-ARRAY
function: FILL-ARRAY
function: FIND-CONSOLE-DEVICE
function: EMERGENCY-BREAK

---
%sub-bignum-step 
store-array-leader-immed
setup-1d-array 
ap-1 
%resume-main-stack-buffer 
%add-bignum-step 
%divide-bignum-step 

take-rest-arg
branch-endp
member-fast 
branch-not-endp PC|-4w1h (500146356,e)
take-keyword-argument
%funcall-in-auxiliary-stack-buffer 


-------------

function: DISABLE-CONSOLES

(defun disable-consoles (&key abort)
  (loop while *secondary-consoles*
	do (console-disable (pop *secondary-consoles*) :abort abort))
  (when *main-console*
    (console-disable (shiftf *main-console* nil) :abort abort))
  (setf *console* nil)
  (setf *slb-main-console* nil)
  (setf *consoles* nil)
  nil)

500664067 op  152 take-rest-arg 0
500664070 op  101 push-constant 00
500664070 op  102 push-local FP 0
500664071 op  310 call-2-ignore 01
500664071 op  101 push-constant 02
500664072 op  146 take-keyword-argument FP 0
500664072 op 1120 push-nil 
500664073 op  160 branch PC|4w1h (500664077,o)
500664073 op  100 push-indirect 03
500664074 op 1100 car 
500664074 op  100 push-indirect 03
500664075 op 1101 cdr 
500664075 op  111 pop-indirect 03
500664076 op  101 push-constant 02
500664076 op  102 push-local FP 1
500664077 op  314 call-3-ignore 04
500664077 op  100 push-indirect 03
500664100 op  161 branch-true PC|-5w1h (500664073,o)
500664100 op  100 push-indirect 05
500664101 op  166 branch-false-and-pop PC|3w0h (500664104,e)
500664101 op 1120 push-nil 
500664102 op  111 pop-indirect 05
500664102 op  101 push-constant 02
500664103 op  102 push-local FP 1
500664103 op  314 call-3-ignore 04
500664104 op 1120 push-nil 
500664104 op  107 movem-indirect 06
500664105 op  107 movem-indirect 07
500664105 op  107 movem-indirect 010
500664106 op 1370 return-stack 

function: 'VALIDATE-KEYWORDS-INTERNAL'

47:-004:10500664110 (0x45036848)
50:>002:04025410314 (0x205610cc)
51: 000:00000000000 (0x0)

500146350 02:205683b1 05:55032cd4 07:75b04ad6 07:75b04ae2 
500146354 10:01420606 10:01420d82 10:004202ad 11:10729eff 

500146354 00606 00142  00d82 00142  002ad 00042  09eff 01072  

debug> di 0500146354
500146354 op  102 push-local FP 1
500146355 op  202 branch-endp PC|6w1h (500146363,o)
500146355 op  102 push-local FP 1
500146356 op  255 push-car-local FP 2
500146356 op  102 push-local FP 0
500146357 op 1236 member-fast 
500146357 op  162 branch-false PC|10w0h (500146367,o)
500146360 op 1101 cdr 
500146360 op  102 push-local FP 2
500146361 op  202 branch-endp PC|3w0h (500146364,e)
500146361 op 1101 cdr 
500146362 op  102 push-local FP 2
500146362 op  203 branch-not-endp PC|-4w1h (500146356,e)
500146363 op 1374 return-nil 
500146363 op 1374 return-nil 
500146364 op  101 push-constant 00
500146364 op  101 push-constant 01
500146365 op  102 push-local FP 1
500146365 op 1376 last 
500146366 op 1100 car 
500146366 op  314 call-3-ignore 02
500146367 op 1374 return-nil 
500146367 op  255 push-car-local FP 2
500146370 op  101 push-constant 03
500146370 op  176 branch-eq PC|-10w1h (500146360,e)
500146371 op  102 push-local FP 1
500146371 op  101 push-constant 03
500146372 op 1120 push-nil 
500146372 op 1232 getf-internal 
500146373 op  162 branch-false PC|4w0h (500146377,e)
500146373 op 1101 cdr 
500146374 op  102 push-local FP 2
500146374 op  202 branch-endp PC|5w0h (500146401,o)
500146375 op 1101 cdr 
500146375 op  102 push-local FP 2
500146376 op  203 branch-not-endp PC|-3w1h (500146373,o)
500146376 op 1374 return-nil 
500146377 op  101 push-constant 04
500146377 op  101 push-constant 05
500146400 op  255 push-car-local FP 2
500146400 op  314 call-3-ignore 02
500146401 op  160 branch PC|-21w0h (500146360,e)
500146401 op  101 push-constant 00
500146402 op  101 push-constant 01
500146402 op  102 push-local FP 1
500146403 op 1376 last 
500146403 op 1100 car 
500146404 op  314 call-3-ignore 02
500146404 op 1374 return-nil 

;Specially coded to minimize instructions and branches in the inner loop
(DEFUN VALIDATE-KEYWORDS-INTERNAL (VALID-KEYWORDS ARGLIST)
  (DECLARE (DBG:ERROR-REPORTER T))
  (UNLESS (ENDP ARGLIST)			;Allow end test to be at bottom of loop
    (LET ((L ARGLIST))
      (MACROLET ((STEP-L ()
		   `(PROGN
		      (COMPILER:%ERROR-WHEN (ENDP (SETF L (CDR L)))
			(LISP:CERROR "Assume NIL as the value of the ~S keyword argument"
				     "The value after the keyword ~S is missing."
				     (CAR (LAST ARGLIST)))
			(RETURN-FROM VALIDATE-KEYWORDS-INTERNAL NIL))
		      (WHEN (ENDP (SETF L (CDR L)))
			(RETURN-FROM VALIDATE-KEYWORDS-INTERNAL NIL)))))
	(LISP:LOOP
	     (COMPILER:%ERROR-UNLESS (NOT (NULL (LISP:MEMBER (CAR L) VALID-KEYWORDS)))
	       (COND ((EQ (CAR L) :ALLOW-OTHER-KEYS))
		     ((LISP:GETF ARGLIST :ALLOW-OTHER-KEYS)
		      (LISP:LOOP (STEP-L)))
		     (T
		      (LISP:CERROR "Ignore the keyword argument ~S"
				   "~S is not a valid keyword" (CAR L)))))
	     (STEP-L))))))

