hh - 复制.asm

debug 码字

DATA segment
  crlf db 0ah,0dh,'$'
  quit db "press any key to exit......",13,10,'$'
DATA ENDS
STACK SEGMENT STACK
  DB 50 DUP(?)
STACK ENDS
CODE SEGMENT
MAIN PROC FAR
  ASSUME CS:CODE,DS:DATA,SS:STACK
START:
  mov ax,data
  mov ds,ax
  xor cx,cx
  xor dx,dx
  mov cx,0010h
  mov bl,10h
g1:
  mov dh,bl
  sub dh,cl
  call show
  loop g1
waitforexit:	
    mov ah,9
    lea dx,quit
    int 21h
    mov ah,1
    int 21h
    mov ah,4ch
    int 21h
show proc near
  push cx
  push dx
  xor cx,cx
  mov cl,10h	
s1:		
  mov dl,dh
  call isNotShow
  mov ah,02
  int 21h
  mov dl,' '
  mov ah,02
  int 21h
  mov dl,' '
  mov ah,02
  int 21h
  add dh,10h
  loop s1
  lea dx,crlf
  mov ah,09
  int 21h
  pop dx		;
  pop cx
  ret
show endp
isNotShow proc near
  cmp dl,00h ;0052
  jz reback
  cmp dl,02h
  jz reback
  cmp dl,07h
  jz reback
  cmp dl,08h
  jz reback
  cmp dl,09h
  jz reback
  cmp dl,0ah
  jz reback
  cmp dl,0dh
  jz reback
  cmp dl,20h
  jz reback
  ret
reback:
  mov dl,' '
  ret
isNotShow endp
MAIN ENDP
CODE ENDS
  END START