h214.asm

关于8086汇编的一些实验程序

stack segment stack'stack'
      dw 32 dup(?)
stack ends
data segment
IBFN DB 'INPUT BYTE BCD:$'
IBF DB 2,0,2 DUP(?)
OBF DB 4 DUP(?)

ZER DB '1$'
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 IBFN
      MOV AH,9
      INT 21H
      MOV DX,OFFSET IBF
      MOV AH,10
      INT 21H


      mov dl,0ah
      mov ah,2
      int 21h
      mov dl,0dh
      mov ah,2
      int 21h

      MOV AL,IBF+2
      CMP AL,30H
      JE OVER
      AND AL,0FH
      MOV AH,0

      
      MOV CX,AX
      DEC CX
      
      MOV AL,2
      MOV AH,0
AGAIN1:MOV BL,2
       MUL BL
       LOOP AGAIN1

      MOV DL,10
      MOV BL,2
      MOV BH,0

      MOV BYTE PTR OBF[BX+1],'$'
AGAIN2:DIV DL
       OR AH,30H
       MOV OBF[BX],AH
       MOV AH,0
       DEC BX
       AND AL,AL
       JNZ AGAIN2
  
       MOV DX,OFFSET OBF
       MOV AH,9
       INT 21H
       jmp exit

OVER:  MOV DX,OFFSET ZER
       MOV AH,9
       INT 21H
exit:  ret 
begin endp
code ends
     end begin