izaya
/
collapseos
mirror of https://github.com/hsoft/collapseos.git
1
0
Fork 0
Code Issues Releases Wiki Activity

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
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
forth/forth.asm
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