interrupt flag is cleared/restored rather than cleared/set

git-svn-id: svn://svn.cc65.org/cc65/trunk@890 b7a2c559-68d2-44c3-8de9-860c34a00d81
2001-09-10 22:11:19 +00:00
parent 490e3b8c0f
commit 35f403b702
2 changed files with 10 additions and 5 deletions
--- a/libsrc/geos/system/get_ostype.s
+++ b/libsrc/geos/system/get_ostype.s
@@ -35,7 +35,9 @@ get_tv:
 	    bne tvmode
 only40:	    ldx #0			; COLUMNS40
 tvmode:					; PAL/NTSC check here, result in A
-	    bit rasreg
+            php
+	    sei                         ; disable interrupts
+            bit rasreg
 	    bpl tvmode			; wait for rasterline  127<x<256
 	    lda #24			; (rasterline now >=256!)
 modelp:	    cmp rasreg			; wait for rasterline = 24 (or 280 on PAL)
@@ -48,4 +50,5 @@ ntsc:	    lda #$80			; NTSC

 modeend:    stx tmp1
 	    ora tmp1
+	    plp                         ; restore interrupt state
 	    rts