Trailing-Edge
-
PDP-10 Archives
-
decuslib20-02
-
decus/20-0026/loc.scm
There is 1 other file named loc.scm in the archive. Click here to see a list.
File 1) DSK:LOC.MAC[4,361] created: 1014 03-Jul-1980
File 2) DSK:LOC.MAC[4,67] created: 1917 19-Aug-1973
1)1 LOC: MOVE 0,@5(16) ;GET MS
1) SOJL 0,GEN ;MS = 0 FOR GENERAL MATRIX
****
2)1 LOC: 0-0 ;JSA HERE (MUST BE CHANGED FOR FORTRAN-10)
2) MOVE 0,@5(16) ;GET MS
2) SOJL 0,GEN ;MS = 0 FOR GENERAL MATRIX
**************
1)1 POPJ 17,
1) ;HERE IF SYMMETRIC MATRIX
****
2)1 JRA 16,6(16)
2) ;HERE IF SYMMETRIC MATRIX
**************
1)1 POPJ 17,
1) ;HERE FOR ELEMENT IN OTHER HALF OF SYMMETRIC MATRIX
****
2)1 JRA 16,6(16)
2) ;HERE FOR ELEMENT IN OTHER HALF OF SYMMETRIC MATRIX
**************
1)1 POPJ 17,
1) ;HERE FOR GENERAL MATRIX
****
2)1 JRA 16,6(16)
2) ;HERE FOR GENERAL MATRIX
**************
1)1 POPJ 17,
1) END
****
2)1 JRA 16,6(16)
2) END
**************