show.asm

汇编课程设计 图形编辑器

;**************************
pram_seg           segment
       string db  'xijibo'
pram_seg ends
;**************************
stack_seg          segment
;***************************
code               segment
;--------------------------
main     proc     far
   assume cs:code,ds:pram_seg,ss:stack_seg

esc_key     equ   1h
win_ulc     equ   20
win_ulr     equ   1
win_lrc     equ   80
win_lrr     equ   31
win_width   equ   60

;include  cls.inc


      ; 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

;---------------------------------------
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

;--------------------------------------
exit:
       mov ax,4c00h
       int 21h
       main endp
;-------------------------------------
       end main