Get object type

Entry:
AX = DE14h
ES:DI -> object

Return:
BL = 00h not an object
08h window or task
09h mailbox
0Ah keyboard
0Bh timer
0Ch objectq
0Fh pointer
10h panel