1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-12-25 04:48:06 +11:00

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...
This commit is contained in:
Virgil Dupras 2020-03-29 22:17:25 -04:00
parent d2dcd96ce1
commit 400ef99b54

View File

@ -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