diff --git a/blk/247 b/blk/247
index 7ecceba..e905c43 100644
--- a/blk/247
+++ b/blk/247
@@ -2,7 +2,7 @@
     DUP PC          ( l l pc )
     -^ 1-           ( l off )
     ( warning: l is a PC offset, not a mem addr! )
-    SWAP ORG @ +    ( off addr )
+    SWAP ORG @ + BIN( @ - ( off addr )
     C!
 ;
 : FWR BSET 0 A, ;
diff --git a/blk/249 b/blk/249
index c63d0f5..7db0042 100644
--- a/blk/249
+++ b/blk/249
@@ -7,3 +7,5 @@
 : HLZ, A H LDrr, L ORr, ;
 : DEZ, A D LDrr, E ORr, ;
 : LDDE(HL), E (HL) LDrr, HL INCss, D (HL) LDrr, ;
+: OUTHL, DUP A H LDrr, OUTnA, A L LDrr, OUTnA, ;
+: OUTDE, DUP A D LDrr, OUTnA, A E LDrr, OUTnA, ;
diff --git a/blk/294 b/blk/294
index 8d4c58d..e5a44a8 100644
--- a/blk/294
+++ b/blk/294
@@ -10,7 +10,7 @@
         DE DECss,           ( prev field )
         DE PUSHqq,          ( --> lvl 2 )
         EXDEHL,
-        E (HL) LDrr,
-        HL INCss,
-        D (HL) LDrr,
+        LDDE(HL),
+
+
                                                       ( cont. )
diff --git a/blk/301 b/blk/301
index e307504..f93f6c1 100644
--- a/blk/301
+++ b/blk/301
@@ -3,7 +3,7 @@ L3 BSET PC ORG @ 0x34 + ! ( execute )
     ( We don't apply BIN( reliably on stable ABI stuff, we
       might need to adjust addr. Ugly, but well... )
     BIN( @ [IF]
-        A XORr, H ORr, IFZ, H BIN( @ 256 / LDrn,
+        A XORr, H ORr, IFZ, H BIN( @ 256 / LDrn, THEN,
     [THEN]
     E (HL) LDrr,
     D BIN( @ 256 / LDrn,