۱۵-فروردین-۱۳۸۷, ۱۰:۰۰:۲۴
$regfile = "m8def.dat"
$baud = 9600
Dim Q As Byte
Q = 0
Do
W:
Incr Q
Waitms 100
Print Q
If Q > 10 Then
Goto W
End If
jmp $f80
Loop
End 'end program
$boot = $f80
E:
sbic pinb.1
rcall e
jmp $0000
اینم یه برنامه ساده :wink: [/code]
$baud = 9600
Dim Q As Byte
Q = 0
Do
W:
Incr Q
Waitms 100
Print Q
If Q > 10 Then
Goto W
End If
jmp $f80
Loop
End 'end program
$boot = $f80
E:
sbic pinb.1
rcall e
jmp $0000
اینم یه برنامه ساده :wink: [/code]