mirror of
https://github.com/sheumann/AFPBridge.git
synced 2024-10-31 09:15:11 +00:00
42 lines
626 B
NASM
42 lines
626 B
NASM
|
case on
|
||
|
|
|
||
|
|
* This is the actual entry point for the CDEV.
|
||
|
|
* We continue to the C code in most cases, but
|
||
|
|
* handle EventsCDEV messages here for performance.
|
||
|
|
cdeventry start
|
||
|
|
lda 12,s ; get message
|
||
|
|
cmp #6 ; is it EventsCDEV?
|
||
|
|
bne continue
|
||
|
|
|
||
|
|
doEvent anop ; handle an EventsCDEV message
|
||
|
|
pla ; move return address
|
||
|
|
sta 9,s
|
||
|
|
pla
|
||
|
|
sta 9,s
|
||
|
|
|
||
|
|
tsc
|
||
|
|
phd
|
||
|
|
tcd
|
||
|
|
ldy #14 ; modifiers field in event structure
|
||
|
|
lda [4],y ; get data1->modifiers & save it away
|
||
|
|
sta >modifiers
|
||
|
|
stz 10 ; result = 0 (necessary?)
|
||
|
|
stz 12
|
||
|
|
pld
|
||
|
|
|
||
|
|
tsc
|
||
|
|
clc
|
||
|
|
adc #6
|
||
|
|
tcs
|
||
|
|
rtl
|
||
|
|
end
|
||
|
|
|
||
|
|
FreeAllCDevMem start
|
||
|
|
pea 0
|
||
|
|
jsl ~DAID
|
||
|
|
rtl
|
||
|
|
end
|
||
|
|
|
||
|
|
continue private
|
||
|
|
end
|