From 6ad0ecdd50ef3f9558a74a40e3c16a05bf0a2e2e Mon Sep 17 00:00:00 2001
From: Pecusx <Pecus@poczta.fm>
Date: Mon, 4 Mar 2024 22:47:38 +0100
Subject: [PATCH] RTCLOK fix!

---
 Atari/lib/ATARISYS.ASM |  2 +-
 game.asm               | 13 +++++++++++--
 2 files changed, 12 insertions(+), 3 deletions(-)

diff --git a/Atari/lib/ATARISYS.ASM b/Atari/lib/ATARISYS.ASM
index 6784f24..3fa62a6 100644
--- a/Atari/lib/ATARISYS.ASM
+++ b/Atari/lib/ATARISYS.ASM
@@ -161,7 +161,7 @@ APPMHI	EQU	$0E	;APPL MEM HI LIMIT
 ;
 POKMSK	EQU	$10	;MASK POKEY IRQ
 BRKKEY	EQU	$11	;BREAK KEY FLAG
-RTCLOK	EQU	$13	;REAL TIME CLOCK (only 2 bytes without $12 !!!)
+RTCLOK	EQU	$12	;REAL TIME CLOCK
 BUFADR	EQU	$15	;INDIRECT BUFF ADDR
 ICCOMT	EQU	$17	;COMMAND FOR VECTOR
 DSKFMS	EQU	$18	;FMS POINTER
diff --git a/game.asm b/game.asm
index 30fdecb..a3c6aae 100644
--- a/game.asm
+++ b/game.asm
@@ -1431,7 +1431,12 @@ FinishResultDisplay
     cmp #@kbcode._none
     bne EndMeter
     ; check timer
+    ; Atari 800 has 3 bytes clock, but 5200 only 2 bytes
+    .IF TARGET = 800
+    LDA RTCLOK+1
+    .ELIF TARGET = 5200
     lda RTCLOK
+    .ENDIF
     cmp #VuMeterTime
     bcc EndMeter
     ; store all angles
@@ -1465,8 +1470,12 @@ Meter
     jsr drawtanknr
 EndMeterAndReset
     lda #0
-;    sta RTCLOK+1
-    sta RTCLOK  ; only older byte
+    ; only older byte
+    .IF TARGET = 800
+    sta RTCLOK+1
+    .ELIF TARGET = 5200
+    sta RTCLOK
+    .ENDIF
 EndMeter
     rts
 .endp