Previous Page Single Page Next Page  

* FIG FORTH FOR SERIES-16 MACHINES PAGE 126

5457 * 5458 * **** #S **** 5459 * HEAD FNUL,#S,DIGS,DOCL 5460 005456 TLNK SET * 5461 05456 001243 VFD 1,0,1,FNUL,6,2,8,'243 5462 * =<FNUL,2>,'#' 5463 05457 051400 VFD 8,'123 ='S' 5464 05460 0 005431 DAC LINK 5465 005456 LINK SET TLNK 5466 05461 0 10 00130 DIGS JST DOCL 5467 05462 0 005433 DGS1 DAC DIG 5468 05463 0 001520 DAC OVER 5469 05464 0 001520 DAC OVER 5470 05465 0 001306 DAC OR 5471 05466 0 001423 DAC ZEQU 5472 05467 0 000277 DAC ZBRA 5473 05470 0 005462 DAC DGS1 5474 05471 0 001361 DAC SMIS 5475 * 5476 * **** D.R **** 5477 * HEAD FNUL,D.R,DDTR,DOCL 5478 005472 TLNK SET * 5479 05472 001704 VFD 1,0,1,FNUL,6,3,8,'304 5480 * =<FNUL,3>,'D' 5481 05473 127122 VFD 8,'256,8,'122 ='.R' 5482 05474 0 005456 DAC LINK 5483 005472 LINK SET TLNK 5484 05475 0 10 00130 DDTR JST DOCL 5485 05476 0 001402 DAC TOR 5486 05477 0 001533 DAC SWAP 5487 05500 0 001520 DAC OVER 5488 05501 0 004461 DAC DABS 5489 05502 0 005371 DAC BDGS 5490 05503 0 005461 DAC DIGS 5491 05504 0 005420 DAC SIGN 5492 05505 0 005402 DAC EDGS 5493 05506 0 001412 DAC FRMR 5494 05507 0 001520 DAC OVER 5495 05510 0 002266 DAC SUB 5496 05511 0 005352 DAC SPCS 5497 05512 0 002750 DAC TYPE 5498 05513 0 001361 DAC SMIS 5499 * 5500 * **** .R **** 5501 * HEAD FNUL,.R,DOTR,DOCL 5502 005514 TLNK SET * 5503 05514 001256 VFD 1,0,1,FNUL,6,2,8,'256 5504 * =<FNUL,2>,'.' 5505 05515 051000 VFD 8,'122 ='R' 5506 05516 0 005472 DAC LINK
  Previous Page Single Page Next Page