Werbung
aF˜ ˜s¢s˜am˜ _ m§Fm=¤mVFm˜
FUNCTION
read_count_value48(baseadr:word;axis,reg:byte):comp;
TYPE
vartype = (li,by);
mapper = record
VAR
buffer : mapper;
BEGIN
case reg of
0 : begin
buffer.field1[0]:=read_g26(baseadr,axis,0);
buffer.field1[1]:=read_g26(baseadr,axis,2);
buffer.field1[2]:=read_g26(baseadr,axis,4);
if (buffer.field1[2] and $8000)=$8000 then
buffer.field1[3]:=
end;
1 : begin
buffer.field1[0]:=read_g26(baseadr,axis,6);
buffer.field1[1]:=read_g26(baseadr,axis,8);
buffer.field1[2]:=read_g26(baseadr,axis,10);
if (buffer.field1[2] and $8000)=$8000 then
buffer.field1[3]:=
end;
end;
read_count_value48:=buffer.field0;
END;
–T˜
¤mc›apm˜«¤h˜F’Fm˜FamF’˜TG_ a›_F’’§F›’˜
¤mc›apm9
F"=¥4p¤m›¥¦"d¤FTG
""hF›F
*"’F"=9
"¨a’9
FV9
VF*ma’9
case wert:vartype of
li : (field0:comp);
by : (field1:array[0..3] of word);
end;
$FFFF else buffer.field1[3]:=0;
$FFFF else buffer.field1[3]:=0;
FV
=p¤*dF
"¨a’
4phz
˜
Werbung
