chp3_25.asm

关于8086汇编的一些作业程序

stack segment stack'stack'
      dw 32 dup(?)
stack ends
data segment
BUFA DW 4,0,2,0,15,3,6,0,3,59,25
N EQU ($-BUFA)/2
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 SI,OFFSET BUFA
      MOV DI,SI
      MOV CX,WORD PTR N
      
AGAIN:MOV AX,[SI]
      AND AX,AX
      JZ OMIT
      MOV [DI],AX
      ADD DI,2
OMIT: ADD SI,2
      LOOP AGAIN
      ret
begin endp
code ends
     end begin