File ALGRTS.SV (save files (Executable program)

Directory of image this file is from
This file as a plain text file

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 <c0|t&yC Ni{}I& i<}I &|+`yN|d!-6{|7z"7|>Pzs# 0v
p V 27<Ia&*.70be AsKH12r1V[3h&DLDvDsefB3% ux;bl-g!]un.RPY#n17JC!]2 #3"p4>M4ZYDbMCsB" C F f . n h~&pn}`:9:ib9|I& {I* |<. 22<H20774I7 z hh & 7 7 7<0z &C t 7C I{z22bD2bV4938:0:/ pkf&yh%Hxyn9H ~z]ma}{$@@?04 ({H/~}"9:  4&. n>> 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<Ad<+M
9].;FyR]n ` Pe+c"(Zzd /[B&e+b@.I/PPKFU~pp++(/fo"(ze?Z|(/,(/e{2zee @r($9% +]Zn( $9%%($bQ%v'$&)Q/'&b)(bQ&v ''(&'#;=)nn8R]VPZ)f(o%kx"&$/$)$tAoDnJZn !f Xf3%pQ()H?} y)Szr3/% %%3 X#(p}kt#%ppz)fz "f%%p ~p#(p%(p"OJ3(p%Qo&)kj|%~1
0(88(p%rU)p% p3&p$$&(p# p%&bQ v&f)p#%p('z %v!(+ .$$& H/{4t0%"}%vQ&vK)nyo5 6d4)bQ@C}/4 O%(3%Q@Oz}4t%o%8 (R88)p% p7{'!.$$&)$o(}!/|?)7 2@tzp$N4O}%vQ&vRRKho$wj(N9g'2$r/H!&f&M"h ~ 3o~lQ#vQv$,'3oQ ;J% p3pQ# %  @o4X.%(@Fz!L"):zZIjL /%!o n'$&Q&vK!/L%?ji)`(OsN)Q}(Ao)Objyp3%Q}%vQ&v]>!!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 <vWOUTPUT FILENAME ?EM
u &EHbb4 aGaLW2Jta&sb&rW&Ms(zq0pa&ob&nW&E0 aCaLbbtWNJM0WW4(W{&!L].X rI}(}{K{p@S|HGKHJ<;?X%M1 FrH &~ <}E F !Hb(A~Eb1E1 b|{r08z8ry9rx6v53fw069& ?Iv0A3%k7u8&~ <}E
} E@/0E27t's0;z`< ;L;X I5LG0J@K0JECT REGISTER TAD NU /GET NUMBER OF BITS TO BE CIA /INVERTED DCA FLIPCT FLIP, TAD WORD /GET RIGHTMOST BIT OF WORD CLL RAR /(RIGHTMOST BIT NOW IN LINK) DCA WORD /(PUT BACK FORi ~ !@~}|r{r|0zj X~0fut0(O#s#(r{qp"o |u<nHml'k{j<6 <I ijjsh.rkY{po'k ?pg3<<c f{ li`eL2X}cdcsn |i0y~r!ycHx{a ,ys| bj@OS/SZN=t|?kl #$J(M`<N O;? ICINPUT FILENAME ?19
~ &1H\\4 [G[LCJ}[&|\&{C&9M(zz0y[&|\&xC&10 [C[L\\tC:J90CC4(C{&!LI.D K(D :(D y{> 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



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search