// Clocks clock VVI_TIME; clock VVT_TIME; clock AVI_A_TIME; clock AVI_V_TIME; clock HEART_TIME; clock PROGRAMMER_TIME; // Channels encoding Events chan commandedOn; chan commandedOff; chan toIdle; chan toInhibited; chan toTriggered; chan toAVI; chan APace; chan VPace; chan AVI_Refractory_Done; chan AVI_APace; chan AVI_APace_Done; chan AVI_Sense_from_V; urgent chan VentricularChamberSense; //urgent chan AtrialChamberSense; // nobody is listening urgent chan EnablePaceElectronics; urgent chan DisablePaceElectronics; // user interactions: Heart urgent chan stopHeartBeat; urgent chan startHeartBeat; // diagnostic int[0,1] wasSwitchedOff; // ------------------------------ Auxiallry: // anybody listening to VentricularChamberSense? int[0,1] V_listening; int[0,1] A_LISTENING_TO_V; // -- Constant Parameters ------------------------------ const REFRACTORY_TIME 50; const SENSE_TIMEOUT 15; const HEART_DELAY_AFTER_V_CONTRACTION 50; const HEART_DELAY_AFTER_A_CONTRACTION 5; const HEART_ALLOWED_STOP_TIME 135; const MODE_SWITCH_DELAY 66; // ---------------------------------------------------------------------- const ALLOW_SWITCH_OFF 1; pacemaker := Pacemaker(); heart_sim := Heart(); programmer_sim := Programmer(); system pacemaker, programmer_sim, heart_sim;