z`': y: ~ z
~
~
z
v
r7
r7
pwn7l ^7
Zf eeDD& 7
2w ,7o & " $ ~ j
w xw7 w P
~
& y:ρ 8 * TN
&9 * $
9&
2 e * * H
p0&
e l! A * z
*
% *
E *
~
z
ve ,
r7
r7
pwn7l ^7
Zf ee| * 0DD& 7
2 H" y:Ё 1 * TN
&6 * $
6&
2 e * * H
p0&
e l! A * z
*
% *
E *
~
z
ve ,
r7
r7
pwn7l ^7
Zf ee| * 0DD& 7
2 .8BLV`j ~ Z & 4 , 2 7
`&C
`& נ 0נ S ~ W &9 f&( 0 &נ 4נ` 1%& %& $ .
ѐ&eC å1 å9
%&(( ~ Jw`& 7
P(
נ נ0 נ9 Ԑ נ
7
נ נ f&f& !( ~ Z&d%d%5 `(`&%
w * T,7o & " $
w * x xw7 w A * P
P *
[ *
!
} * | R t H
x > &n%&x%n% 0000 ˕/ DDe
d
~ s x% , @ @
>
? & 7
&x%fՋ
D w _ ~ *0
7 w @ ww @
0 0 CaCa` 7! w p `& . נ 0נ W &9 f& * ( 0 &נ 4נ` 1%& %& # *
$ .
ѐ&eC å , .1 å9
%&((w` * T& 7
P(
נd . x נ0 נ9 Ԑ נ
7
c . נ נ f&f& !(Z& " d%d%5 `(`&% * &
p * Օ^ e@ Օ
ĕ
`& . נ 0נ W &9 f& * ( 0 &נ 4נ` 1%& %& # *
$ .
ѐ&eC å , .1 å9
%&((w` * T& 7
P(
נd . x נ0 נ9 Ԑ נ
7
c . נ נ f&f& !(Z& " d%d%5 `(`&% * &
p * Օ^ e@ Օ
ĕ
`& . נ 0נ W &9 f& * ( 0 &נ 4נ` 1%& %& # *
$ .
ѐ&eC å , .1 å9
%&((w` * T& 7
P(
נd . x נ0 נ9 Ԑ נ
7
c . נ נ f&f& !(Z& " d%d%5 `(`&% * &
p * Օ^ e@ Օ
ĕ
~ T&5 EEV!3 `&$ : & w : 6
& 6 v ~ " e " " a
|v 6
@߁W. W' 5 e: w "e v
Nv
, E
~ E %6( e: w "
6 0) W( U 5 " ~
% E "
l f " \E E E! " 0 (* % W * , f T N N J f > , P | R t H
x > &X " vn%&x%n% 0000 , * ˕/ DDe
d
si * x% , @ @ *
>
? & 7
* &x%fՋ
D " w 0
47 w @ ww @ * N
0 0 CaCa3 , r` 7! % W * , f T N N J f > , P | R t H
x > &X " vn%&x%n% 0000 , * ˕/ DDe
d
si * x% , @ @ *
>
? & 7
* &x%fՋ
D " w 0
47 w @ ww @ * N
0 0 CaCa3 , r` 7! % W * , f T N N J f > , P | R t H
x > &X " vn%&x%n% 0000 , * ˕/ DDe
d
si * x% , @ @ *
>
? & 7
* &x%fՋ
D " w 0
47 w @ ww @ * N
0 0 CaCa3 , r` 7! & ~ w T>! 6 F!( & v
( v$ e
d$I
" U U w 0 v$ e
*$I ~
"
U 0
" e " n
* 0 ? h
De $ ыW' , 2 TN
5 ԕ u
i ~ r 7&
/
BU w "
* W ' ы
$ ы De T
N
6
6
Z ~ 6
6 P6
6 Da hWH c
w (W. a S w p R * T&5 ; * EEV!3 `&$ e * : & * w : 6
& 6 v " e " " * ( a
|v 6
@߁W. * L W' 5 e: w "e v * p
Nv
, E
* E %6( eV . : w "
6 0) * W( w p R * T&5 ; * EEV!3 `&$ e * : & * w : 6
& 6 v " e " " * ( a
|v 6
@߁W. * L W' 5 e: w "e v * p
Nv
, E
* E %6( eV . : w "
6 0) * W( w p R * T&5 ; * EEV!3 `&$ e * : & * w : 6
& 6 v " e " " * ( a
|v 6
@߁W. * L W' 5 e: w "e v * p
Nv
, E
* E %6( eV . : w "
6 0) * W( l - & v$ e
P $I ~ b
B " U U U " E 0Q w $ 2 (
e " e 2 e( w , ~ w F6
0 w f4" 6넃 tT
6 0 6 Da6 WE WD v ! 6 F!( a * & v
( v$ e
d$IR *
" U U w 0 v$ , e
*$I
"
*
U 0
" e " n
* 1 * , 0 ? h
De $ ыW' , 2 , P TN
5 ԕ u U 5 * 5 % E * ( "
l f " \E ED , L E! " 0 (* . r & w T>! 6 F!( a * & v
( v$ e
d$IR *
" U U w 0 v$ , e
*$I
"
*
U 0
" e " n
* 1 * , 0 ? h
De $ ыW' , 2 , P TN
5 ԕ u U 5 * 5 % E * ( "
l f " \E ED , L E! " 0 (* . r & w T>! 6 F!( a * & v
( v$ e
d$IR *
" U U w 0 v$ , e
*$I
"
*
U 0
" e " n
* 1 * , 0 ? h
De $ ыW' , 2 , P TN
5 ԕ u " $ 2 w . . . . & e ( E FT
~ B d
$D
V
" U U E
5 5 5
Eǯ &
h ~ )f B)e
`) `)
E
Em
5
E
5
W( b ~ 2 5
U f
5 E
fE`m4 w!. $ * E ~ 1 ww7v ~ U
7&
l * v /
BU w "
* , W ' ы
$ ы 4 * De T
N
6
* 6
6
6 P6
* 6 Da hWH c
w (, * , W. a Sl - & v$ e * P
P $I
B " U U * t U " E 0Q F * w $ 2 (
e : * " e 2 e( w ,
7&
l * v /
BU w "
* , W ' ы
$ ы 4 * De T
N
6
* 6
6
6 P6
* 6 Da hWH c
w (, * , W. a Sl - & v$ e * P
P $I
B " U U * t U " E 0Q F * w $ 2 (
e : * " e 2 e( w ,
7&
l * v /
BU w "
* , W ' ы
$ ы 4 * De T
N
6
* 6
6
6 P6
* 6 Da hWH c
w (, * , W. a Sl - & v$ e * P
P $I
B " U U * t U " E 0Q F * w $ 2 (
e : * " e 2 e( w ,! w >ff& ff&&
7 m E % ( | ~ "!F .TRUE..FALSE. 0!6!=! &f BW!( U E 5!w$ -( w B0 9 ~ ! A Z ! ĕ: ĕ, ĕ f )f
w f
w )7 w " ~ " .GLOBL *" v" J"K"L"N"O"P"T"Y"^"b"f"j"n"r"v" +-***/.OR..AND..NOT..LT..GT..EQ..NE..LE..GE.
" * w F6
0 w f4" 6넃 * tT
6 0 6 D , ( a6 WE WD v * r &
- E E 2* * & * e ( e( v$ e
- D Z * E
Z$R
" U U * U
E 0Q
e " * $ 2 w . . . . & * & e ( E FT
d
# * w F6
0 w f4" 6넃 * tT
6 0 6 D , ( a6 WE WD v * r &
- E E 2* * & * e ( e( v$ e
- D Z * E
Z$R
" U U * U
E 0Q
e " * $ 2 w . . . . & * & e ( E FT
d
$ * w F6
0 w f4" 6넃 * tT
6 0 6 D , ( a6 WE WD v * r &
- E E 2* * & * e ( e( v$ e
- D Z * E
Z$R
" U U * U
E 0Q
e " * $ 2 w . . . . & * & e ( E FT
d
% ~ "
U x
C
å å$ נA e`
~ # B¥ ɥ ɋ
D &f DW R &&f ~ z# #
Ëנ e e e e ѐ
@( &fe B e ~ #m&ff&e Z
e &f $ 2 e & * J $D
V
" U U 9 * n E
5 5 5
*
Eǯ * &
)f B)e
`) * `)
E
Em c *
5
E
* " 5
W( 5
U f% , F
5 E
fE`m4 w!. = , l $ * E ~ 1 ww7 * U' * J $D
V
" U U 9 * n E
5 5 5
*
Eǯ * &
)f B)e
`) * `)
E
Em c *
5
E
* " 5
W( 5
U f% , F
5 E
fE`m4 w!. = , l $ * E ~ 1 ww7 * U( * J $D
V
" U U 9 * n E
5 5 5
*
Eǯ * &
)f B)e
`) * `)
E
Em c *
5
E
* " 5
W( 5
U f% , F
5 E
fE`m4 w!. = , l $ * E ~ 1 ww7 * U) W0 W7 ) ~ j$E0 W0 W9 WA WF E7 X&(̋w . w f($ H X : $SEQ, $ ~ $f&
ɋɥ, ɥ= ɥ( ɥ)
; FORTRAN V001A
& EL&n%%L&x%%L&d%% g ~ Z% & E & ( ' 'y ' N '^ ; # ~ % ; *
w >ff& * ff&&
7 m , E % (E ) ! F .TRUE..FALSE. >!0!6!=! , J!&f BW!( U E 5!w$R p! -( w * !B0 9 A Z , ! ! ĕ: ĕ, ĕ f ( ! )f
w f - $ !
w )7 w * ""+
w >ff& * ff&&
7 m , E % (E ) ! F .TRUE..FALSE. >!0!6!=! , J!&f BW!( U E 5!w$R p! -( w * !B0 9 A Z , ! ! ĕ: ĕ, ĕ f ( ! )f
w f - $ !
w )7 w * "",
w >ff& * ff&&
7 m , E % (E ) ! F .TRUE..FALSE. >!0!6!=! , J!&f BW!( U E 5!w$R p! -( w * !B0 9 A Z , ! ! ĕ: ĕ, ĕ f ( ! )f
w f - $ !
w )7 w * ""- O ~ J& P d %e %P ~ & %Q %P ~ :' ~ ' . .GLOBL *" v" J"K"L"N"% 2"O"P"T"Y"^"b"f"j"n"r" * F"v" +-***/.OR..AND..NOT..LT..GT..EQ.r * j".NE..LE..GE.
* " U x
` * "
C
å å$ נ * "A e`l * "
B¥ ɥ ɋ
* # D &f * B#DW R * f# &&f #
/ .GLOBL *" v" J"K"L"N"% 2"O"P"T"Y"^"b"f"j"n"r" * F"v" +-***/.OR..AND..NOT..LT..GT..EQ.r * j".NE..LE..GE.
* " U x
` * "
C
å å$ נ * "A e`l * "
B¥ ɥ ɋ
* # D &f * B#DW R * f# &&f #
0 .GLOBL *" v" J"K"L"N"% 2"O"P"T"Y"^"b"f"j"n"r" * F"v" +-***/.OR..AND..NOT..LT..GT..EQ.r * j".NE..LE..GE.
* " U x
` * "
C
å å$ נ * "A e`l * "
B¥ ɥ ɋ
* # D &f * B#DW R * f# &&f #
1 ~ *( MAIN. DATA. ~ ( ~ ) > ~ ) 2
* #Ëנ e e e e ѐ
* #
@( &f * #e B e m * #&ff&e Z
* $ e &f * >$$ 2 e W0 W * b$W7 E0 W0 W9 W , $A WF E7 X&( " $̋w . w f($ H * $ X : $SEQ, $f&
ɋ 3
* #Ëנ e e e e ѐ
* #
@( &f * #e B e m * #&ff&e Z
* $ e &f * >$$ 2 e W0 W * b$W7 E0 W0 W9 W , $A WF E7 X&( " $̋w . w f($ H * $ X : $SEQ, $f&
ɋ 4
* #Ëנ e e e e ѐ
* #
@( &f * #e B e m * #&ff&e Z
* $ e &f * >$$ 2 e W0 W * b$W7 E0 W0 W9 W , $A WF E7 X&( " $̋w . w f($ H * $ X : $SEQ, $f&
ɋ 5 @) 2 ~
* 4* .$$$$. Z*:.2455589$: J!&
! ~ *@ !>%Z% *%6- -$- Z&>%>%
L&.
ѕ? ѕ
ѕ
ѕ
`&whZ& ~ *Z%&
f ,L%/ z rW 7
4 F%/ D <W 7
R%/ 6 * $ɥ, ɥ= ɥ( ɥ)
9 % * (%; FORTRAN V001A
& EL&n%%l * L%L&x%%L&d%% & E & C * p%( ' 'y ' % N '^ ;O %; L& P # * &d %e %P %Q %P Q
& (MAIN. DATA. * ( * ( 7 * $ɥ, ɥ= ɥ( ɥ)
9 % * (%; FORTRAN V001A
& EL&n%%l * L%L&x%%L&d%% & E & C * p%( ' 'y ' % N '^ ;O %; L& P # * &d %e %P %Q %P Q
& (MAIN. DATA. * ( * ( H * $ɥ, ɥ= ɥ( ɥ)
9 % * (%; FORTRAN V001A
& EL&n%%l * L%L&x%%L&d%% & E & C * p%( ' 'y ' % N '^ ;O %; L& P # * &d %e %P %Q %P Q
& (MAIN. DATA. * ( * ( E ~ r+ d,W Z%>%d%
n%n,%n%7
x%~,%x%7
%d%i ~ +(
) w 4 w
7
07
7
7
)Е * *Е *(4w z ~ b,7
7
7
%n%7
%x%d%d% n%n% x%x%>%Z% 7
!Z ~ , S .
-
-- w &Z%# 0000 ERRORS
4d N(f
`A
F ( * ) $ * ) * ) @) * ) [ * * 4* .$$$$.I $ <* u Z*Z*:.245 f*5589$: * p* J!&
!@ !>%Z%k $ * *%6- -$ $ *- Z&>%G ( * ) $ * ) * ) @) * ) [ * * 4* .$$$$.I $ <* u Z*Z*8|** 6p85 f*.,t/ n* | w ' 7(
F & * ++
_ , * 6 : d,x d, """"""" """" DDDDDDD @DDDDDD """"""""""""" DDDDDDDDDDDD """"""""""" @DDDDDDDDDDDDD """""""""""" DDDDDDDDDDDD A D D B C '%& % ? '{ e w f5 eU@ [ *
&
* G & ( 8L' 4 e Q$
BBB"
U @ U
e
" U%Ge f.
U
U Bb
0
* BI w 0 & \b ~ R- 8 FA P X5 @ z E m C 6 6 @ @ @ E C n ,& f
y ~ -* L 5 2w &2 "X { 2 rw 1 @
7 fg- ~ B. 7 ~ &P w 2 NL $ w5 bw 2w %2 5 @ m ~ . E e R
J >%
, *L&.
ѕ? ѕ
ѕ
ѕ
`&whw 0 *Z&Z%&
f , . +L%/ z rW 7
4 * H+F%/ D <W 7
R% . l+/ d,W Z%W & +>%d%
n%n, +%n%7
x% +~,%x%7
%] " +d%(
) w , 4 w
a ,
7
07
7
7
K e
d, * * + Å " * &f(( ( * + 7
&^, ! , 2+ ~+ + * X+ ~+ W #
& |+ +++++++++, +,,,,",+,2,A,G,N, * +T,Z,^, SUBROUTINEFUNCTIONBLOCKDATAE* * +XTERNALDEFINEFILETYPEDIMENSIONCOMMON< * +EQUIVALENCEDATAIMPLICITENDLOGICAL*1L * ,OGICALINTEGER*L ( * ) $ * ) * ) @) * ) [ * * 4* .$$$$.I $ <* u Z*Z*4|*0*.U f*..(/F t w ^L2N $ ,, )Е * J, *Е *(4w d,7
7
7
%n%Z $ z,7
%x%d%d%x $ , n%n% x% $ ,x%>%Z% 7
^ * , ! S .
-
-f % ,- w &Z%# 0000 ERRORS
-4d N( * -f
`A
w * B-0 & \ 8 FA f- P X5 @ z O 2INTEGERDOUBLEPRECISIOM , @,NDOUBLECOMPLEXREAL*8REAL*4REAL++ 7w f,j8|,8z6L+.< r,@0F+P7ɋ
, ,(( $( 0
, & , N
e 6
6
( , F %
,E 5
* ,W(
e
e , -
E
*
X <-e 6
* L-6
6
! g { b * p-`P e
d, * * + Å " * &f(( ( * + 7
&^, ! , 2+ ~+ + * X+ ~+ W #
& |+ +++++++++, +,,,,",+,2,A,G,N, * +T,Z,^, SUBROUTINEFUNCTIONBLOCKDATAE* * +XTERNALDEFINEFILETYPEDIMENSIONCOMMON< * +EQUIVALENCEDATAIMPLICITENDLOGICAL*1L * ,OGICALINTEGER*Q w XL2
F L 7
7
w L2w L2w %2 ~ 1 @ 7a& * 7
$ w y2 F r7
w @ E bw _2 ))J w 1 ~ 1Jw , w 1 J w , w r1 ~ JJ .GLOBL $READ, $WRITE, $DC $IC $LC .END MAIN. .GLOBL $EXIT
~ 2 $EXIT
: MOV MOV -(%0),-(%6)
JMP @(%4)+
+10,%0
BR +4,%0
BR MOV -(%0),-(%6)
(%5) -4 ,%0 ADD #10,%0
~ z2ADD #4,%0
. = R F -E m C 6 6 * -@ @ @ E C n ,& * - f
* L 5 & - 2w &2 ' * . "X { 2 % & &. rw 1 @
7 fg- * F.7 ~ &P w * j. 2 NL $ w5 * . bw 2w %2 5 . @ E e . R
S
e W, W) X
, - E?E 2Q < . @K & - . 4 A X -
E $ -& )& E c .
x ( *.e n
Ze * L. & r
>5
p.5 & , .E
w w .GLOBL $ADJ
& . l 6
.v 6 v T 2INTEGERDOUBLEPRECISIOM , @,NDOUBLECOMPLEXREAL*8REAL*4REAL++ . f,|,L+ r,,/F+4ɋ
, ,(( $( 0
, * , < ^ɥ/
Rɥ/ z * , ы.$*$*7
F7
D7
By . , "ѥ/ *2*
7, 0 -7, 7,
e
e \ ( 8--J
$*
7 Z-&* J?< 55 t-4U U .+ : 0
: 0,0
: 0,0,0,0
-( &f&f
8 7
444( ~ 244 @
! e W &&4%
D ! ҕ^ e@
% %@ ~ j3
x "W0 Օ 7x7u
Le B5
8 2
a
44 4 ~ 3 e@
%W!<&Օ
Օ
B l e - xLJ- (%4W!&Օ
Օ
% 4 44. V * .
& . /w
7t 5 5 * 0/ 2 2 * T/2 (w e w , x/# L j @b
:H & /T32 5 w nU , /g2 32
w XE2CF Zw H ( /d2
w b# CF 8 . /w
J * 0@2 l "w 1 * 80w 1I *W e
* . 0 2* ( / EE 8 2Q \ + E 8 o " &/ E3Q U
9 , B/ɋ ɋ
W, * h/e & 4 * / m$" C C C E$
` & / v 3 ( / 7 E E E Ev " /e wa- 0 EE
y " $0sQ
e X
( $ -,
7- ^H , - ¥, ¥/ *ɋ
7f-bb * - +,-2* w ( -
w . w . , . &
f AB & m` * :.w . a | &
* ^.
D z a * . w .e v =.+ .CSEC .T .=.+ .$$$$. * .&f P * e
* . Y ~ Z4((
f
4 (4 T w B[]
ERROR
;***DIAGNOSTIC TABLE OVERFLOW
~ 44 & 4 '%& &n%&x% - % P 5 e0 췼)z3 ~ J5)r 5 pzkrc | $RET $POPR &
&
&f&f&
&
&
A &
&
$ m" p ~ 5$
DE v!$ w + --
'DE 0 0 L Z w , B $ \0 w 1O w 1 XR z0 2w 1 w \ , 0B7aR?& 7
w tk2 >F t8 0 w ^L2w XL2 s ( 0
F L 7
h 07
w L2w L2v * 1w %2 @ 7a& * $ & ,17
$ w y2 F r7
W ( L1 w @ E bw " n1_2 ))J w 1 * 1Jw , w 1 J w , w [ @w r & @0 f RX l `0
h0 jven] z0 v 6F ^ * 0 @B,¥/ R ɋ `ɥ,
( 00 J F \0 2\ ! 07 .CSECT
$TR :
D * 0c&f7
7
D7
D < v . 1 ,, v
* B1,
,
* f1 /
/
e d , 1ɥ/ / 7
\
m m] . . D D D E E *' * &/ &f m\&f& * J/4 6 m<
@ ! * n/
T `
@ A @
* /4 ` r " * /
f
@a * /
b @*\ * / & $
¥, * "0 < l & ¥( &
& , F0 N ¥, ] 9 Q
0 $ F ~ :6aB A @ v!$ N /# cw & 23
w e . v ~ 6v
w (E D N
"
v!$ DE+ -
v!$ DE 0 0 9 0 ` av!$ ~ *7 ` " w
4 4f& ( " m B A @ m A @ m @ c
e
~ 7
e =- 9 B 6
C B ^ r" * 11 ~ JJ .GLOBL $READ, _ * 1$WRITE, $DC $IC $LC .END MAIN. .G * 1LOBL $EXIT
$EXIT
: MOV MOV -(% * 20),-(%6)
JMP @(%4)+
+10,%0
BR. * >2 +4,%0
BR MOV -(%0),-(%6)
(%5J * b2) -4 ,%0 ADD #10,%0
ADD #4,%0
u ' 2. = .+ : 0
: 0,0
: 0,0,0,0
< * 2-( &f&f
8 * 27
444( ? * 244 @
! W _ nv P ! 1
m 1 *7 &h & 1< Ĝ
E % 2*# * 1
2 z hw N 2w
e< @U @ * :2 2 @ KF n $ ^2 2 4 R |2
L5 =.
. = . = 2 b
* 2 5
f &J , 2+ j aC
7` * 2 g ` & < * l0¥, ¥) 7e = , 0 <
&e 7 " < j * 0
B B B E * 0`` >
+\ B0 * 0 <1 DmC
D1 , "1 1 aw
; @
@* * H1 7
. 0
7
7
l1 61 * l1B D lD l 7!& * 17 e . 1 J"& e a A @ #" B A @ C6 v " $ e ~ 8 V w J
&f 8 2 &f eB A @ eA @ e@ e B A @ ~ 8 () () !) e $$ r9 ,
,
, ĕO ĕP ~
9 7)7) H < ~ 0 rCF 5
5
$ENDD ~ 9 p > xɥ0
fb * 3 e W &&4% . 83
D ! ҕ^ e@
%e * `3 %
x "W0 * 3Օ 7x7u
Le * 3B5
8 2
a
* 3 44 4 e@
* 3%W!<&Օ
Օ
B l e * 4 - xLJ- (%4W!& * 84Օ
Օ
% 4 44
. \4((
f
4^ c h L* B
7
<V3 3 F
$mn $ (3
V3 + $ F3 P | . =
* * d3 m*G7 ɥ( PɥO GɥZ G . 3ɥ- =ɥ+
nD Bɥ* #% A 6 * 3
;7
7ɥ( *ɥ- ɥO i * 3ɥZ ɥ+
" ZTW * 3 2 7
G * 4 bi7
$ j EE * @4 0w 6 k z % % d Ll L 1 * 1 v & D B1 J" c * 2 @ ?w 0; @
7
4+ ( $2 .22 ,Bm^< w $ F2J @w ; w d2, g & |2 D 7. tm
g * 22 f BmU 2
E 2*- , 2
73 x (w : 2t3 l w N+ Xm ( 2 ". w *D7!8 3(mp5 @ e
D z% ɋ 3 .TITLE .CSECT
.GLOBL : JSR %4,$POL ~ 9SH
.GLOBL $POLSH,$NAM,$SEQ
$NAM,0,0,
w 9 (% 9 \w 9 w 9e ~ r: Rw , F އ z ;H;
f&
e f; fD; d ` P ~ :P w p0;&./ FTN000.OVL
;:; z;.;8;B;L;V;`;0 ~ b;j .8BLVf * 4 (4 T w B[]
ERROR * 4
;***DIAGNOSTIC TABLE OVERFLOW
, 4 4 & 4 '%& & 4n%&x% & 4 - % - $ 5 P 5 = 65e0 췼)z)r N5 5 p f5zkrc ! x5 | $RET $POPR q * 5&
&
&f&f&
&
&
A &
* 5&
$ m" $
DE v!g ! d4 z4 0
* 4 % % Ü* * 4 E & & 2 * 4 &
5 2E
e * 4
. &, . .WORD * 5 &
# > @ @ @ @a * 45
&
2
@ @ @ @ * X5@a
(5 w( * |5 f! x@ >% ; p 5ѥ, 6 & & NV . 5' %% "ѥh "U @ . 43^ ~w u3 pw + C Z * \3 j Fb . = w 3Y $ 3F F 3 p w 33 m xF $ 3 r
w \4w zCm5 @ ; & 3U @ C mf 2 * 3 . =.+ $TR, =.
& * 4e Af& e & * >4 &A mDC !e * b4e R$
V*d * 4 `j (N6j 5 .8BLV, * 5`j (N x7w f݂77 FILE $ 7Y B7
P y j709 $ 7 e ݃ fU U " 7 E 8 P M ( 7E
(
- ! & 8 ~ ꗠ( 7
: 8U e - ( , . :8 ꗠ, ) E U " b8U 7
vU 7l T? * ~8Ʃ (O . 9 xɥ0
f
D zR 9% ɋ 3 f * 9 .TITLE .CSECT
.GLOBL : JSR %4, * 9$POLSH
.GLOBL $POLSHs 9 6 7 8 pꗠ, ) 8 & 8 ` E U + * 8w X8 ( V 0ꗠ, : 8 .GLOBL * 8z9 d
f&
* 9e 9 f9
* :9 d ` .(P ^9 w 9&./ * 9 FTN000.OVL
v99 9 9.989B
:a 9L:V&:`4:j 9 .8BLV2 * 9t .) y:ҁ B * TN
&= * $
=&
2 e * * H
p0&
e l! A * z
*
% *
E *
~
z
ve ,
r7
r7
pwn7l ^7
Zf ee| * 0DD& 7
2u `& . נ 0נ W &9 f& * ( 0 &נ 4נ` 1%& %& # *
$ .
ѐ&eC å , .1 å9
%&((w` * T& 7
P(
נd . x נ0 נ9 Ԑ נ
7
c . נ נ f&f& !(Z& " d%d%5 `(`&% * &
p * Օ^ e@ Օ
ĕ
v ,$NAM,$SEQ
$ :NAM,0,0, $:
w 9 " ::(% 9 \# V:w 9 w U " n:9e Rw , F ނ : * :zH; d
f&
% * :e f; fD; 7 * : d ` P : w p0;&./ * ; FTN000.OVL
;:; B; z;.;8;B;V V;L;V;` `j (N , P | R t H
x > &X " vn%&x%n% 0000 , * ˕/ DDe
d
si * x% , @ @ *
>
? & 7
* &x%fՋ
D " w 0
47 w @ ww @ * N
0 0 CaCa3 , r` 7! ;j d; .8BLV * p;`j (N , P | R t H
x > &X " vn%&x%n% 0000 , * ˕/ DDe
d
si * x% , @ @ *
>
? & 7
* &x%fՋ
D " w 0
47 w @ ww @ * N
0 0 CaCa3 , r` 7! U 5 * 5 % E * ( "
l f " \E ED , L E! " 0 (* . r & w T>! 6 F!( a * & v
( v$ e
d$IR *
" U U w 0 v$ , e
*$I
"
*
U 0
" e " n
* 1 * , 0 ? h
De $ ыW' , 2 , P TN
5 ԕ u w * T,7o & " $
w * x xw7 w A * P
P *
[ *
!
} * , P | R t H
x > &X " vn%&x%n% 0000 , * ˕/ DDe
d
si * x% , @ @ *
>
? & 7
* &x%fՋ
D " w 0
47 w @ ww @ * N
0 0 CaCa3 , r` 7! U 5 * 5 % E * ( "
l f " \E ED , L E! " 0 (* . r & w T>! 6 F!( a * & v
( v$ e
d$IR *
" U U w 0 v$ , e
*$I
"
*
U 0
" e " n
* 1 * , 0 ? h
De $ ыW' , 2 , P TN
5 ԕ u * w F6
0 w f4" 6넃 * tT
6 0 6 D , ( a6 WE WD v * r &
- E E 2* * & * e ( e( v$ e
- D Z * E
Z$R
" U U * U
E 0Q
e " * $ 2 w . . . . & * & e ( E FT
d
% W * , f T N N J f > , P | R t H
x > &X " vn%&x%n% 0000 , * ˕/ DDe
d
si * x% , @ @ *
>
? & 7
* &x%fՋ
D " w 0
47 w @ ww @ * N
0 0 CaCa3 , r` 7! w p R * T&5 ; * EEV!3 `&$ e * : & * w : 6
& 6 v " e " " * ( a
|v 6
@߁W. * L W' 5 e: w "e v * p
Nv
, E
* E %6( eV . : w "
6 0) * W(
7&
l * v /
BU w "
* , W ' ы
$ ы 4 * De T
N
6
* 6
6
6 P6
* 6 Da hWH c
w (, * , W. a Sl - & v$ e * P
P $I
B " U U * t U " E 0Q F * w $ 2 (
e : * " e 2 e( w , * J $D
V
" U U 9 * n E
5 5 5
*
Eǯ * &
)f B)e
`) * `)
E
Em c *
5
E
* " 5
W( 5
U f% , F
5 E
fE`m4 w!. = , l $ * E ~ 1 ww7 * U w p R * T&5 ; * EEV!3 `&$ e * : & * w : 6
& 6 v " e " " * ( a
|v 6
@߁W. * L W' 5 e: w "e v * p
Nv
, E
* E %6( eV . : w "
6 0) * W( U 5 * 5 % E * ( "
l f " \E ED , L E! " 0 (* . r & w T>! 6 F!( a * & v
( v$ e
d$IR *
" U U w 0 v$ , e
*$I
"
*
U 0
" e " n
* 1 * , 0 ? h
De $ ыW' , 2 , P TN
5 ԕ u * w F6
0 w f4" 6넃 * tT
6 0 6 D , ( a6 WE WD v * r &
- E E 2* * & * e ( e( v$ e
- D Z * E
Z$R
" U U * U
E 0Q
e " * $ 2 w . . . . & * & e ( E FT
d
w >ff& * ff&&
7 m , E % (E ) ! F .TRUE..FALSE. >!0!6!=! , J!&f BW!( U E 5!w$R p! -( w * !B0 9 A Z , ! ! ĕ: ĕ, ĕ f ( ! )f
w f - $ !
w )7 w * "" U 5 * 5 % E * ( "
l f " \E ED , L E! " 0 (* . r & w T>! 6 F!( a * & v
( v$ e
d$IR *
" U U w 0 v$ , e
*$I
"
*
U 0
" e " n
* 1 * , 0 ? h
De $ ыW' , 2 , P TN
5 ԕ u
7&
l * v /
BU w "
* , W ' ы
$ ы 4 * De T
N
6
* 6
6
6 P6
* 6 Da hWH c
w (, * , W. a Sl - & v$ e * P
P $I
B " U U * t U " E 0Q F * w $ 2 (
e : * " e 2 e( w , * J $D
V
" U U 9 * n E
5 5 5
*
Eǯ * &
)f B)e
`) * `)
E
Em c *
5
E
* " 5
W( 5
U f% , F
5 E
fE`m4 w!. = , l $ * E ~ 1 ww7 * U .GLOBL *" v" J"K"L"N"% 2"O"P"T"Y"^"b"f"j"n"r" * F"v" +-***/.OR..AND..NOT..LT..GT..EQ.r * j".NE..LE..GE.
* " U x
` * "
C
å å$ נ * "A e`l * "
B¥ ɥ ɋ
* # D &f * B#DW R * f# &&f #
7&
l * v /
BU w "
* , W ' ы
$ ы 4 * De T
N
6
* 6
6
6 P6
* 6 Da hWH c
w (, * , W. a Sl - & v$ e * P
P $I
B " U U * t U " E 0Q F * w $ 2 (
e : * " e 2 e( w , * w F6
0 w f4" 6넃 * tT
6 0 6 D , ( a6 WE WD v * r &
- E E 2* * & * e ( e( v$ e
- D Z * E
Z$R
" U U * U
E 0Q
e " * $ 2 w . . . . & * & e ( E FT
d
w >ff& * ff&&
7 m , E % (E ) ! F .TRUE..FALSE. >!0!6!=! , J!&f BW!( U E 5!w$R p! -( w * !B0 9 A Z , ! ! ĕ: ĕ, ĕ f ( ! )f
w f - $ !
w )7 w * ""
* #Ëנ e e e e ѐ
* #
@( &f * #e B e m * #&ff&e Z
* $ e &f * >$$ 2 e W0 W * b$W7 E0 W0 W9 W , $A WF E7 X&( " $̋w . w f($ H * $ X : $SEQ, $f&
ɋ * w F6
0 w f4" 6넃 * tT
6 0 6 D , ( a6 WE WD v * r &
- E E 2* * & * e ( e( v$ e
- D Z * E
Z$R
" U U * U
E 0Q
e " * $ 2 w . . . . & * & e ( E FT
d
* J $D
V
" U U 9 * n E
5 5 5
*
Eǯ * &
)f B)e
`) * `)
E
Em c *
5
E
* " 5
W( 5
U f% , F
5 E
fE`m4 w!. = , l $ * E ~ 1 ww7 * U .GLOBL *" v" J"K"L"N"% 2"O"P"T"Y"^"b"f"j"n"r" * F"v" +-***/.OR..AND..NOT..LT..GT..EQ.r * j".NE..LE..GE.
* " U x
` * "
C
å å$ נ * "A e`l * "
B¥ ɥ ɋ
* # D &f * B#DW R * f# &&f #
* $ɥ, ɥ= ɥ( ɥ)
9 % * (%; FORTRAN V001A
& EL&n%%l * L%L&x%%L&d%% & E & C * p%( ' 'y ' % N '^ ;O %; L& P # * &d %e %P %Q %P Q
& (MAIN. DATA. * ( * ( * J $D
V
" U U 9 * n E
5 5 5
*
Eǯ * &
)f B)e
`) * `)
E
Em c *
5
E
* " 5
W( 5
U f% , F
5 E
fE`m4 w!. = , l $ * E ~ 1 ww7 * U
w >ff& * ff&&
7 m , E % (E ) ! F .TRUE..FALSE. >!0!6!=! , J!&f BW!( U E 5!w$R p! -( w * !B0 9 A Z , ! ! ĕ: ĕ, ĕ f ( ! )f
w f - $ !
w )7 w * ""
* #Ëנ e e e e ѐ
* #
@( &f * #e B e m * #&ff&e Z
* $ e &f * >$$ 2 e W0 W * b$W7 E0 W0 W9 W , $A WF E7 X&( " $̋w . w f($ H * $ X : $SEQ, $f&
ɋ ( * ) $ * ) * ) @) * ) [ * * 4* .$$$$.I $ <* u Z*Z*9**68 f* L w ' 6) *
B &u $ * * @+& " * x @+
w >ff& * ff&&
7 m , E % (E ) ! F .TRUE..FALSE. >!0!6!=! , J!&f BW!( U E 5!w$R p! -( w * !B0 9 A Z , ! ! ĕ: ĕ, ĕ f ( ! )f
w f - $ !
w )7 w * "" .GLOBL *" v" J"K"L"N"% 2"O"P"T"Y"^"b"f"j"n"r" * F"v" +-***/.OR..AND..NOT..LT..GT..EQ.r * j".NE..LE..GE.
* " U x
` * "
C
å å$ נ * "A e`l * "
B¥ ɥ ɋ
* # D &f * B#DW R * f# &&f #
* $ɥ, ɥ= ɥ( ɥ)
9 % * (%; FORTRAN V001A
& EL&n%%l * L%L&x%%L&d%% & E & C * p%( ' 'y ' % N '^ ;O %; L& P # * &d %e %P %Q %P Q
& (MAIN. DATA. * ( * ( ***** *+ +++++ +#+(+-+I * *3+<+@+ ENDFORMATDOASSIGNCALLCONTINUc * +ERETURNGOTOIF(PAUSESTOPREADPRINTWRIT $ ,+EREWINDBACKSPACEFIND975y J+f+A T+
^+ * b+w J & W) W= . + EW! N H - L " + v - < f ` +F Z P
* R +!
eF+@+ @+7
* +
$F .GLOBL *" v" J"K"L"N"% 2"O"P"T"Y"^"b"f"j"n"r" * F"v" +-***/.OR..AND..NOT..LT..GT..EQ.r * j".NE..LE..GE.
* " U x
` * "
C
å å$ נ * "A e`l * "
B¥ ɥ ɋ
* # D &f * B#DW R * f# &&f #
* #Ëנ e e e e ѐ
* #
@( &f * #e B e m * #&ff&e Z
* $ e &f * >$$ 2 e W0 W * b$W7 E0 W0 W9 W , $A WF E7 X&( " $̋w . w f($ H * $ X : $SEQ, $f&
ɋ ( * ) $ * ) * ) @) * ) [ * * 4* .$$$$.I $ <* u Z*Z*;** f* L w ' 6) *
B &u $ * * @+& " * x @+ :
( ,
7
f b Z * @, , ,e > , d,
. :
p * ,e
W, ~ Se
c * ,
! U P
. * ,GLOBL $TSI
.GLOBL $TSR
.GLOBL $T' ,SD
,,, .GLOBL $TRTST
e , -w 0 $
3-F0-B * 6-) $)&f 7tW= . Z-
W)
R T
* #Ëנ e e e e ѐ
* #
@( &f * #e B e m * #&ff&e Z
* $ e &f * >$$ 2 e W0 W * b$W7 E0 W0 W9 W , $A WF E7 X&( " $̋w . w f($ H * $ X : $SEQ, $f&
ɋ * $ɥ, ɥ= ɥ( ɥ)
9 % * (%; FORTRAN V001A
& EL&n%%l * L%L&x%%L&d%% & E & C * p%( ' 'y ' % N '^ ;O %; L& P # * &d %e %P %Q %P Q
& (MAIN. DATA. * ( * ( ***** *+ +++++ +#+(+-+I * *3+<+@+ ENDFORMATDOASSIGNCALLCONTINUc * +ERETURNGOTOIF(PAUSESTOPREADPRINTWRIT $ ,+EREWINDBACKSPACEFIND;9 J+f+A T+D-*-H-_
^+N- * b+w J & W) W= . + EW! N l - L " + v - < f ` +F Z P
* R +!
eF+@+ @+7
* +
$F v * -!w v- p(
ft * -{& E P
* - Jp7 O$4 * - 4 &gU {$ eu# * . CEE BPBeᷣW[ * 6. PBCCBEE * Z. P b f @ 0Q * ~. PRT!f. p1 * . f w
0Q P7 * .BE@C %FK * $ɥ, ɥ= ɥ( ɥ)
9 % * (%; FORTRAN V001A
& EL&n%%l * L%L&x%%L&d%% & E & C * p%( ' 'y ' % N '^ ;O %; L& P # * &d %e %P %Q %P Q
& (MAIN. DATA. * ( * ( ( * ) $ * ) * ) @) * ) [ * * 4* .$$$$.I $ <* u Z*Z*<*7* J f* L w ' 6) *
B &u $ * * @+& " * x @+ :
( ,
7
f b
0 * @, , ,e > , d,
. :
p * ,e
W, ~ Se
c * ,
! U P
. * ,GLOBL $TSI
.GLOBL $TSR
.GLOBL $T' ,SD
,,, .GLOBL $TRTST
e * - D
f(- *4 ) . 4-f<-5 &
B * \- ( A B J , .(
w w &&f * / n ) "
* 4/T ) "
: ) "D * X/
U 7z7V& V * |/ &
w E p U j, * / &f 84 & F( * /
#F f 2
* / 5 $ , . 0) 0%
+ EP ! * 40 ` !w ( * ) $ * ) * ) @) * ) [ * * 4* .$$$$.I $ <* u Z*Z*7|**,
7! f* a n* | w ' 7(
F & * ++
_ , * 6 : d,x d, ***** *+ +++++ +#+(+-+I * *3+<+@+ ENDFORMATDOASSIGNCALLCONTINUc * +ERETURNGOTOIF(PAUSESTOPREADPRINTWRIT $ ,+EREWINDBACKSPACEFINDT<5: J+8f+X; T+R;7
^+7] * b+w J & W) W= . + EW! N H - L " + v - < f ` +F Z P
* R +!
eF+@+ @+7
* +
$F * -# |, ) ¥' 6 C R * - D&
]EB2 ~AD @ . -7 w <2w X$ * -c2 b2\ E/ * .% w 2 v # * 8. , U) ) * \., F neg]
, .C `
`
C f2 6w)3( .w)+ X r B * . ) w V2 A 2 , .w * X0 f
bU rl
* |0H&
&
H % , 0`5 \ 5 VX5 # 0
8 R " * 0 E 1
@uuE , 0 '5 #R5 N $1ݵ 61 ~A p* , P1 CF ^P : . v1 CE 11ĕ L\ $ 1ĕ$ D1 <Ĝ1 4)) e
d, * * + Å " * &f(( ( * + 7
&^, ! , 2+ ~+ + * X+ ~+ W #
& |+ +++++++++, +,,,,",+,2,A,G,N, * +T,Z,^, SUBROUTINEFUNCTIONBLOCKDATAE* * +XTERNALDEFINEFILETYPEDIMENSIONCOMMON< * +EQUIVALENCEDATAIMPLICITENDLOGICAL*1L * ,OGICALINTEGER* :
( ,
7
f b Z * @, , ,e > , d,
. :
p * ,e
W, ~ Se
c * ,
! U P
. * ,GLOBL $TSI
.GLOBL $TSR
.GLOBL $T' ,SD
,,, .GLOBL $TRTST
e , -w ҅0 $
3-F0-B * 6-) $)&f 7tW= . Z-
W)
R T B2 L +w N. " * /) w 40 , B2
o . (/ w . ) G w 0 p 0 P/@ . 2 jygq_F $ z/ z b7
` n\ * / -( w
T) '9 , /Cנ נ= |
T J7
, / , )
7
" 0H
X2 8 * $0 Cנ נ(
r * H0 w 2 1)) B \ , . 1 TBIIRDC 5 h5 f5 d&
7W * 17^ ĕ$ E
i5T . 2 j5 ' C EĜ1 D2 1 ﳼ)))) * ^2 M w " 2 1 \ ))))8 * 2 h R zE w AA
d5. 2 1 ﷼)) $ 2 * D <E 537`c 2.3 3 2INTEGERDOUBLEPRECISIOM , @,NDOUBLECOMPLEXREAL*8REAL*4REAL++ . f,|,L+ r,F+7ɋ
, ,(( $( 0
, ,7 >7 w b * , ɥ( 8% ? " ,5 E aU @ 4 " ,Eǡ B w \.
u -F ~ w & ,-b.&
b=
V- , L- 8ɥ, $ɥ) ! 6E ^ r- v * -!w v- p(
ft * -{& E P
* - Jp7 O$4 * - 4 &gU {$ eu# * . CEE BPBeᷣW[ * 6. PBCCBEE * Z. P b f @ 0Q * ~. PRT!f. p1 * . f w
0Q P7 * .BE@C %FK A
bw * l0Z f&
(
, I * 0)
Bw
f TM . 0 D=
*
$)ӝb * 0 ą7
N # " 1 N $ 1
7 = [ . :1) w Zw J
) " b1w 2
T v ~1 2 L:2 X)B 1): f PF ( 1 x &
CF z *3w D $SVSP ? , <3[3 Ee0 7)a7)Y " b3 @E X B * ~3A F h 5 ^5 3 0>, X rE & 3 Bw E5 e0 ) 3) ( B $ , 3w $SBS f&@ 5 @ w 4<5 w 5 , $4 w 5E e . J4w +5 w @E% @5 T/
$
U , -0
0
6 ɥ, ɥ) S h' * -ɥ= P
ɋ]E p ] & , - t. Ee0 -0 7)7) m " . w {. ml2
* ..2
F w .7^ * R.^_ $TR, : JSR %4,$POLSH
$ ! v.POPR
.+2
RTS %5
:
j , .w jх0 $
n3-0- * .) $)&f 7W , .(
w w &&f A * / n ) "
* 4/T ) "
: ) "D * X/
U 7z7V& V * |/ &
w E p U j, * / &f 84 & F( * /
#F f 2
* / 5 $ , . 0) 0%
+ EP ! * 40 ` !w N w D 6 $ 1R2 5 P 1 , ' 2 E q 2 * ,2 BLIRDCXAJ2N2R2 END=ERt * P2R= $PSH $PSHR1
0
t2{222222 * t2 $FIND $INRI $INI $INFI $OUTRI Y * 2$OUTI $OUTFI 0,0
$PSH, $IO $IO
2F
27
.3
5 , 2ĕP e0 )))) 2 " ( r4w + T " rCE F 4w 5 F w z 5 4w n%57
.w d+5- 5 * 4 K5 e0 )). * 4 8 0w ~ .+2
JSR * 5 %5,
BR .+ : 0 ADD # ,%6
JSR * 05%4,$POLSH
.GLOBL $GET $PSHR $ * T5SVA $SVP $SVE $CM ORANNTADSBMLDVP x5WNGLTGTEQNELEGE * 5 ( r$ " ^
g * 5( & @&
f $ W . .
W)
* /!w -t (
t * (/{& E P
* L/ p7 ,O$4 S * p/ 4 &gU $ eu#R * / CEE "BPBeᷣ * / PBCCBEE / * / P f @ 0Q * 0 PRT!f 0 1 + * $0 w
0Q P7 * X0 f
bU rl
* |0H&
&
H % , 0`5 \ 5 VX5 # 0
8 R " * 0 E 1
@uuE , 0 '5 #R5 N $1ݵ 61 ~A p* , P1 CF ^P : . v1 CE 11ĕ L\ $ 1ĕ$ D1 <Ĝ1 4)) 35 e (3 $POP , 43w ̅0 $
~ 3-"0- * Z3) $)&f \ 7PWg . ~3
W)
. 0 R * 3!w - L(
Bt * 3{& E P * 3 &p7 O$4 * 4 4 &gU W$[ eu# * 64 CEE BPBeᷣ37> * Z4 PBCCBE , 5
ɋ & 5
5 = * 5U &
w 7
fB = * 6 x & W * >6
ɋW) C @Z . b6
A 11 ĕ hĕ$ `~ 6Ĝ1 X넜1 P))` 6)) ^ x H] * 6 p <엠= ( ! , 6
w & 67
&
7
, 7^7 E * H0BE@C r%FK n , l0(
Vw w &&f : V * 0R n ) "
* 0T ) "
: ) " * 0
U 77& _ * 0 &
w E p U , * "1 &f & ( * F1
#Fr f 2
* j1 ,5 $ ~, @ . 1) 0%
+ EP ! 1)) B \ , . 1 TBIIRDC 5 h5 f5 d&
7W * 17^ ĕ$ E
i5T . 2 j5 ' C EĜ1 D2 1 ﳼ)))) * ^2 M w " 2 1 \ ))))8 * 2 h R zE w AA
d5. 2 1 ﷼)) $ 2 * D <E 537`c 2.3 3 E * ~4 P > f @ 0Q * 4 PRT!f4 L1 * 4 B w
0Q P7 * 4BE@C %FK , 5(
w w &&f * 45 n ) "
* X5T ) "
: ) " * |5
U \7V72& * 5 &
w E p U F헠, * 5 &f & "헠 e0 근)x D7)p z X7 $PUT $POP j77
b7
X &5 D , 7ĕP ^ e0 P갼))))B 7 ^ x H 75 $ 7 R $POP * 7) ! )0 ) * 8
f)& S ( &8
@ L N= D > * H8, < < : BW= 5 9 * l8 7 .W, 2 / - ɋ * 1 ` ! * 1
U * 1&
&
H & , "2`5 \ p5 V6 H2ݙ * \2 `E b1
@uuE P , 2 '5 #6 0 2;+3# R 2 l < A ` 8 , 2 CF P F P : 0G . 2 CE Z3Z3ĕ CF z *3w D $SVSP ? , <3[3 Ee0 7)a7)Y " b3 @E X B * ~3A F h 5 ^5 3 0>, X rE & 3 Bw E5 e0 ) 3) ( B $ , 3w $SBS f&@ 5 @ w 4<5 w 5 , $4 w 5E e . J4w +5 w @E% @5 To ( v * 5
#F f 2
* 6 5 $ 엠, . 06) 0%
+ EP t! * X6 ` !M * |6 B
>U NH * 6$&
&
H % , 6`5 \ 5 V|; J 6 . 0 * 6 E 1
@uuE , "7 '5 #v; # H7 h * 8W, # l
N ɋ1 * 8f8 J1 ) . /B? * 8= 0 ) B EL * 8 P ( L f NC 9 F (!)I ) :9Ć e TTTTTTT $POP2 X ^9Da< 65 Ü x9E . 9 ` x w t
9 9w 6۲99 FILE * 9zr: d
f&
* 9e U $ 3ĕ$ Z3 ĜZ3 )) >3)) . R3 BIIRDC 5 h5 f5 d&
7
* z37^ `ĕ$ XE
6 . 3 H6 @ ' C EĜZ3D 3 Z3 )))) * 3 & @ 8 M w T " 4 Z3 )))) * 4 E w AA
66 D4 턜Z3 )x)p $ ^4 E 47`j ( r4w + T " rCE F 4w 5 F w z 5 4w n%57
.w d+5- * 4 K5 e0 )). * 4 8 0w ~ .+2
JSR * 5 %5,
BR .+ : 0 ADD # ,%6
JSR * 05%4,$POLSH
.GLOBL $GET $PSHR $ * T5SVA $SVP $SVE $CM ORANNTADSBMLDVP x5WNGLTGTEQNELEGE 5 "7 BN=F5Z 5 d ~ N @ 5F p fw |$ ݑ A Z7 ZA L , t7 CF :P . 7 CE 77ĕ ( $ 7ĕ$ ꄜ7 Ĝ7 과)) 7)) 8 . 7 0BIIRDC 5 h5 f5 d&
7k * 87o^ ĕ$ E
;} . @8 ; ' C EĜ7 h8 ~鄜7 v鳼)))) * 8 n M w I " 8 7 : fn: * 9 d ` jdP ": w Z:&./ * H: FTN000.OVL
::d: I l: :.:8:B: :L:V:`:j : .8BLVm * :`j (N 6 D;w 647 . * 5
F 2 $
! r * 6 B ^+
)f 8 * 86) w ) 엠H : * \6
, )D+
* 6¥' "
~ Dĥ'
D * 6j ) Z w f)K bLB * 6 d
@7
, * 6
)
¥( ¥) l * 7 '7 ( $TR ^
.ASCII ^ X 8 )))) * 8 D ^ . VE w AA
; 8 脜7 跼)) $ 9 E Y97` 9R9 ݰ 49 |CF $ N9w D $SVSP , `9[: lEe0 r7)=7)5+ " 9 j@E 4 i * 9A " D n5 ; 9 4 N & 9 w i; e0 緼)t 9) z `'B y: ~ z
~
~
z
v
r7
r7
pwn7l ^7
Zf ee DD& 7
2w ,7o & " $ ~ j
w xw7 w P
~
; " w VB; :w JI;7
w @O;- * : o; e0 淼)) * ; ށw ~ .+2
JSR * 0; %5,
BR .+ : 0 ADD # ,%6
JSR * T;%4,$POLSH
.GLOBL . 8 B L V ` j ~ Z . 4 , 2 7
`.C
`. נ 0נ 3 ~ W .9 f.( 0 &נ 4נ` 1%. %. $ .
ѐ.eC å1 å9
%.00^ ~ J w`. 7
P0
נ נ0 נ9 Ԑ נ
7
נ נ f.f. !0 ~ Z.d-d-5 `(`.- * (7W 7 `7 B7E 8 * L7 P *v ؚ -\@ N" * p7&? d d++0 WWv * 7Gv ss<p< (( ( ( 7( ( ( . 7 8 w 4
7 V I 7w 77 FILE
* 7z~8 d
f&
* 8e 8 f8 * >8 d ` *$P b8 w 8&./ * 8 * 8 1 T ɥ( = #w B ( 8f 8 $ F 8 : T $ w b * 8. 4 4 $TR $TRX * 9 . $TRA 0
$TRAL
f 8
B * (9, ) & ɥ,
$хɋ L9 : 8 ~y݃qa f9 J P $ |9 ߁ & w f 4 " 9E P ~߇ w p9 ۗ * 9 lѥ,
U @
, 9ɋ $GET $PSHR $ * x;SVA $SVP $SVE $CM ORANNTADSBMLDVP ;WNGLTGTEQNELEGE . ; 4 L w H
; j ;w
;; FILE, * ;z< d
f&
* <e < f< 1 * *< d ` >8P N< w <&./ * t< FTN000.OVL
f<< < <.<8 | R t H
x > .n-.x- n- 0000 ˕/ DDe
d
9 ~ s x- , @ @
>
? & 7
! .x-fՋ
D w 7 ~ *!0!
7 w @! ww @!
0 0 CaCa` 7! w p ~ FTN000.OVL
z88 8 8.88 9B9Q 8L 9V*9`89j 8 .8BLV/ * 8`j (N; - ; " ;w O; ̅ vJ
* 2;E * <`j (N< bݢ
@ ^$ % * ; ¥1
<B ܅
D N7 * ; & w 2< .GLOB; *
& y:ρ * TN
& A * $
A&
2 e * * H
p 0&
E l ! 9 * z
*
*
= *
~
z
v] ,
r7
r7
pwn7l ^7
Zf ee l * 0 DD& 7
2 & ~ # w T>) 6 F)( & v
( v$ e
d$I
" U U w 0 v$ e
*$I ~ #
"
U 0
" e " n
* 0 ? h
De $ ыW' , 2 TN
5 ԕ u
a ~ r$7&
/
BU w "
* W ' ы
$ ы De T
N
6
6
R ~ $ 6
6 P6
6 Da hWH c
w (W. a S w _ * T ,7o & " $
w * x xw7 w A * P
P *
S *
u * * $
>&
2 e * * H
p 0&
E l ! 9 * z
*
*
= *
~
z
v] ,
r7
r7
pwn7l ^7
Zf ee l * 0 DD& 7
2 `.k . נ 0נ W .9 f. * ( 0 &נ 4נ` 1%. %. *
$ .
ѐ.eC åo , . 1 å9
%.00w` * T . 7
P0
נL . x נ0 נ9 Ԑ נ
7
[ . נ נ f.f. !0Z. " d-d-5 `(`.-l * .
` * Օ^ e@ Օ
ĕ
" $ 2 w . . . . & e ( E FT
~ B' d
$D
V
" U U E
5 5 5
Eǯ &
` ~ ' 1f B1e
`) `)
E
Em
5
E
5
W( J ~ 2(5
U f
5 E
fE`m4 w!. $ * E ~ 1 ww7n ~ (U
- G * , f T N N J f > , P | R t H
x > .0 " v n-.x- n- 0000 * ˕/ DDe
d
sa * x- , @ @ *
>
? & 7
* ! .x-fՋ
D "! w 0!
4!7 w @! ww @! * N!
0 0 CaCa+ , r!` 7! w _ * T ,7o & " $
w * x xw7 w A * P
P *
S *
u * , P | R t H
x > .0 " v n-.x- n- 0000 * ˕/ DDe
d
sa * x- , @ @ *
>
? & 7
* ! .x-fՋ
D "! w 0!
4!7 w @! ww @! * N!
0 0 CaCa+ , r!` 7! w >ff& ff&&
7 m E % 0 l ~ ")F .TRUE..FALSE. 0)6)=) &f BW!0 U E 5!w$ -0 w B0 9 ~ ) A Z ! ĕ: ĕ, ĕ f 1f
w f
w 17 w * ~ * .GLOBL ** v* J*K*L*N*O*P*T*Y*^*b*f*j*n*r*v* +-***/.OR..AND..NOT..LT..GT..EQ..NE..LE..GE.
> w p J * ! T&5 3 * ! EEV!3 `&$ ] * ! : & * "w : 6
& 6 v " e " " * (" a
|v 6
@߁W. * L" W' 5 e: w "e v * p"
Nv
, E
~ * " E %60 eF . ": w "
6 01 * " W( `.k . נ 0נ W .9 f. * ( 0 &נ 4נ` 1%. %. *
$ .
ѐ.eC åo , . 1 å9
%.00w` * T . 7
P0
נL . x נ0 נ9 Ԑ נ
7
[ . נ נ f.f. !0Z. " d-d-5 `(`.-l * .
` * Օ^ e@ Օ
ĕ
w p J * ! T&5 3 * ! EEV!3 `&$ ] * ! : & * "w : 6
& 6 v " e " " * (" a
|v 6
@߁W. * L" W' 5 e: w "e v * p"
Nv
, E
~ * " E %60 eF . ": w "
6 01 * " W( ~ *
U x
C
å å$ נA e`
~ + B¥ ɥ ɋ
D &f DW R &&f ~ z+ +
Ëנ e e e e ѐ
@( &fe B e ~ +m&ff&e Z
e &f $ 2 e U - * #5 % E * (# "
l f " \E E< , L# E! " 0 (* . r# & w T>) 6 F)( I * # & v
( v$ e
d$IJ * #
" U U w 0 v$ , #e
*$I
"
* $
U 0
" e " n
* ) * ,$ 0 ? h
De $ ыW' , 2y , P$ TN
5 ԕ u - G * , f T N N J f > , P | R t H
x > .0 " v n-.x- n- 0000 * ˕/ DDe
d
sa * x- , @ @ *
>
? & 7
* ! .x-fՋ
D "! w 0!
4!7 w @! ww @! * N!
0 0 CaCa+ , r!` 7! U - * #5 % E * (# "
l f " \E E< , L# E! " 0 (* . r# & w T>) 6 F)( I * # & v
( v$ e
d$IJ * #
" U U w 0 v$ , #e
*$I
"
* $
U 0
" e " n
* ) * ,$ 0 ? h
De $ ыW' , 2y , P$ TN
5 ԕ u W0 W7 ! ~ j,E0 W0 W9 WA WF E7 X&0̋w . w f0, H X : $SEQ, , ~ ,f&
ɋɥ, ɥ= ɥ( ɥ)
; FORTRAN V001A
& EL.n--L.x--L.d-- ~ Z- & E & ( ' 'y ' N '^ ; ~ - ;
7&
d * v$/
BU w "
* , $ W ' ы
$ ы , * $De T
N
6
* $6
6
6 P6
* % 6 Da hWH c
w ($ * ,%W. a Sl - & v$ e * P%
P $I
B " U U * t% U " E 0Q > * % w $ 2 (
e 2 * % " e 2 e( w , w p J * ! T&5 3 * ! EEV!3 `&$ ] * ! : & * "w : 6
& 6 v " e " " * (" a
|v 6
@߁W. * L" W' 5 e: w "e v * p"
Nv
, E
~ * " E %60 eF . ": w "
6 01 * " W(
7&
d * v$/
BU w "
* , $ W ' ы
$ ы , * $De T
N
6
* $6
6
6 P6
* % 6 Da hWH c
w ($ * ,%W. a Sl - & v$ e * P%
P $I
B " U U * t% U " E 0Q > * % w $ 2 (
e 2 * % " e 2 e( w , G ~ J. P d -e -P ~ . -Q -P ~ :/ ~ / | * %w F6
0 w f4* 6넃 * & tT
6 0 6 D , (&a6 WE WD v ) 6 F)( I * # & v
( v$ e
d$IJ * #
" U U w 0 v$ , #e
*$I
"
* $
U 0
" e " n
* ) * ,$ 0 ? h
De $ ыW' , 2y , P$ TN
5 ԕ u | * %w F6
0 w f4* 6넃 * & tT
6 0 6 D , (&a6 WE WD v * % w $ 2 (
e 2 * % " e 2 e( w , * J' $D
V
" U U 1 * n'E
5 5 5
* '
Eǯ * '&
1f B1e
`) l * '`)
E
Em [ * '
5
E
* "(5
W( 5
U f , F(
5 E
fE`m4 w!. 5 , l($ * E ~ (1 ww7 * (U @1 " ~
2 42 .$$$$. Z2B6:<===@A$B J)&
!Q ~ 2@ !>-Z- *-65 5$5 Z.>->-
L..
ѕ? ѕ
ѕ
ѕ
`.whZ.2 ~ 2Z-&
f ,L-/ z rW 7
4 F-/ D <W 7
R-/
w >ff& * (ff&&
7 m , ( E % 05 ) ) F .TRUE..FALSE. >)0)6)=) j , J)&f BW!0 U E 5!w$B p) -0 w * )B0 9 A Z , ) ! ĕ: ĕ, ĕ f ( ) 1f
w f $ )
w 17 w * **| * %w F6
0 w f4* 6넃 * & tT
6 0 6 D , (&a6 WE WD v ff& * (ff&&
7 m , ( E % 05 ) ) F .TRUE..FALSE. >)0)6)=) j , J)&f BW!0 U E 5!w$B p) -0 w * )B0 9 A Z , ) ! ĕ: ĕ, ĕ f ( ) 1f
w f $ )
w 17 w * ** ~ r3 d4W Z->-d-
n-n4-n-7
x-~4-x-7
-d- ~ 30
1 w 4 w
7
07
7
7
1Е 2 2Е 204w : ~ b47
7
7
-n-7
-x-d-d- n-n- x-x->-Z- 7
! ~ 4 S .
5
55 w .Z-# 0000 ERRORS
4d N(f
`A
.GLOBL ** v* J*K*L*N* 2*O*P*T*Y*^*b*f*j*n*r*) * F*v* +-***/.OR..AND..NOT..LT..GT..EQ.b * j*.NE..LE..GE.
* * U x
X * *
C
å å$ נ * *A e`d * *
B¥ ɥ ɋ
* + D &f * B+DW R * f+ &&f +
* J' $D
V
" U U 1 * n'E
5 5 5
* '
Eǯ * '&
1f B1e
`) l * '`)
E
Em [ * '
5
E
* "(5
W( 5
U f , F(
5 E
fE`m4 w!. 5 , l($ * E ~ (1 ww7 * (U .GLOBL ** v* J*K*L*N* 2*O*P*T*Y*^*b*f*j*n*r*) * F*v* +-***/.OR..AND..NOT..LT..GT..EQ.b * j*.NE..LE..GE.
* * U x
X * *
C
å å$ נ * *A e`d * *
B¥ ɥ ɋ
* + D &f * B+DW R * f+ &&f +
w 0 & \2 ~ R5 8 FA P X5 @ z E m C 6 6 @ @ @ E C n ,& f
q ~ 52 L 5 2w &: "X { : rw 9 @
7 fg- ~ B6 7 ~ &P w : NL $ w5 bw :w %: 5 @ M ~ 6 E e R
* +Ëנ e e e e ѐ
z * +
@( &f * +e B e m * +&ff&e Z
* , e &f * >,$ 2 e W0 O * b,W7 E0 W0 W9 W , ,A WF E7 X&0 " ,̋w . w f0, H * , X : $SEQ, ,f&
ɋ
w >ff& * (ff&&
7 m , ( E % 05 ) ) F .TRUE..FALSE. >)0)6)=) j , J)&f BW!0 U E 5!w$B p) -0 w * )B0 9 A Z , ) ! ĕ: ĕ, ĕ f ( ) 1f
w f $ )
w 17 w * **
* +Ëנ e e e e ѐ
z * +
@( &f * +e B e m * +&ff&e Z
* , e &f * >,$ 2 e W0 O * b,W7 E0 W0 W9 W , ,A WF E7 X&0 " ,̋w . w f0, H * , X : $SEQ, ,f&
ɋ & w
7t 5 5 ~ 27 : : : (w e w # L j @b
:T3: 5 ~ 7 w ng: 3:
w XE:CF Zw Hd:
w b# CF 8 .w
@: ~ "8l "w 9w 9I *w , w 9O w 9 X 2w 9 w \B7aR ~ 8?& 7
w tk: >F t w ^L: * ,ɥ, ɥ= ɥ( ɥ)
1 - * (-; FORTRAN V001A
& EL.n--L * L-L.x--L.d-- & E & * p-( ' 'y ' - N '^ ;G -; L. P * .d -e -P -Q -P )
. 0MAIN. DATA. * 0 * 0 .GLOBL ** v* J*K*L*N* 2*O*P*T*Y*^*b*f*j*n*r*) * F*v* +-***/.OR..AND..NOT..LT..GT..EQ.b * j*.NE..LE..GE.
* * U x
X * *
C
å å$ נ * *A e`d * *
B¥ ɥ ɋ
* + D &f * B+DW R * f+ &&f +
* ,ɥ, ɥ= ɥ( ɥ)
1 - * (-; FORTRAN V001A
& EL.n--L * L-L.x--L.d-- & E & * p-( ' 'y ' - N '^ ;G -; L. P * .d -e -P -Q -P )
. 0MAIN. DATA. * 0 * 0 w XL:
F L 7
7
w L:w L:w %: ~ 9 @ 7a& * 7
$ w y: F r7
w @ E bw _: 11J w 9 ~ 9Jw , w 9 J w , w r9 ~ JJ .GLOBL $READ, $WRITE, $DC $IC $LC .END MAIN. .GLOBL $EXIT
~ : $EXIT
: MOV MOV -(%0),-(%6)
JMP @(%4)+
+10,%0
BR +4,%0
BR MOV -(%0),-(%6)
(%5) -4 ,%0 ADD #10,%0
~ z:ADD #4,%0
. = 0 * 1 * 1 * 1 @1 * 1 S * 2 42 .$$$$.9 $ <2 m Z2Z2B6:<=f f2==@A$B * p2 J)&
!@ !>-Z-K $ 2 *-65 5$ $ 25 Z.>-
* +Ëנ e e e e ѐ
z * +
@( &f * +e B e m * +&ff&e Z
* , e &f * >,$ 2 e W0 O * b,W7 E0 W0 W9 W , ,A WF E7 X&0 " ,̋w . w f0, H * , X : $SEQ, ,f&
ɋ 0 * 1 * 1 * 1 @1 * 1 S * 2 42 .$$$$.9 $ <2 m Z2Z2@|22 >p@ f264t7 n2 | w ' 7(
F & 2 33
G , 2 6 : d4x d4 .+ : 0
: 0,0
: 0,0,0,0
-0 &f&f
8 7
<<<0 ~ :<< @
! e W ..<-
D ! ҕ^ e@
- - ~ j;
x "W0 Օ 7x7u
Le B5
8 2
a
<< <p ~ ; e@
-W!<.Օ
Օ
B l e - xLJ- 0--
, 2L..
ѕ? ѕ
ѕ
ѕ
`.wh_ 0 2Z.Z-&
f ,z . 3L-/ z rW 7
4 * H3F-/ D <W 7
R- . l3/ d4W Z-? & 3>-d-
n-n4 3-n-7
x- 3~4-x-7
-5 " 3d-0
1 w_ 4 4 w
Y 4
7
07
7
7
* ,ɥ, ɥ= ɥ( ɥ)
1 - * (-; FORTRAN V001A
& EL.n--L * L-L.x--L.d-- & E & * p-( ' 'y ' - N '^ ;G -; L. P * .d -e -P -Q -P )
. 0MAIN. DATA. * 0 * 0 e
d4 * 2 + Å " 2 &f00 0 * 3 7
&^4 , 23 ~3 3 * X3 ~3 W # & |3 3333333334l 34444"4+424A4G4N4v * 3T4Z4^4 SUBROUTINEFUNCTIONBLOCKDATAE
* 3XTERNALDEFINEFILETYPEDIMENSIONCOMMON4 * 3EQUIVALENCEDATAIMPLICITENDLOGICAL*1L * 4OGICALINTEGER* ~ Z<0(
f
< (< T w B[]
ERROR
;***DIAGNOSTIC TABLE OVERFLOW
~ << & < '%& .n-.x- - % P = e0 췼1z ~ J=1r = pzkrc | $RET $POPR &
&
&f&f&
&
&
A &
&
$ m" X ~ =$
DE v!$ w + --
'DE 0 0 L $ ,4 1Е 2 J4 2Е 204w s d47
7
7
-n-B $ z47
-x-d-d-P $ 4 n-n- x- $ 4x->-Z- 7
> * 4 ! S .
5
5N % 45 w .Z-# 0000 ERRORS
b 54d N( * 5f
`A
w * B50 & \ 8 FA f5 P X5 @ z 0 * 1 * 1 * 1 @1 * 1 S * 2 42 .$$$$.9 $ <2 m Z2Z2<|2826 f266(7<7u n2 | w ' 7(
F & 2 33
G , 2 6 : d4x d4 2INTEGERDOUBLEPRECISIOE , @4NDOUBLECOMPLEXREAL*8REAL*4REAL33 ?W f4j@|4@z>L36 r4 @8F3P?ɋ
, 400 $0 0
4 & 4 N
e 6
6
( 4 F %
4E 5
~ * 4W(
e
e , 5
E
2
H <5e 6
* L56
6
! g { b * p5`!9 Q
0 $ F ~ :>aB A @ v!$ N /# cw & 23
w e . v ~ >v
w (E D N
"
v!$ DE+ -
v!$ DE 0 0 9 0 ` av!$ ~ *? ` " w
4 4f& ( " m B A @ m A @ m @ c
e
~ ?
e =- 9 B 6
C B "> 5E m C 6 6 * 5@ @ @ E C n ,& * 5 f
2 L 5 & 5 2w &: * 6 "X { : & &6 rw 9 @
7 fg-
* F67 ~ &P w * j6 : NL $ w5 * 6 bw :w %: 5 6 @ E e 6 R
#e
d4 * 2 + Å " 2 &f00 0 * 3 7
&^4 , 23 ~3 3 * X3 ~3 W # & |3 3333333334l 34444"4+424A4G4N4v * 3T4Z4^4 SUBROUTINEFUNCTIONBLOCKDATAE
* 3XTERNALDEFINEFILETYPEDIMENSIONCOMMON4 * 3EQUIVALENCEDATAIMPLICITENDLOGICAL*1L * 4OGICALINTEGER*$
e W, W) X
, 5 E?E 2Q < 6 @; & 5 6 4 A X 5
E $ 5& )& E [ 6
x ( *6e n
Ze * L6 & r
>5
p65 & , 6E
w w .GLOBL $ADJ
& 6 l 6
6v 6 v %A @ #" B A @ C6 v " $ e ~ @ V w J
&f 8 2 &f eB A @ eA @ e@ e B A @ ~ @ 01 01 !1 e $$ rA ,
,
, ĕO ĕP ~
A 7171 H < ~ 0 rCF 5
5
$ENDD ~ A p > xɥ0
f& * 6
& . 7w
7t 5 5 * 07 : : * T7: (w e w x7# L j @b
:@ & 7T3: 5 w nE , 7g: 3:
w XE:CF Zw H ( 7d:
w b# CF 8 . 7w
B * 8@: l "w 9 * 88w 9I *'2INTEGERDOUBLEPRECISIOE , @4NDOUBLECOMPLEXREAL*8REAL*4REAL33 f4 |4 L3 r447 F3<ɋ
, 400 $0 0
4 * 4 < ^ɥ/
Rɥ/ r * 4 ы6$2$27
F7
D7
BY . 4 "ѥ/ *22
7, 0 57, 7,
e
e T ( 85-J
$2
7{ Z5&2 J?< 55 t54U (e
* 6 0 22 ( 7 EE 8 2Q \ + E 8 g " &7 E3Q U
1 , B7ɋ ɋ
W, * h7e & 4 * 7 m$" C C C E$
X & 7 v 3 ( 7 7 E E E Ev " 7e wa- 8 EE
q " $8sQ
e )
D z% ɋ 3 .TITLE .CSECT
.GLOBL : JSR %4,$POL ~ ASH
.GLOBL $POLSH,$NAM,$SEQ
$NAM,0,0,
w A (- A \w A w Ae` ~ rB Rw , F އ z CHC
f&
e fC fDC d ` ~ BP w p0C&./ FTN000.OVL
C :C zC. C8 CB CL CV C` C ~ bCj . 8 B L V *w , 2 $ \8 w 9O w 9 X: z8 2w 9 w \ , 8B7aR?& 7
w tk: >F t( 8 w ^L:w XL: [ ( 8
F L 7
` 87
w L:w L:^ * 9w %: @ 7a& * & ,97
$ w y: F r7
G ( L9 w @ E bw " n9_: 11J w 9 m * 9Jw , w 9 J w , w +
( $ 5,
7- ^@ , 5 ¥, ¥/ *ɋ
7f-bb * 5 +,-22 g ( 5
w 6 w 6 , 6 &
f AB & m` * :6w 6 a | &
* ^6
D z a * 6 w 6e v =.+ .CSEC 6T .=.+ .$$$$. * 6&f P * e * 6 ,@w j & @8 f RX l `8
h8 jven] z8 v 6F V * 8 @B,¥/ R ɋ `ɥ,
( 88 J F \8 2D ! 87 .CSECT
$TR :
< * 8c&f7
7
D7
D < vy . 9 ,, v
* B9,
,
* f9 /
/
e d , 9ɥ/ / 7
` j (N: +4,%0
BR MOV -(%0),-(%6)
(%5B * b:) -4 ,%0 ADD #10,%0
ADD #4,%0
m ' :. = .+ : 0
: 0,0
: 0,0,0,0
4 * :-0 &f&f
8 * :7
<<<0 * :<< @
! ? /
m mU . 6 D D D E E 2 * &7 &f m\&f& * J74 6 m<
@ * n7
T `
@ A @
* 74 ` r " * 7
f
@a * 7
b @2L * 7 & $
¥, * "8 < l & ¥( &
& , F8 N ¥, 0 nv P 9
m 9 27 &h & 9< Ĝ
E % 22 * 9
: z hw > :w
e< @U @ * :: : @ KF n $ ^: : 4 R |:
L5 =.
. = . = : b
* : 5
f &B , :+ j aC
7`z * : g 1 ' y:с Y * TN
& B * $
B&
2 e * * H
p 0&
E l ! 9 * z
*
*
= *
~
z
v] ,
r7
r7
pwn7l ^7
Zf ee l * 0 DD& 7
22 * ; e W ..<-q . 8;
D ! ҕ^ e@
-U * `; -
x "W0 | * ;Օ 7x7u
Le * ;B5
8 2
a
* ; << < e@
* ;-W!<.Օ
Օ
B l e * < - xLJ- 0-
+\ B( * 8 <9 DmC
D1 , "9 1 aw
; @
@2 * H9 7
. 0
7
7
l9 6! * l9B D lD l 7! * 97 e . 9 J"& e 4 h L* B
7
<V;t ; F
$mn $ (;
V; + s $ F; P | . =
" * d; m*G7 ɥ( PɥO GɥZ G . ;ɥ- =ɥ+
nD Bɥ* #% A . * ;
;7
7ɥ( *ɥ- ɥO a * ;ɥZ ɥ+
" ZTO * ; 2 7
? * < bi7
$ j EE * @< 0w 6 k z % % 5w _ * T ,7o & " $
w * x xw7 w A * P
P *
S *
u * @ @ @ @a * 4=
&
2
@ @ @ @ * X=@a
05 w( * |= f! x@ >% ; p =ѥ, 6 & & NN . =' %% "ѥ9 `.k . נ 0נ W .9 f. * ( 0 &נ 4נ` 1%. %. *
$ .
ѐ.eC åo , . 1 å9
%.00w` * T . 7
P0
נL . x נ0 נ9 Ԑ נ
7
[ . נ נ f.f. !0Z. " d-d-5 `(`.-l * .
` * Օ^ e@ Օ
ĕ
:$ X * =w + --
'DE ? * >0 0 L 9 Q
* $>
0 $ FaB A @ v!$ l * H>N /# N * l> cw & 23
* >w e . v I * >v
w (E D N
" * >
v!$ DE+ -
v!$ k * >DE 0 0 9 0 ` * ? av!$ ` " w
8 ;"U @ . 4;^ ~w u; pw + C Z * \; j Fb . = w ;I $ ;F F ; p w ;; m xF $ ; r
w \< &A mDC !e w * b W( PC31 < * @>W- 6CD31
W d>, W) ɋ M ( z> fI 6? j=? ^ * > hV < ` W( Z' * > D F W, @ *ᅗ * > , J? Dׅ ԅ * ?W) z # ,?=- G * , f T N N J f > , P | R t H
x > .0 " v n-.x- n- 0000 * ˕/ DDe
d
sa * x- , @ @ *
>
? & 7
* ! .x-fՋ
D "! w 0!
4!7 w @! ww @! * N!
0 0 CaCa+ , r!` 7!> * D?
4 4f& ( "9 * h? m B A @ m A @ m @ c * ?
e
e! * ? =- 9 B
* ? 6
C B A @ #" B A @ * ?C6 v " $ e A * @ V w J 0 * @@
&f 8 2 &f ( * d@ eB A @ eA @ e@ e B A @ d @ $ @ 01 ? <
@2" &Z " <@ Bw l; & 0 . < 2 w .
< P B B > =L ">V 0>` >>j = . 8 B L V * =` j (N x?w f݂?? FILE $ ?Y B7
P y j701 $ ? e ݃ fU M " ? E 8 P E ( ?E
0
- & @ ~ ꗠ( 7
: @U e - ( $ . :@ ꗠ, ) E U " b@U 7
vU 7l T7 * ~@ƩA w p J * ! T&5 3 * ! EEV!3 `&$ ] * ! : & * "w : 6
& 6 v " e " " * (" a
|v 6
@߁W. * L" W' 5 e: w "e v * p"
Nv
, E
~ * " E %60 eF . ": w "
6 01 * " W( B01 , @ !1 e $$ rA * @ ,
,
, ĕO $ @ ĕP 7171 " A H * 6A < ~ 0 rCF n % ZA 5
5
$ENDD zA p > . A xɥ0
f
D zJ A% ɋ 3 ^ * A .TITLE .CSECT
.GLOBL : JSR %4, * A$POLSH
.GLOBL $POLSH (O (P (S) 6 F)( I * # & v
( v$ e
d$IJ * #
" U U w 0 v$ , #e
*$I
"
* $
U 0
" e " n
* ) * ,$ 0 ? h
De $ ыW' , 2y , P$ TN
5 ԕ uF,$NAM,$SEQ
$ BNAM,0,0, $B
w A " :B(- A \ VBw A w E " nBAe Rw , F r B * Bz HC d
f&
* Be fC fDC * B d ` P y B w p0C&./ t * C FTN000.OVL
C :C BC zC. C8 CB C VCL CV C` G .) y:ҁ * * TN
& E * $
E&
2 e * * H
p 0&
E l ! 9 * z
*
*
= *
~
z
v] ,
r7
r7
pwn7l ^7
Zf ee l * 0 DD& 7
2 ` j (N * % w $ 2 (
e 2 * % " e 2 e( w , Cj e dC . 8 B L V f * pC` j (N , P | R t H
x > .0 " v n-.x- n- 0000 * ˕/ DDe
d
sa * x- , @ @ *
>
? & 7
* ! .x-fՋ
D "! w 0!
4!7 w @! ww @! * N!
0 0 CaCa+ , r!` 7!T `.k . נ 0נ W .9 f. * ( 0 &נ 4נ` 1%. %. *
$ .
ѐ.eC åo , . 1 å9
%.00w` * T . 7
P0
נL . x נ0 נ9 Ԑ נ
7
[ . נ נ f.f. !0Z. " d-d-5 `(`.-l * .
` * Օ^ e@ Օ
ĕ
U
w >ff& * (ff&&
7 m , ( E % 05 ) ) F .TRUE..FALSE. >)0)6)=) j , J)&f BW!0 U E 5!w$B p) -0 w * )B0 9 A Z , ) ! ĕ: ĕ, ĕ f ( ) 1f
w f $ )
w 17 w * **V `.k . נ 0נ W .9 f. * ( 0 &נ 4נ` 1%. %. *
$ .
ѐ.eC åo , . 1 å9
%.00w` * T . 7
P0
נL . x נ0 נ9 Ԑ נ
7
[ . נ נ f.f. !0Z. " d-d-5 `(`.-l * .
` * Օ^ e@ Օ
ĕ
W w p J * ! T&5 3 * ! EEV!3 `&$ ] * ! : & * "w : 6
& 6 v " e " " * (" a
|v 6
@߁W. * L" W' 5 e: w "e v * p"
Nv
, E
~ * " E %60 eF . ": w "
6 01 * " W( X- G * , f T N N J f > , P | R t H
x > .0 " v n-.x- n- 0000 * ˕/ DDe
d
sa * x- , @ @ *
>
? & 7
* ! .x-fՋ
D "! w 0!
4!7 w @! ww @! * N!
0 0 CaCa+ , r!` 7!Y .GLOBL ** v* J*K*L*N* 2*O*P*T*Y*^*b*f*j*n*r*) * F*v* +-***/.OR..AND..NOT..LT..GT..EQ.b * j*.NE..LE..GE.
* * U x
X * *
C
å å$ נ * *A e`d * *
B¥ ɥ ɋ
* + D &f * B+DW R * f+ &&f +
Z- G * , f T N N J f > , P | R t H
x > .0 " v n-.x- n- 0000 * ˕/ DDe
d
sa * x- , @ @ *
>
? & 7
* ! .x-fՋ
D "! w 0!
4!7 w @! ww @! * N!
0 0 CaCa+ , r!` 7![U - * #5 % E * (# "
l f " \E E< , L# E! " 0 (* . r# & w T>) 6 F)( I * # & v
( v$ e
d$IJ * #
" U U w 0 v$ , #e
*$I
"
* $
U 0
" e " n
* ) * ,$ 0 ? h
De $ ыW' , 2y , P$ TN
5 ԕ u\ w p J * ! T&5 3 * ! EEV!3 `&$ ] * ! : & * "w : 6
& 6 v " e " " * (" a
|v 6
@߁W. * L" W' 5 e: w "e v * p"
Nv
, E
~ * " E %60 eF . ": w "
6 01 * " W( ]
* +Ëנ e e e e ѐ
z * +
@( &f * +e B e m * +&ff&e Z
* , e &f * >,$ 2 e W0 O * b,W7 E0 W0 W9 W , ,A WF E7 X&0 " ,̋w . w f0, H * , X : $SEQ, ,f&
ɋ ^ w p J * ! T&5 3 * ! EEV!3 `&$ ] * ! : & * "w : 6
& 6 v " e " " * (" a
|v 6
@߁W. * L" W' 5 e: w "e v * p"
Nv
, E
~ * " E %60 eF . ": w "
6 01 * " W( _
7&
d * v$/
BU w "
* , $ W ' ы
$ ы , * $De T
N
6
* $6
6
6 P6
* % 6 Da hWH c
w ($ * ,%W. a Sl - & v$ e * P%
P $I
B " U U * t% U " E 0Q > * % w $ 2 (
e 2 * % " e 2 e( w ,`U - * #5 % E * (# "
l f " \E E< , L# E! " 0 (* . r# & w T>) 6 F)( I * # & v
( v$ e
d$IJ * #
" U U w 0 v$ , #e
*$I
"
* $
U 0
" e " n
* ) * ,$ 0 ? h
De $ ыW' , 2y , P$ TN
5 ԕ ua * ,ɥ, ɥ= ɥ( ɥ)
1 - * (-; FORTRAN V001A
& EL.n--L * L-L.x--L.d-- & E & * p-( ' 'y ' - N '^ ;G -; L. P * .d -e -P -Q -P )
. 0MAIN. DATA. * 0 * 0 bU - * #5 % E * (# "
l f " \E E< , L# E! " 0 (* . r# & w T>) 6 F)( I * # & v
( v$ e
d$IJ * #
" U U w 0 v$ , #e
*$I
"
* $
U 0
" e " n
* ) * ,$ 0 ? h
De $ ыW' , 2y , P$ TN
5 ԕ uc| * %w F6
0 w f4* 6넃 * & tT
6 0 6 D , (&a6 WE WD v * % w $ 2 (
e 2 * % " e 2 e( w ,e 0 * 1 * 1 * 1 @1 * 1 S * 2 42 .$$$$.9 $ <2 m Z2Z2A22>@ f2 L w ' 6! 2
B .e $ 2 2 @3. " 2 x @3f
7&
d * v$/
BU w "
* , $ W ' ы
$ ы , * $De T
N
6
* $6
6
6 P6
* % 6 Da hWH c
w ($ * ,%W. a Sl - & v$ e * P%
P $I
B " U U * t% U " E 0Q > * % w $ 2 (
e 2 * % " e 2 e( w ,g * J' $D
V
" U U 1 * n'E
5 5 5
* '
Eǯ * '&
1f B1e
`) l * '`)
E
Em [ * '
5
E
* "(5
W( 5
U f , F(
5 E
fE`m4 w!. 5 , l($ * E ~ (1 ww7 * (Uh| * %w F6
0 w f4* 6넃 * & tT
6 0 6 D , (&a6 WE WD v ff& * (ff&&
7 m , ( E % 05 ) ) F .TRUE..FALSE. >)0)6)=) j , J)&f BW!0 U E 5!w$B p) -0 w * )B0 9 A Z , ) ! ĕ: ĕ, ĕ f ( ) 1f
w f $ )
w 17 w * **l * J' $D
V
" U U 1 * n'E
5 5 5
* '
Eǯ * '&
1f B1e
`) l * '`)
E
Em [ * '
5
E
* "(5
W( 5
U f , F(
5 E
fE`m4 w!. 5 , l($ * E ~ (1 ww7 * (Um:
( 4
7
f b R * @4 4 4e & , d4
. :
p * 4e
W, ~ Se
[ * 4
! U P
. * 4GLOBL $TSI
.GLOBL $TSR
.GLOBL $T 4SD
444 .GLOBL $TRTST
E , 5w 0 $
3-F0-B * 65) $)&f 7tW5 . Z5
W)
R T n * J' $D
V
" U U 1 * n'E
5 5 5
* '
Eǯ * '&
1f B1e
`) l * '`)
E
Em [ * '
5
E
* "(5
W( 5
U f , F(
5 E
fE`m4 w!. 5 , l($ * E ~ (1 ww7 * (Uo .GLOBL ** v* J*K*L*N* 2*O*P*T*Y*^*b*f*j*n*r*) * F*v* +-***/.OR..AND..NOT..LT..GT..EQ.b * j*.NE..LE..GE.
* * U x
X * *
C
å å$ נ * *A e`d * *
B¥ ɥ ɋ
* + D &f * B+DW R * f+ &&f +
p
w >ff& * (ff&&
7 m , ( E % 05 ) ) F .TRUE..FALSE. >)0)6)=) j , J)&f BW!0 U E 5!w$B p) -0 w * )B0 9 A Z , ) ! ĕ: ĕ, ĕ f ( ) 1f
w f $ )
w 17 w * **qv * 5!w v- p(
ft * 5{& E P * 5 Jp7 O$4 * 5 4 &gU {$ eu# * 6 CEE BPBeᷣW[ * 66 PBCCBEE * Z6 P b f @ 0Q * ~6 PRT!f6 p1 * 6 f w
0Q P/ * 6BE@C %FK r
w >ff& * (ff&&
7 m , ( E % 05 ) ) F .TRUE..FALSE. >)0)6)=) j , J)&f BW!0 U E 5!w$B p) -0 w * )B0 9 A Z , ) ! ĕ: ĕ, ĕ f ( ) 1f
w f $ )
w 17 w * **s
* +Ëנ e e e e ѐ
z * +
@( &f * +e B e m * +&ff&e Z
* , e &f * >,$ 2 e W0 O * b,W7 E0 W0 W9 W , ,A WF E7 X&0 " ,̋w . w f0, H * , X : $SEQ, ,f&
ɋ t .GLOBL ** v* J*K*L*N* 2*O*P*T*Y*^*b*f*j*n*r*) * F*v* +-***/.OR..AND..NOT..LT..GT..EQ.b * j*.NE..LE..GE.
* * U x
X * *
C
å å$ נ * *A e`d * *
B¥ ɥ ɋ
* + D &f * B+DW R * f+ &&f +
u , 6(
w w &&f * 7 n ) "
* 47T ) "
: ) "< * X7
U 7z7V& N * |7 &
w E p U j, * 7 &f 84 & F( * 7
#F f 2
* 7 5 $ , . 8) 0%
+ EP * 48 ` !o v .GLOBL ** v* J*K*L*N* 2*O*P*T*Y*^*b*f*j*n*r*) * F*v* +-***/.OR..AND..NOT..LT..GT..EQ.b * j*.NE..LE..GE.
* * U x
X * *
C
å å$ נ * *A e`d * *
B¥ ɥ ɋ
* + D &f * B+DW R * f+ &&f +
w * ,ɥ, ɥ= ɥ( ɥ)
1 - * (-; FORTRAN V001A
& EL.n--L * L-L.x--L.d-- & E & * p-( ' 'y ' - N '^ ;G -; L. P * .d -e -P -Q -P )
. 0MAIN. DATA. * 0 * 0 x
* +Ëנ e e e e ѐ
z * +
@( &f * +e B e m * +&ff&e Z
* , e &f * >,$ 2 e W0 O * b,W7 E0 W0 W9 W , ,A WF E7 X&0 " ,̋w . w f0, H * , X : $SEQ, ,f&
ɋ y * X8 f
bU rl * |8H&
&
H , 8`5 \ 5 VX= # 8
8 R "} * 8 E 1
@uuE , 8 '5 #R= > $9ݵ 69 ~A p" , P9 CF ^P 2 . v9 CE 99ĕ LD $ 9ĕ$ D9 <Ĝ9 411z
* +Ëנ e e e e ѐ
z * +
@( &f * +e B e m * +&ff&e Z
* , e &f * >,$ 2 e W0 O * b,W7 E0 W0 W9 W , ,A WF E7 X&0 " ,̋w . w f0, H * , X : $SEQ, ,f&
ɋ { 0 * 1 * 1 * 1 @1 * 1 S * 2 42 .$$$$.9 $ <2 m Z2Z2C22 f2 L w ' 6! 2
B .e $ 2 2 @3. " 2 x @3| * ,ɥ, ɥ= ɥ( ɥ)
1 - * (-; FORTRAN V001A
& EL.n--L * L-L.x--L.d-- & E & * p-( ' 'y ' - N '^ ;G -; L. P * .d -e -P -Q -P )
. 0MAIN. DATA. * 0 * 0 } 911 B \ , . 9 TBIIRDC 5 h5 f5 d&
7O * 97^ ĕ$ E
i=D . : j= ' C EĜ9 D: 9 ﳼ1111 * ^: M w " : 9 \ 1111 * : h R zE w AA
d= : 9 ﷼11 $ : * D <E 5;7`S :.; ; ~ * ,ɥ, ɥ= ɥ( ɥ)
1 - * (-; FORTRAN V001A
& EL.n--L * L-L.x--L.d-- & E & * p-( ' 'y ' - N '^ ;G -; L. P * .d -e -P -Q -P )
. 0MAIN. DATA. * 0 * 0 22222 23 33333 3#3(3-3 * 233<3@3 ENDFORMATDOASSIGNCALLCONTINUC * 3ERETURNGOTOIF(PAUSESTOPREADPRINTWRIT $ ,3EREWINDBACKSPACEFINDC J3 f3 T3 D5*5H5 /
^3 N5 * b3w J & W) W= . 3 EW! N l 5 L " 3 v 5 < f P 3F Z P
2 R 3!
eF3@3 @37
* 3
$F 0 * 1 * 1 * 1 @1 * 1 S * 2 42 .$$$$.9 $ <2 m Z2Z2D2?2 f2 L w ' 6! 2
B .e $ 2 2 @3. " 2 x @3 CF r *;w D $SVSP 7 , <;[; Ee0 71a71Y " b; @E X B * ~;A F h 5 ^= ; 0>, X r= & ; Bw E= e0 1 ;1 ( B , ;w $SBS f&@ 5 @ w <<= w = , $< w =E e . J<w += w @E% @5 T 0 * 1 * 1 * 1 @1 * 1 S * 2 42 .$$$$.9 $ <2 m Z2Z2?|224
? f2 Y n2 | w ' 7(
F & 2 33
G , 2 6 : d4x d4 :
( 4
7
f b
( * @4 4 4e & , d4
. :
p * 4e
W, ~ Se
[ * 4
! U P
. * 4GLOBL $TSI
.GLOBL $TSR
.GLOBL $T 4SD
444 .GLOBL $TRTST
E * 5 D
f(5 *4 . 45f<55 &
B * \5 ( A B J22222 23 33333 3#3(3-3 * 233<3@3 ENDFORMATDOASSIGNCALLCONTINUC * 3ERETURNGOTOIF(PAUSESTOPREADPRINTWRIT $ ,3EREWINDBACKSPACEFINDTD= B J3 @f3XC T3RC ?
^3? E * b3w J & W) W= . 3 EW! N H 5 L " 3 v 5 < f P 3F Z P
2 R 3!
eF3@3 @37
* 3
$F ( r x & W * >>
ɋW) C @R . b>
A 99 ĕ hĕ$ `f >Ĝ9 X넜9 P118 >11 ^ x HE * > p <엠= ( , >
w & >7
&
7
, ?^? E2INTEGERDOUBLEPRECISIOE , @4NDOUBLECOMPLEXREAL*8REAL*4REAL33 f4 |4 L3 r4 F3?ɋ
, 400 $0 0
4 47 >7 w b * 4 ɥ( 8% 7 " 45 E aU @ , " 4Eǡ B w \6
e 5F ~ w & ,5b6&
b=
V , L5 8ɥ, $ɥ) ! 6E V r5B: L +w N. " * 7) w 40 , B:
_ . (7 w . ) G w 0 pz 0 P7@ . : jygq_6 $ z7 z b7
` nT * 7 -( w
T) '9y , 7Cנ נ= |
T J7
, 7 , )
7
" 8H
X: ( * $8 Cנ נ(
j * H8 w :v * 5!w v- p(
ft * 5{& E P * 5 Jp7 O$4 * 5 4 &gU {$ eu# * 6 CEE BPBeᷣW[ * 66 PBCCBEE * Z6 P b f @ 0Q * ~6 PRT!f6 p1 * 6 f w
0Q P/ * 6BE@C %FK e0 근1x D?1p j X? $PUT $POP j?7
b?
X &5 4 , ?ĕP ^ e0 P갼1111 ? ^ x H ?5 $ ? R $POP * ?1 ! 10 * @
f1& S v ( &@
@ L N= D > * H@, < < : BW= 5 9 * l@ 7 .W, 2 / - ɋ
$
U , 50
0
6 ɥ, ɥ) S h * 5ɥ= P
ɋ]E p ] & , 5 t6 Ee0 50 7171 U " 6 w {6 ml2
* .62
F w 67^ * R6^_ $TR, : JSR %4,$POLSH
$ ! v6POPR
.+2
RTS %5
:
b , 6w jɅ0 $
n3-0- * 6) $)&f 7W A
bw * l8Z f&
(
, A * 8)
Bw
f TE . 8 D=
*
$1ӝR * 8 ą7
N " 9 N $ 9
7 = [ . :9) w Zw J
) " b9w :
T v ~9 : L:: X1B 91: f P6 ( 9 x &
, 6(
w w &&f A * 7 n ) "
* 47T ) "
: ) "< * X7
U 7z7V& N * |7 &
w E p U j, * 7 &f 84 & F( * 7
#F f 2
* 7 5 $ , . 8) 0%
+ EP * 48 ` !o h * @W, # l
N ɋ1 * @f@ J1 ) . /B? * @= 0 1 B E< * @ P ( L f NC A F 0!11 ) :AĆ e TTTTTTT $POP2 P ^ADa< 65 Ü xAE . A ` x w t
A ~ Aw 6۲AA FILEp * Az rB d
f&
* Ae . 6
W)
* 7!w -t (
t * (7{& E P * L7 p7 ,O$4 K * p7 4 &gU $ eu#J * 7 CEE "BPBeᷣ * 7 PBCCBEE ' * 7 P f @ 0Q * 8 PRT!f 8 1 * $8 w
0Q P/ N w D . $ 9R: 5 P 9 , : E i : * ,: BLIRDCXAJ:N:R: END=ERT * P:R= $PSH $PSHR1
0
t:{::::::X * t: $FIND $INRI $INI $INFI $OUTRI Q * :$OUTI $OUTFI 0,0
$PSH, $IO $IOy
:F
:7
.;
5 , :ĕP e0 1111l : " * X8 f
bU rl * |8H&
&
H , 8`5 \ 5 VX= # 8
8 R "} * 8 E 1
@uuE , 8 '5 #R= > $9ݵ 69 ~A p" , P9 CF ^P 2 . v9 CE 99ĕ LD $ 9ĕ$ D9 <Ĝ9 411 B fnB * A d ` jdP "B w ֽZB&./ * HB FTN000.OVL
:B dB ) lB B. B8 BB BI BL BV B` Bj B . 8 B L V = * B` j (N 0 :;+3# R : l < A ` 0 , : CF P F P : 0? . : CE Z;Z;ĕE * ~< P > f @ 0Q * < PRT!f< L1 u * < B w
0Q P/ * , X r= & ; Bw E= e0 1 ;1 ( B , ;w $SBS f&@ 5 @ w <<= w = , $< w =E e . J<w += w @E% @5 Tg = $ ;ĕ$ Z; ĜZ; 11 >;11 . R; BIIRDC 5 h5 f5 d&
7
* z;7^ `ĕ$ XE
> . ; H> @ ' C EĜZ;, ; Z; 1111 * ; & @ 8 M w L " < Z; 1111 * < E w AA
>& D< 턜Z; 1x1p $ ^< E <7`j ( n * =
#F f 2
* > 5 $ 엠, . 0>) 0%
+ EP t * X> ` !E * |> B
>U NH * >$&
&
H , >`5 \ 5 V|C : > . ( * > E 1
@uuE , "? '5 #vC H? ( r $= M & 8= w > e0 췼1e X=1] , l=w $SBS f&@ N 5 @ w => ^ w > P| , = w n>E e ` , ݑ 9 Z? ZA L , t? CF :P . ? CE ??ĕ ( $ ?ĕ$ ꄜ? Ĝ? 과11 ?11 8 . ? 0BIIRDC 5 h5 f5 d&
7ky * @7o^ ĕ$ E
Cm . @@ C ' C EĜ? h@ ~鄜? v鳼1111 * @ n M w A " @ ?w T0 ( = *? > 6 D;w 64? * =
F 2 $
! j * > B ^+
1f 8v * 8>1 w 1 엠H : x * \>
, )D+
* >¥' "
~ Dĥ'
< * >j 1 Z w f1K bL* * > d
@?
* >
1
¥( ¥) \ * ? '? ( $TR ^
.ASCII ^ H . =w N> w &@E% @5 ( =w J+ CE F >w > w > 0>w >7
w >- l * F> > e0 뷼1\1T * j> w ~ .+2
JSR * > %5,
BR .+ : 0 ADD # ,%6
JSR T * >%4,$POLSH
.GLOBL $GET $PSHR $K * >SVA $SVP $SVE $CM ORANNTADSBMLDVPj >WNGLTGTEQNELEGEE $
?&f 5
\?, , ' 8 1111 * @ D ^ . VE w AA
Cr @ 脜? 跼11 $ A E YA7` ARA ݰy 4A |CF NAw D $SVSP
, `A[B lEe0 r71=715 " A j@E 4 a * AA " D n5 C A 4 N & A w iC e0 緼1\ A1 4?^
.EVEN
DEFGIOL & H? R B-r % ^m $ h? h `P ? P$ ?e0 Z근1*1" ? h R z? ?*" B ! ? \ , T $RET $POPR
* ?8@R@l@
& @J P D * (@ I .GLOBL $RWIND
$RW * L@IND
.GLOBL $BCKSP
$BCKSP
.GLx p@OBL $ENDFL
$ENDFL
* (?W ? `? B?E 8 g * L? P *v ؚ -\@ N * p?&? d d++0 WWv * ?Gv ss<p< (( ( ( ?( ( ( . ? 8 w 4
? V 9 ?w ?? FILE * ?z ~@ d
f&
* @e @ f@ * >@ d ` *$P b@ w @&./ * @ , Bw $SBS f&@ z5 @ w 4B`C w &C # , HB w 5CE e f A . nBw OC w @E% @5 0 ( Bw + 0 NCE F v Bw d>C " w VBC Bw JIC7
w @OC- j * B oC e0 淼11d * C ށw ~ .+2
JSR * 0C %5,
BR .+ : 0 ADD # ,%6
JSR * TC%4,$POLSH
.GLOBL * @ 1 T ɥ( = #w : ( @f @ $ 6 @ : T $ w b * @. 4 4 $TR $TRX * A . $TRA 0
$TRAL
f 8
B * (A, ) & ɥ,
$хɋ LA : @ ~y݃qQ fA J P $ |A ߁ & w f 4 " AE P ~߇ w pA ۇ * A lѥ,
U @
, Aɋ FTN000.OVL
z@ @ o @ @. @8 AB A @L AV *A` 8Aj @ . 8 B L V * @` j (N8P ND w D&./ * tD FTN000.OVL
fD D D D. D8 DB Dc DL EV E` $Ej D . 8 B L V 'ɥ, 9 2ɥ( 3
A B , B ɥ) w Aw A :Bݩ t * NB w w
ɋ % * rB
$<
N * B f fѥT \ѥO , B 4 fޢ ɋ U @
< & BDCÝ.CJCÝ>C C
" Cw OC ̅ vJ * 2CE * D` j (ND bݢ
@ ^, % * C ¥1
<B ܅
D N/ * C & w 2D .GLOB+ *
DL $PAUSE
$PAUSE .GLOBL $STOP
$S * .DTOP
.ASCII ^ ^
.BYTE 0
.EVEN
RD
W . TD w
D : |Dw b؆DD FILE * Dz FE d
f&
* De dE fBE * D d ` P y D w .E&./ * E FTN000.OVL
E 8E @E xE. E8 EB E TEL EV E` Ej e bE . 8 B L V f * nE` j (N