mirror of
https://github.com/simh/simh.git
synced 2026-02-02 06:42:18 +00:00
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
13 lines
260 B
Plaintext
13 lines
260 B
Plaintext
c rectangular matrix
|
|
c multiplication
|
|
dimension a(4,5), b(5,3)
|
|
read 1,a,b
|
|
read 1,n,m,l
|
|
7 do 4 j=1,n
|
|
1 do 4 i=1,m
|
|
6 sum=0.0
|
|
2 do 3 k=1,l
|
|
3 sum = sum+a(i,k) * b(k,j)
|
|
4 punch 1, sum, i,j
|
|
8 end
|