# install handler at vexor

# 32-bit (20-bit) addy to be schmegmented in A
# eventnum in DI

L install32unP
	upshift 2 to DI
	+ IDT32unP to DI
#	  call schmegment		we're all in 64k-0 so far
	= A to @ DI
			return

L install16
        upshift 2 to DI
        + IDT16 to DI
          call schmegment
        = A to @ DI
                        return

