Fixed Oric-1 compatibility #550

2017-12-15 23:51:39 +01:00
parent fa9a1cf2dc
commit 6faef87b49
3 changed files with 211 additions and 14 deletions
--- a/libsrc/atmos/atmos.s
+++ b/libsrc/atmos/atmos.s
@@ -7,9 +7,44 @@

        .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
+        lda     $31
+        bvs     L1      ; Atmos?
+        jmp SHOOT
+L1:     jmp SHOOT1
+.endproc
+
+.proc   _atmos_explode
+        lda     $31
+        bvs     L1      ; Atmos?
+        jmp EXPLODE
+L1:     jmp EXPLODE1
+.endproc
+
+.proc   _atmos_zap
+        lda     $31
+        bvs     L1      ; Atmos?
+        jmp ZAP
+L1:     jmp ZAP1
+.endproc
+
+.proc   _atmos_tick
+        lda     $31
+        bvs     L1      ; Atmos?
+        jmp TICK
+L1:     jmp TICK1
+.endproc
+
+.proc   _atmos_tock
+        lda     $31
+        bvs     L1      ; Atmos?
+        jmp TOCK
+L1:     jmp TOCK1
+.endproc