78f0485.asm

NEC单片机0485的程序

	mov	[hl+3],a	; s 				;[INF] 2, 8/9
	xch	a,x						;[INF] 1, 2
	mov	[hl+2],a	; s 				;[INF] 2, 8/9
; line   507
$DGL	0,4
	mov	a,#00H	; 0 					;[INF] 2, 4
	mov	[hl+1],a	; i 				;[INF] 2, 8/9
?L0111:
	mov	a,[hl+1]	; i 				;[INF] 2, 8/9
	cmp	a,#014H	; 20 					;[INF] 2, 4
	bnc	$?L0112						;[INF] 2, 6
; line   508
$DGL	0,5
??bb00_display_seg:
	mov	c,a						;[INF] 1, 2
	push	hl						;[INF] 1, 4
	movw	hl,#_disbuff					;[INF] 3, 6
	mov	a,[hl+c]					;[INF] 1, 6/7
	pop	hl						;[INF] 1, 4
	ror	a,1						;[INF] 1, 2
	ror	a,1						;[INF] 1, 2
	ror	a,1						;[INF] 1, 2
	ror	a,1						;[INF] 1, 2
	and	a,#0FH	; 15 					;[INF] 2, 4
	mov	c,a						;[INF] 1, 2
	mov	a,[hl+1]	; i 				;[INF] 2, 8/9
	add	a,a						;[INF] 2, 4
	mov	x,#00H	; 0 					;[INF] 2, 4
	add	a,[hl+2]	; s 				;[INF] 2, 8/9
	xch	a,x						;[INF] 1, 2
	addc	a,[hl+3]	; s 				;[INF] 2, 8/9
	movw	de,ax						;[INF] 1, 4
	mov	a,c						;[INF] 1, 2
	mov	[de],a						;[INF] 1, 4/5
; line   509
$DGL	0,6
	mov	a,[hl+1]	; i 				;[INF] 2, 8/9
	mov	c,a						;[INF] 1, 2
	push	hl						;[INF] 1, 4
	movw	hl,#_disbuff					;[INF] 3, 6
	mov	a,[hl+c]					;[INF] 1, 6/7
	pop	hl						;[INF] 1, 4
	and	a,#0FH	; 15 					;[INF] 2, 4
	mov	c,a						;[INF] 1, 2
	mov	a,[hl+1]	; i 				;[INF] 2, 8/9
	add	a,a						;[INF] 2, 4
	inc	a						;[INF] 1, 2
	mov	x,#00H	; 0 					;[INF] 2, 4
	add	a,[hl+2]	; s 				;[INF] 2, 8/9
	xch	a,x						;[INF] 1, 2
	addc	a,[hl+3]	; s 				;[INF] 2, 8/9
	movw	de,ax						;[INF] 1, 4
	mov	a,c						;[INF] 1, 2
	mov	[de],a						;[INF] 1, 4/5
??eb00_display_seg:
	mov	a,[hl+1]	; i 				;[INF] 2, 8/9
	inc	a						;[INF] 1, 2
	mov	[hl+1],a	; i 				;[INF] 2, 8/9
	br	$?L0111						;[INF] 2, 6
?L0112:
; line   510
$DGL	0,7
??ef_display_seg:
	pop	ax						;[INF] 1, 4
	pop	ax						;[INF] 1, 4
	pop	hl						;[INF] 1, 4
	ret							;[INF] 1, 6
??ee_display_seg:
; line   513
_clear_display_buff:
$DGL	1,262
	push	hl						;[INF] 1, 4
??bf_clear_display_buff:
; line   515
$DGL	0,3
	mov	l,#00H	; 0 					;[INF] 2, 4
?L0116:
	mov	a,l						;[INF] 1, 2
	cmp	a,#014H	; 20 					;[INF] 2, 4
	bnc	$?L0117						;[INF] 2, 6
; line   516
$DGL	0,4
??bb00_clear_display_buff:
	movw	ax,hl						;[INF] 1, 4
	mov	a,#00H	; 0 					;[INF] 2, 4
	addw	ax,#_disbuff					;[INF] 3, 6
	movw	de,ax						;[INF] 1, 4
	mov	a,#00H	; 0 					;[INF] 2, 4
	mov	[de],a						;[INF] 1, 4/5
??eb00_clear_display_buff:
	inc	l						;[INF] 1, 2
	br	$?L0116						;[INF] 2, 6
?L0117:
; line   517
$DGL	0,5
??ef_clear_display_buff:
	pop	hl						;[INF] 1, 4
	ret							;[INF] 1, 6
??ee_clear_display_buff:
; line   519
_temp_display:
$DGL	1,273
??bf_temp_display:
; line   520
$DGL	0,2
	mov	a,#01H	; 1 					;[INF] 2, 4
	mov	!_SEG26,a					;[INF] 3, 9
; line   521
$DGL	0,3
	mov	a,#09H	; 9 					;[INF] 2, 4
	mov	!_SEG25,a					;[INF] 3, 9
; line   522
$DGL	0,4
	mov	a,#0FH	; 15 					;[INF] 2, 4
	mov	!_SEG24,a					;[INF] 3, 9
; line   523
$DGL	0,5
	mov	a,#0DH	; 13 					;[INF] 2, 4
	mov	!_SEG23,a					;[INF] 3, 9
; line   531
$DGL	0,13
??ef_temp_display:
	ret							;[INF] 1, 6
??ee_temp_display:
; line   536
_key_down:
$DGL	1,279
	push	ax						;[INF] 1, 4
	push	bc						;[INF] 1, 4
	push	de						;[INF] 1, 4
	movw	ax,_@RTARG0					;[INF] 2, 6
	push	ax						;[INF] 1, 4
	movw	ax,_@RTARG2					;[INF] 2, 6
	push	ax						;[INF] 1, 4
	movw	ax,_@RTARG4					;[INF] 2, 6
	push	ax						;[INF] 1, 4
	movw	ax,_@RTARG6					;[INF] 2, 6
	push	ax						;[INF] 1, 4
??bf_key_down:
; line   537
$DGL	0,2
	set1	_keyflg						;[INF] 2, 4
; line   538
$DGL	0,3
	bt	P4.2,$?L0125					;[INF] 3, 9
; line   539
??bb00_key_down:
; line   540
$DGL	0,5
	call	!_delay_10ms					;[INF] 3, 7
; line   541
$DGL	0,6
	bt	P4.2,$?L0125					;[INF] 3, 9
; line   542
??bb01_key_down:
; line   543
$DGL	0,8
	call	!_clear_display_buff				;[INF] 3, 7
; line   544
$DGL	0,9
	call	!_display_seg					;[INF] 3, 7
; line   545
$DGL	0,10
	nop							;[INF] 1, 2
	nop							;[INF] 1, 2
	nop							;[INF] 1, 2
	nop							;[INF] 1, 2
	nop							;[INF] 1, 2
; line   546
$DGL	0,11
	call	!_temp_display					;[INF] 3, 7
; line   547
$DGL	0,12
	call	!_key_music					;[INF] 3, 7
??eb01_key_down:
; line   548
?L0125:
??eb00_key_down:
; line   549
; line   551
$DGL	0,16
??ef_key_down:
	pop	ax						;[INF] 1, 4
	movw	_@RTARG6,ax					;[INF] 2, 6
	pop	ax						;[INF] 1, 4
	movw	_@RTARG4,ax					;[INF] 2, 6
	pop	ax						;[INF] 1, 4
	movw	_@RTARG2,ax					;[INF] 2, 6
	pop	ax						;[INF] 1, 4
	movw	_@RTARG0,ax					;[INF] 2, 6
	pop	de						;[INF] 1, 4
	pop	bc						;[INF] 1, 4
	pop	ax						;[INF] 1, 4
	reti							;[INF] 1, 6
??ee_key_down:
; line   554
_key_service:
$DGL	1,293
??bf_key_service:
; line   556
$DGL	0,3
??ef_key_service:
	ret							;[INF] 1, 6
??ee_key_service:
; line   561
_delay_100us:
$DGL	1,299
??bf_delay_100us:
; line   562
$DGL	0,2
	nop							;[INF] 1, 2
	nop							;[INF] 1, 2
	nop							;[INF] 1, 2
	nop							;[INF] 1, 2
	nop							;[INF] 1, 2
	nop							;[INF] 1, 2
	nop							;[INF] 1, 2
	nop							;[INF] 1, 2
	nop							;[INF] 1, 2
	nop							;[INF] 1, 2
; line   563
$DGL	0,3
	nop							;[INF] 1, 2
	nop							;[INF] 1, 2
	nop							;[INF] 1, 2
	nop							;[INF] 1, 2
	nop							;[INF] 1, 2
	nop							;[INF] 1, 2
	nop							;[INF] 1, 2
	nop							;[INF] 1, 2
	nop							;[INF] 1, 2
	nop							;[INF] 1, 2
; line   564
$DGL	0,4
	nop							;[INF] 1, 2
	nop							;[INF] 1, 2
	nop							;[INF] 1, 2
	nop							;[INF] 1, 2
	nop							;[INF] 1, 2
	nop							;[INF] 1, 2
	nop							;[INF] 1, 2
	nop							;[INF] 1, 2
	nop							;[INF] 1, 2
	nop							;[INF] 1, 2
; line   565
$DGL	0,5
	nop							;[INF] 1, 2
	nop							;[INF] 1, 2
	nop							;[INF] 1, 2
	nop							;[INF] 1, 2
	nop							;[INF] 1, 2
	nop							;[INF] 1, 2
	nop							;[INF] 1, 2
	nop							;[INF] 1, 2
	nop							;[INF] 1, 2
	nop							;[INF] 1, 2
; line   566
$DGL	0,6
??ef_delay_100us:
	ret							;[INF] 1, 6
??ee_delay_100us:
; line   568
_delay_10ms:
$DGL	1,305
	push	hl						;[INF] 1, 4
??bf_delay_10ms:
; line   570
$DGL	0,3
	mov	l,#00H	; 0 					;[INF] 2, 4
?L0133:
	mov	a,l						;[INF] 1, 2
	cmp	a,#0AH	; 10 					;[INF] 2, 4
	bnc	$?L0134						;[INF] 2, 6
; line   571
$DGL	0,4
??bb00_delay_10ms:
	call	!_delay_100us					;[INF] 3, 7
??eb00_delay_10ms:
	inc	l						;[INF] 1, 2
	br	$?L0133						;[INF] 2, 6
?L0134:
; line   572
$DGL	0,5
??ef_delay_10ms:
	pop	hl						;[INF] 1, 4
	ret							;[INF] 1, 6
??ee_delay_10ms:
; line   577
_ini_rtc:
$DGL	1,316
??bf_ini_rtc:
; line   578
$DGL	0,2
	mov	RTCCL,#00H	; 0 				;[INF] 3, 7
; line   579
$DGL	0,3
	mov	RTCC0,#02AH	; 42 				;[INF] 3, 7
; line   580
$DGL	0,4
	mov	RTCC1,#00H	; 0 				;[INF] 3, 7
; line   581
$DGL	0,5
	mov	RTCC2,#00H	; 0 				;[INF] 3, 7
; line   582
$DGL	0,6
	set1	RTCC0.7						;[INF] 3, 8
; line   583
$DGL	0,7
	clr1	IF1L.2						;[INF] 3, 8
; line   584
$DGL	0,8
	clr1	MK1L.2						;[INF] 3, 8
; line   585
$DGL	0,9
??ef_ini_rtc:
	ret							;[INF] 1, 6
??ee_ini_rtc:
; line   588
_write_rtc:
$DGL	1,322
??bf_write_rtc:
; line   589
$DGL	0,2
	set1	RTCC1.0						;[INF] 3, 8
; line   590
$DGL	0,3
	mov	a,!_systime					;[INF] 3, 8/9
	mov	SEC,a						;[INF] 2, 5
; line   591
$DGL	0,4
	mov	a,!_systime+1					;[INF] 3, 8/9
	mov	MIN,a						;[INF] 2, 5
; line   592
$DGL	0,5
	mov	a,!_systime+2					;[INF] 3, 8/9
	mov	HOUR,a						;[INF] 2, 5
; line   593
$DGL	0,6
	mov	a,!_systime+3					;[INF] 3, 8/9
	mov	WEEK,a						;[INF] 2, 5
; line   594
$DGL	0,7
	mov	a,!_systime+4					;[INF] 3, 8/9
	mov	DAY,a						;[INF] 2, 5
; line   595
$DGL	0,8
	mov	a,!_systime+5					;[INF] 3, 8/9
	mov	MONTH,a						;[INF] 2, 5
; line   596
$DGL	0,9
	mov	a,!_systime+6					;[INF] 3, 8/9
	mov	YEAR,a						;[INF] 2, 5
; line   597
$DGL	0,10
	clr1	RTCC1.0						;[INF] 3, 8
; line   598
$DGL	0,11
??ef_write_rtc:
	ret							;[INF] 1, 6
??ee_write_rtc:
; line   601
_read_rtc:
$DGL	1,328
??bf_read_rtc:
; line   602
$DGL	0,2
	set1	RTCC1.0						;[INF] 3, 8
; line   603
$DGL	0,3
	mov	a,SEC						;[INF] 2, 5
	mov	!_systime,a					;[INF] 3, 8/9
; line   604
$DGL	0,4
	mov	a,MIN						;[INF] 2, 5
	mov	!_systime+1,a					;[INF] 3, 8/9
; line   605
$DGL	0,5
	mov	a,HOUR						;[INF] 2, 5
	mov	!_systime+2,a					;[INF] 3, 8/9
; line   606
$DGL	0,6
	mov	a,WEEK						;[INF] 2, 5
	mov	!_systime+3,a					;[INF] 3, 8/9
; line   607
$DGL	0,7
	mov	a,DAY						;[INF] 2, 5
	mov	!_systime+4,a					;[INF] 3, 8/9
; line   608
$DGL	0,8
	mov	a,MONTH						;[INF] 2, 5
	mov	!_systime+5,a					;[INF] 3, 8/9
; line   609
$DGL	0,9
	mov	a,YEAR						;[INF] 2, 5
	mov	!_systime+6,a					;[INF] 3, 8/9
; line   610
$DGL	0,10
	clr1	RTCC1.0						;[INF] 3, 8
; line   611
$DGL	0,11
??ef_read_rtc:
	ret							;[INF] 1, 6
??ee_read_rtc:
; line   614
_rtc_1s:
$DGL	1,334
	push	ax						;[INF] 1, 4
	push	bc						;[INF] 1, 4
	push	de						;[INF] 1, 4
	movw	ax,_@RTARG0					;[INF] 2, 6
	push	ax						;[INF] 1, 4
	movw	ax,_@RTARG2					;[INF] 2, 6
	push	ax						;[INF] 1, 4
	movw	ax,_@RTARG4					;[INF] 2, 6
	push	ax						;[INF] 1, 4
	movw	ax,_@RTARG6					;[INF] 2, 6
	push	ax						;[INF] 1, 4
??bf_rtc_1s:
; line   615
$DGL	0,2
	call	!_read_rtc					;[INF] 3, 7
; line   616
$DGL	0,3
	call	!_clear_display_buff				;[INF] 3, 7
; line   617
$DGL	0,4
	call	!_display_seg					;[INF] 3, 7
; line   618
$DGL	0,5
	nop							;[INF] 1, 2
	nop							;[INF] 1, 2
	nop							;[INF] 1, 2
	nop							;[INF] 1, 2
	nop							;[INF] 1, 2
; line   619
$DGL	0,6
	call	!_display_rtc					;[INF] 3, 7
; line   621
$DGL	0,8
??ef_rtc_1s:
	pop	ax						;[INF] 1, 4
	movw	_@RTARG6,ax					;[INF] 2, 6
	pop	ax						;[INF] 1, 4
	movw	_@RTARG4,ax					;[INF] 2, 6
	pop	ax						;[INF] 1, 4
	movw	_@RTARG2,ax					;[INF] 2, 6
	pop	ax						;[INF] 1, 4
	movw	_@RTARG0,ax					;[INF] 2, 6
	pop	de						;[INF] 1, 4
	pop	bc						;[INF] 1, 4
	pop	ax						;[INF] 1, 4
	reti							;[INF] 1, 6
??ee_rtc_1s:
; line   624
_display_rtc:
$DGL	1,340
	push	hl						;[INF] 1, 4
??bf_display_rtc:
; line   626
$DGL	0,3
	mov	a,#02H	; 2 					;[INF] 2, 4
	mov	!_SEG25,a					;[INF] 3, 9
; line   627
$DGL	0,4
	mov	a,#06H	; 6 					;[INF] 2, 4
	mov	!_SEG20,a					;[INF] 3, 9
	mov	!_SEG13,a					;[INF] 3, 9
; line   628
$DGL	0,5
	mov	l,#00H	; 0 					;[INF] 2, 4
?L0146:
	mov	a,l						;[INF] 1, 2
	cmp	a,#03H	; 3 					;[INF] 2, 4
	bnc	$?L0147						;[INF] 2, 6
; line   629
??bb00_display_rtc:
; line   630
$DGL	0,7
	movw	ax,hl						;[INF] 1, 4
	mov	a,#00H	; 0 					;[INF] 2, 4
	addw	ax,#_systime					;[INF] 3, 6
	movw	de,ax						;[INF] 1, 4
	mov	a,[de]						;[INF] 1, 4/5
	and	a,#0FH	; 15 					;[INF] 2, 4
	mov	c,a						;[INF] 1, 2
	mov	a,l						;[INF] 1, 2
	add	a,a						;[INF] 2, 4
	mov	b,a						;[INF] 1, 2
	push	hl						;[INF] 1, 4
	mov	a,c						;[INF] 1, 2
	movw	hl,#_disbuff					;[INF] 3, 6
	mov	[hl+b],a					;[INF] 1, 6/7
	pop	hl						;[INF] 1, 4
; line   631
$DGL	0,8
	movw	ax,hl						;[INF] 1, 4
	mov	a,#00H	; 0 					;[INF] 2, 4
	addw	ax,#_systime					;[INF] 3, 6
	movw	de,ax						;[INF] 1, 4
	mov	a,[de]						;[INF] 1, 4/5
	ror	a,1						;[INF] 1, 2
	ror	a,1						;[INF] 1, 2
	ror	a,1						;[INF] 1, 2
	ror	a,1						;[INF] 1, 2
	and	a,#0FH	; 15 					;[INF] 2, 4
	mov	c,a						;[INF] 1, 2
	mov	a,l						;[INF] 1, 2
	add	a,a						;[INF] 2, 4
	inc	a						;[INF] 1, 2