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 - CONVERT, CUBE LIBRARY NUMBER IS M200002 00000100
|
|
THIS VERSION DATED 2/1/67; 00000200
|
|
PROCEDURE CONVERT (AFTER,N);VALUE N;INTEGER N;REAL ARRAY AFTER[0];BEGIN 00000300
|
|
INTEGER I,E,F,R;REAL WORK;LABEL ZERO,SIGNM;FOR I:=0 STEP 1 UNTIL N-1 DO 00000400
|
|
BEGIN IF AFTER[I]=" "OR AFTER[I]=0 THEN GO TO ZERO;WORK~AFTER[I];AF00000500
|
|
TER[I]:=0;E~WORK.[13:8]-155;F:=E DIV 3;IF (3|F)!E THEN BEGIN R:=ABS(E MO00000600
|
|
D 3);IF R=1 THEN AFTER[I].[19:27]~WORK.[21:27]ELSE AFTER[I].[20:27]~WORK00000700
|
|
.[21:27];F~F-1;GO TO SIGNM END ELSE AFTER[I].[21:27]~WORK.[21:27];SIGNM:00000800
|
|
AFTER[I].[1:1]~WORK.[12:1];AFTER[I].[2:1]:=F.[1:1];AFTER[I].[3:6]:=F.[4200000900
|
|
:6];ZERO:END;END; 00001000
|