Axiomatic Specifications:VDM Clock - 2
SETALARMTIME(new_time: N)
ext wr alarm_time: N, bell: {quiet, ringing}
rd time: N, alarm: {disabled, enabled}
post (alarm_time????new_time) ? (if (alarm_time? = time?) ? (alarm? = enabled)then (bell? = ringing) else (bell? = bell)
ext wr alarm: {disabled, enabled}, bell: {quiet, ringing}
rd time: N, alarm_time: N
post (alarm? = enabled) ? (if (alarm_time? = time?) then (bell? = ringing) else (bell? = bell)
ext wr alarm: {disabled, enabled}, bell: {quiet, ringing}
post (alarm? = disabled) ? (bell? = quiet)