1 files changed, 0 insertions, 63 deletions
diff --git a/qemu/roms/SLOF/board-js2x/slof/tpm.fs b/qemu/roms/SLOF/board-js2x/slof/tpm.fs
deleted file mode 100644
index 69b9bc409..000000000
--- a/qemu/roms/SLOF/board-js2x/slof/tpm.fs
+++ /dev/null
@@ -1,63 +0,0 @@
-\ *****************************************************************************
-\ * Copyright (c) 2004, 2008 IBM Corporation
-\ * All rights reserved.
-\ * This program and the accompanying materials
-\ * are made available under the terms of the BSD License
-\ * which accompanies this distribution, and is available at
-\ * http://www.opensource.org/licenses/bsd-license.php
-\ *
-\ * Contributors:
-\ *     IBM Corporation - initial implementation
-\ ****************************************************************************/
-
-
-\ Atmel TPM.
-
-new-device   500 1 set-unit
-
-s" tpm" 2dup device-name device-type
-
-s" AT97SC3201" compatible
-
-\ 2 bytes of ISA I/O space
-my-unit encode-int rot encode-int+ 2 encode-int+ s" reg" property
-
-: >tpm  4e io-c! ;
-: tpm@  >tpm 4f io-c@ ;
-: tpm!  >tpm 4f io-c! ;
-
-: dump-tpm  11 0 DO cr i 2 .r space i tpm@ 2 0.r LOOP ;
-
-my-address wbsplit 9 tpm! 8 tpm! \ set base address
-0 a tpm! \ disable serint
-
-\ Now we need to execute TPM_Startup.
-CREATE startup-cmd
-0 c, c1 c,
-0 c, 0 c, 0 c, c c,
-0 c, 0 c, 0 c, 99 c, \ TPM_ORD_Startup
-0 c, 1 c, \ TCPA_ST_CLEAR
-
-: send ( addr len -- )  bounds ?DO i c@ 500 io-c! LOOP ;
-: wait-for-ready ( -- )  BEGIN 501 io-c@ 3 and 2 = UNTIL ;
-: recv-verbose  ( -- )
-   cr ." TPM result: "
-   500 io-c@ 2 0.r 500 io-c@ 2 0.r space
-   500 io-c@ 500 io-c@ 500 io-c@ 500 io-c@ 
-   bljoin lbflip 6 - dup 8 0.r space 0
-   ?DO  500 io-c@ .  LOOP
-;
-
-: recv ( -- )
-   500 io-c@ drop 500 io-c@ drop
-   500 io-c@ 500 io-c@ 500 io-c@ 500 io-c@
-   bljoin lbflip 6 - 0
-   ?DO  500 io-c@ drop  LOOP
-;
-
-startup-cmd c send  wait-for-ready  recv
-
-: open  true ;
-: close ;
-
-finish-device