a/trunk/Monarco/Monarco_FB/connector/AfterReadInputs/svnobj b/trunk/Monarco/Monarco_FB/connector/AfterReadInputs/svnobj
1
Gx_l»!0…jüo:ÇNw’Yû$ÙÞSystem.StringL{f8a58466-d7f6-439f-bbb8-d4600e41d099}ImplementationL{3b83b776-fb25-43b8-99f2-3c507c9143fc}TextDocumentL{f3878285-8e4f-490b-bb1b-9acbb7eb04db}TextLinesL{a5de0b0b-1cb5-4913-ac21-9d70293ec00d}    Id
1
Gx_l£!0…jüošBæã®á½$¨9System.StringL{f8a58466-d7f6-439f-bbb8-d4600e41d099}ImplementationL{3b83b776-fb25-43b8-99f2-3c507c9143fc}TextDocumentL{f3878285-8e4f-490b-bb1b-9acbb7eb04db}TextLinesL{a5de0b0b-1cb5-4913-ac21-9d70293ec00d}    Id
2
longTagText
2SUPER^.AfterReadInputs();CASE _iState OF ( 10: //debug counterV      _AfterReadInputs := _AfterReadInputs + 1;:      // determine size of bufferZ      udiBufSize := SIZEOF( THIS^._abyIntTxBuf );      v    (* Sets CRC16 checksum, for Tx byte array [24] and [25]*)X      CRC := THIS^.getCRC( THIS^._abyIntTxBuf );\    THIS^._abyIntTxBuf[24] := WORD_TO_BYTE(CRC);j    THIS^._abyIntTxBuf[25] := WORD_TO_BYTE(SHR(CRC,8));ˆ     IF NOT transfer(pabyTxBuffer:=ADR( THIS^._abyIntTxBuf ), pabyRxBuffer := ADR( tmpRxBuf ),udiLen := udiBufSize, uiDelayus:=0) THEN        // fail&         _iState := 1000;    END_IF    // OK?D    IF THIS^.checkCRC(tmpRxBuf) THEN J       //CRC okay, return the recv buffer!F       THIS^._abyIntRxBuf  := tmpRxBuf;"       #\       // Everything OK, read Digital In Channels;$X         axDInValue[0] := THIS^._abyIntRxBuf[7].0;%X         axDInValue[1] := THIS^._abyIntRxBuf[7].1;&X         axDInValue[2] := THIS^._abyIntRxBuf[7].2;'X         axDInValue[3] := THIS^._abyIntRxBuf[7].3;(      ELSE)R       //CRC not okay, return an empty buffer*&       flush(tmpRxBuf);+END_CASE,Interface-L{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}.8METHOD AfterReadInputs : INT/VAR0†  tmpRxBuf : ARRAY [0..(ParamList.MONARCO_STRUCT_SIZE-1)] OF BYTE;  1< udiBufSize : UDINT;          2   CRC : WORD;3   iDiCh : INT;4END_VARÐÐÐE&ÐÐ  
2
longTagText
2SUPER^.AfterReadInputs();CASE _iState OF ( 10: //debug counterV      _AfterReadInputs := _AfterReadInputs + 1;:      // determine size of bufferZ      udiBufSize := SIZEOF( THIS^._abyIntTxBuf );      v    (* Sets CRC16 checksum, for Tx byte array [24] and [25]*)X      CRC := THIS^.getCRC( THIS^._abyIntTxBuf );\    THIS^._abyIntTxBuf[24] := WORD_TO_BYTE(CRC);j    THIS^._abyIntTxBuf[25] := WORD_TO_BYTE(SHR(CRC,8));ˆ     IF NOT transfer(pabyTxBuffer:=ADR( THIS^._abyIntTxBuf ), pabyRxBuffer := ADR( tmpRxBuf ),udiLen := udiBufSize, uiDelayus:=0) THEN        // fail&         _iState := 1000;    END_IF    // OK?D    IF THIS^.checkCRC(tmpRxBuf) THEN &       // Everything OK!       "J       //CRC okay, return the recv buffer#F       THIS^._abyIntRxBuf  := tmpRxBuf;$8       // set the hardwareconfig%6         HWConfig1 := byHWConfig;&2       // set the controlbyte'L       THIS^.ControlByte := byControlByte;(,         // set the ledmask )h         THIS^.SetUserLEDMask(byLedMask := byUserLedMask);*$         //set the leds +V         THIS^.SetUserLED(byLeds := byUserLeds) ;,>       // Read Digital In Channels;-P       THIS^.getDInByte( byDIN => bDInByte);.>         byDigitalIn.0 := bDInByte.0;/>       byDigitalIn.1 := bDInByte.1;0>       byDigitalIn.2 := bDInByte.2;1>       byDigitalIn.3 := bDInByte.3;2<       // Read Analog In Channels;3ˆ        THIS^.getAInWord(wAIn1 => awAnalogIn[0], wAIn2 => awAnalogIn[1]);4@         // Write Digital Out Channels5Z         THIS^.setDOutByte(byDOut := byDigitalOut);6>       // Write Analog Out Channels7”          THIS^.setAOutWord(wAOut1 :=  awAnalogOut[0], wAOut2 := awAnalogOut[1]);8      ELSE9R       //CRC not okay, return an empty buffer:&       flush(tmpRxBuf);;END_CASE<Interface=L{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}>8METHOD AfterReadInputs : INT?VAR@†  tmpRxBuf : ARRAY [0..(ParamList.MONARCO_STRUCT_SIZE-1)] OF BYTE;  A< udiBufSize : UDINT;          B   CRC : WORD;C   iDiCh : INT;D" bDInByte : BYTE;EEND_VARÐÐÐE?ÐÐ  
3
­=ÚÐ-
ÐÐ  
3
­=ÚÐ-
ÐÐ  
4
­·ÚÐ-ÐÐ  
4
­·ÚÐ-ÐÐ  
5
­ŽÚÐ-ÐÐ  
5
­ŽÚÐ-ÐÐ  
6
­¸ÚÐ-ÐÐ  
6
­úÚÐ-ÐÐ  
7
­¨ÚÐ-ÐÐ  
7
­¨ÚÐ-ÐÐ  
8
­©ÚÐ-ÐÐ  
8
­©ÚÐ-ÐÐ  
9
­äÚÐ-ÐÐ  
9
­äÚÐ-ÐÐ  
10
­ÁÚÐ-ÐÐ  
10
­ÁÚÐ-ÐÐ  
11
­ÂÚÐ-ÐÐ  
11
­ÂÚÐ-ÐÐ  
12
­ÃÚÐ-ÐÐ  
12
­ÃÚÐ-ÐÐ  
13
­ÄÚÐ-ÐÐ  
13
­ÄÚÐ-ÐÐ  
14
­ÅÚÐ-ÐÐ  
14
­ÅÚÐ-ÐÐ  
15
­ÆÚÐ-ÐÐ  
15
­ÆÚÐ-ÐÐ  
16
­ÇÚÐ-ÐÐ  
16
­ÇÚÐ-ÐÐ  
17
­åÚÐ-ÐÐ  
17
­åÚÐ-ÐÐ  
18
­ÑÚÐ-ÐÐ  
18
­ÑÚÐ-ÐÐ  
19
­ÒÚÐ-ÐÐ  
19
­ÒÚÐ-ÐÐ  
20
­ÔÚÐ-ÐÐ  
20
­ÔÚÐ-ÐÐ  
21
­ÕÚÐ-ÐÐ  
21
­ÕÚÐ-ÐÐ  
22
­÷ÚÐ-ÐÐ  
22
­÷ÚÐ-ÐÐ  
23
­ÖÚÐ-ÐÐ  
23
­ÖÚÐ-ÐÐ  
24
­×ÚÐ-ÐÐ  
24
­×ÚÐ-ÐÐ  
25
­ØÚÐ- ÐÐ  
25
­ÚÐ- ÐÐ  
26
­ÙÚÐ-!ÐÐ  
26
­ÚÐ-!ÐÐ  
27
­æÚÐ-"ÐÐ  
27
­ØÚÐ-"ÐÐ  
28
­çÚÐ-#ÐÐ  
28
­ÙÚÐ-#ÐÐ  
29
­ìÚÐ-$ÐÐ  
29
­ÚÐ-!ÐÐ  
30
­ôÚÐ-%ÐÐ  
30
­ ÚÐ-$ÐÐ  
31
­õÚÐ-&ÐÐ  
31
­ÚÐ-%ÐÐ  
32
­öÚÐ-'ÐÐ  
32
­æÚÐ-!ÐÐ  
33
­øÚÐ-"ÐÐ  
33
­ÚÐ-&ÐÐ  
34
­ÛÚÐ-(ÐÐ  
34
­ÚÐ-'ÐÐ  
35
­ÜÚÐ-)ÐÐ  
35
­ÚÐ-ÐÐ  
36
­ÝÚÐ-*ÐÐ  
36
­ÚÐ-(ÐÐ  
37
­ÞÚÐ-!ÐÐ  
37
­ÚÐ-)ÐÐ  
38
­àÚÐ-ÐÐ  
38
­ÚÐ-!ÐÐ  
39
­«ÚÐ-ÐÐ  
39
­ÚÐ-*ÐÐ  
40
­¢ÚÐ-+Ð,-ÐEÐÐ    
40
­ÚÐ-+ÐÐ  
41
­ÚÐ-.ÐÐ  
41
­ÚÐ-!ÐÐ  
42
­:ÚÐ-/ÐÐ  
42
­ÚÐ-,ÐÐ  
43
­áÚÐ-0ÐÐ  
43
­ÚÐ--ÐÐ  
44
­âÚÐ-1ÐÐ  
44
­ìÚÐ-.ÐÐ  
45
­›ÚÐ-2ÐÐ  
45
­ôÚÐ-/ÐÐ  
46
­óÚÐ-3ÐÐ  
46
­õÚÐ-0ÐÐ  
47
­ÚÐ-4
47
­öÚÐ-1ÐÐ  
48
­ýÚÐ-!ÐÐ  
49
­ÚÐ-2ÐÐ  
50
­ÚÐ-3ÐÐ  
51
­ÚÐ-ÐÐ  
52
­þÚÐ-4ÐÐ  
53
­ÚÐ-5ÐÐ  
54
­
ÚÐ-!ÐÐ    
55
­ÚÐ-6ÐÐ  
56
­ÚÐ-7ÐÐ  
57
­   ÚÐ-ÐÐ    
58
­
59
ÚÐ-!ÐÐ    
60
­ÛÚÐ-8ÐÐ  
61
­ÜÚÐ-9ÐÐ  
62
­ÝÚÐ-:ÐÐ  
63
­ÞÚÐ-#ÐÐ  
64
­ûÚÐ-ÐÐ  
65
­üÚÐ-ÐÐ  
66
­àÚÐ-;Ð<=ÐE   ÐÐ  
67
­ÚÐ->ÐÐ  
68
­:ÚÐ-?ÐÐ  
69
­áÚÐ-@ÐÐ  
70
­âÚÐ-AÐÐ  
71
­›ÚÐ-BÐÐ  
72
­óÚÐ-CÐÐ  
73
­ÚÐ-DÐÐ  
74
­ÚÐ-ÐÐ  
75
­ÚÐ-E