6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2024-07-08 09:28:57 +00:00
Code Issues Projects Releases Wiki Activity

fix addres of int counters

Browse Source
This commit is contained in:
David Schmenk 2018-04-28 17:11:12 -07:00
parent 3db676c5dd
commit 78a068e6d2
2 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/libsrc/apple/mouse.pla
View File

@ -159,6 +159,7 @@ end
for rom = $C100 to $C700 step $0100
if rom->5 == $38 and rom->7 == $18 and rom->11 == $01 and rom->12 == $20
puts("Found Mouse in slot #"); putc('0' + ((rom >> 8) & $07)); putln
puts("Service IRQ: $"); puth(@serviceMouse); putln
//
// Hook mouse IRQ handler into ProDOS IRQ chain
//
@ -178,8 +179,8 @@ for rom = $C100 to $C700 step $0100
//
serviceMouse:2 = rom + rom->$13 // serveMouseFW
serviceMouse:7 = $0778+index
vblEvent.1 = @vblInt
mouseEvent.1 = @mouInt
vblEvent:1 = @vblInt
mouseEvent:1 = @mouInt
updateMouse.1 = slot
updateMouse.3 = page
updateMouse:5 = rom + rom->$14 // readMouseFW

6
src/samplesrc/mousetest.pla
View File

@ -3,9 +3,9 @@ include "inc/mouse.plh"
var count
mouse:setmouse(VBL_INT_ENABLE)
while count < 100
count = count + mouse:chkVBL()
Mouse:setMouse(VBL_INT_ENABLE)
while count < 100 and ^$C000 < 128
count = count + Mouse:chkVBL()
puti(count); putln
loop
done