PROCEDURE gfa_l_opkomp__(sourceadr__%,destadr__%,length__%) ' **************************************************************************** ' *** *** ' ** ******** ** * ** Ein Produkt von ** ' ** ********* ********* Hans-Peter Burk und Helmut Micko ** ' ** ** ********* Software Entwicklungen ** ' ** ********* *** * *** ** ' ** ** *** * *** Library : GFA_GLIB.3_0 ** ' ** ********* *** * *** Name : L_OPKOMP ** ' ** ******** *** * *** Version : 1.1 30.11.1989 17:02 ** ' ** Autor : Helmut Micko ** ' *** *** ' **************************************************************************** ' *** Funktion : Komprimieren von Bildern der niedrigsten Aufl”sung, die *** ' ** mit L_DEKOMP wieder dekomprimiert werden k”nnen. ** ' ** Parameter : 1.Adresse der unkomprimierten Bilddaten ** ' ** 2.Adresse fr die komprimierten Bilddaten ** ' ** 3.L„nge des Bildes in Words (muž durch 4 teilbar sein) ** ' ** ** ' ** Lib_rv__% : == 1 = L„nge nicht durch 4 teilbar ** ' ** > 1 = Anzahl der Bytes nach dem Komprimieren ** ' ** == -1 = INLINE-Code nicht geladen ** ' *** Lib_rv__$ : Unbenutzt *** ' **************************************************************************** LOCAL codeadr__% INLINE codeadr__%,162 IF BYTE{codeadr__%}=&H48 IF (length__% MOD 4)=0 ~C:codeadr__%(L:sourceadr__%,L:destadr__%,W:length__%) lib_rv__%=DPEEK(destadr__%) ELSE lib_rv__%=1 ENDIF ELSE lib_rv__%=-1 ENDIF RETURN