⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 ocmj815b.s

📁 OCMJ815触摸屏使用范例
💻 S
📖 第 1 页 / 共 4 页
字号:
	.dbfile F:\项目\电子设计培训计划\MYOWNT~1.12/Data.h
	.blkb 2
	.area idata
	.byte 0,0
	.area data(ram, con, rel)
	.dbfile F:\项目\电子设计培训计划\MYOWNT~1.12/Data.h
	.blkb 2
	.area idata
	.byte 0,0
	.area data(ram, con, rel)
	.dbfile F:\项目\电子设计培训计划\MYOWNT~1.12/Data.h
	.blkb 2
	.area idata
	.byte 0,0
	.area data(ram, con, rel)
	.dbfile F:\项目\电子设计培训计划\MYOWNT~1.12/Data.h
	.blkb 2
	.area idata
	.byte 0,0
	.area data(ram, con, rel)
	.dbfile F:\项目\电子设计培训计划\MYOWNT~1.12/Data.h
	.blkb 2
	.area idata
	.byte 0,0
	.area data(ram, con, rel)
	.dbfile F:\项目\电子设计培训计划\MYOWNT~1.12/Data.h
	.blkb 2
	.area idata
	.byte 0,0
	.area data(ram, con, rel)
	.dbfile F:\项目\电子设计培训计划\MYOWNT~1.12/Data.h
	.blkb 2
	.area idata
	.byte 0,0
	.area data(ram, con, rel)
	.dbfile F:\项目\电子设计培训计划\MYOWNT~1.12/Data.h
	.dbsym e img _img A[512:512]c
	.area text(rom, con, rel)
	.dbfile F:\项目\电子设计培训计划\MYOWNT~1.12/Data.h
	.dbfile F:\项目\电子设计培训计划\MYOWNT~1.12/delay.h
	.dbfunc e delay_1us _delay_1us fV
	.even
_delay_1us::
	.dbline -1
	.dbline 3
	.dbline 4
	nop
	.dbline -2
L59:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e delay_1ms _delay_1ms fV
;              i -> R16,R17
	.even
_delay_1ms::
	.dbline -1
	.dbline 11
	.dbline 13
	ldi R16,570
	ldi R17,2
	xjmp L64
L61:
	.dbline 14
L62:
	.dbline 13
	subi R16,1
	sbci R17,0
L64:
	.dbline 13
	cpi R16,0
	cpc R16,R17
	brne L61
X0:
	.dbline -2
L60:
	.dbline 0 ; func end
	ret
	.dbsym r i 16 i
	.dbend
	.dbfunc e delay_1s _delay_1s fV
;              i -> R20,R21
	.even
_delay_1s::
	xcall push_gset1
	.dbline -1
	.dbline 22
	.dbline 24
	ldi R20,250
	ldi R21,0
	xjmp L69
L66:
	.dbline 25
	xcall _delay_1ms
L67:
	.dbline 24
	subi R20,1
	sbci R21,0
L69:
	.dbline 24
	cpi R20,0
	cpc R20,R21
	brne L66
X1:
	.dbline 26
	ldi R20,250
	ldi R21,0
	xjmp L73
L70:
	.dbline 27
	xcall _delay_1ms
L71:
	.dbline 26
	subi R20,1
	sbci R21,0
L73:
	.dbline 26
	cpi R20,0
	cpc R20,R21
	brne L70
X2:
	.dbline 28
	ldi R20,250
	ldi R21,0
	xjmp L77
L74:
	.dbline 29
	xcall _delay_1ms
L75:
	.dbline 28
	subi R20,1
	sbci R21,0
L77:
	.dbline 28
	cpi R20,0
	cpc R20,R21
	brne L74
X3:
	.dbline 30
	ldi R20,250
	ldi R21,0
	xjmp L81
L78:
	.dbline 31
	xcall _delay_1ms
L79:
	.dbline 30
	subi R20,1
	sbci R21,0
L81:
	.dbline 30
	cpi R20,0
	cpc R20,R21
	brne L78
X4:
	.dbline -2
L65:
	xcall pop_gset1
	.dbline 0 ; func end
	ret
	.dbsym r i 20 i
	.dbend
	.dbfunc e delay_nus _delay_nus fV
;              i -> R20,R21
;              n -> R22,R23
	.even
_delay_nus::
	xcall push_gset2
	movw R22,R16
	.dbline -1
	.dbline 39
	.dbline 41
	movw R20,R22
	xjmp L86
L83:
	.dbline 42
	xcall _delay_1us
L84:
	.dbline 41
	subi R20,1
	sbci R21,0
L86:
	.dbline 41
	cpi R20,0
	cpc R20,R21
	brne L83
X5:
	.dbline -2
L82:
	xcall pop_gset2
	.dbline 0 ; func end
	ret
	.dbsym r i 20 i
	.dbsym r n 22 i
	.dbend
	.dbfunc e delay_nms _delay_nms fV
;              i -> R20,R21
;              n -> R22,R23
	.even
_delay_nms::
	xcall push_gset2
	movw R22,R16
	.dbline -1
	.dbline 50
	.dbline 52
	movw R20,R22
	xjmp L91
L88:
	.dbline 53
	xcall _delay_1ms
L89:
	.dbline 52
	subi R20,1
	sbci R21,0
L91:
	.dbline 52
	cpi R20,0
	cpc R20,R21
	brne L88
X6:
	.dbline -2
L87:
	xcall pop_gset2
	.dbline 0 ; func end
	ret
	.dbsym r i 20 i
	.dbsym r n 22 i
	.dbend
	.dbfunc e delay_ns _delay_ns fV
;              j -> R20,R21
;              i -> R22,R23
;              n -> R22,R23
	.even
_delay_ns::
	xcall push_gset2
	movw R22,R16
	.dbline -1
	.dbline 62
	.dbline 64
	movw R20,R22
	xjmp L96
L93:
	.dbline 65
	.dbline 66
	ldi R22,250
	ldi R23,0
	xjmp L100
L97:
	.dbline 67
	xcall _delay_1ms
L98:
	.dbline 66
	subi R22,1
	sbci R23,0
L100:
	.dbline 66
	cpi R22,0
	cpc R22,R23
	brne L97
X7:
	.dbline 68
	ldi R22,250
	ldi R23,0
	xjmp L104
L101:
	.dbline 69
	xcall _delay_1ms
L102:
	.dbline 68
	subi R22,1
	sbci R23,0
L104:
	.dbline 68
	cpi R22,0
	cpc R22,R23
	brne L101
X8:
	.dbline 70
	ldi R22,250
	ldi R23,0
	xjmp L108
L105:
	.dbline 71
	xcall _delay_1ms
L106:
	.dbline 70
	subi R22,1
	sbci R23,0
L108:
	.dbline 70
	cpi R22,0
	cpc R22,R23
	brne L105
X9:
	.dbline 72
	ldi R22,250
	ldi R23,0
	xjmp L112
L109:
	.dbline 73
	xcall _delay_1ms
L110:
	.dbline 72
	subi R22,1
	sbci R23,0
L112:
	.dbline 72
	cpi R22,0
	cpc R22,R23
	brne L109
X10:
	.dbline 74
L94:
	.dbline 64
	subi R20,1
	sbci R21,0
L96:
	.dbline 64
	cpi R20,0
	cpc R20,R21
	brne L93
X11:
	.dbline -2
L92:
	xcall pop_gset2
	.dbline 0 ; func end
	ret
	.dbsym r j 20 i
	.dbsym r i 22 i
	.dbsym r n 22 i
	.dbend
	.dbfile F:\项目\电子设计培训计划\MYOWNT~1.12\OCMJ815B.c
	.dbfunc e main _main fV
;              j -> R20
	.even
_main::
	sbiw R28,1
	.dbline -1
	.dbline 18
	.dbline 19
	clr R20
	.dbline 20
	ldi R24,255
	out 0x1a,R24
	.dbline 21
	ldi R24,30
	out 0x17,R24
	.dbline 22
	cbi 0x18,1
	.dbline 23
	ldi R24,31
	out 0x17,R24
	.dbline 24
	sbi 0x18,0
	.dbline 25
	ldi R24,30
	out 0x17,R24
	xjmp L115
L114:
	.dbline 27
	.dbline 28
	ldi R16,<_code0
	ldi R17,>_code0
	xcall _disp1line
	.dbline 29
	clr R2
	std y+0,R2
	ldi R18,24
	ldi R16,249
	xcall _write
	.dbline 30
	ldi R16,88
	xcall _send
	.dbline 31
	ldi R24,16
	std y+0,R24
	ldi R18,24
	ldi R16,249
	xcall _write
	.dbline 32
	ldi R16,89
	xcall _send
	.dbline 33
	clr R2
	std y+0,R2
	ldi R18,25
	ldi R16,249
	xcall _write
	.dbline 34
	ldi R16,61
	xcall _send
	.dbline 35
	ldi R24,16
	std y+0,R24
	ldi R18,25
	ldi R16,249
	xcall _write
	.dbline 36
	ldi R16,61
	xcall _send
	.dbline 38
	clr R20
	xjmp L120
L117:
	.dbline 39
	.dbline 40
	std y+0,R20
	ldi R18,239
	ldi R16,242
	xcall _write
	.dbline 42
L118:
	.dbline 38
	inc R20
L120:
	.dbline 38
	cpi R20,128
	brlo L117
	.dbline 83
	sbic 0x16,6
	rjmp L121
	.dbline 84
	.dbline 85
	ldi R16,10000
	ldi R17,39
	xcall _delay_nus
	.dbline 86
	sbic 0x16,6
	rjmp L123
	.dbline 87
	.dbline 88
	ldi R24,94
	out 0x17,R24
	.dbline 89
	sbi 0x18,6
	.dbline 90
	ldi R24,30
	out 0x17,R24
	.dbline 91
	xcall _bang
	.dbline 92
L123:
	.dbline 93
L121:
	.dbline 94
L115:
	.dbline 26
	xjmp L114
X12:
	.dbline -2
L113:
	adiw R28,1
	.dbline 0 ; func end
	ret
	.dbsym r j 20 c
	.dbend
	.dbfunc e bang _bang fV
;              Y -> R22,R23
;              X -> R20,R21
	.even
_bang::
	xcall push_gset2
	.dbline -1
	.dbline 105
	.dbline 106
	clr R20
	clr R21
	.dbline 106
	clr R22
	clr R23
	.dbline 109
	xcall _spi_start
	.dbline 110
	ldi R16,2
	ldi R17,0
	xcall _delay_nus
	.dbline 111
	ldi R16,144
	xcall _WriteCharTo7843
	.dbline 112
	ldi R16,2
	ldi R17,0
	xcall _delay_nus
	.dbline 113
	sbi 0x18,2
	.dbline 114
	nop
	.dbline 115
	nop
	.dbline 116
	nop
	.dbline 117
	cbi 0x18,2
	.dbline 118
	nop
	.dbline 119
	nop
	.dbline 120
	nop
	.dbline 121
	xcall _ReadFromCharFrom7843
	movw R20,R16
	.dbline 122
	ldi R16,208
	xcall _WriteCharTo7843
	.dbline 123
	sbi 0x18,2
	.dbline 124
	nop
	.dbline 125
	nop
	.dbline 126
	nop
	.dbline 127
	cbi 0x18,2
	.dbline 128
	nop
	.dbline 129
	nop
	.dbline 130
	nop
	.dbline 131
	xcall _ReadFromCharFrom7843
	movw R22,R16
	.dbline 132
	sbi 0x18,3
	.dbline 133
	ldi R24,94
	out 0x17,R24
	.dbline 134
	sbi 0x18,6
	.dbline 135
	ldi R24,30
	out 0x17,R24
	.dbline 136
	ldi R18,1000
	ldi R19,3
	movw R16,R20
	xcall div16u
	sts _tabx,R16
	.dbline 137
	mov R18,R16
	clr R19
	ldi R16,1000
	ldi R17,3
	xcall empy16s
	movw R2,R16
	movw R16,R20
	sub R16,R2
	sbc R17,R3
	ldi R18,100
	ldi R19,0
	xcall div16u
	sts _tabx+1,R16
	.dbline 138
	lds R18,_tabx
	clr R19
	ldi R16,1000
	ldi R17,3
	xcall empy16s
	movw R2,R16
	movw R16,R20
	sub R16,R2
	sbc R17,R3
	lds R2,_tabx+1
	ldi R24,100
	mul R24,R2
	sub R16,R0
	sbc R17,R1
	ldi R18,10
	ldi R19,0
	xcall div16u
	sts _tabx+2,R16
	.dbline 139
	lds R18,_tabx
	clr R19
	ldi R16,1000
	ldi R17,3
	xcall empy16s
	movw R2,R20
	sub R2,R16
	sbc R3,R17
	lds R4,_tabx+1
	ldi R24,100
	mul R24,R4
	sub R2,R0
	sbc R3,R1
	lds R4,_tabx+2
	ldi R24,10
	mul R24,R4
	sub R2,R0
	sbc R3,R1
	sts _tabx+3,R2
	.dbline 140
	ldi R18,1000
	ldi R19,3
	movw R16,R22
	xcall div16u
	sts _taby,R16
	.dbline 141
	mov R18,R16
	clr R19
	ldi R16,1000
	ldi R17,3
	xcall empy16s
	movw R2,R16
	movw R16,R22
	sub R16,R2
	sbc R17,R3
	ldi R18,100
	ldi R19,0
	xcall div16u
	sts _taby+1,R16
	.dbline 142
	lds R18,_taby
	clr R19
	ldi R16,1000
	ldi R17,3
	xcall empy16s
	movw R2,R16
	movw R16,R22
	sub R16,R2
	sbc R17,R3
	lds R2,_taby+1
	ldi R24,100
	mul R24,R2
	sub R16,R0
	sbc R17,R1
	ldi R18,10
	ldi R19,0
	xcall div16u
	sts _taby+2,R16
	.dbline 143
	lds R18,_taby
	clr R19
	ldi R16,1000
	ldi R17,3
	xcall empy16s
	movw R2,R22
	sub R2,R16
	sbc R3,R17
	lds R4,_taby+1
	ldi R24,100
	mul R24,R4
	sub R2,R0
	sbc R3,R1
	lds R4,_taby+2
	ldi R24,10
	mul R24,R4
	sub R2,R0
	sbc R3,R1
	sts _taby+3,R2
	.dbline 261
; 	       write(0xf1,24,84);
; 		   send(0x46);      //f
; 		 }
; 	 if(X>0&&X<1000)
; 	  if(Y<1000&&Y>0)
; 	     {
; 	       write(0xf1,24,116);
; 		   send(0x47);      //g
; 		 }
;   */
;     disptouch();
	xcall _disptouch
	.dbline 262
; 	disp_ciclr(X,Y);
	movw R18,R22
	movw R16,R20
	xcall _disp_ciclr
	.dbline -2
L125:
	xcall pop_gset2
	.dbline 0 ; func end
	ret
	.dbsym r Y 22 i
	.dbsym r X 20 i
	.dbend
	.area bss(ram, con, rel)
	.dbfile F:\项目\电子设计培训计划\MYOWNT~1.12\OCMJ815B.c
_taby::
	.blkb 4
	.dbfile F:\项目\电子设计培训计划\MYOWNT~1.12/function.h
	.dbsym e taby _taby A[4:4]c
_tabx::
	.blkb 4
	.dbsym e tabx _tabx A[4:4]c

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -