第一个宏汇编程序 L*'3f~@Q
$YPQi.
工作后不久，单位里我所在的小组有了一台浪潮0520(XT兼容机)，有了硬盘，有了汇编编译程序，就开始玩汇编了。当然那时的主要工作是用dBASEIII，这个我已经在读研期间自学会了，读了一本关于dBASEIII plus的英文书，编个dBASE/FoxBASE程序已经是小菜一碟了。 {<k}U;uiO
Wb7z&vj
那时候的硬盘老出点问题，经常碰上个“Error reading data....” 啥的小毛病，但是换又不方便而且很贵。PCTOOLS与NORTON DISKEDIT扫描盘比较慢。我就自己写了一个磁盘扫描程序。算是用汇编写的第一个正式的有点用处的程序吧！ %ylpn7I
\6
[? 1m6u;
这也是我现在电脑里唯一一个汇编语言的程序了，其它都随着磁盘来回更换丢了。所以，还是在老大这里存一份留个纪念吧！ G#f(oGn :
E v)aXP
比较长啊！所以可以自动跳过。 M6
MtE_E
:VvJx]
.286 )yyS59s
.radix 16 IW&.JNcN
data segment ;定义数据段 o<f#Zi
K;NaiRP#k
h{BO\^6x
msg db 0dh, "Reading sector:$" Lu6?$N57rC
msg1 db 0dh, "Writing sector:$" H"n@=DMLm
msgready db 0dh,0a,0dh,0a,"Reading/Writing completed!", 0dh,0a, "$" 9si, z
C>0='@LB@r
dsp db " $" ,<cF<9h
F VVpyB|
;DAP n?E
L\B
PacketSize db 16d; // 数据包尺寸(16字节) '-? t^@
Reserved db 0; // ==0 *
SHQ[L4{
BlockCount dw 63d; // 要传输的数据块个数(以扇区为单位) ]ICBNJ
BufferAddr dw 0,0 ; // 传输缓冲地址(segment:offset) yrgb6)]nm@
BlockNumL Dw 0,0; // 磁盘起始绝对块地址 re%MT@L#
BlockNumH Dw 0,0; // 磁盘起始绝对块地址 /q
eSR3WC
Wok
Q
X"
;定位用DAP （复位到0磁道） `(dRb
DAP0 db 16d =I6u*$9<
db 0 t%'0uB#v1
dw 1 sP`
k{xG
buff1 dw 0,0 g0&Rl
dw 0,0,0,0 D_(K{? KU
F
#
a)"$j;
sO;]l"{<
;DiskParameters BGSq
fr1F
infosize dw 26d; WORD InfoSize; // 数据包尺寸 (26 字节) 3L5o8? [
falgs dw 0; WORD Flags; // 信息标志
2TZ+R7B?
Cylinders DW 0; DWORD Cylinders; // 磁盘柱面数 >_m4
idq1
Heads DW 0; DWORD Heads; // 磁盘磁头数 'aAay*1
SPT Dw 0,0; DWORD SectorsPerTrack; // 每磁道扇区数 Z,ZebS@yG
Sectors Dw 0,0,0,0; QWORD Sectors; // 磁盘总扇区数 Q&;d7A.@
SectorSize DW 0; WORD SectorSize; // 扇区尺寸 (以字节为单位) Jemb0Qv
8>(DQ"h
cmpsect dw 0 (4 6 S^*
>RL|W}tI4
msgcyl db 0dh,0a,"Disk Parameters",0dh,0a,"Total Cylinders:$" wRLj>nc
msgHds db 0dh,0a,"Heads:$" h 5>38Kd
msgspt db 0dh, 0a,"SectorsPerTrack:$" J]=2] oI2
msgTotal db 0d,0a, "Total Sectors:$" mm@)uV<\
msgSS db 0dh,0a, "Sector Size:$" t&^cYPRfY'
>8>}o4Q/X
msgReadErr db 0dh,0a,"Error Reading Sectors:$" I8]q~Q<-P
msgWriteErr db 0dh,0a, "Error Writing Sectors:$" d O' apey
msgReset db 0dh,0a, "Reseting drive to Cyl 0" 7K\H_YY8#
Ou'<9m!9
=w/S{yC
buffer db 32768d dup(0); w-3 B~e
="Edt+a)t
data ends ;数据段结尾 ]B'H(o
R<|
lDd8dT-Q.
stack segment `J}-U\4F{
db 400 dup(?) H{ 4/~Z
stack ends rQ!X
?->&)oAh
code segment ;定义代码段 |:{H4
assume cs:code ;规定cs的内容 j%Cr)' H?
assume ds:data ;规定ds的内容 5%Xny8
]|D
assume ss:stack Hc"FW5 R
IY=CTFQ8lm
start: ;[[GA0
pusha FhyA_U%/nF
@U;U0
qt
!T %K
mov ax,data ;程序从start开始 KDmzKOl
mov ds,ax ;ds置初值,data的段地址 U(t_uc5q
A8by5qU
;设置缓冲区 OlJkyL8|
lea bx, buffer g'Id3 1r'
mov bufferaddr,bx c{SD=wRt,y
mov buff1,bx (q|E C;
mov bx,ds |!=KLJUA
mov bufferaddr+2,bx C $r]]MSj
mov buff1,bx q&y9(ZvI
U if61)+!i
lea di,infosize *wY { ~zh
mov dl,80h 0
3/ <A ^
mov ah,48h g12mSbf=9
int 13h $sTvXf:g
*?Pbk+}%
lea bx,msgcyl ^9zFAY.|
mov dx,bx | n_es)A
mov ah,09 RgQ;f YS
int 21h "VfV;)]|w
mov dx,cylinders a| s
64+
call dispdx J91O$szA
J
BN_Upat
lea bx,msghds `=B0NC.3
mov dx,bx HxXCx I3
mov ah,09 z#|#Cq`VG
int 21h ;&9A
Yh.
mov dx,heads
Ue8k9%qV
call dispdx uSRvc0R\
_?IP}} jA:
lea bx,msgspt {q}#
S q
mov dx,bx sIZ|N"2]A*
mov ah,09 8pQ:B
/3=
int 21h ly )b=ph&
mov dx,spt+2 UVIR
P#
call dispdx + mqz)-x
mov dx,spt dAZh# i[
call dispdx my |UlZ(qg
xr< .r4
lea bx,msgtotal e= <%{M&
mov dx,bx fsxZQ=-PW
mov ah,09 df$V C
int 21h Fm3f/]>k#_
lea bx,sectors !KEnr`O2u
call dispqword U $ bLt
EEJsNF
lea bx,msgss g^qbd$ }
mov dx,bx :d5f U:
mov ah,09 :.k)!
int 21h 5Tt%<#4
mov dx,sectorsize |,G=k,?_p
call dispdx n~wNee
'/@] V
sbb word ptr sectors, 63d V`7^v:
jnc subok J|Xu]fg0
sub word ptr sectors+2,1 =rrbS8To=
jnc subok "
~X;u8m
sub word ptr sectors+4,1 U'8ub(:&
jnc subok "
++q. y
sub word ptr sectors+6,1 JnT1-=t.
=`oQcIkz
subok: ; {P"~(S%
T P5?%SlJ
2' 8$I}h
P i lV5Gg
xor ax,ax "Y7
]
t:8
mov blocknumL, ax 9u->.O: p
mov blocknumL+2, ax wv ~?<DF
mov blocknumL+4, ax =?, dX
mov blocknumL+6, ax ^z^ UFW
)Z I9 n7
startread: ]DaC??%w
xg>AW Q
call rwsect tl uyx
\~YyY'J
adc word ptr blocknuml,63d s=uWBh3J
jnc addok o.Jq1$)~y
adc word ptr blocknuml+2,1 xlH?J;$
jnc addok
.L X8ko
adc word ptr blocknuml+4,1 I'NE>!=Q
jnc addok hR] AUH
adc word ptr blocknuml+6,1
_%`<V!RT\
jnc addok ^6S td
x_
)=
,Lf j8x
addok: ]q2g[D o5
mov ax, word ptr sectors+6 hj gxCSp
cmp ax, blocknuml+6 J6) &b7
jg complete
MDo4{7
jl startread A>c/q&WUk
mov ax, word ptr sectors+4 GG} (*pOr
cmp ax, blocknuml+4 N]k(
8K
jg complete _c W (R,i
jl startread #78P_{ #!
mov ax, word ptr sectors+2 jC) lWD
cmp ax, blocknuml+2 9b0M'x'W5
jg complete 6,C,LT2^(
jl startread kr_!AW<.tz
mov ax, word ptr sectors $)5-}NJf'
cmp ax, blocknuml VS:UVe
jg complete A/xWe
jl startread N9M''H *VS
4G%!t`? q
complete: iSZiJ4AUq
XgfaTX*
lea bx,msgready DB^"iof
mov dx,bx zMXlLRC0
mov ah,09 FZEK-]h.
int 21 A-" }aCmik
9J$8=UuxWG
popa M99g
DN
mov ax,3100h Jhyb{i8RR
int 21h #e!4njdM
0> 6;,pd"
;
,a$ ?KX
dispdx proc near x 7;Zwd
pusha 4rh*&'
lea bx, dsp+3 QqC4g]
mov cx,4 bYKyR}e
4l2xhx
repeat0: SQZUkKfb
mov al,dl {\ ?zqIM
and al,0fh BE;J/
cmp al,09h \rw/d5.
jg add40 4+V+
SD
add al, 30h p:hzLat~
jmp okadd S!< 1C Fh
add40: 8% $ Vj
add al,37h
1Ugyjjlz
okadd: b$ 24${*'
mov byte ptr [bx],al 4[ S0~O{r
dec bx eDm~B (G$
shr dx,4 &tULSp@J
loopnz repeat0 ] J
t8]w
lea bx,dsp f4s^$Q{Q
mov dx,bx 2g6G\F
mov ah,09h ;Ly(O'9
int 21h tv)U 7 K0
*hT1 _
popa g* NKY`,
ret %("Bq"Q8
dispdx endp \qrSJ=}t
Y]5\%JR
dispqword proc near )m-l&U K
pusha btfjmR<
Tp
mov cx ,4 J#0oL_xY#
add bx,6 JYbE(&l%de
repeatdecbx: K$H>/*&'~
mov dx,[bx] EzDj,!!<w
call dispdx _/W[=c
sub bx,2 Dm=Em-ST6
loopnz repeatdecbx lD8&*5tDmP
popa C6XTId=y#_
ret nC3U%*l
dispqword endp $Yr'`(C bc
vu%:0p` K
rwsect proc near P~)ndaQ
[\ M=w7
lea bx,msg pX:FXzY Q
mov dx,bx .Z!!x
mov ah,09h OZF^w[ `w
int 21h r 3@Q(Rb
%G<!&E!0h
lea bx,BlockNumL j;tT SNF
call dispqword K8`M~P.
QL>G-Rp
lea di, packetsize [I;5V= bKW
mov dl,80h
G36}4
mov ah,42h s7FJJT n
int 13h H(^O{JC]y!
jnc readok <(]e/}
_u`NIpXSP
mov cx,5 5dV Sir
;出错后重试(定位0道后再重读) e#YQA
retryrd: ~=Y <B/
lea bx, msgReadErr 1` tE Hu.
mov dx,bx KU dpOMYX
mov ah,09 h SZ0 }/
int 21h ?Jlz{ms I
ZD9UE3-
0x }8}
lea di,dap0 &=sVq^d@qe
mov dl,80h W |
]24
mov ah,44h x9#>0
4s
int 13h qNhQ2x\
,t+5( qi
lea bx,BlockNumL C*}TY)8
call dispqword )
#/@Jo2F
K)Nbl^6x
lea di, packetsize
^KU:5Bn
mov dl,80h DR o@gYDn
mov ah,42h v5|X=
B>&>
int 13h > -Qg4%m
jnc readok 9E (VU.
loopnz retryrd ,KlTitJl\+
No)v&P%
readok: h^P>,dy0
lea di, packetsize g& y R -
mov dl,80h 7 4 c1 i
mov ah,43h gc:qqJi)X
int 13h 9})!~r;|
Ul?Ha{ W
rwsect endp }57 w E$9K
8t$a8 PE
code ends ;代码段结尾 S8O^^jJq;
end start ;结束汇编 }}3*tn<6
5q`d=
L,
