第一个宏汇编程序 =F@
+~)_
Y#os6|MV#
工作后不久，单位里我所在的小组有了一台浪潮0520(XT兼容机)，有了硬盘，有了汇编编译程序，就开始玩汇编了。当然那时的主要工作是用dBASEIII，这个我已经在读研期间自学会了，读了一本关于dBASEIII plus的英文书，编个dBASE/FoxBASE程序已经是小菜一碟了。 /"e@rnn
vm@V5oH
那时候的硬盘老出点问题，经常碰上个“Error reading data....” 啥的小毛病，但是换又不方便而且很贵。PCTOOLS与NORTON DISKEDIT扫描盘比较慢。我就自己写了一个磁盘扫描程序。算是用汇编写的第一个正式的有点用处的程序吧！ =E2 a#Vd
<1* kXTN(
这也是我现在电脑里唯一一个汇编语言的程序了，其它都随着磁盘来回更换丢了。所以，还是在老大这里存一份留个纪念吧！ E
ASn h
xUn"X k
hP
比较长啊！所以可以自动跳过。 S/E&&{`ls
boojq{cvYA
.286 Z :{|
?4
.radix 16 QATRrIj{e
data segment ;定义数据段 `Abd=1nH
>
'R{,1# U
J.UNw8z
msg db 0dh, "Reading sector:$" x 'L=p01
msg1 db 0dh, "Writing sector:$" 9G[
DuYJI
msgready db 0dh,0a,0dh,0a,"Reading/Writing completed!", 0dh,0a, "$" wa@Rlzij>
)^(gwE
dsp db " $" _%CM<z
e
{ { \oC$
;DAP {8.Zb NEJ
PacketSize db 16d; // 数据包尺寸(16字节) y_9\07va<
Reserved db 0; // ==0 EGl<oxL*R2
BlockCount dw 63d; // 要传输的数据块个数(以扇区为单位)
z@ `o(gh
BufferAddr dw 0,0 ; // 传输缓冲地址(segment:offset) "lt <$.
BlockNumL Dw 0,0; // 磁盘起始绝对块地址 M@T{uo
BlockNumH Dw 0,0; // 磁盘起始绝对块地址 af|h4.A
t~L4wr{B
;定位用DAP （复位到0磁道） )+L|<6J XA
DAP0 db 16d /bykIU TKI
db 0 E`j' <#V!
dw 1 54p{J
buff1 dw 0,0 <,:{Q75
dw 0,0,0,0 DzR,ou
+QN4h JK
e(s0mbJE
;DiskParameters 0BXr[%{`
infosize dw 26d; WORD InfoSize; // 数据包尺寸 (26 字节)
?!Y_w2
falgs dw 0; WORD Flags; // 信息标志 7L
#)yY
Cylinders DW 0; DWORD Cylinders; // 磁盘柱面数 y7+@
v'
Heads DW 0; DWORD Heads; // 磁盘磁头数 >*EZZ\eU!
SPT Dw 0,0; DWORD SectorsPerTrack; // 每磁道扇区数 ;n't
:yQW
Sectors Dw 0,0,0,0; QWORD Sectors; // 磁盘总扇区数 Ovx
*
SectorSize DW 0; WORD SectorSize; // 扇区尺寸 (以字节为单位) @@ H/q
JL,Y9G*]s
cmpsect dw 0 h3
H Udu
S})f`X9_}
msgcyl db 0dh,0a,"Disk Parameters",0dh,0a,"Total Cylinders:$" o<5`uV!f
msgHds db 0dh,0a,"Heads:$" 6)1PDlB
msgspt db 0dh, 0a,"SectorsPerTrack:$" ?;RY/[IX6
msgTotal db 0d,0a, "Total Sectors:$" }F]Z1( '
msgSS db 0dh,0a, "Sector Size:$" &>AwG4HW#j
&MH8~LSb
msgReadErr db 0dh,0a,"Error Reading Sectors:$" I7_lKr3
msgWriteErr db 0dh,0a, "Error Writing Sectors:$" bpc1> ?
msgReset db 0dh,0a, "Reseting drive to Cyl 0" J=-z~\f56
;Ci:d*
J !om"h
buffer db 32768d dup(0); 6'r;6T *
L"jA#ULg
data ends ;数据段结尾
5$ik|e^:y
-Mr_Ao`E
stack segment $ 5"
db 400 dup(?) YXp\C"~g
stack ends gs1yWnSv5
W/UA%We3+L
code segment ;定义代码段 G/JGb2I/7|
assume cs:code ;规定cs的内容 R([zlw~B5
assume ds:data ;规定ds的内容 Zv}F?4T~:
assume ss:stack bkdXBCBx?
b
"X1
start: "" UyfC[
pusha +[
?!@)
%fg 6', 2
-. *E<%
mov ax,data ;程序从start开始 #H7
SLQr\
mov ds,ax ;ds置初值,data的段地址 `i.f m1I ]
d Co)en
;设置缓冲区 eZ: iW# YF
lea bx, buffer @A6iY
mov bufferaddr,bx p
l^;'|=M
mov buff1,bx Ct'tUF<K5
mov bx,ds `!c dxKLR
mov bufferaddr+2,bx YH58p&up
mov buff1,bx &vmk!wA s
_jX,1+M
lea di,infosize fuj9x;8X0
mov dl,80h WdOxwsq"
mov ah,48h 5=V"tQ&d9U
int 13h r]Hrz'C`
%ap]\o$^4
lea bx,msgcyl _=0Ja
S>M.
mov dx,bx ,<Cl^ ^a,
mov ah,09 !BVCuuM>w
int 21h >\K=)/W2
mov dx,cylinders A _TaXl(
call dispdx =+_nV O*
h
8$.m
Qr
lea bx,msghds hwM<0Jf
mov dx,bx B!mHO*g
mov ah,09 ovN3.0tAI
int 21h d21thV
,S
mov dx,heads jvQ^Vh!mC
call dispdx 8Ze>
hEG
V(Pw|u"
e
lea bx,msgspt 0y$VPg sKf
mov dx,bx !% $[p'
mov ah,09 o<A-E Tx<
int 21h 5
Y&`Z J
mov dx,spt+2 x"Ll/E)\v]
call dispdx 29grb P
mov dx,spt WT\wV\P u
call dispdx _xAru9=n^
R'Ue>k
lea bx,msgtotal 9i T9ZfaW
mov dx,bx B{\Y~>]Pj
mov ah,09 }-:B`:K&
int 21h /{l_tiE7
lea bx,sectors O` CZwXD
call dispqword >h%>s4W
tC'#dU`=qY
lea bx,msgss /\Nc6Z/ L
mov dx,bx 2W0nA t
mov ah,09 Rng-o!
int 21h P]m{ \K
mov dx,sectorsize Mo@{ 1K/9
call dispdx s YTJ^K d
Vsi:O7|+
}
sbb word ptr sectors, 63d K3vZ42 n
jnc subok DSH v
BFQ
sub word ptr sectors+2,1 @MibKj>o
jnc subok n`^jNXE
sub word ptr sectors+4,1 D,=~7 /g
jnc subok egs P\ '
sub word ptr sectors+6,1 #8XmOJ"W3k
/
^)3V}
subok: I+Fy)=DO9
oC
"
[rn
274j7Y'
S8q g"YR
xor ax,ax a)W|gx6Y
mov blocknumL, ax Re~6 '
mov blocknumL+2, ax ,]\cf
mov blocknumL+4, ax pF6u3]
mov blocknumL+6, ax r3x;lICx-
_f 2r z+
startread: "tl{HM5u
TNh&g.
call rwsect ue 3 ].:
Otu?J_ d3
adc word ptr blocknuml,63d T x
Mh_
jnc addok ,l AZ4
adc word ptr blocknuml+2,1 # qVvh3#g
jnc addok f~l pa7
adc word ptr blocknuml+4,1 V(kK2az
jnc addok ?J6Ek*E#
adc word ptr blocknuml+6,1 1VYH:uGuAU
jnc addok ;S^"Y:7)
]N}/L
lq
addok: zq + 2@"q
mov ax, word ptr sectors+6 KPy)%i
cmp ax, blocknuml+6 gm5%X'XL
jg complete }s?3
jl startread M>=@Z*u/+
mov ax, word ptr sectors+4 9.xb-
m7
cmp ax, blocknuml+4 o,j_eheAM
jg complete RUr ~ u
jl startread ;m]
n l_vg
mov ax, word ptr sectors+2 2wO8;wiA
cmp ax, blocknuml+2 dlyGgaV*X
jg complete l'<&H#A;'
jl startread [
[_>D M
mov ax, word ptr sectors *b~8`O pa`
cmp ax, blocknuml \roJf&O }
jg complete '9]?jkl
jl startread jh z*Y}MX
VS4Glx73
complete: /* gs]
I
b{#dhV
lea bx,msgready 3VU4E|s>
mov dx,bx N1Xg-u?ul#
mov ah,09 hTO5*5]0zP
int 21 m K TF@DED
zdem}kBIe
popa 5vD\?,f E
mov ax,3100h d. d J^M
int 21h m~;.kc
EyR /
; \6GNKeN
dispdx proc near Wk^{Tn/]
pusha 6{d?3Jk
lea bx, dsp+3 {_ W8Qm`.
mov cx,4
FnVW%fh
X`<z5W] !
repeat0: /Q9Cvj)"
mov al,dl 851BOkRal4
and al,0fh =M:Po0?0E
cmp al,09h (8~mf$ zx,
jg add40 ,y"vf^BE.
add al, 30h LTBH/[q5
jmp okadd #5y+gdN
add40: F%zMhX'AG
add al,37h QpzdlB44l
okadd: P;(@"gD8z5
mov byte ptr [bx],al _GY2|x2c
dec bx <9H3d7%
shr dx,4 %gn@B2z
loopnz repeat0 Hwd
^C 2v
lea bx,dsp vD 2(M1Q
mov dx,bx cl#XiyK>
mov ah,09h }x$@ j
int 21h `
[E -V
"< Di
popa 'N6
oXE
ret p" .wqg*W
dispdx endp Q NE/SSL
vC&0UNe$
dispqword proc near ;*K;)C
pusha lNc0znY
mov cx ,4 **-rPonM[
add bx,6
h('5x,G%
repeatdecbx: 4D 5Wse
mov dx,[bx] RJ3uu NK7
call dispdx GYy8kp84
sub bx,2 e4_A`j'
loopnz repeatdecbx =KO]w 9+\
popa ?.ObHV*k
ret @lM-+q(tl
dispqword endp 8S#&XS>o
XRM/d5
rwsect proc near oGZuYp a9
nQ' N S
lea bx,msg G \a`F'Oo
mov dx,bx '% _K"rb
mov ah,09h HQF@@
int 21h Qd~7OH4Lp
QgH{J8 0
lea bx,BlockNumL " Cvr("'O
call dispqword yL<u>S0
^Rl?)_)1HE
lea di, packetsize |j/Y#.k;{0
mov dl,80h }'{"P#e8"q
mov ah,42h %q r,Ssa/
int 13h zGme}z;1@
jnc readok 73 1RqUR
YG?4DF
mov cx,5 i .K!;E>
;出错后重试(定位0道后再重读) DB|w&tygq
retryrd: 0gOca +&
lea bx, msgReadErr u1kCvi#N
mov dx,bx [ZG>FJDl8
mov ah,09 0 GFho $f
int 21h _UP 9b@Z"
RwK6u-u#9
z+M{z r
lea di,dap0 1fJ~Wp @1
mov dl,80h g~|vmVBua
mov ah,44h _"H\,7E
int 13h 2 N(Z^
DdISJWc'`5
lea bx,BlockNumL $uwz` N:
call dispqword
ADxje%!1O
5s%e9x|kP
lea di, packetsize m0 W3pf
mov dl,80h 2xi; 13?
mov ah,42h ORqqzy +
int 13h ?t}s3P!Q3w
jnc readok ]ZR`
6|"VO
loopnz retryrd < j
IrRe
6nf@K
readok: B(FM ~TVZ
lea di, packetsize _H}hK kG+
mov dl,80h |gk4X%o6
mov ah,43h a` 9pHH:7Q
int 13h tpzh
k!z.6di
rwsect endp p4\sKF8-
2_bEo
code ends ;代码段结尾 *\+oe+ 3
end start ;结束汇编 @ZYJ Y
REcKfJTj
