File tree Expand file tree Collapse file tree 4 files changed +13
-11
lines changed Expand file tree Collapse file tree 4 files changed +13
-11
lines changed Original file line number Diff line number Diff line change @@ -6710,10 +6710,6 @@ HB_TICK1:
6710
6710
; PULSE WATCHDOG
6711
6711
OUT (WDOGIO) , A ; VALUE IS IRRELEVANT
6712
6712
#ENDIF
6713
- ;
6714
- #IF MKYENABLE
6715
- CALL MKY_INT
6716
- #ENDIF
6717
6713
;
6718
6714
OR $ FF ; NZ SET TO INDICATE INT HANDLED
6719
6715
RET
Original file line number Diff line number Diff line change @@ -216,6 +216,14 @@ MKY_INIT:
216
216
LD A , 64 ; CAPS OFF
217
217
EZ80_IO
218
218
OUT (MKY_REGC) , A
219
+
220
+ ; INSTALL INTERRUPT HANDLER
221
+ LD HL , (VEC_TICK + 1 )
222
+ LD (VEC_TICK_MKY + 1 ) , HL
223
+
224
+ LD HL , MKY_INT
225
+ LD (VEC_TICK + 1 ) , HL
226
+
219
227
RET
220
228
;
221
229
;__________________________________________________________________________________________________
@@ -739,7 +747,7 @@ MKY_INTSCAN1:
739
747
LD A , (MKY_SCNCNT) ; SCAN THE KEYBOARD EVERY 'SCAN_INT_PERIOD' INTERRUPTS.
740
748
DEC A
741
749
LD (MKY_SCNCNT) , A
742
- RET NZ
750
+ JR NZ , VEC_TICK_MKY
743
751
744
752
LD A , SCAN_INT_PERIOD
745
753
LD (MKY_SCNCNT) , A
@@ -765,7 +773,9 @@ MKY_SCAN_LP:
765
773
766
774
LD A , $ FF ; NOTE THAT A SCAN HAS BEEN DONE
767
775
LD (MKY_SCANNED) , A
768
- RET
776
+
777
+ VEC_TICK_MKY:
778
+ JP HB_TICK
769
779
770
780
;
771
781
;__________________________________________________________________________________________________
Original file line number Diff line number Diff line change @@ -680,7 +680,7 @@ SYSTIM .SET TM_Z280
680
680
#ENDIF
681
681
;
682
682
#IF (CPUFAM == CPU_EZ80)
683
- #IF (EZ80TIMER == EZ80TMR_INT))
683
+ #IF (EZ80TIMER == EZ80TMR_INT)
684
684
SYSTIM .SET TM_EZ80
685
685
SYSECHO " EZ80"
686
686
#ENDIF
Original file line number Diff line number Diff line change @@ -1141,10 +1141,6 @@ TMS_TSTINT:
1141
1141
1142
1142
TMS_INTHNDL:
1143
1143
1144
- #IF (TMSKBD == TMSKBD_MKY)
1145
- CALL MKY_INT
1146
- #ENDIF
1147
-
1148
1144
CALL HB_TIMINT ; RETURN NZ - HANDLED
1149
1145
OR $ FF
1150
1146
RET
You can’t perform that action at this time.
0 commit comments