Werbung
˜
FUNCTION read_g26(baseadr:word;axes,address:byte):word;
VAR adr_reg,adr_point,adr_gate : word;
BEGIN
(*Die letzten vier Bits der Karten-Adresse
ausblenden*)
baseadr:=baseadr and $0FF0;
(*Adresse des Zähler-Bausteins B0 bis B4 bilden*)
address:=address and $001F;
(*Adress-Zeiger in Adress-Register laden*)
(*Adresse des Adress-Registers bilden*)
adr_reg:=baseadr or $0008;
(*Inhalt des Adress-Registers R0 bis R2 bilden =
Adresse des Zähler-Bausteins ohne B0 und B1*)
adr_point:=address shr 2;
(*Adress-Register laden*)
portw[adr_reg]:=adr_point;
(*Port-Adresse berechnen*)
if axes=1 then
adr_gate:=baseadr or (address and $03)
else
adr_gate:=(baseadr or $0004) or (address and $03);
(*Daten vom Zähler-Baustein lesen*)
read_g26:=portw[adr_gate];
END;
¤mc›apm˜«¤h˜F’Fm˜=F˜FVa’›F˜
¤mc›apm9
F"=¥V¢–
""hF›F
*"’F"=9
"¨a’9
"==F’’9
VF*ma’9
s}
aF˜ ˜s¢s˜am˜ _ m§Fm=¤mVFm˜
s}
˜
Q•˜
Werbung
