| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123 |
- ORGANIZATION_BLOCK OB 100
- BEGIN
- // Check if OB-temp writing is enabled
- __FEATURE 1
- L 0
- <>D
- SPB isen
- // Enable OB-temp presets
- __FEATURE 1, 1
- // Reboot
- CALL SFC -2 (
- REBOOT_TYPE := 1
- )
- isen: NOP 0
- END_ORGANIZATION_BLOCK
- ORGANIZATION_BLOCK OB 1
- VAR_TEMP
- OB1_EV_CLASS : BYTE;
- OB1_SCAN_1 : BYTE;
- OB1_PRIORITY : BYTE;
- OB1_OB_NUMBR : BYTE;
- OB1_RESERVED_1 : BYTE;
- OB1_RESERVED_2 : BYTE;
- OB1_PREV_CYCLE : INT;
- OB1_MIN_CYCLE : INT;
- OB1_MAX_CYCLE : INT;
- OB1_DATE_TIME : DATE_AND_TIME;
- END_VAR
- BEGIN
- L #OB1_EV_CLASS
- __ASSERT== __ACCU 1, B#16#11
- L #OB1_SCAN_1
- __ASSERT== __ACCU 1, B#16#03
- L #OB1_PRIORITY
- __ASSERT== __ACCU 1, B#16#01
- L #OB1_OB_NUMBR
- __ASSERT== __ACCU 1, B#16#01
- L #OB1_RESERVED_1
- __ASSERT== __ACCU 1, B#16#00
- L #OB1_RESERVED_2
- __ASSERT== __ACCU 1, B#16#00
- L #OB1_PREV_CYCLE
- __ASSERT<= __ACCU 1, W#16#7FFF
- L #OB1_MIN_CYCLE
- __ASSERT<= __ACCU 1, W#16#7FFF
- L #OB1_MAX_CYCLE
- __ASSERT<= __ACCU 1, W#16#7FFF
- LAR1 P##OB1_DATE_TIME
- L B [AR1, P#0.0] // year
- T MB 0
- CALL FC 1 (BCD_BYTE := MB 0)
- __ASSERT>= MB 0, B#16#13
- L B [AR1, P#1.0] // month
- T MB 0
- CALL FC 1 (BCD_BYTE := MB 0)
- __ASSERT<= MB 0, B#16#12
- L B [AR1, P#2.0] // day
- T MB 0
- CALL FC 1 (BCD_BYTE := MB 0)
- __ASSERT<= MB 0, B#16#31
- L B [AR1, P#3.0] // hour
- T MB 0
- CALL FC 1 (BCD_BYTE := MB 0)
- __ASSERT<= MB 0, B#16#24
- L B [AR1, P#4.0] // minute
- T MB 0
- CALL FC 1 (BCD_BYTE := MB 0)
- __ASSERT<= MB 0, B#16#60
- L B [AR1, P#5.0] // second
- T MB 0
- CALL FC 1 (BCD_BYTE := MB 0)
- __ASSERT<= MB 0, B#16#60
- L B [AR1, P#6.0] // millisecond upper
- T MB 0
- CALL FC 1 (BCD_BYTE := MB 0)
- L B [AR1, P#7.0] // millisecond lower / weekday
- T MB 0
- CALL FC 1 (BCD_BYTE := MB 0)
- L MB 0
- UD DW#16#0000000F
- __ASSERT>= __ACCU 1, 1
- __ASSERT<= __ACCU 1, 7
- __ASSERT<= #OB1_PREV_CYCLE, #OB1_MAX_CYCLE
- __ASSERT>= #OB1_PREV_CYCLE, #OB1_MIN_CYCLE
- __ASSERT>= #OB1_MAX_CYCLE, #OB1_MIN_CYCLE
- CALL SFC 46 // STOP CPU
- END_ORGANIZATION_BLOCK
- FUNCTION FC 1 : VOID
- TITLE = Check whether BCD_BYTE is a valid BCD value
- VAR_INPUT
- BCD_BYTE : BYTE;
- END_VAR
- BEGIN
- L #BCD_BYTE
- UD DW#16#0000000F
- __ASSERT<= __ACCU 1, 9
- L #BCD_BYTE
- SRD 4
- UD DW#16#0000000F
- __ASSERT<= __ACCU 1, 9
- END_FUNCTION
|
