12864timer3.asm

ATMEGA16单片机使用的LCD12864J液晶调试程序。

		sts		day,zl

;-Line--0058----Incr month--
		lds		zl,month
		inc		zl
		sts		month,zl

;-Line--0059----ElseIf day=31 Then--
		rjmp	L0011
L0012:
		lds		r24,day
		ldi		zl,byte1(31)
		cp		r24,zl
		breq	PC+0x02
		rjmp	L0014
L0015:

;-Line--0060----If month=4 Or month=6 Or month=9 Or month=11 Then--
		lds		r24,month
		ldi		zl,byte1(4)
		cp		r24,zl
		brne	PC+0x02
		rjmp	L0018
		lds		r24,month
		ldi		zl,byte1(6)
		cp		r24,zl
		brne	PC+0x02
		rjmp	L0018
		lds		r24,month
		ldi		zl,byte1(9)
		cp		r24,zl
		brne	PC+0x02
		rjmp	L0018
		lds		r24,month
		ldi		zl,byte1(11)
		cp		r24,zl
		breq	PC+0x02
		rjmp	L0017
L0018:

;-Line--0061----day=1--
		ldi		zl,byte1(1)
		sts		day,zl

;-Line--0062----Incr month--
		lds		zl,month
		inc		zl
		sts		month,zl

;-Line--0063----End If--
L0017:
L0016:

;-Line--0064----ElseIf day=30 Then--
		rjmp	L0011
L0014:
		lds		r24,day
		ldi		zl,byte1(30)
		cp		r24,zl
		breq	PC+0x02
		rjmp	L0019
L0020:

;-Line--0065----If month=2 Then--
		lds		r24,month
		ldi		zl,byte1(2)
		cp		r24,zl
		breq	PC+0x02
		rjmp	L0022
L0023:

;-Line--0066----day=1--
		ldi		zl,byte1(1)
		sts		day,zl

;-Line--0067----Incr month--
		lds		zl,month
		inc		zl
		sts		month,zl

;-Line--0068----End If--
L0022:
L0021:

;-Line--0069----ElseIf day=29 Then--
		rjmp	L0011
L0019:
		lds		r24,day
		ldi		zl,byte1(29)
		cp		r24,zl
		breq	PC+0x02
		rjmp	L0024
L0025:

;-Line--0070----If month=2 And (year mod 4)>0 Then--
		lds		r24,month
		ldi		zl,byte1(2)
		cp		r24,zl
		breq	PC+0x02
		rjmp	L0027
		lds		zl,year
		lds		zh,year+1
		push	zh
		push	zl
		ldi		zl,byte1(4)
		ldi		zh,byte2(4)
		pop		r24
		pop		r25
		call	Di16u
		mov		zl,r24
		mov		zh,r25
		push	zh
		push	zl
		ldi		zl,byte1(0)
		ldi		zh,byte2(0)
		adiw	zl,0x01
		pop		r24
		pop		r25
		cp		r24,zl
		cpc		r25,zh
		brsh	PC+0x02
		rjmp	L0027
L0028:

;-Line--0071----day=1--
		ldi		zl,byte1(1)
		sts		day,zl

;-Line--0072----Incr month--
		lds		zl,month
		inc		zl
		sts		month,zl

;-Line--0073----End If--
L0027:
L0026:

;-Line--0074----End If--
L0024:
L0011:

;-Line--0075----If month=13 Then--
		lds		r24,month
		ldi		zl,byte1(13)
		cp		r24,zl
		breq	PC+0x02
		rjmp	L0030
L0031:

;-Line--0076----month=1--
		ldi		zl,byte1(1)
		sts		month,zl

;-Line--0077----Incr year--
		lds		zl,year
		lds		zh,year+1
		adiw	zl,1
		sts		year,zl
		sts		year+1,zh

;-Line--0078----End If--
L0030:
L0029:

;-Line--0079----Enable Interrupts--
		sei

;-Line--0080----End Interrupt--
		pop		xh
		pop		xl
		pop		r25
		pop		r24
		pop		r1
		pop		r0
		pop		zh
		pop		zl
		out		SREG,r2
		reti

;-Line--0082----$Include"c:\fastavr\F0HD.bas"--

;-Line--0002----F0HD = 5, 1,	' Font Table Name, Width, Height in Lines, 482 bytes--
f0hd:
		.db	0x05,0x01
;-Line--0003----&h00,&h00,&h00,&h00,&h00,&h00,--
		.db	0x00,0x00,0x00,0x00,0x00,0x00
;-Line--0004----&h00,&h5F,&h00,&h00,&h00,&h03,--
		.db	0x00,0x5f,0x00,0x00,0x00,0x03
;-Line--0005----&h00,&h03,&h00,&h14,&h7F,&h14,--
		.db	0x00,0x03,0x00,0x14,0x7f,0x14
;-Line--0006----&h7F,&h14,&h44,&h4A,&hFF,&h52,--
		.db	0x7f,0x14,0x44,0x4a,0xff,0x52
;-Line--0007----&h22,&h23,&h13,&h08,&h64,&h62,--
		.db	0x22,0x23,0x13,0x08,0x64,0x62
;-Line--0008----&h36,&h49,&h55,&h22,&h50,&h00,--
		.db	0x36,0x49,0x55,0x22,0x50,0x00
;-Line--0009----&h00,&h05,&h03,&h00,&h00,&h1C,--
		.db	0x00,0x05,0x03,0x00,0x00,0x1c
;-Line--0010----&h22,&h41,&h00,&h00,&h00,&h41,--
		.db	0x22,0x41,0x00,0x00,0x00,0x41
;-Line--0011----&h22,&h1C,&h14,&h08,&h3E,&h08,--
		.db	0x22,0x1c,0x14,0x08,0x3e,0x08
;-Line--0012----&h14,&h08,&h08,&h3E,&h08,&h08,--
		.db	0x14,0x08,0x08,0x3e,0x08,0x08
;-Line--0013----&h00,&hA0,&h60,&h00,&h00,&h08,--
		.db	0x00,0xa0,0x60,0x00,0x00,0x08
;-Line--0014----&h08,&h08,&h08,&h08,&h00,&h60,--
		.db	0x08,0x08,0x08,0x08,0x00,0x60
;-Line--0015----&h60,&h00,&h00,&h20,&h10,&h08,--
		.db	0x60,0x00,0x00,0x20,0x10,0x08
;-Line--0016----&h04,&h02,&h3E,&h51,&h49,&h45,--
		.db	0x04,0x02,0x3e,0x51,0x49,0x45
;-Line--0017----&h3E,&h00,&h42,&h7F,&h40,&h00,--
		.db	0x3e,0x00,0x42,0x7f,0x40,0x00
;-Line--0018----&h42,&h61,&h51,&h49,&h46,&h21,--
		.db	0x42,0x61,0x51,0x49,0x46,0x21
;-Line--0019----&h41,&h45,&h4B,&h31,&h18,&h14,--
		.db	0x41,0x45,0x4b,0x31,0x18,0x14
;-Line--0020----&h12,&h7F,&h10,&h27,&h45,&h45,--
		.db	0x12,0x7f,0x10,0x27,0x45,0x45
;-Line--0021----&h45,&h39,&h3C,&h4A,&h49,&h49,--
		.db	0x45,0x39,0x3c,0x4a,0x49,0x49
;-Line--0022----&h30,&h01,&h71,&h09,&h05,&h03,--
		.db	0x30,0x01,0x71,0x09,0x05,0x03
;-Line--0023----&h36,&h49,&h49,&h49,&h36,&h06,--
		.db	0x36,0x49,0x49,0x49,0x36,0x06
;-Line--0024----&h49,&h49,&h29,&h1E,&h00,&h36,--
		.db	0x49,0x49,0x29,0x1e,0x00,0x36
;-Line--0025----&h36,&h00,&h00,&h00,&hA6,&h66,--
		.db	0x36,0x00,0x00,0x00,0xa6,0x66
;-Line--0026----&h00,&h00,&h08,&h14,&h22,&h41,--
		.db	0x00,0x00,0x08,0x14,0x22,0x41
;-Line--0027----&h00,&h14,&h14,&h14,&h14,&h14,--
		.db	0x00,0x14,0x14,0x14,0x14,0x14
;-Line--0028----&h41,&h22,&h14,&h08,&h00,&h02,--
		.db	0x41,0x22,0x14,0x08,0x00,0x02
;-Line--0029----&h01,&h51,&h09,&h06,&h42,&h63,--
		.db	0x01,0x51,0x09,0x06,0x42,0x63
;-Line--0030----&h52,&h4B,&h46,&h7E,&h11,&h11,--
		.db	0x52,0x4b,0x46,0x7e,0x11,0x11
;-Line--0031----&h11,&h7E,&h7F,&h49,&h49,&h49,--
		.db	0x11,0x7e,0x7f,0x49,0x49,0x49
;-Line--0032----&h36,&h3E,&h41,&h41,&h41,&h22,--
		.db	0x36,0x3e,0x41,0x41,0x41,0x22
;-Line--0033----&h7F,&h41,&h41,&h22,&h1C,&h7F,--
		.db	0x7f,0x41,0x41,0x22,0x1c,0x7f
;-Line--0034----&h49,&h49,&h49,&h41,&h7F,&h09,--
		.db	0x49,0x49,0x49,0x41,0x7f,0x09
;-Line--0035----&h09,&h09,&h01,&h3E,&h41,&h49,--
		.db	0x09,0x09,0x01,0x3e,0x41,0x49
;-Line--0036----&h49,&h7A,&h7F,&h08,&h08,&h08,--
		.db	0x49,0x7a,0x7f,0x08,0x08,0x08
;-Line--0037----&h7F,&h00,&h41,&h7F,&h41,&h00,--
		.db	0x7f,0x00,0x41,0x7f,0x41,0x00
;-Line--0038----&h20,&h40,&h41,&h3F,&h01,&h7F,--
		.db	0x20,0x40,0x41,0x3f,0x01,0x7f
;-Line--0039----&h08,&h14,&h22,&h41,&h7F,&h40,--
		.db	0x08,0x14,0x22,0x41,0x7f,0x40
;-Line--0040----&h40,&h40,&h40,&h7F,&h02,&h0C,--
		.db	0x40,0x40,0x40,0x7f,0x02,0x0c
;-Line--0041----&h02,&h7F,&h7F,&h04,&h08,&h10,--
		.db	0x02,0x7f,0x7f,0x04,0x08,0x10
;-Line--0042----&h7F,&h3E,&h41,&h41,&h41,&h3E,--
		.db	0x7f,0x3e,0x41,0x41,0x41,0x3e
;-Line--0043----&h7F,&h09,&h09,&h09,&h06,&h3E,--
		.db	0x7f,0x09,0x09,0x09,0x06,0x3e
;-Line--0044----&h41,&h51,&h21,&h5E,&h7F,&h09,--
		.db	0x41,0x51,0x21,0x5e,0x7f,0x09
;-Line--0045----&h19,&h29,&h46,&h26,&h49,&h49,--
		.db	0x19,0x29,0x46,0x26,0x49,0x49
;-Line--0046----&h49,&h32,&h01,&h01,&h7F,&h01,--
		.db	0x49,0x32,0x01,0x01,0x7f,0x01
;-Line--0047----&h01,&h3F,&h40,&h40,&h40,&h3F,--
		.db	0x01,0x3f,0x40,0x40,0x40,0x3f
;-Line--0048----&h1F,&h20,&h40,&h20,&h1F,&h3F,--
		.db	0x1f,0x20,0x40,0x20,0x1f,0x3f
;-Line--0049----&h40,&h38,&h40,&h3F,&h63,&h14,--
		.db	0x40,0x38,0x40,0x3f,0x63,0x14
;-Line--0050----&h08,&h14,&h63,&h07,&h08,&h70,--
		.db	0x08,0x14,0x63,0x07,0x08,0x70
;-Line--0051----&h08,&h07,&h61,&h51,&h49,&h45,--
		.db	0x08,0x07,0x61,0x51,0x49,0x45
;-Line--0052----&h43,&h48,&h56,&h54,&h56,&h24,--
		.db	0x43,0x48,0x56,0x54,0x56,0x24
;-Line--0053----&h02,&h04,&h08,&h10,&h20,&h3C,--
		.db	0x02,0x04,0x08,0x10,0x20,0x3c
;-Line--0054----&h42,&h42,&h43,&h24,&h3C,&h43,--
		.db	0x42,0x42,0x43,0x24,0x3c,0x43