TITLE LITTLEKEYBOARD MOV DX.A 8255 SSEG SEGMENT PARA STACK STACK' IN AL DX DB 256 DUP(O MOV HANG.AL SSEG ENDS CALL GETINPUT DSEG SEGMENT CMP AL.OAH A 8255 EQU 220H JE CMPAGAIN B 8255 EQU 221H CMP AL. OFFH CON 8255 EQU 223H JNE CONTINUE BUFFER DB 6 DUP(O) CALL CLOSEALL HANG DB MOV AH. 4CH LIE DB INT 21H NEWHANG CONTINUE NEWLIE DB CALL CHANGE LE MOV CX.O 3FH,06H, 5BH, 4FH,66H, 6DH, 7DH,07H, 7FH, LABLE 6FH CALL DISPLAY DSEG ENDS INC CX CSEG SEGMENT CMP CX. 256 ASSUME CS CSEG. DS: DSEG SS: SSEG JNE LABLE START PROC NEAR JMP CMPAGAIN MOV AX DSEG RET MOV DS.AX START ENDP CMPAGAIN CALL DISPLAY DELAY 1 PROC NEAR MOV DX. CON 8255 PUSHAX MOV AL,10000010B PUSH CX OUT DX.AL PUSH DX agaIN: MOV AH.86H CALL DISPLAY MOV CX. O MOV DX,A 8255 MODX.20000 MOV AL,O INT 15H OUT DX.AL POP DX MOV DX. B 8255 POP CX IN AL, DX POPAX CMP AL.00000111B RET JEAGAIN DELAY I ENDP CALL DELAY I MOV DX. CON 8255 GETINPUT PROC NEAR MOV AL,10010000B CMP LIE. 00000110B OUT DX.AL JE LIEO MOV DX. B 8255 CMP LIE. 00000101B MOV AL, LIE JE LIE OUT DX. AL CMP LIE,00000011B 22 TITLE LITTLEKEYBOARD SSEG SEGMENT PARA STACK 'STACK' DB 256 DUP (0) SSEG ENDS DSEG SEGMENT A_8255 EQU 220H B_8255 EQU 221H CON_8255 EQU 223H BUFFER DB 6 DUP(0) HANG DB ? LIE DB ? NEWHANG DB ? NEWLIE DB ? TABLE DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH, 6FH, DSEG ENDS CSEG SEGMENT ASSUME CS:CSEG, DS:DSEG,SS:SSEG START PROC NEAR MOV AX,DSEG MOV DS,AX CMPAGAIN: CALL DISPLAY MOV DX,CON_8255 MOV AL,10000010B OUT DX,AL AGAIN: CALL DISPLAY MOV DX,A_8255 MOV AL,0 OUT DX,AL MOV DX,B_8255 IN AL,DX CMP AL,00000111B JE AGAIN MOV LIE,AL CALL DELAY1 MOV DX,CON_8255 MOV AL,10010000B OUT DX,AL MOV DX,B_8255 MOV AL,LIE OUT DX,AL MOV DX,A_8255 IN AL,DX MOV HANG,AL CALL GETINPUT CMP AL,0AH JE CMPAGAIN CMP AL,0FFH JNE CONTINUE CALL CLOSEALL MOV AH,4CH INT 21H CONTINUE: CALL CHANGE MOV CX,0 LABLE: CALL DISPLAY INC CX CMP CX,256 JNE LABLE JMP CMPAGAIN RET START ENDP ;********************************* DELAY1 PROC NEAR PUSH AX PUSH CX PUSH DX MOV AH,86H MOV CX,0 MOV DX,20000 INT 15H POP DX POP CX POP AX RET DELAY1 ENDP GETINPUT PROC NEAR CMP LIE,00000110B JE LIE0 CMP LIE,00000101B JE LIE1 CMP LIE,00000011B