izaya/collapseos
1
0
Fork 0
mirror of https://github.com/hsoft/collapseos.git synced 2024-09-29 12:20:55 +10:00
Code Issues Releases Wiki Activity

find: don't protect BC

Browse Source 
not needed
This commit is contained in:
Virgil Dupras 2020-06-03 20:57:29 -04:00
parent c26c454cbf
commit f53f91558b
3 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
blk/291
View File

@ -2,7 +2,6 @@ PC ORG @ 4 + ! ( find )
( Find the entry corresponding to word name where (HL) points ( Find the entry corresponding to word name where (HL) points
to in dictionary having its tip at DE and sets DE to point to in dictionary having its tip at DE and sets DE to point
to that entry. Z if found, NZ if not. ) to that entry. Z if found, NZ if not. )
BC PUSHqq,
HL PUSHqq, HL PUSHqq,
( First, figure out string len ) ( First, figure out string len )
A (HL) LDrr, A ORr, A (HL) LDrr, A ORr,

1
blk/296
View File

@ -3,5 +3,4 @@
A INCr, A INCr,
L2 FSET ( end ) L2 FSET ( end )
HL POPqq, HL POPqq,
BC POPqq,
RET, RET,

BIN
emul/forth.bin
View File

Binary file not shown.