显示用户信息 
UID: 231
精华:
8
发帖: 11183
财富: 1815 湾区元
威望: 3532 点
支持度: 34 点
好评度: 21 点
在线时间: 321(时)
注册时间: 2017-06-04
最后登录: 2025-06-30
|
第一个宏汇编程序 k}-@N;zq -LF0% G 工作后不久，单位里我所在的小组有了一台浪潮0520(XT兼容机)，有了硬盘，有了汇编编译程序，就开始玩汇编了。当然那时的主要工作是用dBASEIII，这个我已经在读研期间自学会了，读了一本关于dBASEIII plus的英文书，编个dBASE/FoxBASE程序已经是小菜一碟了。 2Y~6~*8 *~ Cx $M 那时候的硬盘老出点问题，经常碰上个“Error reading data....” 啥的小毛病，但是换又不方便而且很贵。PCTOOLS与NORTON DISKEDIT扫描盘比较慢。我就自己写了一个磁盘扫描程序。算是用汇编写的第一个正式的有点用处的程序吧！ GE`:bC3 kG:,Ff> 这也是我现在电脑里唯一一个汇编语言的程序了，其它都随着磁盘来回更换丢了。所以，还是在老大这里存一份留个纪念吧！ nJJ9>#<g$ @SREyq
C4 比较长啊！所以可以自动跳过。 l MCoc 'ae %vjLw` .286 +.N3kH .radix 16 6iwI Eb data segment ;定义数据段 \%nFCK0 !xs. [&u8 [#y
/` msg db 0dh, "Reading sector:$" HC0q_%j msg1 db 0dh, "Writing sector:$" Hl"qLrb4 msgready db 0dh,0a,0dh,0a,"Reading/Writing completed!", 0dh,0a, "$" O$}p}%%y7 ( f mcWHs dsp db " $" |oq27*ix~m tGGv 2TCEy ;DAP CmaV> PacketSize db 16d; // 数据包尺寸(16字节) aRBTuLa)fo Reserved db 0; // ==0 Z:VqBqK BlockCount dw 63d; // 要传输的数据块个数(以扇区为单位) 2|vArRKt BufferAddr dw 0,0 ; // 传输缓冲地址(segment:offset) [KA&KI^hF BlockNumL Dw 0,0; // 磁盘起始绝对块地址 [h
"*>J{ BlockNumH Dw 0,0; // 磁盘起始绝对块地址 F+A"-k_\T# ViV"+b#gu ;定位用DAP （复位到0磁道） UGuEZ-r DAP0 db 16d PI>PEge!& db 0 c@RMy$RTF dw 1 +u%^YBr buff1 dw 0,0 {R[FwB^7wJ dw 0,0,0,0 s hbPy [6@{^ )i&z!|/2 ;DiskParameters #J. v[bOWQ infosize dw 26d; WORD InfoSize; // 数据包尺寸 (26 字节) %T]NM3|U falgs dw 0; WORD Flags; // 信息标志 B4^+& B# Cylinders DW 0; DWORD Cylinders; // 磁盘柱面数 M_tY: v Heads DW 0; DWORD Heads; // 磁盘磁头数 0be1aY;m& SPT Dw 0,0; DWORD SectorsPerTrack; // 每磁道扇区数 cE}R7,y Sectors Dw 0,0,0,0; QWORD Sectors; // 磁盘总扇区数 ~~[Sz#( SectorSize DW 0; WORD SectorSize; // 扇区尺寸 (以字节为单位) 2@``=0z {HKd="%VG cmpsect dw 0 YfBb=rN2s `UFR v
msgcyl db 0dh,0a,"Disk Parameters",0dh,0a,"Total Cylinders:$" (Dr g msgHds db 0dh,0a,"Heads:$" (0s 7<&Iu msgspt db 0dh, 0a,"SectorsPerTrack:$" ]>R|4K_ msgTotal db 0d,0a, "Total Sectors:$" l4+!H\2 msgSS db 0dh,0a, "Sector Size:$" V[-4cu,Ph^ QJc3@ msgReadErr db 0dh,0a,"Error Reading Sectors:$" Mq-Q Wx"P msgWriteErr db 0dh,0a, "Error Writing Sectors:$" w9
I7pIIl msgReset db 0dh,0a, "Reseting drive to Cyl 0" Qq;` 9-&j k=,,s(]tx TRwlUC3hQ buffer db 32768d dup(0); W=T3sp V M17oAVN7D data ends ;数据段结尾 f, 9jK9/$ Z$R6'EUb1 stack segment #3@ Du(_n db 400 dup(?) NG-Wn+W@b stack ends %Gp%l uU v yZ code segment ;定义代码段 ,1'9l) zP assume cs:code ;规定cs的内容 BKDs3?& assume ds:data ;规定ds的内容 ~F8M _ assume ss:stack +TW9BU'a^ )Lht}I ]: start: c$),/0td| pusha Ov1$7 r@ J+f
.r|? Fj\}&H*+ mov ax,data ;程序从start开始 y,&U ST mov ds,ax ;ds置初值,data的段地址 Ju3-ZFUS4 7a_pO1MBL ;设置缓冲区 h^klP: Q lea bx, buffer aY 8"Sw|4 mov bufferaddr,bx {UpHHH:X# mov buff1,bx 0z)
8i P mov bx,ds (vm &&a@ mov bufferaddr+2,bx
,lX5-1H mov buff1,bx w=EUwt Rk2V[R.`S lea di,infosize zx"'WM
* mov dl,80h h8;B +#f` mov ah,48h DA)+)PhY7K int 13h _jK
* z|i{=W
F lea bx,msgcyl 8<(qN> R mov dx,bx 5b
X*8H
D mov ah,09 fUQuEh5_ int 21h "dfq mov dx,cylinders %M{qr!?uj call dispdx ^UP!y!&N H.EgL@;mb lea bx,msghds jR -`ee}y2 mov dx,bx <. j `n mov ah,09 *Dr -{\9 int 21h m(QGP\Y
a mov dx,heads y6.}h9~ call dispdx 4 4 bTx y lqFDX
d lea bx,msgspt pEk^
; mov dx,bx %VG;vW\V mov ah,09 cU8Rm\? int 21h Le3H!9lbc mov dx,spt+2 Y 1a[HF^- call dispdx ,4oYKJ$+h mov dx,spt }:u" ?v=|j call dispdx :5!>h8p; O9OD[V Zk lea bx,msgtotal J 2cqnwUV mov dx,bx <V?M~u[7f mov ah,09 K*; e>{p int 21h }
DY{> D> lea bx,sectors )i 8Hdtn call dispqword m&/{iCwp ;xFx%^M}br lea bx,msgss S,Q!Xb@ mov dx,bx IXb]\ ) mov ah,09 "&jA
CI int 21h Z;kRQ mov dx,sectorsize f8`K8Y]4 call dispdx *yJCno F F" 2v5F@ sbb word ptr sectors, 63d x)eYqH~i jnc subok ?> b>LDpx? sub word ptr sectors+2,1 1e`/N+6u jnc subok K_/8MLJQ sub word ptr sectors+4,1 Q!DH8'|4?L jnc subok >|%dN
jf@Q sub word ptr sectors+6,1 Wyu$J g_lj /u]P subok:
/]H6' }7iWm XlI pG?AwB~@n Y< ('G5A xor ax,ax %H=d_Nm{ mov blocknumL, ax b%`^KEvwfo mov blocknumL+2, ax "Y(s tRa mov blocknumL+4, ax X`km\\ * mov blocknumL+6, ax :V1ttRW}52 MhMY"bx8 startread: ^V sX9 _t<&#D~ call rwsect dQ6:c7hp>D C
Z8F e$F adc word ptr blocknuml,63d uq<k T [ jnc addok 4;anoqiG\ adc word ptr blocknuml+2,1 ([~9v@+ jnc addok gL%%2 }$ adc word ptr blocknuml+4,1 Il(p!l<Xz# jnc addok 06@^knm adc word ptr blocknuml+6,1 r|$@Wsb ?# jnc addok _`yd"0 Ux 40TS=evG addok: m~;fklX S mov ax, word ptr sectors+6 _ndc^OG cmp ax, blocknuml+6 O@;
; GJ jg complete }*.S=M]y
$ jl startread V<~.:G$3H mov ax, word ptr sectors+4 S a5+_TW cmp ax, blocknuml+4 '<N^u@tF7 jg complete eELJDSd
BV jl startread ^LfN6{ mov ax, word ptr sectors+2 )eFXjn HN cmp ax, blocknuml+2 6*`KC)a jg complete ` .3! jl startread g ycjIy@t mov ax, word ptr sectors u6o:~=WwM cmp ax, blocknuml aRSGI ja<L jg complete r0ml|PX jl startread u C{qaMQ Xup rl2+ complete: .! uXhF' X 0<qG lea bx,msgready [email protected]*S) mov dx,bx S~BBBD mov ah,09 {)j~5m.,/o int 21 v ~|~&Dwq MD(? Wh popa 2xBIfmR^y mov ax,3100h &R $6d G4 int 21h >TSPEvWc +<5q8{]Pk ; 1Rl g% G' dispdx proc near yuyI)ebC pusha .FUws lea bx, dsp+3 @<]sW*s mov cx,4 W[trsFP1? GT$.#};u repeat0: v{%x,K56 mov al,dl nx #0*r}5 and al,0fh N$1ZA)M cmp al,09h ks92-%;: jg add40 AF , *bb add al, 30h E(J@A'c X jmp okadd v+a$Xh3Y~ add40: RTN?[` add al,37h H4%2"w6|! okadd: p=F!)TnJN mov byte ptr [bx],al Hc?8Q\O: dec bx A-5xgp, shr dx,4 Dep.Qfv{- loopnz repeat0 x*}41;j}C lea bx,dsp <A{|=2< mov dx,bx yW: :
` mov ah,09h A*d Pw. int 21h ^)$
(Fe< L?~ >eT popa r)Q/YzXx* ret eVL #3|= dispdx endp 8K: R
oR 8<BYAHY^ dispqword proc near -$W#bqvz^ pusha !|! k9~v! mov cx ,4 p;;4b@ add bx,6 uTsxSkHb/ repeatdecbx: a=(D`lQ8 mov dx,[bx] Lhg4fuos@) call dispdx Z(Styn/x sub bx,2 }yQ&[Mt loopnz repeatdecbx 0$RZ~ popa R*Jn
l\?>@ ret Yj%hgb: ) dispqword endp j\W"P_ dpd wOW#A}m'vj rwsect proc near ?:@
13wm Z>=IP-,> lea bx,msg Z e `=n mov dx,bx #2*l"3.$.R mov ah,09h sVdn>$KXk int 21h +tsF.Is!t ;U7o)A; lea bx,BlockNumL 5^kLNNum call dispqword R]{zGFnx VaYL#\;c< lea di, packetsize !,D7L6 N mov dl,80h <(YE _<F* mov ah,42h r6
k/QZ T int 13h R8[l\Y>Ec jnc readok <sU?q<MC iBCZx>![; mov cx,5 Q;9 -aZ.H ;出错后重试(定位0道后再重读) MA}~bfB retryrd: ]=X6*
E*/E lea bx, msgReadErr #G</RYM~m mov dx,bx X[' VZz7 mov ah,09 _=,\uIrk int 21h zNAID-5K; F"p7&e\W|l =;9
%Q{ lea di,dap0 )OjTn" mov dl,80h &BF97%
E2 mov ah,44h ?D 8<}~Do int 13h
|tK_Bn kV >[$6 lea bx,BlockNumL M%(B6};J call dispqword @9,=|kxK p~(+4uA lea di, packetsize r Ga@!^hk mov dl,80h
R/!lDv!
mov ah,42h NC ]]`O2r@ int 13h Jo%`N#jG jnc readok &j}08aK% loopnz retryrd %S$P<nKN5 N, `q1B readok: #vwK6'z lea di, packetsize WBb@\|V| mov dl,80h 54[#&
T$S mov ah,43h ?vA)F)MS int 13h a1^CpeG~
x/BtB"e*5 rwsect endp 9jwcO)p^ z L8Z8eh"> code ends ;代码段结尾 c@SNbY4}% end start ;结束汇编 .bdp=vbA k2bjBAT
|
