blob: c27162a1f9c75512435b4a148aa623842bc48912 (
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.
AUF DB1
AUF DI1
SET
= E0.1
= A0.1
= M0.1
= L0.1
= DBX0.0
= DIX0.0
L 100
T EB0
T EW0
T ED0
T AB0
T AW0
T AD0
T LB0
T LW0
T LD0
T MB0
T MW0
T MD0
T DBB0
T DBW0
T DBD0
T DIB0
T DIW0
T DID0
U T0
= M0.0
U Z0
= 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
|