From 400ef99b548f5e59e7039b337f4c54cc96f4e0fd Mon Sep 17 00:00:00 2001 From: Virgil Dupras Date: Sun, 29 Mar 2020 22:17:25 -0400 Subject: [PATCH] forth: fix dumb bug in (?br) inc (hl) is 8 bit, inc (hl) is 8 bit, inc (hl) is 8 bit. Now I hope I'll remember... --- forth/forth.asm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/forth/forth.asm b/forth/forth.asm index 80833b1..f3872a0 100644 --- a/forth/forth.asm +++ b/forth/forth.asm @@ -683,12 +683,13 @@ CBR: or l jp z, BR+2 ; False, branch ; True, skip next 2 bytes and don't branch - ld hl, IP - inc (hl) - inc (hl) + ld hl, (IP) + inc hl + inc hl + ld (IP), hl jp next -.fill 18 +.fill 15 .db "," .dw $-CBR