blob: a44f5a8577f1b955c39e18cb097a48674db3405f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
The following Forth words can be used for debugging:
debug <xt> - Mark word for debugging
debug-off - Unmark all words for debugging
resume - Return from subordinate Forth interpreter
The source debugger also implements the following commands when it has been activated:
Up - Unmark current word for debugging, mark parent and continue
Down - Mark next word for debugging
Trace - Continue execution until end of word displaying
debug information
Rstack - Display contents of the Rstack
Forth - Launch subordinate Forth interpreter
An example session:
0 > see boot
: boot
linefeed parse cr " platform-boot" $find if
execute then
2drop cr " Booting " type type cr " ... not supported on this system." type cr
;
ok
0 > debug boot
Stepper keys: <space>/<enter> Up Down Trace Rstack Forth
ok
0 > boot
: boot ( Empty )
00000000ffe26b08: linefeed ( a )
00000000ffe26b10: parse ( ffec6e24 0 )
00000000ffe26b18: cr
( ffec6e24 0 )
00000000ffe26b20: (") ( ffec6e24 0 ffe26b30 d )
00000000ffe26b40: $find ( ffec6e24 0 ffe31710 ffffffffffffffff )
00000000ffe26b48: do?branch ( ffec6e24 0 ffe31710 )
00000000ffe26b58: execute [sparc64] Booting file 'cdrom' with parameters ''
Not a bootable ELF image
Not a Linux kernel image
Not a bootable a.out image
Loading FCode image...
Loaded 5936 bytes
entry point is 0x4000
Evaluating FCode...
open isn't unique.
Boot load failed.
( Empty )
00000000ffe26b60: dobranch ( Empty )
00000000ffe26bf8: (semis)
[ Finished boot ] ok
0 >
|
