📄 test_reslt.asm.bak
字号:
;*************************************************
; 测试结果：
;
;
;**************************************************
TestResult: LCALL RelayClear ;将继电器清零
LCALL LcdInit;LcdClear
MOV R3,#000 ; 设置 X 坐标低 8 位初值
MOV R4,#80H ; 设置 X 坐标高 8 位初值
MOV R5,#40H ; 设置 X 坐标低 8 位末值
MOV R6,#81H ; 设置 X 坐标高 8 位末值
MOV R7,#020 ; 设置 Y 坐标初值
LCALL DrawThwartwise
MOV R3,#000 ; 设置 X 坐标低 8 位初值
MOV R4,#80H ; 设置 X 坐标高 8 位初值
MOV R5,#40H ; 设置 X 坐标低 8 位末值
MOV R6,#81H ; 设置 X 坐标高 8 位末值
MOV R7,#150 ; 设置 Y 坐标初值
LCALL DrawThwartwise
lcall ShowTestResult
LCALL ShowZD1 ; 显示"端 动作 正地电压 负地电压 接地电阻"
LCALL ShowPostive
LCALL ShowNegtive
LCALL ShowCurrent1
LCALL ShowLinkGndRko
LCALL ShowLinkGndRko1
LCALL ShowLinkGndRko2 ;显示“KO”
LCALL ShowPrint
LCALL BzDataLoadBuf ;此条调用不用的话，电阻值第二位是乱码
MOV DataH,#01H;Variable1
MOV DataL,#2ch;Variable2
LCALL TestShowVolt ;显示300V
MOV LcdShowX,#12
MOV LcdShowY,#113
MOV LcdShowC,#4
LCALL DdShowString2 ;接地电阻动态在屏幕上显示出来
MOV DataH,#01H;Variable1
MOV DataL,#02ch;Variable2
LCALL TestShowVolt ;显示300V
MOV LcdShowX,#21
MOV LcdShowY,#113
MOV LcdShowC,#4
LCALL DdShowString2 ;接地电阻动态在屏幕上显示出来
LCALL ShowCxKjRq ;显示“检测日期”
LCALL ShowCxKjSj ;显示“检测时间”
LCALL ShowBcJj ;显示“被测装置”
LCALL ShowCxJch ;显示“拆下机号：SS9”
LCALL ShowZxJch ;显示"装上机号：SS9"
LCALL ShowZzCxRq ;显示"拆下日期:"
LCALL ShowZzZsRq ;显示"装上日期"
;--------------------------------------------------
LCALL ShowKjRqSj ;显示“检测日期数据”
LCALL ShowKjSjSj ;显示“检测时间数据”
LCALL ShowBcJjSj ;显示“被测装置数据”
LCALL ShowCsJchSj ;显示“拆下机号数据“
LCALL ShowZsJchSj ;显示"装上机号：数据“
LCALL ShowCsRqSj ;显示"拆下日期:数据"
LCALL ShowZsRqSj ;显示"装上日期数据"
LCALL ShowActiveSj ;显示"是否动作数据"
LCALL ShowZdZdySj ;显示"正端正电压数据"
LCALL ShowZdFdySj ;显示"正端负电压数据"
LCALL ShowFdZdySj ;显示"负端正电压数据"
LCALL ShowFdFdySj ;显示"负端负电压数据"
LCALL ShowZdJddzSj ;显示"正端接地电阻数据"
LCALL ShowFdJddzSj ;显示"负端接地电阻数据"
LCALL ShowJldJddzSj ;显示"交流端接地电阻数据"
ActiveKeyScan: LCALL ScanKey
JNB KeyF,ActiveKeyScan ; scan key
CLR KeyF
MOV A,KeyNumber
CJNE A,#0AH,ActiveKeyScan1
LCALL MainInterFace1
RET
ActiveKeyScan1: CJNE A,#10H,ActiveKeyScan
LCALL PrintReport ; 打印试验报告
SJMP ActiveKeyScan
;
; ****** 显示"是否动作数据" ******
;
ShowActiveSj:
MOV R1, #ActiveFlagBuf+0
MOVX A, @R1
JNB ACC.0,NoActiveP
LCALL LinkG_active_P ;正端”动作“
ActiveFlagJudge: MOV R1, #ActiveFlagBuf+1
MOVX A, @R1
JNB ACC.0,NoActiveN
LCALL LinkG_active_N ;显示负端“动作”
ActiveFlagJudge1:MOV R1, #ActiveFlagBuf+3
MOVX A, @R1
JNB ACC.0,NoActiveCUR1
LCALL LinkG_active_Cur1 ;显示交流1端“动作”
LJMP ActiveKeyScan
NoActiveP: LCALL LinkG_PosNOactive ;正端不动作
LJMP ActiveFlagJudge
NoActiveN: LCALL LinkG_NegNOactive ;显示“负端不动作”
LJMP ActiveFlagJudge1
NoActiveCUR1: LCALL LinkG_Ac1NOactive ;显示“交流1端不动作”
ret
;
; ****** 显示"正端正电压数据" ******
;
ShowZdZdySj: LCALL BzDataLoadBuf ;此条调用不用的话，电阻值第二位是乱码
MOV R1,#VoltBuf+0 ;电压缓冲区
MOVX A,@R1
MOV DataH,A
INC R1
MOVX A,@R1
MOV DataL,A
LCALL TestShowVolt ;将正端正电压显示出来
MOV LcdShowX,#12
MOV LcdShowY,#53
MOV LcdShowC,#4
LCALL DdShowString2
RET
;
; ****** 显示"正端负电压数据" ******
;
ShowZdFdySj: LCALL BzDataLoadBuf ;此条调用不用的话，电阻值第二位是乱码
MOV R1,#VoltBuf+2 ;电压缓冲区
MOVX A,@R1
MOV DataH,A
INC R1
MOVX A,@R1
MOV DataL,A
LCALL TestShowVolt ;将正端负电压显示出来
MOV LcdShowX,#21
MOV LcdShowY,#53
MOV LcdShowC,#4
LCALL DdShowString2
RET
;
; ****** 显示"负端正电压数据" ******
;
ShowFdZdySj: LCALL BzDataLoadBuf ;此条调用不用的话，电阻值第二位是乱码
MOV R1,#VoltBuf+6 ;电压缓冲区
MOVX A,@R1
MOV DataH,A
INC R1
MOVX A,@R1
MOV DataL,A
LCALL TestShowVolt ;将负端正电压显示出来
MOV LcdShowX,#12
MOV LcdShowY,#83
MOV LcdShowC,#4
LCALL DdShowString2
RET
;
; ****** 显示"负端负电压数据" ******
;
ShowFdFdySj: LCALL BzDataLoadBuf ;此条调用不用的话，电阻值第二位是乱码
MOV R1,#VoltBuf+4 ;电压缓冲区
MOVX A,@R1
MOV DataH,A
INC R1
MOVX A,@R1
MOV DataL,A
LCALL TestShowVolt ;将负端负电压显示出来
MOV LcdShowX,#21
MOV LcdShowY,#83
MOV LcdShowC,#4
LCALL DdShowString2
RET
;
; ****** 显示"正端接地电阻数据" ******
;
ShowZdJddzSj: LCALL BzDataLoadBuf ;此条调用不用的话，电阻值第二位是乱码
MOV R1,#LinkG_R_buf+0 ;接地电阻缓冲区
MOVX A,@R1
MOV DataH,#00
MOV DataL,A
LCALL LinkG_dispKO_digit ;显示接地电阻千欧值，为西文数字
MOV LcdShowX,#31
MOV LcdShowY,#53
MOV LcdShowC,#4
LCALL DdShowString2
MOV R1,#LinkG_R_buf+1 ;接地电阻缓冲区
MOVX A,@R1
MOV DataL,A
LCALL LinkG_dispOM_digit ;显示接地电阻欧母值，为西文数字
MOV LcdShowX,#35
MOV LcdShowY,#53
MOV LcdShowC,#1
LCALL DdShowString2
RET
;
; ****** 显示"负端接地电阻数据" ******
;
ShowFdJddzSj: LCALL BzDataLoadBuf ;此条调用不用的话，电阻值第二位是乱码
MOV R1,#LinkG_R_buf+2 ;接地电阻缓冲区
MOVX A,@R1
MOV DataH,#00
MOV DataL,A
LCALL LinkG_dispKO_digit ;显示接地电阻千欧值，为西文数字
MOV LcdShowX,#31
MOV LcdShowY,#83
MOV LcdShowC,#4
LCALL DdShowString2
MOV R1,#LinkG_R_buf+3 ;接地电阻缓冲区
MOVX A,@R1
MOV DataL,A
LCALL LinkG_dispOM_digit ;显示接地电阻欧母值，为西文数字
MOV LcdShowX,#35
MOV LcdShowY,#83
MOV LcdShowC,#1
LCALL DdShowString2
RET
;
; ****** 显示"交流端接地电阻数据" ******
;
ShowJldJddzSj: LCALL BzDataLoadBuf ;此条调用不用的话，电阻值第二位是乱码
MOV R1,#LinkG_R_buf+6 ;接地电阻缓冲区
MOVX A,@R1
MOV DataH,#00
MOV DataL,A
LCALL LinkG_dispKO_digit ;显示接地电阻千欧值，为西文数字
MOV LcdShowX,#31
MOV LcdShowY,#113
MOV LcdShowC,#4
LCALL DdShowString2
MOV R1,#LinkG_R_buf+7 ;接地电阻缓冲区
MOVX A,@R1
MOV DataL,A
LCALL LinkG_dispOM_digit ;显示接地电阻欧母值，为西文数字
MOV LcdShowX,#35
MOV LcdShowY,#113
MOV LcdShowC,#1
LCALL DdShowString2
RET⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -