[comp.binaries.atari.st] v09i076: f77heap -- Change heapsize of Absoft Fortran programs

koreth@panarthea.ebay.sun.com (Steven Grimm) (02/08/90)

Submitted-by: t19@nikhefh.nikhef.nl (Geert J v Oldenborgh)
Posting-number: Volume 9, Issue 76
Archive-name: f77heap

This is a very small, very trivial program to change the 
runtime heapsize of an Absoft Fortran program without going 
through f77l or link.  A man-file is included.  It is public 
domain.

Geert Jan van Oldenborgh
t19@nikhef.nl

table
 !"#$%&'()*+,-./0123456789:;<=>?
@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_
begin 644 heap.zoo
M6D]/(#(N,# @07)C:&EV92X:  #<I\3]*@   -;___\"  $        !W*?$z
M_0(!+@(  '$    _%!"\V6I; @  O0$   $           !H96%P+FUA;@  y
M    "@!_SML             0"DC*   G01I4J2! A (T2! 4P9!F3 (PL!!x
M  =$"Q!CT(1Q<Z8,"#H,03"4.">-'H]OS(#8""*(F#DIZ8 P\D8.'3DLX<AYw
M<P9G&X,&IV1Q0B4(%H,(12YL^##BQ(IN0)A)PZ8,4 5$BDP9(B4)%"I)GCA!v
MFG"I0X@2*:XDHZ;.'#IS/H8<":?D21 I6[Z,.;/FS9P[>X9I,X<%B#MHTF0$u
MD2:NVS)D0)#]^ ;$VYH>[821DR:,F*IQ-T:F4YG-FS"C0[ZQ4T8.FS!YYKA t
MF$3F'#1OZK")+,9C&3>OY72,G$9EGMR2#R+L*!.D1YHV<4:54\=-"SIIVOB6s
MLU,.".USYH3I"$($7<MPPHQ!R5J.&=-W1,P&4=LR;MV\/4X&/><W9,;&(<><r
M7,_Y)=UW980WGD<B).'&''68,=48:?PFDW9MU)2'?%<5@<5 4#"AU60DB/10q
M13'  ,-*+I VQV1GI,$:@7K!9(9,T/T5E4X\^<2BBRN!0)T;V&EG(DDFH:12p
MBBNN(40>=)3APE5!5$$%$D](,=D1+B@QFV91/;';;V+4= 8:4RH05!%%M,3$o
M%$],)M4--[#! AMIN+%&F@$!W*?$_0(!HA<  '4"   _%&"^H[Z9&@  +14 n
M  $           !H96%P+G1T<       "@!_NBT             0"DC*   m
MP6@  ( "%((!]!"4((H@ 3<$(1"<2-#$&P $1BPC6$$9BA4 2%@!A@30#& <l
MG8%8 X!!M'4%7P+@ (U?   @%D!#!(P' 'XN@+Q \&*!D#,_?"IQ$N3)NY8Dk
M6+(0H41)!C/\K)K!5R61D%-*0F"ME8R- 21I  0 (^^% A%/@N@+P"(,07UFj
M#"B18$8>&#1T ( A08 @C#)>&!!,\(9"80 1RDA!  A  <4 #+!! LVG@G2*i
MJ & H,$,-EJ$S."0"T">70"Z\N[M"P8%::P@E, !L/<,'26E^4D! MR,O2J*h
MOBH1@16)&K6QE+6A!P8+G !"@@2!"8@&!%I\P'@X P(\&!=G-$C <,8"C0!4g
MA!#C\\"?)V$DGKR?(H0"MBC*_,//5W2 ,$40990G AGX"*&"6@>6P0 M(I2!f
MCW-J#0<&.6XAH9 ;PX'PA!.Y("3*#SCE0! %4IQ!  A . $)""H69,49"L He
M(XD1*9$4 $PP)04BI)UA BP0G&$/9F&TX0!F>KB!P&,@('F&.$I D-<4BESGd
M1!W%\;/;EU] (004/0 0A!1'6)$F04B< P /)B!11#XK:I$$G@!4X,T2[/RCc
M#RQ\ #  CKDYH0M=8!"$20HL(2#@2A@IZ@ K<B@P#BHI /&//$.H X ((+ Ab
MH*(&((,"(B @8 8$+[ @8!"BEJ H /1@\0087HA A1P!P"$ "$V@"@(#50ATa
M!JRR\D,K #O<*HVN8(@!+!PF@$"%H@@0H0009H#@Z[7#%JM+ ? @NPT_9M!Pz
M[8O;ZH( "=^>04&LLXJJQ:V4Z K'/XT"8,BXP9:K: &\("L"#V=(@*^SHLYQy
MJQO^^@,&& 3#04 0@=ISL"4,L ( $ 3]8\\8##Q;R:U(P-$/&#S@:\^SNMR*x
M@Z[9P0&#MHH>P$K&&P<JCZ($L(.O/,\^<ZL$NO*LRP$V" $$$]_X].4+#F3Qw
M1!/7L/#($$\QX"$ #KR&@JZZLO#%ET@ (77;0_!9@2C VD6 *-^N(<"7+ECQv
M+QC<Q.D!#ET\00(2)B2!PD4F"#$$'B7\F]MP&FAP!@ "<* + 6;04R\!UL1(u
MB1!%%(FY!=E) ( D/H$@BT\0B,&!!#M @, :%BBREC@!_/./ +X'[SL!_TCZt
MCT1\_ .+3RJ800 /&X!A@NJL P##ZP D( 8(M/H^Q#5P*&!7 SZ0< 4LO!#Ts
MQS]BJ,4+[):K10L=ROOD@ADVD+8\ ,T30$/T)("$3V"P/^UQ3QW> Y_X -" r
MD)PO?0!87_L"X <:C"9^ ;##_MA@!@4@H!@ >(#I F &6!#@<@"@&Q @$0!8q
M!( ,:AE)H7X #2# 8 >9<<(^,!< (_3PASX,(A"'*,0B$O&(1<05$I<81 !0p
M @#40"(4I0B( &#@)T!,80\!0(LLXH.)0 3!%F PB$;Y@Q%!> H!($ ((:! o
M+6"   PVD$:,0  0;H3CL+8 @0+(P  B8()= H".T)D1#$HH@AI>%#T"[&:.n
M/Q" ! I  P. 0) $D085GF!( /B#.(ID)!@(,$<D ".2DZSD)5\#ADUVTA^Mm
M F$!$KE($#3RD1M )24MB4D @,*50&A4/[(22EN.$I>Z5&4O@0%,87(C=$Z@l
M! P&P(4G4(T#>/C2W^@1)PR(Z!W_0(<=%* $0*A! A\H5 LR\X-"W:1;@ B8k
M*A!P$P$L*YT  (D!VJD6 " @8)2@)T'.X !\@H"=[O0G&/S 3X+\TP[=_&8Xj
MQ]E0A9(AHDZ9J.UN0D($5/2?3, G##(CT *8H:"%P@, #L!/ 2A4!OC$PDI;i
MJM##G<.;&14G @3:T8^"@0$B16@_YX4$'P1B&$/ @0#4( "5UG&!"U##4_^Eh
M! Q< 1D",@(0?D R"R!@ )9)SU-E ( #K0$"#+AB&,I@  &\\1N^BT(R/B6#g
M%_A3&D"@@5U1P%0Z!( 20.@K *0AA*]B9%F&'4 '84  2 3A#0C *S6 @(D@f
ML*&I /B!$##R R)@KCK=A,'A$F>'?U3U"LO(ZA"4( 2FTF  M!B"& 1@ \PJe
M(0AK0( LAC & N @ )@8 @((HE@(@& )C'V-(::9J$G\E+E+F01CCQL&G0T d
M&D2@6EJ_9(,+J!0&=K4G Q*;%VP (3=A@ )X_7D&!)BWC@9P@B36>T(#F!>]c
M+%BO!=K[WJ<H0+[K%6]BSV#?\RHA#!9@K%, @ &J$0 #;+LI#(J@#P#8  P(b
M""V% 4"#.MD  &<8' #,L80S,& *0\@-'!#@A$E$(;7XR UC@5&H YQA;Y/0a
M+H3K (,>^[C'( BRD(/<31V,5G%34*D)0"P$)03B##Y  $AN(H$S  $!,#$ z
M "3  I8P@ 0#P( V<N$,,IQ8$,:1 B%P$8@RN ,,&# !(UX0@!<,:PEV42P)y
M/B""#WS+#!9 P10 )V<0!(!J7-CQ#/C!P!5! <N6V?+?T%'D(PM:R2#6@I//x
M8 4I3Z3*6.@R1L!,9C(X@ +<F *:[:%F-KL9##;PM):K[+ ZW]DN L#'GOO\w
M9Q?\( "1I"[FY$"##\ T;QPP P($+6H"@($7A28 HA7-Z 86Y-$P*8"D 8:.v
MW=CU-0;0580A$&<D+&XT=AA-!O8GAX;9H84^N0..["" _87!# 2!! 0R0)[]u
MK2 O5AC"ONVU/S&T=W]T<!$8X,"%U5Y%#<=J[RK5P@ P+-")2@" &;2  B2 t
MP"<8 8!="H"%%""!O4R89@UO"  I"%L VB"4[ZR< Y)!  ([@($5,D R"93*s
MGR;'R*IJ4IB@,V (%2;#")*Q(BM<DFH88'$=X& !,!@ #A@ @P#@P("3.#H2r
MR "#.29BEQ1@#@#M>Q!!RG[VM"=  0I8@-P3H0A%+.+N09";..#P@5$& 1T%q
MD<, A/%&"5SU'_08R9=^,("BY)TCHGC-;>5FB]< X0AZMX%/^DZ (\"$ G 8p
M #! 4F5+XID@(GCQ/]C!&@;@FAHF^((-/D F*C0!"E_ @NY=H'N9 J H=9+Uo
MEA$[Y>&[8) VZ#4,0 (!7-LA;R+P-%BKC !*(<!N[)#:#7H>^R\MNM'7AK2Vn
M)? W=703 G5:\F]QX4Y 6V,2ME@%1L2@@/C[LPP$,$$9<6 )^1- ^+3F:51Vm
M!C(@; #@"W^F R(P #1 2LR79YH&"&N@ M9G HAP B?W?_XG:4#R#0A ;>!Gl
M$!CV?1;@:.(G:6OA#7%";G6" I%R2<LW&B( $@P@"8PP2.Y03FO0(D;@:0>Pk
M969 @4Q 5@="!PU "U8U5^QB 2* !%.0!%, !&;% !:  1(P#+8@ %<P5_APj
M!NQ0+[@@9W(  &25#<%P DR $5(#=5(':85!?FL!#W_##BM8;B[H3S; ?#.(i
M$3:X+--$!('@5[CF"#I($(3@@T!(!2(P 39X(($$ DD0/K"0 5LH(&:  A-0h
M* W@.[_V @D@ @D@"8@P3;CF "+P!<<F@;>5#KX3/G<D5_\@#7$"!,  BJ)(g
MBFK!#E0S  )03FI  =(S38MH@Q,7 -8@<_]@+W*&AAB! /(W:VOX#5&G30!Cf
M#^?W874"!R  #$- 8'! BT-@!KHA>D. (D7Q(SW %%#P!#JH CA@/3X!"-QHe
M!EZP8MQX!D+P(P+P X[T>YGE$T+ % M&3N:D F   W+P#;( "$$H!R @#-U(d
M J''C5< ##2F%N:X #_" ^K(CA*H ._(6%3S@5\R2*S@==<VA_SX(S[ %+H"c
M SX1 6)'*)@S!@Z (BSIDAZY!OU8DFIA!RAI$/]R-1[E$T' %-6D@SU9!X-Db
M!4$)!4,))D#0'D-!9SCI$S\@D&&C@U)G:&$  3X9 "CPE%%Y?G6":5,P"&M a
M!DI0(Q@@!FMI!F80!G*P/P@08OO3 &?@ OMC.3ZP/R!0!N: "X- !N*@9A8 z
M#&&@!6"@#4I "&=@#5- "%.P!"L6!DR@C6'0,M='!&! #&H&!PV0F&&@ Q/ y
M:#?!8&(0/F'@ AAVFKY#$&\) M+F@3NF4F! #W@0 !; : H@!&XI!F+W(P? x
M%)NT>/^(.3KY)31I3R10E<"6G#'2%%LI@7O#E 3!!63Y#U?3> N0?@&P+!"0w
M2\FY-T&@*VDI!O 0>R9 >W4 'I@C!B002>8(; "IE0! D'KCDUNVG5\"DP!0v
M=?! !"M4*%52*"(@!@: <_ZD307P)18@ !2  0V0 )>Q  60H1DZ 1DJ !KZu
MH2":H1U0 !+  "_0> JP9% P"%(P",;@$_Y@"Q D$65@ B?Z(TB E!YY$0!@t
M"3 2 D. $7$CFV0  I$@ HCP=PJ%!W<BFVA  BZG .WR B ' A" HSI:3F\Ps
M&$#P+ BP&R  ""%0*#@Q7 10 AE( B7"8&@P LK@I,]" "( !3\% F;76(69r
M(TF0>B"0 &8 #V" *1  "X% !B\2"18W B1# -, #",0I'+*"Y00#VYP $&0q
M#OY$ E_0GE\"=F#@,77@%JUR!H.!!%&@" R@"A'A$#7Z> Q&!G.*862!*'L:p
M!7W:.6"@ T;J%C^2!#H*!BQ0@Y-:J69  JZ* 6@0JSZG )"0"%$ ".A#$ <Uo
M!M57J[>J#E01!@2@J1$& #A@:5(@ FR $;>:HHF0 DN $0%#"+>0#&*0+3KAn
M?["0"/B'(PMG N>:KLZ&!G:*$='@?R80">BJKCX B7R: "[2KF) #ZT"#:B m
M$;"P"/6J &!0L(N K\>%82  $@00#0_[(@C@L!@Q"\#00?W:L1]KI#]'  SPl
ML&6*$6;P993P @S0JSIZ30!P-0N >42:$P0%?%-@LT%036#@#CS+IC[K $ Kk
MM$3K#MU7!XSW @0@-4@7 ,A ;F>0)3% $&M@#[LQAIJ7/1*  KZ#/2UP!<) j
M8-CS;P2P'D:"= + "1(0 Q(A"P,@!AH #8'@MA0PMW5[MPP #8#P1H);N(0@i
M=DI@3P) !(/[ ;,W;J*%!#09G@1!"S1) NT# )@" $<P%U(@ ?$# (2@!#,@h
M$6M #U.@!($!NK[Q9R(0/M@# V:@ RO&NF)@ 0'PH@#P#;;@$UAPB7   :!Kg
M!B( !DY DUJB ;%K!GWKE[BKN[SKN\[#NB[0N0% #Q)0N@ @"P  JQ00 *";f
MO77;O19@ @* !$-@#"2Q6N&H <0 #-0P"-10J.(01R @ ": L 20NB*@"-HEe
M==\G H[V-PKP?2$PP "0OV< #D@*."<Z%)[ :"+P'E4@!/"9H%H -J-"/TN&d
MODH0CA8 ",'0P4,P 3GG!%(@!&WS-N#"#H/!C^H' (Z#OH80#--D P10PVTSc
M3>AKPC!@ BE<3F8 #CCP 1"0#0 B($*  =X@P2"PJ>YIP(X&!NH  S$@ S- b
M S5@ S>  SD0!F(P!F10!F9P!FB0!FJP!FS0!F[P!G 0!W(P!W10!W9P!WB0a
M!WH !'J\QWMLD7[,QX <R'M<10%0R(9\R(<L 8J\R(R,R#>A Y <R3@PR91<z
MR99LR8YL YJ\R330R9[\R: ,RH=\9010RJ9\RJ:\4U,R):B<RJU<RE-"$;(,y
MR["LRK(\$<-UR[J\R[S<R[[<R\(3S,(\S,1<S,6L%@(P  10  9P  B0 ,,<x
M=PS0  X@0A$@ 1-  15@ 1>  1F@ 1O  1W@ 1\  B$@ B,@S-),S=:,S=K,w
MS=X,SN),SN:,SL9\S_B<S_J\S_S<S_X\S+U<!7,0!F=0!KJ*!F5072#@!F5Pv
M!PA=75NP!D+0!2  !W+P!F<@!TW2  H  '( $D,0!F[0Q@7BQF7@!B!@!FG u
M!@E2 G/ T0"0!6&P!B$  BX- FDP!PO]!@4BTH&)!V4P!G5 !V#,TB'0T2$]t
MTCP- G-0!F6P!CB-TBK-TC;]TAU-!6>LTR0- G2 T-PC!G/P!F90('),EW.Ls
MC6/P!F/<T4;P!G7@!D7:QF[0U'.=(&%0( \-!W.0!GJ0(&SP!F-PUVGP!F[0r
MT6_ !D6:UWO=UR"@JR6 V##-T'<  HK-UPGBV)#=T1PA!9O=V7W2$/WTRZ(]q
MVJ1=VK]< ;7 $:G=)ZM= ;:@%EK&$4S7)[-= ;7]I@*@95\P!72P!E-@V> Pp
M$1+1!F&0!A Q$:"M%J+P!48@!TYM66R0W!"@!&6 !VD0&,@]$0'@ U\@!&$Po
M!U! T  0"A/1$64@!W+0QA-!"A-A$%]07;LQ$>2=$E\0!'10!-9-!U; WBLBn
M!<R]TE.0!W.PW^UM!47@!G:PM1,A"!1A)PA.5@M.$51PX$!)$0P^$6+ !&_@m
MQ@H. !=.$&8 !ZLIRQ_^5TDPUW0@!\9]!B5N!L1-!QWNX11A!\W]!FU !<7-l
M!A\. -Z@X1R>N3ON"3X.!S'P&CNN!TDP!T20!B@DXQ.A"4,.X4Y.$*9 ETU.k
M$"6N"2\NY5,. +90W4*-W5,> #;PXC-@X10A#"]N01$^$=# !$0P4FB.$ [ j
M!$,0!"2NW0@ YVS>YFHA 4Q0!'+NYP'@ 4Q@!(..Y=KM G+=)&6@Z @!"DP0i
M S'0YV/.!),N XE>XEYPXF/ VV,XYF1PXD[ TQ!>XI! ZCQ-Z(*@ZC .Z6K!h
M"&;0U$^=W02A &Y@!LX=!C!$$,F- "IPUX=-$=(-",1]!FDP!O)=WMAPV&20g
MU^-=WM0@V= ^WWT"#5/]Z,O.$=H0W[)L[7YBT<9-!_B60A,A .Y@!B9]W.;Nf
M4+!@!G>@XG2@[<E] +Q@!F/PUTWMZQ.A !I0)BKN!G1@!.UN*"BPVW1 !D\Pe
MU$; WY\MQW) !VX]KM)-#E^P\'0 Z@5O +QP\4,=TG) !,E= ,3@\70 \D@Pd
M\M9@\B#_!,EM !9@\B=.!R(_$04@!W7 !A+_&@4? ;: \5IPWA=1[W" \4+ c
M!B*]!O6N!\S-!G. !D)0!V:0W M@!O_-!FP0]5/?[_*@ZV6P[@6/ +P ]K;>b
M$A*0[V^P[_Q.$ P@"\[=!F]@!_0^$0R #<2-]8"]]F3#!U>/X^T#[N* \&10a
M!.C=\.5M"UZO[7K_ #S@]$[-$GKO !*PZ[VN]PR #_%^W8J?W V #()_X@3Oz
M\!7 W5B@\X0_ALGM %'O!FQ@W)"?W'7_!4U0!FTP!&Q0!TQ@[<@J^[1_]&N0y
M^Q.! 63P!4. !G)@^V$0 \DM ;BWY&<P! A.!<D] 0=!$ ;@ &*)  S  %!@x
M "^$R!1@",*  2X  G G"'J@  & "S8  BZ  5#@ !C@ TI@!Q!025[@ LZ w
M 0&  PS@!X;, Y@R+.#*2AD " C<I\3] @                          v
?                                      #\@P  u
 t
end