第一个宏汇编程序 ~uy{6U{&I
[vM ksHk4
工作后不久，单位里我所在的小组有了一台浪潮0520(XT兼容机)，有了硬盘，有了汇编编译程序，就开始玩汇编了。当然那时的主要工作是用dBASEIII，这个我已经在读研期间自学会了，读了一本关于dBASEIII plus的英文书，编个dBASE/FoxBASE程序已经是小菜一碟了。 B k,:a,
7)&}riQ
那时候的硬盘老出点问题，经常碰上个“Error reading data....” 啥的小毛病，但是换又不方便而且很贵。PCTOOLS与NORTON DISKEDIT扫描盘比较慢。我就自己写了一个磁盘扫描程序。算是用汇编写的第一个正式的有点用处的程序吧！ i SD E6
"f^s *I
这也是我现在电脑里唯一一个汇编语言的程序了，其它都随着磁盘来回更换丢了。所以，还是在老大这里存一份留个纪念吧！ $="t7C9S
K.3)m]dCl
比较长啊！所以可以自动跳过。
B-Bgk
$HVus=D"
.286 +M4X
r *
.radix 16 TG4?"0`I5
data segment ;定义数据段 lS"g[O+
{
FVLH:{U^
1>hY!nG h
msg db 0dh, "Reading sector:$" mS?.xu
msg1 db 0dh, "Writing sector:$" n0|oV(0FE
msgready db 0dh,0a,0dh,0a,"Reading/Writing completed!", 0dh,0a, "$" g '2'K
h|
q!Qsnj'
dsp db " $" _dOR- <
6*yt^[ W
;DAP ffMh2
PacketSize db 16d; // 数据包尺寸(16字节) g<C_3 a
p/
Reserved db 0; // ==0 !RX\">z
BlockCount dw 63d; // 要传输的数据块个数(以扇区为单位) =eG?O7z&
BufferAddr dw 0,0 ; // 传输缓冲地址(segment:offset) Ay?KE{Qs '
BlockNumL Dw 0,0; // 磁盘起始绝对块地址 /{Ff)<Q.Z
BlockNumH Dw 0,0; // 磁盘起始绝对块地址 hM}rf6B
Yq~$Q4
;定位用DAP （复位到0磁道） 8!8 yA
DAP0 db 16d anDwv
}
db 0 wz1fx>Q
dw 1 4n6EkTa
buff1 dw 0,0 mZGAl1`8
dw 0,0,0,0 #p 'Xq
}]
-L%J,f[&,
z TA+s 2
;DiskParameters 9 0PF) U
infosize dw 26d; WORD InfoSize; // 数据包尺寸 (26 字节) Uc
oVp}vl
falgs dw 0; WORD Flags; // 信息标志 ] 2O52r
Cylinders DW 0; DWORD Cylinders; // 磁盘柱面数 q\+khy,k
Heads DW 0; DWORD Heads; // 磁盘磁头数 %eJolztKZ
SPT Dw 0,0; DWORD SectorsPerTrack; // 每磁道扇区数 Wp2 b*B=-
Sectors Dw 0,0,0,0; QWORD Sectors; // 磁盘总扇区数 S$9>9!1>*
SectorSize DW 0; WORD SectorSize; // 扇区尺寸 (以字节为单位) 6z;C~ _BV
QwF\s13
cmpsect dw 0 W(jXOgs+_
I *,!zym
msgcyl db 0dh,0a,"Disk Parameters",0dh,0a,"Total Cylinders:$" ,/ {(8hn
msgHds db 0dh,0a,"Heads:$" j7L uN
msgspt db 0dh, 0a,"SectorsPerTrack:$" V>"nAh]}.
msgTotal db 0d,0a, "Total Sectors:$" .Up\ 0|b
msgSS db 0dh,0a, "Sector Size:$" wHneVqI/ U
80qSPitj
msgReadErr db 0dh,0a,"Error Reading Sectors:$" Ns?qL SN
msgWriteErr db 0dh,0a, "Error Writing Sectors:$" "},0Cs
msgReset db 0dh,0a, "Reseting drive to Cyl 0" )_[eqr
mOiA}BGw
Md!L@gX6<
buffer db 32768d dup(0); kmfz=q?
5:3%RTLG
data ends ;数据段结尾 <
ezv
-+1_ 1 !
stack segment 3FWl_d~uD
db 400 dup(?) 5/U|oZM"
stack ends 0
#*M'C#
/u
hA\m(
code segment ;定义代码段 <'s_3A C
assume cs:code ;规定cs的内容 D
H7B4P
assume ds:data ;规定ds的内容 tE&@U$0>o
assume ss:stack " S8JHHx
_i@{: v
start: Q
[g>ee
pusha T-" zK r!
%x$1g)
Po+I!T L'
mov ax,data ;程序从start开始 zJ-_{GiM*L
mov ds,ax ;ds置初值,data的段地址 LOm*=MVex
Fk&W*<}/;
;设置缓冲区 y"N7r1Pf
lea bx, buffer ZR
|)+W;
mov bufferaddr,bx )=,%iL -
mov buff1,bx r HS;wT
mov bx,ds Zp5;=8wa;
mov bufferaddr+2,bx y2"PKBK\_
mov buff1,bx -TIr bYS`
NBLiwL37{
lea di,infosize :exgdm;N
mov dl,80h <P
)U Ggd
mov ah,48h sZ~q|}D-
int 13h Vz=ByyC
jC<1bf$K
lea bx,msgcyl um/2.S n>
mov dx,bx lr >:S
mov ah,09 Z0o+&3 a6
int 21h SZ/}2_;
mov dx,cylinders wUU Dq?!k\
call dispdx k7o49Y(#
< 5 F t3sd
lea bx,msghds %}< e;t-O
mov dx,bx .MoOjx?
mov ah,09 K7G|cZ/^
int 21h h8R3N?S3#
mov dx,heads K})=&<M0
call dispdx 3Z,J &d`[
N0Y$QWr_$
lea bx,msgspt uJBs 3X
mov dx,bx px|y_.DB2x
mov ah,09 !m7`E
int 21h q> ;u'3}
mov dx,spt+2 d4y?2p ?3
call dispdx n-HQk7=mQ
mov dx,spt x2-i1#j`;
call dispdx E
c
S+/
n^} -k'l
lea bx,msgtotal /g|H?F0
mov dx,bx N?Wx-pK
mov ah,09 #Az#dt]H
int 21h j=r aS
lea bx,sectors BQ X 6Q<
call dispqword f W /G_
Yd} Jz
lea bx,msgss qN5 ru 2
mov dx,bx u\L=nCtLby
mov ah,09 d! BQ%a
int 21h <M d yz!
mov dx,sectorsize M8 4{u!>[
call dispdx .Vohd@s9l
t r)[6o#
sbb word ptr sectors, 63d Vjv~RNGF
jnc subok 5AX
AIP n)
sub word ptr sectors+2,1 5m.{ayE
jnc subok nC-=CMWWr
sub word ptr sectors+4,1 />wM#)o2
jnc subok pN\YAc* @:
sub word ptr sectors+6,1 i5f8}`w
)<J|kC\r6c
subok: Y|'0bujr
CV9o,rL
ll]M Bq
HR.^
y$IE
xor ax,ax s& INcjC
mov blocknumL, ax wjJM\BKr`
mov blocknumL+2, ax s ^atBqw,
mov blocknumL+4, ax " Bz\<e&u
mov blocknumL+6, ax C*+gQeK
E5^P*6c (
startread: U;o
$ =,_p
IJWUNKqo=
call rwsect 8
$!&D&v
:v=^-&t
adc word ptr blocknuml,63d jkTh)Bm|'
jnc addok ySfot`LQ
adc word ptr blocknuml+2,1 ]4{ )VXod
jnc addok *u?QO
4>
adc word ptr blocknuml+4,1 dA)JR" r2
jnc addok @D?KS;#
adc word ptr blocknuml+6,1 }6Ut7J]a|
jnc addok sj;n1t}$S
=H <I` J'
addok: O9+Dd%_KS#
mov ax, word ptr sectors+6 {yl Y"FA
cmp ax, blocknuml+6 bc+~g>o
jg complete -?jI{].:8
jl startread dC&OjBQ
mov ax, word ptr sectors+4 &U_YDUQ'L
cmp ax, blocknuml+4 .G ^-. p
jg complete Ry$zF~[
jl startread D=B $ Pv9%
mov ax, word ptr sectors+2 {}sF ?wZf
cmp ax, blocknuml+2 W0zRV9"P
jg complete xj6@85^
jl startread <7U\@si4
mov ax, word ptr sectors W6e,S[J^FY
cmp ax, blocknuml [uJfmr EH
jg complete \&{a/e2:S
jl startread 8OS@g pz
RA%=_wPD
+
complete: J$aE:g6'
lpjeEaw o4
lea bx,msgready n\-nBrVSf
mov dx,bx -qI8zs$:5
mov ah,09 i6S5 4&^!
int 21 _T96.~Q
{Xw6]d
popa O ouIV 3
mov ax,3100h L|?$F* bs
int 21h (D\7EH\9,]
J AQ y
; >MTrq%.
dispdx proc near _Q9 Mn-&qQ
pusha a#huK~$~
lea bx, dsp+3 { V8yJ{.G
mov cx,4 $#ve^.VHv
J?oI%r7^
repeat0: 9<e%('@[
mov al,dl :4Gc'b R
and al,0fh m;_gNh8 Ee
cmp al,09h \?$`dA [
jg add40 #[
H4`hZ
add al, 30h 6Kvo
Ho
jmp okadd (6y[,lYH
add40: Nld y76|g
add al,37h } @)r\t4m
okadd: &["s/!O1 R
mov byte ptr [bx],al (G>S` B
dec bx ~pZ<VH;h
shr dx,4 I pp#{'Do
loopnz repeat0 S'%|40U
lea bx,dsp '-,$@l#
mov dx,bx |41NRGgY
mov ah,09h F
K7cDaI
int 21h C`J> Gm
2`|gnVw
popa
6 #J>b[Q
ret ;+Dq 3NE
dispdx endp YaBZ#$r
N$!aP /b
dispqword proc near 2bs={p$}a
pusha @5[" L
mov cx ,4 q G6?k}\\
add bx,6 P&>!B,f
repeatdecbx: 6>yfm4o
mov dx,[bx] EbfE/_I
call dispdx 8[k:FGp>
sub bx,2 `{Jo>L .
loopnz repeatdecbx &x":
popa <UEta>jj
ret Lhts4D/V7
dispqword endp \80W?9qj
@QN(ouq Q
rwsect proc near
&H4Y`xV^=
/wR,P
lea bx,msg Nv~H797B
mov dx,bx y d}1Mx
mov ah,09h u~C,x3yr
int 21h F I(iqSJ6
W0I)< S
lea bx,BlockNumL j`D%
Wx_
call dispqword qxQuXF>:#
bQvh
Ba?
lea di, packetsize kS7`g A
mov dl,80h A2 r\=for
mov ah,42h &Hi;>
int 13h wv7XhY}
jnc readok f} !Eu
9hTzi+'S
mov cx,5 M+L8~BD@
;出错后重试(定位0道后再重读) t 'e\ Z2
retryrd: /<R[X>]<F
lea bx, msgReadErr )bgaqca_{
mov dx,bx Irc(5rD7
mov ah,09 8|"26 UwD/
int 21h l%_r 3W
8 v ZY+Q >
tl=H9w&@
lea di,dap0 baO'FyCs9&
mov dl,80h >p`ZcFNs"
mov ah,44h rjo1
int 13h R<L<kChg
svaclkT=
lea bx,BlockNumL nO CCOTf
call dispqword t:O"t
G
TwI'}J|w
lea di, packetsize ^vY[d]R _\
mov dl,80h 7'g{:dzS*3
mov ah,42h \) FFV-k5
int 13h 61 @;3yV
jnc readok Q,m&XpZ
loopnz retryrd sQXj?5!
W=S<Dt
G2
readok: <2V:tj)?P
lea di, packetsize 6IPQ}/l
mov dl,80h !U "?vS l
mov ah,43h xXRlQ|84
int 13h 4l F(..Ix
1iJa j
rwsect endp Z1y=L$t8
BN~g
k~t_
code ends ;代码段结尾 /Xm4%~b_gj
end start ;结束汇编 ,J4rKGG
|>~pA}
