第一个宏汇编程序 LP8o7%sv!
;7)OSGR
工作后不久，单位里我所在的小组有了一台浪潮0520(XT兼容机)，有了硬盘，有了汇编编译程序，就开始玩汇编了。当然那时的主要工作是用dBASEIII，这个我已经在读研期间自学会了，读了一本关于dBASEIII plus的英文书，编个dBASE/FoxBASE程序已经是小菜一碟了。 k\%,xf; x
krwf8!bI
那时候的硬盘老出点问题，经常碰上个“Error reading data....” 啥的小毛病，但是换又不方便而且很贵。PCTOOLS与NORTON DISKEDIT扫描盘比较慢。我就自己写了一个磁盘扫描程序。算是用汇编写的第一个正式的有点用处的程序吧！
{\F 2*P
bL#sn_(m
这也是我现在电脑里唯一一个汇编语言的程序了，其它都随着磁盘来回更换丢了。所以，还是在老大这里存一份留个纪念吧！ @V7;TJk
-^y1iN'D
比较长啊！所以可以自动跳过。 e ^-3etx
*SXSF95
.286
l`oT:
.radix 16 vN' VDvVM
data segment ;定义数据段 EqYz,%I%
A>[hC{
|#!eMJ&0
msg db 0dh, "Reading sector:$" a ?l_-Fi
msg1 db 0dh, "Writing sector:$" Y9/{0TArG
msgready db 0dh,0a,0dh,0a,"Reading/Writing completed!", 0dh,0a, "$" US"2O!u
37,L**Dgs
dsp db " $" !+%Az*ik
J~fuW?a]r
;DAP /;[}=JL<Q
PacketSize db 16d; // 数据包尺寸(16字节) EOofa6f&l
Reserved db 0; // ==0 L>i<dD{
BlockCount dw 63d; // 要传输的数据块个数(以扇区为单位) pEJ #ad
BufferAddr dw 0,0 ; // 传输缓冲地址(segment:offset) T R+Q4Y:
BlockNumL Dw 0,0; // 磁盘起始绝对块地址 7d%A1}Bq$
BlockNumH Dw 0,0; // 磁盘起始绝对块地址 fWqv3nY^
rn[$
x(G
;定位用DAP （复位到0磁道） 0LZ=`tI
DAP0 db 16d ;c nnqT6
db 0 `s#sE.=
o
dw 1 `f2W;@V0
buff1 dw 0,0
aKa R
dw 0,0,0,0 Am]2@ESUP
]gjr +GV
G!-7ic_4
;DiskParameters 6j?FRs
infosize dw 26d; WORD InfoSize; // 数据包尺寸 (26 字节) ,,zd.9n
falgs dw 0; WORD Flags; // 信息标志
aViJ
Cylinders DW 0; DWORD Cylinders; // 磁盘柱面数 M P_ A<F
Heads DW 0; DWORD Heads; // 磁盘磁头数 Bd/}
%4V\@
SPT Dw 0,0; DWORD SectorsPerTrack; // 每磁道扇区数 ;sm"\.jF
Sectors Dw 0,0,0,0; QWORD Sectors; // 磁盘总扇区数 ^7J~W'hI
SectorSize DW 0; WORD SectorSize; // 扇区尺寸 (以字节为单位) AfuXu@UZ_/
BJ_+z gf`
cmpsect dw 0 i#N e'q;T
Q|6Ls$'$
msgcyl db 0dh,0a,"Disk Parameters",0dh,0a,"Total Cylinders:$" ]L[JS^#7
msgHds db 0dh,0a,"Heads:$" EaJDz`T}
msgspt db 0dh, 0a,"SectorsPerTrack:$" z0=Rp0_W
msgTotal db 0d,0a, "Total Sectors:$" t00\yb^vJ8
msgSS db 0dh,0a, "Sector Size:$" J~M H_N
S a( yjF1
msgReadErr db 0dh,0a,"Error Reading Sectors:$" [BJ$|[11
msgWriteErr db 0dh,0a, "Error Writing Sectors:$" N:"M&E UM
msgReset db 0dh,0a, "Reseting drive to Cyl 0" )R8%wk?2
$:T<IU[E
Smi%dp.
buffer db 32768d dup(0); TB ;3 `
dx k;@Tz
data ends ;数据段结尾 ce 7Yr*ZB
>Iu]T{QNO
stack segment _K*\}un2
db 400 dup(?) s@.`"TF.7
stack ends +R3
\cRM
)w^GP lh
code segment ;定义代码段 "u .)X3
assume cs:code ;规定cs的内容 A%.J%[MVz
assume ds:data ;规定ds的内容
dcV,_
assume ss:stack +e&m#d
]Y ?{$M
G
start: ) er?*^9Z
pusha \ 9[NH/.Z{
!hwzKm=%N
jsK|D{m?
mov ax,data ;程序从start开始 x e"4u JO
mov ds,ax ;ds置初值,data的段地址 3P%w-qT!N
6~:W(E}
;设置缓冲区 Aqx3!
lea bx, buffer =$
&7IQ?
mov bufferaddr,bx %A
zPAWcN
mov buff1,bx f
ho=<|-
mov bx,ds )< &B &Hp
mov bufferaddr+2,bx V[BY/<z)A
mov buff1,bx ,eZ;8W{G
!C9ps]6
lea di,infosize x*5 C h~<k
mov dl,80h 3ybK6!g`[
mov ah,48h .rt8]%
int 13h wrZ7Sr!/V
U)O?|
VN^o
lea bx,msgcyl >!:$@!6L
mov dx,bx 5b u[}mJ
mov ah,09 Z%, \+tRe
int 21h i*mZi4URN
mov dx,cylinders >X-ed
call dispdx 9~LpO>-
34/]m/2NZK
lea bx,msghds )nf=eU4|
mov dx,bx mf
Wz@=0
mov ah,09 (= S"Kvb~#
int 21h aYv' H
mov dx,heads BXQ\A~P\
call dispdx z v L>(R
J
dk3)
\
lea bx,msgspt X|lElN
mov dx,bx h(+m<J
mov ah,09 /Bg6z m
int 21h Q #yu(
mov dx,spt+2 XhHel|!g :
call dispdx se^ NQ=
mov dx,spt xI.
Orpw
call dispdx ]%cHm4#m3
Xvf cPI6
lea bx,msgtotal Fi?U)T+%+
mov dx,bx !mpMa]G3
mov ah,09 sw 3:HNG=
int 21h JLFFh!J
lea bx,sectors M~d+HE
call dispqword INN/VDsJ
A{DIp+
lea bx,msgss =UI,+P:
mov dx,bx CS^ oiV%{s
mov ah,09 c %xED%X9
int 21h .!7Fe)(x
mov dx,sectorsize '$2oSd
call dispdx t z
+
Ak %no3:9
sbb word ptr sectors, 63d &;r'{$
jnc subok (`q6G d
sub word ptr sectors+2,1 2|T|K?R^
jnc subok m11"i=S"
sub word ptr sectors+4,1 $ uz
1
jnc subok GY0XWUlC
sub word ptr sectors+6,1 "/ a*[_sV
ShEaL&'J
subok: :Ul' (@
4U LJtM3
kz$6}&uk
t5X G^3X@
xor ax,ax ! 4qps$p{
mov blocknumL, ax vy2*BTU?
mov blocknumL+2, ax s/W!6JX4
mov blocknumL+4, ax :>AW@SoTp
mov blocknumL+6, ax !%Z)eO~Z
O]$*EiO\
startread: rE
bx%u7Q
V8 KTNt%
call rwsect onWYT} c{
i
ECC@g@
a
adc word ptr blocknuml,63d L P0;n \
jnc addok +[X.-,yW
adc word ptr blocknuml+2,1 &F<J#cfe8
jnc addok !R] CmK
adc word ptr blocknuml+4,1 6\)8mK
jnc addok Tv* 1q.MB
adc word ptr blocknuml+6,1 jFJW3az@z
jnc addok 0,"n-5Im
k@cZ"jYA
addok: p ?Ij-uo"o
mov ax, word ptr sectors+6 {LMS~nx
cmp ax, blocknuml+6 G>_ 42Rp
jg complete *tbpF k4/
jl startread Hz!U_?
mov ax, word ptr sectors+4 d
@^o/w8
cmp ax, blocknuml+4 >tXufzW
jg complete <manv8*6
jl startread }e/[$!35
mov ax, word ptr sectors+2 ~q'w),bE"Q
cmp ax, blocknuml+2 f2R+5`
$
jg complete 4cErk)F4
jl startread ] sm0E@ 1
mov ax, word ptr sectors laD.or
cmp ax, blocknuml m&8 U4uHN
jg complete ;S{Ld1;
jl startread [`Q p;_K?t
r+V(1<`2X
complete: i SAidK,
0%q ctZy
lea bx,msgready l?yZtZ8
mov dx,bx eK =m0 2
mov ah,09 VAF:Z
int 21 )"i>R
~*
ki*79d"$
popa k?|F0e_
mov ax,3100h f/IRO33
int 21h Y|x6g(b
oC@"^>4
; 9Ww=hfb5UW
dispdx proc near 6/V{>MTZg
pusha "x=@ ,*Bk
lea bx, dsp+3 lo>-}xd
mov cx,4 xRTg
[
]'1N_m]?
repeat0: 5wE !_ng>|
mov al,dl x jP" 'yU
and al,0fh a?U%l 9F
cmp al,09h 9 `gGsC
jg add40 F-reb5pt.=
add al, 30h 0%&fUz36E6
jmp okadd @6I[{{>X
add40: SCI-jf3 WN
add al,37h T`R QUJO
okadd: S7#^u`'Q_^
mov byte ptr [bx],al =?
I1V #.
dec bx x=)30y3*;
shr dx,4 KH@) +Rj
loopnz repeat0 a dz;N;rIY
lea bx,dsp ]'
"^M
mov dx,bx ?O.6 r"
mov ah,09h &]"_pc/>m
int 21h kw-Kx4 )
v @I^:I
popa nkCRe
ret =aCIaL&9Y
dispdx endp i-"h"nF"
*~t$k56
dispqword proc near u%gm+NneK
pusha yw3U"/yw
mov cx ,4 [pC-{~
add bx,6 fAY2V%Rft
repeatdecbx: (8m\#[T+R
mov dx,[bx] }HA2c e \
call dispdx U7f& N
sub bx,2
:[X }.]"
loopnz repeatdecbx _uy5?auQ
popa No92Y^~/
ret z }b U\3!
dispqword endp 1
Q0Ye r
;hf G$ {l;
rwsect proc near /O(; ~1B
fXXm@tMx>
lea bx,msg 31o7R &v
mov dx,bx J G+g88
mov ah,09h h.s< 0.
int 21h 9>$%F;JP44
5x1jLPl'
lea bx,BlockNumL /kviO@jm4(
call dispqword w4< u@L
M;Mdz[Q
lea di, packetsize )l!&i?h%
mov dl,80h )/N Xh'
mov ah,42h ^) b7m
int 13h !i"9f_
jnc readok U0|j^.)
]K0,nj*\c
mov cx,5 >`,#%MH#
;出错后重试(定位0道后再重读) ~]_jKe4W
retryrd: r^o} Y
lea bx, msgReadErr ;;"c+
mov dx,bx gu .))3D9
mov ah,09 ]I*#R9
int 21h !E>3N:
},QFy T
q& Ua(I
lea di,dap0 O 9 Au =
mov dl,80h }-]s#^'w
mov ah,44h V
:" \(Y
int 13h Rx"VscB6z
UNH}*]u4`
lea bx,BlockNumL ea[a)Z7#
call dispqword
$;`2^L
O6/=/-?N=c
lea di, packetsize <wGT s6
mov dl,80h P@T $ 6%~
mov ah,42h m5Laq'~0_
int 13h f.xSr!
jnc readok fO}1(%}d
loopnz retryrd Yr(f iI
D]>86&
readok: +iDz+3v(
lea di, packetsize c.me1fGn
mov dl,80h
6V_5BpX t
mov ah,43h `9"jHw`D
int 13h FVLA^$5
c
~(doy@0M
rwsect endp b8-^wJH!
bA9d be
code ends ;代码段结尾 vR.6^q
end start ;结束汇编 j~j
V`>A
nOoh2j UM
