mirror of
https://github.com/A2osX/A2osX.git
synced 2024-11-26 13:49:18 +00:00
170 lines
2.9 KiB
Plaintext
170 lines
2.9 KiB
Plaintext
PR#3
|
||
PREFIX /A2OSX.SRC
|
||
NEW
|
||
INC 1
|
||
AUTO 6
|
||
.LIST OFF
|
||
*--------------------------------------
|
||
* GETEVENT :
|
||
* IN :
|
||
* OUT :
|
||
* CS = no event, A = ERROR
|
||
* CC * event in YA
|
||
* (pEvent)
|
||
*--------------------------------------
|
||
K.GetEvents stz pEvent
|
||
stz EVTMGR.COUNT
|
||
|
||
lda VBL get VLINE status
|
||
tax
|
||
eor EVTMGR.VBLSTATE
|
||
bpl K.GetEvents.DEV no change,no tick
|
||
txa
|
||
sta EVTMGR.VBLSTATE save new
|
||
bpl K.GetEvents.DEV Up2down transition,no tick
|
||
|
||
* sta PDLTRIG clr VBL (IIc)
|
||
* lda RDIOUDIS clr VBL (IIc)
|
||
|
||
inc A2osX.TIMER16
|
||
bne .1
|
||
inc A2osX.TIMER16+1
|
||
|
||
.1 dec EVTMGR.HZ.CNT
|
||
bne K.GetEvents.DEV not yet 100ms
|
||
|
||
ldx A2osX.HZ
|
||
stx EVTMGR.HZ.CNT
|
||
|
||
lda #S.EVT.F.T10TH
|
||
|
||
dec EVTMGR.10TH.CNT
|
||
bne .2
|
||
|
||
ldx #10
|
||
stx EVTMGR.10TH.CNT
|
||
|
||
ora #S.EVT.F.T1SEC
|
||
|
||
.2 sta (pEvent)
|
||
|
||
lda pEvent
|
||
clc
|
||
adc #S.EVT
|
||
sta pEvent
|
||
inc EVTMGR.COUNT
|
||
|
||
K.GetEvents.DEV >LDYAI DevMgr.Table
|
||
>STYA pDev
|
||
|
||
stz DevMgr.DevID
|
||
|
||
.1 ldy #S.DEV.F
|
||
lda (pDev),y get S.DEV.F
|
||
bit #S.DEV.F.EVENT
|
||
beq .2 EVENT enabled ?
|
||
|
||
lda (pDev)
|
||
cmp #H.BIN.HEADER.DRV65
|
||
bne *
|
||
|
||
ldx #DEVMGR.GETEVENT
|
||
jsr pDevJmp Call DRV GetEvent function
|
||
bcs .2 no event
|
||
|
||
inc EVTMGR.COUNT
|
||
|
||
ldy #S.EVT.hDEV
|
||
lda DevMgr.DevID
|
||
sta (pEvent),y
|
||
|
||
lda pEvent
|
||
adc #S.EVT cc
|
||
sta pEvent
|
||
|
||
bcs .8 Event Q is full!
|
||
|
||
.2 lda pDev
|
||
clc
|
||
adc #S.DEV.SIZE
|
||
sta pDev
|
||
bcc .3
|
||
inc pDev+1
|
||
|
||
.3 lda DevMgr.DevID
|
||
inc DevMgr.DevID
|
||
cmp DevMgr.LastDevID
|
||
bne .1
|
||
|
||
.8 lda EVTMGR.COUNT
|
||
sta EVTMGR.SIZE
|
||
beq .9
|
||
|
||
clc
|
||
rts
|
||
|
||
.9 sec error code=0,CS=no event
|
||
rts
|
||
*--------------------------------------
|
||
K.GetKeyboardEvent
|
||
lda KBD
|
||
bpl .9
|
||
sta KBDSTROBE
|
||
|
||
and #$7F
|
||
ldy #S.EVT.DATA
|
||
sta (pEvent),y
|
||
iny
|
||
lda OPENAPPLE
|
||
asl
|
||
lda SOLIDAPPLE
|
||
ror
|
||
and #$C0
|
||
sta (pEvent),y
|
||
|
||
lda #S.EVT.F.KEY
|
||
sta (pEvent)
|
||
clc
|
||
rts
|
||
|
||
.9 inc A2osX.RANDOM16
|
||
bne .99
|
||
dec A2osX.RANDOM16+1
|
||
.99 sec no event
|
||
rts
|
||
*--------------------------------------
|
||
K.DestroyEvent lda (pEvent)
|
||
beq .9
|
||
|
||
bit #S.EVT.F.hMEM1
|
||
beq .1
|
||
|
||
pha
|
||
ldy #S.EVT.DATALO
|
||
lda (pEvent),y
|
||
jsr K.FreeMemA
|
||
pla
|
||
|
||
.1 bit #S.EVT.F.hMEM2
|
||
beq .2
|
||
|
||
ldy #S.EVT.DATAHI
|
||
lda (pEvent),y
|
||
jsr K.FreeMemA
|
||
|
||
.2 lda #0
|
||
sta (pEvent)
|
||
dec EVTMGR.COUNT
|
||
.9 rts
|
||
*--------------------------------------
|
||
EVTMGR.VBLSTATE .BS 1
|
||
EVTMGR.10TH.CNT .BS 1
|
||
EVTMGR.HZ.CNT .BS 1
|
||
EVTMGR.COUNT .BS 1
|
||
EVTMGR.SIZE .BS 1
|
||
*--------------------------------------
|
||
MAN
|
||
SAVE SYS/KERNEL.S.EVT
|
||
LOAD SYS/KERNEL.S
|
||
ASM
|