| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115 |
- ORGANIZATION_BLOCK OB 1
- BEGIN
- // Test DB1.DT1 initial values
- AUF DB 1
- LAR1 P#DBX 0.0
- L B [AR1, P#0.0]
- __ASSERT== __ACCU 1, B#16#91
- L B [AR1, P#1.0]
- __ASSERT== __ACCU 1, B#16#02
- L B [AR1, P#2.0]
- __ASSERT== __ACCU 1, B#16#03
- L B [AR1, P#3.0]
- __ASSERT== __ACCU 1, B#16#04
- L B [AR1, P#4.0]
- __ASSERT== __ACCU 1, B#16#05
- L B [AR1, P#5.0]
- __ASSERT== __ACCU 1, B#16#06
- L B [AR1, P#6.0]
- __ASSERT== __ACCU 1, B#16#78
- L B [AR1, P#7.0]
- __ASSERT== __ACCU 1, B#16#91
- // Test DB1.DT2 initial values
- AUF DB 1
- LAR1 P#DBX 8.0
- L B [AR1, P#0.0]
- __ASSERT== __ACCU 1, B#16#10
- L B [AR1, P#1.0]
- __ASSERT== __ACCU 1, B#16#11
- L B [AR1, P#2.0]
- __ASSERT== __ACCU 1, B#16#12
- L B [AR1, P#3.0]
- __ASSERT== __ACCU 1, B#16#13
- L B [AR1, P#4.0]
- __ASSERT== __ACCU 1, B#16#14
- L B [AR1, P#5.0]
- __ASSERT== __ACCU 1, B#16#15
- L B [AR1, P#6.0]
- __ASSERT== __ACCU 1, B#16#16
- L B [AR1, P#7.0]
- __ASSERT== __ACCU 1, B#16#06
- // Test DATE immediates
- L D#1990-1-1
- __ASSERT== __ACCU 1, 0
- L DATE#1990-1-1
- __ASSERT== __ACCU 1, 0
- L D#2000-12-31
- __ASSERT== __ACCU 1, 4017
- L DATE#2000-12-31
- __ASSERT== __ACCU 1, 4017
- L D#2100-12-31
- __ASSERT== __ACCU 1, L#40541
- L DATE#2100-12-31
- __ASSERT== __ACCU 1, L#40541
- L D#2168-12-31
- __ASSERT== __ACCU 1, L#65378
- L DATE#2168-12-31
- __ASSERT== __ACCU 1, L#65378
- // Test DB1.DATEx initial values
- L DB1.DBW 16
- __ASSERT== __ACCU 1, 4017
- L DB1.DBW 18
- __ASSERT== __ACCU 1, L#40541
- // Test TIME_OF_DAY immediates
- L TOD#0:0:0.0
- __ASSERT== __ACCU 1, 0
- L TIME_OF_DAY#0:0:0.0
- __ASSERT== __ACCU 1, 0
- L TOD#13:37:13.37
- __ASSERT== __ACCU 1, L#49033370
- L TIME_OF_DAY#13:37:13.37
- __ASSERT== __ACCU 1, L#49033370
- L TOD#23:59:59.999
- __ASSERT== __ACCU 1, L#86399999
- L TIME_OF_DAY#23:59:59.999
- __ASSERT== __ACCU 1, L#86399999
- // Test DB1.TODx initial values
- L DB1.DBD 20
- __ASSERT== __ACCU 1, L#86399999
- L DB1.DBD 24
- __ASSERT== __ACCU 1, L#49033370
- // Test TIME immediates
- L T#1s100ms
- __ASSERT== __ACCU 1, 1100
- L TIME#1s100ms
- __ASSERT== __ACCU 1, 1100
- L T#-1s100ms
- __ASSERT== __ACCU 1, L#-1100
- CALL SFC 46 // STOP CPU
- END_ORGANIZATION_BLOCK
- DATA_BLOCK DB 1
- STRUCT
- DT1 : DATE_AND_TIME := DT#1990-1-1-0:0:0.0;
- DT2 : DATE_AND_TIME := DT#2010-11-12-13:14:15.16;
- DATE1 : DATE := D#2100-12-31;
- DATE2 : DATE := D#2100-12-31;
- TOD1 : TIME_OF_DAY := TOD#13:37:13.37;
- TOD2 : TIME_OF_DAY := TOD#13:37:13.37;
- END_STRUCT;
- BEGIN
- DT1 := DATE_AND_TIME#1991-2-3-4:5:6.789;
- DATE1 := D#2000-12-31;
- TOD1 := TOD#23:59:59.999;
- END_DATA_BLOCK
|
