blob: aa03e89914f2b25bbb18209a10dfa2218c9dde79 (
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.
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
L P#E0.1
L P#A0.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
|
