blob: e3ede94c7bed82bedfc6943da5a6da2ad0e47506 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
|
ORGANIZATION_BLOCK OB 1
BEGIN
// Test parsing of convenience operators.
// Convenience operators are certain operators with missing white space.
OPN DB1
OPN DI1
SET
= I0.1
= Q0.1
= M0.1
= L0.1
= DBX0.0
= DIX0.0
L 100
T IB0
T IW0
T ID0
T QB0
T QW0
T QD0
T LB0
T LW0
T LD0
T MB0
T MW0
T MD0
T DBB0
T DBW0
T DBD0
T DIB0
T DIW0
T DID0
A T0
= M0.0
A C0
= M0.0
L P#I0.1
L P#Q0.1
L P#M0.1
L P#L0.1
L P#P0.1
L P#DBX0.0
L P#DIX0.0
CALL SFC 46 // STOP CPU
END_ORGANIZATION_BLOCK
DATA_BLOCK DB 1
STRUCT
VARIABLE : DWORD;
END_STRUCT;
BEGIN
VARIABLE := DW#16#1;
END_DATA_BLOCK
|
