第一个宏汇编程序 xzZ38xIhV
Z//+Gw<'
工作后不久，单位里我所在的小组有了一台浪潮0520(XT兼容机)，有了硬盘，有了汇编编译程序，就开始玩汇编了。当然那时的主要工作是用dBASEIII，这个我已经在读研期间自学会了，读了一本关于dBASEIII plus的英文书，编个dBASE/FoxBASE程序已经是小菜一碟了。 MsGM5(r:b
//<nr\oP
那时候的硬盘老出点问题，经常碰上个“Error reading data....” 啥的小毛病，但是换又不方便而且很贵。PCTOOLS与NORTON DISKEDIT扫描盘比较慢。我就自己写了一个磁盘扫描程序。算是用汇编写的第一个正式的有点用处的程序吧！ FXN/Yq
N
yj( 0W
这也是我现在电脑里唯一一个汇编语言的程序了，其它都随着磁盘来回更换丢了。所以，还是在老大这里存一份留个纪念吧！ h P)LY=- 2
M
z~D#6=
比较长啊！所以可以自动跳过。 !XCm>]R
|3[Wa^U5
.286 dl@%`E48w
.radix 16 hUMf"=q+
data segment ;定义数据段 vucxt }Ti
]cMqahaY
D"?fn <2
msg db 0dh, "Reading sector:$" fs%. }^kn
msg1 db 0dh, "Writing sector:$" $ ,}E
msgready db 0dh,0a,0dh,0a,"Reading/Writing completed!", 0dh,0a, "$" T7u%^xm
lun\`f 5Q
dsp db " $" t+iHQfuP9A
*P2S6z 2
;DAP <drODjB
PacketSize db 16d; // 数据包尺寸(16字节) $!yW_HTx
Reserved db 0; // ==0 B%76rEpvW;
BlockCount dw 63d; // 要传输的数据块个数(以扇区为单位) jesGV<`?l
BufferAddr dw 0,0 ; // 传输缓冲地址(segment:offset) ^R
Fp8w(
BlockNumL Dw 0,0; // 磁盘起始绝对块地址 ^y1j.M@q
BlockNumH Dw 0,0; // 磁盘起始绝对块地址 m6CI{Sa](l
usCt#eZK
;定位用DAP （复位到0磁道） O7<]U_ "I
DAP0 db 16d s<eb;Z2D
db 0 . QJ 5sgmh
dw 1 {U m) 15K
buff1 dw 0,0 ?9\EN|O^
dw 0,0,0,0 e s&
vMY
K[r^'P5m
H'
HA+q
;DiskParameters }h!f
eP
infosize dw 26d; WORD InfoSize; // 数据包尺寸 (26 字节) b@ f$nS
B
falgs dw 0; WORD Flags; // 信息标志 s`'{I8'p/
Cylinders DW 0; DWORD Cylinders; // 磁盘柱面数 T<p !5`B 1
Heads DW 0; DWORD Heads; // 磁盘磁头数 CtAw
BQO
SPT Dw 0,0; DWORD SectorsPerTrack; // 每磁道扇区数 =4PV;>X
Sectors Dw 0,0,0,0; QWORD Sectors; // 磁盘总扇区数 kB|B
SectorSize DW 0; WORD SectorSize; // 扇区尺寸 (以字节为单位) /
qGf 1MHD
/+;h)3PN6
cmpsect dw 0 =mpV YA
5r8< 7g:>C
msgcyl db 0dh,0a,"Disk Parameters",0dh,0a,"Total Cylinders:$" uIZ -#q
msgHds db 0dh,0a,"Heads:$" D9
|n)f
msgspt db 0dh, 0a,"SectorsPerTrack:$" pd;br8yE$@
msgTotal db 0d,0a, "Total Sectors:$" \GZM&Zd
msgSS db 0dh,0a, "Sector Size:$" 9Ujo/3,Ak
^ xh ;
msgReadErr db 0dh,0a,"Error Reading Sectors:$" fNt`?pW H
msgWriteErr db 0dh,0a, "Error Writing Sectors:$" HxK80mJ
msgReset db 0dh,0a, "Reseting drive to Cyl 0" #32"=MfQn
A}N?/{y)G
t@N=
kV
buffer db 32768d dup(0); HbA kZP
lXiK Y@R#
data ends ;数据段结尾 -w_QJ_ z_
P} SCF
stack segment ime\f*Fg
db 400 dup(?) DYxCQ
D
stack ends oxkoA
Z}l3l`h!
code segment ;定义代码段 v+`N*\J_
assume cs:code ;规定cs的内容 OF
v%B/O
assume ds:data ;规定ds的内容 iS Gq!D
assume ss:stack a8iQ4
tlqiXh<
start: Oz`BEy b]{
pusha ^, _w$H
NzSoqh{R
,\ k(x>oy
mov ax,data ;程序从start开始 C:C}5<fk x
mov ds,ax ;ds置初值,data的段地址 lWc:$qnR-K
Vq\ `+&A
;设置缓冲区 E}p&2P+ MR
lea bx, buffer au=o6WRa
mov bufferaddr,bx s<_)$}
mov buff1,bx 2h1C9n%j9
mov bx,ds W 7\f1}]H
mov bufferaddr+2,bx K]0:?h;%Ld
mov buff1,bx +hT:2TXn
*HO}~A%Lx
lea di,infosize ytoo~n
mov dl,80h /bi[ e9 R
mov ah,48h @EpIh&
int 13h `t9?
=h!
M) N?qRD
lea bx,msgcyl O_
DtvjI'
mov dx,bx @ &:ar
mov ah,09 x+x40!+\
int 21h "C19b:4H
mov dx,cylinders 0# &5.Gr)
call dispdx ie\"$i.98H
fb8g7H|
lea bx,msghds V'T ,4
mov dx,bx *ikc]wQr$
mov ah,09 t&CJ% XP
int 21h -}=%/|\FG
mov dx,heads af+IP_6
.
call dispdx
l q&wXi
qA $*YIlK
lea bx,msgspt FCuB
\ Q
mov dx,bx 0F|AA"mMT
mov ah,09 O#k6' LN?
int 21h 2.zsCu4lj.
mov dx,spt+2 ~ZhraSI) G
call dispdx TXk?#G \o
mov dx,spt
/8g^T"
)
call dispdx
4 G-wd
g,95T Bc
lea bx,msgtotal [[Fx[
mov dx,bx qI<mjB{3`
mov ah,09 muZ~*kMc
int 21h /[)qEl2] K
lea bx,sectors H {k^S\K
call dispqword ul2")HL];
rIh l.5Y
lea bx,msgss O0No'LVu
mov dx,bx ay
D}r#7
mov ah,09 k_q0Q;6w!l
int 21h %.
,=maA
mov dx,sectorsize k
|%B?\m
call dispdx FPI;Jx6W'
k"]dK,,
sbb word ptr sectors, 63d .CU5}Tv -
jnc subok .wu
xoq
sub word ptr sectors+2,1 {v2|g
jnc subok YmgL zGk`
sub word ptr sectors+4,1 ?zVL;gVWA
jnc subok ^8Q62
sub word ptr sectors+6,1
mvZw
M8Z2Pg\0
subok: SNE#0L ' }
>U*T0FL7
)'%$V%9
:Q_<Z@2Y{
xor ax,ax D'A/wG
mov blocknumL, ax #K Xa& C
mov blocknumL+2, ax @8^[!F
mov blocknumL+4, ax >W`4aA
mov blocknumL+6, ax 8C~ ]yd
Z->p1xkX
startread: kO{s^_qR^c
l0cA6b
call rwsect [E
JQ>?D
[tA;l+Q\&
adc word ptr blocknuml,63d \z7SkZt,GT
jnc addok q51Uf_\/
adc word ptr blocknuml+2,1 ";Rtiiu
jnc addok p2udm! )J
adc word ptr blocknuml+4,1 9 F m"ei
jnc addok }S$ @ Ez6
adc word ptr blocknuml+6,1 <5jzl
jnc addok .dQQoyR+O
OYmR<x5y/
addok: dW~*e2n
q
mov ax, word ptr sectors+6 WjwLM2<nK7
cmp ax, blocknuml+6 ux3<l +jv^
jg complete o1Q7Th
jl startread `Ru3L#@
mov ax, word ptr sectors+4 a|=x5`h04~
cmp ax, blocknuml+4 FE! lok
jg complete fUQ6Z,9
jl startread zs*L~_K
mov ax, word ptr sectors+2 `zXO_ @C
cmp ax, blocknuml+2 yH*6@P4:0=
jg complete EEZw_ 1
jl startread q]N:T
pm9
mov ax, word ptr sectors ,|plWIl~
cmp ax, blocknuml C[Dav&=^F
jg complete )!:Lzi
jl startread x,S
P'f cP
MFm"G
complete: )
^3avRsC
E7)= `kSl
lea bx,msgready qfz 8jY]
mov dx,bx FMk zrs
mov ah,09 .h5[Q/*h
int 21 oK%K}{`
5
Ho^N1q
popa )R
2.
mov ax,3100h A\#P*+k 0
int 21h F a_VKAq
hk;7:G
; jR#~I@q^
dispdx proc near {=-\|(Bx
pusha Zg`Mz
_?
lea bx, dsp+3
=xJKIu
mov cx,4 IGFR4+
OP|8S k6
r
repeat0: ^: * 1d
\
mov al,dl L^4-5 `gj
and al,0fh ZMLg;-T.&4
cmp al,09h
n>`as
jg add40 i?:_ :"^x
add al, 30h j SuL5|Gui
jmp okadd s)2fG\1
add40: -s$F&\5by
add al,37h ['*8IWg
okadd: /<8N\ _wh
mov byte ptr [bx],al 70mpSD3
dec bx QZhj b
shr dx,4 Vy,^)]
loopnz repeat0 jDN ]3Y`
lea bx,dsp njnDW~Snb
mov dx,bx k{$ ao
mov ah,09h 1=a>f "cyf
int 21h aKJQm '9Ks
ku
a)
K!
popa 1`9xIm*9w
ret TdG nf
dispdx endp ]mXLg:3B
zyg
}F
dispqword proc near 9Q-*@6G
pusha b2=0}~LK
mov cx ,4 M7+h(\H]2
add bx,6 ?zJOh^
repeatdecbx: t/PlcV_M"
mov dx,[bx] \VFHHi:I
call dispdx p/
>` [I
sub bx,2 [e4]"v` N
loopnz repeatdecbx Q;J`Q wkH
popa V@Q K
ret 1G'`2ATF*
dispqword endp iTg; 7~1pY
y tf b$;|
rwsect proc near 1#4PG'H
}Lw>I94e
lea bx,msg {Pu\?Cq
mov dx,bx !'*cs
g
mov ah,09h T' aec]u
int 21h O8W7<Wc |z
k') E/n
lea bx,BlockNumL H7k PM[
call dispqword 2 ',w[I
2{.QjYw^
lea di, packetsize ?kz+R'
mov dl,80h z|(+|pV(
mov ah,42h yj(vkifEB
int 13h N9<Ujom
jnc readok wB{;b B{
+/;*|
mov cx,5 1uk 0d`JL
;出错后重试(定位0道后再重读) " A)( "
retryrd: a`u
S[r>
lea bx, msgReadErr ?}Lg)EFH
mov dx,bx rUjdq/I:Z
mov ah,09 GzTq5uU&
int 21h ~b|`'kU
}O4se" xK
E|$Oha[
lea di,dap0 08m;{+|vY
mov dl,80h nPgeLG"00
mov ah,44h o(Cey7
int 13h on7I
l
A=-F,=k(!/
lea bx,BlockNumL xlR2 |4|8
call dispqword OcSEo7W
6 Ik,zQL
lea di, packetsize
2. X
" f
mov dl,80h DK&h
eVIoZ
mov ah,42h :ECi+DxBK
int 13h m G1 IQ!
jnc readok 0G2g4DSKD
loopnz retryrd sW^a`VM
;|cTHGxbE
readok: KYxBVgJ
lea di, packetsize ^U8r0]9
mov dl,80h >u(>aV|A
mov ah,43h 9r2IuS0
int 13h $.489x+'Z
h`} 3h<
8
rwsect endp 7gS1~Q4\V2
2w$t wW-
code ends ;代码段结尾 f0LP?]
end start ;结束汇编 @ E53JKYhY
HOp-P8z
