File BUILRK.SV (save files (Executable program)

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

{|HH1Hp@@`B^   $;
*20 82:

;&)2  +*7$9 (<+,7" *>( # ,9 +7& *=(+ * (7#7!*=7%<<9< + (8 "> 9(*,*GICALLY OR THE CONTENTS OF THE C/S /REGISTER TO THE ACCUMULATOR PBXS=6654 /XOR THE CONTENTS OF THE ACCUMULATOR TO /THE C/S REGISTER PBNB=6661 /SKIP IF DATA STORAGE REGISTER NOTyhpuXF hS2VFE&Gt4,|#XT#EKGg"z0ZP ?@ T%~?}~}~HeIBUPICJI@OIC8J nJ . ChI8@;Jr@~ /;,?
A&0{0&cHOy }f4Ic(zq&,6Jc }$02 tO0LE` C0@J&cIcxCchn`IIJr n``CI$Iw 0(/l
,00dnp"Jvj|J&^ i ,|JbcX>?,}s|P
,pz z8KGA8HGd@GsAJ Hb nAG89
?&0w0&cHOu yf4Gc(9zx&,6Jyt02 tO0&!LC_ A0@H&bGbxAbhnHHb_GGHrn_AGOGz0(b{f0fHHdo0$oo"b0
i,bX>=,^}y}lmpDDDDfb ?bZn & .By`!b6`N 6CDfBG.b n%v-|AZn`rrt`RB(|J<"zj{JZH:zq^&o# b o>/? "r|mRDnVntm<'{jZP@or$-y*<"(xzgjO`t-n0}p8B@pDDDD EbZn&
`By`{b|d}6CDNfD| ~G&G Fnf Hba,v|.fFM&}"`6}a,brB(|b"a@@'<KaA1OzAnM( D|"](yz|b}NdD/4@ty((j@ P
& f 'BhcbD`b|'d6CD fLjf.k bvuy-"H?jz __"(/c& B&Pn "|sYspyFZ~F^Y([zE /F-}r b (ow8/F~-Fo?k$?@.e$P b|^{jsHzjs&okDkY vz?"Dn8/lFafc&yZ~!Pm /a"@)z~3P@ ojD8nre|- =h bfl=8l?@cJ=V =kD8DD!bDhIll@@c/JDIDIVk0I{?}-=k{E-D0 dfdb !Dndb"bdb Ikbf.nIPb V0j(/aa2jfdbbJ]0f0e|-~}P(otoK~B o{@0}jxyjXuy@jPb n
l)i&k #uubD`tub|) d 6 CDf Lflf '.uH.@r- `zt"(dztd"Pnvb t-pq}Gv-F`Z(/\F" Gzw_} . .(wz8GzvF^@zl@J@fj P
t-o k8H/k"pdllJ/@u"Dn8/lFafc&qZv!Pm /a"@)zv3P@ ojD8nret- =h bfl=8l?@cJ=V==kD8DD!bDhIll@@c/JDIDIVk0Is?u-=ksEw-D0 dfdb !Dndb"bdb Ikbf.nIPb V0j(/aa2jfdbbJ^1f0et-v}P(otoK~B o{@0}fvp |E2&+0N=&Xc MdL6D,/O<({(/}L#5 cLdLs J nc . 5hL8@MJ=a.t~0|(/.v"G5 \,y, o<<0&!LIG+cHLcx5chnccb LLcrF5bLLG* =@/c<4kw"t,k<(z(/=xb<lGc
}itf|.@'X0 2f RB0crw@oC3d?OX(/+*3483 03d3s43 J b n34H2${,!Pnu8/qv"(Fztp.l0/cl"Ik 4(/ 6_K,u(/TJKK1KZ3ZZX0jxIKdbxxbIqxEbeo~I(xl (4{f \y*]0/84 s}p|tx&bI{ GvX0!3f
oB1cxv@oC4d4Pz z5(4s54!4O4584!0J n . 5h4@3JO0- @/ku"(FzsP.r0/Vc"I^ 5(0 61]K/3RZX1jzIK'g*EX&rIzq(jY*TV.0nz&zI(yz&tB(|5<M0
}FpxO88UtXjD@ a5&s0|&Xc 7d86COp /2-Jz918#98%}8O8988%0J n} . 9h8@7JO0u m@/]y"(dzt@.g8/Q",[Z1}K*-~JK(ohr"W{b~o(\z4JXxB(|9<c?z9(4 w,-J~1 h\*X5jr8  }Fp
@W>[ }qpDD rb 8b!Zn!$&
uBmobs!d cd6!D.bFbmR /"k!R(`$.ZbRe}ozgGZQJXnla- S(/5i-eXZ5g-LzB &P. 8/i&5.dO< (|[,4 R @`?p@_ ;4&3&/0:&4H6z!9c8d<G:='>8>>:f:' 8878O:.'`8'88@9JD{X2j
%B#EVhBttvMxz^Lqjsln+pr<D |!a#% ')Ng~ ,o&cHsc"qqccq'drDd_"o zXYZ @qCJrgJfrf|s&(Jy@o(/np2 (z Nq nrGb =b~xr{:Zt9mTs# 7z sbsqdq-J
z (qts{2(A~q(/z"ttdtH(v&*H}u&u?R . nzH +Z qbqmHt`s#s+zFnsds ~* .qrbfrbw&*}ip ?@z[Oz "~i}|{z#l(?|P6y"VnQ6 xIwH(vbub g Vn (/R#t(2s"z n f.g t b d! "!wgrIqBHPpQron{Q'P'H{`.(%z?2m" t.r ct) Fnl`dz2H/z}cxpxlS@j?P)^dmENT CHARACTER JMP LOOP /BREAK OUT OF LOOP ONLY THROUGH TTYRD /SUBROUTINE IF ALT MODE CHARACTER READ TTYRD, 0 KRB DCA TTCHAR /TEMPORARY STORE OF CHARACTER READ TAD TTCHAR TAD (7}Dx@|{zy)_xy)dd_w <v|p~~ ~ ~ Ip~A,~ AK8~$9~ u ,ytysrq}D0|A)~ 0~ XJIAp=IHpMpK7B(IrR9"=<"W
h? g;rHyb *mo(7 I 1 2'34'<5r6i(? 207i;#=&C O0#(z8 &0c9: 0#J* Jdj$?Oo0 zO
0 T{Qb6bO%0 R{WUKB%L>JZe`"S.iSg mjgi&5(K4:P2-:(/DDR|(s N |O(r N |O(q N |O(p N O %5=6? %>? %8<? @s\S~s~_ r~_
q~_px_xw3 x?xv3 x?xu3 x? xt3 x? xs3 x? xr3 x? xq3 x?xp3 x?pw8x_pv8x_pu8x_
pt8x_ ps8x_ pr8x_ pq8x_pp8~_HDsLS~/$sLS~/JDN~O$NxO_Z|v bkF.b"^]]!.aH?`]2c]&2 ]C J"bab$z&@b_/d > /OZ.X/7"@Lz~B"@}b@z| Oj_){z)ZbX_ry xP*fw"\bFnW&/\ |bK?,Z\;@@A`es" v{m>rl1S0 pxwdxLE INTERRUPTS RECYC, JMS BUFBLD SET UP BUFFER FOR SENDING TAD (7700 DCA TRWC /SET UP SENDING WORD COUNT TAD (0777 DCA TRAC /SET UP SENDING CURRENT ADDRESS TAD (7070 /THIS WORD INDICfwtb|\D^uvV&&x&yZ~*Py /v"@;z~FP Pz['t"| ^U zcU?x'U(kUUz PzuB(/Yu&)[([[*z[hs`@xA[(`[`k1 @lw.JZ {VZ}`XU0{\Z[[ {{bz!D{bzz&`0zf.n`zk fORD TO SEND BUFFER PBXS /SET UP C/S REGISTER FOR SEND JMP . /WAIT FOR XMIT WCOFLO INTERRUPT JMP . /WAIT FOR INTERRUPT TO RECEIVE VERIFY WORD TAD BUFCNT TAD (1000 /INCREMENT BUFFERi 9"`8bn0;/pQ@@p nr @ Bb("rjb5a1v 8.` `?E!p$P @@^_4.P0e fI@? e0Gc|@sDx?z<z^x1u@ixs{?pH-*\`k\>3NNfnmo!f!> /~<}}|'|{'z-x{ziqB{2C4sn4'4qMx28${d2*Sy  xb
wi&zRvhsbeqqq1q1}QkO`v ryH/1x+ w"(1zu$|  bc|  0*}  xr-k xr }i (?_|)l}"|c`*n$18dh/$ 8} tY}@s{rzdbGh " t@? "!f$F6q$"$bJ~'C}r| /{2zyrpIxz'0F5c5dwG&o0!Fb(5{G<J55K nbRj bFn &(?ev"(Rzu@.ts"gzLJt @GG4Gm2(ez`H/Fnb` #BP8h`rOU e80GaFn&&dao96IHIhG"lbdno!>C *z bdJKH"9d:(@/~; n& k tT8U3 :{j0 bIkt O@}3jk:j iq>0/X 2(/N &YT)`!" r(s{g"VnbQFb`7 BP(/i !l"&&{(~{b lh gI
gi {}(yy ,gc"f |g &e &|{dzijd3@y{xH/yd3db iccd6b& Z8DJZ(Z( DBJ wcgir aCaj{
| b|iZ2 izv& ,g u@:Y$sQ"6V!l
A X4<a{idri{ N` n#&#H?"_ {Ir{db n`&d`i^#`6+a" *z#&]+~f`jlj}'{j; ,C@Izj2(bz|r'd{g_ q*d`i7h.zty cx`sx`ar w{h#a#v{tHMj SS((/g;2]Sg &3GF9!(4Aedr{d`i@?2le ''j{9r{\`)o0[3Zij CHr@. B4z 3"3Zij 2 3Gj0t R@jtj[V[HjD@[fo0!Df~&a6@?^o D /^"!b(^z@@K_b&PJ@0{(4ze>u$|y|)ky:p)rr&n>9AErB8ppkt@r {j0& C$Nk l#2]i&z@N~9Pb~j}g.|
a(?.6{&z& C@OH$Ht)`SA3Vj _"d8.+#4hijklm 9e["w]]idM ,lr@YS+LIST <J nrr|a"oOsdNbtiYTDM}[~&Ks(/zfVhno(J}j+}s|[& {C(Oj6tS6} z ,y"|_o
n6Qo( KHn ,VbonH})Voh Dj+8Jp6<xx) K =oH<H}rT|)fKfT|)kJwB(j{ (oK$`V+D&o0PN4q:`vzL} vyoe'~2!jk{dr{I@}X>7]j4@>j fc)Y
|&ha' K {&_&@?5$.Jz3(kXr{\B`ytIC XN R@j0d`iI;FN(N{(/WN$ON$N60CId<xIrw"t"$2vru[{`hUrhfhxPL!LI:N3M2hPfhf ]B[cid cjd`v-|d^mib nn_r^rt{]#H/q-&n~~ .3n o /!j"mib|iRD`knVntml&{HZPHoSk"(/Vk&Eh$/D_t-o<{@r)v-yZf*_m "(z j|-yZt|]m&l l" *pdym#,
y0@j8P & f _B]c} P_V&CmdD>ld Bcz^.m"`m&lPNb |-{2Z{]5-y8Z~F^aK(Mzb /8- r lb (oS8/8~-Fo.,P/.m"|$
|-o<|pt,&&yZ~2P- /-$ /y-~-2. z''' '&&J /B0d|-1Kp{(Z'[jf|~?^xp#P
|`X&Z6C[dg2D:fXNZ]b9Zb_a..b_na@Z.Zf\[b^b&bc6[a, .fcb'. /N:$b[&Z"(WzZ/j9 . HoE\$1X.t B8L'' /Pc GDJ%?y /
x+wH)vJ>Hy@f?f>Bb)cC3>"!h nCidg2E`3-sg . nD
>B3m-$6ZO[X?d3zfb j@8P@wM0l hK+m'ip <|D-r r]- {JoUHo<u"d4>(/"$$3(s fDf>Eb+cF6>!h nCid6-sg . H`#Sg . nG
CB6m/$_9$}X>DO6f.& ,8V<+m'ip <|D#-_ '- Z_ {|\LsvODO>B|r r{H/ "z(/ ' @bj08H@|
bfni l`&&0kc@jcdM@>h&ktlbmj^ (crlJ.kf-jh/]^"jhbca]=e-D oMh" b` X~h,J+ (YzbV^ba]Sb-e _Vd.iJ_$t{ 7
<| /+&&paZ/."~&@?}3!|c }{{"hc}{hhKh&ht40+00"HFz! bHFz0"i8;tVR W0jT8zyx)wvgWfu(?tTOFnn^>J n ck J. p+03 O+0
.`?<Ap5qqq)p~i(?}" |{~(z}(/ @/S{"m~i|n6~|}(/zo6y7/l|l@q.1i# gblx)mbnp"pobj&qw"kkclqb(1zj /1B&v$&q1Ju%"# nqjbxl>)&1t"H|{mmb' |q2 bzms %#&~|} /z+898P@pljx8J:`Ao C^n2`!pfCo[ ndH?gg"olia>no"((z nn&o" l 7$JoB!icir_ pbFn!f pBaa7aF>_`(j{b& C ~& bdE"!bobc!onbc!nac~bco@n/h#o'_"d_j+d @Aw:wBmx,hr>D Eb cDfN~'0f E JD /}u9: |BEbFb
j 4*/" lF{0J nG . Fd6 ,F{0GFd FC[
KH>zDJzO y l\W&HCfHdH6HLf?ft@ DUH+s|)V"|jllx(/fKwb;bKAA*a^0@|Q }s*oAn#"j!B({""c""c!}it} s{(/~" z}|{zw&*dri{UI@y{@? })x"t!w"c"(?vu9tRT`!dRC?s {tj&vs9!r"cIqbp_Rpbzb _b c[(oe6 c9Y%ffbnOSf" TrWtSo++ 5?fOk9L;;KOB!L[D'<S?(
P dNp0t!R zt}Y$@}I| dNp vX^S?( P~ ?%}"?|p{RpVhX^g?(Pz yp)''_tY`@L%0H?cI?d?J6?I~ ?0h Nhxb_bef&g&f?6gf7?g'f@gNXJM0 ;yI#x;- | !+!;#4T{j!,~b }b |b n
&m&6@'o 6x6x 6xb6@b(~P/{ ')J1.zy"
&@ bx/w"}vru{ <60tW)sE&rW)RqEM&tW)qEp(/UE"@r"WQP^6Op);q2qo)gyn<!#R;M4Ah(OMz00<S0?1L!LPR B& ;Rk 0{ B+~g}|' BB~w}|'h{jzit D@s{&z;5q<40yyx"fey!&wvrjubtsrpEBt|rqgQbPO6Op)@=yHpMut'pp);Et'ho wnym0h WIsM/U  J~@ki{g{ C<G#f~c }{X3h|p)X]}{2W69 qzyz)
xrz0 C=G=w7v'prpY)M#0VW)6P30dpipMdpi'M90(Hzut'sr7C!2q&60pC oyu0nm)lm)WI0@H@ `S%E fM hl)B*)(q]
hJKz pER PROCESSOR PBNB /IS DSR NOT BUSY FLAG UP? JMP .-1 PBLD /LOAD DSR AND SET HIS TRANSMIT FLAG JMP I TTYRD /RETURN TO FLAG WAIT LOOP CHARLD, 0 DCA TTCHAR /TEMPORARY STORE OF CHARACT vi~|)0}BZff n[\bc({b|@.{z"Bzy"@xbw/Bz)`>~R9~C~T~F~t YCX@j >[ nj(/+ZGJ Zf[$Q"v&o c .[botD*y2
],(]zNg\k & !hJuif0tY`RAO*fiG0P&Ap?w lfnc?DM"|@;T(O7678)(!87 !>({9H/6"5!+N*(?3(3*$,*$*f> c`J!O ?A.G*( N$PSJJkQSRJp8mn^(sy~}@s~OP 7 d{ rl{ G8D~} c ~?Ue~}8\{_ysf#Am"y@@j8
P &]f 5BVc} P (&(-&CidD>\d:L80ks:'Kk:|,@>:XD7<S/jp:TJ:9K{?-:>K hhb[!Dhb[[&h`.:DK]B|^{"p
Bm[cC GNNJ|M?'("tm<)[<9]? ? #twC)e*:LE INTERRUPTS RECYC, JMS BUFBLD SET UP BUFFER FOR SENDING LAS /LOAD THE SWITCH REGISTER SPA CLA /IS SR 00 SET? JMP .-2 /WAIT UNTIL SR 00 IS CLEARED TAD (7700 DCA TRWC /SET UP SEN 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