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.
22 lines
1.7 KiB
Plaintext
22 lines
1.7 KiB
Plaintext
COMMENT PROCEDURE - DOUBLE PRECISION ARCSINE, 00000100
|
|
CUBE LIBRARY NUMBER IS B100004. 00000200
|
|
THIS VERSION DATED 2/1/67; 00000300
|
|
PROCEDURE DASIN(X1,X2,YH,YL);VALUE X1,X2 ;REAL X1,X2,YH,YL ;BEGIN REAL P00000400
|
|
IH,PIL,MCH,MCL,XH,XL,TH,TL,X,Z ;LABEL L1 ;IF ABS(X1)<1@-6 THEN BEGIN YH 00000500
|
|
~X1 ;YL ~X2 ;GO TO L1 ;END ;PIH ~PIL ~MCL ~0 ;MCH ~1 ;Z ~SIGN(X1);XH ~AB00000600
|
|
S(X1);XL ~X2 ;IF XH >0.92387953231 THEN BEGIN DOUBLE(,1.0,XH,XL,-,,2.0,/00000700
|
|
,~,XH,XL);X ~SQRT(XH);IF X !0 THEN DOUBLE(X,XL,XH,XL,X,XL,/,-,0.5,0,|,X,00000800
|
|
XL,+,~,XH,XL);DOUBLE(,1.570796326794896619231322,~,PIH,PIL);MCH ~-2 ;END00000900
|
|
ELSE BEGIN IF XH>0.70710678119 THEN BEGIN DOUBLE(,2.0,XH,XL,|,XH,XL,|,,00001000
|
|
1.0,-,~,XH,XL);DOUBLE(,0.785398163397448309615660,~,PIH,PIL);MCH ~0.5 ;E00001100
|
|
ND ;END ;DOUBLE(XH,XL,XH,XL,|,~,TH,TL);DOUBLE(TH,TL,,0.0000722125284294000001200
|
|
7543270682,|,,0.0066666874446122779962035,-,TH,TL,|,,0.1184096362283841300001300
|
|
817591,+,TH,TL,|,,0.84568197197336825816711,-,TH,TL,|,,3.05981492717442200001400
|
|
8612823,+,TH,TL,|,,6.1378737557491218259993,-,TH,TL,|,,6.92255650097719400001500
|
|
0526241,+,TH,TL,|,,4.1105623372212833486351,-,TH,TL,|,,1.0,+,XH,XL,|,,0.00001600
|
|
00030332965858789323288929,TH,TL,|,,0.014320016565125893340134,-,TH,TL,|00001700
|
|
,,0.19388434289229355603845,+,TH,TL,|,,1.1815404494442759532657,-,TH,TL,00001800
|
|
|,,3.8403145678633741441307,+,TH,TL,|,,7.1217957712045803296092,-,TH,TL,00001900
|
|
|,,7.5604280016251857217229,+,TH,TL,|,,4.2772290038879500153011,-,TH,TL,00002000
|
|
|,,1.0,+,/,MCH,0,|,PIH,PIL,+,~,YH,YL);YH ~YH |Z ;L1:END ; 00002100
|