;Reading at top level in Lisp Listener 1.
;Reading in base 10 in package USER with standard Zetalisp readtable.

;;; After having found a working k band or evaluating 
;;; (make-system 'falcon :noconfirm)
(update-k-system)
 :
 :
 :

;;; 13 here is the slot on the Nubus board allocated to the K Memory board.
(lam:k-local-setup 13)
2


(k-kbug:mega-boot)
 :
 :
 :
n = 57 physical = 15 virtual = 32768
Mapping 8000 to F
Mapping 8001 to 10
Mapping 8002 to 11
Mapping 8003 to 12
Mapping 8004 to 13
Mapping 8005 to 14
Mapping 8006 to 15
Mapping 8007 to 16
Mapping 8008 to 17
Mapping 8009 to 18
Mapping 800A to 19
Mapping 800B to 1A
Mapping 800C to 1B
Mapping 800D to 1C
Mapping 800E to 1D
Mapping 800F to 1E
Mapping 8010 to 1F
Mapping 8011 to 20
Mapping 8012 to 21
Mapping 8013 to 22
Mapping 8014 to 23
Mapping 8015 to 24
Mapping 8016 to 25
Mapping 8017 to 26
Mapping 8018 to 27
Mapping 8019 to 28
Mapping 801A to 29
Mapping 801B to 2A
Mapping 801C to 2B
Mapping 801D to 2C
Mapping 801E to 2D
Mapping 801F to 2E
Mapping 8020 to 2F
Mapping 8021 to 30
Mapping 8022 to 31
Mapping 8023 to 32
Mapping 8024 to 33
Mapping 8025 to 34
Mapping 8026 to 35
Mapping 8027 to 36
Mapping 8028 to 37
Mapping 8029 to 38
Mapping 802A to 39
Mapping 802B to 3A
Mapping 802C to 3B
Mapping 802D to 3C
Mapping 802E to 3D
Mapping 802F to 3E
Mapping 8030 to 3F
Mapping 8031 to 40
Mapping 8032 to 41
Mapping 8033 to 42
Mapping 8034 to 43
Mapping 8035 to 44
Mapping 8036 to 45
Mapping 8037 to 46
Mapping 8038 to 47
Physical memory (megabyte) bit-map = 1111

Falcon stopped, PC=#x22C0

Cold load finished!
 you're not going to see the countdown ..

 Begining Hot files.

 :
 :
 :

LI:WARM-BOOT-COMPLETE+#x6       (UNCONDITIONAL-BRANCH LI:WARM-BOOT-COMPLETE+#x6  (DA4A) (ALU PASS-STATUS NOP R0 R0) UNBOXED BOXED-MD UNBOXED-VMA DT-NONE)

;;; Once having reached this loop, the booting process is complete.
;;; Interrupting asynchronously will place you in a special debugger,
;;; KBUG-2 from which you can begin LISP Machine

[Help]

You are typing at the K debugger MARK-II.

 to exit.
SPACE to single-step.
C-P   to proceed K, remaning in debugger.
C-F   to view register-frames.
C-M-F to view register-frames with datatypes and values.
C-L   to clear-screen.
C-Z   to stop machine.
M-S   to display the K call stack
M-F   to flush the K call stack
M-R   to run a read-eval-print loop on the K
M-L   to run mini-lisp-listener on the K
M-E   to display an error message


;;; Junk



LI:WARM-BOOT-COMPLETE+#x6       (UNCONDITIONAL-BRANCH LI:WARM-BOOT-COMPLETE+#x6  (DA4A) (ALU PASS-STATUS NOP R0 R0) UNBOXED BOXED-MD UNBOXED-VMA DT-NONE)
Warning!  Running mini-lisp-listener smashes LI:ERROR on the K.
Are you sure you want to run it? 
Running mini-lisp-listener on the K...
K2:KBUG-GET-COMM-WORD+#xB       (ALU-FIELD FIELD-PASS RETURN R2 *ZERO* (BYTE 18 0) CH-RETURN BOXED-RIGHT UNBOXED-MD BOXED-VMA DT-NONE)
Left  00000375 Right *04000000 Open #x1E Active #x1E Return #x18
  O 0*040000FD   A 0*040000FD   R 0*04000800
  O 1*04000400   A 1*04000400   R 1*04000400
  O 2 00000375   A 2 00000375   R 2 00000375
  O 3*88000002   A 3*88000002   R 3*00000000
  O 4*300CDF14   A 4*300CDF14   R 4*3400F914
  O 5*04000002   A 5*04000002   R 5*04000002
  O 6*2E01F058   A 6*2E01F058   R 6*2E01FB20
  O 7*3400F82C   A 7*3400F82C   R 7*3400FD90
  O 8*300CABD7   A 8*300CABD7   R 8*04000002
  O 9*04000001   A 9*04000001   R 9*04000001
  O10*3400F912   A10*3400F912   R10*3400F912
  O11*380ADE71   A11*380ADE71   R11*380ADE71
  O12*080B840E   A12*080B840E   R12*00000000
  O13*00000000   A13*00000000   R13*00000000
  O14*380D5348   A14*380D5348   R14*04000000
  O15*380AFD55   A15*380AFD55   R15*380AFD55
K2:KBUG-GET-COMM-WORD+#xB       (ALU-FIELD FIELD-PASS RETURN R2 *ZERO* (BYTE 18 0) CH-RETURN BOXED-RIGHT UNBOXED-MD BOXED-VMA DT-NONE)
;Back to top level in Lisp Listener 1.


(k-kbug:kbug2)
K2:KBUG-GET-COMM-WORD+#xB       (ALU-FIELD FIELD-PASS RETURN R2 *ZERO* (BYTE 18 0) CH-RETURN BOXED-RIGHT UNBOXED-MD BOXED-VMA DT-NONE)
You are typing at the K debugger MARK-II.
 to exit.
SPACE to single-step.
C-P   to proceed K, remaning in debugger.
C-F   to view register-frames.
C-M-F to view register-frames with datatypes and values.
C-L   to clear-screen.
C-Z   to stop machine.
M-S   to display the K call stack
M-F   to flush the K call stack
M-R   to run a read-eval-print loop on the K
M-L   to run mini-lisp-listener on the K
M-E   to display an error message
K2:KBUG-GET-COMM-WORD+#xB       (ALU-FIELD FIELD-PASS RETURN R2 *ZERO* (BYTE 18 0) CH-RETURN BOXED-RIGHT UNBOXED-MD BOXED-VMA DT-NONE)
CALL stack, NIL, machine is running
  Ret-Dest  R00   Open 13   Active 13   rpc #x001894 K2:KBUG-TRAP-HANDLER-2 #x78
  Ret-Dest  A00   Open 24   Active 24   rpc #x0017C8 K2:KBUG-TRAP-HANDLER-1 #x28
  Ret-Dest  R00   Open 1A   Active 18     rpc #x002696 TRAP:DEBUGGER-TRAP-HANDLER #x26
  Ret-Dest  G10   Open 11   Active 18     rpc #x0024DA TRAP:MEMORY-WRITE-PAGE-FAULT-TRAP-HANDLER #x48
  Ret-Dest  G04   Open 18   Active 18   rpc #x003214 K2:WRITE-CALL-ADDRESS #x7
  Ret-Dest  G04   Open 1E   Active 1E   rpc #x0016A7 K2:KBUG-GET-COMM-WORD #xB
  Ret-Dest  R02   Open 25   Active 25   rpc #x001703 K2:KBUG-STREAM-NEEDS-INPUT #x2
  Ret-Dest  R00   Open 1F   Active 1F   rpc #x00171B K2:%KBUG-STREAM-PEEK-BYTE #x2
  Ret-Dest  A01   Open 16   Active 16   rpc #x001726 K2:KBUG-STREAM-READ-BYTE #x1
  Ret-Dest  R02   Open 17   Active 17   rpc #x001731 K2:KBUG-STREAM-READ-CHARACTER #x7
  Ret-Dest  A00   Open 14   Active 14   rpc #x00FD6F
  Ret-Dest  A00   Open 27   Active 27   rpc #x010C82 LI:READ-A-CHARACTER-COMMAND #x1
  Ret-Dest  A15   Open 10   Active 10   rpc #x010BAF LI:MLL-ERROR #x47
  Ret-Dest  R00   Open 22   Active 22   rpc #x00DCB6 LI:EVAL-NAMED-FUNCTION-APPLICATION-OR-MACRO #x39
  Ret-Dest  A00   Open 1D   Active 1D   rpc #x00DA9A LI:EVAL-SPECIAL-OK #x5
  Ret-Dest  A00   Open 2A   Active 15     rpc #x010B58 LI:LISTENER #x1B
  Ret-Dest  R00   Open 15   Active 15   rpc #x010B66 LI:LISTENER #x29
  Ret-Dest  R00   Open FF   Active FF   rpc #x0037D4 LI:FLUSH-CALL-STACK #xE
K2:KBUG-GET-COMM-WORD+#xB       (ALU-FIELD FIELD-PASS RETURN R2 *ZERO* (BYTE 18 0) CH-RETURN BOXED-RIGHT UNBOXED-MD BOXED-VMA DT-NONE)
Running read-eval-print on the K...
K2:KBUG-GET-COMM-WORD+#xB       (ALU-FIELD FIELD-PASS RETURN R2 *ZERO* (BYTE 18 0) CH-RETURN BOXED-RIGHT UNBOXED-MD BOXED-VMA DT-NONE)
K2:KBUG-STREAM-NEEDS-INPUT+#x2   (ALU XOR NOP R2 A1 BW-24 UNBOXED BOXED-MD UNBOXED-VMA DT-BOTH-FIXNUM)
K2:KBUG-STREAM-NEEDS-INPUT+#x3   (ALU PASS-STATUS NOP R0 R0 BR-EQUAL UNBOXED BOXED-MD UNBOXED-VMA DT-NONE)
K2:KBUG-STREAM-NEEDS-INPUT+#x4   (BRANCH K2:KBUG-STREAM-NEEDS-INPUT  (1701) (ALU PASS-STATUS NOP R0 R0) UNBOXED BOXED-MD UNBOXED-VMA DT-NONE)
K2:KBUG-STREAM-NEEDS-INPUT+#x5   (ALU SETR RETURN O0 *NIL* CH-RETURN BOXED-RIGHT UNBOXED-MD BOXED-VMA DT-NONE)
K2:%KBUG-STREAM-PEEK-BYTE+#x2   (MOVEI R0 4000800 BOXED BOXED-MD BOXED-VMA DT-NONE)
K2:%KBUG-STREAM-PEEK-BYTE+#x3   (ALU L+R VMA-START-READ-NO-TRANSPORT R0 A1 BW-24 BOXED-LEFT UNBOXED-MD UNBOXED-VMA DT-BOTH-FIXNUM-WITH-OVERFLOW)
K2:%KBUG-STREAM-PEEK-BYTE+#x4   (ALU PASS-STATUS NOP R0 R0 UNBOXED BOXED-MD UNBOXED-VMA DT-NONE)
K2:%KBUG-STREAM-PEEK-BYTE+#x5   (ALU SETR R2 O0 MD BOXED-RIGHT UNBOXED-MD BOXED-VMA DT-NONE)
You are typing at the K debugger MARK-II.
 to exit.
SPACE to single-step.
C-P   to proceed K, remaning in debugger.
C-F   to view register-frames.
C-M-F to view register-frames with datatypes and values.
C-L   to clear-screen.
C-Z   to stop machine.
M-S   to display the K call stack
M-F   to flush the K call stack
M-R   to run a read-eval-print loop on the K
M-L   to run mini-lisp-listener on the K
M-E   to display an error message
K2:%KBUG-STREAM-PEEK-BYTE+#x5   (ALU SETR R2 O0 MD BOXED-RIGHT UNBOXED-MD BOXED-VMA DT-NONE)
K2:KBUG-GET-COMM-WORD+#xB       (ALU-FIELD FIELD-PASS RETURN R2 *ZERO* (BYTE 18 0) CH-RETURN BOXED-RIGHT UNBOXED-MD BOXED-VMA DT-NONE)
K2:KBUG-GET-COMM-WORD+#x9       (ALU PASS-STATUS NOP R0 R0 UNBOXED BOXED-MD UNBOXED-VMA DT-NONE)
K2:KBUG-STREAM-NEEDS-OUTPUT+#x2   (ALU XOR NOP R2 A1 BW-24 UNBOXED BOXED-MD UNBOXED-VMA DT-BOTH-FIXNUM)
K2:KBUG-GET-COMM-WORD+#x9       (ALU PASS-STATUS NOP R0 R0 UNBOXED BOXED-MD UNBOXED-VMA DT-NONE)
Left *04000800 Right *04000800 Open #x17 Active #x17 Return #x16

  A 0*040000F4 $$DTP-FIXNUM       #x+F4
  A 1*04000400 $$DTP-FIXNUM       #x+400
  A 2 0000027F 
  A 3*00000000 $$DTP-NIL          NIL
  A 4*00000000 $$DTP-NIL          NIL
  A 5*00000000 $$DTP-NIL          NIL
  A 6*00000000 $$DTP-NIL          NIL
  A 7*00000000 $$DTP-NIL          NIL
  A 8*00000000 $$DTP-NIL          NIL
  A 9*00000000 $$DTP-NIL          NIL
  A10*00000000 $$DTP-NIL          NIL
  A11*00000000 $$DTP-NIL          NIL
  A12*00000000 $$DTP-NIL          NIL
  A13*00000000 $$DTP-NIL          NIL
  A14*04000000 $$DTP-FIXNUM       #x+0
  A15*04000003 $$DTP-FIXNUM       #x+3

  R 0*04000800 $$DTP-FIXNUM       #x+800
  R 1*04000400 $$DTP-FIXNUM       #x+400
  R 2*0400027F $$DTP-FIXNUM       #x+27F
  R 3*04FFFFFF $$DTP-FIXNUM       #x-1
  R 4*3400FDAE $$DTP-CODE         FDAE
  R 5*04000000 $$DTP-FIXNUM       #x+0
  R 6*04000001 $$DTP-FIXNUM       #x+1
  R 7*04000000 $$DTP-FIXNUM       #x+0
  R 8*04000002 $$DTP-FIXNUM       #x+2
  R 9*04000001 $$DTP-FIXNUM       #x+1
  R10*3400FDAE $$DTP-CODE         FDAE
  R11*380AFBE9 $$DTP-ARRAY         Array (single header) acode: ART-Q bounds #x2
  R12*00000000 $$DTP-NIL          NIL
  R13*00000000 $$DTP-NIL          NIL
  R14*00000000 $$DTP-NIL          NIL
  R15*380AFDA1 $$DTP-ARRAY         Array (single header) acode: ART-Q bounds #x2
K2:KBUG-GET-COMM-WORD+#x9       (ALU PASS-STATUS NOP R0 R0 UNBOXED BOXED-MD UNBOXED-VMA DT-NONE)
;Back to top level in Lisp Listener 1.


(dribble)