第一个宏汇编程序 hi=U
(
r O j,D
工作后不久，单位里我所在的小组有了一台浪潮0520(XT兼容机)，有了硬盘，有了汇编编译程序，就开始玩汇编了。当然那时的主要工作是用dBASEIII，这个我已经在读研期间自学会了，读了一本关于dBASEIII plus的英文书，编个dBASE/FoxBASE程序已经是小菜一碟了。 "gO5dZ\0
l{R)y TO
那时候的硬盘老出点问题，经常碰上个“Error reading data....” 啥的小毛病，但是换又不方便而且很贵。PCTOOLS与NORTON DISKEDIT扫描盘比较慢。我就自己写了一个磁盘扫描程序。算是用汇编写的第一个正式的有点用处的程序吧！ ]+Vcu zq/
p<jr&zVEc>
这也是我现在电脑里唯一一个汇编语言的程序了，其它都随着磁盘来回更换丢了。所以，还是在老大这里存一份留个纪念吧！ aZ^lI
6@+4
3l^pY18H '
比较长啊！所以可以自动跳过。 OU+*@2")t
aJF `
rLm
.286 '*k\IM{h
.radix 16 j Hzy1P{?
data segment ;定义数据段 ob;oxJ@[c
Fzu{,b
Bb o*
msg db 0dh, "Reading sector:$" BE2{qO{
msg1 db 0dh, "Writing sector:$" \Q$);:=q Q
msgready db 0dh,0a,0dh,0a,"Reading/Writing completed!", 0dh,0a, "$" ,>^~u
vf m-K;,#
dsp db " $" . FruI#99
7%'<}u
;DAP
l g
C
PacketSize db 16d; // 数据包尺寸(16字节) ovohl<o\
Reserved db 0; // ==0 ?m!FM:%
BlockCount dw 63d; // 要传输的数据块个数(以扇区为单位) IF}r%%'Y$
BufferAddr dw 0,0 ; // 传输缓冲地址(segment:offset) ~RJg.9V
BlockNumL Dw 0,0; // 磁盘起始绝对块地址 o i?ak
BlockNumH Dw 0,0; // 磁盘起始绝对块地址 . .t= Y#
?/wloLS47
;定位用DAP （复位到0磁道） ' 4"L;){:L
DAP0 db 16d EAfSbK3z
db 0 c ~
SI"
dw 1 7'I7
buff1 dw 0,0 3L mHH
=
dw 0,0,0,0 RoTT%c P_
m|k,8guG
E=E<l?ob
;DiskParameters V;V9_qP,
infosize dw 26d; WORD InfoSize; // 数据包尺寸 (26 字节) lO
*Hv9#
falgs dw 0; WORD Flags; // 信息标志 Ef!F;D e)A
Cylinders DW 0; DWORD Cylinders; // 磁盘柱面数 p .HA `R>
Heads DW 0; DWORD Heads; // 磁盘磁头数 c"xaN
SPT Dw 0,0; DWORD SectorsPerTrack; // 每磁道扇区数 d
!H)voX
Sectors Dw 0,0,0,0; QWORD Sectors; // 磁盘总扇区数 ~I XfID!8
SectorSize DW 0; WORD SectorSize; // 扇区尺寸 (以字节为单位) ,?qS#B+>
twn@~$
cmpsect dw 0 (nzt}i0
Ojs\2('u
msgcyl db 0dh,0a,"Disk Parameters",0dh,0a,"Total Cylinders:$" *}J_STM
msgHds db 0dh,0a,"Heads:$" `et< Z
msgspt db 0dh, 0a,"SectorsPerTrack:$" ke0W?
msgTotal db 0d,0a, "Total Sectors:$" yV. P.Q
msgSS db 0dh,0a, "Sector Size:$" W@tLT[}CG
I%Awj(9BS
msgReadErr db 0dh,0a,"Error Reading Sectors:$" |? > h$'
msgWriteErr db 0dh,0a, "Error Writing Sectors:$" )N/KQ[W
msgReset db 0dh,0a, "Reseting drive to Cyl 0" nAzr!$qbNv
>O
_
cG?266{g
buffer db 32768d dup(0); (t gaH,G
E;sltl
data ends ;数据段结尾 V*aTDU%-.
.>YJ9 5&\
stack segment v^ tKT &
db 400 dup(?) [h1{{Nb#ez
stack ends |`nVr>QF&
E kX6> mo
code segment ;定义代码段 D 4\I;M^
assume cs:code ;规定cs的内容 K"1J 1>CHQ
assume ds:data ;规定ds的内容 %c0;Bb-
assume ss:stack -O5m@rwt<
U
QFuEI<1-
start: OK 6}9Eu9
pusha R4/@dA0
DXt^Ym5Cv
El %(je,|
mov ax,data ;程序从start开始 FuKNH~MevQ
mov ds,ax ;ds置初值,data的段地址 v<wT`hiKW
*l//r
V?l
;设置缓冲区 J\V(MN,
lea bx, buffer F0\ry "(t
mov bufferaddr,bx #5D+XB T
mov buff1,bx hG^23FiN
mov bx,ds =FnZk J
mov bufferaddr+2,bx H[r0jREK
mov buff1,bx xpM~* Gpm
S6mmk&n
lea di,infosize S&*pR3,u
mov dl,80h tTgW^&B
mov ah,48h g6 V*wjC
int 13h #vSI_rt9I
.tNB07=7
lea bx,msgcyl hs4r5[
mov dx,bx J$;)TI
mov ah,09 Fo#*_y 5\
int 21h >UMnItq(
l
mov dx,cylinders gUp0RP s
call dispdx .kIf1-(<U
=m:W
lea bx,msghds 'UxA8i (
mov dx,bx YO,ldsSz|r
mov ah,09 K="+2]{I
int 21h Oq5k4
mov dx,heads c'2ra/?k
call dispdx 5glGlD6R
V'.|IuN
lea bx,msgspt F?B=
:8,}
mov dx,bx MF`'r#@:wa
mov ah,09 brWt
int 21h
f W
_.
mov dx,spt+2 N,|oV|i
call dispdx (XJQ $n
mov dx,spt gISs+g
call dispdx Fn,|J[sC
ZT
ZE_[
lea bx,msgtotal yH^*Fp8V
mov dx,bx 0h#M) Ft
mov ah,09 @Xmk Im
int 21h u i1m+
lea bx,sectors _H s vF[\[
call dispqword \Hd B
be
d+Ur&
lea bx,msgss 9[ D7 N
mov dx,bx '_)t R;s
mov ah,09 UZra'+Wb
int 21h `vw.~OBl
mov dx,sectorsize *$VurqLn
call dispdx V*}zwm s6
M6 iKl
sbb word ptr sectors, 63d 7 %"7Rb^@
jnc subok
6qlr +f
sub word ptr sectors+2,1 BP$#a
#
jnc subok 3:Wr)>l}#
sub word ptr sectors+4,1 R{_ IrYk
jnc subok 4(82dmKO
sub word ptr sectors+6,1 K }BX6dA
8H?AL
RG
subok: ([~`{,sv
P vwIO_W
t^hkGYj!2
F S:WbFmc
xor ax,ax &u-Bu;G.e
mov blocknumL, ax 3iw9jhK!W
mov blocknumL+2, ax "=.|QKC1`
mov blocknumL+4, ax #EUg b7
mov blocknumL+6, ax Oe`t! &v
*q{UipZbx
startread: Fe v3CV$
qgNK!(kWpr
call rwsect =Qrz|$_rv
L ]c9
adc word ptr blocknuml,63d ^q\zC%.
jnc addok ? sYjF
iE
adc word ptr blocknuml+2,1 ]||=<!^kn
jnc addok 0
,-b %X
adc word ptr blocknuml+4,1 Hea<!z PH
jnc addok ]6 wi
adc word ptr blocknuml+6,1 A]$+
`uS\
jnc addok aehMLl9cl
?M ^t4nj
addok: ".f:R9-
mov ax, word ptr sectors+6 #9 OP.4
cmp ax, blocknuml+6 3G^Ed)JvE
jg complete gN~y6c:N
jl startread t;Om9
mov ax, word ptr sectors+4 dL(|Y{4
cmp ax, blocknuml+4 98^6
{p
jg complete #1 @~w} Dh
jl startread TzGm562o%
mov ax, word ptr sectors+2 /&7Yi_]
r
cmp ax, blocknuml+2 U mX[=D|
jg complete g/p
}r.
jl startread (N4(r<o;
mov ax, word ptr sectors ~py0Vx,F
cmp ax, blocknuml (+dRD] |T
jg complete %<yM=1~>
jl startread xQap44KPZ
G`"Cqs<
complete: u7WM6X
u(702S4
lea bx,msgready )
AX H^&
mov dx,bx Bq_P?Q+\
mov ah,09 :g#it@
int 21 VhgEG(Ud
IviQ)h p
popa uW=NH;u
mov ax,3100h -^v}T/Kl#
int 21h RCXSz
D|9fHMg %
; bq-\'h
f<
dispdx proc near )7
g_v*
pusha j*d~h$[
k
lea bx, dsp+3 :g[x;Q [@
mov cx,4 <t% A)L%
"|`9 {/]
repeat0: x35s6
mov al,dl g/p9"eBpq
and al,0fh \*aLyyy3
cmp al,09h 0z7mre^Q
jg add40 % PbqASm
add al, 30h
@l Gn G
jmp okadd G6{A[ O[
add40: y#;VGf6lj
add al,37h C) s1'
=TZ
okadd: |wQZ~Ux:
mov byte ptr [bx],al W+e*(W|d6
dec bx 30+l0\1
shr dx,4 twmJ
loopnz repeat0 =hIT?Z6 A
lea bx,dsp
/
L M
mov dx,bx y51D-vj
mov ah,09h 9PK-r;2
int 21h
}TJ|d=
389.&`Q%Ut
popa =pyZ^/}P
ret CL : M>(
dispdx endp 9t.yP;j\Y
Eu.qA9,@U
dispqword proc near 4!v
UksM
pusha M l?)Sc"\7
mov cx ,4 _x 6E_i-(
add bx,6 2EwWV 0BS
repeatdecbx: es+_]:7B9
mov dx,[bx] 3Lki7QW`
call dispdx Cf[F`pFM
sub bx,2 K/v-P <g
loopnz repeatdecbx ;<@6f @
popa cE5Zxcn
ret k<zGrq=8J
dispqword endp
iLcadX
h./
vTNMc
rwsect proc near v9lB k]c
FNCLGAiZ
lea bx,msg E :=KH\2f
mov dx,bx `yX+NRi(s
mov ah,09h AO$PuzlLh
int 21h E(kpK5h{
zN/~a)
lea bx,BlockNumL GY]6#>D#7
call dispqword #UC
QiQfP
% 3-\3qx*
lea di, packetsize l~TIFmHkh%
mov dl,80h R+VLoz* J6
mov ah,42h Sx9:$"3.X
int 13h a<jE 25t
jnc readok N 3p 7 0
:;q_ f+U
mov cx,5 I7z/GA\x
;出错后重试(定位0道后再重读) g*?+ ~0"`Y
retryrd: Fi% W\Y'
lea bx, msgReadErr U9 .=Ik
mov dx,bx *jw$d8q2
mov ah,09
I S8nvx\
int 21h DPQGh`J
kjC{Zr
F%Umau* 1
lea di,dap0 W< |K
mov dl,80h Tv,.
mov ah,44h wx%nTf/Oa
int 13h H9Q7( {v
VfqY _NmgC
lea bx,BlockNumL f
\_!N
"HW
call dispqword >"g<-!p@
}_(^/pnk
lea di, packetsize wU)5Evp[
mov dl,80h >y db?
mov ah,42h i2a"J&,6O
int 13h pkf OM"5'
jnc readok RG
r'<o )
loopnz retryrd [2 w <F[
*a,.E6C*
readok: m4U+,|Fa
lea di, packetsize p
UMB)(< k
mov dl,80h 7h9[-d6
mov ah,43h X#I`(iHY
int 13h 9'#.>Q>0=j
[S&O-b8A
rwsect endp ;A G
s1j
Nwl RPyt
code ends ;代码段结尾 "Xk%3 \{P
end start ;结束汇编 U"y'Kd
^
Xy$is3
