irr.s

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

	.module irr.c
	.area text(rom, con, rel)
	.dbfile ..\..\..\..\..\DOCUME~1\wdd\MYDOCU~1\16实验程序\红外接收\irr.c
	.dbfile C:\DOCUME~1\wdd\MYDOCU~1\16实验程序\红外接收\1602.h
	.dbfunc e s_ms _s_ms fV
;             ms -> R16,R17
	.even
_s_ms::
	.dbline -1
	.dbline 9
; //Atmega16的红外遥控器接收试验
; //使用1602液晶进行显示，
; #include<iom16v.h>
; #include"1602.h"
; #pragma interrupt_handler ext_int0_isr:2  //指定外部中断函数
; #define uchar unsigned char 
; #define uint unsigned int 
; 
; uchar irr_b=0,s_s=0;
	.dbline 10
; uchar wb=0,a=0,ds=0;
	xjmp L5
L2:
	.dbline 10
L3:
	.dbline 10
	subi R16,1
	sbci R17,0
L5:
	.dbline 10
	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 ms 16 i
	.dbend
	.dbfunc e busy _busy fV
;           temp -> R20
	.even
_busy::
	st -y,R20
	.dbline -1
	.dbline 15
; long da=0;
; uchar d1,d2,d3,d4;
; uchar ten_1,ten_2,ten_3,ten_4,i;
; 
; //中断接收
	.dbline 17
; void ext_int0_isr(void)
; {
	ldi R16,500
	ldi R17,1
	xcall _s_ms
	.dbline 18
; if(irr_b==0)        //第一个中断
	cbi 0x1b,5
	.dbline 19
;   {
	ldi R16,500
	ldi R17,1
	xcall _s_ms
	.dbline 20
;   irr_b=1;          //状态为：开始接收
	sbi 0x1b,6
	.dbline 21
;   TCNT1L=0x00;      //定时器清零
	ldi R16,500
	ldi R17,1
	xcall _s_ms
	xjmp L8
L7:
	.dbline 23
;   }
; else if(irr_b==1)   //第二个以后的中断
	.dbline 24
;   {
	sbi 0x1b,7
	.dbline 25
;    a=TCNT1L;        //读取定时器的值
	ldi R16,500
	ldi R17,1
	xcall _s_ms
	.dbline 26
;    //判断是引导，还是数据
	clr R2
	out 0x11,R2
	.dbline 27
;    if((170<a)&&(a<235))       //引导
	ldi R24,255
	out 0x12,R24
	.dbline 28
;      {
	ldi R16,500
	ldi R17,1
	xcall _s_ms
	.dbline 29
;       wb=0;                   //数据计数清零     
	in R20,0x10
	andi R20,128
	.dbline 30
; 	  da=0;                   //数据清零
	ldi R16,500
	ldi R17,1
	xcall _s_ms
	.dbline 31
; 	  TCNT1L=0x00;            //定时器清零 
	ldi R24,255
	out 0x11,R24
	.dbline 32
; 	  }
	out 0x12,R24
	.dbline 33
;    else if((8<a)&&(a<25))     //数据0
	ldi R16,500
	ldi R17,1
	xcall _s_ms
	.dbline 34
;      { 
	cbi 0x1b,7
	.dbline 35
;      wb++;
	ldi R16,500
	ldi R17,1
	xcall _s_ms
	.dbline 36
;      da=(da<<1);
L8:
	.dbline 22
	tst R20
	brne L7
X1:
	.dbline -2
L6:
	.dbline 0 ; func end
	ld R20,y+
	ret
	.dbsym r temp 20 c
	.dbend
	.dbfunc e writecom _writecom fV
;            com -> R10
	.even
_writecom::
	st -y,R10
	mov R10,R16
	.dbline -1
	.dbline 41
; 	 TCNT1L=0x00;
;      }
;    else if((25<a)&&(a<45))    //数据1
;      {
;      wb++;
	.dbline 42
; 	 da=(da<<1)+1;
	xcall _busy
	.dbline 43
; 	 TCNT1L=0x00;
	ldi R16,500
	ldi R17,1
	xcall _s_ms
	.dbline 44
;      }
	cbi 0x1b,5
	.dbline 45
; }
	ldi R16,500
	ldi R17,1
	xcall _s_ms
	.dbline 46
; if(wb==32)                    //数据长度够32位
	cbi 0x1b,6
	.dbline 47
;   {
	ldi R16,500
	ldi R17,1
	xcall _s_ms
	.dbline 48
;   irr_b=0;                    //状态为停止接收
	sbi 0x1b,7
	.dbline 49
;   wb=0;                       //数据计数清零
	ldi R16,500
	ldi R17,1
	xcall _s_ms
	.dbline 50
;   s_s=1;                      //打开显示许可
	out 0x12,R10
	.dbline 51
;   }
	ldi R16,500
	ldi R17,1
	xcall _s_ms
	.dbline 52
; }
	cbi 0x1b,7
	.dbline 53
; 
	ldi R16,500
	ldi R17,1
	xcall _s_ms
	.dbline -2
L10:
	.dbline 0 ; func end
	ld R10,y+
	ret
	.dbsym r com 10 c
	.dbend
	.dbfunc e LcdInit _LcdInit fV
	.even
_LcdInit::
	.dbline -1
	.dbline 58
; //定时器T1初始化
; void t1_init()
; {
; TCCR1B=0x00;   //关闭定时器
; TCNT1H=0x00;   //定时器初值
	.dbline 59
; TCNT1L=0x00;
	ldi R24,255
	out 0x11,R24
	.dbline 60
; TCCR1A=0x00;   //普通模式
	clr R2
	out 0x12,R2
	.dbline 61
; TCCR1B=0x05;   //1024分频
	ldi R16,56
	xcall _writecom
	.dbline 62
; }
	ldi R16,1000
	ldi R17,3
	xcall _s_ms
	.dbline 63
; 
	ldi R16,1
	xcall _writecom
	.dbline 64
; //主函数
	ldi R16,1000
	ldi R17,3
	xcall _s_ms
	.dbline 66
; main()
; {
	ldi R16,2
	xcall _writecom
	.dbline 67
; //初始化端口
	ldi R16,200
	ldi R17,0
	xcall _s_ms
	.dbline 68
; DDRA=0xff;
	ldi R16,6
	xcall _writecom
	.dbline 69
; PORTA=0x00;
	ldi R16,200
	ldi R17,0
	xcall _s_ms
	.dbline 70
; DDRB=0xff;
	ldi R16,12
	xcall _writecom
	.dbline 71
; DDRD=0x00;         //中断输入
	ldi R16,200
	ldi R17,0
	xcall _s_ms
	.dbline 72
; PORTD=0xff;        //内部上拉
	ldi R16,56
	xcall _writecom
	.dbline 73
; 
	ldi R16,200
	ldi R17,0
	.dbline -2
L11:
	.dbline 0 ; func end
	xjmp _s_ms
	.dbend
	.dbfunc e writedata _writedata fV
;           data -> R10
	.even
_writedata::
	st -y,R10
	mov R10,R16
	.dbline -1
	.dbline 78
; t1_init();         //定时器t1初始化
; 
; MCUCR = 0x02;      //下降沿中断
; GICR  = 0x40;      //开外部中断int_0
; TIMSK = 0x00;      
	.dbline 79
; SREG=0x80;         //开全局中断
	xcall _busy
	.dbline 80
; s_s=1;             //开机进行一次显示
	ldi R16,200
	ldi R17,0
	xcall _s_ms
	.dbline 81
; while(1)
	sbi 0x1b,5
	.dbline 82
;     {
	ldi R16,200
	ldi R17,0
	xcall _s_ms
	.dbline 83
; 	ds=TCNT1L;
	cbi 0x1b,6
	.dbline 84
; 	if(ds>250)     //定时器超时，接收复位
	ldi R16,200
	ldi R17,0
	xcall _s_ms
	.dbline 85
; 	  {
	sbi 0x1b,7
	.dbline 86
; 	  TCNT1L=0;
	ldi R16,200
	ldi R17,0
	xcall _s_ms
	.dbline 87
; 	  irr_b=0;
	out 0x12,R10
	.dbline 88
; 	  da=0;
	ldi R16,200
	ldi R17,0
	xcall _s_ms
	.dbline 89
;       wb=0; 
	cbi 0x1b,7
	.dbline 90
;       s_s=0;
	ldi R16,200
	ldi R17,0
	xcall _s_ms
	.dbline -2
L12:
	.dbline 0 ; func end
	ld R10,y+
	ret
	.dbsym r data 10 c
	.dbend
	.dbfunc e readdata _readdata fc
;           temp -> R10
	.even
_readdata::
	st -y,R10
	.dbline -1
	.dbline 96
; 	  }
; 	if(s_s==1)     //显示开关打开，开始显示
; 	  {
; 	  SREG=0x00;     //关闭全局中断
;       LcdInit();     //1602初始化
; 	  //显示设备码
	.dbline 98
; 	  d1=da>>24;
; 	  ten_1=d1/100;
	xcall _busy
	.dbline 99
; 	  ten_2=(d1-(100*ten_1))/10;
	ldi R16,200
	ldi R17,0
	xcall _s_ms
	.dbline 100
; 	  ten_3=d1-(100*ten_1)-ten_2*10;
	sbi 0x1b,5
	.dbline 101
; 	  WriteNum(1,0,ten_1);
	ldi R16,200
	ldi R17,0
	xcall _s_ms
	.dbline 102
; 	  WriteNum(1,1,ten_2);
	sbi 0x1b,6
	.dbline 103
; 	  WriteNum(1,2,ten_3);
	ldi R16,200
	ldi R17,0
	xcall _s_ms
	.dbline 104
; 	  //显示设备码反码
	sbi 0x1b,7
	.dbline 105
; 	  d1=da>>16;
	ldi R16,200
	ldi R17,0
	xcall _s_ms
	.dbline 106
; 	  ten_1=d1/100;
	clr R2
	out 0x11,R2
	.dbline 107
; 	  ten_2=(d1-(100*ten_1))/10;
	ldi R16,200
	ldi R17,0
	xcall _s_ms
	.dbline 108
; 	  ten_3=d1-(100*ten_1)-ten_2*10;
	in R10,0x10
	.dbline 109
; 	  WriteNum(1,4,ten_1);
	ldi R16,200
	ldi R17,0
	xcall _s_ms
	.dbline 110
;   	  WriteNum(1,5,ten_2);
	ldi R24,255
	out 0x11,R24
	.dbline 111
; 	  WriteNum(1,6,ten_3);
	ldi R16,200
	ldi R17,0
	xcall _s_ms
	.dbline 112
; 	  //显示键码
	cbi 0x1b,7
	.dbline 113
; 	  d1=da>>8;
	ldi R16,200
	ldi R17,0
	xcall _s_ms
	.dbline 114
; 	  ten_1=d1/100;
	mov R16,R10
	.dbline -2
L13:
	.dbline 0 ; func end
	ld R10,y+
	ret
	.dbsym r temp 10 c
	.dbend
	.dbfunc e WriteCGRAM _WriteCGRAM fV
;              t -> R10,R11
;              i -> R20,R21
;        pBuffer -> R22,R23
;            num -> R10,R11
	.even
_WriteCGRAM::
	xcall push_xgsetF00C
	movw R22,R18
	movw R10,R16
	.dbline -1
	.dbline 124
; 	  ten_2=(d1-(100*ten_1))/10;
; 	  ten_3=d1-(100*ten_1)-ten_2*10;
; 	  WriteNum(1,8,ten_1);
; 	  WriteNum(1,9,ten_2);
; 	  WriteNum(1,10,ten_3);
; 	  //显示键码反码
; 	  d1=da;
; 	  ten_1=d1/100;
; 	  ten_2=(d1-(100*ten_1))/10;
; 	  ten_3=d1-(100*ten_1)-ten_2*10;
	.dbline 126
; 	  WriteNum(1,12,ten_1);
; 	  WriteNum(1,13,ten_2);
	ldi R16,64
	xcall _writecom
	.dbline 127
; 	  WriteNum(1,14,ten_3);
	sbi 0x1b,5
	.dbline 128
; 	  //复位D端口
	cbi 0x1b,6
	.dbline 129
; 	  DDRD=0x00;    //中断输入
	movw R20,R10
	xjmp L18
L15:
	.dbline 130
;       PORTD=0xff;   //内部上拉
	.dbline 131
; 	  s_s=0;        //关闭显示开关
	movw R30,R22
	ldd R10,z+0
	ldd R11,z+1
	.dbline 132
; 	  SREG=0x80;    //开全局中断
	sbi 0x1b,7
	.dbline 133
;    	  }
	out 0x12,R10
	.dbline 134
; 	}
	cbi 0x1b,7
	.dbline 135
; }
	subi R22,254  ; offset = 2
	sbci R23,255
	.dbline 136
L16:
	.dbline 129
	subi R20,1
	sbci R21,0
L18:
	.dbline 129
	cpi R20,0
	cpc R20,R21
	brne L15
X2:
	.dbline -2
L14:
	.dbline 0 ; func end
	xjmp pop_xgsetF00C
	.dbsym r t 10 i
	.dbsym r i 20 i
	.dbsym r pBuffer 22 pi
	.dbsym r num 10 i
	.dbend
	.dbfunc e WriteMenu _WriteMenu fV
;              t -> R10
;              i -> R22
;        pBuffer -> R20,R21
	.even
_WriteMenu::
	xcall push_xgsetF00C
	movw R20,R16
	.dbline -1
	.dbline 146
	.dbline 148
	ldi R16,128
	xcall _writecom
	.dbline 150
	sbi 0x1b,5
	.dbline 151
	cbi 0x1b,6
	.dbline 152
	ldi R16,50
	ldi R17,0
	xcall _s_ms
	.dbline 153
	clr R22
	xjmp L23
L20:
	.dbline 154
	.dbline 155
	movw R30,R20
	ldd R10,z+0
	.dbline 156
	out 0x12,R10
	.dbline 157
	sbi 0x1b,7
	.dbline 158
	ldi R16,50
	ldi R17,0
	xcall _s_ms
	.dbline 159
	cbi 0x1b,7
	.dbline 160
	subi R20,255  ; offset = 1
	sbci R21,255
	.dbline 161
L21:
	.dbline 153
	inc R22
L23:
	.dbline 153
	cpi R22,16
	brlo L20
X3:
	.dbline 162
	ldi R16,192
	xcall _writecom
	.dbline 164
	sbi 0x1b,5
	.dbline 165
	cbi 0x1b,6
	.dbline 166
	ldi R16,50
	ldi R17,0
	xcall _s_ms
	.dbline 167
	clr R22
	xjmp L27
L24:
	.dbline 168
	.dbline 169
	movw R30,R20
	ldd R10,z+0
	.dbline 170
	out 0x12,R10
	.dbline 171
	sbi 0x1b,7
	.dbline 172
	ldi R16,50
	ldi R17,0
	xcall _s_ms
	.dbline 173
	cbi 0x1b,7
	.dbline 174
	subi R20,255  ; offset = 1
	sbci R21,255
	.dbline 175
L25:
	.dbline 167
	inc R22
L27:
	.dbline 167
	cpi R22,16
	brlo L24
X4:
	.dbline -2
L19:
	.dbline 0 ; func end
	xjmp pop_xgsetF00C
	.dbsym r t 10 c
	.dbsym r i 22 c
	.dbsym r pBuffer 20 pc
	.dbend
	.dbfunc e WriteNum _WriteNum fV
;            num -> R20,R21
;            col -> R10,R11
;            row -> R22,R23
	.even
_WriteNum::
	xcall push_xgsetF00C
	movw R10,R18
	movw R22,R16
	ldd R20,y+6
	ldd R21,y+7
	.dbline -1
	.dbline 185
	.dbline 186
	cpi R22,1
	ldi R30,0
	cpc R23,R30
	brne L29
X5:
	.dbline 186
	movw R22,R10
	subi R22,128  ; offset = 128
	sbci R23,255
	xjmp L30
L29:
	.dbline 187
	movw R22,R10
	subi R22,64  ; offset = 192
	sbci R23,255
L30:
	.dbline 188
	mov R16,R22
	xcall _writecom
	.dbline 189
	cpi R20,0
	cpc R20,R21
	brne L33
X6:
	ldi R24,1
	ldi R25,0
	movw R10,R24
	xjmp L34
L33:
	clr R10
	clr R11
L34:
	ldi R24,9
	ldi R25,0
	cp R24,R20
	cpc R25,R21
	brsh L35
X7:
	ldi R22,1
	ldi R23,0
	xjmp L36
L35:
	clr R22
	clr R23
L36:
	movw R2,R10
	or R2,R22
	or R3,R23
	tst R2
	brne X8
	tst R3
	breq L31
X8:
	.dbline 189
	ldi R20,48
	ldi R21,0
	xjmp L32
L31:
	.dbline 190
	subi R20,208  ; offset = 48
	sbci R21,255
L32:
	.dbline 192
	sbi 0x1b,5
	.dbline 193
	ldi R16,200
	ldi R17,0
	xcall _s_ms
	.dbline 194
	cbi 0x1b,6
	.dbline 195
	ldi R16,200
	ldi R17,0
	xcall _s_ms
	.dbline 196
	out 0x12,R20
	.dbline 197
	ldi R16,200
	ldi R17,0
	xcall _s_ms
	.dbline 198
	sbi 0x1b,7
	.dbline 199
	ldi R16,200
	ldi R17,0
	xcall _s_ms
	.dbline 200
	cbi 0x1b,7
	.dbline 201
	ldi R16,200
	ldi R17,0
	xcall _s_ms
	.dbline -2
L28:
	.dbline 0 ; func end
	xjmp pop_xgsetF00C
	.dbsym r num 20 i
	.dbsym r col 10 i
	.dbsym r row 22 i
	.dbend
	.dbfunc e WriteChar _WriteChar fV
;              t -> R12
;              i -> R10
;        pBuffer -> R20,R21
;            num -> y+8
;            col -> R10
;            row -> R22
	.even
_WriteChar::
	xcall push_xgsetF03C
	mov R10,R18
	mov R22,R16
	ldd R20,y+10
	ldd R21,y+11
	.dbline -1
	.dbline 211
	.dbline 213
	cpi R22,1
	brne L38
X9:
	.dbline 213
	mov R22,R10
	subi R22,128    ; addi 128
	xjmp L39
L38:
	.dbline 214
	mov R22,R10
	subi R22,64    ; addi 192
L39:
	.dbline 215
	mov R16,R22
	xcall _writecom
	.dbline 219
	sbi 0x1b,5
	.dbline 220
	ldi R16,200
	ldi R17,0
	xcall _s_ms
	.dbline 221
	cbi 0x1b,6
	.dbline 222
	ldi R16,200
	ldi R17,0
	xcall _s_ms
	.dbline 223
	ldd R10,y+8
	ldd R11,y+9
	xjmp L43
L40:
	.dbline 224
	.dbline 225
	movw R30,R20
	ldd R12,z+0
	.dbline 226
	ldi R16,200
	ldi R17,0
	xcall _s_ms
	.dbline 227
	out 0x12,R12
	.dbline 228
	ldi R16,200
	ldi R17,0
	xcall _s_ms
	.dbline 229
	sbi 0x1b,7
	.dbline 230
	ldi R16,200
	ldi R17,0
	xcall _s_ms