File ASPKIN.SV (save files (Executable program)

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

x|XRX"PPQ@+,75<+,7+,7+,7+,75<+,7+,7+,7+,75<+,7+,7+,7+,75<+,7+,7+,7+H PY
	0200
	H PX MY
	0375
	0300
	H PY
	0200
	H PY
	0200
	H MX PY
	1500
	0252
	H PY
	0200
	H PY
	0200
	H PX MY
	0375
	0300
	H PY
	0200
	H PX MY
	0375
	0300
	H MY
	0200no
  $%& +@+[=R^O]n5FnRm P y&`@@Hmp}pQ!@l&N!B@l&N"@9i@.:@:i@l&"I@.#K
>@$%f&k@E"cFk ~KqEfCllcNll~<`l`<!lb(}{@@n|CrFrCrFr /B@.{CmFmCmFzCnFnC!Nm(/8@.yK@l{<olo< x{@lw<plp<(Yz@Ebv@pG|<rlr|d@.uCFC(Oht+@EbsK@EbrKdY{_0`PH<qUgnm@l<klk<)f@l~<`l`<` l`<}! !n) /!@.G@N),k|E|){0danu@l <DlD<($z@l~<klk<! nCCb z@lD|@CbkGEB}|@l{<ElE<(z{@ly<rlrl@Ebx@EG@NlD||0gPh` d&u_@l<l< zE"~K@Eb}@E,|>{0." )?
BEWUpESE SYMBOLS / ARE GIVEN THEIR NUMERICAL EQUIVALENTS,WHICH THE / ASP PROGRAMS DECODE AND PROPERLY EXECUTE DURING / PROGRAM OPERATION. OCTAL PATNUM=0 /SEQUENTIAL PATTERN NUMBER RE~<gngG@N}CGFGCHF|I$Hb%@i@<iJB M{ |AM@8@;P@BiS@zF"6AiS@;Y@Bi| AM@7i@;iP@BV@ybFM&AV@;iY@B|xFS&B|wFY&B|vF_&B|uFe&B04'NAk gE\ jEf&\f@l~<]l]<]@n].]l}<HlH<H]b((z@Hb Hf|I$Hb%@i@<iJ@{F"6Bi@\ /J|){F"@Ai@zF"FBiy xw|v<^l^< u{t0!fiWxhk h@l<_l_<_~iI$&_%&@@<J@}bF&=@|bF&B{zW@.yC`F`C`F `CaFax a~iI$&a . n%@i@Bib@Ab@=ie@Db@;ih@}F"N=i@|F"TBi{ z w[6[0nxhl E~<klk<k}iI$&k%&@@Bl@l|<`l`<` l`<``b{`}I$`b%@i@Dil@BbzC^F^C OA})@Aih@BoV})yC_F_C_F}I$_b%@i@<iJ@Bo@Aio@;b@Bio@xF"e@nA@=io@wF"o@nBv0phlinu@F"Ai@~F"
Bi@}F"Ai@|F"Bi@{bF&A@8i@zbF(&@;i@F"/@nB @{bF5&A@7i@zbF>&@;i@}F"E@nB@}bFL&@Ai@|F"S@n>@;iY@B(@bF`&@Ai@~F"g@n>@;iY@B%@yix[4'
<rlr<($z@~bF&@Ai@=%@Bi%@~}F"@nA@=i(@~B(0*N Ag@A%4@E.s&~,ttbst&u,t|@n},vvbsv&w,v|@Ai(4x@tbtfu,t|v.vwbvGK@%@/?.w@n;YA@.w@n>L@9i@$ |u&4k PC<dE+PGq>@C`F`C`F `CaF~C^F^C O`"n`"nxf xCyFy} |{{I$yb%@i@BiP@z{&x|&|.| l|<yyb} N{)I$&y%&@@=PBP{6J@zi@ybFbYAiP@B0["(inP2}FX<  j :*5)C*67C3=83@2)192)@1)|2)@1)y2)=X(01+ FnR^R]]Ont@{[ =@3 =9)$X&:5=F+%@Vz6]Pk] 6yX02F2 39=8)1;17=3@0=$N4@1C8X$$&]0B\1 n=sC%H/w)Cq)=n)=.3wi=u)n@p)r&p#p@r pp@rpo=3(//t)29P:X %h/xF>($r!n(&r Dz$&f%3k$&$ni=p),n9@w)=s),q9@n)=u)n@o5p2o@p/o=s8n@$&vp@o);3;RmRm O^t_[F>zpHggU w}/6Uy{t`HngE_ Y, `LD6A~oo\k9 C8ad7 !loC{ K`V(x E U1vJUK Y$`/G.VX"(Uz@Z{$@n%H/n%$dM%"$@ku pxp$%&&Yb$ci[5>~}f. / W.0ib/kivp'%(/C@/~$|$`z{M}Jzyr$FZ%f&.b }r!0b@ ~rH/vbz2zxMz0Zwrz$!?f3%p[pp%Qo&}b'.b Kz}vbO}"@ ~q/"!0b@m{zXzut)zVZ~D.nt)}@/g!>s0( {ha<@nNV<+
uO@ e @y~RR^6M]`dkhoh?o# @f0 .6jk@z6 Jo!>0`/@. .zve('`/ybe'H!~{|QkxI|QkxQkx-(/zp2eqez $h6{xM oco7z!6o&/IQO&%bUI|uPJ ufkQ%6dD@+/b 6f6O.`"eZ *kd c0!fJ&@Ne0we(k}; E0R+Pld0 @ nBHi*$f&%fAPh*$AKFM JJ b @JC(/ A&Bt? Bf+D"(Px,/I'JB}O@Ab/@~Hq~ AfEb<Ad<+M
9].;FyR]n ` Pe+c"(Zzd /[B&e+b@.I/PPKFU~pfJ~B+F+z)+}"(z|(/,(/e{2zee @r($9% +]Zn( $9%%($bQ%v'$&)Q/'&b)(bQ&v ''(&'#;=)nn8R]VPZ)f(o%kx"&$/$)$tAoDnJZn !f Xf3%pQ()H?} y)Szr3/% %%3 X#(p}kt#%ppz)fz "f%%p ~p#(p%(p"OJ3(p%Qo&)kj|%~10(88(p%rU)p% p3&p$$&(p# p%&bQ v&f)p#%p('z %v!(+ .$$& H/{4t0%"}%vQ&vK)nyo5 6d4)bQ@C}/4 O%(3%Q@Oz}4t%o%8 (R88)p% p7{'!.$$&)$o(}!/|?)7 2@tzp$N4O}%vQ&vRRKho$wj(N9g'$r/H!&f&M"h ~ 3o~lQ#vQv$,'3oQ J% p3pQ# %  @o4X.%(@Fz!L"):zZIjL /%!o n'$&Q&vK!/L%?ji)`(OsN)Q}(Ao)Objyp3%Q}%vQ&v]n>!!f)a.!/s!& b @n!(/)\}?}m=(%Qr nhq6r61s6ns1rrqrAw1n8(/4yt)}+*]*3].K@[; n `00c'0d3)A(v)0n3%pQ ($v%Qo&!o!$b$5k(F)8'$&)&&Q%vFFK(R]6$]']%B&r%pRtRb;dkv~z _ Apan&
#o&up&on+n|}~r1{2_ P
:B cb2bb4 b(`sA.(Ap!`(B( o/+Ao@*z(; ;(/U(c((s( n 0 <~OmRF^RQonxOQ(KzDXo9A?o(8(5 $ . N&'0Q(,D.Pa{Q/ b]`AwIj.RO^A/h%b :"A z5p`3 $t |};~;" .7,$27,$$,<$$27,$27,"$27,$27,$$,<$$27,$27,"$27,$27,$$,<$$27,$27,"$27,$nng#4!.e"<7,$$ -3r~}s| #{#~r{zsy|xw'vH?ut;ssUs?rq[pq o!|74+|:H8 N8ml)lkHjNi hlglHD4fbH4bn44behlHSN+d~cv7qx>P|;p0 ]e)` ]R~Co->] ]cM^mhT^
n lb bl~nd~2^Rd*^$&,}iH. |k!J%{)z' R&R{) y'xw'vu'RG"@1ztb\&{)Xf xO(/sR&!.r]&H."BX Nb{ N 0"L@ P0m.=r^y$~&|~(z}|w{~wjhyhjz0yh6xH?zw9v9uh6tH?sw9h%:j)hhbrh.@1.f.@o9u#oFt#wBB(uxsihX qp'XhbX ou3itcwigejs{nctnsmlwXhfvkpo{c ]xm^cQ! ]4m^]$m] r^p: Pp/!P"`^#PZ%p9'pZ*`(/`!<p>pLpoMp,UP- ^_e(^eoy&xm(,Jr
~r^^d^H?Nq.^4 3ze(/P^b}H/F.e8^^6'|')'^+SB@!z{H/!^&e8D.DDn^)*@e(e(^0(!r!hJ&Ne0zp&m ^mH^r+@,wqCo?riC(,c!Lx1 `qb~CvCtRx}~~|92{)~?zq6CH/)q"~{yL| 1z{ yq4/
x{rJxC8wv9q'qxOr<Jx0b brbqCkwvquLwv9q'uRz{DDnDqnt?z!>tw7!Nw(?s . nfx0h r^mxn%n!enN^^ynESE SYMBOLS / ARE GIVEN THEIR NUMERICAL EQUIVALENTS,WHICH THE / ASP PROGRAMS DECODE AND PROPERLY EXECUTE DURING / PROGRAM OPERATION. OCTAL PATNUM=0 /SEQUENTIAL PATTERN NUMBER R/%RSnn 126/%R7X >PAsCK/ T;-17f79 J8f8.8!.77&7: J8f8.8!.7, 0p q/%rRXaHtT~rr||||rr. <FOR AN+@n>& ?f @f~A&>>B=(/5>#} / ?$ >$>c}(/+|"?{b!@bh9@$@b>At>A' @"~|z <y(/x<wp
wqNG` O2Fb / .TH/E xMEbMOzRY0 F'IEJLD; OR nSE`E +THE {ASbP &MA"NUbAL&.; / [@~?@~xlcS R1TT HFC"TO c9cRQ 8PNB4 U%H`BR1 INTO #cc~~c fk6k &} &|&k{9S c ~ & z0 Ozy 'Q$C,        Ic8J0=2b00k0  l /+0 d:?"vWq@n,~'}'|&{'z'ygxg g!gwgvgu't'K"#"GG!.IsbHGb(EzHNHr qh/CH"pH&Ho nh/?,m9HolHId,H""0T:& B&IT) 3t =J 17 i MrY=~2070 2 y 3 /f- "Y bOF~0[@@@G?0
  T@S TPH
nn"} tzzzzPt 4TTT <V 9AtisPrXmsrL@P
h9H H w,HwA,H H w,HwA,H H \|PHHwA,H w,HHwA,H w,HH\5| H H w,HwA,H H w,HwA,H H \|PHHwA,H w,HHwA,H w,HH\5| H H w,HwA,H H w,HwA,H H \|PHHwA,H w,HHwA,H w,HH\5| H H w,HwA,H H w,HwA,H H \| HHwA,H
w,HHwA,H w,HH\5| H H w,HwA,H H w,HwA,H HXmsLrmMPB |\HA ,wHB ,wHA ,wHB ,wHB|\HA ,wHB ,wHA ,wHB ,wHB|\HA ,wHB ,wHA ,wHB ,wHB|\HA ,wHB ,wHA ,wHB ,wHB|\HA ,wHB ,wHA ,wHB ,wHB|\HA ,wHB ,wHA ,wHB ,wHB|\HA ,wHB ,wHA ,wHB ,wHB|\HA ,wHB ,wHA ,wHB ,wHB|\HA ,wHB ,wHA ,wHB ,wH 7/&C2&!W)WW0a.//4z)>)>)>)u()H(?a.//&4z2J\()75D 7@.B *Iq_%|X[Y&XF.XfX.pX(YLH+)(yzHwz:X"(H rWH`(rz7W)Vw7 /W\(7Z2@Uiw7 "< Knn/ &?@$@~}|{zyxDDDDDxD-:6J0 WhGFE]DC]BA]@P #(-27<AFKPUZ_dinsx}
 %*/49`,<><*b+l,~iBO4[,}{B_|<Qz!OYJ-"{R='"{Z=#"{b='"{[80@@~,N*++&~&Ol}&MfzcEE ALR%@BlP,lJ<y@x /=<",=> wB_`[<fgfvzN-V^]f@^ut[w@jD3,Vp%&b<4i~&} &|Y&{ &.& Pf C84J.P&z&y &xY&:C(=>iPbchZz fZ bg b ib rj&Yf2 " fjjb&?f NGJC0B?N"rJB6)b6mJ^/!F5f9!2T@c D?5 
c R O@= @ B" l~N&}BG n&.F. . n/./" |(N{"@8zzC*- /=y"C," BzxC*wF(/kF0&!LKI+ @RJdFd&,!XJv /ay"&!L_@.dP+w_ UUU(h{=_(U(s%p ``?ILl@
l/&44c5F 2B34b11t51'1DOOB1rH?~#1 l1<(/z3*J}I3@1"1Ai B0apn6@666CAl6?In6K| @{gzy(Qz@xc{{7H{#w /W.D@>{v2 ]zD_8E du _ku cyd + j{h"@mz(bbcmds/Pe"[ 9:3@n 8G88G88B:`/3 /9"88c z 8B8&7&88C6F8+"8l< 67);l< ; /,O+"OOb|)4 @@pnKC!Lb Fz<KLK'2<>@NfM>@QkQdgN"(]z1N3bQ?i?MT l<ac+r&+"n C!N7@hku[0@n CC+r&+"n CC@~>L~'}|7{&z& G!JyBxbg)Jw&v&t0;"Qub2bnt9@.onAmHP]X`]y@^J"tJrs'J"rJr q'pp;(||o80 P{pZ$d]!0X(s/A#@N Z`zLp@?p8931B0&lY NEM]U]]e4P~}]C@^!N-V^]f@^4
?O`?O# `? ~ ~} ~| ~{zycTR yIxK6bw7rv8ru9rt:rs:rr:rq:rp4{ly&o &n&r& 'OJF(?Sb2&!L[_"S{eT* V~,}(/cKlr9/3LZRp3210=<;:1 ! qf!.SR&q~)@qbnrrbH&DpVps&b(?]*p( 7zp' ?zp& Fzp% }{p$ Rzp# |{p {{z5sTh?Vgiays6Wh?Wgax sTc(Kz]S# ]zXgi] sTc(Wz]e# +rZ'Pa(R~)=0Ir"fsbC@^a0qn&?i yxte+.$U[UFATs(zV~Y~sL &@GZ}|$'e ?{>[z{y6?{ \s zn\z@Vc(>zy > bECj@Wc(8zy > bECjy > bECjy > bE?i2 x@>y+2 Oz)w'
+" Uz)v' +" [z)u'+ /`)"t zs6IPP&PP.u0/vs) {X|2H[0#^qUP]UaiUrsU@s~& ?^.s}IC@n|g|>{zyf ?<W#UTsh'zV ?7T'e@-V# FzX ?JY# MzZ ?<#y@D@.Z ?<l*Afg|L2A@mxwS^zTgvl@Xgl@.|H2QDm%hVl*Yu{|K2[AmSg ?ct)^S'^ sj6@2e y9_ 2"fYf #ffgC"f!Fd  @i`0
&@2 @i2 0 &@ + /+J"'~+2 2zJ"}~{+ /9J"|'~+2 @zJ "{~{z7"b&"""b&C0ppby& ?np"DnqHbq^&D PhnzqI"f nC@^pl&@OkPH<k4p#Kq[#X`[[D.^fZ+2`(z[>( <zn!>m ?U# %z[ ?"Z'<)mn7T ?#6*[~y6)}6}Y[wd[r-@/9["5@iO`| <{8 8Fn-\&D\"]]c Yz].]]c Yz].]]c Yz].]]c ~>0#6#0 .W kb)i"ck^}"Dbclv(wDarYww@nUqwWXwes n&@2 @nTVw > b@i2 >t_Nr#f+2FbC&~&"~i+"b&}&"}ir2rixH6@d~f{Z'+2FbD&gC.F|#^ bF@^Y>G|#f bE@^a>|L2m@m|I2r nC@^iB:t w`g^hs[G@UlU)UBnVcc !zcgag0w'VF"*bF@^VG"(bE^TV"H$&D ^~Xw2WUbFUbU0"W}"YXbY6zw_|W2!Wf@n'W$Dz?jZVbFJ& .F@^VG"PZbE^a~0qqb{r&r(?z@>q[+qfq{"rrc(y{@qbf0vE C k c>1yF@ccLLbMf~.MP&/Q&,R&6-Q+bR6h+Q&R6h}"L,"SSc BIV|bU{bS6VU$( .Sdsh3z)yc\x{PbQO&OF>OfP+"QN&NO2T}bLR"STbS6{n!> af aCjGW0s sCwGwb;( pzvv@j0~ |[w T 5tryUDnD~b}+2GGc BIoos! l|<@zK@i`CJi{oH6zJ& HCIId IC4,(1zJ%JyrImmsnxyo>{F& FC+BEnc!Ebp{wv1@^K wv2@^u wv3@^u tcFc&F-fgZ'^>tG2nbE@^i^4SoEV, "W[upLU(@nLP(~T}(~g`n}~|gf{"[zbZ&Z!>[(?KH/B['K"y\&\rx\&\rw\&\rD+bv&gg@&@K [gu"c(Kz'.N/"@YzZbZn[[&+fjc(]{@fbtK!%w"*0vkb*wf|k&C&!N7K!#""! "b~6 > }`b+ /|"-" z{:/ /{z2rr~6}0b!bHy{h/y >txy[gw06@ n@nb)o@nn" pobFA&pF-@pb2(/Tp".(/Zp",(/`p"+(/fl*oG"XbElZoG"^bElZoG"dbElZoG"jbElZ@2kumtm0%UxiXTR @L@n+2F~b}cJ'}I2 nCR+&ATS(z6@ ddb|I^C()z@nSA.^dr{@Uf6q!>f(/9@.dz)@f(/> *@`c Xz@_c TzN@._ ?T`# Xz@^gdy)k@dbx[@dbw@fq'db&@S AA6A=FJxs(\s(wr:mv 9|<]9FhNgTuZ@_g@ncV lV<XXb# #  nWUc(#z@Tb+bU&W .U+@.T.+"UWbU@~X~ (3zVbVXb}(:.VV&V.VTb+b|U& VCUG@Tb+bM@iP@{bMU&U{ssb+bzb@@s.yj@@sp&@@x0OvpSf([N>GaEF6nCG lG<HFb(zU ?`#(z@.H (z@n`z`Hr" *_'` ?*~)s@@Fb(?z@Hb"u!ug@uc(<z@n_=z_~@>H" !ug4 @jc(vz@nc}|w 'hw& iwr{uzs}i |iwk'z>} |w oz~v@i(?v@.wl'I07sjb[OnP6 PCQFQ ("z@ncPf PCSFO.+R&R~"PSbPQr&}i@Qb|(F@.Q (.z@nn>P lP<SObRfR~"PSbPQr$n}`Nz@Qb C{)t@0Urqc!rb(dz@rb bzznyn@rb x{@ug`g_grq'T0dk^V[`N>>1A&@Uc@@n@ /9n#ngn?6 ?C B zfgS>r@i`8 ,?<o*A$)u@@jc(3z~@}8@.>|)@>n+2nzyMMb{K@}ilz0U(?T.ycxw'wj6jg@yca@iP@vbyw7wj6jN{v/vhB@mz(bjkNPGR8$T<I[0``"\\g~(? R*~g`_&}_"\ nE@^\F=@ n}@^(~-@|g }m@{b_\&\> ~m@_b+b@Db\\b]f_{"^^c ;zaGm@@. afG!^]]7\ca\'[j@|c Nz[j@_bbz @`b!_b YzH@.k!y$ryiZk.f~-@bk
OVER /THIS ISMGQ%>!$N!@b&b~T}-@~g}|so{bbz{`B@nB,yb ?AB"+bCxbCD&D(??C$@DdD(??@.] ??@.S^wB<&@@A@.k@sc czsgw+2FCb bv& 7 7 7 7 ." g w E `gnu!> ugu0n
gNF[ZQ_$R%`/@DUVU(/KN&N@/.~2O&@NbNfNH/"O$@.ST&TJUC-@=k@Ob~P&P.@nR}bPQ&Qg|R"c(z@Rb+b}Q&Q(?Q"QfQ(?{"R&'z)8@x @nnj6 jCy@! n!uc(gz_gi@._V{@uc sz@_gu._@~kk A[2N %gg,gD.hfhL"@mgD.+j&~}llb|({)k@zc(;zklbnj yi&igjx"ikbijr3@iP@gb9@iP@.j.jwclvcklb|(I{)k"(Mz!g"u@hF"T bF@^esw_`wgt) zfZs,(/es)Z' WR *>wVU>GTSFt@n(0n~c}R&Rg~|2R nR@~~6@{@iP0@Zc, /$z){+2FDb
cS cT cU cVSb@@z@Tb!TfS .SnSy (S&@Ub@Pz@Vb!VfU .UnUy (U&@kcnfSwc`&@@x0lf ^glw)xkHULD BE USED B,S'Eg^>GjlnS-13325-V' RECTAN BEGIN H PX MY PXR 2 0252 1500 0200 H MX MY PXR 1 0300 0375 0200 H MX MY PXR 2 0300 0375 0200 H MX MY PXR 1 0300 0375 0200 H MX MY PXR 2 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