[PATCH 00/11] PReP support for QEMU 40p machine
by Mark Cave-Ayland
The current PReP firmware provided with OpenBIOS is OpenHackWare which provides
a basic set of OpenFirmware interfaces but does this without providing any kind
of Forth implementation which limits its usefulness and compatibility.
Whilst the project has allowed QEMU PReP development to continue to date, it is
sadly now abandonware with no patches for over 4 years, and with no-one willing
to take on maintenance it is now time for a different approach.
This patchset adds PReP support for the QEMU 40p machine allowing it to start
booting NetBSD and the sandalfoot Linux zImage. The main features required for
this are support for the LSI SCSI controller, resdidual data and PReP boot
partitions.
In order to test these patches you'll need a recent QEMU with the following
patches applied:
https://lists.gnu.org/archive/html/qemu-devel/2018-05/msg05480.html
https://lists.gnu.org/archive/html/qemu-devel/2018-05/msg05964.html
Next you'll need an updated openbios-ppc binary, and for those without access to
a cross-compiler setup I've uploaded the resulting binary to
https://www.ilande.co.uk/tmp/qemu/openbios-ppc.prep.
To boot the sandalfoot zImage from http://www.juneau-lug.org/zImage.initrd.sandalfoot
you can do:
qemu-system-ppc -M 40p -bios openbios-ppc.prep -cdrom zImage.initrd.sandalfoot
-boot d
Note that it seems to get stuck trying to initialise the LSI SCSI controller,
presumably due to a bug in the existing QEMU emulation.
NetBSD works much better and in fact boots all the way to userspace:
qemu-system-pcc -M 40p -bios openbios-ppc.prep -cdrom NetBSD-7.1.2-prep.iso
-boot d -nographic
In terms of functionality I think this patchset is just about there: there are a
few questions around device names but hopefully someone with real PReP experience
can point me in the right direction.
Finally I've added various people on CC who have expressed interest in PReP and/or
OpenHackWare in the past: if this is no longer of any interest to you, do let me
know and I'll drop your email address from future versions.
Signed-off-by: Mark Cave-Ayland <mark.cave-ayland(a)ilande.co.uk>
Mark Cave-Ayland (11):
pc_kbd: ensure that we properly reset the 8042 controller and keyboard
device
pci: rename i82378 keyboard device from 8042 to keyboard
pci: add AMD PCNET information to PCI database
bootcode_load: ensure LOADER_NOT_SUPPORT is returned if no bootcode is
present
ppc: add PReP support to dma-map-in
pci: add driver for LSI 53C810 SCSI controller
ppc: add PReP residual data block
ppc: use proper context when pre-loading kernels
pc-parts: allow successful detection of PReP boot partitions
libopenbios: add PReP boot partition loader for PPC
prep: disable VBE extensions when executing client program
arch/ppc/qemu/context.c | 129 ++++++-
arch/ppc/qemu/context.h | 1 +
arch/ppc/qemu/init.c | 34 ++
arch/ppc/qemu/kernel.h | 1 -
arch/ppc/qemu/main.c | 11 +-
arch/ppc/qemu/switch.S | 43 ---
arch/ppc/qemu/tree.fs | 5 -
config/examples/ppc_config.xml | 2 +
drivers/build.xml | 1 +
drivers/lsi.c | 770 ++++++++++++++++++++++++++++++++++++++++
drivers/pc_kbd.c | 22 +-
drivers/pci.c | 21 +-
drivers/pci_database.c | 14 +
drivers/pci_database.h | 1 +
drivers/vga.fs | 11 +
forth/debugging/client.fs | 1 +
include/arch/ppc/residual.h | 116 ++++++
include/drivers/drivers.h | 4 +
include/drivers/pci.h | 6 +
include/libopenbios/prep_load.h | 24 ++
libopenbios/bootcode_load.c | 2 +
libopenbios/build.xml | 1 +
libopenbios/initprogram.c | 8 +
libopenbios/load.c | 11 +
libopenbios/prep_load.c | 106 ++++++
packages/pc-parts.c | 10 +
26 files changed, 1300 insertions(+), 55 deletions(-)
create mode 100644 drivers/lsi.c
create mode 100644 include/arch/ppc/residual.h
create mode 100644 include/libopenbios/prep_load.h
create mode 100644 libopenbios/prep_load.c
--
2.11.0
7 months, 2 weeks
- 2
- 14
Re: [OpenBIOS] Back at it again( PCI Passthrough )
by Jd Lyons
Ok, I made those changes to openbios, here is the output.
> On May 8, 2018, at 6:50 AM, Joe van Tunen <joevt(a)shaw.ca> wrote:
>
> : (debug-feval) ( fcode# -- fcode# )
> \ Address
> fcode-stream 1 - . here u. ." : "
>
> \ Indicate if word is compiled
> state @ 0<> if
> ." (compile) "
> then
> dup fcode>xt cell - lfa2name type
> dup ." [ 0x" . ." ]" cr
> ;
7 months, 3 weeks
- 7
- 53
[PATCH 00/15] Implement dma-* words
by Mark Cave-Ayland
This patchset is something I've been working on for a while and started
off with the aim of getting rid of the "dma-alloc" console warnings
whilst booting *BSD images on PPC, but ended up as a full implementation
for SPARC32/SPARC64 and PPC.
The patchset is fairly straightfoward: the first few patches rework the
SPARC32 DVMA functions to make them usable from Forth, whilst patch 8
adds a missing D-cache flush for PPC which could certainly do with another
set of eyes.
The remainder of the patches add PPC and SPARC64 support before adding
in the complete "dma-*" $call-parent chains to enable devices to call
the DMA functions as indicated in the IEEE-1275 specification and
various FCode examples found around the net.
Finally the last 2 patches switch the esp SCSI driver over to use the
IEEE-1275 Forth words instead of calling the low-level C functions
directly.
Signed-off-by: Mark Cave-Ayland <mark.cave-ayland(a)ilande.co.uk>
Mark Cave-Ayland (15):
dma: add defers for the dma-* words
SPARC32: rename dvma_alloc()'s ba variable to iova
SPARC32: allocate contiguous physical memory for DVMA
SPARC32: implement dvma_map_in() for DMA IOVA to phys translation
SPARC32: move pgtsrmmu.h from arch/sparc32 to include/arch/sparc32
SPARC32: implement dvma_sync() function for synchronising DMA memory
SPARC32: implement dma-* words
PPC: add flush_dcache_range() to start.S
PPC: implement dma-* words
SPARC64: implement dma-* words
macio: add missing REGISTER_NODE for New World macio devices
pci: add dma-* call-parent chain to all PCI devices and bridges
sbus: add dma-* call-parent chain to all PCI devices and bridges
esp: switch creation of esp device over to use new-device
esp: switch over to using dma-alloc/dma-map-in
arch/ppc/qemu/init.c | 35 +++++++
arch/ppc/qemu/kernel.h | 1 +
arch/ppc/qemu/start.S | 21 ++++
arch/ppc/qemu/tree.fs | 40 ++++++++
arch/sparc32/lib.c | 2 +-
arch/sparc32/ofmem_sparc32.c | 2 +-
arch/sparc32/openbios.c | 47 ++++++++-
arch/sparc32/tree.fs | 56 +++++++++++
arch/sparc64/openbios.c | 40 ++++++++
arch/sparc64/tree.fs | 47 +++++++++
drivers/esp.c | 159 ++++++++++++++++++++----------
drivers/ide.c | 40 ++++++++
drivers/iommu.c | 95 +++++++++++++++---
drivers/macio.c | 36 +++++++
drivers/pci.c | 40 ++++++++
forth/device/other.fs | 8 +-
forth/device/table.fs | 2 +-
forth/util/util.fs | 9 ++
{arch => include/arch}/sparc32/pgtsrmmu.h | 0
include/drivers/drivers.h | 4 +-
packages/disk-label.fs | 39 ++++++++
21 files changed, 646 insertions(+), 77 deletions(-)
rename {arch => include/arch}/sparc32/pgtsrmmu.h (100%)
--
2.11.0
8 months
- 1
- 16
[PATCH] pci: fix OHCI driver PCI address
by Mark Cave-Ayland
Commit a1c2e4f "Add USB OHCI + HID driver" hardcoded the high order bit of
the PCI address to that used on PPC machines instead of using the correct
PCI_ADDR() macro.
Signed-off-by: Mark Cave-Ayland <mark.cave-ayland(a)ilande.co.uk>
---
drivers/pci.c | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/drivers/pci.c b/drivers/pci.c
index 295be7e..7085a3a 100644
--- a/drivers/pci.c
+++ b/drivers/pci.c
@@ -1111,7 +1111,10 @@ int i82378_config_cb(const pci_config_t *config)
int usb_ohci_config_cb(const pci_config_t *config)
{
#ifdef CONFIG_DRIVER_USB
- ob_usb_ohci_init(config->path, 0x80000000 | config->dev);
+ pci_addr addr = PCI_ADDR(
+ PCI_BUS(config->dev), PCI_DEV(config->dev), PCI_FN(config->dev));
+
+ ob_usb_ohci_init(config->path, addr);
#endif
return 0;
}
--
2.11.0
8 months
- 2
- 2
[PATCH 0/2] ppc: minor fixups
by Mark Cave-Ayland
Here are a couple of minor fixups which have been kicking around my
OpenBIOS git repository for a little while.
Signed-off-by: Mark Cave-Ayland <mark.cave-ayland(a)ilande.co.uk>
Mark Cave-Ayland (2):
ppc: don't hardcode the system bus frequency
macio: set correct UniNorth device revision
arch/ppc/qemu/init.c | 4 ++--
drivers/macio.c | 2 +-
2 files changed, 3 insertions(+), 3 deletions(-)
--
2.11.0
8 months, 1 week
- 1
- 3
Re: [OpenBIOS] Back at it again( PCI Passthrough )
by Jd Lyons
> On May 10, 2018, at 8:52 AM, Jd Lyons <lyons_dj(a)yahoo.com> wrote:
>
>
>
>> On May 10, 2018, at 6:46 AM, Jd Lyons via OpenBIOS <openbios(a)openbios.org <mailto:openbios@openbios.org>> wrote:
>>
>>
>> : execute-tmp-comp ( ffffffff 1 0 ffffffff 0 0 ffffffff fff41a48 0 0 0 0 0 0 ffffffff )<—— We should be seeing fff5723c 0 here?
>>> On May 10, 2018, at 6:33 AM, Jd Lyons <lyons_dj(a)yahoo.com <mailto:lyons_dj@yahoo.com>> wrote:
>>>
>>>
>>
>> --
>> OpenBIOS http://openbios.org/ <http://openbios.org/>
>> Mailinglist: http://lists.openbios.org/mailman/listinfo <http://lists.openbios.org/mailman/listinfo>
>> Free your System - May the Forth be with you
>
> Here is how SLOF seems to deal with the code I’m hangin on:
>
> Tho, I don’t know if it tells us anything useful.
>
> 14051: [ 14] b?branch 0 0 2 1 7e783de0
> 14054: [ 11] b(') 0 0 2 1 7e783de0 7e78e740
> 14057: [ c3] b(to) 0 0 2 1 7e783de0
> 1405a: [ b2] b(>resolve)
> 7e7848a0 : ?compile-mode ( 0 0 2 1 7e783de0 ) |
> 7e783398 : STATE ( 0 0 2 1 7e783de0 ) |
> 7e7833a0 : @ ( 0 0 2 1 7e783de0 7dc0e6f0 ) |
> 7e7833a8 : SEMICOLON ( 0 0 2 1 7e783de0 0 ) |
> 7e7848a8 : 0BRANCH ( 0 0 2 1 7e783de0 0 ) |
> 7e7848c0 : SEMICOLON ( 0 0 2 1 7e783de0 ) | 0 0 2 1 7e783de0
> 1405b: [ b2] b(>resolve)
> 7e7848a0 : ?compile-mode ( 0 0 2 1 7e783de0 ) |
> 7e783398 : STATE ( 0 0 2 1 7e783de0 ) |
> 7e7833a0 : @ ( 0 0 2 1 7e783de0 7dc0e6f0 ) |
> 7e7833a8 : SEMICOLON ( 0 0 2 1 7e783de0 0 ) |
> 7e7848a8 : 0BRANCH ( 0 0 2 1 7e783de0 0 ) |
> 7e7848c0 : SEMICOLON ( 0 0 2 1 7e783de0 ) | 0 0 2 1 7e783de0
> 1405d: [ddf] xddf 0 0 2 1 7e783de0
> 1405f: [e04] xe04 0 0 2 1 7e783de0
> 14061: [e38] xe38 0 0 2 1 7e783de0
> 14063: [e06] xe06 0 0 2 1 7e783de0
> 14065: [ce5] xce5 0 0 2 1 7e783de0
> 14067: [db0] xdb0 0 0 2 1 7e783de0
> 14069: [e07] xe07 0 0 2 1 7e783de0
> 1406b: [e1a] xe1a 0 0 2 1 7e783de0
> 1406d: [c5b] xc5b 0 0 2 1 7e783de0
> 1406f: [e28] xe28 0 0 2 1 7e783de0
> 14071: [e20] xe20 0 0 2 1 7e783de0
> 14073: [dfa] xdfa 0 0 2 1 7e783de0
> 14075: [e37] xe37 0 0 2 1 7e783de0
> 14077: [e2c] xe2c 0 0 2 1 7e783de0
> 14079: [e2d] xe2d 0 0 2 1 7e783de0
> 1407a: [ 12] b(") 0 0 2 1 7e783de0 1407c b
> 14088: [201] device-name 0 0 2 1 7e783de0
> 14089: [ a6] 1 0 0 2 1 7e783de0 1
> 1408b: [111] encode-int 0 0 2 1 7e783de0 7e7d4788 4
> 1408c: [ 12] b(") 0 0 2 1 7e783de0 7e7d4788 4 1408e e
> 1409d: [110] property 0 0 2 1 7e783de0
> 1409e: [ a5] 0 0 0 2 1 7e783de0 0
> 140a0: [111] encode-int 0 0 2 1 7e783de0 7e7d47d0 4
> 140a1: [ 12] b(") 0 0 2 1 7e783de0 7e7d47d0 4 140a3 b
> 140af: [110] property 0 0 2 1 7e783de0
> 140b1: [9c7] x9c7 0 0 2 1 7e783de0
> 140b3: [93d] x93d 0 0 2 1 7e783de0 43
> 140b4: [ 10] b(lit) 0 0 2 1 7e783de0 43 35
> 140b9: [ 42] >= 0 0 2 1 7e783de0 -1
> 140ba: [ 14] b?branch 0 0 2 1 7e783de0
> 140bd: [ a6] 1 0 0 2 1 7e783de0 1
> 140bf: [933] x933 0 0 2 1 7e783de0 1 5
> 140c0: [ 27] LSHIFT 0 0 2 1 7e783de0 20
> 140c2: [935] x935 0 0 2 1 7e783de0 20 2cf
> 140c3: [ 24] OR 0 0 2 1 7e783de0 2ef
> 140c4: [ c3] b(to) 0 0 2 1 7e783de0
> 140c7: [ b2] b(>resolve)
> 7e7848a0 : ?compile-mode ( 0 0 2 1 7e783de0 ) |
> 7e783398 : STATE ( 0 0 2 1 7e783de0 ) |
> 7e7833a0 : @ ( 0 0 2 1 7e783de0 7dc0e6f0 ) |
> 7e7833a8 : SEMICOLON ( 0 0 2 1 7e783de0 0 ) |
> 7e7848a8 : 0BRANCH ( 0 0 2 1 7e783de0 0 ) |
> 7e7848c0 : SEMICOLON ( 0 0 2 1 7e783de0 ) | 0 0 2 1 7e783de0
> 140c9: [941] x941 0 0 2 1 7e783de0 50
> 140ca: [ 10] b(lit) 0 0 2 1 7e783de0 50 10
> 140cf: [ 27] LSHIFT 0 0 2 1 7e783de0 500000
> 140d1: [935] x935 0 0 2 1 7e783de0 500000 2ef
> 140d2: [ 24] OR 0 0 2 1 7e783de0 5002ef
> 140d4: [111] encode-int 0 0 2 1 7e783de0 7e7d4860 4
> 140d5: [ 12] b(") 0 0 2 1 7e783de0 7e7d4860 4 140d7 d
> 140e5: [110] property 0 0 2 1 7e783de0
> 140e6: [ a6] 1 0 0 2 1 7e783de0 1
> 140e8: [111] encode-int 0 0 2 1 7e783de0 7e7d48a8 4
> 140e9: [ 12] b(") 0 0 2 1 7e783de0 7e7d48a8 4 140eb a
> 140f6: [110] property 0 0 2 1 7e783de0
> 140f7: [ a5] 0 0 0 2 1 7e783de0 0
> 140f8: [ a5] 0 0 0 2 1 7e783de0 0 0
> 140fa: [e2e] xe2e 0 0 2 1 7e783de0 7e7d48f0 14
> 140fc: [9bc] x9bc 0 0 2 1 7e783de0 7e7d48f0 14 2000010
> 140fe: [9c3] x9c3 0 0 2 1 7e783de0 7e7d48f0 14 2000010 -ff000000
> 14100: [e2e] xe2e 0 0 2 1 7e783de0 7e7d48f0 14 7e7d4904 14
> 14102: [112] encode+ 0 0 2 1 7e783de0 7e7d48f0 28
> 14104: [9c0] x9c0 0 0 2 1 7e783de0 7e7d48f0 28 200001c
> 14106: [9c6] x9c6 0 0 2 1 7e783de0 7e7d48f0 28 200001c -ff000000
> 14108: [e2e] xe2e 0 0 2 1 7e783de0 7e7d48f0 28 7e7d4918 14
> 1410a: [112] encode+ 0 0 2 1 7e783de0 7e7d48f0 3c
> 1410c: [9be] x9be 0 0 2 1 7e783de0 7e7d48f0 3c 42000014
> 1410e: [9c4] x9c4 0 0 2 1 7e783de0 7e7d48f0 3c 42000014 -f0000000
> 14110: [e2e] xe2e 0 0 2 1 7e783de0 7e7d48f0 3c 7e7d492c 14
> 14112: [112] encode+ 0 0 2 1 7e783de0 7e7d48f0 50
> 14114: [9bf] x9bf 0 0 2 1 7e783de0 7e7d48f0 50 2000030
> 14116: [9c5] x9c5 0 0 2 1 7e783de0 7e7d48f0 50 2000030 -ffff0000
> 14118: [e2e] xe2e 0 0 2 1 7e783de0 7e7d48f0 50 7e7d4940 14
> 1411a: [112] encode+ 0 0 2 1 7e783de0 7e7d48f0 64
> 1411b: [ 12] b(") 0 0 2 1 7e783de0 7e7d48f0 64 1411d 3
> 14121: [110] property 0 0 2 1 7e783de0
> 14122: [ a6] 1 0 0 2 1 7e783de0 1
> 14124: [111] encode-int 0 0 2 1 7e783de0 7e7d4990 4
> 14125: [ 12] b(") 0 0 2 1 7e783de0 7e7d4990 4 14127 e
> 14136: [110] property 0 0 2 1 7e783de0
> 14137: [ a5] 0 0 0 2 1 7e783de0 0
> 14139: [111] encode-int 0 0 2 1 7e783de0 7e7d49d8 4
> 1413a: [ 12] b(") 0 0 2 1 7e783de0 7e7d49d8 4 1413c b
> 14148: [110] property 0 0 2 1 7e783de0
> 14149: [ 12] b(") 0 0 2 1 7e783de0 1414b 1a
> 14165: [ cd] EVALUATE 0 0 2 1 7e783de0
> 14167: [c7c] xc7c 0 0 2 1 7e783de0 10000000
> 14168: [ 47] DUP 0 0 2 1 7e783de0 10000000 10000000
> 1416a: [111] encode-int 0 0 2 1 7e783de0 10000000 7e7d4a50 4
> 1416b: [ 4a] ROT 0 0 2 1 7e783de0 7e7d4a50 4 10000000
> 1416d: [111] encode-int 0 0 2 1 7e783de0 7e7d4a50 4 7e7d4a54 4
> 1416f: [112] encode+ 0 0 2 1 7e783de0 7e7d4a50 8
> 14170: [ 12] b(") 0 0 2 1 7e783de0 7e7d4a50 8 14172 c
> 1417f: [110] property 0 0 2 1 7e783de0
> 14180: [ a5] 0 0 0 2 1 7e783de0 0
> 14181: [ c3] b(to) 0 0 2 1 7e783de0
> 14185: [951] x951 0 0 2 1 7e783de0 2
> 14186: [ a5] 0 0 0 2 1 7e783de0 2 0
> 14187: [ 18] b(?do) 0 0 2 1 7e783de0 2 0 0 7dc5f110
> 1418a: [ 19] 0 0 2 1 7e783de0 2 0 0 7dc5f110
> 1418c: [a41] 0 0 2 1 7e783de0 2 0 0 7dc5f110
> 1418e: [a4a] 0 0 2 1 7e783de0 2 0 0 7dc5f110
> 14190: [8ea] 0 0 2 1 7e783de0 2 0 0 7dc5f110
> 14191: [ 3d] 0 0 2 1 7e783de0 2 0 0 7dc5f110
> 14192: [ 14] b?branch 0 0 2 1 7e783de0 2 0 0 7dc5f110 7dc5f148
> 14195: [ 19] 0 0 2 1 7e783de0 2 0 0 7dc5f110 7dc5f148
> 14196: [ c3] b(to) 0 0 2 1 7e783de0 2 0 0 7dc5f110 7dc5f148
> 14199: [ 1b] b(leave) 0 0 2 1 7e783de0 2 0 0 7dc5f110 7dc5f148
> 1419a: [ b2] b(>resolve)
> 7e7848a0 : ?compile-mode ( 0 0 2 1 7e783de0 2 0 0 7dc5f110 7dc5f148 ) |
> 7e783398 : STATE ( 0 0 2 1 7e783de0 2 0 0 7dc5f110 7dc5f148 ) |
> 7e7833a0 : @ ( 0 0 2 1 7e783de0 2 0 0 7dc5f110 7dc5f148 7dc0e6f0 ) |
> 7e7833a8 : SEMICOLON ( 0 0 2 1 7e783de0 2 0 0 7dc5f110 7dc5f148 2 ) |
> 7e7848a8 : 0BRANCH ( 0 0 2 1 7e783de0 2 0 0 7dc5f110 7dc5f148 2 ) |
> 7e7848b8 : THEN ( 0 0 2 1 7e783de0 2 0 0 7dc5f110 7dc5f148 ) |
> 7dc0ee60 : ?COMP ( 0 0 2 1 7e783de0 2 0 0 7dc5f110 7dc5f148 ) |
> 7dc0e780 : STATE ( 0 0 2 1 7e783de0 2 0 0 7dc5f110 7dc5f148 ) |
> 7dc0e788 : @ ( 0 0 2 1 7e783de0 2 0 0 7dc5f110 7dc5f148 7dc0e6f0 ) |
> 7dc0e790 : 0BRANCH ( 0 0 2 1 7e783de0 2 0 0 7dc5f110 7dc5f148 2 ) |
> 7dc0e7a0 : EXIT ( 0 0 2 1 7e783de0 2 0 0 7dc5f110 7dc5f148 ) |
> 7dc0ee68 : RESOLVE-ORIG ( 0 0 2 1 7e783de0 2 0 0 7dc5f110 7dc5f148 ) |
> 7dc0ed60 : HERE ( 0 0 2 1 7e783de0 2 0 0 7dc5f110 7dc5f148 ) |
> 7dc0ed68 : OVER ( 0 0 2 1 7e783de0 2 0 0 7dc5f110 7dc5f148 7dc5f180 ) |
> 7dc0ed70 : CELL+ ( 0 0 2 1 7e783de0 2 0 0 7dc5f110 7dc5f148 7dc5f180 7dc5f148 ) |
> 7dc09f40 : NA1+ ( 0 0 2 1 7e783de0 2 0 0 7dc5f110 7dc5f148 7dc5f180 7dc5f148 ) |
> 7dc09ee8 : /N ( 0 0 2 1 7e783de0 2 0 0 7dc5f110 7dc5f148 7dc5f180 7dc5f148 ) |
> 7dc09ef0 : + ( 0 0 2 1 7e783de0 2 0 0 7dc5f110 7dc5f148 7dc5f180 7dc5f148 8 ) |
> 7dc09ef8 : SEMICOLON ( 0 0 2 1 7e783de0 2 0 0 7dc5f110 7dc5f148 7dc5f180 7dc5f150 ) |
> 7dc09f48 : SEMICOLON ( 0 0 2 1 7e783de0 2 0 0 7dc5f110 7dc5f148 7dc5f180 7dc5f150 ) |
> 7dc0ed78 : - ( 0 0 2 1 7e783de0 2 0 0 7dc5f110 7dc5f148 7dc5f180 7dc5f150 ) |
> 7dc0ed80 : SWAP ( 0 0 2 1 7e783de0 2 0 0 7dc5f110 7dc5f148 30 ) |
> 7dc0ed88 : ! ( 0 0 2 1 7e783de0 2 0 0 7dc5f110 30 7dc5f148 ) |
> 7dc0ed90 : SEMICOLON ( 0 0 2 1 7e783de0 2 0 0 7dc5f110 ) |
> 7dc0ee70 : -COMP ( 0 0 2 1 7e783de0 2 0 0 7dc5f110 ) |
> 7dc0ecb8 : -1 ( 0 0 2 1 7e783de0 2 0 0 7dc5f110 ) |
> 7dc0ecc0 : STATE ( 0 0 2 1 7e783de0 2 0 0 7dc5f110 -1 ) |
> 7dc0ecc8 : +! ( 0 0 2 1 7e783de0 2 0 0 7dc5f110 -1 7dc0e6f0 ) |
> 7dc0bcc8 : TUCK ( 0 0 2 1 7e783de0 2 0 0 7dc5f110 -1 7dc0e6f0 ) |
> 7dc0a178 : SWAP ( 0 0 2 1 7e783de0 2 0 0 7dc5f110 -1 7dc0e6f0 ) |
> 7dc0a180 : OVER ( 0 0 2 1 7e783de0 2 0 0 7dc5f110 7dc0e6f0 -1 ) |
> 7dc0a188 : SEMICOLON ( 0 0 2 1 7e783de0 2 0 0 7dc5f110 7dc0e6f0 -1 7dc0e6f0 ) |
> 7dc0bcd0 : @ ( 0 0 2 1 7e783de0 2 0 0 7dc5f110 7dc0e6f0 -1 7dc0e6f0 ) |
> 7dc0bcd8 : + ( 0 0 2 1 7e783de0 2 0 0 7dc5f110 7dc0e6f0 -1 2 ) |
> 7dc0bce0 : SWAP ( 0 0 2 1 7e783de0 2 0 0 7dc5f110 7dc0e6f0 1 ) |
> 7dc0bce8 : ! ( 0 0 2 1 7e783de0 2 0 0 7dc5f110 1 7dc0e6f0 ) |
> 7dc0bcf0 : SEMICOLON ( 0 0 2 1 7e783de0 2 0 0 7dc5f110 ) |
> 7dc0ecd0 : STATE ( 0 0 2 1 7e783de0 2 0 0 7dc5f110 ) |
> 7dc0ecd8 : @ ( 0 0 2 1 7e783de0 2 0 0 7dc5f110 7dc0e6f0 ) |
> 7dc0ece0 : 0BRANCH ( 0 0 2 1 7e783de0 2 0 0 7dc5f110 1 ) |
> 7dc0ecf0 : EXIT ( 0 0 2 1 7e783de0 2 0 0 7dc5f110 ) |
> 7dc0ee78 : SEMICOLON ( 0 0 2 1 7e783de0 2 0 0 7dc5f110 ) |
> 7e7848c0 : SEMICOLON ( 0 0 2 1 7e783de0 2 0 0 7dc5f110 ) | 0 0 2 1 7e783de0 2 0 0 7dc5f110
> 1419b: [ 15] b(loop) 0 0 2 1 7e783de0
> 1419f: [946] x946 0 0 2 1 7e783de0 2
> 141a0: [ 38] 0> 0 0 2 1 7e783de0 -1
> 141a1: [ 14] b?branch 0 0 2 1 7e783de0
> 141a5: [952] x952 0 0 2 1 7e783de0 0
> 141a7: [a41] xa41 0 0 2 1 7e783de0
> 141a9: [11f] new-device 0 0 2 1 7e783de0
> 141ab: [e32] xe32 0 0 2 1 7e783de0
> 141ac: [ b5] new-token 0 0 2 1 7e783de0
> 141af: [ b7] b(:) 0 0 2 1 7e783de0
> 141b1: [952] 0 0 2 1 7e783de0
> 141b3: [a41] 0 0 2 1 7e783de0
> 141b5: [df1] 0 0 2 1 7e783de0
> 141b6: [ c3] b(to) 0 0 2 1 7e783de0
> 141b9: [ c2] fc-locals-b(;) 0 0 2 1 7e783de0
> 141ba: [ b5] new-token 0 0 2 1 7e783de0
> 141bd: [ b7] b(:) 0 0 2 1 7e783de0
> 141bf: [952] 0 0 2 1 7e783de0
> 141c1: [a41] 0 0 2 1 7e783de0
> 141c3: [df2] 0 0 2 1 7e783de0
> 141c4: [ c2] fc-locals-b(;) 0 0 2 1 7e783de0
> 141c5: [ b6] named-token 0 0 2 1 7e783de0
> 141d1: [ b7] b(:) 0 0 2 1 7e783de0
> 141d3: [dcb] 0 0 2 1 7e783de0
> 141d4: [ c2] fc-locals-b(;) 0 0 2 1 7e783de0
> 141d5: [ b6] named-token 0 0 2 1 7e783de0
> 141e3: [ b7] b(:) 0 0 2 1 7e783de0
> 141e5: [dcc] 0 0 2 1 7e783de0
> 141e6: [ c2] fc-locals-b(;) 0 0 2 1 7e783de0
> 141e7: [ ca] external-token 0 0 2 1 7e783de0
> 141f3: [ b7] b(:) 0 0 2 1 7e783de0
> 141f5: [952] 0 0 2 1 7e783de0
> 141f7: [a41] 0 0 2 1 7e783de0
> 141f9: [dca] 0 0 2 1 7e783de0
> 141fa: [ c2] fc-locals-b(;) 0 0 2 1 7e783de0
> 141fb: [ ca] external-token 0 0 2 1 7e783de0
> 1420d: [ b7] b(:) 0 0 2 1 7e783de0
> 1420f: [952] 0 0 2 1 7e783de0
> 14211: [a41] 0 0 2 1 7e783de0
> 14213: [dd5] 0 0 2 1 7e783de0
> 14214: [ c2] fc-locals-b(;) 0 0 2 1 7e783de0
> 14215: [ ca] external-token 0 0 2 1 7e783de0
> 14227: [ b7] b(:) 0 0 2 1 7e783de0
> 14229: [952] 0 0 2 1 7e783de0
> 1422b: [a41] 0 0 2 1 7e783de0
> 1422d: [dd7] 0 0 2 1 7e783de0
> 1422e: [ c2] fc-locals-b(;) 0 0 2 1 7e783de0
> 1422f: [ ca] external-token 0 0 2 1 7e783de0
> 14241: [ b7] b(:) 0 0 2 1 7e783de0
> 14243: [952] 0 0 2 1 7e783de0
> 14245: [a41] 0 0 2 1 7e783de0
> 14247: [dd6] 0 0 2 1 7e783de0
> 14248: [ c2] fc-locals-b(;) 0 0 2 1 7e783de0
> 14249: [ ca] external-token 0 0 2 1 7e783de0
> 14253: [ b7] b(:) 0 0 2 1 7e783de0
> 14255: [952] 0 0 2 1 7e783de0
> 14257: [a41] 0 0 2 1 7e783de0
> 14259: [cf7] 0 0 2 1 7e783de0
> 1425a: [ c2] fc-locals-b(;) 0 0 2 1 7e783de0
> 1425b: [ ca] external-token 0 0 2 1 7e783de0
> 14265: [ b7] b(:) 0 0 2 1 7e783de0
> 14267: [952] 0 0 2 1 7e783de0
> 14269: [a41] 0 0 2 1 7e783de0
> 1426b: [cf9] 0 0 2 1 7e783de0
> 1426c: [ c2] fc-locals-b(;) 0 0 2 1 7e783de0
> 1426d: [ ca] external-token 0 0 2 1 7e783de0
> 1427b: [ b7] b(:) 0 0 2 1 7e783de0
> 1427d: [952] 0 0 2 1 7e783de0
> 1427f: [a41] 0 0 2 1 7e783de0
> 14281: [cf3] 0 0 2 1 7e783de0
> 14282: [ c2] fc-locals-b(;) 0 0 2 1 7e783de0
> 14283: [ ca] external-token 0 0 2 1 7e783de0
> 14291: [ b7] b(:) 0 0 2 1 7e783de0
> 14293: [952] 0 0 2 1 7e783de0
> 14295: [a41] 0 0 2 1 7e783de0
> 14297: [cf5] 0 0 2 1 7e783de0
> 14298: [ c2] fc-locals-b(;) 0 0 2 1 7e783de0
> 14299: [ ca] external-token 0 0 2 1 7e783de0
> 142a7: [ b7] b(:) 0 0 2 1 7e783de0
> 142a9: [b70] 0 0 2 1 7e783de0
> 142ab: [b71] 0 0 2 1 7e783de0
> 142ac: [ c2] fc-locals-b(;) 0 0 2 1 7e783de0
> 142ad: [ ca] external-token 0 0 2 1 7e783de0
> 142bf: [ b7] b(:) 0 0 2 1 7e783de0
> 142c1: [952] 0 0 2 1 7e783de0
> 142c3: [a41] 0 0 2 1 7e783de0
> 142c5: [df3] 0 0 2 1 7e783de0
> 142c6: [ c2] fc-locals-b(;) 0 0 2 1 7e783de0
> 142c7: [ ca] external-token 0 0 2 1 7e783de0
> 142d8: [ b7] b(:) 0 0 2 1 7e783de0
> 142da: [952] 0 0 2 1 7e783de0
> 142dc: [a41] 0 0 2 1 7e783de0
> 142de: [df4] 0 0 2 1 7e783de0
> 142df: [ c2] fc-locals-b(;) 0 0 2 1 7e783de0
> 142e0: [ ca] external-token 0 0 2 1 7e783de0
> 142f2: [ b7] b(:) 0 0 2 1 7e783de0
> 142f4: [952] 0 0 2 1 7e783de0
> 142f6: [a41] 0 0 2 1 7e783de0
> 142f8: [df5] 0 0 2 1 7e783de0
> 142f9: [ c2] fc-locals-b(;) 0 0 2 1 7e783de0
> 142fb: [95f] x95f 0 0 2 1 7e783de0 0
> 142fc: [ a6] 1 0 0 2 1 7e783de0 0 1
> 142fe: [952] x952 0 0 2 1 7e783de0 0 1 0
> 142ff: [ 27] LSHIFT 0 0 2 1 7e783de0 0 1
> 14300: [ 23] AND 0 0 2 1 7e783de0 0
> 14301: [ 35] 0<> 0 0 2 1 7e783de0 0
> 14302: [ 14] b?branch 0 0 2 1 7e783de0
> 14345: [ 11] b(') 0 0 2 1 7e783de0 7e7d4d68
> 14349: [11c] is-install 0 0 2 1 7e783de0
> 1434a: [ 11] b(') 0 0 2 1 7e783de0 7e7d4dc0
> 1434e: [11d] is-remove 0 0 2 1 7e783de0
> 14350: [127] finish-device 0 0 2 1 7e783de0
> 14351: [ b2] b(>resolve)
> 7e7848a0 : ?compile-mode ( 0 0 2 1 7e783de0 ) |
> 7e783398 : STATE ( 0 0 2 1 7e783de0 ) |
> 7e7833a0 : @ ( 0 0 2 1 7e783de0 7dc0e6f0 ) |
> 7e7833a8 : SEMICOLON ( 0 0 2 1 7e783de0 0 ) |
> 7e7848a8 : 0BRANCH ( 0 0 2 1 7e783de0 0 ) |
> 7e7848c0 : SEMICOLON ( 0 0 2 1 7e783de0 ) | 0 0 2 1 7e783de0
> 14353: [946] x946 0 0 2 1 7e783de0 2
> 14354: [ a6] 1 0 0 2 1 7e783de0 2 1
> 14355: [ 3b] > 0 0 2 1 7e783de0 -1
> 14356: [ 14] b?branch 0 0 2 1 7e783de0
> 14359: [ a4] -1 0 0 2 1 7e783de0 -1
> 1435b: [951] x951 0 0 2 1 7e783de0 -1 2
> 1435c: [ a5] 0 0 0 2 1 7e783de0 -1 2 0
> 1435d: [ 18] b(?do) 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110
> 14360: [ 19] 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110
> 14362: [952] 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110
> 14363: [ 3d] 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110
> 14364: [ 14] b?branch 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138
> 14367: [ 47] 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138
> 14368: [ a4] 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138
> 14369: [ 3c] 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138
> 1436a: [ 14] b?branch 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 7dc5f160
> 1436d: [ 46] 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 7dc5f160
> 1436e: [ 19] 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 7dc5f160
> 1436f: [ b2] b(>resolve)
> 7e7848a0 : ?compile-mode ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 7dc5f160 ) |
> 7e783398 : STATE ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 7dc5f160 ) |
> 7e7833a0 : @ ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 7dc5f160 7dc0e6f0 ) |
> 7e7833a8 : SEMICOLON ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 7dc5f160 3 ) |
> 7e7848a8 : 0BRANCH ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 7dc5f160 3 ) |
> 7e7848b8 : THEN ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 7dc5f160 ) |
> 7dc0ee60 : ?COMP ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 7dc5f160 ) |
> 7dc0e780 : STATE ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 7dc5f160 ) |
> 7dc0e788 : @ ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 7dc5f160 7dc0e6f0 ) |
> 7dc0e790 : 0BRANCH ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 7dc5f160 3 ) |
> 7dc0e7a0 : EXIT ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 7dc5f160 ) |
> 7dc0ee68 : RESOLVE-ORIG ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 7dc5f160 ) |
> 7dc0ed60 : HERE ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 7dc5f160 ) |
> 7dc0ed68 : OVER ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 7dc5f160 7dc5f178 ) |
> 7dc0ed70 : CELL+ ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 7dc5f160 7dc5f178 7dc5f160 ) |
> 7dc09f40 : NA1+ ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 7dc5f160 7dc5f178 7dc5f160 ) |
> 7dc09ee8 : /N ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 7dc5f160 7dc5f178 7dc5f160 ) |
> 7dc09ef0 : + ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 7dc5f160 7dc5f178 7dc5f160 8 ) |
> 7dc09ef8 : SEMICOLON ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 7dc5f160 7dc5f178 7dc5f168 ) |
> 7dc09f48 : SEMICOLON ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 7dc5f160 7dc5f178 7dc5f168 ) |
> 7dc0ed78 : - ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 7dc5f160 7dc5f178 7dc5f168 ) |
> 7dc0ed80 : SWAP ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 7dc5f160 10 ) |
> 7dc0ed88 : ! ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 10 7dc5f160 ) |
> 7dc0ed90 : SEMICOLON ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 ) |
> 7dc0ee70 : -COMP ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 ) |
> 7dc0ecb8 : -1 ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 ) |
> 7dc0ecc0 : STATE ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 -1 ) |
> 7dc0ecc8 : +! ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 -1 7dc0e6f0 ) |
> 7dc0bcc8 : TUCK ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 -1 7dc0e6f0 ) |
> 7dc0a178 : SWAP ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 -1 7dc0e6f0 ) |
> 7dc0a180 : OVER ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 7dc0e6f0 -1 ) |
> 7dc0a188 : SEMICOLON ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 7dc0e6f0 -1 7dc0e6f0 ) |
> 7dc0bcd0 : @ ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 7dc0e6f0 -1 7dc0e6f0 ) |
> 7dc0bcd8 : + ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 7dc0e6f0 -1 3 ) |
> 7dc0bce0 : SWAP ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 7dc0e6f0 2 ) |
> 7dc0bce8 : ! ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 2 7dc0e6f0 ) |
> 7dc0bcf0 : SEMICOLON ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 ) |
> 7dc0ecd0 : STATE ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 ) |
> 7dc0ecd8 : @ ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 7dc0e6f0 ) |
> 7dc0ece0 : 0BRANCH ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 2 ) |
> 7dc0ecf0 : EXIT ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 ) |
> 7dc0ee78 : SEMICOLON ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 ) |
> 7e7848c0 : SEMICOLON ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 ) | 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138
> 14370: [ 19] 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138
> 14372: [a41] 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138
> 14374: [a4a] 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138
> 14376: [8ea] 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138
> 14377: [ 3d] 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138
> 14378: [ 14] b?branch 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 7dc5f1a8
> 1437b: [ 46] 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 7dc5f1a8
> 1437c: [ 19] 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 7dc5f1a8
> 1437d: [ 1b] b(leave) 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 7dc5f1a8
> 1437e: [ b2] b(>resolve)
> 7e7848a0 : ?compile-mode ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 7dc5f1a8 ) |
> 7e783398 : STATE ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 7dc5f1a8 ) |
> 7e7833a0 : @ ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 7dc5f1a8 7dc0e6f0 ) |
> 7e7833a8 : SEMICOLON ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 7dc5f1a8 3 ) |
> 7e7848a8 : 0BRANCH ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 7dc5f1a8 3 ) |
> 7e7848b8 : THEN ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 7dc5f1a8 ) |
> 7dc0ee60 : ?COMP ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 7dc5f1a8 ) |
> 7dc0e780 : STATE ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 7dc5f1a8 ) |
> 7dc0e788 : @ ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 7dc5f1a8 7dc0e6f0 ) |
> 7dc0e790 : 0BRANCH ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 7dc5f1a8 3 ) |
> 7dc0e7a0 : EXIT ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 7dc5f1a8 ) |
> 7dc0ee68 : RESOLVE-ORIG ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 7dc5f1a8 ) |
> 7dc0ed60 : HERE ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 7dc5f1a8 ) |
> 7dc0ed68 : OVER ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 7dc5f1a8 7dc5f1d0 ) |
> 7dc0ed70 : CELL+ ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 7dc5f1a8 7dc5f1d0 7dc5f1a8 ) |
> 7dc09f40 : NA1+ ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 7dc5f1a8 7dc5f1d0 7dc5f1a8 ) |
> 7dc09ee8 : /N ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 7dc5f1a8 7dc5f1d0 7dc5f1a8 ) |
> 7dc09ef0 : + ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 7dc5f1a8 7dc5f1d0 7dc5f1a8 8 ) |
> 7dc09ef8 : SEMICOLON ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 7dc5f1a8 7dc5f1d0 7dc5f1b0 ) |
> 7dc09f48 : SEMICOLON ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 7dc5f1a8 7dc5f1d0 7dc5f1b0 ) |
> 7dc0ed78 : - ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 7dc5f1a8 7dc5f1d0 7dc5f1b0 ) |
> 7dc0ed80 : SWAP ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 7dc5f1a8 20 ) |
> 7dc0ed88 : ! ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 20 7dc5f1a8 ) |
> 7dc0ed90 : SEMICOLON ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 ) |
> 7dc0ee70 : -COMP ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 ) |
> 7dc0ee78 : SEMICOLON ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 ) |
> 7e7848c0 : SEMICOLON ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 ) | 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138
> 1437f: [ b2] b(>resolve)
> 7e7848a0 : ?compile-mode ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 ) |
> 7e7848a8 : 0BRANCH ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 2 ) |
> 7e7848b8 : THEN ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 7dc5f138 ) |
> 7e7848c0 : SEMICOLON ( 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110 ) | 0 0 2 1 7e783de0 -1 2 0 0 7dc5f110
> 14380: [ 15] b(loop) 0 0 2 1 7e783de0 1
> 14383: [ 47] DUP 0 0 2 1 7e783de0 1 1
> 14384: [ c3] b(to) 0 0 2 1 7e783de0 1
> 14388: [a41] xa41 0 0 2 1 7e783de0
> 1438a: [11f] new-device 0 0 2 1 7e783de0
> 1438c: [e32] xe32 0 0 2 1 7e783de0
> 1438d: [ b5] new-token 0 0 2 1 7e783de0
> 14390: [ b7] b(:) 0 0 2 1 7e783de0
> 14392: [953] 0 0 2 1 7e783de0
> 14394: [a41] 0 0 2 1 7e783de0
> 14396: [df1] 0 0 2 1 7e783de0
> 14397: [ c3] b(to) 0 0 2 1 7e783de0
> 1439a: [ c2] fc-locals-b(;) 0 0 2 1 7e783de0
> 1439b: [ b5] new-token 0 0 2 1 7e783de0
> 1439e: [ b7] b(:) 0 0 2 1 7e783de0
> 143a0: [953] 0 0 2 1 7e783de0
> 143a2: [a41] 0 0 2 1 7e783de0
> 143a4: [df2] 0 0 2 1 7e783de0
> 143a5: [ c2] fc-locals-b(;) 0 0 2 1 7e783de0
> 143a6: [ b6] named-token 0 0 2 1 7e783de0
> 143b2: [ b7] b(:) 0 0 2 1 7e783de0
> 143b4: [dcb] 0 0 2 1 7e783de0
> 143b5: [ c2] fc-locals-b(;) 0 0 2 1 7e783de0
> 143b6: [ b6] named-token 0 0 2 1 7e783de0
> 143c4: [ b7] b(:) 0 0 2 1 7e783de0
> 143c6: [dcc] 0 0 2 1 7e783de0
> 143c7: [ c2] fc-locals-b(;) 0 0 2 1 7e783de0
> 143c8: [ ca] external-token 0 0 2 1 7e783de0
> 143d4: [ b7] b(:) 0 0 2 1 7e783de0
> 143d6: [953] 0 0 2 1 7e783de0
> 143d8: [a41] 0 0 2 1 7e783de0
> 143da: [dca] 0 0 2 1 7e783de0
> 143db: [ c2] fc-locals-b(;) 0 0 2 1 7e783de0
> 143dc: [ ca] external-token 0 0 2 1 7e783de0
> 143ee: [ b7] b(:) 0 0 2 1 7e783de0
> 143f0: [953] 0 0 2 1 7e783de0
> 143f2: [a41] 0 0 2 1 7e783de0
> 143f4: [dd5] 0 0 2 1 7e783de0
> 143f5: [ c2] fc-locals-b(;) 0 0 2 1 7e783de0
> 143f6: [ ca] external-token 0 0 2 1 7e783de0
> 14408: [ b7] b(:) 0 0 2 1 7e783de0
> 1440a: [953] 0 0 2 1 7e783de0
> 1440c: [a41] 0 0 2 1 7e783de0
> 1440e: [dd7] 0 0 2 1 7e783de0
> 1440f: [ c2] fc-locals-b(;) 0 0 2 1 7e783de0
> 14410: [ ca] external-token 0 0 2 1 7e783de0
> 14422: [ b7] b(:) 0 0 2 1 7e783de0
> 14424: [953] 0 0 2 1 7e783de0
> 14426: [a41] 0 0 2 1 7e783de0
> 14428: [dd6] 0 0 2 1 7e783de0
> 14429: [ c2] fc-locals-b(;) 0 0 2 1 7e783de0
> 1442a: [ ca] external-token 0 0 2 1 7e783de0
> 14434: [ b7] b(:) 0 0 2 1 7e783de0
> 14436: [953] 0 0 2 1 7e783de0
> 14438: [a41] 0 0 2 1 7e783de0
> 1443a: [cf7] 0 0 2 1 7e783de0
> 1443b: [ c2] fc-locals-b(;) 0 0 2 1 7e783de0
> 1443c: [ ca] external-token 0 0 2 1 7e783de0
> 14446: [ b7] b(:) 0 0 2 1 7e783de0
> 14448: [953] 0 0 2 1 7e783de0
> 1444a: [a41] 0 0 2 1 7e783de0
> 1444c: [cf9] 0 0 2 1 7e783de0
> 1444d: [ c2] fc-locals-b(;) 0 0 2 1 7e783de0
> 1444e: [ ca] external-token 0 0 2 1 7e783de0
> 1445c: [ b7] b(:) 0 0 2 1 7e783de0
> 1445e: [953] 0 0 2 1 7e783de0
> 14460: [a41] 0 0 2 1 7e783de0
> 14462: [cf3] 0 0 2 1 7e783de0
> 14463: [ c2] fc-locals-b(;) 0 0 2 1 7e783de0
> 14464: [ ca] external-token 0 0 2 1 7e783de0
> 14472: [ b7] b(:) 0 0 2 1 7e783de0
> 14474: [953] 0 0 2 1 7e783de0
> 14476: [a41] 0 0 2 1 7e783de0
> 14478: [cf5] 0 0 2 1 7e783de0
> 14479: [ c2] fc-locals-b(;) 0 0 2 1 7e783de0
> 1447a: [ ca] external-token 0 0 2 1 7e783de0
> 14488: [ b7] b(:) 0 0 2 1 7e783de0
> 1448a: [b70] 0 0 2 1 7e783de0
> 1448c: [b71] 0 0 2 1 7e783de0
> 1448d: [ c2] fc-locals-b(;) 0 0 2 1 7e783de0
> 1448e: [ ca] external-token 0 0 2 1 7e783de0
> 144a0: [ b7] b(:) 0 0 2 1 7e783de0
> 144a2: [953] 0 0 2 1 7e783de0
> 144a4: [a41] 0 0 2 1 7e783de0
> 144a6: [df3] 0 0 2 1 7e783de0
> 144a7: [ c2] fc-locals-b(;) 0 0 2 1 7e783de0
> 144a8: [ ca] external-token 0 0 2 1 7e783de0
> 144b9: [ b7] b(:) 0 0 2 1 7e783de0
> 144bb: [953] 0 0 2 1 7e783de0
> 144bd: [a41] 0 0 2 1 7e783de0
> 144bf: [df4] 0 0 2 1 7e783de0
> 144c0: [ c2] fc-locals-b(;) 0 0 2 1 7e783de0
> 144c1: [ ca] external-token 0 0 2 1 7e783de0
> 144d3: [ b7] b(:) 0 0 2 1 7e783de0
> 144d5: [953] 0 0 2 1 7e783de0
> 144d7: [a41] 0 0 2 1 7e783de0
> 144d9: [df5] 0 0 2 1 7e783de0
> 144da: [ c2] fc-locals-b(;) 0 0 2 1 7e783de0
> 144dc: [95f] x95f 0 0 2 1 7e783de0 0
> 144dd: [ a6] 1 0 0 2 1 7e783de0 0 1
> 144df: [953] x953 0 0 2 1 7e783de0 0 1 1
> 144e0: [ 27] LSHIFT 0 0 2 1 7e783de0 0 2
> 144e1: [ 23] AND 0 0 2 1 7e783de0 0
> 144e2: [ 35] 0<> 0 0 2 1 7e783de0 0
> 144e3: [ 14] b?branch 0 0 2 1 7e783de0
> 14526: [ 11] b(') 0 0 2 1 7e783de0 7e7d55a8
> 1452a: [11c] is-install 0 0 2 1 7e783de0
> 1452b: [ 11] b(') 0 0 2 1 7e783de0 7e7d5600
> 1452f: [11d] is-remove 0 0 2 1 7e783de0
> 14531: [127] finish-device 0 0 2 1 7e783de0
> 14532: [ b2] b(>resolve)
> 7e7848a0 : ?compile-mode ( 0 0 2 1 7e783de0 ) |
> 7e7848a8 : 0BRANCH ( 0 0 2 1 7e783de0 0 ) |
> 7e7848c0 : SEMICOLON ( 0 0 2 1 7e783de0 ) | 0 0 2 1 7e783de0
> 14534: [11f] new-device 0 0 2 1 7e783de0
> 14535: [ 12] b(") 0 0 2 1 7e783de0 14537 d
> 14545: [201] device-name 0 0 2 1 7e783de0
> 14546: [ 12] b(") 0 0 2 1 7e783de0 14548 12
> 1455b: [114] encode-string 0 0 2 1 7e783de0 7e7d5be0 13
> 1455c: [ 12] b(") 0 0 2 1 7e783de0 7e7d5be0 13 1455e a
> 14569: [110] property 0 0 2 1 7e783de0
> 1456a: [ a7] 2 0 0 2 1 7e783de0 2
> 1456c: [111] encode-int 0 0 2 1 7e783de0 7e7d5c38 4
> 1456d: [ 12] b(") 0 0 2 1 7e783de0 7e7d5c38 4 1456f 17
> 14587: [110] property 0 0 2 1 7e783de0
> 14588: [ a7] 2 0 0 2 1 7e783de0 2
> 1458a: [111] encode-int 0 0 2 1 7e783de0 7e7d5c90 4
> 1458b: [ 12] b(") 0 0 2 1 7e783de0 7e7d5c90 4 1458d 15
> 145a3: [110] property 0 0 2 1 7e783de0
> 145a5: [951] x951 0 0 2 1 7e783de0 2
> 145a7: [111] encode-int 0 0 2 1 7e783de0 7e7d5ce0 4
> 145a8: [ 12] b(") 0 0 2 1 7e783de0 7e7d5ce0 4 145aa 3
> 145ae: [110] property 0 0 2 1 7e783de0
> 145af: [ a6] 1 0 0 2 1 7e783de0 1
> 145b1: [111] encode-int 0 0 2 1 7e783de0 7e7d5d20 4
> 145b2: [ 12] b(") 0 0 2 1 7e783de0 7e7d5d20 4 145b4 e
> 145c3: [110] property 0 0 2 1 7e783de0
> 145c4: [ a5] 0 0 0 2 1 7e783de0 0
> 145c6: [111] encode-int 0 0 2 1 7e783de0 7e7d5d68 4
> 145c7: [ 12] b(") 0 0 2 1 7e783de0 7e7d5d68 4 145c9 b
> 145d5: [110] property 0 0 2 1 7e783de0
> 145d7: [11f] new-device 0 0 2 1 7e783de0
> 145d8: [ 12] b(") 0 0 2 1 7e783de0 145da 15
> 145f0: [201] device-name 0 0 2 1 7e783de0
> 145f1: [ 12] b(") 0 0 2 1 7e783de0 145f3 b
> 145ff: [11a] device-type 0 0 2 1 7e783de0
> 14600: [ 12] b(") 0 0 2 1 7e783de0 14602 9
> 1460c: [114] encode-string 0 0 2 1 7e783de0 7e7d5ed0 a
> 1460d: [ 12] b(") 0 0 2 1 7e783de0 7e7d5ed0 a 1460f 8
> 14618: [110] property 0 0 2 1 7e783de0
> 1461a: [20a] my-parent 0 0 2 1 7e783de0 7e42a000
> 1461c: [20b] ihandle>phandle 0 0 2 1 7e783de0 7e7d5b30
> 1461d: [ 10] b(lit) 0 0 2 1 7e783de0 7e7d5b30 8
> 14622: [ 27] LSHIFT 0 0 2 1 7e783de0 7e7d5b3000
> 14624: [111] encode-int 0 0 2 1 7e783de0 7e7d5f20 4
> 14625: [ 12] b(") 0 0 2 1 7e783de0 7e7d5f20 4 14627 9
> 14631: [110] property 0 0 2 1 7e783de0
> 14632: [ a5] 0 0 0 2 1 7e783de0 0
> 14634: [111] encode-int 0 0 2 1 7e783de0 7e7d5f68 4
> 14635: [ 12] b(") 0 0 2 1 7e783de0 7e7d5f68 4 14637 3
> 1463b: [110] property 0 0 2 1 7e783de0
> 1463c: [ a7] 2 0 0 2 1 7e783de0 2
> 1463e: [111] encode-int 0 0 2 1 7e783de0 7e7d5fa8 4
> 1463f: [ 12] b(") 0 0 2 1 7e783de0 7e7d5fa8 4 14641 7
> 14649: [110] property 0 0 2 1 7e783de0
> 1464a: [ 10] b(lit) 0 0 2 1 7e783de0 ff000002
> 14650: [111] encode-int 0 0 2 1 7e783de0 7e7d5ff0 4
> 14651: [ 12] b(") 0 0 2 1 7e783de0 7e7d5ff0 4 14653 4
> 14658: [110] property 0 0 2 1 7e783de0
> 14659: [ 10] b(lit) 0 0 2 1 7e783de0 550000
> 1465f: [111] encode-int 0 0 2 1 7e783de0 7e7d6030 4
> 14660: [ 12] b(") 0 0 2 1 7e783de0 7e7d6030 4 14662 c
> 1466f: [110] property 0 0 2 1 7e783de0
> 14670: [ 10] b(lit) 0 0 2 1 7e783de0 1e
> 14676: [111] encode-int 0 0 2 1 7e783de0 7e7d6078 4
> 14677: [ a5] 0 0 0 2 1 7e783de0 7e7d6078 4 0
> 14679: [111] encode-int 0 0 2 1 7e783de0 7e7d6078 4 7e7d607c 4
> 1467b: [112] encode+ 0 0 2 1 7e783de0 7e7d6078 8
> 1467c: [ 12] b(") 0 0 2 1 7e783de0 7e7d6078 8 1467e e
> 1468d: [110] property 0 0 2 1 7e783de0
> 1468f: [127] finish-device 0 0 2 1 7e783de0
> 14691: [127] finish-device 0 0 2 1 7e783de0
> 14693: [de0] xde0 0 0 2 1 7e783de0
> 14694: [ 0] end0 0 0 2 1 7e783de0
> restored fcode@ 7e783de0
> restored fcode-spread 1
> restored fcode-offset 2
> restored fcode-end 0
> restored ip 0
> ok
> 0 >
>
8 months, 2 weeks
- 1
- 0
Re: [OpenBIOS] Back at it again( PCI Passthrough )
by Jd Lyons
If you’ll note, the one thing that jumps out at me, in the 6602.txt( openbios ), abort is called 50 times, yet it doesn’t appear at all in the 6600.txt( SLOF ).
This may have something to do with the fact that SLOF reaches the end of the Fcode without error.
> On May 8, 2018, at 3:41 AM, Jd Lyons <lyons_dj(a)yahoo.com> wrote:
>
> Not sure if this is what you’re asking for, but the verbose output of both Openbios and SLOF executing the option rom.
>
> <6600.txt>
> <6602.txt>
>
>
>> On May 6, 2018, at 8:12 PM, Joe van Tunen <joevt(a)shaw.ca <mailto:joevt@shaw.ca>> wrote:
>>
>> Can you send the full output directly to me or post a link?
>>
>
>
>
>> Can you check the value of "here" before byte-load and after the exception to see how much dictionary space was used?
>
> Not sure how to check the value of here?
8 months, 2 weeks
- 1
- 0
Re: [OpenBIOS] Back at it again( PCI Passthrough )
by Jd Lyons
Ok,I got a little excited, [ddf] vs [dff].
Sometimes I’m easily confused.
> On May 7, 2018, at 10:54 AM, Joe van Tunen <joevt(a)shaw.ca> wrote:
>
>
>
> On 5/7/18, 4:56 AM, "Segher Boessenkool" <segher(a)kernel.crashing.org> wrote:
>
> On Mon, May 07, 2018 at 07:33:04AM -0400, Jd Lyons wrote:
>> Ok, I think the reason for the exception with [dff] is I don’t have an active device tree node. So, “ /pci/@x” open-dev to my-self works on Apple’s implementation of OF, but Openbios and SLOF deal with things a little different.
>>
>> s” /pci/@x” select-dev
>>
>> That works in SLOF, otherwise SLOF throws an exception with [dff] and tells us there is no active device tree node.
>
> You should use begin-package and new-device or the like. See the Open
> Firmware specification glossary entries for those words and byte-load .
>
>> Doesn’t anyone know how I can view the active device tree node?
>
> my-self ihandle>phandle ( -- phandle) and do some stuff with that,
> or just use pwd .
>
>
> Segher
>
>
>
> Is there a reason this thread isn't going to the openbios mailing list?
>
> Do you mean [dff] or [ddf]? Wasn't the evidence pointing to [ddf]?
>
> [ddf] calls the parent's map-in function a few times. The "PCI Bus Binding to Open Firmware" document mentions a bug with map-in which existed in Apple's original Open Firmware implementation. Do QEMU and the Quicksilver G4 both have a correctly implemented map-in function?
>
> What is the maximum dictionary space allowed by QEMU's OpenBIOS? If the maximum is reached, does it grow or does an exception occur? It's probably not likely that the nvidia fcode is exceeding this limit, but it would be good to have a method to confirm this.
>
>
>
8 months, 2 weeks
- 1
- 0
Re: [OpenBIOS] Back at it again( PCI Passthrough )
by Jd Lyons
Sorry, that wan me forgeting to include the list.
> On May 7, 2018, at 10:54 AM, Joe van Tunen <joevt(a)shaw.ca> wrote:
>
>
>
> On 5/7/18, 4:56 AM, "Segher Boessenkool" <segher(a)kernel.crashing.org> wrote:
>
> On Mon, May 07, 2018 at 07:33:04AM -0400, Jd Lyons wrote:
>> Ok, I think the reason for the exception with [dff] is I don’t have an active device tree node. So, “ /pci/@x” open-dev to my-self works on Apple’s implementation of OF, but Openbios and SLOF deal with things a little different.
>>
>> s” /pci/@x” select-dev
>>
>> That works in SLOF, otherwise SLOF throws an exception with [dff] and tells us there is no active device tree node.
>
> You should use begin-package and new-device or the like. See the Open
> Firmware specification glossary entries for those words and byte-load .
>
>> Doesn’t anyone know how I can view the active device tree node?
>
> my-self ihandle>phandle ( -- phandle) and do some stuff with that,
> or just use pwd .
>
>
> Segher
>
>
>
> Is there a reason this thread isn't going to the openbios mailing list?
>
> Do you mean [dff] or [ddf]? Wasn't the evidence pointing to [ddf]?
>
> [ddf] calls the parent's map-in function a few times. The "PCI Bus Binding to Open Firmware" document mentions a bug with map-in which existed in Apple's original Open Firmware implementation. Do QEMU and the Quicksilver G4 both have a correctly implemented map-in function?
>
> What is the maximum dictionary space allowed by QEMU's OpenBIOS? If the maximum is reached, does it grow or does an exception occur? It's probably not likely that the nvidia fcode is exceeding this limit, but it would be good to have a method to confirm this.
>
>
>
8 months, 2 weeks
- 1
- 0
Re: [OpenBIOS] Back at it again( PCI Passthrough )
by Jd Lyons
> On May 7, 2018, at 7:33 AM, Jd Lyons <lyons_dj(a)yahoo.com> wrote:
>
>
>
>> On May 6, 2018, at 8:12 PM, Joe van Tunen <joevt(a)shaw.ca> wrote:
>>
>> It is unclear to me if the exception is caused by compiling the fcode or interpreting (executing) it. Your verbose output (which I'm unfamiliar with) shows only "(compile)". Without trying it myself or looking at Apple's byte-load code, I'm guessing that's some kind of context, and perhaps there's an interpret (execute) context? Can you send the full output directly to me or post a link?
>>
>> Can you check the value of "here" before byte-load and after the exception to see how much dictionary space was used? I wonder if an exception would cause a rewind of some kind, or just leave everything as is.
>>
>> The fcode in question is at the top level and looks like this:
>>
>>
>> new-token 0xe38
>> b(:)
>> ...
>> b(;)
>> b(') (unnamed-fcode) [0xc84]
>> b(to) (unnamed-fcode) [0x9a9]
>> (unnamed-fcode) [0xe34]
>> (unnamed-fcode) [0xdff]
>> (unnamed-fcode) [0x93d]
>> b(lit) 0xf
>> <>
>> b?branch 0x0026 ( =dec 38)
>> (unnamed-fcode) [0x9bd]
>> b(lit) 0xff
>> and
>> my-space
>> +
>> (unnamed-fcode) [0xa08]
>> b(lit) 0x6
>> and
>> b(lit) 0x4
>> =
>> b?branch 0x0009 ()
>> b(') (unnamed-fcode) [0x9c1]
>> b(to) (unnamed-fcode) [0x9c0]
>> b(>resolve)
>> b(>resolve)
>> (unnamed-fcode) [0xddf]
>> ...
>>
>>
>> Since it's at the top level, it probably must be getting executed. The problem might be in executing 0xddf (defined earlier in the fcode).
>>
>> Once I get my fcode token to forth converter updated (so it can be used with Unix/macOS instead of MPW) then you can make your own nvidia open firmware driver with added debugging code.
>>
>> You should look at the 1275.pdf document "IEEE Standard for Boot (Initialization Configuration) Firmware: Core Requirements and Practices" to get a description of the tokens. "b?branch ... b(>resolve)" are the tokens for the forth "if ... then" statements (when the b?branch fcode offset is positive). The document also describes how a token behaves while the fcode evaluator is in interpretation state and compilation state.
>>
>>
>> On 5/6/18, 8:11 AM, "Jd Lyons" <lyons_dj(a)yahoo.com> wrote:
>>
>> Ok, now that I know we can load a Fcode Rom for an nVidia card in Apple’s Open Firmware implementation, I figured I try this again.
>>
>> I have to catch up a little one what we did before, so I maybe tripping over something I got passed before.
>>
>>> true to ?fcode-verbose
>>> “ /pci/@10” open-dev to my-self
>>> load hd:,\ppc\6600.rom
>>> 4000040 1 byte-load
>>
>> …….
>>
>>
>> (offset) 26
>> 400fff9 : (compile) [ 0x9bd ]
>> 400fffa : (compile) b(lit) [ 0x10 ]
>> 400ffff : (compile) and [ 0x23 ]
>> 4010001 : (compile) my-space [ 0x103 ]
>> 4010002 : (compile) + [ 0x1e ]
>> 4010004 : (compile) [ 0xa08 ]
>> 4010005 : (compile) b(lit) [ 0x10 ]
>> 401000a : (compile) and [ 0x23 ]
>> 401000b : (compile) b(lit) [ 0x10 ]
>> 4010010 : (compile) = [ 0x3c ]
>> 4010011 : (compile) b?branch [ 0x14 ]
>> (offset) 9
>> 4010014 : (compile) b(') [ 0x11 ]
>> 4010017 : (compile) b(to) [ 0xc3 ]
>> 401001a : (compile) b(>resolve) [ 0xb2 ]
>> 401001b : (compile) b(>resolve) [ 0xb2 ]
>>
>> byte-load: exception caught!
>> ok
>> 0 > 4010014 200 dump
>> 4010014 11 09 c1 c3 09 c0 b2 b2 0d df 0e 04 0e 38 0e 06 ..��.���.�...8..
>> 4010024 0c e5 0d b0 0e 07 0e 1a 0c 5b 0e 28 0e 20 0d fa .�.�.....[.(. .�
>> 4010034 0e 37 0e 2c 0e 2d 12 0b 4e 56 44 41 2c 50 61 72 .7.,.-..NVDA,Par
>> 4010044 65 6e 74 02 01 a6 01 11 12 0e 23 61 64 64 72 65 ent..�....#addre
>> 4010054 73 73 2d 63 65 6c 6c 73 01 10 a5 01 11 12 0b 23 ss-cells..�....#
>> 4010064 73 69 7a 65 2d 63 65 6c 6c 73 01 10 09 c7 09 3d size-cells...�.=
>> 4010074 10 00 00 00 35 42 14 00 0d a6 09 33 27 09 35 24 ....5B...�.3'.5$
>> 4010084 c3 09 35 b2 09 41 10 00 00 00 10 27 09 35 24 01 �.5�.A.....'.5$.
>> 4010094 11 12 0d 4e 56 44 41 2c 46 65 61 74 75 72 65 73 ...NVDA,Features
>> 40100a4 01 10 a6 01 11 12 0a 4e 56 44 41 2c 4c 65 76 65 ..�....NVDA,Leve
>> 40100b4 6c 01 10 a5 a5 0e 2e 09 bc 09 c3 0e 2e 01 12 09 l..��...�.�.....
>> 40100c4 c0 09 c6 0e 2e 01 12 09 be 09 c4 0e 2e 01 12 09 �.�.....�.�.....
>> 40100d4 bf 09 c5 0e 2e 01 12 12 03 72 65 67 01 10 a6 01 �.�......reg..�.
>> 40100e4 11 12 0e 23 61 64 64 72 65 73 73 2d 63 65 6c 6c ...#address-cell
>> 40100f4 73 01 10 a5 01 11 12 0b 23 73 69 7a 65 2d 63 65 s..�....#size-ce
>> 4010104 6c 6c 73 01 10 12 1a 3a 20 64 65 63 6f 64 65 2d lls....: decode-
>> 4010114 75 6e 69 74 20 70 61 72 73 65 2d 31 68 65 78 20 unit parse-1hex
>> 4010124 3b cd 0c 7c 47 01 11 4a 01 11 01 12 12 0c 56 52 ;�.|G..J......VR
>> 4010134 41 4d 2c 6d 65 6d 73 69 7a 65 01 10 a5 c3 09 52 AM,memsize..��.R
>> 4010144 09 51 a5 18 00 16 19 0a 41 0a 4a 08 ea 3d 14 00 .Q�.....A.J.�=..
>> 4010154 08 19 c3 09 52 1b b2 15 ff ee 09 46 38 14 01 b0 ..�.R.�.��.F8..�
>> 4010164 09 52 0a 41 01 1f 0e 32 b5 0e 39 b7 09 52 0a 41 .R.A...2�.9�.R.A
>> 4010174 0d f1 c3 01 62 c2 b5 0e 3a b7 09 52 0a 41 0d f2 .��.bµ.:�.R.A.�
>> 4010184 c2 b6 08 67 65 74 2d 6d 6f 64 65 0e 3b b7 0d cb ¶.get-mode.;�.�
>> 4010194 c2 b6 0a 73 68 6f 77 2d 6d 6f 64 65 73 0e 3c b7 ¶.show-modes.<�
>> 40101a4 0d cc c2 ca 08 73 65 74 2d 6d 6f 64 65 0e 3d b7 .���.set-mode.=�
>> 40101b4 09 52 0a 41 0d ca c2 ca 0e 64 72 61 77 2d 72 65 .R.A.���.draw-re
>> 40101c4 63 74 61 6e 67 6c 65 0e 3e b7 09 52 0a 41 0d d5 ctangle.>�.R.A.�
>> 40101d4 c2 ca 0e 66 69 6c 6c 2d 72 65 63 74 61 6e 67 6c ��.fill-rectangl
>> 40101e4 65 0e 3f b7 09 52 0a 41 0d d7 c2 ca 0e 72 65 61 e.?�.R.A.���.rea
>> 40101f4 64 2d 72 65 63 74 61 6e 67 6c 65 0e 40 b7 09 52 d-rectangle.@�.R
>> 4010204 0a 41 0d d6 c2 ca 06 63 6f 6c 6f 72 21 0e 41 b7 .A.���.color!.A�
>> ok
>> 0 > my-self . fc5ac34 ok
>>
>> I think this is the point I got to before. I’m not real sure what is going wrong here?
>>
>> Seems to be tripping over the second b(>resolve), tho I’m not sure what this fcode is trying to do?
>>
>> Joe, see if you can have a look at it, when you have time, and see if you have any ideas what is causing the exception.
>>
>> b?branch 0x0009 ()
>> b(') (unnamed-fcode) [0x9c1]
>> b(to) (unnamed-fcode) [0x9c0]
>> b(>resolve)
>> b(>resolve) <—Here?
>> (unnamed-fcode) [0xddf]
>> (unnamed-fcode) [0xe04]
>> (unnamed-fcode) [0xe38]
>> (unnamed-fcode) [0xe06]
>> (unnamed-fcode) [0xce5]
>> (unnamed-fcode) [0xdb0]
>> (unnamed-fcode) [0xe07]
>> (unnamed-fcode) [0xe1a]
>> (unnamed-fcode) [0xc5b]
>> (unnamed-fcode) [0xe28]
>> (unnamed-fcode) [0xe20]
>> (unnamed-fcode) [0xdfa]
>> (unnamed-fcode) [0xe37]
>> (unnamed-fcode) [0xe2c]
>> (unnamed-fcode) [0xe2d]
>> b(") ( len=0xb [11 bytes] )
>> " NVDA,Parent"
>> device-name
>> 1
>> encode-int
>> b(") ( len=0xe [14 bytes] )
>> " #address-cells"
>> property
>> 0
>>
>>
>
> Ok, I think the reason for the exception with [dff] is I don’t have an active device tree node. So, “ /pci/@x” open-dev to my-self works on Apple’s implementation of OF, but Openbios and SLOF deal with things a little different.
>
> s” /pci/@x” select-dev
>
> That works in SLOF, otherwise SLOF throws an exception with [dff] and tells us there is no active device tree node.
>
> Using that code in Openbios still raises the same exception at 401005b, but I really think it’s the next thing [dff], it can’t resolve the device?
>
> Doesn’t anyone know how I can view the active device tree node?
>
>
>
>
>>
>>
>>
>>
>> --
>> OpenBIOS http://openbios.org/
>> Mailinglist: http://lists.openbios.org/mailman/listinfo
>> Free your System - May the Forth be with you
>
8 months, 2 weeks
- 1
- 0