![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to rtas.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Qemu by Fabrice Bellard] / qemu / roms / SLOF / board-js2x / slof|
Return to rtas.fs CVS log | Up to [Qemu by Fabrice Bellard] / qemu / roms / SLOF / board-js2x / slof |
1.1 root 1: \ *****************************************************************************
2: \ * Copyright (c) 2004, 2008 IBM Corporation
3: \ * All rights reserved.
4: \ * This program and the accompanying materials
5: \ * are made available under the terms of the BSD License
6: \ * which accompanies this distribution, and is available at
7: \ * http://www.opensource.org/licenses/bsd-license.php
8: \ *
9: \ * Contributors:
10: \ * IBM Corporation - initial implementation
11: \ ****************************************************************************/
12:
13: #include <rtas/rtas-init.fs>
14: #include <rtas/rtas-cpu.fs>
15: #include <rtas/rtas-reboot.fs>
16: #include <rtas/rtas-flash.fs>
17: #include <rtas/rtas-vpd.fs>
18:
19: \ for update-flash
20: : (get-flashside) ( -- flashside ) rtas-get-flashside ;
21:
22: ' (get-flashside) to get-flashside
23:
24: \ remember the current flashside
25: get-flashside to flashside?
26:
27: \ for update-flash
28: : (set-flashside) ( flashside -- status )
29: dup rtas-set-flashside = IF 0 ELSE -1 THEN
30: ;
31:
32: ' (set-flashside) to set-flashside
33:
34: : rtas-ibm-read-pci-config ( size puid bus devfn off -- x )
35: [ s" ibm,read-pci-config" rtas-get-token ] LITERAL rtas-cb rtas>token l!
36: 4 rtas-cb rtas>nargs l!
37: 2 rtas-cb rtas>nret l!
38: swap 8 lshift or swap 10 lshift or rtas-cb rtas>args0 l!
39: dup 20 rshift rtas-cb rtas>args1 l!
40: ffffffff and rtas-cb rtas>args2 l!
41: rtas-cb rtas>args3 l!
42: enter-rtas
43: rtas-cb rtas>args5 l@
44: ;
45:
46: : rtas-fetch-cpus ( mask -- status )
47: [ s" rtas-fetch-slaves" rtas-get-token ] LITERAL rtas-cb rtas>token l!
48: 1 rtas-cb rtas>nargs l!
49: 1 rtas-cb rtas>nret l!
50: rtas-cb rtas>args0 l!
51: 0 rtas-cb rtas>args1 l!
52: enter-rtas
53: rtas-cb rtas>args1 l@
54: ;
55:
56: : rtas-stop-bootwatchdog ( -- status )
57: [ s" rtas-stop-bootwatchdog" rtas-get-token ] LITERAL rtas-cb rtas>token l!
58: 0 rtas-cb rtas>nargs l!
59: 1 rtas-cb rtas>nret l!
60: enter-rtas
61: rtas-cb rtas>args0 l@
62: ;
63:
64: : rtas-set-bootwatchdog ( seconds -- )
65: [ s" rtas-set-bootwatchdog" rtas-get-token ] LITERAL rtas-cb rtas>token l!
66: 1 rtas-cb rtas>nargs l!
67: 0 rtas-cb rtas>nret l!
68: rtas-cb rtas>args0 l!
69: enter-rtas
70: ;
71:
72: ' rtas-set-bootwatchdog to set-watchdog
73:
74: : rtas-dump-flash ( offset cnt -- )
75: [ s" rtas-dump-flash" rtas-get-token ] LITERAL rtas-cb rtas>token l!
76: 2 rtas-cb rtas>nargs l!
77: 0 rtas-cb rtas>nret l!
78: rtas-cb rtas>args0 l!
79: rtas-cb rtas>args1 l!
80: enter-rtas
81: ;
82:
83: \ load-base wird in slof/fs/base.fs gesetzt... nicht überschreiben
84: \ 2000000 CONSTANT load-base
85: create blist 50 allot
86: blist 50 erase
87:
88: : build-blocklist_old
89: \ set version
90: 1 blist c!
91: \ set length of block list
92: 50 blist 7 + c!
93: \ no more block list
94: 0000000000000000 blist 8 + !
95: \ first block
96: load-base 0 + blist 10 + !
97: 80000 blist 18 + !
98: load-base 80000 + blist 20 + !
99: 80000 blist 28 + !
100: load-base 100000 + blist 30 + !
101: 80000 blist 38 + !
102: load-base 180000 + blist 40 + !
103: 8006C blist 48 + !
104: ;
105:
106: 80000 constant _block_size
107:
108: : build-blocklist
109: \ set length of block list
110: \ length of flashfs at load-base is at offset 30... get it...
111: load-base 30 + @
112: \ calculate the number of blocks we need
113: _block_size / 1 +
114: \ total number of blocks is 2 (for header and block_list extension + (number of blocks for flashfs * 2 (1 for address 1 for length))
115: 2 * 2 + 8 * blist !
116: \ set version ( in first byte only )
117: 1 blist c!
118: \ no more block list
119: 0000000000000000 blist 8 + !
120: \ length of flashfs at load-base is at offset 30... get it...
121: load-base 30 + @
122: \ i define one block to be 64K, so calculate the number of blocks we need and loop over them
123: _block_size / 1 + 0 do
124: load-base _block_size i * + \ which position of load-base to store
125: blist 10 + \ at what offset of blist ( 0x8 + for header 0x8 + for extension )
126: i 10 * + \ for each loop we have done 0x10 +
127: ! \ store it
128: load-base 30 + @
129: _block_size i * - \ remaining length
130: dup _block_size >
131: IF \ is the remaining length > block size
132: drop _block_size \ then store the block size as length
133: ELSE
134: \ do nothing (store remaining length)
135: THEN
136: blist 10 + \ store the length at
137: i 10 * + \ correct blist offset
138: 8 + \ + 8 (we have stored address, now the length)
139: ! \ store it
140: loop
141: ;
142:
143:
144:
145: : build-blocklist-v0_old
146: \ set version
147: 0 blist c!
148: 48 blist 7 + c!
149: \ first block
150: load-base 0 + blist 8 + !
151: 80000 blist 10 + !
152: load-base 80000 + blist 18 + !
153: 80000 blist 20 + !
154: load-base 100000 + blist 28 + !
155: 80000 blist 30 + !
156: load-base 180000 + blist 38 + !
157: 8006C blist 40 + !
158: ;
159:
160: : build-blocklist-v0
161: \ set length of block list
162: \ length of flashfs at load-base is at offset 30... get it...
163: load-base 30 + @
164: \ calculate the number of blocks we need
165: _block_size / 1 +
166: \ total number of blocks is 1 (for header + (number of blocks for flashfs * 2 (1 for address 1 for length))
167: 2 * 1 + 8 * blist !
168: \ length of flashfs at load-base is at offset 30... get it...
169: load-base 30 + @
170: \ i define one block to be 64K, so calculate the number of blocks we need and loop over them
171: _block_size / 1 + 0 do
172: load-base _block_size i * + \ which position of load-base to store
173: blist 8 + \ at what offset of blist ( 0x8 + for header)
174: i 10 * + \ for each loop we have done 0x10 +
175: ! \ store it
176: load-base 30 + @
177: _block_size i * - \ remaining length
178: dup _block_size >
179: IF \ is the remaining length > block size
180: drop _block_size \ then store the block size as length
181: ELSE
182: \ do nothing (store remaining length)
183: THEN
184: blist 8 + \ store the length at
185: i 10 * + \ correct blist offset
186: 8 + \ + 8 (we have stored address, now the length)
187: ! \ store it
188: loop
189: ;
190:
191:
192: : yy
193: build-blocklist
194: blist rtas-ibm-update-flash-64-and-reboot
195: ;
196:
197: : yy0
198: build-blocklist-v0
199: blist rtas-ibm-update-flash-64-and-reboot
200: ;
201:
202: : rtas-ibm-update-flash-64 ( block-list -- status )
203: [ s" ibm,update-flash-64" rtas-get-token ] LITERAL rtas-cb rtas>token l!
204: 2 rtas-cb rtas>nargs l!
205: 1 rtas-cb rtas>nret l!
206: rtas-cb rtas>args0 l!
207: \ special unofficial parameter: if this is set to 1, the rtas function will not check, wether
208: \ we are on the perm side... this is needed for "update-flash -c" to work...
209: 1 rtas-cb rtas>args1 l!
210: enter-rtas
211: rtas-cb rtas>args2 l@
212: ;
213:
214: \ for update-flash
215: : flash-write ( image-address -- status)
216: load-base >r to load-base build-blocklist-v0
217: blist rtas-ibm-update-flash-64
218: r> to load-base 0= IF true ELSE false THEN
219: ;
220:
221: : commit 1 rtas-ibm-manage-flash-image ;
222: : reject 0 rtas-ibm-manage-flash-image ;
223:
224: : rtas-ibm-validate-flash-image ( image-to-commit -- status )
225: [ s" ibm,validate-flash-image" rtas-get-token ] LITERAL rtas-cb rtas>token l!
226: 2 rtas-cb rtas>nargs l!
227: 2 rtas-cb rtas>nret l!
228: rtas-cb rtas>args0 l!
229: enter-rtas
230: rtas-cb rtas>args1 l@
231: ;
232:
233: : rtas-get-blade-descr ( address size -- len status )
234: [ s" rtas-get-blade-descr" rtas-get-token ] LITERAL rtas-cb rtas>token l!
235: 2 rtas-cb rtas>nargs l!
236: 2 rtas-cb rtas>nret l!
237: rtas-cb rtas>args1 l!
238: rtas-cb rtas>args0 l!
239: enter-rtas
240: rtas-cb rtas>args2 l@
241: rtas-cb rtas>args3 l@
242: ;
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.