zicx.asm

汇编语言程序设计实验 循环结构程序（内含实验源程序和实验报告）

stack segment para stack 'stack'
      db 10 dup (?)
stack ends
data  segment 
      data1 db 2ah
      rest dw ?
data  ends
code  segment 'code'
      assume ss:stack,ds:data,cs:code
begin:
      mov ax,data
      mov ds,ax
      xor ax,ax
      mov al,2ah
      call htoasc
      mov rest,dx

      mov ah,4ch
      int 21h

htoasc proc near
      mov ah,al

      mov cl,4
      rol ah,cl
      and ah,0fh
      or ah,30h
      cmp ah,39h
      jbe next1
      add ah,7
      mov dh,ah

again:
      and al,0fh
      or  al,30h
      cmp al,39h
      jbe next2
      add al,7
      mov dl,al
      jmp finish
next1:
      mov dh,ah
      jmp again
next2:
      mov dl,al
finish:ret
htoasc endp
    code ends
      end begin