第一个宏汇编程序 Bx!` UdRn
:P 1c>:j[
工作后不久，单位里我所在的小组有了一台浪潮0520(XT兼容机)，有了硬盘，有了汇编编译程序，就开始玩汇编了。当然那时的主要工作是用dBASEIII，这个我已经在读研期间自学会了，读了一本关于dBASEIII plus的英文书，编个dBASE/FoxBASE程序已经是小菜一碟了。 W)~.o/;
)t=u(:u]
那时候的硬盘老出点问题，经常碰上个“Error reading data....” 啥的小毛病，但是换又不方便而且很贵。PCTOOLS与NORTON DISKEDIT扫描盘比较慢。我就自己写了一个磁盘扫描程序。算是用汇编写的第一个正式的有点用处的程序吧！ YU,:3{9,
i */ U.'#
这也是我现在电脑里唯一一个汇编语言的程序了，其它都随着磁盘来回更换丢了。所以，还是在老大这里存一份留个纪念吧！ TAoR6aE
}f'1x %RS^
比较长啊！所以可以自动跳过。 9o'6es..@Z
v fDb9QP
.286 JB_`lefW,'
.radix 16 WkIV
data segment ;定义数据段 wdV?& W+
u@'zvkb@
<\EfG:e
msg db 0dh, "Reading sector:$" jch8 d(`?d
msg1 db 0dh, "Writing sector:$" X&8,.=kt"
msgready db 0dh,0a,0dh,0a,"Reading/Writing completed!", 0dh,0a, "$" [k}\{ i >
.4(f0RG
dsp db " $" 291 |KG
gQDK?aQX
;DAP j'x{j %U
PacketSize db 16d; // 数据包尺寸(16字节) E-iBA (H
Reserved db 0; // ==0 GP'Y!cl
BlockCount dw 63d; // 要传输的数据块个数(以扇区为单位) 1 *CWHs
BufferAddr dw 0,0 ; // 传输缓冲地址(segment:offset) 5z>\'a1U
BlockNumL Dw 0,0; // 磁盘起始绝对块地址 3) 0~:
BlockNumH Dw 0,0; // 磁盘起始绝对块地址 B9-[wg#0G
jdf@lb=5 l
;定位用DAP （复位到0磁道） "A+F&C>
DAP0 db 16d I,3!uo gn
db 0 gI3rF=
dw 1 F
;&e5G
buff1 dw 0,0 W-QPO
dw 0,0,0,0 *v3
|
#L$ I %L"
W
(=B H
;DiskParameters AwrK82
infosize dw 26d; WORD InfoSize; // 数据包尺寸 (26 字节)
2:F
falgs dw 0; WORD Flags; // 信息标志 T$;XJx
Cylinders DW 0; DWORD Cylinders; // 磁盘柱面数 1hS~!r'qqv
Heads DW 0; DWORD Heads; // 磁盘磁头数 v
|2j~
SPT Dw 0,0; DWORD SectorsPerTrack; // 每磁道扇区数 -Lb^O/
Sectors Dw 0,0,0,0; QWORD Sectors; // 磁盘总扇区数 4,Ds B'
SectorSize DW 0; WORD SectorSize; // 扇区尺寸 (以字节为单位) EQ $9Ia Y.
D
d O '
cmpsect dw 0 Ny LnE
L:Eb(z/D
msgcyl db 0dh,0a,"Disk Parameters",0dh,0a,"Total Cylinders:$" ;VRR=p%,
msgHds db 0dh,0a,"Heads:$" lM"7 Z
msgspt db 0dh, 0a,"SectorsPerTrack:$" rv%[?Ml
msgTotal db 0d,0a, "Total Sectors:$" mIo7 K5z{
msgSS db 0dh,0a, "Sector Size:$" Zw{tuO7}K
l Hqx}n@e
msgReadErr db 0dh,0a,"Error Reading Sectors:$" ;BVhkW A
msgWriteErr db 0dh,0a, "Error Writing Sectors:$" & 2igX?60
msgReset db 0dh,0a, "Reseting drive to Cyl 0" :L0W"$
=7,U qMl_
y*(j{0yd
buffer db 32768d dup(0); 8E[`H
d]`,}vi#E9
data ends ;数据段结尾 eR`<9 KBH
)c !S@H s
stack segment ;P~S/j[ 8
db 400 dup(?) L|w-s4L
stack ends Uroj%x N
.Tv(1HAc2l
code segment ;定义代码段 f|0 QN#$
assume cs:code ;规定cs的内容 (=/;rJ`q
assume ds:data ;规定ds的内容 #Q
7$I.O]
assume ss:stack ;#
j 82
R*m" '|U
start: i`'^ zR(`i
pusha j@ !}r|-T
R!G7;m'N1
2&URIQg*J
mov ax,data ;程序从start开始 EPRs %(w`
mov ds,ax ;ds置初值,data的段地址 G'f"w5%qZv
V/e_:xECC
;设置缓冲区 FJ"9Hs2
lea bx, buffer 0&@ pX~h:
mov bufferaddr,bx w%n]~w=8
mov buff1,bx ;~1JbP
mov bx,ds $twF93u$
mov bufferaddr+2,bx 3wl>a#f
mov buff1,bx efR
$s{n!
v{ Ve sf
lea di,infosize BB$>h-M/%#
mov dl,80h `1]9(xwhQ0
mov ah,48h 7`!( 8
int 13h eov-"SJB
>t(@?* ZFT
lea bx,msgcyl N
kI:
mov dx,bx #+k[[; 0
mov ah,09 ):
C4}&l
int 21h ![^h<Om
mov dx,cylinders pnJT
]?},
call dispdx Q$j48,e
o+TZUMm
lea bx,msghds 3PffQ,c[~
mov dx,bx *,
K
\A
mov ah,09 @D=`iG%
int 21h xltu
g##
mov dx,heads mA @+4&
call dispdx eUlb6{!y?
ppK
CY4
lea bx,msgspt jF9CTL<
mov dx,bx qH"a !
mov ah,09 ^i\1c-/
int 21h aM!#
mov dx,spt+2 v1)6")8o+
call dispdx I1 O?)x~
mov dx,spt I_7EfAqg(
call dispdx yw!`1#3.
RiG!TTa
b
lea bx,msgtotal q2vz #\A?
mov dx,bx w-Fk&dC69
mov ah,09 w}q"y+=Z:
int 21h q/79'>`|ai
lea bx,sectors 2z3A"HrlA
call dispqword z?[DW*
=i?,y +<
lea bx,msgss ?F {xDfqw
mov dx,bx F DX+
mov ah,09 2zu~#qU[)M
int 21h @x
+#ZD(
mov dx,sectorsize I
q \oB
call dispdx e~? ]F 0/
< Q) }
sbb word ptr sectors, 63d mM>|fHGA
jnc subok 06 s3
b
sub word ptr sectors+2,1 or `stBx
jnc subok Hc|U @G
sub word ptr sectors+4,1 &y\2:IyA
jnc subok yTiqG5r
sub word ptr sectors+6,1 ^^uD33@_
_<Yo2,1^
subok: Uiw7Y\Im|
|pSoBA9U
*`T &Dlt'8
i{qU R P}.
xor ax,ax !@k @7~i
mov blocknumL, ax 7+4"+CA
mov blocknumL+2, ax "s9gQAoaO
mov blocknumL+4, ax Xm'K6JH'
mov blocknumL+6, ax c F]3g M
<t{AY^:r
startread: )W|jt/
5AU 3s
call rwsect A8 G lE
mC(t;{
adc word ptr blocknuml,63d oW6<7>1M7
jnc addok *DzPkaYD>
adc word ptr blocknuml+2,1 " SqKS,J
jnc addok I=a$1%BzEX
adc word ptr blocknuml+4,1 y/eX(l<{
jnc addok
8Oh
3 iO
adc word ptr blocknuml+6,1 a=VT |CX[
jnc addok ;jI"|v{vnS
v"~I( kf$
addok: +Ob#3PRy
mov ax, word ptr sectors+6 y: [] +
cmp ax, blocknuml+6 u _=y,~s
jg complete >nEnX
jl startread k|'Mh0G0
mov ax, word ptr sectors+4 %tQ{Hf~
cmp ax, blocknuml+4 ;tiU OixJ
jg complete va2A@U
jl startread r0
C6Ww7u
mov ax, word ptr sectors+2 :exuTn
cmp ax, blocknuml+2 mkzk$ _
jg complete NI:N
W-!
jl startread x~tQ YK
mov ax, word ptr sectors 4LJ}>e
cmp ax, blocknuml REBDr;tv
jg complete :/%xK"
jl startread /j@ `aG(a
?ovGYzUZ
complete: |/s 2AzDD
4{t$M} ?N
lea bx,msgready 6qpV53H
mov dx,bx -$ z " 74
mov ah,09 tuV?: g?
int 21 I]1Hi?A2
w8I&:"^7<
popa Gi4dgMVei
mov ax,3100h 5V8C+k)
int 21h dvF48,kr
5 >Yd\(`K
; l?_!e
A
dispdx proc near ?<^AXLiKV
pusha @ibPL+~-_
lea bx, dsp+3 -wMW@:M_
mov cx,4
WPKTX,k
2!?z%s-S
repeat0: u ?Mu*r?
mov al,dl /,$ \H
and al,0fh n3j h\
cmp al,09h uA`PZ|
jg add40 ? 4 Juw
?
add al, 30h + Z 2<spqG
jmp okadd Q.dy
$`\
add40: ~(^*
?(Z
add al,37h Q9tE ^d+%
okadd: ^ZWFj?`\UV
mov byte ptr [bx],al =c^=Yvc7U
dec bx )0
MshgM
shr dx,4 kA= ~
8N
loopnz repeat0 l{m~d !w`a
lea bx,dsp E? U]w0g
mov dx,bx l0xFt
~l
mov ah,09h E9 q;>)}
int 21h rss.F3dK
}(EOQ2TI
popa Am0C|(#Xm
ret [iy;}5XK
dispdx endp m@yVG|eP#
Ab<Ok\e5
dispqword proc near C?|3\@7
pusha _x1[$A,GuB
mov cx ,4 Ltd?#HP
add bx,6 [ c[MQA0
repeatdecbx: L#q9_-(#
mov dx,[bx] l5]oS? >y
call dispdx \[I .
sub bx,2 : ";D.{||
loopnz repeatdecbx ?$4R <
popa ~<Oj
XuYu
ret '?3z6%
dispqword endp zb }+ m#q
05I39/T%
rwsect proc near lA-!~SM v"
:P~&
b P
lea bx,msg 810<1NP
mov dx,bx UZXcK l>u
mov ah,09h
9|A -oS
int 21h E?4@C"Na
< `UG#6z8
lea bx,BlockNumL |
8Egw-f
call dispqword @Qjl`SL%O^
H-KwkH`L4
lea di, packetsize ^|i\d \
mov dl,80h e - ]c
mov ah,42h @"Fp;Je\bN
int 13h `R52{B#&/
jnc readok _Ge ^
-7
P`I G9
mov cx,5 mKQST ]5
;出错后重试(定位0道后再重读) Rue|< d1
retryrd: l~!fQ$~
lea bx, msgReadErr 1za 'u_
mov dx,bx 6cT~irP
mov ah,09 yZ)aKwj%U
int 21h x$ J.SbW
EZumJ."
U3+ _'"
lea di,dap0 #Y >%Dr&
mov dl,80h p Q^,. [[
mov ah,44h 'Mx K
}9
int 13h wW! r}I#
'EET3R K-S
lea bx,BlockNumL `p d
call dispqword Dke($Jr{
j*~dFGl)
lea di, packetsize jl-Aos"/
mov dl,80h + >gbZ-S
mov ah,42h L[Yp\[ #-q
int 13h
W%9K5(e
jnc readok p6y0W`U
loopnz retryrd s?x>Yl
%
mQ60@_"Y=,
readok: pkN:D+g S
lea di, packetsize o T (:33$
mov dl,80h 6`baQ! xc.
mov ah,43h v&b.Q:h*'
int 13h M:UB>-`bW
>{qK ]xj
rwsect endp &Pg- |Ql
P[GX }~_k
code ends ;代码段结尾 rjAkpAT
end start ;结束汇编 KD"&_PX
Zjic"E1
