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.
19 lines
1.4 KiB
Plaintext
19 lines
1.4 KiB
Plaintext
COMMENT PROCEDURE - DOUBLE PRECISION EXPONENTIAL, 00000100
|
|
CUBE LIBRARY NUMBER IS B100008. 00000200
|
|
THIS VERSION DATED 2/1/67; 00000300
|
|
PROCEDURE DEXP(X1H,X1L,Y1H,Y1L);VALUE X1H,X1L ;REAL X1H,X1L,Y1H,Y1L ;BEG00000400
|
|
IN REAL PH,PL,QH,QL,Z1H,XH,XL,TH,TL,YH,YL,X,X1 ;INTEGER ZH,EXH,K ;LABEL 00000500
|
|
FIN ;IF ABS(X1)<-106 THEN BEGIN Y1H~Y1L ~0 ;GO TO FIN ;END ;DOUBLE(X1H,X00000600
|
|
1L,,1.4426950408889634073599,|,~,XH,XL);ZH ~ENTIER(XH);DOUBLE(XH,XL,ZH,000000700
|
|
,-,~,XH,XL);DOUBLE(XH,XL,XH,XL,|,~,TH,TL);DOUBLE(,0.0000000007645902638400000800
|
|
654553385957,TH,TL,|,,0.0000019926324103760276056832,+,TH,TL,|,,0.00113900000900
|
|
6873691544708724114,+,TH,TL,|,,0.16303853790707325576173,+,TH,TL,|,,2.8800001000
|
|
53900817779268147198,+,~,PH,PL);DOUBLE(,0.00000000000579678502672907626600001100
|
|
8959,TH,TL,|,,0.000000049017606590131867745753,+,TH,TL,|,,0.00005628418300001200
|
|
713340386389917,+,TH,TL,|,,0.016467100276601678197729,+,TH,TL,|,,1.0,+,X00001300
|
|
H,XL,|,~,QH,QL);DOUBLE(PH,PL,QH,QL,+,PH,PL,QH,QL,-,/,~,YH,YL);EXH ~YH.[300001400
|
|
:6];EXH.[1:1]~YH.[2:1];EXH ~EXH +ZH DIV 3 ;YH.[2:1]~EXH.[1:1];YH.[3:6]~E00001500
|
|
XH ;Z1H ~ZH MOD 3 ;IF Z1H!0 THEN IF ZH<0 THEN DOUBLE(-YH,YL,Z1H,0 ,Z1H,000001600
|
|
,+,/,~,YH,YL)ELSE DOUBLE(Z1H,0,Z1H,0,+,YH,YL,|,~,YH,YL);Y1H ~YH ;Y1L ~Y00001700
|
|
L ;FIN:END ; 00001800
|