
DATA_SEG	SEGMENT AT 40H
	ORG	17H
KB_FLAG		DB	?		;Status flag for shift keys, etc.
DATA_SEG	ENDS

	ASSUME	CS:CODE_SEG,DS:DATA_SEG
CODE_SEG	SEGMENT
BEGIN	PROC	NEAR
	MOV	AX,DATA_SEG
	MOV	DS,AX
AGAIN:	TEST	KB_FLAG,1		;Right shift key pressed?
	JZ	AGAIN			;No, keep looking
	INT 	20H
BEGIN	ENDP
CODE_SEG	ENDS
	END	BEGIN
