Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2025-02-18 00:30:40 +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 .9 lda #DEVMGR.ERRDNF
rts rts
*-------------------------------------- *--------------------------------------
S.GetDevInfoA jsr S.GetDevByIDA
bcs .9
>STYA ZPQuickPtr1
ldx #DEVMGR.GETINFO
jmp (ZPQuickPtr1)
.9 rts
*--------------------------------------
S.GetDevEvent >LDYAI DevMgr.Table S.GetDevEvent >LDYAI DevMgr.Table
>STYA pDev >STYA pDev

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

@ -7,7 +7,15 @@ AUTO 6
*-------------------------------------- *--------------------------------------
* S.EvtMgrInit * 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 clc
rts rts
*-------------------------------------- *--------------------------------------
@ -58,7 +66,9 @@ S.GetSysEvent lda VBL get VLINE status
clc clc
rts 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 sec no event
rts rts
*-------------------------------------- *--------------------------------------

2
SYS/KERNEL.S.txt
View File

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