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

(k-kbug:kbug2)
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)
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
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)