z|HHH"@1@`0!*7?.J>0.0 ?>*.'=?>*. >"==K>:2` *a" '/4-V le&e!&@~b'z$&k"c ' 3 F+Tac4 \ | /4//D//D/N}I./X>i!l})&!"|I!!beihPk!}IA/& !,K> BHb{!rz~yA NXz{xP>U l Pzs# 0v p V 27M4ZYDbMCsB" C F f . n h~&pn}`:9:ib9|I& {I* |<. 22> b 4i r r r r rb&m| 4!& /{&(^zz&"3&b!f:4!.(/W"y" {y b Tz:$xV;w=8f&>J&0DCa:9@vH |0a./{m29mT2[}? @`4Y gK >ik%bnbg&, <bh& &LL0BAn$n%&f:(/~H?B@O!CfB}";boCd9~+R][hJ[h|iS [hR[h{i.b!~0:HHO![k:(9 k4?4i+%&>z:493782_@9$~0 P0f~&.f} |{)d +z {$(z"+#{)j sp /+z)%8%<9;y n: G%"Sxw)vi}%2H ~!N@ ~&2SV&&#us!cB H ~i S{$%f&Sk^^(O^{9_j b c c c cfk&kORnnc>C40|r~)b}!J[ |<~/+}~z 1"}L<>9:i { bk:!(>o k884aTfx*&I"fT"vbf*AJ8+wv$+v $&&T9$uit<9 $u=5}9si*(/gt+:!( k $[;@R3sp}p^"l"b;%(zn ~&kl$6%6 <&=iR8~$n-h &$ '% '& '0}7&b8dDR- OnR]-h$ R4 |&6$6R{ <z$ c$ c% c&n &R0@vfyw&_x6_oJv/m@.x.vbfwhJv_+s]3*:i]`n& cc!1f!>4i /~!:id$z6!>:}"j1 .(*zD..&1D0437)0NC 7K ?2)>K:!|&49!f2({{|Pd7);9b z)k&' >nhlJ784 y43n9 kCd[Rdf_#  4I!f&2({ d6:9@Ho1f:~/9$ 5 $B}@/0"|9);${ zy$: ,.&;:yi02 >,=0!DJ&CK I,H6; &&%!.(/x9R4)&bf :ia1& :i:i5ir6k?p?Kf+h80v-I0MI!k` k438)49c!b(!z'B ~&4I!f43~"*4iTTbr*t44!f&Df::!..}iDbtOQD"t:D"}i&|{*6{*"*b rDzbctDgQ*:.fK( kpm_%"=B""CHD""b( ((ky:y&b9'9 2bHy`/( @3c n >h3>835J{(Kzz(/My"HxrwR(>343v2RuRI ! S&,tR\<D @K(D :(D y{> wGv8u rK > 0 @~b?p7s=t;[W^K] CIA /=RE[X(P)]*IM[W^K] TAD ADD2 DCA GI /=IM[X(P)*W^K]; STORE AT GI TAD S /GET P'S NODE PAIR Q AT CLL RAL / S=N/(2^L) UP ARRAY. CIA /Q=P-S=INDEX OF NODE PAIR TAD PR&L ROGALGOLOADERj~ }& XN|f~(/{zyx'z6wx#g)Jv&uts // .rtyqpo2(n{m(/3l"(Izk(/ji2(h{gufufile'd' I ENDS c|'b+ !~}D dsPSQ^E? k@kAYrP/^":9^~ }i+|i+{"(&zz(/)y"(zx /~wS(vS8 bruvu~v{&?"i^6 }ibb?jR /~}|w~2w)~yg'(/v<6' BFj4pG D!.(/~StHhzs@/ir"^^Ksq"^0^lk+c:0 vP'y37 oTd )  bFbD bj~ !(/}""(z#(/$"(z%(/&"(z s?j!vp !f|&{&C(/'4.'$'0z#b'B  ?77K7;y*(Dz$x)%x)&x)O/8wvw%!xiv0ut2(syu6NYk"`syd0L 4 .JTbT3S ?@-p^XRE[G] AND ADD TO FORM JMS I ADDER /RE[X(Q)]+RE[G]. DCA I QR /RE[X(Q)]<=RE[X(Q)]+RE[G]. TAD I QI /NOW FIND IMAG PART OF X(Q). DCA ADD2 /GET IM[X(Q)] AND STORE TAD GI /GET IM[G] P2}FX<  j :*5)C*67C3=83@2)192)@1)|2)@1)y2)=X(01+ FnR^R]]Ont@{[ =@3 =9)$X&:5=F+%@Vz6]Pk] 6yX02F2 39=8)1;17=3@0=$N4@1C8X$$&]0B\1 n=sC%H/w)Cq)=n)=.3wi=u)n@p)r&p#p@r pp@rpo=3(//t)29P:X %h/xF>($r!n(&r Dz$&f%3k$&$ni=p),n9@w)=s),q9@n)=u)n@o5p2o@p/o=s8n@$&vp@o);3;RmRm O^t_[F>zpHggU w}/6Uy{t`HngE_ Y, `LD6A~oo\k9 C8ad7 !loC{ K`V(x E U1vJUK Y?$`/G.VX"(Uz@Z{$@n%H/n%$dM%"$@ku pxp$%&&Yb$ci[5>!bc(/dV>&6i)wi5:0@~}f. / W.0ib/kivp'%(/C@/~$|$`z{M}Jzyr$FZ%f&.b }r!0b@ ~rH/vbz2zxMz0Zwrz$!?f3%p[pp%Qo&}b'.b Kz}v O}"@ ~q/"!0b@m{zXzut)zVZ~D.nt)}@/g!>s0(j{ha<@nNV<+ uO@ e @y~RR^6M]`Kdkhoh?o# @f0 .6jk@z6 Jo!>0`/@. .zve('`/ybe'H!~{|QkxI|QkxQkx-(/zp2eqez $h6{xM oco7z!6o&/IQO&%bUI|uPJ ufkQ%6dD@+/b 6f6O.`"eZ *kd c09@e@>e0we(k}; E0R+Pld0@0Q @ nBHi*$f&%fAPh*$AKFM JJ b @JC(/ A&Bt? Bf+D"(Px,/I'JB}O@Ab/@~Hq~ AfEb!!f)a.!/s!& b @n!(/)\}?}m=(%n(({% /'2$(b%)b&kDnqrAw1n8(/4yt)}+*]*3#Tn @[; n `00c'0d3)A(v)0n3%pQ ($v%Qo&!o!$b$5k(F)8'$&)&&Q%vFFK(R]6$]']%B&r%pRtRb;dkv~z _ Apan& #o&up&on+n|}~r1{2_ ^ :B cb2bb4 b(`sA.(Ap!`(B( o/+Ao@*z(; ;(/U(c((s( n 0 <~OmRF^RQonxOQ(KzDXo9A?o(8(5 $ . N&'0Q(,D.Pa{Q/ b]`AwIj.RO^A/h%b :"A z5p`!E% %3 $t |||}-B ..NOT.ADD11 SMA SNL CLA /SKIP IF EITHER WERE = 0 IAC / OTHERWISE GET CARRY TAD ADD2 TAD ADD3 JMP I ADDXTR ADD3, 0 *1000 /SIGNED SINGLE PRECISION MULTIPLY, USING THE EAE. /ENiy b;`.:"0,,/#!2Se  ,{@nr @ Bb(pp s?8.` >!~\$ @@p^<63 #`p)W (q`Y/JU"U pFph!z?p$|AIq1L20 "&xqp/`%`q,D q.#(.z~}s|(.{"Bzi BC(O0y' 4f2xb wGv&u't's'r'q'p'o'n'm'l| kK}|0 jI.B"iB& BCNH.z5* s6`rXqaq'3!$s:&sK*!VJ" L*p'+o',+0vfhzzI`@x   :!I "aH+&oY1JMP I X7600 *1217 KBCHK, 0 X7600, 7600; KSF; JMP I KBCHK KRS; TAD XM203; SNA CLA; JMP WAIT; JMP I KBCHK ELOAD, JMS I 1375 / ADDR OF OCTAL TYPEOUT TAD I X7642; SMA CLA; JMP WAIT JMPXN~k0 0f lB,2b~m~d~16~~D 'JDznH%z1c 3x114 pDb3(P0d" ~t ~K8 +@9x30< l;A'B2;+f;02 Cy4eJH`@CY XbIhb4bJJbH|zIdID0DJbnJIcFE xz2fIF0 PKIP~n ~ ("Mdj K}13b |y5 /{#5 n4K&.:*&KL&K1BKt1~"(.z5 K1I |91  0J@|561K1.l`LL71 . nlK"/;0`Z:2H/|2Hz' 4f MK! n dzG `|`bH(om3"( xGy !| o+K}$Yh;;0fp z~}(/3"H|y(y 3f{z7yx7w wGv8u rK > 0 r({Mo@&1` *r1 &~ <}) * !1b(|r)An1)1~c }I) }I )@,z){'z0 z y'x'w>o"Q#9uQ!gEa)Z?-H'H&<(4(H-6j:H8H(B0M8H9S HHK<;;MNnD1 /NO. FIRST QUADRANT ANGLE. QUAD2, TAD NO4MIK /2ND QUAD, GET -COS AT K-N/4. CIA LSR /MAKE CORRECTIVE RIGHT 0 / SHIFT ON INDEX. SHL /FIND ON SINE TABLE BY SHFT1, HLT / INDEX*2^( Note: Lines longer than 256 characters were wrapped