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