mirror of
https://github.com/Pecusx/scorch_src.git
synced 2026-05-20 22:33:43 +02:00
RTCLOK fix!
This commit is contained in:
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user