| 伍胥之 |
01-22-2011 00:02 |
第一个宏汇编程序 EmoU7 iy
f|E'eFrFk
工作后不久，单位里我所在的小组有了一台浪潮0520(XT兼容机)，有了硬盘，有了汇编编译程序，就开始玩汇编了。当然那时的主要工作是用dBASEIII，这个我已经在读研期间自学会了，读了一本关于dBASEIII plus的英文书，编个dBASE/FoxBASE程序已经是小菜一碟了。 Db:WAjU
)q-! 5^ak
那时候的硬盘老出点问题，经常碰上个“Error reading data....” 啥的小毛病，但是换又不方便而且很贵。PCTOOLS与NORTON DISKEDIT扫描盘比较慢。我就自己写了一个磁盘扫描程序。算是用汇编写的第一个正式的有点用处的程序吧！ \~1+ T
Iv
SrJe[;
这也是我现在电脑里唯一一个汇编语言的程序了，其它都随着磁盘来回更换丢了。所以，还是在老大这里存一份留个纪念吧！ He23<hd!
"7/YhLq7
比较长啊！所以可以自动跳过。 W5
g!`f
O:R{4Q*5
.286 oABPGyv
.radix 16 X;RI7{fW%X
data segment ;定义数据段 0P
>dXd)T
# =3]bg
:HQ/vVw'"9
msg db 0dh, "Reading sector:$" E:OeU_\
msg1 db 0dh, "Writing sector:$" C(+BrIS*
msgready db 0dh,0a,0dh,0a,"Reading/Writing completed!", 0dh,0a, "$"
!A0bb J
T r!X2#)A!
dsp db " $" QX|K(`of
!g:UM R
;DAP K PqI(
PacketSize db 16d; // 数据包尺寸(16字节) -*r';Mz;
Reserved db 0; // ==0 9>P(eN
BlockCount dw 63d; // 要传输的数据块个数(以扇区为单位) ir?9{t/()
BufferAddr dw 0,0 ; // 传输缓冲地址(segment:offset) F9hWB17u
BlockNumL Dw 0,0; // 磁盘起始绝对块地址 j(2T,WM
BlockNumH Dw 0,0; // 磁盘起始绝对块地址 vBX r[XoC
7NEn+OI4
;定位用DAP （复位到0磁道） g"f^YEQ_
DAP0 db 16d ,' B=eY,
db 0 ,"ZlY}!Gn
dw 1 =Ji:nEl]z
buff1 dw 0,0 aoX$,~oI5
dw 0,0,0,0 4(IP
6*Qpq7M l
@SXgaWr
;DiskParameters (#`o >G (
infosize dw 26d; WORD InfoSize; // 数据包尺寸 (26 字节) yp/*@8%_E
falgs dw 0; WORD Flags; // 信息标志 r P_ )*)
Cylinders DW 0; DWORD Cylinders; // 磁盘柱面数 8A_(]Q
Heads DW 0; DWORD Heads; // 磁盘磁头数 ?K# $81;[
SPT Dw 0,0; DWORD SectorsPerTrack; // 每磁道扇区数 J n/=v\K@
Sectors Dw 0,0,0,0; QWORD Sectors; // 磁盘总扇区数 [%Xfl7;Wh
SectorSize DW 0; WORD SectorSize; // 扇区尺寸 (以字节为单位) Xs_y!l
WRM}gWv*
cmpsect dw 0 ; & +75n
M$9h)3(B
msgcyl db 0dh,0a,"Disk Parameters",0dh,0a,"Total Cylinders:$" 6 H.Da]hk
msgHds db 0dh,0a,"Heads:$" HS9U.G >
msgspt db 0dh, 0a,"SectorsPerTrack:$" 1uMdgrJR R
msgTotal db 0d,0a, "Total Sectors:$" #u^d3
$Nj
msgSS db 0dh,0a, "Sector Size:$" Hy'&x?F6
] ghPbS@
msgReadErr db 0dh,0a,"Error Reading Sectors:$" $la,_ Sr
msgWriteErr db 0dh,0a, "Error Writing Sectors:$" |n8^Xsx4w
msgReset db 0dh,0a, "Reseting drive to Cyl 0" gX<C-y6o
C? S %fF
<KX#;v!I
buffer db 32768d dup(0); ,fRb6s-
g^FH[(P[G
data ends ;数据段结尾 va<pHSX&I@
?Fu., srt
stack segment > { Q2S
db 400 dup(?) 6yqp<D0SP)
stack ends uWE@7e4'I
J .d<5`7
code segment ;定义代码段 Jj v&@a}
assume cs:code ;规定cs的内容 H#K|SSqY?
assume ds:data ;规定ds的内容 k$c!J'qL&
assume ss:stack iDr0_y*t
IT|CfQ [D
start: aL}_j#m{
pusha v3Kqs:"\
AsOI`@FV
PoZBiw@
mov ax,data ;程序从start开始 r>\.b{wI
mov ds,ax ;ds置初值,data的段地址 d|3[MnU[a
F2=97 =R
;设置缓冲区 vr$ [
lea bx, buffer aoN[m V '
mov bufferaddr,bx [PT}!X7h
mov buff1,bx %VCHM GP=
mov bx,ds t*#T~3p
mov bufferaddr+2,bx 4j5plm=
mov buff1,bx I]58;|J
%O k.XBS)
lea di,infosize ND*5pRzvp
mov dl,80h %BJ V$tO
mov ah,48h " PPwJ/L(
int 13h dL>ZL1.$
nm ..$QL
lea bx,msgcyl &I8ZVtg
mov dx,bx p{U ro!J,K
mov ah,09
S3w? X
int 21h $l=m?r=
mov dx,cylinders CAfG3;
call dispdx a9%#
J^ !
I5{SC- 7
lea bx,msghds ! WN r09`
mov dx,bx y$rp1||lH
mov ah,09 c{[WOrA~#
int 21h K2JS2Y]
mov dx,heads <#sK~G
call dispdx *" wsMO
Nsb13mlY
lea bx,msgspt P$Nwf,d2u
mov dx,bx kq+L63fZ
mov ah,09 NR" Xn7G
int 21h >U z3F7nHi
mov dx,spt+2 p)`JVq,H/B
call dispdx %5b2vrg~*
mov dx,spt 5K0Isuu>>
call dispdx _
. _'\
U:H*b{`TU
lea bx,msgtotal pnWDsC ~)
mov dx,bx cOSUe_S0w[
mov ah,09 hq|/XBd||
int 21h /n_N`VJ7H
lea bx,sectors HjrCX>v
call dispqword !U@[lBW
`J;_!~:
lea bx,msgss +u7mw<A
8
mov dx,bx dXZV1e1b&#
mov ah,09 kAMt8
int 21h
cz afBO6
mov dx,sectorsize R b'"09)$
call dispdx ,xGkE 7=5
tlE+G @|^
sbb word ptr sectors, 63d
o4xZaF4+
jnc subok : 7'anj
sub word ptr sectors+2,1 }0:
=)e
jnc subok IsI\T8yfc
sub word ptr sectors+4,1 :EZTJu
jnc subok i9Qx {f88
sub word ptr sectors+6,1 cYK3>p
A
5bk5EE`
subok: 8D-g%Aj-
d:3G4g
."${.BPn~
Hly$ Wm
xor ax,ax d bw`E"g
mov blocknumL, ax Y:O%xtGi
mov blocknumL+2, ax g94NU
X
mov blocknumL+4, ax DF<_Ns!
mov blocknumL+6, ax L49`=p<
I_Q '+d
startread: E=7~\7TE
"!2 Fy-Y
call rwsect C Z|R-ky6p
s {!F@^a
adc word ptr blocknuml,63d uCx\Bt"VI
jnc addok mhL ,:UE
adc word ptr blocknuml+2,1 vO 3fAB
jnc addok )]'?yS"
adc word ptr blocknuml+4,1 oE}1D? 3Sp
jnc addok WL<Cj_N_{H
adc word ptr blocknuml+6,1 z"|^Y|`m
jnc addok 1 Nv_;p.{
qjuX1 6o
addok: uGOvZO^v
mov ax, word ptr sectors+6 ZhW>H
cmp ax, blocknuml+6 ))<3+^S0V\
jg complete aB.`'d)V
jl startread 7cH[}v`pn
mov ax, word ptr sectors+4 fDf:Jec`[
cmp ax, blocknuml+4 W,:*`
jg complete
q*8^938
jl startread UW!!!
mov ax, word ptr sectors+2 ,JX/` 7
y
cmp ax, blocknuml+2 El ,p }Bi.
jg complete \xw E4K
jl startread ;a2TONW
mov ax, word ptr sectors :Fm)<VN"
cmp ax, blocknuml Dr z#D1-2
jg complete p3&w/K{L6w
jl startread \) pk/
4Y[tx]<
complete: J=ZNx;{6
mJl|dk_
c
lea bx,msgready s-[ _%
mov dx,bx |d&a&6U:
mov ah,09 5P [b/.n
int 21 p
\1-.
J" # o #~
popa QOMh"wC3
mov ax,3100h 1 %K^( J;
int 21h w`q):yXX
Qn_*(CSp
; !q mnMY$
dispdx proc near f3h^R20qmO
pusha 7YrX3Hx 8
lea bx, dsp+3 5 ^+> *z
mov cx,4 D3N\$ D
Mz_*`lR N
repeat0: qdWsP9}q
mov al,dl _Uc le
and al,0fh ; vnG
cmp al,09h
hT]\*},
jg add40
v [\'
M
add al, 30h C[gy{40}
jmp okadd })%WL;~
add40: pb t/i+!
add al,37h ]25 x X
okadd: q3n(Z
mov byte ptr [bx],al $ 5Jo %K%
dec bx {dTtYL$ '"
shr dx,4 rfk u]A$
loopnz repeat0 l*rli[No
lea bx,dsp [kaj8
mov dx,bx dX?8@uz u
mov ah,09h 9v=5x[f E
int 21h 1 : <f[l
lku}I4
popa Tapj7/0`
ret eKsc [ "
dispdx endp eJlTCXeZ|
g4^=Q'j-
dispqword proc near ED [` Y.;
pusha A@^Y2:pY
mov cx ,4 '#L.w6<B
add bx,6
Ep)rEq6
repeatdecbx:
* DcJ).
mov dx,[bx] V*U{q%p(
call dispdx LR|L P)I
sub bx,2 eTw sh]
loopnz repeatdecbx
bVaydJ*
popa fO|oV0Rw
ret B_$hi=?TTd
dispqword endp kdcr *7w
$# klgiL
rwsect proc near W6:ei.d+NS
PRa #; W
b
lea bx,msg W z',>&a
mov dx,bx !l
pKZG
mov ah,09h >,wm-4&E
int 21h
* EY^t=
n$&xVaF|
lea bx,BlockNumL d2Pqi* K
call dispqword [oqb@J2
R9%Um 6
lea di, packetsize ~H`~& ?
mov dl,80h b ;A(6^ V
mov ah,42h )%FRBO]
int 13h . Lbu [
jnc readok 6qp2C]9=
_Z'[-rcXWh
mov cx,5 dz3chy,3
;出错后重试(定位0道后再重读) ZUPl MHc
retryrd: os 9X)G
lea bx, msgReadErr uY{V^c#mv
mov dx,bx /Sy:/BQ
mov ah,09 lC)
:$W
int 21h J0K25w
/i.3v45t"
;w--fqxVl
lea di,dap0 H =,0p
mov dl,80h 6HeZ<.d&
mov ah,44h LX5, _ `B
int 13h %iMRJ}8(7
HY|=Z\l"
lea bx,BlockNumL b+7
!$
call dispqword aAJ'0xnj
9O 1#%
lea di, packetsize SFP%UfM<
mov dl,80h WCJ $S\#
mov ah,42h HuzHXn)
int 13h L Vt{ `
jnc readok K)=<hL
loopnz retryrd ( CD
wl,
h ' # C$i
readok: ;iEr+
lea di, packetsize 9[31EiT
mov dl,80h ^F J .C|l(
mov ah,43h 4AA3D!$
int 13h |:Q`9;
`IN/1=]5
rwsect endp ZxW4 i
tgz
code ends ;代码段结尾 Y_S>S( 0
end start ;结束汇编 C ^ 2J<
bLSXQStB
|
|
