第一个宏汇编程序 ;) pl {_
>!BFt$sd
工作后不久，单位里我所在的小组有了一台浪潮0520(XT兼容机)，有了硬盘，有了汇编编译程序，就开始玩汇编了。当然那时的主要工作是用dBASEIII，这个我已经在读研期间自学会了，读了一本关于dBASEIII plus的英文书，编个dBASE/FoxBASE程序已经是小菜一碟了。 .H;B=nd*
M9"Sgb`g
那时候的硬盘老出点问题，经常碰上个“Error reading data....” 啥的小毛病，但是换又不方便而且很贵。PCTOOLS与NORTON DISKEDIT扫描盘比较慢。我就自己写了一个磁盘扫描程序。算是用汇编写的第一个正式的有点用处的程序吧！ <f%/px%1
pieT'mA
这也是我现在电脑里唯一一个汇编语言的程序了，其它都随着磁盘来回更换丢了。所以，还是在老大这里存一份留个纪念吧！ J|j;g!fK
k ojG- M
比较长啊！所以可以自动跳过。 .9 kyrlm
E$S`6+x`:a
.286 xh'^c^1
.radix 16 6v47 QW|'
data segment ;定义数据段 |cTpw1%I~
ePA;:8)_j
__)qw#
msg db 0dh, "Reading sector:$" G=$}5; t
msg1 db 0dh, "Writing sector:$" 6Y?` =kAp
msgready db 0dh,0a,0dh,0a,"Reading/Writing completed!", 0dh,0a, "$" YO w?'+8
CIQw l 6H9
dsp db " $" i>GdRG&q
dB)[O9K)
;DAP {e9Y
!oFg
PacketSize db 16d; // 数据包尺寸(16字节) 84`rbL
!M
Reserved db 0; // ==0 `jW 4H$D
BlockCount dw 63d; // 要传输的数据块个数(以扇区为单位) L+R >%d
s
BufferAddr dw 0,0 ; // 传输缓冲地址(segment:offset) HF4Lqh'oco
BlockNumL Dw 0,0; // 磁盘起始绝对块地址 x;U|3{I o
BlockNumH Dw 0,0; // 磁盘起始绝对块地址 TA)LPBG
jH0Bo;
;定位用DAP （复位到0磁道） $%He$t
DAP0 db 16d yh!B!v'
db 0 _Y#Bm/*
dw 1 ^
KAG| r9
buff1 dw 0,0 05)|"EX)
dw 0,0,0,0 ~I$ }#
f)Y
`p|[rS>
;DiskParameters qX@9N=g`#O
infosize dw 26d; WORD InfoSize; // 数据包尺寸 (26 字节) #]zhZW4
falgs dw 0; WORD Flags; // 信息标志 1ih* gJPpj
Cylinders DW 0; DWORD Cylinders; // 磁盘柱面数 +qE
']yzm!
Heads DW 0; DWORD Heads; // 磁盘磁头数 P6 HGs?
*
SPT Dw 0,0; DWORD SectorsPerTrack; // 每磁道扇区数 pG28M]\
Sectors Dw 0,0,0,0; QWORD Sectors; // 磁盘总扇区数 TG]}X\c+V|
SectorSize DW 0; WORD SectorSize; // 扇区尺寸 (以字节为单位) "?H+
u/
8$
hWxT !
cmpsect dw 0 (J pm
K O
/.Z
aE+
msgcyl db 0dh,0a,"Disk Parameters",0dh,0a,"Total Cylinders:$" 5;
f\0<-
msgHds db 0dh,0a,"Heads:$" &7][@v
msgspt db 0dh, 0a,"SectorsPerTrack:$" Yw^ Gti'<
msgTotal db 0d,0a, "Total Sectors:$" 4K,''7N3
msgSS db 0dh,0a, "Sector Size:$" 0M\NS$u(Y
l\aUresm
msgReadErr db 0dh,0a,"Error Reading Sectors:$" kI M
C~Z
msgWriteErr db 0dh,0a, "Error Writing Sectors:$" FfXZ|o$;
msgReset db 0dh,0a, "Reseting drive to Cyl 0" r<_2qICgP
ak2dn]]D
D B8s
buffer db 32768d dup(0); [Yvsa,2
uGCtLA+sL
data ends ;数据段结尾 UPO^V:.R4
FNJ!IkuR
stack segment X%`KYo%
db 400 dup(?) )*HjRTF6G
stack ends e wQe/Fq
t?.\|2
code segment ;定义代码段 [d:@1yc
assume cs:code ;规定cs的内容 pzSqbgfrQ
assume ds:data ;规定ds的内容 b7v dk
assume ss:stack nP
u`;no
%BICt @E
start: n_; S2KM
pusha "WP% REE!
)k~1,
DPeVK yjU
mov ax,data ;程序从start开始 =h[yA f
mov ds,ax ;ds置初值,data的段地址 '>]&r b09|
Y- ~;E3(
;设置缓冲区 R-C5*$
lea bx, buffer uQ1jwYK`7
mov bufferaddr,bx bX&e_Pd
mov buff1,bx E0jUewG
mov bx,ds uN(b.5y
mov bufferaddr+2,bx MC
d F!{
mov buff1,bx EE9vk*[@C
d#7]hF
lea di,infosize 9fCO7AE0#
mov dl,80h LaT8l?q q
mov ah,48h d5'
) 6
int 13h =M7PvH' "
?%;B`2 nDR
lea bx,msgcyl z"qv
mov dx,bx #^; s<YZ`
mov ah,09 &CO| Y(+
int 21h TK %< a/
mov dx,cylinders 2:~cJ
k{
call dispdx
*I/A,#4r
Zly-\ z_
lea bx,msghds N6
BNzN}-P
mov dx,bx tx)OJY
mov ah,09
,5 :![
int 21h
,5kv n
mov dx,heads |Cq8%
call dispdx PC0H H
/x
O{
.dr
lea bx,msgspt z.j4tc9F/5
mov dx,bx ##2`5i-x
mov ah,09 We\Y \*!v
int 21h 4JSZ0: O
mov dx,spt+2 8E
9{
Gf
call dispdx /Mx.:. A&$
mov dx,spt d}VALjXHX!
call dispdx )O -cw7 >
%xpd(&)n
lea bx,msgtotal
|Z!@'YB
mov dx,bx F dM<;}6T
mov ah,09 \N yr=<c
int 21h uZ<%kV1B
lea bx,sectors .xo_}Vw
call dispqword W/a,.M
soxfk+
9
lea bx,msgss ~}9Bn)@
mov dx,bx +i4P,Lp
mov ah,09 H.9yT\f.
int 21h mCK],TOA:
mov dx,sectorsize 5Abz 5-^KH
call dispdx {YBl:r
Mz
b_ZNI0Hp@
sbb word ptr sectors, 63d /khnl9~+
jnc subok XK3!V|y`
sub word ptr sectors+2,1 t#{x?cF
jnc subok ? 4MSgu
sub word ptr sectors+4,1 |y U3Kt
jnc subok )5'rw<:="
sub word ptr sectors+6,1 <B=[hk!
hw|t8 ShW
subok: ,b4 ~!V
*f?S5 .
3 Mxz_~
[xWEf#', !
xor ax,ax lh~<s2[R
2
mov blocknumL, ax _ Q{T ';
mov blocknumL+2, ax \d ui`F"Cc
mov blocknumL+4, ax $) l2G
;&
mov blocknumL+6, ax /t$*W\PL@
{sl~2#,}b1
startread: KZZ
Oi:
i<bxc
call rwsect wn{]#n=|l
Pwg/Vhfh
adc word ptr blocknuml,63d r:.6"VQu}
jnc addok ,Q+\h> I
adc word ptr blocknuml+2,1 "B~WcC
jnc addok p!QR3k.9s
adc word ptr blocknuml+4,1 y
W{mK
jnc addok sl% #u
9r=
adc word ptr blocknuml+6,1 NQg'|Pt (%
jnc addok X;(oz]tr$
K,G,di
addok: e7lo!( > #
mov ax, word ptr sectors+6 f%L:<4
cmp ax, blocknuml+6 / Z1Wy-Z
jg complete cNx
\&vpd
jl startread A3<^ U
mov ax, word ptr sectors+4 ,}n=Z
cmp ax, blocknuml+4 { dZ! I
jg complete e"lD`*U8R
jl startread \+G.]|" Y
mov ax, word ptr sectors+2 OCwW@OC +
cmp ax, blocknuml+2 2c"/ QT
jg complete Z ~:/#?/
jl startread gu^_iU
mov ax, word ptr sectors T<XfZZ)l<`
cmp ax, blocknuml :| zp8 |
jg complete t[/\K G8
jl startread (y
3~[
Kyu@>9Ok
complete: , YQ=Zk)w
^uM_b
lea bx,msgready 9} .,2JE
mov dx,bx wG;}TxrLS
mov ah,09 k"5 `
: qL
int 21 WI0Q LR'
g(KK9Unu
popa gO9'q='5l
mov ax,3100h nrI"k2oA@
int 21h ~37R0`C
2 ae w6~
; avmcGyL
dispdx proc near I N<:P
pusha \)p4okpR
lea bx, dsp+3 O(WE gz
mov cx,4 dZ.}j&ZH'
<|B$dz?r
repeat0: FLK"|
*A
mov al,dl J1nXAh)J
and al,0fh ^M [#^wv,
cmp al,09h "k/; `eAP
jg add40 U
7EHBW
add al, 30h ?rAi =w&c
jmp okadd "IOC[ #&G
add40: f 5mY;z"
add al,37h a^
%8QJW
okadd: o@Scz! "g
mov byte ptr [bx],al <=$rU232}
dec bx sN" p5p
shr dx,4 ix(U:'{
loopnz repeat0 VtD@&N
lea bx,dsp ;tXB46
mov dx,bx Th.3j's
mov ah,09h /L)?> tg
int 21h 0&.LBv8
B,r5kQI4
popa !p-'t]
ret CQj/e+eE4
dispdx endp rf )PAdj|~
p
. lu4
dispqword proc near hcd! A 5
pusha &qNP?>C!=
mov cx ,4 ;_
>s0 rUV
add bx,6 \)uy"+ Z`
repeatdecbx: _
'H2>V_
mov dx,[bx] CM`x>J
call dispdx Dp%5$wF)8
sub bx,2 >F,$;y
52
loopnz repeatdecbx K3a>^g
popa Q -M
rH
ret Z@<q/2
).|
dispqword endp 9 )ACgz&(
@gs26jX~2}
rwsect proc near f:n] Exsy
N-]\oMc2
lea bx,msg <GSQ2bX[
mov dx,bx O\LjtMF
mov ah,09h X@i+&Nv"<
int 21h JqL<$mSep
@QvfN>T
lea bx,BlockNumL 'Na|#tPYI
call dispqword ] ,!\IqO
5JO[+>
lea di, packetsize m}; ~JMo]
mov dl,80h A"Tc^Ij
mov ah,42h M|1eqR%x-?
int 13h 3s3
a>
jnc readok t^`<*H
&*X3c h
mov cx,5 I[tAT[ <
;出错后重试(定位0道后再重读) We[<B J o4
retryrd: s4!|v`+$M
lea bx, msgReadErr kqjxJ 5
mov dx,bx ,G916J*XA
mov ah,09 cZPbD;e:
int 21h H4P\hOK7r
l
:f9Ih
Q,O kO?uY
lea di,dap0 hVQ7'@
mov dl,80h ['/;'NhdlY
mov ah,44h pI'8>_o
int 13h \/?
!
6~
& gY;`*<
lea bx,BlockNumL QB g}2.
call dispqword emGV]A%nss
(k 7;
lea di, packetsize HR/k{"8W4Q
mov dl,80h $ iX^p4v
mov ah,42h 9m<wcZ
int 13h 6 lB{Ao?|
jnc readok Z )C:]}Ex
loopnz retryrd ~r(g|?}P
e}{8a9J<%_
readok: *=($r%)
lea di, packetsize V`WI"H O+
mov dl,80h 113Z@ F
mov ah,43h SS >:Sw
int 13h s#'|{
d)`nxnbMeM
rwsect endp ]s1TJw [B
bx+(.F
code ends ;代码段结尾 9itdRa==
end start ;结束汇编 ~Da
>{zHt
*u k \O]
