|
đây là phần dịch đo tốc độ động cơ dùng encoder = phần mềm keilc mọi người cùng tham khảo nhé: ORG 0000H
LJMP MAIN
ORG 000BH
LJMP TIMER
ORG 0013H
LJMP DEM
ORG 0030H
MAIN:
MOV TMOD,#01H
MOV TH0,#HIGH(-50000)
MOV TL0,#LOW(-50000)
MOV IE,#10000111B
SETB TR0
SETB IT1
MOV 40H,#0
MOV R3,#20
HERE:
SJMP HERE
DEM:
INC 40H
RETI
TIMER:
CLR TF0 ;xoa co tran TF0
MOV TH0,#HIGH(-50000) ;nap gia tri dem cho timer
MOV TL0,#LOW(-50000) ;nap gia tri dem cho timer
DJNZ R3,EXIT ;giam R3 roi nhay den nhan ?it neu R=0
MOV R3,#20 ;nap lai gia tri cho R3
CALL HIENTHI ;goi chuong trinh hien thi
EXIT:
RETI ;quay lai chuong trình chinh khi goi ngat
HIENTHI:
MOV A,40H ;nap gia tri cua o nho 40h vao thanh ghi a
MOV B,#10 ;nap gia tri cho thanh ghi b=10
DIV AB ;chia a cho b
MOV DPTR,#MALED ;nap chuong trinh ma led 7 thanh vao thanh ghi dia chi
MOVC A,@A+DPTR
MOV P2,A ;dua gia tri thanh ghi a ra cong p0
SETB P1.0 ;lap gia tri chan p2.0
CLR P1.0 ;xoa chan p2.0
MOV A,B ;nap gia tri trong thanh ghi b vao thanh ghi b
MOVC A,@A+DPTR
MOV P2,A
SETB P1.1
CLR P1.1
MOV 40H,#0
JMP EXIT
MALED : DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H
END
|