Previous Page Single Page Next Page  

* FIG FORTH FOR SERIES-16 MACHINES PAGE 39

1572 * **** AND **** 1573 * ( N1 N2 --- N3 ) BITWISE AND 1574 * HEAD FNUL,AND,AND 1575 001275 TLNK SET * 1576 01275 001701 VFD 1,0,1,FNUL,6,3,8,'301 1577 * =<FNUL,3>,'A' 1578 01276 147104 VFD 8,'316,8,'104 ='ND' 1579 01277 0 001202 DAC LINK 1580 001275 LINK SET TLNK 1581 001300 AND EQU * 1582 01300 1 02 00001 LDA 1,1 1583 01301 1 03 00002 ANA 2,1 1584 01302 0 01 00124 JMP BINA 1585 * 1586 * **** OR **** 1587 * ( N1 N2 --- N3 ) BITWISE INCLUSIVE OR 1588 * HEAD FNUL,OR,OR 1589 001303 TLNK SET * 1590 01303 001317 VFD 1,0,1,FNUL,6,2,8,'317 1591 * =<FNUL,2>,'O' 1592 01304 051000 VFD 8,'122 ='R' 1593 01305 0 001275 DAC LINK 1594 001303 LINK SET TLNK 1595 001306 OR EQU * 1596 01306 1 02 00001 LDA 1,1 1597 01307 0 05 00715 ERA ='177777 1598 01310 1 03 00002 ANA 2,1 1599 01311 1 05 00001 ERA 1,1 1600 01312 0 01 00124 JMP BINA 1601 * 1602 * **** XOR **** 1603 * ( N1 N2 --- N3 ) BITWISE EXCLUSIVE OR 1604 * HEAD FNUL,XOR,XOR 1605 001313 TLNK SET * 1606 01313 001730 VFD 1,0,1,FNUL,6,3,8,'330 1607 * =<FNUL,3>,'X' 1608 01314 147522 VFD 8,'317,8,'122 ='OR' 1609 01315 0 001303 DAC LINK 1610 001313 LINK SET TLNK 1611 001316 XOR EQU * 1612 01316 1 02 00001 LDA 1,1 1613 01317 1 05 00002 ERA 2,1 1614 01320 0 01 00124 JMP BINA 1615 EJCT
  Previous Page Single Page Next Page