第一个宏汇编程序 DTY<0Q.
OhwF )p=
工作后不久，单位里我所在的小组有了一台浪潮0520(XT兼容机)，有了硬盘，有了汇编编译程序，就开始玩汇编了。当然那时的主要工作是用dBASEIII，这个我已经在读研期间自学会了，读了一本关于dBASEIII plus的英文书，编个dBASE/FoxBASE程序已经是小菜一碟了。 x "\qf'{D
AH d-
那时候的硬盘老出点问题，经常碰上个“Error reading data....” 啥的小毛病，但是换又不方便而且很贵。PCTOOLS与NORTON DISKEDIT扫描盘比较慢。我就自己写了一个磁盘扫描程序。算是用汇编写的第一个正式的有点用处的程序吧！ z<n- Gzwk
I>n
g`
这也是我现在电脑里唯一一个汇编语言的程序了，其它都随着磁盘来回更换丢了。所以，还是在老大这里存一份留个纪念吧！ A 's-'8m
! OE*z $\
比较长啊！所以可以自动跳过。 F
?=9eISLJ
V4K'R2t
.286 l(:kfR~AC
.radix 16 $>w/C y
data segment ;定义数据段 J8Z0D:5
Y &f\VNlT
R Kuqx:U
msg db 0dh, "Reading sector:$" HL 8eD^
msg1 db 0dh, "Writing sector:$" ];F tS>\x
msgready db 0dh,0a,0dh,0a,"Reading/Writing completed!", 0dh,0a, "$" f / ahwz
M_1;$fWq
dsp db " $" ijW 7c+yd
e!X(yJI[O6
;DAP O<N#M{kc.
PacketSize db 16d; // 数据包尺寸(16字节) PK:2xN:=
Reserved db 0; // ==0 x';u CKWV
BlockCount dw 63d; // 要传输的数据块个数(以扇区为单位) <P4 FzK
BufferAddr dw 0,0 ; // 传输缓冲地址(segment:offset) a5?8QAO~r
BlockNumL Dw 0,0; // 磁盘起始绝对块地址 5PiOH"!19
BlockNumH Dw 0,0; // 磁盘起始绝对块地址 |g_g8[@`}
eegx'VSX4
;定位用DAP （复位到0磁道） C`K^L=8`{
DAP0 db 16d Iti0qnBN5
db 0 S/gm.?$V
dw 1 qd6fU^)i
buff1 dw 0,0 >^SEWZ_[
dw 0,0,0,0 =m
tY
qX6D1X1_
n-
afDV
;DiskParameters \}dyS 8
infosize dw 26d; WORD InfoSize; // 数据包尺寸 (26 字节) \l,rpVv5m
falgs dw 0; WORD Flags; // 信息标志 , 8VU&?`<}
Cylinders DW 0; DWORD Cylinders; // 磁盘柱面数 s3
B'>RG}
Heads DW 0; DWORD Heads; // 磁盘磁头数
AW8'RfC.
SPT Dw 0,0; DWORD SectorsPerTrack; // 每磁道扇区数 oF|N O^H
Sectors Dw 0,0,0,0; QWORD Sectors; // 磁盘总扇区数 (Hp' B))2
SectorSize DW 0; WORD SectorSize; // 扇区尺寸 (以字节为单位) X0uJNHO
$a#H,Xv#
cmpsect dw 0 {j
SmoA
.SS<MDcqIt
msgcyl db 0dh,0a,"Disk Parameters",0dh,0a,"Total Cylinders:$" b?VV'{4
msgHds db 0dh,0a,"Heads:$" R7_VXvm>z
msgspt db 0dh, 0a,"SectorsPerTrack:$" .i/m
msgTotal db 0d,0a, "Total Sectors:$" dUL S^i@@
msgSS db 0dh,0a, "Sector Size:$" S# we3
vg\/DbI'
msgReadErr db 0dh,0a,"Error Reading Sectors:$" %SA!p;
msgWriteErr db 0dh,0a, "Error Writing Sectors:$" ~5OL6Bi-q
msgReset db 0dh,0a, "Reseting drive to Cyl 0" Z4q~@|+%
@*O?6 >
HW 6.O|3
buffer db 32768d dup(0); }Dfwm)]Q
j1U 5~%^
data ends ;数据段结尾 Tls a%pn
r"wtZ]69
stack segment OAe#Wf!c
db 400 dup(?) mP^SS
Je
stack ends o0I9M?lP
p3]Q^KFS
code segment ;定义代码段 0 (\+-<
assume cs:code ;规定cs的内容 sYn[uPefj
assume ds:data ;规定ds的内容 l] !B#{
assume ss:stack pJ^ N A2
82:Wvp6
start: xeA#u
J
pusha PHr a+NY#A
"/+z MLY
;Yts\4BSM
mov ax,data ;程序从start开始 ,YLF+^w-
mov ds,ax ;ds置初值,data的段地址 <$i4?)f(
\3zj18(@8!
;设置缓冲区 ^[q /Mw
lea bx, buffer j^SZnMQf
mov bufferaddr,bx b"CA Kl
mov buff1,bx ^mPPyT ,(
mov bx,ds SF<Vds}A2
mov bufferaddr+2,bx bS^WhZy'(
mov buff1,bx Xe1P- 6 0
?M}S| dsmE
lea di,infosize vq'k|_Qi=
mov dl,80h |a(fejO3
mov ah,48h qx)?buAij
int 13h F x#jV\''s
Sc$UZ/qPT
lea bx,msgcyl 9F##F-%x
mov dx,bx HuI`#.MpWE
mov ah,09 ]z = =
int 21h )D@~|j:
mov dx,cylinders *l+Cl%e
call dispdx d7Ro}>lp
[r-}bp'Gp
lea bx,msghds jna;0 )
mov dx,bx <+U|dX
mov ah,09 hYg'2OG
int 21h Ew,T 5GG
mov dx,heads =1hr2R(V
call dispdx U@ -2Q=
`8g7q 5
lea bx,msgspt [kB
`
mov dx,bx Ciihsm
mov ah,09 'Pd(\$ZY
int 21h "@ E3MTW
mov dx,spt+2 ;_"U "?h_J
call dispdx }iiHr|l3
mov dx,spt !@L=;1,
call dispdx k*Nr!Z!}
R: Z_g !h
lea bx,msgtotal 8OFj0S1r`
mov dx,bx .#w6
%c@
mov ah,09 `jsEN ;<
int 21h 4^Rd{'m
t
lea bx,sectors (Tvcq
call dispqword H[WQ =){
o( G"k
lea bx,msgss $dg9z}D
mov dx,bx M\oVA=d\0
mov ah,09 R.RSQk7;
int 21h l54
m22pfv
mov dx,sectorsize
dt,3"J
call dispdx -j`LhS~|
6NLW
(?]
sbb word ptr sectors, 63d \~DM
jnc subok {=Q7m`1
sub word ptr sectors+2,1 \
v2H^j/
jnc subok `!4,jd
sub word ptr sectors+4,1 Zq"7,z7
jnc subok Akk
3 Qx
sub word ptr sectors+6,1 +l 0g`:
"8<K'zeS8
subok: {ERMGd6Jp
M"Y0jQ(
{ |<"C?
0Y+FRB ]u
xor ax,ax ]\c,BWC@e
mov blocknumL, ax lP _db&
mov blocknumL+2, ax PlxIf L
mov blocknumL+4, ax e@]-D
FG
mov blocknumL+6, ax Te-Amu
Af-UScD%G
startread: %w}gzxN^
TwahR :T
call rwsect uh3) 0.nR
dQ
:cYNm
adc word ptr blocknuml,63d )N !> =
jnc addok 4_=Ja2v8;`
adc word ptr blocknuml+2,1 fg*@< '
jnc addok Paf% rv2
adc word ptr blocknuml+4,1 @F5f"8!.\
jnc addok 2YBIW
R8z
adc word ptr blocknuml+6,1 q9*MNHg }
jnc addok t#wmAOW
NC"yDWnO'
addok: 4
J^Q]-Z
mov ax, word ptr sectors+6 -"TR\/
cmp ax, blocknuml+6 ;sOsT?)7$
jg complete I -@?guZ r
jl startread zr_yO`{
mov ax, word ptr sectors+4 \=e8%.#@J
cmp ax, blocknuml+4 !DXNo(:r
jg complete .z j0Jy8N
jl startread ;y>a
nE}n{
mov ax, word ptr sectors+2 k2^ a$k}
cmp ax, blocknuml+2 ^ 4>k%d
jg complete L8$1K &!
jl startread `dkV
_ O0
mov ax, word ptr sectors \OwpD,'
cmp ax, blocknuml yi 6 N-7
jg complete N/F$bv
jl startread <PD?f/4 /
% V_-%/3Z
complete: 6[ga$nF?
2KJ1V+g@a6
lea bx,msgready ZCui Fm
mov dx,bx DVp5hR_$
mov ah,09 &X>7n~@0
int 21 bud &R 4+
qRB7Ec_
popa .2:\:H~3
mov ax,3100h kuMKX`_
int 21h q!lP"J
4ne5=YY *
; \Sy7 "a
dispdx proc near &Z^(y}jPr
pusha c4mh EE-
lea bx, dsp+3 )}lRd#V
mov cx,4 #%,RJMv
"MO
psb,
repeat0: C"pB"^0
mov al,dl J%rP$O$
and al,0fh |(R5e
cmp al,09h X&\ d)/Y
jg add40 +Ic ~ f1zh
add al, 30h d IB }_L
jmp okadd Fd$!w BL
add40: 7=}F{U
add al,37h QfpuZEUK
okadd: -_A$DM!^=w
mov byte ptr [bx],al @cvP0A
dec bx lFG9=Wf
shr dx,4 t%VDR Zo7
loopnz repeat0 /R8p]
lea bx,dsp tjnPyaJEl
mov dx,bx > 0>
mov ah,09h V2 d,ksKwn
int 21h %5'6Tj
]ya; v '
popa +Wn& ,?3^
ret ' 0aG
N<c
dispdx endp :QQlI
&l2
TeC@;
dispqword proc near 0BU=)Swku
pusha i775:j~zx0
mov cx ,4 \_]En43mg
add bx,6 :z"!k zdJ
repeatdecbx: ,J =P,](
mov dx,[bx] DocbxB={I
call dispdx #
J\rv'
sub bx,2
~2 *9
{
loopnz repeatdecbx 3z =^(Y
popa j]4,<ppWSH
ret I[Ic$ta
dispqword endp |i %2%V#
MN8H;0g -
rwsect proc near E#%}ZY
&Z("D7.G
lea bx,msg PR7f(NC
mov dx,bx 9q[;u[A8^
mov ah,09h ,XK Cz ]8V
int 21h ]/2T\w.<
G-um`
/ <%
lea bx,BlockNumL B|Wk?w.{r\
call dispqword hUpn I@
np$ zo
lea di, packetsize $K}DB N; 4
mov dl,80h _k66Mkd#b
mov ah,42h (c\hy53dP
int 13h }^ Fu lsC
jnc readok Xz{~3ih
Rd&9E
mov cx,5 UmU:j@ xvg
;出错后重试(定位0道后再重读) pHE}ytcT
retryrd: 8G^<[`.@j
lea bx, msgReadErr PO-"M )M
mov dx,bx a$11PBi[9
mov ah,09 s}5+3f$f
int 21h B|=|.qp$)
_'0
@%P%
f i~I@KJ>
lea di,dap0 &m^@9E)S/
mov dl,80h *A}WP_Z
Q
mov ah,44h /
8yn vhF#
int 13h e79Kb LV
dbdM "z 4
lea bx,BlockNumL $9!D\N,}]C
call dispqword } (FPV*mS
w`HI]{hE~N
lea di, packetsize k-LEI}h
mov dl,80h ub :l
y0;t
mov ah,42h ~W0(1#
i
int 13h /%rq
hHs
jnc readok aE VsU|
loopnz retryrd #& .]"
d
,T{<vRj7_
readok: Ww3wsy x
lea di, packetsize vRQ Os0F;
mov dl,80h %CnxjtTo
mov ah,43h yJ x ?M
int 13h TV59(bG.2
@\P4/+"9
rwsect endp 7N8H)X
X* eW#|$\
code ends ;代码段结尾 x i~uv ?f
end start ;结束汇编 %ati7{2!
uBnoQ~Qd[z
