Google
 

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)	      EXTERN  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
**************