78f0485.asm

NEC单片机0485的程序

$DGL	0,25
	movw	ax,#0604H	; 1540 				;[INF] 3, 6
	call	!_buzzerdrv2					;[INF] 3, 7
; line   249
$DGL	0,26
	mov	WDTE,#0ACH	; 172 				;[INF] 3, 7
??eb00_startmusic:
; line   250
$DGL	0,27
	br	!?L0019						;[INF] 3, 6
?L0020:
; line   251
$DGL	0,28
??ef_startmusic:
	ret							;[INF] 1, 6
??ee_startmusic:
; line   254
_buzzerdrv:
$DGL	1,65
	push	hl						;[INF] 1, 4
	push	ax						;[INF] 1, 4
	movw	ax,sp						;[INF] 2, 8
	movw	hl,ax						;[INF] 1, 4
??bf_buzzerdrv:
; line   255
$DGL	0,2
	movw	ax,!_timecount					;[INF] 3,10/12
	cmp	a,[hl+1]	; time1 			;[INF] 2, 8/9
	bnz	$?L0025						;[INF] 2, 6
	xch	a,x						;[INF] 1, 2
	cmp	a,[hl]	; time1 				;[INF] 1, 4/5
?L0025:
	bc	$?L0023						;[INF] 2, 6
	bz	$?L0023						;[INF] 2, 6
	movw	ax,!_timecount					;[INF] 3,10/12
	cmp	a,[hl+7]	; time2 			;[INF] 2, 8/9
	bnz	$?L0026						;[INF] 2, 6
	xch	a,x						;[INF] 1, 2
	cmp	a,[hl+6]	; time2 			;[INF] 2, 8/9
?L0026:
	bc	$$+4						;[INF] 2, 6
	bnz	$?L0023						;[INF] 2, 6
; line   256
??bb00_buzzerdrv:
; line   257
$DGL	0,4
	mov	a,[hl+10]	; lfreq 			;[INF] 2, 8/9
	cmp	a,#00H	; 0 					;[INF] 2, 4
	bz	$?L0027						;[INF] 2, 6
; line   258
$DGL	0,5
??bb01_buzzerdrv:
	set1	P3.3						;[INF] 2, 6
??eb01_buzzerdrv:
	br	$?L0028						;[INF] 2, 6
?L0027:
; line   260
$DGL	0,7
??bb02_buzzerdrv:
	clr1	P3.3						;[INF] 2, 6
??eb02_buzzerdrv:
?L0028:
; line   261
$DGL	0,8
	mov	a,[hl+8]	; hfreq 			;[INF] 2, 8/9
	mov	CMP00,a						;[INF] 2, 5
??eb00_buzzerdrv:
; line   262
?L0023:
; line   263
$DGL	0,10
??ef_buzzerdrv:
	pop	ax						;[INF] 1, 4
	pop	hl						;[INF] 1, 4
	ret							;[INF] 1, 6
??ee_buzzerdrv:
; line   266
_buzzerdrv2:
$DGL	1,87
	push	hl						;[INF] 1, 4
	movw	hl,ax						;[INF] 1, 4
??bf_buzzerdrv2:
; line   267
$DGL	0,2
	movw	ax,!_timecount					;[INF] 3,10/12
	cmp	a,h						;[INF] 2, 4
	bnz	$?L0033						;[INF] 2, 6
	xch	a,x						;[INF] 1, 2
	cmp	a,l						;[INF] 2, 4
?L0033:
	bc	$?L0031						;[INF] 2, 6
	bz	$?L0031						;[INF] 2, 6
; line   268
??bb00_buzzerdrv2:
; line   269
$DGL	0,4
	movw	ax,#00H	; 0 					;[INF] 3, 6
	movw	!_timecount,ax					;[INF] 3,10/12
; line   270
$DGL	0,5
	mov	TMHMD0,#00H	; 0 				;[INF] 3, 7
; line   271
$DGL	0,6
	clr1	_beepflg					;[INF] 2, 4
??eb00_buzzerdrv2:
; line   272
?L0031:
; line   273
$DGL	0,8
??ef_buzzerdrv2:
	pop	hl						;[INF] 1, 4
	ret							;[INF] 1, 6
??ee_buzzerdrv2:
; line   276
_Tmit_1ms:
$DGL	1,98
	push	ax						;[INF] 1, 4
??bf_Tmit_1ms:
; line   277
$DGL	0,2
	movw	ax,!_timecount					;[INF] 3,10/12
	incw	ax						;[INF] 1, 4
	movw	!_timecount,ax					;[INF] 3,10/12
; line   278
$DGL	0,3
??ef_Tmit_1ms:
	pop	ax						;[INF] 1, 4
	reti							;[INF] 1, 6
??ee_Tmit_1ms:
; line   281
_key_music:
$DGL	1,104
??bf_key_music:
; line   282
$DGL	0,2
	movw	ax,#00H	; 0 					;[INF] 3, 6
	movw	!_timecount,ax					;[INF] 3,10/12
; line   283
$DGL	0,3
	set1	_beepflg					;[INF] 2, 4
; line   284
$DGL	0,4
	mov	a,TMHMD0					;[INF] 2, 5
	or	a,#080H	; 128 					;[INF] 2, 4
	mov	TMHMD0,a					;[INF] 2, 5
; line   285
$DGL	0,5
?L0038:
	bf	_beepflg,$?L0039				;[INF] 4,10
; line   286
??bb00_key_music:
; line   287
$DGL	0,7
	mov	WDTE,#0ACH	; 172 				;[INF] 3, 7
; line   288
$DGL	0,8
	movw	ax,#01H	; 1 					;[INF] 3, 6
	push	ax						;[INF] 1, 4
	mov	x,#01AH	; 26 					;[INF] 2, 4
	push	ax						;[INF] 1, 4
	mov	x,#04AH	; 74 					;[INF] 2, 4
	push	ax						;[INF] 1, 4
	mov	x,a						;[INF] 1, 2
	call	!_buzzerdrv					;[INF] 3, 7
	pop	ax						;[INF] 1, 4
	pop	ax						;[INF] 1, 4
	pop	ax						;[INF] 1, 4
; line   289
$DGL	0,9
	movw	ax,#00H	; 0 					;[INF] 3, 6
	push	ax						;[INF] 1, 4
	mov	x,#01AH	; 26 					;[INF] 2, 4
	push	ax						;[INF] 1, 4
	movw	ax,#0423H	; 1059 				;[INF] 3, 6
	push	ax						;[INF] 1, 4
	movw	ax,#04AH	; 74 				;[INF] 3, 6
	call	!_buzzerdrv					;[INF] 3, 7
	pop	ax						;[INF] 1, 4
	pop	ax						;[INF] 1, 4
	pop	ax						;[INF] 1, 4
; line   290
$DGL	0,10
	movw	ax,#0423H	; 1059 				;[INF] 3, 6
	call	!_buzzerdrv2					;[INF] 3, 7
??eb00_key_music:
; line   291
$DGL	0,11
	br	$?L0038						;[INF] 2, 6
?L0039:
; line   292
$DGL	0,12
??ef_key_music:
	ret							;[INF] 1, 6
??ee_key_music:
; line   296
_ledinit:
$DGL	1,114
??bf_ledinit:
; line   297
$DGL	0,2
	clr1	P1.5						;[INF] 2, 6
; line   298
$DGL	0,3
	movw	ax,#0CH	; 12 					;[INF] 3, 6
	call	!_ledsendbyte					;[INF] 3, 7
; line   299
$DGL	0,4
	movw	ax,#01H	; 1 					;[INF] 3, 6
	call	!_ledsendbyte					;[INF] 3, 7
; line   300
$DGL	0,5
	set1	P1.5						;[INF] 2, 6
; line   301
$DGL	0,6
	nop							;[INF] 1, 2
; line   302
$DGL	0,7
	clr1	P1.5						;[INF] 2, 6
; line   303
$DGL	0,8
	movw	ax,#0BH	; 11 					;[INF] 3, 6
	call	!_ledsendbyte					;[INF] 3, 7
; line   304
$DGL	0,9
	movw	ax,#07H	; 7 					;[INF] 3, 6
	call	!_ledsendbyte					;[INF] 3, 7
; line   305
$DGL	0,10
	set1	P1.5						;[INF] 2, 6
; line   306
$DGL	0,11
	nop							;[INF] 1, 2
; line   307
$DGL	0,12
	clr1	P1.5						;[INF] 2, 6
; line   308
$DGL	0,13
	movw	ax,#09H	; 9 					;[INF] 3, 6
	call	!_ledsendbyte					;[INF] 3, 7
; line   309
$DGL	0,14
	movw	ax,#00H	; 0 					;[INF] 3, 6
	call	!_ledsendbyte					;[INF] 3, 7
; line   310
$DGL	0,15
	set1	P1.5						;[INF] 2, 6
; line   311
$DGL	0,16
	nop							;[INF] 1, 2
; line   312
$DGL	0,17
	clr1	P1.5						;[INF] 2, 6
; line   313
$DGL	0,18
	movw	ax,#0AH	; 10 					;[INF] 3, 6
	call	!_ledsendbyte					;[INF] 3, 7
; line   314
$DGL	0,19
	movw	ax,#0FH	; 15 					;[INF] 3, 6
	call	!_ledsendbyte					;[INF] 3, 7
; line   315
$DGL	0,20
	set1	P1.5						;[INF] 2, 6
; line   316
$DGL	0,21
??ef_ledinit:
	ret							;[INF] 1, 6
??ee_ledinit:
; line   319
_leddriver:
$DGL	1,120
	push	hl						;[INF] 1, 4
??bf_leddriver:
; line   321
$DGL	0,3
	mov	l,#00H	; 0 					;[INF] 2, 4
?L0044:
	mov	a,l						;[INF] 1, 2
	cmp	a,#08H	; 8 					;[INF] 2, 4
	bnc	$?L0045						;[INF] 2, 6
; line   322
??bb00_leddriver:
; line   323
$DGL	0,5
	clr1	P1.5						;[INF] 2, 6
; line   324
$DGL	0,6
	mov	a,l						;[INF] 1, 2
	inc	a						;[INF] 1, 2
	mov	x,#00H	; 0 					;[INF] 2, 4
	xch	a,x						;[INF] 1, 2
	call	!_ledsendbyte					;[INF] 3, 7
; line   325
$DGL	0,7
	movw	ax,hl						;[INF] 1, 4
	mov	a,#00H	; 0 					;[INF] 2, 4
	addw	ax,#_LedDisData					;[INF] 3, 6
	movw	de,ax						;[INF] 1, 4
	mov	a,[de]						;[INF] 1, 4/5
	mov	x,#00H	; 0 					;[INF] 2, 4
	xch	a,x						;[INF] 1, 2
	call	!_ledsendbyte					;[INF] 3, 7
; line   326
$DGL	0,8
	set1	P1.5						;[INF] 2, 6
??eb00_leddriver:
; line   327
$DGL	0,9
	inc	l						;[INF] 1, 2
	br	$?L0044						;[INF] 2, 6
?L0045:
; line   328
$DGL	0,10
??ef_leddriver:
	pop	hl						;[INF] 1, 4
	ret							;[INF] 1, 6
??ee_leddriver:
; line   331
_ledsendbyte:
$DGL	1,131
	push	hl						;[INF] 1, 4
	push	ax						;[INF] 1, 4
	push	ax						;[INF] 1, 4
	movw	ax,sp						;[INF] 2, 8
	movw	hl,ax						;[INF] 1, 4
??bf_ledsendbyte:
; line   333
$DGL	0,3
	mov	a,#00H	; 0 					;[INF] 2, 4
	mov	[hl+1],a	; i 				;[INF] 2, 8/9
?L0049:
	mov	a,[hl+1]	; i 				;[INF] 2, 8/9
	cmp	a,#08H	; 8 					;[INF] 2, 4
	bnc	$?L0050						;[INF] 2, 6
; line   334
??bb00_ledsendbyte:
; line   335
$DGL	0,5
	clr1	P1.4						;[INF] 2, 6
; line   336
$DGL	0,6
	mov	a,[hl+1]	; i 				;[INF] 2, 8/9
	mov	c,a						;[INF] 1, 2
	mov	a,[hl+2]	; data_byte 			;[INF] 2, 8/9
	dec	c						;[INF] 1, 2
	inc	c						;[INF] 1, 2
	bz	$?L0054						;[INF] 2, 6
	add	a,a						;[INF] 2, 4
	dbnz	c,$$-2						;[INF] 2, 6
?L0054:
	bf	a.7,$?L0052					;[INF] 3, 8
; line   337
$DGL	0,7
??bb01_ledsendbyte:
	set1	P1.6						;[INF] 2, 6
??eb01_ledsendbyte:
	br	$?L0053						;[INF] 2, 6
?L0052:
; line   339
$DGL	0,9
??bb02_ledsendbyte:
	clr1	P1.6						;[INF] 2, 6
??eb02_ledsendbyte:
?L0053:
; line   340
$DGL	0,10
	set1	P1.4						;[INF] 2, 6
??eb00_ledsendbyte:
; line   341
$DGL	0,11
	mov	a,[hl+1]	; i 				;[INF] 2, 8/9
	inc	a						;[INF] 1, 2
	mov	[hl+1],a	; i 				;[INF] 2, 8/9
	br	$?L0049						;[INF] 2, 6
?L0050:
; line   342
$DGL	0,12
??ef_ledsendbyte:
	pop	ax						;[INF] 1, 4
	pop	ax						;[INF] 1, 4
	pop	hl						;[INF] 1, 4
	ret							;[INF] 1, 6
??ee_ledsendbyte:
; line   345
_leddisplay:
$DGL	1,151
??bf_leddisplay:
; line   346
$DGL	0,2
	movw	ax,_TempData					;[INF] 2, 6
	mov	x,#00H	; 0 					;[INF] 2, 4
	xch	a,x						;[INF] 1, 2
	movw	!_LedNum,ax					;[INF] 3,10/12
	mov	x,#00H	; 0 					;[INF] 2, 4
	movw	!_LedNum+2,ax					;[INF] 3,10/12
; line   347
$DGL	0,3
	mov	a,#046H	; 70 					;[INF] 2, 4
	mov	!_LedDisData,a					;[INF] 3, 8/9
; line   348
$DGL	0,4
	mov	a,#04FH	; 79 					;[INF] 2, 4
	mov	!_LedDisData+1,a				;[INF] 3, 8/9
; line   349
$DGL	0,5
	mov	a,#067H	; 103 					;[INF] 2, 4
	mov	!_LedDisData+2,a				;[INF] 3, 8/9
; line   350
$DGL	0,6
	mov	a,x						;[INF] 1, 2
	mov	!_LedDisData+3,a				;[INF] 3, 8/9
; line   351
$DGL	0,7
	movw	ax,!_LedNum					;[INF] 3,10/12
	movw	_@RTARG0,ax					;[INF] 2, 6
	movw	ax,!_LedNum+2					;[INF] 3,10/12
	movw	_@RTARG2,ax					;[INF] 2, 6
	movw	_@RTARG4,#0AH	; 10 				;[INF] 4, 8
	movw	ax,#00H	; 0 					;[INF] 3, 6
	call	!@@ludiv					;[INF] 3, 7
	movw	_@RTARG4,#0AH	; 10 				;[INF] 4, 8
	movw	ax,#00H	; 0 					;[INF] 3, 6
	call	!@@lurem					;[INF] 3, 7
	movw	ax,_@RTARG0					;[INF] 2, 6
	addw	ax,#_ledchar8_tab				;[INF] 3, 6
	movw	de,ax						;[INF] 1, 4
	mov	a,[de]						;[INF] 1, 4/5
	mov	!_LedDisData+4,a				;[INF] 3, 8/9
; line   352
$DGL	0,8
	movw	ax,!_LedNum					;[INF] 3,10/12
	movw	_@RTARG0,ax					;[INF] 2, 6
	movw	ax,!_LedNum+2					;[INF] 3,10/12
	movw	_@RTARG2,ax					;[INF] 2, 6
	movw	_@RTARG4,#0AH	; 10 				;[INF] 4, 8
	movw	ax,#00H	; 0 					;[INF] 3, 6
	call	!@@lurem					;[INF] 3, 7
	movw	ax,_@RTARG0					;[INF] 2, 6
	addw	ax,#_ledchar8_tab				;[INF] 3, 6
	movw	de,ax						;[INF] 1, 4
	mov	a,[de]						;[INF] 1, 4/5
	mov	!_LedDisData+5,a				;[INF] 3, 8/9
; line   353
$DGL	0,9
	mov	a,#080H	; 128 					;[INF] 2, 4
	mov	!_LedDisData+6,a				;[INF] 3, 8/9
; line   354
$DGL	0,10
	mov	a,#00H	; 0 					;[INF] 2, 4
	mov1	CY,_TempData.7					;[INF] 3, 6
	rolc	a,1						;[INF] 1, 2
	mov	x,#05H	; 5 					;[INF] 2, 4
	mulu	x						;[INF] 2,16
	xch	a,x						;[INF] 1, 2
	mov	x,a						;[INF] 1, 2
	rolc	a,1						;[INF] 1, 2
	subc	a,a						;[INF] 2, 4
	addw	ax,#_ledchar8_tab				;[INF] 3, 6
	movw	de,ax						;[INF] 1, 4
	mov	a,[de]						;[INF] 1, 4/5
	mov	!_LedDisData+7,a				;[INF] 3, 8/9
; line   355
$DGL	0,11
??ef_leddisplay:
	ret							;[INF] 1, 6
??ee_leddisplay:
; line   360
_iic_start:
$DGL	1,157
??bf_iic_start:
; line   361
$DGL	0,2
	clr1	PM11.1						;[INF] 3, 8
; line   362
$DGL	0,3
	clr1	PM11.0						;[INF] 3, 8
; line   363
$DGL	0,4
	set1	P11.0						;[INF] 2, 6
; line   364
$DGL	0,5
	set1	P11.1						;[INF] 2, 6
; line   365
$DGL	0,6
	nop							;[INF] 1, 2
; line   366
$DGL	0,7
	clr1	P11.0						;[INF] 2, 6
; line   367
$DGL	0,8
	clr1	P11.1						;[INF] 2, 6
; line   368
$DGL	0,9
??ef_iic_start:
	ret							;[INF] 1, 6
??ee_iic_start:
; line   371
_iic_stop:
$DGL	1,163
??bf_iic_stop:
; line   372
$DGL	0,2
	clr1	P11.0						;[INF] 2, 6
; line   373
$DGL	0,3
	set1	P11.1						;[INF] 2, 6
; line   374
$DGL	0,4
	set1	P11.0						;[INF] 2, 6
; line   375
$DGL	0,5
??ef_iic_stop:
	ret							;[INF] 1, 6