li9.asm

来自「本程序是汇编语言的一些基本功能的组合」· 汇编 代码 · 共 40 行

code segment
main proc far
 assume cs:code
start:
 push ds
 sub ax,ax
 push ax
 mov si,1
xh:
 call hang
 call crlf
 inc si
 cmp si,5
 jbe xh
 ret
main endp
;-----------------
hang proc near
 mov cx,si
 mov dl,'*'
 mov ah,2
next: 
 int 21h
 loop next
 ret
hang endp
;-----------------
crlf proc near
  mov dl,0dh
  mov ah,2
  int 21h
  mov dl,0ah
  int 21h
  ret
crlf endp
;---------------
code ends
  end start