prueba con:
//Stats the new routine
0D:543F - jp $7FA0 ; C3 A0 7F
//Main routine
0D:7FA0 - ld hl, $5000 ; 21 00 50
0D:7FA3 - ld a, $26 ; 3E 26
0D:7FA5 - rst $8 ; CF
0D:7FA6 - ld a,[$DEFF] ; FA FF DE
0D:7FA9 - dec a ; 3D
0D:7FAa - jp z, $5467 ; CA 67 54
0D:7FAd - jp $5443 ; C3 43 54
//Getting the type
26:5000 - ld a,[$CE60] ; FA 60 CE
26:5003 - ld hl,$5100 ; 21 00 51
26:5006 - ld l,a ; 6F
26:5007 - ld a, [hl] ; 7E
26:5008 - ld [$DEFF],a ; EA FF DE