File RTFLOP.SV (save files (Executable program)

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

~|HE@Q;<
&
+q72=282r8
>?>.s>)?PBBb5*nfile.PA

@Switches:
/B     Treat ! as byte shift		      /K     Use extra memory
/C     Chain to CREF			      /L     Load
/E     Enable error msg on link generated     /N     No listing
ZERO-ARE YOU SURE?BAD SLASH OPTIONDSKTTYBAD DIRECTORYNEED FILE NAMESEGMENT FULLHANDLER FETCH FAILEDNO OPTION FLAGOUTPUT DEVICE FULLCAN'T SPECIFY RT-11 DEVFILE NOT FOUNDOS/78 I/O ERROROS/78 FILE OVERFLOWRTFLOP>RT-11 FLOPPY I/O ERRORVER: A0z
@!#f0%f%/&{D8oz"h`hn0/&`0%#D)0
2(* b b2,ZE&  E*JK@~ 6, b,N}/8F.| &,F.0b202(VVb^ b b
b2Y &Z& 2` e62'e
tW,E0/{i a> /w #ab wz a>(/|e0/~ |Cp0bo2b nyy&q.8/qH.&/&{bb!b(mz &&~a./D"}'7*a./D"}? .&2|) b'j &&~/`idbbbab_z' brf "g' yby`n&qz"}|@66yJ0Ee]hTf~) b(=z`kb}b("|{c({Fnz2l'"ymnOxmrFn''w"(tfn |A8Ahpljbv(/uj6lj"Nb~A N`(Nv N&F.NbNbtNkzv Fnsbk`k`m?8 ,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!>kGS0
CLTT 8 fm|ozfjvTx[Ao{7$#--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[{]   JMTutn{o?o
Ls X    @<K p     lK  r X    <$$K  s X    @<66K    @<??KnogZYdOxph`XPH@80( ? ?????HG??= AA
0B     0l@2L0I0D@    0 l2@K 1B     1l@2BL**0I1D@    1 l2D@??K 0E H    0lA2ELTT 8   0 l2E@``KTU=D } |CDB@"   {#9#[_^{%G#dd+ o LwMxQ"d.S0S d xd" Q%!2b.$4j" %$(/(|% >c wc L M<!{$LL=L L@pq fz\sH
lP& fNsd@?;"8m-+i-m.ZjP s8 l}iS 'r''J>(r/Xgf>fbc {
H)zs od#/d#r5@/eD.`/"~&D>D>"`wz'R0
R6 BYXn~0}6&bcM`!fCd| "@s@sDNor ){)7oF"[ D[fk8ZjW@[7J .(/X&z"[=kJZj_k-Oj- Iy[(1JO0xv&m^Zvi-w (nzvF.nkjZj^l[[Xo$ Y@
} 8 r~+f!~S")F
:),j;KQ,J
.A! {B@P) [nA>{ >$%.~ C7p<2e(=Fd" '"1; =1 pJ5B S9 
xb"d]#_pd S )*ES&>"L_nv no room on current device /N No pre-delete /O Match only files with other than today's date /Q Query user about file before operation /T Use today's date /U Treat each input specification ;& 3YtYp'xp6'uK`h`~3u?```@P0 >_g 00|qxs-pV0`C. [OD1VNaf W/0}QpAs8@@b l ~C~@(zUMm?}D>@.zUQ}/U}?UU7?}|0}&|'{'zy'xwvutsMwvrqpoMw)vnJu)msMl)Mk)JM*{%." z{.,{`y0 Uc Ud Uc UdU6U C taU+ f
'h3dWwW$e%c:U+Q"<V.z -F-"bDFnFFn-&&& )Iy {9' +M5}5~5$5*?xC&D~ &~i})})})C4J10
s cb|J fw J nbDkVs!dfV NV6VCvd_V+{&z&!>
tj@.et:a$&h`6zopCLy / " u{pt)~b)}i/3 6|"(,z{(//z" c()z(/$ $ J 6 6{)yK~b1.x)&" 9z{kyt9w ({s(Pr)<H q" Mztr:tywvu(t9}<a"p(_w)v9t9r=fY*tr:n s (YztY{wo+#D+3N_Pfr 3~oi6~A6}
&|& C@@bH(oB.(Bz oI{)ntzRvnz|&yml) DyAkAA&@p (<zmyx , &w j " 7jv " ni _$u#(Nzjt
Q,i~P0s&Wp3(jz@/Y.pvB(WzW')XWjW"'Szt{P[':9#.1s Y("@ z~'(?!. (o}"h"|"g"/ /"(Gzf {M&e J nLfd FnbcFK&Lb)av)K`"H<zz/K!.fybCniMb)n9 j0r_@/cj"^bbDpbl]x,\bw(?N{9,gKf!ffC(f{ /kf$fT9z7" yH$.[e&|!J@kxrb +[Z)YZ)?[(Y(?0 ,|9K(/u~)XTWb9VbkWb9VbUbb  ~9:b}b/ Ac Ad C(OMZ)FT)A?\
vO ip\vV svt@ns\#gztsF_@.tS"\\ ?^s"S(\0{ zzK.!* {) ` 0@~f&?R !f~ & (?"(z J 62!fQ ($zZ)'J}Z)&TT9?(z2Pi|"ZA'{"ZzZT KL&T L<L(O?Z9CX$(z&Z9 b n& `se`dPj`+Hpz%!.`k{4u0U^$@~8f,@n9, 8@f9h?({OH&z({~(/(}"(*z|+{+z+|+rb@nyy9y yy,?@b&b&9?xW&@bw&.SzXhWFJC2v&O rf.Xk`!nf` N`6`CZni`+|xs-VltXt v|`y ~ &*}i** z*j|b j{g>* /N)9 ?i { prz &+\byb l < t5x" }i#H:XD* =z ~+=jw&v&u&7tDNx" =jt &= kkbFnsksikJ.siks)[0cSv)l%=l n|on# @e'es({(/%~"({}(/4|(/4{(/4z(/y"("zxB>w+xb4/
+B4l'!>'d 'c 'd 5J'KHxiHX~HX :kHsH!nHd HcHd Hc HdO0FnfO0 'VJH?vk& ~Irk"jbck{Vgs:?`*o
psQA~h3 z{:g2b ~I~0 X'&kr~& CHOKr,b ~I~0 $;{4z?Afo}|b
mi& & H>(YzH(oYH. ez{&z& 3 YzNJm3d3y2 &m&x",&>w#(3{6jvs) X_X|2F?I:X{)zo o~}rb xb'~iM ! gW Fnf} Fn!. 't+r
c_(/."L,"b|h/{)IgKL",&ts'K",& bc ~& bb "b =z0D.pT& )Iy K?{Wz`& ,~~Py`2XarWkvM
rWFn h{n')oH1oJp~U Nr``bbbxH/J"raab l]8Aa&"Xob"J n ~b$}i~a"Xca.Xar!b`ba`& /+|rb Ub lW]W^W__{ Fn] '_z J n^b t@,8? ?Wy2W0{Dg(?k#|iWa)c . xkhPoH<pk4#pp`S v!Ii)noi~&}
&mb cH /)"c &m !bh0z &!&"&#&0|"(7z G" mi"bL&{#(<z j (/z!2oi"&L" cH(/\y) "b gp 'x p &w #bk G" mi " Lj$r&"bc &&F)"E" &b! bFDdw2(xekyzy '$vob]b!f@bp/"!op%&%!.%bJ n sbeiX%X'V &&CI@CIDn~b''b!nbnob ;z }IG'D3$-[&n}"nn[.[dkzn|"nnb@Cz[n&[D.FFnF{b[ l)y$2n$&%"({]bn]&{)zgK
B*tv`xh`~8--b /,~&}g-2 3%%b &&b%WJ f&W Jn( I''BL & H2(8z &j 'D'c"
mi& |", &m& &j 'c" bF{," bL," c rz /Wy" Dy7v'&^JKv'0g2&~a.hg62{hj9hu2E$ 0S@
ofv lBE6A(? .w6 ?ElE(/5c l<c!`/u}#H~@J bH&E? FbEbZF&Ed FnbM
W Fnfw Fn '0/  c c clD0~ |U; Ue%[6~{iRI> /=2ZT )I~!<bbWJ n gM ~;r :bcH(z #zfD?C(x w lkG0 =r wvCTnv |*8.
QcQ(OKV)Ev"' uC}4t s0Z%*r'&r(&kq'.*j1) /b2P.SIfb7^$SoESrf;7RK"&FG]rZ*k66,6 " ~r(|y}0('z9%!99%!kvk (ozw|bknbbxwbwh#kb#%6x!.#(?Lx&%!>v(/f%$xDJww)Rx&#!>xH?Yw"! a .#0(Uz #c##sk%&v%'k!.%w"*S4vkb*wf{k&B&~6*<fO SWFLW"uir ~(/
8(u|+!@f +b+b}{+@"@}{ ~"("z| /%d. +b+`|"uif08+ d@/ a)p *a c "H{|8{/{ r r r |@6# n&z"H\z#' bMkyF+% bx@.w/^^KD ff9ff4f#6 v"@ubmtm0% pF%x/H~ vDp <s=2 Bz@k w??v=tz n @bVi
8Z@k wbkDk !<f>&>s8>>4N>s8>>4NJ b ns& =@O+p7O~)RhLz}X|Yr{4vzV& AC(On ,*Ko VBkw yy6@&AB0 GrZ n?AdA6A=FJxs([s(w.:lv 9jq$n^g]vrmquur)(/h/827b]r(~w)}`}#&#-"-#b'}' #6!.b@b(z#"J#b|g82r)&_{(//jg@ r!b& {k"5f=!$)`/N "H{|Igc zXgYb [jg[J gf] " ~|i @/V\))2%!u E(/g 2@gtg0qqKOvpSOv*&@pkX"9887++*7*:7,/;< & +q72=282r8 > ? >.s>)?PBBb5* /RT BUFFER IN FIELD 2 FIELD 2 *200 RTBUF=. *.+4000 /4 RT-11 BLOCKS $
JAN-FEB-MAR-APR-MAY-JUN-JUL-AUG-SEP-OCT-NOV-DEC-BAD-U9gt&`&E<Gp)6 .=p40"<UNUSED> NO DATE (z^])_])^]) b n&# 5@.&.,/bd/a.&n,q.%/Y%&+@Uz@&d~%f&.&$d%bF%&{&6D!.%@n.%"dz% n++&@%b(&v%h&a.&o EjY5msD}/)]~(z z+9.(?{%( z$"a-b`$z!~b@+z}-(a-$]i@? ~@/U}"a-.?0 *f.@.H~.f/./-d*d0.,-k%(&r(+r(RzZ%b Nz& /HSzYH$+f@>%&f +,f h/}v ~sf /Ai4A{ehr gb c dtO}"dAk|{VrA~cf(/Ag2 hb Ojzzk j xw;fV*azOqpUR establish loop limit GET# read file records GOSUB to to subroutine GOTO unconditional transfer IF test for conditional branch IF END# test for end of string IF OPEN# test for open file 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