GE15.rar GE15.ASM
&gt GE15.ASM, change:,size:87019b
WEN MODULE MAIN,STACKSIZE(256)注释版
06H状态寄存器
30H ;故障屏蔽字
34H ;P1暂存器
37H频率超差计数器
3BH ;Display time 闪时间
3CH ;Back for LCD1备份
3FH ;Blank time灭时间
4AH;P1口的值
;LS244C3 Value
4CH ;参数序号
4FH;存放故障代码
;Blinking counter 1闪时间
;Counter for while P00--P09 display
;LS244C1 input counter
;Re_fresh counter
;Counter for lower stator voltage (V)
;Feedback Field Current Counter
;Fault code back registor
THY_NUM_UP EQU
;Work or fault
;Stator Voltage Counter
;Counter for lower rator current (I)
;Time for Softtimer 2
;停机记数器
68H ;强励记数器
6AH ;强里次结束计数器
END_E_CNT1 EQU
END_E_CNT2 EQU
;工作计数器
70H ;；角度值
;；PI调节计数器
;；功率因素角
;；附加给定值
;Enhanced field value
;Last time
;Period周期 time of netz
8AH ;；定子过流值
;Low limit current for rator
;；脉冲时间宽度
;Mean of Feedback Field Current value
;Mean of Gived Field Current value
;Mean of stator current
;Mean of Stator voltage
98H ;；功率因数角
9AH ;；上一次的功率因数角
;Threshold for stator voltage
;Coverted values for GFCM
0A4H ;；额定值
0F7H；映射空间
1400H ;堆栈地址
1B00H参数地址
LMTOVCUR11
;Summing_up output
;Summing_up output
;Summing_up input
;Summing_up input
CSEG AT 2080H
INITIAL: LD SP,#SPADR
C_REG1: CLR AX
LD BX,#30H
C_REG: ST AX,[BX]+
CMP BX,#0F8H
JNE C_REG故障位全部清零
ORB PORT2,#B
WARM1: LDB LS373C1V,#B
STB LS373C1V,LS373C1[0]
LDB LS373C3V,#B
STB LS373C3V,LS373C3[0]
LDB IOC0,#B;；
允许HSI.0输入
LDB IOC1,#B ；PWM/P2.5选择HSO.4.5
LDB HSI_MD,#B ;HSI.0每个负跳变为一个事件
LDB INT_MK,#2EH
;A/D HSI HSO 软件定时
ORB LS373C1V,#B; ；选通EPROM
STB LS373C1V,LS373C1[0]
INITEEP: LD AX,#P_EEPRM
; ；EPROM操作900H
ADD AX,#240
LDB BL,[AX][9F0]
LDB BHR,2[AX]
CMP BX,#5AA5H
JNE INITP1
LDB BL,[AX]
LDB BHR,2[AX]
DJNZ DL,INITP2
LD BX,#(P_EEPRM+240)
LD AX,#5AA5H
INITP4: STB AL,[BX]
INITP5: CALL DLY
STB AHR,2[BX]
DJNZ DL,INITP4
INITP6: LD AX,#(P_RAM+20)P_RAM=1B00H
LD BX,#P_EEPRM ;P_EEPRM=900H
LDB DL,#50
INITP7: LDB CL,[BX]
LDB CHR,2[BX]
ST CX,[AX]+
DJNZ DL,INITP7
ANDB LS373C1V,#B
STB LS373C1V,LS373C1[0]
LD BX,#1E00H
CLRRAM: ST R0,[BX]+
;1E00H单元清零~1F00H
CMP BX,#1F00H
JNH CLRRAM
LD BX,#10240
DIVU BX,#20
;R75,R76 resistance value by 2 times
ST BX,RATEDBITS
;商BL=#512
DIVUB AX,#10
ST AX,THLD01[0]
ST BX,THLD11[0]
LD BX,#320
;420,99,7,6
ST BX,LOSSVTG[0]
LD AX,#(P_RAM+48*2) ;P48同步发电机额定励磁电流值
LD BX,[AX]+
ST BX,P48V[0]
ST BX,P49V[0]
励磁装置额定励磁电流值
ORB FLAG5,#B ；有装置和电机励磁电流是置1
INITP8: LD AX,#(P_RAM+46*2) ;P46
同步发电机定子额定电压
LD BX,[AX]
ST BX,P46V[0]
JE INITP8A
LD AX,#(P_RAM+47*2) ;P47 励磁装置额定励磁电压值
LD BX,[AX]
ST BX,P47V[0]
JE INITP8A
ORB FLAG5,#B ;有装置和电机定子额定电压时为1
INITP8A: LD AX,#(P_RAM+10*2)
LDB CL,#50
LDB P_ORDER,#10 ；参数符号
INITP9: LD BX,[AX]+
CALL PV_CAL
INCB P_ORDER
DJNZ CL,INITP9
CLRB P_ORDER
CALL PODPL显示参数P__ __
LDB FLAG3,#20H刷新第一片数码管
LD TEMP2,#5200H
LD TEMP3,#999
CLRB INT_PD
LDB HSO_CMD,#38H ；软件定时器0
ADD HSO_TIME,T1,#5001 mS intruption(S_TIMER0)
LDB HSO_CMD,#39H
;；；软件定时器1
ADD HSO_TIME,T1,#500010 mS intruption(S_TIMER1)
LDB AL,HSI_ST
;Clear HSI.0
LD AX,HSI_TIME
LDB AL,HSI_ST
;Clear HSI.1
LD AX,HSI_TIME
LDB AL,HSI_ST
;Clear HSI.0
LD AX,HSI_TIME
LDB AL,HSI_ST
;Clear HSI.1
LD AX,HSI_TIME
LDB AL,HSI_ST
;Clear HSI.0
LD AX,HSI_TIME
LDB AL,HSI_ST
;Clear HSI.1
LD AX,HSI_TIME
LDB AL,HSI_ST
;Clear HSI.0
LD AX,HSI_TIME
LDB AL,HSI_ST
;Clear HSI.1
LD AX,HSI_TIME
LD AX,#P_RAM
ST BX,[AX]
STB BL,FLTBCK故障代码
LDB W_OR_F,#1
开中断???????????
INIDLP2: LD INTELVAL,#10000周期时间
LDB NEW_K,#10H
LDB KEY,#4
MAIN0: JBC NEW_K,4,MAIN0
ANDB NEW_K,#0EFH
JBC FLAG1,0,MAIN2 数码管显示F**字样
JBC KEY,2,MAIN1
ANDB FLAG1,#0FEH
ANDB FLAG3,#B
CALL PODPL
MAIN1: CLRB KEY
MAIN2: CALL PO_ALTER
AD_SV: PUSHF
LDB INT_MK,#04H ；HSI数据有效
LDB AHR,AD_HI
LDB AL,AD_LOW
ANDB BL,AL,#7
MULUB BX,BL,#2
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
ADD BX,#CH_SEL
LD BX,[BX]
CHAN0: ADD FFCM,AX
SHR FFCM,#1
LDB AD_CMD,#9H
CHAN1: ADD GFCM,AX给定电流
SHR GFCM,#1
JBC FLAG2,3,CHAN1A
CMP GFCM,GFCMTV[0]
JNH CHAN1A
ANDB FLAG2,#B
CHAN1A: JBC FLAG2,4,CHAN1B
CMP GFCM,GFCMTV[0]
ANDB FLAG2,#B
CHAN1B: LDB AD_CMD,#0AH
CHAN2: ADD STR_VM,AX
SHR STR_VM,#1
LDB AD_CMD,#0BH
CHAN3: ADD STR_CM,AX
SHR STR_CM,#1
LDB AD_CMD,#0CH
CHAN4: ADD FAI,AX
;功率因素角
SHR FAI,#1
LDB AD_CMD,#0DH
SHR WGI,#1
LDB AD_CMD,#0EH
CHAN74: POP BX
PROD,INPUT,#K
;数字滤波处理程序
MULUB PP,REG,#M
;REG先为0值
;JBS P0,0,FIL
;LDB REG,INPUT
;SJMP RETURN
ADDB REG,PROD_1,PP_1
SYNINT1: ST NTIME,LTIME
ORB FLAG2,#80H
LJMP SYNINT8
SYNINT2: ST BX,INTELVAL
ORB FLAG2,#40H ;已经算得周期
ST NTIME,LTIME
LJMP SYNINT8
HSOINT: PUSHF
LDB AL,IOS0
JBC AL,0,HSO1
LDB HSO_CMD,#0
ADD HSO_TIME,T1,#330 ;Pulse width=12 deg =667uS
HSO1: JBC AL,1,HSO2
LDB HSO_CMD,#1
ADD HSO_TIME,T1,#330 ;Pulse width=12 deg =667uS
HSO2: JBC AL,2,HSO3
LDB HSO_CMD,#2
ADD HSO_TIME,T1,#330 ;Pulse width=12 deg =667uS
HSO3: JBC AL,3,HSO4
LDB HSO_CMD,#3
ADD HSO_TIME,T1,#330 ;Pulse width=12 deg =667uS
HSO4: JBC AL,4,HSO5
LDB HSO_CMD,#4
ADD HSO_TIME,T1,#330 ;Pulse width=12 deg =667uS
HSO5: JBC AL,5,HSO6
LDB HSO_CMD,#5
ADD HSO_TIME,T1,#330 ;Pulse width=12 deg =667uS
HSO6: POP AX
EXTINT: RET
SFTIMER0: PUSH AX
;Re_fresh LCD1, LCD2 and LCD3
STM00: LDB AL,AD_LOW
JBS AL,3,STM00
;判断A/D转换完毕了?
LDB AD_CMD,#08H
;；现在启动A/D
DJNZ RFCNT,STM03
;；闪烁计数器RFCNT=3次
LDB RFCNT,#3
JBC FLAG3,5,STM01刷新第一片数码管标志
ANDB FLAG3,#B清第一片数码管标志
ORB FLAG3,#B置第二片数码管标志
STB LCD1,LS373C2[0] Re_new LCD1 display
ANDB LS373C1V,#B
ORB LS373C1V,#B
STB LS373C1V,LS373C1[0]
STM01: JBC FLAG3,6,SFTM02
ANDB FLAG3,#B ;Re_fresh LCD2
ORB FLAG3,#B
STB LCD2,LS373C2[0]
ANDB LS373C1V,#B
ORB LS373C1V,#B
STB LS373C1V,LS373C1[0]
SFTM02: ANDB FLAG3,#B Re_fresh LCD3
ORB FLAG3,#B置第一片标志
STB LCD3,LS373C2[0]
ANDB LS373C1V,#B
ORB LS373C1V,#B
STB LS373C1V,LS373C1[0]
STM03: PUSH BX
SOFTINT: PUSHF
PUSH IOS1F
LDB IOS1F,IOS1 ;；读状态寄存器1
SOFTTM0: JBC IOS1F,0,SOFTTM1
LDB HSO_CMD,#38H ;；软件定时器0
可中断引脚输出高电平
ADD HSO_TIME,T1,#500 ;1ms interrupt
SOFTTM1: JBC IOS1F,1,SOFTTM2
LDB HSO_CMD,#39H
;；软件定时器1
ADD HSO_TIME,T1,#5000 ;10ms interrupt
SOFTTM2: JBC IOS1F,2,SOFTTM4
;；软件定时器2到时？
JBC FLAG2,2,SOFTTM8
;；软件定时器可继续定时
SUB AX,SFTIME3,T1
LDB HSO_CMD,#3AH ;；软件定时器2
ADD HSO_TIME,T1,AX
SOFTTM8: ADD SFTIME3,SFTIME2
INCB T6CNT
SOFTTM3: LDB INT_MK,#04H
;；HSI数据输入有效
CALL SFTIMER2
BR SOFTTM5
SOFTTM4: LDB INT_MK,#04H
SOFTTM5: JBC IOS1F,1,SOFTTM6
CALL SFTIMER1
SOFTTM6: JBC IOS1F,0,SOFTTM7
CALL SFTIMER0
SOFTTM7: POP IOS1F
SFTIMER2: PUSH AX
CMPB T6CNT,#5
JNE STM2_1
ANDB FLAG2,#B
;；软件定时器2不可以用
STM2_1: JBS FLAG6,0,STM2_1C
;；判断FMK有无分闸
ADD SFTIME4,SFTIME2
LJMP STM2_10
STM2_1C: JBC FLAG4,5,STM2_1D
JBC FLAG1,2,STM2_2
JBC STOPCNT1,7,STM2_1A
LD BX,#(P_RAM+28*2) ;P28
LD BX,[BX]
MULUB ALFA,BL,#20
;ALFA=160.0 Degree(P28 limited),
here ALFA with a point
MULUB PULSET,BL,#28
;T=P28*55.6/2=4448 uS
LDB HSO_CMD,THY_NUM_UP
ADD HSO_TIME,T1,PULSET
STM2_1D: LJMP STM2_10
STM2_1E: JBC FLAG4,1,STM2_1F
STM2_1H: INC CVPICNT
CMP CVPICNT,P40V[0]
JNH STM2_1G
CLR CVPICNT
;VPI1吊调用PID调节
LJMP STM2_6A
STM2_1G: LD BX,ALFA
LJMP STM2_6A
STM2_1F: JBS FLAG4,2,STM2_1J ;If FLAG4.3=1 (Manual mode) CPU runs
LJMP STM2_2D
; at constant current mode
STM2_1J: ORB FLAG4,#B
LJMP STM2_2B
STM2_1A: DI
LDB HSO_CMD,THY_NUM_UP
ADD HSO_TIME,SFTIME4,PULSET
ADD SFTIME4,SFTIME2
STM2_2: JBC FLAG5,3,STM2_2A
MULU BX,GFCMCOV,#703
;When P29=1, ALFA decised by GFCM
DIVU BX,#100
;YK=GFCM*703; (0--512)~(0--3600)
LD CX,#3600
;here K=703=2*100)
SUB BX,CX,BX
LJMP STM2_6A
STM2_2A: JBC FLAG1,3,STM2_2C
LD BX,ENHANCE
LJMP STM2_3
STM2_2C: JBC FLAG4,0,STM2_1E
STM2_2D: ANDB FLAG4,#B
JBC FLAG5,2,STM2_2B
ANDB FLAG5,#B
STM2_2B: LD BX,GFCMCOV
;Constant current mode
JBS FLAG2,0,STM2_3
CALL SLOPE
STM2_3: SUB BX,FFCM
STM2_4: LD AX,P22V[0]
JNE STM2_5
LD AX,P21V[0]
CALL P_LOOP调用PI电流调节
LJMP STM2_6A
STM2_5: JBC FLAG6,3,STM2_5A
JBC FLAG6,2,STM2_5B
STM2_5B: CALL PIT_LOOP
LJMP STM2_6A
STM2_5A: LD 0C8H,BX
CALL INTF4
;FLOAT(EK)
LD 0C8H,AX
CALL INTF4
ST 0C8H,0CCH
ST 0CAH,0CEH
LD 0C8H,#85H
;Set delta T=3.3 mS, (33)
LD 0CAH,#400H
CALL FDIV4
;Delta_T/TAU
LD 0CCH,#80H
;Float expression of 1
CALL FADD4
;(1+DELTA_T/TAU)
CALL FMUL4
;(1+DELTA_T/TAU)*FLOAT(EK)
LD 0CCH,EK_1
LD 0CEH,EK_12
CALL FSUB4
;(1+DELTA_T/TAU)*FLOAT(EK)-EK_1
LD 0C8H,P21V[0]
CALL INTF4
LD 0CCH,#86H
LD 0CEH,#0C800H
CALL FDIV4
CALL FMUL4
;KP[(1+DELTA_T/TAU)*FLOAT(EK)-EK_1]
LD 0CCH,YK_1
LD 0CEH,YK_12
CALL FADD4
;KP[(1+DELTA_T/TAU)*FLOAT(EK)-EK_1]+YK_1
ST 0C8H,YK_1
ST 0CAH,YK_12
CALL FINT4
LD BX,0C8H
STM2_6A: CMP BX,P28V[0]
;BETA Limit
JLT STM2_6
LD BX,P28V[0]
ST BX,0C8H
CALL INTF4
LD YK_1,0C8H
LD YK_12,0CAH
CMP BX,P27V[0]
;ALFA Limit
JGE STM2_8
LD BX,P27V[0]
ST BX,0C8H
CALL INTF4
LD YK_1,0C8H
LD YK_12,0CAH
STM2_8: ANDB FLAG3,#B
CMP BX,P30V[0]
ORB FLAG3,#1
JBS FLAG6,5,STM2_8A
JBC FLAG6,6,STM2_9
STM2_8A: LD BX,P30V[0]
LJMP STM2_9A
STM2_9: JBC FLAG9,0,STM2_9A
JBS FLAG1,3,STM2_9A
CMP BX,LMTOVCUR11[0]
JH STM2_9A
LD BX,LMTOVCUR11[0]
STM2_9A: ST BX,ALFA
MULU BX,#139
;1 degree=55.6 uS=27.8 T1
DIVU BX,#100
;0.1 degree=5.56 uS=278*T1/100
ST BX,PULSET
STM2_10: INCB THY_NUM_UP
CMPB THY_NUM_UP,#36H
JNE STM2_12
LDB THY_NUM_UP,#30H
STM2_12: POP DX
JBS FLAG5,2,PID3
;电压环计数器为1
ORB FLAG5,#B
PID3: SUB EN,STR_VM,GFCMCOV
PID5: SUB 0C8H,EN,EN_1
MUL 0C8H,P36V[0]
DIV 0C8H,#100
CALL INTF4
;FLOAT[Delta_E(n)*KP]
LD BX,GFCMCOV
DIVU BX,#3
CMP STR_VM,BX
LD BX,0C8H
LD CX,0CAH
LD 0C8H,P27V[0]
CALL INTF4
LD YK_1,0C8H
LD YK_12,0CAH
ST BX,0C8H
ST CX,0CAH
PID6: LD BX,GFCMCOV
DIVU BX,#5
JBC CHR,7,PID7
PID7: CMP CX,BX
LD 0C8H,P37V[0]
MUL 0C8H,EN
CALL INTF4
LD 0CCH,#86H
;Float expression of 100
LD 0CEH,#4800H
CALL FDIV4
;KI*E(n)/100
CALL FADD4
;KP*E(n)+KI*E(n)/100
ADD 0C8H,EN,EN_2
LD 0CAH,EN_1
SHL 0CAH,#1
SUB 0C8H,0CAH
;E(n)-2E(n-1)+E(n-2)
MUL 0C8H,P38V[0]
;KD*[E(n)-2E(n-1)+E(n-2)]
DIV 0C8H,#100
CALL INTF4
CALL FADD4
PID9: LD 0CCH,YK_1
LD 0CEH,YK_12
CALL FADD4
ST 0C8H,YK_1
ST 0CAH,YK_12
CALL FINT4
LD BX,0C8H
ST EN_1,EN_2
ST EN,EN_1
P_LOOP: NOP
;LD AX,P21V[0]
;Delta Yk=Ki*Ek=Ki*(GFCM-FFCM)
DIV BX,#100
LD CX,P28V[0]
SUB BX,CX,BX
ST BX,0C8H
CALL INTF4
LD YK_1,0C8H
LD YK_12,0CAH
;LJMP STM2_6A
PIT_LOOP: LD 0C8H,BX
CALL INTF4
;FLOAT(EK)
;Hold E(K)
LD 0CCH,TM
LD 00CEH,TM_2
CALL FMUL4
LD 0CCH,YK_2
LD 0CEH,YK_22
LD 0C8H,TP
LD 0CAH,TP_2
CALL FMUL4
;TP*Y(K-2)
CALL FADD4
;TM*E(K)+TP*Y(K-2)
LD 0CCH,0C8H
LD 0CEH,0CAH
LD 0C8H,EK_1
LD 0CAH,EK_12
;Store E(K-1)
CALL FSUB4
;E(K-1)-[TM*E(K)+TP*Y(K-2)]
LD 0CCH,YK_1
LD 0CEH,YK_12
LD YK_2,YK_1
LD YK_22,YK_12
LD 0C8H,COEF2
LD 0CAH,COEF2_2
CALL FMUL4
;COEF2*Y(K-1)
CALL FADD4
;E(K-1)-[TM*E(K)+TP*Y(K-2)]+COEF2*Y(K-1)
LD 0CCH,COEF1
LD 0CEH,COEF1_2
CALL FDIV4
;{E(K-1)-[TM*E(K)+TP*Y(K-2)]+COEF2*Y(K-1)}/COEF1
ST 0C8H,YK_1
ST 0CAH,YK_12
CALL FINT4
LD BX,0C8H
;LJMP STM2_6A
PI_C: ANDB FLAG6,#B
LD 0C8H,P21V[0]
CALL INTF4
LD 0CCH,0C8H
LD 0CEH,0CAH
LD 0C8H,#86H
;Float expression of 100
LD 0CAH,#4800H
CALL FDIV4
;KP=1/P21=100/P21V
ST 0C8H,KP
ST 0CAH,KP_2
LD 0C8H,P22V[0]
CALL INTF4
LD 0CCH,0C8H
LD 0CEH,0CAH
LD 0C8H,#85H
;Float expression of 33
LD 0CAH,#400H
CALL FDIV4
;DeltaT/P22=33/P22V
LD 0CCH,#80H
;Float expression of 1
CALL FADD4
;TM=1+DeltaT/P22
ST 0C8H,TM
ST 0CAH,TM_2
LD 0C8H,P24V[0]
CALL INTF4
LD 0CCH,#85H
;Float expression of 33
LD 0CEH,#400H
CALL FDIV4
;TP=P24/DeltaT=P24V/33
ST 0C8H,TP
ST 0CAH,TP_2
LD 0CCH,TM
LD 0CEH,TM_2
CALL FMUL4
LD 0CCH,KP
LD 0CEH,KP_2
CALL FADD4
;COEF1=KP+TP*TM
ST 0C8H,COEF1
ST 0CAH,COEF1_2
LD 0CCH,TP
LD 0CEH,TP_2
CALL FADD4
COEF2=COEF1+TP
ST 0C8H,COEF2
ST 0CAH,COEF2_2
KC12: PUSH AX
LD AX,#1023 ;KC1=(P12V/100)*23-P31V)
SUB AX,P31V[0] ;Here: *1000 means KC1 with 3 points
空载励磁限制
LD BX,P12V[0]调差率选择
MULU BX,#8190
DIVU BX,AX
ST BX,KC1[0]
MULU BX,P31V[0] ;KC2=819-KC1*P31V
DIVU BX,#1000 ;Because of KC1 with 3 points
LD AX,#819
SUB BX,AX,BX
ST BX,KC2[0]
COVGFCM: LD BX,GFCM励磁电流设定值显示
ST BX,P01V[0]
JBC FLAG4,6,COV00用电位器,1用参数(数字方式)
LD BX,P20V[0]数字给定值
COV0: JBC FLAG2,3,COV1
;油合开关并网瞬间?
ANDB FLAG2,#B清油合开关并网瞬间
CMP BX,GFCMTV[0]
ORB FLAG2,#B置;油合开关并网瞬间
LD BX,GFCMTV[0]
COV1: JBC FLAG2,4,COV2油合开关解列瞬间?
ANDB FLAG2,#B清油合开关解列瞬间
CMP BX,P31V[0]空载励磁限制
以装置额定电力P47的百分比表示
ORB FLAG2,#B置;油合开关解列瞬间
LD BX,P31V[0]
COV2: JBS FLAG4,0,COV3
;是恒流励磁?
JBS FLAG4,1,COV5
JBS FLAG4,2,COV5
COV3: JBC FLAG5,5,COV4
;有装置和电机定子额定电压时为1
......恒流励磁................
MULU BX,P48V[0]
;同步发电机额定励磁电流值
DIVU BX,P49V[0]
;励磁装置额定励磁电流值
COV4: SHR BX,#1
ST BX,GFCMCOV
JBC FLAG4,4,COV4B
;恒流方式时功率因素自动跟踪?
JBC FLAG7,6,COV4B
;电压给定上限(油开关合)
ADD BX,GDADD?????????????????????????
JBC BHR,7,COV4D最高位伪0?
COV4D: CMP BX,GFCMTV[0]
ANDB FLAG2,#B清油合开关并网瞬间
COV4C: CMP BX,P44V[0] 电流下限百分比(并网后和选用功率因素后有效)
LD BX,P44V[0]
ST BX,GFCMCOV
COV4A: CMP BX,P45V[0]
;电流上限百分比(并网后和选用功率因素后有效)
LD BX,P45V[0]
COV4B: ST BX,GFCMCOV
COV5: JBC FLAG7,6,COV7
;电压给定上限(油开关合
MULU BX,KC1[0]
;Yv=KC1*GFCM+KC2
DIVU BX,#1000
ADD BX,KC2
JBC FLAG5,6,COV6
;有装置和电机定子额定电压时为1
MULU BX,P47V[0]励磁装置额定电压值
DIVU BX,P46V[0]同步发电机定子额定电压:以PT付边电压表示
COV6: ST BX,GFCMCOV
COV7: MULU BX,#819
DIVU BX,P31V[0]空载励磁限制
JBC FLAG5,6,COV8
MULU BX,P47V[0]
DIVU BX,P46V[0]
COV8: ST BX,GFCMCOV
;Set initial values
LD YK_2,#8BH
;YK_2=2460 i.e=123 degree
LD YK_22,#19C0H
LD YK_1,#8BH
;YK_1=2460 i.e=123 degree
LD YK_12,#19C0H
LD ALFA,#2460
;Set ALFA0=123 degree
LD PULSET,#3419
;=123 degree*55.6/2
SLOPESET: ANDB FLAG2,#B清加斜坡函数计算
LD AX,P26V[0]给定斜坡函数0~5.0
JNE SL_SET1
ORB FLAG2,#B
SL_SET1: RET
SLOPE: INC DELTAN
;BX=0.5GFCM*DELTAN/P26V+0.5GFCM
LD BX,GFCMCOV ;98,11
MULU BX,DELTAN
DIVU BX,P26V[0]
LD CX,GFCMCOV
CMP BX,GFCMCOV
JNH SLOPE1
ORB FLAG2,#B
CLR DELTAN
SLOPE1: RET
GDFAI: LD BX,P42V[0]功率因素设定值
SUB BX,FAI
MUL BX,P39V[0] ;.功率因素时间常数.............P58V[0]
DIV BX,#10
SUB BX,FAIN
MUL BX,P43V[0] ;功率因素调节系数
DIV BX,#100
JBC FLAG4,4,GDFAI1恒流方式时功利因素自动跟踪
JBC FLAG7,6,GDFAI1 ;电压是给定上限?
CMP TEMP2,#6F00H
ST FAI,[TEMP2]+
ST FAIN,[TEMP2]+
ST BX,[TEMP2]+
ST GDADD,[TEMP2]+
ADD CX,GDADD,BX
LD BX,P42V[0]
SUB FAIN,BX,FAI
CMP GFCMCOV,P44V[0] ;电流下限百分比
LD AX,GFCM
SUB AX,GFCMCOV,AX
JGT GDFAI3
LJMP GDFAI3
GDFAI2: CMP GFCMCOV,P45V[0]电流上限百分比
JLT GDFAI3
LD AX,GFCM
SUB AX,GFCMCOV,AX
JNH GDFAI3
GDFAI3: ST CX,GDADD
GDFAI1: ST BX,GDADD
CLRB AHR读出244(2)的高2位并比较判断
SRT1: CALL DLY
LDB AL,LS244C2[0]
ANDB AL,#B
CMPB AL,#B
CMPB AHR,#100
SRT2: CLRB AHR
SRT3: CALL DLY
LDB AL,LS244C2[0]
ANDB AL,#B
CMPB AL,#B
CMPB AHR,#100
SRT4: CLRB AHR
SRT5: CALL DLY
LDB AL,LS244C2[0]
ANDB AL,#B
CMPB AL,#B
CMPB AHR,#100
SRT6: CLRB AHR
SRT7: CALL DLY
LDB AL,LS244C2[0]
ANDB AL,#B
CMPB AL,#B
CMPB AHR,#100
SRT8: CLRB AHR
SRT9: CALL DLY
LDB AL,LS244C2[0]
ANDB AL,#B
CMPB AL,#B
CMPB AHR,#100
SFTIMER1: PUSH AX故障处理...............................................
CALL RD244C1 读按键
CALL COVGFCM给定电流GFCM
CALL CHECK反馈电流FFCM
JBC PORT1V,5,STM1_1A
故障复位----------------------不用改变---------、、、、///
JBC FLAG1,7,STM1_1A ; Dahushan
ORB LS373C3V,#B
STB LS373C3V,LS373C3[0]
ORB LS373C1V,#B
STB LS373C1V,LS373C1[0]
ANDB FLAG7,#B
;Clear fault memory
ANDB FLAG1,#7FH
LDBZE AX,FLTBCK Retore P00 as original state
ST AX,P_RAM[0]
CMPB P_ORDER,#9
JH STM1_1A
JBC FLAG3,1,STM1_1A有故障显示时,原来的正闪烁为1
LDB P0_9CNT,#80H
STM1_1A: JBC PORT1V,4,STM1_1C油断路器
-----------------改为快熔断-----------//////
JBS FLAG7,6,STM1_1油开关合 1合
ORB FLAG7,#B
ORB FLAG2,#B油并网瞬间
ANDB FLAG2,#B清解列
ST AX,P_RAM[0]并网
STB AL,FLTBCK
LD WORKCNT,#8000H
LD BX,GFCM取给定电流
JBC FLAG4,6,STM1_1B
LD BX,P20V[0]
STM1_1B: MULU BX,#103
DIVU BX,#100
ST BX,GFCMTV[0]
LJMP STM1_1
STM1_1D: JBS FLAG7,0,STM1_2A
故障后未复位
LDB FAULT,#4
;F04 ;No reset
CALL F_PRCS2
ORB FLAG7,#B
LDB FLTBCK,#1
LJMP STM1_29
STM1_2A: LJMP STM1_2
STM1_1C: JBC FLAG7,6,STM1_1
ANDB FLAG7,#B
ANDB FLAG2,#B
ORB FLAG2,#B
JBC FLAG6,0,STM1_1EFMK分闸
JBC FLAG6,1,STM1_1E已建压
;开始建压转入正常工作
STM1_1E: ST AX,P_RAM[0]
STB AL,FLTBCK
STM1_1: JBS FLAG6,0,STM1_2
JBC PORT1V,0,STM1_2 FMK on
-------------改为油合开关-----------//////////
JBS FLAG1,7,STM1_1D
ORB FLAG6,#B
ANDB FLAG6,#B
LD AX,#02 FMK合闸完成
ST AX,P_RAM[0]
STB AL,FLTBCK
;Set initial values when stator swtich on
ANDB LS373C3V,#B清 有脉冲输出(停机时置1)(建压时清0)
STB LS373C3V,LS373C3[0]
JBS FLAG4,3,STM1_6 手动方式
ORB FLAG4,#B计算触发角允许
ANDB FLAG8,#B清正组桥丢失脉冲,反组桥丢失脉冲
ORB PORT2,#B
LD BX,#(P_RAM+11*2) ;读P11
LD BX,[BX]
ANDB FLAG8,#B清所有桥的标志位
CMP BX,#1选择1号桥
JE STM1_1F
CMP BX,#2 选2号桥
JE STM1_1G
CMP BX,#3两桥同时工作
JNE STM1_1F
ORB FLAG8,#B双桥同时触发
LJMP STM1_1H
STM1_1F: ORB FLAG8,#B正桥触发脉冲
LJMP STM1_1H
STM1_1G: ORB FLAG8,#B反桥触发脉冲
STM1_1H: JBC FLAG8,5,STM1_1J不是正桥触发脉冲吗?
ANDB PORT2,#B是
STM1_1J: JBC FLAG8,6,STM1_1K不上反组触发脉冲吗?
ANDB PORT2,#B是
STM1_1K: JBC FLAG8,7,STM1_2不是双组吗?
ANDB PORT2,#B是
STM1_2: JBS FLAG6,1,STM1_6已建压标志
JBC PORT1V,1,STM1_6 Establish voltage 输入有无建压信号--------------改为外故障连锁/////////////////
JBC FLAG6,0,STM1_5FMK合闸吗?
ORB FLAG6,#B合闸且有建压信号..已建压
ST AX,P_RAM[0]P00=03开始建压转如正常工作
STB AL,FLTBCK
LD WORKCNT,#8000H
LJMP STM1_6
STM1_5: JBS FLAG1,7,STM1_6故障标志
LDB FAULT,#1
;F01 先建压后合闸
CALL F_PRCS2....................................处理
LDB FLTBCK,#1停机
LJMP STM1_29
STM1_6: JBS FLAG6,4,STM1_7FMK分闸
JBC PORT1V,2,STM1_7 Stop command on, 分闸标志-------------------------改为外故障连锁-------////
JBS FLAG1,7,STM1_7
ANDB FLAG1,#B清进入常态工作,引许强励
ST AX,P_RAM[0]
STB AL,FLTBCK
LD STOPCNT,#8000H
ORB FLAG6,#B置分闸标志
STM1_7: JBS FLAG7,2,STM1_8继电保护动作
JBC PORT1V,6,STM1_9继电保护动作
-----------------------改为其励建压----------///////
JBC FLAG2,5,STM1_9继电保护有效
JBS FLAG1,7,STM1_9故障标志
JBS MASKWD,3,STM1_9
ORB FLAG7,#B继电保护动作
ANDB FLAG1,#B
LD STOPCNT,#8000H
LDB FAULT,#4
;E04---Relay protection
CALL F_DPL3继电保护............
STM1_8: JBS PORT1V,6,STM1_9继电保护动作
ANDB FLAG7,#B清;继电保护动作
JBC FLAG1,7,STM1_9故障标志
CALL F_DPL8;..............继电保护.............
STM1_9: JBC STOPCNT1,7,STM1_10 Stop field current
INC STOPCNT
CMP STOPCNT,#()after 4 seconds
JNH STM1_10
ANDB FLAG4,#B清计算触发角允许
CLR STOPCNT
CALL F_PRCS1
STM1_10: JBS FLAG7,5,STM1_11快溶断标志
JBC PORT1V,3,STM1_12快溶断标志
----------------------------改为风机停标志----------//////////
ORB FLAG7,#B置快溶断标志
JBS FLAG1,7,STM1_12故障标志
LDB FAULT,#05
F05---HRC Fuse breaked
LDB FLTBCK,#1
CALL F_PRCS2..................快熔................
STM1_11: JBS PORT1V,3,STM1_12
有标志有信号
ANDB FLAG7,#B
无信号清标志
JBC FLAG1,7,STM1_12故障标志
CALL F_DPL8..................
STM1_12: JBS FLAG7,4,STM1_13E01故障发电机输出频率过低
JBC FLAG8,3,STM1_15&45HZ
CMP STR_VM,#737
JNH STM1_15
INCB FRENCNT电压高
CMPB FRENCNT,#5
JNH STM1_17
CLRB FRENCNT
ORB FLAG7,#故障发电机输出频率过低
JBS FLAG1,7,STM1_15
JBS MASKWD,0,STM1_15
LDB FAULT,#1
E01:F&45HZ
CALL F_DPL3...............................................................
STM1_13: JBS FLAG8,3,STM1_15&45HZ
ANDB FLAG7,#B清E01故障发电机输出频率过低
JBC FLAG1,7,STM1_15
CALL F_DPL8...............................................................
STM1_15: JBS FLAG7,7,STM1_16
;发电机输出频率过高
JBC FLAG8,4,STM1_16A
INCB FRENCNT
CMPB FRENCNT,#5
JNH STM1_17
CLRB FRENCNT
ORB FLAG7,#故障标志
JBS FLAG1,7,STM1_17
JBS MASKWD,1,STM1_17
LDB FAULT,#2
E02:F>55HZ
CALL F_DPL3///////////////////////////////.................................
STM1_16: JBS FLAG8,4,STM1_17
ANDB FLAG7,#B
JBC FLAG1,7,STM1_17
CALL F_DPL8......................................................................
STM1_16A: CLRB FRENCNT
STM1_17: JBC FLAG3,0,STM1_21触发角已经过警戒线
JBS FLAG2,1,STM1_21
已检查电流反馈.电压反馈通道
CMP FFCM,#8反馈电流
JH STM1_18
JBS FLAG1,7,STM1_19
;99,7,6 SICHUAN
JBS MASKWD,6,STM1_19
ORB FLAG6,#B电流无反馈
LDB FAULT,#2
;F02:FFCM=0
CALL F_PRCS2
LDB FLTBCK,#1
LJMP STM1_21
STM1_18: ANDB FLAG6,#B清电流无反馈标志
STM1_19: CMP STR_VM,#8反馈电压
JGE STM1_20
JBS FLAG1,7,STM1_21
;99,7,6 SICHUAN
JBS MASKWD,6,STM1_21
ORB FLAG6,#B置电压无反馈标志
LDB FAULT,#3
F03:STR_VM=0
CALL F_PRCS2
LDB FLTBCK,#1
LJMP STM1_21
STM1_20: ANDB FLAG6,#B清电压无反馈标志
JBS FLAG6,5,STM1_21有电流无反馈标志吗
ORB FLAG2,#B已检查电流反馈电压反馈通道
STM1_21: JBC FLAG4,7,STM1_23工作方式选择......
是由外部.选还是由P18选....0由P18选
ANDB AL,LSC3V,#0FH外部选
JNE STM1_22
STM1_22: ANDB AHR,FLAG4,#0FH
CMPB AL,AHR
JE STM1_23恒流
ANDB FLAG4,#B清
ORB FLAG4,AL
ORB PORT2,#B
JBS FLAG4,3,STM1_25手动
JBC FLAG8,6,STM1_22A反组触发?
ANDB PORT2,#B
STM1_22A: JBC FLAG8,5,STM1_22B正组触发
ANDB PORT2,#B
STM1_22B: JBC FLAG8,7,STM1_23双桥触发
ANDB PORT2,#B
STM1_23: JBC FLAG4,6,STM1_25电位器
JBC LSC3V,4,STM1_24电动给定增加
DECB P20CNT
JNE STM1_25
ANDB FLAG5,#B外部给定增加减少键有按动
LD AX,#(P_RAM+20*2) ;P20
数字给定值
LD BX,[AX]读数字给定值
CMP BX,#1000
JE STM1_25
ST BX,[AX]
CALL P20DP
.................................
STM1_24: JBC LSC3V,5,STM1_25电动给定减少
DECB P20CNT
JNE STM1_25
ANDB FLAG5,#B;外部给定增加减少键有按动
LD AX,#(P_RAM+20*2) ;P20
LD BX,[AX]
JE STM1_25
ST BX,[AX]
CALL P20DP...............................
STM1_25: JBC ENHANCNT1,7,STM1_27 Enhanced excitation
INC ENHANCNT
JBC FLAG1,5,STM1_26可解除强励?
CLR ENHANCNT
CLR ENHANCE
LD END_E_CNT,#8000H
ANDB FLAG1,#B允许强励
强励标志清0
BR STM1_27
P20DP: PUSH BX
CALL P20PGM////////////??????????????????????????????????????
JBC FLAG3,2,P20DP1正显示P10~P59值
CMPB P_ORDER,#20
JNE P20DP1
CALL PV_SET????????????????????????????????????????????????
LD BLKCNT1,#8000H
;Blinking counter 闪烁计数器
ANDB FLAG3,#B正闪烁,,显示内容亮灭标志
ORB FLAG3,#B ;正显示P10~P59值
STM1_26: AND BX,ENHANCNT,#7FFFH
CMP BX,P15V[0]强励时间设定
JNH STM1_27
CLR ENHANCNT
CLR ENHANCE
ORB LS373C1V,#B强励指令 ;99,7,6
STB LS373C1V,LS373C1[0]
ANDB FLAG1,#B;允许强励
强励标志清0
LD END_E_CNT,#8000H强励结束计数器
STM1_27: JBC END_E_CNT1,7,STM1_28
INC END_E_CNT
CMP END_E_CNT,#(100+32768) ;Intelval between
两次强励之间的间隔
JNH STM1_28
two enhanced excitation
INC END_E_CNT2
LD END_E_CNT,#8000H
CMP END_E_CNT2,P16V[0]强励时间间隔3~40
JNH STM1_28
CLR END_E_CNT2
CLR END_E_CNT
LD AX,#(P_RAM+17*2) ;P17 强励选择=0不选用强励,1选用强励
LD AX,[AX]
;Enhanced exicition allowed?
JE STM1_28
ORB FLAG1,#B ;Yes 允许强励标志
STM1_28: JBC WORKCNT1,7,STM1_29.......工作计数器高位....................................
INC WORKCNT
CMP WORKCNT,#() ;After 3 second
JNH STM1_29
CLR WORKCNT
ORB FLAG1,#B ;Set normal work flag进入常态标志
LD AX,#(P_RAM+17*2) ;P17
强励选择=0不选用强励,1选用强励
LD AX,[AX]
;Enhanced exicition allowed?
JE STM1_29
ORB FLAG1,#B ;Yes 选用,允许强励标志
STM1_29: CALL RD_KEYS................读键............................读键
JBC TKCNT,7,STM1_30
INCB TKCNT
STM1_30: JBC K_CNT,7,STM1_31
;；；；；；；；；；；；；；；；；TKCNT
INCB K_CNT
STM1_31: JBC FLAG3,3,STM1_33显示正闪烁
INCB BLINKCNT灭计数器
JBC FLAG3,4,STM1_32显示内容亮还是灭?
CMPB BLINKCNT,DPTIME
JNE STM1_34
ANDB FLAG3,#B显示内容灭
LD BKLCD1,LCD1
LDB BKLCD3,LCD3
LDB LCD3,0
BR STM1_33
STM1_32: CMPB BLINKCNT,BLKTIME
JNE STM1_34
ORB FLAG3,#B灭的时间到了显示正闪烁
..+显示内容 亮
LD LCD1,BKLCD1
LDB LCD3,BKLCD3
STM1_33: CLRB BLINKCNT
STM1_34: JBC BLKCNT2,7,STM1_35
INC BLKCNT1
STM1_35: JBS FLAG1,0,STM1_40 ;If at FAULT display,not re_fresh 出错不闪烁
JBC P0_9CNT,7,STM1_40 ; P00-P09
INCB P0_9CNT
CMPB P0_9CNT,#(127+10)
;Re_fresh P00-P09 values per 0.1 S
JNE STM1_40
LDB P0_9CNT,#80H
CALL DPP0_P9 ................................???????????????????????
DJNZ W_OR_F,STM1_48
LDB W_OR_F,#10
ORB LS373C3V,#B
STB LS373C3V,LS373C3[0]
ANDB LS373C3V,#B
STB LS373C3V,LS373C3[0]
STM1_48: INC CFAICNT
CMP CFAICNT,P40V[0]计算电压环周期及功率因素周期
JNH STM1_49
CLR CFAICNT
CALL GDFAI................................................
STM1_49: POP CX
F_PRCS1: ORB PORT2,#B ;Fault process 1故障处理..P2.6 P2.7............................
ANDB FLAG1,#B ;1 2 3 6
ANDB FLAG2,#B ;0 1 3 4
ANDB FLAG3,#B
ANDB FLAG6,#B ;
ANDB FLAG8,#B
ORB LS373C3V,#B有脉冲输出标志
STB LS373C3V,LS373C3[0]
ST AX,P_RAM[0]停机
STB AL,FLTBCK
ANDB LS373C1V,#B
STB LS373C1V,LS373C1[0]
CLR ENHANCNT
CLR WORKCNT
CLR END_E_CNT
CLR END_E_CNT2
F_PRCS2: PUSH AX
;Fault process 2
LD STOPCNT,#8000H
ANDB LS373C1V,#B
清失励故障
STB LS373C1V,LS373C1[0]
CLRB P0_9CNT
ORB FLAG1,#81H#
JBC FLAG3,3,F_DPL1显示正闪烁
JBS FLAG1,0,F_DPL1
ORB FLAG3,#B有故障时存原来的显示正闪烁
F_DPL1: LDB LCD1,#71H
;Fault Display故障显示
LDB LCD2,DPCODE[AX]
LDB LCD3,DPCODE[BX]
ORB FLAG3,#B ;显示正闪烁,显示内容/亮
LDB DPTIME,#100亮时间
LDB BLKTIME,#100灭时间
;Set P00=05, fault state
ST AX,P_RAM[0]
CLR ENHANCNT
CLR WORKCNT
CLR END_E_CNT
CLR END_E_CNT2
F_DPL2: POP BX
F_DPL3: PUSH AX
CLRB P0_9CNT
ANDB LS373C3V,#B清综合故障标志
STB LS373C3V,LS373C3[0]
ORB FLAG1,#83H
;置报轻故障标志
JBC FLAG3,3,F_DPL5
;显示正闪烁
JBS FLAG1,0,F_DPL5
ORB FLAG3,#B正显示P10~59的值
F_DPL5: LDB LCD1,#79H
;Fault Display
LDBZE AX,FAULT
DIVUB AX,#10
LDBZE BX,AHR
LDB LCD2,DPCODE[AX]
LDB LCD3,DPCODE[BX]
;Set P00=05, fault state
ST AX,P_RAM[0]
ORB FLAG3,#B显示正闪烁,显示内容亮
LDB DPTIME,#100
LDB BLKTIME,#100
F_DPL4: POP BX
F_DPL8: PUSH AX
ANDB FLAG1,#7FH清故障标志
ANDB FLAG7,#B
;Clear fault memory
LDB AL,FLTBCK Restore P00 as original state
恢复P00原始状态
STB AL,P_RAM[0]
CMPB P_ORDER,#9
JBC FLAG3,1,F_DPL9触发角已经过警戒线
LDB P0_9CNT,#80H
F_DPL9: ORB LS373C3V,#B置综合故障
STB LS373C3V,LS373C3[0]
F_ERR: PUSH AX
CLRB P0_9CNT
ORB FLAG1,#83H数码管显示F**报轻故障
JBC FLAG3,3,F_ERR1
JBS FLAG1,0,F_ERR1
ORB FLAG3,#B有故障时存原来的显示正闪烁
F_ERR1: LDB LCD1,#79H
;Fault Display
LDBZE AX,FAULT按0扩展成字
DIVUB AX,#10
LDBZE BX,AHR
LDB LCD2,DPCODE[AX]
LDB LCD3,DPCODE[BX]
LDB FLTBCK,P_RAM[0]
;Set P00=05, fault state
ST AX,P_RAM[0]
ORB FLAG3,#B显示正闪烁,显示内容亮
LDB DPTIME,#100
LDB BLKTIME,#100
F_ERR8: PUSH AX
ANDB FLAG1,#B清故障标志
ANDB FLAG7,#BClear fault memory
LDB AL,FLTBCK Restore P00 as original state
STB AL,P_RAM[0]
CMPB P_ORDER,#9
JBC FLAG3,1,F_ERR9
;有故障显示
LDB P0_9CNT,#80H
F_ERR9: POP BX
RD244C1: PUSH AX
LDB AL,PORT1
LDB AHR,LS244C3[0]
ANDB AL,#7FH
ANDB AHR,#7FH
CMP AX,PORT1V
JNE RDC11/=有键
CLRB INCNT1
JBS FLAG5,4,RDC16有外部数字给定,增加.减少键有按动跳退出
ANDB AL,LSC3V,#B/////////电动给定增加/减少为0吗
LDB P20CNT,#8
ORB FLAG5,#B置有外部数字给定,增加.减少键有按动
RDC11: CMPB INCNT1,0
LDB INCNT1,#1
ST AX,PORT1TV
RDC13: CMPB INCNT1,#5H
CLRB INCNT1
RDC15: INCB INCNT1
RDC16: POP AX
RDC17: CLRB P20CNT
ANDB FLAG5,#B有按动........清
;；读按键处理
LDB AL,LS244C2[0]
;设置键 增加键
ANDB AL,#7
CMPB AL,#7按下为0
JNE RD_KY1
ANDB NEW_K,#0FEH
CLRB K_CNT
CLRB TKCNT
JBC TKCNT,7,RD_KY2
CMPB TKCNT,#0C6H ;(128)+70====Delay 700ms
JNH RD_KY5
LDB TKCNT,#0BCH ;(128)+60====Delay 100ms
ANDB AL,#7
ANDB AL,#7
STB AL,KEY
ORB NEW_K,#11H
CMPB K_CNT,#3
JNE RD_KY7
CLRB K_CNT
ORB NEW_K,#11H
ANDB AL,#7
ANDB AL,#7
STB AL,KEY
LDB TKCNT,#80H
RD_KY5: POP BX
RD_KY7: CMPB K_CNT,0
CMPB AL,K_TEMP
JNE RD_KY9
INCB K_CNT
RD_KY8: STB AL,K_TEMP
INCB K_CNT
RD_KY9: CLRB K_CNT
CKPUL: JBC LSC3V,6,CKPUL4
JBC FLAG6,1,CKPUL8
;无已建压标志
INCB PULLOS
CMPB PULLOS,#100
JNH CKPUL8
CLRB PULLOS
JBC FLAG8,5,CKPUL5
;1正组触发脉冲?????????????????????????????????????????
JBS FLAG1,7,CKPUL8
JBS MASKWD,5,CKPUL8
LDB FAULT,#8
E08: Pulse of No 1. bridge is lossing
CALL F_DPL3
ORB FLAG8,#B
ANDB FLAG8,#B清正组触发脉冲?
JBS FLAG8,2,CKPUL7
;正组桥有丢脉冲
ANDB PORT2,#B
ORB PORT2,#B
CKPUL4: CLRB PULLOS
CKPUL5: JBC FLAG8,6,CKPUL6
JBS FLAG1,7,CKPUL8
JBS MASKWD,5,CKPUL8
LDB FAULT,#9
E09: Pulse of No 2. bridge is lossing
CALL F_DPL3
JBS FLAG8,1,CKPUL7
ANDB PORT2,#B
ORB FLAG8,#B
ANDB FLAG8,#B
ORB PORT2,#B
CKPUL6: JBC FLAG8,7,CKPUL8
JBS FLAG1,7,CKPUL8
JBS MASKWD,5,CKPUL8
LDB FAULT,#10
E10: Pulse of all bridges is lossing
CALL F_DPL3
CKPUL7: ANDB PORT2,#B
ANDB FLAG8,#B
ORB FLAG8,#B
CKPUL8: RET
CKIZER: CMP FFCM,#25
;I=0 detection ,5% rated current value,
JH CKIZER1
; equal 512*5%=25
CLR STOPCNT
ANDB FLAG4,#B
ANDB FLAG3,#B
CALL F_PRCS1
CKIZER1: RET
CHECK: CMP FFCM,P33V[0]励磁过流动作值
检查标准位
转故障处理子程序
JNH CKOVERC1
ORB FLAG7,#B
JBC LS373C1V,4,CKOVERC1 过励故障?
ANDB LS373C1V,#B清过励故障
STB LS373C1V,LS373C1[0]
ORB PORT2,#B
JBS FLAG1,7,CKOVERC1故障标志
LDB FAULT,#08
F08: Overcurrent limited过电流
CALL F_PRCS2
出错处理.........过流故障.................
CKOVERC1: JBS STOPCNT1,7,CKIZER
JBS FLAG4,3,CKIZER1手动方式
CALL CKPUL
;Check loss of pulses检查丢失脉冲
JBS PORT1V,4,CHECK3油断路器
CMP STR_VM,P41V[0]定子电压与空载过压报警值比较
JNH CHECK1
JBC LS373C3V,0,CHECK1;判断有无空载过压标志
ANDB LS373C3V,#B ;有.,,就清标志
STB LS373C3V,LS373C3[0]
JBS FLAG1,7,CHECK1 故障标志
JBS MASKWD,7,CHECK1
LDB FAULT,#6
F06:Overvoltage at empty load空载过电压
LDB FLTBCK,#1
CALL F_PRCS2
CHECK1: NOP
;JBC FLAG6,1,CHECK9
JBC FLAG2,1,CHECK2
CMP FFCM,LOWCUR1[0]
JH CKLOWI2
JBS FLAG7,1,CHECK2
ORB FLAG7,#B
JBS FLAG1,7,CHECK2
JBS MASKWD,4,CHECK2
LDB FAULT,#06
E06: Excited current is near zero
CALL F_DPL3
CHECK2: JBC PORT1V,1,CHECK8建压信号
--------P1.6判断///////////////////////
CMP STR_VM,#819*40/100定子电压
JNH CHECK9
ANDB LS373C1V,#B起励切除(重故障)标志
STB LS373C1V,LS373C1[0]
CHECK8: JBC FLAG6,1,CHECK9已建压
JBS LS373C1V,7,CHECK9起励切除标志
INCB TIMECNT3
CMPB TIMECNT3,#250
JNH CHECK9
CLRB TIMECNT3
ORB LS373C1V,#B起励切除标志(重故障)
STB LS373C1V,LS373C1[0]
CHECK9: RET
CKLOWI2: JBC FLAG7,1,CHECK2欠励但未失励标志
ANDB FLAG7,#B清标志
JBC FLAG1,7,CHECK2无故障标志
CALL F_DPL8故障处理
CHECK3: JBC FLAG6,1,CHECK9
;没有 建压
CMP STR_VM,LOSSVTG[0]
;定子电压与**比较
JH CHECK4大
JBS MASKWD,2,CHECK6
JBC LS373C3V,0,CHECK6空载过压
ANDB LS373C3V,#B清
高压断线标志位
STB LS373C3V,LS373C3[0]
JBS FLAG1,7,CHECK6
LDB FAULT,#3
E03:Highvoltage line broked高压断线
CALL F_ERR
LJMP CHECK6
CHECK4: JBS LS373C3V,1,CHECK6高压断线
ORB LS373C3V,#B置高压断线标志
STB LS373C3V,LS373C3[0]
JBC FLAG1,7,CHECK6
CALL F_ERR8故障处理
CHECK6: JBC FLAG2,1,CHECK7已检查电流反馈.电压反馈通道
CMP FFCM,LOWCUR1[0]反馈电流与**比较
JH CHECK10高
JBC LS373C1V,6,CHECK7有无失励故障
ANDB LS373C1V,#B请标志
STB LS373C1V,LS373C1[0]
JBS FLAG1,7,CHECK7出错标志
LDB FAULT,#7
F07:Excited current is near zero
LDB FLTBCK,#1
CALL F_PRCS2
LJMP CHECK7
CHECK10: JBS LS373C1V,6,CHECK7有失励故障标志
ORB LS373C1V,#B
STB LS373C1V,LS373C1[0]
CHECK7: JBC FLAG6,7,LMTCMP3 功率因素角值已算得
LD BX,COSFAIF
DIVU BX,#1000
ADD BX,P32V[0]并网后励磁欠流反时限曲线选择(固定曲线1~3)
LDB BX,[BX]
MULU BX,RATEDBITS ;比例系数
DIVU BX,#100
JBC FLAG5,5,LMTCMP1有装置和电机励磁电流值时为1
MULU BX,P48V[0]同步发电机额定励磁电流值
DIVU BX,P49V[0]励磁装置额定历次电流值
LMTCMP1: ST BX,LOWCUR
JBC FLAG2,1,LMTCMP2加斜坡函数标志
CMP FFCM,LOWCUR反馈电流与**比较
JH LMTCMP2高
JBS FLAG7,1,LMTCMP4有欠流但未失励标志
ORB FLAG7,#B置标志
JBS FLAG1,7,LMTCMP4
JBS MASKWD,4,LMTCMP4
LDB FAULT,#06 E06: Low current limited
CALL F_DPL3
LJMP LMTCMP4
LMTCMP3: LD BX,P32V[0]并网后励磁欠流反时限曲线选择(固定曲线1~3)/没有算功率因角标志
LDB BX,0CH[BX]
MULU BX,RATEDBITS ;比例系数
DIVU BX,#100
JBC FLAG5,5,LMTCMP1有装置和电机励磁电流值时为1
MULU BX,P48V[0]同步发电机额定励磁电流值
DIVU BX,P49V[0]励磁装置额定历次电流值
LJMP LMTCMP1
LMTCMP2: JBC FLAG7,1,LMTCMP4有欠流但未失励标志
ANDB FLAG7,#B清标志
JBC FLAG1,7,LMTCMP4
CALL F_DPL8
LMTCMP4: NOP
;JBC FLAG4,0,LMTCMP6
CMP STR_VM,TH_STRV Compare stator voltage
JH LMTCMP8
JBC FLAG1,4,LMTCMP6引许强励标志
JBS FLAG1,3,LMTCMP6有强励标志
ANDB LS373C1V,#B清强励指令 ( 有引许但无标志)
STB LS373C1V,LS373C1[0]
JBS FLAG1,7,LMTCMP7
LDB FAULT,#07
E07: Enhancant excitation
CALL F_ERR
LMTCMP7: LD ENHANCNT,#8000H
LD AX,#(P_RAM+14*2) ;P14强励倍数
LD BX,[AX]
MULU BX,#512
;99,7,4,SICHUAN
DIVU BX,#100
ST BX,ENHANCE
ORB FLAG1,#B;置强励标志
LJMP LMTCMP6
LMTCMP8: JBC FLAG1,3,LMTCMP6强励标志
CLR ENHANCNT
;Clear enhancant excitation
CLR ENHANCE
ORB LS373C1V,#B强励指令
STB LS373C1V,LS373C1[0]
CALL F_ERR8
LD END_E_CNT,#8000H
ANDB FLAG1,#B
LMTCMP6: CMP FFCM,THLD11[0]反馈电流与1.1倍的电流比较
JNH CKOVC2
ORB FLAG9,#B置1.在过流1.1倍时
ST ALFA,LMTOVCUR11[0]
INCB TIMECNT1
CMPB TIMECNT1,#10
JNE CKOVC1
CLRB TIMECNT1
INC TIMECNT2
SUB BX,FFCM,RATEDBITS
DIVU BX,THLD01[0]
ADD BX,P34V[0];并网后励磁欠流反时限曲线选择(固定曲线1~3)
LD BX,[BX]
CMP TIMECNT2,BX
JNH CKOVC1
JBS FLAG7,3,CKOVC1过流标志
ORB FLAG7,#B
JBS FLAG1,7,CKOVC1
LDB FAULT,#05
E05: Overcurrent limited
CALL F_DPL3
CKOVC1: RET
CKOVC2: CLRB TIMECNT1
CLR TIMECNT2
ANDB FLAG9,#B
JBC FLAG7,3,CKOVC3
ANDB FLAG7,#B
JBC FLAG1,7,CKOVC3
CALL F_DPL8
CKOVC3: RET
LOWCURLT1:DCB 30,43,53,64,72,80,87,92,95,98,100,20,30
LOWCURLT2:DCB 50,60,68,75,82,87,92,95,98,99,100,20,30
LOWCURLT3:DCB 70,77,83,87,91,94,96,97,98,99,100,20,30
OVERCURT1:DCW ,600,500,400,100,60,50,40,30,20,10,5,1
OVERCURT2:DCW ,0,500,400,100,60,50,40,30,20,10
OVERCURT3:DCW ,00,,400,100,50,30,20,10
PO_ALTER: CMPB KEY,#5
CMPB KEY,#6
JBS KEY,0,POINC
JBS KEY,2,PVDPL
JBS KEY,1,PODEC
PO_ALT1: RET
POINC: CLRB KEY
CMPB P_ORDER,#59 ;End to be reached
JE PO_ALTER
INCB P_ORDER
;Increase 1
CALL PODPL
BR PO_ALT1
PODEC: CLRB KEY
CMPB P_ORDER,0
;Home to be reached
JE PO_ALT1
DECB P_ORDER
;Decrease 1
CALL PODPL
BR PO_ALT1
POINCQ: CLRB KEY
CMPB P_ORDER,#59
;End to be reached
JE PO_ALT1
ADDB P_ORDER,#10
;Increase 10
CMPB P_ORDER,#59
JNH POINCQ1
LDB P_ORDER,#59
POINCQ1: CALL PODPL
BR PO_ALT1
PODECQ: CLRB KEY
CMPB P_ORDER,0
;End to be reached
JE PO_ALT1
CMPB P_ORDER,#9
JH PODECQ1
CLRB P_ORDER
BR PODECQ2
PODECQ1: SUB P_ORDER,#10
;Decrease 10
PODECQ2: CALL PODPL
BR PO_ALT1
PVDPL7: JBS KEY,0,PVSET1
JBS KEY,1,PVSET1
JBS KEY,2,PODPL1
CMP BLKCNT1,#(500+32768);=5 seconds ? No key pressed
CLR BLKCNT1
JBS FLAG3,3,WW1
CLRB BLINKCNT
ORB FLAG3,#B
LDB DPTIME,#200
;Display parameter order for 2 seconds
LDB BLKTIME,#50
;Blanking for 1 second
PVSET1: LD BLKCNT1,#8000H
;Blinking counter
ANDB FLAG3,#B
ORB FLAG3,#B
CALL PVALT
PODPL1: CLRB KEY
CLRB P0_9CNT
CLR BLKCNT1
CLRB BLINKCNT
ANDB FLAG3,#B
CALL PODPL
BR PO_ALT1
PVALT: LD BX,#(P_RAM+102) ;P51=20 ?
LD AX,[BX]
LDB CL,P_ORDER
MULUB BX,CL,#8
ADD BX,#(P_EPRM-80)
CMPB P_ORDER,#51
XORB AL,7[BX]
;No,Return!
PVALT1: SHLB CL,#1
ADD CX,#P_RAM
LD AX,[CX]
CMPB KEY,#5
CMPB KEY,#6
JBS KEY,0,PVINC1
JBS KEY,1,PVDEC1C
PVALT2: RET
PVDEC1C: BR PVDEC1
PVINCQ: CLRB KEY
;Parameter value increases quickly
CMP AX,2[BX]
PVINCQ3: ADD AX,#10
PVINCQ4: CMP AX,2[BX]
JNH PVINCQ5
LD AX,2[BX]
PVINCQ5: BR PVALT3
PVDECQ: CLRB KEY
;Parameter value decreases quickly
CMP AX,[BX]
CMP AX,#9999
JNH PVDECQ2
SUB AX,#1000
BR PVDECQ5
PVDECQ2: CMP AX,#999
JNH PVDECQ3
SUB AX,#100
BR PVDECQ5
PVDECQ3: CMP AX,#9
JH PVDECQ4
LD AX,[BX]
BR PVDECQ5
PVDECQ4: SUB AX,#10
PVINC2: CMP AX,#999
JNH PVINC3
ADD AX,#10
PVINC3: INC AX
PVINC4: CMP AX,2[BX]
JNH PVALT3
LD AX,2[BX]
PVDEC1: CLRB KEY
CMP AX,[BX]
CMP AX,#999
PVDEC2: SUB AX,#10
PVDEC5: CMP AX,[BX]
LD AX,[BX]
PVALT3: LDBZE CX,P_ORDER
ADD BX,CX,#P_RAM
ST AX,[BX]
PVALT4: PUSH AX
CALL PV_SET
CALL PV_CAL
PODPL: LDB LCD1,#73H Parameter order display: 命令参数显示 P
LDBZE AX,P_ORDER字节装入字
DIVUB AX,#10
LDBZE BX,AHR
;低位是商.高位是余数
LDB LCD2,DPCODE[AX]
LDB LCD3,DPCODE[BX]
CPVS6: INCB AL
ADD DX,#DPCODE
LDB AHR,[DX]
LDB DL,6[BX]
ANDB DL,#0FH
CMPB DL,#2
LDB AHR,#0C0H
CPVS8: STB AHR,[CX]+
CPVS10: LD DX,EX ;Third number
DIVU DX,#10
JNE CPVS11
CPVS11: INCB AL
ADD DX,#DPCODE
LDB AHR,[DX]
LDB DL,6[BX]
ANDB DL,#0FH
CMPB DL,#1
JNE CPVS13
CMPB AL,#3 ;If (AL)=3, not display point
ORB AHR,#80H
CPVS13: STB AHR,[CX]+
CMPB AL,#3
JNE CPVS14
CPVS14: ADD EX,#DPCODE ;Forth numer
LDB AHR,[EX]
STB AHR,[CX]
CPVS1: LD EX,#200 ;DIVU DX,#1000
SUB DX,EX,DX
LD CX,#LCD1
;CPVS3: CMPB DL,0
;First number
ADD DX,#DPCODE
LDB AHR,[DX]
STB AHR,[CX]+
;CPVS5: LD DX,EX ;Second number
LJMP CPVS8
PV_SET: LD DX,AX ;Display on LCD
LDB BL,P_ORDER
MULUB BX,BL,#8
ADD BX,#(P_EPRM-80)
CMPB P_ORDER,#42
CMP DX,#100
PVS1: DIVU DX,#1000
LD CX,#LCD1
PVS3: CMPB DL,0
;First number
ADD DX,#DPCODE
LDB AHR,[DX]
STB AHR,[CX]+
PVS5: LD DX,EX ;Second number
DIVU DX,#100
PVS6: INCB AL
ADD DX,#DPCODE
LDB AHR,[DX]
LDB DL,6[BX]
ANDB DL,#0FH
CMPB DL,#2
ORB AHR,#80H
PVS8: STB AHR,[CX]+
PVS10: LD DX,EX ;Third number
DIVU DX,#10
LDB AHR,6[BX]
ANDB AHR,#0FH
CMPB AHR,#1
PVS11: INCB AL
ADD DX,#DPCODE
LDB AHR,[DX]
LDB DL,6[BX]
ANDB DL,#0FH
CMPB DL,#1
CMPB AL,#3 ;If (AL)=3, not display point
ORB AHR,#80H
PVS13: STB AHR,[CX]+
CMPB AL,#3
PVS14: ADD EX,#DPCODE ;Forth numer
LDB AHR,[EX]
STB AHR,[CX]
DPCODE: DCB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH ;0---9
PV_CAL: MULUB AX,P_ORDER,#2
ADD AX,#(TABLE3-20)
LD AX,[AX]
DCW P10PGM,P11PGM,P12PGM,P13PGM,P14PGM
DCW P15PGM,P16PGM,P17PGM,P18PGM,P19PGM
DCW P20PGM,P21PGM,P22PGM,P23PGM,P24PGM
DCW P25PGM,P26PGM,P27PGM,P28PGM,P29PGM
DCW P30PGM,P31PGM,P32PGM,P33PGM,P34PGM
DCW P35PGM,P36PGM,P37PGM,P38PGM,P39PGM
DCW P40PGM,P41PGM,P42PGM,P43PGM,P44PGM
DCW P45PGM,P46PGM,P47PGM,P48PGM,P49PGM
DCW P50PGM,P51PGM,P52PGM,P53PGM,P54PGM
DCW P55PGM,P56PGM,P57PGM,P58PGM,P59PGM
P10PGM: ANDB FLAG4,#B
JBS FLAG4,7,P10PGM1
JNE P10PGM1
ORB FLAG4,#B
P10PGM1: RET
P11PGM: ANDB FLAG8,#B
JE P11PGM1
JE P11PGM2
JNE P11PGM1
ORB FLAG8,#B
LJMP P11PGM3
P11PGM1: ORB FLAG8,#B
LJMP P11PGM3
P11PGM2: ORB FLAG8,#B
P11PGM3: JBS FLAG1,2,P11PGM4
P11PGM4: ORB PORT2,#B
JBS FLAG4,3,P11PGM7
JBC FLAG8,5,P11PGM5
ANDB PORT2,#B
P11PGM5: JBC FLAG8,6,P11PGM6
ANDB PORT2,#B
P11PGM6: JBC FLAG8,7,P11PGM7
ANDB PORT2,#B
P11PGM7: RET
P12PGM: ST BX,P12V[0]
ORB FLAG6,#B
P13PGM: MULU BX,#819
When stator voltage = rated value,CH7=4V,(819)
DIVU BX,#100
JBC FLAG5,6,P13PGM1
LD AX,P47V[0] TH_STRV=P13*(P47V/P46V)
MULU BX,AX
LD AX,P46V[0]
DIVU BX,AX
P13PGM1: ST BX,TH_STRV
P14PGM: RET
P15PGM: MULU BX,#100
Unit: (10ms)
ST BX,P15V[0]
P16PGM: MULU BX,#60
Unit: S(Second)
ST BX,P16V[0]
P17PGM: CMP BX,0
JE P17PGM1
ORB FLAG1,#B
P17PGM1: ANDB FLAG1,#B
P17PGM2: RET
P18PGM: ANDB FLAG4,#B
JNE P18PGM1
ORB FLAG4,#B ;SET Bit1=1
P18PGM1: CMP BX,#3
JNE P18PGM2
ORB FLAG4,#B ;SET Bit2=1
P18PGM2: CMP BX,#0
JNE P18PGM3
ORB FLAG4,#B
CALL P10PGM
P18PGM3: ORB FLAG4,#B ;SET Bit0=1
P19PGM: CMP BX,#1
JNE P19PGM1
ORB FLAG4,#B ;SET Bit6=1
P19PGM1: ANDB FLAG4,#B
P20PGM: MULU BX,RATEDBITS
;When I=Ie,CH1=5V (1023)
DIVU BX,#500
;P20V=P20% * *RATEDBITS/500
JBC FLAG5,5,P20PGM1
LD AX,P48V[0]
MULU BX,AX
LD AX,P49V[0]
DIVU BX,AX
P20PGM1: ST BX,P20V[0]
P21PGM: ST BX,P21V[0]
ORB FLAG6,#B
P22PGM: ST BX,P22V[0]
ORB FLAG6,#B
P23PGM: CMP BX,0
JE P23PGM1
ORB FLAG6,#B
ST YK_1,YK_2
ST YK_12,YK_22
P23PGM1: ANDB FLAG6,#B
P24PGM: ST BX,P24V[0]
ORB FLAG6,#B
P25PGM: RET
P26PGM: MULU BX,#1000
;Slope function climbing time
DIVU BX,#33
ST BX,P26V[0]
P27PGM: MULU BX,#20
ST BX,P27V[0]
P28PGM: MULU BX,#20
ST BX,P28V[0]
P29PGM: CMP BX,#1
JNE P29PGM1
ORB FLAG5,#B
P29PGM1: ANDB FLAG5,#B
P30PGM: CMP BX,#80
;Limit ALFA between 80 and 100 degree.
JH P30PGM1
P30PGM1: CMP BX,#100
JNH P30PGM2
LD BX,#100
P30PGM2: MULU BX,#20
ST BX,P30V[0]
P31PGM: CMP BX,#20
JGE P31PGM2
P31PGM2: MULU BX,RATEDBITS
;When I=Ie,CH1=5V (1023)
DIVU BX,#50
;P31V=P31% * % *RATEDBITS/50
JBC FLAG5,5,P31PGM1
LD AX,P48V[0]
MULU BX,AX
LD AX,P49V[0]
DIVU BX,AX
P31PGM1: ST BX,P31V[0]
ORB FLAG6,#B
P32PGM: CMP BX,#1
JNE P32PGM1
LD BX,#LOWCURLT1
ST BX,P32V[0]
LJMP P32PGM3
P32PGM1: CMP BX,#3
JNE P32PGM2
LD BX,#LOWCURLT3
ST BX,P32V[0]
LJMP P32PGM3
P32PGM2: LD BX,#LOWCURLT2
ST BX,P32V[0]
P32PGM3: LDB BL,0BH[BX]
MULU BX,RATEDBITS
DIVU BX,#100
JBC FLAG5,5,P32PGM4
MULU BX,P48V[0]
DIVU BX,P49V[0]
P32PGM4: ST BX,LOWCUR1[0]
P33PGM: MULU BX,RATEDBITS
;The same as above
DIVU BX,#100
JBC FLAG5,5,P33PGM1
LD AX,P48V[0]
MULU BX,AX
LD AX,P49V[0]
DIVU BX,AX
P33PGM1: ST BX,P33V[0]
P34PGM: CMP BX,#1
JNE P34PGM1
LD BX,#OVERCURT1
ST BX,P34V[0]
P34PGM1: CMP BX,#3
JNE P34PGM2
LD BX,#OVERCURT3
ST BX,P34V[0]
P34PGM2: LD BX,#OVERCURT2
ST BX,P34V[0]
P35PGM: CMP BX,#1
JNE P35PGM1
ANDB FLAG2,#B
P35PGM1: ORB FLAG2,#B
P35PGM2: RET
P36PGM: ST BX,P36V[0]
P37PGM: ST BX,P37V[0]
P38PGM: ST BX,P38V[0]
P39PGM: ST BX,P39V[0]
P40PGM: CLR CX
DIVU BX,#10
ST BX,P40V[0]
P41PGM: MULU BX,#819
DIVU BX,#100
JBC FLAG5,6,P41PGM1
MULU BX,P47V[0]
DIVU BX,P46V[0]
P41PGM1: ST BX,P41V[0]
P42PGM: CMP BX,#49
JNH P42PGM1
CMP BX,#150
JNH P42PGM2
P42PGM1: LD BX,#110
P42PGM2: ST BX,AX
SUB BX,#50
ADD BX,#ARCCOSTAB
LD BX,[BX]
MULU BX,#512
DIVU BX,#90
LD BX,#512
CMP AX,#100
JNH P42PGM3
ST BX,P42V[0]
P42PGM3: SUB BX,CX
ST BX,P42V[0]
P43PGM: ST BX,P43V[0]
P44PGM: MULU BX,RATEDBITS
;When If=Ie,CH1=2.5V (512)
DIVU BX,#100
;P44V=P44% * 512=P44*RATEDBITS/100
JBC FLAG5,5,P44PGM1
LD AX,P48V[0]
MULU BX,AX
LD AX,P49V[0]
DIVU BX,AX
P44PGM1: ST BX,P44V[0]
P45PGM: MULU BX,RATEDBITS
;When If=Ie,CH1=2.5V (512)
DIVU BX,#100
;P45V=P45% * 512=P45*RATEDBITS/100
JBC FLAG5,5,P45PGM1
LD AX,P48V[0]
MULU BX,AX
LD AX,P49V[0]
DIVU BX,AX
P45PGM1: ST BX,P45V[0]
P46PGM: ST BX,P46V[0]
JE P46PGM1
LD AX,P47V[0]
JE P46PGM1
ORB FLAG5,#B ;When P46 & P47\=0,set FLAG5.6=1
LD AX,#(P_RAM+13*2) ;P13
LD BX,[AX]
CALL P13PGM
LD AX,#(P_RAM+41*2) ;P41
LD BX,[AX]
CALL P41PGM
LD BX,P47V[0]
LD AX,P46V[0]
MULU BX,#320
;0.5*819=409 99,7,6
DIVU BX,AX
ST BX,LOSSVTG[0]
P46PGM1: ANDB FLAG5,#B ;or clear FLAG5.6=0
P47PGM: ST BX,P47V[0]
JE P47PGM1
LD AX,P46V[0]
JE P47PGM1
ORB FLAG5,#B ;When P46 & P47\=0,set FLAG5.6=1
LD AX,#(P_RAM+13*2) ;P13
LD BX,[AX]
CALL P13PGM
LD AX,#(P_RAM+41*2) ;P41
LD BX,[AX]
CALL P41PGM
LD BX,P47V[0]
LD AX,P46V[0]
MULU BX,#320
;0.5*819=409 99,7,6
DIVU BX,AX
ST BX,LOSSVTG[0]
P47PGM1: ANDB FLAG5,#B ;or clear FLAG5.6=0
P48PGM: ST BX,P48V[0]
JE P48PGM1
LD AX,P49V[0]
JE P48PGM1
ORB FLAG5,#B ;When P48 & P49\=0,set FLAG5.5=1
LD AX,#(P_RAM+20*2) ;P20
LD BX,[AX]
CALL P20PGM
LD AX,#(P_RAM+31*2) ;P31
LD BX,[AX]
CALL P31PGM
LD AX,#(P_RAM+32*2) ;P32
LD BX,[AX]
CALL P32PGM
LD AX,#(P_RAM+33*2) ;P33
LD BX,[AX]
CALL P33PGM
LD AX,#(P_RAM+44*2) ;P44
LD BX,[AX]
CALL P44PGM
LD AX,#(P_RAM+45*2) ;P45
LD BX,[AX]
CALL P45PGM
P48PGM1: ANDB FLAG5,#B ;or clear FLAG5.5=0
P49PGM: ST BX,P49V[0]
JE P49PGM1
LD AX,P48V[0]
JE P49PGM1
ORB FLAG5,#B ;When P48 & P49\=0,set FLAG5.5=1
LD AX,#(P_RAM+20*2) ;P20
LD BX,[AX]
CALL P20PGM
LD AX,#(P_RAM+31*2) ;P31
LD BX,[AX]
CALL P31PGM
LD AX,#(P_RAM+32*2) ;P32
LD BX,[AX]
CALL P32PGM
LD AX,#(P_RAM+33*2) ;P33
LD BX,[AX]
CALL P33PGM
LD AX,#(P_RAM+44*2) ;P44
LD BX,[AX]
CALL P44PGM
LD AX,#(P_RAM+45*2) ;P45
LD BX,[AX]
CALL P45PGM
P49PGM1: ANDB FLAG5,#B ;or clear FLAG5.5=0
P50PGM: RET
P51PGM: RET
P52PGM: CMP BX,#1
JNE P52PGM5
ORB LS373C1V,#B
STB LS373C1V,LS373C1[0]
LD AX,#P_EEPRM
LD BX,#(P_RAM+20)
LDB DL,#48
P52PGM1: LD CX,[BX]
CMPB CL,[AX]
JNE P52PGM2
CMPB CHR,2[AX]
JE P52PGM3
P52PGM2: STB CL,[AX]
STB CHR,2[AX]
P52PGM3: ADD AX,#4
CMP BX,#(P_RAM+102) ;98,12
JNE P52PGM4
ADD AX,#12
LD BX,#0EEEH
LDB CL,[BX]
LDB CHR,2[BX]
ANDB FLAG8,#0FEH
CMP CX,P54V[0]
JNE P52PGM4
ORB FLAG8,#1
LD CX,#(P_RAM+108)
ST R0,[CX]
P52PGM4: DJNZ DL,P52PGM1
ANDB LS373C1V,#B
STB LS373C1V,LS373C1[0]
LD BX,#(P_RAM+52*2) ;Clear P52=2 after finished writting
ST AX,[BX]
P52PGM5: RET
P53PGM: CLR CX
DIVU BX,#10
LDB MASKWD,CL
ANDB MASKWD,#7
DIVUB BX,#10
AND BX,#707H
SHLB BHR,#3
SHLB BL,#6
ORB MASKWD,BHR
ORB MASKWD,BL
P54PGM: ST BX,P54V[0]
P55PGM: CMP BX,#0
JNE P55PGM1
ORB LS373C1V,#B
STB LS373C1V,LS373C1[0]
ORB LS373C3V,#B
STB LS373C3V,LS373C3[0]
P55PGM1: CMP BX,#1
JNE P55PGM2
ORB LS373C1V,#B
ANDB LS373C1V,#B
STB LS373C1V,LS373C1[0]
P55PGM2: CMP BX,#2
JNE P55PGM3
ORB LS373C1V,#B
STB LS373C1V,LS373C1[0]
P55PGM3: CMP BX,#3
JNE P55PGM4
ORB LS373C1V,#B
ANDB LS373C1V,#B
STB LS373C1V,LS373C1[0]
P55PGM4: CMP BX,#4
JNE P55PGM5
ORB LS373C1V,#B
STB LS373C1V,LS373C1[0]
P55PGM5: CMP BX,#5
JNE P55PGM6
ORB LS373C1V,#B
ANDB LS373C1V,#B
STB LS373C1V,LS373C1[0]
P55PGM6: CMP BX,#6
JNE P55PGM7
ORB LS373C1V,#B
STB LS373C1V,LS373C1[0]
P55PGM7: CMP BX,#7
JNE P55PGM8
ORB LS373C1V,#B
ANDB LS373C1V,#B
STB LS373C1V,LS373C1[0]
P55PGM8: CMP BX,#8
JNE P55PGM9
ORB LS373C1V,#B
STB LS373C1V,LS373C1[0]
ORB LS373C3V,#B
STB LS373C3V,LS373C3[0]
P55PGM9: CMP BX,#9
JNE P55PGM10
ORB LS373C3V,#B
ANDB LS373C3V,#B
STB LS373C3V,LS373C3[0]
P55PGM10: CMP BX,#10
JNE P55PGM11
ORB LS373C3V,#B
STB LS373C3V,LS373C3[0]
P55PGM11: CMP BX,#11
JNE P55PGM12
ORB LS373C3V,#B
ANDB LS373C3V,#B
STB LS373C3V,LS373C3[0]
P55PGM12: CMP BX,#12
JNE P55PGM13
ORB LS373C3V,#B
STB LS373C3V,LS373C3[0]
P55PGM13: CMP BX,#13
JNE P55PGM14
ORB LS373C3V,#B
ANDB LS373C3V,#B
STB LS373C3V,LS373C3[0]
P55PGM14: CMP BX,#14
JNE P55PGM15
ORB LS373C3V,#B
STB LS373C3V,LS373C3[0]
P55PGM15: RET
P56PGM: ST BX,P56V[0]
P57PGM: ST BX,P57V[0]
P58PGM: ST BX,P58V[0]
P59PGM: RET
DPP0_P9: LDBZE BX,P_ORDER
ADD BX,#TABLE4
LD BX,[BX]
TABLE4: DCW P00PGM,P01PGM,P02PGM,P03PGM,P04PGM
DCW P05PGM,P06PGM,P07PGM,P08PGM,P09PGM
LD BX,#P_RAM
LD BX,[BX]
LD LCD1,#5C00H ;0A3FFH
ADD BX,#DPCODE
LDB LCD3,[BX]
P01PGM: LD BX,P01V[0]
MULU BX,#500
DIVU BX,RATEDBITS ;When Ig=Ie,CH1=5V (1023)
JBC FLAG5,5,P01PGM1
LD AX,P49V[0]
MULU BX,AX
LD AX,P48V[0]
DIVU BX,AX
P01PGM1: CMP BX,#999
JH P01PGM2
CALL CONVT
P01PGM2: CLR CX
DIVU BX,#10
CALL CONVERT
P02PGM: LD BX,FFCM
LD CX,P57V[0]
JE P02PGM3
MULU BX,#1000
DIVU BX,RATEDBITS ;When Ig=Ie,CH5=2.78V (568)
JBC FLAG5,5,P02PGM1
LD AX,P49V[0]
MULU BX,AX
LD AX,P48V[0]
DIVU BX,AX
P02PGM1: CMP BX,#999
JH P02PGM2
CALL CONVT
P02PGM2: CLR CX
DIVU BX,#10
CALL CONVERT
P02PGM3: CALL CONVERT
P03PGM: LD BX,ALFA
CMP BX,#999
JH P03PGM1
CALL CONVT
P03PGM1: CLR CX
DIVU BX,#10
CALL CONVERT
P04PGM: LD BX,FAI
CMP BX,#512
JLT P04PGM1
ORB FLAG5,#B
MULU BX,#450
DIVU BX,#256
LD CX,#1800
SUB BX,CX,BX
LJMP P04PGM2
P04PGM1: MULU BX,#450
DIVU BX,#256
ANDB FLAG5,#B
P04PGM2: SHL BX,#1
ADD BX,#SINTAB
LD BX,[BX]
DIVUB BX,#100
CMPB BHR,#50
JLT P04PGM3
P04PGM3: CLRB BHR
CMP BX,#100
JNE P04PGM3A
ANDB FLAG5,#B
P04PGM3A: CALL CONVERT
ANDB LCD2,#7FH
CMPB LCD2,0
JNE P04PGM4
LDB LCD2,#3FH
P04PGM4: CMPB LCD1,0
JNE P04PGM6
JBS FLAG5,7,P04PGM5
LDB LCD1,#0BFH
P04PGM5: LDB LCD1,#0C0H
P04PGM6: JBS FLAG5,7,P04PGM7
ORB LCD1,#80H
P04PGM7: ORB LCD1,#0C0H
P05PGM: LDB LCD1,#71H
;Fault Display
JBC FLAG1,1,P05PGM1
LDB LCD1,#79H
P05PGM1: LDBZE BX,FAULT
DIVUB BX,#10
LDBZE CX,BHR
LDB LCD2,DPCODE[BX]
LDB LCD3,DPCODE[CX]
P06PGM: LD BX,#4B40H ;4C4B40H=5000000 Decimal
LD CX,#4CH
DIVU BX,INTELVAL
CMP CX,INTELVAL
JLT P06PGM1
P06PGM1: CALL CONVT
LD BX,STR_CMWhen Imotor=rated current value,CH6=2.5
MULU BX,#1000当发电机=额定电流
DIVU BX,RATEDBITS ;RATEDBITS=512
JBC FLAG5,6,P07PGM1 ;有装置和电机定子额定电压时为1
LD AX,P47V[0] ;励磁装置额定电压值
MULU BX,AX
LD AX,P46V[0]同步发电机定子额定电压:以PT付边电压表示
DIVU BX,AX
P07PGM1: CMP BX,#999
JH P07PGM2
CALL CONVT
P07PGM2: CLR CX
DIVU BX,#10
CALL CONVERT
P08PGM: LD BX,STR_VM
MULU BX,#1000
DIVU BX,#819 ;When Vmoter=Ve,CH2=4V (819)
JBC FLAG5,6,P08PGM1
LD AX,P47V[0]
MULU BX,AX
LD AX,P46V[0]
DIVU BX,AX
P08PGM1: CMP BX,#999
JH P08PGM2
CALL CONVT
P08PGM2: CLR CX
DIVU BX,#10
CALL CONVERT
P09PGM: LD CX,P56V[0]
JNE P09PGM3
LD BX,GFCMCOV
MULU BX,#1000
DIVU BX,#512 ;RATEDBITS ;When Ig=Ie,CH5=2.5V (512)
JBC FLAG5,5,P09PGM1
LD AX,P49V[0]
MULU BX,AX
LD AX,P48V[0]
DIVU BX,AX
P09PGM1: CMP BX,#999
JH P09PGM2
CALL CONVT
P09PGM2: CALL CONVERT
P09PGM3: CMP CX,#2
JE P09PGM4
JE P09PGM5
LD BX,GDADD
CALL CVERT
P09PGM4: LD BX,GFCMTV[0]
CALL CONVERT
P09PGM5: LD BX,LOWCUR1[0]
CALL CONVERT
CONVERT: CLR CX
DIVU BX,#100
JNE CONVERT1
LDB LCD1,0
BR CONVERT2
CONVERT1: ADD BX,#DPCODE
LDB LCD1,[BX]
CONVERT2: LD BX,CX
DIVU BX,#10
CMPB LCD1,0
JNE CONVERT3
JNE CONVERT3
LDB LCD2,0
BR CONVERT4
CONVERT3: ADD BX,#DPCODE
LDB LCD2,[BX]
CONVERT4: ADD CX,#DPCODE
LDB LCD3,[CX]
CONVT: CLR CX
DIVU BX,#100
JNE CONVT1
LDB LCD1,0
CONVT1: ADD BX,#DPCODE
LDB LCD1,[BX]
CONVT2: LD BX,CX
DIVU BX,#10
ADD BX,#DPCODE
LDB BL,[BX]
ORB BL,#80H
LDB LCD2,BL
CONVT4: ADD CX,#DPCODE
LDB LCD3,[CX]
CVERT11: LDB LCD1,#1
LDB LCD2,#1
LDB LCD3,#1
CVERT: CMP BX,#8000H
JNH CVERT6
CMP BX,#199
JH CVERT11
DIVU BX,#100
JNE CVERT1
LDB LCD1,#40H
CVERT1: ADD BX,#DPCODE
LDB LCD1,[BX]
ORB LCD1,#40H
CVERT2: LD BX,CX
DIVU BX,#10
CMPB LCD1,#40H
JNE CVERT3
JNE CVERT3
LDB LCD1,0
LDB LCD2,#40H
CVERT3: ADD BX,#DPCODE
LDB LCD2,[BX]
CVERT4: ADD CX,#DPCODE
LDB LCD3,[CX]
CVERT6: CLR CX
DIVU BX,#100
JNE CVERT7
LDB LCD1,0
CVERT7: ADD BX,#DPCODE
LDB LCD1,[BX]
CVERT8: LD BX,CX
DIVU BX,#10
CMPB LCD1,0
JNE CVERT9
JNE CVERT9
LDB LCD2,0
BR CVERT10
CVERT9: ADD BX,#DPCODE
LDB LCD2,[BX]
CVERT10: ADD CX,#DPCODE
LDB LCD3,[CX]
RET/////////////////////////////////////////////////////////////////////////////////////
FMUL4: LD 0D0H,0C8H
LD 0D2H,0CAH
LD 0D4H,0CCH
LD 0D6H,0CEH
CMP 0D0H,0
ORB 0D3H,#80H
FML43: CMP 0D4H,0
ORB 0D7H,#80H
FML44: CLRB 0D0H
MULU 0DCH,0D2H,0D4H
MULU 0D8H,0D0H,0D6H
MULU 0D0H,0D2H,0D6H
ADD 0D8H,0DCH
ADDC 0DAH,0DEH
ADDC 0D2H,0
ADD 0D0H,0DAH
ADDC 0D2H,0
LDB 0DDH,0CBH
XORB 0DDH,0CFH
ANDB 0DDH,#80H
LDB 0DCH,0C8H
ADDB 0DCH,0CCH
SUBB 0DCH,#7FH
NORML 0D0H,0DEH
JBC 0D0H,7,FML41
ADDC 0D2H,0
FML41: SUBB 0D0H,0DCH,0DEH
ANDB 0D3H,#7FH
ORB 0D3H,0DDH
FML42: ST 0D0H,0C8H ;[1EH]
ST 0D2H,0CAH ;2[1EH]
FML45: CLR 0C8H
ARCCOSTAB:DCW 60,59,59,58,57,57,56,55,55,54
DCW 53,52,52,51,50,49,49,48,47,46
DCW 46,45,44,43,42,41,41,40,39,38
DCW 37,36,35,34,33,32,31,30,28,27
DCW 26,24,23,22,20,18,16,14,11,8
DCW 0,8,11,14,16,18,20,22,23,24
DCW 26,27,28,30,31,32,33,34,35,36
DCW 37,38,39,40,41,41,42,43,44,45
DCW 46,46,47,48,49,49,50,51,52,52
DCW 53,54,55,55,56,57,57,58,59,59
FDIV4: LD 0D0H,0C8H
LD 0D2H,0CAH
LD 0D4H,0CCH
LD 0D6H,0CEH
ORB 0D3H,#80H
ORB 0D7H,#80H
CMPB 0D4H,0
FDV45: CMPB 0D0H,0
SJMP FDV44
FDV40: LDB 0DCH,0D0H
FDV41: CMP 0D2H,0D6H
CMP 0D0H,0D4H
FDV42: SHRL 0D0H,#1
SJMP FDV41
FDV43: LD 0DAH,#0FFFEH
STB 0DCH,0C9H
SUB 0DAH,0D6H
DIVU 0D8H,0D6H
MULU 0DCH,0D4H,0D8H
LD 0DAH,0DEH
MULU 0DCH,0D6H,0D8H
ADD 0D4H,0DCH
ADDC 0D6H,0DEH
ADD 0D4H,0DAH
ADDC 0D6H,0
MULU 0DCH,0D0H,0D8H
MULU 0D8H,0D2H
ADD 0D0H,0D8H
ADDC 0D2H,0DAH
ADD 0D0H,0DEH
ADDC 0D2H,0
FDV46: NOT 0D6H
ADDC 0D6H,0
LDB 0D7H,0D6H
LDB 0D6H,0D5H
MULU 0D8H,0D0H,0D6H
MULU 0DCH,0D2H,0D6H
ADD 0DCH,0DAH
ADDC 0DEH,0
SHRL 0DCH,#8
ADDC 0D0H,0DCH
ADDC 0D2H,0DEH
NORML 0D0H,0DAH
LDB 0DCH,0C9H
ADDB 0D0H,0DCH,#7FH
SUBB 0D0H,0DAH
SUBB 0D0H,0CCH
LDB 0DCH,0CFH
XORB 0DCH,0CBH
ANDB 0DCH,#80H
ANDB 0D3H,#7FH
ORB 0D3H,0DCH
FDV44: ST 0D0H,0C8H
ST 0D2H,0CAH
FADD4: LD 0D0H,0C8H
LD 0D2H,0CAH
LD 0D4H,0CCH
LD 0D6H,0CEH
ANDB 0DDH,0D3H,#80H
ANDB 0DFH,0D7H,#80H
LDB 0DCH,0D0H
LDB 0DEH,0D4H
ORB 0D3H,#80H
ORB 0D7H,#80H
CMPB 0DCH,0
SUBB 0DCH,0DEH
CMPB 0DCH,#24
SHRL 0D0H,0DCH
FAD41: XORB 0DFH,0DDH
JBS 0DFH,7,FAD46
ADD 0D0H,0D4H
ADDC 0D2H,0D6H
SHRL 0D0H,#1
JBC 0D0H,7,FAD42
ADDC 0D2H,0
FAD42: ANDB 0D3H,#7FH
ORB 0D3H,0DDH
FAD43: LDB 0D0H,0DEH
ST 0D0H,0C8H
ST 0D2H,0CAH
FAD49: ADDB 0DEH,0DCH
SJMP FAD42
FAD44: CMPB 0DEH,0
CMPB 0DCH,#24
ADDB 0DEH,0DCH
SHRL 0D4H,0DCH
SJMP FAD41
FAD45: ANDB 0D7H,#7FH
ORB 0D7H,0DFH
LDB 0D4H,0DEH
ST 0D4H,0C8H
ST 0D6H,0CAH
FAD46: SUB 0D0H,0D4H
SUBC 0D2H,0D6H
LDB 0DEH,0
SJMP FAD43
FAD47: JC FAD48
ADDC 0D2H,0
XORB 0DDH,#80H
FAD48: NORML 0D0H,0DCH
SUBB 0DEH,0DCH
SJMP FAD42
FSUB4: CMPB 0C8H,0
CMPB 0CCH,0
XORB 0CFH,#80H
LD 0C8H,0CCH
LD 0CAH,0CEH
FS02: CMPB 0CCH,0
FS03: LD 0D0H,0C8H
LD 0D2H,0CAH
LD 0D4H,0CCH
LD 0D6H,0CEH
ANDB 0DDH,0D3H,#80H
ANDB 0DFH,0D7H,#80H
LDB 0DCH,0D0H
LDB 0DEH,0D4H
ORB 0D3H,#80H
ORB 0D7H,#80H
CMPB 0DCH,0
SUBB 0DCH,0DEH
CMPB 0DCH,#24
SHRL 0D0H,0DCH
FSB41: XORB 0DFH,0DDH
JBC 0DFH,7,FSB46
ADD 0D0H,0D4H
ADDC 0D2H,0D6H
SHRL 0D0H,#1
JBC 0D0H,7,FSB42
ADDC 0D2H,0
FSB42: ANDB 0D3H,#7FH
ORB 0D3H,0DDH
FSB43: LDB 0D0H,0DEH
ST 0D0H,0C8H
ST 0D2H,0CAH
FSB49: ADDB 0DEH,0DCH
SJMP FSB42
FSB44: CMPB 0DEH,0
CMPB 0DCH,#24
ADDB 0DEH,0DCH
SHRL 0D4H,0DCH
SJMP FSB41
FSB4A: XORB 0DFH,#80H
FSB45: ANDB 0D7H,#7FH
ORB 0D7H,0DFH
LDB 0D4H,0DEH
ST 0D4H,0C8H
ST 0D6H,0CAH
FSB46: SUB 0D0H,0D4H
SUBC 0D2H,0D6H
LDB 0DEH,0
SJMP FSB43
FSB47: JC FSB48
ADDC 0D2H,0
XORB 0DDH,#80H
FSB48: NORML 0D0H,0DCH
SUBB 0DEH,0DCH
SJMP FSB42
INTF4: LD 0D0H,0C8H
LD 0D2H,0CAH
ANDB 0D4H,0D3H,#80H ;Enter: 0C8H(Low byte) to 0CBH(High)
JBC 0D3H,7,INT41 ;Output: 0C8H(Low) to 0CBH(High)
ADDC 0D2H,0
INT41: NORML 0D0H,0D5H
SUBB 0D5H,#32
ADDB 0D0H,0D5H,#7FH
ANDB 0D3H,#7FH
ORB 0D3H,0D4H
INT42: ST 0D0H,0C8H
ST 0D2H,0CAH
FINT4: LD 0D0H,0C8H
;Enter: 0C8H(Low) to 0CBH(High)
LD 0D2H,0CAH
;Output: 0C8H(Low byte) to 0CBH(High)
CMPB 0D0H,0
LDB 0D6H,0D3H
ORB 0D3H,#80H
SUBB 0D5H,0D0H,#7FH
JBS 0D5H,7,FIT42
SUBB 0D5H,#31
ADDB 0D5H,#1
SHRL 0D0H,0D5H
ADDC 0D0H,0
ADDC 0D2H,0
JBC 0D6H,7,FIT41
ADDC 0D2H,0
FIT41: ST 0D0H,0C8H
ST 0D2H,0CAH
FIT42: CLR 0C8H
FIT43: LD 0D0H,#0FFFFH
LD 0D2H,#7FFFH
JBC 0D6H,7,FIT44
ADDC 0D0H,0
FIT44: ST 0D0H,0C8H
ST 0D2H,0CAH
;Delay 10 mS when invoked调用
LDB AHR,#10
LOOP2: NOP
LDB AL,#110 ;Delay 1 mS for inner loop
LD BX,#02H
LOOP1: MULU BX,#3H
DJNZ AL,LOOP1
DJNZ AHR,LOOP2
SERINT: RET
T1INT: RET
CSEG AT 4700H
SINTAB: DCB 00H,00H,12H,00H,23H
DCB 00H,34H,00H,46H,00H
DCB 57H,00H,69H,00H,7AH
DCB 00H,8CH,00H,9DH,00H
DCB 0AFH,00H,0C0H,00H,0D1H
DCB 00H,0E3H,00H,0F4H,00H
DCB 06H,01H,17H,01H,29H
DCB 01H,3AH,01H,4CH,01H
DCB 5DH,01H,6EH,01H,80H
DCB 01H,91H,01H,0A3H,01H
DCB 0B4H,01H,0C6H,01H,0D7H
DCB 01H,0E8H,01H,0FAH,01H
DCB 0BH,02H,1DH,02H,2EH
DCB 02H,40H,02H,51H,02H
DCB 62H,02H,74H,02H,85H
DCB 02H,97H,02H,0A8H,02H
DCB 0BAH,02H,0CBH,02H,0DCH
DCB 02H,0EEH,02H,0FFH,02H
DCB 11H,03H,22H,03H,33H
DCB 03H,45H,03H,56H,03H
DCB 68H,03H,79H,03H,8AH
DCB 03H,9CH,03H,0ADH,03H
DCB 0BEH,03H,0D0H,03H,0E1H
DCB 03H,0F3H,03H,04H,04H
DCB 15H,04H,27H,04H,38H
DCB 04H,49H,04H,5BH,04H
DCB 6CH,04H,7DH,04H,8FH
DCB 04H,0A0H,04H,0B1H,04H
DCB 0C3H,04H,0D4H,04H,0E5H
DCB 04H,0F7H,04H,08H,05H
DCB 19H,05H,2BH,05H,3CH
DCB 05H,4DH,05H,5EH,05H
DCB 70H,05H,81H,05H,92H
DCB 05H,0A4H,05H,0B5H,05H
DCB 0C6H,05H,0D7H,05H,0E9H
DCB 05H,0FAH,05H,0BH,06H
DCB 1CH,06H,2EH,06H,3FH
DCB 06H,50H,06H,61H,06H
DCB 72H,06H,84H,06H,95H
DCB 06H,0A6H,06H,0B7H,06H
DCB 0C8H,06H,0DAH,06H,0EBH
DCB 06H,0FCH,06H,0DH,07H
DCB 1EH,07H,30H,07H,41H
DCB 07H,52H,07H,63H,07H
DCB 74H,07H,85H,07H,96H
DCB 07H,0A7H,07H,0B9H,07H
DCB 0CAH,07H,0DBH,07H,0ECH
DCB 07H,0FDH,07H,0EH,08H
DCB 1FH,08H,30H,08H,41H
DCB 08H,52H,08H,63H,08H
DCB 74H,08H,85H,08H,96H
DCB 08H,0A7H,08H,0B9H,08H
DCB 0CAH,08H,0DBH,08H,0ECH
DCB 08H,0FCH,08H,0DH,09H
DCB 1EH,09H,2FH,09H,40H
DCB 09H,51H,09H,62H,09H
DCB 73H,09H,84H,09H,95H
DCB 09H,0A6H,09H,0B7H,09H
DCB 0C8H,09H,0D9H,09H,0EAH
DCB 09H,0FAH,09H,0BH,0AH
DCB 1CH,0AH,2DH,0AH,3EH
DCB 0AH,4FH,0AH,60H,0AH
DCB 70H,0AH,81H,0AH,92H
DCB 0AH,0DFH,0AH,0B4H,0AH
DCB 0C4H,0AH,0D5H,0AH,0E6H
DCB 0AH,0F7H,0AH,07H,0BH
DCB 18H,0BH,29H,0BH,3AH
DCB 0BH,4AH,0BH,5BH,0BH
DCB 6CH,0BH,7CH,0BH,8DH
DCB 0BH,9EH,0BH,0AEH,0BH
DCB 0BFH,0BH,0D0H,0BH,0E0H
DCB 0BH,0F1H,0BH,02H,0CH
DCB 12H,0CH,23H,0CH,33H
DCB 0CH,44H,0CH,54H,0CH
DCB 65H,0CH,76H,0CH,86H
DCB 0CH,97H,0CH,0A7H,0CH
DCB 0B8H,0CH,0C8H,0CH,0D9H
DCB 0CH,0E9H,0CH,0FAH,0CH
DCB 0AH,0DH,1AH,0DH,2BH
DCB 0DH,3BH,0DH,4CH,0DH
DCB 5CH,0DH,6DH,0DH,7DH
DCB 0DH,8DH,0DH,9EH,0DH
DCB 0AEH,0DH,0BEH,0DH,0CFH
DCB 0DH,0DFH,0DH,0EFH,0DH
DCB 00H,0EH,10H,0EH,20H
DCB 0EH,31H,0EH,41H,0EH
DCB 51H,0EH,61H,0EH,71H
DCB 0EH,82H,0EH,92H,0EH
DCB 0A2H,0EH,0B2H,0EH,0C2H
DCB 0EH,0D3H,0EH,0E3H,0EH
DCB 0F3H,0EH,03H,0FH,13H
DCB 0FH,23H,0FH,33H,0FH
DCB 43H,0FH,53H,0FH,63H
DCB 0FH,73H,0FH,83H,0FH
DCB 93H,0FH,0A3H,0FH,0B3H
DCB 0FH,0C3H,0FH,0D3H,0FH
DCB 0E3H,0FH,0F3H,0FH,03H
DCB 10H,13H,10H,23H,10H
DCB 33H,10H,43H,10H,53H
DCB 10H,63H,10H,72H,10H
DCB 82H,10H,92H,10H,0A2H
DCB 10H,0B2H,10H,0C1H,10H
DCB 0D1H,10H,0E1H,10H,0F1H
DCB 10H,00H,11H,10H,11H
DCB 20H,11H,2FH,11H,3FH
DCB 11H,4FH,11H,5EH,11H
DCB 6EH,11H,7EH,11H,61H
DCB 11H,9DH,11H,0ACH,11H
DCB 0BCH,11H,0CBH,11H,0DBH
DCB 11H,0EAH,11H,0FAH,11H
DCB 09H,12H,19H,12H,28H
DCB 12H,38H,12H,47H,12H
DCB 57H,12H,66H,12H,76H
DCB 12H,85H,12H,94H,12H
DCB 0A4H,12H,0B3H,12H,0C2H
DCB 12H,0D2H,12H,0E1H,12H
DCB 0F0H,12H,0FFH,12H,0FH
DCB 13H,1EH,13H,2DH,13H
DCB 3CH,13H,4BH,13H,5BH
DCB 13H,6AH,13H,79H,13H
DCB 88H,13H,97H,13H,0A6H
DCB 13H,0B5H,13H,0C4H,13H
DCB 0D3H,13H,0E2H,13H,0F1H
DCB 13H,00H,14H,0FH,14H
DCB 1EH,14H,2DH,14H,3CH
DCB 14H,4BH,14H,5AH,14H
DCB 69H,14H,78H,14H,87H
DCB 14H,96H,14H,0A4H,14H
DCB 0B3H,14H,0C2H,14H,0D1H
DCB 14H,0E0H,14H,0EEH,14H
DCB 0FDH,14H,0CH,15H,1AH
DCB 15H,29H,15H,38H,15H
DCB 46H,15H,55H,15H,64H
DCB 15H,72H,15H,81H,15H
DCB 8FH,15H,9EH,15H,0ACH
DCB 15H,0BBH,15H,0C9H,15H
DCB 0D8H,15H,0E6H,15H,0F5H
DCB 15H,03H,16H,12H,16H
DCB 20H,16H,2EH,16H,3DH
DCB 16H,4BH,16H,59H,16H
DCB 68H,16H,76H,16H,84H
DCB 16H,93H,16H,0A1H,16H
DCB 0AFH,16H,0BDH,16H,0CBH
DCB 16H,0DAH,16H,0E8H,16H
DCB 0F6H,16H,04H,17H,12H
DCB 17H,20H,17H,2EH,17H
DCB 3CH,17H,4AH,17H,58H
DCB 17H,66H,17H,74H,17H
DCB 82H,17H,90H,17H,9EH
DCB 17H,0ACH,17H,0BAH,17H
DCB 0C8H,17H,0D5H,17H,0E3H
DCB 17H,0F1H,17H,0FFH,17H
DCB 0DH,18H,1AH,18H,28H
DCB 18H,36H,18H,43H,18H
DCB 51H,18H,5FH,18H,6CH
DCB 18H,7AH,18H,88H,18H
DCB 95H,18H,0A3H,18H,0B0H
DCB 18H,0BEH,18H,0CBH,18H
DCB 0D9H,18H,0E6H,18H,0F4H
DCB 18H,01H,19H,0EH,19H
DCB 1CH,19H,29H,19H,37H
DCB 19H,44H,19H,51H,19H
DCB 5FH,19H,6CH,19H,79H
DCB 19H,86H,19H,93H,19H
DCB 0A1H,19H,0AEH,19H,0BBH
DCB 19H,0C8H,19H,0D5H,19H
DCB 0E2H,19H,0EFH,19H,0FCH
DCB 19H,09H,1AH,16H,1AH
DCB 23H,1AH,30H,1AH,3DH
DCB 1AH,4AH,1AH,57H,1AH
DCB 64H,1AH,71H,1AH,7EH
DCB 1AH,8AH,1AH,97H,1AH
DCB 0A4H,1AH,0B1H,1AH,0BDH
DCB 1AH,0CAH,1AH,0D7H,1AH
DCB 0E4H,1AH,0F0H,1AH,0FDH
DCB 1AH,09H,1BH,16H,1BH
DCB 23H,1BH,2FH,1BH,3CH
DCB 1BH,48H,1BH,55H,1BH
DCB 61H,1BH,6EH,1BH,7AH
DCB 1BH,86H,1BH,93H,1BH
DCB 9FH,1BH,0ABH,1BH,0B8H
DCB 1BH,0C4H,1BH,0D0H,1BH
DCB 0DDH,1BH,0E9H,1BH,0F5H
DCB 1BH,01H,1CH,0DH,1CH
DCB 19H,1CH,26H,1CH,32H
DCB 1CH,3EH,1CH,4AH,1CH
DCB 56H,1CH,62H,1CH,6EH
DCB 1CH,7AH,1CH,86H,1CH
DCB 92H,1CH,9DH,1CH,0A9H
DCB 1CH,0B5H,1CH,0C1H,1CH
DCB 0CDH,1CH,0D9H,1CH,0E4H
DCB 1CH,0F0H,1CH,0FCH,1CH
DCB 07H,1DH,13H,1DH,1FH
DCB 1DH,2AH,1DH,36H,1DH
DCB 42H,1DH,4DH,1DH,59H
DCB 1DH,64H,1DH,70H,1DH
DCB 7BH,1DH,87H,1DH,92H
DCB 1DH,9DH,1DH,0A9H,1DH
DCB 0B4H,1DH,0BFH,1DH,0CBH
DCB 1DH,0D6H,1DH,0E1H,1DH
DCB 0ECH,1DH,0F8H,1DH,03H
DCB 1EH,0EH,1EH,19H,1EH
DCB 24H,1EH,2FH,1EH,3AH
DCB 1EH,45H,1EH,50H,1EH
DCB 5BH,1EH,66H,1EH,71H
DCB 1EH,7CH,1EH,87H,1EH
DCB 92H,1EH,9DH,1EH,0A8H
DCB 1EH,0B3H,1EH,0BDH,1EH
DCB 0C8H,1EH,0D3H,1EH,0DEH
DCB 1EH,0E8H,1EH,0F3H,1EH
DCB 0FEH,1EH,08H,1FH,13H
DCB 1FH,1DH,1FH,28H,1FH
DCB 32H,1FH,3DH,1FH,47H
DCB 1FH,52H,1FH,5CH,1FH
DCB 65H,1FH,71H,1FH,7BH
DCB 1FH,86H,1FH,90H,1FH
DCB 9AH,1FH,0A4H,1FH,0AFH
DCB 1FH,0B9H,1FH,0C3H,1FH
DCB 0CDH,1FH,0D7H,1FH,0E1H
DCB 1FH,0EBH,1FH,0F5H,1FH
DCB 00H,20H,0AH,20H,14H
DCB 20H,1DH,20H,27H,20H
DCB 31H,20H,3BH,20H,45H
DCB 20H,4FH,20H,59H,20H
DCB 62H,20H,6CH,20H,76H
DCB 20H,80H,20H,89H,20H
DCB 93H,20H,9CH,20H,0A6H
DCB 20H,0B0H,20H,0B9H,20H
DCB 0C3H,20H,0CCH,20H,0D6H
DCB 20H,0DFH,20H,0E9H,20H
DCB 0F2H,20H,0FBH,20H,05H
DCB 21H,0EH,21H,17H,21H
DCB 20H,21H,2AH,21H,33H
DCB 21H,3CH,21H,45H,21H
DCB 4EH,21H,58H,21H,61H
DCB 21H,6AH,21H,73H,21H
DCB 7CH,21H,85H,21H,8EH
DCB 21H,97H,21H,9FH,21H
DCB 0A8H,21H,0B1H,21H,0BAH
DCB 21H,0C3H,21H,0CCH,21H
DCB 0D4H,21H,0DDH,21H,0E6H
DCB 21H,0EEH,21H,0F7H,21H
DCB 00H,22H,08H,22H,11H
DCB 22H,19H,22H,22H,22H
DCB 2AH,22H,33H,22H,3BH
DCB 22H,44H,22H,4CH,22H
DCB 54H,22H,5DH,22H,65H
DCB 22H,6DH,22H,75H,22H
DCB 7DH,22H,86H,22H,8EH
DCB 22H,96H,22H,9EH,22H
DCB 0A6H,22H,0AEH,22H,0B6H
DCB 22H,0BEH,22H,0C6H,22H
DCB 0CEH,22H,0D6H,22H,0DEH
DCB 22H,0E6H,22H,0EEH,22H
DCB 0F5H,22H,0FDH,22H,05H
DCB 23H,0DH,23H,14H,23H
DCB 1CH,23H,24H,23H,2BH
DCB 23H,33H,23H,3AH,23H
DCB 42H,23H,49H,23H,51H
DCB 23H,56H,23H,60H,23H
DCB 67H,23H,6EH,23H,76H
DCB 23H,7DH,23H,84H,23H
DCB 8CH,23H,93H,23H,9AH
DCB 23H,0A1H,23H,0A8H,23H
DCB 0AFH,23H,0B7H,23H,0BEH
DCB 23H,0C5H,23H,0CCH,23H
DCB 0D3H,23H,0DAH,23H,0E0H
DCB 23H,0E7H,23H,0EEH,23H
DCB 0F5H,23H,0FCH,23H,03H
DCB 24H,09H,24H,10H,24H
DCB 17H,24H,1DH,24H,24H
DCB 24H,2BH,24H,31H,24H
DCB 38H,24H,3EH,24H,45H
DCB 24H,4BH,24H,52H,24H
DCB 58H,24H,5FH,24H,65H
DCB 24H,6BH,24H,72H,24H
DCB 78H,24H,7EH,24H,84H
DCB 24H,8AH,24H,91H,24H
DCB 97H,24H,9DH,24H,0A3H
DCB 24H,0A9H,24H,0AFH,24H
DCB 0B5H,24H,0BBH,24H,0C1H
DCB 24H,0C7H,24H,0CDH,24H
DCB 0D2H,24H,0D8H,24H,0DEH
DCB 24H,0E4H,24H,0E9H,24H
DCB 0EFH,24H,0F5H,24H,0FAH
DCB 24H,00H,25H,06H,25H
DCB 0BH,25H,11H,25H,16H
DCB 25H,1CH,25H,21H,25H
DCB 27H,25H,2CH,25H,31H
DCB 25H,37H,25H,3CH,25H
DCB 41H,25H,46H,25H,4CH
DCB 25H,51H,25H,56H,25H
DCB 5BH,25H,60H,25H,65H
DCB 25H,6AH,25H,6FH,25H
DCB 74H,25H,79H,25H,7EH
DCB 25H,83H,25H,88H,25H
DCB 8DH,25H,91H,25H,96H
DCB 25H,9BH,25H,0A0H,25H
DCB 0A4H,25H,0A9H,25H,0AEH
DCB 25H,0B2H,25H,0B7H,25H
DCB 0BBH,25H,0C0H,25H,0C4H
DCB 25H,0C9H,25H,0CDH,25H
DCB 0D2H,25H,0D6H,25H,0DAH
DCB 25H,0DFH,25H,0E3H,25H
DCB 0E7H,25H,0EBH,25H,0EFH
DCB 25H,0F4H,25H,0F8H,25H
DCB 0FCH,25H,00H,26H,04H
DCB 26H,08H,26H,0CH,26H
DCB 10H,26H,14H,26H,18H
DCB 26H,1BH,26H,1FH,26H
DCB 23H,26H,27H,26H,2BH
DCB 26H,2EH,26H,32H,26H
DCB 35H,26H,39H,26H,3DH
DCB 26H,40H,26H,44H,26H
DCB 47H,26H,4BH,26H,4EH
DCB 26H,52H,26H,55H,26H
DCB 58H,26H,5CH,26H,5FH
DCB 26H,62H,26H,65H,26H
DCB 69H,26H,6CH,26H,6FH
DCB 26H,72H,26H,75H,26H
DCB 78H,26H,7BH,26H,7EH
DCB 26H,81H,26H,84H,26H
DCB 87H,26H,8AH,26H,8DH
DCB 26H,8FH,26H,92H,26H
DCB 95H,26H,98H,26H,9AH
DCB 26H,9DH,26H,0A0H,26H
DCB 0A2H,26H,0A5H,26H,0A7H
DCB 26H,0AAH,26H,0ACH,26H
DCB 0AFH,26H,0B1H,26H,0B3H
DCB 26H,0B6H,26H,0B8H,26H
DCB 0BAH,26H,0BDH,26H,0BFH
DCB 26H,0C1H,26H,0C3H,26H
DCB 0C5H,26H,0C8H,26H,0CAH
DCB 26H,0CCH,26H,0CEH,26H
DCB 0D0H,26H,0D2H,26H,0D4H
DCB 26H,0D6H,26H,0D7H,26H
DCB 0D9H,26H,0DBH,26H,0DDH
DCB 26H,0DFH,26H,0E0H,26H
DCB 0E2H,26H,0E4H,26H,0E5H
DCB 26H,0E7H,26H,0E8H,26H
DCB 0EAH,26H,0ECH,26H,0EDH
DCB 26H,0EEH,26H,0F0H,26H
DCB 0F1H,26H,0F3H,26H,0F4H
DCB 26H,0F5H,26H,0F6H,26H
DCB 0F8H,26H,0F9H,26H,0FAH
DCB 26H,0FBH,26H,0FCH,26H
DCB 0FDH,26H,0FEH,26H,0FFH
DCB 26H,00H,27H,01H,27H
DCB 02H,27H,03H,27H,04H
DCB 27H,05H,27H,06H,27H
DCB 06H,27H,07H,27H,08H
DCB 27H,09H,27H,09H,27H
DCB 0AH,27H,0BH,27H,0BH
DCB 27H,0CH,27H,0CH,27H
DCB 0DH,27H,0DH,27H,0DH
DCB 27H,0EH,27H,0EH,27H
DCB 0FH,27H,0FH,27H,0FH
DCB 27H,0FH,27H,0FH,27H
DCB 10H,27H,10H,27H,10H
DCB 27H,10H,27H,10H,27H
DCB 10H,27H
CSEG AT 4F00H
DCW 0,1,0,1400H, 1,3,1,1400H, 5,15,15,1400H
DCW 75,90,80,1400H, 120,200,180,1400H, 10,50,20,1400H ;P13--P15
DCW 3,40,5,1400H, 0,1,0,1400H, 0,3,0,1400H
DCW 0,1,0,1400H, 0,1H, 1,2H ;P19--P21
DCW 0,1H, 0,1,1,1400H, 1,1H ;P22--P24
DCW 1,10,3,1400H, 0,50,20,1401H, 10,80,20,1400H
DCW 90,170,160,1400H, 0,1,0,1400H, 80,100,85,1400H ;P28--P30
DCW 20,60,33,1400H, 1,6,3,1400H, 80,200,180,1400H ;P31--P33
DCW 1,3,2,1400H, 0,1,0,0,150,1402H
DCW 0,2H, 0,2H,1,50,20,1401H ;P37--P39
DCW 10,800,200,1400H, 80,125,110,1400H, 50,150,110,1402H;P40--P42
DCW 1,500,25,1402H, 30,100,40,1400H, 30,120,100,1400H ;P43--P45
DCW 0,200,100,1400H, 0,200,0,1400H, 0,999,0,1400H ;P46--P48
DCW 0,999,0,1400H, 0,380,0,1400H, 0,100,0,0
DCW 0,1,0,1400H, 0,999,0,1400H, 0,999,0,1400H
DCW 0,14,0,5800H, 0,3,0,1400H, 0,1,0,1400H
DCW 1,30,12,1401H, 0,0,0,0}