第一个宏汇编程序 3^
UoK
P/ 6$TgQ
工作后不久，单位里我所在的小组有了一台浪潮0520(XT兼容机)，有了硬盘，有了汇编编译程序，就开始玩汇编了。当然那时的主要工作是用dBASEIII，这个我已经在读研期间自学会了，读了一本关于dBASEIII plus的英文书，编个dBASE/FoxBASE程序已经是小菜一碟了。 r?[[.zm"7
#|je m
那时候的硬盘老出点问题，经常碰上个“Error reading data....” 啥的小毛病，但是换又不方便而且很贵。PCTOOLS与NORTON DISKEDIT扫描盘比较慢。我就自己写了一个磁盘扫描程序。算是用汇编写的第一个正式的有点用处的程序吧！ 8=Oym~
; ,sNRES3
这也是我现在电脑里唯一一个汇编语言的程序了，其它都随着磁盘来回更换丢了。所以，还是在老大这里存一份留个纪念吧！ em,1Yn?
084Us
s
比较长啊！所以可以自动跳过。 80 Hi v
fNAW4I I}
.286 u4
es8"
.radix 16 cFq<x=S
data segment ;定义数据段 %D#&RS
F!hjtIkPj
Ow> u!P!
msg db 0dh, "Reading sector:$" y(g ]:#
msg1 db 0dh, "Writing sector:$" 9VTAs:0D=
msgready db 0dh,0a,0dh,0a,"Reading/Writing completed!", 0dh,0a, "$" Hm'fK$ y(
%"(HjanH
dsp db " $" w`8H=Hf
*8,W$pe3
;DAP 7:LEf"vRZ
PacketSize db 16d; // 数据包尺寸(16字节) qVfn(rZ
Reserved db 0; // ==0 9kWI2cLzQt
BlockCount dw 63d; // 要传输的数据块个数(以扇区为单位) D%3$"4M7!
BufferAddr dw 0,0 ; // 传输缓冲地址(segment:offset) |z3!3?%R
BlockNumL Dw 0,0; // 磁盘起始绝对块地址 L$O\fhO?
BlockNumH Dw 0,0; // 磁盘起始绝对块地址 e{87n>+,
T 8g\_m
;定位用DAP （复位到0磁道） T\p>wiY2|F
DAP0 db 16d .+XK>jl +
db 0 S{l)hwlE
dw 1 ? Pi|`W
buff1 dw 0,0 7P(o!%H
dw 0,0,0,0 Fl($0}ER
0^V<,CAV
ba G_7>Q9H
;DiskParameters :t`W&z41
infosize dw 26d; WORD InfoSize; // 数据包尺寸 (26 字节) s|XWw<S
a
falgs dw 0; WORD Flags; // 信息标志 /77cjesZ9
Cylinders DW 0; DWORD Cylinders; // 磁盘柱面数
G-1qxK
Heads DW 0; DWORD Heads; // 磁盘磁头数 1QA/ ! 2 E
SPT Dw 0,0; DWORD SectorsPerTrack; // 每磁道扇区数 D<FQVdP
Sectors Dw 0,0,0,0; QWORD Sectors; // 磁盘总扇区数 j$_?g!I=gK
SectorSize DW 0; WORD SectorSize; // 扇区尺寸 (以字节为单位) 0!YVRit\N
[N~7PNd S
cmpsect dw 0 &S+*1 <|`K
fh )eL<I
msgcyl db 0dh,0a,"Disk Parameters",0dh,0a,"Total Cylinders:$" `qmwAT
msgHds db 0dh,0a,"Heads:$" :35h0;8+
msgspt db 0dh, 0a,"SectorsPerTrack:$" 9[VYd '
msgTotal db 0d,0a, "Total Sectors:$" <?IDCOt ?
msgSS db 0dh,0a, "Sector Size:$" 3t+{
~{Dj
U`3?bhzua
msgReadErr db 0dh,0a,"Error Reading Sectors:$" c.LRS$o/j
msgWriteErr db 0dh,0a, "Error Writing Sectors:$" '"7b;%EN'
msgReset db 0dh,0a, "Reseting drive to Cyl 0" xa'U_]m
Rkk`+0K7$J
vzfMME17
buffer db 32768d dup(0); fgL"\d}
H?;+C/-K`_
data ends ;数据段结尾 N
}VoO0 I
~),%w* L
stack segment 4rL`||
db 400 dup(?) ,_(=w.F
stack ends ?,riwDI 2
bf.+Ewb(
code segment ;定义代码段 Ww 8U{f
assume cs:code ;规定cs的内容 V*s\ ~h )
assume ds:data ;规定ds的内容 '+$r7?dKP
assume ss:stack `_)9e GQ
T
=
pP
start: E<-W & a }
pusha JXk x!X_{
U3B&3K} ~
k]:`<`/I_
mov ax,data ;程序从start开始 =/a`X[9vI
mov ds,ax ;ds置初值,data的段地址 b*S,8vE]
,{:qbt
;设置缓冲区 eSObOG/
lea bx, buffer VFZyWX@#u
mov bufferaddr,bx Gev\bQa
mov buff1,bx p#4*:rpq4
mov bx,ds SbX^DAlB1
mov bufferaddr+2,bx 'q;MhnU+
mov buff1,bx ZhCz]z~tj6
3C!|!N1Hn
lea di,infosize 5
s^vC2$)
mov dl,80h B=>Xr!pM!
mov ah,48h BTr;F]W
int 13h {~51h}>b#
< `Fl Igo
lea bx,msgcyl -eV*I >G
mov dx,bx < HJ
Ls+C
mov ah,09 @Yb8CB
int 21h l[5** ?#
mov dx,cylinders R& t2
call dispdx "dv\
9O
MwQtf(_
lea bx,msghds NMw5ixl
mov dx,bx
c %Y *XJ'
mov ah,09 \M.?* p
int 21h 4Yok,<
mov dx,heads dbEXl m
call dispdx -}T7F+
K'8?%&IQ
lea bx,msgspt 4IW90"uc
mov dx,bx 7lF;(l^Z>}
mov ah,09 l<=k#d
int 21h H&*&n}vh5y
mov dx,spt+2 V]Ccj\Oi
call dispdx X(d:!-_m *
mov dx,spt }vB{6E+h/w
call dispdx )cQ KR4x0^
xG
ed Y*[`
lea bx,msgtotal !p\
@1?
mov dx,bx fl4@5AVY
mov ah,09 3nhQ^zqf
int 21h .
&}x[~g
lea bx,sectors ; 6 d-+(@
call dispqword D8w.r"ne
<<qzZ+u
lea bx,msgss 0[
"CP:
u
mov dx,bx ;dZ ZOocV1
mov ah,09 lws.;abm%n
int 21h 3VMaD@nYa
mov dx,sectorsize 7 ?k3jDK
call dispdx 8%4v6No&*
V3*@n *"N;
sbb word ptr sectors, 63d X0ugnQ6
jnc subok k
"7,-0gz
sub word ptr sectors+2,1 *j,noHUT~>
jnc subok }3Ke
sub word ptr sectors+4,1 h8.(Q`tli
jnc subok &~.|9P/45
sub word ptr sectors+6,1 U%1M?vT/
`3[W~Cq
subok: SLkg
Ib~'X
h-Ks:pcR
f9_Pn'"I
G
DBV
xor ax,ax Bf^K?:r"V
mov blocknumL, ax A;Zlu Q
mov blocknumL+2, ax !7]^QdBLY
mov blocknumL+4, ax \Qnr0t@0
mov blocknumL+6, ax
`_
n eYT
7
w5l[a/
startread: m|?1HCRXRI
:G9 d,B7*
call rwsect + rN#
{Gfsiz6
adc word ptr blocknuml,63d jsV1~1:83
jnc addok L*Ffic
adc word ptr blocknuml+2,1 [=. iJ5,{2
jnc addok er
1zSTkg
adc word ptr blocknuml+4,1 j1Sjw6}GCH
jnc addok &?@U_e
mLi
adc word ptr blocknuml+6,1 I YptNR
jnc addok 4M>]0%3.D
Wkb>JnPo
addok: < uoVGV5N
mov ax, word ptr sectors+6 3\ )bg
R:
cmp ax, blocknuml+6 [}Rs
jg complete 874j9ky[
jl startread ""V\h Hdp
mov ax, word ptr sectors+4 ri3*~?k00
cmp ax, blocknuml+4 e5FF'~A%]
jg complete I`@>v%0
jl startread )<'2 vpz
mov ax, word ptr sectors+2 56C'<#
cmp ax, blocknuml+2 }|=Fnyj
jg complete C)qG<PW.!
jl startread P%w!4v ~"
mov ax, word ptr sectors Ygfy;G%
cmp ax, blocknuml ^N ;TCn
jg complete g(jn
/Cx
jl startread Q-s5-&h (
]B&jMj~y&
complete: k J .7C
z:O:g?A
lea bx,msgready fE|"g '
mov dx,bx c0jTQMe4yl
mov ah,09
0lqh;/
int 21 *6_>/!ywI
;6]ag< Q
popa ZW;Re5?DJ
mov ax,3100h )99^58my
int 21h
S[8n GH#m
<dS I"C<
; 5D^2
+`$/
dispdx proc near ed/
"O gA
pusha Q R dtr
lea bx, dsp+3 ,HE{&p2y
mov cx,4 p*zTuB~e <
(i<\n`h1K
repeat0: = =KDr 0|G
mov al,dl 7we='L&R
and al,0fh 8&x&Ou$("V
cmp al,09h 6] !Jo)BF
jg add40 ,Wd+&|Q
add al, 30h HsG3s? *
jmp okadd 5P );t9O6
add40: ) TN G0[
add al,37h LsMq&a-j2
okadd: @O6
2} F
mov byte ptr [bx],al .UK`~17 !
dec bx n%vmo
f
shr dx,4 9j;!4AJ1t
loopnz repeat0 {Aj=Rj@
lea bx,dsp 6lr<
{k7Nw
mov dx,bx &ML-\aSal
mov ah,09h |9m*? 7
int 21h ^#h ;bX#
#cJ1Jj $
popa M6Ik 'r"M
ret c;
1 f$$>b
dispdx endp {>ghX_m |
: 9>U+)%
dispqword proc near |F =.NY
pusha aNICSxDN
mov cx ,4 .nA9irc
add bx,6 Fv^>^txh
repeatdecbx: sA"B/C|(g
mov dx,[bx] bI;u};v
call dispdx ^|h.B$_F,
sub bx,2 @9]T jZd
loopnz repeatdecbx o|s|Wm x>u
popa 4Dd]:2|D
ret gazX2P[D
dispqword endp &$pQ Jf
O+DYh=m*p
rwsect proc near ob)c0Pz
EUPc+D3
lea bx,msg PC,I"l
mov dx,bx &]KA%Db2
mov ah,09h 1B{u4w7S4e
int 21h )DQcf]I
BQ gK< _
lea bx,BlockNumL
R C!~eJG!
call dispqword L1SZutWD?
7Sycy#D
lea di, packetsize V1,4M _Z
mov dl,80h IS{>(XT{
mov ah,42h "GxQ9=Z
int 13h 5S! !@P!,
jnc readok tg2+Z\0)4g
9~r8$,e
mov cx,5 p
@YbIn
;出错后重试(定位0道后再重读) Jjx 1`S*i
retryrd: 9PR?'X;4
lea bx, msgReadErr _ ^0UK|[
mov dx,bx @# p{, L
mov ah,09 ,F|49i.K
int 21h PC?X E8o
8hX / ~-H
g` =Z%{z%
lea di,dap0 \VAS<?3
mov dl,80h @Rqn&tA8
mov ah,44h %wq;<'W
int 13h 0n?^I>j
&x[V<Gq
lea bx,BlockNumL ^
-lWv
call dispqword -0*z"a9<p8
r
;zG
lea di, packetsize U]E~7C
mov dl,80h 7*Gg#XQ>(
mov ah,42h Fy^8]u*Fu
int 13h ukee.:{
jnc readok Hq <!&
loopnz retryrd Is (
Ji
#.@D}7y5
readok: R36A_
lea di, packetsize :RX zq C
mov dl,80h al]-*=v7}
mov ah,43h gF|u%_y-qt
int 13h 9iK%@k
thh0~g0/
rwsect endp V9D>Xh!0H
F{m?:A
code ends ;代码段结尾 n--s[Kdo8
end start ;结束汇编 j;&su=p"
)f`oCXh
