13cb294274
New Hardware support: - IBM 653 Storage Unit: provides machine opcodes for Floating Point, Immediate Access Storage (IAS), Three Index registers, Cards Punch-read synchronizers 2 and 3. New Software included: - FORTRANSIT: version II (S), plus run time PACKAGE with standard Fortran functions. - Reorganized sw directory, separating each language in its own folder. Each one Includes a 00_readme.txt file with restoration notes and comments. New features: - Support for SOAP opcode mnemonics in addition to regular IBM mnemonics - FAST / REALTIME CPU options - PROP pseudo register - CARDDECK ECHOLAST command
39 lines
2.3 KiB
Text
39 lines
2.3 KiB
Text
1
|
|
1 example 1 calculate f of x
|
|
1
|
|
1 f(x) = a*x*x+b*x+c
|
|
1
|
|
1 card output
|
|
1 word1 word2
|
|
1 x f(x)
|
|
1
|
|
blr 1951 1960 read area
|
|
regp0027 0028 punch area
|
|
1
|
|
synstart 1000 prgm start
|
|
1
|
|
startnop 0000 setx
|
|
setx rauone stx set x
|
|
stx stup0001 to 1
|
|
mpya calculate
|
|
alob f
|
|
rau 8002
|
|
mpyp0001
|
|
aloc
|
|
stlp0002
|
|
pchp0001 punch
|
|
raup0001 is x max
|
|
supxmax
|
|
nzu 9999
|
|
aupi01 stx step x
|
|
1
|
|
one 00 0000 0001 constants
|
|
xmax 00 0000 0100
|
|
i01 00 0000 0101
|
|
1
|
|
a 00 0000 0002 params
|
|
b 00 0000 0003 for f(x)
|
|
c 00 0000 0004
|
|
1
|
|
-neg 00 0000 0006
|
|
-negz 00 0000 0000
|