第一个宏汇编程序
K-)_ 1
X7{ueP#L
工作后不久，单位里我所在的小组有了一台浪潮0520(XT兼容机)，有了硬盘，有了汇编编译程序，就开始玩汇编了。当然那时的主要工作是用dBASEIII，这个我已经在读研期间自学会了，读了一本关于dBASEIII plus的英文书，编个dBASE/FoxBASE程序已经是小菜一碟了。 #DwTm~V0"
LS N
a
那时候的硬盘老出点问题，经常碰上个“Error reading data....” 啥的小毛病，但是换又不方便而且很贵。PCTOOLS与NORTON DISKEDIT扫描盘比较慢。我就自己写了一个磁盘扫描程序。算是用汇编写的第一个正式的有点用处的程序吧！ n%3rv?m7
HW"|Hm$Y(
这也是我现在电脑里唯一一个汇编语言的程序了，其它都随着磁盘来回更换丢了。所以，还是在老大这里存一份留个纪念吧！ i15uHl
/Bid :@R
比较长啊！所以可以自动跳过。
A<r@,*(g
2K!3+D"
.286 y^pk)`y8
.radix 16 K/+5$S jF
data segment ;定义数据段 4s^5t6
m7^aa@^m
IBf&'/ 8\
msg db 0dh, "Reading sector:$" z6B/H2
msg1 db 0dh, "Writing sector:$" Eg 5|XV
msgready db 0dh,0a,0dh,0a,"Reading/Writing completed!", 0dh,0a, "$" S$+vRX7
utQ E$0F
dsp db " $" 6/wAvPB$
CK 3]]{
;DAP {^Vkx f]
PacketSize db 16d; // 数据包尺寸(16字节) LgjL+w19
Reserved db 0; // ==0 =2\k
Jv3
BlockCount dw 63d; // 要传输的数据块个数(以扇区为单位) [9 5(%&k.Q
BufferAddr dw 0,0 ; // 传输缓冲地址(segment:offset)
X~sl5?
BlockNumL Dw 0,0; // 磁盘起始绝对块地址 1<fS&)^W
BlockNumH Dw 0,0; // 磁盘起始绝对块地址 wRgmw
4
dZIAotHN:
;定位用DAP （复位到0磁道） ANc)igo
DAP0 db 16d "8&pT^
db 0 7UejK r
dw 1 ixw3Z D(>+
buff1 dw 0,0 "nU5c4
dw 0,0,0,0 G`8g I)$u
tlV>
Q'~kWmLf
;DiskParameters 1%
]| O
infosize dw 26d; WORD InfoSize; // 数据包尺寸 (26 字节) &v Lz
{
falgs dw 0; WORD Flags; // 信息标志 Z%y>q|:
Cylinders DW 0; DWORD Cylinders; // 磁盘柱面数 3DV';
Heads DW 0; DWORD Heads; // 磁盘磁头数 '+?AaR&p?
SPT Dw 0,0; DWORD SectorsPerTrack; // 每磁道扇区数 V'#dY~E-P
Sectors Dw 0,0,0,0; QWORD Sectors; // 磁盘总扇区数 P \tP0+at
SectorSize DW 0; WORD SectorSize; // 扇区尺寸 (以字节为单位) :`2<SF^0O
5:Pp62
cmpsect dw 0 '
;hU&D;s
]U!vZY@\
msgcyl db 0dh,0a,"Disk Parameters",0dh,0a,"Total Cylinders:$" $]%;u: Sa
msgHds db 0dh,0a,"Heads:$" |o6
h :g
msgspt db 0dh, 0a,"SectorsPerTrack:$" aA- A>z
msgTotal db 0d,0a, "Total Sectors:$" 8s/gjEwA
msgSS db 0dh,0a, "Sector Size:$" #25Z,UU
u01 'f-h
msgReadErr db 0dh,0a,"Error Reading Sectors:$" }Xr-xh \v
msgWriteErr db 0dh,0a, "Error Writing Sectors:$" ~.u}v~
F
msgReset db 0dh,0a, "Reseting drive to Cyl 0" ;3U-ghj
4[
M!
x
sNc(aGvy
buffer db 32768d dup(0); Jor >YB`X
@HxEp;*NH"
data ends ;数据段结尾 !lKO|Y
"yCCei,hA?
stack segment &dh%s Fy
db 400 dup(?) $\Bzp<SN`
stack ends &W-L`aFd0
8 1eDN6
M\
code segment ;定义代码段 "f dgBso
assume cs:code ;规定cs的内容
7cr@;%#
assume ds:data ;规定ds的内容 8B JxD<
assume ss:stack --d< s
wdS^`nz|
start: ( 8TB*BhQ_
pusha U[*VNJSp
{(w/_C9
KoRJ'WW^
mov ax,data ;程序从start开始 iE=Yh
mov ds,ax ;ds置初值,data的段地址 h$)(-_c3
PBbJfm
;设置缓冲区 (wEaa'XL
lea bx, buffer <|c n Qj*
mov bufferaddr,bx 7 *^-3Tt83
mov buff1,bx }=z_3JfO
mov bx,ds x9Fga _
mov bufferaddr+2,bx 'C8VD+p
mov buff1,bx ^ l lZf$`
U":hJ*F)
lea di,infosize AqB5 B5}
mov dl,80h mTz %;+|L
mov ah,48h ];Z)=y,vM
int 13h nBI?~hkP3
Tz4,lwuWX7
lea bx,msgcyl rmu5K$pl
mov dx,bx = I,O+^
mov ah,09 +D[|L1{xb
int 21h !Y>lAx d
mov dx,cylinders B]L5K~d
call dispdx <k<K"{
<`i " 5`J
lea bx,msghds .+M J' bW
mov dx,bx =dx!R ,
Bw
mov ah,09 |!E >I
int 21h 'A;G[(SYy
mov dx,heads vH%AXz IA
call dispdx y >r7(qg
&PaqqU.
lea bx,msgspt K*&M:u6E
mov dx,bx ns [v.YDL
mov ah,09 'iA# l K G
int 21h eqU2>bI f
mov dx,spt+2 L6./b;
call dispdx SeN4gr*
mov dx,spt RbzSQr>a \
call dispdx
= .(yOUI
L^i=RGx
lea bx,msgtotal HS XS%v/Y
mov dx,bx %@#+Xpa+
mov ah,09
7cW9@xPe
int 21h L^bt-QbhO
lea bx,sectors ^E\{&ka Up
call dispqword gKeqf-UWKJ
_ *7h1[,{f
lea bx,msgss 8] skAh
mov dx,bx . <`i!Ls
mov ah,09 7zXFQ|TP
int 21h ^u&
oS1U
mov dx,sectorsize [zl@7X1{_
call dispdx GmP)"@O](;
#no~g( !o
sbb word ptr sectors, 63d ) DXN|<A
jnc subok 4e~^G
sub word ptr sectors+2,1 3 I&=1o
jnc subok gD1 0C,{
sub word ptr sectors+4,1 T]Z|Wq`bot
jnc subok N-`Vb0;N
sub word ptr sectors+6,1 gF-<%<RV
#"-?+F= rk
subok: >/mi#Y 6
h6<abT@I
l* >t@:2J
Jz7a|pgep
xor ax,ax 5b 45u 6
mov blocknumL, ax 6w(Mb~ [n
mov blocknumL+2, ax `bT!_ Ru
mov blocknumL+4, ax F-[zuYGp
mov blocknumL+6, ax ZUP \)[~
Gdmh#pv
startread: >$S P2(Y~
'?=SnjMX
call rwsect ,@kD9n5#
ma9q?H#X
adc word ptr blocknuml,63d BZq_o m6
jnc addok ' N^\9X0
adc word ptr blocknuml+2,1 g
NF8&T
jnc addok ! Ob
adc word ptr blocknuml+4,1 ^`~M f
jnc addok =M'M/vKD
adc word ptr blocknuml+6,1 I$/*Pt];
jnc addok rqW[B/a{
+^ a9i5
addok: HM57b
>6
mov ax, word ptr sectors+6 z%$ E6Im
cmp ax, blocknuml+6 A'r 3%mC
jg complete JTK>[|c9oE
jl startread psyxNM=dN#
mov ax, word ptr sectors+4 b~X^vXIv%%
cmp ax, blocknuml+4 b~fX =!M
jg complete ~,+n_KST;
jl startread ZycV?ob8}
mov ax, word ptr sectors+2 W,"|([t4.\
cmp ax, blocknuml+2 Z?X0:WK
jg complete x2x) y08
jl startread 1c_gh12
mov ax, word ptr sectors w}No ^.I*4
cmp ax, blocknuml Ri4t/H
jg complete ' QGacV
jl startread
=sy>_
J@D5C4>i
complete: @G p=9\L
U"$Q$ OFs
lea bx,msgready
R )i
mov dx,bx g? N~mca$
mov ah,09 7?Q@Hj(:NT
int 21 i e|I*;#
#=F"PhiX`
popa _nu,ks+
mov ax,3100h R apHE; <
int 21h qcMVY\gi
HUqG)t*c1
; vSty.:bY\p
dispdx proc near ! |SPOk
pusha } s)MDq9
lea bx, dsp+3 T= r-6e
N
mov cx,4 b`"E(S /
~^d. zIN!
repeat0: Q#C;4)e
mov al,dl ",/3P
T
and al,0fh <@i. ~EL
cmp al,09h r @ C2zF7
jg add40
Y g >W.wA
add al, 30h dmh6o *
jmp okadd z'@j9vT
add40: ' >(])Oq,
add al,37h
^0"^Xk*
okadd: GT\,
@$r
mov byte ptr [bx],al 1'ne[@i^/
dec bx RC 7|@a
shr dx,4 U'^AJ2L8
loopnz repeat0 d"3S[_U
lea bx,dsp :g)0-gN
mov dx,bx [h>|6%sW
mov ah,09h 50!/%
int 21h W>C! V
s ^NO(
popa QZy +`
ret hsV+?#I
dispdx endp FTM(y CN
we' <Y
dispqword proc near is=sV:j:
pusha dw
%aoe
mov cx ,4 x._IP,vRx^
add bx,6 /H#- \r&r
repeatdecbx: vZV+24YWb
mov dx,[bx] fw>@:m_bK
call dispdx WrK!]17or
sub bx,2 D|8vS8p
loopnz repeatdecbx u] C/RDTH
popa eXJt9olI
ret A
?"(5da.
dispqword endp !0ly1T 9
3:Bwf)*
rwsect proc near 6o@}k9AN
{\-rZb==F2
lea bx,msg ~3}Gu^@
mov dx,bx \s<7!NAE4
mov ah,09h {FzL@!||
int 21h IV{,'+hT
J
ytY6HF
lea bx,BlockNumL 36>pa
call dispqword /dTy%hZC}
OJd!g/V
lea di, packetsize ^NJ]~h{n$
mov dl,80h (;u tiupW
mov ah,42h 9hAS#|vK
int 13h Y"
9 o
jnc readok /l AB
KT n,}7vZ
mov cx,5 dz/'
m 7
;出错后重试(定位0道后再重读) w:Ui_-4*>
retryrd: x_ 9<&Aj6
lea bx, msgReadErr 1-Fg_G}|6
mov dx,bx P.*J'q 28
mov ah,09 =4GJYhj
int 21h 34VyR
a
RZ)sCR
b?Wg|D
lea di,dap0 4R!A.N 9
mov dl,80h mhnjY K9
mov ah,44h H5t 9Mg|
int 13h =PHl|^
8@%Xd^
lea bx,BlockNumL "8K
>Yu17
call dispqword b i^ h &H
}Ictnb
lea di, packetsize Ta #vD_QP
mov dl,80h 9 x WC<i
mov ah,42h $>E\3np
V
int 13h 97:1L4w.(
jnc readok ht c& !m
loopnz retryrd \8\)5#?
xGbr>OqkTX
readok: -_=0PW5{
lea di, packetsize qh
E zv~
mov dl,80h a] :tn:q
mov ah,43h pT]M ]/y/:
int 13h YArNJ5z=
SsA;T5:6
rwsect endp iO=xx|d
w +V e T @
code ends ;代码段结尾 gr %8
O-n
end start ;结束汇编 UnNvlkjq9
?]gZg[
