File PFCF22.SV (save files (Executable program)

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

~|H`H@`&
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?Kzzn `@`?M|H ^C, ARG 0 CALL 1,IOH ARG 0 CALL 2,READ ARG (4 ARG \76 CMA CALL 2,SUBSC ARG \L ARG \D ^D CALL 1,IOH ^D, ARG 0 CALL 1,IOH ARG 0 \260, NOP JMP ^A ^B, JMP ^E CPAGE 5 \76, p{ <@<tr LI )0)
lJC&EK L01 $K=% L%0) L)0 L1 1 6K L;1$E!p$P @@^_4P(q`Y/KS"U pFtgpqz |VPq-L20 "&;q"M/g%[q)!r
 T O!N!(/X~b2 b}3&S 2@- 5c5 L#0 +4,b57j2f)
f4$&#@# nJ> n!"b |G#]#V3f{Urz xO33$HVbn?d . ny
W0%% @_?P22A1=i~+Q qRfqTqWBqX-qY#q`q }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 Kc2b22&3 WB'Y$xo)@*W0~}7} ~|b'{"zhd~yz)H?!hT *xzxzi~}@? 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.0Ee10- {Ps3% >NKf Lf l~~NO7})| R2r`rUrS r{6rMhK
oG lMH l@KJLKKj MfL<J}/K .{ z(?H ,~yR zGM]Jx0  ~E\K&Y(K oKU]*{J ~w iC iDk_z",7@(/s,vK2 w{ 1HZ*82Oe1 ~(?}" 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*K-Osp?JMs! @`W 2 ~8F ~OP l}(?M@/|"O}G l}{2@zK o@PJQG lz }G yCx(/P!.}@/ wiH l@Q }>HIz}H>}vsvgu>u}st}s}'5 ,}r0} |0 }C{H/%Qd>w PP&R (gzg b lM0oc F&i|pZz)ptK#$)
$ ("  .) bn ~6 C l 4X7h 1Fn(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{>{ |j90  F} l(?~9hw/&xO z/"{-@ }E70(/ l0(|y{ ?##Kz}!Yf#> O9z n y`xY2,*wZOZIznnsv'Y>J, ~W&}Y"HbnO0Ya(I
oY] ,Z> uC Yfmt"xYkz) %*e`8r? 20!*)0} . G =f l~v Ez}|`O UO SO@W "={K ~E!7h~ziy<&x=&~7x~@5z! l~XT
*j G b=d /5}" wG} .=v"u CH$zts)O bFbb lW <es7 |e Kc2b22&"0Se|#tO2*82ON25NWFUpbXn%bn4 n4b G ~C(WzU"b(;z!b@;zbHf.bf/JC .bAj@"@HzfiH/@/Rf.X l}y "onh rm
~nx |Gn { ~mfVbkn?n;r&s&hmf Ehn8b tbcc l8Ef ~C}ck)). |`Xn)){ 0Df.bf*0@b&b&b&5N7ipzH/NC)GJE(/X$X$X$EGjh/q&fb`cz* X"DnHD{" G~'}'F>fjw+ 1t(xp&cF6&&cF cb7#j&c7F c l68 G~68 ~G}68 }GVN4&k6{  C| ~Cb{@/kz"yiKJ./!f G~}w ([c\ dhF
[<Vn\=&>(S :hnS-/sp?JMs!N}tP5NWuF;Vhv'& c F c F"b"bbbf~&f.bfy(J  P;rAn<<4 n<<4ir"&!.}"f|A&X`H/\)f.bf{AV"bbi S 9Fh lzpz*cpefn l >A~0~&J0n4"cF%& &&c' @H1~fn~b l}|y 6:&7c7BF 7c7Fc n66 ,{7rzy{Hf.bf l}N{V
1 xC wr xG  hC^hdh_6S \Ghdjj8UFEUOR.n bDB(|h T&*
-1wLx=VVVVVVVJ, h Z.C$=B"&L5 DB |
LC&+J^}gx@ ZJ(/VJ$]F"+,X,:Z9eZJ!.KJbKH.G ,EH+-S-HIb EIKJb!HnG& KBzzno7 JbJej (?V, IV C(VzB V R Q)&6ML
H w 1~[<$6}"An8zDb6|R( ~< j rFB{ /Mz /Kf.M !,O&,MkM S GUfBtLvx]zLojl:np;rD@ |&!#%')N.~rsvvN] pxRC `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?Kzzn `@`?M|OR!W7(T(?'LX LV S
Y *bWb7U(zLx0'&(&[&\(0Z" b;`F6C;dEE70;c;LE{ 7ES'L1<=ajwao[2\bLhTsRSbhB r~tGugzCVDyo)N.~rsvvN]H [0 CMA CALL 2,SUBSC ARG (2 ARG \C2 [1 CMA CALL 2,SUBSC ARG (3 ARG \X [2 CALL 1,IFAD ARG [1 CALL 1,STO ARG ]A CALL 1,IFAD ARG [2 CALL 1,FMP ARG ]A CALL 1,ISTO ARG [0 TAD p{<@<tr LI )0)
lJC&EKL01 $K=%L%0) L)0L1 1 6KL;1$E LI )0)
lJC&EK  (q`Y/KS"U pFtgpqz |VPq-L20 "&;q"M/g%[q)!r L L L L L L L L L LL L L LL L L @Hh+2 c6v;Vf^4pW[y[ )mn%g<v[renahy'?)-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;JQ0C3$Wsf-JC;*SP*.f| MM7.|`SS7/;&SUJSM&SBS)tC _T&2S&/;&W>>
I)e3&Wenu:m 
)QFs l
@ vOy3n |PPsR|ST2( n((/("); (b.)Q @U Q(U)8VW'ZY'hX' K Fn[&&!&'&.&3&8&)2\ & &] &F& C G DJ;K 80
hOhc`afOed L^ fGfgD_,e%0YzAJQ@*Y$sQ"66)nK8rc(gz6{b&t,('H/)"<b~*rC (2<+b i/' J,&H"z)=&}~'*C( K(=&+*$C ,|{0(,{z(&y)&x*&w+&vu'tBtr} |, 2sss!rgCKEL(?{SLM/b n ]h](S0>(]=2HHr<v(]0S(S(S((/g;2se]o?CU #2qVq,X Y= l1n) `R\<``I|I}+I~I p)
l & L&Kh,@/ @O &
0 h #G$%'"+AHPz,END LOCK 2,CHAIN!T&r(@yK>]bUrmcLtEJ+M,qjU]"k!|QT+ois\idi[6m9e["w]]idM ,lr@Y
/s/>3 DD HNw0+B`Y@C*vR@4 7N+
C@%*A` 3+O`M3J6I@! fL@JfL@JfM@ JfM+fI@]9+aM@6\ 7@*fA}*FN]+N@2m+aDo f
%)vFZ,+P`G@WS& GN@ JFA@  fO! FO# G$ '@$ R FS!*F4zJF4+fC5`9+Pc vS4*vEA\+SE@N
d@Ld+dR@1e+E/8Jd>JdN d@
d
d Jd>Jd NKdO+KdAvM@@@vN@@(vNCvP@@HJvT@@ JfTCPfZ@@ vZCvP@@H wQ*&V0R7+r78+| 0r2716R 7:+ Yr7@@ 7Q+22}W+
[r7+}$ rr@370\F7Ukiv37p G7{w370)G7"{2w37pIG7B{RwF@-@LY@@h ElBfB!~bH}{|FF h lhVE @E @|FF j5| 5@}F-E hE E ~:w,1)< }|}}S!|bH8z|FF h l0VE @E @ j}G}E}!>{H/Y(
|l nFEQhE E :,}|}}S!zbHy{|FF h l$rVE @+j7RnE @~k}GF h ||*WE @E @ h {|-c]FcMGF h {|<c] h ||*e]FeMG8FHFI8FJcM{ .D{G}GKEc ^zG$Ee ^{G<EgXF eXG 8 F
gZo[nK8FJcM~ .D~G}GKEc ^}GEe ^~G<EgXF eXG 8hF gXK 8hJ c~R hD ~|||Kc] h {|e] h ~|<g]FeMG8FFgMK8FJcM~ .D~GzGKEc ^\(B, BLOCK ~HEe ^~H<EgXF eXG 8hF gXK 8hJ c ^}H-Ec~R hD
~ } Ke]FcMG8FFeM H8FGF h } <c] h | $e]FeMG8FHFI8FJcM~ .0- ]6, 2001 6D~H}HKEc ^|HEe ^~H<EgXF
eXG 8hF gXK 8hJ c{R hD ~ | Kc] h } e] h ~ <g]FeMG8FFgMK8FJcM{ .D~HzHKEc ^~HEe ^~H<EgZFeMG8FFgMK8FJcM h ~-c]} .D}I~IKEeXF cXG 8hF eX H
8hG 8}b hD |~Kg]FgM H8FGF h ~<c] h {e]FeMG8FHFI8F*JcM~ .D}I|IKEc ^|IEe ^}I<EgXF eXG 8hF gXK 8hJ c~R hD }{Kc] h }e] h }<g]FeMG8FFgMK8FJcM h |-c]~ .D~I|I EeXF
cZ) G8FFeM H8FG8F~ .D}J|JKEgXF gX H 8hG 8~b hD {,|,Ki]FiM H8FGF h |,<c] h z,e]FeMG8FHFI8FJcM~ .D|JzJKEc ^') =',F1~JEe ^~J<EgXF eXG 8hF gXK 8hJ c ^}J-Ec|R h 
|,},Ke]FcMG8FFeM H8FG8F| .D{J}JKEgXF gX H 8hG 8|b hD z,},Ki]FiM  H8FG8F~ .D}K|KKEkXF kX H 8hG ! n|K<Ec ^|KEeXF eXG 8hH !hI 8hJ cX |<\ >|K<EU8E E i /o+oo;g*60=(lqn)^
|< >}K<E:oXoXE @E @'**1j=l qn)`~K)K h }<<"[E @E @2'**2j=l qn)`~KIK h |<<B[E @E @R'**3j=l qn)`~KiK h {<<b[E @E @r'**4j=l qn)`~KL&LPE @/*oo;g3D CT`zSq 3pgzo@:~L)L E$FE @, *i@!n}C(3z|8
~L>HE V /o+gN1 TTR@ SN`!NBX 'i0~LsLE%FE @~LsLE(FE @w*p4K@,{zL+V[$V%~%X~s!}bH|{H(FN%FI?FGE h
+lc]!n~{7O;FKEH%FJcM h zL<c] h +le]FcMG8FFeMK8FG,F h yL<c] h +le]FeMPzLG8F*T@; P+nFcMK8FG/F h
~\<c] h +le]FeMP}MG8FFcMK8FG2F h |\<c] h +le]FeMP~MG8FFcMK8FG5F h +lUc] h {\<e]FeMH,FH/F,)OH2FH5FJcMk~MME @/*oo;i0}G}E}!>|H/[( ~\J ^+FE7XE + UECXE
E Y ' &g {1n,X]Y=l1n)] (Q
<h ARG ]14 CALL 0,EXIT+
b n4c)F)c )bDnbDf)r$+ iP@/$!f)b3n**4:*c*Fc(&{@Bz!NDd@BzHf!.b f&b$czPHo@f.bDoR"S..f/! hnnDBHrH~wJ 7 \t/&c F4nH?! hD S'Nh 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,-'V2bqn3>@&&G O f&c!d6N@>H1~ b(r zz /2" ~GoB" zzI OG O@/j(/yH.oQ"(^z] Ob(yz(/c ] O BjK OP(G
xH xK xG xH vB" `o OCK 1 \G1, BLOCK 3 \G2, BLOCK 3 \G3, BLOCK 3 \G4, BLOCK 3 ]A, BLOCK 3 [A, BLOCK 1 DUMMY [0 DUMMY [1 DUMMY [2 DUMMY [3 DUMMY [4 ]14, 2006 306 0 ]11, 2055 0 0 ]6, 2001 6100 0 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