---------ear;用电话查找callprochnammovcl,1movn,clleadx,arrayadddx,17e3:movsi,dxleadi,namefldsubch,chmovcl,20cldrepecmpsbcmpcx,0jnee4subdx,17calldisplyrete4:adddx,movcl,constcmpn,cljlee3leadx,seamsgcalldisplymoverrcde,amendp;--------------------------------------;删除(即把前面的记录覆盖掉)earincbxmovdi,bx;要删除记录的偏移地址addbx,70subch,chmovcl,69movsi,bx;下一条记录的偏移地址cldrepmovsbretcoverendp;--------------------------------------ear;将全部记录打印输出leadx,dispmsgcalldisplymovcl,constleadx,arraydis:calldisplyadddx,70loopdisretdispendp;--------------------------------------ear;插入分隔符leadx,separatemovah,9int21hseparathendp;--------------------------------------ear;回车换行movah,9leadx,crlfint21hretrcrlfendp;--------------------------------------ear;显示输出movah,9int21hretdisplyendp;--------------------------------------codeendsendstartt