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;