Merge pull request #552 from polluks/master

Added Oric-1 compatibility #550
2017-12-16 18:26:34 +00:00
parent 1a3b0e41f5 afb758bd6c
commit fb193933cb
4 changed files with 250 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