nwj.rar_报站器_自动报站

ORG 0000H LJMP MAIN ORG 0013H; LJMP chaxun ORG 0100H MAIN: SETB EA SETB EX1 ;允许外部中断1 CLR IT1;电平触发方式 MOV A,#2FH MOV P3,A; CLR P2.6 ;关闭数码管显示 CLR P2.7 MOV A,#38H ; LCALL WR_CON MOV A,#0CH ;开显示，不显示光标 LCALL WR_CON MOV A,#01H ;清屏 ACALL WR_CON xunhuan: MOV DPTR,#TABDIS1 ACALL DISPLAY MOV DPTR,#TABDIS2 ACALL DISPLAY MOV DPTR,#TABDIS3 ACALL DISPLAY LJMP xunhuan; DISPLAY: PUSH ACC push p3 MOV R1,#00H; MOV A,#80H ;设置DDRAM地址，显示第一行首地址 LCALL WR_CON ;调用写指令子程序 MOV R2,#16 ;一行显示16个字符 LCALL XIANSHI ;调用显示子程序 MOV A,#0C0H ;设置DDRAM地址，在第二行显示 LCALL WR_CON MOV R2,#16 LCALL XIANSHI LCALL DELAY1 pop p3 POP ACC RET XIANSHI: MOV A,R1 MOVC A,@A+DPTR ;取字符代码 MOV P0,A ACALL WR_DATA ;调用显示数据子程序 INC R1 DJNZ R2,XIANSHI ;一行显示完 RET ;写指令子程序 WR_CON:PUSH ACC MOV P0,A CLR P3.5 ;RS=RW=0 CLR P3.4 ;LCDEN形成高脉冲，写指令 LCALL DELAY SETB P3.4 LCALL DELAY CLR P3.4 POP ACC RET ;显示数据子程序 WR_DATA:PUSH ACC MOV P0,A SETB P3.5 ;RS=1，RW=0 CLR P3.4 ;LCDEN形成高脉冲，为写数据 LCALL DELAY SETB P3.4 LCALL DELAY CLR P3.4 POP ACC RET chaxun:PUSH DPL PUSH DPH PUSH ACC CLR EA;关中断 LCALL DELAY JB P3.3,BACK;消除键抖动 MOV A,#0F7H;给行赋低电平 MOV P3,A; ;判断是否为第一个键被按下 JB P3.4,K1;第一个键没被按下，转到检查第二个键 MOV DPTR,#S18;第一个键按下时，显示第一站的站号和站 LCALL fengming ;蜂鸣 LCALL DISPLAY;显示 JNB P3.4,$ SJMP BACK ;判断是否为第二个键被按下 K1:JB P3.6,K2;第二个键没被按下，转到检查第三个键 MOV DPTR,#S20;第二个键按下时，显示第二站的站号和站名 LCALL fengming;蜂鸣 LCALL DISPLAY;显示 JNB P3.6,$ SJMP BACK ;判断是否为第三个键被按下 K2:JB P3.7,BACK;第三个键没被按下，返回 MOV DPTR,#S21;第三个键按下时，显示第三站的站号和站名 LCALL fengming ;蜂鸣 LCALL DISPLAY;显示 JNB P3.7,$ SJMP BACK BACK:SETB EA;开中断 MOV A,#2FH;恢复可以产生中断的状态 MOV P3,A POP ACC; POP DPH POP DPL RETI;返回 ;显示长延时 DELAY1: MOV R3,#0FFH D3: MOV R0,#9FH D2: MOV R4,#0FH D1: DJNZ R4,D1 DJNZ R0,D2 DJNZ R3,D3 RET ;短暂延时 DELAY: MOV R5,04FH D4: DJNZ R5,D4 RET ;蜂鸣 fengming: MOV R3,#4FH D6: MOV R0,#9FH D5: MOV R4,#0FH D7: DJNZ R4,D7 CPL P2.3 DJNZ R0,D5 DJNZ R3,D6 SETB P2.3 RET ;显示的字符列表 TABDIS1: DB 'NO.154 ' DB 'WELCOME ' TABDIS2: DB '1ST-R TIME:5:00 ' DB 'LST-R TIME:0:00 ' TABDIS3: DB 'ORIGIN:1 ' DB 'DESTINATION:2 ' S18:DB 'S18: ' DB ' xiang san ' S20:DB 'S20: ' DB ' tian tan ' S21:DB 'S21: ' DB ' jun bo ' END