.include "atmos.inc"
-_atmos_ping := PING
-_atmos_shoot := SHOOT
-_atmos_explode := EXPLODE
-_atmos_zap := ZAP
-_atmos_tick := TICK
-_atmos_tock := TOCK
+.proc _atmos_ping
+ bit $31
+ bvs L1 ; Atmos?
+ jmp PING
+L1: jmp PING1
+.endproc
+
+.proc _atmos_shoot
+ bit $31
+ bvs L1 ; Atmos?
+ jmp SHOOT
+L1: jmp SHOOT1
+.endproc
+
+.proc _atmos_explode
+ bit $31
+ bvs L1 ; Atmos?
+ jmp EXPLODE
+L1: jmp EXPLODE1
+.endproc
+
+.proc _atmos_zap
+ bit $31
+ bvs L1 ; Atmos?
+ jmp ZAP
+L1: jmp ZAP1
+.endproc
+
+.proc _atmos_tick
+ bit $31
+ bvs L1 ; Atmos?
+ jmp TICK
+L1: jmp TICK1
+.endproc
+
+.proc _atmos_tock
+ bit $31
+ bvs L1 ; Atmos?
+ jmp TOCK
+L1: jmp TOCK1
+.endproc