F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 80

3400 03251 0 000277 DAC ZBRA 3401 03252 0 003256 DAC NUL1 3402 03253 0 002506 DAC QEXC 3403 03254 0 001412 DAC FRMR RETURN FROM INTERPRET 3404 03255 0 001526 DAC DROP 3405 03256 0 000263 NUL1 DAC BRAN 3406 03257 0 003262 DAC NUL3 3407 03260 0 001412 NUL2 DAC FRMR RETURN FROM INTERPRET 3408 03261 0 001526 DAC DROP 3409 03262 0 001361 NUL3 DAC SMIS 3410 * 3411 * **** FILL **** FILL WORDS 3412 * ( ADDR COUNT PATTERN --- ) 3413 * HEAD FNUL,FILL,FILL,DOCL 3414 003263 TLNK SET * 3415 03263 002306 VFD 1,0,1,FNUL,6,4,8,'306 3416 * =<FNUL,4>,'F' 3417 03264 144714 BCI 1,IL 3418 03265 046000 VFD 8,'114 ='L' 3419 03266 0 003223 DAC LINK 3420 003263 LINK SET TLNK 3421 03267 0 10 00130 FILL JST DOCL 3422 03270 0 001533 DAC SWAP 3423 03271 0 001402 DAC TOR 3424 03272 0 001520 DAC OVER 3425 03273 0 001577 DAC STOR 3426 03274 0 001541 DAC DUP 3427 03275 0 002223 DAC ONEP 3428 03276 0 001412 DAC FRMR 3429 03277 0 001722 DAC ONE 3430 03300 0 002266 DAC SUB 3431 03301 0 000671 DAC MOVE 3432 03302 0 001361 DAC SMIS 3433 * 3434 * **** ERASE **** ERASE WORDS 3435 * ( ADDR COUNT --- ) 3436 * HEAD FNUL,ERASE,ERAS,DOCL 3437 003303 TLNK SET * 3438 03303 002705 VFD 1,0,1,FNUL,6,5,8,'305 3439 * =<FNUL,5>,'E' 3440 03304 151301 BCI 1,RA 3441 03305 151505 VFD 8,'323,8,'105 ='SE' 3442 03306 0 003263 DAC LINK 3443 003303 LINK SET TLNK 3444 03307 0 10 00130 ERAS JST DOCL 3445 03310 0 001716 DAC ZERO 3446 03311 0 003267 DAC FILL 3447 03312 0 001361 DAC SMIS 3448 * 3449 * **** BLANKS **** FILL WORDS WITH SPACE CHARACTERS