h218.asm

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

stack segment stack'stack'
      dw 32 dup(?)
stack ends
data segment
IBF DB 52,0,52 DUP(?)
OBF DB 52 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 dl,0dh
      mov ah,2
      int 21h

      MOV AL,IBF+1
      MOV AH,0
      MOV OBF[AX+1],'$'

      MOV SI,AX
      INC SI
      MOV DI,0003H
      
AGAIN:CMP IBF[SI],' '
      JE HERE
      XCHG IBF[SI],OBF[DI]
      DEC SI
      CMP SI,2;good
      JB OVER
      DEC DI
      JMP AGAIN
HERE: MOV OBF[DI+4],' '
      ADD DI,8
      JMP AGAIN

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