;cau13: dieu khien dong co 1 chieu DC 12V

;bam phim p1.0 thi dong co quay thuan

;bam phim p1.1 thi dong co quay nguoc

;bam phim p1.2 thi dong co dung

;dong co noi voi p3.0,p3.1

;-----------------------------------------------

        org 0

main:

        mov p1,#0ffh            ;thiet lap p1 lam dau vao

kt:        mov p3,a                ;dung a de luu gia tri cua dong co

        jb p1.0,kt2

        mov a,#00000010b        ;cho dong co quay thuan

        mov p3,a

kt2:        jb p1.1,kt3

        mov a,#00000001b        ;cho dong co quay nguoc

        mov p3,a

kt3:        jb p1.2,kt

        mov a,#0                ;cho dong co dung

        mov p3,a

        jmp main

ret

------------------------

;chuong trinh dieu khien 16 led don noi voi p0,p2

;chuong trinh:     sang dan tat dan 2 lan

;                1 diem sang chay 3 lan

;                sang don 1 lan

;                chop tat 20 lan   

;cac led tich cuc o muc thap

;chuong trinh mo phong : kem theo trong folder

;xxxxxxxxxxxxxxxxxxxxxxxxx

        org 0

main:   

        mov r0,#2

lap1:    call sang_dan_tat_dan

        djnz r0,lap1

        ;-------------------------

        mov r0,#3

lap2:    call mot_diem_sang_chay

        djnz r0,lap2

        ;-------------------------

        call sang_don

        ;-------------------------

        mov r0,#20

lap3:    call chop_tat

        djnz r0,lap3

        jmp main

;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

sang_dan_tat_dan:

        mov p0,#0ffh            ;tat cac led p0

        mov p2,#0ffh            ;tat cac led p2

        call delay

sangdan:

        clr c

        mov a,p0

        rlc a

        mov p0,a

        mov a,p2

        rlc a

        mov p2,a

        call delay

        jc sangdan

    ;---------------------------       

tatdan:

        setb c

        mov a,p0

        rlc a

        mov p0,a

        mov a,p2

        rlc a

        mov p2,a

        call delay

        jnc tatdan

        ret

;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

mot_diem_sang_chay:

        mov p0,#0ffh            ;tat cac led p0

        mov p2,#0ffh            ;tat cac led p2

        call delay

        clr c

sangchay:

        mov a,p0

        rlc a

        mov p0,a

        mov a,p2

        rlc a

        mov p2,a

        call delay

        jc sangchay

        ret

;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

sang_don:

        ret

;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

chop_tat:

        mov p0,#0            ;sang cac led p0

        mov p2,#0            ;sang cac led p2

        call delay

        mov p0,#0ffh            ;tat cac led p0

        mov p2,#0ffh            ;tat cac led p2

        call delay

        ret

;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

delay:

        mov r1,#255

lap4:    mov r2,#255

        djnz r2,$

        djnz r1,lap4

        ret

;------------------------------------------

end

------------------------------------

;chuong trinh chuong tro choi cho 7 thi sinh va mot nguoi dan chuong trinh

;nut bam cac thi sinh noi lan luot tu p1.0-p1.6

;nut bam MC noi voi p1.7

;cac nut bam tich cuc muc thap

;den cua cac thi sinh noi voi p3.0-p3.6

;chuong  noi voi p3.7

;den va chuong tich cuc o muc cao

;chuong keu trong vong 1s, den cua cac thi sinh sang

;-----------------------------------

    org 0

kt1:

    mov p3,#0                    ;tat den va chuong

    mov p1,#0ffh                ;thiet lap p1 lam dau vao

    mov a,p1                    ;chuyen vao thanh ghi a de so sanh

    cjne a,#11111110b,kt2        ;kiem tra nut bam thi sinh 1

    mov p3,#10000001b            ;den 1 sang, chuong keu

    call delay1s

    mov p3,#00000001b            ;den 1 sang, tat chuong sau 1 giay

    call ktMC

    ;-------------------------------

kt2:

    cjne a,#11111101b,kt3        ;kiem tra nut bam thi sinh 2

    mov p3,#10000010b            ;den 2 sang, chuong keu

    call delay1s

    mov p3,#00000010b            ;den 2 sang, tat chuong sau 1 giay

    call ktMC

    ;-------------------------------

kt3:

    cjne a,#11111011b,kt4        ;kiem tra nut bam thi sinh 3

    mov p3,#10000100b            ;den 3 sang, chuong keu

    call delay1s

    mov p3,#00000100b            ;den 3 sang, tat chuong sau 1 giay

    call ktMC

    ;-------------------------------

kt4:

    cjne a,#11110111b,kt5        ;kiem tra nut bam thi sinh 4

    mov p3,#10001000b            ;den 4 sang, chuong keu

    call delay1s

    mov p3,#00001000b            ;den 4 sang, tat chuong sau 1 giay

    call ktMC

    ;-------------------------------

kt5:

    cjne a,#11101111b,kt6        ;kiem tra nut bam thi sinh 5

    mov p3,#10010000b            ;den 5 sang, chuong keu

    call delay1s

    mov p3,#00010000b            ;den 5 sang, tat chuong sau 1 giay

    call ktMC

    ;-------------------------------

kt6:

    cjne a,#11011111b,kt7        ;kiem tra nut bam thi sinh 6

    mov p3,#10100000b            ;den 6 sang, chuong keu

    call delay1s

    mov p3,#00100000b            ;den 6 sang, tat chuong sau 1 giay

    call ktMC

    ;-------------------------------

kt7:

    cjne a,#10111111b,kt1        ;kiem tra nut bam thi sinh 7

    mov p3,#11000000b            ;den 7 sang, chuong keu

    call delay1s

    mov p3,#01000000b            ;den 7 sang, tat chuong sau 1 giay

    call ktMC

;-------------------------------------

ktMC:

    jb p1.7,$

    jmp kt1

    ret

;-------------------------------------

ktMC1:

    jnb p1.7,kt1

    ret

;------------------------------------

delay1s:

    mov r2,#10

lap1:

    mov r0,#255

lap:   

    mov r1,#255

    call ktMC1

    djnz r1,$

    djnz r0,lap

    djnz r2,lap1

    ret

;-----------------------

end