第一个宏汇编程序 b
jq+x: >
9y$"[d27;+
工作后不久，单位里我所在的小组有了一台浪潮0520(XT兼容机)，有了硬盘，有了汇编编译程序，就开始玩汇编了。当然那时的主要工作是用dBASEIII，这个我已经在读研期间自学会了，读了一本关于dBASEIII plus的英文书，编个dBASE/FoxBASE程序已经是小菜一碟了。 {e/6iSpT
03)R_A
那时候的硬盘老出点问题，经常碰上个“Error reading data....” 啥的小毛病，但是换又不方便而且很贵。PCTOOLS与NORTON DISKEDIT扫描盘比较慢。我就自己写了一个磁盘扫描程序。算是用汇编写的第一个正式的有点用处的程序吧！ 3oo Tn-`{
| Q|vCWel{
这也是我现在电脑里唯一一个汇编语言的程序了，其它都随着磁盘来回更换丢了。所以，还是在老大这里存一份留个纪念吧！ a rQEi
HNMVs]/e
比较长啊！所以可以自动跳过。 TXH9BlDn
:c?}~a~JO(
.286 n1E^8[~ '
.radix 16 Lh_Q@> k
data segment ;定义数据段 ~#]$YoQ&O
L/+KY_b:*
VX'cFqrK3
msg db 0dh, "Reading sector:$" .dE2,9{Z
msg1 db 0dh, "Writing sector:$" q8=hU D%5C
msgready db 0dh,0a,0dh,0a,"Reading/Writing completed!", 0dh,0a, "$" L_~vPp
1woB w>g
dsp db " $" ^.Xom~
N!=$6`d
;DAP Fv!KLw@
PacketSize db 16d; // 数据包尺寸(16字节) q@+#CUa&n
Reserved db 0; // ==0 <+r<3ZBA
BlockCount dw 63d; // 要传输的数据块个数(以扇区为单位) mh$ Nwr/W:
BufferAddr dw 0,0 ; // 传输缓冲地址(segment:offset) _yH=w'8.
BlockNumL Dw 0,0; // 磁盘起始绝对块地址 $D
%[}[2
BlockNumH Dw 0,0; // 磁盘起始绝对块地址 3;E,B7,mQ
_+0Q Q{'N
;定位用DAP （复位到0磁道） RZL
:k;}5
DAP0 db 16d
+`(,1L1
db 0 Nn:>c< [
dw 1 ^#0k\f>_
buff1 dw 0,0 "d3qUk
dw 0,0,0,0 ;ND)h pD+
wI{ ED
vR*TW
;DiskParameters gX'nFGqud
infosize dw 26d; WORD InfoSize; // 数据包尺寸 (26 字节) \v,m r|
falgs dw 0; WORD Flags; // 信息标志 3 W#f
Fy
Cylinders DW 0; DWORD Cylinders; // 磁盘柱面数 uG:xd0X+W
Heads DW 0; DWORD Heads; // 磁盘磁头数 l,w$! FnmR
SPT Dw 0,0; DWORD SectorsPerTrack; // 每磁道扇区数 QPZ|C{Ce
Sectors Dw 0,0,0,0; QWORD Sectors; // 磁盘总扇区数 :enmMB#%
SectorSize DW 0; WORD SectorSize; // 扇区尺寸 (以字节为单位) _?m%i]~o
s9 \HjK*+
cmpsect dw 0 wJ}9(>id*
y5!fbmf
msgcyl db 0dh,0a,"Disk Parameters",0dh,0a,"Total Cylinders:$" }
N$soaUs
msgHds db 0dh,0a,"Heads:$" y]YUuJ9a
msgspt db 0dh, 0a,"SectorsPerTrack:$" W]aX}>0
msgTotal db 0d,0a, "Total Sectors:$" O9 / 7?"l"
msgSS db 0dh,0a, "Sector Size:$" D,( "3zx
Dpf" H
msgReadErr db 0dh,0a,"Error Reading Sectors:$" jWE?$r"
msgWriteErr db 0dh,0a, "Error Writing Sectors:$" bA kCk]>5
msgReset db 0dh,0a, "Reseting drive to Cyl 0" Ojwhcb^
rL9 u7) x
Jmcf9g
buffer db 32768d dup(0); %9HL "
H%
&e[PU
data ends ;数据段结尾 \|wUxijJ*,
M~SbIk<#a<
stack segment h+"UK=
db 400 dup(?) &}+^*X
stack ends YB?5s`vr9d
&}."sGK
code segment ;定义代码段 {wS)M
assume cs:code ;规定cs的内容 S
+mM S
assume ds:data ;规定ds的内容 [(d))(M$|
assume ss:stack #CcC& I
:c
loR,f&80=O
start: B{dR/q3;@
pusha
e^ ZxU/e
c
0/vB
8~6 H\.0Q
mov ax,data ;程序从start开始 m,1Hlp
mov ds,ax ;ds置初值,data的段地址 ]A]EED.ZH
'0M
H-M
;设置缓冲区 'U|Tye i?
lea bx, buffer ^:Hx .
mov bufferaddr,bx ,T<q"d7-#
mov buff1,bx gd=gc<z YP
mov bx,ds mAZfo5 3
mov bufferaddr+2,bx .kT}E 5
mov buff1,bx 8
mFy9{M
LagHzCB
lea di,infosize a%igc^GS2
mov dl,80h
J =j6rD
mov ah,48h by0@G"AE+
int 13h Oh]RIWL
6!Z >^'6
lea bx,msgcyl m R|;}u;d
mov dx,bx M7x*LiKc2
mov ah,09 -w3KBlo
int 21h jVxX! V
mov dx,cylinders ZaKT~f%%z
call dispdx %+F%C=GqI
NKX62 ZC
lea bx,msghds %c`P`~sp
mov dx,bx ^v+ 3qm@,
mov ah,09 'ai3f
int 21h 'G>gNq
mov dx,heads W81 dLeTZg
call dispdx o)}M$}4
:IB@@5r1
lea bx,msgspt xJemc3]2
mov dx,bx 67]kT%0
mov ah,09 K|Kc.
int 21h 1Bl;.8he.)
mov dx,spt+2 Kb icP<
call dispdx "IE*MmsEz
mov dx,spt k&M9Hn2
call dispdx
,
fR /C
P
r_$%x9D
lea bx,msgtotal UU;U,q
mov dx,bx &'{?Y;A
mov ah,09 OMM5p=2Q
int 21h QY}1i .f
lea bx,sectors SAUfA5|e
call dispqword a* Gi Lq
6&qT1nF1
lea bx,msgss ^h^\kW' #
mov dx,bx )i$:iI
>k
mov ah,09 .r4M]1Of
int 21h 7JL*y\ '
mov dx,sectorsize Lo-\;%y
call dispdx eX0ASI9
C A 8N
sbb word ptr sectors, 63d /'<Qk'
jnc subok K'tckJ
#%
sub word ptr sectors+2,1 6U!zc]>
jnc subok 6vL+qOd x
sub word ptr sectors+4,1 qy$1+>f1
jnc subok Mb
+
sub word ptr sectors+6,1 ]\ DIJ>JZ
T x
6\
subok: //O9} -
fx#Krr @
|Js?@
+61h!/<W
xor ax,ax "gQA|NHwV
mov blocknumL, ax >m Xq= 9L4
mov blocknumL+2, ax G0^,@jF?b
mov blocknumL+4, ax C#3K.0a
mov blocknumL+6, ax wrJ:jTh
1:Dm, d;
startread: :.J]s<J(F
}u9wD08x
call rwsect 8-clL \bm
N |nZf5{
adc word ptr blocknuml,63d sQ05wA v
jnc addok \]$TBN
dJ4
adc word ptr blocknuml+2,1 \'[C_+;X
jnc addok &E +2
adc word ptr blocknuml+4,1 c'Mi9,q
jnc addok W%,h{
adc word ptr blocknuml+6,1 L32 [IL|
jnc addok E!Sx O~
1nAAs;`'
addok: [:Y`^iR.
mov ax, word ptr sectors+6 16Gp nb
cmp ax, blocknuml+6 Dc;z gLLL
jg complete S1& Df%Ra
jl startread wB0K e
mov ax, word ptr sectors+4 l< "Z? z
cmp ax, blocknuml+4 o+F]80CH
jg complete EDAVU
jl startread r{ 1xjA T
mov ax, word ptr sectors+2 f0Zn31c^
cmp ax, blocknuml+2 ~P@6f K/M
jg complete WN`|5"?$
jl startread ?x-:JME0
mov ax, word ptr sectors @9ndr$t
cmp ax, blocknuml *$/!.e
jg complete H 7&bUt/
jl startread oD?c]}3
z($h7TZ$
complete: _1EWmH
Z?
DI,8y"!5
lea bx,msgready n+q a/<
mov dx,bx Z7: TPY$b
mov ah,09 xTV3U9 v
int 21 xz
rA%1y
UP?]5x>
popa iF !r}fUU6
mov ax,3100h yD\[`!sWk
int 21h GDBxciv
^`<
%Pk
; `j1(GQt
dispdx proc near =, WW#tD
pusha %*Aq%,.={
lea bx, dsp+3 ;c;5O@R}3
mov cx,4 tLc 9-
l2 [{T^
repeat0: x}(p\Efx
mov al,dl eABLBsx
and al,0fh }_GI%+t
cmp al,09h }+3v5Nz;
jg add40 '"~ 2xiin
add al, 30h s?-J`k~q
jmp okadd @Q#<-/
add40: WAWy 3 i
add al,37h ,{rm<
M.)
okadd: 3<vw#]yL
mov byte ptr [bx],al !y 7SCz
g
dec bx B!iz=+RNC1
shr dx,4 )cUFb:D*"
loopnz repeat0 `Ir{ax&H.e
lea bx,dsp 8<X,6
mov dx,bx =bDy :yY}
mov ah,09h QT[yw6Z
int 21h ` fm^#Nw
Th%2pwvER
popa ujH ^ ML
ret PY{])z3N
dispdx endp D qh
rg;
T#:n7$M|?A
dispqword proc near cZd{K[fuK
pusha x+B7r& #:
mov cx ,4 $u-yw1FT
add bx,6 jcVK4jW
repeatdecbx: "1X@t'H38
mov dx,[bx] G;k#06
call dispdx v$_YZm{!<
sub bx,2 IP3%'2}-
loopnz repeatdecbx [fl x/
E
popa c( 5r
ret r)Dln5F
dispqword endp Q
xg)W b#
<~ 9a3c?
rwsect proc near )e6)~3[^
*~H\#N|x
lea bx,msg ER4j
=O#
mov dx,bx WY3D.z-</
mov ah,09h 1w|C+m/(
int 21h fAHf}j
M+lj g&fy
lea bx,BlockNumL OqNt Tk+
call dispqword y?4%
eD
KM o]J1o
lea di, packetsize y/d/#}\:
mov dl,80h $Lx2!Zy
mov ah,42h "pLWJvj6-
int 13h +;*dFL
jnc readok [<H'JsJl
WD${f#]N
mov cx,5 !caY
;出错后重试(定位0道后再重读)
GR ^d/
retryrd:
$V?h68[c
lea bx, msgReadErr `L#`WC@[o
mov dx,bx R-\a3q
mov ah,09 BGO!c [-
int 21h [ _N w5_
W!.vP~ >
20Rj
Rd
lea di,dap0 } 63Qh}_Y
mov dl,80h $lYy `OuC
mov ah,44h ,y%4Qv G7a
int 13h I&lb5'6D
@}[yC['
lea bx,BlockNumL <{xU.zp'
call dispqword `of` u B
pZ UXXX
lea di, packetsize G:k]tZ*`
mov dl,80h W Pnw
mov ah,42h [(65^Zl`
int 13h $ &III
jnc readok Rz\:)<G
loopnz retryrd :
#om6}
hI Q 2s
readok: m?4L>'
lea di, packetsize 2$OI(7 b=
mov dl,80h q` Z_ Bw
mov ah,43h dvLO #o{
int 13h ? ^l{t4
'Bc{N^
rwsect endp Yfotq9.=+
g E#4 3
code ends ;代码段结尾 L 2GUrf
end start ;结束汇编 Z'F=Xw6;b
>3\($<YDZM
