Форум РадиоКот

Код: Выделить всё

$regfile = "m8def.dat"                                      ' we use the M8
$baud = 9600

$hwstack = 32
$swstack = 8
$framesize = 24

Dim A As Byte , B1 As Byte , C As Integer , S As String * 4
A = 1
Print "print variable a " ; A
Print                                                       'new line
Print "Text to print."                                      'constant to print


B1 = 10
Print Hex(b1)                                               'print in hexa notation
C = &HA000                                                  'assign value to c%
Print Hex(c)                                                'print in hex notation
Print C                                                     'print in decimal notation

C = -32000
Print C
Print Hex(c)
Rem Note That Integers Range From -32767 To 32768

Print "You can also use multiple" _
; "lines using _"
Print "use it for long lines"
'From version 1.11.6.4 :
A = &B1010_0111
Print Bin(a)
S = "1001"
A = Binval(s)
Print A                                                    
End

Код: Выделить всё

PORTD.0 = 1
   ...
PORTD.7 = 1 

Код: Выделить всё

$regfile = "attiny2313.dat"
$crystal = 12000000

Config Portb = Output

Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Prescale = 64

Pwm1a = 255

Do
Loop

End