đồ án led xoay quang báo

org 000h
ajmp main

org 000bh
acall interr
mov p3,#0ffH
reti



org 0003H
acall interr1
reti

;dia chi cac ma dung de hien thi
org 230h
lookup:
db 10000010b,01111100b,01111100b,01111100b,10000010b,11111110b,10111100b,00000000b,11111100b,11111110b,10111100b,01110010b,01110100b,01101100b,10011100b
db 01111010b,01111100b,01011100b,00101100b,01110010b,11100110b,11010110b,10110110b,00000000b,11110110b,00001100b,01101100b,01101100b,01101100b,01110010b
db 10000010b,01101100b,01101100b,01101100b,11110010b,00111100b,01111010b,01110110b,01101110b,00011110b,11100000b,00001100b,01101100b,00001100b,11100000b
db 10011110b,01101100b,01101100b,01101100b,10000010b
;;;MA HIEN CAC SO TU O TOI 9

org 285h
db 10000000b,01101110b,01101110b,01101110b,10000000b,00000000b,01101100b,01101100b,10001100b,11110010b,10000010b,01111100b,01111100b,01111100b,01111100b
db 01111100b,00000000b,01111100b,01111100b,10000010b,00000000b,01101100b,01101100b,01111100b,01111100b,00000000b,01101110b,01101110b,01111110b,01111110b
db 00000000b,01111100b,01101100b,01101100b,01100000b,00000000b,11101110b,11101110b,11101110b,00000000b,11111110b,01111100b,00000000b,01111100b,11111110b
db 11111010b,01111100b,00000010b,01111110b,11111110b,00000000b,11101110b,11010110b,10111010b,01111100b,00000000b,11111100b,11111100b,11111100b,11111100b
db 00000000b,01111110b,11001110b,01111110b,00000000b,00000000b,10011110b,11101110b,11110010b,00000000b,00000000b,01111100b,01111100b,01111100b,00000000b
db 00000000b,01101110b,01101110b,01101110b,10011110b,10000010b,01111100b,01110100b,01111000b,10000000b,00000000b,01101110b,01100110b,01101010b,10011100b
db 10011000b,01101100b,01101100b,01101100b,10110010b,01111110b,01111110b,00000000b,01111110b,01111110b,00000000b,11111100b,11111100b,11111100b,00000000b
db 00000110b,11111010b,11111100b,11111010b,00000110b,00000010b,11111100b,11110010b,11111100b,00000010b,00111000b,11010110b,11101110b,11010110b,00111000b
db 00111110b,11011110b,11100000b,11011110b,00111110b,01111000b,01110100b,01101100b,01011100b,00111100b,11111111b,11111111b,11111111b,11111111b,11111111b,
;;;MA HIEN CAC CHU A, B, C, D, ...........F, DAU CACH


;chuong trinh chinh Main
org 0100h
main:
mov ie,#83H
mov ip,01H
mov tmod,#12H
mov th0,#00h
mov tl0,#00h
setb it0
mov p3,#0FFh
acall ramc
mov th1,#00h
mov tl1,#00h
setb tr0
setb tr1
here:
ajmp here
interr:
cjne r6,#0ffh,sk
mov r6,#00h
acall disp
sjmp sk1
sk:
mov r6,#0ffh
sk1:
clr tf0
ret


;chuong trinh ngat EXT0
interr1:
clr tr1
clr tr0
mov a,th1
mov r1,a
mov a,tl1
mov r0,a
mov r3,#00h
mov r2,#160
acall div16_16
mov a,r2
subb a,0ffh
mov th0,a
mov tl0,a
mov th1,#00h
mov tl1,#00h
setb tr1
setb tr0
mov r0,#23h
mov r5,#00h
mov r6,#00h
ret

ramc:
mov dptr,#600h
mov r7,#30
mov r0,#40h

loop1:
mov a,r7
subb a,#01h
movc a,@a+dptr
mov @r0,a
dec r0
djnz r7,loop1
ret

disp:
cjne r5,#5,continue
mov a,@r0
cjne a,#'[',space
mov p1,#11111111b
sjmp cont
space:
mov p1,#11111110b
cont:
inc r0
mov r5,#00h
ajmp neglect
continue:
mov a,@r0
clr c
subb A,#30h
mov b,#05
mul AB
mov dptr,#230h
add a,r5
movc A,@A+DPTR
mov p1,a
inc r5
neglect:
ret


org 600h
msg:
db 'TRUONG THE ANH[DISPLAY[[[[[[[[[[[[[[[[[[[[',0 ;;;;mã chữ mà mình cần hiển thị



div16_16:
CLR C
MOV R4,#00h
MOV R5,#00h
MOV B,#00h
div1:
INC B
MOV A,R2
RLC A
MOV R2,A
MOV A,R3
RLC A
MOV R3,A
JNC div1
div2:
MOV A,R3
RRC A
MOV R3,A
MOV A,R2c
RRC A
MOV R2,A
CLR C
MOV 07h,R1
MOV 06h,R0
MOV A,R0
SUBB A,R2
MOV R0,A
MOV A,R1
SUBB A,R3
MOV R1,A
JNC div3
MOV R1,07h
MOV R0,06h
div3:
CPL C
MOV A,R4
RLC A
MOV R4,A
MOV A,R5
RLC A
MOV R5,A
DJNZ B,div2
MOV R3,05h
MOV R2,04h
RET

end



Một số hình ảnh mô tả cách làm (sơ đồ nguyên lý và phần cứng):
[You must be registered and logged in to see this link.]

a ơi cho e xin mạch nguyên lý với.link ko ddown về dc

up mediefire di. ko download duoc ku oi.

Cac ban co the lay bai bao cao trong facbook -->> HỘI NHỮNG NGƯỜI YÊU ĐIÊN TỬ -->> tai lieu -->> bao cao do an

Cho mình xin cái link đi !