LJMP START
        ORG      100H
START:
        MOV R0,#02BH
        MOV A,10000000B
        MOVX @R0,A
        MOV R0,#28H
        MOV R1,#29H
        MOV A,#0FFH
        MOVX @R0,A
        MOVX @R1,A
LOOP:
        MOV A,#11111101B   ; zielone dla pieszych
        MOVX @R0,A
        MOV A,#11111110B   ; czerwone dla samochodów
        MOV @R1,A
        MOV R6,#100
        MOV R5,#10
        LCALL DELAY
        MOV A,#11111111B   ; gasi dla pieszych
        MOVX @R0,A
        MOV A,#11111111B   ; gasi dla samochodów
        MOVX @R1,A
        MOV A,#11111110B   ; czerwone dla pieszych
        MOVX @R0,A
        MOV A,#11111101B   ; pomarańczowe dla pieszych
        MOVX @R1,A
        MOV R6,#100
        MOV R5,#10
        LCALL DELAY1S
        MOV A,#11111111B   ; gasi dla pieszych
        MOVX @R0,A
        MOV A,#11111111B   ; gasi dla samochodów
        MOVX @R1,A
        MOV A,#11111110B   ; czerwone dla pieszych
        MOVX @R0,A
        MOV A,#11111011B   ; zielone dla samochodów
        MOVX @R1,A
        LCALL DELAY
        LJMP LOOP
DELAY:
LOOP1:
        MOV R7,#200
LOOP2:
        MOV A,#228
        DJNZ ACC,$
        DJNZ R7,LOOP2
        DJNZ R6,LOOP1

RET
DELAY1S:
LOOP3:
        MOV R7,#200
LOOP4:
        MOV A,#228
        DJNZ ACC,$
        DJNZ R7,LOOP4
        DJNZ R5,LOOP3
        RET