Binary coded decimal: Difference between revisions
m
→{{header|RPL}}
m (→{{header|RPL}}) |
m (→{{header|RPL}}) |
||
Line 1,016:
{{trans|Forth}}
{{works with|Halcyon Calc|4.2.7}}
NOT #1111111111111110h AND
DUP SR SR SWAP SR SR SR OR -
≫ 'ADBCD' STO
≪ NOT 1 + #FFFFFFFFFFFFFFFh AND DUP 1 - 1 XOR OVER XOR
DUP SR SR SWAP SR SR SR OR -
≫ 'NGBCD' STO
|