sfc64.awl 359 B

1234567891011121314151617181920212223
  1. ORGANIZATION_BLOCK OB 1
  2. BEGIN
  3. // Test SFC 64: TIME_TCK
  4. CALL SFC 64 (
  5. RET_VAL := MD 0
  6. )
  7. __ASSERT== __STW BIE, 1
  8. __SLEEP 100
  9. CALL SFC 64 (
  10. RET_VAL := MD 4
  11. )
  12. __ASSERT== __STW BIE, 1
  13. L MD 4
  14. L MD 0
  15. -D
  16. UD DW#16#7FFFFFFF
  17. __ASSERT> __ACCU 1, 50
  18. __ASSERT< __ACCU 1, 500
  19. CALL SFC 46 // STOP CPU
  20. END_ORGANIZATION_BLOCK