Witam sorry jestem początkujący i nie mogę sobie poradzić ze wstawką w ASM w Bascom j/w
oto co wypociłem

$regfile = "m328pdef.DAT"
$crystal = 16000000
Config Portd.1 = Output
Pind.1 = 0

Dim A As Word

Dim Green As Byte , Red As Byte , Blue As Byte


Red = 100
Green = 200
Blue = 10




Do

Gosub Rgb0
Wait 1

Loop



'Xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Rgb0:
Loadadr Green , X 'załaduj adres zmiennej GREEN do rejestru X
'niestety to też mi nie działa
$asm


;ustawić portD na 1 i w zależności od BRCS C=1 tzn bit=1 1=800ns 0=400ns
;-----""------ na 0 ------""----- od BRCS C=0 tzn bit=0 0=400ns 1=800ns
;Ldi R17,(X) ; Kolor 1 Cykl

Ldi r16,30 ;ilosc diod LDI laduj do r16
;ldi r17,255 ;kolor
INC R16
LDI R18,3

Loop6:
; ldi ZL,low [Ledy*2] ;adres tabeli w pamięci programu
; ldi ZH,high [Ledy*2] niestety taki zapis nie kompiluje mi Bascom


Ldi R17,10 ; Kolor 1 Cykl
Ldi r19,8 ;ilosc bitow 1 CYKL


; 12,8=800 13 CYKLI 810ns
; 6,4=400 6 CYKLI 375ns
;150ns Tolerancja 2,4 Cykle
Loop4:
SBI portd,1 ; USTAWIA 1 NA PORCIE D 2 CYKLE
lsl r17 ; 1 CYKL
NOP ; 1 CYKL
NOP ; 1 CYKL
brcs jeden ; jesli 1bit to C=1 jesli 0 to C=0 2 CYKLE lub 1

cbi PORTd,1 ; USTAW 0 NA PORCIE 2 CYKLE

Jeden:

nop
nop
nop
nop
NOP
DEC R19 ; 1 CYKL


cbi PORTd,1 ; ZERUJ NA PORCIE D 2 CYKLE

NOP
NOP
BRNE Loop4 ; 2 Cykle
DEC R18

BRNE LOOP6

NOP


rjmp LOOP8 ; 2 CYKLE

Ledy:
.db 10 , 20 , 30
'---------------------------------------------------------------------------------
'---------------------------------------------------------------------------------

Loop8:

$end Asm
Return

jeśli ktoś z kolegów mógłby mi pomóc to bym był wdzięczny (ewentualnie wyprowadził na dobre tory

Wstaw to w znacznikach
[syntax] i użyj tabulatorów bo jest strasznie nieprzejrzyste

_________________
sig off ;(

kurcze nie wiem jak to się robi

------------------------ [ Dodano po: 56 minutach ]

Może mi ktoś pomoże zapala mi się tylko 1 dioda i wszystkie kolory następne nie chcą - dzięki

@Maciek 222 co do znaczników "Syntax"
Edytuj swój post z kodem
w edytrze zaznacz kod i naciśnij Ctrl+x następnie
wybierz z listy rozwijanej "SYNTAX wybierz" (zaraz nad oknem edycji)
"Basic (bascom)" i wciśnij klawisze Ctrl+v.

to może ja wstawie

Dzięki Wam za zwrócenie uwagi na "niewidomego" forumpowicza
i jeśli ktoś może pomódz mi z tym kodem - dzięki

------------------------ [ Dodano po: kilkunastu sekundach ]

sorry "pomóc"

Witam może mi ktoś cokolwiek powie na temat tego kodu - niestety nie mogę sobie poradzić 1 dioda się zapala w różnych PWM-ach i kolorach niestety następna nie chce ani pozostałe - dzięki

------------------------ [ Dodano po: 2 minutach ]

Witam może mi ktoś pomoże udało mi się z DATA pobierać zmienne i wszystkie z 1 diody tzn GRB świecą i działa PWM ale następne nie chcą się zapalać nie mam już nerwów