Die Prozedur SetBit setzt das angegebene Bit auf den Binärwert 1.
Alle anderen Bits der angegebenen Variable werden nicht verändert.
SetBit ( < das_Bit > ) ;
das_Bit = Der Parameter muss als Bit im Vereinbarungsteil vorher vereinbart worden sein (z.B. Ausgang[PORTC,1] : Bit;)
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
PROGRAM test_sb;
DEVICE = mega8;
{$I mega8_Register.INC}
VAR
d1 : DWord;
ein_DWord[d1,30] : Bit;
BEGIN
SetBit(ein_DWord);
END test_sb. |
Die Prozedur SetBit setzt (in Zeile 15) das Bit 30 der Variable "ein_DWord" auf den Binärwert 1.