1/***  two parameter variables are accessable:  the just activated
2      cpu_control_pin p (see enum cpu_control_pin {...}) and its value level
3***/
4#ifdef  Z80_CTC
5   if (p == m1)
6      set_ctc_pin(ctc_m1,level);
7   if (p == reset)
8      set_ctc_pin(ctc_reset,level);
9   if (p == iorq  &&  cpu_pin[wr]  &&  is_ctc_port(ADDRESS&255) )
10      set_ctc_pin(ctc_rd,!level);
11#endif
12#ifdef  PORT_BUFFER
13#endif
14#ifdef  SSL_ZDS
15   if (p == m1 && level)
16      trigger_ssl();
17   if (p == reset && level)
18      reset_ssl_trigger();
19   if (p == iorq  &&  cpu_pin[wr]  &&  is_ssl_port(ADDRESS&255)  &&  level)
20      set_ssl_trigger();
21#endif
22