第一个宏汇编程序 W#wC
): r'IR
工作后不久，单位里我所在的小组有了一台浪潮0520(XT兼容机)，有了硬盘，有了汇编编译程序，就开始玩汇编了。当然那时的主要工作是用dBASEIII，这个我已经在读研期间自学会了，读了一本关于dBASEIII plus的英文书，编个dBASE/FoxBASE程序已经是小菜一碟了。 Bu{%mm(
|Z$)t%'
那时候的硬盘老出点问题，经常碰上个“Error reading data....” 啥的小毛病，但是换又不方便而且很贵。PCTOOLS与NORTON DISKEDIT扫描盘比较慢。我就自己写了一个磁盘扫描程序。算是用汇编写的第一个正式的有点用处的程序吧！ N'|9rB2e
6^FUuj.
这也是我现在电脑里唯一一个汇编语言的程序了，其它都随着磁盘来回更换丢了。所以，还是在老大这里存一份留个纪念吧！ maV*+!\
U;gy4
rj
比较长啊！所以可以自动跳过。 XH Y,;4
SL_JA
.286 HD z"i
.radix 16 "\M3||.!
data segment ;定义数据段 j tqU`|FSQ
=S\
pI
SK_N|X].
msg db 0dh, "Reading sector:$" ~c\ 2'
msg1 db 0dh, "Writing sector:$" u:,B&}j
msgready db 0dh,0a,0dh,0a,"Reading/Writing completed!", 0dh,0a, "$" [kPl7[ OL
qVd s
2
dsp db " $" w2K>k/v{-
$us7fuKE
;DAP P_gai7Xg
PacketSize db 16d; // 数据包尺寸(16字节) t~Ic{%bdA
Reserved db 0; // ==0 1W9uWkk_ d
BlockCount dw 63d; // 要传输的数据块个数(以扇区为单位) 18y'#<X!
BufferAddr dw 0,0 ; // 传输缓冲地址(segment:offset) t,kai6UM
BlockNumL Dw 0,0; // 磁盘起始绝对块地址 l vU Ws
BlockNumH Dw 0,0; // 磁盘起始绝对块地址 lO}I>yo}\
yzX S{#\
;定位用DAP （复位到0磁道） KnK\X>:
DAP0 db 16d 2 ,.8 oa(
db 0 |1T[P)Q
dw 1 3v)``
n@
buff1 dw 0,0 7qdB
dw 0,0,0,0 lnV!Xuf
CZ(fP86e
e C&!yY2g
;DiskParameters cWI7];/d;
infosize dw 26d; WORD InfoSize; // 数据包尺寸 (26 字节) 2 F ~SH
falgs dw 0; WORD Flags; // 信息标志 )=0@4
Cylinders DW 0; DWORD Cylinders; // 磁盘柱面数 mH'om
SCz
Heads DW 0; DWORD Heads; // 磁盘磁头数 $@[Mo
SPT Dw 0,0; DWORD SectorsPerTrack; // 每磁道扇区数 xI
~ c~KC
Sectors Dw 0,0,0,0; QWORD Sectors; // 磁盘总扇区数 cOP%R_ak?
SectorSize DW 0; WORD SectorSize; // 扇区尺寸 (以字节为单位) |s!n7%|,7
%y)LBSxf
cmpsect dw 0 !ed0
= ' :B
msgcyl db 0dh,0a,"Disk Parameters",0dh,0a,"Total Cylinders:$" B5]nP
.R
msgHds db 0dh,0a,"Heads:$" _ n4 C~
msgspt db 0dh, 0a,"SectorsPerTrack:$" }w)w W1&
msgTotal db 0d,0a, "Total Sectors:$" mf2Qu
msgSS db 0dh,0a, "Sector Size:$" YH-W{ ].
}jg,[jw_"X
msgReadErr db 0dh,0a,"Error Reading Sectors:$" XZ/cRE
z^s
msgWriteErr db 0dh,0a, "Error Writing Sectors:$" \u 6/nvZ]N
msgReset db 0dh,0a, "Reseting drive to Cyl 0" qi8~bQ{rH
i\ RB KF
jYW -}2L
buffer db 32768d dup(0); {65_k
&VVvZ@X ;
data ends ;数据段结尾 !'=< uU-
gyC Xv0*z
stack segment ,4(m.P10
db 400 dup(?) >
}8 6 #^F
stack ends ''.\DC~K
?nf4K/IjZ!
code segment ;定义代码段 P> 7PO~E.
assume cs:code ;规定cs的内容 %O>_$
4q
assume ds:data ;规定ds的内容 Ko
FWI_(b
assume ss:stack )N &95\ u
"}< baz
start: Wix4se1Ac
pusha L0Z AF2O
Lvn+EM
85+w\KuEY
mov ax,data ;程序从start开始 =8 DS~J{
mov ds,ax ;ds置初值,data的段地址 #?bOAWAwLh
U#4 >GO;A
;设置缓冲区 r<"k
/
lea bx, buffer nB%[\LtZ?
mov bufferaddr,bx 1c$c e+n~
mov buff1,bx ~B`H5#
mov bx,ds IZxr;\dq6
mov bufferaddr+2,bx kX:8sbZ##4
mov buff1,bx d* :J0 J(
=AeOki e
lea di,infosize ~8[`(
/hj
mov dl,80h \%.&$z3wz
mov ah,48h oCB#i~|> a
int 13h RNX>I,2sh
. 3xf!E*
lea bx,msgcyl <@qJ sRbhK
mov dx,bx wd
Di5-A4
mov ah,09 ?lIh&C8]X
int 21h Ia>~ph#]{`
mov dx,cylinders &lB>G[t
call dispdx T?D]]x
w gZ6|)!0
lea bx,msghds F>5)Clq
mov dx,bx &"X1w $
mov ah,09
$X rX(l5
int 21h t;lK=m|
mov dx,heads S2$r 6T
call dispdx
e:6mz \J
44UN*_qG
lea bx,msgspt =n M Aw&`
mov dx,bx cUU"*bA#
mov ah,09 prVqV-S6TY
int 21h
=#vU$ ~a
mov dx,spt+2 fyv S1_
call dispdx <;dFiI-GO#
mov dx,spt SdJk
no
call dispdx E_K32) J-
* YT v"
lea bx,msgtotal <J^94-[CF
mov dx,bx gq)uv`3
mov ah,09 ~gOdK-SV*
int 21h }kk[l vhJ
lea bx,sectors ;-kg3fGB1Q
call dispqword }9L;|ul6
`W4Is~VVv
lea bx,msgss <rNz&;m}
mov dx,bx h ?+vH{}j
mov ah,09 #M:Vwn
JX
int 21h ^~m}(6
mov dx,sectorsize 5K$d4 KT
call dispdx HH^yruP\}
<J!?eH9 f
sbb word ptr sectors, 63d v NAQ/Q
jnc subok "^Vfo$q
sub word ptr sectors+2,1 4pFoSs?\
jnc subok Qr[" .>+
sub word ptr sectors+4,1 a.Sx MF
jnc subok \0^Je>-:U
sub word ptr sectors+6,1 ;x4yidb6
<*
d jtO
subok: ^L's45&_
*0%G`Q
x c$jG?83#
Z]^O=kX
7k
xor ax,ax X1%_a.=VF
mov blocknumL, ax +\MGlsMK@.
mov blocknumL+2, ax t` zPx#])
mov blocknumL+4, ax p 4l B#
mov blocknumL+6, ax =|q@ Q`DB
a8Z{-=)
startread: 4 J2C# Cs
D;X/7 p|>
call rwsect *g 2N&U
HQrx9CXE
adc word ptr blocknuml,63d 'k9 1;T[
jnc addok R,W
w/D
adc word ptr blocknuml+2,1 (EOYJHZB!
jnc addok }zHG]k,j
adc word ptr blocknuml+4,1 2sT\+C&H
jnc addok ngH_p >
adc word ptr blocknuml+6,1 ?,*KA Gg%
jnc addok 2Xp?O+b#"O
r1|;V~ a$~
addok: qjLFg sd
mov ax, word ptr sectors+6 Us8nOr>5
cmp ax, blocknuml+6 THnZbh4#)
jg complete DgC;1U'
jl startread l~GcD
mov ax, word ptr sectors+4 (Bu-o((N@0
cmp ax, blocknuml+4 ((]Sy,rdk
jg complete 4G=KyRKh
jl startread stlkt>9
mov ax, word ptr sectors+2 'V:ah3 8
cmp ax, blocknuml+2 I sB=G-s
jg complete 5=P*<Dnj
jl startread +rOd0?
mov ax, word ptr sectors CrEC@5 j
cmp ax, blocknuml /1LQx>1d
jg complete b'G! )n
jl startread 9AZp vQ
Z<
$ y)bf
complete: "A& HNk Rz
(/Dr=D{ `
lea bx,msgready 'E1m-kJz
mov dx,bx k!sk\~ >YO
mov ah,09 hSSFmEpr
int 21 -l q,~`v
w Rj&k(?*
popa gJuA*^
mov ax,3100h bF? {
int 21h <qCfw>%2F
|j7{z sH
; |kkg1M#
dispdx proc near WB=|Ty ~l
pusha xtRHb''FX
lea bx, dsp+3 4'0rgS
mov cx,4 N(L?F):fT
psE&Rx3)
repeat0: X##hSGQM
mov al,dl VAZ6;3@cd
and al,0fh NEX{vZkgw
cmp al,09h $r
m
fE
jg add40 hdx"/.s
add al, 30h ]jwF[D
jmp okadd mdukl!_x
add40: G^_fbrZjN
add al,37h +[$ Q C*
okadd: Dbv
KpM H
mov byte ptr [bx],al x<[W9Z'~?9
dec bx wm
_o(Z}
shr dx,4 ]"4 \]_?r
loopnz repeat0 [V.#w|n
lea bx,dsp @ (LEuYq}
mov dx,bx f hr
QJ
mov ah,09h Ct 30 EZ
int 21h CqbPUcK
0^&-j.9
popa ? DKwKt
ret ##qs{s^ ]
dispdx endp aak[U;rx
^`oyf{w@
dispqword proc near y4 ~;H{!
pusha +umV l
mov cx ,4 d@_|
add bx,6 c *`= o( S
repeatdecbx: $${9 %qPzb
mov dx,[bx] ma(E} s
call dispdx >TZyax< :
sub bx,2 \*6Ld %:h$
loopnz repeatdecbx O
O`-{HKt
popa g:CMIe4
ret W\J wEb9Y
dispqword endp 1 A-ess\
m8<l2O=m
rwsect proc near cSs??i
D"q
8iwqy0<
lea bx,msg K
na
mov dx,bx N?krlR
mov ah,09h NU$? BiB?R
int 21h s c
&S0K
U<mFwJ C]
lea bx,BlockNumL ^K
n{L
call dispqword fs
wQ *
h[I~D`q)v
lea di, packetsize XKepk? E
mov dl,80h ;]x JC
j
mov ah,42h O #S 27.
int 13h zQ~8( E]Rf
jnc readok pcj
b;&<
8.4+4Vxh
mov cx,5 q3-V_~5^/z
;出错后重试(定位0道后再重读) b)Dzau
retryrd: eNw9"
X}g
lea bx, msgReadErr UFY_.N~
mov dx,bx D\i8WU
mov ah,09 r__Y{&IO
int 21h Fb9!x/$tGV
Id; YIycXe
b(|1DE 0Cv
lea di,dap0 q\a'pp9d
mov dl,80h ?:XbZ"25pJ
mov ah,44h t^-yK;`?q:
int 13h /4PV<
[
:_
l9Sx'<
lea bx,BlockNumL a}MSA/K(
call dispqword 0NMekVi
T`.RP&2/d
lea di, packetsize 6 +Wkcr h
mov dl,80h o>}fKg<
mov ah,42h %>Y86>mVz
int 13h F oc) u~
jnc readok eW^_YG%(
loopnz retryrd h#!u" 'JW
*P}v82C
N
readok: O+Q t8,
lea di, packetsize }hd:avze
mov dl,80h 3G)Wmmh"a
mov ah,43h p ?,:
int 13h s j{i
YFY$iN~B,
rwsect endp fd}
U l
]K(>r#'nH
code ends ;代码段结尾 ?E:L6,a
end start ;结束汇编 ( :2,Rr1"
&E&e5(&$
