第一个宏汇编程序 R j-jAH
HP#ki !'
工作后不久，单位里我所在的小组有了一台浪潮0520(XT兼容机)，有了硬盘，有了汇编编译程序，就开始玩汇编了。当然那时的主要工作是用dBASEIII，这个我已经在读研期间自学会了，读了一本关于dBASEIII plus的英文书，编个dBASE/FoxBASE程序已经是小菜一碟了。 4>l0V<
JL@ F~U9
那时候的硬盘老出点问题，经常碰上个“Error reading data....” 啥的小毛病，但是换又不方便而且很贵。PCTOOLS与NORTON DISKEDIT扫描盘比较慢。我就自己写了一个磁盘扫描程序。算是用汇编写的第一个正式的有点用处的程序吧！ =+`D
;D:=XA%
这也是我现在电脑里唯一一个汇编语言的程序了，其它都随着磁盘来回更换丢了。所以，还是在老大这里存一份留个纪念吧！ D4d]3|/T
*<w3" iq
比较长啊！所以可以自动跳过。 S45 'j(S=
~M*7N@D
.286 /({P1ti:C
.radix 16 Ks|gL#)*Ku
data segment ;定义数据段 #uB[&GG}W
\Ph]*%
{d8^@UL
msg db 0dh, "Reading sector:$" .a {QA
msg1 db 0dh, "Writing sector:$" 5qGGu.$Ihi
msgready db 0dh,0a,0dh,0a,"Reading/Writing completed!", 0dh,0a, "$" 8:~b
& >
=<Hy"4+?.
dsp db " $" an Lbl#UV
se!g4XEWD
;DAP !TG r .R
PacketSize db 16d; // 数据包尺寸(16字节) "X`Qe!zk4
Reserved db 0; // ==0 {798=pC<.
BlockCount dw 63d; // 要传输的数据块个数(以扇区为单位) cY{I:MA+h@
BufferAddr dw 0,0 ; // 传输缓冲地址(segment:offset) @ ozm;
BlockNumL Dw 0,0; // 磁盘起始绝对块地址 ;jF%bE3
BlockNumH Dw 0,0; // 磁盘起始绝对块地址 wtq,`'B
<8$Md4r
;定位用DAP （复位到0磁道） r9<V%PH v
DAP0 db 16d c$/<l5Uw
db 0 0
"4J"q] &
dw 1 P> |Ef~j
buff1 dw 0,0 CDJ$hu
dw 0,0,0,0 >;m{{nj
^mA
J[^%
|%-YuD
;DiskParameters So?m?,!W
infosize dw 26d; WORD InfoSize; // 数据包尺寸 (26 字节) 0Qt~K#mr/
falgs dw 0; WORD Flags; // 信息标志 B+|IZo R
Cylinders DW 0; DWORD Cylinders; // 磁盘柱面数 Ur n
Heads DW 0; DWORD Heads; // 磁盘磁头数 h5 j<u
SPT Dw 0,0; DWORD SectorsPerTrack; // 每磁道扇区数 -W 9gH
Sectors Dw 0,0,0,0; QWORD Sectors; // 磁盘总扇区数 tO
7I&LN E
SectorSize DW 0; WORD SectorSize; // 扇区尺寸 (以字节为单位) 3=IG#6)~C
ci;&CHa
cmpsect dw 0 L,6MF,vx
,eDu$8J9
msgcyl db 0dh,0a,"Disk Parameters",0dh,0a,"Total Cylinders:$" Ny]lvgu9X
msgHds db 0dh,0a,"Heads:$" ad9EG#mD#
msgspt db 0dh, 0a,"SectorsPerTrack:$" a"k'm}hVY$
msgTotal db 0d,0a, "Total Sectors:$" Bf/ |{@
msgSS db 0dh,0a, "Sector Size:$" Trpgx
ekrBNDs9
msgReadErr db 0dh,0a,"Error Reading Sectors:$" nVNs ][
msgWriteErr db 0dh,0a, "Error Writing Sectors:$" xwi!:PAf,o
msgReset db 0dh,0a, "Reseting drive to Cyl 0" 'w:bs !
pVY4q0@
$<:'!#%
buffer db 32768d dup(0); 3XnE y
+
Jlz9E|*qV
data ends ;数据段结尾 (VEp~BW@-R
RTZ
:U@
stack segment ,?I(/jI
db 400 dup(?) (,shiK[5f
stack ends ZxI]I1)
%Or2iuO%-,
code segment ;定义代码段 2av*o~|J*:
assume cs:code ;规定cs的内容 JfSdUWxT
assume ds:data ;规定ds的内容 3\]~!;dI
assume ss:stack I
-TlrW=t
~C0 Pu.{o
start: FQ1arUOFW,
pusha ) ,yH= 6
Ll?g.z"
&"xQ~05
mov ax,data ;程序从start开始 @bE~@4mOu
mov ds,ax ;ds置初值,data的段地址 >C:If0S4X
$ND90my
;设置缓冲区 ]uAS+ shQ&
lea bx, buffer p x0Sy |
mov bufferaddr,bx } +1'{B"I
mov buff1,bx gXF.on4B
mov bx,ds =88t*dH(,"
mov bufferaddr+2,bx 9]Lo
mov buff1,bx #sS9vv7i
0j uDuE?
lea di,infosize 6vF/e#},
mov dl,80h ]?M)NRk%S
mov ah,48h v O PMgEI
int 13h kwO eHdV^
n? }5 !
lea bx,msgcyl
A=0@UqM
mov dx,bx eJW[ ] !
mov ah,09 ?/)lnj)e{
int 21h *N`;I@Q"[
mov dx,cylinders :1*zr
call dispdx !M,h7 9NM
tR5tPPw
lea bx,msghds 2p+C%"n>
mov dx,bx /-><k,mL?
mov ah,09 D@:"f?K>
int 21h B O]=vH
mov dx,heads G 8n oQ_-
call dispdx ZRPE-l_3:
l!/!?^8|f
lea bx,msgspt W\%q} q2?
mov dx,bx $ 3]b>v
mov ah,09 4
]sCr+
int 21h I'?6~Sn3
mov dx,spt+2 brfKd]i
call dispdx Z~ _8P
mov dx,spt {!MVc<G.
call dispdx ET e
-
Vli 3>K&
lea bx,msgtotal tq0;^L
mov dx,bx ' Wtf> `
mov ah,09 l YP~3wp99
int 21h Y| :YrZSC
lea bx,sectors [t$4Td d
call dispqword 9N^+IZ@l
FZH-q!"^cK
lea bx,msgss ex!XB$X
mov dx,bx x_k S
g
mov ah,09 ?3Pazc]+|
int 21h Iy Opju)?
mov dx,sectorsize fy`+Efuj
call dispdx qv$!\ T
UDM yy Vd
sbb word ptr sectors, 63d cFDxjX?~
jnc subok yZ5 x8 8 >
sub word ptr sectors+2,1 z|Ap\[ GS
jnc subok o _
(0
sub word ptr sectors+4,1 R2CQXhiJ
jnc subok V8 tghw
sub word ptr sectors+6,1 <&6u]uKrW
f0u56I9
subok: v iJJ
e'\2
y~dB 5/
BW>5?0E[4(
h07e E g
xor ax,ax zW
b -pF|
mov blocknumL, ax "9%q bM B
mov blocknumL+2, ax JCNk\@0i*
mov blocknumL+4, ax %EWq2'/5
mov blocknumL+6, ax CIEJql?`
`[OXVs,7"
startread: KXq_K:r ?
ifvU"l
call rwsect =&N$Vqn
.$P|^Zx,
adc word ptr blocknuml,63d E0<)oQ0Xa>
jnc addok =},{8fZ4
adc word ptr blocknuml+2,1 N2[jO+6
jnc addok 5N1}N s
adc word ptr blocknuml+4,1 >K5~:mx#3
jnc addok obj!I 7
adc word ptr blocknuml+6,1 _F^$aZt?e
jnc addok aiJ
nfU]W
Ox|TMSb^
addok: 2uEhOi0I
mov ax, word ptr sectors+6 R3Ee%0QK
cmp ax, blocknuml+6 gJK KR]4*
jg complete YNk|+A.<d
jl startread cLAe sj
mov ax, word ptr sectors+4 %Lyz_2q A
cmp ax, blocknuml+4 ]Z/R!y?l"G
jg complete vlu $!4I
jl startread C 0>=x{,v
mov ax, word ptr sectors+2 x2@,9OUx
cmp ax, blocknuml+2 -Uri|^t
jg complete F3Ap1-%z
jl startread VyY. r#@
mov ax, word ptr sectors W_%W% i|
cmp ax, blocknuml MUB37
jg complete 8""mp]o9
jl startread 7OE[RX8!f
O k*Z
complete: M7vj^mt?
S Os,)
lea bx,msgready ol<lCp
mov dx,bx ,z[(k"
mov ah,09 iE
=P'"I
int 21 Mc:b U
3}j1RYtz
popa |by@ :@*y
mov ax,3100h
7
v~ ro
int 21h VGB-h'
^aHh{BQ%
; ; :T9
IL
dispdx proc near QLn+R(r
pusha =LK}9ViH
lea bx, dsp+3 Je@ k iE
mov cx,4 5j`v `[B;
kZv*rWAm
repeat0: {"jd_b&
mov al,dl |(RZ/d<X\a
and al,0fh 9T?64t<Ju
cmp al,09h ULIFSd Y
jg add40 6rT4iC3Q{
add al, 30h k2.G%]j
jmp okadd sl^n6 N
add40: r@yD8 D \
add al,37h =zOe b /
okadd: m:3J!1
mov byte ptr [bx],al +9C;<f
dec bx J.W Ho
c
shr dx,4 .j argvAL*
loopnz repeat0 1 }nm2h1 I
lea bx,dsp y1#O%=g
mov dx,bx +sRP<as
mov ah,09h ]L8q
int 21h r
:NH6tAL
.
it2NS
popa vd(dNu&,<
ret {_(+>v"eJ
dispdx endp hbfsHT
{+Sq<J_`M
dispqword proc near lV)G @l[1
pusha [;Fofu Z
mov cx ,4 hlC%HA
add bx,6 cQn)^jx=
repeatdecbx: ]4o?BkL
mov dx,[bx] R 6<4"?*r
call dispdx {xToz]YA
sub bx,2 a,cC!
loopnz repeatdecbx 5 VKcV&D
popa $_FZn'Db6
ret sUbF R q
dispqword endp s1
=+::
n p=kTJ
rwsect proc near `kPc!I7Y
`|?]CkP
lea bx,msg \K }aQKB/j
mov dx,bx )!sa) \E ?
mov ah,09h ;s }3e#$L
int 21h ;cLUnsB\
r0{]5JZt/
lea bx,BlockNumL lQL:3U0DjU
call dispqword akCIa'>t
R8 jovr
lea di, packetsize ]u0 Jd#@
mov dl,80h ($ S Lb6
mov ah,42h #w*"qn#2Uz
int 13h dyO E6Ex
jnc readok i-.c= M
GS4_jvD-
mov cx,5 qtY
m!g
;出错后重试(定位0道后再重读) Pr/]0 <s
retryrd: e9:P9Di(b
lea bx, msgReadErr 6c & Y
mov dx,bx ]"h=Qc
mov ah,09 :Eo8v$W\RB
int 21h (bvoF5%
V7@
{ D
02pplDFsM
lea di,dap0 { 8p\ Y
mov dl,80h ;wgFr.#hp@
mov ah,44h VMF|i
B
int 13h v)+@XU2wZ
Onw24 &
lea bx,BlockNumL o\goE^,aeR
call dispqword ]Uh 1l.O
0m&3?"5u
lea di, packetsize 6v>z
h
mov dl,80h )$_,?*f
q:
mov ah,42h KoF
iQ?
int 13h t !~ S9c
jnc readok W+hV9
loopnz retryrd m|1n
x
lkwh'@s.
readok: !M^\f
N1
lea di, packetsize V Dpxk$a
mov dl,80h ;{Jb6'K1h
mov ah,43h %E.S[cf%8&
int 13h RHI&j~
U0IE1_R
rwsect endp `)tA
YH
N,|r1u 9X#
code ends ;代码段结尾 ]7vf#1 i<
end start ;结束汇编 ~K` 1
>{t+4 p4k.
