电动小汽跷跷板源程序.docx
- 文档编号:6893901
- 上传时间:2023-01-12
- 格式:DOCX
- 页数:13
- 大小:17.08KB
电动小汽跷跷板源程序.docx
《电动小汽跷跷板源程序.docx》由会员分享,可在线阅读,更多相关《电动小汽跷跷板源程序.docx(13页珍藏版)》请在冰豆网上搜索。
电动小汽跷跷板源程序
该小车的功能有:
寻迹,寻线(点),寻找平衡,声光报警,显示(时钟,分段,倒计时),小车前进、倒退、停止等待5秒。
源汇编程序如下:
(供大家参考,还未修改)
;================================== 小车程序=========================
;--------------------------------蔡伟------------2007.9.20--------------
ORG 0000H
AJMP MAIN
ORG 000BH
AJMP TIME
ORG 001BH
AJMP MAI_CHONG
MAIN:
MOV 22H,#01H
MOV 23H,#0AH
MOV 24H,#00H
MOV 25H,#04H
MOV 28H,#01H
MOV 33H,#0FFH
MOV 34H,#0FFH
MOV 40H,#01H
MOV 44H,#01H
CLR A
MOV 30H,A
MOV 31H,A
MOV 32H,A
MOV 3BH,#05H
DENG_DAI:
LCALL DEEY
DJNZ 3BH,DENG_DAI
MOV TMOD,#11H
MOV 20H,#14H
MOV TH0,#3CH
MOV TL0,#0B0H
MOV TH1,#3CH
MOV TH1,#0B0H
SETB ET1
SETB ET0
SETB TR1
SETB TR0
SETB EA
START:
LCALL SU_DU
LCALL XUN_XIAN
LCALL XUN_TIE
LCALL SHOW
SJMP START
;==========================================时间程序=====================================
TIME:
PUSH PSW
PUSH ACC
MOV TH0,#3CH
MOV TL0,#0B0H
DJNZ 20H,RETUNT
MOV 20H,#14H
MOV A,#01H
ADD A,32H
DA A
MOV 32H,A
CJNE A,#60H,RETUNT
MOV 32H,#00H
MOV A,#01H
ADD A,31H
DA A
MOV 31H,A
CJNE A,#60H,RETUNT
MOV 31H,#00H
MOV A,#01H
ADD A,30H
DA A
MOV 30H,A
CJNE A,#24H,RETUNT
MOV 30H,#00H
RETUNT:
POP ACC
POP PSW
RETI
;=============================================脉冲产生程序================================
MAI_CHONG:
PUSH PSW
PUSH ACC
MOV TH1,#3CH
MOV TL1,#0B0H
MOV A,22H
JB ACC.1,QIAN_DABU
JB ACC.2,HOU_DABU
JB ACC.3,QIAN_XIAOBU
JB ACC.4,HOU_XIAOBU
JB ACC.5,W1
JB ACC.6,W2
RETU:
POP ACC
POP PSW
RETI
W1:
LJMP GUAI_ZHUO
W2:
LJMP GUAI_YOU
QIAN_DABU:
DJNZ 23H,RETU
MOV A,24H
CPL A
MOV 24H,A
JNZ ZHENG_MAI
MOV TH1,#3CH
MOV TL1,#0B0H
MOV 23H,#0AH
AA:
SETB P3.0
CLR P3.1
SETB P3.2
CLR P3.3
SJMP RETU
ZHENG_MAI:
MOV TH1,#3CH
MOV TL1,#0B0H
MOV 23H,#0AH
BB:
CLR P3.0
CLR P3.1
CLR P3.2
CLR P3.3
SJMP RETU
HOU_DABU:
DJNZ 23H,RETU
MOV A,24H
CPL A
MOV 24H,A
JNZ ZHENG_MAI
MOV TH1,#3CH
MOV TL1,#0B0H
MOV 23H,#0AH
AA1:
SETB P3.1
CLR P3.0
SETB P3.3
CLR P3.2
SJMP RETU
QIAN_XIAOBU:
DJNZ 25H,RETU
MOV 26H,#04H
MOV TH1,#3CH
MOV TL1,#0B0H
DJNZ 26H,CC
MOV 25H,#04H
SJMP AA
CC:
MOV 25H,#04H
SJMP BB
RETUU:
POP ACC
POP PSW
RETI
HOU_XIAOBU:
DJNZ 25H,RETUU
MOV 26H,#04H
MOV TH1,#3CH
MOV TL1,#0B0H
DJNZ 26H,DD1
DD1:
MOV 25H,#04H
SJMP BB
GUAI_ZHUO:
DJNZ 25H,RETUU
MOV A,24H
CPL A
MOV 24H,A
JNZ AA2
MOV TH1,#3CH
MOV TL1,#0B0H
MOV 25H,#04H
LJMP AA
AA2:
MOV TH1,#3CH
MOV TL1,#0B0H
MOV 25H,#04H
CLR P3.0
CLR P3.1
SETB P3.2
CLR P3.3
LJMP RETU
GUAI_YOU:
DJNZ 25H,RETUU
MOV A,24H
CPL A
MOV 24H,A
JNZ AA3
MOV TH1,#3CH
MOV TL1,#0B0H
MOV 25H,#04H
LJMP AA
AA3:
MOV TH1,#3CH
MOV TL1,#0B0H
MOV 25H,#04H
SETB P3.0
CLR P3.1
CLR P3.2
CLR P3.3
LJMP RETU
;==========================================选择速度程序=================================
SU_DU:
MOV A,22H
JB ACC.0,QIAN_KUAI
JB ACC.7,HOU_KUAI
RET
QIAN_KUAI:
SETB P3.0
CLR P3.1
SETB P3.2
CLR P3.3
RET
HOU_KUAI:
SETB P3.1
CLR P3.0
SETB P3.3
CLR P3.2
RET
;============================================寻线程序================================
XUN_XIAN:
MOV A,40H
JZ GG
MOV 41H,22H
MOV 40H,#00H
GG:
MOV A,P1
JB ACC.0,FF
JB ACC.1,HH
MOV 22H,41H
MOV 41H,#01H
RET
FF:
MOV 22H,#20H
SETB P0.4
LCALL DELLY
CLR P0.4
RET
HH:
MOV 22H,#40H
SETB P0.5
LCALL DELLY
CLR P0.5
RET
;==========================================寻铁程序=====================================
XUN_TIE:
MOV 43H,42H
LCALL DELLY
MOV A,P1
MOV 42H,A
MOV A,40H
JZ II
MOV 40H,#00H
HEE:
RET
II:
MOV A,43H
JB ACC.2,HEE
MOV A,42H
JNB ACC.2,HEE
MOV A,28H
RL A
MOV 28H,A
JB ACC.1,KY1
JB ACC.2,KY2
JB ACC.3,KY3
JB ACC.4,KY4
JB ACC.5,KY5
JB ACC.6,KY6
RET
KY1:
RET
KY2:
MOV 22H,#01H
MOV 33H,32H
ME:
MOV A,P1
LCALL DEEY
JB ACC.3,YY2
JNB ACC.4,YY3
MOV 22H,#08H
MOV 44H,#01H
RET
YY2:
JB ACC.4,YY3
MOV 22H,#10H
MOV 44H,#01H
RET
YY3:
LCALL DEEY
MOV A,44H
RL A
MOV 44H,A
CJNE A,#08H,ME
MOV A,32H
SUBB A,33H
MOV 33H,A
MOV 44H,#01H
SETB P0.6
LCALL DEEY
CLR P0.6
LCALL FIVE
MOV 33H,#0FFH
MOV 39H,32H
MOV 22H,#01H
RET
KY3:
MOV 22H,#00H
MOV A,32H
SUBB A,39
MOV 33H,A
CLR P3.0
CLR P3.1
CLR P3.2
CLR P3.3
SETB P0.6
LCALL DELLY
LCALL FIVE
MOV 33H,#0FFH
MOV 22H,#80H
RET
KY4:
RET
KY5:
RET
KY6:
MOV 22H,#00H
CLR P3.0
CLR P3.1
CLR P3.2
CLR P3.3
MOV 36H,31H
MOV 37H,32H
HERE:
MOV 31H,36H
MOV 32H,37H
SJMP HERE
;=======================================显示程序========================================
SHOW:
MOV R0,#3AH
MOV R1,#34H
MOV R2,#07H
MOV 5BH,#04H
LP0:
MOV A,@R1
MOV @R0,A
MOV A,R2
SWAP A
XCHD A,@R0
MOV P2,A
LCALL DELLY
DEC R2
MOV A,R2
XCHD A,@R0
MOV A,@R0
SWAP A
MOV P2,A
LCALL DELLY
DEC R2
DEC R1
DJNZ 5BH,LP0
RET
DELLY:
MOV 5AH,#04H
DL:
MOV R6,#0FFH
DL1:
DJNZ R6,DL1
DJNZ 5AH,DL
RET
;===========================================停车5秒,并显示程序==========================
FIVE:
MOV 22H,#00H
CLR P3.0
CLR P3.1
CLR P3.2
CLR P3.3
MOV 38H,#05H
TTT0:
MOV 34H,#00H
INC 34H
MOV R4,#7DH
TTT1:
LCALL SHOW
DJNZ R4,TTT1
DJNZ 38H,TTT0
MOV 34H,#0FFH
RET
DEEY:
MOV R5,#3DH
EEY:
LCALL SHOW
DJNZ R5,EEY
RET
END
《测电机转速》
单片机原代码下载 2007-11-2918:
34 阅读7 评论0
字号:
大大 中中 小小
在校期间,做了一个测速机,该测速机通过一个光敏传感器当电机每转一周,单片机记数值加一,同过每半秒中断记数到的电机转动的周数,在利用最近4秒采集的数进行加权平均算法,计算出电机的转数并显示。
汇编程序如下:
A1 EQU 24H
A2 EQU 18H
A3 EQU 12H
A4 EQU 06H
ORG 0000H
A
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 电动 跷跷板 源程序