Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-03 - decus/20-0078/libsim/intrea.mac
There is 1 other file named intrea.mac in the archive. Click here to see a list.
00100	COMMENT * intrea, SIMULA specification;
00200	OPTIONS(/E:QUICK,intrea);
00300	INTEGER PROCEDURE intrea(x); REAL x;
00400	COMMENT 
00500	Provides type conversion REAL to INTEGER.
00550	The real x is interpreted as an integer quantity with the same bit
00575	pattern.
00700	;
00800	
00900	!*;! MACRO-10 code !*;!
01000	
01100		TITLE	intrea
01200		ENTRY	intrea
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	intrea:	POPJ	17,	;! No change of bit pattern
02600		END;