dz.asm
来自「震荡仪」· 汇编 代码 · 共 1,588 行 · 第 1/5 页
ASM
1,588 行
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;左键功能;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
ZUOJ: JB QIDONGBZ,ZUOJFH
JNB XS5,ZUOJFH
JB XS31,ZUOJ1 ;温度值调整
JB XS32,ZUOJ2 ;震荡时间调整
JB XS33,ZUOJ3 ;静止时间调整
ZUOJFH: CLR ZUO
JMP HERE
ZUOJ1:
MOV A,SDWDZL
ANL A,#0F0H
SWAP A
CJNE A,#00H,ZUOJ12
MOV A,#90H
MOV SDWDZL,A
MOV A,SDWDZH
CJNE A,#00H,ZUOJ13
MOV A,#00H
MOV SDWDZL,A
ZUOJ15:
MOV SDWDZH,A
ZUOJ14:
MOV WDSHIWEI,SDWDZH
MOV WDGEWEI,SDWDZL
CALL WENDUXIANSHI
CLR ZUO
JMP HERE
ZUOJ12: DEC A
SWAP A
MOV SDWDZL,A
JMP ZUOJ14
ZUOJ13: DEC A
JMP ZUOJ15
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
ZUOJ2: MOV A,SDZDSJ
ANL A,#0FH ;最高设定时间为60MIN
CJNE A,#00H,ZUOJ21 ;低位不等于9，转走判高位
MOV A,SDZDSJ
ANL A,#0F0H
SWAP A
CJNE A,#00H,ZUOJ22 ;高位不等于6转走
MOV A,#00H
MOV SDZDSJ,A
MOV ZDS,A
CALL ZHENDANGSHIJIAN
CLR ZUO
JMP HERE
ZUOJ21: MOV A,SDZDSJ
DEC A
MOV SDZDSJ,A
MOV ZDS,A
CALL ZHENDANGSHIJIAN
CLR ZUO
JMP HERE
ZUOJ22: DEC A
SWAP A
ADD A,#09H
MOV SDZDSJ,A
MOV ZDS,A
CALL ZHENDANGSHIJIAN
CLR ZUO
JMP HERE
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
ZUOJ3: MOV A,SDJZSJ
ANL A,#0FH ;最高设定时间为60MIN
CJNE A,#00H,ZUOJ31 ;低位不等于9，转走判高位
MOV A,SDJZSJ
ANL A,#0F0H
SWAP A
CJNE A,#00H,ZUOJ32 ;高位不等于6转走
MOV A,#00H
MOV SDJZSJ,A
MOV JZS,A
CALL JINGZHISHIJIAN
CLR ZUO
JMP HERE
ZUOJ31: MOV A,SDJZSJ
DEC A
MOV SDJZSJ,A
MOV JZS,A
CALL JINGZHISHIJIAN
CLR ZUO
JMP HERE
ZUOJ32: DEC A
SWAP A
ADD A,#09H
MOV SDJZSJ,A
MOV JZS,A
CALL JINGZHISHIJIAN
CLR ZUO
JMP HERE
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;右键功能;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
YOUJ: JB QIDONGBZ,YOUJFH
JNB XS5,YOUJFH
JB XS31,YOUJ1 ;温度值修改
JB XS32,YOUJ2 ;振荡时间修改
JB XS33,YOUJ3 ;静止时间修改
;此处不能有其他语句
YOUJFH: CLR YOU
JMP HERE
YOUJ1:
MOV A,SDWDZL ;温度加1子程序
ANL A,#0F0H
SWAP A
CJNE A,#09H,YOUJ12
MOV A,#00H
MOV SDWDZL,A
YOUJ14:
MOV A,SDWDZH
CJNE A,#09H,YOUJ13
MOV A,#90H
MOV SDWDZL,A
SWAP A
YOUJ15:
MOV SDWDZH,A
YOUJ16: MOV WDSHIWEI,SDWDZH
MOV WDGEWEI,SDWDZL
CALL WENDUXIANSHI
CLR YOU
JMP HERE
YOUJ12: INC A
SWAP A
MOV SDWDZL,A
JMP YOUJ16
YOUJ13: INC A
JMP YOUJ15
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
YOUJ2: MOV A,SDZDSJ
ANL A,#0FH ;最高设定时间为60MIN
CJNE A,#09H,YOUJ21 ;低位不等于9，转走判高位
MOV A,SDZDSJ
ANL A,#0F0H
SWAP A
CJNE A,#09H,YOUJ22 ;高位不等于6转走
MOV A,#99H
MOV SDZDSJ,A
MOV ZDS,A
CALL ZHENDANGSHIJIAN
CLR YOU
JMP HERE
YOUJ21: MOV A,SDZDSJ
ADD A,#01H
MOV SDZDSJ,A
MOV ZDS,A
CALL ZHENDANGSHIJIAN
CLR YOU
JMP HERE
YOUJ22: INC A
SWAP A
MOV SDZDSJ,A
MOV ZDS,A
CALL ZHENDANGSHIJIAN
CLR YOU
JMP HERE
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
YOUJ3: MOV A,SDJZSJ
ANL A,#0FH ;最高设定时间为60MIN
CJNE A,#09H,YOUJ31 ;低位不等于9，转走判高位
MOV A,SDJZSJ
ANL A,#0F0H
SWAP A
CJNE A,#09H,YOUJ32 ;高位不等于6转走
MOV A,#99H
MOV SDJZSJ,A
MOV JZS,A
CALL JINGZHISHIJIAN
CLR YOU
JMP HERE
YOUJ31: MOV A,SDJZSJ
ADD A,#01H
MOV SDJZSJ,A
MOV JZS,A
CALL JINGZHISHIJIAN
CLR YOU
JMP HERE
YOUJ32: INC A
SWAP A
MOV SDJZSJ,A
MOV JZS,A
CALL JINGZHISHIJIAN
CLR YOU
JMP HERE
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;确认键功能;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
QUERENJ: JB QIDONGBZ,QOOLP1
JB XS1,QUERENJ1 ;在第一页页面转走显示第二页
JB XS5,QUERENJ5 ;在第5页中
JB XS2,QUERENJ2 ;在第二页中转走显示相应第三页
JB XS3,QUERENJ3 ;在第三页中
JB XS4,QUERENJ4 ;在第四页中
QOOLP1:
CLR QUEREN
JMP HERE
QUERENJ2: JB XS21,QUERENJ21 ;在第二页中第一行，转去第三也
JB XS22,QUERENJ22 ;在第二页中第2行，转去第4也
JB XS23,QUERENJ23 ;在第二页中第3行，转去第5也
JB XS24,QUERENJ24 ;第二页中第4行，转去第1页首页
CLR QUEREN
JMP HERE
QUERENJ1:
JMP HUAMIAN2
QUERENJ21:
JMP HUAMIAN3
QUERENJ22:
JMP HUAMIAN4
QUERENJ23:
JMP HUAMIAN5
QUERENJ24:
JMP SYFH
QUERENJ3: JNB XS34,QOOLP1
CLR QUEREN
JMP HUAMIAN2
QUERENJ4: JNB XS43,QOOLP1
CLR QUEREN
JMP HUAMIAN2
QUERENJ5: JNB XS34,LLLP1
CLR XS5
JMP HUAMIAN2
LLLP1: ; CALL AQDHZD ;调按下启动后震荡子程序 (在第5页中光标不在返回项按确认后执行此程序)
CLR QUEREN
setb kwbz
JMP HERE
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;上键功能;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
SHANGJ: JB QIDONGBZ,SHANGJFH
JB XS2,SHANGJIAN111 ;在主页面转走
JB XS5,SHANGJIAN222
JB XS3,SHANGJIAN222 ;在第3页面转走
JB XS4,SHANGJIAN333 ;在第4页面转走
SHANGJFH:
CLR SHANG
JMP HERE
SHANGJIAN111: JMP SHANGJIAN1
SHANGJIAN222: JMP SHANGJIAN2
SHANGJIAN333: JMP SHANGJIAN3
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;下键功能;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
XIAJ: JB QIDONGBZ,XIAJFH
JB XS2,XIAJIAN1 ;在主页面转走
JB XS5,XIAJIAN2
JB XS3,XIAJIAN2
JB XS4,XIAJIAN3
XIAJFH:
CLR XIA
JMP HERE
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
XIAJIAN1: JB XS21,XJOOL1 ;在第一行转走
JB XS22,XJOOL2 ;在第二行转走
JB XS23,XJOOL3 ;在第三行转走
JB XS24,XJOOL4
CLR XIA ;清下标志
JMP HERE
XIAJIAN2: JB XS31,XJOOP1
JB XS32,XJOOP2
JB XS33,XJOOP3
JB XS34,XJOOP4
CLR XIA
JMP HERE
XIAJIAN3: JB XS41,XJOOK1
JB XS42,XJOOK2
JB XS43,XJOOK3
CLR XIA
JMP HERE
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
XJOOL1: CLR XS21
SETB XS22
CLR XIA
CALL QINGKONG
JMP HMOOL2
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
XJOOL2: CLR XS22
SETB XS23
CLR XIA
CALL QINGKONG
JMP HMOOL3
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
XJOOL3: CLR XS23
SETB XS24
CLR XIA
CALL QINGKONG
JMP HMOOL4
XJOOL4: CLR XS24
SETB XS21
CLR XIA
CALL QINGKONG
JMP HMOOL1
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
XJOOP1: CLR XS31
SETB XS32
CLR XIA
CALL QINGKONG
JMP HMOOP2
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
XJOOP2: CLR XS32
SETB XS33
CLR XIA
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?