| 伍胥之 |
01-22-2011 00:02 |
第一个宏汇编程序 u\t[rC=yd
c`doR(oZ
工作后不久，单位里我所在的小组有了一台浪潮0520(XT兼容机)，有了硬盘，有了汇编编译程序，就开始玩汇编了。当然那时的主要工作是用dBASEIII，这个我已经在读研期间自学会了，读了一本关于dBASEIII plus的英文书，编个dBASE/FoxBASE程序已经是小菜一碟了。 0
WF(Ga/o
iBp 7
1x65
那时候的硬盘老出点问题，经常碰上个“Error reading data....” 啥的小毛病，但是换又不方便而且很贵。PCTOOLS与NORTON DISKEDIT扫描盘比较慢。我就自己写了一个磁盘扫描程序。算是用汇编写的第一个正式的有点用处的程序吧！ I;P?P5H
tborRi )
这也是我现在电脑里唯一一个汇编语言的程序了，其它都随着磁盘来回更换丢了。所以，还是在老大这里存一份留个纪念吧！ v
0rX/ mj
yC+N18y?
比较长啊！所以可以自动跳过。 wS``Q8K+dM
}2`[email protected]
.286 .Z%7+[
.radix 16 <Ks?g=K-
data segment ;定义数据段 kgr:
8 5
/D1Bf:'(
n 8AND0a1C
msg db 0dh, "Reading sector:$" `Jm{K*&8Q
msg1 db 0dh, "Writing sector:$" ,=$yvZs4[]
msgready db 0dh,0a,0dh,0a,"Reading/Writing completed!", 0dh,0a, "$" @] 3(l
oq8~P
Tw
dsp db " $" d2.n^Q"?3
KS*W<_I
;DAP j"94hWb
PacketSize db 16d; // 数据包尺寸(16字节) k`oXo%
Reserved db 0; // ==0 *X niF~M
BlockCount dw 63d; // 要传输的数据块个数(以扇区为单位) Y0s^9?*
BufferAddr dw 0,0 ; // 传输缓冲地址(segment:offset) i$"FUC~'
BlockNumL Dw 0,0; // 磁盘起始绝对块地址 45kMIh~~X
BlockNumH Dw 0,0; // 磁盘起始绝对块地址 "Y (S G
B
susXW$
;定位用DAP （复位到0磁道） Vq9hAD|k
DAP0 db 16d OiM{@
db 0
`c :'il?
dw 1 ni2H~{]z
buff1 dw 0,0 n geX+@
dw 0,0,0,0 *ivbk /8
"MoV*U2s,
Rn(|
;DiskParameters pxI*vgfN7
infosize dw 26d; WORD InfoSize; // 数据包尺寸 (26 字节) LTzf&TZbx5
falgs dw 0; WORD Flags; // 信息标志 mNb+V /*x3
Cylinders DW 0; DWORD Cylinders; // 磁盘柱面数
%ef+Z
Heads DW 0; DWORD Heads; // 磁盘磁头数 Sw5H+!
SPT Dw 0,0; DWORD SectorsPerTrack; // 每磁道扇区数 9?,n+
Sectors Dw 0,0,0,0; QWORD Sectors; // 磁盘总扇区数 &CUkR6
SectorSize DW 0; WORD SectorSize; // 扇区尺寸 (以字节为单位) 3q pk Mu3
+S;8=lzuV
cmpsect dw 0 wf|CE410
hZ2PP ^
msgcyl db 0dh,0a,"Disk Parameters",0dh,0a,"Total Cylinders:$" d57(#)`
msgHds db 0dh,0a,"Heads:$" I=(O,*+PQ
msgspt db 0dh, 0a,"SectorsPerTrack:$" +QldZba
msgTotal db 0d,0a, "Total Sectors:$" X){F^1CT{
msgSS db 0dh,0a, "Sector Size:$" JYv&I t
\?3];+c9
msgReadErr db 0dh,0a,"Error Reading Sectors:$" h
p,T(D
|
msgWriteErr db 0dh,0a, "Error Writing Sectors:$" Tw!x*
msgReset db 0dh,0a, "Reseting drive to Cyl 0" yA%[ u.{
})
mez[UmZ
ni~45WX3
buffer db 32768d dup(0); &cpRB&bf
JiI(?I
data ends ;数据段结尾 (/ k, q
`Z%XA>
stack segment Q=^ }B}G
db 400 dup(?) ,P auP~L
stack ends 5VG@Q%
l'
"<
code segment ;定义代码段 *
+OAc `8
assume cs:code ;规定cs的内容 \F1n Ej
assume ds:data ;规定ds的内容 f{3FoN= z
assume ss:stack +Kf::[wP7
ulj`+D?H
start: D"^ogY#LK
pusha h$ZF[Xbfe
Y Nq<%i!>
Jc:G7}j6
mov ax,data ;程序从start开始 5+ fS$Q
mov ds,ax ;ds置初值,data的段地址 .-RW lUe;,
l_,8_u7G
;设置缓冲区 jDXmre?
lea bx, buffer N" E\o,_
mov bufferaddr,bx 6@l:(-(j2A
mov buff1,bx ^+GN8L Us
mov bx,ds i
w m7M
mov bufferaddr+2,bx cst=ms
mov buff1,bx p%3' ;7W\
L"}@> &6
lea di,infosize nF=Ig-NX^
mov dl,80h b]|7{yMV
mov ah,48h _I$]L8hC
int 13h jU4Ir {f
?[m5|ty#
lea bx,msgcyl A) `M*(~
mov dx,bx OVj,qL)
mov ah,09 PY>j?otD
int 21h Z< &:
W8n
mov dx,cylinders YLFTf1G9
call dispdx jWU)y)$
HH+rib'u
lea bx,msghds }\gpO0Ox
mov dx,bx $mlsFBd
mov ah,09 C{2 UPG4 x
int 21h W]M[5p]*
mov dx,heads 2ZE4^j|
call dispdx )9<)mV*EB(
JBoo7a1
lea bx,msgspt l
mov dx,bx X0!48fL*
mov ah,09 U{a h A
int 21h xUSIck
mov dx,spt+2 !0fK*qIL
call dispdx 7kJ,;30)
mov dx,spt u"|.]r
call dispdx Q45rP4mQ
Mm/GI a
lea bx,msgtotal E&[ox[g{
mov dx,bx -C8awtbC
mov ah,09 K} ;uH,
int 21h {ld([
lea bx,sectors |=h>3Z=r!
call dispqword QkF- }P%
ko,
u
lea bx,msgss As)-a5!
mov dx,bx JT_#>',
mov ah,09 {?m ',sG;&
int 21h bjvi`jyL3k
mov dx,sectorsize } >0UaK
call dispdx <?Lj!JGX
x1Si&0T0P<
sbb word ptr sectors, 63d w\@Anwj#L
jnc subok f3596a
sub word ptr sectors+2,1 D2?7=5DgS
jnc subok z ,ledTl
sub word ptr sectors+4,1 lT(MywNsg
jnc subok p1|@F^Q
sub word ptr sectors+6,1 'E7|L@X"r
D!@c,H
subok: CV&
SN A
LXK+WB/s
S
8]g'!
4Yn*q~f
xor ax,ax V'6%G:?0a
mov blocknumL, ax RKBtw
Zx>f
mov blocknumL+2, ax dv Xu?F55
mov blocknumL+4, ax w EkW=
mov blocknumL+6, ax zF{ z_c#3@
Ql\ GL"
startread: ^T<<F}@q
Z>X -u eV
call rwsect *sw$OnV b
6'Lij&,f?{
adc word ptr blocknuml,63d XDI@ mQmzB
jnc addok h,#A
Y[ Q
adc word ptr blocknuml+2,1 T
%cN(0 @
jnc addok JgxOxZS`@
adc word ptr blocknuml+4,1 U#Z}a
d?VX
jnc addok 2^:5aABQ
adc word ptr blocknuml+6,1 J7l1-
jnc addok & j>`H:
GQ[\R&]q<
addok: TI*uNS;-
mov ax, word ptr sectors+6 O^IpfS\/
cmp ax, blocknuml+6 ;ga~ae=Fg
jg complete 1$
l3-x
jl startread kj-S d^
mov ax, word ptr sectors+4 4)"jg[
cmp ax, blocknuml+4 ChB
ZGuO:
jg complete "urQUpF
jl startread e{?~ m6
mov ax, word ptr sectors+2 /sYD+*a
cmp ax, blocknuml+2 ^c!Hur6)
jg complete ].Et&v
jl startread +q =/}|
mov ax, word ptr sectors =UYc~VUYnT
cmp ax, blocknuml 3 -Ti'xM
jg complete Rq\.RR](
jl startread i4uUvZ f
'7E?|B0],
complete: f -23.]`v
J@)6]d/,
lea bx,msgready
_y8)jD"
mov dx,bx c5t?S@b
mov ah,09 Wm"W@LPx5
int 21 0&w.QoZY(
U9;AU] A
popa 43(+3$V M7
mov ax,3100h aIm\tPbb
int 21h H>W A?4
G,$jU9 f
; ND I|;
dispdx proc near l$zM|Z1wR`
pusha .IG(Y!cB
lea bx, dsp+3 1YS{;
y[o
mov cx,4 {j^}"8G B
e <IT2tv>u
repeat0: _$
F I>
mov al,dl (IEtjv}D
and al,0fh X"[c[YT!%[
cmp al,09h v4 c_UFEh<
jg add40 K
\;b3
add al, 30h W/&cnp\
jmp okadd 0mCrA|A.
add40: 0 _%u(?
add al,37h tt`b+NOH>
okadd: yuhSP{pv'
mov byte ptr [bx],al 8WaVs 6
dec bx Z$+0gm\Cnw
shr dx,4 u/``* =Y@
loopnz repeat0 J. *dA j
lea bx,dsp N ]5-#
mov dx,bx 5$jKw\FF=
mov ah,09h hDfsqSK0 /
int 21h //AS44^IS
^TDHPBlG
popa ;up89a-,9
ret sYp@.?Tz
dispdx endp 4wK!)P wq
h "q`gj
dispqword proc near e&wW lB![
pusha G-T:7
mov cx ,4 N.3M~0M*
add bx,6 #O k*O r
repeatdecbx: CM~)\prks
mov dx,[bx] }t] CDa_n
call dispdx OHH wcJ 7N
sub bx,2 f4:g D*YT
loopnz repeatdecbx /<M 08z e
popa ^OYar(
ret PC
D 1I98
dispqword endp \5O4}sm$*
~I!7]i]"*?
rwsect proc near 4m%_# J{
4I NO .
lea bx,msg
v u 1F
mov dx,bx ku?i[Th
mov ah,09h 4egq Y0A
int 21h $ %sOL(
r
p5Y"W(5_
lea bx,BlockNumL 8wwD\1pLS
call dispqword p+A#t~K
5]gd,&^?>
lea di, packetsize $0{c =r9
mov dl,80h Nno*X9>~
mov ah,42h IEO5QV:u:
int 13h L%N|8P[
jnc readok EAx@a%
Au:Q4x.
mov cx,5 -4"E]f
;出错后重试(定位0道后再重读) ,qt9S0 QS
retryrd: gP)g_K(e
lea bx, msgReadErr lB3W|-Ci
mov dx,bx {6A3?q
mov ah,09 ci|6SaY*
int 21h elw<
(<u`
#uFP
eu:
Ga$+x++'*
lea di,dap0 @ Vc*JEW
mov dl,80h HP&+ 8
mov ah,44h j@Z4(X L
int 13h q]< cn2
.3!=]=
lea bx,BlockNumL bf::bV?T
call dispqword nKuf Ve
rsA K0R+
lea di, packetsize Ean@GDLz8
mov dl,80h n|3ENN
mov ah,42h t&0pE(MO/
int 13h >8HcCG
jnc readok lcyan
loopnz retryrd Qnph?t>
kcI3pmgj
readok: <+ pwGKtD
lea di, packetsize 2 et7Vw
mov dl,80h EubF`w$KWX
mov ah,43h
c`AtK s)u
int 13h I=|b 3-
h_Q9 c
rwsect endp V%
psaT=)P
E_7N ^htv
code ends ;代码段结尾 {_l@ws
end start ;结束汇编 oJ>]=^?k
= K}5 fe
|
|
