第一个宏汇编程序 q#~]Hp=W5
|.Pl[y
工作后不久，单位里我所在的小组有了一台浪潮0520(XT兼容机)，有了硬盘，有了汇编编译程序，就开始玩汇编了。当然那时的主要工作是用dBASEIII，这个我已经在读研期间自学会了，读了一本关于dBASEIII plus的英文书，编个dBASE/FoxBASE程序已经是小菜一碟了。 p@7[w@B\c
MO$ dim>
那时候的硬盘老出点问题，经常碰上个“Error reading data....” 啥的小毛病，但是换又不方便而且很贵。PCTOOLS与NORTON DISKEDIT扫描盘比较慢。我就自己写了一个磁盘扫描程序。算是用汇编写的第一个正式的有点用处的程序吧！ #D{//P|;
!zNMU$
p
这也是我现在电脑里唯一一个汇编语言的程序了，其它都随着磁盘来回更换丢了。所以，还是在老大这里存一份留个纪念吧！ R'q:Fc
1$Pn;jg:
比较长啊！所以可以自动跳过。 /M "E5
9 v<Sng
.286 |cBpX+D
.radix 16 -f-2!1&<3h
data segment ;定义数据段 yxa~R z/
_(8HK
h}U\2$5
msg db 0dh, "Reading sector:$" ^L<*g gw
msg1 db 0dh, "Writing sector:$" /U%Xs}A)
msgready db 0dh,0a,0dh,0a,"Reading/Writing completed!", 0dh,0a, "$" Tx7YHE6{
vx\h
Njb
dsp db " $" 1lNg} !)[K
<L__;j1Wx
;DAP (r^IW{IndX
PacketSize db 16d; // 数据包尺寸(16字节) "l&sDh%Lk<
Reserved db 0; // ==0 +*Cg2`
BlockCount dw 63d; // 要传输的数据块个数(以扇区为单位) ,diV;d
BufferAddr dw 0,0 ; // 传输缓冲地址(segment:offset) eD, 7gC -
BlockNumL Dw 0,0; // 磁盘起始绝对块地址 k:w\4Oqd
BlockNumH Dw 0,0; // 磁盘起始绝对块地址 .O'gD.|^N
r^?%N3
;定位用DAP （复位到0磁道） { A(= phN
DAP0 db 16d m//(1hWv7
db 0 0=8.8 LnN(
dw 1 +mP3 y~|-j
buff1 dw 0,0 +6!.)Ea=
dw 0,0,0,0 5U[;T]{)e
d%9r"=/
5CkM0G`
;DiskParameters X!n-nms
infosize dw 26d; WORD InfoSize; // 数据包尺寸 (26 字节) H3.WAg[`
falgs dw 0; WORD Flags; // 信息标志 NDRk%_Eu(
Cylinders DW 0; DWORD Cylinders; // 磁盘柱面数 9b !+kJD
Heads DW 0; DWORD Heads; // 磁盘磁头数 ujcNSX*
SPT Dw 0,0; DWORD SectorsPerTrack; // 每磁道扇区数 'Z7oPq 6
Sectors Dw 0,0,0,0; QWORD Sectors; // 磁盘总扇区数 @Ey(0BxNu
SectorSize DW 0; WORD SectorSize; // 扇区尺寸 (以字节为单位) 6!i0ioZzi0
'PlKCn`(w
cmpsect dw 0 C<6IiF[>%
3Lq?Y7#KQp
msgcyl db 0dh,0a,"Disk Parameters",0dh,0a,"Total Cylinders:$" ~`{HWm ah
msgHds db 0dh,0a,"Heads:$" 0rT-8iJp4P
msgspt db 0dh, 0a,"SectorsPerTrack:$" [pmZ0/l
msgTotal db 0d,0a, "Total Sectors:$" IrXC/?^h
msgSS db 0dh,0a, "Sector Size:$" J680 |\ ER
KW.S)+<H&
msgReadErr db 0dh,0a,"Error Reading Sectors:$" F ,e_ `
msgWriteErr db 0dh,0a, "Error Writing Sectors:$" Fa9]!bW
msgReset db 0dh,0a, "Reseting drive to Cyl 0" P$@5&/]
^AD/N|X^
0X)'8N
buffer db 32768d dup(0); mV;Egm{A\
2D
MH@U2
data ends ;数据段结尾 hSD)|
L vc*L6
stack segment S&V5zB""n
db 400 dup(?) 1C=}4^Pu
stack ends ZBJYpeGe
Z\{WBUR;4t
code segment ;定义代码段 E<a~
`e
assume cs:code ;规定cs的内容 eR8qO"%2:
assume ds:data ;规定ds的内容 ]; 1z%.
assume ss:stack =? x A*_^
1H @GwQ|<=
start: h2KXW}y"4
pusha
c*_I1}l
EPr{1Z
|J`YFv
mov ax,data ;程序从start开始 fZXJPy;n
mov ds,ax ;ds置初值,data的段地址 awXL}m[_!
}_M .-Xm
;设置缓冲区 5Lt&P
5BY
lea bx, buffer ;P _`4w3
mov bufferaddr,bx 3u7E?*{sH
mov buff1,bx q01zN:|-1
mov bx,ds ?}B9=R$Pi
mov bufferaddr+2,bx ;=6 ++Oq
mov buff1,bx @-;-DB]j
+iwNM+K/gQ
lea di,infosize $+ZO{
(
mov dl,80h }qW%= ;!
mov ah,48h ^$_a_ft#
int 13h W?'!}g(~
C
did*hxJ
lea bx,msgcyl m7e$ Z
mov dx,bx tGd9Cs9D<
mov ah,09 S]1+tj
int 21h c?eV8h1G
mov dx,cylinders PF!Q2t5c3
call dispdx @dJ
s
*Yvfp{B
lea bx,msghds X?Omk, '
mov dx,bx r[M]2h
mov ah,09 4%p5X8|\ih
int 21h Z[AJat@H
mov dx,heads V Pn #O
call dispdx N"T~U\R
J(M0t~RZ
lea bx,msgspt ,vW.vq<{q3
mov dx,bx n`6 8<ybl5
mov ah,09 T[<llh'+
int 21h '4FS.0* _
mov dx,spt+2 60teD>Eh,
call dispdx ssi{(}H/Jv
mov dx,spt ;myu8B7&
call dispdx s s,t[`AV{
\9i.dF
lea bx,msgtotal N!"GwH
mov dx,bx `
U!eh1*b
mov ah,09 oz
kN&0
int 21h ahS*YeS7
lea bx,sectors n4k. tq
call dispqword J}`K&DtM9
JeUFCWm
lea bx,msgss .K}u`v T
mov dx,bx D/{Tl
mov ah,09 nf /iZ &
int 21h g;v{JB
mov dx,sectorsize **-%5 ~
call dispdx HC4ad0Gs+{
\(Zdd
\,
sbb word ptr sectors, 63d cGsxfwD
jnc subok (LRv c!`"
sub word ptr sectors+2,1 xHykU;p@
jnc subok p4Vw`i+DnH
sub word ptr sectors+4,1 O`t ]#
jnc subok I LF"m;
sub word ptr sectors+6,1 k'%c| kx8U
C + r--"Z
subok: 7x-k-F3
+2B{"Czm
lEZ[0oa
52l|
xor ax,ax Tr/wG
mov blocknumL, ax _ZzPy;[i?
mov blocknumL+2, ax ^lRXc .c z
mov blocknumL+4, ax qJ" dkT*
mov blocknumL+6, ax 9qQ_#$Vv
fPK|Nw ]b
startread: -1S+fUkiK/
f5wOk& G
call rwsect ID'@}69.S
B Ibcm,YQ
adc word ptr blocknuml,63d #B`"B
jnc addok cKF02?)TX
adc word ptr blocknuml+2,1 s4MP!n?gB
jnc addok AUS?P t[w
adc word ptr blocknuml+4,1 {E6b/G?Q
jnc addok eiP>?8
adc word ptr blocknuml+6,1 :XB eGNI*#
jnc addok I^M3>}p
pwd7I
addok: 8,dCx}X
mov ax, word ptr sectors+6 A[ /0on5r
cmp ax, blocknuml+6 mk
j`z
jg complete )/bt/,M&}
jl startread 5
;dg#hO
mov ax, word ptr sectors+4 8DLR
cmp ax, blocknuml+4 &sJpn* W
jg complete ]ueq& |
jl startread 3$l'>v+5{
mov ax, word ptr sectors+2 9S&6 u1
cmp ax, blocknuml+2 bMkn(_H)\
jg complete >0@X^o
jl startread '$1-A%e$1
mov ax, word ptr sectors )V)4N[?GC
cmp ax, blocknuml t
~U&a9&Z
jg complete 'D\(p,(Mt
jl startread _rs!6tp
dWD9YI Yf
complete: cy^ 6g? ew
9<[RXY
lea bx,msgready
Yq`r>g
mov dx,bx 4^70r9hV9
mov ah,09 c4L5"_#`x-
int 21 I.y|AQB
.yi. GRk
popa y"$|?1 87x
mov ax,3100h nsw.\(#
int 21h o0s+ roiD
wzo-V^+q
; JZu7Fb]L9
dispdx proc near i0p"q p
pusha 1;vn*w`p
lea bx, dsp+3 a_QO)
mov cx,4 a/L?R
Uu
|%&WYm 6&#
repeat0: jW2z3.w
mov al,dl Xd|@w{.m*
and al,0fh rx_'(
cmp al,09h 5>}L3r>a;
jg add40
7gD$Q
add al, 30h C"IPCJYn
jmp okadd |;rjr_I
add40: v j?9X5 A_
add al,37h 7i 334iQZ
okadd: RU_=VB %
mov byte ptr [bx],al /o8`I
m
dec bx %tUJ >qYU
shr dx,4 rS(693kb
loopnz repeat0 S r2c'T"
lea bx,dsp SRM[IU
mov dx,bx D9# e2ex]
mov ah,09h ,589/xTA@
int 21h f} } Bb8
Eto0>YyZ
popa h5Qxa $Oq
ret |4X:>
Ut]
dispdx endp K{M_
4'\
x*BfR
j
dispqword proc near Xb$)} n\9
pusha ",&}vfD4M
mov cx ,4 {l *ps-fi
add bx,6 m'a
w`?
repeatdecbx: #MGZje,I
mov dx,[bx] I +`~6
call dispdx qYsu3y)*N
sub bx,2 ZW+{<XTof4
loopnz repeatdecbx gA~Ih
popa !c(B ^E
ret 4 "l(rg
dispqword endp fB
d<7xSRC
rwsect proc near NYR^y \u
rU.ew~
lea bx,msg Ms^Y:,;Hi
mov dx,bx 3e I:$1" Q
mov ah,09h sHQe0"Eo
int 21h 7OC ,KgJ3
68 - I2@&
lea bx,BlockNumL {_^sR}%]F
call dispqword CzNSJ
VE5
/=m=i%& #
lea di, packetsize ?>RJ8\Sj
mov dl,80h ]7
dm`XV
mov ah,42h d+2I+O03
int 13h a}jaxGy
jnc readok /Pg66H#RUf
Pb]s +1
mov cx,5 KkAk(9Q/3
;出错后重试(定位0道后再重读) J&8l1{gd
retryrd: r(cS{oni
lea bx, msgReadErr X5>p~;[9
mov dx,bx p+9vSM #
mov ah,09 OWOj|j M
int 21h &~$^a1D6
=x/]2+
s
apGf
@b
lea di,dap0 :Q? xNY%
mov dl,80h [R
A=M
mov ah,44h bmt 2~!
int 13h \zj8| +
%0:
(''
lea bx,BlockNumL rf)\:
75
call dispqword &h4(lM
dVO|q9 /
lea di, packetsize oh& P Q{
mov dl,80h qr<5z. %
mov ah,42h I!# 42~\
int 13h ]lZ!en
jnc readok Rq4\~F?
loopnz retryrd V-7 !)&q
l Fzb$k}_{
readok: #Fu OTBNvB
lea di, packetsize Q6.},o
mov dl,80h E@ t~juF!
mov ah,43h s`H}NjW x
int 13h l6l )M
TmzEZ<} &7
rwsect endp ~73YOGiGJH
=H!u4
code ends ;代码段结尾 zpg*hlv
end start ;结束汇编 ?"qU.}kGL
}p 8a'3@Z
