第一个宏汇编程序 ]^iFqQe
tx^92R2/
工作后不久，单位里我所在的小组有了一台浪潮0520(XT兼容机)，有了硬盘，有了汇编编译程序，就开始玩汇编了。当然那时的主要工作是用dBASEIII，这个我已经在读研期间自学会了，读了一本关于dBASEIII plus的英文书，编个dBASE/FoxBASE程序已经是小菜一碟了。 l 8O"w&
/#-,R,Q
那时候的硬盘老出点问题，经常碰上个“Error reading data....” 啥的小毛病，但是换又不方便而且很贵。PCTOOLS与NORTON DISKEDIT扫描盘比较慢。我就自己写了一个磁盘扫描程序。算是用汇编写的第一个正式的有点用处的程序吧！ *A~ ($ZtL
~pHJ0g:t
这也是我现在电脑里唯一一个汇编语言的程序了，其它都随着磁盘来回更换丢了。所以，还是在老大这里存一份留个纪念吧！ C-s>1\ I
[n!$D(|"!V
比较长啊！所以可以自动跳过。 ]4Nvh\/P9
EpRXj z
.286 6V'wQqJ
.radix 16 ]%gp?9wy
data segment ;定义数据段 /[\6oa
;Ri 3#*a=
33=Mm/<m$P
msg db 0dh, "Reading sector:$" g8%MO hg
msg1 db 0dh, "Writing sector:$" RpHpMtvNo/
msgready db 0dh,0a,0dh,0a,"Reading/Writing completed!", 0dh,0a, "$" R'*<A3^
?60>'Xj j
dsp db " $" f|-
m ^/y
aqcFY8b
'
;DAP fp.!VOy
PacketSize db 16d; // 数据包尺寸(16字节) j4E H2v
Reserved db 0; // ==0 u/z,92mmS
BlockCount dw 63d; // 要传输的数据块个数(以扇区为单位) %iK%$
BufferAddr dw 0,0 ; // 传输缓冲地址(segment:offset) I V)^;i
BlockNumL Dw 0,0; // 磁盘起始绝对块地址 d4jVdOq2
BlockNumH Dw 0,0; // 磁盘起始绝对块地址 T6sr/<#<(
]*bAF^8i
;定位用DAP （复位到0磁道） ((Vj]I%
;
DAP0 db 16d mDb-=[W5
db 0
J|n(dVen/
dw 1 ^7i^ \w0
buff1 dw 0,0 th5,HO~
dw 0,0,0,0 7ZS>1
6!4';2Q
T&o, I
;DiskParameters >} -~rZ
infosize dw 26d; WORD InfoSize; // 数据包尺寸 (26 字节) F{TC#J}I%'
falgs dw 0; WORD Flags; // 信息标志 \w{@u)h
Cylinders DW 0; DWORD Cylinders; // 磁盘柱面数 |?\gEY-Se
Heads DW 0; DWORD Heads; // 磁盘磁头数 8B}'\e 4i
SPT Dw 0,0; DWORD SectorsPerTrack; // 每磁道扇区数 AyE%0KmraK
Sectors Dw 0,0,0,0; QWORD Sectors; // 磁盘总扇区数 DBQOxryP>o
SectorSize DW 0; WORD SectorSize; // 扇区尺寸 (以字节为单位) IkSX\*
J)-T:.i|0
cmpsect dw 0 {F;,7Kn+l
p G)9=X!9
msgcyl db 0dh,0a,"Disk Parameters",0dh,0a,"Total Cylinders:$" ^dFh g_GhF
msgHds db 0dh,0a,"Heads:$" l'|E,N>X
msgspt db 0dh, 0a,"SectorsPerTrack:$" gsW=3m&`
msgTotal db 0d,0a, "Total Sectors:$" C}n'>],p
msgSS db 0dh,0a, "Sector Size:$" wY' "ab
LiiK3!^i
msgReadErr db 0dh,0a,"Error Reading Sectors:$" kxwNb xC
msgWriteErr db 0dh,0a, "Error Writing Sectors:$" $-m@KB
msgReset db 0dh,0a, "Reseting drive to Cyl 0" @)9REA(U
K5P Gi#
5gO /-Zj
buffer db 32768d dup(0); Ya~ "R#Uy
JzHqNUn*M
data ends ;数据段结尾 ] b}B~jD
I )[`ZVAXR
stack segment Gh2#-~|c B
db 400 dup(?) KjO-0VMN3
stack ends ;l$9gD>R
^Ku\l #B
code segment ;定义代码段 *6NO-T; -
assume cs:code ;规定cs的内容
[<_"`$sm=
assume ds:data ;规定ds的内容 EYA/CI
assume ss:stack u8 |@|t
}16&1@8
start: U'rr?,RML
pusha 5iP8D<;o5
\eEds:Hg
IeO-O'^&`
mov ax,data ;程序从start开始 )J;ny!^2
mov ds,ax ;ds置初值,data的段地址 5i^ `vmK
_GE=kw;:
;设置缓冲区 +c-6#7hh
lea bx, buffer ?lF mXZy`
mov bufferaddr,bx smQ4CLJ
mov buff1,bx pNP_f:A|
mov bx,ds aL88E
mov bufferaddr+2,bx $kD
7y5
mov buff1,bx %,33gZzf
f_oq1 W)9
lea di,infosize ]PeLcB
mov dl,80h ||R0U @F,
mov ah,48h F;pTXt}?5
int 13h @/9> =#4c
3 t/ R 2
M
lea bx,msgcyl U$A/bEhw
mov dx,bx L_E^}^1!
mov ah,09 |a%B| CX
int 21h +H41]W6
mov dx,cylinders I!61 K
call dispdx < #zwKTmK1
D Nmb
[
lea bx,msghds [.{^" <Z<
mov dx,bx zT$0xj8
mov ah,09 #]@9qPyn
int 21h dAL0.>|`0
mov dx,heads NPS .6qY
call dispdx lco~X DI
P=c?QYF
lea bx,msgspt _B}9 f
mov dx,bx IDj_l+?c
mov ah,09 a[q84[
OQ
int 21h xM%
pvx.'L
mov dx,spt+2 :*#rRQ>t
call dispdx v}Z9+ yRC2
mov dx,spt +e U`H[iu
call dispdx o1e 4.-xI
}6<) yW}U
lea bx,msgtotal +
Dd"41
mov dx,bx >J.Qm0TY(
mov ah,09 K*[9j 0
int 21h n;%y
lea bx,sectors \xF;{ }v
call dispqword w2k<)3 g~
3QIdN
lea bx,msgss Dzo{PstM%
mov dx,bx P= e4lF.
mov ah,09 Y=9q J`q
int 21h \$j^_C>
mov dx,sectorsize h iAxh
Y
call dispdx dl:-k r8
hX NH"0VCV
sbb word ptr sectors, 63d AU/#b(mI
jnc subok ~
W@X-
sub word ptr sectors+2,1 hBjVe?{
jnc subok Gv;
;!sZ
sub word ptr sectors+4,1 p
7s@%scp
jnc subok = PV/`I_h
sub word ptr sectors+6,1 JwjI{,jY
h(_P9 E[g
subok: e]>/H8
"t=UX
-3
,`y yR:F
n|6?J_{<b>
xor ax,ax 5qC:yI
mov blocknumL, ax Yhe+u\vGs\
mov blocknumL+2, ax f?Z|> 3.2
mov blocknumL+4, ax L1rwIOgq^
mov blocknumL+6, ax sA3UeTf
<3lUV 7!
startread: yji>*XG
%06vgjOa (
call rwsect `-o5&>
'nf
Vz'H M$
adc word ptr blocknuml,63d F%Kp9I*
jnc addok F,Q?s9s
adc word ptr blocknuml+2,1 21 V iHV
jnc addok h!v/s=8c
adc word ptr blocknuml+4,1 8[oYZrg
jnc addok vmvFBzLR
adc word ptr blocknuml+6,1 r?\|f:M3
jnc addok
C>4UbU
$Y6 3!*
addok: TiQ^}
5~M
mov ax, word ptr sectors+6 4\\.n
cmp ax, blocknuml+6 7^Na9]P Y
jg complete {$0& R$v3
jl startread WK*S 4 c
mov ax, word ptr sectors+4 NIaF 5z
cmp ax, blocknuml+4 ]dq5hkjpU
jg complete 3B;}j/h2
jl startread ^x t9pa$f
mov ax, word ptr sectors+2 @ ^'$r&M
cmp ax, blocknuml+2 7RD$=?o O'
jg complete 6ga5^6W
jl startread Nl
{ 7
mov ax, word ptr sectors 3524m#4&@
cmp ax, blocknuml 6%E~p0)i%
jg complete JIMWMk;ot
jl startread alc ]
k}H Qq_Y(<
complete: C-Ig_Nc
"?P[9x}
lea bx,msgready U,'EF[t
mov dx,bx eHUg-\dy
mov ah,09 F;pQ \Y
int 21 kQIfYtT
Hng!'
popa !9DX=?
mov ax,3100h |:N>8%@6c
int 21h U-eI\Lu
p 'g^Wh
; 9s(i`R TM
dispdx proc near 0Qp[\ia
pusha IO"hF
lea bx, dsp+3 JD ]OIh
mov cx,4 Y87XLvig}
2
Kl
a8
repeat0: yc[(lq.^n
mov al,dl PS$k >_=t
and al,0fh MQJ%He"
cmp al,09h \-c#jo.$8
jg add40 >ukQ, CE~
add al, 30h 9KyZEH;pY
jmp okadd 5/ * >v
add40: (8G$(MK
add al,37h d/]|657u
okadd: L%XXf3;c
mov byte ptr [bx],al XMw.wQ '?
dec bx -6`;},Yr
shr dx,4 ab@=cL~^
loopnz repeat0 W^k,Pmopy
lea bx,dsp mB`D}g$
mov dx,bx L7}i
q0
mov ah,09h vr 4O 8#
int 21h ]- :1se
=T4u ":#N;
popa N
xFUO0O3
ret vOe0}cR
dispdx endp (N0sE"_~I5
5,R`@&K3D
dispqword proc near f TO+ZTRqf
pusha @o &Ytd;i
mov cx ,4 DT\ym9
add bx,6 dMV=jJ%Y
repeatdecbx: LWD#a~
mov dx,[bx] =U"dPLax
call dispdx
#9\THfb
sub bx,2 6{.J:S9n
loopnz repeatdecbx Oc~aW3*A(
popa {p] = ++
ret _f|/*.
@Q
dispqword endp csDQva\
U- g9C.
rwsect proc near `eC+% O
=!CU $g
lea bx,msg =Dk7RKoHF
mov dx,bx ?}8IQxU
mov ah,09h '_ 0
int 21h yj
zK.dM
hVM2/j
lea bx,BlockNumL TF\sP8>V
call dispqword 4H-j
. |e
ZdH1nX(Yh3
lea di, packetsize (' 4wXD]C
mov dl,80h _ B[ WY
mov ah,42h OJpj}R
int 13h MwAJ(
jnc readok !y. $ J<
|` "?
mov cx,5 .YR8v1Cp
;出错后重试(定位0道后再重读) aMJ;bQD
retryrd: \ha-"Aqze3
lea bx, msgReadErr MM gx|"
mov dx,bx Rh<N);Sl7
mov ah,09 A=X-;N#
int 21h a$$ Wt<&Y
%i"}x/CD[
$;`I,k$0>~
lea di,dap0 5g >wV
mov dl,80h g<a<*)&
mov ah,44h f-D>3q SS
int 13h 7$7n71o
1TZPef^y
lea bx,BlockNumL ?Ht=[ l =
call dispqword
\
b old"
\|t{e8}
lea di, packetsize e:E#
b~{
mov dl,80h 7W|Zq6p i
mov ah,42h o @KW/RN"
int 13h smup,RNZRX
jnc readok 'zxoRc-b@N
loopnz retryrd f { ^:3"i
utH%y\NMF|
readok: ]Ik%#l.G_
lea di, packetsize
%w5[*V
mov dl,80h 0
iR R{a<
mov ah,43h / M@ PO"
int 13h Qqq
<e
6/1$< !WH
rwsect endp 56{I`QjX
zCV7%,H~
code ends ;代码段结尾 ehT% s+aUw
end start ;结束汇编 LT_iS^&1
`!i-#~n
