1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-26 18:28:05 +11:00
collapseos/blk/330

16 lines
254 B
Plaintext
Raw Normal View History

2020-04-23 11:19:12 +10:00
CODE _find ( cur w -- a f )
HL POPqq, ( w )
DE POPqq, ( cur )
chkPS,
lblfind @ CALLnn,
2020-04-23 11:19:12 +10:00
IFNZ,
( not found )
HL PUSHqq,
PUSH0,
JPNEXT,
THEN,
( found )
DE PUSHqq,
PUSH1,
;CODE