PAGE 70,166

MEM_POS = 0800H
DS_SEG = 0080H
IKEYBOARD = 08H
IDIS_BYTE = 09H
IDIS_STR = 0BH

CODE SEGMENT

ASSUME CS:CODE, DS:CODE
		ORG 0H

START:
	MOV AX, DS_SEG
	MOV DS, AX
	MOV SI, OFFSET MSG
	INT IDIS_STR

	TLOOP: INT IKEYBOARD

	   MOV CL,4
	   ;INT IDIS_BYTE

	   MOV BL,AL
	   SHL BL,CL

	   INT IKEYBOARD
	   MOV BH,AL
	   OR BH,BL
	   MOV AH,BH

	   MOV AL,AH
	   MOV CL,11
	   INT IDIS_BYTE


	   INT IKEYBOARD
	   MOV CL,4
	   MOV BL,AL
	   SHL BL,CL

	   INT IKEYBOARD
	   MOV BH,AL
	   OR BH,BL
	   MOV AL,BH
	   IMUL AH

	   MOV CL,11
	   INT IDIS_BYTE

	   ;INT IKEYBOARD
	   MOV CL,13
	   MOV AL,AX
	   INT IDIS_BYTE

	   ;MOV CL,8
	   ;SHR AX,CL
	   ;MOV AL,AX
	   ;MOV CL,11
	   ;INT IDIS_BYTE

	INT IKEYBOARD
	MOV SI, OFFSET MSG
	INT IDIS_STR
	   JMP TLOOP

	MSG DB 'INMULTIRE       ', 0H

CODE ENDS
END START