第一个宏汇编程序 BN,>&1I
<:|3rfm#
工作后不久，单位里我所在的小组有了一台浪潮0520(XT兼容机)，有了硬盘，有了汇编编译程序，就开始玩汇编了。当然那时的主要工作是用dBASEIII，这个我已经在读研期间自学会了，读了一本关于dBASEIII plus的英文书，编个dBASE/FoxBASE程序已经是小菜一碟了。 Z"s|]K "
~LQ[4h<J !
那时候的硬盘老出点问题，经常碰上个“Error reading data....” 啥的小毛病，但是换又不方便而且很贵。PCTOOLS与NORTON DISKEDIT扫描盘比较慢。我就自己写了一个磁盘扫描程序。算是用汇编写的第一个正式的有点用处的程序吧！ C}5M;|%3)
eb|i 3.
这也是我现在电脑里唯一一个汇编语言的程序了，其它都随着磁盘来回更换丢了。所以，还是在老大这里存一份留个纪念吧！ S. |FL%;
#?B%Ja%
;W
比较长啊！所以可以自动跳过。 ueG|*[
d^|0R
.286 `8\Ja$ =
.radix 16 ^ZTGJ(j7~
data segment ;定义数据段 *U l*%!
?D
T5O _LCIws
[4J6 iF
msg db 0dh, "Reading sector:$" @InZ< AW>|
msg1 db 0dh, "Writing sector:$" bY~@}gC**@
msgready db 0dh,0a,0dh,0a,"Reading/Writing completed!", 0dh,0a, "$" V#q}Wysft
OU7 %V)X5
dsp db " $" 4 Tct
e &9F\e
;DAP 0D~ C
5}/4
PacketSize db 16d; // 数据包尺寸(16字节) OJ4
Sb I
Reserved db 0; // ==0 _DP|-bp D
BlockCount dw 63d; // 要传输的数据块个数(以扇区为单位) 4l8BQz}sb
BufferAddr dw 0,0 ; // 传输缓冲地址(segment:offset) xdy^ ^3"
BlockNumL Dw 0,0; // 磁盘起始绝对块地址 Vc3mp;6"
BlockNumH Dw 0,0; // 磁盘起始绝对块地址 9F;S+)H4
_;RVe"tR#
;定位用DAP （复位到0磁道） H0"= Vs,n
DAP0 db 16d ]+H ?@*b`
db 0 $ex!!rqN|
dw 1
8%RI7Mg
buff1 dw 0,0 /( 6|{B
dw 0,0,0,0 Tx%VU8\?n
OV k ~ N)
r gcWRt
;DiskParameters pe&UQ C^
infosize dw 26d; WORD InfoSize; // 数据包尺寸 (26 字节)
StYzGJ
falgs dw 0; WORD Flags; // 信息标志 Bf4%G,o 5
Cylinders DW 0; DWORD Cylinders; // 磁盘柱面数 vf~`eT
Heads DW 0; DWORD Heads; // 磁盘磁头数 O3NWXe<
SPT Dw 0,0; DWORD SectorsPerTrack; // 每磁道扇区数 nF)uTk
Sectors Dw 0,0,0,0; QWORD Sectors; // 磁盘总扇区数 AAUyy
:
SectorSize DW 0; WORD SectorSize; // 扇区尺寸 (以字节为单位) as"N=\N
T{vR,
cmpsect dw 0 $WW)bP
d4^
=wq;@' U
msgcyl db 0dh,0a,"Disk Parameters",0dh,0a,"Total Cylinders:$" YW;
Hk1
msgHds db 0dh,0a,"Heads:$" #:ns64|
msgspt db 0dh, 0a,"SectorsPerTrack:$" $A<ESfrs
msgTotal db 0d,0a, "Total Sectors:$" ]|: uU
msgSS db 0dh,0a, "Sector Size:$" {w^uWR4f
)fU(AXSP
msgReadErr db 0dh,0a,"Error Reading Sectors:$" _U)%kY8
msgWriteErr db 0dh,0a, "Error Writing Sectors:$" E&~nps8e
msgReset db 0dh,0a, "Reseting drive to Cyl 0" v$w++3H
iz"3\{aN
7 boJ *
buffer db 32768d dup(0); Z%gx% $
KbxR
Lx]w
data ends ;数据段结尾 %|XE#hw
f0Hq8qAF;^
stack segment H]#Rg`~n
db 400 dup(?) ;9uRO*H?T
stack ends {fSf q&o
. >6 Wv0
code segment ;定义代码段 !#? kWAU
assume cs:code ;规定cs的内容 mE#nU(+Ta
assume ds:data ;规定ds的内容 +K6szGP
assume ss:stack UmK X*T9
Ov9 Q?8KzM
start: dX
)W0
pusha X21d X`eMN
w36 (p{#vp
s.jO<{
mov ax,data ;程序从start开始 ~y0R'oi
mov ds,ax ;ds置初值,data的段地址 8)0 L2KL'
RM*f|j
;设置缓冲区 u2sR.%2U<
lea bx, buffer ~0-
g%C?R
mov bufferaddr,bx /owO@~G
mov buff1,bx mxqG-*ch-
mov bx,ds RHNk%9
mov bufferaddr+2,bx ] y1f M0
mov buff1,bx 8}B B OD
$;D*
n'8Fx
lea di,infosize Q* O<@
mov dl,80h Bo\D. a(T
mov ah,48h X,v4d~>]
int 13h K3p@$3hQ
q'(z #h,cv
lea bx,msgcyl V{Q k N7-
mov dx,bx Q1tpCT
mov ah,09 p/]s)uYp$
int 21h =7ydk"xM*
mov dx,cylinders "<l<&
qp
call dispdx Ygkv7>? ,
)%JD8;[Jq
lea bx,msghds W."f 8ow
mov dx,bx b7h+?!H]R
mov ah,09 E(L<L1:"
int 21h :mv`\
mov dx,heads &:#m&,tQ
call dispdx E,*&BDW
Nf?\AK!
lea bx,msgspt =ak7ld A=2
mov dx,bx & $ p[
mov ah,09 [>w%CY<Fd
int 21h IjZ@U%g@;
mov dx,spt+2 AZZRa69=
call dispdx r[ HT9
mov dx,spt 0\a8}b||
call dispdx E20 :uZ7\
O]nT>;PXX
lea bx,msgtotal {0's~U+@
mov dx,bx . gT4_
mov ah,09 Q;26V4
int 21h N\R=cwk
lea bx,sectors XizPM N5a
call dispqword V_a)jJ
kR6A3?[
lea bx,msgss FrZ]=:
mov dx,bx [!?wyv3
mov ah,09 ^ @.G,u
int 21h @"1}1 6b#f
mov dx,sectorsize QB 77:E
call dispdx MTmO>V&O
[B Xyi
sbb word ptr sectors, 63d `mB.pz[
jnc subok d bO#
sub word ptr sectors+2,1 wRVD_?
jnc subok Jyu`-=I t
sub word ptr sectors+4,1 d\Jji 6W
jnc subok
^Omfe
sub word ptr sectors+6,1 g"y?nF.&F
=,Ttw>
subok: V-vlTgemwc
5}a
"?5J^
:)P<jX-G
zk>h u<_
xor ax,ax N8+P
mov blocknumL, ax Vm!i
mov blocknumL+2, ax NfF~ dK|
mov blocknumL+4, ax 4MX7=!E
mov blocknumL+6, ax cgyo_
k
S;}qLjT
startread: 2a[9h #
l \}25
e
call rwsect |%ZpatZA5
~Fx&)kegTo
adc word ptr blocknuml,63d .[f; (WR
jnc addok * bZ\@Qm
adc word ptr blocknuml+2,1 R [9w
jnc addok 5G? .T
?
adc word ptr blocknuml+4,1 'TX M{RGw
jnc addok Kpg: yrc['
adc word ptr blocknuml+6,1 `s}BXKIv}
jnc addok Fp:3#B h
n>llSK
addok: F!~l
MpuE
mov ax, word ptr sectors+6 aIu2>
cmp ax, blocknuml+6 FDq{M?6i
jg complete V} bM!5 H
jl startread j-*
TXog
mov ax, word ptr sectors+4 5\G)Q<A]*L
cmp ax, blocknuml+4 %N{sD[^
jg complete .3g&9WvN!Z
jl startread t:9
ZCu ay
mov ax, word ptr sectors+2
!0dX@V'r
cmp ax, blocknuml+2 5<N~3
1z
jg complete J~d TVBx
jl startread ;E's4jWq
mov ax, word ptr sectors l10-XU02
cmp ax, blocknuml N5\{yV21",
jg complete ~V$ f #X
jl startread & s-V Su7
_$(GRNRYK
complete: #`j][F@N
6_ ]8\n
lea bx,msgready X>/K/M
mov dx,bx WF)s*$'uz;
mov ah,09 aQh?}=d a
int 21
dzxI QlP
K\X : G-C9
popa }jcIDiSu
mov ax,3100h h[H%:743
int 21h gfV DqDF
C ZfE
|T~
; m0Z7 N5v)
dispdx proc near 0 pNo`Bm
pusha >a9l>9fyY
lea bx, dsp+3 ~' [jBn)
mov cx,4 A`C-sD >
[|<EDR
repeat0: ]BfR.,,
mov al,dl tDU}rI8?
and al,0fh )G4rJ~#@
cmp al,09h LR\zy8y]
jg add40 bs:QG1*.
add al, 30h -aN":?8(G
jmp okadd `
@>ZGL:
add40: >
Z++^YVE
add al,37h cUC17z2D
okadd:
lWlUWhLnP
mov byte ptr [bx],al `]hCUaV
dec bx xPvR Q
shr dx,4 V IYV92[
loopnz repeat0
;o% :7 &
lea bx,dsp Jy`G]]
?
mov dx,bx ) MBS
mov ah,09h sU*3\
int 21h j ]H E>
MHNe>C-!q
popa p5`ZyD ]+
ret {jhcZ"#>\
dispdx endp 6JWGu/A
Gt5$6>A
dispqword proc near 5U;nhDmM
pusha !5E9sk{)
mov cx ,4 e/P4mc)
add bx,6 4ac1m,Jlt
repeatdecbx: 6 puVw-X
mov dx,[bx] )rbc;{.
call dispdx k -]xSKG
sub bx,2 O3&|}:<
loopnz repeatdecbx CLktNR(45
popa [,nfAY
ret {]@Qu" M
dispqword endp i^/Di Wdyf
kc|>Q7~{
rwsect proc near )(.%QSA\C
r?afv.@L2
lea bx,msg E -
KK
mov dx,bx IrUi
E q
mov ah,09h fOJj(0=y
int 21h R
^^ 1/%
c&A]pLn+x
lea bx,BlockNumL [>wzl"cHW
call dispqword 8L{$v~ +
4)E|&)-fu8
lea di, packetsize W 60Q3
mov dl,80h cUN
Go%Y
mov ah,42h J 5- rp|
int 13h iBS0rT_
jnc readok HIrE
v
/evaTQPz
mov cx,5 taixBNv
;出错后重试(定位0道后再重读) E s~DHX
retryrd: ^
`E@/<w8
lea bx, msgReadErr -sx-7LKi
mov dx,bx Q~h6J*
mov ah,09 Kv1vx*>
int 21h excrXx
?d#Lr*m
o6/Rx # A
lea di,dap0 L-M iaKc L
mov dl,80h ?.~]mvOR
mov ah,44h ^^'[%ok
int 13h # a.\P.{L
sxt`0oE
lea bx,BlockNumL UXQb ={
call dispqword S8v x[ <
F;X"3F.!
lea di, packetsize %p}qO^%M
mov dl,80h L EA;dSf
mov ah,42h n)Hk8)^8
int 13h @F~0p5I
jnc readok j
Pj 2
loopnz retryrd T[m ~6
dJ aEoF
readok: 7_1W:-A7W
lea di, packetsize SUo^c1)G
mov dl,80h 4%%B0[Wo_O
mov ah,43h G+fd.~aGE
int 13h G tG&yeB
uH0#rgKt
rwsect endp oq
243\?Y
b%<16 4i
code ends ;代码段结尾 $u&|[vcP0
end start ;结束汇编 g"w)@*?K
phe"JNML
