mirror of
https://github.com/retro-software/B5500-software.git
synced 2026-03-02 17:44:40 +00:00
2c72f7fd1d
1. Commit library tape images, directories, and extracted text files. 2. Commit additional utilities under Unisys-Emode-Tools.
11 lines
810 B
Plaintext
11 lines
810 B
Plaintext
COMMENT PROCEDURE - BINBCD, CUBE LIBRARY NUMBER IS M200003. 00000100
|
|
THIS VERSION DATED 2/1/67; 00000200
|
|
STREAM PROCEDURE BINBCD(BINARY,BCD); 00000300
|
|
COMMENT THE INPUT TO THIS PROCEDURE IS A POSITIVE INTEGER BINARY 00000400
|
|
THE OUTPUT IS THE BCD REPRESENTATION OF BINARY; 00000500
|
|
BEGIN 00000600
|
|
SI~BINARY; 00000700
|
|
DI~BCD; 00000800
|
|
DS~8 DEC; 00000900
|
|
END OF BINBCD; 00001000
|