| 伍胥之 |
01-22-2011 00:02 |
第一个宏汇编程序 wQ/@+$>
e+[J[<8
工作后不久，单位里我所在的小组有了一台浪潮0520(XT兼容机)，有了硬盘，有了汇编编译程序，就开始玩汇编了。当然那时的主要工作是用dBASEIII，这个我已经在读研期间自学会了，读了一本关于dBASEIII plus的英文书，编个dBASE/FoxBASE程序已经是小菜一碟了。 ]KV8u 1H>
dUVT Q18F
那时候的硬盘老出点问题，经常碰上个“Error reading data....” 啥的小毛病，但是换又不方便而且很贵。PCTOOLS与NORTON DISKEDIT扫描盘比较慢。我就自己写了一个磁盘扫描程序。算是用汇编写的第一个正式的有点用处的程序吧！ \iTP Jcb5
/JY ph^3][
这也是我现在电脑里唯一一个汇编语言的程序了，其它都随着磁盘来回更换丢了。所以，还是在老大这里存一份留个纪念吧！ rgY?X$1q_
vkauX :M
比较长啊！所以可以自动跳过。 wP *a>a
Js2_&?}3f
.286 !/
q&0 a
.radix 16 !z6/.>QJ~
data segment ;定义数据段 KV&_^xSoh|
l\l]9Z6%
[q|Q]O 0
msg db 0dh, "Reading sector:$" $;j6
*,H
msg1 db 0dh, "Writing sector:$" 5~rY=0t
msgready db 0dh,0a,0dh,0a,"Reading/Writing completed!", 0dh,0a, "$" [Kj #KJxy
oDiv9 jm
dsp db " $" U3iyuE
Sy7^;/(ZZ
;DAP kQiW 5
PacketSize db 16d; // 数据包尺寸(16字节) [g
68O*
Reserved db 0; // ==0 Q~8&pP8 I!
BlockCount dw 63d; // 要传输的数据块个数(以扇区为单位) \(7# N<-
BufferAddr dw 0,0 ; // 传输缓冲地址(segment:offset) % !/liS
BlockNumL Dw 0,0; // 磁盘起始绝对块地址 a9q
?9X
BlockNumH Dw 0,0; // 磁盘起始绝对块地址 ]KPg=@Q/
$ax%K?MBD
;定位用DAP （复位到0磁道） T/.y(8!0I8
DAP0 db 16d cLk+( dn
db 0 =+#R
yV
dw 1 aNf3 R; *
buff1 dw 0,0 sf&K<C](
dw 0,0,0,0 \YF !< 2|[
OG$iZiuf
.Im+()b&&
;DiskParameters f#-T%jqnK
infosize dw 26d; WORD InfoSize; // 数据包尺寸 (26 字节) {( : )
falgs dw 0; WORD Flags; // 信息标志 q9Opa2
Cylinders DW 0; DWORD Cylinders; // 磁盘柱面数 ]R.Vq\A%S
Heads DW 0; DWORD Heads; // 磁盘磁头数 tf}Q%)`f
SPT Dw 0,0; DWORD SectorsPerTrack; // 每磁道扇区数 'C4Ll2
Sectors Dw 0,0,0,0; QWORD Sectors; // 磁盘总扇区数 @T=HcUP)
SectorSize DW 0; WORD SectorSize; // 扇区尺寸 (以字节为单位) thboHPml{
t;PnjCD<`
cmpsect dw 0 k |aOUW
M/`z;a=EP
msgcyl db 0dh,0a,"Disk Parameters",0dh,0a,"Total Cylinders:$" H"
g&
msgHds db 0dh,0a,"Heads:$" d:WhP_rK9
msgspt db 0dh, 0a,"SectorsPerTrack:$" 8Nq Iz
msgTotal db 0d,0a, "Total Sectors:$" c!FjHlAnP
msgSS db 0dh,0a, "Sector Size:$" *:\9 T#h
-(,6w?
msgReadErr db 0dh,0a,"Error Reading Sectors:$" H;8]GE2n
msgWriteErr db 0dh,0a, "Error Writing Sectors:$" H
{Wpf9_
K
msgReset db 0dh,0a, "Reseting drive to Cyl 0" JM4`k 8mM
42[:s:
z_0 lMX`
buffer db 32768d dup(0);
l e/#J
@z?.P;f 9#
data ends ;数据段结尾 &ZFAUE
,[
h p %Pg &
stack segment @V
CQ4X7T
db 400 dup(?) ~G^doj3|+
stack ends +OP:"Q_#
${:$jX [
code segment ;定义代码段 D`@U[ ` Sw
assume cs:code ;规定cs的内容 >knR>96
assume ds:data ;规定ds的内容 'cc4Y~0s
assume ss:stack [ES s?v$
T k=3"y+u[
start: yX Q;LQ;
pusha dM$G)9N)K
_BA_lkN+D
L6 }x3
mov ax,data ;程序从start开始 ^i k|l=
mov ds,ax ;ds置初值,data的段地址 |*| a~t
5'[X&r %#
;设置缓冲区 f9bz:_;W_
lea bx, buffer 1s\hJATfz
mov bufferaddr,bx q2pao?aa
mov buff1,bx 2gI_*fG1
mov bx,ds OmuZ 0@ .
mov bufferaddr+2,bx QnAf A%
mov buff1,bx cr;`0
Qy,qQA/
lea di,infosize H<Taf%J T
mov dl,80h i*E`<9
mov ah,48h 8$olP
:d
int 13h H%gD
[!^
%* ;
8m'
lea bx,msgcyl xR%ayT.
mov dx,bx r:Tb{cA
mov ah,09 `lOoT
int 21h ]ZATER)jq
mov dx,cylinders V zx(J)
call dispdx W3j|%
b- /x
lea bx,msghds rNO;yL4)ey
mov dx,bx =_:L
wmI
mov ah,09 j %0_!*#3
int 21h jmNj#R@t
mov dx,heads c<x6_H6[8
call dispdx 7 a npz%
lR3^&d72?
lea bx,msgspt K1WoIv<Ym
mov dx,bx 1 ! [bu
mov ah,09 !`U<RlK7
int 21h uk/+
i`=
mov dx,spt+2 &R t]K
call dispdx >mlt E$|
mov dx,spt ]>i0;R ME
call dispdx <plR<iI.
i^KYZ4/%
lea bx,msgtotal .T
X& X
mov dx,bx vw6FvE`lC
mov ah,09 wLSYzz
int 21h UAO#$o(
lea bx,sectors #9"_|d=l
call dispqword [ \F ,\
E cz "O
lea bx,msgss *<j @+Ch
mov dx,bx ^$
bhmJYT
mov ah,09 JN l+UH:.
int 21h aRP+?}b">
mov dx,sectorsize ;z=C]kI6M
call dispdx / kGX 6hh
dz9-+C{m
sbb word ptr sectors, 63d D/`E!6Fk=
jnc subok 8dB~09Z7
sub word ptr sectors+2,1 Qeog$g.HI
jnc subok za/#R _%p
sub word ptr sectors+4,1 0)4
4*T
jnc subok c'qM$KN9G
sub word ptr sectors+6,1 sYgnH:t X
Br!&Y9
subok: Jjq% cA
}w8AnaC
Q^Z}Y~.
jYZWf `X~
xor ax,ax ?d)|vX3Uf
mov blocknumL, ax !AHm+C_=Lg
mov blocknumL+2, ax >u2#<k]1&
mov blocknumL+4, ax ?8 m/]P/~
mov blocknumL+6, ax `roSOX 1f
_x{x#d;L3
startread: /Q_\h+ `
( %!R
call rwsect 8PS:yBkA|
a~"X.xT\R
adc word ptr blocknuml,63d ?R} oXSVT
jnc addok 0GVok$r@
adc word ptr blocknuml+2,1 9 F4|T7?
jnc addok L ,/i%-J3c
adc word ptr blocknuml+4,1 JwczE9~ o
jnc addok 21 j+c{O
adc word ptr blocknuml+6,1 4BtdN-T}b
jnc addok u K5Px!
wQ^a2$Z
addok: pwC/&bu
mov ax, word ptr sectors+6 :W.(,65c
cmp ax, blocknuml+6 xU"qB24]=
jg complete mjHY-lK
jl startread 4e t#Q
mov ax, word ptr sectors+4 2ow\d b
cmp ax, blocknuml+4
d2C:3-4
jg complete +60;z4y}w
jl startread 4Pdk?vHK;
mov ax, word ptr sectors+2 UQ~rVUo.c
cmp ax, blocknuml+2 [{*#cr f
jg complete S7Fxb+{6D
jl startread F# wa)XH
mov ax, word ptr sectors T I
cmp ax, blocknuml {r8CzJ'f
jg complete b1o(CG(}*
jl startread _@TTVd
x"80c(i
complete: xGA0]
_
w}b+vh^3Wy
lea bx,msgready Qd?P[xm
mov dx,bx o7
seGw<$X
mov ah,09 ;N |>pSzmL
int 21 [9^e
u>)A
PBv43uIL
popa vm4oaVi
mov ax,3100h , &SJ?XAs
int 21h $)~]4n=
?Sxnq#r #
; d`/{0 :F
dispdx proc near
G 9q0E|
pusha `yXy T^
lea bx, dsp+3 I SmnZ@
mov cx,4 K gX)fj
5i?U -
repeat0:
T5; D0tM/
mov al,dl q4N$. hpb
and al,0fh I,;)pWX=@
cmp al,09h D
]eF3a.G
jg add40 kv b-=
add al, 30h t |h mEHUk
jmp okadd
-;*Z!|e9
add40: $z]l4Hj
add al,37h |VL
,\&7rk
okadd: w%\; |y4+
mov byte ptr [bx],al F o6U "
dec bx
KRe=n3 1
shr dx,4 IWgC6)n@n
loopnz repeat0
p]oo^
lea bx,dsp 0iHI "9z
mov dx,bx tPH i
z
%
mov ah,09h {I vCe0`
int 21h zL 'n
J
~s_$a8
popa
"kC>EtaX
ret W
=m_G]"L
dispdx endp 3 !L)7Z/
_K>m9Q2
dispqword proc near ;|y,bo@sJJ
pusha 8<xy
*=%
mov cx ,4 $@j7VPE
add bx,6 $u
sU
repeatdecbx: 3R><AFMY?
mov dx,[bx]
*1 n:
call dispdx H5 {J2M,f
sub bx,2 ~/%){t/uLY
loopnz repeatdecbx /H% pOL6(r
popa =3p h:t
ret 'z'm:|J W
dispqword endp BKEB,K=K@
HvTQycG
rwsect proc near % 9.KH
0*/~9n-Vl
lea bx,msg |T%/d#b~
mov dx,bx R YNz TA
mov ah,09h +h/$_5
int 21h 5sE}B8
mF
o_n.,=/cZ
lea bx,BlockNumL x{}m)2[ Y
call dispqword K3^2R-3:8
?`>yl4
lea di, packetsize .R,8<4
mov dl,80h s>X;m
.<
mov ah,42h M e>'QVr
int 13h n6}1{\
jnc readok m.*+0 NG
9P$'ON'"
mov cx,5 t}
nRW o
;出错后重试(定位0道后再重读) %XeU4yg\e
retryrd: y=Hl ~ev`9
lea bx, msgReadErr d\ f 5\Y
mov dx,bx >Z%^|S9
mov ah,09 D 4wB
&~U
int 21h 6eD[)_?]y
K\q/JuDfc
/MC\ !,K
lea di,dap0 PhS" tOGtX
mov dl,80h SccU @3.X~
mov ah,44h 4o8!p\a
int 13h {TNAK%'v
49m/ UeNZ
lea bx,BlockNumL ? 6l::M
call dispqword
T9^i#8-^
C&T3vM
lea di, packetsize Y>+ D\|%Q
mov dl,80h THJ+OnP
mov ah,42h e| LXH/H
int 13h ln .~ >FO
jnc readok ^9nM)[/C?
loopnz retryrd &}uO ]0bR
:U s-^zVr
readok: &g`a [#
lea di, packetsize cPXvT Vvs
mov dl,80h 9[!
Hz)|X
mov ah,43h u$"5SGI6
int 13h QWkw$mcf
/%7eo?@,
rwsect endp P
dJ*'@~i
u=[oo @Rk`
code ends ;代码段结尾 WJ*DWyd''
end start ;结束汇编 pLU>vQA
AN;?`AM;
|
|
