Trailing-Edge
-
PDP-10 Archives
-
decuslib20-01
-
decus/20-0006/jacobi.scm
There is 1 other file named jacobi.scm in the archive. Click here to see a list.
File 1) DSK:JACOBI[4,425] created: 1900 11-Jul-1973
File 2) DSK:JACOBI.MAC[4,425] created: 1256 09-Aug-1980
1)1 ENTRY JACOBI ;JACOBI002
1) EXTERN N,RHO,F,V,SQRT ;JACOBI003
1) JACOBI:Z ;JACOBI004
1) MOVEM 16,R16 ;JACOBI005
1) MOVEM 17,R17 ;JACOBI005
****
2)1 ; MODIFIED TO CONFORM TO CHANGED FORTRAN CONVENTION 9 AUG 80
2) ; BY PAUL T. ROBINSON, WESLEYAN UNIV., DECUS CONVERSION PROGRAMMER
2) ; THIS CONSISTED OF REVISING THE CALL SEQUENCE TO PUSHJ/POPJ CONVENTION
2) ENTRY JACOBI ;JACOBI002
2) EXTE RN N,RHO,F,V,SQRT ;JACOBI003
2) ; JACOBI:Z ;JACOBI004
2) JACOBI:MOVEM 16,R16 ;JACOBI005
2) MOVEM 17,R17 ;JACOBI005
**************
1)1 JSA 16,SQRT ;TE=SQRT(2.*TE) ;JACOBI026
1) ARG 4,4 ;JACOBI027
1) SETZM 0,MA ;MA=0 ;JACOBI028
****
2)1 ; JSA 16,SQRT ;TE=SQRT(2.*TE) ;JACOBI026
2) ; ARG 4,4 ;JACOBI027
2) EXCH 17,R17 ;GET STACK POINTER BACK
2) PUSH 17,16 ;SAVE AC
2) MOVEI 16,[4] ;ARG IS IN 4
2) PUSHJ 17,SQRT ;CALL
2) POP 17,16 ;RESTORE AC
2) EXCH 17,R17 ;RESTORE AC
2) SETZM 0,MA ;MA=0 ;JACOBI028
**************
1)1 JSA 16,SQRT ;JACOBI066
1) ARG 3,3 ;JACOBI067
1) MOVM 3,7 ;JACOBI068
****
2)1 ; JSA 16,SQRT ;JACOBI066
2) ; ARG 3,3 ;JACOBI067
2) EXCH 17,R17 ;RESTORE STACK POINTER
2) PUSH 17,16 ;SAVE AC 16
2) MOVEI 16,[3] ;ARG IS IN 3
2) PUSHJ 17,SQRT ;CALL
2) POP 17,16 ;RESTORE 16
2) EXCH 17,R17 ;RESTORE 17
2) MOVM 3,7 ;JACOBI068
**************
1)1 JSA 16,SQRT ;JACOBI076
1) ARG 0,0 ;JACOBI077
1) MOVE 7,0 ;COST=SQRT((Z+U)/(2.*Z)) ;JACOBI078
****
2)1 ; JSA 16,SQRT ;JACOBI076
2) ; ARG 0,0 ;JACOBI077
2) EXCH 17,R17 ;RESTORE STACK POINTER
2) PUSH 17,16 ;SAVE AC 16
2) MOVEI 16,[0] ;ARG IS IN 0
2) PUSHJ 17,SQRT ;CALL
2) POP 17,16 ;RESTORE 16
2) EXCH 17,R17 ;RESTORE 17
2) MOVE 7,0 ;COST=SQRT((Z+U)/(2.*Z)) ;JACOBI078
File 1) DSK:JACOBI[4,425] created: 1900 11-Jul-1973
File 2) DSK:JACOBI.MAC[4,425] created: 1256 09-Aug-1980
**************
1)1 JRA 16,0(16) ;RETURN ;JACOBI183
1) A:Z ;JACOBI184
****
2)1 ; JRA 16,0(16) ;RETURN ;JACOBI183
2) POPJ 17,
2) A:Z ;JACOBI184
**************