File DIRK2.SV (save files (Executable program)

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

~|J HzO@A}tO
yOO@A}tO xOO@A}tO |O{O@A{tO tOO@A}tO yOO@ Dy q @L~HFE@A~pztM3 ~O ~ q @ |OpN$ TpRtO }O@ D{tO }O@ A}tO zOMAT(3H*20) DO 20 N=1,144 CALL SHUF1(ISET,1,9,1) NN=ICODE(N) I1=NN/72 NN=NN-72*I1 I2=NN/36 NN=NN-36*I2 I3=NN/12+2 IF(I2)21,21,22 22 NN=NN-12*(I3-2) I4=NN/(12/I3) 21 WRITE p{ @ LI )0)
lJC&EK L01 $K=% L%0) L)0 L1 1 6K L;1E!$ @@p^_4! (q`Y/KS"U pFtgpqz |VPq-L20 "&;q"M/g%[q)!rb n4c)F)c  )bDnbDf)r$+ P@/$!f)2&*c*9F**4n(?&@?A$!Dn@OAH.b!f .bf"ObP.H@~bfD.QzR*bnb!~ mdmDH//Hdv ( S&St?&c F4nH?! hD R '@h h G~}w (0 bH ~1d~3&2>&c|(H#[c* n/c_c)c+c,2bcc-b3f/_J n* ?s){2.n+-'-0BH.rD.b,-'V2bqn30")oo4zg~@MP ^D \2, CALL 2,SUBSC ARG \I ARG \ICODE [0 IAC CIA TAD \I DCA I [0 JMP ^C ^D, CALL 0,SRAND DCA \I ^E, INC \I TAD \I CIA TAD (21 SPC JMP ^F \3, CALL 1,IRAND ARG (0 DC p{@ LI )0)
lJC&EKL01 $K=%L%0) L)0L1 1 6KL;1E LI )0)
lJC&EK (q`Y/KS"U pFtgpqz |VPq-L20 "&;q"M/g%[q)!sL LLL LLLLL L LLLLL L @J.2d4 i)[fMKA+F l`%M6;\`<q^=aa?)-7676_7
B*)j).c77c l& C_g L )&/767-6-(6 B*-d-_77d)b720-7) l-&IK8-7'7B7g)&JK87y2*7d776*@ @p cN ((bG*&(C[*c(]z7`K <H%abE
H NI|z&l%+fr[2( |N)mBRzb nO`bPwjEOR)@Cz NN&O&PH/&.NNC|DP.PfNU:NP~! )bE;T;JQ C3$Wsf-JC;*SP*.f| MM7.|`SS7/;&SUJSM&SBS)tC _T&2S&/;&W>>
I)e3&Wenu:m 
)QFs l
@ vOy3'(/'"(: 'b.(P @T P(T(8UV'YX']W'0 F.Zbbb!b'b.b3b8(k[ b \b bEl ? tC,: 38
kL`~db fed |@^wQ$M bcM *AJQ@*Y$sQ"MM)nK8rc(gzM{h===B!~bH`z=BB^=B7^Nz==d=!.}H/u( =, ^$!n=7(^Ga(===B!j4@ ~H/ (D }|7{<z|zzS!ybHx{ BwCvCwCwC'CG @+3**0,@,u|uuS!vbHt{BwCsCwC@B B^7H^ CrGr8H
qp7p8I q!>rr7r8H on7n8I o!>rr7r8H m:AC- BZ A X@B4Z@?x"> %~}rIDB|g{(?%H/%,~8I z!>yy7z(H Ex'y8H I.wx v<Du7uEu!>|H??( =,<#G @,(G I 1/"4q2@.tCttsS&6S3V4l{s7s`2ck`c3H
v<HG C(G  |G2B="FIA"CE D.2*/l+q@*V(
LHG C(G  2/"lq"@V*l~}7IBB^7H^C|G!n{(?2>*FBB^7H^C|GDQDGHBGCBG @V1*/2+q@*zkyk  N@ JFA@  fO! FO# G$ '@$ R #-C2HI"E 7<~t7<}t7<|t7<{t7<zt7<yt7<xt7<wt7(?JH/JP*7hW7>7hS!n!fd!.H/v>!b7hSIDfKuD UUUU^L D~!>}|7MDN DL DMDO D{~!{c|7xSIDzgy|y7XS!ly!>Hx{yw3!n!vgyz3!n!ugtL6sM6D @ 7X SrGt\6s]6D @ \th6si6D @"7X"S7 z ETDTDDN& &D @ \78 W~k}k   7FQ170DB
7,+?r7<+Ir7S+2@|V+2}+ rrG`r27@cR27R171B7+2|V+12|+r 7TTH2~2+2@}>+13|Q+Vr17XB]D- Tpfonf 5  H5- krf`h~'o-( }Gk.fprFnf}}t H Fnkkbj -?pbi`mobgmnkfpg noblokNpD.ltkt@npp&o.kt@n o&n.nk"nnb5KOxpH<k4p#wi3 Gp
 T O!N!(/X~b2 b}3&R2F- `5c5L#0 +4,b57j2f)
f4$&#@# nJ> n!"b|G#]#V3f{Urz xO33$HVbn?d . ny
W0%h}9m+j?02A1u=i~+Q wRfwTwWBwX-wY#w`w}G| }c{z(yy yxy)w(zvu)$t)A$ kbklsA7A|I!AgVkbHzsi6Aj6 yA^d.AA&kJrisjr!f ls(?\A$AgA NA ~k-j Abeles7 |e ni 0v3W('Y xo)&*W~}7} ~|b'{"zHd~yz)H?!hH
*xbzxzi~}@? lw!>}S(}@?O!.vuz}hHz f} .~>zxz)OD,~<Z}C!o}b`vy J .xz)1 tC@s{ozrZJtc(S{yz)SK011 \ICODE, 0 PAG e O.Ee0-{Py% >JGf Hf l~~JO7})| R2x`xUxS x{6xIhN
ohL lIbOlFGJHKGj IfH<J}/G .{~X lzz7IYJy0 ~EXG&U(N oGdQY*{V ~x K 1 \ITEST, BLOCK 1 [A, BLOCK 1 DUMM zZ *8Oe~(?}" 8)| {H/zy"xC0(wy0~C -z2b *z8$ 2lv2u 2}t 8K2 /4Z.xCsr(3zq@.z/94*-sp?JMy! `@`W `2j ~8X
~OP l}(?M@/|"O}G l}{2@zNoFPJQL lzb }GyCx(/P!.}@/ wiOlFQ }>HIz}H>}vsvgu>u}st}s}'5 ,}r0}|0 }C{H/%Qd>w PP&R*|pZ z)vtK# )
$ ("  .) bn ~6 Cl 4X7h Fn(hn! JDD"@~b>z*N*C*(O?D"(>z*3JDl**6D*+!Dfj }6|6{z0b{jxj }2}~|2|~{2{{sH nzyxDHE+
}D>}|s|g{>{|j50 F}l(?~9how&x/ z"{- `}E70(/l0(|y{ ?##Kz}!Yf#> O9z n y`xY2,*wZOZIznnsv'Y>J, ~W&}Y"HbnO0Ya(Y
oYd],Z>uC Yfmt"xYkz)]"(yz*e`8x?2*)} .G =f l~vEz}|`/ U/ S/ Wh "={K~E!7h~ziy<&x=&~7x~@5z!l~XH
*fj`G b=d /5}"wG} .=v"uCH$zts)O bFbblW}?qZ^U !w`i 9}Z\L+[h0Se|#zK*8OJ5N=F;PbXn+bn4 n4bG ~C(WzU"b(;z!b@;zbHf.bf/JC .bAj@"@HzfiH/@/Rf.Xl}yf"nmhl ~Gm
|mx {G lfVbjfkpcm0qrbhnljpE hn8b tbcc l8Ef ~C}ck)). |`Xn)){ 0Df.bf*0@b&b&b&5N=iPzH/NC)GJE(/X$X$X$EGjh/q&fb`cz* X"DnHD{" G~'}'F>fjF!.DQ.rQxp&cF6&&c<F c n4< n6 C;
~s; ~}s; }tVb9l|{(|9( 0g; 9 `
z9 l~6y"@pz{&xP"b!~ l~w}r `h&ai&X @`A&VabBCjR?LhXjOCKNt_}?5N=[F<,rn4 n4i"&"~&&&&}b8i.bf.o8')  P;?n<<4 n<<4ip"&!.|"f{8&X`H/Z)f.bfz8T"bbyi R9Lh lxnzF *c? eh}fnl >A~0~&J0n4"cF%&&&c' @H1~fn~bl}|y 6:&7c7BF 7c7Fc n66,{7rzy{Hf.bfl}N{V
1 xC wr xG hC^hdh_6R\Mhdj ;FE;OR.n b5B(|h  T&m*
n-1]6^=VnVVnVVnVVnJ, h Z. ,,+}/m(/=m$`i"+:-9-Em" nf-?-HlbhInmb!Hnj& nBZzno7 mbmEjmn"Hjb hIk+*g`@ Z` 
(?V,IV C(VzB V R Q)&6ML
H w 1~[<$6}"An8zDb6|R( ~< j rFB{ /Mz /Kf.M !,O&,MkM RMUfBtLvx]zLojV7np;rD@ |&!#%')N.~rsvvN] PoxRC `0 &
c d0 c daf>atHf666b&bC n PhbP8b(J . Jhb&.fJ(b8J~&}f}a(]z  PJ |(2z{H/zy"P0
0! c (bbcoz n r`gK?
el9a8 @`?M| 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