第一个宏汇编程序 je=a/Y=%U{
<R=Zs[9M1
工作后不久，单位里我所在的小组有了一台浪潮0520(XT兼容机)，有了硬盘，有了汇编编译程序，就开始玩汇编了。当然那时的主要工作是用dBASEIII，这个我已经在读研期间自学会了，读了一本关于dBASEIII plus的英文书，编个dBASE/FoxBASE程序已经是小菜一碟了。 JP [K;/
M%P:n/j
那时候的硬盘老出点问题，经常碰上个“Error reading data....” 啥的小毛病，但是换又不方便而且很贵。PCTOOLS与NORTON DISKEDIT扫描盘比较慢。我就自己写了一个磁盘扫描程序。算是用汇编写的第一个正式的有点用处的程序吧！ yl
+gL?IES
{B*s{{[
/'
这也是我现在电脑里唯一一个汇编语言的程序了，其它都随着磁盘来回更换丢了。所以，还是在老大这里存一份留个纪念吧！ T+H!_ky`A
.p"
xVfi6
比较长啊！所以可以自动跳过。 }Oq5tC@$G
` Eo.v#<
.286 r52gn(,
.radix 16 g (CI;f}y
data segment ;定义数据段 A#iV=76_
,R*
]>'
_F|Ek ;y%
msg db 0dh, "Reading sector:$" I
:1C8*/
msg1 db 0dh, "Writing sector:$" wjB:5~n50k
msgready db 0dh,0a,0dh,0a,"Reading/Writing completed!", 0dh,0a, "$" 1^JS Dd
M-Y_ Wb3
dsp db " $" f(y:G^V
e=m42vIB-
;DAP =MDy s b&:
PacketSize db 16d; // 数据包尺寸(16字节) 'e'cb>GnA
Reserved db 0; // ==0
d|Lj ~x|
BlockCount dw 63d; // 要传输的数据块个数(以扇区为单位) ope^~+c~\
BufferAddr dw 0,0 ; // 传输缓冲地址(segment:offset) $5%SNzzl
BlockNumL Dw 0,0; // 磁盘起始绝对块地址 12 gU{VD
BlockNumH Dw 0,0; // 磁盘起始绝对块地址 z_4 J)?3
f?X)k,m
;定位用DAP （复位到0磁道） .Rs^Y
Z F
DAP0 db 16d Y O}<Ytx
db 0 ?J >
dw 1 @Qt{jI !
buff1 dw 0,0 60?%<oJ oH
dw 0,0,0,0 ')<hON44EX
Si;H0uP O
_g"<UV*H
;DiskParameters +Q"4Migbe@
infosize dw 26d; WORD InfoSize; // 数据包尺寸 (26 字节) F0Yd@Lk$_
falgs dw 0; WORD Flags; // 信息标志 5MJS
~(
Cylinders DW 0; DWORD Cylinders; // 磁盘柱面数 5D// *}b,
Heads DW 0; DWORD Heads; // 磁盘磁头数
z[qDkL
SPT Dw 0,0; DWORD SectorsPerTrack; // 每磁道扇区数 Ry6@VQ"NLb
Sectors Dw 0,0,0,0; QWORD Sectors; // 磁盘总扇区数 Yufc{M00
SectorSize DW 0; WORD SectorSize; // 扇区尺寸 (以字节为单位) T'D v.h
59;KQ
cmpsect dw 0 -;WGS o
V/9!K%y
msgcyl db 0dh,0a,"Disk Parameters",0dh,0a,"Total Cylinders:$" ^WWQI+
pk
msgHds db 0dh,0a,"Heads:$" )R1<N
msgspt db 0dh, 0a,"SectorsPerTrack:$" ee76L&:
msgTotal db 0d,0a, "Total Sectors:$" 3"~!nn0;
msgSS db 0dh,0a, "Sector Size:$" | [b{)s?x
| z^^.d~a0
msgReadErr db 0dh,0a,"Error Reading Sectors:$" ZyFjFHe+
msgWriteErr db 0dh,0a, "Error Writing Sectors:$"
0*{%=M
msgReset db 0dh,0a, "Reseting drive to Cyl 0" N6i Q8P -
5 #E`=C%
LG#t<5y~
buffer db 32768d dup(0); D_zZXb Nc
m#\ dSl
}
data ends ;数据段结尾 lA8`l> I
hf&9uHN%7m
stack segment UH"%N)
[
db 400 dup(?) :P 0mx
stack ends C B}2j
}`m/bgtFX
code segment ;定义代码段 _L= h0H l
assume cs:code ;规定cs的内容 J)p
l|I
assume ds:data ;规定ds的内容 YNsJZnGr8#
assume ss:stack -]M5wb2,
r$s Qf&=
start: 0{-q#/
pusha 4ID5q ~
V1B5w_^>h'
' %o#q6O
mov ax,data ;程序从start开始 8& b,qQ~
mov ds,ax ;ds置初值,data的段地址 >(t6.=
"87:?v[[1
;设置缓冲区 sdw(R#GE
lea bx, buffer OYn}5RN
mov bufferaddr,bx j*r{2f4Rt
mov buff1,bx Se =`N
mov bx,ds IF:;`r@%
mov bufferaddr+2,bx c(s.5p ^
mov buff1,bx t'k$&l}+
}b.%Im<3R
lea di,infosize T {[=oH +
mov dl,80h I^$fMdT
mov ah,48h n,WqyNt*
int 13h ] >E s4 s
bY~pc\V:`w
lea bx,msgcyl h>m"GpF
x
mov dx,bx u;2[AQ.
mov ah,09 oe-\ozJ0
int 21h >}6%#CAf
mov dx,cylinders amY!qg0P*
call dispdx 4
"'~NvO
St*h>V6
lea bx,msghds a<bwzX|.
mov dx,bx ~oY^;/ j
mov ah,09 u.xnO cOH!
int 21h Z4
=GM Xj
mov dx,heads 'm
kLCS
call dispdx sD#.Oq4&]y
2`=7 _v
lea bx,msgspt /h|#J
mov dx,bx 40m -ch6Q
mov ah,09 ]Er$*7f
int 21h 9CD_ o s\h
mov dx,spt+2 -PR N:'T
call dispdx 0YDR1dO(*
mov dx,spt
{F.[&/A
call dispdx '?(% Zxw%&
Vs!Nmv`
lea bx,msgtotal 1 /J=uH
mov dx,bx
</*6wpN
mov ah,09 t;\Y{`
int 21h kM N~Y
lea bx,sectors }:)&u|d_
call dispqword P( 8OQL:
&0JI!bR(
lea bx,msgss gc$l^`+M
mov dx,bx FVJ GL
mov ah,09 U&p${IcEm
int 21h h
M@>q&q_
mov dx,sectorsize JT_ `.(
call dispdx @b 2aNS<T
-6B4sZpzD
sbb word ptr sectors, 63d A6(/;+n
jnc subok =Jb>x#Y
sub word ptr sectors+2,1 7J< 5f)
jnc subok 9q ~s}='"
sub word ptr sectors+4,1 RPRBmb940
jnc subok c9h6C
sub word ptr sectors+6,1 P+/e 2Y
6(ol1
(U
subok: c\AfaK^KF
E hMNap}5"
y?4 BqgB
DN:EB @
xor ax,ax l!u_" I8j5
mov blocknumL, ax [ ` 7ThHX
mov blocknumL+2, ax #S" nF@
mov blocknumL+4, ax 3)ywX&4"L
mov blocknumL+6, ax c yz3,3\e
?.BC#S)q1
startread: [.wYdv35
U z]|N6`
call rwsect c5GuM|*7
H9e<v4 c
adc word ptr blocknuml,63d 5$C-9
jnc addok G" "ZI$`
adc word ptr blocknuml+2,1 \bw2u!
jnc addok U-M>=3|N
adc word ptr blocknuml+4,1 s?nR 4
jnc addok 8bld3 p"^
adc word ptr blocknuml+6,1 -n V9:opD
jnc addok U # qK.
?$4 PVI}
addok: * 0=j?~&
mov ax, word ptr sectors+6 @~a%/GQ#n*
cmp ax, blocknuml+6 }*]-jWt1J\
jg complete / %io+94
jl startread 1iF1GkLEq
mov ax, word ptr sectors+4 ( S As-
cmp ax, blocknuml+4 ~Z' ?LV<t
jg complete Qzw;i8n{
jl startread 3h`f 6
mov ax, word ptr sectors+2 4'=y :v2
cmp ax, blocknuml+2 P ~X2^bw
jg complete <wD-qT W
jl startread R4:b{
)=O
mov ax, word ptr sectors }0 Ed ]
cmp ax, blocknuml S 30%)<W
jg complete >~0Z& d
jl startread l,5+@i`5i
(n_/`d P
complete: t"oeQ*d%
7- fb.V9
lea bx,msgready _X
x/(.O
mov dx,bx &{t,' [ u
mov ah,09 &Au@S $ij
int 21 13x p_j
5:_}zu|!u
popa ncT&Gr
mov ax,3100h b4N[)%@
int 21h NK
H@+,+V
`e}B2;$A3
; '}Z
<h?9
dispdx proc near y sY*k` 5
pusha T]~ xj4
lea bx, dsp+3 3%b6{ie/=
mov cx,4 uoh7Sz5!^
;9QEK]@
repeat0: |P?*5xPB
mov al,dl - 1gVeT&
and al,0fh @ f3 E`8
cmp al,09h K [zVa
jg add40 63IM]J
add al, 30h O0H.C0}
jmp okadd O?#7N[7
add40: {E|$8)58i
add al,37h e$Pj. >-<=
okadd: SXP]%{@ R/
mov byte ptr [bx],al f]sr RYSR
dec bx 7s^'d,P
shr dx,4 "E4a=YH_
loopnz repeat0 _6vW F
lea bx,dsp H0vfUF53l
mov dx,bx l+0oS'`V*L
mov ah,09h $6R- 5oQ
int 21h )zDCu`
8zW2zkv2|#
popa }i&/ G +_
ret o-B$ J?
dispdx endp <lJ345Q
&mS^ZyG
dispqword proc near PLB
r P
pusha sc#qwQ#
mov cx ,4 ;#< 0<
add bx,6 $VOF Oc
repeatdecbx: 1T
n}
mov dx,[bx] \1M4Dl5!
call dispdx 5wU]!bxr
sub bx,2 gL
/9/b4
loopnz repeatdecbx NL+N%2XG7
popa ysnx3(+|
ret #&e-|81H
dispqword endp O+x !Bg7
Dk5 1z@
rwsect proc near >
uEzw4w
yyTnL 2Y9
lea bx,msg >Y@H4LF;1x
mov dx,bx S)" Jf?
mov ah,09h G7/ +ogV
int 21h Q ^^niVz
{(Es(Sb}c
lea bx,BlockNumL g2Z`zQA7
call dispqword ^E>3|du]O
XfIJ 4ZM5
lea di, packetsize aV0"~5
mov dl,80h ]JQ
ULE)
mov ah,42h B/Ws_Kv
int 13h +^F Zq$NP
jnc readok vo{--+{ky!
)J(6xy
mov cx,5 +k R4E 23:
;出错后重试(定位0道后再重读) 4 s9LB
retryrd: +D*Z _Yh6
lea bx, msgReadErr nQ3A~ ()
mov dx,bx !^G\9"4A
mov ah,09 n|yO9:Uw<
int 21h 4 2ge3>
C~exi[3
.O<obq~;C
lea di,dap0 w7
&A0M
mov dl,80h :NTO03F7v
mov ah,44h zX i 'kB
int 13h t4-[Z$ n5
#}5uno
lea bx,BlockNumL &_8 947
call dispqword sU^1wB
Rj
h 'nY3GrU
lea di, packetsize M&M 6;Ph
mov dl,80h KD.]i' d<
mov ah,42h ]A_`0"m.U
int 13h |CbikE}kL
jnc readok =:U`k0rn!
loopnz retryrd 0jWVp- y
goWuw}?
readok: <
I``&>
lea di, packetsize vtJJ#8a]
mov dl,80h lr&a;aZp
mov ah,43h %^6F_F_jS
int 13h lPAQ3t!,
VuZr:-K/
rwsect endp w_V P
J
,|/f`Pl
code ends ;代码段结尾 _7y[B&g[r
end start ;结束汇编
Zx>=tx}
&mM0AA'\?H
