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.
21 lines
1.6 KiB
Plaintext
21 lines
1.6 KiB
Plaintext
COMMENT PROCEDURE - DOUBLE PRECISION COSINE, 00000100
|
|
CUBE LIBRARY NUMBER IS B100002. 00000200
|
|
THIS VERSION DATED 2/1/67; 00000300
|
|
PROCEDURE DCOS(XH,XL,COS1,COS2);VALUE XH,XL ;REAL XH,XL,COS1,COS2 ;BEGIN00000400
|
|
REAL YH,YL,TH,TL,PIH,PIL,HPI,LPI,X1,X2 ;INTEGER K,Z ;LABEL L1 ;DOUBLE(,00000500
|
|
1.5707963267948966192313,~,HPI,LPI);DOUBLE(HPI,LPI,XH,XL,+,~,X1,X2);DOUB00000600
|
|
LE(,3.1415926535897932384626,~,PIH,PIL);IF X1 <0 THEN BEGIN Z ~-1 ;X1 ~-00000700
|
|
X1 END ELSE Z ~1 ;DOUBLE (X1,X2,PIH,PIL,-,~,TH,TL);IF TH >0 THEN BEGIN D00000800
|
|
OUBLE (X1,X2,PIH,PIL,/,~,TH,TL);K ~ENTIER(TH);DOUBLE (X1,X2,PIH,PIL,K,0,00000900
|
|
|,-,~,YH,YL);IF BOOLEAN(K)THEN Z ~-Z ;X1 ~YH ;X2 ~YL END ;DOUBLE (X1,X2,00001000
|
|
HPI,LPI,-,~,TH,TL);IF TH >0 THEN BEGIN DOUBLE (X1,X2,PIH,PIL,-,~,X1,X2);00001100
|
|
Z ~-Z END ;IF ABS(X1)<1@-6 THEN BEGIN COS1 ~X1 |Z ;COS2 ~X2 ;GO TO L1 EN00001200
|
|
D ;DOUBLE (X1,X2,X1,X2,|,~,TH,TL);DOUBLE(,0.000000000000000000019048665500001300
|
|
33335316391525,TH,TL,|,,0.0000000000000000082175368816928448362763,-,TH,00001400
|
|
TL,|,,0.0000000000000028114468716922361381682,+,TH,TL,|,,0.000000000000700001500
|
|
6471635152873144058990,-,TH,TL,|,,0.00000000016059043833914603811537,+,T00001600
|
|
H,TL,|,,0.000000025052108385416598499659,-,TH,TL,|,,0.00000275573192239800001700
|
|
5754973821,+,TH,TL,|,,0.00019841269841269840840980,-,TH,TL,|,,0.0083333300001800
|
|
33333333333326353,+,TH,TL,|,,0.16666666666666666666662,-,TH,TL,|,,1.0,+,00001900
|
|
X1,X2,|,Z,0,|,~,COS1,COS2);L1:END ; 00002000
|