Binary coded decimal: Difference between revisions
m
→{{header|PL/M}}: Fixed Translation of
(Added Algol W) |
m (→{{header|PL/M}}: Fixed Translation of) |
||
Line 644:
{{works with|8080 PL/M Compiler}} ... under CP/M (or an emulator)
The 8080 PL/M compiler supports packed BCD by wrapping the 8080/Z80 DAA instruction with the DEC built in function, demonstrated here. Unfortunately, I couldn't get the first use of DEC to yeild the correct result without first doing a shift operation. Not sure if this is a bug in the program, the compiler or the 8080 emulator or that I'm misunderstanding something...
This is basically {{Trans|
<lang pli>100H: /* DEMONSTRATE PL/M'S BCD HANDLING */
| |||