Return to tpm.fs CVS log

Up to [Qemu by Fabrice Bellard] / qemu / roms / SLOF / board-js2x / slof

Annotation of qemu/roms/SLOF/board-js2x/slof/tpm.fs, revision 1.1.1.1

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: 
                     14: \ Atmel TPM.
                     15: 
                     16: new-device   500 1 set-unit
                     17: 
                     18: s" tpm" 2dup device-name device-type
                     19: 
                     20: s" AT97SC3201" compatible
                     21: 
                     22: \ 2 bytes of ISA I/O space
                     23: my-unit encode-int rot encode-int+ 2 encode-int+ s" reg" property
                     24: 
                     25: : >tpm  4e io-c! ;
                     26: : tpm@  >tpm 4f io-c@ ;
                     27: : tpm!  >tpm 4f io-c! ;
                     28: 
                     29: : dump-tpm  11 0 DO cr i 2 .r space i tpm@ 2 0.r LOOP ;
                     30: 
                     31: my-address wbsplit 9 tpm! 8 tpm! \ set base address
                     32: 0 a tpm! \ disable serint
                     33: 
                     34: \ Now we need to execute TPM_Startup.
                     35: CREATE startup-cmd
                     36: 0 c, c1 c,
                     37: 0 c, 0 c, 0 c, c c,
                     38: 0 c, 0 c, 0 c, 99 c, \ TPM_ORD_Startup
                     39: 0 c, 1 c, \ TCPA_ST_CLEAR
                     40: 
                     41: : send ( addr len -- )  bounds ?DO i c@ 500 io-c! LOOP ;
                     42: : wait-for-ready ( -- )  BEGIN 501 io-c@ 3 and 2 = UNTIL ;
                     43: : recv-verbose  ( -- )
                     44:    cr ." TPM result: "
                     45:    500 io-c@ 2 0.r 500 io-c@ 2 0.r space
                     46:    500 io-c@ 500 io-c@ 500 io-c@ 500 io-c@ 
                     47:    bljoin lbflip 6 - dup 8 0.r space 0
                     48:    ?DO  500 io-c@ .  LOOP
                     49: ;
                     50: 
                     51: : recv ( -- )
                     52:    500 io-c@ drop 500 io-c@ drop
                     53:    500 io-c@ 500 io-c@ 500 io-c@ 500 io-c@
                     54:    bljoin lbflip 6 - 0
                     55:    ?DO  500 io-c@ drop  LOOP
                     56: ;
                     57: 
                     58: startup-cmd c send  wait-for-ready  recv
                     59: 
                     60: : open  true ;
                     61: : close ;
                     62: 
                     63: finish-device

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.