File MACRO8.SV (save files (Executable program)

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

~|@p 04"'#'
' -# % /) 9 5)#'! )! ? - '  & < ( 4 ( - 6 * : 8 (
/%8 9* 7& 4K PDP-8 OR PDP-8/I COMPUTER / EQUIPPED WITH AN ASR33 TELETYPE AND AN EXTENDED / ARITHMETIC ELEMENT AS MINIMUM HARDWARE. /BY: / / JAMES ROTHMAN -- AUGUST, 1968 / /RE-EDITED AND CORRECTr:8;`.  /p4fdR@Ftp?@y? 3 ??~`vGF[pLqO 8$6!+aJ"dvew}?OBAYCn4Tw0&  /@"t~bdb`BbC~bA"t}bd}bCbG`~G(O ntt&d!>tH/2t#!#b zd!>t`#%k `c``s!Oc@Bz dcddsO#bO/zn`|Y{0ObFnObG0z|Y{'z)(y ,'B+{k`k
x0d >w n&dKl "d*WjU` v uB& bct! /-#s! /-#!b -z!.@/%"!"bH;vcb~i}I|2&a./$K-(DzrH/Tq"@Dz{z.&fP H/2[jp|)o9n({m(/83l,8k ,,&8k0 iz,8&[!.(/,83kj(,{8[Ju
#'k`+$|=qdw z bjk ii#&h# . n ~g2$of0c lt0rxts0rm`7 N&KAbk60}"(t}(/=KD,X71W2(JzV(/V{"(YzUI+T9J#S(/JR"TY! (s{g"VnwbQFu`7 BP(/i Oy3miL#A KcB;B);$bBg$;bB;B)oye<<++.04EF2Fr!.9$)oye#BkCh$#ji,*g,*j,*#Jd;& $)eXC%0cb g)C #&;!&C;C$;<&C;C0:f&ow# ,f|fu"yi{+K`G|9{2~r""&{}2|{{A&(? @to B)w<@ z#*#k ("z!b(!z!(/a"'H/`%_ &Cj2z#blz!*/B)-^"/oiw/ 5z`]y% &C/~0-(/;z6z\"@Hz1oIz;+-;k;zzbFf.bz&;J0JJJ; `Y+ 00&0d;ow#&#k !b(wzi#}ih{&
neD,&."&&&' }b~Ex}&|{oz[0&!fw(z#( #bZEl DEc!Db@>z~Z)EDdD!.E@?5D"EYyDBl  i9{(/n|j&j&A&@&j#&y& b n~&j'tXh)Ex2~ tw 'fv (uyEt)Aw n~)_l&<e`/Gn)cJ8f2l(22XH/~"({^(/H?&.2}"(7zW(/V2({W(/8|"({p|)2j2{"H4z2U"H3z2z"Hyrqy"x2"T2w+': >'{kGv)GBJ@0G0b `&Ku9!fu(jz2.nt#u(iz2s #r)V#"r{ &l0?0@@t &
_%Pww#t0z '&y'rl4yi &a./S2|k@~(J }--.&-."k N|1&@ > nR@)}"1@c@8J{ 2ziH " Qy2@+@y((zJ W&X&:&O0W&X&:&Yw9#P Fnxt&wvu'@{{ /{t2O{EbKf@s&i;#Qls89fNOfP.b(/V" z Ofo.\@/N2H{Q8bM P$N-H%(f)8f094&%0}4&)09S&8R&;;D;QS&RDh-0@9b9f8.8;k@9S"9n8R"8DkIPZSBIL IUICD}fffW/9FT !Yiko:EA} z{^IfTub&t& f fLW(L&"!.@/=~)}" zEj&W(}Yz8W(} z,W(TTU&T"( {Ej&UW((
6|I8W({YVJzVj{pW& WcihtisixWtlj&W0iK(+nk& !tJrk%D{GySUd K"JCVJ(()(*( 0)~)0!bk( >98f}3&/8"8f8\"8v9b9f3'J99(89(0( {rH/|{"90 zb bn bP`{)GJC0@b ycxxuS2 wcxxuS2 vcSk000BuH/ft2|k6;U//UUWU|0p+t 8#b n `8/(# /(?#" k& ~)VJ)#~)VJ)} k> .>{k>(&t&0|(+08f8O)8"/k708k}0<k n `OO @0A!.@/Kj6Z)##c#&+ &#6j\K+fjK(bkIk'b@l{jO)krJl>E5Qt @C?P3 b {3~0})3 > n~}|{z)+ /!byx0x"({!. C(OP2|{',|9 'f,0wv /H'"@FzutsrqarponimHsk1li1(/Jd9ZzGiNB,J x" J{ fW@"DFnn{P>V0/Y!>Y=) 3Z2*`:l@fbKfCU+  @?T2 /
="({~J) u(/=2&a.&/ >==&2 ,|0=(/0})1") .33& 3CI='J|=0kpto$(/#J&}b"(Fz@/Xb]&. S oF|_dVXbi lp ^ pI 
qj&X"(mz^ ,pm
/q_"0X(vzHN&E7H%q&VtvFn l&|* F&~0&'&L&a./}}2ko 'H/r}"oo e"(pOm& GyIl&oy ei3;43Dpmxy ,|4Jk|'j&&m&o-r@/`n){" `zj&m&&z( CH.(2y" Fz&lB}b|{{ mKx|)wy rz{@4 B?-D@ z ec_}b&r`af~}7#b&bcoi-|"(z{ / a$b'c&&zy).|" z}}'bbxwsv}ruoy_ >e_6zb RzboI-b!cfca"HXzxd6ue6`x'}u'cO+o)-!.z /Ic$I+*bdbxeru+zt|)`&&}v's0sE(D{bbarCr0dgF2 1#D@G?nZ-tkw JiJb(z.F" z~Jv}~3!Kf| ?<{"7Lh.z" 3zoyL8bf9bJig8H ~ Dz9K"KLbyfr8Jb9K (<z@>zxdK3Jg xa KbK3js7&9wb8k@f8b Uz9(/d8"DHoa9"9f8.8fdUf"!7b7Lk@yc@g{9!.98b o8fgi<O{pwNDc.c/c0d.7"7f@8b40b1F6G&/4&91(FF&6bGG&Hf84&/1(G9&6bH8&36f~5&3.36b>z@4b6f56J3.@1k^wch}72|8|9|K^ wch}82|9|W{vzi^0yx(jzccK.r"Hpzodrc v {r{PH%4D3tLx ~(/ }"|2 l<<({{< LzD <CF<I
D B:yb;:c:x9::C:x:J n9 . h;%J w&v<&=>u|)y0GKtB(k{s /G'2({{ /kr3(ryq0F s_}
p y@4v fp l.6/60616~B.b()z EI}p2.b EI} R&|6&Q_&{]&z26k3ky6 3 6_6^666.x`__7_6B nx`^_'_]D8)} RqDQ_&{]&8Jw0v3]u(/i3(c."D(` <E/ `{@C p,/9D)?&~& <|D ,}| {z'yxTF; JMP .-1; CDF CIF; JMP I X7600 *1217 KBCHK, 0 X7600, 7600; KSF; JMP I KBCHK KRD; TAD XM203; SNA CLA; JMP WAIT; JMP I KBCHK ELOAD, JMS I 13:2 =@``1d"&H.H2)VT jkI .e"<#xb!i
#S04g 'g 'mQeo"Q#9uQ!gEa)Z?-H'H&<(4(H-6j:H8H(B0M8H9 H7 H, LOOP1, TAD QR /QR=XRLOC+Q AT ALL TIMES. TAD N DCA PR /P<=Q+N/2 TAD QR IAC /IMAG PTS FOLLOW REAL PTS DCA QI /QI POINTS TO IMAG[X(Q)] TAD PR /COMPUTE COMPLEX OPERATIONS IAC 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