📄 zb0.asm
字号:
cjne a,#00,kskm1
MOV P1,#11111000B
MOV P1,#11111010B
MOV KK,#20
KM1: MOV A,P0
DJNZ KK,KM1
MOV P1,#11111000B
km10: JB JP0.0,M1A
JB ACC.1,M1B
DJNZ JS0,M1C
mov r0,#gdbz
mov a,@r0
cjne a,#01,kskm11
setb jp2.1;;;;;;;;;;;;;;;;;;;;;;;;上方向时，上入口光电动作置位下入口光电
kskm11: mov r0,#gdbz
mov a,@r0
cjne a,#02,M1B
SETB JP0.0;;;;;;;;;;;;;;;;;;;;;;;;下方向时，上入口光电动作置位上入口光电
SJMP M1B
M1A: JNB ACC.1,M1B
DJNZ JS0,M1C
M1B: MOV JS0,#15;50
jmp m1c
;============================================================================X8---> X1
kskm1: MOV P1,#11111000B
MOV P1,#11111010B;;;;;;;;;;;;;;;;
MOV KK,#20
kskm2: MOV A,P0
DJNZ KK,kskM2;;;;;;;;;;;;;;;;;;;;;
MOV P1,#11111000B
kskm10: JB JP0.0,ksM1A
JnB ACC.1,ksM1B
DJNZ JS0,M1C
mov r0,#gdbz
mov a,@r0
cjne a,#01,kskm12
setb jp2.1;;;;;;;;;;;;;;;;;;;;;;;;上方向时，下入口光电动作置位下入口光电
kskm12: mov r0,#gdbz
mov a,@r0
cjne a,#02,ksM1B
SETB JP0.0;;;;;;;;;;;;;;;;;;;;;;;;下方向时，下入口光电动作置位上入口光电
SJMP ksM1B
ksM1A: JB ACC.1,ksM1B
DJNZ JS0,M1C
ksM1B: MOV JS0,#15;50
;============================================================================X1---> X4（开关钥匙上/检修上）
m1c: jnb yxp20,m1c00
jmp m1ec
m1c00: jnb jp0.6,m1c0
jmp m1ea;;;;;;;;;;;;检修
m1c0: MOV P1,#11111000B;;;正常
MOV P1,#11111010B;;;;;;;;;;;;;;;;delete
MOV KK,#20
kskm2c: MOV A,P0
DJNZ KK,kskM2c
MOV P1,#11111000B
mov r0,#keybz4
mov a,@r0
cjne a,#00,M1D
MOV P1,#11111000B
MOV P1,#11111010B
MOV KK,#20
ksKM1c: MOV A,P0
DJNZ KK,ksKM1c
MOV P1,#11111000B
jb ACC.4,M1e
DJNZ JS1,m1e0
setb jp0.1
clr jpp3.4
mov r0,#keybz4
mov @r0,#01
mov r0,#keybz2
mov @r0,#01
mov r0,#keybz1
mov @r0,#01
SJMP M1e
M1d: MOV P1,#11111000B
MOV P1,#11111010B
MOV KK,#20
ksKM1d: MOV A,P0
DJNZ KK,ksKM1d
MOV P1,#11111000B
JnB ACC.4,M1e
DJNZ JS1,m1e0
mov r0,#keybz4
mov @r0,#00
mov r0,#keybz1
mov a,@r0
cjne a,#1,m1e
mov r0,#keybz3
inc @r0
mov r0,#keybz1
mov @r0,#00
M1e: MOV JS1,#25;50
m1e0: mov r0,#keybz2
mov a,@r0
cjne a,#01,m1e30
mov r0,#keyjj1
mov kk,@r0
dec @r0
djnz kk,step10;m1f
mov r0,#keyjj1
mov @r0,#250
mov r0,#keyjj1h
mov kk,@r0
dec @r0
djnz kk,step10;m1f
mov r0,#keyjj1
mov @r0,#250
mov r0,#keyjj1h
mov @r0,#6
mov r0,#keybz1
mov @r0,#00
mov r0,#keybz2
mov @r0,#00
m1e4: nop
m1e5: mov r0,#keybz3
mov a,@r0
cjne a,#01,m1e1
mov r0,#modebz
mov a,#00
movx @r0,a
setb yxp20;;;;;;;;;;;;;;;;;;;;;;set bz
mov r0,#keybz3
mov @r0,#00
step10: sjmp m1f
m1e1: mov r0,#keybz3
mov a,@r0
cjne a,#02,m1e2
mov r0,#modebz
mov a,#01
movx @r0,a
setb yxp20;;;;;;;;;;;;;;;;;;;;;;set bz
mov r0,#keybz3
mov @r0,#00
sjmp m1f
m1e2: mov r0,#keybz3
mov a,@r0
cjne a,#03,m1e3
setb jpp3.6
clr jp2.2;;;;;;;;;;;;;;;;;;;速度开关
clr gzp2.3;;;;;;;;;;;;;;;;;;超速故障
clr gzp2.4;;;;;;;;;;;;;;;;;;欠速故障
clr gzp2.5;;;;;;;;;;;;;;;;;;易转故障
clr gzp2.0;;;;;;;;;;;;;;;;;上部空缺
mov r0,#keybz3
mov @r0,#00
setb yxp20;;;;;;;;;;;;;;;;;;;;;;set bz
sjmp m1f
m1e3: mov r0,#keybz3
mov @r0,#00
setb yxp20;;;;;;;;;;;;;;;;;;;;;;set bz
m1e30: sjmp m1f
m1ea: MOV P1,#11111000B;;;;;;;;检修
MOV P1,#11111010B
MOV KK,#20
Km1ea: MOV A,P0
DJNZ KK,km1ea
MOV P1,#11111000B
JB jpp1.0,m1eb
JB ACC.4,m1ec
DJNZ JS1,M1f
SETB JPp1.0
SJMP m1ec
m1eb: JNB ACC.4,m1ec
DJNZ JS1,M1f
CLR JPp1.0
m1ec: MOV JS1,#25;50
;============================================================================X2---> X5（开关钥匙下/检修下）
M1F: jnb yxp20,m1f00
jmp m1j
m1f00: jnb jp0.6,m1f0
jmp m1ia
m1f0: mov r0,#keybz8
mov a,@r0
cjne a,#00,M1h
MOV P1,#11111000B
MOV P1,#11111010B
MOV KK,#20
ksKM1f: MOV A,P0
DJNZ KK,ksKM1f
MOV P1,#11111000B
jb ACC.5,M1i
DJNZ JS2,m1i0
setb jp0.2
clr jpp3.4
mov r0,#keybz8
mov @r0,#01
mov r0,#keybz6
mov @r0,#01
mov r0,#keybz5
mov @r0,#01
SJMP M1i
m1h: MOV P1,#11111000B
MOV P1,#11111010B
MOV KK,#20
ksKM1h: MOV A,P0
DJNZ KK,ksKM1h
MOV P1,#11111000B
JnB ACC.5,M1i
DJNZ JS2,m1i0
mov r0,#keybz8
mov @r0,#00
mov r0,#keybz5
mov a,@r0
cjne a,#1,m1i
mov r0,#keybz7
inc @r0
mov r0,#keybz5
mov @r0,#00
M1i: MOV JS2,#25;50
m1i0: mov r0,#keybz6
mov a,@r0
cjne a,#01,m1i20
mov r0,#keyjj2
mov kk,@r0
dec @r0
djnz kk,m1i20
mov r0,#keyjj2
mov @r0,#250
mov r0,#keyjj2h
mov kk,@r0
dec @r0
djnz kk,step11
mov r0,#keyjj2
mov @r0,#250
mov r0,#keyjj2h
mov @r0,#6
mov r0,#keybz5
mov @r0,#00
mov r0,#keybz6
mov @r0,#00
m1i4: nop
m1i5: mov r0,#keybz7
mov a,@r0
cjne a,#01,m1i1
mov r0,#modebz
mov a,#00
movx @r0,a
setb yxp20;;;;;;;;;;;;;;;;;;;;;;set bz
mov r0,#keybz7
mov @r0,#00
step11: sjmp m1j
m1i1: mov r0,#keybz7
mov a,@r0
cjne a,#02,m1i2
mov r0,#modebz
mov a,#01
movx @r0,a
setb yxp20;;;;;;;;;;;;;;;;;;;;;;set bz
mov r0,#keybz7
mov @r0,#00
sjmp m1j
m1i2: mov r0,#keybz7
mov a,@r0
cjne a,#03,m1i3
setb jpp3.6
clr jp2.2
clr gzp2.3;;;;;;;;;;;;;;;;;超速故障
clr gzp2.4;;;;;;;;;;;;;;;;;千速故障
clr gzp2.5;;;;;;;;;;;;;;;;;;易转故障
clr gzp2.0;;;;;;;;;;;;;;;;;;上部空缺
mov r0,#keybz7
mov @r0,#00
setb yxp20;;;;;;;;;;;;;;;;;;;;;;set bz
m1i20: sjmp m1j
m1i3: mov r0,#keybz7
mov @r0,#00
setb yxp20;;;;;;;;;;;;;;;;;;;;;;set bz
sjmp m1j
m1ia: MOV P1,#11111000B;检修
MOV P1,#11111010B
MOV KK,#20
Km1ia: MOV A,P0
DJNZ KK,Km1ia
MOV P1,#11111000B
JB jpp1.1,m1ib
JB ACC.5,m1ic
DJNZ JS2,M1j
SETB jpp1.1
SJMP m1ic
m1ib: JNB ACC.5,m1ic
DJNZ JS2,M1j
CLR jpp1.1
m1ic: MOV JS2,#25;50
;============================================================================X3--->x8
M1J: MOV P1,#11111000B
MOV P1,#11111001B
MOV KK,#20
ksKM1j: MOV A,P0
DJNZ KK,ksKM1j
MOV P1,#11111000B
JB JP0.3,M1K
JB ACC.0,M1L
DJNZ JS3,M1M
SETB JP0.3
SJMP M1L
M1K: JNB ACC.0,M1L
DJNZ JS3,M1M
CLR JP0.3
M1L: MOV JS3,#25;50
;============================================================================X4--->x11
M1M: MOV P1,#11111000B
MOV P1,#11111001B
MOV KK,#20
km1m: MOV A,P0
DJNZ KK,km1m
MOV P1,#11111000B
JB JP0.4,M1N
JnB ACC.3,M1P
DJNZ JS4,M1U
SETB JP0.4
SJMP M1P
M1N: JB ACC.3,M1P
DJNZ JS4,M1U
CLR JP0.4
M1P: MOV JS4,#25;50
;============================================================================x0---> X3（检修/正常）
M1U: MOV P1,#11111000B
MOV P1,#11111010B
MOV KK,#20
km1u: MOV A,P0
DJNZ KK,km1u
JB JP0.6,M1V
JNB ACC.3,M1W
DJNZ JS6,M1X
SETB JP0.6;;;;; ZHENG CHANG ZHUAN JIANXIUKAIGUAN
SETB DA1.5
MOV GZP1,#00
MOV GZP2,#00
MOV GZP3,#00
mov jsss1,#00
mov jsss1h,#00
mov jsss2,#00
mov jsss2h,#00
clr jpp3.6;;;;;;;;;;;;;;;
mov r0,#ylbz
mov @r0,#00
SETB YXP1.5
mov r0,#gdbz;;;;;;;;;;;;;定向标志清除
mov @r0,#00
SJMP M1W
M1V: JB ACC.3,M1W
DJNZ JS6,M1X
CLR JP0.6;;;;;;;JIANXIUKAIGUAN ZHUAN ZHENG CHANG
CLR DA1.5
MOV GZP1,#00
MOV GZP2,#00
MOV GZP3,#00
mov jsss1,#00
mov jsss1h,#00
mov jsss2,#00
mov jsss2h,#00
clr jpp3.6;;;;;;;;;;;;;;;
mov r0,#ylbz
mov @r0,#00
SETB YXP1.5
mov r0,#gdbz;;;;;;;;;;;;;定向标志清除
mov @r0,#00
M1W: MOV JS6,#25;50
;============================================================================X7检修上行-->x12
M1X: MOV P1,#11111000B
MOV P1,#11111001B
MOV KK,#20
KM1x: MOV A,P0
DJNZ KK,KM1x
MOV P1,#11111000B
JB jp0.7,M1Y;;;;;;
JnB ACC.4,M1Z
DJNZ JS7,M1R
SETB JP0.7
SJMP M1Z
M1Y: JB ACC.4,M1Z
DJNZ JS7,M1R
CLR JP0.7
M1Z: MOV JS7,#25;50
;============================================================================x5--->X6（KB，SB检测）
M1R:
MOV P1,#11111000B
MOV P1,#11111010B
MOV KK,#20
SKM1: MOV A,P0
DJNZ KK,SKM1
MOV P1,#11111000B
JB JP0.5,M1S
JB ACC.6,M1T
DJNZ JS5,M2
SETB JP0.5
SJMP M1T
M1S: JNB ACC.6,M1T
DJNZ JS5,M2
CLR JP0.5
M1T: MOV JS5,#25;50
SJMP M2
;============================================================================x16
M2: MOV P1,#11111000B;;;;;;;;;;;;;;;;;
MOV KK,#20
KM2: MOV A,P0
DJNZ KK,KM2;;;;;;;;;;;;;;;;;;;;
JB JP1.0,M2A
JNB ACC.0,M2B
DJNZ JS8,M2C
SETB JP1.0
SJMP M2B
M2A: JB ACC.0,M2B
DJNZ JS8,M2C
CLR JP1.0
M2B: MOV JS8,#25;50
;============================================================================x17
M2C: JB JP1.1,M2D
JNB ACC.1,M2E
DJNZ JS9,M2F
SETB JP1.1
SJMP M2E
M2D: JB ACC.1,M2E
DJNZ JS9,M2F
CLR JP1.1
M2E: MOV JS9,#25;50
;============================================================================x18
M2F: JB JP1.2,M2H
JNB ACC.2,M2I
DJNZ JSA,M2J
SETB JP1.2
SJMP M2I
M2H: JB ACC.2,M2I
DJNZ JSA,M2J
CLR JP1.2
M2I: MOV JSA,#25;50
;============================================================================x19
M2J: JB JP1.3,M2K
JNB ACC.3,M2L
DJNZ JSB,M2M
SETB JP1.3
SJMP M2L
M2K: JB ACC.3,M2L
DJNZ JSB,M2M
CLR JP1.3
M2L: MOV JSB,#25;50
;============================================================================x20
M2M: JB JP1.4,M2N
JNB ACC.4,M2P
DJNZ JSC,M2R
SETB JP1.4
SJMP M2P
M2N: JB ACC.4,M2P
DJNZ JSC,M2R
CLR JP1.4
M2P: MOV JSC,#25;50
;============================================================================x21
M2R: JB JP1.5,M2S
JNB ACC.5,M2T
DJNZ JSD,M2U
SETB JP1.5
SJMP M2T
M2S: JB ACC.5,M2T
DJNZ JSD,M2U
CLR JP1.5
M2T: MOV JSD,#25;50
;============================================================================x22
M2U: JB JP1.6,M2V
JNB ACC.6,M2W
DJNZ JSE,M2X
SETB JP1.6
SJMP M2W
M2V: JB ACC.6,M2W
DJNZ JSE,M2X
CLR JP1.6
M2W: MOV JSE,#25;50
;============================================================================x23
M2X: JB JP1.7,M2Y
JNB ACC.7,M2Z
DJNZ JSF,MM2
SETB JP1.7
SJMP M2Z
M2Y: JB ACC.7,M2Z
DJNZ JSF,MM2
CLR JP1.7
M2Z: MOV JSF,#25;50
;============================================================================x24
MM2: MOV P1,#11111000B
MOV P1,#11111100B
MOV KK,#20
SKM3: MOV A,P0
DJNZ KK,SKM3
MOV P1,#11111000B
JB JPP1.3,MM2K
JNB ACC.3,MM2L
DJNZ MJS1,MM2M
SETB JPP1.3
SJMP MM2L
MM2K: JB ACC.3,MM2L
DJNZ MJS1,MM2M
CLR JPP1.3
MM2L: MOV MJS1,#25;50
;============================================================================x25
MM2M:
JB JPP1.4,MM2N
JNB ACC.4,MM2P
DJNZ MJS2,MM2R
SETB JPP1.4
SJMP MM2P
MM2N: JB ACC.4,MM2P
DJNZ MJS2,MM2R
CLR JPP1.4
MM2P: MOV MJS2,#25;50
;============================================================================x26
MM2R: JB JPP1.5,MM2S
JNB ACC.5,MM2T
DJNZ MJS3,MM2U
SETB JPP1.5
SJMP MM2T
MM2S: JB ACC.5,MM2T
DJNZ MJS3,MM2U
CLR JPP1.5
MM2T: MOV MJS3,#25;50
;============================================================================x27
MM2U: JB JPP1.6,MM2V
JNB ACC.6,MM2W
DJNZ MJS4,MM2X
SETB JPP1.6
SJMP MM2W
MM2V: JB ACC.6,MM2W
DJNZ MJS4,MM2X
CLR JPP1.6
MM2W: MOV MJS4,#25;50
;============================================================================x28
MM2X: JB JPP1.7,MM2Y
JNB ACC.7,MM2Z
DJNZ MJS5,MMM2
SETB JPP1.7
SJMP MM2Z
MM2Y: JB ACC.7,MM2Z
DJNZ MJS5,MMM2
CLR JPP1.7
MM2Z: MOV MJS5,#25;50
;============================================================================x29
MMM2:
mmm20: mov p1,#11111000B
MOV P1,#11111011B;
MOV KK,#20
SKM4: MOV A,P0
DJNZ KK,SKM4;
mmmm20: mov p1,#11111000B
JB JPP2.0,MMM2A
JNB ACC.0,MMM2B
DJNZ MJS6,MMM2C
SETB JPP2.0
SJMP MMM2B
MMM2A: JB ACC.0,MMM2B
DJNZ MJS6,MMM2C
CLR JPP2.0
MMM2B: MOV MJS6,#25;50
;============================================================================x30
MMM2C:
JB JPP2.1,MMM2D
JNB ACC.1,MMM2E
DJNZ MJS7,MMM2F
SETB JPP2.1
SJMP MMM2E
MMM2D: JB ACC.1,MMM2E
DJNZ MJS7,MMM2F
CLR JPP2.1
MMM2E: MOV MJS7,#25;50
;============================================================================x31
MMM2F: JB JPP2.2,MMM2H
JNB ACC.2,MMM2I
DJNZ MJS8,MMM2J
SETB JPP2.2
SJMP MMM2I
MMM2H: JB ACC.2,MMM2I
DJNZ MJS8,MMM2J
CLR JPP2.2
MMM2I: MOV MJS8,#25;50
;============================================================================x32
MMM2J: JB JPP2.3,MMM2K
JNB ACC.3,MMM2L
DJNZ MJS9,MMM2M
SETB JPP2.3
SJMP MMM2L
MMM2K: JB ACC.3,MMM2L
DJNZ MJS9,MMM2M
CLR JPP2.3
MMM2L: MOV MJS9,#25;50
;============================================================================x33
MMM2M: JB JPP2.4,MMM2N
JNB ACC.4,MMM2P
DJNZ MJSA,MMM2R
SETB JPP2.4
SJMP MMM2P
MMM2N: JB ACC.4,MMM2P
DJNZ MJSA,MMM2R
CLR JPP2.4
MMM2P: MOV MJSA,#25;50
;============================================================================x34
MMM2R: JB JPP2.5,MMM2S
JNB ACC.5,MMM2T
DJNZ MJSB,MMM2U
SETB JPP2.5
SJMP MMM2T
MMM2S: JB ACC.5,MMM2T
DJNZ MJSB,MMM2U
CLR JPP2.5
MMM2T: MOV MJSB,#25;50
;============================================================================x35
MMM2U: JB JPP2.6,MMM2V
JNB ACC.6,MMM2W
DJNZ MJSC,MMM2X
SETB JPP2.6
SJMP MMM2W
MMM2V: JB ACC.6,MMM2W
DJNZ MJSC,MMM2X
CLR JPP2.6
MMM2W: MOV MJSC,#25;50
;============================================================================x36
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -