mycommio.asm

这是符合国家一级汉字标准的汉字显示液晶模块程序

	movw	de,ax						;[INF] 1, 4
	incw	ax						;[INF] 1, 4
	mov	[hl+3],a	; p_bufTransmit 		;[INF] 2, 6
	xch	a,x						;[INF] 1, 4
	mov	[hl+2],a	; p_bufTransmit 		;[INF] 2, 6
	mov	a,_g_keyValue					;[INF] 2, 4
	mov	[de],a						;[INF] 1, 6
; line   276
$DGL	0,28
	mov	a,[hl+4]	; ctlCode 			;[INF] 2, 6
	xch	a,x						;[INF] 1, 4
	xor	a,a						;[INF] 2, 4
	call	!_CheckSumTransmit				;[INF] 3, 6
	mov	a,[hl+2]	; p_bufTransmit 		;[INF] 2, 6
	xch	a,x						;[INF] 1, 4
	mov	a,[hl+3]	; p_bufTransmit 		;[INF] 2, 6
	movw	de,ax						;[INF] 1, 4
	mov	a,c						;[INF] 2, 4
	mov	[de],a						;[INF] 1, 6
; line   278
$DGL	0,30
	br	$?L0008						;[INF] 2, 6
; line   283
$DGL	0,35
?L0007:
; line   284
$DGL	0,36
	movw	de,#_ChinCharStr				;[INF] 3, 6
	callt	[@@deilo]					;[INF] 1, 8
	movw	de,ax						;[INF] 1, 4
	mov	a,[de]						;[INF] 1, 6
	cmp	a,#030H	; 48 					;[INF] 2, 4
	bz	$?L0010						;[INF] 2, 6
; line   285
$DGL	0,37
??bb01_SetDataTransmitBuffer:
; line   286
$DGL	0,38
	movw	de,#_ChinCharStr				;[INF] 3, 6
	callt	[@@deiinc]					;[INF] 1, 8
	decw	ax						;[INF] 1, 4
	movw	de,ax						;[INF] 1, 4
	mov	a,[de]						;[INF] 1, 6
	mov	c,a						;[INF] 2, 4
	mov	a,[hl+2]	; p_bufTransmit 		;[INF] 2, 6
	xch	a,x						;[INF] 1, 4
	mov	a,[hl+3]	; p_bufTransmit 		;[INF] 2, 6
	movw	de,ax						;[INF] 1, 4
	incw	ax						;[INF] 1, 4
	mov	[hl+3],a	; p_bufTransmit 		;[INF] 2, 6
	xch	a,x						;[INF] 1, 4
	mov	[hl+2],a	; p_bufTransmit 		;[INF] 2, 6
	mov	a,c						;[INF] 2, 4
	mov	[de],a						;[INF] 1, 6
; line   288
$DGL	0,40
	movw	de,#_hanZiByteAmount				;[INF] 3, 6
	mov	a,[de]						;[INF] 1, 6
	inc	a						;[INF] 2, 4
	mov	[de],a						;[INF] 1, 6
??eb01_SetDataTransmitBuffer:
	br	$?L0007						;[INF] 2, 6
?L0010:
; line   291
$DGL	0,43
	mov	a,[hl+4]	; ctlCode 			;[INF] 2, 6
	xch	a,x						;[INF] 1, 4
	xor	a,a						;[INF] 2, 4
	call	!_ByteLengthSelection				;[INF] 3, 6
	mov	a,[hl]	; p 					;[INF] 1, 6
	xch	a,x						;[INF] 1, 4
	mov	a,[hl+1]	; p 				;[INF] 2, 6
	movw	de,ax						;[INF] 1, 4
	mov	a,c						;[INF] 2, 4
	mov	[de],a						;[INF] 1, 6
; line   293
$DGL	0,45
	mov	a,[hl+4]	; ctlCode 			;[INF] 2, 6
	xch	a,x						;[INF] 1, 4
	xor	a,a						;[INF] 2, 4
	call	!_CheckSumTransmit				;[INF] 3, 6
	mov	a,[hl+2]	; p_bufTransmit 		;[INF] 2, 6
	xch	a,x						;[INF] 1, 4
	mov	a,[hl+3]	; p_bufTransmit 		;[INF] 2, 6
	movw	de,ax						;[INF] 1, 4
	mov	a,c						;[INF] 2, 4
	mov	[de],a						;[INF] 1, 6
; line   295
$DGL	0,47
; line   298
$DGL	0,50
?L0008:
; line   300
$DGL	0,52
??eb00_SetDataTransmitBuffer:
; line   301
$DGL	0,53
; line   316
$DGL	0,68
??ef_SetDataTransmitBuffer:
	pop	ax						;[INF] 1, 6
	pop	ax						;[INF] 1, 6
	pop	ax						;[INF] 1, 6
	pop	hl						;[INF] 1, 6
	ret							;[INF] 1, 6
??ee_SetDataTransmitBuffer:
; line   336
_Inter_ST:
$DGL	1,38
	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_Inter_ST:
; line   337
; line   341
	
$DGL	0,8
	           PUSH BC
                
$DGL	0,10
             mov B, #16                 ;1.2us
$DGL	0,11
     ?LINTST1:
     
$DGL	0,13
             mov C, #0             
$DGL	0,14
             set1 run
             
$DGL	0,16
     ?LINTST2: 
$DGL	0,17
             NOP                    ;0.4us(5MHZ)
$DGL	0,18
             NOP                     ;0.4us
$DGL	0,19
             dbnz c,$?LINTST2          ;1.2us
$DGL	0,20
             dbnz b,$?LINTST1          ;1.2us  
$DGL	0,21
             
$DGL	0,22
             POP BC             
$DGL	0,23
  ; line   360
$DGL	0,25
	clr1	IF0.6						;[INF] 3, 6
; line   362
$DGL	0,27
	inc	?L0013						;[INF] 2, 4
; line   368
$DGL	0,33
	mov	a,_g_controlCode				;[INF] 2, 4
	xch	a,x						;[INF] 1, 4
	xor	a,a						;[INF] 2, 4
	call	!_ByteLengthSelection				;[INF] 3, 6
	mov	a,c						;[INF] 2, 4
	add	a,#05H	; 5 					;[INF] 2, 4
	cmp	a,?L0013	; s_transmitCnt 		;[INF] 2, 4
	bnc	$?L0014						;[INF] 2, 6
; line   369
$DGL	0,34
??bb00_Inter_ST:
; line   370
$DGL	0,35
	clr1	_g_btTransmitStart				;[INF] 3, 6
; line   372
$DGL	0,37
	call	!_CommReceptionEnabled				;[INF] 3, 6
; line   374
$DGL	0,39
	mov	?L0013,#00H	; s_transmitCnt,0 		;[INF] 3, 6
; line   378
$DGL	0,43
	movw	ax,#_g_bufTransmit				;[INF] 3, 6
	movw	_g_p_bufTransmit,ax				;[INF] 2, 8
??eb00_Inter_ST:
	br	$?L0015						;[INF] 2, 6
?L0014:
; line   381
$DGL	0,46
??bb01_Inter_ST:
; line   383
$DGL	0,48
	movw	ax,_g_p_bufTransmit				;[INF] 2, 6
	movw	de,ax						;[INF] 1, 4
	incw	ax						;[INF] 1, 4
	movw	_g_p_bufTransmit,ax				;[INF] 2, 8
	mov	a,[de]						;[INF] 1, 6
	mov	TXS00,a						;[INF] 2, 4
??eb01_Inter_ST:
?L0015:
; line   390
$DGL	0,55
??ef_Inter_ST:
	pop	ax						;[INF] 1, 6
	movw	_@RTARG6,ax					;[INF] 2, 8
	pop	ax						;[INF] 1, 6
	movw	_@RTARG4,ax					;[INF] 2, 8
	pop	ax						;[INF] 1, 6
	movw	_@RTARG2,ax					;[INF] 2, 8
	pop	ax						;[INF] 1, 6
	movw	_@RTARG0,ax					;[INF] 2, 8
	pop	de						;[INF] 1, 6
	pop	bc						;[INF] 1, 6
	pop	ax						;[INF] 1, 6
	reti							;[INF] 1, 8
??ee_Inter_ST:
; line   415
_GetDataFromReception:
$DGL	1,53
	push	hl						;[INF] 1, 4
??bf_GetDataFromReception:
; line   416
$DGL	0,2
	call	!_ErrorRceptionCheck				;[INF] 3, 6
	inc	c						;[INF] 2, 4
	dec	c						;[INF] 2, 4
	bnz	$?L0018						;[INF] 2, 6
; line   417
$DGL	0,3
??bb00_GetDataFromReception:
; line   419
$DGL	0,5
	movw	ax,_g_p_bufReception				;[INF] 2, 6
	movw	hl,ax						;[INF] 1, 4
	mov	a,[hl+1]					;[INF] 2, 6
	mov	_g_controlCode,a				;[INF] 2, 4
; line   422
$DGL	0,8
	movw	ax,_g_p_bufReception				;[INF] 2, 6
	movw	hl,ax						;[INF] 1, 4
	mov	a,[hl+2]					;[INF] 2, 6
	mov	_g_byteLength,a					;[INF] 2, 4
; line   424
$DGL	0,10
	movw	ax,_g_p_bufReception				;[INF] 2, 6
	movw	hl,ax						;[INF] 1, 4
	mov	a,[hl+3]					;[INF] 2, 6
	mov	_g_deviceAddr,a					;[INF] 2, 4
; line   426
$DGL	0,12
	cmp	_g_controlCode,#03H	; 3 			;[INF] 3, 6
	bz	$?L0022						;[INF] 2, 6
	cmp	_g_controlCode,#01H	; 1 			;[INF] 3, 6
	bnz	$?L0020						;[INF] 2, 6
; line   427
$DGL	0,13
??bb01_GetDataFromReception:
; line   428
$DGL	0,14
; line   429
$DGL	0,15
	movw	ax,_g_p_bufReception				;[INF] 2, 6
	movw	hl,ax						;[INF] 1, 4
	mov	a,[hl+4]					;[INF] 2, 6
	mov	_g_custom0,a					;[INF] 2, 4
; line   430
$DGL	0,16
	movw	ax,_g_p_bufReception				;[INF] 2, 6
	movw	hl,ax						;[INF] 1, 4
	mov	a,[hl+5]					;[INF] 2, 6
	mov	_g_custom1,a					;[INF] 2, 4
; line   431
$DGL	0,17
	movw	ax,_g_p_bufReception				;[INF] 2, 6
	movw	hl,ax						;[INF] 1, 4
	mov	a,[hl+6]					;[INF] 2, 6
	mov	_g_custom2,a					;[INF] 2, 4
; line   433
$DGL	0,19
	br	$?L0020						;[INF] 2, 6
; line   436
$DGL	0,22
?L0022:
; line   437
$DGL	0,23
	movw	ax,_g_p_bufReception				;[INF] 2, 6
	movw	hl,ax						;[INF] 1, 4
	mov	a,[hl+4]					;[INF] 2, 6
	mov	_g_dataFormat,a					;[INF] 2, 4
; line   439
$DGL	0,25
; line   443
$DGL	0,29
; line   445
$DGL	0,31
??eb01_GetDataFromReception:
; line   446
$DGL	0,32
?L0020:
; line   448
$DGL	0,34
	movw	ax,#_g_bufReception				;[INF] 3, 6
	movw	_g_p_bufReception,ax				;[INF] 2, 8
??eb00_GetDataFromReception:
?L0018:
; line   450
$DGL	0,36
??ef_GetDataFromReception:
	pop	hl						;[INF] 1, 6
	ret							;[INF] 1, 6
??ee_GetDataFromReception:
; line   471
_Inter_SR:
$DGL	1,67
	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
	push	hl						;[INF] 1, 4
	movw	ax,#02H						;[INF] 3, 6
	callt	[_@cprep]					;[INF] 1, 8
??bf_Inter_SR:
; line   473
; line   475
$DGL	0,5
	xor	a,a						;[INF] 2, 4
	mov	[hl+1],a	; valueObtained 		;[INF] 2, 6
; line   481
$DGL	0,11
	cmp	?L0026,#032H	; s_receptionCnt,50 		;[INF] 3, 6
	bc	$?L0027						;[INF] 2, 6
; line   482
$DGL	0,12
??bb00_Inter_SR:
; line   483
$DGL	0,13
	mov	?L0026,a	; s_receptionCnt 		;[INF] 2, 4
??eb00_Inter_SR:
	br	$?L0037						;[INF] 2, 6
?L0027:
; line   486
$DGL	0,16
??bb01_Inter_SR:
; line   487
$DGL	0,17
	mov	a,RXB00						;[INF] 2, 4
	mov	[hl+1],a	; valueObtained 		;[INF] 2, 6
; line   489
$DGL	0,19
	movw	ax,_g_p_bufReception				;[INF] 2, 6
	cmpw	ax,#_g_bufReception				;[INF] 3, 6
	bnz	$?L0029						;[INF] 2, 6
; line   490
$DGL	0,20
??bb02_Inter_SR:
; line   493
$DGL	0,23
	mov	a,[hl+1]	; valueObtained 		;[INF] 2, 6
	sub	a,#0FEH	; 254 					;[INF] 2, 4
	bnz	$?L0031						;[INF] 2, 6
; line   494
$DGL	0,24
??bb03_Inter_SR:
; line   495
$DGL	0,25
	mov	?L0026,a	; s_receptionCnt 		;[INF] 2, 4
; line   497
$DGL	0,27
	set1	_btReception500msOn				;[INF] 3, 6
; line   499
$DGL	0,29
	mov	_s_g_transRec500msCnt,#00H	; 0 		;[INF] 3, 6
??eb03_Inter_SR:
?L0031:
; line   502
$DGL	0,32
	mov	a,[hl+1]	; valueObtained 		;[INF] 2, 6
	cmp	a,#068H	; 104 					;[INF] 2, 4
	bnz	$?L0037						;[INF] 2, 6
; line   503
$DGL	0,33
??bb04_Inter_SR:
; line   504
$DGL	0,34
	inc	?L0026						;[INF] 2, 4
; line   506
$DGL	0,36
	call	!_ClearReceptionBuf				;[INF] 3, 6
; line   508
$DGL	0,38
	movw	ax,_g_p_bufReception				;[INF] 2, 6
	movw	de,ax						;[INF] 1, 4
	incw	ax						;[INF] 1, 4
	movw	_g_p_bufReception,ax				;[INF] 2, 8
	mov	a,[hl+1]	; valueObtained 		;[INF] 2, 6
	mov	[de],a						;[INF] 1, 6
; line   510
$DGL	0,40
	set1	_btReception500msOn				;[INF] 3, 6
; line   512
$DGL	0,42
	mov	_s_g_transRec500msCnt,#00H	; 0 		;[INF] 3, 6
??eb04_Inter_SR:
??eb02_Inter_SR:
	br	$?L0037						;[INF] 2, 6
?L0029:
; line   516
$DGL	0,46
??bb05_Inter_SR:
; line   517
$DGL	0,47
	cmp	?L0026,#01H	; s_receptionCnt,1 		;[INF] 3, 6
	bc	$?L0037						;[INF] 2, 6
; line   518
$DGL	0,48
??bb06_Inter_SR:
; line   519
$DGL	0,49
	inc	?L0026						;[INF] 2, 4
; line   523
$DGL	0,53
	movw	ax,_g_p_bufReception				;[INF] 2, 6
	movw	de,ax						;[INF] 1, 4
	incw	ax						;[INF] 1, 4
	movw	_g_p_bufReception,ax				;[INF] 2, 8
	mov	a,[hl+1]	; valueObtained 		;[INF] 2, 6
	mov	[de],a						;[INF] 1, 6
; line   525
$DGL	0,55
	set1	_btReception500msOn				;[INF] 3, 6
; line   527
$DGL	0,57
	mov	_s_g_transRec500msCnt,#00H	; 0 		;[INF] 3, 6
; line   531
$DGL	0,61
	mov	a,!_g_bufReception+2				;[INF] 3, 8
	add	a,#04H	; 4 					;[INF] 2, 4
	mov	c,a						;[INF] 2, 4
	mov	a,?L0026	; s_receptionCnt 		;[INF] 2, 4
	sub	a,#01H	; 1 					;[INF] 2, 4
	cmp	a,c						;[INF] 2, 4
	bnz	$?L0037						;[INF] 2, 6
; line   532
$DGL	0,62
	mov	a,[hl+1]	; valueObtained 		;[INF] 2, 6
	sub	a,#016H	; 22 					;[INF] 2, 4
	bnz	$?L0037						;[INF] 2, 6
; line   533
$DGL	0,63
??bb07_Inter_SR:
; line   534
$DGL	0,64
	mov	?L0026,a	; s_receptionCnt 		;[INF] 2, 4
; line   536
$DGL	0,66
	movw	ax,#_g_bufReception				;[INF] 3, 6
	movw	_g_p_bufReception,ax				;[INF] 2, 8
; line   538
$DGL	0,68
	clr1	_btReception500msOn				;[INF] 3, 6
; line   540
$DGL	0,70
	mov	_s_g_transRec500msCnt,#00H	; 0 		;[INF] 3, 6
; line   542
$DGL	0,72
	set1	_g_btWait20ms					;[INF] 3, 6
; line   544
$DGL	0,74
	clr1	ASIM00.6					;[INF] 3, 6
; line   546
$DGL	0,76
	set1	MK0.5						;[INF] 3, 6
??eb07_Inter_SR:
?L0037:
??eb06_Inter_SR:
??eb05_Inter_SR:
??eb01_Inter_SR:
; line   551
$DGL	0,81
??ef_Inter_SR:
	pop	ax						;[INF] 1, 6
	pop	hl						;[INF] 1, 6
	pop	ax						;[INF] 1, 6
	movw	_@RTARG6,ax					;[INF] 2, 8
	pop	ax						;[INF] 1, 6
	movw	_@RTARG4,ax					;[INF] 2, 8
	pop	ax						;[INF] 1, 6
	movw	_@RTARG2,ax					;[INF] 2, 8
	pop	ax						;[INF] 1, 6
	movw	_@RTARG0,ax					;[INF] 2, 8
	pop	de						;[INF] 1, 6
	pop	bc						;[INF] 1, 6
	pop	ax						;[INF] 1, 6
	reti							;[INF] 1, 8
??ee_Inter_SR:
; line   572
_ErrorRceptionCheck:
$DGL	1,107
	push	hl						;[INF] 1, 4
	movw	ax,#04H						;[INF] 3, 6
	callt	[_@cprep]					;[INF] 1, 8
??bf_ErrorRceptionCheck:
; line   573
$DGL	0,2
	movw	ax,#_g_bufReception				;[INF] 3, 6
	mov	[hl+3],a	; p_bufReception 		;[INF] 2, 6
	xch	a,x						;[INF] 1, 4
	mov	[hl+2],a	; p_bufReception 		;[INF] 2, 6
; line   575
$DGL	0,4
	xch	a,x						;[INF] 1, 4
	incw	ax						;[INF] 1, 4
	incw	ax						;[INF] 1, 4
	movw	de,ax						;[INF] 1, 4
	mov	a,[de]						;[INF] 1, 6
	mov	[hl+1],a	; dataLength 			;[INF] 2, 6
; line   577
$DGL	0,6
	xor	a,a						;[INF] 2, 4
	mov	[hl],a	; chkSum 				;[INF] 1, 6
; line   579
$DGL	0,8
	mov	a,[hl+2]	; p_bufReception 		;[INF] 2, 6
	xch	a,x						;[INF] 1, 4
	mov	a,[hl+3]	; p_bufReception 		;[INF] 2, 6
	movw	de,ax						;[INF] 1, 4
	mov	a,[de]						;[INF] 1, 6
	cmp	a,#068H	; 104 					;[INF] 2, 4
	bz	$?L0041						;[INF] 2, 6
; line   580
$DGL	0,9
??bb00_ErrorRceptionCheck:
; line   581
$DGL	0,10
	movw	bc,#01H	; 1 					;[INF] 3, 6