File FRTS.SV (save files (Executable program)

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

}|@BH2@'/5/4'/'/+*'/>+*<;
*0 3'' 29 1>+$'+ ''+/2/<'/>?}1?8>* ???&>*7>2 223E, TAD I IOTHND /SEE IF FILE IS IDLE SZA CLA /SKP IF YES, CLOSE IS A NOP TAD ENTNO /GET FILE # SNA CLA /IS IT TTY? JMP I PILOOP /YES-DON'T DO ANYTHING TAD I IOTRSZ /NO ^Z IF RANDOM~)}|(z{z yxiI@ \ wv'u't&dc YzXt#@(zsPrB qbc s s ' 7-Jpq0opsnmlksjisn .hgsfier7Pal1dcy nF H}b{sy:sHaKoTU6jh  qx/7c'b"w`w2!@n/ (opn!.H/J"Fn~.&} K L[|IN {" n& NQQ& RbRQcw RCQGS#JzByxrwj}k^, _vu7*tW2sRrBrqv{p5yKp+L&j
Tb Tcc c ce c cko ? ktc , 0p?L"7LqJ) a/6TujF~}i| o{b(zyym-$x) KKnmw($v'uBtsrr |x |zqCpoqnsm /G"Fn%B&lk0%@&Bj ixOrh |g"(Vzf(/Re)B(/dc"ke(\f"SjB(/bS*gyyVx8p"} r|fOW,U,X@TP#~KG0['f~) b(=z`kb}b("|{c({Fnz2l'"ymnOxmrFn''w"(tfn |A8Ahpljbv(/uj6lj"Nb~A N`(Nv N&F.NbNbtNkzv Fnsbk`k`m?8U,dluqS{ |
H?~9}q>(|s({s(zVf#zcy(PF.#N@zVH/x}"11c(ZzwVV.01c12F1(?Wv)2u)S t1G2r(~!g1& VB@z1J's  |L{OJr"Jjqq)%:125j {cpo#bFn#n"#c#G#dN!.#zO7T"pv%&4"~
(z}|' {Cz(y)X3x wu {Cv (zu|' C@oVf0t,sry MMri&JIw#{r &O pDqqsXoB,ppU xI r pD &Oqx4C0AN No"cccnm `zl!>kGS0C.][:,+.fm|ozfjvTx[Aoy7$#--cJn~--}"|-r{-&-;
z <n0- yi@ M{-"*6y \"0H/55 z-$-?-0 l7<c n ~`O~O=JxO(wO(7 L70(Hzv@/~v&N!XJO0jk]"!L[<p(?m&ppCp(Ob'g ,u[{] '6  JMTutn{o?o)V@?~9}3FNn|*&{,* |*zC,),,yxwi%v)+wi$+", +,(u}z<G&+6*t (}{+,* |*,KL8k~ s<3<vI|b*hhr /qh8(q{ (oS.z ?qh8)hhpbpbxhx++bvof+o)f[*)<+
* <*hK d [ .&;D6r ]4B XF V&W& 6 ~bk^X /w^},mZ|i nj\o*{ HzV &W&Kf b o bbzy)n>yi#b@##9X dtJHx{dPzQ$Zn%jQ@^Ty Tx@/Xi .3b46b75f~} |g3D.Db@{g%(/1@/z)|5v$`/'X.yo 5bx)XyipwrvXysxu@eztf|sY$b(ryHoq)+&()&'(&&'&%&&5h/po9dsi5@/]5"`n4/`4&sU4" oy3b nym>l)m0q\2L7WL:yD_?DV@-K]UT= !%f+,&&/&'r&(W&)-&::@,b++&-b))&Wb((&rb''&/b&&&%b%:h%)J0$h/ X>~k5@..}+D+f).)(b(f'.'&b&f%.%:kQ*%b@Hon%&b&f'.'(b(f).)$d*dY.+WkN
y4 \f rf .:$f%&f'(f) n]:d;%r27"4P.(~{@a~4n}b#Xn|4!J~r4N\$45&]]HX|iY:{8!5b4Xn|Nz)ySR_OU_S_|_'{_'`_T_Px46\NJ9"wX~|l\(/4J)a.)n(!.(n'!.'n&!.&n%a.%]kYR k6]MS` $b$i~9}y_.%U//%*&/-$"$o.#*%&Q/*n&o/#%(C /%!o(Dz*.*o{ ~$$&*H/{%r@Nzp$N^O}($%fQ&v`/$(/? >|?d^f3.pQ@i}/^ O%.3%Q@uz}^t%o%_ */)YI$&Zk~}|/p%*pz-!.$$&)$o.}+/,//*"@{p$NK{"z!+f/a.+/7+& *b*@n+(//}/! 3O%Q ($%fQ&v!!~$$&A.0%^_/])N]3.Q}.vA/v9.(?{% /3/.Q%Sj-/$//H!~99b~h/ *f3Q~QO6Qo/$b-F3pQ*tN%/*3Qp#*p%*p ~@GzX%`.@/XX.+)/MZ.[}" %v! ~-b$Qo&?k+/}%Rjpi/}MzF.bom<mmt,~V(}B|{rzd~yyq!O%n$x ?w#D@o/v"&6M!,J lM(?h&C (OQN&o o&tG&o MMo9jM#MoIj V~ML"M0jGsg&gr2@qbdzgk0Gg'gZJV0|Ko@Hx? f7z |LES-NO NEED TO FETCH IT TAD DNA2 /NO-DEVICE # INTO AC CIF 10 JMS I O200 1 /FETCH HANDLER 7001 /INTO PAGE 7000 JMP CI /MAKE IT LOOK LIKE INQUIRE ERROR DISIN, TAD IOTFIL DCA STB  v{Gs  [ N
J3y@Vzh^;y0F qv*y=|Iv?l2`.r A@?Pf<\T 80  L49K~};|{;XzkXykXxkw6O v 
 ~(u{7G!.7 /+7#6^57R77cH.z tyv:3=7-8<sr7NTP UR @ (`zb`ty)DnH/&FNK(/t5&b^l-ijJj_q<+{*Te7-Ww&63u9RnSj iL*LL*L1- 2-(?L'CHv(s 6}1mL*!*J"B`&|`X~Lj>J}@| "H(o6L*;(/vS"DRb$KICJJLJLY,JZ,L.L8 ISD.R$,KTy
lZt&~By{rDzbL|Ky'Rz&S{&|&{@Z`&IaTdT{y'}0id~/zyQy;6fxc00bo:f<0wR^\/uS/nR/rQ/cT/9XXWpY`/ /~92:b(~ f:dv (}y A|I<00H.@;bnQ)Ko0.cA0:F.:D.9*{" ^zoz'vH/f&0':(/! wdb }{(/ul$/}@3"[~(R"-3hxt- z0tI-(/~+. @/t)s+r}'q .bFn.b) '0D0.630:&13f2b(3{"([zw)hul0upfrt"uwtxrytz
t{t|t~ t4r p `(\{o38p~ :bq!N6 nq1j3q~?:&~38|go~9I)Aa^9 9"@.n/$c@O9" z9c o+m H. tuy~2%~b&Hh-zrVn0r)@l2@t%x)!.ki!H(@@8s93*F . nq@ H.}@&Hk2!8f|{y(ZzI`(zykOJ2 \zjLyIb jKwy vvOyiPjiOl 6d3G$0 Fda iyh8`nbdx(yH/I$.Py2 I`2IIb&Po$8D.8~" kZIb(RxI`ICbgDfEfGokI$.PRxhI`IGbHIh 7BJk60<B }b |bIk{s)A@/bz"`s)D~ E.@ZzRk8Fn8(/yx"<Ih 7nJC{ JK&Ad+"Jw@pZ:zA@/fZ>I /(D~"Jh!>GG&o0`GbGoD6e&&$'$8.&db'~kU|_DD4}`}(/o|9MzCg !DbH oJE"QDfXIbHCzIXneQEEb{/ DbD|i(Q() Dg0DdDg0J nJ. Qk(qpso,& n1
j 2f 3f x)4&1(/67&5ki >c3rDDnU&%(/2H/c5$`/*j)o n5!*~jpvrVj s~)2(/}527a.4/=4&3n}07!.5:&3(/57"5ccHUt5h/4b Ub!1b?0x$Zn%&f3(/5&5a.4/2(/7"4@/ xbH$v!xb!fuj)kdsV+@l^%hU@[z_fcyX$b(by n@ay&b+%b&5bhVzg1 {dyh5@/)5"`n4/,4&y!4 gx3b(Oz2 ~s:@Ho1:f}by:`"HEz:d>.`"@Yzy(:y(222({3}b_ yhV.]._)0+dj^s)+bJ_0!f+,&&/&%bib.]b%y(jJg0\s)y{?  Wf yf .:$f%&f -jrw%%RuU.uS-u{Eu`"uT0u 4Wd.* /.9"YjilW"(4t.c':
JccYyOJ74"P(o@?a4fn~A&j4@Jy4W$45&ccYjsh)8!.54&jv5 }h1 /f5"|H/h{+$hh{jk5@i !fzs)tJq0*y?tk dr &jrm@z^s)r)w`l_z_P~}2H%f&n$dx) .ki.|)% /{z"s!!.b@z"H>z@m y
*jHIzrx &Kw"s@0qdbq! pr(jzq{ vqu tb gbpo < ptad"qs q`(|;MKFA?/VM p_HX( sHz( zq ^&&A"( ~d^h nnAH/eA)}w sLv4vw.vkNvfCv9l@/T T v .*!.~d0(z^\ b n&"(yHZ~|  ~b ^h ^X^hX tT<:^d A^pi})le)JDDNJJEpKfEfdDbDpdpz?Q2^@qpn& /$V.B n"wOPoUo)`!A"~ /"n"n nnb9dn8n&AH/-n"A92#})5:(:XI
)n"DDt 3 nFnnDc~Dng DD7D@:0KB|`&D~ I{GF"bCbgaHa.G/B{A@yzGaD&I7sp spyTyw#wdMup62 pzsT&,Ab@f{xHr EfCg PCb{JbH~bO jjOPPDPxIH.(zEJB H/Bo z #iih8$4G& (?O P6jM]*,Cg ~P&,J(PDvX`eJ,p.P<B{Kz)i)h8!fijrhi88BcJG8b! giO} 'P 'H`.G/dI|4s~"><UPyv _&y`{ H~b#bg#C(/\"!#g##CgP#{0O#d#Q6##Cab(9zg&Qa"Q%jaObg`PP&nO{ OPb!(ogF.4na .@~a&J. nOO&c})bdQ"Qb!ab .zj_;nnnndKvYPPPBMuzp]ZL\XM(@M[Z0 z XlzY
&X&@6 (?@'&joij&P':8&~@fB:$%f}\(\5{s }\(\ $<P$ g5%"P5|5&%&|\(%DJh*J{I&zyyx{%v% . nq\%q \P f%"%bws)\0v=1ujyps+ @`6#G<@db2CAN $@.(/8&z%*@Hon8
J8k&.%bj~'#"&?0+D.+&b&f%.%k *%b@Hon%&b&f$N*-J+f*0&a.&n%a.%=k@,+"+n/&"&n.%"%Fk \$\X\& sTP>#WboZbio#?#w#O}igJ?=L,uO w"`([0)79ps =Y\kieGi:LyRCyEYiNn9tdy^y R@SRQR0D8O8E TRCNT(RCN ERVCR`ob`R1D8FN` 0 ROA RD `l..OG  8VR1
Wyi0*jSWFLW{`+ GG&E. ey0N & C o / #~}w=A&BXnpi0sit0 %z^c+jT%}'&~'0WbRti(^rs0R5J^s)dR&SF.SfS.v| R@Jp(Pzkj^RZ\  d*oA@zsvYXvc[yQA;~ o%"p8kY
TFZCGJ oTX"FnG4A`V>ACbV8pV?IW" RzAV'X4J Xb0 I# (p!6^_ _? A`CN(Wz!QJ&N_N WJ_ hhNk_ hiH(o_Km ~pl^ed0E&  5`DR AE8MRQC(IU !8RCYTMAVC`!ROCHR`1UDRD!`A38N
R@A' TD !PATO #`3p ^ ]YL^PLYQLFr;*,CEFVL(/s~+SOGU3Lm?0N &6 c d'?2 b{V$&#&&bH ~%+fh/x?#s&6&V#b#nbcJn O~bswsO} s|{A"bsn{c6/j&#&%)| &/y#?{y#O:`/Lx)h8Or&rt&
JNobsZn rr"sq&jo?=vv@H`\=LL\IcyF.@o-v c&/D.|"@"/Lx@ov##T.#""#nb%o#I6#OL#5v ~{c&I&y%{ (FzUfU&%@.?IUD?%&I)Io%*T }BQoTL+Jn!/Lxba @PUd;\ ^ n][k][bX]U^][q][`  n][_] A( z[ &y#)l/ (O!"v@!#&n~6J.q`} &r!j~'#!&?|0J o"{J{bc;%b ;z& /o?`># &r,zF{{@y(?{= /H`(@hU.$x"h?{=[+)GL]^^w^F{HI]<^7 =V;?MLNR;$I$>;iU|\M@j YxOVbo@/##9?$2-b`$vv(Vr(#s!N$ .H#zah?{-$&?6Uy%J #)b/$f5 ##c#O #.6#O#/l/2HEz'(f)fnKjf~"}rH ~Fn|{'?)8z)+]?##c$#dc)##c%#dy#&6?#6$#'#rJ#%#'#O&#?{cld<@Llp` $b$bi9~yD$$Df,%b($v\./\h,&&D%&%.@x+H/&5J%%BH}{+f[Oc%($v`/$(/? >a?d[.b@Lz|[/D./.b.f+%b@Yzc[-bD0{-/b ez+\k/./on,"&,&%bD.D,b ,f+.+-dd\+
t?Hn/)]I$&ZUj~}!$b$.ba.f&+/b(Wz|&7 %."z|,&)%"%f%."%v&b&f,!J/6,/5@.&.,/bd/a.&n,q.%/Y%&+@Uz@&d~%f&.&$d%bF%&{&6D!.%@n.%"dz% n++&@%b(&v%h&a.&o EjY5msD}/)]/a/f.ba.f9.(?{%(/z$"a-b`$z!~b@+z}-(a-$]i@? ~@/U}"a-.?0 *f.@.H~.f/./-d*d0.,-k%(&r(+r(RzZ%b Nz& /HSzUH$+f@>%&f +,f h/}v ~sf /Ai4A{ehr gb c dtO}"dAk|{VrA~cf(/Ag2 hb Ojzzk j xw;EO tfV*azOqpU I O200 /CALL TO USR FNOM, 0 /ENTER OR LOOKUP STARTB, 0 FLEN, 0 JMP ENTERR /ENTER/LOOKUP ERROR, TAKE RECOVERY EXIT TAD STARTB /SEE IF EITHER BLOCK OR NEGATIVE LENGTH RETURNED SNA T 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