# boot/init flow of control INLINE 
# a requisite PC deformity fix for RAM > 1 meg

# use32 code for a use32 issue

        = 0xd1 to A		# kbdcommand
        = 0x64 to D
        send byte
nop				# It works here. I'm leaving it.
nop
nop
nop
nop
nop
nop
nop
nop
nop
        = 0xdf to A	# a20-ON command if available
        = 0x60 to D
        send byte
			# The Sweet Kira method
	= 0x92 to D
	recieve byte
	OR 2 to A
	send byte

				# wait for meg 1 to not look like meg 0.
				# if a20 is off B gets some BIOS crap != A
				# Loop uselessly forever if not a20-ON, 
				#  saving some flyback-abuse. Good place for
				#   a burbler.
L a20loop
	= 0xaaaa5555 to A
	= A to @ $((meg+meg-40))
	= @ $((meg+meg-40)) to B
	-test A to B
when not zero 			short a20loop

