SET

Action

Set a bit to the value one.

 

 

Syntax

SET bit

SET var.x

SET var

 

 

Remarks

Bit	Bit or Boolean variable.
Var	A byte, integer, word or long variable.
X	Bit of variable to set. Valid values are : 0-7 (byte, registers), 0-15 (Integer/Word) and (0-31) for a Long

 

 

When the bit is not specified, bit 0 will be set.

Also notice that the bit range is 0-255. Using a larger value on a variable will overwrite a different variable !

When you need an array of say 128 bits you can use code like this : dim ar(32) as long

You can index these variables like : SET ar(1).127 , in this case you write only to the memory of the intended variable.

 

 

See also

RESET , TOGGLE

 

 

Example

'--------------------------------------------------------------------------------
'name : boolean.bas
'copyright : (c) 1995-2009, MCS Electronics
'purpose : demo: AND, OR, XOR, NOT, BIT, SET, RESET and MOD
'suited for demo : yes
'commercial add on needed : no
'use in simulator : possible
'--------------------------------------------------------------------------------
'This very same program example can be used in the Help-files for
' AND, OR, XOR, NOT, BIT, SET, RESET and MOD
 
 
$baud = 19200
$crystal = 16000000
$regfile = "m32def.dat"
 
$hwstack = 40
$swstack = 20
$framesize = 20
 
Dim A As Byte , B1 As Byte , C As Byte
Dim Aa As Bit , I As Integer
 
A = 5 : B1 = 3 ' assign values
C = A And B1 ' and a with b
Print "A And B1 = " ; C ' print it: result = 1
 
C = A Or B1
Print "A Or B1 = " ; C ' print it: result = 7
 
C = A Xor B1
Print "A Xor B1 = " ; C ' print it: result = 6
 
A = 1
C = Not A
Print "c = Not A " ; C ' print it: result = 254
C = C Mod 10
Print "C Mod 10 = " ; C ' print it: result = 4
 
 
If Portb.1 = 1 Then
Print "Bit set"
Else
Print "Bit not set"
End If 'result = Bit not set
 
Aa = 1 'use this or ..
Set Aa 'use the set statement
If Aa = 1 Then
Print "Bit set (aa=1)"
Else
Print "Bit not set(aa=0)"
End If 'result = Bit set (aa=1)
 
Aa = 0 'now try 0
Reset Aa 'or use reset
If Aa = 1 Then
Print "Bit set (aa=1)"
Else
Print "Bit not set(aa=0)"
End If 'result = Bit not set(aa=0)
 
C = 8 'assign variable to &B0000_1000
Set C 'use the set statement without specifying the bit
Print C 'print it: result = 9 ; bit0 has been set
 
B1 = 255 'assign variable
Reset B1.0 'reset bit 0 of a byte variable
Print B1 'print it: result = 254 = &B11111110
 
B1 = 8 'assign variable to &B00001000
Set B1.0 'set it
Print B1 'print it: result = 9 = &B00001001
End

Languages	English • Deutsch