semafor + rgb.asm

red bit P1.0
yellow bit P1.1
green bit P1.2

loop:   mov  P1, #0d
    setB red
    call rgbRed
    call delay3s

    setB yellow
    call rgbYellow
    call delay1s

    clr  red
    clr  yellow
    setB green
    call rgbGreen
    call delay3s

    clr  green
    setB yellow
    call rgbYellow
    call delay1s
    jmp  loop

delay3s:
    call delay1s
    call delay1s
    call delay1s
    ret

delay1s:
    mov  R3, #3d
    mov  R2, #210d
    mov  R1, #36d
    mov  R0, #20d
    nop
    djnz R0, $
    djnz R1, $-5
    djnz R2, $-9
    djnz R3, $-13
    mov  R0, #89d
    djnz R0, $
    nop
    ret

rgbRed: mov P0, #00100000b
    ret

rgbYellow:
    mov P0, #00110000b
    ret

rgbGreen:
    mov P0, #00010000b
    ret
end