Nguyên văn bởi phucthinhel
Xem bài viết
-
Cho mình hỏi cái font bạn dùng lưu trên máy tính , mình xem chương trình của bạn mình không thấy cái table font chữ .Leave a comment:
-
em cũng đang làm mạch này cũng nháy 16 kiểu nguyên mua đồ linh kiện chưa mua led đã ngốn 300k rồi mạch thì made in thầy giáo bác nào thích làm thì liện hệ cho em moclaanh.ptk8x@yahoo.com mạch thì em không có nhưng em mua mạch của thầy giáo thì có luôn cả sơ đồ rồi em định nhờ thầy làm luôn cho nhưng thầy đang bận làm chiếc điện thoại khổng lồ nên ứk làm cho em được nhưng cũng dễ em chỉ còn mỗi công đoạn là vẽ chữ để lắp led mà thôiLeave a comment:
-
Cảm ơn anh Dũng rất nhiều. Nhưng em thấy nhiều câu lệnh lạ quá. Nếu có gì không hiểu, em rất mong nhận được sự giúp đỡ của anh. Cảm ơn anh một lần nữa.Leave a comment:
-
cuối
chúc các bạn thành côngCode:;========================================================================================= ;CHUONG TRINH CON KIEU CHIA DOI VAO ================================================== ;========================================================================================= kieu_chia_doi_vao_begin: mov r16,m_cursel_low cpi r16,low(nua_chieu_dai_bang) ldi r16,high(nua_chieu_dai_bang) cpc m_cursel_high,r16 brlo not_bang__cdvb rcall bat_led ret not_bang__cdvb: ldi cursel_low,0 ldi cursel_high,0 ldi cursel_do_high,high(nua_chieu_dai_bang) ldi cursel_do_low,low(nua_chieu_dai_bang) sub cursel_do_low,m_cursel_low sbc cursel_do_high,m_cursel_high mov cursel_xanh_low,cursel_do_low mov cursel_xanh_high,cursel_do_high sbi chan_dk,chan_xanh ;mac dinh la tat mau xanh sbi chan_dk,chan_do ;mac dinh la tat mau do lap_kieu_chia_doi_tvao_begin: cpi cursel_do_low,low(nua_chieu_dai_bang) ldi r16,high(nua_chieu_dai_bang) cpc cursel_do_high,r16 brsh not_kieu_chia_doi_tvao_begin ;neu lon hon khong xuat data mau (vuot vung data) mov vi_tri_hang,m_vi_tri_hang rcall lay_bit_mau_xanh mov vi_tri_hang,m_vi_tri_hang rcall lay_bit_mau_do sbi chan_dk,ck_led ;kich ck cbi chan_dk,ck_led inc cursel_low rjmp lap_kieu_chia_doi_tvao_begin ;----------------------------- not_kieu_chia_doi_tvao_begin: ldi cursel_xanh_high,high(nua_chieu_dai_bang) ldi cursel_xanh_low,low(nua_chieu_dai_bang) ldi cursel_do_high,high(nua_chieu_dai_bang) ldi cursel_do_low,low(nua_chieu_dai_bang) ldi cursel_a,low(chieu_dai_bang) ldi cursel_b,high(chieu_dai_bang) sub cursel_a,m_cursel_low sbc cursel_b,m_cursel_high sbi chan_dk,chan_xanh ;mac dinh la tat mau xanh sbi chan_dk,chan_do ;mac dinh la tat mau do lap_kieu_chia_doi_pvao_begin: cp cursel_low,cursel_a cpc cursel_high,cursel_b brcs not_kieu_chia_doi_pvao_begin ;neu nho hon khong xuat data mau (dang dich vao) mov vi_tri_hang,m_vi_tri_hang rcall lay_bit_mau_xanh mov vi_tri_hang,m_vi_tri_hang rcall lay_bit_mau_do ;----------------------------- not_kieu_chia_doi_pvao_begin: sbi chan_dk,ck_led ;kich ck cbi chan_dk,ck_led subi cursel_low,low(-1) sbci cursel_high,high(-1) cpi cursel_low,low(chieu_dai_bang) brne lap_kieu_chia_doi_pvao_begin ;chieu_dai_bang cpi cursel_high,high(chieu_dai_bang) brne lap_kieu_chia_doi_pvao_begin ret ;================================================ kieu_chia_doi_vao_end: mov r16,m_cursel_low cpi r16,low(nua_chieu_dai_bang) ldi r16,high(nua_chieu_dai_bang) cpc m_cursel_high,r16 brlo not_bang__cdve rcall tat_led ret not_bang__cdve: ldi cursel_low,0 ldi cursel_high,0 ldi cursel_xanh_high,0 ldi cursel_xanh_low,0 ldi cursel_do_high,0 ldi cursel_do_low,0 sbi chan_dk,chan_xanh ;mac dinh la tat mau xanh sbi chan_dk,chan_do ;mac dinh la tat mau do lap_kieu_chia_doi_tvao_end: cpi cursel_low,low(nua_chieu_dai_bang) ldi r16,high(nua_chieu_dai_bang) cpc cursel_high,r16 brsh ben_phai_chia_doi_vao_end cp cursel_low,m_cursel_low cpc cursel_high,m_cursel_high brcs not_kieu_chia_doi_tvao_end ;neu nho hon khong xuat data mau (dang dich vao) mov vi_tri_hang,m_vi_tri_hang rcall lay_bit_mau_xanh mov vi_tri_hang,m_vi_tri_hang rcall lay_bit_mau_do not_kieu_chia_doi_tvao_end: sbi chan_dk,ck_led ;kich ck cbi chan_dk,ck_led inc cursel_low brne lap_kieu_chia_doi_tvao_end ;----------------------------- ben_phai_chia_doi_vao_end: ldi cursel_xanh_high,high(nua_chieu_dai_bang) ldi cursel_xanh_low,low(nua_chieu_dai_bang) add cursel_xanh_high,m_cursel_high adc cursel_xanh_low,m_cursel_low mov cursel_do_high,cursel_xanh_high mov cursel_do_low,cursel_xanh_low sbi chan_dk,chan_xanh ;mac dinh la tat mau xanh sbi chan_dk,chan_do ;mac dinh la tat mau do lap_kieu_chia_doi_pvao_end: cpi cursel_xanh_low,low(chieu_dai_bang) ldi r16,high(chieu_dai_bang) cpc cursel_xanh_high,r16 brsh not_kieu_chia_doi_pvao_end ;neu lon hon khong xuat data mau (vuot vung data) mov vi_tri_hang,m_vi_tri_hang rcall lay_bit_mau_xanh mov vi_tri_hang,m_vi_tri_hang rcall lay_bit_mau_do not_kieu_chia_doi_pvao_end: sbi chan_dk,ck_led ;kich ck cbi chan_dk,ck_led subi cursel_low,low(-1) sbci cursel_high,high(-1) cpi cursel_low,low(chieu_dai_bang) brne lap_kieu_chia_doi_pvao_end ;chieu_dai_bang cpi cursel_high,high(chieu_dai_bang) brne lap_kieu_chia_doi_pvao_end ;chieu_dai_bang ret ;***************************************************************************************** ;***************************************************************************************** ;***************************************************************************************** ;========================================================================================= ;CHUONG TRINH CON KIEU CHIA DOI RA ================================================== ;========================================================================================= kieu_chia_doi_ra_begin: mov r16,m_cursel_low cpi r16,low(nua_chieu_dai_bang) ldi r16,high(nua_chieu_dai_bang) cpc m_cursel_high,r16 brlo not_bang__cdrb rcall bat_led ret not_bang__cdrb: ldi cursel_low,0 ldi cursel_high,0 ldi cursel_xanh_high,0 ldi cursel_xanh_low,0 ldi cursel_do_high,0 ldi cursel_do_low,0 ldi cursel_a,low(nua_chieu_dai_bang) ldi cursel_b,high(nua_chieu_dai_bang) sub cursel_a,m_cursel_low sbc cursel_b,m_cursel_high sbi chan_dk,chan_xanh ;mac dinh la tat mau xanh sbi chan_dk,chan_do ;mac dinh la tat mau do lap_kieu_chia_doi_tra_begin: cpi cursel_low,low(nua_chieu_dai_bang) ldi r16,high(nua_chieu_dai_bang) cpc cursel_high,r16 brsh ben_phai_chia_doi_ra_begin cp cursel_low,cursel_a cpc cursel_high,cursel_b brcs not_kieu_chia_doi_tra_begin ;neu nho hon khong xuat data mau (dang dich ra) mov vi_tri_hang,m_vi_tri_hang rcall lay_bit_mau_xanh mov vi_tri_hang,m_vi_tri_hang rcall lay_bit_mau_do not_kieu_chia_doi_tra_begin: sbi chan_dk,ck_led ;kich ck cbi chan_dk,ck_led inc cursel_low brne lap_kieu_chia_doi_tra_begin ;----------------------------- ben_phai_chia_doi_ra_begin: ldi cursel_xanh_high,high(chieu_dai_bang) ldi cursel_xanh_low,low(chieu_dai_bang) sub cursel_xanh_low,m_cursel_low sbc cursel_xanh_high,m_cursel_high mov cursel_do_high,cursel_xanh_high mov cursel_do_low,cursel_xanh_low sbi chan_dk,chan_xanh ;mac dinh la tat mau xanh sbi chan_dk,chan_do ;mac dinh la tat mau do lap_kieu_chia_doi_pra_begin: cpi cursel_xanh_low,low(chieu_dai_bang) ldi r16,high(chieu_dai_bang) cpc cursel_xanh_high,r16 brsh not_kieu_chia_doi_pra_begin ;neu lon hon khong xuat data mau (vuot vung data) mov vi_tri_hang,m_vi_tri_hang rcall lay_bit_mau_xanh mov vi_tri_hang,m_vi_tri_hang rcall lay_bit_mau_do not_kieu_chia_doi_pra_begin: sbi chan_dk,ck_led ;kich ck cbi chan_dk,ck_led subi cursel_low,low(-1) sbci cursel_high,high(-1) cpi cursel_low,low(chieu_dai_bang) brne lap_kieu_chia_doi_pra_begin ;chieu_dai_bang cpi cursel_high,high(chieu_dai_bang) brne lap_kieu_chia_doi_pra_begin ;chieu_dai_bang ret ;================================================ kieu_chia_doi_ra_end: mov r16,m_cursel_low cpi r16,low(nua_chieu_dai_bang) ldi r16,high(nua_chieu_dai_bang) cpc m_cursel_high,r16 brlo not_bang__cdre rcall tat_led ret not_bang__cdre: ldi cursel_low,0 ldi cursel_high,0 mov cursel_do_high,m_cursel_high mov cursel_do_low,m_cursel_low mov cursel_xanh_low,m_cursel_low mov cursel_xanh_high,m_cursel_high sbi chan_dk,chan_xanh ;mac dinh la tat mau xanh sbi chan_dk,chan_do ;mac dinh la tat mau do lap_kieu_chia_doi_tra_end: cpi cursel_do_low,low(nua_chieu_dai_bang) ldi r16,high(nua_chieu_dai_bang) cpc cursel_do_high,r16 brsh not_kieu_chia_doi_tra_end ;neu lon hon khong xuat data mau (vuot vung data) mov vi_tri_hang,m_vi_tri_hang rcall lay_bit_mau_xanh mov vi_tri_hang,m_vi_tri_hang rcall lay_bit_mau_do sbi chan_dk,ck_led ;kich ck cbi chan_dk,ck_led inc cursel_low rjmp lap_kieu_chia_doi_tra_end ;----------------------------- not_kieu_chia_doi_tra_end: ldi cursel_xanh_high,high(nua_chieu_dai_bang) ldi cursel_xanh_low,low(nua_chieu_dai_bang) ldi cursel_do_high,high(nua_chieu_dai_bang) ldi cursel_do_low,low(nua_chieu_dai_bang) ldi cursel_a,low(nua_chieu_dai_bang) ldi cursel_b,high(nua_chieu_dai_bang) add cursel_a,m_cursel_low adc cursel_b,m_cursel_high sbi chan_dk,chan_xanh ;mac dinh la tat mau xanh sbi chan_dk,chan_do ;mac dinh la tat mau do lap_kieu_chia_doi_pra_end: cp cursel_low,cursel_a cpc cursel_high,cursel_b brcs not_kieu_chia_doi_pra_end ;neu nho hon khong xuat data mau (dang dich vao) mov vi_tri_hang,m_vi_tri_hang rcall lay_bit_mau_xanh mov vi_tri_hang,m_vi_tri_hang rcall lay_bit_mau_do ;----------------------------- not_kieu_chia_doi_pra_end: sbi chan_dk,ck_led ;kich ck cbi chan_dk,ck_led subi cursel_low,low(-1) sbci cursel_high,high(-1) cpi cursel_low,low(chieu_dai_bang) brne lap_kieu_chia_doi_pra_end ;chieu_dai_bang cpi cursel_high,high(chieu_dai_bang) brne lap_kieu_chia_doi_pra_end ret ;***************************************************************************************** ;***************************************************************************************** ;***************************************************************************************** ;========================================================================================= ;CHUONG TRINH CON KIEU CHE CHIA DOI VAO ================================================== ;========================================================================================= kieu_che_chia_doi_vao_begin: mov r16,m_cursel_low cpi r16,low(nua_chieu_dai_bang) ldi r16,high(nua_chieu_dai_bang) cpc m_cursel_high,r16 brlo not_bang__ccdvb rcall bat_led ret not_bang__ccdvb: ldi cursel_low,0 ldi cursel_high,0 ldi cursel_do_high,0 ldi cursel_do_low,0 ldi cursel_xanh_high,0 ldi cursel_xanh_low,0 ldi cursel_a,low(chieu_dai_bang) ldi cursel_b,high(chieu_dai_bang) sub cursel_a,m_cursel_low sbc cursel_b,m_cursel_high sbi chan_dk,chan_xanh ;mac dinh la tat mau xanh sbi chan_dk,chan_do ;mac dinh la tat mau do lap_kieu_che_chia_doi_vao_begin: mov vi_tri_hang,m_vi_tri_hang rcall lay_bit_mau_xanh mov vi_tri_hang,m_vi_tri_hang rcall lay_bit_mau_do cp cursel_low,m_cursel_low cpc cursel_high,m_cursel_high brcs not_kieu_che_chia_doi_vao_begin ;neu nho hon khong xuat data mau (dang dich vao) cp cursel_low,cursel_a cpc cursel_high,cursel_b brsh not_kieu_che_chia_doi_vao_begin sbi chan_dk,chan_xanh ;mac dinh la tat mau xanh sbi chan_dk,chan_do ;mac dinh la tat mau do ;----------------------------- not_kieu_che_chia_doi_vao_begin: sbi chan_dk,ck_led ;kich ck cbi chan_dk,ck_led subi cursel_low,low(-1) sbci cursel_high,high(-1) cpi cursel_low,low(chieu_dai_bang) brne lap_kieu_che_chia_doi_vao_begin ;chieu_dai_bang cpi cursel_high,high(chieu_dai_bang) brne lap_kieu_che_chia_doi_vao_begin ret ;================================================ kieu_che_chia_doi_vao_end: mov r16,m_cursel_low cpi r16,low(nua_chieu_dai_bang) ldi r16,high(nua_chieu_dai_bang) cpc m_cursel_high,r16 brlo not_bang__ccdve rcall tat_led ret not_bang__ccdve: ldi cursel_low,0 ldi cursel_high,0 ldi cursel_do_high,0 ldi cursel_do_low,0 ldi cursel_xanh_high,0 ldi cursel_xanh_low,0 ldi cursel_a,low(chieu_dai_bang) ldi cursel_b,high(chieu_dai_bang) sub cursel_a,m_cursel_low sbc cursel_b,m_cursel_high sbi chan_dk,chan_xanh ;mac dinh la tat mau xanh sbi chan_dk,chan_do ;mac dinh la tat mau do lap_kieu_che_chia_doi_vao_end: mov vi_tri_hang,m_vi_tri_hang rcall lay_bit_mau_xanh mov vi_tri_hang,m_vi_tri_hang rcall lay_bit_mau_do cp cursel_low,m_cursel_low cpc cursel_high,m_cursel_high brcs not_kieu_che_chia_doi_vao_end ;neu nho hon khong xuat data mau (dang dich vao) cp cursel_low,cursel_a cpc cursel_high,cursel_b brcs dich_data_che_chia_doi_vao_end ;----------------------------- not_kieu_che_chia_doi_vao_end: sbi chan_dk,chan_xanh ;mac dinh la tat mau xanh sbi chan_dk,chan_do ;mac dinh la tat mau do dich_data_che_chia_doi_vao_end: sbi chan_dk,ck_led ;kich ck cbi chan_dk,ck_led subi cursel_low,low(-1) sbci cursel_high,high(-1) cpi cursel_low,low(chieu_dai_bang) brne lap_kieu_che_chia_doi_vao_end ;chieu_dai_bang cpi cursel_high,high(chieu_dai_bang) brne lap_kieu_che_chia_doi_vao_end ret ;***************************************************************************************** ;***************************************************************************************** ;***************************************************************************************** ;========================================================================================= ;CHUONG TRINH CON KIEU CHE CHIA DOI RA ================================================== ;========================================================================================= kieu_che_chia_doi_ra_begin: mov r16,m_cursel_low cpi r16,low(nua_chieu_dai_bang) ldi r16,high(nua_chieu_dai_bang) cpc m_cursel_high,r16 brlo not_bang__ccdrb rcall bat_led ret not_bang__ccdrb: ldi cursel_low,0 ldi cursel_high,0 ldi cursel_do_high,0 ldi cursel_do_low,0 ldi cursel_xanh_high,0 ldi cursel_xanh_low,0 ldi cursel_a,low(nua_chieu_dai_bang) ldi cursel_b,high(nua_chieu_dai_bang) sub cursel_a,m_cursel_low sbc cursel_b,m_cursel_high ldi YL,low(nua_chieu_dai_bang) ldi YH,high(nua_chieu_dai_bang) add YL,m_cursel_low adc YH,m_cursel_high sbi chan_dk,chan_xanh ;mac dinh la tat mau xanh sbi chan_dk,chan_do ;mac dinh la tat mau do lap_kieu_che_chia_doi_ra_begin: mov vi_tri_hang,m_vi_tri_hang rcall lay_bit_mau_xanh mov vi_tri_hang,m_vi_tri_hang rcall lay_bit_mau_do cp cursel_low,cursel_a cpc cursel_high,cursel_b brcs not_kieu_che_chia_doi_ra_begin ;neu nho hon khong xuat data mau (dang dich ra) cp cursel_low,YL cpc cursel_high,YH brcs dich_data_che_chia_doi_ra_begin ;----------------------------- not_kieu_che_chia_doi_ra_begin: sbi chan_dk,chan_xanh ;mac dinh la tat mau xanh sbi chan_dk,chan_do ;mac dinh la tat mau do dich_data_che_chia_doi_ra_begin: sbi chan_dk,ck_led ;kich ck cbi chan_dk,ck_led subi cursel_low,low(-1) sbci cursel_high,high(-1) cpi cursel_low,low(chieu_dai_bang) brne lap_kieu_che_chia_doi_ra_begin ;chieu_dai_bang cpi cursel_high,high(chieu_dai_bang) brne lap_kieu_che_chia_doi_ra_begin ret ;================================================ kieu_che_chia_doi_ra_end: mov r16,m_cursel_low cpi r16,low(nua_chieu_dai_bang) ldi r16,high(nua_chieu_dai_bang) cpc m_cursel_high,r16 brlo not_bang__ccdre rcall tat_led ret not_bang__ccdre: ldi cursel_low,0 ldi cursel_high,0 ldi cursel_do_high,0 ldi cursel_do_low,0 ldi cursel_xanh_high,0 ldi cursel_xanh_low,0 ldi cursel_a,low(nua_chieu_dai_bang) ldi cursel_b,high(nua_chieu_dai_bang) sub cursel_a,m_cursel_low sbc cursel_b,m_cursel_high ldi YL,low(nua_chieu_dai_bang) ldi YH,high(nua_chieu_dai_bang) add YL,m_cursel_low adc YH,m_cursel_high sbi chan_dk,chan_xanh ;mac dinh la tat mau xanh sbi chan_dk,chan_do ;mac dinh la tat mau do lap_kieu_che_chia_doi_ra_end: mov vi_tri_hang,m_vi_tri_hang rcall lay_bit_mau_xanh mov vi_tri_hang,m_vi_tri_hang rcall lay_bit_mau_do cp cursel_low,cursel_a cpc cursel_high,cursel_b brcs not_kieu_che_chia_doi_ra_end ;neu nho hon khong xuat data mau (dang dich ra) cp cursel_low,YL cpc cursel_high,YH brsh not_kieu_che_chia_doi_ra_end sbi chan_dk,chan_xanh ;mac dinh la tat mau xanh sbi chan_dk,chan_do ;mac dinh la tat mau do ;----------------------------- not_kieu_che_chia_doi_ra_end: sbi chan_dk,ck_led ;kich ck cbi chan_dk,ck_led subi cursel_low,low(-1) sbci cursel_high,high(-1) cpi cursel_low,low(chieu_dai_bang) brne lap_kieu_che_chia_doi_ra_end ;chieu_dai_bang cpi cursel_high,high(chieu_dai_bang) brne lap_kieu_che_chia_doi_ra_end ret ;***************************************************************************************** ;***************************************************************************************** ;***************************************************************************************** ;========================================================================================= ;CHUONG TRINH CON KIEU DICH LONG DOC ===================================================== ;========================================================================================= kieu_long_doc_begin: mov r16,m_cursel_low cpi r16,low(chieu_cao_bang) ldi r16,high(chieu_cao_bang) cpc m_cursel_high,r16 brlo not_bang_chieu_cao_bang_kldb rcall bat_led ret not_bang_chieu_cao_bang_kldb: ldi cursel_low,0 ldi cursel_high,0 ldi cursel_xanh_high,0 ldi cursel_xanh_low,0 ldi cursel_do_high,0 ldi cursel_do_low,0 ldi cursel_a,16 sub cursel_a,m_cursel_low add cursel_a,m_vi_tri_hang mov cursel_b,m_vi_tri_hang add cursel_b,m_cursel_low subi cursel_b,16 sbi chan_dk,chan_xanh ;mac dinh la tat mau xanh sbi chan_dk,chan_do ;mac dinh la tat mau do lap_kieu_long_doc_begin: cp m_cursel_low,m_vi_tri_hang brlo not_long_doc_begin_xanh mov vi_tri_hang,cursel_a rcall lay_bit_mau_xanh not_long_doc_begin_xanh: ldi r16,16 sub r16,m_cursel_low cp r16,m_vi_tri_hang brsh not_long_doc_begin_do mov vi_tri_hang,cursel_b rcall lay_bit_mau_do not_long_doc_begin_do: sbi chan_dk,ck_led ;kich ck cbi chan_dk,ck_led subi cursel_low,low(-1) sbci cursel_high,high(-1) cpi cursel_low,low(chieu_dai_bang) brne lap_kieu_long_doc_begin ;chieu_dai_bang cpi cursel_high,high(chieu_dai_bang) brne lap_kieu_long_doc_begin ret ;----------------------------------------- kieu_long_doc_end: mov r16,m_cursel_low cpi r16,low(chieu_cao_bang) ldi r16,high(chieu_cao_bang) cpc m_cursel_high,r16 brlo not_bang_chieu_cao_bang_klde rcall tat_led ret not_bang_chieu_cao_bang_klde: ldi cursel_low,0 ldi cursel_high,0 ldi cursel_xanh_high,0 ldi cursel_xanh_low,0 ldi cursel_do_high,0 ldi cursel_do_low,0 mov cursel_a,m_vi_tri_hang sub cursel_a,m_cursel_low mov cursel_b,m_vi_tri_hang add cursel_b,m_cursel_low sbi chan_dk,chan_xanh ;mac dinh la tat mau xanh sbi chan_dk,chan_do ;mac dinh la tat mau do lap_kieu_long_doc_end: cp m_cursel_low,m_vi_tri_hang brsh not_long_doc_end_xanh mov vi_tri_hang,cursel_a rcall lay_bit_mau_xanh not_long_doc_end_xanh: ldi r16,16 sub r16,m_cursel_low cp r16,m_vi_tri_hang brlo not_long_doc_end_do mov vi_tri_hang,cursel_b rcall lay_bit_mau_do not_long_doc_end_do: sbi chan_dk,ck_led ;kich ck cbi chan_dk,ck_led subi cursel_low,low(-1) sbci cursel_high,high(-1) cpi cursel_low,low(chieu_dai_bang) brne lap_kieu_long_doc_end ;chieu_dai_bang cpi cursel_high,high(chieu_dai_bang) brne lap_kieu_long_doc_end ret ;***************************************************************************************** ;***************************************************************************************** ;***************************************************************************************** ;========================================================================================= ;CHUONG TRINH CON KIEU DICH LED TREN XUONG =============================================== ;========================================================================================= kieu_tren_xuong_begin: mov r16,m_cursel_low cpi r16,low(chieu_cao_bang) ldi r16,high(chieu_cao_bang) cpc m_cursel_high,r16 brlo not_bang_chieu_cao_bang_ktxb rcall bat_led ret nho_ktxb: rcall tat_led ret not_bang_chieu_cao_bang_ktxb: cp m_cursel_low,m_vi_tri_hang brlo nho_ktxb ldi vi_tri_hang,16 sub vi_tri_hang,m_cursel_low add vi_tri_hang,m_vi_tri_hang push m_vi_tri_hang mov m_vi_tri_hang,vi_tri_hang rcall bat_led pop m_vi_tri_hang ret ;----------------------------------------- kieu_tren_xuong_end: mov r16,m_cursel_low cpi r16,low(chieu_cao_bang) ldi r16,high(chieu_cao_bang) cpc m_cursel_high,r16 brlo not_bang_chieu_cao_bang_ktxe rcall tat_led ret lon_ktxe: rcall tat_led ret not_bang_chieu_cao_bang_ktxe: cp m_cursel_low,m_vi_tri_hang brsh lon_ktxe mov vi_tri_hang,m_vi_tri_hang sub vi_tri_hang,m_cursel_low push m_vi_tri_hang mov m_vi_tri_hang,vi_tri_hang rcall bat_led pop m_vi_tri_hang ret ;***************************************************************************************** ;***************************************************************************************** ;***************************************************************************************** ;========================================================================================= ;CHUONG TRINH CON KIEU DICH LED DUOI LEN ================================================= ;========================================================================================= kieu_duoi_len_begin: mov r16,m_cursel_low cpi r16,low(chieu_cao_bang) ldi r16,high(chieu_cao_bang) cpc m_cursel_high,r16 brlo not_bang_chieu_cao_bang_kdlb rcall bat_led ret lon_kdlb: rcall tat_led ret not_bang_chieu_cao_bang_kdlb: ldi r16,16 sub r16,m_cursel_low cp r16,m_vi_tri_hang brsh lon_kdlb mov vi_tri_hang,m_vi_tri_hang sub vi_tri_hang,r16 push m_vi_tri_hang mov m_vi_tri_hang,vi_tri_hang rcall bat_led pop m_vi_tri_hang ret ;----------------------------------------- kieu_duoi_len_end: mov r16,m_cursel_low cpi r16,low(chieu_cao_bang) ldi r16,high(chieu_cao_bang) cpc m_cursel_high,r16 brlo not_bang_chieu_cao_bang_kdle rcall tat_led ret nho_kdle: rcall tat_led ret not_bang_chieu_cao_bang_kdle: ldi r16,16 sub r16,m_cursel_low cp r16,m_vi_tri_hang brlo nho_kdle mov vi_tri_hang,m_vi_tri_hang add vi_tri_hang,m_cursel_low push m_vi_tri_hang mov m_vi_tri_hang,vi_tri_hang rcall bat_led pop m_vi_tri_hang ret ;***************************************************************************************** ;***************************************************************************************** ;***************************************************************************************** ;========================================================================================= ;CHUONG TRINH CON KIEU DICH CHE LED TREN XUONFG ========================================== ;========================================================================================= kieu_che_tren_xuong_begin: mov r16,m_cursel_low cpi r16,low(chieu_cao_bang) ldi r16,high(chieu_cao_bang) cpc m_cursel_high,r16 brsh lon_bang_chieu_cao_bang_kctxb cp m_cursel_low,m_vi_tri_hang brlo nho_kctxb lon_bang_chieu_cao_bang_kctxb: rcall bat_led ret nho_kctxb: rcall tat_led ret ;----------------------------------------- kieu_che_tren_xuong_end: mov r16,m_cursel_low cpi r16,low(chieu_cao_bang) ldi r16,high(chieu_cao_bang) cpc m_cursel_high,r16 brsh lon_bang_chieu_cao_bang_kctxe cp m_cursel_low,m_vi_tri_hang brsh lon_bang_chieu_cao_bang_kctxe rcall bat_led ret lon_bang_chieu_cao_bang_kctxe: rcall tat_led ret ;***************************************************************************************** ;***************************************************************************************** ;***************************************************************************************** ;========================================================================================= ;CHUONG TRINH CON KIEU DICH CHE LED DUOI LEN =========================================== ;========================================================================================= kieu_che_duoi_len_begin: mov r16,m_cursel_low cpi r16,low(chieu_cao_bang) ldi r16,high(chieu_cao_bang) cpc m_cursel_high,r16 brsh lon_chieu_cao_bang_kcdlb ldi cursel_a,16 sub cursel_a,m_cursel_low cp cursel_a,m_vi_tri_hang brsh lon_kcdlb lon_chieu_cao_bang_kcdlb: rcall bat_led ret lon_kcdlb: rcall tat_led ret ;----------------------------------------- kieu_che_duoi_len_end: mov r16,m_cursel_low cpi r16,low(chieu_cao_bang) ldi r16,high(chieu_cao_bang) cpc m_cursel_high,r16 brsh lon_bang_chieu_cao_bang_kcdle ldi cursel_a,16 sub cursel_a,m_cursel_low cp cursel_a,m_vi_tri_hang brlo lon_bang_chieu_cao_bang_kcdle rcall bat_led ret lon_bang_chieu_cao_bang_kcdle: rcall tat_led ret ;***************************************************************************************** ;***************************************************************************************** ;***************************************************************************************** ;========================================================================================= ;CHUONG TRINH CON KIEU ROT XUONG ========================================================= ;========================================================================================= kieu_rot_xuong_begin: mov r16,m_cursel_low cpi r16,low(chieu_cao_bang) ldi r16,high(chieu_cao_bang) cpc m_cursel_high,r16 brlo not_bang_chieu_cao_bang_krxb mov r16,m_vi_tri_rot_low cpi r16,low(chieu_cao_bang) brne not_bang_chieu_cao_bang_krxb1 lon_hon_vi_tri_rot_xuong: rcall bat_led ret not_bang_chieu_cao_bang_krxb1: inc m_vi_tri_rot_low mov m_cursel_low,m_vi_tri_rot_low not_bang_chieu_cao_bang_krxb: ldi cursel_a,low(chieu_cao_bang) sub cursel_a,m_vi_tri_rot_low cp cursel_a,m_vi_tri_hang brlo lon_hon_vi_tri_rot_xuong mov cursel_b,m_cursel_low sub cursel_b,m_vi_tri_rot_low cp cursel_b,m_vi_tri_hang brne khac_krxb push m_vi_tri_hang mov m_vi_tri_hang,cursel_a rcall bat_led pop m_vi_tri_hang ret khac_krxb: rcall tat_led ret ;----------------------------------------- kieu_rot_xuong_end: mov r16,m_cursel_low cpi r16,low(chieu_cao_bang) ldi r16,high(chieu_cao_bang) cpc m_cursel_high,r16 brlo not_bang_chieu_cao_bang_krxe mov r16,m_vi_tri_rot_low cpi r16,low(chieu_cao_bang) brne not_bang_chieu_cao_bang_krxe1 khac_krxe: rcall tat_led ret not_bang_chieu_cao_bang_krxe1: inc m_vi_tri_rot_low ldi r16,low(chieu_cao_bang) mov m_cursel_low,r16 sub m_cursel_low,m_vi_tri_rot_low not_bang_chieu_cao_bang_krxe: ldi cursel_a,low(chieu_cao_bang) sub cursel_a,m_vi_tri_rot_low cp m_vi_tri_hang,cursel_a brlo nho_hon_vi_tri_rot_xuong cp m_cursel_low,m_vi_tri_hang brne khac_krxe push m_vi_tri_hang mov m_vi_tri_hang,cursel_a rcall bat_led pop m_vi_tri_hang ret nho_hon_vi_tri_rot_xuong: rcall bat_led ret ;***************************************************************************************** ;***************************************************************************************** ;***************************************************************************************** ;========================================================================================= ;CHUONG TRINH CON KIEU ROT XUONG ========================================================= ;========================================================================================= kieu_rot_len_begin: mov r16,m_cursel_low cpi r16,low(chieu_cao_bang) ldi r16,high(chieu_cao_bang) cpc m_cursel_high,r16 brlo not_bang_chieu_cao_bang_krlb mov r16,m_vi_tri_rot_low cpi r16,low(chieu_cao_bang) brne not_bang_chieu_cao_bang_krlb1 lon_hon_vi_tri_rot_len: rcall bat_led ret not_bang_chieu_cao_bang_krlb1: inc m_vi_tri_rot_low mov m_cursel_low,m_vi_tri_rot_low not_bang_chieu_cao_bang_krlb: cp m_vi_tri_hang,m_vi_tri_rot_low brlo lon_hon_vi_tri_rot_len ldi cursel_a,low(chieu_cao_bang) add cursel_a,m_vi_tri_rot_low sub cursel_a,m_cursel_low cp cursel_a,m_vi_tri_hang brne khac_krlb push m_vi_tri_hang mov m_vi_tri_hang,m_vi_tri_rot_low rcall bat_led pop m_vi_tri_hang ret khac_krlb: rcall tat_led ret ;----------------------------------------- kieu_rot_len_end: mov r16,m_cursel_low cpi r16,low(chieu_cao_bang) ldi r16,high(chieu_cao_bang) cpc m_cursel_high,r16 brlo not_bang_chieu_cao_bang_krle mov r16,m_vi_tri_rot_low cpi r16,low(chieu_cao_bang) brne not_bang_chieu_cao_bang_krle1 khac_krle: rcall tat_led ret not_bang_chieu_cao_bang_krle1: inc m_vi_tri_rot_low ldi r16,low(chieu_cao_bang) mov m_cursel_low,r16 sub m_cursel_low,m_vi_tri_rot_low not_bang_chieu_cao_bang_krle: cp m_vi_tri_rot_low,m_vi_tri_hang brlo nho_hon_vi_tri_rot_len ldi cursel_a,low(chieu_cao_bang) sub cursel_a,m_cursel_low cp cursel_a,m_vi_tri_hang brne khac_krle push m_vi_tri_hang mov m_vi_tri_hang,m_vi_tri_rot_low rcall bat_led pop m_vi_tri_hang ret nho_hon_vi_tri_rot_len: rcall bat_led ret ;***************************************************************************************** ;***************************************************************************************** ;***************************************************************************************** ;========================================================================================= ;CHUONG TRINH CON KIEU CHOP TAT LED======================================================= ;========================================================================================= kieu_chop_tat: sbrc m_cursel_low,4 ;cot dang tang rjmp tat_led bat_led: ldi cursel_low,0 ldi cursel_high,0 ldi cursel_xanh_high,0 ldi cursel_xanh_low,0 ldi cursel_do_high,0 ldi cursel_do_low,0 lap_bat_led: mov vi_tri_hang,m_vi_tri_hang rcall lay_bit_mau_xanh mov vi_tri_hang,m_vi_tri_hang rcall lay_bit_mau_do sbi chan_dk,ck_led ;kich ck cbi chan_dk,ck_led subi cursel_low,low(-1) sbci cursel_high,high(-1) cpi cursel_low,low(chieu_dai_bang) brne lap_bat_led cpi cursel_high,high(chieu_dai_bang) brne lap_bat_led ret ;========================== tat_led: ldi cursel_low,0 ldi cursel_high,0 sbi chan_dk,chan_xanh ;mac dinh la tat mau xanh sbi chan_dk,chan_do ;mac dinh la tat mau do lap_tat_led: sbi chan_dk,ck_led ;kich ck cbi chan_dk,ck_led subi cursel_low,low(-1) sbci cursel_high,high(-1) cpi cursel_low,low(chieu_dai_bang) brne lap_tat_led cpi cursel_high,high(chieu_dai_bang) brne lap_tat_led ret ;***************************************************************************************** ;***************************************************************************************** ;***************************************************************************************** ;========================================================================================= ;CHUONG TRINH CON LAY BIT MAU XANH ================================================== ;========================================================================================= lay_bit_mau_xanh: ldi XH,vung_xanh_low ldi XL,0 cpi vi_tri_hang,8 ;r18 vi tri hang brlo bang_thap_xanh subi vi_tri_hang,8 ldi XH,vung_xanh_high bang_thap_xanh: add XL,cursel_xanh_low ;diem dau vung can hien thi low adc XH,cursel_xanh_high ;diem dau vung can hien thi hight ld r16,X subi cursel_xanh_low,low(-1) sbci cursel_xanh_high,high(-1) sbi chan_dk,chan_xanh ;mac dinh la tat mau xanh cpi vi_tri_hang,4 brsh hang_xanh_lon_hon_bang_4 cpi vi_tri_hang,0 brne not_hang_xanh_0 sbrs vi_tri_hang,0 ;neu bit 0 = 1 thi nhay lenh ret sbrs r16,0 cbi chan_dk,chan_xanh ret ;------------------------- not_hang_xanh_0: cpi vi_tri_hang,1 brne not_xanh_hang_1 sbrs r16,1 cbi chan_dk,chan_xanh ret ;------------------------- not_xanh_hang_1: cpi vi_tri_hang,2 brne not_xanh_hang_2 sbrs r16,2 cbi chan_dk,chan_xanh ret ;------------------------- not_xanh_hang_2: sbrs r16,3 cbi chan_dk,chan_xanh ret ;------------------------- hang_xanh_lon_hon_bang_4: cpi vi_tri_hang,4 brne not_xanh_hang_4 sbrs r16,4 cbi chan_dk,chan_xanh ret ;------------------------- not_xanh_hang_4: cpi vi_tri_hang,5 brne not_xanh_hang_5 sbrs r16,5 cbi chan_dk,chan_xanh ret ;------------------------- not_xanh_hang_5: cpi vi_tri_hang,6 brne not_xanh_hang_6 sbrs r16,6 cbi chan_dk,chan_xanh ret ;------------------------- not_xanh_hang_6: sbrs r16,7 cbi chan_dk,chan_xanh ret ;***************************************************************************************** ;***************************************************************************************** ;***************************************************************************************** ;========================================================================================= ;CHUONG TRINH CON LAY BIT MAU XANH ================================================== ;========================================================================================= lay_bit_mau_do: ldi XH,vung_do_low ldi XL,0 cpi vi_tri_hang,8 ;r18 vi tri hang brlo bang_thap_do subi vi_tri_hang,8 ldi XH,vung_do_high bang_thap_do: add XL,cursel_do_low ;diem dau vung can hien thi low adc XH,cursel_do_high ;diem dau vung can hien thi hight ld r16,X subi cursel_do_low,low(-1) sbci cursel_do_high,high(-1) sbi chan_dk,chan_do ;mac dinh la tat mau do cpi vi_tri_hang,4 brsh hang_do_lon_hon_bang_4 cpi vi_tri_hang,0 brne not_do_hang_0 sbrs r16,0 ;neu bit 0 = 1 thi nhay lenh ret cbi chan_dk,chan_do ret ;------------------------- not_do_hang_0: cpi vi_tri_hang,1 brne not_do_hang_1 sbrs r16,1 cbi chan_dk,chan_do ret ;------------------------- not_do_hang_1: cpi vi_tri_hang,2 brne not_do_hang_2 sbrs r16,2 cbi chan_dk,chan_do ret ;------------------------- not_do_hang_2: sbrs r16,3 cbi chan_dk,chan_do ret ;------------------------- hang_do_lon_hon_bang_4: cpi vi_tri_hang,4 brne not_do_hang_4 sbrs r16,4 cbi chan_dk,chan_do ret ;------------------------- not_do_hang_4: cpi vi_tri_hang,5 brne not_do_hang_5 sbrs r16,5 cbi chan_dk,chan_do ret ;------------------------- not_do_hang_5: cpi vi_tri_hang,6 brne not_do_hang_6 sbrs r16,6 cbi chan_dk,chan_do ret ;------------------------- not_do_hang_6: sbrs r16,7 cbi chan_dk,chan_do ret ;***************************************************************************************** ;***************************************************************************************** ;***************************************************************************************** Chu_nhat: .db "Ch", u3, " nh", a65, "t " Thu: .db "Th", u71, ' ' hai: .db "hai " ba: .db "ba " tu: .db 't', u7, " " nam: .db 'n', a8, "m " sau: .db 's', a1, "u " bay: .db 'b', a3, "y " ;***************************************************************************************** ;***************************************************************************************** ;***************************************************************************************** receiving_data: .db 0x00,0x54 ;R .db 0x0f,0xc0 .db 0x0f,0xc0 .db 0xef,0xf9 .db 0xef,0xf5 .db 0x0f,0xcc .db 0x1f,0xde .db 0xff,0xff ;e .db 0xff,0xe0 .db 0x7f,0xc0 .db 0x7f,0xdb .db 0x7f,0xdb .db 0x7f,0xc8 .db 0xff,0xe8 .db 0xff,0xff ;c .db 0xff,0xe0 .db 0x7f,0xc0 .db 0x7f,0xdf .db 0x7f,0xdf .db 0x7f,0xce .db 0xff,0xee .db 0xff,0xff ;e .db 0xff,0xe0 .db 0x7f,0xc0 .db 0x7f,0xdb .db 0x7f,0xdb .db 0x7f,0xc8 .db 0xff,0xe8 .db 0xff,0xff ;i .db 0x5f,0xc0 .db 0x5f,0xc0 .db 0xff,0xff ;v .db 0x7f,0xff .db 0x7f,0xf8 .db 0xff,0xe1 .db 0xff,0xcf .db 0xff,0xe1 .db 0x7f,0xf8 .db 0x7f,0xff .db 0xff,0xff ;i .db 0x5f,0xc0 .db 0x5f,0xc0 .db 0xff,0xff ;n .db 0x7f,0xc0 .db 0x7f,0xc0 .db 0x7f,0xff .db 0x7f,0xc0 .db 0xff,0xc0 .db 0xff,0xff ;g .db 0xff,0xb0 .db 0x7f,0x20 .db 0x7f,0x6f .db 0x7f,0x6f .db 0x7f,0x0 .db 0x7f,0x80 .db 0xff,0xff ; ; .db 0xff,0xff .db 0xff,0xff .db 0xff,0xff .db 0xff,0xff ;d .db 0xff,0xe0 .db 0x7f,0xc0 .db 0x7f,0xdf .db 0x0f,0xc0 .db 0x0f,0xc0 .db 0xff,0xff ;a .db 0xff,0xe6 .db 0x7f,0xc2 .db 0x7f,0xdb .db 0x7f,0xe9 .db 0x7f,0xc0 .db 0xff,0xc0 .db 0xff,0xff ;t .db 0x7f,0xff .db 0x1f,0xe0 .db 0x0f,0xc0 .db 0x7f,0xcf .db 0xff,0xef .db 0xff,0xff ;a .db 0xff,0xe6 .db 0x7f,0xc2 .db 0x7f,0xdb .db 0x7f,0xe9 .db 0x7f,0xc0 .db 0xff,0xc0 .db 0xff,0xff ;***************************************************************************************** ;***************************************************************************************** ;***************************************************************************************** No_data: .db 0x00,0x2b ;N .db 0x0f,0xc0 .db 0x0f,0xc0 .db 0x3f,0xfe .db 0xff,0xe1 .db 0x0f,0xc0 .db 0x0f,0xc0 .db 0xff,0xff ;o .db 0xff,0xe0 .db 0x7f,0xc0 .db 0x7f,0xdf .db 0x7f,0xdf .db 0x7f,0xc0 .db 0xff,0xe0 .db 0xff,0xff ; ; .db 0xff,0xff .db 0xff,0xff .db 0xff,0xff .db 0xff,0xff ;d .db 0xff,0xe0 .db 0x7f,0xc0 .db 0x7f,0xdf .db 0x0f,0xc0 .db 0x0f,0xc0 .db 0xff,0xff ;a .db 0xff,0xe6 .db 0x7f,0xc2 .db 0x7f,0xdb .db 0x7f,0xe9 .db 0x7f,0xc0 .db 0xff,0xc0 .db 0xff,0xff ;t .db 0x7f,0xff .db 0x1f,0xe0 .db 0x0f,0xc0 .db 0x7f,0xcf .db 0xff,0xef .db 0xff,0xff ;a .db 0xff,0xe6 .db 0x7f,0xc2 .db 0x7f,0xdb .db 0x7f,0xe9 .db 0x7f,0xc0 .db 0xff,0xc0 .db 0xff,0xff
Leave a comment:
-
tiếp theo
Code:;========================================================================================= ;CHUONG TRINH CON DICH DATA LED ========================================================== ;========================================================================================= dich_data_led: mov r16,m_kieu_chay cpi r16,Kieu_SizeMax brne not_kieu_chay_chu ldi ZH,high(kieu_chay_chu) ;vi tri cao cua ky tu ldi ZL,low(kieu_chay_chu) ;kieu chay binh thuong icall ret ;-------------------------------------- not_kieu_chay_chu: cpi r16,Kieu_CANHBAO ;hien thi trang thai canh bao brne not_kieu_wanning ldi ZH,high(bat_led) ;vi tri cao cua ky tu ldi ZL,low(bat_led) icall ret ;-------------------------------------- not_kieu_wanning: cpi r16,0 brne not_kieu_chay_begin mov r16,m_mode_chay_begin cpi r16,chay_long_ngang brne not_mode_chay_long_ngang_0 ldi ZH,high(kieu_long_ngang_begin) ;vi tri cao cua ky tu ldi ZL,low(kieu_long_ngang_begin) icall ret ;--------------------------------------- not_kieu_chay_begin: cpi r16,2 brne not_kieu_chay_end rjmp kieu_chay_end not_kieu_chay_end: mov r16,m_mode_chay_center cpi r16,chay_chop_tat brne not_chay_chop_tat ldi ZH,high(kieu_chop_tat) ;vi tri cao cua ky tu ldi ZL,low(kieu_chop_tat) icall ret not_chay_chop_tat: ldi ZH,high(bat_led) ;vi tri cao cua ky tu ldi ZL,low(bat_led) icall ret ;--------------------------------------- not_mode_chay_long_ngang_0: cpi r16,chay_trai_qua brne not_mode_chay_trai_qua_0 ldi ZH,high(kieu_trai_qua_begin) ;vi tri cao cua ky tu ldi ZL,low(kieu_trai_qua_begin) icall ret ;--------------------------------------- not_mode_chay_trai_qua_0: cpi r16,chay_phai_qua brne not_mode_chay_phai_qua_0 ldi ZH,high(kieu_phai_qua_begin) ;vi tri cao cua ky tu ldi ZL,low(kieu_phai_qua_begin) icall ret ;--------------------------------------- not_mode_chay_phai_qua_0: cpi r16,chay_che_trai_qua brne not_mode_chay_che_trai_qua_0 ldi ZH,high(kieu_che_trai_qua_begin) ;vi tri cao cua ky tu ldi ZL,low(kieu_che_trai_qua_begin) icall ret ;--------------------------------------- not_mode_chay_che_trai_qua_0: cpi r16,chay_che_phai_qua brne not_mode_chay_che_phai_qua_0 ldi ZH,high(kieu_che_phai_qua_begin) ;vi tri cao cua ky tu ldi ZL,low(kieu_che_phai_qua_begin) icall ret ;--------------------------------------- not_mode_chay_che_phai_qua_0: cpi r16,chay_long_doc brne not_mode_chay_long_doc_0 ldi ZH,high(kieu_long_doc_begin) ;vi tri cao cua ky tu ldi ZL,low(kieu_long_doc_begin) icall ret ;--------------------------------------- not_mode_chay_long_doc_0: cpi r16,chay_tren_xuong brne not_mode_chay_tren_xuong_0 ldi ZH,high(kieu_tren_xuong_begin) ;vi tri cao cua ky tu ldi ZL,low(kieu_tren_xuong_begin) icall ret ;--------------------------------------- not_mode_chay_tren_xuong_0: cpi r16,chay_duoi_len brne not_mode_chay_duoi_len_0 ldi ZH,high(kieu_duoi_len_begin) ;vi tri cao cua ky tu ldi ZL,low(kieu_duoi_len_begin) icall ret ;--------------------------------------- not_mode_chay_duoi_len_0: cpi r16,chay_che_tren_xuong brne not_mode_chay_che_tren_xuong_0 ldi ZH,high(kieu_che_tren_xuong_begin) ;vi tri cao cua ky tu ldi ZL,low(kieu_che_tren_xuong_begin) icall ret ;--------------------------------------- not_mode_chay_che_tren_xuong_0: cpi r16,chay_che_duoi_len brne not_mode_chay_che_duoi_len_0 ldi ZH,high(kieu_che_duoi_len_begin) ;vi tri cao cua ky tu ldi ZL,low(kieu_che_duoi_len_begin) icall ret ;--------------------------------------- not_mode_chay_che_duoi_len_0: cpi r16,chay_chia_doi_vao brne not_mode_chay_chia_doi_vao_0 ldi ZH,high(kieu_chia_doi_vao_begin) ;vi tri cao cua ky tu ldi ZL,low(kieu_chia_doi_vao_begin) icall ret ;--------------------------------------- not_mode_chay_chia_doi_vao_0: cpi r16,chay_chia_doi_ra brne not_mode_chay_chia_doi_ra_0 ldi ZH,high(kieu_chia_doi_ra_begin) ;vi tri cao cua ky tu ldi ZL,low(kieu_chia_doi_ra_begin) icall ret ;--------------------------------------- not_mode_chay_chia_doi_ra_0: cpi r16,chay_che_chia_doi_vao brne not_mode_chay_che_chia_doi_vao_0 ldi ZH,high(kieu_che_chia_doi_vao_begin) ;vi tri cao cua ky tu ldi ZL,low(kieu_che_chia_doi_vao_begin) icall ret ;--------------------------------------- not_mode_chay_che_chia_doi_vao_0: cpi r16,chay_che_chia_doi_ra brne not_mode_chay_che_chia_doi_ra_0 ldi ZH,high(kieu_che_chia_doi_ra_begin) ;vi tri cao cua ky tu ldi ZL,low(kieu_che_chia_doi_ra_begin) icall ret ;--------------------------------------- not_mode_chay_che_chia_doi_ra_0: cpi r16,chay_rot_xuong brne not_mode_chay_rot_xuong_0 ldi ZH,high(kieu_rot_xuong_begin) ;vi tri cao cua ky tu ldi ZL,low(kieu_rot_xuong_begin) icall ret ;--------------------------------------- not_mode_chay_rot_xuong_0: cpi r16,chay_rot_len brne not_mode_chay_rot_len_0 ldi ZH,high(kieu_rot_len_begin) ;vi tri cao cua ky tu ldi ZL,low(kieu_rot_len_begin) icall ret ;--------------------------------------- not_mode_chay_rot_len_0: cpi r16,chay_rot_phai_qua brne not_mode_chay_rot_phai_qua_0 ldi ZH,high(kieu_rot_phai_qua_begin) ;vi tri cao cua ky tu ldi ZL,low(kieu_rot_phai_qua_begin) icall ret ;--------------------------------------- not_mode_chay_rot_phai_qua_0: cpi r16,chay_dan_phai_vao brne not_mode_chay_dan_phai_vao_0 ldi ZH,high(kieu_dan_phai_vao_begin) ;vi tri cao cua ky tu ldi ZL,low(kieu_dan_phai_vao_begin) icall ret ;--------------------------------------- not_mode_chay_dan_phai_vao_0: ldi ZH,high(bat_led) ;vi tri cao cua ky tu ldi ZL,low(bat_led) icall ret ;===================================================kieu_dan_phai_vao_begin kieu_chay_end: mov r16,m_mode_chay_end cpi r16,chay_long_ngang brne not_mode_chay_long_ngang_2 ldi ZH,high(kieu_long_ngang_end) ;vi tri cao cua ky tu ldi ZL,low(kieu_long_ngang_end) icall ret ;--------------------------------------- not_mode_chay_long_ngang_2: cpi r16,chay_trai_qua brne not_mode_chay_trai_qua_2 ldi ZH,high(kieu_trai_qua_end) ;vi tri cao cua ky tu ldi ZL,low(kieu_trai_qua_end) icall ret ;--------------------------------------- not_mode_chay_trai_qua_2: cpi r16,chay_phai_qua brne not_mode_chay_phai_qua_2 ldi ZH,high(kieu_phai_qua_end) ;vi tri cao cua ky tu ldi ZL,low(kieu_phai_qua_end) icall ret ;--------------------------------------- not_mode_chay_phai_qua_2: cpi r16,chay_che_trai_qua brne not_mode_chay_che_trai_qua_2 ldi ZH,high(kieu_che_trai_qua_end) ;vi tri cao cua ky tu ldi ZL,low(kieu_che_trai_qua_end) icall ret ;--------------------------------------- not_mode_chay_che_trai_qua_2: cpi r16,chay_che_phai_qua brne not_mode_chay_che_phai_qua_2 ldi ZH,high(kieu_che_phai_qua_end) ;vi tri cao cua ky tu ldi ZL,low(kieu_che_phai_qua_end) icall ret ;--------------------------------------- not_mode_chay_che_phai_qua_2: cpi r16,chay_long_doc brne not_mode_chay_long_doc_2 ldi ZH,high(kieu_long_doc_end) ;vi tri cao cua ky tu ldi ZL,low(kieu_long_doc_end) icall ret ;--------------------------------------- not_mode_chay_long_doc_2: cpi r16,chay_tren_xuong brne not_mode_chay_tren_xuong_2 ldi ZH,high(kieu_tren_xuong_end) ;vi tri cao cua ky tu ldi ZL,low(kieu_tren_xuong_end) icall ret ;--------------------------------------- not_mode_chay_tren_xuong_2: cpi r16,chay_duoi_len brne not_mode_chay_duoi_len_2 ldi ZH,high(kieu_duoi_len_end) ;vi tri cao cua ky tu ldi ZL,low(kieu_duoi_len_end) icall ret ;--------------------------------------- not_mode_chay_duoi_len_2: cpi r16,chay_che_tren_xuong brne not_mode_chay_che_tren_xuong_2 ldi ZH,high(kieu_che_tren_xuong_end) ;vi tri cao cua ky tu ldi ZL,low(kieu_che_tren_xuong_end) icall ret ;--------------------------------------- not_mode_chay_che_tren_xuong_2: cpi r16,chay_che_duoi_len brne not_mode_chay_che_duoi_len_2 ldi ZH,high(kieu_che_duoi_len_end) ;vi tri cao cua ky tu ldi ZL,low(kieu_che_duoi_len_end) icall ret ;--------------------------------------- not_mode_chay_che_duoi_len_2: cpi r16,chay_chia_doi_vao brne not_mode_chay_chia_doi_vao_2 ldi ZH,high(kieu_chia_doi_vao_end) ;vi tri cao cua ky tu ldi ZL,low(kieu_chia_doi_vao_end) icall ret ;--------------------------------------- not_mode_chay_chia_doi_vao_2: cpi r16,chay_chia_doi_ra brne not_mode_chay_chia_doi_ra_2 ldi ZH,high(kieu_chia_doi_ra_end) ;vi tri cao cua ky tu ldi ZL,low(kieu_chia_doi_ra_end) icall ret ;--------------------------------------- not_mode_chay_chia_doi_ra_2: cpi r16,chay_che_chia_doi_vao brne not_mode_chay_che_chia_doi_vao_2 ldi ZH,high(kieu_che_chia_doi_vao_end) ;vi tri cao cua ky tu ldi ZL,low(kieu_che_chia_doi_vao_end) icall ret ;--------------------------------------- not_mode_chay_che_chia_doi_vao_2: cpi r16,chay_che_chia_doi_ra brne not_mode_chay_che_chia_doi_ra_2 ldi ZH,high(kieu_che_chia_doi_ra_end) ;vi tri cao cua ky tu ldi ZL,low(kieu_che_chia_doi_ra_end) icall ret ;--------------------------------------- not_mode_chay_che_chia_doi_ra_2: cpi r16,chay_rot_xuong brne not_mode_chay_rot_xuong_2 ldi ZH,high(kieu_rot_xuong_end) ;vi tri cao cua ky tu ldi ZL,low(kieu_rot_xuong_end) icall ret ;--------------------------------------- not_mode_chay_rot_xuong_2: cpi r16,chay_rot_len brne not_mode_chay_rot_len_2 ldi ZH,high(kieu_rot_len_end) ;vi tri cao cua ky tu ldi ZL,low(kieu_rot_len_end) icall ret ;--------------------------------------- not_mode_chay_rot_len_2: cpi r16,chay_dan_phai_vao brne not_mode_chay_dan_phai_vao_2 ldi ZH,high(kieu_dan_phai_vao_end) ;vi tri cao cua ky tu ldi ZL,low(kieu_dan_phai_vao_end) icall ret ;--------------------------------------- not_mode_chay_dan_phai_vao_2: ldi ZH,high(bat_led) ;vi tri cao cua ky tu ldi ZL,low(bat_led) icall ret ;***************************************************************************************** ;***************************************************************************************** ;***************************************************************************************** ;========================================================================================= ;CHUONG TRINH CON READ EEROM ============================================================== ;========================================================================================= read_byte: sbic EECR,EEWE rjmp read_byte out EEARH, XH out EEARL, XL cli sbi EECR,EERE ;lenh doc EEPROM adiw XL,1 in r16,EEDR sei ret ;***************************************************************************************** ;***************************************************************************************** ;***************************************************************************************** ;========================================================================================= ;CHUONG TRINH CON WRITE EEROM ============================================================== ;========================================================================================= write_byte: sbic EECR,EEWE rjmp write_byte out EEARH, XH out EEARL, XL out EEDR,r16 cli sbi EECR,EEMWE sbi EECR,EEWE adiw XL,1 sei ret ;***************************************************************************************** ;***************************************************************************************** ;***************************************************************************************** ;========================================================================================= ;CHUONG TRINH CON START 24 ============================================================== ;========================================================================================= start: rcall delay_1us sbi AT24,data_24 rcall delay_1us sbi AT24,clock_24 rcall delay_1us cbi AT24,data_24 rcall delay_1us cbi AT24,clock_24 rcall delay_1us ret ;========================================================================================= ;CHUONG TRINH CON STOP 24 ============================================================== ;========================================================================================= stop: rcall delay_1us cbi AT24,data_24 rcall delay_1us sbi AT24,clock_24 rcall delay_1us sbi AT24,data_24 rcall delay_1us ret ;========================================================================================= ;CHUONG TRINH CON WRITE 24 ============================================================== ;========================================================================================= ghi_byte: ldi r17,8 ghi_24: rol r16 sbi AT24,data_24 brcs tiep_ghi_24 cbi AT24,data_24 tiep_ghi_24: rcall delay_1us sbi AT24,clock_24 rcall delay_1us cbi AT24,clock_24 dec r17 cpi r17,0 brne ghi_24 cbi AT24_D,data_24 sbi AT24,data_24 rcall delay_1us sbi AT24,clock_24 rcall delay_1us cbi AT24,clock_24 rcall delay_1us cbi AT24,data_24 sbi AT24_D,data_24 rcall delay_1us ret ;========================================================================================= ;CHUONG TRINH CON READ 24 ============================================================== ;========================================================================================= doc_byte: cbi AT24_D,data_24 sbi AT24,data_24 ldi r17,8 doc_24: sbi AT24,clock_24 rcall delay_1us sec sbis AT24_P,data_24 clc rol r16 cbi AT24,clock_24 rcall delay_1us dec r17 cpi r17,0 brne doc_24 cbi AT24,data_24 sbi AT24_D,data_24 rcall delay_1us ret ;========================================================================================= ;CHUONG TRINH CON ACK 24 ============================================================== ;========================================================================================= ACK: rcall delay_1us cbi AT24,data_24 rcall delay_1us sbi AT24,clock_24 rcall delay_1us cbi AT24,clock_24 rcall delay_1us ret ;========================================================================================= ;CHUONG TRINH CON NAK 24 ============================================================== ;========================================================================================= NAK: rcall delay_1us sbi AT24,data_24 rcall delay_1us sbi AT24,clock_24 rcall delay_1us cbi AT24,clock_24 rcall delay_1us ret ;========================================================================================= ;CHUONG TRINH CON RESET 24 ============================================================== ;========================================================================================= reset_ROM: ldi r17,9 sbi AT24,data_24 rcall delay_1us lap_reset_ROM: sbi AT24,clock_24 rcall delay_1us cbi AT24,clock_24 rcall delay_1us dec r17 cpi r17,0 brne lap_reset_ROM ret ;========================================================================================= ;CHUONG TRINH CON DELAY ================================================================== ;========================================================================================= delay_1us: ldi r23,9 lap_delay_1us: dec r23 cpi r23,0 brne lap_delay_1us ret ;----------------------------------- delay_5ms: ldi r16,0 ldi r17,0 lap_delay_5ms: inc r16 cpi r16,0 brne lap_delay_5ms inc r17 cpi r17,0 brne lap_delay_5ms ret ;========================================================================================= ;CHUONG TRINH CON SEND ADDRESS 24 ============================================================== ;========================================================================================= send_address: rcall reset_ROM rcall delay_5ms rcall delay_5ms rcall start ldi r16,0xa0 rcall ghi_byte mov r16,cursel_high rcall ghi_byte mov r16,cursel_low ;dia chi vung nho rcall ghi_byte ret ;***************************************************************************************** ;***************************************************************************************** ;***************************************************************************************** .org 0x0800 ;========================================================================================= ;CHUONG TRINH CON KIEU DICH LONG LED NGANG =============================================== ;========================================================================================= kieu_long_ngang_begin: ldi cursel_low,0 ldi cursel_high,0 ldi cursel_xanh_high,0 ldi cursel_xanh_low,0 ldi cursel_do_high,high(chieu_dai_bang) ldi cursel_do_low,low(chieu_dai_bang) sub cursel_do_low,m_cursel_low sbc cursel_do_high,m_cursel_high mov cursel_a,cursel_do_low mov cursel_b,cursel_do_high sbi chan_dk,chan_xanh ;mac dinh la tat mau xanh sbi chan_dk,chan_do ;mac dinh la tat mau do lap_kieu_long_ngang_begin: cp cursel_low,cursel_a cpc cursel_high,cursel_b brcs notx_kieu_long_ngang_begin ;neu nho hon khong xuat data mau (dang dich vao) mov vi_tri_hang,m_vi_tri_hang rcall lay_bit_mau_xanh ;----------------------------- notx_kieu_long_ngang_begin: cpi cursel_do_low,low(chieu_dai_bang) ldi r16,high(chieu_dai_bang) cpc cursel_do_high,r16 brsh notd_kieu_long_ngang_begin ;neu lon hon khong xuat data mau (vuot vung data) mov vi_tri_hang,m_vi_tri_hang rcall lay_bit_mau_do ;----------------------------- notd_kieu_long_ngang_begin: sbi chan_dk,ck_led ;kich ck cbi chan_dk,ck_led subi cursel_low,low(-1) sbci cursel_high,high(-1) cpi cursel_low,low(chieu_dai_bang) brne lap_kieu_long_ngang_begin ;chieu_dai_bang cpi cursel_high,high(chieu_dai_bang) brne lap_kieu_long_ngang_begin ret ;=============================================== kieu_long_ngang_end: ldi cursel_low,0 ldi cursel_high,0 mov cursel_xanh_high,m_cursel_high mov cursel_xanh_low,m_cursel_low ldi cursel_do_high,0 ldi cursel_do_low,0 mov cursel_a,m_cursel_low mov cursel_b,m_cursel_high sbi chan_dk,chan_xanh ;mac dinh la tat mau xanh sbi chan_dk,chan_do ;mac dinh la tat mau do lap_kieu_long_ngang_end: cpi cursel_xanh_low,low(chieu_dai_bang) ldi r16,high(chieu_dai_bang) cpc cursel_xanh_high,r16 brsh notx_kieu_long_ngang_end ;neu lon hon khong xuat data mau (vuot vung data) mov vi_tri_hang,m_vi_tri_hang rcall lay_bit_mau_xanh ;----------------------------- notx_kieu_long_ngang_end: cp cursel_low,m_cursel_low cpc cursel_high,m_cursel_high brcs notd_kieu_long_ngang_end ;neu nho hon khong xuat data mau (dang dich vao) mov vi_tri_hang,m_vi_tri_hang rcall lay_bit_mau_do ;----------------------------- notd_kieu_long_ngang_end: sbi chan_dk,ck_led ;kich ck cbi chan_dk,ck_led subi cursel_low,low(-1) sbci cursel_high,high(-1) cpi cursel_low,low(chieu_dai_bang) brne lap_kieu_long_ngang_end ;chieu_dai_bang cpi cursel_high,high(chieu_dai_bang) brne lap_kieu_long_ngang_end ;chieu_dai_bang ret ;***************************************************************************************** ;***************************************************************************************** ;***************************************************************************************** ;========================================================================================= ;CHUONG TRINH CON KIEU CHAY CHU ========================================================= ;========================================================================================= kieu_chay_chu: ldi r16,low(chieu_dai_bang) ldi r17,high(chieu_dai_bang) cp m_cursel_low,r16 cpc m_cursel_high,r17 brlo kieu_trai_qua_begin ldi cursel_low,0 ldi cursel_high,0 mov cursel_xanh_high,m_cursel_high mov cursel_xanh_low,m_cursel_low subi cursel_xanh_low,low(chieu_dai_bang) sbci cursel_xanh_high,high(chieu_dai_bang) mov cursel_do_high,cursel_xanh_high mov cursel_do_low,cursel_xanh_low sbi chan_dk,chan_xanh ;mac dinh la tat mau xanh sbi chan_dk,chan_do ;mac dinh la tat mau do lap_kieu_chay_chu: cp cursel_xanh_low,m_vi_tri_rot_low cpc cursel_xanh_high,m_vi_tri_rot_high brsh lon_hon_kieu_chay_chu mov vi_tri_hang,m_vi_tri_hang rcall lay_bit_mau_xanh mov vi_tri_hang,m_vi_tri_hang rcall lay_bit_mau_do ;----------------------------- lon_hon_kieu_chay_chu: sbi chan_dk,ck_led ;kich ck cbi chan_dk,ck_led subi cursel_low,low(-1) sbci cursel_high,high(-1) cpi cursel_low,low(chieu_dai_bang) brne lap_kieu_chay_chu ;chieu_dai_bang cpi cursel_high,high(chieu_dai_bang) brne lap_kieu_chay_chu ret ;***************************************************************************************** ;***************************************************************************************** ;***************************************************************************************** ;========================================================================================= ;CHUONG TRINH CON KIEU DICH TRAI QUA ================================================== ;========================================================================================= kieu_trai_qua_begin: ldi cursel_low,0 ldi cursel_high,0 ldi cursel_xanh_high,0 ldi cursel_xanh_low,0 ldi cursel_do_high,0 ldi cursel_do_low,0 ldi cursel_a,low(chieu_dai_bang) ldi cursel_b,high(chieu_dai_bang) sub cursel_a,m_cursel_low sbc cursel_b,m_cursel_high sbi chan_dk,chan_xanh ;mac dinh la tat mau xanh sbi chan_dk,chan_do ;mac dinh la tat mau do lap_kieu_trai_qua_begin: cp cursel_low,cursel_a cpc cursel_high,cursel_b brcs not_kieu_trai_qua_begin ;neu nho hon khong xuat data mau (dang dich vao) mov vi_tri_hang,m_vi_tri_hang rcall lay_bit_mau_xanh mov vi_tri_hang,m_vi_tri_hang rcall lay_bit_mau_do ;----------------------------- not_kieu_trai_qua_begin: sbi chan_dk,ck_led ;kich ck cbi chan_dk,ck_led subi cursel_low,low(-1) sbci cursel_high,high(-1) cpi cursel_low,low(chieu_dai_bang) brne lap_kieu_trai_qua_begin ;chieu_dai_bang cpi cursel_high,high(chieu_dai_bang) brne lap_kieu_trai_qua_begin ret ;================================================ kieu_trai_qua_end: ldi cursel_low,0 ldi cursel_high,0 mov cursel_xanh_high,m_cursel_high mov cursel_xanh_low,m_cursel_low mov cursel_do_high,m_cursel_high mov cursel_do_low,m_cursel_low sbi chan_dk,chan_xanh ;mac dinh la tat mau xanh sbi chan_dk,chan_do ;mac dinh la tat mau do lap_kieu_trai_qua_end: cpi cursel_xanh_low,low(chieu_dai_bang) ldi r16,high(chieu_dai_bang) cpc cursel_xanh_high,r16 brsh not_kieu_trai_qua_end ;neu lon hon khong xuat data mau (vuot vung data) mov vi_tri_hang,m_vi_tri_hang rcall lay_bit_mau_xanh mov vi_tri_hang,m_vi_tri_hang rcall lay_bit_mau_do ;----------------------------- not_kieu_trai_qua_end: sbi chan_dk,ck_led ;kich ck cbi chan_dk,ck_led subi cursel_low,low(-1) sbci cursel_high,high(-1) cpi cursel_low,low(chieu_dai_bang) brne lap_kieu_trai_qua_end ;chieu_dai_bang cpi cursel_high,high(chieu_dai_bang) brne lap_kieu_trai_qua_end ;chieu_dai_bang ret ;***************************************************************************************** ;***************************************************************************************** ;***************************************************************************************** ;========================================================================================= ;CHUONG TRINH CON KIEU DICH PHAI QUA ================================================== ;========================================================================================= kieu_phai_qua_begin: ldi cursel_low,0 ldi cursel_high,0 ldi cursel_xanh_high,high(chieu_dai_bang) ldi cursel_xanh_low,low(chieu_dai_bang) sub cursel_xanh_low,m_cursel_low sbc cursel_xanh_high,m_cursel_high mov cursel_do_low,cursel_xanh_low mov cursel_do_high,cursel_xanh_high sbi chan_dk,chan_xanh ;mac dinh la tat mau xanh sbi chan_dk,chan_do ;mac dinh la tat mau do lap_kieu_phai_qua_begin: cpi cursel_do_low,low(chieu_dai_bang) ldi r16,high(chieu_dai_bang) cpc cursel_do_high,r16 brsh not_kieu_phai_qua_begin ;neu lon hon khong xuat data mau (vuot vung data) mov vi_tri_hang,m_vi_tri_hang rcall lay_bit_mau_xanh mov vi_tri_hang,m_vi_tri_hang rcall lay_bit_mau_do ;----------------------------- not_kieu_phai_qua_begin: sbi chan_dk,ck_led ;kich ck cbi chan_dk,ck_led subi cursel_low,low(-1) sbci cursel_high,high(-1) cpi cursel_low,low(chieu_dai_bang) brne lap_kieu_phai_qua_begin ;chieu_dai_bang cpi cursel_high,high(chieu_dai_bang) brne lap_kieu_phai_qua_begin ret ;================================================ kieu_phai_qua_end: ldi cursel_low,0 ldi cursel_high,0 ldi cursel_xanh_high,0 ldi cursel_xanh_low,0 ldi cursel_do_high,0 ldi cursel_do_low,0 sbi chan_dk,chan_xanh ;mac dinh la tat mau xanh sbi chan_dk,chan_do ;mac dinh la tat mau do lap_kieu_phai_qua_end: cp cursel_low,m_cursel_low cpc cursel_high,m_cursel_high brcs not_kieu_phai_qua_end ;neu nho hon khong xuat data mau (dang dich vao) mov vi_tri_hang,m_vi_tri_hang rcall lay_bit_mau_xanh mov vi_tri_hang,m_vi_tri_hang rcall lay_bit_mau_do ;----------------------------- not_kieu_phai_qua_end: sbi chan_dk,ck_led ;kich ck cbi chan_dk,ck_led subi cursel_low,low(-1) sbci cursel_high,high(-1) cpi cursel_low,low(chieu_dai_bang) brne lap_kieu_phai_qua_end ;chieu_dai_bang cpi cursel_high,high(chieu_dai_bang) brne lap_kieu_phai_qua_end ;chieu_dai_bang ret ;***************************************************************************************** ;***************************************************************************************** ;***************************************************************************************** ;========================================================================================= ;CHUONG TRINH CON KIEU CHE TRAI QUA ================================================== ;========================================================================================= kieu_che_trai_qua_begin: ldi cursel_low,0 ldi cursel_high,0 ldi cursel_xanh_high,0 ldi cursel_xanh_low,0 ldi cursel_do_high,0 ldi cursel_do_low,0 sbi chan_dk,chan_xanh ;mac dinh la tat mau xanh sbi chan_dk,chan_do ;mac dinh la tat mau do lap_kieu_che_trai_qua_begin: sbi chan_dk,chan_xanh ;mac dinh la tat mau xanh sbi chan_dk,chan_do ;mac dinh la tat mau do cp cursel_low,m_cursel_low cpc cursel_high,m_cursel_high brsh not_kieu_che_trai_qua_begin ;neu lon hon khong xuat data mau (dang dich vao) mov vi_tri_hang,m_vi_tri_hang rcall lay_bit_mau_xanh mov vi_tri_hang,m_vi_tri_hang rcall lay_bit_mau_do ;----------------------------- not_kieu_che_trai_qua_begin: sbi chan_dk,ck_led ;kich ck cbi chan_dk,ck_led subi cursel_low,low(-1) sbci cursel_high,high(-1) cpi cursel_low,low(chieu_dai_bang) brne lap_kieu_che_trai_qua_begin ;chieu_dai_bang cpi cursel_high,high(chieu_dai_bang) brne lap_kieu_che_trai_qua_begin ret ;================================================ kieu_che_trai_qua_end: ldi cursel_low,0 ldi cursel_high,0 mov cursel_xanh_high,m_cursel_high mov cursel_xanh_low,m_cursel_low mov cursel_do_high,m_cursel_high mov cursel_do_low,m_cursel_low sbi chan_dk,chan_xanh ;mac dinh la tat mau xanh sbi chan_dk,chan_do ;mac dinh la tat mau do lap_kieu_che_trai_qua_end: cp cursel_low,m_cursel_low cpc cursel_high,m_cursel_high brlo not_kieu_che_trai_qua_end ;neu nho hon khong xuat data mau (vuot vung data) mov vi_tri_hang,m_vi_tri_hang rcall lay_bit_mau_xanh mov vi_tri_hang,m_vi_tri_hang rcall lay_bit_mau_do ;----------------------------- not_kieu_che_trai_qua_end: sbi chan_dk,ck_led ;kich ck cbi chan_dk,ck_led subi cursel_low,low(-1) sbci cursel_high,high(-1) cpi cursel_low,low(chieu_dai_bang) brne lap_kieu_che_trai_qua_end ;chieu_dai_bang cpi cursel_high,high(chieu_dai_bang) brne lap_kieu_che_trai_qua_end ;chieu_dai_bang ret ;***************************************************************************************** ;***************************************************************************************** ;***************************************************************************************** ;========================================================================================= ;CHUONG TRINH CON KIEU CHE PHAI QUA ================================================== ;========================================================================================= kieu_che_phai_qua_begin: ldi cursel_low,0 ldi cursel_high,0 ldi cursel_a,low(chieu_dai_bang) ldi cursel_b,high(chieu_dai_bang) sub cursel_a,m_cursel_low sbc cursel_b,m_cursel_high mov cursel_xanh_high,cursel_b mov cursel_xanh_low,cursel_a mov cursel_do_high,cursel_b mov cursel_do_low,cursel_a sbi chan_dk,chan_xanh ;mac dinh la tat mau xanh sbi chan_dk,chan_do ;mac dinh la tat mau do lap_kieu_che_phai_qua_begin: cp cursel_low,cursel_a cpc cursel_high,cursel_b brlo not_kieu_che_phai_qua_begin ;neu nho hon khong xuat data mau (dang dich vao) mov vi_tri_hang,m_vi_tri_hang rcall lay_bit_mau_xanh mov vi_tri_hang,m_vi_tri_hang rcall lay_bit_mau_do ;----------------------------- not_kieu_che_phai_qua_begin: sbi chan_dk,ck_led ;kich ck cbi chan_dk,ck_led subi cursel_low,low(-1) sbci cursel_high,high(-1) cpi cursel_low,low(chieu_dai_bang) brne lap_kieu_che_phai_qua_begin ;chieu_dai_bang cpi cursel_high,high(chieu_dai_bang) brne lap_kieu_che_phai_qua_begin ret ;================================================ kieu_che_phai_qua_end: ldi cursel_low,0 ldi cursel_high,0 ldi cursel_a,low(chieu_dai_bang) ldi cursel_b,high(chieu_dai_bang) sub cursel_a,m_cursel_low sbc cursel_b,m_cursel_high ldi cursel_xanh_high,0 ldi cursel_xanh_low,0 ldi cursel_do_high,0 ldi cursel_do_low,0 sbi chan_dk,chan_xanh ;mac dinh la tat mau xanh sbi chan_dk,chan_do ;mac dinh la tat mau do lap_kieu_che_phai_qua_end: sbi chan_dk,chan_xanh ;mac dinh la tat mau xanh sbi chan_dk,chan_do ;mac dinh la tat mau do cp cursel_low,cursel_a cpc cursel_high,cursel_b brsh not_kieu_che_phai_qua_end ;neu lon hon khong xuat data mau (vuot vung data) mov vi_tri_hang,m_vi_tri_hang rcall lay_bit_mau_xanh mov vi_tri_hang,m_vi_tri_hang rcall lay_bit_mau_do ;----------------------------- not_kieu_che_phai_qua_end: sbi chan_dk,ck_led ;kich ck cbi chan_dk,ck_led subi cursel_low,low(-1) sbci cursel_high,high(-1) cpi cursel_low,low(chieu_dai_bang) brne lap_kieu_che_phai_qua_end ;chieu_dai_bang cpi cursel_high,high(chieu_dai_bang) brne lap_kieu_che_phai_qua_end ;chieu_dai_bang ret ;***************************************************************************************** ;***************************************************************************************** ;***************************************************************************************** ;========================================================================================= ;CHUONG TRINH CON KIEU DICH ROT CHU PHAI QUA ========================================== ;========================================================================================= kieu_rot_phai_qua_begin: mov r16,m_vi_tri_hang cpi r16,0 brne tiep_kieu_rot_phai_qua_begin mov cursel_a,m_cursel_low mov cursel_b,m_cursel_high subi cursel_a,low(-1) sbci cursel_b,high(-1) mov m_cursel_low,cursel_a mov m_cursel_high,cursel_b subi cursel_a,low(-1) sbci cursel_b,high(-1) cpi cursel_a,low(chieu_dai_bang) ldi r16,high(chieu_dai_bang) cpc cursel_b,r16 brlo tiep_kieu_rot_phai_qua_begin ;chieu_dai_bang rcall tim_diem_rot tiep_kieu_rot_phai_qua_begin: ldi cursel_low,0 ldi cursel_high,0 ldi cursel_xanh_high,0 ldi cursel_xanh_low,0 ldi cursel_do_high,0 ldi cursel_do_low,0 sbi chan_dk,chan_xanh ;mac dinh la tat mau xanh sbi chan_dk,chan_do ;mac dinh la tat mau do mov r16,m_vi_tri_rot_low cpi r16,0 brne lap_kieu_rot_phai_qua_begin_1 mov r16,m_vi_tri_rot_high cpi r16,0 brne lap_kieu_rot_phai_qua_begin_1 ldi YL,0 ldi YH,0 rcall tim_diem_rot lap_kieu_rot_phai_qua_begin_1: cp cursel_low,m_vi_tri_rot_low cpc cursel_high,m_vi_tri_rot_high brsh lon_hon_kieu_rot_phai_qua mov vi_tri_hang,m_vi_tri_hang rcall lay_bit_mau_xanh mov vi_tri_hang,m_vi_tri_hang rcall lay_bit_mau_do sbi chan_dk,ck_led ;kich ck cbi chan_dk,ck_led subi cursel_low,low(-1) sbci cursel_high,high(-1) rjmp lap_kieu_rot_phai_qua_begin_1 ;----------------------------- lon_hon_kieu_rot_phai_qua: ldi cursel_a,low(chieu_dai_bang) ldi cursel_b,high(chieu_dai_bang) sub cursel_a,m_cursel_low sbc cursel_b,m_cursel_high mov ZL,cursel_a mov ZH,cursel_b add cursel_a,m_vi_tri_rot_low adc cursel_b,m_vi_tri_rot_high add ZL,YL adc ZH,YH lap_kieu_rot_phai_qua_begin_2: sbi chan_dk,chan_xanh ;mac dinh la tat mau xanh sbi chan_dk,chan_do ;mac dinh la tat mau do cp cursel_low,cursel_a cpc cursel_high,cursel_b brcs not_kieu_rot_phai_qua_begin ;neu nho hon khong xuat data mau (dang dich vao) cp cursel_low,ZL cpc cursel_high,ZH brsh not_kieu_rot_phai_qua_begin mov vi_tri_hang,m_vi_tri_hang rcall lay_bit_mau_xanh mov vi_tri_hang,m_vi_tri_hang rcall lay_bit_mau_do ;----------------------------- not_kieu_rot_phai_qua_begin: sbi chan_dk,ck_led ;kich ck cbi chan_dk,ck_led subi cursel_low,low(-1) sbci cursel_high,high(-1) cpi cursel_low,low(chieu_dai_bang) brne lap_kieu_rot_phai_qua_begin_2 ;chieu_dai_bang cpi cursel_high,high(chieu_dai_bang) brne lap_kieu_rot_phai_qua_begin_2 ;chieu_dai_bang ret ;------------------------------------ tim_diem_rot: rcall text_co_ky_tu cpi cursel_a,low(chieu_dai_bang) brne tiep_tim_diem_rot cpi cursel_b,high(chieu_dai_bang) brne tiep_tim_diem_rot ret tiep_tim_diem_rot: mov m_vi_tri_rot_low,cursel_a mov m_vi_tri_rot_high,cursel_b mov m_cursel_low,cursel_a mov m_cursel_high,cursel_b rcall text_het_ky_tu mov YL,cursel_a mov YH,cursel_b ret ;------------------------------------ text_co_ky_tu: mov cursel_a,YL mov cursel_b,YH lap_text_co_ky_tu: subi cursel_a,low(-1) sbci cursel_b,high(-1) cpi cursel_a,low(chieu_dai_bang) brne tiep_text_co_ky_tu cpi cursel_b,high(chieu_dai_bang) brne tiep_text_co_ky_tu ret tiep_text_co_ky_tu: ldi XH,vung_xanh_low ldi XL,0 add XL,cursel_a ;diem dau vung can hien thi low adc XH,cursel_b ;diem dau vung can hien thi hight ld r16,X cpi r16,0xff brne thoat_text_co_ky_tu ldi XH,vung_xanh_high ldi XL,0 add XL,cursel_a ;diem dau vung can hien thi low adc XH,cursel_b ;diem dau vung can hien thi hight ld r16,X cpi r16,0xff brne thoat_text_co_ky_tu ldi XH,vung_do_low ldi XL,0 add XL,cursel_a ;diem dau vung can hien thi low adc XH,cursel_b ;diem dau vung can hien thi hight ld r16,X cpi r16,0xff brne thoat_text_co_ky_tu ldi XH,vung_do_high ldi XL,0 add XL,cursel_a ;diem dau vung can hien thi low adc XH,cursel_b ;diem dau vung can hien thi hight ld r16,X cpi r16,0xff brne thoat_text_co_ky_tu rjmp lap_text_co_ky_tu thoat_text_co_ky_tu: ret ;------------------------------------ text_het_ky_tu: mov cursel_a,m_vi_tri_rot_low mov cursel_b,m_vi_tri_rot_high lap_text_het_ky_tu: subi cursel_a,low(-1) sbci cursel_b,high(-1) cpi cursel_a,low(chieu_dai_bang) brne tiep_text_het_ky_tu cpi cursel_b,high(chieu_dai_bang) brne tiep_text_het_ky_tu ret tiep_text_het_ky_tu: ldi XH,vung_xanh_low ldi XL,0 add XL,cursel_a ;diem dau vung can hien thi low adc XH,cursel_b ;diem dau vung can hien thi hight ld r16,X cpi r16,0xff brne lap_text_het_ky_tu ldi XH,vung_xanh_high ldi XL,0 add XL,cursel_a ;diem dau vung can hien thi low adc XH,cursel_b ;diem dau vung can hien thi hight ld r16,X cpi r16,0xff brne lap_text_het_ky_tu ldi XH,vung_do_low ldi XL,0 add XL,cursel_a ;diem dau vung can hien thi low adc XH,cursel_b ;diem dau vung can hien thi hight ld r16,X cpi r16,0xff brne lap_text_het_ky_tu ldi XH,vung_do_high ldi XL,0 add XL,cursel_a ;diem dau vung can hien thi low adc XH,cursel_b ;diem dau vung can hien thi hight ld r16,X cpi r16,0xff brne lap_text_het_ky_tu ret ;***************************************************************************************** ;***************************************************************************************** ;***************************************************************************************** ;========================================================================================= ;CHUONG TRINH CON KIEU DAN PHAI VAO ====================================================== ;========================================================================================= kieu_dan_phai_vao_begin: mov r16,m_vi_tri_rot_low cpi r16,0 brne kieu_dan_phai_vao_begin1 mov r16,m_vi_tri_hang cpi r16,0 brne tiep_kieu_dan_phai_vao_begin1 mov cursel_a,m_cursel_low mov cursel_b,m_cursel_high subi cursel_a,low(-1) sbci cursel_b,high(-1) cpi cursel_a,low(chieu_dai_bang) brne tiep_kieu_dan_phai_vao_begin1 cpi cursel_b,high(chieu_dai_bang) brne tiep_kieu_dan_phai_vao_begin1 ;chieu_dai_bang clr m_cursel_high clr m_cursel_low inc m_vi_tri_rot_low tiep_kieu_dan_phai_vao_begin1: ldi cursel_low,0 ldi cursel_high,0 ldi cursel_xanh_high,0 ldi cursel_xanh_low,0 ldi cursel_do_high,0 ldi cursel_do_low,0 ldi cursel_a,low(chieu_dai_bang) ldi cursel_b,high(chieu_dai_bang) sub cursel_a,m_cursel_low sbc cursel_b,m_cursel_high sbi chan_dk,chan_xanh ;mac dinh la tat mau xanh sbi chan_dk,chan_do ;mac dinh la tat mau do lap_kieu_dan_phai_vao_begin1: cp cursel_low,cursel_a cpc cursel_high,cursel_b brcs not_kieu_dan_phai_vao_begin ;neu nho hon khong xuat data mau (dang dich vao) mov vi_tri_hang,m_vi_tri_hang rcall lay_bit_mau_xanh mov vi_tri_hang,m_vi_tri_hang rcall lay_bit_mau_do sbi chan_dk,ck_led ;kich ck cbi chan_dk,ck_led subi cursel_low,low(-1) sbci cursel_high,high(-1) cpi cursel_low,low(chieu_dai_bang) brne not_kieu_dan_phai_vao_begin ;chieu_dai_bang cpi cursel_high,high(chieu_dai_bang) brne not_kieu_dan_phai_vao_begin ret ;----------------------------- not_kieu_dan_phai_vao_begin: sbi chan_dk,ck_led ;kich ck cbi chan_dk,ck_led subi cursel_low,low(-1) sbci cursel_high,high(-1) cpi cursel_low,low(chieu_dai_bang) brne lap_kieu_dan_phai_vao_begin1 ;chieu_dai_bang cpi cursel_high,high(chieu_dai_bang) brne lap_kieu_dan_phai_vao_begin1 ret ;============================== kieu_dan_phai_vao_begin1: ldi cursel_low,0 ldi cursel_high,0 ldi cursel_xanh_high,0 ldi cursel_xanh_low,0 ldi cursel_do_high,0 ldi cursel_do_low,0 sbi chan_dk,chan_xanh ;mac dinh la tat mau xanh sbi chan_dk,chan_do ;mac dinh la tat mau do lap_kieu_dan_phai_vao_begin2: cp cursel_low,m_cursel_low cpc cursel_high,m_cursel_high brsh lon_kieu_dan_phai_vao_begin ;neu nho hon khong xuat data mau (dang dich vao) mov vi_tri_hang,m_vi_tri_hang rcall lay_bit_mau_xanh mov vi_tri_hang,m_vi_tri_hang rcall lay_bit_mau_do sbi chan_dk,ck_led ;kich ck cbi chan_dk,ck_led subi cursel_low,low(-1) sbci cursel_high,high(-1) rjmp lap_kieu_dan_phai_vao_begin2 ;----------------------------- lon_kieu_dan_phai_vao_begin: mov vi_tri_hang,m_vi_tri_hang rcall lay_bit_mau_xanh mov vi_tri_hang,m_vi_tri_hang rcall lay_bit_mau_do sbi chan_dk,ck_led ;kich ck cbi chan_dk,ck_led subi cursel_low,low(-1) sbci cursel_high,high(-1) cpi cursel_low,low(chieu_dai_bang) brne tiep_kieu_dan_phai_vao_begin2 cpi cursel_high,high(chieu_dai_bang) brne tiep_kieu_dan_phai_vao_begin2 ret tiep_kieu_dan_phai_vao_begin2: sbi chan_dk,ck_led ;kich ck cbi chan_dk,ck_led subi cursel_low,low(-1) sbci cursel_high,high(-1) cpi cursel_low,low(chieu_dai_bang) brne lon_kieu_dan_phai_vao_begin cpi cursel_high,high(chieu_dai_bang) brne lon_kieu_dan_phai_vao_begin ret ;================================================== kieu_dan_phai_vao_end: ldi cursel_low,0 ldi cursel_high,0 mov cursel_xanh_high,m_cursel_high mov cursel_xanh_low,m_cursel_low mov r16,cursel_xanh_low mov r17,cursel_xanh_high ldi r18,2 rcall Div mov cursel_xanh_high,r17 mov cursel_xanh_low,r16 add cursel_xanh_low,r18 mov cursel_do_high,cursel_xanh_high mov cursel_do_low,cursel_xanh_low sbi chan_dk,chan_xanh ;mac dinh la tat mau xanh sbi chan_dk,chan_do ;mac dinh la tat mau do lap_kieu_dan_phai_vao_end: mov vi_tri_hang,m_vi_tri_hang rcall lay_bit_mau_xanh mov vi_tri_hang,m_vi_tri_hang rcall lay_bit_mau_do cp cursel_low,m_cursel_low cpc cursel_high,m_cursel_high brsh lon_kieu_trai_qua_end sbi chan_dk,ck_led ;kich ck cbi chan_dk,ck_led subi cursel_low,low(-1) sbci cursel_high,high(-1) cpi cursel_low,low(chieu_dai_bang) brne lon_kieu_trai_qua_end ;chieu_dai_bang cpi cursel_high,high(chieu_dai_bang) brne lon_kieu_trai_qua_end ret lon_kieu_trai_qua_end: sbi chan_dk,ck_led ;kich ck cbi chan_dk,ck_led subi cursel_low,low(-1) sbci cursel_high,high(-1) cpi cursel_low,low(chieu_dai_bang) brne lap_kieu_dan_phai_vao_end ;chieu_dai_bang cpi cursel_high,high(chieu_dai_bang) brne lap_kieu_dan_phai_vao_end ;chieu_dai_bang ret ;***************************************************************************************** ;***************************************************************************************** ;*****************************************************************************************
Leave a comment:
-
Nguyên văn bởi vodka1505 Xem bài viếtCode:;========================================================================================= ;THU VIEN ========================================================================== ;========================================================================================= .include "m8515def.inc" .include "Quangbao.inc" ;***************************************************************************************** ;***************************************************************************************** ;***************************************************************************************** .equ time_on = 0x01fa .equ time_off = 0x01fd .equ _time_on = 0 .equ _time_off = 1 ;========================================================================================= ;DAT TEN BIEN THANH VIEN ========================================================== ;========================================================================================= .def m_vi_tri_load_data = r15 .def m_vi_tri_hang = r14 .def m_vi_tri_rot_low = r13 .def m_vi_tri_rot_high = r12 .def m_kieu_chay = r11 .def m_mode_chay_begin = r10 .def m_mode_chay_end = r9 .def m_cursel_high = r8 .def m_cursel_low = r7 .def m_mode_chay_center = r6 .def m_time_on_off = r5 ;***************************************************************************************** ;***************************************************************************************** ;***************************************************************************************** ;========================================================================================= ;DAT TEN BIEN THANH VIEN ========================================================== ;========================================================================================= .def cursel_xanh_high = r25 .def cursel_xanh_low = r24 .def cursel_do_high = r23 .def cursel_do_low = r22 .def cursel_low = r21 .def cursel_high = r20 .def cursel_a = r19 .def cursel_b = r18 .def vi_tri_hang = r17 ;***************************************************************************************** ;***************************************************************************************** ;***************************************************************************************** ;========================================================================================= ;DAT TEN POC XUAT THU ================================================================== ;========================================================================================= .equ chan_dk = 0x18 ;PORTB .equ cs = 0x12 ;PORTD .equ AT24 = 0x07 ;PORTE .equ AT24_D = 0x06 ;DDRE .equ AT24_P = 0x05 ;PINE .equ chan_do = 6 .equ chan_xanh = 7 .equ ck_led = 5 .equ en_led = 4 .equ en = 3 .equ cs_IC = 5 .equ data_24 = 0 .equ clock_24 = 2 ;***************************************************************************************** ;***************************************************************************************** ;***************************************************************************************** ;========================================================================================= ;CHUONG TRINH CHINH ================================================================== ;========================================================================================= .cseg .org 0x0000 rjmp RESET .org 0x0006 rjmp DONG_HO .org 0x0009 rjmp THU_DATA .org 0x000b rjmp PHAT_DATA .org 0x0011 ;========================================================================================= ;CHUONG TRINH RESET ================================================================== ;========================================================================================= RESET: ldi r16,low(0x00ff) out SPL,r16 ;stac ldi r16,high(0x00ff) out SPH,r16 ;stac ;======================================================================== ldi r16,0b11111111 ;CAU HINH CHAN DIEU KHIEN XUAT PORTB out DDRB, r16 ;======================================================================== ldi r16,0b11111111 ;CAU HINH CHAN DIEU KHIEN XUAT PORTE out DDRE, r16 ;======================================================================== ldi r16,0b11101010 ;CAU HINH CHAN DIEU KHIEN PORTD out DDRD, r16 ;======================================================================== ldi r16,0b10000000 ;truy xuat RAN ngoai out MCUCR,r16 ;======================================================================== ;KHOI TAO TIME 0 ldi r16,5 out TCCR0,r16 ;CHAY TIME 0 VOI XUNG DONG HO /1024 ldi r16,-19 ;50X16 = 800Hz out TCNT0,r16 ;KHOI TAO TIME 1 ldi r16,5 out TCCR1B,r16 ;CHAY TIME 1 VOI XUNG DONG HO /1024 ldi r16,low(-62500) ;0.25Hz out TCNT1L,r16 ldi r16,high(-62500) ;0.25Hz out TCNT1H,r16 ldi r16,0x80 ;CHO PHEP NGAT TRAN TIME 1 out TIMSK,r16 ;KHOI TAO PORT NOI TIEP ldi r16,low(103) ;9600 0 8 1 out UBRRL, r16 ldi r16,high(103) out UBRRH, r16 ldi r16, 0b11011000 ;RXCIE.7 = 1 ngat thu, TXCIE.6 = 1 ngat phat, RXEN:.4 = 1 cho nhan, TXEN.3 = 1 cho phat out UCSRB,r16 ;======================================================================== clr m_time_on_off ;mac dinh la khong co hen gio start_on: sbi cs,en ;tat power wdr sbrc m_time_on_off,_time_on rjmp start_on nop rcall start_QB ;======================================================================== sei ;CHO PHEP TOAN BO NGAT HOAT DONG ;---------------------- main: wdr ;reset watchdog sbrc m_time_on_off,_time_off rjmp start_on in r16,TIFR sbrs r16,TOV0 rjmp main ldi r16,(1<<TOV0) out TIFR,r16 ; Clear TOV0/ clear pending interrupts lds r16,Frame_RXD inc r16 sts Frame_RXD,r16 cpi r16,10 brlo not_Oncom_temp ldi r16,0 ;lon hon bang 2 sts Frame_RXD,r16 ;reset Frame_RXD lds r17,point_RXD sts point_RXD,r16 ;reset point TXD cpi r17,0 breq bao_connect cpi r17,4 brne not_mode_PC4 ldi YL,low(vung_data_RXD) ldi YH,high(vung_data_RXD) ld r16,Y+ mov r17,r16 ld r18,Y+ add r17,r18 ld r19,Y+ add r17,r19 ld r16,Y cp r17,r16 ;text loi brne not_Oncom_temp ;bi loi cpi r18,ID_QuangBao ;text ID brne not_Oncom_temp ;biloi cpi r19,CONNECT_PC ;text CONNECT_PC brne not_CONNECT_PC rcall connect_to_PC rjmp not_Oncom ;================================= bao_connect: ldi r16,ID_QuangBao out UDR,r16 not_Oncom_temp: rjmp not_Oncom ;------------------------------------- not_CONNECT_PC: cpi r19,START_PC ;text START brne not_START_PC rcall start_QB rjmp not_Oncom ;------------------------------------- not_START_PC: cpi r19,EEPROM_FILE ;text EEPROM_FILE brne not_EEPROM_FILE lds r16,type_FILE cp r16,r19 breq recivered_temp ;neu lap lai bo qua sts type_FILE,r19 rcall load_receiving_data ldi r16,0xff sts cursel_FILEH,r16 sts cursel_FILEL,r16 recivered_temp: rjmp recivered ;------------------------------------- not_EEPROM_FILE: cpi r19,AT24_FILE ;text AT24_FILE brne not_AT24_FILE lds r16,type_FILE cp r16,r19 breq recivered ;neu lap lai bo qua sts type_FILE,r19 ldi r16,0xff sts cursel_FILEH,r16 sts cursel_FILEL,r16 rjmp recivered ;------------------------------------- not_AT24_FILE: rjmp not_Oncom ;============================================== not_mode_PC4: cpi r17,10 brne not_mode_PC10 ldi YL,low(vung_data_RXD) ldi YH,high(vung_data_RXD) ld r16,Y+ mov r17,r16 ld r18,Y+ add r17,r18 ld r19,Y+ add r17,r19 ld r16,Y+ cp r17,r16 brne not_Oncom cpi r18,ID_QuangBao brne not_Oncom cpi r19,TIME_PC brne not_TIME_PC rcall set_Time_PC rjmp not_Oncom ;----------------------------- not_TIME_PC: cpi r19,TIME_SET brne not_Oncom rcall set_Time_ONOFF rjmp not_Oncom ;============================================== not_mode_PC10: cpi r17,67 brne not_mode_PC67 ldi YL,low(vung_data_RXD) ldi YH,high(vung_data_RXD) ld cursel_high,Y+ ld cursel_low,Y lds r16,cursel_FILEH cp r16,cursel_high brne new_cursel lds r16,cursel_FILEL cp r16,cursel_low brne new_cursel rjmp recivered new_cursel: rcall text_loi_TX cpi r16,0 brne not_Oncom sts cursel_FILEH,cursel_high sts cursel_FILEL,cursel_low rcall ghi_file recivered: ldi r16,ENABLE_RECIVER out UDR,r16 rjmp not_Oncom ;============================================== not_mode_PC67: not_Oncom: ;========================================================================================= ;CHUONG TRINH NGAT QUET MA TRAN LED ================================================== ;========================================================================================= ldi r16,-19 out TCNT0,r16 ;NAP LAI GIA TRI TIME sbi cs,en ;tat power cbi chan_dk,en_led sbi chan_dk,en_led ;chot data led out chan_dk,m_vi_tri_hang cbi cs,en ;mo power rcall dieu_khien_hang rcall dich_data_led rjmp main ;***************************************************************************************** ;***************************************************************************************** ;***************************************************************************************** Turn_on_WDT: wdr ldi r16,0x18 ;enable watchdog out WDTCR,r16 ret ;***************************************************************************************** ;***************************************************************************************** ;***************************************************************************************** Turn_off_WDT: ; Write logical one to WDCE and WDE ldi r16, (1<<WDCE)|(1<<WDE) out WDTCR, r16 ; Turn off WDT ldi r16, (0<<WDE) out WDTCR, r16 ret ;***************************************************************************************** ;***************************************************************************************** ;***************************************************************************************** start_QB: sbi cs,en ;tat power rcall Turn_off_WDT ldi r16,0 out TCCR0,r16 ;TAT TIME 0 sbi cs,6 sbi cs,7 sbi cs,cs_IC ldi r16,0 sts point_RXD,r16 sts point_TXD,r16 sts Frame_RXD,r16 ;Time ngat RXD sts type_FILE,r16 ///////////////////////////////////////////////////////////////////////// clr m_vi_tri_load_data ;vi_tri_load_data = 0; clr m_vi_tri_hang ;m_vi_tri_hang = 0 clr m_cursel_high ;m_cursel = 0 clr m_cursel_low ;m_cursel = 0 clr m_kieu_chay ;m_kieu_chay = 0 clr m_mode_chay_begin ;m_mode_chay = 0 clr m_mode_chay_end ;m_mode_chay = 0 clr m_mode_chay_center ldi XH,high(0x0184) ldi XL,low(0x0184) rcall read_byte cpi r16,0xff breq chua_co_data rcall load_table rcall load_data_hien_thi ret chua_co_data: rcall load_no_data ret ;***************************************************************************************** ;***************************************************************************************** ;***************************************************************************************** text_loi_TX: ldi YL,low(vung_data_RXD) ldi YH,high(vung_data_RXD) ld r16,Y+ ld r16,Y+ ld r17,Y+ lap_text_loi_TX: ld r16,Y+ add r17,r16 cpi YL,66 brne lap_text_loi_TX ld r18,Y ldi r16,0xff cp r17,r18 brne loi_TX ldi r16,0 loi_TX: ret ;***************************************************************************************** ;***************************************************************************************** ;***************************************************************************************** ghi_file: sbi cs,en ;tat power rcall Turn_off_WDT ldi r16,0 out TCCR0,r16 ;TAT TIME 0 ldi YL,low(vung_data_RXD) ldi YH,high(vung_data_RXD) ld cursel_high,Y+ ld cursel_low,Y+ lds r16,type_FILE cpi r16,AT24_FILE brne not_ghi_AT24_FILE rcall send_address lap_ghi_file_24: ld r16,Y+ rcall ghi_byte cpi YL,66 brne lap_ghi_file_24 rcall stop rjmp thoat_ghi_file ;--------------------------------------- not_ghi_AT24_FILE: mov XL,cursel_low mov XH,cursel_high lap_ghi_file_EEPROM: cpi XL,low(time_on) ldi r16,high(time_on) cpc XH,r16 brsh thoat_ghi_file ld r16,Y+ rcall write_byte cpi YL,66 brne lap_ghi_file_EEPROM thoat_ghi_file: ldi r16,5 out TCCR0,r16 ;CHAY TIME 0 VOI XUNG DONG HO /1024 rcall Turn_on_WDT ret ;***************************************************************************************** ;***************************************************************************************** ;***************************************************************************************** connect_to_PC: ldi r16,5 sts buffer_send,r16 ldi r16,1 sts point_TXD,r16 ldi YL,low(vung_data_TXD) ldi YH,high(vung_data_TXD) ldi r16,low(chieu_cao_bang) mov r17,r16 st Y+,r16 ldi r16,high(chieu_dai_bang) add r17,r16 st Y+,r16 ldi r16,low(chieu_dai_bang) add r17,r16 st Y+,r16 ldi r16,FORMAT_PC add r17,r16 st Y+,r16 st Y,r17 ldi r16,low(chieu_cao_bang) out UDR,r16 ret ;***************************************************************************************** ;***************************************************************************************** ;***************************************************************************************** set_Time_PC: rcall set_dong_ho ldi r16,TIME_PC out UDR,r16 ret ;***************************************************************************************** ;***************************************************************************************** ;***************************************************************************************** set_Time_ONOFF: sbi cs,en ;tat power rcall Turn_off_WDT ldi r16,0 out TCCR0,r16 ;TAT TIME 0 ldi XL,low(time_on) ldi XH,high(time_on) ld r16,Y+ sts offset_time_on,r16 rcall write_byte ld r16,Y+ sts offset_time_on+1,r16 rcall write_byte ld r16,Y+ sts offset_time_on+2,r16 rcall write_byte ld r16,Y+ sts offset_time_off,r16 rcall write_byte ld r16,Y+ sts offset_time_off+1,r16 rcall write_byte ld r16,Y+ sts offset_time_off+2,r16 rcall write_byte ldi r16,5 out TCCR0,r16 ;CHAY TIME 0 VOI XUNG DONG HO /1024 rcall Turn_on_WDT ldi r16,TIME_SET out UDR,r16 ret ;***************************************************************************************** ;***************************************************************************************** ;***************************************************************************************** ;========================================================================================= ;CHUONG TRINH CON SET DONG HO ========================================================== ;========================================================================================= set_dong_ho: ld r18,Y+ ld r19,Y+ ld r20,Y+ ld r21,Y+ ld r22,Y+ ld r23,Y+ cbi cs,cs_IC ;select DS12887 ldi XH,high(vung_load_data) ldi XL,0x0b ;dia chi cua thanh ghi B ( DS12887) ldi r16,0x86 ;dung dong ho st X,r16 ldi XL,0x02 ;dia chi cua o nho phut ( DS12887) st X,r18 ldi XL,0x04 ;dia chi cua o nho gio ( DS12887) st X,r19 ldi XL,0x06 ;dia chi cua o nho thu ( DS12887) st X,r20 ldi XL,0x07 ;dia chi cua o nho ngay ( DS12887) st X,r21 ldi XL,0x08 ;dia chi cua o nho thang ( DS12887) st X,r22 ldi XL,0x09 ;dia chi cua o nho nam ( DS12887) st X,r23 ldi XL,0x0b ;dia chi cua thanh ghi B ( DS12887) ldi r16,0x06 ;chay dong ho st X,r16 ldi XL,0x0a ;dia chi cua thanh ghi A ( DS12887) ldi r16,0xaa ;chay dong ho st X,r16 sbi cs,cs_IC ret ;***************************************************************************************** ;***************************************************************************************** ;***************************************************************************************** ;========================================================================================= ;CHUONG TRINH CON LOAD DONG HO ========================================================== ;========================================================================================= load_dong_ho: cbi cs,cs_IC ;select DS12887 ldi XH,high(vung_load_data) ldi XL,0x0a ;dia chi cua thanh ghi A ( DS12887) tro_doc_DS12887: ld r16,X sbrc r16,7 rjmp tro_doc_DS12887;neu r16.7 = 1 ldi XL,0x02 ;dia chi cua o nho phut ( DS12887) ld r18,X ldi XL,0x04 ;dia chi cua o nho gio ( DS12887) ld r19,X ldi XL,0x06 ;dia chi cua o nho thu ( DS12887) ld r20,X ldi XL,0x07 ;dia chi cua o nho ngay ( DS12887) ld r21,X ldi XL,0x08 ;dia chi cua o nho thang ( DS12887) ld r22,X ldi XL,0x09 ;dia chi cua o nho nam ( DS12887) ld r23,X sbi cs,cs_IC sts DS_TimePhut,r18 sts DS_TimeGio,r19 sts DS_TimeThu,r20 sts DS_TimeNgay,r21 sts DS_TimeThang,r22 sts DS_TimeNam,r23 ret ;***************************************************************************************** ;***************************************************************************************** ;***************************************************************************************** ;========================================================================================= ;CHUONG TRINH CON LOAD TABLE ========================================================== ;========================================================================================= load_table: ldi YL,low(tra_bang_color) ldi YH,high(tra_bang_color) ldi XL,0 ldi XH,0 lap_load_bang_color: rcall read_byte st Y+,r16 cpi XL,low(0x200) brne lap_load_bang_color cpi XH,high(0x200) brne lap_load_bang_color lds cursel_high,offset_font ;lay diem doc bang Font lds cursel_low,offset_font+1 ldi YL,low(tra_bang_font) ldi YH,high(tra_bang_font) rcall send_address rcall start ldi r16,0xa1 ;lenh doc RAM rcall ghi_byte lap_load_bang_font: rcall doc_byte st Y+,r16 cpi YL,low(tra_bang_logo) brne tiep_load_bang_font cpi YH,high(tra_bang_logo) brne tiep_load_bang_font rcall NAK rcall stop rjmp load_bang_logo tiep_load_bang_font: rcall ACK rjmp lap_load_bang_font load_bang_logo: lds cursel_high,offset_logo ;lay diem doc bang Logo lds cursel_low,offset_logo+1 ldi YL,low(tra_bang_logo) ldi YH,high(tra_bang_logo) rcall send_address rcall start ldi r16,0xa1 ;lenh doc RAM rcall ghi_byte lap_load_bang_logo: rcall doc_byte st Y+,r16 cpi YL,low(vung_data_RXD) brne tiep_load_bang_logo cpi YH,high(vung_data_RXD) brne tiep_load_bang_logo rcall NAK rcall stop ret tiep_load_bang_logo: rcall ACK rjmp lap_load_bang_logo ;***************************************************************************************** ;***************************************************************************************** ;***************************************************************************************** ;========================================================================================= ;CHUONG TRINH NGAT DONG HO ============================================================== ;========================================================================================= DONG_HO: in r2,SREG push r16 push r17 push XL push XH ldi r16,low(-62500) ;0.25Hz out TCNT1L,r16 ldi r16,high(-62500) ;0.25Hz out TCNT1H,r16 cbi cs,cs_IC ;select DS12887 ldi XH,high(vung_load_data) ldi XL,0x0a ;dia chi cua thanh ghi A ( DS12887) tro_doc_DS12887n: ld r16,X sbrc r16,7 rjmp tro_doc_DS12887n;neu r16.7 = 1 ldi XL,0x02 ;dia chi cua o nho phut ( DS12887) ld r16,X ldi XL,0x04 ;dia chi cua o nho gio ( DS12887) ld r17,X sbi cs,cs_IC lds XL,offset_time_off cpi XL,0 breq not_time_off lds XL,offset_time_off+1 lds XH,offset_time_off+2 cp r16,XL brne not_time_off cp r17,XH brne not_time_off ldi XL,0xff mov m_time_on_off,XL not_time_off: lds XL,offset_time_on cpi XL,0 breq not_time_on lds XL,offset_time_on+1 lds XH,offset_time_on+2 cp r16,XL brne not_time_on cp r17,XH brne not_time_on clr m_time_on_off not_time_on: pop XH pop XL pop r17 pop r16 out SREG,r2 reti ;***************************************************************************************** ;***************************************************************************************** ;***************************************************************************************** ;========================================================================================= ;CHUONG TRINH NGAT THU DATA ============================================================== ;========================================================================================= THU_DATA: in r3,SREG push r16 push r17 push YL push YH in r16,UDR lds YL,point_RXD ldi YH,0 subi YL,low(-vung_data_RXD) sbci YH,high(-vung_data_RXD) st Y,r16 ;nap bo dem lds r17,point_RXD inc r17 sts point_RXD,r17 ;cat con tro ldi r16,0 sts Frame_RXD,r16 pop YH pop YL pop r17 pop r16 out SREG,r3 reti ;***************************************************************************************** ;***************************************************************************************** ;***************************************************************************************** ;========================================================================================= ;CHUONG TRINH NGAT PHAT DATA ========================================================== ;========================================================================================= PHAT_DATA: in r4,SREG push r16 push r17 push YL push YH lds YL,point_TXD cpi YL,0 breq EXIT_PHAT_DATA ldi YH,0 subi YL,low(-vung_data_TXD) sbci YH,high(-vung_data_TXD) ld r16,Y out UDR,r16 lds r17,point_TXD inc r17 lds r16,buffer_send cp r16,r17 brne not_Onsend ldi r17,0 ;reset point_TXD not_Onsend: sts point_TXD,r17 ;cat con tro EXIT_PHAT_DATA: ldi r16,0 sts Frame_RXD,r16 pop YH pop YL pop r17 pop r16 out SREG,r4 reti ;***************************************************************************************** ;***************************************************************************************** ;***************************************************************************************** ;========================================================================================= ;CHUONG TRINH CON LOAD DATA HIEN THI ================================================== ;========================================================================================= load_data_hien_thi: sbi cs,en ;tat power rcall Turn_off_WDT ldi r16,0 out TCCR0,r16 ;TAT TIME 0 rcall load_data_file inc m_vi_tri_load_data mov r16,m_vi_tri_load_data lds r17,tong_file cp r16,r17 brne set_mode_chay_auto ldi r16,2 ;neu het file mov m_vi_tri_load_data,r16 set_mode_chay_auto: rcall thay_mode_auto ldi r16,5 out TCCR0,r16 ;CHAY TIME 0 VOI XUNG DONG HO /1024 rcall Turn_on_WDT ret ;***************************************************************************************** ;***************************************************************************************** ;***************************************************************************************** ;========================================================================================= ;CHUONG TRINH CON THAY MODE CHAY ====================================================== ;========================================================================================= thay_mode_auto: cpi cursel_a,low(chieu_dai_bang) ldi r16,high(chieu_dai_bang) cpc cursel_b,r16 brlo ma_hien_thi_nho_hon_cdb ldi r16,Kieu_SizeMax ;ma_hien_thi_lon hon_cdb mov m_kieu_chay,r16 subi cursel_a,low(-chieu_dai_bang) sbci cursel_b,high(-chieu_dai_bang) mov m_vi_tri_rot_low,cursel_a mov m_vi_tri_rot_high,cursel_b rjmp thoat_thay_mode ma_hien_thi_nho_hon_cdb: inc m_mode_chay_begin mov r16,m_mode_chay_begin cpi r16,tong_mode_chay_begin ;so sanh tong kieu chay brne thay_mode_chay_center clr m_mode_chay_begin thay_mode_chay_center: inc m_mode_chay_center mov r16,m_mode_chay_center cpi r16,tong_mode_chay_center ;so sanh tong kieu chay brne thay_mode_chay_end clr m_mode_chay_center thay_mode_chay_end: inc m_mode_chay_end mov r16,m_mode_chay_end cpi r16,tong_mode_chay_end ;so sanh tong kieu chay brne thoat_thay_mode clr m_mode_chay_end thoat_thay_mode: ret ;***************************************************************************************** ;***************************************************************************************** ;***************************************************************************************** ;========================================================================================= ;CHUONG TRINH CON DOI LICH ====================================================== ;========================================================================================= doi_lich: cpi r16,TimePhut brne not_TimePhut lds r16,DS_TimePhut ldi r17,0 rcall doi_BCD st X+,r16 st X+,r18 ret ;----------------------------- not_TimePhut: cpi r16,TimeGio brne not_TimeGio lds r16,DS_TimeGio ldi r17,0 rcall doi_BCD st X+,r16 st X+,r18 ret ;----------------------------- not_TimeGio: cpi r16,TimeNgay brne not_TimeNgay lds r16,DS_TimeNgay ldi r17,0 rcall doi_BCD st X+,r16 st X+,r18 ret ;----------------------------- not_TimeNgay: cpi r16,TimeThang brne not_TimeThang lds r16,DS_TimeThang ldi r17,0 rcall doi_BCD st X+,r16 st X+,r18 ret ;----------------------------- not_TimeThang: cpi r16,TimeNam brne not_TimeNam lds r16,DS_TimeNam ldi r17,0 rcall doi_BCD st X+,r16 st X+,r18 not_TimeThu: ret ;----------------------------- not_TimeNam: cpi r16,TimeThu brne not_TimeThu lds r16,DS_TimeThu cpi r16,2 brsh not_chu_nhat ldi ZH,high(Chu_nhat*2) ;vi tri cao cua ky tu ldi ZL,low(Chu_nhat*2) ;vi tr thap cua ky tu rjmp lap_load_data_thu not_chu_nhat: ldi ZH,high(Thu*2) ;vi tri cao cua ky tu ldi ZL,low(Thu*2) ;vi tr thap cua ky tu lap_load_data_thu: lpm r17,Z+ st X+,r17 cpi r17,' ' brne lap_load_data_thu cpi r16,2 brne not_thu_hai ldi ZH,high(hai*2) ;vi tri cao cua ky tu ldi ZL,low(hai*2) ;vi tr thap cua ky tu rjmp data_thu ;------------------------------------------ not_thu_hai: cpi r16,3 brne not_thu_ba ldi ZH,high(ba*2) ;vi tri cao cua ky tu ldi ZL,low(ba*2) ;vi tr thap cua ky tu rjmp data_thu ;------------------------------------------ not_thu_ba: cpi r16,4 brne not_thu_tu ldi ZH,high(tu*2) ;vi tri cao cua ky tu ldi ZL,low(tu*2) ;vi tr thap cua ky tu rjmp data_thu ;------------------------------------------ not_thu_tu: cpi r16,5 brne not_thu_nam ldi ZH,high(nam*2) ;vi tri cao cua ky tu ldi ZL,low(nam*2) ;vi tr thap cua ky tu rjmp data_thu ;------------------------------------------ not_thu_nam: cpi r16,6 brne not_thu_sau ldi ZH,high(sau*2) ;vi tri cao cua ky tu ldi ZL,low(sau*2) ;vi tr thap cua ky tu rjmp data_thu ;------------------------------------------ not_thu_sau: cpi r16,7 brne data_thu ldi ZH,high(bay*2) ;vi tri cao cua ky tu ldi ZL,low(bay*2) ;vi tr thap cua ky tu data_thu: lpm r16,Z+ st X+,r16 cpi r16,' ' brne data_thu ret ;***************************************************************************************** ;***************************************************************************************** ;***************************************************************************************** ;========================================================================================= ;CHUONG TRINH CON LOAD RECIVING DATA ====================================================== ;========================================================================================= load_receiving_data: ldi r16,Kieu_CANHBAO ;kieu chay canh bao mov m_kieu_chay,r16 ldi ZH,high(receiving_data*2) ;vi tri cao cua ky tu ldi ZL,low(receiving_data*2) ;vi tr thap cua ky tu rjmp load_data_wanning ;========================================================================================= ;CHUONG TRINH CON LOAD NO DATA ====================================================== ;========================================================================================= load_no_data: ldi r16,Kieu_CANHBAO ;kieu chay canh bao mov m_kieu_chay,r16 ldi ZH,high(no_data*2) ;vi tri cao cua ky tu ldi ZL,low(no_data*2) ;vi tr thap cua ky tu load_data_wanning: sbi cs,en ;tat power rcall Turn_off_WDT ldi r16,0 out TCCR0,r16 ;TAT TIME 0 rcall xoa_data lpm cursel_high,Z+ lpm cursel_low,Z+ ldi cursel_a,low(chieu_dai_bang) ldi cursel_b,high(chieu_dai_bang) sub cursel_a,cursel_low sbc cursel_b,cursel_high lsr cursel_b ror cursel_a add cursel_low,cursel_a adc cursel_high,cursel_b lap_lay_ma_warning: ;neu lon hon thi khong can trung tam bang lpm r16,Z+ lpm r17,Z+ ldi YH,vung_xanh_low ldi YL,0 add YL,cursel_a adc YH,cursel_b st Y,r16 ldi YH,vung_xanh_high ldi YL,0 add YL,cursel_a adc YH,cursel_b st Y,r17 subi cursel_a,low(-1) sbci cursel_b,high(-1) cp cursel_a,cursel_low brne lap_lay_ma_warning cp cursel_b,cursel_high brne lap_lay_ma_warning ldi r16,5 out TCCR0,r16 ;CHAY TIME 0 VOI XUNG DONG HO /1024 rcall Turn_on_WDT ret ;***************************************************************************************** ;***************************************************************************************** ;***************************************************************************************** ;========================================================================================= ;CHUONG TRINH CON LOAD DATA FILE ====================================================== ;========================================================================================= load_data_file: rcall load_dong_ho ldi YL,2 mov YH,m_vi_tri_load_data mul YH,YL mov YL,r0 mov YH,r1 subi YL,low(-offset_file) sbci YH,high(-offset_file) ld cursel_high,Y+ ;lay diem doc FILE ld cursel_low,Y ldi XH,high(vung_load_data) ldi XL,low(vung_load_data) rcall send_address rcall start ldi r16,0xa1 ;lenh doc RAM rcall ghi_byte lap_load_file: rcall doc_byte cpi r16,TimeNam brsh lonbangTimeNam lonTimePhut: st X+,r16 cpi r16,END_DATA brne tiep_load_file rcall NAK rcall stop rcall load_data ret lonbangTimeNam: cpi r16,0xfc ;Timephut= 0xfb brsh lonTimePhut rcall doi_lich tiep_load_file: rcall ACK rjmp lap_load_file ;***************************************************************************************** ;***************************************************************************************** ;***************************************************************************************** ;========================================================================================= ;CHUONG TRINH CON DVI ================================================================== ;========================================================================================= Div: ;so bi chia r16,r17 so chia r18 ket qua r16,r17 so du r18 ldi r25,0 lap_chia: inc r25 mul r18,r25 cp r0,r16 cpc r1,r17 brne not_bang_ket_qua ldi r18,0 ;so du = 0 mov r16,r25 ldi r17,0 ret not_bang_ket_qua: brlo lap_chia dec r25 mul r18,r25 sub r16,r0 sbc r17,r1 mov r18,r16 mov r16,r25 ldi r17,0 ret ;***************************************************************************************** ;***************************************************************************************** ;***************************************************************************************** ;========================================================================================= ;CHUONG TRINH CON DOI BCD ============================================================== ;========================================================================================= doi_BCD: ldi r18,10 rcall Div ;so bi chia r19 so chia r16 ket qua r17 so du r16 ldi r17,0x30 add r16,r17 add r18,r17 ret ;***************************************************************************************** ;***************************************************************************************** ;***************************************************************************************** ;========================================================================================= ;CHUONG TRINH CON XOA DATA ============================================================== ;========================================================================================= xoa_data: ldi XH,vung_xanh_low ;xoa trang vung hien thi ldi XL,0 ldi r16,0xff lap_xoa_data: st X+,r16 cpi XH,0xff brne lap_xoa_data cpi XL,0xff brne lap_xoa_data ret ;***************************************************************************************** ;***************************************************************************************** ;***************************************************************************************** ;========================================================================================= ;CHUONG TRINH CON LOAD DATA ============================================================== ;========================================================================================= load_data: ldi cursel_a,0 ldi cursel_b,0 rcall xoa_data rcall doi_kytu_thanh_ma cpi cursel_a,low(chieu_dai_bang) ldi r16,high(chieu_dai_bang) cpc cursel_b,r16 brsh ma_hien_thi_lon_hon_cdb ldi cursel_low,low(chieu_dai_bang) ldi cursel_high,high(chieu_dai_bang) sub cursel_low,cursel_a sbc cursel_high,cursel_b lsr cursel_high ror cursel_low mov cursel_a,cursel_low mov cursel_b,cursel_high rcall xoa_data rcall doi_kytu_thanh_ma ma_hien_thi_lon_hon_cdb: ;neu lon hon thi khong can trung tam bang ret ;***************************************************************************************** ;***************************************************************************************** ;***************************************************************************************** ;========================================================================================= ;CHUONG TRINH CON DOI KYTU THANH MA ====================================================== ;========================================================================================= doi_kytu_thanh_ma: ldi XH,high(vung_load_data) ldi XL,low(vung_load_data) doc_data: ld r16,X+ ;lay mot ky tu trong chuoi data cpi r16,END_DATA ;neu la ma ket thuc brne khac_ma_ket_thuc ret ;------------------------------- khac_ma_ket_thuc: cpi r16,NEW_COLOR brne not_chon_mau_sac rcall lay_ma_mau rjmp doc_data ;================================================ not_chon_mau_sac: cpi r16,NEW_FONT brne not_chon_font rcall lay_ma_font rjmp doc_data ;================================================ not_chon_font: cpi r16,NEW_LOGO brne not_chon_logo rcall lay_ma_logo rjmp doc_data ;================================================ not_chon_logo: cpi r16,' ' brne not_khoang_trang subi cursel_a,low(-4) sbci cursel_b,high(-4) rjmp doc_data ;================================================ not_khoang_trang: subi r16,'!' ;tru de tim ra ky so ldi r17,2 mul r16,r17 ; khoang canh 2 byte mov YL,r0 mov YH,r1 ;nap vung doc ma tai Y vung truy xuat Z subi YL,low(-bang_font) sbci YH,high(-bang_font) ;vung truy xuat Z bat dau tu bang font ld ZH,Y+ ld ZL,Y+ ld r22,Y+ ld r22,Y cp r22,ZL brlo nho_hon_ZL sub r22,ZL load_kytu: lsr R22 subi ZL,low(-bang_font) sbci ZH,high(-bang_font) ;vung truy xuat Z bat dau tu bang font rcall lay_ma_ky_tu rjmp doc_data nho_hon_ZL: mov r16,ZL sub r16,r22 mov r22,r16 rjmp load_kytu ;***************************************************************************************** ;***************************************************************************************** ;***************************************************************************************** ;========================================================================================= ;CHUONG TRINH CON LAY MA FONT ========================================================== ;========================================================================================= lay_ma_mau: ld r16,X+ ldi r17,4 mul r16,r17 mov r24,r0 mov r25,r1 subi r24,low(-tra_bang_color) sbci r25,high(-tra_bang_color) ret ;***************************************************************************************** ;***************************************************************************************** ;***************************************************************************************** ;========================================================================================= ;CHUONG TRINH CON LAY MA FONT ========================================================== ;========================================================================================= lay_ma_font: ld r16,X+ ;lay ky FONT ldi r17,2 mul r16,r17 mov YL,r0 ;doi thanh vung truy xuat mov YH,r1 subi YL,low(-tra_bang_font) sbci YH,high(-tra_bang_font) ;doi di toi bang ld cursel_high,Y+ ;lay diem doc FONT ld cursel_low,Y ldi YL,low(bang_font) ldi YH,high(bang_font) rcall send_address rcall start ldi r16,0xa1 ;lenh doc RAM rcall ghi_byte lap_load_font: rcall doc_byte st Y+,r16 cpi YL,0x00 brne tiep_load_font cpi YH,0x20 brne tiep_load_font rcall NAK rcall stop ret tiep_load_font: rcall ACK rjmp lap_load_font ;***************************************************************************************** ;***************************************************************************************** ;***************************************************************************************** ;========================================================================================= ;CHUONG TRINH CON LAY MA LOGO ========================================================== ;========================================================================================= lay_ma_logo: ld r16,X+ ;lay ky LOGO ldi r17,2 mul r16,r17 mov YL,r0 ;doi thanh vung truy xuat mov YH,r1 subi YL,low(-tra_bang_logo) sbci YH,high(-tra_bang_logo) ;doi di toi bang ld cursel_high,Y+ ld cursel_low,Y+ ;lay diem doc logo rcall send_address rcall start ldi r16,0xa1 ;lenh doc RAM rcall ghi_byte rcall doc_byte mov r22,r16 ;do rong LOGO rcall ACK lap_lay_ma_lodo: rcall doc_byte ldi YH,vung_xanh_low ldi YL,0 add YL,cursel_a adc YH,cursel_b st Y,r16 rcall ACK rcall doc_byte ldi YH,vung_xanh_high ldi YL,0 add YL,cursel_a adc YH,cursel_b st Y,r16 rcall ACK rcall doc_byte ldi YH,vung_do_low ldi YL,0 add YL,cursel_a adc YH,cursel_b st Y,r16 rcall ACK rcall doc_byte ldi YH,vung_do_high ldi YL,0 add YL,cursel_a adc YH,cursel_b st Y,r16 subi cursel_a,low(-1) sbci cursel_b,high(-1) dec r22 ;giam do rong LOGO cpi r22,0 brne tiep_lay_ma_lodo rcall NAK rcall stop ret tiep_lay_ma_lodo: rcall ACK rjmp lap_lay_ma_lodo ;***************************************************************************************** ;HET CHUONG TRINH CON LAY MA LOGO ****************************************************** ;***************************************************************************************** ;========================================================================================= ;CHUONG TRINH CON LAY MA KY TU ========================================================== ;========================================================================================= lay_ma_ky_tu: lap_lay_ma_ky_tu: ld r20,Z+ ld r21,Z+ mov YL,r24 mov YH,r25 ld r16,Y or r16,r20 ldi YH,vung_xanh_low ldi YL,0 add YL,cursel_a adc YH,cursel_b st Y,r16 mov YL,r24 mov YH,r25 ldd r16,Y+1 or r16,r21 ldi YH,vung_xanh_high ldi YL,0 add YL,cursel_a adc YH,cursel_b st Y,r16 mov YL,r24 mov YH,r25 ldd r16,Y+2 or r16,r20 ldi YH,vung_do_low ldi YL,0 add YL,cursel_a adc YH,cursel_b st Y,r16 mov YL,r24 mov YH,r25 ldd r16,Y+3 or r16,r21 ldi YH,vung_do_high ldi YL,0 add YL,cursel_a adc YH,cursel_b st Y,r16 subi cursel_a,low(-1) sbci cursel_b,high(-1) cpi r20,0xff brne text_do_rong_ky_tu cpi r21,0xff brne text_do_rong_ky_tu ret text_do_rong_ky_tu: dec r22 ;giam do rong ky tu cpi r22,0 brne lap_lay_ma_ky_tu ret ;***************************************************************************************** ;HET CHUONG TRINH CON LAY MA KY TU ************************************************** ;***************************************************************************************** ;========================================================================================= ;CHUONG TRINH CON DIEU KHIEN HANG ================================================== ;========================================================================================= dieu_khien_hang: dec m_vi_tri_hang mov r16,m_vi_tri_hang cpi r16,0xff ;so sanh chieu cao bang brne thoat_dieu_khien_hang ldi r16,chieu_cao_bang dec r16 mov m_vi_tri_hang,r16 ;nap vi tri hang = 0 ;------------------------------------ ;mot lap bang led mov r16,m_kieu_chay cpi r16,Kieu_CANHBAO ;kieu chay canh bao breq thoat_dieu_khien_hang inc m_cursel_low mov r16,m_cursel_low cpi r16,0 brne not_tang_cursel_high inc m_cursel_high not_tang_cursel_high: mov r16,m_kieu_chay cpi r16,Kieu_SizeMax ;kieu SizeMax brne kieu_chay_center cp m_cursel_low,m_vi_tri_rot_low cpc m_cursel_high,m_vi_tri_rot_high brlo thoat_dieu_khien_hang clr m_cursel_high ;m_cursel = 0 clr m_cursel_low ;m_cursel = 0 clr m_vi_tri_rot_low clr m_vi_tri_rot_high rjmp thay_data_hien_thi ;----------------------------- kieu_chay_center: ;kieu chay binh thuong mov r16,m_cursel_low cpi r16,low(chieu_dai_bang) ;chieu_dai_bang ;so sanh chieu dai bang ldi r16,high(chieu_dai_bang) cpc m_cursel_high,r16 ;chieu_dai_bang ;so sanh chieu dai bang brlo thoat_dieu_khien_hang clr m_cursel_high ;m_cursel = 0 clr m_cursel_low ;m_cursel = 0 clr m_vi_tri_rot_low clr m_vi_tri_rot_high ;------------------------------------ inc m_kieu_chay mov r16,m_kieu_chay cpi r16,tong_kieu_chay ;so sanh tong kieu chay brne thoat_dieu_khien_hang thay_data_hien_thi: clr m_kieu_chay ;nap kieu chay = 0 ;------------------------------------ rcall load_data_hien_thi ;nap data moi thoat_dieu_khien_hang: ret ;***************************************************************************************** ;***************************************************************************************** ;*****************************************************************************************
Leave a comment:
-
Chào anh Dũng, anh có thể post lên file ASM cho bọn em học hỏi được không? Cảm ơn anh trước.Còn đây là mạch in va file hex cho main Quang Báo 16X192 điểm ảnh
Chúc các bạn thành công
File gửi kèm
File Type: rar Quang Bao.rar (118.4 KB, 388 views)Leave a comment:
-
bạn xem ở bài đầu tiên ấy có sơ đồ lý thuyết mạch in và cả file HEX nữaNguyên văn bởi nocki Xem bài viết
chúc bạn thành côngLeave a comment:
-
Mạch quét cột của cái bảng quang báo này đâu, sao tui chả thấy nhỉ? tới 128 cột lận mà!Leave a comment:
-
anh ơi giúp em với! em đang lam mạch điều khiển hiển thị LED matran màu ,chạy 3 loại chữ màu khác nhau, anh giúp em với , em ko biết gì cả! thank anh! co gỉ send vô nik chat cua em nha : zip_thp@yahoo.comNguyên văn bởi dangdung Xem bài viết
Leave a comment:
-
Cảm ơn anh Dũng rất nhiều.Em đã cài được phần mềm của anh cho rồi.
Chúc anh vui!Leave a comment:
-
bác cho em mạch chạy chữ ,hay quang báo mà nó làm ít tiền 1 tí ko bác.gần đến trung thu rồi em muốn làm một mạch chạy chữ để tặng cho mấy đứa bạnLeave a comment:
-
Leave a comment:
-
Anh Dung có thể cho em xin cái địa chỉ để tải cái phần mềm tạo mã đó được ko?
File anh cho sao tải không được.
Thanks!Leave a comment:
Tìm hiểu thêm về dangdung
-
Trả lời cho Yêu thơ mê nhạc, mời các bác vào đây!Dạ, cảm ơn bác đã nghe qua và có lời khích lệ cháu ạ.
Thật lòng cháu không dám nhận hai danh hiệu Kỹ sư và Nhạc sĩ đâu ạ, vì phải thật hiểu sâu nắm vững cơ, chứ thực lực cháu đây chỉ là biết chút ít thôi à. Về phần...29-01-2026, 11:58 -
Trả lời cho Có mạch sạc nlmt nào có mppt không các bácĐơn giản thì có trải nghiệm này
http://www.dientuvietnam.net/forums/...ch%C3%AA%CC%81
Chỉ phần cứng,...27-01-2026, 21:32 -
Trả lời cho Có mạch sạc nlmt nào có mppt không các bácphức tạp quá, nếu mà có mạch làm sẵn thì ngon, e dùng 2 tấm pv loại 18v 55w thôi bác26-01-2026, 08:52 -
Trả lời cho Có mạch sạc nlmt nào có mppt không các báccảm ơn bác nhiều nha, để e nghiên cứu26-01-2026, 07:38
-
Trả lời cho Yêu thơ mê nhạc, mời các bác vào đây!kỹ sư nhạc sĩ dinhthuong dạo này lên tay nghề khá quá.25-01-2026, 21:29 -
Trả lời cho Yêu thơ mê nhạc, mời các bác vào đây!Hát Mừng Sinh Nhật, sáng tác: HĐT, hòa âm-thể hiện: AI24-01-2026, 22:13
-
Trả lời cho Yêu thơ mê nhạc, mời các bác vào đây!Chào bác, gần Tết công việc bác bận lắm phải không?
Vâng mọi người đều thế cả.
Em mới trả phí cho nó 1 tháng, nhờ nó hát thử ấy ạ. Tiếc vì em đã dốt nhạc lí lại lười học nên sáng tác thì vụng về mà hát demo...24-01-2026, 21:53 -
Trả lời cho Có mạch sạc nlmt nào có mppt không các bácCảm thấy cứng tay thì làm theo hướng dẫn khá chi tiết ở trang sau
https://www.instructables.com/DIY-1k...ge-Controller/23-01-2026, 16:50 -
Như tiêu đề, các bác giới thiệu e mạch sạc nlmt mppt có chức năng chỉnh dòng với, tấm PV của em 18V 55W, dùng để sạc cho khối pin sắt 3.2V 45A (sắp tới sẽ thay bằng ắc quy 12V)
e cảm ơn23-01-2026, 11:23
Leave a comment: