From 019fd8a67db91edbdc0710cf1ad9455bd9bd1b4a Mon Sep 17 00:00:00 2001
From: Virgil Dupras <hsoft@hardcoded.net>
Date: Sat, 20 Jun 2020 07:34:46 -0400
Subject: [PATCH] pcat: fix ?DUP

---
 blk/821 | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/blk/821 b/blk/821
index aba8804..8286d32 100644
--- a/blk/821
+++ b/blk/821
@@ -1,10 +1,10 @@
 CODE DUP AX POPx, AX PUSHx, AX PUSHx, ;CODE
-CODE ?DUP AX POPx, AX AX ORxx, IFNZ, AX PUSHx, THEN, ;CODE
+CODE ?DUP AX POPx, AX AX ORxx, AX PUSHx,
+    IFNZ, AX PUSHx, THEN, ;CODE
 CODE DROP AX POPx, ;CODE
 CODE SWAP AX POPx, BX POPx, AX PUSHx, BX PUSHx, ;CODE
 CODE OVER ( a b -- a b a )
-    DI SP MOVxx, AX [DI] 2 MOVx[]+, AX PUSHx,
-;CODE
+    DI SP MOVxx, AX [DI] 2 MOVx[]+, AX PUSHx, ;CODE
 CODE PICK
     DI POPx, DI SHLx1, ( x2 )
     DI SP ADDxx, DI [DI] MOVx[], DI PUSHx,