key.s

16个单片机c语言实验程序

	.module key.c
	.area text(rom, con, rel)
	.dbfile D:\16实验程序\key\key.c
	.dbfunc e s_ms _s_ms fV
;              t -> R16,R17
	.even
_s_ms::
	.dbline -1
	.dbline 11
; //独立按键的程序
; //使用按键：k1,k2,k3,k4
; //按下按键时相应的led会点亮
; 
; #define uchar unsigned char 
; #define uint unsigned int 
; #include<iom128v.h>
; 
; //延时函数
; void s_ms(unsigned int t)
; {
	.dbline 12
;     for(;t>1;t--)
	xjmp L5
L2:
	.dbline 13
;     {
	.dbline 14
;     }
L3:
	.dbline 12
	subi R16,1
	sbci R17,0
L5:
	.dbline 12
	ldi R24,1
	ldi R25,0
	cp R24,R16
	cpc R25,R17
	brlo L2
X0:
	.dbline -2
L1:
	.dbline 0 ; func end
	ret
	.dbsym r t 16 i
	.dbend
	.dbfunc e main _main fV
;            key -> R10
;            tem -> R20
	.even
_main::
	.dbline -1
	.dbline 18
; }
; 
; void main()
; {
	.dbline 21
; uchar tem,key;
; //端口初始化
; DDRD=0xff;
	ldi R24,255
	out 0x11,R24
	.dbline 22
; PORTD=0xff;
	out 0x12,R24
	.dbline 23
; DDRB=0x00;
	clr R2
	out 0x17,R2
	.dbline 24
; PORTB=0xff;
	out 0x18,R24
	xjmp L8
L7:
	.dbline 26
; while(1)
;    {
	.dbline 27
;    tem=PINB;       //读取端口b
	in R20,0x16
	.dbline 28
;    if(tem!=0xff)   //判断是否有按键按下
	cpi R20,255
	breq L10
X1:
	.dbline 29
;      {
	.dbline 30
; 	  s_ms(500);   //排除按键抖动和抗干扰
	ldi R16,500
	ldi R17,1
	xcall _s_ms
	.dbline 31
; 	  key=PINB;
	in R10,0x16
	.dbline 32
; 	  if(key==tem)
	cp R10,R20
	brne L12
X2:
	.dbline 33
; 	    {
	.dbline 34
;          PORTD=key;  //端口D输出按键值
	out 0x12,R10
	.dbline 35
; 		 }
L12:
	.dbline 36
; 	  }
L10:
	.dbline 37
;    }
L8:
	.dbline 25
	xjmp L7
X3:
	.dbline -2
L6:
	.dbline 0 ; func end
	ret
	.dbsym r key 10 c
	.dbsym r tem 20 c
	.dbend
; }