fangzhen.asm

微机原理课程设计案列集锦

data  SEGMENT
buf1  DB '1  2  38  9  47  6  5'
buf2  DB '1  2  3  412 13 14 511 16 15 610 9  8  7'
buf3  DB '1  2  3  4  516 17 18 19 615 24 25 20 714 23 22 21 813 12 11 10 9'
dbuf  DB 14 DUP(?)
i1    DB 0dh,0ah,'this is a fangzhen programme'
      DB 0dh,0ah,'input q to exit'
      DB 0dh,0ah,'Please input a number(3--5):','$'
i2    DB 0dh,0ah,'input error,please reinput!','$'
n     DB ?
b     DB 1
data  ENDS
stack SEGMENT
      DB 100 DUP(?)
stack ENDS
code  SEGMENT
      ASSUME DS:data,CS:code,SS:stack
main: 
      MOV AX,data
      MOV DS,AX
      CALL clear
lop:  LEA DX,i1
      MOV AH,9
      INT 21h
      MOV AH,1
      INT 21h
      CMP AL,'q'
      JZ quit
      LEA SI,buf1
      MOV n,7
      MOV CL,3
      CALL clear
      CMP AL,'3'
      JZ  s
      LEA SI,buf2
      MOV n,10
      MOV CL,4
      CMP AL,'4'
      JZ  s
      LEA SI,buf3
      MOV CL,5
      MOV n,13
      CMP AL,'5'
      JZ s
      LEA DX,i2
      MOV AH,9
      INT 21h
      CALL clear
      JMP lop
s:    
      MOV BL,n
      LEA DI,dbuf
l:    MOV AL,[SI]
      MOV [DI],AL
      INC SI
      INC DI
      DEC BL
      JNE l
      MOV [DI],BYTE PTR '$'
      MOV AH,2
      MOV DH,b
      MOV DL,0
      INT 10h
      LEA DX,dbuf
      MOV AH,9
      INT 21h
      INC b
      LOOP s
      
      JMP lop
quit: MOV AH,4ch
      INT 21h
;***清屏***
 clear proc near
     push ax
     push bx
     push cx
     push dx
     mov ah,6
     mov al,0
     mov ch,0
     mov cl,0
     mov dh,24
     mov dl,79
     mov bh,7
     int 10h
     pop dx
     pop cx
     pop bx
     pop ax
     ret
  clear endp
code ends
     end main