figForth Word - SPACES
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
SPACES n — L0
Transmit n ascii blanks to the output device
NFA: 007449 86 DB 86H
00744A 53504143 45 DB "SPACE"
00744F D3 DB 'S'+80H
LFA: 007450 3974 DW WHILE-8
CFA: 007452 3C28 SPACS: DW DOCOL ; :
PFA: 007454 BF67 6071 DW ZERO,MAX ; 0 MAX
007458 F369 DW DDUP ; -DUP
00745A DA21 0C00 DW ZBRAN,SPAX1-$ ; IF
00745E BF67 DW ZERO ; 0
007460 3622 DW XDO ; DO
007462 E469 SPAX2: DW SPACE ; SPACE
007464 EF21 FCFF DW XLOOP,SPAX2-$ ; LOOP
007468 SPAX1: ; THEN
007468 1725 DW SEMIS ; ;