rtc.s

AVRkaifashili.rar

	.module RTC.C
	.area data(ram, con, rel)
_Table::
	.blkb 2
	.area idata
	.byte 63,6
	.area data(ram, con, rel)
	.blkb 2
	.area idata
	.byte 91,'O
	.area data(ram, con, rel)
	.blkb 2
	.area idata
	.byte 'f,'m
	.area data(ram, con, rel)
	.blkb 2
	.area idata
	.byte 125,7
	.area data(ram, con, rel)
	.blkb 2
	.area idata
	.byte 127,'o
	.area data(ram, con, rel)
	.dbfile C:\DOCUME~1\Administrator\桌面\张军\PS2-ICC\RTC.C
	.dbsym e Table _Table A[10:10]c
	.area text(rom, con, rel)
	.dbfile C:\DOCUME~1\Administrator\桌面\张军\PS2-ICC\RTC.C
	.dbfunc e DelayMs _DelayMs fV
;              j -> R20
;              i -> R16,R17
	.even
_DelayMs::
	rcall push_gset1
	.dbline -1
	.dbline 14
; #include <io8535v.h>
; #include <macros.h>
; #ifndef uchar 
; #define uchar unsigned char
; #define uint  unsigned int
; #endif
; 
; #define SD2303 0x64  //SD2303器件IIC识别码
; 
; uchar F_Flag;
; uchar Table[10]={0x3f,0x06,0x5b,0x4f,0x66,0x6d,0x7d,0x07,0x7f,0x6f};
; 
; void DelayMs(uint i)  //0.25ms
; {uchar j;
	.dbline 15
;  for(;i!=0;i--)
	rjmp L5
L2:
	.dbline 16
	.dbline 16
	ldi R20,208
	rjmp L9
L6:
	.dbline 16
	.dbline 16
	.dbline 16
L7:
	.dbline 16
	dec R20
L9:
	.dbline 16
	tst R20
	brne L6
	.dbline 16
L3:
	.dbline 15
	subi R16,1
	sbci R17,0
L5:
	.dbline 15
	cpi R16,0
	cpc R16,R17
	brne L2
X0:
	.dbline -2
	.dbline 17
;   {for(j=2000;j!=0;j--) {;}}
; }
L1:
	rcall pop_gset1
	.dbline 0 ; func end
	ret
	.dbsym r j 20 c
	.dbsym r i 16 i
	.dbend
	.dbfunc e Display _Display fV
;              i -> R20
;            sel -> R22
;              p -> R10,R11
	.even
_Display::
	rcall push_gset3
	mov R10,R16
	mov R11,R17
	.dbline -1
	.dbline 20
; 
; void Display(uchar *p) //间隔5ms显示
; {uchar i,sel=0x01;
	.dbline 20
	ldi R22,1
	.dbline 21
;  for(i=0;i<4;i++)
	clr R20
	rjmp L14
L11:
	.dbline 22
	.dbline 22
	mov R2,R22
	com R2
	out 0x18,R2
	.dbline 23
	ldi R24,<_Table
	ldi R25,>_Table
	mov R30,R10
	mov R31,R11
	ldd R30,z+0
	clr R31
	add R30,R24
	adc R31,R25
	ldd R2,z+0
	out 0x1b,R2
	.dbline 24
	mov R24,R10
	mov R25,R11
	adiw R24,1
	mov R10,R24
	mov R11,R25
	.dbline 25
	ldi R16,20
	ldi R17,0
	rcall _DelayMs
	.dbline 26
	lsl R22
	.dbline 27
L12:
	.dbline 21
	inc R20
L14:
	.dbline 21
	cpi R20,4
	brlo L11
	.dbline -2
	.dbline 28
;   {PORTB=~sel;
;    PORTA=Table[*p];
;    p++;
;    DelayMs(20);
;    sel=sel<<1;
;   }
; }
L10:
	rcall pop_gset3
	.dbline 0 ; func end
	ret
	.dbsym r i 20 c
	.dbsym r sel 22 c
	.dbsym r p 10 pc
	.dbend
	.dbfunc e NOPNOP _NOPNOP fV
;              i -> R16
	.even
_NOPNOP::
	.dbline -1
	.dbline 32
	.dbline 32
	rjmp L19
L16:
	.dbline 32
	nop
L17:
	.dbline 32
	dec R16
L19:
	.dbline 32
;  
;  
; void NOPNOP(uchar i)
; {for(;i!=0;i--) NOP();}
	tst R16
	brne L16
	.dbline -2
	.dbline 32
L15:
	.dbline 0 ; func end
	ret
	.dbsym r i 16 c
	.dbend
	.dbfunc e SetSCL _SetSCL fV
;              i -> R16
	.even
_SetSCL::
	.dbline -1
	.dbline 36
; 
; //sbit SCL=PC^0;       //定义SD2303IIC时钟线
; void SetSCL(uchar i)
; {if(i==1) PORTC=PORTC|0x01;
	.dbline 36
	cpi R16,1
	brne L21
	.dbline 36
	sbi 0x15,0
	rjmp L22
L21:
	.dbline 37
	in R24,0x15
	andi R24,254
	out 0x15,R24
L22:
	.dbline -2
	.dbline 37
;  else     PORTC=PORTC&0xfe;}
L20:
	.dbline 0 ; func end
	ret
	.dbsym r i 16 c
	.dbend
	.dbfunc e SetSDA _SetSDA fV
;              i -> R16
	.even
_SetSDA::
	.dbline -1
	.dbline 41
;  
; //sbit SDA=PC^1;       //定义SD2303IIC数据线
; void SetSDA(uchar i)
; {if(i==1) PORTC=PORTC|0x02;
	.dbline 41
	cpi R16,1
	brne L24
	.dbline 41
	sbi 0x15,1
	rjmp L25
L24:
	.dbline 42
	in R24,0x15
	andi R24,253
	out 0x15,R24
L25:
	.dbline -2
	.dbline 42
;  else     PORTC=PORTC&0xfd;}
L23:
	.dbline 0 ; func end
	ret
	.dbsym r i 16 c
	.dbend
	.dbfunc e Start _Start fV
	.even
_Start::
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e Stop _Stop fV
	.even
_Stop::
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e Ack _Ack fV
	.even
_Ack::
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e Nack _Nack fV
	.even
_Nack::
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e Check_Ack _Check_Ack fV
	.even
_Check_Ack::
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e Write_Bit0 _Write_Bit0 fV
	.even
_Write_Bit0::
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e Write_Bit1 _Write_Bit1 fV
	.even
_Write_Bit1::
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e Write_Byte _Write_Byte fV
;           Data -> R0
	.even
_Write_Byte::
	.dbline 0 ; func end
	ret
	.dbsym l Data 0 c
	.dbend
	.dbfunc e Read_Byte _Read_Byte fc
	.even
_Read_Byte::
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e Write_Nbyte _Write_Nbyte fV
;         Number -> R3
;          Array -> R2,R3
;        Address -> R1
;          Slave -> R0
	.even
_Write_Nbyte::
	.dbline 0 ; func end
	ret
	.dbsym l Number 6 c
	.dbsym l Array 4 pc
	.dbsym l Address 2 c
	.dbsym l Slave 0 c
	.dbend
	.dbfunc e Write_1byte _Write_1byte fV
;           Data -> R2
;        Address -> R1
;          Slave -> R0
	.even
_Write_1byte::
	.dbline 0 ; func end
	ret
	.dbsym l Data 4 c
	.dbsym l Address 2 c
	.dbsym l Slave 0 c
	.dbend
	.dbfunc e Read_Nbyte _Read_Nbyte fV
;         Number -> R3
;          Array -> R2,R3
;        Address -> R1
;          Slave -> R0
	.even
_Read_Nbyte::
	.dbline 0 ; func end
	ret
	.dbsym l Number 6 c
	.dbsym l Array 4 pc
	.dbsym l Address 2 c
	.dbsym l Slave 0 c
	.dbend
	.area lit(rom, con, rel)
L86:
	.byte 2,0
	.byte 0,4
	.byte 1,2
	.byte 2,7
	.byte 1,1
	.byte 7,3
	.byte 0,5
	.byte 0
L87:
	.byte 'P,48
	.byte 23,1
	.byte 39,18
	.byte 4
	.area text(rom, con, rel)
	.dbfile C:\DOCUME~1\Administrator\桌面\张军\PS2-ICC\RTC.C
	.dbfunc e main _main fV
	.even
_main::
	.dbline 0 ; func end
	ret
	.dbend
	.area bss(ram, con, rel)
	.dbfile C:\DOCUME~1\Administrator\桌面\张军\PS2-ICC\RTC.C
_K::
	.blkb 2
	.dbsym e K _K I
_F_Flag::
	.blkb 1
	.dbsym e F_Flag _F_Flag c