第一个宏汇编程序 qfL-r,XS`F
e~\QE0Oe :
工作后不久，单位里我所在的小组有了一台浪潮0520(XT兼容机)，有了硬盘，有了汇编编译程序，就开始玩汇编了。当然那时的主要工作是用dBASEIII，这个我已经在读研期间自学会了，读了一本关于dBASEIII plus的英文书，编个dBASE/FoxBASE程序已经是小菜一碟了。 8X7{vN_3K
R>)MiHcCg
那时候的硬盘老出点问题，经常碰上个“Error reading data....” 啥的小毛病，但是换又不方便而且很贵。PCTOOLS与NORTON DISKEDIT扫描盘比较慢。我就自己写了一个磁盘扫描程序。算是用汇编写的第一个正式的有点用处的程序吧！ pGWA\}'
WeT* C
这也是我现在电脑里唯一一个汇编语言的程序了，其它都随着磁盘来回更换丢了。所以，还是在老大这里存一份留个纪念吧！ OtUr GQP
d53 L65[
比较长啊！所以可以自动跳过。 }ot"Sx\.
w:ULi3
.286 5cfA;(H
.radix 16 F JS'G^
data segment ;定义数据段 O!R"v '
LAs7>hM
')#,X^
msg db 0dh, "Reading sector:$" Dpqt;8"2L
msg1 db 0dh, "Writing sector:$" VWf %v
msgready db 0dh,0a,0dh,0a,"Reading/Writing completed!", 0dh,0a, "$" x8[MP?W z
Dy9\O77>
dsp db " $" 79 Bg]~}Z
HFtf
;DAP @LX6hm*}
PacketSize db 16d; // 数据包尺寸(16字节) 3<(q }
Reserved db 0; // ==0 :jem~6i
BlockCount dw 63d; // 要传输的数据块个数(以扇区为单位) lrEj/"M
BufferAddr dw 0,0 ; // 传输缓冲地址(segment:offset) LtKB v 4
BlockNumL Dw 0,0; // 磁盘起始绝对块地址 VcgBLkIF
BlockNumH Dw 0,0; // 磁盘起始绝对块地址 ;e s^R?z
zCe/Kukvy
;定位用DAP （复位到0磁道） -l*g~7|j
DAP0 db 16d }E&NPp>
db 0 g rcbH
dw 1 UQ8bN I7
buff1 dw 0,0 'Z
8aPHD
dw 0,0,0,0 '
fW#7W
\2 !!L=&4G
d#_m.j
;DiskParameters `~F5 wh~
infosize dw 26d; WORD InfoSize; // 数据包尺寸 (26 字节) 8L {u}|{
falgs dw 0; WORD Flags; // 信息标志 Tj`5L6N;8
Cylinders DW 0; DWORD Cylinders; // 磁盘柱面数 i g71/'D
Heads DW 0; DWORD Heads; // 磁盘磁头数 _PXdzeI.
SPT Dw 0,0; DWORD SectorsPerTrack; // 每磁道扇区数 y!Cc?$]_Y
Sectors Dw 0,0,0,0; QWORD Sectors; // 磁盘总扇区数 M'5 'O;kn
SectorSize DW 0; WORD SectorSize; // 扇区尺寸 (以字节为单位) ^PqF< d6
mh` |=M]8E
cmpsect dw 0 SN">gmY+
{]/8skov5]
msgcyl db 0dh,0a,"Disk Parameters",0dh,0a,"Total Cylinders:$" #}yTDBt
msgHds db 0dh,0a,"Heads:$" ;5S}~+j
msgspt db 0dh, 0a,"SectorsPerTrack:$" H7& xLYQ2
msgTotal db 0d,0a, "Total Sectors:$" SBf FZw)
msgSS db 0dh,0a, "Sector Size:$" lpC
@I^:
1(gfdx9|b
msgReadErr db 0dh,0a,"Error Reading Sectors:$" T{
Zwm!s
msgWriteErr db 0dh,0a, "Error Writing Sectors:$" _a
-]?R
msgReset db 0dh,0a, "Reseting drive to Cyl 0" 1Ix 3i9
B@K[3
jj&s} _75
buffer db 32768d dup(0); Fvl`2W94;
! -tz4vjw
data ends ;数据段结尾 d/U."V}
yp]@^T N
stack segment ST',4 Oph5
db 400 dup(?) T[uDZ Yx
stack ends ] |Z b\{
*y7 $xa4
code segment ;定义代码段 $RO$}!
assume cs:code ;规定cs的内容 <@#PF$!
assume ds:data ;规定ds的内容 H%i>L?J2 /
assume ss:stack o'= VZT9
M <`|CVl
start: Oh!(@
pusha -T_\f?V8
8
pj{\T?(
5M){!8"S)#
mov ax,data ;程序从start开始 t&RruwN_;
mov ds,ax ;ds置初值,data的段地址 XW~bu2%{7"
$ |<m9CW
;设置缓冲区 *"9<TSU%m
lea bx, buffer !{%G0(Dv
mov bufferaddr,bx tFh|V
pB
mov buff1,bx 4<v;1
mov bx,ds Q< *8<Oo4g
mov bufferaddr+2,bx \ V%_h l
mov buff1,bx H~fdbR
8tc*.H{^+
lea di,infosize CEt
R[Cu
mov dl,80h /L~m#HxWU
mov ah,48h < o I8-f
int 13h ,0? !ov|
8A2 z 5Aa
lea bx,msgcyl Q:o 7G|C
mov dx,bx ]7/gJ>g,
mov ah,09 c@du2ICUc
int 21h cf;H t^M\
mov dx,cylinders ')TPF{\#
call dispdx m4/er539T
cyF4iG'M,y
lea bx,msghds T@ 48 qg
mov dx,bx 0|Uc d
mov ah,09 _<Dt
z
int 21h hnxc`VX>g
mov dx,heads ?d- 70pm
call dispdx l5O=VqCj
v 81rfB5
lea bx,msgspt "4 k-dj
mov dx,bx F[E? A95W
mov ah,09 NPJ.+ph
int 21h ^Kq|ID
AP
mov dx,spt+2 kBsXfVs9
call dispdx f&I7
,"v
mov dx,spt HnZP w&*
call dispdx v5$s#f<
Y;Y 1+jt
lea bx,msgtotal <^>< 3U`
mov dx,bx ")`S0n5e
mov ah,09 .[j %sGdKl
int 21h Wmz`& nsn[
lea bx,sectors 6?gi_3g
call dispqword a G27%(@
)"u:ytK{
lea bx,msgss SkP[|g
'56
mov dx,bx ]0 ~qi@
mov ah,09 n9oR)&:o
int 21h JF9Hfs/
jS
mov dx,sectorsize =_-C%<4
call dispdx w~@[ r4W
5P ke8K
sbb word ptr sectors, 63d `gguip-C
jnc subok p@I9< ^"
sub word ptr sectors+2,1 _ l&ucA
jnc subok Cvn$]
bt/s
sub word ptr sectors+4,1 P_Uutn ~
jnc subok 7
.+al)hl
sub word ptr sectors+6,1 ?2`$3[ET-
xFb3O|TC
subok: .W.;~`EW
L.)yXuo4
J!p<oW)a!
ti_u!kNv
xor ax,ax d-$_|G+
mov blocknumL, ax KD*O%@X5C
mov blocknumL+2, ax k0ItG?Cv
mov blocknumL+4, ax +{-]P\oc
mov blocknumL+6, ax bZ5n,KQA5
ExrY>*v
startread: VifmZ;S@Y
#A<"4#}
call rwsect ! D1zXXq
tOg=zXm
adc word ptr blocknuml,63d pj|X]4?wdI
jnc addok YoSQN/Z
adc word ptr blocknuml+2,1 -!dQ)UEP
jnc addok L;)v&a7[P
adc word ptr blocknuml+4,1 +R\~3uj[7
jnc addok =,:K)
adc word ptr blocknuml+6,1 GU6 qIz|
jnc addok Bc
^4 T1
m &E l)
addok: "tR}j,=S:D
mov ax, word ptr sectors+6 5~}!@yzc
cmp ax, blocknuml+6 9g@
NcJ]
jg complete |]uc HV
jl startread 3 M
N
mov ax, word ptr sectors+4 0m=(W^c
cmp ax, blocknuml+4 }76.6=~
jg complete 80&D"
"
jl startread =5s$qb?#
mov ax, word ptr sectors+2 , wK 1=7
cmp ax, blocknuml+2 v33T @
jg complete > oY^Gx
jl startread !J^tg2M8:
mov ax, word ptr sectors p_6P`Yx^e
cmp ax, blocknuml p VG>A&4
jg complete 7),*3c ')
jl startread p24.bLr
T$ c
+m\j6
complete: 08r[K(bfb,
pxplWP,
lea bx,msgready Rx S884
mov dx,bx RVF F6N^
mov ah,09 !0jq6[&
int 21 4iBxPo( 0
fVUKvZ}P*
popa A{`]& K1u
mov ax,3100h W_JhNe
int 21h hqW$k w
fPz=KoN
; r)B3es&&
dispdx proc near |- OHve4A
pusha Vy;_GfT$
lea bx, dsp+3 l l:jsm
mov cx,4 e _.~n<=
t9D
S]Li
repeat0: ;=p;v .l
mov al,dl 2OC dG
and al,0fh {B ^pnLc
cmp al,09h Sx&mv.?X
jg add40 [%~NM/xu<
add al, 30h Q
p+lJAY
jmp okadd gb-tNhJa@b
add40: t2.juoI(
add al,37h A u=kSSB
okadd: }t
d6fj_{
mov byte ptr [bx],al NG)7G
dec bx X_?%A54z?
shr dx,4 `A{'s %$?!
loopnz repeat0 @:gl:mc
lea bx,dsp Z;J`5=TS
mov dx,bx 4
mov ah,09h *k6$
int 21h vKkf2 7
rWe
8D/oc
popa P>W8V+l![
ret 0O;
Z
dispdx endp { _X#fq0}
uI9lK
dispqword proc near .v
l="<
pusha (`mOB6j
mov cx ,4 h/=-tr
add bx,6 v=Mz I#0L
repeatdecbx: n /-N;'2J
mov dx,[bx] sZm^&h;
call dispdx 9|a)sb7/
sub bx,2 ca}S{"
loopnz repeatdecbx 8A_TIyh?
popa me$$he
ret T &*eOr
dispqword endp Tw}z7U"
M6x;BjrV
rwsect proc near .~ ,^u
0 r3N^_}
lea bx,msg >fwlg-
mov dx,bx }wL3mVz
mov ah,09h P:a*t[+
int 21h h7RD `k:mF
!Bncx`pl
lea bx,BlockNumL Dauo(Uhuo
call dispqword Z@nmjj i
^Kum%<[i
lea di, packetsize \S5V}!_
mov dl,80h _w%s(dzk
mov ah,42h u[J7Y
int 13h |wJ),h8/
jnc readok !vrnoFVu
x`3. Wu\
mov cx,5 cJV!> 0ua
;出错后重试(定位0道后再重读) nOr"K;C
retryrd: 4ioN A/E
lea bx, msgReadErr %w@ig ~vD'
mov dx,bx F]SIT\kBm
mov ah,09 2dyxKK!\a
int 21h rr4
_8Rf
%Fm`Y .l
b)y<.pS\
lea di,dap0 hhj
,rcsi
mov dl,80h C=EhY+5
mov ah,44h |nfH-JytV
int 13h Xr)g
c0h
dLl; 5
lea bx,BlockNumL )w@y(;WJ
call dispqword =Zrj K=K
N$ *>suQ,
lea di, packetsize cWc$ yE'
mov dl,80h ^ CX,nj_(
mov ah,42h WMA*.$Zi
int 13h E =
^-Z
jnc readok *fOIq88
loopnz retryrd "mG!L$
EyPy*_A
readok: 8 ZzU^x
lea di, packetsize P^n{Y ~P=Q
mov dl,80h 9Mut p4#
mov ah,43h ]q37
H j
int 13h rcW#6VZ=
@OrXbG7&>#
rwsect endp =mAGD*NK
u
BiI{8`M!$x
code ends ;代码段结尾 E.Pje@d
end start ;结束汇编 ":z@c,
U(8I+xZ
