第一个宏汇编程序 GVfRy@7n
7P]i| Q {
工作后不久，单位里我所在的小组有了一台浪潮0520(XT兼容机)，有了硬盘，有了汇编编译程序，就开始玩汇编了。当然那时的主要工作是用dBASEIII，这个我已经在读研期间自学会了，读了一本关于dBASEIII plus的英文书，编个dBASE/FoxBASE程序已经是小菜一碟了。 \U##b~Z,g
<$d2m6 J
那时候的硬盘老出点问题，经常碰上个“Error reading data....” 啥的小毛病，但是换又不方便而且很贵。PCTOOLS与NORTON DISKEDIT扫描盘比较慢。我就自己写了一个磁盘扫描程序。算是用汇编写的第一个正式的有点用处的程序吧！ 1.TIUH1
{?"X\5
n0
这也是我现在电脑里唯一一个汇编语言的程序了，其它都随着磁盘来回更换丢了。所以，还是在老大这里存一份留个纪念吧！ <":83RCS
1hzf+*g
比较长啊！所以可以自动跳过。 VLJ]OW8cO
b"nkF\P@Fj
.286 ?* ZQ:jH
.radix 16 I!SIy&=W
data segment ;定义数据段 ;mC|> wSZ
B I=5
7
9+/D\|"{
msg db 0dh, "Reading sector:$" {fjBa,o
#
msg1 db 0dh, "Writing sector:$" 0d1!Q!PH3
msgready db 0dh,0a,0dh,0a,"Reading/Writing completed!", 0dh,0a, "$" s_^N=3Si
KZa6*,, s
dsp db " $"
p.b#RY
kUfb B#.5L
;DAP fjY:u ,5V_
PacketSize db 16d; // 数据包尺寸(16字节) H!Dj.]T
Reserved db 0; // ==0 oOaLD{g>
BlockCount dw 63d; // 要传输的数据块个数(以扇区为单位) mn*}U R
BufferAddr dw 0,0 ; // 传输缓冲地址(segment:offset) $s-
B
BlockNumL Dw 0,0; // 磁盘起始绝对块地址 4wGBB{X
BlockNumH Dw 0,0; // 磁盘起始绝对块地址 %oW G"u
lCBH3-0^
;定位用DAP （复位到0磁道） Zj_2B_|WN#
DAP0 db 16d e+:X%a4\
db 0 ;=k{[g 'gv
dw 1 wG6Oz2(
buff1 dw 0,0 L\5:od[E
P
dw 0,0,0,0 kD7'BP/#
h:sf?X[
TjI&8#AWBA
;DiskParameters 5NhAb$q2Y
infosize dw 26d; WORD InfoSize; // 数据包尺寸 (26 字节) DtJ3`Jd
falgs dw 0; WORD Flags; // 信息标志 ZkO2*;
Cylinders DW 0; DWORD Cylinders; // 磁盘柱面数 VJl0UM3{J
Heads DW 0; DWORD Heads; // 磁盘磁头数 lY2~{Y|4s
SPT Dw 0,0; DWORD SectorsPerTrack; // 每磁道扇区数 dB S_N/
Sectors Dw 0,0,0,0; QWORD Sectors; // 磁盘总扇区数 2##mVEo.(
SectorSize DW 0; WORD SectorSize; // 扇区尺寸 (以字节为单位) ] SLeWs
G9G HBwT
cmpsect dw 0 y u &mu CA
6y57m;JW/
msgcyl db 0dh,0a,"Disk Parameters",0dh,0a,"Total Cylinders:$" s^4wn:*$zd
msgHds db 0dh,0a,"Heads:$" Qw
ve-[
msgspt db 0dh, 0a,"SectorsPerTrack:$" o*2Mjd]r
msgTotal db 0d,0a, "Total Sectors:$" teC/Uf 5
msgSS db 0dh,0a, "Sector Size:$" (44L8)I.D
uy~$
: 0o
msgReadErr db 0dh,0a,"Error Reading Sectors:$" ` N
R,8F
msgWriteErr db 0dh,0a, "Error Writing Sectors:$" #2$wI^O
msgReset db 0dh,0a, "Reseting drive to Cyl 0" =e0MEV#s.
4'`H H
qg|ark*1u
buffer db 32768d dup(0); jeJspch+#
L3'isaz&^
data ends ;数据段结尾 E1dhj3+3
h9!4\{V;h
stack segment :RwURv+ kT
db 400 dup(?)
+U%epq
stack ends PgHmOs
94|ZY }8|f
code segment ;定义代码段 7=Pj}x)
assume cs:code ;规定cs的内容 ,4 q ^(
assume ds:data ;规定ds的内容
H K J^6|'
assume ss:stack hJ8% r_
3<N2 ehi?
start: eVB43]g
pusha DY{v@
<3
F! C n'*
\I^"^'CP
mov ax,data ;程序从start开始 T 1_B0H2
mov ds,ax ;ds置初值,data的段地址 m,J
IId%O
D:?"Rf{)
;设置缓冲区 R0F [
lea bx, buffer I+S fZ:q ^
mov bufferaddr,bx _n{_\/A6 f
mov buff1,bx BwGOn)KL
mov bx,ds /q,=!&f2
mov bufferaddr+2,bx H q?F @X
mov buff1,bx ;b. m X
;uv$>F auk
lea di,infosize
cfRUVe
mov dl,80h m1X*I
mov ah,48h % tC[q
int 13h ~ 4Mz:h^
lj:.} +]r
lea bx,msgcyl 2X*n93AQi
mov dx,bx ld):Am}/o
mov ah,09 p#-= mXE/2
int 21h {K}Dpy
mov dx,cylinders S3$C#mHX
call dispdx >j*0fb!:]
a=x &sz\x
lea bx,msghds g{u
iY|
mov dx,bx r dtzz#7
mov ah,09 "%S-(ue:
int 21h m-+>h:1b|9
mov dx,heads A f!`7l-
call dispdx V S_\bIC
#<U@SM
v
lea bx,msgspt ]YfG`0eK<
mov dx,bx TU6YS<
mov ah,09 b$_qG6)IJO
int 21h #$L/pRC
mov dx,spt+2 "gzn%k[D9m
call dispdx z@?y(E
mov dx,spt |1/8m/2Af.
call dispdx 'HCR i
Z<
vILB$%I
lea bx,msgtotal qm'@o -[
mov dx,bx .F2
" tt?'
mov ah,09 m7Ry FnR2
int 21h @g]+$Yj
lea bx,sectors cKOXsdH?SL
call dispqword ^eefR5^_w
6}0_o[23
lea bx,msgss 59v=\; UI
mov dx,bx o4@d,uIw^
mov ah,09 vb]uO ' l
int 21h Y C<FKWc
mov dx,sectorsize w7Mh8'P54
call dispdx 2"j&_$#l5X
Ey%
[t
sbb word ptr sectors, 63d \
bWy5/+
jnc subok lbw+!{Ch
sub word ptr sectors+2,1 m=v.< +>
jnc subok $sZ4r>-
sub word ptr sectors+4,1 dM19;R@4
jnc subok g
4|ai*^
sub word ptr sectors+6,1 f)gV2f0t
=|dm#w_L"
subok: mA_EvzXk\
`[XH =-p
Ov4 [gHy&
heB![N0:
xor ax,ax |2 =w":2#
mov blocknumL, ax g>' 6"p;
mov blocknumL+2, ax qu]a+cYY
mov blocknumL+4, ax 7;C~>WlU
mov blocknumL+6, ax c,ct=m.|6A
R/Sm
startread:
fCnwDT
'J!Gip ,
call rwsect [D (JEO@ :
p]?eIovi
adc word ptr blocknuml,63d )8n
?.keq
jnc addok gp~-n7'~O
adc word ptr blocknuml+2,1 ZCb@!V}=
jnc addok B|+%
ExT7
adc word ptr blocknuml+4,1 r2PN[cL u|
jnc addok
j0O1??
adc word ptr blocknuml+6,1 B# .xs>{N
jnc addok -*Qg^ 1]i+
mo= @Zt
addok: 'O9Yu{M
mov ax, word ptr sectors+6 (!0_s48f
cmp ax, blocknuml+6 VkJ TcC:1
jg complete 3m2y<l<
jl startread 45iO2W uur
mov ax, word ptr sectors+4 dS \n 2Qb
cmp ax, blocknuml+4 h.Sb ds
jg complete kK
5~hpv
jl startread \ $t{K
mov ax, word ptr sectors+2 .i*ja*
cmp ax, blocknuml+2 9$ VdYw7D
jg complete 7lJ8<EP9
u
jl startread 4`cf FowK~
mov ax, word ptr sectors q$IU!I4
cmp ax, blocknuml uC#] F@
jg complete NNTrH\SU #
jl startread TaKHr$h
u:J4Az^!
complete: RZSEcRlN
^h#A7 g
lea bx,msgready >yqEXx5{
mov dx,bx J
p%J02
mov ah,09 K;s`
int 21 2t
/k^j'MMQs6
popa wN6sica|
mov ax,3100h .> PwbZ
int 21h i= M[$
eecIF0hp
; 3/&
|Z<f
dispdx proc near ;ByCtVm2
pusha z~v-8aw
lea bx, dsp+3 B>z^W+Unyn
mov cx,4 E%stFyr9`/
F8{T/YhZ
repeat0: @y0kX<M
mov al,dl rXip"uz(K>
and al,0fh h"}F3E
cmp al,09h m9j jKu]|
jg add40 ?Iaqbt%2
add al, 30h s k~7"v{Y.
jmp okadd `Pwf?_2n-
add40: E )X_
add al,37h FT}^Fi7
okadd: Gz8JOl
mov byte ptr [bx],al 2(e;pM2Dq
dec bx /B F7N3
shr dx,4 Pl# u ,Y
loopnz repeat0 9c1q:> |
lea bx,dsp >qGWDCKr
mov dx,bx Bxj4rC[
mov ah,09h N "
eK9>
int 21h ~{kA;uw
6(1
&
6|o3
popa 8
?:W{GAo
ret je>gT` 8
dispdx endp - ~lrv#5Q
KK -+vq
dispqword proc near _n4`mL8>kH
pusha YxA nh
mov cx ,4 !ue h%V Ky
add bx,6 P/]8+_K
repeatdecbx: =FFs8&PKys
mov dx,[bx] A^0-%Ygl
call dispdx V2tA!II-s
sub bx,2 ^BI&-bR@
loopnz repeatdecbx 4xFAFK~lx
popa oW( 8bd)
ret c] z^(:_>
dispqword endp miCY?=N`
w
Jvk
rwsect proc near 8 -b~p
o(t`XE['<
lea bx,msg F%{z E ANm
mov dx,bx CaoQPb*
mov ah,09h ZC ^?ng
int 21h wjOqCF
"
}:0HM8B7!
lea bx,BlockNumL HDu|KW$o1
call dispqword Kj6+$l
0{?%"t\/f
lea di, packetsize Th~pju
mov dl,80h A? )(^
mov ah,42h Q-U,1b
int 13h }JT&lyO< b
jnc readok 8@T0]vH&
(KfdN'vW
mov cx,5 >Wpd q( o
;出错后重试(定位0道后再重读) Xa&:Hg<
retryrd: 7bJM
$
lea bx, msgReadErr Ag1nx V1M$
mov dx,bx
$.B}zY{
mov ah,09 kaDn=
={YM
int 21h (ijO|%?
F{}:e QD
:n
x;~f
lea di,dap0 > 4#\ U!
mov dl,80h nXxnyom,
mov ah,44h g)MLgjj
int 13h )
S_ %Ip
dQ<e}wtg
lea bx,BlockNumL 5=4-IO6W[]
call dispqword
.=c@ps
Ja@ ?.gW
lea di, packetsize L;KLmxy#
mov dl,80h DFGgyF ay
mov ah,42h tfe'].uT
int 13h -OfAl~ 4
jnc readok %u]>K(tU
loopnz retryrd 8R;E+B{
PKs$Q=Ol<|
readok: vha@YP
C=
lea di, packetsize #`"B
YFV[E
mov dl,80h lPl JL`e
mov ah,43h I+Fr #1
int 13h q93V'[)F
uuCVI2|
rwsect endp )9!ZkZbv_m
>>=v `}
code ends ;代码段结尾 M49Hm[0(
end start ;结束汇编 Io
_7
a1weTn*
