南昌大学单片机设计程序带机器码的程序选编.docVIP

ORG 0000H 0000 020030 LJMP MAIN ORG 0003H ;外部中断0入口 0003 020060 LJMP PAN2 ORG 0030H MAIN: 0030 D2AF SETB EA ;打开中断总允许 0032 D2A8 SETB EX0 ;打开外部中断0允许 0034 7590F6 MOV P1,#0F6H ;给键盘赋初值 0037 7C1E MOV R4,#30 ;设置t0延时次数，即任务中延 ;时1.5s的功能选择，因为定时器 ;最多计时65536us，所以需要多次计时累计 0039 758C3C MOV TH0,#3CH ;t0赋初值 003C 758AB0 MOV TL0,#0B0H 003F 758901 MOV TMOD,#01H ;设置t0工作方式为方式1 0042 D288 SETB IT0 ;打开中断0 ;学号滚动显示程序 0044 900172 XUEHAO: MOV DPTR,#XTAB 0047 7A05 MOV R2,#5 ;从上到下滚动分四次,另加一次黑屏 0049 7B06 XUEHAO2:MOV R3,#6 ;每次发送6个显示码进数码管 004B 7400 XUEHAO1:MOV A,#0 ;A清零 004D 93 MOVC A,@A+DPTR ;查表，给A赋值 004E F599 MOV SBUF,A ;将A中数据发送到串行口 0050 3099FD JNB TI,$ ;判断串行口发送是否完毕 0053 C299 CLR TI ;清除中断标志位，准备进行下一次发送 0055 A3 INC DPTR ;DPTR加1，指向下一个字型码地址 0056 DBF3 DJNZ R3,XUEHAO1 ;判断是否到了6个 0058 120134 LCALL DELAY1S ;延迟1s，进行显示 005B DAEC DJNZ R2,XUEHAO2 ;判断从下滚动三次是否完毕 005D 020044 LJMP XUEHAO ;新一轮显示 ;键盘程序 0060 F570 PAN2: MOV 70H,A ;响应中断，保存原数据,保护现场 0062 858271 MOV 71H,DPL 0065 858372 MOV 72H,DPH 0068 8B73 MOV 73H,R3 006A 8A74 MOV 74H,R2 006C 8D75 MOV 75H,R5 006E 8E76 MOV 76H,R6 0070 8F77 MOV 77H,R7 0072 12014D LCALL DELAY10MS ;延时10MS判断按键是否按下，没按下则返回 0075 20B24B JB P3.2,PAN1 0078 900190 MOV DPTR,#STAB ;键值显示表地址送给DPTR 007B 120121 LCALL JIANZHI ;调用判断键值的程序 007E