Skip to content

Instantly share code, notes, and snippets.

@Sgeo
Created March 22, 2026 05:02
Show Gist options
  • Select an option

  • Save Sgeo/9d3f4bc9f10762cba8374ad8ad1e6d7e to your computer and use it in GitHub Desktop.

Select an option

Save Sgeo/9d3f4bc9f10762cba8374ad8ad1e6d7e to your computer and use it in GitHub Desktop.
START OF FORTRAN COMPILATION
MACHINE SIZE SPECIFIED IS 08000
ACTUAL MACHINE SIZE IS 16000
PAGE 1
SEQ STMNT FORTRAN STATEMENT
1 A = 0.0**0.0
2 B = 0.0**0
3 I = 0**0
4 PRINT 10, A
5 10 FORMAT(12H 0.0**0.0 = ,F3.1)
6 PRINT 20, B
7 20 FORMAT(10H 0.0**0 = ,F3.1)
8 PRINT 30, I
9 30 FORMAT(8H 0**0 = ,I1)
10 STOP
11 END
194 INPUT CHARACTERS
MODULUS IS 5
MANTISSA IS 8
STORAGE ASSIGNMENT-ARRAYS + EQUATED VARIABLES
NO ARRAYS
STORAGE ASSIGNMENT - SIMPLE VARIABLES
I 4284 28U
B 4294 29U
A 4304 30U
CONSTANTS LOCATED FROM 07975 TO 07999 I7V-I9Z
STARTING ADDRESS OF STATEMENTS
SEQ STARTING ADDRESS DISPLAY
001 30V 4305 30Z
002 32T 4323 32X
003 33Z 4339 34T
004 35V 4355 35Z
006 36W 4366 37|
008 37X 4377 38/
010 38Y 4388 39S
012 39X 4397 40/
END OF COMPILATION
PRESS START TO GO
ZTZ 30Z 000000000!0?
DZE 32X 0000000000000? 000000000?0?
DZE 34T 0000?
0.0**0.0 = 1.0
0.0**0 = X
0**0 = 9
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment