diff --git a/SYS/KERNEL.S.DEV.txt b/SYS/KERNEL.S.DEV.txt
index dff00d8a..4e13bc93 100644
--- a/SYS/KERNEL.S.DEV.txt
+++ b/SYS/KERNEL.S.DEV.txt
@@ -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
 
diff --git a/SYS/KERNEL.S.EVT.txt b/SYS/KERNEL.S.EVT.txt
index 8259d102..604770a0 100644
--- a/SYS/KERNEL.S.EVT.txt
+++ b/SYS/KERNEL.S.EVT.txt
@@ -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
 *--------------------------------------
diff --git a/SYS/KERNEL.S.txt b/SYS/KERNEL.S.txt
index 7f6cbb19..860c00e1 100644
--- a/SYS/KERNEL.S.txt
+++ b/SYS/KERNEL.S.txt
@@ -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