Binary coded decimal: Difference between revisions
Content added Content deleted
m (→{{header|RPL}}) |
|||
Line 1,026: | Line 1,026: | ||
1 XOR OVER XOR NOT #1111111111111110h AND |
1 XOR OVER XOR NOT #1111111111111110h AND |
||
DUP SR SR SWAP SR SR SR OR - |
DUP SR SR SWAP SR SR SR OR - |
||
≫ |
≫ 'NGBCD' STO |
||
'NGBCD' STO |
|||
≪ NGBCD ADBCD ≫ |
≪ NGBCD ADBCD ≫ |