File DIRK3.SV (save files (Executable program)

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

}|h0HHB@4c)F)c )bDnbDf)r$+	P@/$!f)2&*c*9F**4n(?&@?A$!Dn@OAH.b!f .bf"ObP.H@~bfD.QzR*bnb!~ mdmDH//Hdv (2d*t
DCA \NN
TAD \NN
CALL 1,DIV
ARG (14
TAD (2
DCA \I3
TAD \I2
SNA 
JMP \21
SPC 
JMP \21
\22, TAD (2
CIA 
TAD \I3
CALL 1,MPY
ARG (14
CIA 
TAD \NN
DCA \NN
TAD \I2
CALL 1,DIV
AR 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)!rLL 1,IOH ^N, ARG 0 JMP ^L ^M, CALL 1,IOH ARG 0 JMP ^O CPAGE 5 \100, 5061 1057 5464 1161 5100 ^O, IAC TAD \I1 DCA \I1 TAD \I1 TAD ^P DCA 7 TAD I 7 DCA 7 JMP I 7 CPAGE
 T O!N!(/X~b2 b}3&V 2D- @5c5 L#0 +4,b57j2f)
f4$&#@# nJ> n!"b |G#]#V3f{Urz x
O33$HVbn?d . ny
W0%% @_?P2vA1E=i~+Q tRftTtWBtX-tY#t`t }G| }c{z(yy yxy)w(zvu)$t)A$ kbk lsA7A|I!AgVkbHzsi6Aj6 yA^d.AA&kJrisjr!f ls(?\A$AgA NA ~k-j Abe les7 |e x,&Mc2b3dW'Ygxo)t*Wt~}7} ~|b'{"zHd~yz)H?!hK *xBzxzi~}@? w!>}S(}@?O!.vuz}hHz f} .~>zxz)OD ,~<Z }C!o}b`vy J .xz)1 tC@s{ozrZJtc(S{yz)SZ3\\b(wz nm~Fn]f eO.`Eet0-`{Pvg% >JGf Hf l~~JO7})| R2u`uUuS u{6uIhT
oHN lIBC lDGJHKGj IfH<J}/G .{~X lzz7IYJy0  ~EXG&U(T oGDQY*{D ~x kjd{ziC iDk_z",7@(/s,vK2 w{e; XZ*8vOed ~(?}" 8)| {H/zy" xC0(wy0 ~C -z2b *z8$ 2 lv2u 2}t 8K2 /4Z. xCsr(3zq@.z/94*zV&V
V&T&z "!Tb!Vb(AzUUb!VbVVc ~VV& bUdeA*M-Osp?JMw! @@`W @2G ~8O ~OP l}(?M@/|"O}G l}{2@zT oDPJQN lzB }G yCx(/P!.}@/ wiC lDQ }>HIz}H>}vsvgu>u}st}s}'5 ,}r0} |0 }C{H/%Qd>w PP& 'p 'n (kzg b lQ0wcy|pZz)ttK#W)
$ ("  .) bn ~6 C l 4X7h qFn(hn! JDD"@~b>z*N *C*(O?D"(>z*3JD l**6D*+!Dfj }6|6{z0b{jxj }2}~|2|~{2{{sH nzyxDHE+
}D>}|s|g{>{ |js00` F} l(?~9hOwo&x zo"{__-p@ }E70(/ l0(|y{ ?##Kz}!Yf#> O9z n y`xY2,*wZOZIznnsv'Y>J, ~W&}Y"HbnO0Ya(Q
oYD] ,Z> uC Yfmt"xYkz)$O *e`8v?`2td*)t} . G =f l~v Ez}|` U SWH "={K ~E!7h~ziy<&x=&~7x~@5z! l~XK
*Fj@ G b=d /5}" wG} .=v"u CH$zts)O bFbb lWo;poop9op9oo;popoop9op9o60Se|#wKu*8vOJeb n4c)F)c )bDnbDf)r$+ P@/$!f)2&*c*9F**4n(?&@?A$!Dn@OAH.b!f .bf"ObP.H@~b fD.QzR*bnb!~ mdmDH//Hdv (2d*t&c F4nH?! hD V 'Hh h  G~}w (00bH ~1d~3&2>&c|(H#[c* n/c_c)c+c,2bcc-b3f/_J n* ?s){2.n+-'-0BH.rD.b,-'V2bqn380Se|#w@!yyy`I\tsru( qH qs!\r`J\t!yy `I\ py`I\$o Ao!Ap$Ar AsAt
AuAv$AwAxHAyAz A|A}A~AAqB`\~\}\}}!|H `\\`H 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 L L L L L LLLLL L LLL L @h>2H+4 {)4M6Ma;}[{A\ lx%k`qK^Y?)-7676_7
B*)j).c77c l& C_g L )&/767-6-(6 B*-d-_77d)b720-7) l-&IK8-7'7B7g)&JK87y2*7d776*@ @p c ((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{ZOhFFFB!~bH}{GGdG!.|H/{~2-#BGCFC{Bg7g~(B G<F< g97g ~r hB
G<F<g9CeCDgI}<||||S!{bHz{y|yyS!{bHx{!nw8E vu7!n|8E {u3yt7IC?Bg7gICKBg7g h I<Wg)CeC(/|g9Id3FHC@Gs3DgI~};|8 {Lg)!n7g x zLg)7g |y|yyS!xbH2zFCBgy7g zyGyEy!>wH/I( F< g)!ny7 g4(
{LjHH J8H K8H L8H M8H N8H m i-
y|yyS!vc@$N40 Fl/37>HzI~D}|{{Gz|zzS!ybHx{  BwDvDwDZluZ,t[,s|ssS!vbHr{ BwDqDwDQC Bg7gpGp8K
onGo(E S!>pp7p8K mlGm(E T!>pp7p8K kjGji7h*T@@VU0T-0SZ0R 0<Qs@t4DpPO3oGCEUC~g}(?!H/!,|8E {!^zz7{(K Uy7z8K d>x~lww7}c}ws/&6/52?UTCBg7gvGa.~Cyx d<g)7g <vur!}c(Uza( W< )7g <v~aBtG]]L@izsGsEs!>Y#[PXS3Wd3R0VT3U>%~H?+(
Y<g)7g <}|w|E|!>{H?z)y,||||S!xcH)zz.w<||||S!vcH7zz-,u}7L|G|E|!>tH?Jz)yN Qz<j!nsGtr7Xq" ~sG|r7al1 r!>po7||||S!ocHn{zc*\c]>[Z3MX3Ln5K6JcHG3U>: @~C#b}&66a1@|p p@l0]lH]@O,&6 "A@SiR)
?Qz)!F8#(V)%P)' |FaFHQCHSCHTCHUCHWCHZCH[CH @j *lrB3q2 ,<u@*l{{7OC @gJKPDQOCG>QC Bi7il~}sE|F~78gl{{7OC @gz7g ~!ly(?,3*x!.wC(v{u<t8K snt~!rcEqF~~!pcEsF~t3ox ^<?g)^C?Bi7i7 gl}!>p!>(n{u:
A^sT0S0U:7<Qs(P[O3hZ3d>^CKBg ^<Ki)7i >7g  ~^CWBg ^CWBiM [8N a8O iC a8D g~E}G|!>{!.(Ezzy2BWCUC{BgyBWCUC{Bi7i7hglx!>|!>(izzy2BWCUC Cgy@ Q{Z0:pT0S>BWCUC Ci7i7hg~ .BWCUCCg~ hB
W<U<i9M[CNaCOiICaCDgI}k|/h{ zGzEz!>yH/xw7wEw!>yH/vu7uEu!>~H/t>!zcEsGr~!wcEyGru3q ~^#d0+H,G-F 4#^CWBg ^CWBi ^<K(M @NaCOiIQaCDgI~};|<{|{{S!zbHy{x(E F!>!nwvw vEv!>wH?uz2 hB
G<F<g9z .BGCFCCizBGCFC CiM
N a8O i G_3 FFNwV~QaCDgI~};
|HI h  K . HWB{|{{S!zbH>zy|yyS!xbH=zz(B G<F< :8H @'*H @
|HnH{|{{S!zbHizy|yyS!xbHhzz .BGCFCCeH Q I(H
w /s+51!./Li )GF/@4*3q"/oJt3:1./oJoh<Ip\io;hFMp0Ki@: I#IH @8/*gN1 T C`l(  l\`AETg@ IGIH`CH @J *)P~C}Z&Z.\\b^f^.`al$LLLL@h `07 <~t7 <}t7 <|t7 <{t7 <zt7 <yt7 <xt7 <wt7 (?JH/JP*7h'7 >7h#!n!fd!.H/v>!b7h#EIfSuI ****.N I~!>}|7MIT IN IMIC I{~!{c|7x#EIzgy|y7X#!ly!>Hx{yw3!n!vgyz3!n!ugtL6sM6I @ 7( #rGt\6s]6I @ ,th6si6I @"7("#7 z ))& &I @ ,78 '~k}k (4(3I10/)//4(3F10.0/)///3(5I10/)//3(5F10.0/)) WRITE(1,111) 111 FORMAT(//'ENTER BLOCK #, UNIT 1, TO SAVE DATA') READ(1,112)IBLK])- )pfonf 5  H 5-
krf`h~'o-( }Gk.fprFnf}}t HFnkkbj -?pbi`mobgmnkfpg noblokNpD.ltkt@npp&o.kt@nlo&n.nk"nnb5KOxpvu~wwOw3WQrfQ`5NMFLPbXn+bn4 n4bG ~C(WzU"b(;z!b@;zbHf. bf/JC .bAj@"@HzfiH/@/Rf.Xl}yf"nmhl ~Gm
|mx {G lfVbjfkpcm0qrbhnljQ`E 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>fjC+ 2 [2xp&cF6&&c<F c n4< n6 C;
~s; ~}s; }tVb9l|{(|9(0g; 9 ` z9 l~6y"@pz{&xP"b!~ l~w}r `h&ai&O @`A&VabBCjV?LhXjLOCNt_}O5NM\FM,rn4 n4i"&"~&&&&}b8i.bf.o8')  P;? <<4 n<<4ip"&!.|"f{8&X`H/Z)f.bfz8T"bbyi V9Mh lxnzF
*cOeh}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_6V\MhdjIH ;FEL R.n b5B(|h T&n*
n-1n6n=VnVVnVVnVVnJ, h Z. ,,+}/m(/=m$`i"+:-9-Em" nf-?-HlbhInmb!Hnj& nBZzno7 mbmEjmn"Hjb hIk+*gp@ Z` (?V,IV C(VzB V R Q)&6ML
H w 1~[<$6}"An8zDb6|R( ~< j rFB{ /Mz /Kf.M !,O&,MkM VNUfBtLvx]zLojV7np;rD@ |&!#%')N.~rsvvN] `xRC `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?=HHd0 @`?M|} .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*8OJ 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