diff --git a/8086/msdos/source.img b/8086/msdos/source.img
deleted file mode 100644
index 2a09adf..0000000
--- a/8086/msdos/source.img
+++ /dev/null
@@ -1 +0,0 @@
-                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                
\ No newline at end of file
diff --git a/8086/pc-baremetal/vlist.fth b/8086/pc-baremetal/vlist.fth
new file mode 100644
index 0000000..dc1ad72
--- /dev/null
+++ b/8086/pc-baremetal/vlist.fth
@@ -0,0 +1,18 @@
+: .flags ( cntf --  )
+     dup $80 and if [char] R emit else space then
+     dup $40 and if [char] I emit else space then
+         $20 and if [char] N emit else space then ;
+
+: vlist  ( -- )  base @ cr
+     ." Word" &25 spaces ." Flags CFA  Length" cr
+     [compile] char capital >r   context @
+     BEGIN  @ dup  stop? 0=  and
+     WHILE  ?cr dup 2+  r@ bl = over 1+ c@ r@ = or
+         IF  dup .name
+            dup c@ $F and &20 swap - spaces ( Name )
+            dup c@     .flags space       ( Count Field )
+            dup name>  hex u. space       ( CFA )
+            2- 2- @ decimal 3 u.r space   ( Block )
+            cr
+         ELSE  drop  THEN
+     REPEAT drop rdrop base ! ;