# Each modeoid in pre-Ha3sm needs it's own equivalent for this.
# With unique labels. Using two different installs.
#   And four types of reflex.
# This one is for pmode, the default.

= IDT to BP

			# to be INLINE in flow of control during setup
L defaultallvectors
zero DI					# for DI = 0 to 127
L perIDTvector
	pushcore
	  = twitch to A			# install twitch to vector DI 		
          call install
	pullcore
        1+ DI
        -test 127 with DI
when    not     zero    short 	perIDTvector

					#  L defaultallIRQs
= firstIRQ to DI			
L perIRQvector
	pushcore
	  = IRQtwitch to A		# install IRQtwitch to vector DI
          call install
	pullcore
        1+ DI
        -test $((firstIRQ+0x10)) with DI
when    not     zero    short	perIRQvector

= firstIRQ to DI
pushcore
= IRQ0twitch to A
call install
pullcore

