📄 h4001.s
字号:
.module H4001.c
.area data(ram, con, rel)
_error::
.blkb 1
.area idata
.byte 0
.area data(ram, con, rel)
.dbfile D:\TK5552\Iccavr\H4001\H4001.c
.dbsym e error _error c
_post::
.blkb 1
.area idata
.byte 0
.area data(ram, con, rel)
.dbfile D:\TK5552\Iccavr\H4001\H4001.c
.dbsym e post _post c
_run::
.blkb 1
.area idata
.byte 0
.area data(ram, con, rel)
.dbfile D:\TK5552\Iccavr\H4001\H4001.c
.dbsym e run _run c
_head::
.blkb 1
.area idata
.byte 0
.area data(ram, con, rel)
.dbfile D:\TK5552\Iccavr\H4001\H4001.c
.dbsym e head _head c
_tcomp::
.blkb 2
.area idata
.word 0
.area data(ram, con, rel)
.dbfile D:\TK5552\Iccavr\H4001\H4001.c
.dbsym e tcomp _tcomp i
_lastbit::
.blkb 1
.area idata
.byte 0
.area data(ram, con, rel)
.dbfile D:\TK5552\Iccavr\H4001\H4001.c
.dbsym e lastbit _lastbit c
_half::
.blkb 1
.area idata
.byte 0
.area data(ram, con, rel)
.dbfile D:\TK5552\Iccavr\H4001\H4001.c
.dbsym e half _half c
.area lit(rom, con, rel)
_ascii::
.byte 48,49,50,51,52,53,54,55,56,57,'A,'B,'C,'D,'E,'F
.dbsym e ascii _ascii A[16:16]kc
.area text(rom, con, rel)
.dbfile D:\TK5552\Iccavr\H4001\H4001.c
.dbfunc e port_init _port_init fV
.even
_port_init::
.dbline -1
.dbline 36
; // --------------------------------------
; // Function: H4001 64位RFID只读卡读头
; // MCU: ATmega32
; // Crystal: 7.3728Mhz
; // Date: 2005/01/16
; // --------------------------------------
; // Compiler:
; // ICCAVR 6.28C,6.31A
; // RFID基站芯片：U2270B
; // --------------------------------------
;
; #include <iom32v.h>
; #include <macros.h>
; //variable definition
; unsigned char timer_count,error=0,post=0,data1,rxdata,run=0;
; unsigned char decode[192],head=0,rfiddata[54];
; unsigned int tcomp=0;
; unsigned char lastbit=0,half=0;
; const unsigned char ascii[16]="0123456789ABCDEF";
; //pin definition
; #define led() (PORTD^=0x80)
; #define RFW (1<<6)
; //RFW, RFID输出载波控制
; #define RFW_1() (PORTC |=RFW)
; #define RFW_0() (PORTC &=~RFW)
; #define beep (1<<4)
; #define beep_1() (PORTC |=beep)
; #define beep_0() (PORTC &=~beep)
; #define okled (1<<0)
; #define okled1() (PORTC |=okled)
; #define okled0() (PORTC &=~okled)
; //RFID_IN U2270B返回卡的未解调码
; #define RFID_IN (PINC&0x80)
;
; void port_init(void)
; {
.dbline 37
; PORTA = 0xFF;
ldi R24,255
out 0x1b,R24
.dbline 38
; DDRA = 0x00;
clr R2
out 0x1a,R2
.dbline 39
; PORTB = 0xFF;
out 0x18,R24
.dbline 40
; DDRB = 0x00;
out 0x17,R2
.dbline 41
; PORTC = 0xFF;
out 0x15,R24
.dbline 42
; DDRC = 0x51;
ldi R24,81
out 0x14,R24
.dbline 43
; PORTD = 0x7F;
ldi R24,127
out 0x12,R24
.dbline 44
; DDRD = 0x80;
ldi R24,128
out 0x11,R24
.dbline -2
L1:
.dbline 0 ; func end
ret
.dbend
.dbfunc e timer0_init _timer0_init fV
.even
_timer0_init::
.dbline -1
.dbline 52
; }
;
; //TIMER0 initialisation - prescale:1024
; // WGM: Normal
; // desired value: 10mSec
; // actual value: 9.861mSec (1.4%)
; void timer0_init(void)
; {
.dbline 53
; TCCR0 = 0x00; //stop
clr R2
out 0x33,R2
.dbline 54
; TCNT0 = 0xB9; //set count
ldi R24,185
out 0x32,R24
.dbline 55
; OCR0 = 0x47; //set compare
ldi R24,71
out 0x3c,R24
.dbline 56
; TCCR0 = 0x05; //start timer
ldi R24,5
out 0x33,R24
.dbline -2
L2:
.dbline 0 ; func end
ret
.dbend
.area vector(rom, abs)
.org 44
jmp _timer0_ovf_isr
.area text(rom, con, rel)
.dbfile D:\TK5552\Iccavr\H4001\H4001.c
.dbfunc e timer0_ovf_isr _timer0_ovf_isr fV
.even
_timer0_ovf_isr::
st -y,R2
st -y,R24
st -y,R25
in R2,0x3f
st -y,R2
.dbline -1
.dbline 61
.dbline 62
ldi R24,185
out 0x32,R24
.dbline 63
lds R24,_timer_count
subi R24,255 ; addi 1
sts _timer_count,R24
.dbline 64
ldi R24,50
lds R2,_timer_count
cp R24,R2
brsh L4
.dbline 64
.dbline 66
clr R2
sts _timer_count,R2
.dbline 67
ldi R24,1
sts _run,R24
.dbline 68
L4:
.dbline -2
L3:
ld R2,y+
out 0x3f,R2
ld R25,y+
ld R24,y+
ld R2,y+
.dbline 0 ; func end
reti
.dbend
.dbfunc e timer1_init _timer1_init fV
.even
_timer1_init::
.dbline -1
.dbline 76
; }
;
; #pragma interrupt_handler timer0_ovf_isr:12
; void timer0_ovf_isr(void)
; {
; TCNT0 = 0xB9; //reload counter value
; timer_count++;
; if (timer_count>50) { // 0.01*50=0.5sec,每0.5秒扫描一次是否有ID卡
; // led();
; timer_count=0;
; run=1;
; }
; }
;
; //TIMER1 initialisation - prescale:1
; // WGM: 0) Normal, TOP=0xFFFF
; // desired value: 1Hz
; // actual value: Out of range
; void timer1_init(void)
; {
.dbline 77
; TCCR1B = 0x00; //stop
clr R2
out 0x2e,R2
.dbline 78
; TCNT1H = 0x00 /*INVALID SETTING*/; //setup
out 0x2d,R2
.dbline 79
; TCNT1L = 0x00 /*INVALID SETTING*/;
out 0x2c,R2
.dbline 80
; OCR1AH = 0x00 /*INVALID SETTING*/;
out 0x2b,R2
.dbline 81
; OCR1AL = 0x00 /*INVALID SETTING*/;
out 0x2a,R2
.dbline 82
; OCR1BH = 0x00 /*INVALID SETTING*/;
out 0x29,R2
.dbline 83
; OCR1BL = 0x00 /*INVALID SETTING*/;
out 0x28,R2
.dbline 84
; ICR1H = 0x00 /*INVALID SETTING*/;
out 0x27,R2
.dbline 85
; ICR1L = 0x00 /*INVALID SETTING*/;
out 0x26,R2
.dbline 86
; TCCR1A = 0x00;
out 0x2f,R2
.dbline 87
; TCCR1B = 0x01; //start Timer
ldi R24,1
out 0x2e,R24
.dbline -2
L6:
.dbline 0 ; func end
ret
.dbend
.dbfunc e uart0_init _uart0_init fV
.even
_uart0_init::
.dbline -1
.dbline 96
; }
;
; //UART0 initialisation
; // desired baud rate: 9600
; // actual: baud rate:57600 (0.0%)
; // char size: 8 bit
; // parity: Disabled
; void uart0_init(void) //Uart初始化
; {
.dbline 97
; UCSRB = 0x00; //disable while setting baud rate
clr R2
out 0xa,R2
.dbline 98
; UCSRA = 0x00;
out 0xb,R2
.dbline 99
; UCSRC = 0x06;
ldi R24,6
out 0x20,R24
.dbline 100
; UBRRL = 0x07; //set baud rate lo,9600=0x2F,57600=0x07
ldi R24,7
out 0x9,R24
.dbline 101
; UBRRH = 0x00; //set baud rate hi
out 0x20,R2
.dbline 102
; UCSRB = 0x98;
ldi R24,152
out 0xa,R24
.dbline -2
L7:
.dbline 0 ; func end
ret
.dbend
.area vector(rom, abs)
.org 52
jmp _uart0_rx_isr
.area text(rom, con, rel)
.dbfile D:\TK5552\Iccavr\H4001\H4001.c
.dbfunc e uart0_rx_isr _uart0_rx_isr fV
.even
_uart0_rx_isr::
st -y,R2
in R2,0x3f
st -y,R2
.dbline -1
.dbline 107
; }
;
; #pragma interrupt_handler uart0_rx_isr:14
; void uart0_rx_isr(void) //接收中断处理
; {
.dbline 109
; //uart has received a character in UDR
; rxdata=UDR;
in R2,0xc
sts _rxdata,R2
.dbline -2
L8:
ld R2,y+
out 0x3f,R2
ld R2,y+
.dbline 0 ; func end
reti
.dbend
.dbfunc e init_devices _init_devices fV
.even
_init_devices::
.dbline -1
.dbline 115
; }
;
;
; //call this routine to initialise all peripherals
; void init_devices(void) //初始化
; {
.dbline 117
; //stop errant interrupts until set up
; CLI(); //disable all interrupts
cli
.dbline 118
; port_init();
xcall _port_init
.dbline 119
; timer0_init();
xcall _timer0_init
.dbline 120
; timer1_init();
xcall _timer1_init
.dbline 121
; uart0_init();
xcall _uart0_init
.dbline 122
; MCUCR = 0x02;
ldi R24,2
out 0x35,R24
.dbline 123
; GICR = 0x40;
ldi R24,64
out 0x3b,R24
.dbline 124
; TIMSK = 0x01; //timer interrupt sources
ldi R24,1
out 0x39,R24
.dbline 125
; SEI(); //re-enable interrupts
sei
.dbline -2
L9:
.dbline 0 ; func end
ret
.dbend
.dbfunc e ldelay _ldelay fV
; i -> R16,R17
.even
_ldelay::
.dbline -1
.dbline 131
; //all peripherals are now initialised
; }
;
;
; void ldelay(unsigned int i) //长延时
; {
L11:
.dbline 132
L12:
.dbline 132
; while(i--);
movw R2,R16
subi R16,1
sbci R17,0
tst R2
brne L11
tst R3
brne L11
X0:
.dbline -2
L10:
.dbline 0 ; func end
ret
.dbsym r i 16 i
.dbend
.dbfunc e beeps _beeps fV
; i -> R20
.even
_beeps::
xcall push_gset1
mov R20,R16
.dbline -1
.dbline 135
; }
;
; void beeps(unsigned char i) { //讯响
xjmp L16
L15:
.dbline 136
.dbline 137
cbi 0x15,4
.dbline 138
ldi R16,60000
ldi R17,234
xcall _ldelay
.dbline 139
ldi R16,60000
ldi R17,234
xcall _ldelay
.dbline 140
ldi R16,60000
ldi R17,234
xcall _ldelay
.dbline 141
sbi 0x15,4
.dbline 142
ldi R16,60000
ldi R17,234
xcall _ldelay
.dbline 143
ldi R16,60000
ldi R17,234
xcall _ldelay
.dbline 144
ldi R16,60000
ldi R17,234
xcall _ldelay
.dbline 145
L16:
.dbline 136
; while(i--) {
mov R2,R20
clr R3
subi R20,1
tst R2
brne L15
.dbline -2
L14:
xcall pop_gset1
.dbline 0 ; func end
ret
.dbsym r i 20 c
.dbend
.dbfunc e wait_tx _wait_tx fV
.even
_wait_tx::
.dbline -1
.dbline 148
; beep_0();
; ldelay(60000);
; ldelay(60000);
; ldelay(60000);
; beep_1();
; ldelay(60000);
; ldelay(60000);
; ldelay(60000);
; }
; }
;
; void wait_tx() { //等待发送完一个字节
L19:
.dbline 149
L20:
.dbline 149
; while(!(UCSRA&0x40));
sbis 0xb,6
rjmp L19
.dbline 150
; UCSRA|=0x40;
sbi 0xb,6
.dbline -2
L18:
.dbline 0 ; func end
ret
.dbend
.dbfunc e R_H4001 _R_H4001 fV
; j -> y+1
; bits -> R22,R23
; i -> y+0
.even
_R_H4001::
xcall push_gset5
sbiw R28,12
.dbline -1
.dbline 155
; }
;
;
; void R_H4001() //读卡
; {
.dbline 156
; unsigned char i=0,j=0;
clr R0
std y+0,R0
.dbline 156
std y+1,R0
.dbline 157
; unsigned int bits=0;
clr R22
clr R23
.dbline 158
; data1=0;
clr R2
sts _data1,R2
.dbline 159
std y+0,R0
xjmp L26
L23:
.dbline 159
.dbline 160
ldi R24,<_decode
ldi R25,>_decode
ldd R30,y+0
clr R31
add R30,R24
adc R31,R25
ldi R24,1
std z+0,R24
.dbline 161
L24:
.dbline 159
ldd R0,y+0
inc R0
std y+0,R0
L26:
.dbline 159
; for (i=0;i<192;i++) {
ldd R24,y+0
cpi R24,192
brlo L23
.dbline 162
clr R0
std y+0,R0
xjmp L30
L27:
.dbline 162
.dbline 163
ldi R24,<_rfiddata
ldi R25,>_rfiddata
ldd R30,y+0
clr R31
add R30,R24
adc R31,R25
clr R2
std z+0,R2
.dbline 164
L28:
.dbline 162
ldd R0,y+0
inc R0
std y+0,R0
L30:
.dbline 162
; decode[i]=1;
; }
; for (i=0;i<64;i++) {
ldd R24,y+0
cpi R24,64
brlo L27
.dbline 165
; rfiddata[i]=0;
; }
; RFW_1();
sbi 0x15,6
.dbline 166
; data1=0;
clr R2
sts _data1,R2
.dbline 167
; lastbit=0;
sts _lastbit,R2
.dbline 168
; TCNT1=0;
clr R3
out 0x2d,R3
out 0x2c,R2
.dbline 169
; half=0;
sts _half,R2
.dbline 170
; j=0;
clr R0
std y+1,R0
.dbline 171
clr R22
clr R23
xjmp L34
X1:
.dbline 171
; for (bits=0;bits<256;bits++) {
L35:
.dbline 174
.dbline 174
L36:
.dbline 174
; // while (((!(PINC&0x80))==lastbit)& (TCNT1<20000)) { } //low level
; // while (((!(PINC&0x80))==lastbit)& (TCNT1<20000)) { }
; while (((!(RFID_IN))==lastbit)& (TCNT1<20000)) { }
sbic 0x13,7
rjmp L40
ldi R20,1
ldi R21,0
xjmp L41
L40:
clr R20
clr R21
L41:
lds R2,_lastbit
clr R3
cp R20,R2
cpc R21,R3
brne L38
ldi R24,1
ldi R25,0
movw R10,R24
xjmp L39
L38:
clr R10
clr R11
L39:
in R24,0x2c
in R25,0x2d
cpi R24,32
ldi R30,78
cpc R25,R30
brsh L42
ldi R20,1
ldi R21,0
xjmp L43
L42:
clr R20
clr R21
L43:
movw R2,R10
and R2,R20
and R3,R21
tst R2
brne L35
tst R3
brne L35
X2:
.dbline 175
; tcomp=TCNT1;
in R2,0x2c
in R3,0x2d
sts _tcomp+1,R3
sts _tcomp,R2
.dbline 176
; TCNT1=0;
clr R2
clr R3
out 0x2d,R3
out 0x2c,R2
.dbline 177
; if ((tcomp>1500 & tcomp<2500)|(tcomp>3000 & tcomp<5000)) { //判断是否为合法跳变
ldi R24,1500
ldi R25,5
lds R2,_tcomp
lds R3,_tcomp+1
cp R24,R2
cpc R25,R3
brsh L46
ldi R24,1
ldi R25,0
movw R12,R24
xjmp L47
L46:
clr R12
clr R13
L47:
lds R24,_tcomp
lds R25,_tcomp+1
cpi R24,196
ldi R30,9
cpc R25,R30
brsh L48
ldi R24,1
ldi R25,0
movw R10,R24
xjmp L49
L48:
clr R10
clr R11
L49:
ldi R24,3000
ldi R25,11
lds R2,_tcomp
lds R3,_tcomp+1
cp R24,R2
cpc R25,R3
brsh L50
ldi R20,1
ldi R21,0
xjmp L51
L50:
clr R20
clr R21
L51:
lds R24,_tcomp
lds R25,_tcomp+1
cpi R24,136
ldi R30,19
cpc R25,R30
brsh L52
ldi R24,1
ldi R25,0
movw R14,R24
xjmp L53
L52:
clr R14
clr R15
L53:
movw R2,R20
and R2,R14
and R3,R15
movw R4,R12
and R4,R10
and R5,R11
or R4,R2
or R5,R3
tst R4
brne X3
tst R5
brne X8
xjmp L44
X8:
X3:
.dbline 177
.dbline 178
; if (tcomp>1500 & tcomp<2500) {
ldi R24,1500
ldi R25,5
lds R2,_tcomp
lds R3,_tcomp+1
cp R24,R2
cpc R25,R3
brsh L56
ldi R24,1
ldi R25,0
movw R12,R24
xjmp L57
L56:
clr R12
clr R13
L57:
lds R24,_tcomp
lds R25,_tcomp+1
cpi R24,196
ldi R30,9
cpc R25,R30
brsh L58
ldi R24,1
ldi R25,0
movw R10,R24
xjmp L59
L58:
clr R10
clr R11
L59:
movw R2,R12
and R2,R10
and R3,R11
tst R2
brne X4
tst R3
breq L54
X4:
.dbline 178
.dbline 179
; if (half==1) {
lds R24,_half
cpi R24,1
brne L60
.dbline 179
.dbline 180
; half=0;
clr R2
sts _half,R2
.dbline 181
; decode[j]=lastbit;
ldi R24,<_decode
ldi R25,>_decode
ldd R30,y+1
clr R31
add R30,R24
adc R31,R25
lds R2,_lastbit
std z+0,R2
.dbline 182
; j++;
ldd R0,y+1
inc R0
std y+1,R0
.dbline 183
; }
xjmp L55
L60:
.dbline 185
; else
; half=1;
ldi R24,1
sts _half,R24
.dbline 186
; }
xjmp L55
L54:
.dbline 188
; else
; { // (tcomp>3000 & tcomp<5000)
.dbline 189
; if (half==1)
lds R24,_half
cpi R24,1
brne L62
.dbline 190
; {
.dbline 191
; if (lastbit==0) {
lds R2,_lastbit
tst R2
brne L64
.dbline 191
.dbline 192
; decode[j]=1;
ldi R24,<_decode
ldi R25,>_decode
ldd R30,y+1
clr R31
add R30,R24
adc R31,R25
ldi R24,1
std z+0,R24
.dbline 193
; }
xjmp L63
L64:
.dbline 195
; else
; {
.dbline 196
; if (lastbit==1) {
lds R24,_lastbit
cpi R24,1
brne L63
.dbline 196
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -