Trailing-Edge
-
PDP-10 Archives
-
decuslib10-04
-
43,50322/arith.lst
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