q315.asm

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

stack segment stack'stack'
      dw 32 dup(?)
stack ends
data segment
ARRAYW DW 1035H,0,-298H,258H,-25H,58H,698H,0
N EQU ($-ARRAYW)/2
PLUS DW N DUP(?)
MINUS DW N DUP(?)
ZERON DW 0
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 ES,AX
      MOV SI,OFFSET ARRAYW
      MOV DI,OFFSET PLUS
      MOV BX,OFFSET MINUS
      CLD
AGAIN:LODSW
      AND AX,AX
      JZ ZERO
      JS MINU
      STOSW
      LOOP AGAIN
      RET
ZERO: INC ZERON
      LOOP AGAIN
      RET
MINU: MOV [BX],AX
      INC BX
      LOOP AGAIN 
      ret
begin endp
code ends
     end begin