RTCLOK fix!

This commit is contained in:
Pecusx
2024-03-04 22:47:38 +01:00
parent f0fb32d405
commit 6ad0ecdd50
2 changed files with 12 additions and 3 deletions
+1 -1
View File
@@ -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
+11 -2
View File
@@ -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