File PASNEU.SV (save files (Executable program)

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

{|I`XPHHp@}|bD	{N	@	@.	lz78.gFhX	
Fn Fh+x lwFn vN wNFh u lwFnIF.M wNFFnt?P srgFhM sFnP sNqF~P }NpF~M }NFobr(? zg~/ L @H p z9=78L01 $K=%L%0) L)0L1 1 6KL;1 5NF bXn bn4 n4bG ~C(Wz U"b(;z!b@;zbHf.bf/JC .bAj@"@HzfiH/@/Rf.Xl}ye"onh rm
~nx |Gn { ~mfVbkn?n;r&s&hmf Ehn8b tbcc l8Ef ~C}ck)). |`Xn)){ 0Df.bf*0@b&b&b&5N2i zH/NC)GJE(/X$X$X$EGjh/q&fb`cz* X"DnHD{" G~'}'F>fj Mpxp&cF6&&cF cb7#j&c7F c l68 G~68 ~G}68 }GVN4&k6{  C| ~Cb{@/kz"yiKJ./!f G~}w (! c\bdh\
[<Vn\=&>(P :hS* ot:N}t5N!F;h"'& c F c F"b"bbbf~&f.bfy(J  P;rAn<<4 n<<4ir"&!.}"f|A&X`H/\)f.bf{AV"bbi P9Bh lzpz*cpefnl >A~0~&J0n4" cF%&&&c' @H1~fn~bl}|y 6:&7c7BF 7c7Fc n66,{7rzy{Hf.bfl}N{V
1 xC wr xG $hC^hdh_6P\Bhdj 8FEUH/ fdbbn 6~0('z;66 fR6666X&6.fQJ nH?o(/N &} &Df D. o " DJHoz nsHoz&btH/o!.
h/o"HrDb'Vbmn>PCHrH~wJ xt@ SUBROUTIN(^TuST COMMON NERR,IERRS,LC@L01
$K=%L%0) L)0L1 1 6KL;1T"ING COMMON STACK,BOTTOM,TOP,KITUM,KZEIGER,NIDEK,NZEIGER COMMON IC0,RC0,SC0,P0,I0,T0,GPUNKT COFGTqY@FFFnFFnFFnF+fp~ ,}(?PV* p|iFHjp{ ,}(?^z+p|iFyb }C(tzi/+Fn lxx7FHjp }C,j9``@a`~~F},|(? {+#pz ,y(?{+%p~iFxk(pwA)AE 9AE @ r. *,`YiF nvC(7z</*u yG+pt ,yH?sD:-pr ,y(?NH/Ns+2p qG4p qC!pc(o{Ho{]/5 qCqF~n& rL CY ly: r<` z+H@ tP,`nz7Y6~F }C!|b(zHz/7{ }C(z{Hz{/:y }CH1z'/;x }C(z{Hz{1// wCvGF nvu7uEu!>tH/Q/th
. Y6s7(Yg:F.t&rA CY7hYc!qb!hG poFnbmbE%R@4/@   .-r
`R``@nB~B/@ RBY7hYc}GF|b{bBzB/@ RBY7hYcyGF n}x7xEx!>yH?wF>v&.@ AY7hYc! lu(?@t+bp zbsGsEs!>rH/qF>r&-@ CYpbvbB-@.@ 0A[7hYcoG7[!>oCF.6 " -r,.140(z/F~F>}C| ,{F~
<pzkFn {GF h dy xCHw{%/iv xC(/zH/zw?j u<tF~sF~r ,{lsCsqyFyb xCHSzI/nv xC(;zH;zS/s p!>sC(ezHez_/xR o/tn xC(m{l:23`@Mf329 G@`$!2.D.yp~iF}b |C(z/{  {C{F~q/|z yGpx ,|H?2"*pw ,|(?, /,2*p~iFj
pv ,|(?:q*pz ,y~yFub |C(GzM/~FY/t |C(UzY/~x |CHqza/w |C(kzHkzq/~FY/*  E a`19@`n)~<}F~|CCE AE @r *,`YiF l{F~|CF zcy|yyS!}cH>zx&.@ BA;8E ) E @F h
4w vC!hG ut7Fsbt(?iH/Zr+6pq,t(?bp+<po ,nF~m?8l* @@5@@ P.2O49)~F~}?>S |FN}?:{zC(y{Hzx?C z(?H/"*\pzCh6zzw2`6zz02ck09DSZDDofvFu ,t(?DK*gps ,~F~}?hr ~GF h pq ~GF}kzpviFub tC(ezl/{p ~GF}k|po* `@ {o?8D5p )~(?*}p} ,|F~{?z |GF h
y |GF{kqxiFwb ~C()z0/v |GF{kqu ,|F~ qt ,|F~{?,srC(q{HIzp?1orC(SzHp{n?6xFm ,~(?^e*7ql ,|F~{?8k |GFjp`o_E5c ` @ @q~,} <|F~{?zF~ygFxb |GwzCzF~ vC!l (?0H/0**qSuEq tC!lz(?BH/B<*qSsEqr ,q(?JU* qwiFrb qC(Uzh/"ph
3 sYF qC7YwyFlj#qyG$qyC*X@!`pR`Pf+3 5t~(z~?) }C |GF|c(z/.R {F^z ,yF~ 8q l|(?&+*9qx ,yB x\8E E F wGFvby(?DT*:qxECE QNE @=q xEFu|uuS! l|H?ts2h
. snEE @[*IXr.`{O~AmQ3`^E @F h tF F ~C!}cH|{/|{2h A BY7Yz2(+z3/yB xGF h  L}F~{~'Fnww7Fh vlNhE 8E ~VJ'q+'I ,`YiFh vluguEu!>{H/t{2h . BpE @^*.`8`P@@9aAE @t 8*iL Bh
A BY7Y~2(z,/ N }C}F~} ?(,*Fj0t l}}7Fbh A BY|7(YgLt l{{7Fbh 9 BY7Y <z2xkFhFp ,z ?hF.FokFnb zC/hwppe78w4guy@9 A`PpRH7-s~G.7H-s}G.H ||N~sG}cHhE E \ '!S A
R!.' iP l{{7z(T | | 7zrTyG @ @z=~)78w~(T } |  |C7xN ( x <z7x !lz(?2H/y8:zujFxkv{&+G )K 7 (o\J*v{&+G )K 7 wGFvk v{&+G )K u78 F lut7F nwGFjq?+^-Hp9=8  T O N!(/X~b2
b}3&P2H- 5c5L#0 +4,b57j2f)
f4$&#@# nJ> n!"b|G#]#V3f{Urz xO33$HVbn?d . ny
W0%F n||7i/ ?2:A1=i~+Q xRfxTxWBxX-xY#x`x}G| }c{z(yy yxy)w(zvu)$t)A$ kbklsA7A|I!AgVkbHzsi6Aj6 yA^d.AA&kJrisjr!f ls(?\A$AgA NA ~k-j Abeles7 |e jpH 3(WJ'Y+xo)8*W8~}7} ~|b'{"zhd~yz)H?!hG *xzxzi~}@?  w!>}S(}@?O!.vuz}hHz f} .~>zxz)OD,~<Z}C!o}b`vy J .xz)1 tC@s{ozrZJtc(S{yz)S<W0% e O. Ee80- {Pz+% >NKf Lf l~~NO7})| R2y`yUyS y{6yMhW
oX lMZlHKJLKKj MfL<J}/K .{ z(?H,~yR zGM]Jx0 ~E\K&Y(W oKU]*{[ ~w es7 |e  z39W[' HZ *8:Oe(~(?}" 8)| {H/zy"xC0(wy0~C -z2b *z8$ 2lv2u 2}t 8K2 /4Z.xCsr(3zq@.z/94* J .xz)1 tC@s{ozrZJtc(S{yz)S?-sp?JM{! @`W 2  ~8\
~OP l}(?M@/|"O}G l}{2@zWoHPJQX lz }GyCx(/P!.}@/ wiZlHQ }>HIz}H>}vsvgu>u}st}s}'5 ,}r0}|0 }C{H/%Qd>w PP&R,~ oeJ
AFb rzKvJ|pZ z)xtK#) $ ("  .) bn ~6 Cl 4X7h 1Fn(hn! JDD"@~b>z*N*C*(O?D"(>z*3JDl**6D*+!Dfj }6|6{z0b{jxj }2}~|2|~{2{{sH nzyxDHE+
}D>}|s|g{>{|j<0  F}l(?~9hw/&xO z/"{-0}E70(/l0(|y{ ?##Kz}!Yf#> O9z n y`xY2,*wZOZIznnsv'Y>J, ~W&}Y"HbnO0Ya(]
oY],Z>uC Yfmt"xYkz)F.*e`8z? 28(*)8} .G =f l~vEz}|`O UO SO@W "={K~E!7h~ziy<&x=&~7x~@5z!l~XG
*jG b=d /5}"wG} .=v"uCH$zts)O bFbblW{3H nzyxDHE+
}D>}|s|g{:0S e|#{O9*8:ON)OR.n bDB(|h T&\*
]-1LLM=V]VV]VV]VV]J, h Z.C$=B"&L5 DB |
LC&+J^}h}@ ZJ(/VJ$]F"+,X,:Z9eZJ!.KJbKH.G ,EH+-S-HIbEIKJb!HnG& KBzzno7 JbJej (?V,IV C(VzB V R Q)&6ML
H w 1~[<$6}"An8zDb6|R( ~< j rFB{ /Mz /Kf.M !,O&,MkM PLUfBtLvx]zLojl:np;rD@ |&!#%')N.~rsvvN] @_xRC `0 &
c d0 c dbf>btHf666c&c > nQcQc)" nK~cbnbKc9}"|if|ib(/^ ( `Q(K0{(3z"Hyrx(Q K!dJ cc?p . ns
h?0zzn @`?pMP|~3/& C~ /2E$[?s~=K 2z}>OlPI&2 5&Z&C(*zc"z[Lr|=@> l5>]b]"^>`/ l @ l> GV`{`R` l[[4 n[c[mFCGmfJ[0rD@ |&!#%')N.~rsvvPy'b n4c)F)c  )bDnbDf)r$+ yP@/$!f)b3n**4:*c*Fc(&{@Bz!NDd@BzHf!.b f&b$czPHo@f.bDoR"S..f/! hnnDBHrH~wJ M`|t&c F4n ?! h%D &P'Nh h G~}w (00bH ~1d~3&2>&c|(H#[c* n/c_c)c+c,2bcc-b3f/_J n* ?s){2.n+-'-0BH.rD.b,-'V2bqn3>H h0D/@@ p{ <@<  LI )0)
lJC&EK L01 $K=% L%0) L)0 L1 1 6K L;1%>!~\$ @@p^<(q`Y/JU"U pFph!z?p$|AIq1L20 "&xqp/`%`q,Dr7\s(@z^^b~^b n}^D.n| {O 3OE OE OE OE @> *,nIlr'1;g k/@J h
{ |LxE Z /B)T%TMXNE!'i0 6OF &Fb Fhmz@x
@N p{<@<  LI )0)
lJC&EKL01 $K=%L%0) L)0L1 1 6KL;1%> LI )0)
lJC&EK$(q`Y/JU"U pFph!z?p$|AIq1L20 "&xqp/`%`q,DrLLLLL LLLLLLLLLLLLLL@Im<+ 2)N4|;'
a\M \/-g2m~r%6;"bP<![r^/p?)-7676_7 B*)j).c77c l& C_g L )&/767-6-(6 B*-d-_77d)b720-7) l-&IK8-7'7B7g)&JK 7y2*7d776*@ @p cN((bG*&(C[*c(]z7`K <H%abE
H NI|z&l%+Fnu` LN)mBRzb nO`bPwjEOR)@Cz NN&O&PH/&.NNC|DP.PfNU:NP~! )bE;T;JQ@C3$Wsf-JC;*SP*.f| MM7.|`SS7/;&SUJSM&SBS)tC _T&2S&/;&W>>
I)e3&Wenu:m 
)QFs l
@ sYCn |PPsRPs N( n((/("); (b.)Q @S Q(S)8TU'XW'hV' K FnY&&!&'&.&3&8&)2Z & &[ &F& C G DJ;K 80
hOdd`fOed L^ fGfgD]d.i|e+0'pp ErJB6)b6mJA&(?f6)z* b&t,('H/)"<b~*rC (2<+b i/' J,&H"z)=&}~'*C( K(=&+*%S ,|{0(,{z(&y)&x*&w+&vu'tBtr} |, 2sss!rgCKB qp0(J{Jn Zfq>H~Zo+__(U0e(_>2e>w_ UUU\8ug]o?CU # qVqr0"1c!!bL~9!!&! J!F.(b Iw ( ,w0"iw> Pocplho6XcnobXoWn"/ Wc( nbDobXoFn">V*n!&o!..X.nlhZofn- !!b@,rnlh1.Zr  . ?G+0hcKrpc+ Aw n~)pp&l@9AER0uH>@`1`RPS2 l(+2@iO AE@wnX/ < ?&A9@T8U3?why I - 5cO(4:@a!V7&(/BRbRsdfW't&7SLJQT?.q\Zdr'!XJ[o?pc6ppCbtigylbu(dd&pTJ sIr@pJ n `(rHnu0+B`Y@C*vR@5 7N+
C@%*A` 3+O`M3J6I@! fL@JfL@JfM@ JfM+fI@]9+aM@6\ 7@*fA}*FN\+N@2m+aDo f
%)vFZ,+P`G@WS& GN@ JFA@  fO! FO# G$ '@$ R FS!*F4zJF4+fC5`9+Pc vS4*vEA\+SE@N
d@Ld+dR@1e+E/8Jd>JdN d@
d
d Jd>Jd NKdO+KdAvM@@@vN@@(vNCvP@@HJvT@@ JfTCPfZ@@ vZCvP@@H wQ*&V/ 6
@T&FQ!*AC*C@*C)@! u  7YB@UD# tIap6D#i
vG)+"Xq #R# sP># MX@R#iXp@K#N@!L#i AsMn#A6N"i Lp;qw7r@]O$0s7F <p7$%qDD\6RQ 7= 3q7K# Ou0A7HO" Vq" r<47@\Q47 Q47@Q"
N57#\ql+-q 7E# tNR" 7B Qq
7ifq7+r7=+\1l2+r7+") q;(r76,L3@ 27;B17?B\6qLb+Fr7[+(pY@DFFnFFnFFnFFnFFnBFn~&}F aJD >7D F~~&}F )KD >7D F~ |GF{gFj0q@H~ ,}F~|{'FzbyF~xw'FvbuF~ts'FrbqF~O%@FFFFpgpEp!>oH/nF>vFRFm|mmS!rbH zl&o(B
=l< l0HE @3(E V 1,i@F lqk7-pl&o(B
rL< l0D 'XrL"=%p<c N~M~LK~cRXP.Hz7D ~2( z/.  }C}F~|?/{h
< lD }C7D zF>yGGx|xxS!wbHEzv&w(B u|< lRB'E @-(E FyGGx|xxS!wbHizv&w(B t|< lRf'E @Q(E  s D"g4<`$`\rl`~2 -)@Fl~|~~S!}bH=zFh ||2{w{E{!>zH/+z"h = l(7E (E
6 1,i@Fh/ 
y|b~w~E~!>xH/[x"h <l(XgE @F(E nh ''*2<i@FlwF~vF~~|~~S!ub @?f =<nHzF~bh
< l:D7D o}h < l<D7D |{F}bh { <D7D F~zGzEz!>yH/xF>y&<F(FDy2h <l(Fk7F 8G w7D7Fybh <l(Dk7D <vF~v@?uF>y&<F(FDy2jWORTH>@`D<`op<F(FF78F3~7(D7F}bh <l(Dk7D <|F~F{b|C 0z}&<F (FD78D7Fzb|C 8zyx7Fwb|C @zyv7^pukFtbxC` ~srrv`? nsc ` sgv!>x`? nsc ` (oq?s
p GER;  nDv{.x@Ro?<fF`>`?E @p'*L#AN'V@F.~F>Fl} ?7F.|&{I :ADz27D F~|&|I :ADy27D F~xF>w&?F(FD78D7FnvGFnuF~}C!vc@t{F|bh
= l:Dw&<F(FF78F3IsIr~vq7E&D@`=<`@??~~&EF(FH78H3}C7D F~l||7F{bzz7FykFFnxC zF~bxF~w&wI <ADv27D F~uF>~&@F(FD78D7Fwbh
w <Dxc}~rh Dl(Fk7F 8I t}{x#s~rh El(Hk7H <}: E&@ @@Li<`=Dfz7D F~Fn~C}F~|gF{b|CH ~zys!}cH ~z(WF.x&=F <ADw2h
<l(Fk7F 8I vz'}cuwrh El(Hk7H <z78D7Fn|C|F~t}#}F~F.sJJE<F'pr:END END; PROCEDU E@@D|o=<f?n/P)SA `;` HS5Q 12l6 H l p@*Fh
~,S}'}E}!>|H/5|"h < l:2E @ ,}|}}S!{bHLz{&<F <AI(E 7 E<F(pa2*r' '3kr' ';,pL,pb@F. Fh
: <Fr$ FFmJFj  <)~F~}&}K BAD|27D F~} ,{F~}z'F|byx x<wF~ lvF~ F n xC(1zD/z u<_8E E F{p vC([zK/T u<_8E E HSpd *,`YiFtb xC(mz/swC" "DkpOCf@A9 P8(z?F ~C(zHz7/h8 }< E
* '$S` HC8H'@JF1jS@qVN
,?0=JRVDN 8F> WRITE(I,J); READ(A[I,J]) END; UMSPEICHERN; FOR I:=1 T  OR!]=(Z(?'R^L\ P
@_ *b]b=[(zRx0'&(&aB!c~(?;&b(6`" bA`L6CAdKK=0AcALK{ =KKR1<=ajwaoa2bbRhZyRY}bhC xL|zG{mzCVDyoHsTFNoM FFnFFnFFnFFn l~~7Fn+Fn,,d,!.}H/i/\|R{bB,L qL C }bh , L > 78 gEF. lzf^+(/yv:pu,jN^=HP pqN%~%X~s!}bH4zF|b{bB,L+L C }bh
, L >7 <z7x c!lz(?2H/y8:zujFxkv{&+L )K 7h c(o\J*v{&+L )K 7h cwGFvk v{&+L )K lu78 gF lut7F nwGFjq?+\^]-H@P p,N?/~bh
+ La .7 >('z/~bh + La .7 <}F~?/~bh + La . |C7 F~ |C{F~ l}6~bh q L) > 7h gF~bh q La . 7h gFzk@vl}(?yf:Ev l|(?yn:Fv}C {GF n||7 oAq+LHTvFn FhFFHq0~/b8l}60G0D8F.FFnFFnFFnFh |l\{cSzc hE
E hk:'I!C0 $ R.'H )=F lyy7Fxbwb !=P7IHnG~~FFHq0~/b8l}60G0D8F.FFnFFnFFnFh |l\{cSzcThE E hk:'I!C0 $ R.'H )=F lyy7Fxbwb@#=7IHG~~BO @ @J7xHs7JF~~&}(B | | J {C7JF~~&}(B z | J yC7JF~ ,wH?B<*\uSvOPw FhG'# 2 98q\Zdr'!XJ[o?pc6ppCbtiH&lbu(dd&pTJ sI r@hD9q8=7 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