figForth Word - (FIND)
Some parts of this page/site are currently incomplete & will be updated asap
Other parts will change continually so use “Refresh” in your browser !!
There is extensive use of “Tooltips” text to support learning which do
not seem to render on a Smartphone
NFA: 00229A 86 DB 86H ; addr1 addr2 --- pfa b tf (ok)
00229B 2846494E 44 DB "(FIND" ; addr1 addr2 --- ff (bad)
0022A0 A9 DB ')'+80H
LFA: 0022A1 6D22 DW DIGIT-8 ; HERE nfa
0022A3 A522 PFIND: DW $+2
0022A5 D1 POP DE
0022A6 E1 PFIN1: POP HL
0022A7 E5 PUSH HL
0022A8 1A LD A,(DE)
0022A9 AE XOR (HL)
0022AA E63F AND 3FH
0022AC C2 D1 22 JP NZ,PFIN4
0022AF 23 PFIN2: INC HL
0022B0 13 INC DE
0022B1 1A LD A,(DE)
0022B2 AE XOR (HL)
0022B3 87 ADD A,A
0022B4 C2 CE 22 JP NZ,PFIN3
0022B7 D2 AF 22 JP NC,PFIN2
0022BA 210500 LD HL,5
0022BD 19 ADD HL,DE
0022BE E3 EX (SP),HL
0022BF 1B PFIN6: DEC DE
0022C0 1A LD A,(DE)
0022C1 B7 OR A
0022C2 F2 BF 22 JP P,PFIN6
0022C5 5F LD E,A
0022C6 1600 LD D,0
0022C8 210100 LD HL,1
0022CB C3 E0 20 JP WHPUSH
0022CE DA D7 22 PFIN3: JP C,PFIN5
0022D1 13 PFIN4: INC DE
0022D2 1A LD A,(DE)
0022D3 B7 OR A
0022D4 F2 D1 22 JP P,PFIN4
0022D7 13 PFIN5: INC DE
0022D8 EB EX DE,HL
0022D9 5E LD E,(HL)
0022DA 23 INC HL
0022DB 56 LD D,(HL)
0022DC 7A LD A,D
0022DD B3 OR E
0022DE C2 A6 22 JP NZ,PFIN1
0022E1 E1 POP HL
0022E2 210000 LD HL,0
0022E5 C3 E1 20 JP HPUSH