File DISPED.SV (save files (Executable program)

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

~|H1@.7> * 
&?*"*+?*
)&'(
(>(*(,&'2-2	',&'.&'0:0*2..&%* 35...,7> +&#
=*; /?*; .&'+: . >(+ .2.,=*8 (/.32/*==0+0. ./ +&%# 4> +8 70R DISK DMBOOT.PA BOOTSTRAP FOR DISK MONITOR FOCAL.SV 8K FOCAL WITH DISPLAY, COMPLETE IMAGE, NO 4WORD EDIT.SV EDITOR WITH DISPLAY AND HSR INCORPORATED. EARLY.FO FOCAL PROGRAM FOR THE CALC&~}`|~7{6z & (?d'f&fb ctz#!b & (?`&a."^z' ycyr!b(r(xy!.&!.&!."w@/Xv%v>uust@/sr9q&pw'w'Zo(?n:ml) fbXj ;:W  ]>;];y}!u>]n?;0 2H{ &8`?Lyt6,bqbj~JaF?AL"D$bc!DbDb%&H>d6 !bq b! f D(/&D>o?p"j bHcUzJ n g >!`qi !qi(D.n#i(? 49Lkj$ik4@{b!zf{z$vq+dX.4G;&Pb44d4(?!>4B z460@A@ceHEgQAAF'TaTgaggaWA$gxAdUEC U CcQGaUTYSQBgeOgKpC}Nx@i{x+p/~ pn.C=zL8DnoxpxCOzpJh.L J-X.<l$(k8M<@j&J%jz"?s`M=p=xlT
*@z H 0Gm.LC;xt} 8C xt 0:<PJ@< Ff@000@|0}0K 0DPSP}p0qXYc&TU&V@nX/izXVda.VW"tcU`JZ?v&0!vJ&Nu<Qw 1 Lnwb z&@/"*#+H?)"'(((/(&l')mC HIl')n'):*LKn%) u, ;,w /fL(C@/;o"H;zn')A.nK"(Izn,,j? (fG;ZLj}?
M,nnbLk2%Lt /A .wlnnbu(/gn"v(/y@*xxd{z^p q g[*ptp y ,wfpA*!#1 #) !#1 #) 98 ##)*?0409++*:/)04; 8!: ;:+6/1*;04..4& 444<(.8!4 > * 4.3#!%''!'!'$'!$!'!$#%$%#'@z@}nAo?`@?|ps` / i p
 Znx_ +mT!;!@ FUr&,S*D}c!\=~(!%\pX-a8L>d>D=,+D*)D(@ r67oo{w8+!OC7 Gtbp#!u&<6M&JHd$;b=SrTnryr5R5uwQb\&K)i4@.3/i.K/ww&Sw
DI)iSau(/wu&w .u@/avuH/aIS=2aEAICKDLNPRJFTMGSYQB_# DvSS4cHfz!Db YzS#SScSSkSNSS6KF.K.S*2"X1A;_=V"1DDD# }2\$K?IrqDa./$ "6ruj(u(utu0)LJd LCNF ubqObGfW9b*$ @|"axD"H>z`/>"(>zD B* bB: GMT&Tt" GtFBF>nt nGBkf\H/ "BT+fY fff UzfW*Fr ,
<aabJ n uj Ffa BBb(/ff4B "fh3'1`C1*&"(o{r(/o;$W6>*d6@Ob}/a R u0)Lvbrr&uq& LCaacL|v(J8od>q.(axu nv6bMJd@o u Hzr!.vudu!.rH/au0L lL
6 N6 NFubqud/5jckj)oD2 /\v$H@+-O D&?uqrD5)O&G)i9:9w9)":>?v1w2 o{wuFH+bO@k,$>0D,i("5D0!@oa K.rH/aP+ ,I< IvK'JI+Ovwu&F&RF&E@nu@/ST"GEjE@Nuub@oB.EQ"6FF:Jo000( pDHb(U{9s$DM)U2Ms!_*M) xIHU{"_*"_*J(/fs"'@/ts&M)sxJU,9$<b=OrGf).*1k I,^n k}p I^2 " "$HdZpa`"`#30-K@;(/k<2 -{-L-}?t~HXBM2iM) zC(OoX2M b- lx@M-M!,So+!VJHZiAn.'a[".ur(~!Ef-o'.&uwfJAjQV:EhJTqf7o'o24 +,-./<=>"$:qu(/qu&utub0
 Ff/91E2!wbH'z{ .wh/aE0v{b0uw0)w lvK6uv7wu7Kw'oKr\l!C2{!ObG /H(/*C25E lOEsGbJ _z Gf bEct*K  XzEYzH.A >FWi(/lD"IFd"D:iIB+u!.wH/auEwb{8k4h683144!+HzCb4O,0OU /a ugbT%rb$k_Y+!,j5&Uu!.vbrH/a- q/rK&D<k: t /OrLNrOOrLdO&Gl=S8!PJz0 uISi3DS
[Y'Ubo7bozrbzbXzrW6rMHd[.'SnJ tKU^, u[2mj<Hl z<(axr(/'"o
k= ,V^ l|?
&!DDb("H?\S2j tnn{&l!.J6)!6) 6){<"6=jk0C
oEXM&>H?]l9o}6b|&o{& nEpm#mrs[sc{l{H`+ ,V^ I q!le#(%{6gSc>e^}}t7n{o&}o'|b&B FULL '"{UO0{!l#*"6{6!^lmaq0+lm9!4J7o'oG3(axlCBy~uBk_w+lqD2t%qlD,@.O}"TzO!.W"wVk4p +O&rqfpok rC n{ph6q<` h ,on{7_s pp+ = 6Hl / z"vybqb6J)9@vJ vf D"
zq.qb!ybtgt(/]h(q0)Lxf LCsscwlq!.rH/]s" nF/issb /Cq$hx wB*s"r /Lx$ ufd7 uVJFH/U .
& Ffhx7x"t(/br" ~qoKdhkjyc(Yz!rfh$0lr5&~ &}&C GJ f%& KUqc xw'n0 ziE oC@zpBk |o>**b@!z rfG *B@o2m#*ccZ c9e(/g Sh)@Ve"(Ez(?u"j^*feci v bi*B(d{&RKtLU^4c sKc tKc rKc`i?U`(dfq~#Z@?+)D(J0np{ ?o2!EfpC&D&0qArB(| ,s
<t?&F /S,O<9*AF.u`BB7AJ. nuCCDrCdE>Jvz)?(>C"BCdAC'O0
tBQ lwx0yA&A?G<aG lta&nC (OchG,U0lldmalm' cKfr0}7O/o(em9brqb l(?&!)~3!pc&sr7tiKu0($z0zXjsZ5icccbPb=z L0=i(77&((Kp0 lh ?]s# ezvw)fw)fw)fx)Hyrz{! Mz{|2(]z}((fr)!p>t>KeP5F. i 0v@F~poG@`?E(ZPp nfprBokSDnSJp(/, ,s&o 6 (/Rq){| ot0 urZ nodo=6opF@.v/opzN nw;& LpN="v=&; D;b nbS<b
jp@O?X.l/ea*S&0J n; . df#;Cxy(zz $ KUuppf@ZP$ X0 5631 Y0 5633
KIP JMP PTRD2 /READ M220, -220 M377, -377 M214, -214 PTRFLG, 0 PTRTIM, 0 PTROUT, RSF /WAIT FOR PTR: TO DIE DOWN JMP .-1 DCA PTRFLG /CLEAR THE SWITCH TO NORMAL TAD K207 /GIVE A CTRL/BELL TO EDITOR JMP TRAPRT
FIELD 0 BUFEND=1;K1320=175;I33=1213;OUTL=1225;THSN=161 /THESE DEFINITIONS APPLY TO A PARTICULAR VERSION OF THE /PS8 EDITOR. THE PATCH CAN BE APPENDED TO ANY VERSION /OF THE PS8 EDITOR BY REDEFINING THE ABOVE /SYMBOLS. *BUFEND BEGIN-500 /SETS BUFFER LIMIT *K1320 1320+6100-BEGIN /ALSO USED FOR BUFLIMIT *I33+1 CDF CIF 10 J
LB% tE3xA@aT)@B!$ NS)A @AC@!E-M W IgR# A#N-A0)@ @`)@ KCb0@C[F 03L0I5tR1@Y0r1BCpAS$U RE@4O@UTB@C@2cN5HK3@} lOm}DDDD6!"7!|+o5s 5d56H91")!!5d J n `Hn) <~romlTU0l`1`RPS ~s(HD2(li O AExnX/X < F&X:1xfy I
C&B&tp,el9a8c(gz@pCONSTITUTE THE K336, 336 /THE WAIT LOOP, THEY FALL THROUGH K240, 240 /HARMLESSLY THISN, THSN /ALWAYS PAGE 0 CHAR1, 0 K6, 6 K207, 207 RSF /WAIT LOOP CONTINUES JMP PTRD1 /DID NOT SSRCH2, ISZ PTR /FOLLOW ALONG DOWN THE CHARACTER TABLE. TAD I PTR /BRING IN A LIST ELEMENT SNA JMP I SEARCH /END OF TABLE FOUND AND NO MATCH! CIA /COMPLEMENT TO TEST. ISZ PTR TAD 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