Specifications

© Systeme Lauer GmbH & Co KG • Kelterstr.59 • 72669 Unterensingen • Tel. [phone] • Fax [phone]
D-15
D Buep 19e-Direct driver
;**************************************************************************
; P r o g r a m
;**************************************************************************
1 BX -P0 ; open PCS DB
;**************************************************************************
; Processor reset => INIT
;———————————————————-
PZ: 1
2 U B -P_RI ; start after Halt
3 O B -NEU_RI ; restart
4 SPB -START_KO ; ------>
; no processing in case of timeout and restart input = 0
;—————————————————————————————
PZ: 2
5 UN B -P1 ; timeout ?
6 U B -P3 ; restart ?
7 BEB
; Sync word 2 = Sync word 3 ? yes = end
;————————————————————————————-
8 L W DX4,A
9 L W DX6,B
-NEU_RI SM20.7 RI on power-up or prog. restart
-P0 P0 DB Application db, keys, LED, variable, ...
-P1 P1 E restart input
-P3 P3 M comm. error output
-P_RI SM20.0 Processor RI after every processor Halt
10 VGL W B,A
11 SPZ -NO_AUFTR
12 BA -TEST ; Data word access
;=========================================
; Order processed
-AUFT_END ; <————
; negate sync word and => D2, D3
; —————————————————-
13 L W D6,D ; read order no. D3
14 XO W KFFFH,D ; negate order no.
15 T W D,DX6 ; write order no. D2,D3
16 T W D,DX4
; watch dog
; ——————
; time routine 0 edge for new triggering
; ————————————————————
17 U W -P2,D ; time value
PZ: 3
18 U B -LOGO
19 SE D,-TIMER ; time routine = 0
PZ: 4
20 U B -LOG1 ; reset watchdog flag
21 R B -P3
22 BE ; ————————————————————>
; End order processed
; ========================================
; End order processing
; *******************************************************************
; no order
; -NO_AUFTR ; <——————
23 L W -P2,D ; time value
PZ: 5
24 U B -LOG1
25 SE D,-TIMER
PZ: 6
26 U B -TIMER ; time routine
27 BEI ; ————————————————————>
-LOG0 SM30.3 logical 0
-LOG1 SM31.1 logical 1
-P2 P2 K time value for watch dog
-P3 P3 M comm. error output