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
NFA: 0073A2 C5 B 3247 DB 0C5H
0073A3 2B4C4F4F B 3248 DB "+LOO"
0073A7 D0 B 3249 DB 'P'+80H
LFA: 0073A8 8D73 B 3250 DW LOOP-7
CFA: 0073AA 3C28 B 3251 PLOOP: DW DOCOL
PFA: 0073AC CB67 DC6A B 3252 DW THREE,QPAIR ; 3 ?PAIRS
0073B0 0B6B B 3253 DW COMP ; COMPILE
0073B2 2922 B 3254 DW XPLOO ; (+LOOP)
0073B4 4573 B 3255 DW BACK ; BACK
0073B6 1725 B 3256 DW SEMIS
xcvcvcbcv
NFA: 00221F 87 B 366 DB 87H
002220 282B4C4F 4F50 B 367 DB "(+LOOP"
002226 A9 B 368 DB ')'+80H
LFA: 002227 E621 B 369 DW XLOOP-9
CFA: 002229 2B22 B 370 XPLOO: DW $+2
PFA: 00222B D1 B 371 POP DE
00222C C3 F4 21 B 372 JP XLOO1
mnbmnbmnb
NFA: 0021E6 86 B 327 DB 86H
0021E7 284C4F4F 50 B 328 DB "(LOOP"
0021EC A9 B 329 DB ')'+80H
LFA: 0021ED D021 B 330 DW ZBRAN-10
CFA: 0021EF F121 B 331 XLOOP: DW $+2
PFA: 0021F1 110100 B 332 LD DE,1
0021F4 2AFBFF B 333 XLOO1: LD HL,(RPP)
0021F7 7E B 334 LD A,(HL)
0021F8 83 B 335 ADD A,E
0021F9 77 B 336 LD (HL),A
0021FA 5F B 337 LD E,A
0021FB 23 B 338 INC HL
0021FC 7E B 339 LD A,(HL)
0021FD 8A B 340 ADC A,D
0021FE 77 B 341 LD (HL),A
0021FF 23 B 342 INC HL
002200 14 B 343 INC D
002201 15 B 344 DEC D
002202 57 B 345 LD D,A
002203 FA 0E 22 B 346 JP M,XLOO2
002206 7B B 347 LD A,E
002207 96 B 348 SUB (HL)
002208 7A B 349 LD A,D
002209 23 B 350 INC HL
00220A 9E B 351 SBC A,(HL)
00220B C3 13 22 B 352 JP XLOO3