1 files changed, 67 insertions, 0 deletions
diff --git a/board-qemu/slof/vtpm-sml.fs b/board-qemu/slof/vtpm-sml.fs
new file mode 100644
index 0000000..a1fb8ec
--- /dev/null
+++ b/board-qemu/slof/vtpm-sml.fs
@@ -0,0 +1,67 @@
+\ *****************************************************************************
+\ * Copyright (c) 2015-2020 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
+\ ****************************************************************************/
+
+" /" find-device
+
+new-device
+
+false VALUE    vtpm-debug?
+
+\ create /ibm,vtpm
+s" ibm,vtpm" 2dup device-name device-type
+
+\
+\ only internal API calls
+\
+
+: separator-event ( start-pcr end-pcr -- )
+    tpm-add-event-separators                   ( errcode )
+    ?dup IF
+        ." VTPM: Error code from tpm-add-event-separators: " . cr
+    THEN
+;
+
+80 CONSTANT BCV_DEVICE_HDD
+
+: measure-hdd-mbr ( addr length -- )
+    0 7 separator-event
+    BCV_DEVICE_HDD                             ( addr length bootdrv )
+    -rot                                       ( bootdrv addr length )
+    tpm-measure-bcv-mbr                        ( errcode )
+    ?dup IF
+        ." VTPM: Error code from tpm-measure-hdd: " . cr
+    THEN
+;
+
+: leave-firmware ( -- )
+    tpm-leave-firmware                         ( errcode )
+    ?dup IF
+        ." VTPM: Error code from tpm-leave-firmware: " . cr
+    THEN
+;
+
+: measure-scrtm ( -- )
+    tpm-measure-scrtm                          ( errcode )
+    ?dup IF
+        ." VTPM: Error code from tpm-measure-scrtm: " . cr
+    THEN
+;
+
+: open  true ;
+: close ;
+
+finish-device
+device-end
+
+s" /ibm,vtpm" find-node ?dup IF
+  s" measure-scrtm" rot $call-static
+THEN