From 84a1533f9c01d51509366c44048e90802d76910a Mon Sep 17 00:00:00 2001
From: hachti <hachti>
Date: Wed, 26 Apr 2006 22:23:04 +0000
Subject: [PATCH] *** empty log message ***

---
 bin/fload      |  50 +++++++++++++++++++++++++++++++++++++++++++++++++
 sys/super3.sys | Bin 0 -> 284486 bytes
 2 files changed, 50 insertions(+)
 create mode 100755 bin/fload
 create mode 100644 sys/super3.sys

diff --git a/bin/fload b/bin/fload
new file mode 100755
index 0000000..f94bc6e
--- /dev/null
+++ b/bin/fload
@@ -0,0 +1,50 @@
+#!/bin/bash
+# FORTRAN IV simple loading routine
+
+if [ ! $1 ] ; then
+    echo "Argument missing!"
+    exit 2
+fi
+
+objname=$1
+locname=`basename $1 .obj`
+
+echo $locname
+echo $objname
+
+LIBS="$H316/lib/fortran/lib/flib1.lib\
+	$H316/lib/fortran/lib/flib2.lib\
+	$H316/lib/fortran/lib/flib3.lib\
+	$H316/lib/iolib/lib/io.lib\
+"
+
+cat > $locname.go <<EOF
+rest $H316/sys/super3.sys
+at ptr $objname
+go 36000
+go
+e p
+EOF
+
+for library in $LIBS; do
+    if [ ! -e "$library" ]; then
+	echo "Error: $library not found!"
+	exit 3;
+    fi
+    echo "at ptr $library" >> $locname.go
+    echo "go" >> $locname.go
+done
+
+cat >> $locname.go <<EOF
+r
+! echo -e "\n************************"
+EOF
+    
+#cat $locname.go
+h316 $locname.go 
+rm -f $locname.go
+
+exit 0
+
+
+
diff --git a/sys/super3.sys b/sys/super3.sys
new file mode 100644
index 0000000000000000000000000000000000000000..103904bee31ca4ecce99a27f96158cc5d631563c
GIT binary patch
literal 284486
zcmeI)e|%Kco$&FK5bogI!lW73EW|a_8Glr1EF$LT3?WQ{qJ*SLD7d?A?GK-JwU62r
zeYF&2GT51}ce|mz>!vHO1<HLMwWLA}$d81;1PvwxNQ4N8KOhK#K{0CUkA0!D-#a0b
zfX4Opyq@Qer~TZ#?wxbbJ@?#m-{;4@Gn^OSy#Cs$&YP~kF4sA2+I3U&ra7BiG!?9z
z=X9#iSuR%-lv9NyMVeA;)_grZWlBoZm^4p#OqxnhX&RT7A53Y~)6_EcRgayD1px#Q
zKmY**{@eu4#^dUXuJXRXf&c=4xdLOfbQQlY#d%qVCwAFyE_0?{<_S;GF1u!|rc~*a
zzj9`JFOgMzwC*mY+*8vA{#rY_BW)l{%Z$XYOB+z(OCxHkQ;k=*s0yW~rvK$qa_0#A
z|0f{t0J^H1uqdNedBQ1eGh+WT=~ojLXViEXJ0HAEE%n46oU}Njbjm+F7kU?Zjl}lh
z#P**O+eOY_PVj`T(*}<(a!xC`)4Rx-m)I7{HhL~qL{jBxzmPpo?B^Ma9`=NOe$Aq5
z7C9f1_yX<cPEUB2cDMH?ZK<SK<Xn8E3ae1|xm@il3#_J3`<e5BjPU&rJiH{M*7?A1
z9(dRj{*k7}c|t$Zme~8wpG|roV}bU7^TCXo$hFfRnsB%G&Pds`(4?a~7JBcFR86x-
zuKTrx5tXiHNRBg9Nd8o#{A!}qswW+4)v9dO*tkR;-rKu(U(dt8`Y=9Dg_cN476cIZ
ze<UzA)V;f>d)2D3Q<WMUYCrt!-c_qo6XE@b+j@KVr6j_8+uC-nT4jf0ftPa^IJ?YU
z`dYUqw%cs9Ix{`tJ<*O#Pv|zy6SK#Qh2Fj9?)u$kSHs%LKh&Pnw|W0o`-j{`!ESS<
zcW1UI{O{V%tSu#~_7~cA*|ul?w4{6a!pMWcXS1Gh^_Vx5?2t5VdMwKm-k#WQOKe;9
zp5<FzOSRpGCwyz9C6ViQbDuY2E>HOPn*F=$|JF*Ttc*14J!aZHjaph$qqZ{A)6k%m
z-qWO&PT8WT4Q!O~W-V<>={+sl@3kC%m)YgrXLT9-t$mhfM(I5}<(N|2B5k>)_w3f}
zob1n@h8{WJ6WecfMeMuL)vexMW3$T>dLeqi$S>KHxiRYxqH)kX>wMDPD=~+xk8}0B
zrFkj&hjPc~yJUMPHzU6y|JMA!&%Z6P*A{qMf6+W_y<~0GU$)}fD^`lb6ON1EtL9<t
zh;`I@a`KZ#pLxu9%{p$KFkiQPx(Z+7K53mYwggq}PaPXwhpfx<uFk8@yDjgHXuomV
zJkjvF_1BJmV}t9o`KHzETIYVtie<iN_8aS^tU<?1)+V`D(6LVHD$jAo>N8Imd(F44
zD;)#Yi^e<FI{h8Xj!C2sU+Fk$4dxPbyeVn>jX>}<tG~X#?zH)C{pq^C`qSo>a<!)9
z)dsAX<nZZSP8<D_zQ4Z7^}S^2o^th>r;H-W@jbb|eZPZu+;7_D9=!K{qgamrQH)|@
zWjn1&l>HIOMJ@ebjz3wR*!$)g>jUc%$NNSs>wWXXhCbtc^CRma$0zZ&z_W3sR_4Z+
zsF+GoXUB%dsCYa+@M{&%?s}$Jja3&ZmmEk}+3INgQh5lOYWI#*wNyPDZwYJ-O!T+3
zwg$EZz8-j@z$%CZ?#^!utShMVKOMNM;7sAWh0dZafs6fj6l@P{3M}zA6vYG4qVj@|
z19J<`2I8$h%ug+PtSDO8UYPFR7`UM@wQyNMbL*pp&4HZ4^SZLU1Ei=9qto1FbeX%2
zJ?37c+v>5L&gad2(RMvuTEt!n?YDZ3=dydvyL>M+cw(LAft73B2dyn7YqPclpUpgE
zzGyw8AGQM8OO{WQy4GGcc4WO`buRBTUlpr>W3BE97igVzN0uKkRp_YI+t6q2iypHM
zN&D(Gj+=$r3FA<`C*&JC)3jq>w+c1;%AMv(t4%*7S3hOFVa=1cnEq|q?$rAeW$Q3h
z?dj!jT5n07i}TJHH<Y|>4oL03UH`+#J96yZXl`)2#Jwkd<L&xR^BrSa$setU@{Rm|
z$=3?T6{Htr70f7j$0(H8L%HMfCi*A(_gkIDujLw@#_8p~a>jO7Vac}4)~r97?;9_e
zebR5%xyyZLB&SZfR-xqIDLJ2!E3~-&Xf@?;%HNtF%io#*Vg4uiDFp+@5!1fs|Ih}E
zX4et(sI@^mZP-4W5}(^LpUbktCllBEK<>WN{J`inj~H8Id^xEdF?#DayL#(CkeE%<
zoBFg)<4FBZ*OB@`&kqbwXpi=W<bTB2C}$kdK9uwy*1uvMksfngQXQ8Zc1jKh<jesH
z4M^Mu37=m6QL+RdNo`-`XxI0e&&wz`M&f%-hZwwL_=8VNsTcb^v9<0_^PuI?7W)nu
zn`9)o+F|F>Y1;K8ql47XzNkH}PIGLKnB7L_$~Ub}^OVHeEup}1+IZFU#GW@h&0Fj<
z6ZL23Z>!jMwo~7kxz@edw?Y4kHZgCVzBN<T-sV{6zC*5;9~>}WXt2k;f%*Z{-aliO
zNAK|6;algn;|GtfcYWLO-GV<g+!5Uu{bs&>^bTpYLr2dfa`?!+E2@-TlXd#r<}ZBq
z-(rce^E`g;8prGZ)A~j9Y(S|K65H;IW%kR6)#PfD@|`fAa=m3Oi#}P9Hn7sMxnxDO
zp+L626+SE4p4+HfBDKQzgyg8y!@p7whLnnHA+<POtNig4m8#A<luC>UF;{%a*if1(
z4vno<GvdW5YDZvu;HbYTaKgV{`u3gvYyDdShjTCX#{*C1J-I2h=;^><|8EYgF4`b{
z{f5G5(ZRw?i&|QnTcgs`uPDkX+!)v#Xeb(A_;H{ma5fMN9LjAA)cOCAcQ$u@QDf03
zfpq`yC=f56m+SX;7|x7NL(gc`zm$<0@l1^uD>bdK(Y@34T-H-=dvxeB`n+CkweKkz
zzc1Fh8g?6v?yiO|<0<#}NTc-c@sW1#Q~DmOQPy^Sx0$Vd-|uvGn7Xsm{E~CLHzyL#
zlhMWOkk;2(XTQJiHFipkH)hH<e7h!jgl^WJ)f;@{y*<V=nL8x*Tau=yzO$~UzRT=1
zdg^|6Nsrm6cbiWc&ztwjG5biH%Rbts&(pf)X?$m5yFIg~ew)P0^E|T8=&JXGYqjo%
z=Ns;kqlxQ<R`|M%eUeXm)>CH3xwzXk`A(st&Koj@%4wIf-P<a6)M4zg_8M)j-DXU`
zQ&K(dUGLs6y=1l4YpKu;-t|)Y<=UeWr8>+W87(~FCauTlsE@fi>K~8vB;FGqkL;5B
z?-s`uzHYNUd$q4a#=OniKGW8GT+SVG?iOcHs6%U)GrG*y>|JJ5TGR_>d!)Q*m(iL%
zGVWmH{leA0-%U`pt$Nq;H!oAQeb>A-sV_1wcR{Ytzsopao{3!H@0R}3=Y2PFz+CM+
zSl?ae3H?z!VAy4N_nLR*%AH1gW`0Ry=2ll@W@<F2$R3TI(Z_r*CO!`sty!ymhZAAv
z<d=*Vmor*fv`5D8J@V|{V;z?D(&+qrPprv(#@npF>z(az`mUCDiYuZo%X9J-vq^m9
z9l&UEZ*jdOWqD5W>z1d@Zt-~3d$q&9LYIsTyUhZJo%V|8LGM8s{Vw&{X$~5jGwry&
zGI~UPS45APub4;84ztf}bgyt9GgF+q%-5ua+V5=b*_&L)P33&mJYjCsUpG&hr_49Z
z{-`Hbt3qulVI|*oA8^>MEb2QQO`GBg9~XyBt`2!?>5u07Psup-Ye$FCw^G$6KFvPk
z)s<@L3SWn@OX8x@4&yEPT;YpK|9)COW1Wn?R%kyxS0_f04RU9XMStQyF75VseS^fw
zLsphl)xAfBKUt!MibK-5QsTApMleRD##7`S!LO#xkoN=iV48{tHcJ0*3AD7P`?t%R
zKwRDfwzjS<xX*udYjfaf>CYbrJ_$6pE-Tm~V?<T%roc=7bp=h*<JSj%?EkHQL*SCU
zi85kb>;L<}w%p-<K59sccab(x`>pn^Xr^O=qs9FVUDsONmHI|`t5oS}Q@$O&yr{)&
znVcT^Qr;G+o9{#~j+9Kf)|=(r;=axBguWZC(w}yJ&#KnHZ(Xfb=s&Qs9G=(~_go20
zaAf&6=xS-)9oNgV=eXkT&F<T+N1Xq|+~EG9^*!qrIrC;Y?|a&Ice8%h{Ua-$*q^6K
zNb3AXt=VjrGylQbp0(Y5qjpwrb~hWdrGMR~-C^A+ZL8TV*6#CuOZ&0aq#w;#ub+_L
zGmrjell$7pMfrC|mUunk&HDee4rDBJ{y5`KY3XreduF^YZf=yVgv|RQclmFU{Gytw
zeOTM9Z*<vLS`x8C<(cK#QSI%Gb(88c>LUNDJ>pd1-)2nIRM>R>HsdbqZn=Yf&ePt5
zvc4>9pR8v^;zs>rvHQNYM{Ab%kL}vcu34F9vpk_ST8q&#xn*T}R)5CpP8Dj=PkYzM
zoBph<t?sSHS^4I%RZ6i&`#4)Im2KAVwU2dGYieh+9@F;w_ph<P6RD|({2gna>s;00
znfi)<@0vYr``ZJ#$NbN%+0(shZ@l=Vf5)2rZL8Yln}ol`o#M0q%Jh4z7GrBr^9}tq
z8>Mp3aV@C-MDF5rWWe8I{KRURoD%&=&YI~e$&xel)}R(`ac|VGFPV|`SMC;Fmqv6T
zV%M#-3^m2=3IC(<bxB>Et!l4vctY1Zrs#o^`R=LuWXE;-z2-t`{WXphIcsHZPGGux
zhtSoBzblZVh4Nhe&)>xY_eE3XIXF&!iE-G!#iXpVdrL^gLaJDL%qL6Y@n?4L+Y>LA
zr(|t$ZO9i33_ZFgYWGLufh9$MTXZ;gMbXM4`>D7sH(GQ_UTWcEMXQUJ72HsmQ`k_{
zmHR}&3VDZC`HguCi*DWc@1yjITF0n8<p0WnK(0Jf!((ghC#y%k%U0z+v%9$VT-IX}
zgM?$5dQYiwm%itgF)B^ntJGK1-kU5*<ZEH6{MyyfB1b*zWh=?YDEoJLdl^WR-LxIg
zsH15Td`YQ?lqB)wCGwP{B0989vFpN)*}A|E$oKBhs#Tt;bEVHHbt+M-Z@AyiIOa~B
zk{)ttE#4=*fAEeAXM5*5J)ytzriCum?9e=WKV0E$@hbH<+Lxz$VsGfDvLicg&hUh@
zBd7F7yyaKsXgS(c?dB_QmOgX4*CX$ib23ipb0*b!=S)h(hNf%xOT5Hp+39c8Zq(*X
znv*e2o8z?O_exQVQ^wiFRK5Dq9fz{oy%o}b?eGB!&y(;#hQ0TK><u{Ez3tw=i(EH-
zFz%qlozmOAC*1at6N$ZnNvGVmM`oW(@!|z3?39kSfs9jzo&JRT)Z~F{BJ%XVKaw}S
z-~GIEWyW%EU8F?9J&Eumkw@je2QvC)1bj>zxTb%ylFt>|fOC0d!t_1P_1-5UuIXo-
zsRL`Zy|VX*NRyn~FS&cd>m&V>pVr1t?@nCN6H6V4Ne(fsCGyMZM|Y$SJSYFsk~*+U
zp8xx%hl+ooJRwgwU5!giY5H>7<V!uFFH7i>w4*yx8YiaZr00ywS(fwFoN-^1IbUB%
z#9l6Qz;Yh?+On^G^($#@YDuv?Sy(<tAXMC^AD7mD%>A0%{w*i!=*{+oqK=fNe|DU7
zzi`!W9FIFx_`p^F=2$DAFJASiW1V~+ylO?_^UzhR9X+!Dn10L`b*x!)*tg#;tK_iD
z5q0d39`^OSPe_cT?RB@K&2C#K^%t+&<7jp4amX>#j<H)$$npB*%@T7$o&!;Ng4(%x
zV*O^DBP2QRk49y<$WoW99F;4-9z0i^()5zUZUe764o8ng_sO_&ENZ`63=VL1=nF4j
zbl$)y>ExG<c%{=GTdJoiRgwtF_Z~Gf5wc6MAQ7^EZLba{BZos}3u+Rvb{3W8Wyus0
z|DB3ivy%IzgIBS0tggN;8C_jHbwv335#edc@a&4Y!{NCVrDcP;CJJ3sQZ;yeJLA%_
zZ_b`Oxa%3*Et@-hBf*=h%D$1zsI<JKq|})hVC_>!EOKOiaI_<36;-1hnj5?+k-ME|
zd1YBu>8;6&$?nLKRM%8gerNXF>S4J=j1)g{hJ9nR=SndK>Ft5EGWZSW4Eg+-RMJoX
z4Av^ShyRm%5r@Hclp`4PtL7!V#!A>(SyT1-Q*I}wDs}ID_uT%E*I#?@kMCWWn4W95
z{+aWJ8);Qp$%tAjn_Dt-&Txw^uc#T>5-TgJ6IZ|ZVtG@VeXiyIK#EdTT~ksseA-}T
zR}4njRVziU{QRO`WT%qV{@wA5m#?y7epywr$qg0H&ZhGG5}jAt%K25veLL-W#kC`x
zH8r;m7q@G?9e3f9I#^u$?ml}tmq4oEGnb3xK;nkSeCA>Knj`U_5_wo6%Vju7cADYp
zvrBS8_1!X3<d)<;|I#hhH*{#3++9ubP@*yyj2y%+sM@Nb^XyVr)|6BZ*Lvl7=Uq?%
zl_SslH29p#8mDtKD*ICBY0NJjnOo_3WeT3RH*!R>$FZU6l947EuB<8@9Bl1_GMJ7W
zGA{tF{$}vp2xgZ__Rfue_MY9Tekz|H)<0{5kxg$wvg6nTa#?auzA;JX7#bn%{`To6
zADnZ`@E9ZMKXXYA0K@&<PIp1GOkOE8-R{|ggS7qC(<!eYpWChM`BRB&40VhPOOZ@4
zTIWnA7;PL&Cituu5BqY-1h(O4Ey)B@*w0*&2}b)?oJ?RpUF6A-?E531gtO)jzv2bw
z55KPk=MTTH1*_+kk2tw{_<d*8k)~|c&<mPf_Rk+*YV7jJ4-6~_Ab<b@2q1s}0tg_0
z00IagfB*srAb<b@2q1s}0tg_000Iag@Mj=UWzX#!nv*eq<j&0Ch$A<ajF@7YoCR`9
zreX}wOtGhT%uF7;O!k5`w~m;$H7|JU9OoCAaxl-HAn`>K21_bS&ZTVplKj6FqpuY;
zC4-Yy>?&I@d-!I8H<b*|$+G8!oHuvIMsd!%sr2*bwY1x*WKB#b9Bnek$jKiw=Z!L#
zqjbc)#**OhY`4*7lbtt1<iDBiF*HHQF6ns`$=kPY;nTNYe!*n9Y)Lh8eoo4TvwB8N
zFm%?a35I6%jGExW`I_^p%jP6o?x?C|Rm07@tYUaJ>PXe{(%Dt#O<qoB`}wS;iAgkS
zsQ1`}EC?Wg00IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000Iag
zfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}
z0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*sr
zAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_0
z00IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@
z2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000Iag
zfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}
z0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*sr
zAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_0
z00IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@
z2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000Iag
zfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}
z0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*sr
zAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_0
z00IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@
z2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000Iag
zfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}
z0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*sr
zAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_0
z00IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@
z2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000Iag
zfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}
z0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*sr
zAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_0
z00IagfB*srAb<b@2q1s}0tg_000IagfWV-@%*vW7XUaK^ndK!5k~_hg+2v)4z0JB(
z3zB>3lDM*>+L`tlgtO)b6Y<${Y~(txx+W2yD)A%N;7uiSlNYS6si^$U?25r_+C_3Y
F{|f;Uz4HJ7

literal 0
HcmV?d00001

-- 
2.32.0