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 or l
jp z, BR+2 ; False, branch jp z, BR+2 ; False, branch
; True, skip next 2 bytes and don't branch ; True, skip next 2 bytes and don't branch
ld hl, IP ld hl, (IP)
inc (hl) inc hl
inc (hl) inc hl
ld (IP), hl
jp next jp next
.fill 18 .fill 15
.db "," .db ","
.dw $-CBR .dw $-CBR