第一个宏汇编程序 v&(PM{3o
,n-M!y
工作后不久，单位里我所在的小组有了一台浪潮0520(XT兼容机)，有了硬盘，有了汇编编译程序，就开始玩汇编了。当然那时的主要工作是用dBASEIII，这个我已经在读研期间自学会了，读了一本关于dBASEIII plus的英文书，编个dBASE/FoxBASE程序已经是小菜一碟了。 4D0=3Vy
*[9FPya
那时候的硬盘老出点问题，经常碰上个“Error reading data....” 啥的小毛病，但是换又不方便而且很贵。PCTOOLS与NORTON DISKEDIT扫描盘比较慢。我就自己写了一个磁盘扫描程序。算是用汇编写的第一个正式的有点用处的程序吧！ ~ bf-uHx
.|G([O^H
这也是我现在电脑里唯一一个汇编语言的程序了，其它都随着磁盘来回更换丢了。所以，还是在老大这里存一份留个纪念吧！ 9l+'V0?`
)C |[j@MD
比较长啊！所以可以自动跳过。 ~$Xz~#~
GNgPf"}K
.286 Akb#1Ww4
.radix 16 *G7/
data segment ;定义数据段 xf_NHKZ)
8rx?mX,}
iLIH |P%
msg db 0dh, "Reading sector:$" s["8QCd"r
msg1 db 0dh, "Writing sector:$" m+?$cyA>v
msgready db 0dh,0a,0dh,0a,"Reading/Writing completed!", 0dh,0a, "$" Z
Ql
ja
d
*!) w
t
dsp db " $" [z5pqd-
Mxc0=I'a
;DAP /2Y t\=S=
PacketSize db 16d; // 数据包尺寸(16字节) &O/; YGEAB
Reserved db 0; // ==0 &-dyg+b3
BlockCount dw 63d; // 要传输的数据块个数(以扇区为单位) G\ @ uj>Z
BufferAddr dw 0,0 ; // 传输缓冲地址(segment:offset) [u`v'*0d
BlockNumL Dw 0,0; // 磁盘起始绝对块地址 G0Eqo$W)S
BlockNumH Dw 0,0; // 磁盘起始绝对块地址 96fbMP+7R
?h2!Z{[0b
;定位用DAP （复位到0磁道） fb0i6RC~&
DAP0 db 16d 7y""#-}V[r
db 0 "eA4JL\%)
dw 1 V\5ZR LawP
buff1 dw 0,0 5
<X.1 T1
dw 0,0,0,0 jgQn^
*I : ^g
;G |5kvE>
;DiskParameters ] DHB'NOh,
infosize dw 26d; WORD InfoSize; // 数据包尺寸 (26 字节) \vjIw{
falgs dw 0; WORD Flags; // 信息标志 ...|S]a
Cylinders DW 0; DWORD Cylinders; // 磁盘柱面数 ABu K`(f.
Heads DW 0; DWORD Heads; // 磁盘磁头数 h8i
ic
SPT Dw 0,0; DWORD SectorsPerTrack; // 每磁道扇区数 ]+@ @{?0
Sectors Dw 0,0,0,0; QWORD Sectors; // 磁盘总扇区数 p2cwW/^V
SectorSize DW 0; WORD SectorSize; // 扇区尺寸 (以字节为单位) LZG?M|(6D
7k.=_
Tl
cmpsect dw 0 H$bu* o-Z
k)U9 %Pr
msgcyl db 0dh,0a,"Disk Parameters",0dh,0a,"Total Cylinders:$" =]X_wA;%
msgHds db 0dh,0a,"Heads:$" UF r
]$m&
msgspt db 0dh, 0a,"SectorsPerTrack:$" e` 2 7 ?
msgTotal db 0d,0a, "Total Sectors:$" $ @QF<?i~
msgSS db 0dh,0a, "Sector Size:$" >> yK_ yg
h mC. 5mY
msgReadErr db 0dh,0a,"Error Reading Sectors:$" 6q-X$
msgWriteErr db 0dh,0a, "Error Writing Sectors:$" OuWG.Za
msgReset db 0dh,0a, "Reseting drive to Cyl 0" %{?EfULg
4! ]28[2B6
G6]W'Kk
buffer db 32768d dup(0); "#Qqwsw7
(,*e\o
data ends ;数据段结尾 X,DG2HT
efW<
stack segment 2K[Y|.u8>q
db 400 dup(?) #;4<dDVy
stack ends #fk#RNt
Q"itV&d,
code segment ;定义代码段 l6] :Zcd0
assume cs:code ;规定cs的内容 uQk}
assume ds:data ;规定ds的内容 + :4
F@R
assume ss:stack SM;UNIRVE
<H03i"Z/S
start: _Vu l9=
pusha 0eP7efy
A c{"$P`
MKMWHGN
mov ax,data ;程序从start开始 4HG;v|Cp
mov ds,ax ;ds置初值,data的段地址 VbLwhA2W}F
R~TzZ(Ah]
;设置缓冲区 -9W)|toWb"
lea bx, buffer
`=TV4h4
mov bufferaddr,bx l KKg n{R
mov buff1,bx .K%1{`.|
mov bx,ds fhp\of/@
R
mov bufferaddr+2,bx % xv }
mov buff1,bx >|Yr14?7
Q "r QVO
lea di,infosize V9
Z
mov dl,80h oM ey^]!
mov ah,48h !6.}{6b
int 13h 2 %o@ ?Rp
pbc<326X"
lea bx,msgcyl ;7=pNK
mov dx,bx "V|&s/9
mov ah,09 c~ x
int 21h onqfmQ,3E
mov dx,cylinders mu`:@7+Yp
call dispdx moz *=a
1fajTT?
lea bx,msghds }h{8i_R
mov dx,bx sa 6/ $
mov ah,09 > 8%<ML
int 21h b`: n i
mov dx,heads 7-S ?\:J
call dispdx Cb:}AQ =
IP<]a5
lea bx,msgspt d rRi<7
i
mov dx,bx -|_#6-9
mov ah,09 ?D[9-K4Vn
int 21h pe%$(%@v
mov dx,spt+2 xb8S)zO]Q
call dispdx nSR7$yS_
mov dx,spt '$nm~z,V
call dispdx A><w1-X&=o
A:Y
([
lea bx,msgtotal JO3"$s|t
mov dx,bx SlK 6Kn X
mov ah,09 p SMF1Oy
int 21h vNo( `~]c
lea bx,sectors *DBm"{q%&k
call dispqword GS_+KR\
TQ hu$z<
lea bx,msgss [ {@0/5i
mov dx,bx )w/ #T
mov ah,09 jgpSFb<9F
int 21h B L^?1x
mov dx,sectorsize "wqN,}bj\
call dispdx 1V/?p<A
^/c v8M=
sbb word ptr sectors, 63d ': fq/k3;&
jnc subok <yNu/B.M
sub word ptr sectors+2,1 u_31Db<
jnc subok Kd,8PV*_
sub word ptr sectors+4,1 ' 5 tk0A
jnc subok +hiskV@ v
sub word ptr sectors+6,1 :[ P)t
%
^UJ B%l
subok: }(MI}o}
WK$d<:"
dbVMG-z8
Q6qIx=c4
xor ax,ax '\ g- z
mov blocknumL, ax B=!&rKF
mov blocknumL+2, ax V7~tIhuJH
mov blocknumL+4, ax 4 q- /R
mov blocknumL+6, ax IZ2(F,{o
]]"O)tWHj
startread: kz3 0! L
%mF:nU 4
call rwsect ^
\ "@r%|
-/)>DOgUq
adc word ptr blocknuml,63d 41^ =z[k
jnc addok zvEof K
adc word ptr blocknuml+2,1 z:gp
\
jnc addok STln_'DF'
adc word ptr blocknuml+4,1 FUTD/y]L u
jnc addok OS -
Xh-:z
adc word ptr blocknuml+6,1 @*>kOZ (3
jnc addok [T}Lq~
r. z=
addok: t,P_&0 X
mov ax, word ptr sectors+6 9Ub##5$[,
cmp ax, blocknuml+6 ZsnFuk#W
jg complete YmwUl>
@{
jl startread &AUtUp
kOo
mov ax, word ptr sectors+4 9I1D'7wI^^
cmp ax, blocknuml+4 'DeI]IeP
jg complete &d,!^9
jl startread 3aX/)v.:4
mov ax, word ptr sectors+2 ue8"_N
cmp ax, blocknuml+2 *Rx& #9
jg complete 3:]c> GPQ
jl startread 2oBT
_o%/J
mov ax, word ptr sectors :o"9x,
cmp ax, blocknuml Z(h.)$yH*=
jg complete ]0d j##5tJ
jl startread G>
@ K
X
t@"i/@8x$
complete: azBYh*s=5{
THN/ /}d
lea bx,msgready $:l>g)c
mov dx,bx ,; D$d#\"
mov ah,09 HP,sNiw
int 21
E &z`BPd
C
srxi'Pe
popa #OMFv.
mov ax,3100h @y ImR+^.7
int 21h a*kvU "]
I,8f{T!O@"
; NoAgZ{))
dispdx proc near n5qg6(Tl]
pusha w ag^S k
lea bx, dsp+3 y]U]b G{
mov cx,4 v}`{OE:-J
BG&XCn5g|
repeat0: r `;_ #&b
mov al,dl 4>t'4p6{
and al,0fh ,h<xL-
cmp al,09h ovXU +8
jg add40 \>] C
add al, 30h d }:e L
C
jmp okadd
-ZVCb@%
add40: Ea,L 04K
add al,37h s;!_'1pi@
okadd: I5%#A/|z
mov byte ptr [bx],al 4 AWL::FU5
dec bx /XVjcD66c
shr dx,4 )hy(0 D
loopnz repeat0 d8!yV~Ka
lea bx,dsp D\H;
_k8
mov dx,bx 3bN]2\
mov ah,09h chC= $(5
t
int 21h iZ( U]
(&osR|/Tq
popa ]_5qME#N
ret Mil+> X0
dispdx endp 3QF/{$65!
V zTHW5B
dispqword proc near !E@4^A80\W
pusha c>b!{e@*
mov cx ,4 ZZ*+Tl\
s
add bx,6 qG) M8xk
repeatdecbx: ,
'Sj:l
mov dx,[bx] qP k`e}D
call dispdx Y#<>N-X|kA
sub bx,2 "h`oT4j5q
loopnz repeatdecbx CM`B0[B
popa 6"djX47j
ret xQ0.2[*5
dispqword endp V<A$eb>6
P]^ BE;7T
rwsect proc near @ ,^c?v
'>:c:Tewy
lea bx,msg [C^&iLX/F*
mov dx,bx Wc HL:38
mov ah,09h
zB68%
int 21h *,FU*z i
nl)l:A+q8
lea bx,BlockNumL b4?]/Uy+/
call dispqword `
EdZ
,j!%,!n o
lea di, packetsize "tF#]iQQ
u
mov dl,80h FGey%:p9$
mov ah,42h Q8Fqf
;4
int 13h |MMaaW^"
jnc readok J`[v u4
Fm# `}K _
mov cx,5 FQh8(^(
;出错后重试(定位0道后再重读) wrhGZ=k{
retryrd: f`vu+nw
lea bx, msgReadErr H.)Y*zK0.
mov dx,bx n@te.,?A"
mov ah,09 M 8NWQ^Y
int 21h T
B(K&3_D
DJJd_
`i5 \(cdl
lea di,dap0 ]8+
D
mov dl,80h j;yKL-ycB
mov ah,44h UP .4# 1I
int 13h Q) [DSM
V'^E'[Dd{
lea bx,BlockNumL 0&$,?CL?
call dispqword Liv.i;-qE
G%F}H/ |R
lea di, packetsize 5< $8.a#
mov dl,80h IQ\5!e
mov ah,42h w!|jL
$5L
int 13h k -!Jww
jnc readok ia#8 ^z
loopnz retryrd uA[c
$tBe
e.V Q!)>
readok: l.Q.G<ol
lea di, packetsize (jp!q ,)
mov dl,80h f`K[oCfu
mov ah,43h S
Rb -eDk'
int 13h {oftZ Xwf
wLa8&E [
rwsect endp PJF1+I.%c#
}h+{>{2j
code ends ;代码段结尾 /~1Ew
end start ;结束汇编 7U1^=Y@t}
@L ,4JPk
