F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 81

3450 * ( ADDR COUNT --- ) 3451 * HEAD FNUL,BLANKS,BLKS,DOCL 3452 003313 TLNK SET * 3453 03313 003302 VFD 1,0,1,FNUL,6,6,8,'302 3454 * =<FNUL,6>,'B' 3455 03314 146301 BCI 2,LANK 03315 147313 3456 03316 051400 VFD 8,'123 ='S' 3457 03317 0 003303 DAC LINK 3458 003313 LINK SET TLNK 3459 03320 0 10 00130 BLKS JST DOCL 3460 03321 0 001737 DAC BL 3461 03322 0 001541 DAC DUP 3462 03323 0 000241 DAC LIT 3463 03324 000400 DEC 256 3464 03325 0 001120 DAC USTR SHIFT TO UPPER BYTE 3465 03326 0 001306 DAC OR OR IN LOWER BYTE 3466 03327 0 003267 DAC FILL 3467 03330 0 001361 DAC SMIS 3468 * 3469 * **** HOLD **** 3470 * HEAD FNUL,HOLD,HOLD,DOCL 3471 003331 TLNK SET * 3472 03331 002310 VFD 1,0,1,FNUL,6,4,8,'310 3473 * =<FNUL,4>,'H' 3474 03332 147714 BCI 1,OL 3475 03333 042000 VFD 8,'104 ='D' 3476 03334 0 003313 DAC LINK 3477 003331 LINK SET TLNK 3478 03335 0 10 00130 HOLD JST DOCL 3479 03336 0 000241 DAC LIT 3480 03337 177777 DEC -1 3481 03340 0 002203 DAC HLD 3482 03341 0 001546 DAC PSTR 3483 03342 0 002203 DAC HLD 3484 03343 0 001565 DAC AT 3485 03344 0 001605 DAC CSTR 3486 03345 0 001361 DAC SMIS 3487 * 3488 * **** PAD **** 3489 * HEAD FNUL,PAD,PAD,DOCL 3490 003346 TLNK SET * 3491 03346 001720 VFD 1,0,1,FNUL,6,3,8,'320 3492 * =<FNUL,3>,'P' 3493 03347 140504 VFD 8,'301,8,'104 ='AD' 3494 03350 0 003331 DAC LINK 3495 003346 LINK SET TLNK 3496 03351 0 10 00130 PAD JST DOCL 3497 03352 0 002240 DAC HERE 3498 03353 0 000241 DAC LIT