[mkinl3.inc] { =================================================== } { Das MKINL Programm -- INCLUDE Dateien } { } { TEIL 3 : INLINE Programme } { } { =================================================== } function InByte: byte; begin if BytePtr>127 then begin {$I-}BlockRead (RelFile,Buffer,1){$I+}; if IOResult>0 then IOErr('Ungueltiges Format der REL Datei'); BytePtr := 0 end; InByte := Buffer[BytePtr]; BytePtr := succ(BytePtr) end; function GetBits (NBits: Bits): byte; begin WB.High := 0; if BitCnt=B then Max := A else Max := B end; function RetrWd (N: integer): integer; var WB : ByteRec; WW : integer absolute WB; begin with WB do begin Low := Prog[N].Cont; High:= Prog[Succ(N)].Cont end; RetrWd := WW end;