6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-08-14 14:26:27 +00:00
Code Issues Projects Releases Wiki Activity

interrupt flag is cleared/restored rather than cleared/set

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@890 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
izydorst
2001-09-10 22:11:19 +00:00
parent 490e3b8c0f
commit 35f403b702
2 changed files with 10 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
libsrc/geos/mousesprite/mouse.s
View File

@@ -110,6 +110,7 @@ _mouse_pos:
ldy #0 ; Structure offset ldy #0 ; Structure offset
php
sei ; Disable interrupts sei ; Disable interrupts
lda mouseXPos ; Transfer the position lda mouseXPos ; Transfer the position
@@ -124,7 +125,7 @@ _mouse_pos:
iny iny
sta (ptr1),y sta (ptr1),y
cli ; Reenable interrupts plp ; Reenable interrupts
rts ; Done rts ; Done
; -------------------------------------------------------------------------- ; --------------------------------------------------------------------------
@@ -157,13 +158,14 @@ _mouse_info:
_mouse_move: _mouse_move:
jsr popsreg ; Get X jsr popsreg ; Get X
php
sei ; Disable interrupts sei ; Disable interrupts
sta mouseYPos sta mouseYPos
lda sreg lda sreg
ldx sreg+1 ldx sreg+1
sta mouseXPos sta mouseXPos
stx mouseXPos+1 stx mouseXPos+1
cli ; Enable interrupts plp ; Enable interrupts
rts rts
; -------------------------------------------------------------------------- ; --------------------------------------------------------------------------

3
libsrc/geos/system/get_ostype.s
View File

@@ -35,6 +35,8 @@ get_tv:
bne tvmode bne tvmode
only40: ldx #0 ; COLUMNS40 only40: ldx #0 ; COLUMNS40
tvmode: ; PAL/NTSC check here, result in A tvmode: ; PAL/NTSC check here, result in A
php
sei ; disable interrupts
bit rasreg bit rasreg
bpl tvmode ; wait for rasterline 127<x<256 bpl tvmode ; wait for rasterline 127<x<256
lda #24 ; (rasterline now >=256!) lda #24 ; (rasterline now >=256!)
@@ -48,4 +50,5 @@ ntsc: lda #$80 ; NTSC
modeend: stx tmp1 modeend: stx tmp1
ora tmp1 ora tmp1
plp ; restore interrupt state
rts rts