diff --git a/recipes/sms/glue.asm b/recipes/sms/glue.asm
index b14f872..49965cf 100644
--- a/recipes/sms/glue.asm
+++ b/recipes/sms/glue.asm
@@ -33,54 +33,16 @@ init:
 
 	call	padInit
 	call	vdpInit
+	ld	hl, padUpdateSel
+	ld	(VDP_CHRSELHOOK), hl
 
-	ld	hl, myGetC
+	ld	hl, padGetC
 	ld	de, vdpPutC
 	call	stdioInit
 	call	shellInit
+	ld	hl, vdpShellLoopHook
+	ld	(SHELL_LOOPHOOK), hl
 	jp	shellLoop
 
-myGetC:
-	; What we do here is simple. We go though all bits of port A controller
-	; increasing B each time. As soon as we get a hit, we display that
-	; letter. Pressed buttons go low.
-	call	padStatusA
-	push	bc
-	jr	z, .nothing	; unchanged since last poll
-	ld	b, 'A'
-	bit	5, a		; Port A Button C pressed
-	jr	z, .something
-	inc	b		; b
-	bit	4, a		; Port A Button B pressed
-	jr	z, .something
-	inc	b		; c
-	bit	3, a		; Port A Right pressed
-	jr	z, .something
-	inc	b		; d
-	bit	2, a		; Port A Left pressed
-	jr	z, .something
-	inc	b		; e
-	bit	1, a		; Port A Down pressed
-	jr	z, .something
-	inc	b		; f
-	bit	0, a		; Port A Up pressed
-	jr	z, .something
-	inc	b		; g
-	bit	6, a		; Port A Button A pressed
-	jr	z, .something
-	inc	b		; h
-	bit	7, a		; Port A Start pressed
-	jr	z, .something
-	; nothing
-.nothing:
-	pop	bc
-	xor	a
-	jp	unsetZ
-.something:
-	ld	a, b
-	pop	bc
-	cp	a		; ensure Z
-	ret
-
 .fill 0x7ff0-$
 .db "TMR SEGA", 0x00, 0x00, 0xfb, 0x68, 0x00, 0x00, 0x00, 0x4c