第一个宏汇编程序 > uy(N
;/s##7qf
工作后不久，单位里我所在的小组有了一台浪潮0520(XT兼容机)，有了硬盘，有了汇编编译程序，就开始玩汇编了。当然那时的主要工作是用dBASEIII，这个我已经在读研期间自学会了，读了一本关于dBASEIII plus的英文书，编个dBASE/FoxBASE程序已经是小菜一碟了。 ^P~NE#p5
FL?Ndy"I
那时候的硬盘老出点问题，经常碰上个“Error reading data....” 啥的小毛病，但是换又不方便而且很贵。PCTOOLS与NORTON DISKEDIT扫描盘比较慢。我就自己写了一个磁盘扫描程序。算是用汇编写的第一个正式的有点用处的程序吧！ Q35jJQ$<`
'eDV-cB
这也是我现在电脑里唯一一个汇编语言的程序了，其它都随着磁盘来回更换丢了。所以，还是在老大这里存一份留个纪念吧！ G+V?c1Me
gWLhO|y
比较长啊！所以可以自动跳过。 ;9"6g=q
5JggU
.286 G Eb m$
\
.radix 16 Z.E@aml\
data segment ;定义数据段 0Ma 3
ywkyxt
sMHP=2##
msg db 0dh, "Reading sector:$" sB+
B,DF
msg1 db 0dh, "Writing sector:$" oF {u
msgready db 0dh,0a,0dh,0a,"Reading/Writing completed!", 0dh,0a, "$" m#a1N
4khc
*fh
dsp db " $" D9/PVd&#
\VAm4
;DAP V:*6R/Ft
PacketSize db 16d; // 数据包尺寸(16字节) qku}cWD9/_
Reserved db 0; // ==0 M'>8P6O
BlockCount dw 63d; // 要传输的数据块个数(以扇区为单位) -![>aqWmj1
BufferAddr dw 0,0 ; // 传输缓冲地址(segment:offset) _<m yM2z
BlockNumL Dw 0,0; // 磁盘起始绝对块地址 6 ~.{~+Bd
BlockNumH Dw 0,0; // 磁盘起始绝对块地址 a"bael
\l71Q/y6u`
;定位用DAP （复位到0磁道） >4iVVs
DAP0 db 16d Jth W"{E
db 0 aYrbB#
dw 1 JK9 J;c#T
buff1 dw 0,0 /pYp, ak
dw 0,0,0,0 qfS
]vc_N
ipH'}~=ID
]!'9Y}9a
;DiskParameters dQ`=C Ir
infosize dw 26d; WORD InfoSize; // 数据包尺寸 (26 字节) 1%Su~Z"W>
falgs dw 0; WORD Flags; // 信息标志 I6lWB(H!u
Cylinders DW 0; DWORD Cylinders; // 磁盘柱面数 m>&:)K}m
Heads DW 0; DWORD Heads; // 磁盘磁头数 HBiUp$(mB
SPT Dw 0,0; DWORD SectorsPerTrack; // 每磁道扇区数 | |^+(
Sectors Dw 0,0,0,0; QWORD Sectors; // 磁盘总扇区数 CEl9/"0s6
SectorSize DW 0; WORD SectorSize; // 扇区尺寸 (以字节为单位) -]!zj#&
&)Z]nNVb
cmpsect dw 0 E;-*LT&{
CEEAyip-c
msgcyl db 0dh,0a,"Disk Parameters",0dh,0a,"Total Cylinders:$" "*J yNwf
msgHds db 0dh,0a,"Heads:$" {}DoRp q=
msgspt db 0dh, 0a,"SectorsPerTrack:$" 3#Qek 2
msgTotal db 0d,0a, "Total Sectors:$" a*bAf'=
msgSS db 0dh,0a, "Sector Size:$" .X;D I<K
6X[Mn2wYW
msgReadErr db 0dh,0a,"Error Reading Sectors:$" /?_5!3K J
msgWriteErr db 0dh,0a, "Error Writing Sectors:$" !v68`l15
msgReset db 0dh,0a, "Reseting drive to Cyl 0" - v &
Gm.2!F=R4A
ds
"N*\.
buffer db 32768d dup(0); :=e"D;5
l inv K.Lf
data ends ;数据段结尾 @l
%x;`E
C<yjGt VD
stack segment 'Fr"96C $
db 400 dup(?) `w
K6B5>
stack ends ?CSv ;:
zya2 O?s
code segment ;定义代码段 ^udl&>
assume cs:code ;规定cs的内容 wq
= Ef
assume ds:data ;规定ds的内容 Gz kvj:(V
assume ss:stack >}) W5Y+
"?r_ A*U
start: :>3/*"vx?G
pusha ;:Q&Rf"@%
Xcw 6mpLt
UtYwG#/w
mov ax,data ;程序从start开始 m T&?DZ9<
mov ds,ax ;ds置初值,data的段地址 @*^%^ P
7 D W_G
;设置缓冲区 Un^3%=;
lea bx, buffer ?my2dd,|
mov bufferaddr,bx @; `d\lQ
mov buff1,bx Y |'}VU
mov bx,ds bD4 aSubN
mov bufferaddr+2,bx 2!Sl!x+i\'
mov buff1,bx CA]u3bf~
H-/w8_} KG
lea di,infosize HMl
M!Xk?
mov dl,80h MNu\=p\Eq
mov ah,48h +(/' b' *
int 13h nk.j7tu
G'
0JK+=o
lea bx,msgcyl @s7wKk
mov dx,bx B*&HQW *u
mov ah,09
ihBIE
int 21h 7;3;8Q FX
mov dx,cylinders s_ 4y^w]aX
call dispdx *RJiHcII
J|.n bSE
lea bx,msghds $q 9dk
t
mov dx,bx &at>sQ'
mov ah,09 .~7:o.BE`n
int 21h 4H_Q Q6
mov dx,heads 91\]D g
call dispdx yP0XA=,Y
u )k Q*&
lea bx,msgspt 'h3yxf}\
mov dx,bx H J0Rcw%
mov ah,09 -n~%v0D8c
int 21h K_o[m!:jU
mov dx,spt+2 :]uz0 s`>
call dispdx 7QM1E(cMg
mov dx,spt \Y^GA;AMQQ
call dispdx J
N>
h:
\kEC|O)8
lea bx,msgtotal ~
U+W4%f8
mov dx,bx j SdW?IH
mov ah,09 q:<vl^<j
int 21h z# Db~
lea bx,sectors ? 5<x$YI
call dispqword @ @"abhT
Y x ':~
lea bx,msgss ,lb
>
mov dx,bx 0;Z ] vl/|
mov ah,09 PsO>&Te 2
int 21h k<QZ_*x}G
mov dx,sectorsize
/ 33m6+
call dispdx <RJ+f-
.M( [n-
sbb word ptr sectors, 63d SmCtw cB1
jnc subok P
\{ }yd
sub word ptr sectors+2,1 9^1li2z k{
jnc subok l9vJ]
sub word ptr sectors+4,1 bT c^ huP
jnc subok h%8C_m A
sub word ptr sectors+6,1
>B$J
$VnPs !a
subok: Qv;q*4_
nXAGwU8a
o|Kd\<r Y
wuKr 9W9Xa
xor ax,ax z6uHe{|
mov blocknumL, ax "] [u
mov blocknumL+2, ax Rg%Xy`gS
mov blocknumL+4, ax *yqke<o9)
mov blocknumL+6, ax a,eJO ? ?
Hh`HMa'q
startread:
4b
1a?
7_ CX6:
call rwsect k~IRds@G
DyM<aT
adc word ptr blocknuml,63d 3='Kii=LA
jnc addok
0s .X
adc word ptr blocknuml+2,1 DSL3+%KF#
jnc addok Rv Uw,=
adc word ptr blocknuml+4,1 {Y1&GO;
jnc addok 6ac_AsFK
adc word ptr blocknuml+6,1 gPcOm
b
jnc addok Ws;X;7tS
"w{$d&+?ag
addok: fR#W#n#m
mov ax, word ptr sectors+6 +=A53V[C
cmp ax, blocknuml+6 IF$*6
,v.z
jg complete w(Hio-l=
jl startread -Lbi eS%
mov ax, word ptr sectors+4 ..h D_k
cmp ax, blocknuml+4 H '(Ky
jg complete w>ap8><4
jl startread :Pf2oQ
mov ax, word ptr sectors+2 @fxDe[J:
cmp ax, blocknuml+2 Sx3R 2-!Z
jg complete Zm!5X9^!
jl startread ;v^1V+1:z
mov ax, word ptr sectors )j>BvO
cmp ax, blocknuml byUstm6y
jg complete 3fWL}]{<a
jl startread CA{(x(W\:
)mw&e}jRV
complete: ^w|apI~HSE
.IJgkP)!]
lea bx,msgready 41V}6+$g
mov dx,bx u$ ?t |Ll
mov ah,09 [Vaw$c-+[y
int 21 h^$ c
9n# Em
popa X m!
;
mov ax,3100h #$[}JiuL/
int 21h =Wj{J.7mf]
xK3}z N$T
; jVtRn.qh
dispdx proc near x<%V&<z1g
pusha z(&~O;;N#
lea bx, dsp+3 R59'KR2?
mov cx,4 }\Mmp+ <
|}>;wZ[7
repeat0: v}AV IdR
mov al,dl J< U,~ra\
and al,0fh &.}Z j*BD
cmp al,09h /
!*+9+h
jg add40 @(m Xi K
add al, 30h .[KXO0Ui6u
jmp okadd wNgS0{}&`
add40: ZeyA bo
add al,37h _<i*{;kR6
okadd: ;K9rE3
mov byte ptr [bx],al w,QO!)j!
dec bx [10;Mg
shr dx,4 zn@yt%PCV
loopnz repeat0 %>G(2)Fb\\
lea bx,dsp 1]<w ZV}.
mov dx,bx g$j ZpU
mov ah,09h _ X*
A
int 21h % "0g }tK6
D~s
TQfWr
popa R2[-Q"|Ra
ret 9G@
J#vsqr
dispdx endp RIO4` ,
.j)f'<;%
dispqword proc near $M=W`E[g
pusha wJQ"|
mov cx ,4 ZNEWUt{+;^
add bx,6 ]FLi^ }ct
repeatdecbx: y.:Z:w6$
mov dx,[bx] 8Ekk"h 6
call dispdx ?yq1\G)]
sub bx,2 Ee cV%E
loopnz repeatdecbx 5#v|t\
{
popa T1Q c?5K ^
ret } QqmDK.
dispqword endp M@/H d0$
?A4t
&4
rwsect proc near dNL<O
LiF(#OuZ
lea bx,msg oJEUNgY&
mov dx,bx Y([YDn
mov ah,09h BL^8gtdn
int 21h xrPC
C g! ]x
o
lea bx,BlockNumL c$>$2[*=
call dispqword ZCbnD j
ZOK,P
lea di, packetsize ,y5 7tY
mov dl,80h &gL &@';,
mov ah,42h S EeDq/h
int 13h |4@su"OA
jnc readok 5/) ,HGxi
,{br6*E
mov cx,5 +=/FKzT<
;出错后重试(定位0道后再重读) {yPiBu
retryrd: J!GWP:b3
lea bx, msgReadErr , 9C~%c0Pw
mov dx,bx v iJK%^U=-
mov ah,09 *N;# _0)/
int 21h ^<}eON a
c= }#8d.
,' m<YTF
lea di,dap0 NJ;D Qv
mov dl,80h O*ql!9} E{
mov ah,44h
#H@rb
int 13h _K?{DnTb
C;6Nu W
lea bx,BlockNumL VkNg Vjg
call dispqword rI E
m
I,@ f*o
lea di, packetsize MZ{gU> K+
mov dl,80h 1eZ759PoO
mov ah,42h tJQFhY
int 13h pUz;e#J|
jnc readok Oa'DVfw2J
loopnz retryrd jxU z-U
-
^at X/
readok: 2V 1|b`b#4
lea di, packetsize B7fV_-p: G
mov dl,80h wewYlm5@
mov ah,43h A8 0r@)i
int 13h bH-QF\>
g
J8+HV
rwsect endp #0WGSIht<
Nx8~Rn
code ends ;代码段结尾 vThK@P!s
end start ;结束汇编 /
*+P}__k
QD}' 2{M!
