# "More fun than a barrel of half-witted monkeys." Foghorn Leghorn
# WE got yer execution array, we got your macros in Bash, we EVEN
# got yer strand/ring ops. 

			# macros! undef em at the end of the file if
			#   you get paranoid.
KDISMISS () {
	pull A
	pull D
	dismiss
	}


ASKe0 ( ) {
	ANDtest -1 with @ $was_e0
	}


#  ! ! ! ! !		code. keyboard driver. 
# GOT A KEY! INT 0x21. There's an iret frame on estack. 

push A
push D
zero A			
= 0x60 to D
recieve byte
			# are we supposed to drop this byte?
1- @ $keyspam
	when	not	sign	notkeyspam
KDISMISS
L notkeyspam

maskbyte A
xjump $keycoder A


L ATkey
	
	KDISMISS


L keybyte_0x80

	KDISMISS


xray keycoder 256
	beam	ATkey		0	255
	beam	keybyte_0x80	100	128
						yarx

cell keyspam was_e0
