6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2025-01-10 06:30:41 +00:00
Code Issues Projects Releases Wiki Activity

Clen mouse init up

Browse Source
This commit is contained in:
David Schmenk 2018-04-27 19:36:01 -07:00
parent 3eb62ead0d
commit d52bf07344
1 changed files with 13 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -92,44 +92,21 @@ export asm readMouse#3
PLP PLP
RTS RTS
end end
export def mouseInit
byte params[4]
if rom
//
// Hook mouse IRQ handler into ProDOS IRQ chain
//
puts("serviceMouse @ $"); puth(@serviceMouse); putln
params.0 = 2
params.1 = 0
params:2 = @serviceMouse
syscall($40, @params)
call(initMouseFW, $00, slot, page, $04)
call(setMouseFW, $07, slot, page, $04)
return 0
fin
return -1
end
def printmouse#0
word x, y
byte stat
while ^$C000 < 128
x, y, stat = readMouse
^$24 = ^$20
puti(x); puts(", ")
puti(y); puts(", $")
putb(stat); puts(" ")
loop
^$C010
end
// //
// Identify Mouse card/slot and initialize // Identify Mouse card/slot and initialize
// //
for rom = $C100 to $C700 step $0100 for rom = $C100 to $C700 step $0100
if rom->5 == $38 and rom->7 == $18 and rom->11 == $01 and rom->12 == $20 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
// //
// Fix-up IRQ routine // Hook mouse IRQ handler into ProDOS IRQ chain
//
params.0 = 2
params.1 = 0
params:2 = @serviceMouse
syscall($40, @params)
//
// Set values
// //
slot = rom >> 8 slot = rom >> 8
index = slot & $07 index = slot & $07
@ -148,15 +125,16 @@ for rom = $C100 to $C700 step $0100
clampMouseFW = rom + rom->$17 clampMouseFW = rom + rom->$17
homeMouseFW = rom + rom->$18 homeMouseFW = rom + rom->$18
initMouseFW = rom + rom->$19 initMouseFW = rom + rom->$19
//
// Fix-up IRQ routine
//
serviceMouse:2 = serveMouseFW serviceMouse:2 = serveMouseFW
serviceMouse:7 = statMouse serviceMouse:7 = statMouse
updateMouse.1 = slot updateMouse.1 = slot
updateMouse.3 = page updateMouse.3 = page
updateMouse:5 = readMouseFW updateMouse:5 = readMouseFW
readMouse.1 = index readMouse.1 = index
puts("Found Mouse in slot #"); putc('0' + ((rom >> 8) & $07)); putln call(initMouseFW, $00, slot, page, $04)
mouseInit
printmouse
return modkeep return modkeep
fin fin
next next