blob: 06583ab1bad1108ce9f10e5144f440db46d0f8a6 (
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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
|
\ QEMU specific initialization code
\
\ This program is free software; you can redistribute it and/or
\ modify it under the terms of the GNU General Public License
\ as published by the Free Software Foundation
\
include config.fs
\ ---------
\ DMA words
\ ---------
: ppc-dma-free ( virt size -- )
2drop
;
: ppc-dma-map-out ( virt devaddr size -- )
(dma-sync)
;
['] ppc-dma-free to (dma-free)
['] ppc-dma-map-out to (dma-map-out)
\ -------------------------------------------------------------
\ device-tree
\ -------------------------------------------------------------
" /" find-device
\ Apple calls the root node device-tree
" device-tree" device-name
[IFDEF] CONFIG_PPC64 2 [ELSE] 1 [THEN] encode-int " #address-cells" property
1 encode-int " #size-cells" property
h# 05f5e100 encode-int " clock-frequency" property
: dma-sync
(dma-sync)
;
: dma-alloc
(dma-alloc)
;
: dma-free
(dma-free)
;
: dma-map-in
(dma-map-in)
;
: dma-map-out
(dma-map-out)
;
new-device
" cpus" device-name
1 encode-int " #address-cells" property
0 encode-int " #size-cells" property
external
: encode-unit ( unit -- str len )
pocket tohexstr
;
: decode-unit ( str len -- unit )
parse-hex
;
finish-device
new-device
" memory" device-name
" memory" device-type
external
: open true ;
: close ;
finish-device
new-device
" rom" device-name
h# ff800000 encode-int 0 encode-int encode+ " reg" property
1 encode-int " #address-cells" property
h# ff800000 encode-int h# 800000 encode-int encode+
h# ff800000 encode-int encode+ " ranges" property
finish-device
\ -------------------------------------------------------------
\ /packages
\ -------------------------------------------------------------
" /packages" find-device
" packages" device-name
external
\ allow packages to be opened with open-dev
: open true ;
: close ;
\ /packages/terminal-emulator
new-device
" terminal-emulator" device-name
external
: open true ;
: close ;
\ : write ( addr len -- actual )
\ dup -rot type
\ ;
finish-device
\ -------------------------------------------------------------
\ The END
\ -------------------------------------------------------------
device-end
|
