Werbung
˜
PROCEDURE
write_g26(baseadr:word;axes,address:byte;datum: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 in den Zähler-Baustein schreiben*)
portw[adr_gate]:=datum;
END;
aF˜ ˜s¢s˜am˜ _ m§Fm=¤mVFm˜
QQ˜
Werbung
