2.asm

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

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

data segment
     DecIn db 255,0,255 dup(?)
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 DecIn
     mov ah,10
     int 21H

     mov al,DecIn[1]     
     mov ah,0
     INC al
     mov cl,5
     div cl
     mov cl,al
     mov ch,0
     mov SI,offset DecIn + 2
     
AGAIN2:
     mov dx,cx
     mov cx,4
     add SI,3
AGAIN1:
     mov al,[SI]
     push ax
     DEC SI
     loop AGAIN1
     mov al,' '
     push ax
     mov cx,dx
     add SI,6
     loop AGAIN2
     
     mov dl,00DH
     mov ah,2
     int 21H

     mov dl,00AH
     mov ah,2
     int 21H

     mov ch,0
     mov cl,DecIn[1]
     pop ax
AGAIN3:
     pop ax
     mov ah,2
     mov dl,al
     int 21H
     loop AGAIN3       



     ret
begin endp
code ends
     end begin