From b037c8659867eaf49d9bc130632f5624226660a1 Mon Sep 17 00:00:00 2001
From: Virgil Dupras <hsoft@hardcoded.net>
Date: Sat, 13 Jun 2020 11:47:32 -0400
Subject: [PATCH] recipes/pcat: now tested on real hardware!

---
 blk/753 | 1 +
 blk/811 | 6 +++---
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/blk/753 b/blk/753
index 47fa6bf..8c16863 100644
--- a/blk/753
+++ b/blk/753
@@ -5,6 +5,7 @@
 ( no argument, flow ops are special )
 : JMP8, 0xeb A, ; : JMP16, 0xe9 A, ; : JZ, 0x74 A, ;
 : LODSB, 0xac A, ; : CLI, 0xfa A, ; : HLT, 0xf4 A, ;
+: STI, 0xfb A, ;
 : ORrr, 0x08 A, MODRMrr A, ;
 : XORxx, 0x31 A, MODRMrr A, ;
 : CLD, 0xfc A, ; : STD, 0xfd A, ;
diff --git a/blk/811 b/blk/811
index 5687427..040b95d 100644
--- a/blk/811
+++ b/blk/811
@@ -1,9 +1,9 @@
-: _filler 510 H@ ORG @ - DO 0 A, LOOP 0x55 A, 0xaa A, ;
 H@ ORG ! 0x7c00 BIN( ! ( BIOS loads boot bin at 0x7c00 )
 JMP8, L1 FWR8 ( start )
+ORG @ 0x25 + HERE ! ( bypass BPB )
 L2 BSET ( msg ) ," Hello, World!" 0 A,
 L1 FSET ( start )
-CLI, CLD, AX AX XORxx, DS AX MOVsx,
+CLI, CLD, AX AX XORxx, DS AX MOVsx, STI,
 AH 0 MOVri, AL 2 MOVri, ( 80x25 BW video mode ) 0x10 INT,
 SI L2 @ ( msg ) MOVrI, AH 0x0e MOVri, ( print char )
 L1 BSET ( loop ) LODSB, AL AL ORrr, ( end of str? )
@@ -11,4 +11,4 @@ JZ, L2 FWR8 ( next ) 0x10 INT, ( print char )
 JMP8, L1 ( loop ) BWR
 L2 FSET ( next ) AH 0 MOVri, 0x16 INT, ( read kbd )
 AH 0x0e MOVri, 0x10 INT, ( spit read char ) HLT, ( done )
-_filler
+ORG @ 0x1fe + HERE ! 0x55 A, 0xaa A,