; Update Jiffy Clock
F768 iF768 INC $99 ; Jiffy clock correction: 623rd 1/60 sec does not increment time
F76A LDA $99 ; Jiffy clock correction: 623rd 1/60 sec does not increment time
F76C BNE $F770
F76E INC $9A
F770 iF770 CMP #$6F ; Compare low byte 026F = 623 decimal
F772 BNE $F77A
F774 LDA $9A
F776 CMP #$02 ;026F = 623 decimal
F778 BEQ $F79B
F77A iF77A INC $8F ;Jiffy clock count stored in zero page locations $008D-008F
F77C BNE $F784
F77E INC $8E
F780 BNE $F784
F782 INC $8D ; Real-Time Jiffy Clock (approx) 1/60 Sec
F784 iF784 LDX #$00
F786 iF786 LDA $8D,X ; Real-Time Jiffy Clock (approx) 1/60 Sec
F788 CMP $F7AC,X ; ? DATA
F78B BCC $F7A1
F78D INX
F78E CPX #$03
F790 BNE $F786
F792 LDA #$00
F794 iF794 STA $8C,X
F796 DEX
F797 BNE $F794
F799 BEQ $F7A1
F79B iF79B LDA #$00
F79D STA $99 ; Jiffy clock correction: 623rd 1/60 sec so do not increment time
F79F STA $9A
F7A1 iF7A1 LDA $E812
F7A4 CMP $E812
F7A7 BNE $F7A1
F7A9 STA $9B ; Flag: STOP key / RVS key
F7AB iF7AB RTS