license
ram_variable %dig0_interrupts
#interrupt4 3 ??=
interrupt: digital_int0
panic" in digital_int0"
zero _breg_int_reset_digital0 C!
1 %dig0_interrupts +!
\ #interrupt4 _set_new_task_level
\ TRUE [ TSK3 ]T LITERAL _#level_head_restart_flag + W!
;interrupt
ram_variable %dig1_interrupts
#interrupt3 4 ??=
interrupt: digital_int1 ( --)
panic" in digital_int1"
zero _breg_int_reset_digital1 C!
1 %dig1_interrupts +!
\ #interrupt3 _set_new_task_level
\ TRUE [ TSK4 ]T LITERAL _#level_head_restart_flag + W!
;interrupt
ram_variable %aclow_interrupts
interrupt: aclow ( --)
panic" in aclow"
zero _breg_int_reset_aclow C!
1 %aclow_interrupts +!
;interrupt
ram_variable %sysfail_interrupts
interrupt: sys_fail ( --)
panic" in sys_fail"
zero _breg_int_reset_sys_fail C!
1 %sysfail_interrupts +!
;interrupt
ram_variable %remote_io_interrupts
interrupt: remote_io ( --)
panic" in remote_io"
zero _breg_int_reset_remote_i/o C!
1 %remote_io_interrupts +!
;interrupt