Artifact 4de290d1e9ba2e23cb5f50108aaef0933273813471dded5a1f03989a5dfcbc0e:
- File
psl-1983/3-1/util/nbig0.build
— part of check-in
[eb17ceb7f6]
at
2020-04-21 19:40:01
on branch master
— Add Reduce 3.0 to the historical section of the archive, and some more
files relating to version sof PSL from the early 1980s. Thanks are due to
Paul McJones and Nelson Beebe for these, as well as to all the original
authors.git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/historical@5328 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 955) [annotate] [blame] [check-ins using] [more...]
- File
psl-1983/util/nbig0.build
— part of check-in
[eb17ceb7f6]
at
2020-04-21 19:40:01
on branch master
— Add Reduce 3.0 to the historical section of the archive, and some more
files relating to version sof PSL from the early 1980s. Thanks are due to
Paul McJones and Nelson Beebe for these, as well as to all the original
authors.git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/historical@5328 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 955) [annotate] [blame] [check-ins using]
% NBIG0.BUILD - MLG, move BUILD info, add MC68000 case Compiletime<<load syslisp; Load Fast!-Vector; load inum; load if!-system>>; in "nbig0.red"$ % Now install the important globals for this machine if_system(VAX, << BigFloatHi!*:=btimes2(bdifference(btwopower 67, btwopower 11), btwopower 60);% Largest representable float. BigFloatLow!*:=BMinus BigFloatHi!*>>); if_system(MC68000, <<Setbits 30$ %/ Some BUG? % HP9836 sizes, range 10^-308 .. 10 ^308 % i GUESS: % 10^308 = 2 ^1025 % 15.8 digits, IEEE double ~56 bits BigFloatHi!*:=btimes2(BSUB1 BTWOPOWER 56, btwopower 961);% Largest representable float. BigFloatLow!*:=BMinus BigFloatHi!*>>); if_system(PDP10, << BigFloatHi!*:=btimes2(bsub1 btwopower 62, btwopower 65); BigFloatLow!*:=BMinus BigFloatHi!*>>); FloatSysHi!* := Float SysHi!*; FloatSysLow!* := Float SysLow!*; END;