DOS_8086_汇编写一个带窗口的文本输入程序

本文链接：https://blog.csdn.net/qq_27677599/article/details/102992013

汇编程序：

;***************************************************************************************
;  功能：开个窗口，做个窗框，把光标定位在窗口内，显示信息，简单的上卷下卷，末行控制，回车处理
;***************************************************************************************

CODES SEGMENT
    ASSUME CS:CODES
    
;----------------------------------------------------------------------------------
;主程序
TextWindow  proc   			far
	
	call  Initializing
	call  get_char
	ret
TextWindow				endp

;----------------------------------------------------------------------------------
;屏幕初始化
Initializing	proc		        near
	push  ax
	push  bx
	push  cx
	push  dx
    ;设置外窗口属性
    MOV   AH,7				;功能：屏幕初始化
    MOV   AL,0				;page
    MOV   BH,70H			;白底黑字
    MOV   CH,1				;row左上
    MOV   CL,2				;column左上
    MOV   DH,23				;row右下
    MOV   DL,77				;column右下
    INT   10H				;BIOS显示操作中断
    
    ;设置内窗口属性
    MOV   AH,7				;功能：屏幕初始化
    MOV   AL,0				;page
    MOV   BH,3FH			;浅青色底白字
    MOV   CH,2				;row左上
    MOV   CL,4				;column左上
    MOV   DH,22				;row右下
    MOV   DL,75				;column右下
    INT   10H				;BIOS显示操作中断
    
    ;设置光标类型(大小)
    MOV   CH,12				;光标起始行
    MOV   CL,13				;光标结束行
    MOV   AH,1				;设置光标类型
    INT   10H				;DOS中断：显示操作
    ;初始化光标位置
    MOV   DH,2				;屏幕显示行
    MOV   DL,4				;屏幕显示列
    MOV   BH,0				;显示页号
    MOV   AH,2				;置光标位置
    INT   10H				;BIOS显示操作中断
    
    pop   dx
    pop   cx
    pop   bx
    pop   ax
    ret
Initializing                endp

;----------------------------------------------------------------------------------
;键盘输入，直到Esc退出
get_char  proc				near
	push  ax
	push  dx
	
	mov   ah,1			; 功能：从键盘输入一个字符并回显
	int   21h
	
	cmp   al,1bh			; 判断按键是否ESC√
	jz    exit
	
	cmp   al,0DH			; 判断是否为回车键(要注意回车后不返回，而是等待继续输入)
	jz    EnterDeal			; 调转 回车键处理
	
	mov   ah,3			; 读取当前光标位置
	;mov  bh,0			; 页号
	int   10h			; BIOS显示操作中断
	
	cmp   dl,76			; 判断是否最后一列(75+1)√（可用于设置字符显示宽度）
	jz    LastColumn		; 跳转 末列处理
	
	loop  get_char			; 继续输入
	
	pop   dx
	pop   ax
	
;退出程序
exit:
	mov   ah,4ch
	int   21h			;DOS中断
get_char				endp
	
;----------------------------------------------------------------------------------
;回车键处理-----------------;（把回车控制到内窗口-不处理会跳到屏幕左边界）
EnterDeal proc				near
	push  ax
	push  dx

	mov   ah,3			; 读取 当前光标位置
	;mov  bh,0			; 页号
	int   10h			; BIOS显示操作中断
	
	mov   ah,2			; 功能：置光标位置
	;mov  dh,?			; 保持当前行
	mov   dl,4			; 光标置内窗口左边界
	;mov  bh,0			; 页号--------------测试省略:可省略√
	int   10h			; BIOS显示操作中断
	
	jmp   LastLine			; 继续 末行判断
	
	pop   dx
	pop   ax
	ret				; 返回主程序
EnterDeal				endp

;----------------------------------------------------------------------------------
;末列处理
LastColumn     proc			near
	push  ax
	push  dx

	mov   ah,3			; 读取当前光标位置
	;mov  bh,0			; 页号
	int   10h			; BIOS显示操作中断
	
	mov   ah,2			; 功能：置光标位置
	add   dh,1			; 光标置下一行
	mov   dl,4			; 光标置内窗口左边界
	;mov  bh,0			; 页号
	int   10h			; BIOS显示操作中断
	
	jmp   LastLine			; 继续 末行判断
	
	pop   dx
	pop   ax
	ret				; 返回主程序
LastColumn				endp

;----------------------------------------------------------------------------------
;末行判断-------------------; 末行(22+1)需要卷屏并上移光标
LastLine  proc				near
	push  ax
	push  dx

	mov   ah,3			; 读取当前光标位置
	;mov  bh,0			; 页号
	int   10h			; BIOS显示操作中断
	
	cmp   dh,23			; 判断是否最后一行(22+1)
	jne   get_char		        ; 否：继续输入
	
	;-----------------------        ; 是：卷屏1行并上移光标
	call  scroll_screen 	        ; 调用 屏幕滚动
	
	mov   ah,3			; 读取当前光标位置
	;mov  bh,0			; 页号
	int   10h			; BIOS显示操作中断
	
	mov   ah,2			; 功能：置光标位置
	mov   dh,22			; 光标置内窗口左边界
	mov   dl,4			; 光标置内窗口左边界
	int   10h			; BIOS显示操作中断
	
	pop   dx
	pop   ax
	jmp   get_char		        ; 继续输入
Lastline			        endp
	
;----------------------------------------------------------------------------------
;屏幕每次上卷1行----------------          ; 屏幕滚动必须要设置窗口滚动的范围，即cx,dx
scroll_screen	proc		near
	push  ax
	push  bx
	push  cx
	push  dx

	mov	  al,1			; 上卷的行数
	mov	  bh,2FH		; 
	mov   ch,2
	mov   cl,4
	mov   dh,22			; 整屏滚动
	mov   dl,75
	mov	  ah,6			; 功能:屏幕上卷
	int   10h			; BIOS显示操作中断
	
	pop   dx
	pop   cx
	pop   bx
	pop   ax
	ret				; 返回调用程序
scroll_screen			        endp

;----------------------------------------------------------------------------------
CODES ENDS
;**********************************************************************************
    END   TextWindow

运行情况：