第一个宏汇编程序 .Zwn{SMtu
BV!Kiw
工作后不久，单位里我所在的小组有了一台浪潮0520(XT兼容机)，有了硬盘，有了汇编编译程序，就开始玩汇编了。当然那时的主要工作是用dBASEIII，这个我已经在读研期间自学会了，读了一本关于dBASEIII plus的英文书，编个dBASE/FoxBASE程序已经是小菜一碟了。 p O:
EJ
}(hE{((o
那时候的硬盘老出点问题，经常碰上个“Error reading data....” 啥的小毛病，但是换又不方便而且很贵。PCTOOLS与NORTON DISKEDIT扫描盘比较慢。我就自己写了一个磁盘扫描程序。算是用汇编写的第一个正式的有点用处的程序吧！ pnqjAT GU
<c\aZ9+V
这也是我现在电脑里唯一一个汇编语言的程序了，其它都随着磁盘来回更换丢了。所以，还是在老大这里存一份留个纪念吧！ z4f5@
I) Y$?"
比较长啊！所以可以自动跳过。 LG, RF:
ZnJnjW PQ
.286 X
D|&{/O
.radix 16 W
B!$qie\
data segment ;定义数据段 Xp{gh@#dr
:\bttPw5
f ~Fus
msg db 0dh, "Reading sector:$" @{ nT4{
msg1 db 0dh, "Writing sector:$" LZ oth+:
msgready db 0dh,0a,0dh,0a,"Reading/Writing completed!", 0dh,0a, "$" mB1) !
1%-?e``.
dsp db " $" ikx SWO_Y=
BR0bf 5T/
;DAP Ab(bvS8r$
PacketSize db 16d; // 数据包尺寸(16字节) _O rE{
Reserved db 0; // ==0 =vK (-h
BlockCount dw 63d; // 要传输的数据块个数(以扇区为单位) EI_J7J+
BufferAddr dw 0,0 ; // 传输缓冲地址(segment:offset) 3)3'-wu
BlockNumL Dw 0,0; // 磁盘起始绝对块地址 J@Orrz2q#
BlockNumH Dw 0,0; // 磁盘起始绝对块地址 G)e 20Mst
Ko%rB+d
;定位用DAP （复位到0磁道） vW4 f 3(/
DAP0 db 16d [j![R
db 0 Uc6 U!X
dw 1 ~Snw':
buff1 dw 0,0 ED$gnFa3I
dw 0,0,0,0 |2oB3 \)/
2XXEg> CU
8wy"m=>=b}
;DiskParameters >K
&b,o,[
infosize dw 26d; WORD InfoSize; // 数据包尺寸 (26 字节) d->b9
falgs dw 0; WORD Flags; // 信息标志 /S;?M\
Cylinders DW 0; DWORD Cylinders; // 磁盘柱面数 #Kh`ATme
Heads DW 0; DWORD Heads; // 磁盘磁头数 gq0gr?
SPT Dw 0,0; DWORD SectorsPerTrack; // 每磁道扇区数 db4&?55Q
Sectors Dw 0,0,0,0; QWORD Sectors; // 磁盘总扇区数 GB
!3Z
SectorSize DW 0; WORD SectorSize; // 扇区尺寸 (以字节为单位) f
a\cLC
z ?gJHN<
cmpsect dw 0 /NkZ;<uxJ
|QzPY8B9O
msgcyl db 0dh,0a,"Disk Parameters",0dh,0a,"Total Cylinders:$"
k,@1rOf
msgHds db 0dh,0a,"Heads:$" K GI]W|T
msgspt db 0dh, 0a,"SectorsPerTrack:$" de`6%%|
msgTotal db 0d,0a, "Total Sectors:$" tP:x
x2N_
msgSS db 0dh,0a, "Sector Size:$" QWxQD'L'
v$m A7|(t!
msgReadErr db 0dh,0a,"Error Reading Sectors:$" 6g.@I!j E
msgWriteErr db 0dh,0a, "Error Writing Sectors:$" pD>3c9J'^F
msgReset db 0dh,0a, "Reseting drive to Cyl 0" 1 9=Dd#Nf
v(t&8)Uu
snK9']WXo
buffer db 32768d dup(0); d ")r^7
I+<; D sp
data ends ;数据段结尾 |j!D _j#U
##n\9ipD
stack segment 3AB5Qs<
db 400 dup(?) /z'j:~`E
stack ends .9ROa#7U;n
keWgbj
code segment ;定义代码段 MR C5c: (
assume cs:code ;规定cs的内容 *Zc-&Dk:Ir
assume ds:data ;规定ds的内容 CjST* (,b
assume ss:stack .6'T;SoK>
% idn m
start: 2xnOWW
pusha 1U9iNki
ZHF@k'vm/9
P `oR-D
mov ax,data ;程序从start开始 Mr1pRIYMd
mov ds,ax ;ds置初值,data的段地址 P;y/ `_jo
6@
$[x* V
;设置缓冲区 $`5DGy ?RU
lea bx, buffer l%U9g
mov bufferaddr,bx au7BqV!uL
mov buff1,bx WkO .
mov bx,ds % !=YNm
mov bufferaddr+2,bx \ agC Q&
mov buff1,bx x [? _F
r;'!qwr
lea di,infosize 2
43DdIG$
mov dl,80h )l"0:1I g
mov ah,48h \GWq0z&
int 13h },"g*
C4G)anT
lea bx,msgcyl `C()H@;
mov dx,bx O^<6`k u
mov ah,09
o _CVZ
int 21h 4Cfwz
-Qo
mov dx,cylinders >Y,7>ahyt
call dispdx r'!l`
gm,S
NKGCz|-
9
lea bx,msghds #2MwmIeA
mov dx,bx K:Ap|F
mov ah,09 dKMuo'H'%
int 21h
h!Q >h7
mov dx,heads YW 'Y=*
call dispdx F-R`'{ ka
"E8!{
lea bx,msgspt %sq=lW5R{b
mov dx,bx P *LcWrK
mov ah,09 dHu]wog
int 21h :{AN@zC0\
mov dx,spt+2 |/s.P NP2
call dispdx ]MHQ "E?
mov dx,spt ~W#f,mf
call dispdx $wN .~"T
MVj
@0W33m
lea bx,msgtotal 7]^Cg;EtM:
mov dx,bx YM;^c%
_7
mov ah,09 |'J3"am'
int 21h BNByaC
lea bx,sectors h h?'tb{
call dispqword ;'Y? wH[
=?2y
<B
lea bx,msgss 1dq.UW\
mov dx,bx cn#a/Hx
mov ah,09 e Jwr
int 21h *H$nydQ:
mov dx,sectorsize 5 4OYAkPCk
call dispdx *[U:'o `67
P` `hw=L
sbb word ptr sectors, 63d 9w(j2i
q
jnc subok fg9sZ%67]\
sub word ptr sectors+2,1 J^XH^`'
jnc subok OYzJE@r^
sub word ptr sectors+4,1 Q,4F =b
jnc subok & p%,+|
sub word ptr sectors+6,1 ;klDt|%3j
>}I}9y+
subok: WDX?|q9rCt
3}+/\:q*
=#u2Rx%V
kj8zWG4KH
xor ax,ax z~BB|-kp1
mov blocknumL, ax *p-Fn$7\n
mov blocknumL+2, ax g Pf aiVY
mov blocknumL+4, ax 9@j~1G% ^
mov blocknumL+6, ax Cse0!7_T
kal8k-$#
startread: J8%|Gd0#4
mSzwx/3"
call rwsect nqH^%/7)A@
CxRp$;rk
adc word ptr blocknuml,63d eS"gHldz
jnc addok UtutdkaS
adc word ptr blocknuml+2,1 OBZ |W**N"
jnc addok EvYw$ j
adc word ptr blocknuml+4,1 GGBe/X
jnc addok Vy9n3W"FB1
adc word ptr blocknuml+6,1 =UV?Pi*M>
jnc addok d!d
3r W;A
,'9tR&S$_
addok: )FP|}DCxQ
mov ax, word ptr sectors+6 ^d"J2n,7L
cmp ax, blocknuml+6 }J*&()`
jg complete -Z Z$
1E
jl startread f 4 _\F/
mov ax, word ptr sectors+4 NqWHR~&
cmp ax, blocknuml+4 ?yz%r`;r
jg complete 5A)w.i&V
jl startread aw 7f$ Fqk
mov ax, word ptr sectors+2 08f~vw"
cmp ax, blocknuml+2 BOWTH{KR<<
jg complete kgI Wgk%
jl startread i`Yf|^;@2>
mov ax, word ptr sectors :b>|U" ux
cmp ax, blocknuml 9,Mp/.T" \
jg complete EK '&S=]
jl startread 1D`RR/g&
e%P;Jj476
complete: wx!*fy4hL
7m jj%
lea bx,msgready H )}WWXK
mov dx,bx d#*5U9\z
mov ah,09 WNx^Rg"
>'
int 21 zm:=d>D..
ArEpH"}@
popa
e!8_3BE
mov ax,3100h `%Ghtm *
int 21h A
Wi 87q
@v'D9 ?
; MT5A%|H e
dispdx proc near z
bR.Lb
pusha 4"2/"D0
lea bx, dsp+3 x o%iL
mov cx,4 4Rm3'Ch
=oTYwU
repeat0: C0W~Tk\C2
mov al,dl w?*KO?K
and al,0fh
@b/2'
cmp al,09h yjO7/< 2
jg add40 Mz^s^aJEE
add al, 30h KCF wO'
jmp okadd N|j. @K
add40: o
,!"E^
add al,37h qh'BrY u*
okadd: %8 tN$8P
mov byte ptr [bx],al q!TbM"
dec bx [E^X=+Jnz
shr dx,4 =gn}_sKNE
loopnz repeat0 $O>@ (K
lea bx,dsp jysV%q 3
mov dx,bx vraU&ze\1
mov ah,09h I d*^H:]C#
int 21h >SJ $41"E
aC},h
popa ""+*Gn 7^8
ret n96gDH*
dispdx endp 3az c `[hl
;?!r pj
dispqword proc near e^GW[lT
pusha p^:Lj 9Qax
mov cx ,4 OT[m
g 4&
add bx,6 9H}&Ri%
repeatdecbx: s,v#lJ]d0W
mov dx,[bx] 7`/qL "
call dispdx d{hYT\7~1(
sub bx,2 c 2@@Rd~M
loopnz repeatdecbx L8zqLD i&
popa 6'ZnyWb
ret C]H <L#)ZU
dispqword endp &V3oW1*W
gB(W`:[
rwsect proc near of`]LU:
*N r|G61
lea bx,msg Ib\G{$r
mov dx,bx Zz-;jk X)
mov ah,09h -IS9uaT5
int 21h jq]"6/xxb
O}-7 V5
lea bx,BlockNumL Yel(}Ny
call dispqword 9/M!S[N9
Qzhnob#C9
lea di, packetsize >>cd3)b
mov dl,80h #[W[ |m
mov ah,42h \?^wu
int 13h &-:yn&f7
jnc readok E, fp=.
AL7O -D
mov cx,5 ~K96y$ DTE
;出错后重试(定位0道后再重读) 4sQAR6_SW~
retryrd: h yKg=Foq
lea bx, msgReadErr -],
?kP
mov dx,bx XgKG\C=3
mov ah,09 eh usI-q
int 21h -9I%
f5 % &
/vDF< HVzm
lea di,dap0 gJxVU41
mov dl,80h 'lk74qU$
mov ah,44h 1hyah.i]Y
int 13h +-\9'Q
uq%3;#[ 0
lea bx,BlockNumL I
6YT|R
call dispqword ;QQ7 vo
C<t>m_t9
lea di, packetsize
;"^9
L
mov dl,80h 7 !.8#A':
mov ah,42h ,rI
|+
int 13h {Yk20Zn
jnc readok BznA)EK?@
loopnz retryrd emB D@r
y7- :l u$9
readok: - l@W)?$
lea di, packetsize uW~ ,H}E
mov dl,80h 0|!<|N<
mov ah,43h 4 .B*B3
int 13h bJF/daC5
;cn .s,
rwsect endp l&Ghs@>Kl
ls\ E%d
code ends ;代码段结尾 ^6oqq[$
end start ;结束汇编 t)Q @sKT6
{l&2 Kd*
