Tak jsem to cca přepsal do asm..
ale moc to nefunguje, chci zobrazit zlutou a ukaze se me cervena :D
HAH: CLR P3.0
CLR P3.1
CLR P3.2
SETB P3.3
SETB P3.4
SETB P3.5
SETB P3.6
MOV P0,#00000000B
MOV P1,#00000000B
MOV P2,#00000000B
ZAC:MOV A,#0
MOV R0,#255 ;RED
MOV R1,#249 ;GREN
MOV R2,#97 ;BLUE
HL: MOV B,R0 ;DO B HODNORU CERVENE
CJNE A,B,RS ;POROVNEJ POKUD SE LISI SKOC NA RS
;/*ROVNA SE PROTO SE UZ NESMI ZOBRAZOVAT
SETB P3.4
MOV R0,A
INC R0
JMP RSA
RS: CLR P3.4 ;ZAPNI CERVENOU LEDKU
RSA:MOV B,R1 ;DO B HODNORU ZELENE
CJNE A,B,GS ;POROVNEJ POKUD SE LISI SKOC NA GS
;/*ROVNA SE PROTO SE UZ NESMI ZOBRAZOVAT
SETB P3.5
MOV R1,A
INC R1
JMP GSA
GS: CLR P3.5 ;ZAPNI ZELENOU LEDKU
GSA:MOV B,R2 ;DO B HODNORU MODRE
CJNE A,B,BS ;POROVNEJ POKUD SE LISI SKOC NA BS
;/*ROVNA SE PROTO SE UZ NESMI ZOBRAZOVAT
SETB P3.6
MOV R2,A
INC R2
JMP BSA
BS: CLR P3.6 ;ZAPNI MODROU LEDKU
BSA:INC A ;PRICTI K A JEDNICKU
CJNE A,#255,HL ;JESTE NENI MAXIMALNI HODNOTA MUZEME OPAKOVAT
JMP ZAC ;SKOK NA ZACATEK PROGRAMU
end