h205.asm

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

stack segment stack'stack'
     dw 32 dup(?)
stack ends
data segment
IBF DB 10,0,10 DUP(?)
OBF DB '=',5 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 IBF
      MOV AH,10
      INT 21H

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

      MOV AL,IBF+1
      MOV AH,0
      DEC AX
      MOV BL,2
      DIV BL

      MOV CL,AL
      MOV CH,0
      MOV BX,CX
      MOV OBF[BX+1],'$'

      MOV SI,OFFSET IBF+2
      ADD SI,CX
      DEC SI
      MOV DX,SI
      MOV DI,DX
      ADD DI,DI
      MOV AX,0

AGAIN:MOV AL,0
      ADD AL,AH
      ADD AL,IBF[DI]
      ADD AL,IBF[SI]
      MOV AH,0
      AAA
      OR AL,30H
      MOV OBF[BX],AL
      DEC DI
      DEC SI
      DEC BX
      DEC CX
      JNZ AGAIN
      MOV DX,OFFSET OBF
      MOV AH,9
      INT 21H
      ret
begin endp
code ends
     end begin