openfirmware

openfirmware@openfirmware.info

3007 discussions

[commit] r3784 - cpu/x86/pc/emu
by repository service 01 Oct '15

01 Oct '15

Author: quozl Date: Thu Oct 1 07:17:25 2015 New Revision: 3784 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3784 Log: Emulator ROM build - added Bochs driver to the dropin set, from Marcin Cieslak Modified: cpu/x86/pc/emu/emuofw.bth Modified: cpu/x86/pc/emu/emuofw.bth ============================================================================== --- cpu/x86/pc/emu/emuofw.bth Thu Oct 1 06:36:31 2015 (r3783) +++ cpu/x86/pc/emu/emuofw.bth Thu Oct 1 07:17:25 2015 (r3784) @@ -25,6 +25,7 @@ in: ${BP}/dev/video/build/vmsvga.fc in: ${BP}/dev/ne2000/build/ne2kpci.fc in: ${BP}/dev/amd79970/build/vmlance.fc +in: ${BP}/dev/video/build/bga.fc \ in: ${BP}/dev/video/build/video.fc in: ${BP}/cpu/x86/pc/biosload/linux.fth @@ -58,6 +59,7 @@ \ Just use a driver targeted at the specific chipset that QEMU emulates " ${BP}/dev/video/build/cirrus.fc" " pci1013,b8" $add-deflated-dropin " ${BP}/dev/video/build/vmsvga.fc" " pci15ad,405" $add-deflated-dropin + " ${BP}/dev/video/build/bga.fc" " pci1234,1111" $add-deflated-dropin " ${BP}/dev/ne2000/build/ne2kpci.fc" " pci10ec,8029" $add-deflated-dropin " ${BP}/dev/amd79970/build/vmlance.fc" " pci1022,2000" $add-deflated-dropin

1 0

Copy paste bug in der! (PowerPC)
by Marcin Cieslak 01 Oct '15

01 Oct '15

There is a copy+paste bug: Index: cpu/ppc/spr.fth =================================================================== --- cpu/ppc/spr.fth (wersja 3782) +++ cpu/ppc/spr.fth (kopia robocza) @@ -426,7 +426,7 @@ mfspr tos,der c; code der! ( n -- ) - mtspr immr,tos + mtspr der,tos lwz tos,0(sp) addi sp,sp,1cell c;

2 1

[commit] r3783 - cpu/ppc
by repository service 01 Oct '15

01 Oct '15

Author: quozl Date: Thu Oct 1 06:36:31 2015 New Revision: 3783 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3783 Log: PPC - der! writes to wrong register, der! is unused elsewhere in Open Firmware, reported by Marcin Cieslak, reviewed by James Cameron. Modified: cpu/ppc/spr.fth Modified: cpu/ppc/spr.fth ============================================================================== --- cpu/ppc/spr.fth Wed Sep 30 07:07:04 2015 (r3782) +++ cpu/ppc/spr.fth Thu Oct 1 06:36:31 2015 (r3783) @@ -426,7 +426,7 @@ mfspr tos,der c; code der! ( n -- ) - mtspr immr,tos + mtspr der,tos lwz tos,0(sp) addi sp,sp,1cell c;

1 0

[commit] r3782 - forth/lib
by repository service 30 Sep '15

30 Sep '15

Author: quozl Date: Wed Sep 30 07:07:04 2015 New Revision: 3782 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3782 Log: Add missing file from r3781, thanks to Marcin Cieslak for advising. Added: forth/lib/string-tools.fth Added: forth/lib/string-tools.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ forth/lib/string-tools.fth Wed Sep 30 07:07:04 2015 (r3782) @@ -0,0 +1,39 @@ +\ string tools +\ make it easy to include numbers in strings +\ avoid $cat2 $cat3 which leak memory + +\ These words work with a pre-allocated string buffer. +\ Each buffer begins with its current count and ends with a null byte. +\ Unless we need larger strings, those will be 1 byte each. +\ The buddy allocator gives us 2^n bytes, so we will limit string size to 256-2=254 bytes. + +d# 254 constant maxstring +\ buf: len data +: string: ( -- ) create 256 allot ; +string: string1 + +\ name$ means an address/length pair on the stack +\ $name is a word that takes a string and maybe more arguments +: $room ( buffer -- room ) maxstring swap c@ - ; +: string$ ( buffer -- string$ ) count ; +: $add ( string$ buffer -- ) + >r + r@ $room over < abort" string will not fit " ( string$ ) + r> $cat +; +: $addch ( ch buffer -- ) >r r@ c@ r@ + 1+ c! 1 r@ c@ + r> c! ; +: $empty ( buffer -- ) 0 swap c! ; +: $place ( string$ buffer -- ) dup $empty $add ; +: $prepend ( string$ buffer -- ) \ $len == string$ length, blen == buffer length + >r dup r@ 1+ r@ 1+ rot + r@ c@ ( $ buf+1 buf+1+$len blen ) cmove> + r@ 1+ swap ( ready to do a cmove ) + ( $len ) dup r@ c@ + r> c! + ( adr buf+1 $len ) cmove +; +: $add_ ( buffer -- ) " " rot $add ; +: $add#_ ( n buffer -- ) >r (.) r@ $add r> $add_ ; +: $addd#_ ( n buffer -- ) >r push-decimal (.) pop-base r@ $add r> $add_ ; +: $addh#_ ( n buffer -- ) >r push-hex (u.) pop-base r@ $add r> $add_ ; +: $add8h# ( n buffer -- ) >r push-hex (.8) pop-base r> $add ; +: $add0x#_ ( n buffer -- ) >r " 0x" r@ $add r> $addh#_ ; +

1 0

[commit] r3781 - cpu/arm cpu/x86 forth/kernel forth/lib forth/wrapper/zip
by repository service 17 Sep '15

17 Sep '15

Author: quozl Date: Thu Sep 17 08:22:33 2015 New Revision: 3781 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3781 Log: Preparations for a 64-bit implementation Modified: cpu/arm/debugm.fth cpu/x86/debugm.fth cpu/x86/kerncode.fth forth/kernel/forward.fth forth/kernel/kernel.fth forth/kernel/metacompile.fth forth/lib/debug.fth forth/lib/loadcomm.fth forth/lib/strcase.fth forth/wrapper/zip/inflate.c Modified: cpu/arm/debugm.fth ============================================================================== --- cpu/arm/debugm.fth Wed Jul 15 23:07:22 2015 (r3780) +++ cpu/arm/debugm.fth Thu Sep 17 08:22:33 2015 (r3781) @@ -13,7 +13,7 @@ nuser 'debug \ code field for high level trace nuser <ip \ lower limit of ip nuser ip> \ upper limit of ip -nuser cnt \ how many times thru debug next +nuser cntx \ how many times thru debug next \ Since we use a shared "next" routine, slow-next and fast-next are no-op's alias slow-next 2drop ( high low -- ) @@ -30,13 +30,13 @@ ldr r0,'user ip> cmp ip,r0 u< if - ldr r0,'user cnt + ldr r0,'user cntx inc r0,#1 - str r0,'user cnt + str r0,'user cntx cmp r0,#2 = if mov r0,#0 - str r0,'user cnt + str r0,'user cntx adr r0,'body normal-next str r0,'user debug-next ldr pc,'user 'debug Modified: cpu/x86/debugm.fth ============================================================================== --- cpu/x86/debugm.fth Wed Jul 15 23:07:22 2015 (r3780) +++ cpu/x86/debugm.fth Thu Sep 17 08:22:33 2015 (r3781) @@ -9,7 +9,7 @@ nuser 'debug \ code field for high level trace nuser <ip \ lower limit of ip nuser ip> \ upper limit of ip -nuser cnt \ how many times thru debug next +nuser cntx \ how many times thru debug next label _flush_cache ( -- ) ret @@ -58,13 +58,13 @@ u>= if 'user ip> ip cmp u< if - 'user cnt ax mov + 'user cntx ax mov ax inc - ax 'user cnt mov + ax 'user cntx mov 2 # ax cmp = if ax ax sub - ax 'user cnt mov + ax 'user cntx mov \ normal-next #) ax lea make-even \ word-align address \- rel normal-next dup #) ax lea Modified: cpu/x86/kerncode.fth ============================================================================== --- cpu/x86/kerncode.fth Wed Jul 15 23:07:22 2015 (r3780) +++ cpu/x86/kerncode.fth Thu Sep 17 08:22:33 2015 (r3781) @@ -470,6 +470,8 @@ code 0> (s n -- f ) > unary-test c; code 0>= (s n -- f ) 0>= unary-test c; +: ?exit (s flag -- ) 0<> if exit then ; + assembler definitions :-h compare ax pop bx pop ax bx cmp Modified: forth/kernel/forward.fth ============================================================================== --- forth/kernel/forward.fth Wed Jul 15 23:07:22 2015 (r3780) +++ forth/kernel/forward.fth Thu Sep 17 08:22:33 2015 (r3781) @@ -80,6 +80,13 @@ : resolved? ( acf -- flag ) \ true if already resolved resolution@ origin-t u> ; +: defined?-t \ name ( -- flag ) + safe-parse-word $sfind if + resolved? + else + 2drop false + then +; \ Words to manipulate the symbol table vocabulary at the end of compilation. Modified: forth/kernel/kernel.fth ============================================================================== --- forth/kernel/kernel.fth Wed Jul 15 23:07:22 2015 (r3780) +++ forth/kernel/kernel.fth Thu Sep 17 08:22:33 2015 (r3781) @@ -395,7 +395,9 @@ : "move (s from-pstr to-pstr -- to-pstr ) >r count r> pack ; \ : count (s adr -- adr+1 len ) dup 1+ swap c@ ; +[ifndef]-t /string : /string ( adr len cnt -- adr' len' ) tuck - -rot + swap ; +[then] : printable? ( n -- flag ) \ true if n is a printable ascii character dup bl th 7f within swap th 80 th ff between or @@ -415,8 +417,12 @@ dup 0 ?do 2dup + 1- c@ white-space? 0= ?leave 1- loop ; +[ifndef]-t upper : upper (s adr len -- ) bounds ?do i dup c@ upc swap c! loop ; +[then] +[ifndef]-t lower : lower (s adr len -- ) bounds ?do i dup c@ lcc swap c! loop ; +[then] nuser caps : f83-compare (s adr adr2 len -- -1 | 0 | 1 ) @@ -523,9 +529,12 @@ cmove> drop ; +[ifndef]-t 2rot : 2rot (s a b c d e f -- c d e f a b ) 5 roll 5 roll ; - +[then] +[ifndef]-t ?dup : ?dup (s n -- [n] n ) dup if dup then ; +[then] : between (s n min max -- f ) >r over <= swap r> <= and ; : within (s n1 min max+1 -- f ) over - >r - r> u< ; @@ -628,7 +637,7 @@ \ needs to temporarily contain odd byte offset because of c, : here (s -- addr ) dp @ ; -fffffffc value limit +-4 value limit : unused ( -- #bytes ) limit here - ; defer allot-error @@ -709,7 +718,7 @@ \t16 compile (lit) , \t16 then -64\ \t32 dup -1 h# 0.ffff.fffe n->l between if +64\ \t32 dup 1+ d# 32 >> 0= if 64\ \t32 compile (llit) 1+ l, 64\ \t32 else \t32 compile (lit) , @@ -926,14 +935,17 @@ : numdelim? ( char -- flag ) dup ascii . = swap ascii , = or ; : $dnumber? ( adr len -- [ n .. ] #cells ) 0 0 2swap ( ud $ ) - dup 0= if 4drop 0 exit then ( ud $ ) + dup 0= if 4drop 0 exit then ( ud $ ) over c@ ascii - = ( ud $ neg? ) dup >r negate /string ( ud $' ) ( r: neg? ) + base @ >r ( ud $' ) ( r: neg? base ) + \ Recognize leading "0x" + over 2 " 0x" $= if hex 2 /string then \ Convert groups of digits possibly separated by periods or commas begin >number dup 1 > while ( ud' $' ) over c@ numdelim? 0= if ( ud' $' ) - r> 5drop 0 exit ( ud' $' ) + 2r> base ! 5drop 0 exit ( ud' $' ) then ( ud' $' ) 1 /string ( ud' $' ) repeat ( ud' $' ) @@ -944,12 +956,13 @@ c@ ascii . = if ( ud ) true ( ud dbl? ) else ( ud ) - r> 3drop 0 exit + 2r> base ! 3drop 0 exit then ( ud dbl? ) else ( ud adr ) drop false ( ud dbl? ) then ( ud dbl? ) + r> base ! over or if ( ud ) r> if dnegate then 2 else @@ -1142,7 +1155,8 @@ 64\ : 16\ [compile] \ ; immediate 64\ : 32\ [compile] \ ; immediate 64\ : 64\ ; immediate -[then] + +[then] \ run-time \ From definers.fth @@ -1170,7 +1184,9 @@ : ?csp (s -- ) sp@ csp @ <> ( -22 ) abort" Stack Changed " ; : (;code) (s -- ) ip> aligned acf-aligned used ; -: (does>) (s -- ) ip> acf-aligned used ; +64\ : (does>) (s -- ) ip> aligned used ; +32\ : (does>) (s -- ) ip> acf-aligned used ; +16\ : (does>) (s -- ) ip> acf-aligned used ; defer do-entercode ' noop is do-entercode @@ -1188,7 +1204,11 @@ : c; ( -- ) next end-code ; : ;code (s -- ) - ?csp compile (;code) align acf-align place-;code + ?csp compile (;code) +16\ align acf-align +32\ align acf-align +64\ acf-align + place-;code [compile] [ reveal do-entercode ; immediate @@ -1196,9 +1216,13 @@ state @ if compile (does>) else - here aligned acf-aligned used !csp not-hidden ] +16\ here aligned acf-aligned used !csp not-hidden ] +32\ here aligned acf-aligned used !csp not-hidden ] +64\ here aligned used !csp not-hidden ] then - align acf-align place-does +16\ align acf-align place-does +32\ align acf-align place-does +64\ align place-does ; immediate : : (s -- ) ?exec !csp header hide ] colon-cf ; @@ -1279,14 +1303,13 @@ headers : do-buffer ( apf -- adr ) - dup >user @ if ( apf ) - >user @ ( adr ) - else ( apf ) - dup /user# + @ ( apf size ) - dup alloc-mem ( apf size adr ) - dup rot erase ( apf adr ) - dup rot >user ! ( adr ) - then + dup >user @ ?dup ( apf adr adr | apf 0 ) + if nip exit then ( apf ) + \ Must use unaligned-@ here, since /user# != /n on all machines. + dup /user# + unaligned-@ ( apf size ) + dup alloc-mem ( apf size adr ) + dup rot erase ( apf adr ) + dup rot >user ! ( adr ) ; : (buffer:) ( size -- ) create-cf make-buffer does> do-buffer @@ -1474,6 +1497,27 @@ : vocabulary ( "name" -- ) header (wordlist) ; defer $find-next + +[ifndef]-t ($find-next) +\ Generic colon definition version of ($find-next). This is guaranteed +\ to be suboptimal in almost all cases, but it's useful before you start +\ writing and debugging accelerated versions. +\ 'link' is an address in a vocaulary containing the token (of the +\ acf) of the newest definition +: ($find-next) ( adr len link -- adr len alf true | adr len false ) + begin + link@ dup origin <> ( adr len acf more? ) + while + >link >r r@ l>name name>string ( target$ this$ R:alf ) + 2over $= if + r> true exit + then + r> + repeat + drop false +; +[then] + ' ($find-next) is $find-next \ : insert-after ( new-node old-node -- ) @@ -2000,9 +2044,8 @@ : line-delimiter file @ 17 na+ ; \ The last delimiter at the end of each line : pre-delimiter file @ 18 na+ ; \ The first line delimiter (if any) : (file-name) file @ 19 na+ ; \ The name of the file -/n round-up headers -20 /n-t * d# 68 + constant /fd +d# 20 /n-t * d# 68 + /n-t round-up constant /fd : set-name ( adr len -- ) \ If the name is too long, cut off initial characters (because the Modified: forth/kernel/metacompile.fth ============================================================================== --- forth/kernel/metacompile.fth Wed Jul 15 23:07:22 2015 (r3780) +++ forth/kernel/metacompile.fth Thu Sep 17 08:22:33 2015 (r3781) @@ -9,7 +9,7 @@ \ Non-immediate version which is compiled inside several \ meta and transition words -: literal-t ( n -- ) n->l-t compile-t (lit) ,-t ; +: literal-t ( n -- ) n->n-t compile-t (lit) ,-t ; \ vocabularies: \ transition @@ -401,7 +401,7 @@ \ Automatic allocation of space in the user area variable #user-t -/n constant #ualign-t +/n-t constant #ualign-t : ualigned-t ( n -- n' ) #ualign-t 1- + #ualign-t negate and ; : ualloc-t ( n -- next-user-# ) \ allocate n bytes and leave a user number @@ -415,7 +415,9 @@ : isconstant ( acf -- n ) >body-t @-t ; : constant \ name ( n -- ) safe-parse-word 3dup $equ - " constant-cf" $header-t s->l-t ,-t +64\ " constant-cf" $header-t n->n-t ,-t +32\ " constant-cf" $header-t s->l-t ,-t +16\ " constant-cf" $header-t s->l-t ,-t ['] isconstant setaction ?debug ; @@ -425,7 +427,9 @@ ['] iscreate setaction ?debug ; -: isvariable ( n acf -- ) >body-t !-t ; +64\ : isvariable ( n acf -- ) >body-t >r n->n-t r> !-t ; +32\ : isvariable ( n acf -- ) >body-t !-t ; +16\ : isvariable ( n acf -- ) >body-t !-t ; : variable \ name ( -- ) " variable-cf" header-t 0 n->n-t ,-t ['] isvariable setaction ?debug @@ -489,7 +493,10 @@ \ of defining the label. : mlabel \ name ( -- ) ( Later: -- adr-t ) - safe-parse-word align-t acf-align-t $label + safe-parse-word align-t +32\ acf-align-t +16\ acf-align-t + $label ; : mloclabel \ name ( -- ) ( Later: -- adr-t ) safe-parse-word $label @@ -568,14 +575,20 @@ \ XXX the alignment should be done in startdoes; it is incorrect \ to assume that acf alignment is sufficient (code alignment might \ be stricter). - align-t acf-align-t here-t doestarget ! +64\ align-t here-t doestarget ! +32\ align-t acf-align-t here-t doestarget ! +16\ align-t acf-align-t here-t doestarget ! " startdoes" $meta-execute target ; immediate : ;code (s -- ) host - ?csp compile-t (;code) align-t acf-align-t here-t doestarget ! + ?csp compile-t (;code) +64\ acf-align-t +32\ align-t acf-align-t +16\ align-t acf-align-t + here-t doestarget ! " start;code" $meta-execute [compile] [ reveal-t entercode target @@ -669,6 +682,9 @@ ; meta definitions +: [ifdef]-t defined?-t [compile] [if] ; immediate-h +: [ifndef]-t defined?-t 0= [compile] [if] ; immediate-h + alias : :-t alias ] ]-t alias /n /n-t Modified: forth/lib/debug.fth ============================================================================== --- forth/lib/debug.fth Wed Jul 15 23:07:22 2015 (r3780) +++ forth/lib/debug.fth Thu Sep 17 08:22:33 2015 (r3781) @@ -42,7 +42,7 @@ : force-redisplay ( -- ) -1 to displayed-xt ; : (debug) (s low-adr hi-adr -- ) - unbug 1 cnt ! ip> ! <ip ! pnext + unbug 1 cntx ! ip> ! <ip ! pnext slow-next? @ 0= if here low-dictionary-adr slow-next slow-next? on @@ -294,8 +294,8 @@ ascii $ of space 2dup type cr to-cmd-column false endof \ String ascii Q of cr ." unbug" abort true endof \ Quit ascii ( of the-ip set-<ip false endof - ascii < of the-ip ta1+ set-<ip 1 cnt ! false endof - ascii ) of the-ip ip> ! 1 cnt ! false endof + ascii < of the-ip ta1+ set-<ip 1 cntx ! false endof + ascii ) of the-ip ip> ! 1 cntx ! false endof ascii * of the-ip find-cfa dup <ip ! 'unnest ip> ! false endof ascii \ of show-rstack @ 0= show-rstack ! false endof \ toggle return stack display ascii X of hex-stack @ 0= hex-stack ! false endof \ toggle heX stack display Modified: forth/lib/loadcomm.fth ============================================================================== --- forth/lib/loadcomm.fth Wed Jul 15 23:07:22 2015 (r3780) +++ forth/lib/loadcomm.fth Thu Sep 17 08:22:33 2015 (r3781) @@ -24,6 +24,7 @@ fload ${BP}/forth/lib/strings.fth fload ${BP}/forth/lib/stringop.fth +fload ${BP}/forth/lib/string-tools.fth fload ${BP}/forth/lib/fastspac.fth Modified: forth/lib/strcase.fth ============================================================================== --- forth/lib/strcase.fth Wed Jul 15 23:07:22 2015 (r3780) +++ forth/lib/strcase.fth Thu Sep 17 08:22:33 2015 (r3781) @@ -9,7 +9,7 @@ \ " abc" $of ." The string starts with abc" $endof \ " xyz" $of ." Oh, it's an xyz string" $endof \ ( $ ) ." **** It was " 2dup type -\ $endcase ( $ ) +\ $endcase \ The default clause is optional. \ When an $of clause is executed, the remaining selector string (past @@ -28,15 +28,36 @@ \needs substring? fload ${BP}/forth/lib/substrin.fth -: ($of) ( arg$ sel$ -- arg$' ) - 4dup 2swap substring? if - nip /string - r> cell+ >r \ Return to next word in $of clause +\ Copying standard words here so they can be case insensitive: +: u$= (s adr1 len1 adr2 len2 -- same? ) + rot tuck <> if 3drop false exit then ( adr1 adr2 len1 ) + caps-comp 0= +; + +: usubstring? ( adr1 len1 adr2 len2 -- flag ) + rot tuck ( adr1 adr2 len1 len2 len1 ) + < if 3drop false else tuck u$= then +; + +: ($of) ( $selector $test -- [$selector] ) + 2over $= if + 2drop + r> /token + >r \ Return to next word in $of clause else + r> dup branch@ + >r \ Skip to matching $endof + then +; +: ($sub) ( $selector $test -- $selector | $rest ) + 4dup 2swap usubstring? if ( $selector $test ) + nip /string ( $rest ) + r> /token + >r \ Return to next word in $sub clause + else ( $selector $test ) 2drop - r> dup @ + >r \ Skip to matching $endof + r> dup branch@ + >r \ Skip to matching $endof then ; +: $sub ( -- >m ) ['] ($sub) +>mark ; immediate +: $endsub ( >m -- ) ['] ($endof) +>mark but ->resolve ; immediate : $case ( -- 0 ) +level 0 ; immediate : $of ( -- >m ) ['] ($of) +>mark ; immediate Modified: forth/wrapper/zip/inflate.c ============================================================================== --- forth/wrapper/zip/inflate.c Wed Jul 15 23:07:22 2015 (r3780) +++ forth/wrapper/zip/inflate.c Thu Sep 17 08:22:33 2015 (r3781) @@ -269,7 +269,7 @@ } } else { - int i; /* temporary variables */ + int i = 0; /* temporary variables */ struct huft *tl; /* literal/length code table */ struct huft *td; /* distance code table */ int bl; /* lookup bits for tl */

1 0

Any tuto how to erase my current ROM and install the OPEN Bios ?
by NIZAR MAAROUFI 16 Sep '15

16 Sep '15

Can the Open Bios actually replace the AMI on my Intel Machine ? if yes, please lead me to the closest tuto for help thank you

1 0

[commit] r3780 - in cpu/x86/pc/olpc: . via
by repository service 16 Jul '15

16 Jul '15

Author: quozl Date: Thu Jul 16 01:07:22 2015 New Revision: 3780 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3780 Log: OLPC - keyjector, rename bootfw2.zip to fw.zip since bootfw2.zip now has another meaning (XO-1.75 variant of bootfw.zip), and remove the duplicate file Deleted: cpu/x86/pc/olpc/via/keyject.fth Modified: cpu/x86/pc/olpc/HOWTO-keyjector cpu/x86/pc/olpc/keyject.fth Modified: cpu/x86/pc/olpc/HOWTO-keyjector ============================================================================== --- cpu/x86/pc/olpc/HOWTO-keyjector Wed Jul 15 04:08:40 2015 (r3779) +++ cpu/x86/pc/olpc/HOWTO-keyjector Thu Jul 16 01:07:22 2015 (r3780) @@ -19,34 +19,44 @@ The steps are: -* Unpack the tar file containing the new keys into, for example, /home/wmb/Uruguay +* Unpack the tar file containing the new keys into, for example, + /home/wmb/Uruguay -* Note the list of key names, e.g. d0 a1 o1 s1 t1 w1 +* Note the list of key names, e.g. d1 a1 o1 s1 t1 w1 $ cd /home/firmware/q2e34/openfirmware/cpu/x86/pc/olpc/build * Edit ../keyjector.bth : -** Change the "macro: FW_MINOR " line to the keyjector's intermediate version number, e.g. 34x +** Change the "macro: FW_MINOR " line to the keyjector's intermediate + version number, e.g. 34x ** Changing lines like below to the right file and key names. - " /space/bios-crypto/build/k2.public" " s1" $add-dropin + " /home/wmb/Uruguay/s1.public" " s1" $add-dropin * Edit ../keyjector.fth : -** In wrong-sku?, set the list of SKUs. This guards against "hijacking" of other country's laptops. -** In keyject-expired?, set an appropriate expiration date for the keyjector. +** In wrong-sku?, set the list of SKUs. This guards against + "hijacking" of other country's laptops. +** In keyject-expired?, set an appropriate expiration date for the + keyjector. ** In new-key-list$, set the key list. $ ./build keyject -It should build really quickly, because it is using nearly all the same modules as the base build. +It should build really quickly, because it is using nearly all the +same modules as the base build. * Verify the version number in the new file: ** $ xxd q2e34x.rom | tail -4 -* If you have to make a new "real" release so the keyjector has a successor, do so now. +* If you have to make a new "real" release so the keyjector has a + successor, do so now. * Sign the keyjector, naming the .zip file "bootfw.zip". -* Sign the successor firmware, name the .zip file "bootfw2.zip" +* Sign the successor firmware, name the .zip file "fw.zip" + +* Place both in a boot directory on media for testing. + +* Boot with laptop locked or using X game button to force security on. Modified: cpu/x86/pc/olpc/keyject.fth ============================================================================== --- cpu/x86/pc/olpc/keyject.fth Wed Jul 15 04:08:40 2015 (r3779) +++ cpu/x86/pc/olpc/keyject.fth Thu Jul 16 01:07:22 2015 (r3780) @@ -140,12 +140,12 @@ false value new-firmware? : got-firmware? ( dev$ -- flag ) - 2dup ." Looking for new bootfw2.zip on " type cr ( dev$ ) + 2dup ." Looking for new fw.zip on " type cr ( dev$ ) dn-buf place ( ) " \boot" pn-buf place ( ) filesystem-present? 0= if false exit then ( ) null$ cn-buf place ( ) - " bootfw2" bundle-present? 0= if false exit then ( ) + " fw" bundle-present? 0= if false exit then ( ) ." Found" cr ( ) secure? if ( ) load-crypto if ( ) @@ -242,12 +242,12 @@ ?keyject [ifdef] HowItWorks -OLPC signs bootfw.zip containing OFW image A and bootfw2.zip containing OFW image B. +OLPC signs bootfw.zip containing OFW image A and fw.zip containing OFW image B. * A is an OFW with additional keyjector functionality * B is an ordinary OFW Version number B > version number A. -bootfw.zip and bootfw2.zip are presented to a deployment machine in the usual manner, +bootfw.zip and fw.zip are presented to a deployment machine in the usual manner, either on a USB key or as part of a signed OS image. On a deployment machine with firmware X (version X < version A): @@ -263,7 +263,7 @@ so it ! Injects the new keys then it - ! Reads bootfw2.zip, checks its signature, and reflashes with firmware B (version > A) + ! Reads fw.zip, checks its signature, and reflashes with firmware B (version > A) ! Reboots 2) Firmware B starts, performs the normal fw update attempt step,

1 0

[commit] r3779 - in cpu/x86/pc/olpc: . via
by repository service 15 Jul '15

15 Jul '15

Author: quozl Date: Wed Jul 15 04:08:40 2015 New Revision: 3779 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3779 Log: OLPC - merge different keyjects, resolving divergent edits in r3706 r3710 and r2865, now identical. Modified: cpu/x86/pc/olpc/keyject.fth cpu/x86/pc/olpc/via/keyject.fth Modified: cpu/x86/pc/olpc/keyject.fth ============================================================================== --- cpu/x86/pc/olpc/keyject.fth Wed Jul 15 03:48:38 2015 (r3778) +++ cpu/x86/pc/olpc/keyject.fth Wed Jul 15 04:08:40 2015 (r3779) @@ -97,7 +97,7 @@ 2over 2over ($add-tag) ( value$ name$ ) ." Added " type cr ( value$ ) then ( value$ ) - black-letters ( value$ ) + cancel ( value$ ) free-mem ( ) else ( name$ ) ." Warning: key " type ." is not in firmware image dropins" cr ( ) @@ -116,7 +116,7 @@ : keyject-error ( msg$ -- ) cr - red-letters ." Not injecting because: " type cr black-letters + red-letters ." Not injecting because: " type cr cancel cr ." Will update firmware in 20 seconds" cr d# 21 1 do i .d (cr d# 1,000 ms loop @@ -217,7 +217,7 @@ : ?keyject ( -- ) visible - green-letters cr ." Security Key Injector" cr cr black-letters + green-letters cr ." Security Key Injector" cr cr cancel \ Get the new firmware first, so any security checks use the old keys get-new-firmware do-keyject? if Modified: cpu/x86/pc/olpc/via/keyject.fth ============================================================================== --- cpu/x86/pc/olpc/via/keyject.fth Wed Jul 15 03:48:38 2015 (r3778) +++ cpu/x86/pc/olpc/via/keyject.fth Wed Jul 15 04:08:40 2015 (r3779) @@ -22,49 +22,86 @@ ; \ !!! Change the date for each different deployment -: keyject-expired? ( -- flag ) " 20090401T000000Z" expired? ; +: keyject-expired? ( -- flag ) " 20131108T000000Z" expired? ; \ !!! Change the key list for each different deployment : new-key-list$ ( -- ) " o1 s1 d1 w1 a1" ; -\ True if the all the requested tags are already present. +\ True if the requested tags are all present and all correct. \ This prevents endless looping. +0 value already-injected + +: key-differs ( name$ -- ) + ." Key " type ." did differ." cr + false to already-injected +; + +: key-missing ( name$ -- ) + ." Key " type ." was missing." cr + false to already-injected +; + +: key-unknown ( name$ -- ) + ." Key " type ." is unknown, no dropin." cr + \ no action possible, needs keyjector to be recreated. +; + +: key-ok ( name$ -- ) + ." Key " type ." is okay." cr + \ no action desired. +; + +: test-key ( name$ -- ) + 2dup find-tag if ( name$ value$ ) + 2over find-drop-in if ( name$ value$ existing$ ) + $= 0= if ( name$ ) + 2dup key-differs ( name$ ) + else + 2dup key-ok + then ( name$ ) + else ( name$ value$ ) + 2drop 2dup key-unknown ( name$ ) + then ( name$ ) + 2drop ( ) + else ( name$ ) + key-missing ( ) + then ( ) +; + : already-injected? ( -- flag ) - new-key-list$ begin dup while ( $ ) - bl left-parse-string ( $' name$ ) - find-tag if ( $ value$ ) - 2drop ( $ ) - else ( $ ) - 2drop false exit - then ( $ ) - repeat ( $ ) - 2drop true + true to already-injected ( ) + new-key-list$ begin dup while ( $ ) + bl left-parse-string ( $' name$ ) + test-key ( $ ) + repeat ( $ ) + 2drop ( ) + already-injected ( flag ) ; -: inject-key ( keyname$ -- ) - 2dup find-drop-in if ( keyname$ value$ ) - 2over ram-find-tag if ( keyname$ value$ oldvalue$ ) - 2 pick <> if ( keyname$ value$ oldvalue$ ) - 3drop ( keyname$ ) - ." Warning: inconsistent old tag length for " type cr ( ) - exit - then ( keyname$ value$ oldvalue-adr ) - >r 2tuck r> swap move ( valu$ keyname$ ) - green-letters - ." Replaced " type cr ( value$ ) - cancel - else ( keyname$ value$ ) - 2swap ( value$ keyname$ ) - 2over 2over ( value$ keyname$ value$ keyname$ ) - ($add-tag) ( value$ keyname$ ) - green-letters - ." Added " type cr ( value$ ) - cancel - then ( value$ ) - free-mem ( ) - else ( keyname$ ) - ." Warning: Can't find a dropin module for " type cr ( ) - then ( ) +: inject-key ( name$ -- ) + 2dup find-drop-in if ( name$ value$ ) + green-letters ( name$ value$ ) + 2over ram-find-tag if ( name$ value$ oldvalue$ ) + 2 pick <> if ( name$ value$ oldvalue-adr ) + drop ( name$ value$ ) + 2over ($delete-tag) ( name$ value$ ) + 2over ." Deleted " type cr ( name$ value$ ) + 2over 2over 2swap ($add-tag) ( name$ value$ ) + 2swap ." Added " type cr ( value$ ) + else ( name$ value$ oldvalue-adr ) + >r 2tuck r> swap move ( value$ name$ ) + ." Replaced " type cr ( value$ ) + then ( value$ ) + else ( name$ value$ ) + 2swap ( value$ name$ ) + 2over 2over ($add-tag) ( value$ name$ ) + ." Added " type cr ( value$ ) + then ( value$ ) + cancel ( value$ ) + free-mem ( ) + else ( name$ ) + ." Warning: key " type ." is not in firmware image dropins" cr ( ) + then ( ) ; : inject-keys ( -- ) @@ -82,7 +119,7 @@ red-letters ." Not injecting because: " type cr cancel cr ." Will update firmware in 20 seconds" cr - d# 20,000 ms + d# 21 1 do i .d (cr d# 1,000 ms loop ; : do-keyject? ( -- flag )

1 0

[commit] r3778 - cpu/arm/olpc/4.0
by repository service 15 Jul '15

15 Jul '15

Author: quozl Date: Wed Jul 15 03:48:38 2015 New Revision: 3778 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3778 Log: OLPC XO-4 - keyject, customise for SKU322 Modified: cpu/arm/olpc/4.0/keyject.bth Modified: cpu/arm/olpc/4.0/keyject.bth ============================================================================== --- cpu/arm/olpc/4.0/keyject.bth Wed Jul 15 03:48:11 2015 (r3777) +++ cpu/arm/olpc/4.0/keyject.bth Wed Jul 15 03:48:38 2015 (r3778) @@ -22,6 +22,9 @@ build-now fload ${BP}/cpu/arm/olpc/4.0/fw-version.fth +\ for an SKU322 keyjector +macro: FW_MAJOR B +macro: FW_MINOR 42y " macro: FW_VERSION ${FW_PREFIX}${FW_MAJOR}${FW_MINOR}" expand$ eval @@ -165,6 +168,15 @@ " ${BP}/clients/emacs/emacs.hlp" " emacs.hlp" $add-deflated-dropin " ${BP}/clients/emacs/arm/emacs" " emacs" $add-deflated-dropin + \ for an SKU322 keyjector + " ${BP}/cpu/x86/pc/olpc/keyject.fth" " probe+" $add-deflated-dropin + \ Incompressible + " ${BP}/cpu/x86/pc/olpc/o1.public" " o1" $add-dropin + " ${BP}/cpu/x86/pc/olpc/s1.public" " s1" $add-dropin + " ${BP}/cpu/x86/pc/olpc/d1.public" " d1" $add-dropin + " ${BP}/cpu/x86/pc/olpc/w1.public" " w1" $add-dropin + " ${BP}/cpu/x86/pc/olpc/a1.public" " a1" $add-dropin + .( Dropin top is ) ofd @ fsize .x cr /rom pad-file @@ -195,7 +207,8 @@ \ a) It reports the firmware revision for use by external scripts \ b) It provides an olpc.* artifact for the builder dependency management. -writing olpc.version +\ for an SKU322 keyjector +writing keyject.version " ${FW_VERSION}" expand$ 2dup lower ofd @ fputs ofd @ fclose

1 0

[commit] r3777 - cpu/arm/olpc/4.0
by repository service 15 Jul '15

15 Jul '15

Author: quozl Date: Wed Jul 15 03:48:11 2015 New Revision: 3777 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3777 Log: OLPC XO-4 - keyject, copy from olpc.bth Added: cpu/arm/olpc/4.0/keyject.bth Added: cpu/arm/olpc/4.0/keyject.bth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/arm/olpc/4.0/keyject.bth Wed Jul 15 03:48:11 2015 (r3777) @@ -0,0 +1,227 @@ +purpose: Construct the Open Firmware module collection + +command: &builder &this +in: ${BP}/cpu/arm/olpc/4.0/build/ec.img +in: ${BP}/cpu/arm/olpc/4.0/build/nn.hex +in: ${BP}/cpu/arm/olpc/4.0/build/fw.img +in: ${BP}/cpu/arm/olpc/4.0/build/resetvec.img +in: ${BP}/cpu/arm/olpc/4.0/build/mcastnand.bin +in: sd8686.bin +in: mv8787.bin +in: verify.img +in: ${BP}/dev/usb2/device/hub/build/hub.fc +in: ${BP}/dev/usb2/device/generic/build/generic.fc +in: ${BP}/dev/usb2/device/net/build/usbnet.fc +in: ${BP}/dev/usb2/device/keyboard/build/usbkbd.fc +in: ${BP}/dev/usb2/device/mouse/build/usbmouse.fc +in: ${BP}/dev/usb2/device/serial/build/usbserial.fc +in: ${BP}/dev/usb2/device/storage/build/usbstorage.fc +in: testicons.bin +in: ${BP}/clients/emacs/arm/emacs +in: cforth.img +build-now + +fload ${BP}/cpu/arm/olpc/4.0/fw-version.fth + +" macro: FW_VERSION ${FW_PREFIX}${FW_MAJOR}${FW_MINOR}" expand$ eval + +fload ${BP}/cpu/arm/olpc/4.0/config.fth + +\ Always re-create the builton.fth file when we make a new rom.img +fload ${BP}/cpu/x86/pc/builton.bth +fload ${BP}/cpu/arm/olpc/sourceurl.fth + +fload ${BP}/forth/lib/crc32.fth + +hex + +: pad-file ( location -- ) + ofd @ fsize + 2dup u< abort" The ROM image is too large" + ?do h# ff ofd @ fputc loop +; + +fload ${BP}/cpu/arm/marvell/tim.fth + +\ Marvell Non-Trusted Image Module image creation script for XO-4.0 platform. + +tim: 00030400 0 OLPC PXA212x + flash: SPI'10 + timh: TIMH 0 d101f000 + image: OBMI 2000 d1000000 cforth.img + reserved: + \ Disable USB download/init by enabling the FFUART for download + \ This works around a PHY init erratum for the B0 chip + uart: 00004646 1 + term: + end-reserved +end-tim + +h# 20.0000 to reserved-start +h# 20.0000 to reserved-end + +.( --- Saving as ) +" ${FW_VERSION}.rom" expand$ 2dup lower ( adr len ) +2dup type cr ( adr len ) +$new-file + tim$ ofd @ fputs + + dropin-offset pad-file + +\ Loads the set of drivers that is common to different output formats + + " ${BP}/cpu/arm/build/inflate.bin" " inflate" $add-dropin + " fw.img" " firmware" $add-deflated-dropin +\ " fw.img" " firmware" $add-dropin + " resetvec.img" " reset" $add-dropin + + " ${BP}/cpu/arm/mmp3/gic.fth" " mmp3-gic-" $add-dropin +\ " ${BP}/dev/usb2/hcd/ehci/build/ehci.fc" " class0c0320" $add-deflated-dropin + " ${BP}/dev/usb2/device/hub/build/hub.fc" " usb,class9" $add-deflated-dropin + " ${BP}/dev/usb2/device/generic/build/generic.fc" " usbdevice" $add-deflated-dropin + " ${BP}/dev/usb2/device/net/build/usbnet.fc" " usbnet" $add-deflated-dropin + " ${BP}/dev/usb2/device/keyboard/build/usbkbd.fc" " usb,class3,1,1" $add-deflated-dropin + " ${BP}/dev/usb2/device/mouse/build/usbmouse.fc" " usb,class3,1,2" $add-deflated-dropin + " ${BP}/dev/usb2/device/serial/build/usbserial.fc" " usbserial" $add-deflated-dropin + " ${BP}/dev/usb2/device/storage/build/usbstorage.fc" " usbstorage" $add-deflated-dropin + + " sd8686_helper.bin" " helper_sd.bin" $add-deflated-dropin + " sd8686.bin" " sd8686.bin" $add-deflated-dropin + " mv8787.bin" " mv8787.bin" $add-deflated-dropin + + " builton.fth" " probe-" $add-dropin + +0 [if] + " ${BP}/clients/emacs/x86/emacs" " emacs" $add-deflated-dropin + " ${BP}/clients/emacs/x86/emacs.rc" " emacs.rc" $add-deflated-dropin + " ${BP}/clients/emacs/emacs.hlp" " emacs.hlp" $add-deflated-dropin +[then] + + " ${BP}/ofw/inet/telnetd.fth" " telnetd" $add-deflated-dropin + +\ " ${BP}/cpu/x86/pc/olpc/images/warnings.565" " warnings.565" $add-deflated-dropin + " ${BP}/cpu/x86/pc/olpc/images/lightdot.565" " lightdot.565" $add-deflated-dropin + " ${BP}/cpu/x86/pc/olpc/images/yellowdot.565" " yellowdot.565" $add-deflated-dropin + " ${BP}/cpu/x86/pc/olpc/images/darkdot.565" " darkdot.565" $add-deflated-dropin + " ${BP}/cpu/x86/pc/olpc/images/lock.565" " lock.565" $add-deflated-dropin + " ${BP}/cpu/x86/pc/olpc/images/unlock.565" " unlock.565" $add-deflated-dropin + " ${BP}/cpu/x86/pc/olpc/images/plus.565" " plus.565" $add-deflated-dropin + " ${BP}/cpu/x86/pc/olpc/images/minus.565" " minus.565" $add-deflated-dropin + " ${BP}/cpu/x86/pc/olpc/images/x.565" " x.565" $add-deflated-dropin + " ${BP}/cpu/x86/pc/olpc/images/sad.565" " sad.565" $add-deflated-dropin + " ${BP}/cpu/x86/pc/olpc/images/bigdot.565" " bigdot.565" $add-deflated-dropin + + " ${BP}/cpu/x86/pc/olpc/images/check.565" " check.565" $add-deflated-dropin + " ${BP}/cpu/x86/pc/olpc/images/xogray.565" " xogray.565" $add-deflated-dropin + " ${BP}/cpu/x86/pc/olpc/images/ethernet.565" " ethernet.565" $add-deflated-dropin + " ${BP}/cpu/x86/pc/olpc/images/usbkey.565" " disk.565" $add-deflated-dropin + " ${BP}/cpu/x86/pc/olpc/images/wireless.565" " wlan.565" $add-deflated-dropin + " ${BP}/cpu/x86/pc/olpc/images/laptop.565" " int.565" $add-deflated-dropin + " ${BP}/cpu/x86/pc/olpc/images/sd.565" " ext.565" $add-deflated-dropin + + " verify.img" " verify" $add-deflated-dropin + " os.public" " ospubkey" $add-dropin \ Incompressible + " fw.public" " fwpubkey" $add-dropin \ Incompressible + " fs.public" " fspubkey" $add-dropin \ Incompressible + " lease.public" " leasepubkey" $add-dropin \ Incompressible + " developer.public" " develpubkey" $add-dropin \ Incompressible + + " sourceurl" " sourceurl" $add-dropin + + " ${BP}/cpu/x86/pc/olpc/images/Edge1-8k-EQ-Comp-Amp-Short.wav" " splash" $add-deflated-dropin + + \ icons for mfg test gui + " testicons/play.565" " play.565" $add-deflated-dropin + " testicons/quit.565" " quit.565" $add-deflated-dropin + " testicons/cpu.565" " cpu.565" $add-deflated-dropin + " testicons/spi.565" " spi.565" $add-deflated-dropin + " testicons/ram.565" " ram.565" $add-deflated-dropin + " testicons/sdcard.565" " sdcard.565" $add-deflated-dropin + " testicons/keyboard.565" " keyboard.565" $add-deflated-dropin + " testicons/display.565" " display.565" $add-deflated-dropin + " testicons/touchpad.565" " touchpad.565" $add-deflated-dropin + " testicons/audio.565" " audio.565" $add-deflated-dropin + " testicons/usb.565" " usb.565" $add-deflated-dropin + " testicons/battery.565" " battery.565" $add-deflated-dropin + " testicons/camera.565" " camera.565" $add-deflated-dropin + " testicons/wifi.565" " wifi.565" $add-deflated-dropin + " testicons/clock.565" " clock.565" $add-deflated-dropin + " testicons/timer.565" " timer.565" $add-deflated-dropin + " ${BP}/cpu/x86/pc/olpc/images/bigx.di" $add-file + " ${BP}/cpu/x86/pc/olpc/images/bigcheck.di" $add-file + " ${BP}/cpu/x86/pc/olpc/images/leds.di" $add-file + " ${BP}/cpu/x86/pc/olpc/images/ebook.di" $add-file + + \ icons for boot menu + " ${BP}/cpu/x86/pc/olpc/images/android.565" " android.565" $add-deflated-dropin + " ${BP}/cpu/x86/pc/olpc/images/xos.565" " xos.565" $add-deflated-dropin + + " nandblaster15_rx.bin" " nb15_rx" $add-deflated-dropin + " nandblaster_tx.bin" " nb_tx" $add-deflated-dropin + + " ec.img" " ecimage.bin" $add-deflated-dropin + " nn.hex" " nn.hex" $add-deflated-dropin + " ${BP}/clients/emacs/x86/emacs.rc" " emacs.rc" $add-deflated-dropin + " ${BP}/clients/emacs/emacs.hlp" " emacs.hlp" $add-deflated-dropin + " ${BP}/clients/emacs/arm/emacs" " emacs" $add-deflated-dropin + +.( Dropin top is ) ofd @ fsize .x cr + +/rom pad-file + +\ Insert the revision signature +h# 10 buffer: signature +signature h# 10 blank +signature$ signature swap move +" ${FW_VERSION}" expand$ signature 6 + swap move +" ${FW_PREFIX}${FW_MAJOR}" expand$ signature d# 13 + swap move +signature-offset ofd @ fseek +signature h# 10 ofd @ fputs + +/l buffer: crcbuf +/rom buffer: filebuf + +\ Read the entire image, compute the CRC, and store it in the CRC location +0 ofd @ fseek +filebuf /rom ofd @ fgets /rom <> abort" Can't read back image" +0 crctab filebuf /rom ($crc) crcbuf ! + +crc-offset ofd @ fseek +crcbuf /l ofd @ fputs + +ofd @ fclose + +\ Creating olpc.version serves two purposes: +\ a) It reports the firmware revision for use by external scripts +\ b) It provides an olpc.* artifact for the builder dependency management. + +writing olpc.version +" ${FW_VERSION}" expand$ 2dup lower ofd @ fputs +ofd @ fclose + + + +\ LICENSE_BEGIN +\ Copyright (c) 2010 FirmWorks +\ +\ Permission is hereby granted, free of charge, to any person obtaining +\ a copy of this software and associated documentation files (the +\ "Software"), to deal in the Software without restriction, including +\ without limitation the rights to use, copy, modify, merge, publish, +\ distribute, sublicense, and/or sell copies of the Software, and to +\ permit persons to whom the Software is furnished to do so, subject to +\ the following conditions: +\ +\ The above copyright notice and this permission notice shall be +\ included in all copies or substantial portions of the Software. +\ +\ THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, +\ EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF +\ MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND +\ NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE +\ LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION +\ OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION +\ WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. +\ +\ LICENSE_END +

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

openfirmware