G'day,
IF (COMPLF(-1).LE.2) IF (RSHIFT(COMPLF(0),32)-15) 360,1108,6600
C IF (NOT(-1).LE.2) IF (ISHFT(NOT(0),-32)-15) 360,1108,6600
7094 PRINT *,'IBM 7094'
STOP
360 PRINT *,'IBM 360 (32 BITS)'
STOP
1108 PRINT *,'UNIVAC 1108 (48 BITS)'
STOP
6600 PRINT *,'CDC 6600 (60 BITS)'
STOP
--
Sergey Svishchev -- svs{at}ropnet{dot}ru
Show replies by date