2 : int-property ( val name -- )
3 rot encode-int 2swap property
7 \ -------------------------------------------------------------
9 \ -------------------------------------------------------------
13 " device-tree" device-name
14 " bootrom" device-type
16 \ -------------------------------------------------------------
18 \ -------------------------------------------------------------
22 \ 12230 encode-int " reg" property
26 \ claim ( phys size align -- base )
27 \ release ( phys size -- )
30 \ -------------------------------------------------------------
32 \ -------------------------------------------------------------
36 1 " #address-cells" int-property
37 0 " #size-cells" int-property
48 ." /mol/test opened" cr
49 " argument-str" " ipose" find-package drop interpose
55 \ -------------------------------------------------------------
57 \ -------------------------------------------------------------
61 1 " #address-cells" int-property
62 0 " #size-cells" int-property
67 : decode-unit parse-hex ;
71 \ -------------------------------------------------------------
73 \ -------------------------------------------------------------
75 " /packages" find-device
77 " packages" device-name
79 \ allow packages to be opened with open-dev
83 \ /packages/mol-stdout
85 " mol-stdout" device-name
89 : write ( addr len -- actual )
94 \ XXXXXXXXXXXXXXXXXXXXXXX TESTING
100 \ -------------------------------------------------------------
102 \ -------------------------------------------------------------