在數組中刪除所有-1元素，然后輸出刪除后的長度

程序運行：

?

代碼：

datas segmentLink dw 15 ,1,2,3,4,5,6,-9,-1,3,4,5,3,-1,-2,3ouput db 'Link length:$' datas endsstacks segment stackdb 100h dup(?)stacks endscodes segmentassume cs:codes,ds:datas,ss:stacks main proc far start:push dsmov ax,0hpush axmov ax,datas ;初始化dsmov ds,axmov dx,0ffffh ;要刪除的數mov cx,Link[0] ;取數組的長度mov si,2 ;數組的第0個元素mov di,-1 ;初始化移動指針的值為-1 s:mov ax,Link[si]cmp ax,dx ;判斷是否為-1 jz delete ;若是-1，則跳轉cmp di,-1 ;若不是-1，判斷di是否有效jz next ;若無效，跳轉mov Link[di],ax ;若有效，移動非-1內容至目的單元 add di,type Link ;di指向下一單元jmp next ;跳轉delete:dec Link[0] ;數組的長度減1cmp di,-1 ;判斷di是否有效jnz next ;若有效，跳轉mov di,si ;若無效，保存第一個-1單元的偏移地址next:add si,type Link ;索引移至下一單元loop s lea dx,ouputmov ah,9int 21hmov ax,Link[0]call decimalretmain endpdecimal proc near push axpush cxpush dx push bxcmp ax,0 jge no_negativemov bx,ax mov dl,'-'mov ah,2int 21h neg bx mov ax,bx no_negative:mov cx,0 mov bx,10 de:xor dx,dx div bx push dx inc cx cmp ax,0jnz de de1:pop dx add dl,30h mov ah,2int 21hloop de1pop bxpop dx pop cx pop ax retdecimal endpcodes endsend main

?

總結

以上是生活随笔為你收集整理的汇编语言（十九）之删除数组中的元素的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。