6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2025-01-24 20:31:12 +00:00
Code Issues Projects Releases Wiki Activity

Functional mouse API

Browse Source
This commit is contained in:
David Schmenk 2018-04-28 18:43:57 -07:00
parent 78a068e6d2
commit 3d44c8533b
3 changed files with 19 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/inc/mouse.plh
View File

@ -14,11 +14,12 @@ import mouse
const VBL_INT_ENABLE = $08
const BUTTON_INT_ENABLE= $04
const MOVE_INT_ENABLE = $02
const MOUSE_ENABLE = $01
//
// Mouse API
//
struc t_mouse
word chkVbl
word chkVBL
word chkMouse
word readMouse // readMouse()#3
word setMouse // setMouse(mode)

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

@ -47,13 +47,12 @@ end
asm chkEvt(addr)
LDA ESTKL,X
STA ESTKH-1,X
PHP
SEI
LDA (ESTKH-1,X) ; READ INT COUNT
TAY
LDA #$00
STA (ESTKH-1,X) ; CLEAR INT COUNT
PLP
CLI
STY ESTKL,X ; RETURN INT COUNT
STA ESTKH,X
RTS
@ -159,7 +158,6 @@ 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
//

20
src/samplesrc/mousetest.pla
View File

@ -1,11 +1,23 @@
include "inc/cmdsys.plh"
include "inc/conio.plh"
include "inc/mouse.plh"
var count
var xPos, yPos, bttn
Mouse:setMouse(VBL_INT_ENABLE)
while count < 100 and ^$C000 < 128
count = count + Mouse:chkVBL()
puti(count); putln
Mouse:clampMouse(0, 39, 0, 23)
//Mouse:setMouse(VBL_INT_ENABLE|MOVE_INT_ENABLE|BUTTON_INT_ENABLE|MOUSE_ENABLE)
Mouse:setMouse(MOVE_INT_ENABLE|BUTTON_INT_ENABLE|MOUSE_ENABLE)
while ^$C000 < 128
if Mouse:chkMouse()
conio:gotoxy(xPos, yPos); putc(' ')
xPos, yPos, bttn = Mouse:readMouse()#3
conio:gotoxy(xPos, yPos); putc(bttn & BUTTON_DOWN ?? '+' :: '^')
fin
if Mouse:chkVBL()
^$400++
fin
loop
getc
Mouse:detachMouse()
done