liping4.asm

来自「(1)编写分支结构.asm文件实现: 键盘输入以‘$’为结束符的长度不超过80的」· 汇编 代码 · 共 51 行

data segment
   string db 80
	  db ?
	  db 80 dup(?)
   r1	  db 0
   crlf   db 10,13,24h
data ends
code segment 'code'
     assume ds:data,cs:code
begin:	  mov ax,data
	  mov ds,ax
	  mov dx,offset string
	  mov ah,0Ah
	  int 21h
	  mov bx,offset string+2
	  mov cl,string+1
	  mov ch,0
again:	  cmp byte ptr[bx],24h
	  je  next3
	  cmp byte ptr[bx],30h
	  ja  next1
	  inc r1
	  jmp next2
next1:	  cmp byte ptr[bx],39h
	  jb  next2
	  inc r1
next2:	  inc bx
	  loop again
next3:	  lea dx,crlf
	  mov ah,9
	  int 21h
	  mov cl,4
	  mov ch,2
	  mov bl,r1
next4:	  rol bl,cl
	  mov al,bl
	  and al,0fh
	  add al,30h
	  cmp al,3Ah
	  jb  print
	  add al,07h
print:	  mov dl,al
	  mov ah,02h
	  int 21h
	  dec ch
	  jnz next4
	  mov ah,4ch
	  int 21h
code	  ends
	  end begin