NMI friendly c64-hi

Don't clear all vectors, see #639.

diff --git a/libsrc/c64/tgi/c64-hi.s b/libsrc/c64/tgi/c64-hi.s
index aeb334404130c4c472a9fcc47ed6cb987cf5462c..fd7a25478e731ff15cc15324d56cb6f719ebaf17 100644 (file)
--- a/libsrc/c64/tgi/c64-hi.s
+++ b/libsrc/c64/tgi/c64-hi.s
@@ -131,7 +131,7 @@ VBASE           := $E000                ; Video memory base address
 ;
 
 INSTALL:
-        rts
+;       rts                     ; fall through
 
 
 ; ------------------------------------------------------------------------
@@ -272,9 +272,12 @@ CLEAR:  ldy     #$00
         sta     VBASE+$1C00,y
         sta     VBASE+$1D00,y
         sta     VBASE+$1E00,y
-        sta     VBASE+$1F00,y
         iny
         bne     @L1
+@L2:    sta     VBASE+$1F00,y
+        iny
+        cpy     #$40
+        bne     @L2
         rts
 
 ; ------------------------------------------------------------------------
@@ -285,7 +288,7 @@ CLEAR:  ldy     #$00
 ;
 
 SETVIEWPAGE:
-        rts
+;       rts                     ; fall through
 
 ; ------------------------------------------------------------------------
 ; SETDRAWPAGE: Set the drawable page. Called with the new page in A (0..n).