拨码开关程序

$include(c8051f360.inc)
DAT BIT P1.0
CLK BIT P1.1
DAT1 BIT P1.4
CLK1 BIT P1.5
ORG 0000H
AJMP MAIN
ORG 0030H
MAIN:
MOV SFRPAGE,#00H
MOV PCA0MD ,#00H //关看门狗
MOV P1,#0FFH
MOV 30H,#10
MOV 31H,#10
MOV 32H,#06
MOV 33H,#05
MOV 34H,#04
MOV 35H,#03
MOV 36H,#02
MOV 37H,#01
MOV 38H,#10
MOV 39H,#10 // 显示缓冲单元
LCALL INIT //360系统初始化
CALL DISP//
CALL DELAY
CALL DELAY
A1: CALL KEY_DOOR//
CALL DISP
CALL DELAY//
AJMP A1//
//-------------------------------------------------------------
INIT: MOV SFRPAGE, #0FH
MOV OSCICN , #83H //使能内部高频振荡器，且不分频=24.5MHZ
MOV RSTSRC , #40H //使能VDD
MOV P1MDOUT, #27H //P1.4(165的输出端)为漏极开路
//P1.5 P1.2 P1.1 P1.0为推挽输出MOV XBR1, #40H //使能交叉开关
MOV SFRPAGE, #00H
RET
//------------------------------------------------------------
KEY_DOOR:
JB P2.0,B1//
MOV 32H,#0FFH//拨码开关1闭合（ON）——一号数码管灭
AJMP B11//
B1: MOV 32H,#01H //拨码开关1断开(OFF)——一号数码恢复为1 B11: JB P2.1, B2//
MOV 33H,#0FFH//拨码开关2 ON——二号数码管灭
AJMP B21//
B2: MOV 33H,#02H //拨码开关2 OFF——二号数码恢复为2
B21: JB P2.2,B3//
MOV 34H,#0FFH//拨码开关3 ON——三号数码管灭
AJMP B31
B3: MOV 34H,#03H// 拨码开关3 OFF——三号数码恢复为3
B31: JB P2.3,B4//
MOV 35H,#0FFH//拨码开关4 ON——四号数码管灭
AJMP B41
B4: MOV 35H,#04H //拨码开关4 OFF——四号数码恢复为4
B41: JB P2.4,B5
MOV 36H,#0FFH//拨码开关5 ON——五号数码管灭
AJMP B51
B5: MOV 36H,#05H//拨码开关5 OFF——五号数码恢复为5
B51: JB P2.5,B6
MOV 37H,#0FFH//拨码开关6 ON——六号数码管灭
AJMP B61
B6: MOV 37H,#06H//拨码开关6 OFF——六号数码恢复为6
B61:
RET
//--------------------------------------------------------
//显示子程序
DISP: MOV R4,#10
MOV R0,#30h
MOV DPTR,#TAB
LOOP1:
MOV A,@R0
MOVC A,@A+DPTR
MOV R5,#08H
LOOP:
RRC A
CLR CLK
NOP
MOV DAT,C
SETB CLK
DJNZ R5,LOOP
INC R0
DJNZ R4,LOOP1
RET
TAB: DB 88h,0ebh,4ch,49h ,2bh,19h,18h,0cbh,08h,09h,00H
//-------------------------------------------------------
//延时子程序
DELAY:MOV R7,#0FFH ;;;######延时1s计算6*{2+1+ff*[2+1+ff*(2+1)]} /大约M3:MOV R6,#0FFH
M4:MOV R5,#0FH
DJNZ R5,$;
DJNZ R6,M4;
DJNZ R7,M3
RET
END。