Google
 

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;