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

📄 mnapp.lst

📁 应用松翰母体写的一款电磁炉
💻 LST
📖 第 1 页 / 共 2 页
字号:
   197  000000             	mov	a,timerbuf
   198  000000             	and	a,#0f0h
   199  000000             	sub	a,#90h
   200  000000             	b0bts0	fc
   201  000000             	jmp	turnoffnum1
   202  000000             ;-----
   203  000000             	mov	a,#10h
   204  000000             	add	timerbuf,a
   205  000000             	jmp	checkkey90
   206  000000             ;---------------------
   207  000000             turnoffnum1:
   208  000000             	mov	a,#0fh
   209  000000             	and	timerbuf,a
   210  000000             	jmp	checkkey90	
   211  000000             ;************************************************
   212  000000             oneminkey:
   213  000000             ;-----
   214  000000             	b0bts1	settimeflag
   215  000000             	jmp	checkkey90	;在某些功能下无效
   216  000000             ;---
   217  000000             	bset	refurbishflag	
   218  000000             	bset	timekeyflag
   219  000000             	mov	a,timerbuf
   220  000000             	and	a,#0fh
   221  000000             	sub	a,#9
   222  000000             	b0bts0	fc
   223  000000             	jmp	backzeronum0
   224  000000             ;-----
   225  000000             	mov	a,#1
   226  000000             	add	timerbuf,a
   227  000000             	jmp	checkkey90
   228  000000             ;-----
   229  000000             backzeronum0:
   230  000000             	mov	a,#0f0h
   231  000000             	and	timerbuf,a
   232  000000             	jmp	checkkey90
   233  000000             ;************************************************
   234  000000             inckey:
   235  000000             ;----
   236  000000             	b0bts1	operateflag
   237  000000             	jmp	checkkey90
   238  000000             ;----
   239  000000             	mov	a,flag3
   240  000000             	and	a,#01111000b
   241  000000             	b0bts1	fz
   242  000000             	jmp	checkkey90
   243  000000             ;-----
   244  000000             	mov	a,stepbuf	;0~8
   245  000000             	sub	a,#8
   246  000000             	b0bts0	fc
   247  000000             	jmp	checkkey90
   248  000000             ;----
   249  000000             	incms	stepbuf
   250  000000             	nop
   251  000000             	bset	parameterflag
   252  000000             	bset	tempkeyflag
   253  000000             ;-------------------
   254  000000             lightled:
   255  000000             	b0mov	y,#ledtbl$m
   256  000000             	b0mov	z,#ledtbl$l
   257  000000             	mov	a,stepbuf
   258  000000             	add	z,a
   259  000000             	mov	a,#0
   260  000000             	adc	y,a
   261  000000             ;---
   262  000000             	movc	
   263  000000             	mov	seg4buf,a	
   264  000000             	jmp	checkkey90	
   265  000000             ;************************************************
   266  000000             deckey:
   267  000000             ;----
   268  000000             	b0bts1	operateflag
   269  000000             	jmp	checkkey90
   270  000000             ;-----
   271  000000             	mov	a,flag3
   272  000000             	and	a,#01111000b
   273  000000             	b0bts1	fz
   274  000000             	jmp	checkkey90
   275  000000             ;-----
   276  000000             	b0bts1	barbecueflag
   277  000000             	jmp	checkstep50
   278  000000             ;---
   279  000000             	mov	a,stepbuf
   280  000000             	cmprs	a,#3
   281  000000             	jmp	stepdec	
   282  000000             	jmp	checkkey90
   283  000000             ;-------------
   284  000000             checkstep50:
   285  000000             	mov	a,stepbuf
   286  000000             	b0bts0	fz
   287  000000             	jmp	checkkey90
   288  000000             ;----
   289  000000             stepdec:
   290  000000             	decms	stepbuf
   291  000000             	nop
   292  000000             	bset	parameterflag
   293  000000             	bset	tempkeyflag
   294  000000             	jmp	lightled	
   295  000000             ;************************************************
   296  000000             offkey:
   297  000000             ;----
   298  000000             	call	clearallflag
   299  000000             	bset	Igbtstartupflag
   300  000000             	bset	stoprunflag
   301  000000             	bclr	ptcout		;close IGBT
   302  000000             	bclr	fpwm1out
   303  000000             	bclr	ftc1enb		;stop t1 pwm
   304  000000             	bclr	fp01ien
   305  000000             	mov	a,#0ffh
   306  000000             	mov	seg1buf,a
   307  000000             	mov	seg2buf,a
   308  000000             	mov	seg3buf,a
   309  000000             	mov	seg4buf,a
   310  000000             	jmp	checkkey90	
   311  000000             ;*************************************************
   312  000000             canceltimekey:
   313  000000             	bclr	timekeyflag
   314  000000             	mov	a,#01000000b
   315  000000             	mov	seg1buf,a
   316  000000             	mov	seg2buf,a
   317  000000             	clr	timerbuf
   318  000000             	bclr	t1mflag
   319  000000             	mov_	timer1m,#60	;reset 1 minute
   320  000000             ;*************************************************
   321  000000             checkkey90:
   322  000000             	clr	aplcode
   323  000000             ;----
   324  000000             ;有按键,重新刷新时间
   325  000000             	bclr	t2hflag
   326  000000             	mov_	timer2h,#2	;两小时定时控制
   327  000000             checkkey100:
   328  000000             	ret
   329  000000             	
   330  000000             ;**********************************************
   331  000000             ;Name	:getinitparameter
   332  000000             ;Function:控制参数获得
   333  000000             ;Input  :
   334  000000             ;Output	:
   335  000000             ;Register Used:var3
   336  000000             ;**********************************************	
   337  000000             getinitparameter:
   338  000000             	b0bts0	stoprunflag
   339  000000             	jmp	getinitparameter90
   340  000000             	b0bts1	operateflag
   341  000000             	jmp	getinitparameter90
   342  000000             	b0bts1	parameterflag
   343  000000             	jmp	getinitparameter90
   344  000000             ;-----
   345  000000             	bclr	parameterflag
   346  000000             ;---------------------------------------------
   347  000000             	mov_	var3,stepbuf
   348  000000             	bclr	fc
   349  000000             	rlcm	var3
   350  000000             	b0mov	y,#steptbl2$m
   351  000000             	b0mov	z,#steptbl2$l
   352  000000             ;---
   353  000000             	mov	a,var3
   354  000000             	add	z,a
   355  000000             	mov	a,#0
   356  000000             	adc	y,a
   357  000000             ;---
   358  000000             	movc
   359  000000             	mov	powervaluel,a
   360  000000             	mov_	powervaluem,r		
   361  000000             	incms	z
   362  000000             	jmp	searchnexttbl
   363  000000             	incms	y
   364  000000             	nop
   365  000000             ;---
   366  000000             searchnexttbl:
   367  000000             	movc
   368  000000             	mov	powervalueh,a	;功率参数
   369  000000             ;---------------------------------------------
   370  000000             	b0mov	y,#temptbl$m
   371  000000             	b0mov	z,#temptbl$l
   372  000000             ;---
   373  000000             	mov	a,stepbuf
   374  000000             	add	z,a
   375  000000             	mov	a,#0
   376  000000             	adc	y,a
   377  000000             ;---
   378  000000             	movc
   379  000000             	mov	ADCtempbufl,a
   380  000000             	mov_	ADCtempbufh,r		;温度参数
   381  000000             ;----------------------------------------------
   382  000000             	mov	a,stepbuf
   383  000000             	sub	a,#3
   384  000000             	b0bts1	fc
   385  000000             	jmp	setintermission		;功率小于600W,采用间歇加热方式
   386  000000             ;------
   387  000000             	bclr	intermissionflag
   388  000000             	ret
   389  000000             ;------
   390  000000             setintermission:
   391  000000             	bset	intermissionflag

⌨️ 快捷键说明

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