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