a11.asm

键盘中断调用的举例,以及显示器中断调用的例子

;键盘及显示器中断调用举例，书P110/4.6
WWidth=40
WLeftTopLine=10
WLeftTopRow=20
WRightBottomLine=20
WRightBottomRow=WLeftTopRow+WWidth-1
Collor=70H
CR=0DH
LF=0AH
STACKSG SEGMENT STACK 'S'
        DW 64 DUP('ST')
STACKSG ENDS
DATA SEGMENT
STRING DB 'This is a example to call interrupt 10H.'
CT EQU $-STRING
DATA ENDS
CODE SEGMENT
     ASSUME CS:CODE,DS:DATA,ES:DATA,SS:STACKSG
MAIN PROC FAR
     MOV AX,DATA
     MOV DS,AX
     MOV ES,AX
     MOV AH,0
     MOV AL,3
     INT 10H
     MOV AH,6
     MOV AL,0
     MOV BH,1FH
     MOV CX,0
     MOV DX,184FH
     INT 10H
     MOV AH,6
     MOV AL,0
     MOV BH,Collor
     MOV CH,WLeftTopLine
     MOV CL,WLeftTopRow
     MOV DH,WRightBottomLine
     MOV DL,WRightBottomRow
     INT 10H
     MOV AH,2
     MOV BH,0
     MOV DH,WRightBottomLine
     MOV DL,WLeftTopRow
     INT 10H
     MOV AH,9
     MOV AL,'*'
     MOV BH,0
     MOV BL,0EH
     MOV CX,1
     INT 10H
     MOV AH,0EH
     MOV AL,CR
     INT 10H
     MOV AH,0EH
     MOV AL,LF
     INT 10H
     MOV AH,3
     MOV BH,0
     INT 10H
     CMP DH,WRightBottomLine+1
     JNE L1
     MOV AH,6
     MOV AL,1
     MOV BH,Collor
     MOV CH,WLeftTopLine
     MOV CL,WLeftTopRow
     MOV DH,WRightBottomLine
     MOV DL,WRightBottomRow
     INT 10H
     MOV AH,2
     MOV BH,0
     MOV DH,WRightBottomLine
     MOV DL,WLeftTopRow
     INT 10H
L1:  MOV AH,9
     MOV AL,STRING
     MOV BH,0
     MOV BL,4FH
     MOV CX,1
     INT 10H
     MOV AH,0
     INT 16H
     MOV AH,13H
     MOV AL,1
     MOV BH,0
     MOV BL,Collor
     MOV CX,CT
     MOV DH,WRightBottomLine
     MOV DL,WLeftTopRow+1
     LEA BP,STRING+1
     INT 10H
     MOV AH,0
     INT 16H
     MOV AH,4CH
     INT 21H
MAIN ENDP
CODE ENDS
     END MAIN