blob: a76e9c03fdccd88d92fed4bec592aff248aec8ec (
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
|
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
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
|