第一个宏汇编程序 ?$ Uk[
$*G]6s
工作后不久，单位里我所在的小组有了一台浪潮0520(XT兼容机)，有了硬盘，有了汇编编译程序，就开始玩汇编了。当然那时的主要工作是用dBASEIII，这个我已经在读研期间自学会了，读了一本关于dBASEIII plus的英文书，编个dBASE/FoxBASE程序已经是小菜一碟了。 q~;P^i<Y
{>5z~OV
那时候的硬盘老出点问题，经常碰上个“Error reading data....” 啥的小毛病，但是换又不方便而且很贵。PCTOOLS与NORTON DISKEDIT扫描盘比较慢。我就自己写了一个磁盘扫描程序。算是用汇编写的第一个正式的有点用处的程序吧！ 8T&m{s
TAi
|]U!
这也是我现在电脑里唯一一个汇编语言的程序了，其它都随着磁盘来回更换丢了。所以，还是在老大这里存一份留个纪念吧！ ~*L H[l>K
E IsA2 f
比较长啊！所以可以自动跳过。 r&o%n5B
lh(A=hn"n
.286 S;Lqx 5Cd
.radix 16 ;k (}~_
data segment ;定义数据段 1&i!92:E
xPq3Sfg`A
$ B2*
x$
msg db 0dh, "Reading sector:$" 9cQKXh:R.
msg1 db 0dh, "Writing sector:$" #Ru +|KL
msgready db 0dh,0a,0dh,0a,"Reading/Writing completed!", 0dh,0a, "$" shYcfLJ
]\+bx=
dsp db " $" ?N,a {#w
Q'7o_[o/
;DAP RVXRF_I
PacketSize db 16d; // 数据包尺寸(16字节) mu= u!by.E
Reserved db 0; // ==0 6 !+x f
BlockCount dw 63d; // 要传输的数据块个数(以扇区为单位) nC_<pq^tr
BufferAddr dw 0,0 ; // 传输缓冲地址(segment:offset) Lyt6 DvAp"
BlockNumL Dw 0,0; // 磁盘起始绝对块地址 P7 (&*=V
BlockNumH Dw 0,0; // 磁盘起始绝对块地址 ,HUs MCXQ
KynQ <
I/
;定位用DAP （复位到0磁道） S]K^wj[
DAP0 db 16d (xG#D;M0
db 0 B5=L</Aj
dw 1
R)nhgp(~
buff1 dw 0,0 |jEKUTv,G
dw 0,0,0,0 [LjYLm%<
r\'3q '7 p
yJ/m21f
;DiskParameters M\enjB7 k
infosize dw 26d; WORD InfoSize; // 数据包尺寸 (26 字节) @wl80v
falgs dw 0; WORD Flags; // 信息标志 WxWgY}`
Cylinders DW 0; DWORD Cylinders; // 磁盘柱面数 u17Da9@;
Heads DW 0; DWORD Heads; // 磁盘磁头数 +ulX(u(,
SPT Dw 0,0; DWORD SectorsPerTrack; // 每磁道扇区数 FK
}x
*d
Sectors Dw 0,0,0,0; QWORD Sectors; // 磁盘总扇区数 1Q#hanh_`
SectorSize DW 0; WORD SectorSize; // 扇区尺寸 (以字节为单位) riFE.;
rouD"cy
cmpsect dw 0 s^L\ h r
5c'rnMW4+p
msgcyl db 0dh,0a,"Disk Parameters",0dh,0a,"Total Cylinders:$" $`{}4,5M
msgHds db 0dh,0a,"Heads:$" h*_r='
E
msgspt db 0dh, 0a,"SectorsPerTrack:$" R?Iv<(I
msgTotal db 0d,0a, "Total Sectors:$" 4w2V["?X1
msgSS db 0dh,0a, "Sector Size:$" v@O tp
&fiDmUxj
msgReadErr db 0dh,0a,"Error Reading Sectors:$" A5ktbj&gy<
msgWriteErr db 0dh,0a, "Error Writing Sectors:$" ir \ d8.
msgReset db 0dh,0a, "Reseting drive to Cyl 0" VF<{Qx*
N^%[
B9D
I".d>]16|
buffer db 32768d dup(0); |Ro\2uSr
F] M3/M
data ends ;数据段结尾 0:v7X)St
SY>N-fW\H:
stack segment Y5c( U)R8
db 400 dup(?) T/-PSfbkj
stack ends nUd(@ @%m
.zBSjh_=H
code segment ;定义代码段 :3Ty%W&&
assume cs:code ;规定cs的内容 'G@Npp)&^
assume ds:data ;规定ds的内容 S9
U9 ;>g
assume ss:stack B 8C3LP}?
r/:9j(y
xr
start: 6&.[ :IHw
pusha _$MoMg{uJH
} ..}]J;To
*M"lUw#(f
mov ax,data ;程序从start开始 JeWW~y`e?{
mov ds,ax ;ds置初值,data的段地址 0kmVP~K
<ywxz1 i
;设置缓冲区 C\$7C5/
lea bx, buffer n)$ q*IN"
mov bufferaddr,bx r}
"T y
mov buff1,bx AGLzA+6M
mov bx,ds w2/%e$D!9
mov bufferaddr+2,bx r[EN`AxDb
mov buff1,bx \< T6+ 3p
,i>5\Yl%
lea di,infosize nzhQ\' TC
mov dl,80h zh*NRN
mov ah,48h 4&$hBn=!
int 13h YHvmo@
JOenVepQ,
lea bx,msgcyl ^~=o?VtBg
mov dx,bx B quyPG"
mov ah,09 \DeZY97p%
int 21h Ev*HH+:b>
mov dx,cylinders X+P3a/ T
call dispdx T( J&v|FK
m feyR
lea bx,msghds "84.qgYaG
mov dx,bx lq. AQ
mov ah,09 Z~T- *1V
int 21h +qzs
C/y
mov dx,heads iOj m j0
call dispdx AL
H^tV?
dgX 0\lKpf
lea bx,msgspt d Yf Vox;
mov dx,bx 4A|
5eg9N
mov ah,09 1G{$ B^
f
int 21h z4UeUVfZ}
mov dx,spt+2 +es.V
/
call dispdx m"H9C-Y
mov dx,spt D' uz H|z8
call dispdx dXrv
h =d&@k\g
lea bx,msgtotal e-UPu%'
mov dx,bx s )~Q@ze2
mov ah,09 > { fX;l
int 21h z Lf^O%zN
lea bx,sectors Ap U5,R0
call dispqword #
?}WQP!
9FcCq*D
lea bx,msgss l~ F,i n.
mov dx,bx 2MtaOG2l&q
mov ah,09 %S$P+B?
int 21h L|! 9%X0.
mov dx,sectorsize sI9~TZ :
call dispdx |{t}ULc
,^AkfOY7"
sbb word ptr sectors, 63d ZuB Vq
jnc subok %z.u
% %
sub word ptr sectors+2,1 CF Ro>G
jnc subok D$#=; H
,
sub word ptr sectors+4,1 O?8G
jnc subok SJy:5e?zk
sub word ptr sectors+6,1 cN&b$ 8O=%
;M@ /AAZ
subok: -2% [ ]
L.+5`&
B0Xn9Tvk
K< Iz5+oD
xor ax,ax ro^Y$;G
mov blocknumL, ax 2 )
4{
mov blocknumL+2, ax 5-=mtvA:
mov blocknumL+4, ax ?=Ma7 y
mov blocknumL+6, ax 96MR nj*Y[
) ae/+Q8
startread: G 78rpp
HbZ3QW P
call rwsect c Ji5\ <b
9FJU'$FN
adc word ptr blocknuml,63d RX7,z.9@'O
jnc addok p
m3?
adc word ptr blocknuml+2,1 c @2s!bs
jnc addok }v=q6C#Q>
adc word ptr blocknuml+4,1 J~n{gT<L
jnc addok Q\ro )r
adc word ptr blocknuml+6,1 :tzCuK?e
jnc addok \$riw L
2&Wc4,O!i
addok: If]g6
B. =
mov ax, word ptr sectors+6 H^'*F->BA
cmp ax, blocknuml+6 /PH ktSG
jg complete A/BL{ U}
jl startread (Ozb +W?
mov ax, word ptr sectors+4 W!GgtQw{F
cmp ax, blocknuml+4 |W\CV0L2
jg complete E$smr\
jl startread s {$c 8
mov ax, word ptr sectors+2 }tc,3> /
cmp ax, blocknuml+2 4i/ TEHQ
jg complete o *5 |W9
jl startread ^[^u DE
<
mov ax, word ptr sectors 2E=E!Zwt_
cmp ax, blocknuml Bv3?W W
jg complete X}
8rrC=
jl startread l E
Qn2+
. +.Y`0
complete: )Bd+jli|s
t=A|
K
lea bx,msgready Yx
XDRb\kW
mov dx,bx 1)%9h >F7
mov ah,09 m Il^
int 21 F?5kl/("
MEq
()}7P
popa )oH
IRsr
mov ax,3100h ^t9"!K
int 21h N ZdQz
HYW+,ts'
; Dv e5Ml-
dispdx proc near %<I
0-o
pusha K _O3Dc
Q
lea bx, dsp+3 fv<($[ 0
mov cx,4 8.]dThaq
< <4G GO
repeat0: Ww)qBsi8
mov al,dl r&Za*TD^
and al,0fh ];zi3oS^
cmp al,09h }b6ja y
jg add40 SGj aH 8z
add al, 30h !7^fji
jmp okadd GW.s\8w
add40: w7w$z _P
add al,37h "o=h /q5&
okadd: M7!&gFv8
mov byte ptr [bx],al
fwXk{P/
dec bx LDwu?"P!
shr dx,4 $\m=-5 0-
loopnz repeat0 :q^g+Bu=
lea bx,dsp F!^ Y!Y@H
mov dx,bx Hdj0! bUx
mov ah,09h 0+cRUH9Ew
int 21h OO53U=NU
ZaXK=%z
popa GD~3RnGQ{
ret @: %}clZ
dispdx endp k{"~G#GwP
"+Xwc+v^
dispqword proc near :~U1JAs$
pusha RQ}x7< /{
mov cx ,4 s~M!yuH
add bx,6 cs~
}k7><
repeatdecbx: Qzb8*;4?FF
mov dx,[bx] s+Ln>c'|o
call dispdx &k
: |
sub bx,2 $ZwsTV]x
loopnz repeatdecbx ?ew^%1 !W.
popa q'q'v
S
ret K C8A22
dispqword endp B^{bXhDp
CF =#?+x
rwsect proc near uR @\/6 !@
B)ynF?"
lea bx,msg <NT /+>:2
mov dx,bx m!E36ce}
mov ah,09h < ~x5{p
int 21h >N+e c_D^
(VwS 9:`
lea bx,BlockNumL 'fawpU|h
call dispqword . eq-i>
_R Y<-B
lea di, packetsize D
zl#[|q
mov dl,80h _qJ[~'m<^C
mov ah,42h K JcdX9x
int 13h * Oyic3F
jnc readok }6m5MH$7q
8=)A ksu
mov cx,5 +(UrqK4Av
;出错后重试(定位0道后再重读) ,| xG2G6
retryrd: SZv w>=)a
lea bx, msgReadErr . R biF
mov dx,bx |K/#2y ~
mov ah,09 -
[Zau$;J<
int 21h 83;1L:}`
>2>x r"
E62VuX
lea di,dap0 ? CL1^N%
mov dl,80h UxD1+\N6?
mov ah,44h R0*DfJS:Z
int 13h otX#}} +
>,hJ5-9
lea bx,BlockNumL ((;9%F:/$
call dispqword YfF&: "-NU
7fnKe2M M
lea di, packetsize .F)--%
mov dl,80h +=u*!6S
mov ah,42h J,m.L pY
int 13h EkWe6m
jnc readok 7b@EvW6X}
loopnz retryrd z?1G J8
|(XV '-~
readok: R%3H"FU9w
lea di, packetsize Wu.od |t0
mov dl,80h .9 nsW?
mov ah,43h vlzjA L y
int 13h =p&6A^
>fs-_
>1d
rwsect endp 8a.
|CgI#h
o)S>x0| [
code ends ;代码段结尾 jnH44
end start ;结束汇编 =CRaMjN
Ldir'FW
