File FMNEIN.SV (save files (Executable program)

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

||!`PHH@J0n4"cF%&&&c' @H1~fn~b	l}|y 6:&7c7BF 7c7Fc n66	,{7rzy{Hf.bf	l}N{V
1 xC wr xG  hC^hdh_6Q \Nhdjx LFE] (?V,IV C(VzB V R Q)&6ML
H w 1~[<$6}"An8zDb6|R( ~< j rFB{ /Mz /Kf.M !,O&,MkM RCUfBtLvx]zLojl:np;rD@ |&!#%')N.~rsvvN] 0 SUBROUTINE EINGA(IS1,K1,JAHR,ISCH) CO@L01
$K=%L%0) L)0L1 1 6KL;1* IHELP=IREM(K(IS1+1,I)/100) 35 IF(IHELP-K1)20,30,20 20 IF(IHELP-20-K1)10,40,10 40 WRITE(1,100)JAb n4c)F)c )bDnbDf)r$+ P@/$!f)b3n**4:*c*Fc(&{@Bz!NDd@BzHf!.b f&b$czPHo@f.bDoR"S..f/! hnnDBHrH~wJ -195t/&c F4nH?! h"D #Q'@h 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,-'V2bqn30I)+10*IQ(1/@ p{ <@< LI )0)
lJC&EK L01 $K=% L%0) L)0 L1 1 6K L;1%p  T O!N!(/X~b2 b}3&Q 2H- 5c5 L#0 +4,b57j2f)
f4$&#@# nJ> n!"b |G#]#V3f{Urz xO33$HVbn?d . ny
W0%!- d/ ?p2:A1=i~+Q xRfxTxWBxX-xY#x`x }G| }c{z(yy yxy)w(zvu)$t)A$ kbk lsA7A|I!AgVkbHzsi6Aj6 yA^d.AA&kJrisjr!f ls(?\A$AgA NA ~k-j Abe les7 |e pxD @3(WJ'Y+xo)8*W8~}7} ~|b'{"zhd~yz)H?!hN
*xzxzi~}@? lw!>}S(}@?O!.vu z}hHz f} .~>zxz)OD ,~<Z }C!o}b`vy J .xz)1 tC@s{ozrZJtc(S{yz)S>f/! h nnD e O. Ee80- {Pz+% >NKf Lf l~~NO7})| R2y`yUyS y{6yMhS
oT lMV lHKJLKKj MfL<J}/K .{ z(?H ,~yR zGM]Jx0  ~E\K&Y(S oKU]*{W ~w .n+-'-0BH.rD.b,-'V bqn39?JM yHZ *8:Oe( ~(?}" 8)| {H/zy" xC0(wy0 ~C -z2b *z8$ 2 lv2u 2}t 8K2 /4Z. xCsr(3zq@.z/94*
  | | ~ , . H Hz(G  z ,n D @-sp?JM{! @`W 2  ~8Y
~OP l}(?M@/|"O}G l}{2@zS oHPJQT lz }G yCx(/P!.}@/ wiV lHQ }>HIz}H>}vsvgu>u}st}s}'5 ,}r0} |0 }C{H/%Qd>w PP&R"{{sH nzyxDHE+
}D>}|s|g|pZ z)xtK#) $ ("  .) bn ~6 C l 4X7h 1Fn(hn! JDD"@~b>z*N *C*(O?D"(>z*3JD l**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(Z
oY] ,Z> uC Yfmt"xYkz) 55<*e`8z? 28(*)8} . G =f l~v Ez}|`O UO SO@W "={K ~E!7h~ziy<&x=&~7x~@5z! l~XN
*j G b=d /5}" wG} .=v"u CH$zts)O bFbb lWy3u |uuS!wcHt{7 !>!n sG*0S e|#{O9*8:ON)5N^F]`bXn,bn4 n4b G ~C(WzU"b(;z!b@;zbHf.bf/JC .bAj@"@HzfiH/@/Rf.X l}ye"onh rm
~nx |Gn { ~mfVbkn?n;r&s&hmf Ehn8b tbcc l8Ef ~C}ck)). |`Xn)){ 0Df.bf*0@b&b&b&5N>i`zH/NC)GJE(/X$X$X$EGjh/q&fb`cz* X"DnHD{" G~'}'F>fj Nxp&cF6&&cF cb7#j&c7F c l68 G~68 ~G}68 }GVN4&k6{  C| ~Cb{@/kz"yiKJ./!f G~}w ([c\bdh
[<Vn\=&>(Q :h^Sz"j 9Mh`:Nn}tP5N^mF;^hn'& c F c F"b"bbbf~&f.bfy(J  P;rAn<<4 n<<4ir"&!.}"f|A&X`H/\)f.bf{AV"bbi Q 9Nh lzpz*cpefn l >A~0~&J0n4"cF%&&&c' @H1~fn~b l}|y 6:&7c7BF 7c7Fc n66 ,{7rzy{Hf.bf l}N{V
1 xC wr xG  hC^hdh_6Q \Nhdjx LFE]OR!W7(T(?'LX LV Q pY *bWb7U(zLx0'&(&[&\(0Z" b;`F6C;dEE70;c;LE{ 7ES'L1<=ajwao[2h!\LhTuRSbh
t|~vGwizCVDyo1?nH%~ \} |}}S! l|H?{ <z |zzS!ybH-zx |xxS!wbH,zw(G - . > 7> z ,vxw xEx!> uCHt{ lxs7r(G , 4 > 7> 8P qsQ 4HP pHoyr!oc(_zH_zn78<(m{e7(<! lo: i;0 d4=/.-0 ,x8 p{<@< LI )0)
lJC&EKL01 $K=%L%0) L)0L1 1 6KL;1% LI )0)
lJC&EK L L LLL L LLL L L L L L L L LL @!n+x 48[2q /'{)m %^M6n;l<m[r\^ao[p?)-7676_7 B*)j).c77c l& C_g L )&/767-6-(6 B*-d-_77d)b72 -7)
l-&IK8-7'7B7g)&JK87y2*7d776*@ @p cN((bG*&(C[*c(]z7`K <H%abE
H NI|z&l%+ |N)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
@ n |PPsRPs N( n((/("); (b.)Q @S Q(S)8TU'XW'hV' K FnY&&!&'&.&3&8&)2Z & &[ &F& C G DJ;K 80
hOe``fOed L^ fGfgD]d.i|e'0'pp Eb&t,('H/)"<b~*rC (2<+b i/' J,&H"z)=&}~'*C( K(=&+*%S ,|{0(,{z(&y)&x*&w+&vu'tBtr} |, 2sss!rgCK> qp0(J{Jn!okXp8ug]o?C  #2qVqr0"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@i O AEwnX/ < ?&A9@T8U3<why I 
-@9a8!V&r(ByK>]bWrmcLtEJ+M.qjU]"k!|QT+ois\idi[6mAe["u]]idM ,lr@rdJ`0*w) J n `(rHnu0+B`Y@C*vR@4 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)@!IQ@0 qte+ @|g+ HpiB 7CBk+ p7; arA6
U@@!  pmb APRBM 7# 3@}b 3|*2|j 4|1|_,RTR@170#A7O"  q7)7|M20|G6q7DMqDD370jA 7@@ 7\ gq 7p p
7r q7 O57Aq6o,P@6 rqb7bmq7+'r7+6|%+ssbXAT PCNMT@N FF~F9FDFD @< *i@}FKFDFD @X'*"AEC aRgq@*!.(/|^:}FFDFD @{:v `'!H0`SSS S1
ET'q`)'T@( ~l&hD hD ) ),
}|}}S!|cHfz~FgF{ .GFzF GEhD { hG l{ lTvD @F hG_hD D + l2*v i@~FGDF.j@?fD @ *i@~G~E~!>}H?J(
||# ~ @FD @( *lwLt@*{G{E{!>zH/Iz"GFF @H lJh7J78H* *HFFF FFFF FFFFyGGDFD @x:p pn'E%TR!`UAAi~!l}(?|: FF{G+GDFDFD @/ *orB@,z|zzS!ycHlz{GgFx .GFwG GKxD
x hG lx |ZwD @F hGexD D 1 {GGA"G (1`Jv .DFD @|S!~cHBz}|}}S!|bH0zFFH|GFF @J7J7Hz{H#G h
 hD 
 JMP ^A ^B, / RETURN RETRN EINGA / END CALL 0,EXIf7~G7H}G7H|G7H{G7HzG7HyG7HL7N x
x DD D D K 'U"gOiLOR7(P!b!Hol"7L x
 hRy7R !>(/wj:LjxHI, BLOC)Q PONMLD @'*I` H0'@Z~8M }!|c(~{{"!l|H? z+yIVIx.6w/6v .G @uI G7D  xB6wC6v .G @vI GKD D D e /q+ L)ITNSQU$'
,qR@t"|C7N  x M L 1I5IL&M&~ .G @}I GD
L!Mb"~b hG  ~ *yD @DHD @B/*q 2GU2'H,Mq@*|,{78N IQ(J)-1952)60,35,60 60 CONTINUE K(18,I)=K(18,I)+10*IQ(1( 7 <~t7 <}t7 <|t7 <{t7 <zt7 <yt7 <xt7 <wtd?z7$ !>!.Hv{7& >ubGJJ @,78,3NtJhO
&7( !>(/sh:r!.&7( !>*( d+;*);(';&%;$>(z~8
}, |#{chD zGJyJ @(D ' 1 "q +g'J@L*}JEJ|46{56D @z(G
,y ,B D @L1* q" g<'@ 7& >xGz(G
, ,, 7, 8N wv'}JKDJz*K0 0d  + *0>GJK @ 8D D ~ :1(,H)H ,<p1J l*t@* \ 8\ 4dDetyb&)A&3a&!B*SO*)A&ax0J nc . adTa#xcaaCwv(-zu , K@9zt s^|jt sI< |I j ~h`fp~} 9 7 Q67H3Rd7Q H?(*7Q 2H(z7(Q3(N
~78Q7 }K;KQ4&R5&D @D @I'*'q jC"MRSHi |7Q  xp&& +) p@`7 <~ t7 <} t7 <| t7 <{ t7 <z t7 <y t7 <x t7 <w tdA 7k!>!.Hv{7e>ubGLL @m7XmSNtLhO
F7g!>(/sj:r!.&7g:* dal]kj]ih]gf]e^!l~(?}+|L#L{6z6D @y(G L| L D @) *lsBjiM |LGL{66z76D @y(G
L| LD D @M *lsB`i |LjH |L\LD @xLLgHD p 3 " 2 q@ wGwEw!>,ji]_N~H/ (
L MM @LLm7XmS!}b!(o|:{k7e>zGy(G L LmxMLo7XoSPwMzx ~\qM7q<z8P vuS7mx x\jH x\bMD @~MLmXD D  CLd rLb G%|S!~bH'zLLXM
 LmM7m!>}!.(|{%.{"GL{M @m{RGL{M @oX z\qM7q8P yxW7o<xx7~MLs7XsSxC7m~w 8 LC;, @b G
OR.n bDB(|h T&n*
n-1nLn=VnVVnVVnVVnJ, h Z.C$=B"&L5 DB |
LC&+J^}g@ 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 QNUfBtLvx]zLojl:np;rD@ |&!#%')N.~rsvvN] `xRC `0 &
c d0 c daf>atHf666b&bC n PhbP8b(J . Jhb&.fJ(b8J~&}f}a(]z  PJ |(2z{H/zy"P0!
0! c (!bbcoz n r`gK?w a/J n `@`?M|END LAP \K, COMMN 3410 \IF, COMMN 20 \ISCH, COMMN 1 \IFACH, COMMN 1 \P, BLOCK 14 \J, BLOCK 1 \I, BLOCK 1 \I1, BLOCK 1 \J1, BLOCK 1 \IS1, BLOCK 1 \I2, BLOCK 1 [A, BLOCK 1 DU 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