1機器程序

2.1 主程序
MAIN：
NOP
CALL JOB:ORG
*1
JUMP *5 IF IN#(41)=OFF
CALL JOB:遠程 IF IN#(25)=ON
CALL JOB:本地 IF IN#(26)=ON
CALL JOB:測距判斷
CALL JOB:最后一支
*5
CALL JOB:PZ IF IN#(35)=ON
CALL JOB:PZ IF IN#(65)=ON
JUMP *1
END

1.2 本地程序
1、本地：
NOP
CALL JOB:分步 IF IN#(22)=ON
CALL JOB:單循環 IF IN#(23)=ON
END
2、分步：
NOP
CALL JOB:裝CW槍頭 IF IN#(28)=ON
CALL JOB:裝DY槍頭 IF IN#(29)=ON
CALL JOB:裝QY槍頭 IF IN#(27)=ON
CALL JOB:下槍2 IF IN#(31)=ON
CALL JOB:下槍1 IF IN#(32)=ON
END
3、單循環：
NOP
CALL JOB:測溫 IF IN#(28)=ON
CALL JOB:定Y IF IN#(29)=ON
CALL JOB:取Y IF IN#(27)=ON
END

1.3 遠程程序
1、遠程：
NOP
CALL JOB:PC-手動 IF IN#(73)=ON
CALL JOB:PC-自動 IF IN#(74)=ON
END
2、PC-手動：
NOP
JUMP JOB:裝CW槍頭 IF IN#(60)=ON
JUMP JOB:裝DY槍頭 IF IN#(61)=ON
JUMP JOB:裝QY槍頭 IF IN#(62)=ON
JUMP JOB:下槍1 IF IN#(63)=ON
JUMP JOB:下槍2 IF IN#(64)=ON
END
3、PC-自動：
NOP
CALL JOB:測溫 IF IN#(60)=ON
CALL JOB:定Y IF IN#(61)=ON
CALL JOB:取Y IF IN#(62)=ON
END

1.4 其他程序
1、ORG：
NOP
SET B040 0
SET B041 0
SET B042 0
SET B043 0
DOUT OT#(56) OFF
DOUT OT#(148) OFF
DOUT OT#(149) OFF
DOUT OT#(150) OFF
DOUT OT#(145) OFF
DOUT OT#(146) OFF
DOUT OT#(147) OFF
DOUT OT#(233) OFF
DOUT OT#(234) OFF
DOUT OT#(235) OFF
DOUT OT#(25) OFF
DOUT OT#(26) OFF
DOUT OT#(27) OFF
DOUT OT#(29) OFF
DOUT OT#(30) OFF
DOUT OT#(51) OFF
DOUT OT#(52) OFF
DOUT OT#(53) OFF
END
2、測距判斷
NOP
JUMP *CJ IF D011<-600000
JUMP *CJ IF D012>600000
JUMP *CJ0 IF D011=0
JUMP *CJ0 IF D012=0
JUMP *CJ0 IF IN#(82)=ON
JUMP *CJEND
*CJ
JUMP *CJEND IF D011<-800000
JUMP *CJEND IF D012>800000
DOUT OT#(73) ON
JUMP *CJEND1
*CJ0
DOUT OT#(73) OFF
JUMP *CJEND1
*CJEND1
*CJEND
END
3、最后一支
NOP
JUMP *L1 IF B003=40
JUMP *L2 IF B013=48
JUMP *L3 IF B023=32
JUMP *L4
*L1
DOUT OT#(147) ON
JUMP *L4
*L2
DOUT OT#(145) ON
JUMP *L4
*L3
DOUT OT#(146) ON
*L4
END
4、裝CW槍頭：
NOP
JUMP *21 IF B050=1
DOUT OT#(26) ON
DOUT OT#(51) ON
CALL JOB:測溫彈倉
CALL JOB:測溫裝槍
SET B052 1
TIMER T=0.20
DOUT OT#(51) OFF
DOUT OT#(26) OFF
SET B050 1
TIMER T=0.50
*21
END
5、裝DY槍頭：
NOP
JUMP *22 IF B050=1
DOUT OT#(27) ON
DOUT OT#(52) ON
CALL JOB:定y彈倉
CALL JOB:定Y裝槍
SET B052 2
DOUT OT#(52) OFF
DOUT OT#(27) OFF
TIMER T=0.20
SET B050 1
TIMER T=0.50
*22
END
6、裝QY槍頭：
NOP
JUMP *23 IF B051=1
DOUT OT#(25) ON
DOUT OT#(53) ON
CALL JOB:取Y彈倉
CALL JOB:取Y裝槍
TIMER T=0.20
DOUT OT#(53) OFF
DOUT OT#(25) OFF
TIMER T=0.20
SET B051 1
TIMER T=0.50
*23
END
7、下槍1：
NOP
JUMP *25 IF B051=0
DOUT OT#(30) ON
DOUT OT#(61) ON
TIMER T=0.20
CALL JOB:QY-X-X
DOUT OT#(61) OFF
DOUT OT#(30) OFF
TIMER T=0.20
SET B051 0
TIMER T=0.50
*25
END
8、下槍2：
NOP
JUMP *24 IF B050=0
JUMP *24 IF B052>2
JUMP *24 IF B052=0
DOUT OT#(29) ON
DOUT OT#(62) ON
JUMP *241 IF B052=1
JUMP *242 IF B052=2
*241
CALL JOB:CW-X-X
SET B052 0
TIMER T=0.50
JUMP *240
*242
CALL JOB:DY-X-X
SET B052 0
TIMER T=0.50
*240
TIMER T=0.20
DOUT OT#(62) OFF
DOUT OT#(29) OFF
TIMER T=0.20
SET B050 0
TIMER T=0.50
*24
END
9、測溫：
NOP
DOUT OT#(26) ON
DOUT OT#(51) ON
CALL JOB:裝CW槍頭
TIMER T=0.30
CALL JOB:下槍2
DOUT OT#(51) OFF
DOUT OT#(26) OFF
END
10、定Y：
NOP
DOUT OT#(27) ON
DOUT OT#(52) ON
CALL JOB:裝DY槍頭
TIMER T=0.30
CALL JOB:下槍2
DOUT OT#(52) OFF
DOUT OT#(27) OFF
END
11、取Y：
NOP
DOUT OT#(25) ON
DOUT OT#(53) ON
CALL JOB:裝QY槍頭
TIMER T=0.30
CALL JOB:下槍1
DOUT OT#(53) OFF
DOUT OT#(25) OFF
END