Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-11-25 20:33:13 +00:00
Code Issues Projects Releases Wiki Activity

Added GetDevInfoA API Call

Browse Source
This commit is contained in:
Rémy GIBERT 2016-02-24 20:52:24 +01:00
parent fd4e14d57f
commit 889c503c16
3 changed files with 21 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
SYS/KERNEL.S.DEV.txt
View File

@ -110,6 +110,14 @@ S.GetDevByNameYA
.9 lda #DEVMGR.ERRDNF
rts
*--------------------------------------
S.GetDevInfoA jsr S.GetDevByIDA
bcs .9
>STYA ZPQuickPtr1
ldx #DEVMGR.GETINFO
jmp (ZPQuickPtr1)
.9 rts
*--------------------------------------
S.GetDevEvent >LDYAI DevMgr.Table
>STYA pDev

14
SYS/KERNEL.S.EVT.txt
View File

@ -7,7 +7,15 @@ AUTO 6
*--------------------------------------
* S.EvtMgrInit
*--------------------------------------
S.EvtMgrInit stz EVTMGR.PENDING
S.EvtMgrInit lda MACHID
and #MACHID.TYPE
cmp #MACHID.TYPE.IIc
bne .8
* sta CLRIOUDIS
* sta ENBVBLIIC
.8 stz EVTMGR.PENDING
clc
rts
*--------------------------------------
@ -58,7 +66,9 @@ S.GetSysEvent lda VBL get VLINE status
clc
rts
.9 lda #0 error code=0
.9 sta PDLTRIG clr VBL (IIc)
* lda RDIOUDIS clr VBL (IIc)
lda #0 error code=0
sec no event
rts
*--------------------------------------

2
SYS/KERNEL.S.txt
View File

@ -103,7 +103,7 @@ ZPQuickPtr4 .EQ $6
.DA S.GetDevByIDA $80
.DA S.GetDevByNameA
.DA S.GetDevByNameYA
.DA 0
.DA S.GetDevInfoA
.DA S.GetKeyboardEvent
.DA 0