微机原理课程设计_数字方阵程序_汇编课程设计|精品课程网站设计|课程设计网报告总结心得

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