figForth Word - (+LOOP)
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
(+LOOP) n — C2 The run-time procedure compiled by +LOOP, which increments the loop index by n and tests for loop completion. See +LOOP
NFA: 00221F 87 DB 87H
002220 282B4C4F 4F50 DB "(+LOOP"
002226 A9 DB ')'+80H
LFA: 002227 E621 DW XLOOP-9
CFA: 002229 2B22 XPLOO: DW $+2
PFA: 00222B D1 POP DE
00222C C3 F4 21 JP XLOO1
xcccvcvc
NFA: 0021E6 86 DB 86H
0021E7 284C4F4F 50 DB "(LOOP"
0021EC A9 DB ')'+80H
LFA: 0021ED D021 DW ZBRAN-10
CFA: 0021EF F121 XLOOP: DW $+2
PFA: 0021F1 110100 LD DE,1
0021F4 2AFBFF XLOO1: LD HL,(RPP)
0021F7 7E LD A,(HL)
0021F8 83 ADD A,E
0021F9 77 LD (HL),A
0021FA 5F LD E,A
0021FB 23 INC HL
0021FC 7E LD A,(HL)
0021FD 8A ADC A,D
0021FE 77 LD (HL),A
0021FF 23 INC HL
002200 14 INC D
002201 15 DEC D
002202 57 LD D,A
002203 FA 0E 22 JP M,XLOO2
002206 7B LD A,E
002207 96 SUB (HL)
002208 7A LD A,D
002209 23 INC HL
00220A 9E SBC A,(HL)
00220B C3 13 22 JP XLOO3