ushort ProvisionKd(long *ProvBt, ushort Md)
{
ushort Status;
##BEGIN
MODUL=ProvKD,PROGNO=0,MODULNR=43,READCT,STATUS=Status
LONGPTR pProvBt
WORD Md
WR0 = Md /* Variablen bekannt machen */
LR1 = pProvBt
select WRO
case 1
src WR0 /* ReadCounter = 1 für 1mal Getreg-Befehl */
ProvReg = LR1 /* ProvReg ist LR9 (durch #define-Anweisung) */
break
case 2
ProvReg += LR1
break
case 3
ProvReg -= LR1
break
case 4
Getreg(pProvBt,ProvReg) /* Register lesen ReadCounter wurde zuvor gesetzt */ break
endsel
##END
return(Status)
}
|