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

📄 mnapp.lst

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

⌨️ 快捷键说明

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