1.asm

华工电信系汇编习题的编程实现

stack segment stack 'stack'
      dw 32 dup(?)
stack ends

data segment
     Outbuf db 'Please input an number:$'
data ends

code segment
     begin proc far
     assume ss:stack,cs:code,ds:data
     push ds
     sub ax,ax
     push ax
     mov ax,data
     mov ds,ax


     mov dx,offset Outbuf
     mov ah,9
     int 21H

     mov ah,1
     int 21H
     sub al,030H    
     push ax
     
     mov dl,00DH
     mov ah,2
     int 21H

     mov dl,00AH
     mov ah,2
     int 21H
     pop ax
 
     mov cl,al
     mov al,1
     shl al,cl
     mov cx,0
AGAIN:
     INC cx
     mov ah,0
     mov dl,10
     div dl
     push ax
     CMP al,0
     JNZ AGAIN
COUT:
     pop dx   
     add dh,030H
     mov dl,dh  
     mov ah,2
     int 21H
     loop COUT     

        
     ret
begin endp
code ends
     end begin