Trailing-Edge
-
PDP-10 Archives
-
decuslib20-03
-
decus/20-0078/libsim/reaint.mac
There is 1 other file named reaint.mac in the archive. Click here to see a list.
00100 COMMENT * reaint, SIMULA specification;
00200 OPTIONS(/E:QUICK,reaint);
00300 REAL PROCEDURE reaint(x); INTEGER x;
00400 COMMENT
00500 Provides type conversion INTEGER to REAL.
00550 The integer x is interpreted as a real quantity with the same bit
00575 pattern.
00700 ;
00800
00900 !*;! MACRO-10 code !*;!
01000
01100 TITLE reaint
01200 ENTRY reaint
01300 SUBTTL SIMULA utility, Lars Enderin May 1978
01400
01500 ;!*** Copyright 1978 by the Swedish Defence Research Institute. ***
01600 ;!*** Copying is allowed. ***
01700
01800
01900 sall
02000
02100 ;! Local definitions ;!
02200
02300 result==<x==0>
02400
02500 reaint: POPJ 17, ;! No change of bit pattern
02600 END;