| 伍胥之 |
01-22-2011 00:02 |
第一个宏汇编程序 v=95_l
Ix|~f1*%
工作后不久，单位里我所在的小组有了一台浪潮0520(XT兼容机)，有了硬盘，有了汇编编译程序，就开始玩汇编了。当然那时的主要工作是用dBASEIII，这个我已经在读研期间自学会了，读了一本关于dBASEIII plus的英文书，编个dBASE/FoxBASE程序已经是小菜一碟了。 p N\Vr8tJ
N0>0z]4;q
那时候的硬盘老出点问题，经常碰上个“Error reading data....” 啥的小毛病，但是换又不方便而且很贵。PCTOOLS与NORTON DISKEDIT扫描盘比较慢。我就自己写了一个磁盘扫描程序。算是用汇编写的第一个正式的有点用处的程序吧！ AfC>Q!-w
m4:^} O-#
这也是我现在电脑里唯一一个汇编语言的程序了，其它都随着磁盘来回更换丢了。所以，还是在老大这里存一份留个纪念吧！ >*$;
1&:@
比较长啊！所以可以自动跳过。 ESoAz o ,u
?m
c%.Bt
.286 B4XZko(
.radix 16 3zT_^;:L
data segment ;定义数据段 rfw-^`&{
[j4v] PE
VzJ5.mRQ
msg db 0dh, "Reading sector:$" !K? qgM
msg1 db 0dh, "Writing sector:$" 8_K6 0eXz
msgready db 0dh,0a,0dh,0a,"Reading/Writing completed!", 0dh,0a, "$" Tg3!R q55
B??J@+N
f
dsp db " $" U} $DhA"r"
v_<2H' *Q
;DAP *6BThvg|&X
PacketSize db 16d; // 数据包尺寸(16字节) )f dE 6
Reserved db 0; // ==0 1oKfy>i e
BlockCount dw 63d; // 要传输的数据块个数(以扇区为单位) Q o =
Kqv
BufferAddr dw 0,0 ; // 传输缓冲地址(segment:offset) irk*~ k ?
BlockNumL Dw 0,0; // 磁盘起始绝对块地址 $W;b{H=F
BlockNumH Dw 0,0; // 磁盘起始绝对块地址 Vpp; \
I \ |
N
;定位用DAP （复位到0磁道） t\v+ogbk)
DAP0 db 16d ^h &I H|
db 0 j6(?D*x
dw 1 iBudmT8
buff1 dw 0,0 %c)[
kAU!
dw 0,0,0,0 xug)aE
7DlOW1|
pG"5!42M!
;DiskParameters !6}O.Nu
infosize dw 26d; WORD InfoSize; // 数据包尺寸 (26 字节) xmGk*W)P
falgs dw 0; WORD Flags; // 信息标志 _ IeU+tS
Cylinders DW 0; DWORD Cylinders; // 磁盘柱面数 -A-tuyIsh"
Heads DW 0; DWORD Heads; // 磁盘磁头数 gw _$
SPT Dw 0,0; DWORD SectorsPerTrack; // 每磁道扇区数 =:+0)t=ao
Sectors Dw 0,0,0,0; QWORD Sectors; // 磁盘总扇区数 /# <pVgN
SectorSize DW 0; WORD SectorSize; // 扇区尺寸 (以字节为单位) D7
"p}PD>~
DF {OnF
cmpsect dw 0 T# Z%y!6
\ C 5%\4
msgcyl db 0dh,0a,"Disk Parameters",0dh,0a,"Total Cylinders:$" YK{a
msgHds db 0dh,0a,"Heads:$" /+e~E;3bO
msgspt db 0dh, 0a,"SectorsPerTrack:$" Iak0 [6Ey
msgTotal db 0d,0a, "Total Sectors:$" NcCvm#
msgSS db 0dh,0a, "Sector Size:$" %PJhy 2
6Fy@s
msgReadErr db 0dh,0a,"Error Reading Sectors:$" f f 7 (
msgWriteErr db 0dh,0a, "Error Writing Sectors:$" $<p8TtI=YQ
msgReset db 0dh,0a, "Reseting drive to Cyl 0" @DC)]C2
0J~Qq]g
Y RlDX:oX~
buffer db 32768d dup(0); :c8n[+5
^nV l (^{
data ends ;数据段结尾 _7a'r</@
Y\2|x*KwvF
stack segment 7~M< cD
db 400 dup(?) ESb
]}c :
stack ends
8[ry |J
$ j)hNWI
code segment ;定义代码段 l.nH?kK<
assume cs:code ;规定cs的内容
fE,9zUo
assume ds:data ;规定ds的内容 9SMiJad<
assume ss:stack ]Tst SF =
hnWo|! ,O$
start: A"Q@W<.
pusha 0uCT+ -
=l<iI*J.
M
2i |B=D(
mov ax,data ;程序从start开始 Q+ i\8RJ
mov ds,ax ;ds置初值,data的段地址 9N[EZhW
c<+;4z
;设置缓冲区 6#A:}B<?
lea bx, buffer 8&V_$+ U
mov bufferaddr,bx @U -$dw'4
mov buff1,bx )
uP\> vRy
mov bx,ds X5g[ :QKP7
mov bufferaddr+2,bx +CM7C%U
mov buff1,bx SK$ Vk[c]
~YCuO0t
lea di,infosize VhEM k\
mov dl,80h N_75-S7Cm
mov ah,48h Fl>]&x*~
int 13h [&Hkn5yq
^%y `u1ab
lea bx,msgcyl dRvin[R8
mov dx,bx >u J/TQU
mov ah,09 r+<{S\ Q
int 21h ;1DdjE Tr
mov dx,cylinders rs a&Oo
D>
call dispdx uHNpfK nZ
f+vVR1
lea bx,msghds jw6T j;c
mov dx,bx 8cHE[I
mov ah,09 zGc(Ef5`M6
int 21h u1K\@jlw
mov dx,heads ix Z)tNz
call dispdx p2x
[p
0"[`>K~7a8
lea bx,msgspt w?csV8ot
mov dx,bx 6gOe!m m
mov ah,09 !.fw,!}hOD
int 21h ;LJ3c7$@lf
mov dx,spt+2 O_K_f+7
call dispdx 6@4n'w{"
mov dx,spt d `Q7"}uZ
call dispdx *Zd84wRSj
|da dH
7
lea bx,msgtotal LZ*R[
mov dx,bx (fo Bp
mov ah,09 |Y _
-
int 21h /&ygi H{^
lea bx,sectors e,A)U
5X
call dispqword :46h+?
}1+%_|Y-E
lea bx,msgss |)_-Bi;MW`
mov dx,bx \)m"3y Y
mov ah,09 ! d9 AG|
int 21h > Cg O<\
mov dx,sectorsize 'PdmI<eXQ
call dispdx K^% -N yV
GO5 ~!g
sbb word ptr sectors, 63d !D.0 (J
jnc subok ?
)3jqQ.
sub word ptr sectors+2,1 TA}UY7v
jnc subok E@
h
y7 X
sub word ptr sectors+4,1 o4=Yu7L
jnc subok R_D c)
sub word ptr sectors+6,1 hv)7H)|l~]
1K|@ h&@
subok: 6&2LWaWMo$
POU}/e!Ua
%Ny) ? B
G5]1s
xor ax,ax lj &>cScC
mov blocknumL, ax =?0QqCjK)
mov blocknumL+2, ax KO]N%]:&~
mov blocknumL+4, ax + lO'wa7|3
mov blocknumL+6, ax dYOF2si~%
i~qfGl p6)
startread: A~-#@Z
i +M*J#'
call rwsect 2Eh@e([PMs
d
GgP_ S
adc word ptr blocknuml,63d 4f1D*id*`#
jnc addok =;c_} VY
adc word ptr blocknuml+2,1 HW 7FP]NH
jnc addok
9EF~l9`'U
adc word ptr blocknuml+4,1
YRB%:D@u
jnc addok F'J [y"~_
adc word ptr blocknuml+6,1 ACBQ3
jnc addok g{pQ4jKF
{w`:KR6o7
addok: r>qA $zD^
mov ax, word ptr sectors+6 _
py2kjA6
cmp ax, blocknuml+6 nJ3vi}`
jg complete heD,& OX
jl startread <6 N_at3
mov ax, word ptr sectors+4 =g@9>3~{!
cmp ax, blocknuml+4 !}&" W,,0
jg complete q"aPJ0ni'
jl startread {`.O|_b
mov ax, word ptr sectors+2 +AQDD4bu
cmp ax, blocknuml+2 nx4P^P C
jg complete iH)Nk^
jl startread >mIg@knE
mov ax, word ptr sectors {^RG%
&S
cmp ax, blocknuml !eD+ GDgE]
jg complete )@:l^$x
jl startread @e Qld\h'
, &' Y
complete: ,9/5T : 2
u39FN?<^
lea bx,msgready Q
2 ~5"
mov dx,bx % ]Cjhs"v
mov ah,09 ?9U:g( v
int 21 K%,$ V ,#
<lFY7' aY
popa [wcA.g* F
mov ax,3100h
dhR( _
int 21h ~LE[,
I:q
Z}cIA8 7U
; .L;",E
dispdx proc near RLKj
u;u
pusha lg/sMF>z\f
lea bx, dsp+3 P%o44|[][
mov cx,4 C*wdtEGq
A1JzW)B
repeat0: 8l xY]UT
mov al,dl Mz|L- 62
and al,0fh s j
9 D
cmp al,09h !
sYf <
jg add40 -gKpL\
add al, 30h x% XT2 +
jmp okadd B7
"Fp
add40: 3;B vnD7
add al,37h |"}4*V_ *
okadd: ?ei%RWo
mov byte ptr [bx],al
jL4>A$
dec bx I5pp "*u
shr dx,4 XNmQ?`.2'
loopnz repeat0 P%GkcV
lea bx,dsp <lld*IH
mov dx,bx m<fA|9 F#
mov ah,09h ch,| 1}bi
int 21h <NQyP{p
\C\g n] Z
popa ?f2G?Y
ret E#h~V5Tf
dispdx endp {
R*Y =Ie
^L O]Z
dispqword proc near 3&J&^O
pusha ZC\mxBy
mov cx ,4 5
;vC( Go
add bx,6 Fd !iQ
repeatdecbx: ~u/@rqF
mov dx,[bx] e(\Q)re5Q
call dispdx H%.zXQ4}n
sub bx,2 ic~Z_?p
loopnz repeatdecbx 9A;6x$s
popa Wu{&;$
ret 9.Ap~Ay.
dispqword endp *h,3}\
3h JH(ToO
rwsect proc near #Go(tS~o
@6%gIsj<H
lea bx,msg Y.
TYc;
mov dx,bx <3# <I)#
mov ah,09h }GRMZh_8
int 21h t Bl#o ^
utd:&q|}
lea bx,BlockNumL jy jQzt
>\
call dispqword w4OW4J#
rdI]\ UH
lea di, packetsize G `Izf1B`I
mov dl,80h YmCbxYa7
mov ah,42h +2O=s<fp
int 13h ?N#[<kd
jnc readok 4[l^0
Es:6
mov cx,5 g 3a/ ;wl
;出错后重试(定位0道后再重读) !1-&Y'+
retryrd: jT"r$""1d
lea bx, msgReadErr i ^S2%qz
mov dx,bx FU]4oKx
mov ah,09 |4xo4%BQ>
int 21h P
dM*5g4
}vsO^4Sjc
aiR5/
ZD
lea di,dap0 ] piM
/v\
mov dl,80h &l!$Sw-u;
mov ah,44h 6~:+:;
int 13h t,?,F4 j
;vUxO<cKFq
lea bx,BlockNumL \L#QR
call dispqword z+ 6QZQk
<[8@5 ?&&
lea di, packetsize 5 vGioO
mov dl,80h NTVHnSoHh
mov ah,42h :C }H y
int 13h xK!DtRzsA
jnc readok nhT;b,G.Z
loopnz retryrd BA`:miH<
Mryn>b`c B
readok: 3B"7VBK{
lea di, packetsize #L1>dHhat
mov dl,80h T:n< db,Px
mov ah,43h u[mY!(>nQ
int 13h x)\V lR
8}K"IW
rwsect endp g =x"cs/[
5\?3$<1 I
code ends ;代码段结尾 4f
jC
end start ;结束汇编 V(I7*_ZFl
^teaJ y%
|
|
