Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-04 - 43,50322/arith.lst
Click 43,50322/arith.lst to see without markup as text/plain
There are no other files named arith.lst in the archive.
ARITH - FORTRAN INTERFACE (ONE ARGUMENT FUNCTIONS)	MACRO %50(272) 22:29 27-MAR-75 PAGE 1
ARITH	MAC	24-MAR-75 22:41	

     1						TITLE ARITH - FORTRAN INTERFACE (ONE ARGUMENT FUNCTIONS)
     2					;
     3					;
     4			000010			STKSIZ==10		;TEMPORARY STACK FOR F10 ROUTINES
     5					;
     6						ENTRY LSQRT,LOG,LOG10,LSIN,LCOS,LACOS,LASIN,LATAN
     7						ENTRY LSINH,LCOSH,LTANH,LEXP,LFLOAT,RANDOM,LSIND,LCOSD
     8						ENTRY FORER.
     9		034000	000000			OPDEF CALL[34B8]
    10		035000	000000			OPDEF JCALL[35B8]
    11			000011			S=11	;## MAKE THE DAMN THING RELOCATABLE
    12			000014			P=14
    13			000001			A=1
    14			000002			B=2
    15						EXTERN MAKNUM,NUMVAL,FLONUM,SQRT,SIN,COS,ATAN,ACOS,ASIN
    16						EXTERN ALOG,ALOG10,SINH,COSH,TANH,EXP,FLOAT,RAN,SIND,COSD
    17					;
    18	000000'	260 17 0 00 000001'	FORER.:	PUSHJ	17,FORPT	;PRINT ERROR MESSAGE
    19					;
    20	000001'	261 17 0 00 000001 	FORPT:	PUSH	17,A		;SAVE A REGISTER
    21	000002'	200 01 0 17 777777 		MOVE	A,-1(17)		;LOAD OLD PC
    22	000003'	135 01 0 00 000140'		LDB	A,[POINT 4,-1(A),12] ;LOAD AC FIELD
    23	000004'	306 01 0 00 000010 		CAIN	A,10		;STRING TO OUTPUT?
    24	000005'	334 01 1 17 777777 		SKIPA	A,@-1(17)	;LOAD ADDRESS OF STRING
    25	000006'	201 01 0 00 000141'		MOVEI	A,[ASCIZ /OVERFLOW/]; DEFAULT STRING
    26						OUTSTR	[ASCIZ /
    27	000007'	051 03 0 00 000143'	? /];				;START OF STRING
    28	000010'	051 03 0 01 000000 		OUTSTR	(A)		;BALANCE
    29						OUTSTR	[ASCIZ /
    30	000011'	051 03 0 00 000144'	/]				;TERMINAL CR/LF
    31	000012'	262 17 0 00 000001 		POP	17,A		;RESTORE REGISTER
    32	000013'	350 00 0 17 000000 		AOS	(17)		;
    33	000014'	263 17 0 00 000000 		POPJ	17,		;RETURN
    34					;
    35					;
    36	000015'	542 02 0 00 000025'	COMP:	HRRM B,JMP
    37	000016'	034 01 0 00 000000*		CALL 1,NUMVAL
    38	000017'	302 02 0 11 000000*		CAIE B,FLONUM(S)
    39	000020'	254 00 0 00 000077'		JRST ,FLT
    40	000021'	202 01 0 00 000107'	SFLTE:	MOVEM A,AR1
    41	000022'	200 01 0 00 000145'		MOVE A,[XWD 0,BLT1]
    42	000023'	251 01 0 00 000127'		BLT A,BLT1+17
    43	000024'	200 17 0 00 000146'		MOVE	17,[IOWD STKSIZ,STKBLK]
    44	000025'	266 16 0 00 000000 	JMP:	JSA 16,.-.
    45	000026'	320 02 0 00 000107'		JUMP 2,AR1
    46	000027'	202 00 0 00 000107'		MOVEM 0,AR1
    47	000030'	200 01 0 00 000147'		MOVE A,[XWD BLT1,0]
    48	000031'	251 01 0 00 000017 		BLT A,17
    49	000032'	200 01 0 00 000107'		MOVE A,AR1
    50	000033'	201 02 0 11 000017*		MOVEI B,FLONUM(S)
    51	000034'	035 02 0 00 000000*		JCALL 2,MAKNUM
    52	000035'	201 02 0 00 000000*	LSQRT:	MOVEI B,SQRT
    53	000036'	254 00 0 00 000015'		JRST ,COMP
    54	000037'	201 02 0 00 000000*	LOG:	MOVEI B,ALOG
    55	000040'	254 00 0 00 000015'		JRST ,COMP

ARITH - FORTRAN INTERFACE (ONE ARGUMENT FUNCTIONS)	MACRO %50(272) 22:29 27-MAR-75 PAGE 1-1
ARITH	MAC	24-MAR-75 22:41	

    56	000041'	201 02 0 00 000000*	LOG10:	MOVEI B,ALOG10
    57	000042'	254 00 0 00 000015'		JRST ,COMP
    58	000043'	201 02 0 00 000000*	LSIN:	MOVEI B,SIN
    59	000044'	254 00 0 00 000015'		JRST ,COMP
    60	000045'	201 02 0 00 000000*	LCOS:	MOVEI B,COS
    61	000046'	254 00 0 00 000015'		JRST ,COMP
    62	000047'	201 02 0 00 000000*	LSIND:	MOVEI B,SIND
    63	000050'	254 00 0 00 000015'		JRST ,COMP
    64	000051'	201 02 0 00 000000*	LCOSD:	MOVEI B,COSD
    65	000052'	254 00 0 00 000015'		JRST ,COMP
    66	000053'	201 02 0 00 000000*	LACOS:	MOVEI B,ACOS
    67	000054'	254 02 0 00 000015'		JRST B,COMP
    68	000055'	201 02 0 00 000000*	LASIN:	MOVEI B,ASIN
    69	000056'	254 00 0 00 000015'		JRST ,COMP
    70	000057'	201 02 0 00 000000*	LATAN:	MOVEI B,ATAN
    71	000060'	254 00 0 00 000015'		JRST ,COMP
    72	000061'	201 02 0 00 000000*	LSINH:	MOVEI B,SINH
    73	000062'	254 00 0 00 000015'		JRST ,COMP
    74	000063'	201 02 0 00 000000*	LCOSH:	MOVEI B,COSH
    75	000064'	254 00 0 00 000015'		JRST ,COMP
    76	000065'	201 02 0 00 000000*	LTANH:	MOVEI B,TANH
    77	000066'	254 00 0 00 000015'		JRST ,COMP
    78	000067'	201 02 0 00 000000*	LEXP:	MOVEI B,EXP
    79	000070'	254 00 0 00 000015'		JRST ,COMP
    80	000071'	034 01 0 00 000016*	LFLOAT:	CALL 1,NUMVAL
    81	000072'	306 02 0 11 000033*		CAIN B,FLONUM(S)
    82	000073'	035 02 0 00 000034*		JCALL 2,MAKNUM
    83	000074'	201 02 0 00 000000*	FLT1:	MOVEI B,FLOAT
    84	000075'	542 02 0 00 000025'		HRRM B,JMP
    85	000076'	254 00 0 00 000021'		JRST ,SFLTE
    86	000077'	540 02 0 00 000025'	FLT:	HRR B,JMP
    87	000100'	542 02 0 00 000106'		HRRM B,AR2
    88	000101'	260 14 0 00 000074'		PUSHJ P,FLT1
    89	000102'	540 02 0 00 000106'		HRR B,AR2
    90	000103'	254 00 0 00 000015'		JRST ,COMP
    91	000104'	201 02 0 00 000000*	RANDOM:	MOVEI B,RAN
    92	000105'	254 00 0 00 000075'		JRST ,FLT1+1
    93	000106'	000000	000000		AR2:	0
    94	000107'	000000	000000		AR1:	0
    95	000110'				BLT1:	BLOCK 20
    96					;
    97	000130'				STKBLK:	BLOCK	STKSIZ
    98					;
    99						END

NO ERRORS DETECTED

PROGRAM BREAK IS 000150
CPU TIME USED 00:00.958

3K CORE USED

ARITH - FORTRAN INTERFACE (ONE ARGUMENT FUNCTIONS)	MACRO %50(272) 22:29 27-MAR-75 PAGE S-1
ARITH	MAC	24-MAR-75 22:41		SYMBOL TABLE

A		000001		
ACOS		000053'	EXT	
ALOG		000037'	EXT	
ALOG10		000041'	EXT	
AR1		000107'		
AR2		000106'		
ASIN		000055'	EXT	
ATAN		000057'	EXT	
B		000002		
BLT1		000110'		
CALL	034000	000000		
COMP		000015'		
COS		000045'	EXT	
COSD		000051'	EXT	
COSH		000063'	EXT	
EXP		000067'	EXT	
FLOAT		000074'	EXT	
FLONUM		000072'	EXT	
FLT		000077'		
FLT1		000074'		
FORER.		000000'	ENT	
FORPT		000001'		
JCALL	035000	000000		
JMP		000025'		
LACOS		000053'	ENT	
LASIN		000055'	ENT	
LATAN		000057'	ENT	
LCOS		000045'	ENT	
LCOSD		000051'	ENT	
LCOSH		000063'	ENT	
LEXP		000067'	ENT	
LFLOAT		000071'	ENT	
LOG		000037'	ENT	
LOG10		000041'	ENT	
LSIN		000043'	ENT	
LSIND		000047'	ENT	
LSINH		000061'	ENT	
LSQRT		000035'	ENT	
LTANH		000065'	ENT	
MAKNUM		000073'	EXT	
NUMVAL		000071'	EXT	
OUTSTR	051140	000000		
P		000014		
RAN		000104'	EXT	
RANDOM		000104'	ENT	
S		000011		
SFLTE		000021'		
SIN		000043'	EXT	
SIND		000047'	EXT	
SINH		000061'	EXT	
SQRT		000035'	EXT	
STKBLK		000130'		
STKSIZ		000010	SPD	
TANH		000065'	EXT	


A	    13#	    20	    21	    22	    23	    24	    25	    28	    31	    40	    41	    42	    47	    48
	    49
ACOS	    15#	    66
ALOG	    16#	    54
ALOG10	    16#	    56
AR1	    40	    45	    46	    49	    94#
AR2	    87	    89	    93#
ASIN	    15#	    68
ATAN	    15#	    70
B	    14#	    36	    38	    50	    52	    54	    56	    58	    60	    62	    64	    66	    67	    68
	    70	    72	    74	    76	    78	    81	    83	    84	    86	    87	    89	    91
BLT1	    41	    42	    47	    95#
COMP	    36#	    53	    55	    57	    59	    61	    63	    65	    67	    69	    71	    73	    75	    77
	    79	    90
COS	    15#	    60
COSD	    16#	    64
COSH	    16#	    74
EXP	    16#	    78
FLOAT	    16#	    83
FLONUM	    15#	    38	    50	    81
FLT	    39	    86#
FLT1	    83#	    88	    92
FORER.	     8	    18#
FORPT	    18	    20#
JMP	    36	    44#	    84	    86
LACOS	     6	    66#
LASIN	     6	    68#
LATAN	     6	    70#
LCOS	     6	    60#
LCOSD	     7	    64#
LCOSH	     7	    74#
LEXP	     7	    78#
LFLOAT	     7	    80#
LOG	     6	    54#
LOG10	     6	    56#
LSIN	     6	    58#
LSIND	     7	    62#
LSINH	     7	    72#
LSQRT	     6	    52#
LTANH	     7	    76#
MAKNUM	    15#	    51	    82
NUMVAL	    15#	    37	    80
P	    12#	    88
RAN	    16#	    91
RANDOM	     7	    91#
S	    11#	    38	    50	    81
SFLTE	    40#	    85
SIN	    15#	    58
SIND	    16#	    62
SINH	    16#	    72
SQRT	    15#	    52
STKBLK	    43	    97#
STKSIZ	     4#	    43	    97
TANH	    16#	    76
CALL	     9#	    37	    80
JCALL	    10#	    51	    82
OUTSTR	    26	    28	    29
AOS	    32
ASCIZ	    25	    26	    29
BLOCK	    95	    97
BLT	    42	    48
CAIE	    38
CAIN	    23	    81
END	    99
ENTRY	     6	     7	     8
EXTERN	    15	    16
HRR	    86	    89
HRRM	    36	    84	    87
IOWD	    43
JRST	    39	    53	    55	    57	    59	    61	    63	    65	    67	    69	    71	    73	    75	    77
	    79	    85	    90	    92
JSA	    44
JUMP	    45
LDB	    22
MOVE	    21	    41	    43	    47	    49
MOVEI	    25	    50	    52	    54	    56	    58	    60	    62	    64	    66	    68	    70	    72	    74
	    76	    78	    83	    91
MOVEM	    40	    46
OPDEF	     9	    10
POINT	    22
POP	    31
POPJ	    33
PUSH	    20
PUSHJ	    18	    88
SKIPA	    24
TITLE	     1
XWD	    41	    47