li9_13.asm

本程序是汇编语言的一些基本功能的组合

CODE SEGMENT
Esc_key EQU 1BH
win_ulc EQU 30
win_ulr EQU 8
win_lrc EQU 50
win_lrr EQU 16
win_width EQU 20
MAIN PROC FAR 
 ASSUME CS:CODE
START:
  CALL CLEAR_SCREEN
LOCATE:
  MOV AH,2
  MOV DH,WIN_LRR
  MOV DL,WIN_ULC
  MOV BH,0
  INT 10H

  MOV CX,WIN_WIDTH
GET_CHAR:
  MOV AH,1
  INT 21H
  CMP AL,ESC_key
  JZ EXIT
  LOOP GET_CHAR

  MOV AH,6
  MOV AL,1
  MOV CH,WIN_ULR
  MOV CL,WIN_ULC
  MOV DH,WIN_LRR
  MOV DL,WIN_LRC
  MOV BH,7
  INT 10H
  JMP LOCATE
EXIT:
  MOV AX,4C00H
  INT 21H
MAIN ENDP
;------------------
cLEAR_SCREEN PROC NEAR
 PUSH AX
 PUSH BX
 PUSH CX
 PUSH DX

 MOV AH,6
 MOV AL,0
 MOV BH,7
 MOV CH,0
 MOV CL,0
 MOV DH,24
 MOV DL,79
 INT 10H

 MOV DX,0
 MOV AH,2
 INT 10H
 
 POP DX 
 POP CX
 POP BX
 POP AX
 RET
CLEAR_SCREEN ENDP
;-----------------
CODE ENDS
 END START