第一个宏汇编程序 V4
i%|vV
R3! vS+5rR
工作后不久，单位里我所在的小组有了一台浪潮0520(XT兼容机)，有了硬盘，有了汇编编译程序，就开始玩汇编了。当然那时的主要工作是用dBASEIII，这个我已经在读研期间自学会了，读了一本关于dBASEIII plus的英文书，编个dBASE/FoxBASE程序已经是小菜一碟了。 /Gv$1t^a
~acK
$
.#
那时候的硬盘老出点问题，经常碰上个“Error reading data....” 啥的小毛病，但是换又不方便而且很贵。PCTOOLS与NORTON DISKEDIT扫描盘比较慢。我就自己写了一个磁盘扫描程序。算是用汇编写的第一个正式的有点用处的程序吧！ I\6<)2j/L
aZCT|M1
这也是我现在电脑里唯一一个汇编语言的程序了，其它都随着磁盘来回更换丢了。所以，还是在老大这里存一份留个纪念吧！ tNf" X !
:mHtK)z~
比较长啊！所以可以自动跳过。 t4c
#' y
?{P6AF-xcf
.286 +&8Ud8Q
.radix 16 =]mx"0i[
data segment ;定义数据段 Q3{&'|}^2
->9xw
Ck a]F2,
msg db 0dh, "Reading sector:$" Qi]Z)v{ ^
msg1 db 0dh, "Writing sector:$" Nn 7@+g)
msgready db 0dh,0a,0dh,0a,"Reading/Writing completed!", 0dh,0a, "$" L;t~rW!1
6
&Aa b 56
dsp db " $" T FA
k_ ^/
;DAP g-gBg\y{v
PacketSize db 16d; // 数据包尺寸(16字节) P&`r87J
Reserved db 0; // ==0 %~(i[Ur;
BlockCount dw 63d; // 要传输的数据块个数(以扇区为单位) l5nDt$Ex
BufferAddr dw 0,0 ; // 传输缓冲地址(segment:offset) [MP :Eeg
BlockNumL Dw 0,0; // 磁盘起始绝对块地址 oi4Wxcj
BlockNumH Dw 0,0; // 磁盘起始绝对块地址 [)0 k}
g*imswj7
;定位用DAP （复位到0磁道） 'm? x2$u8
DAP0 db 16d exKmK!FT
db 0 x#VUEu]8
dw 1 u` 2k6.-
buff1 dw 0,0 v!9Imf
dw 0,0,0,0 '*Mb
.s"
__%E!*m"<_
9
+Hb`
;DiskParameters JJ3JULL2
infosize dw 26d; WORD InfoSize; // 数据包尺寸 (26 字节) 5VoiDM=\c
falgs dw 0; WORD Flags; // 信息标志 myX0<j3G5
Cylinders DW 0; DWORD Cylinders; // 磁盘柱面数 yC*B OJS
Heads DW 0; DWORD Heads; // 磁盘磁头数 wz)9/bL
SPT Dw 0,0; DWORD SectorsPerTrack; // 每磁道扇区数 5&Kn #
Sectors Dw 0,0,0,0; QWORD Sectors; // 磁盘总扇区数 'yjH~F.
SectorSize DW 0; WORD SectorSize; // 扇区尺寸 (以字节为单位) eyjUNHeh#
(uc)^l
fX
cmpsect dw 0 r:rJv
p+D 6Z'B
msgcyl db 0dh,0a,"Disk Parameters",0dh,0a,"Total Cylinders:$" ;@s~t:u
msgHds db 0dh,0a,"Heads:$" |^{" 2l"j
msgspt db 0dh, 0a,"SectorsPerTrack:$" O u,_l
msgTotal db 0d,0a, "Total Sectors:$" TN_$E&69I
msgSS db 0dh,0a, "Sector Size:$" -{SiK
|Cq J2
msgReadErr db 0dh,0a,"Error Reading Sectors:$" d+ ko"F|
msgWriteErr db 0dh,0a, "Error Writing Sectors:$" L
umD.3<
msgReset db 0dh,0a, "Reseting drive to Cyl 0" -)+DVG.t
{
S(T1ua
<&Xq`i/(
buffer db 32768d dup(0); <s3(
7V``f:#d
data ends ;数据段结尾 Dx)XC?'xO
9?,.zc^
stack segment *lF%8k"Al
db 400 dup(?) m6<0 hP
stack ends U {!{5l:
Q8:
ocEhR
code segment ;定义代码段 fOervo
assume cs:code ;规定cs的内容 ]arskmB]
assume ds:data ;规定ds的内容 g$LwXfg
assume ss:stack ,X6j$YLWp
@ &yj7-]
start: }Cg~::,"
pusha oF^hq-xcP
agD.J)v \
I
omJo
mov ax,data ;程序从start开始 cBf{R^>Fd
mov ds,ax ;ds置初值,data的段地址 Q
kpmPQK
kovzB]
;设置缓冲区 _oVA0@#n
lea bx, buffer a/#,Y<kJ
mov bufferaddr,bx ha~s<
I
mov buff1,bx =@
mov bx,ds BQg]$Tr?
mov bufferaddr+2,bx shZ<j7gqI
mov buff1,bx N\&;R$[9:
@!O{>`
lea di,infosize M oHvXp;X
mov dl,80h xhS/X3<th
mov ah,48h | :[vpJFK
int 13h )KQ um`pO
zD-8#H35X"
lea bx,msgcyl >AFp
O*q"
mov dx,bx Ih"
Ol(W
mov ah,09 'A2"&6m)28
int 21h U#
B
mov dx,cylinders rcT<OiYuig
call dispdx VbR.tz
e[!>ezaIY
lea bx,msghds u)pBFs
<dn
mov dx,bx KIJ[ cIw
mov ah,09 )>p6h]]a
int 21h AFED YRX
mov dx,heads ;d40:q<
call dispdx }iAi` _\0;
&N ;6G`3
lea bx,msgspt c Zr4
mov dx,bx it vdzPO
mov ah,09 _" V0vV
int 21h KZNyp% q
mov dx,spt+2 rd{( E
call dispdx &0 `7_g7G
mov dx,spt s&</zU'
call dispdx X_l,fu^C#$
UC@ "<$'C
lea bx,msgtotal $0t
%}DE
mov dx,bx
(5_(s`q.
mov ah,09 [Nc Ok,
int 21h g2q=&eI"
lea bx,sectors t57b)5{FM
call dispqword 9Z
4 R!Q
(J*0/7
eX
lea bx,msgss s'I$yJ)@2E
mov dx,bx XU7bWa fy
mov ah,09 ] p lC
int 21h V. 1sZYA9
mov dx,sectorsize q4= RE
call dispdx 8{u 01\0}
p6)UR~9Rs
sbb word ptr sectors, 63d -AQX -[B
jnc subok k #n=mm'N9
sub word ptr sectors+2,1 A[bxxQSP\H
jnc subok X9HI@M]h
sub word ptr sectors+4,1 XQ8Imkc
jnc subok dz 2d`=`3
sub word ptr sectors+6,1 pnU
g:R@
R&0l4g-4>
subok: lR!$+atW
9n7d
"XD2
2Oa -c|F
,L G&sa"
xor ax,ax B" v=Fr[
mov blocknumL, ax *93 N0m4Rl
mov blocknumL+2, ax M-g
jS6c\3
mov blocknumL+4, ax 8 Hn{CJ~ '
mov blocknumL+6, ax 9n'p 7(s%
u'p J 9>sC
startread: k~ ue^^r}
3F1Z $d(
call rwsect Y)`+u#`
R
%*nZ,r
adc word ptr blocknuml,63d ND>}t#^$
jnc addok }^q#0`e(y
adc word ptr blocknuml+2,1 p'*UM%@SIY
jnc addok 0*^Fk=>ej
adc word ptr blocknuml+4,1 |z%,W/E f
jnc addok :83" t-O8[
adc word ptr blocknuml+6,1 n21J7;\/+
jnc addok Zpmy)W]1
D~:fn|/Brp
addok: e)kf;Hkf
mov ax, word ptr sectors+6 Apn#o2
cmp ax, blocknuml+6 8h97~$7)
jg complete 9@06]EI_
jl startread )EoG@:[
mov ax, word ptr sectors+4 9':$!Eoq
cmp ax, blocknuml+4
f/Z E_MN2
jg complete ~7
Tz Ub
jl startread KX`,7-
mov ax, word ptr sectors+2 }Urt DXhA
cmp ax, blocknuml+2 *$
!LRmp?
jg complete |.A>0-']M
jl startread "K< VZ
mov ax, word ptr sectors Qp ,l> k
cmp ax, blocknuml 4SYN$?.Mp
jg complete vkK+
C~"
jl startread MR}\fw$(.
(L1`]cp
complete: 5hAg*zJb5o
x3 Uv&
lea bx,msgready \2jY)UrQs
mov dx,bx )-@EUN0E>5
mov ah,09 l
;uEw
int 21 $u :=lA:N
5z _)
popa zBbTj IFQ
mov ax,3100h z0sB*5VH
int 21h LHb {9x
"^H+A-R[
; 1yu!:8=ee
dispdx proc near D }\`5L<
pusha xcig'4L
lea bx, dsp+3 hd \#Vh(H
mov cx,4 xph60T
u#\3T>o%@
repeat0: H &JKja}`
mov al,dl ]Gr'Bt /
and al,0fh d\
v _!7
cmp al,09h ?HY0@XILI
jg add40 t>xV]W<
add al, 30h o2~x '*A0I
jmp okadd *u }):8=&R
add40: FyEl @ }W
add al,37h WxFjpJt
okadd: uOQ5.S+
mov byte ptr [bx],al SxDE3A-:
dec bx 5
Jhl4p}w
shr dx,4 &BgaFx**
loopnz repeat0 TI332,eL
lea bx,dsp PewLg<?,G4
mov dx,bx Ogb_WO;)
mov ah,09h P*SXfb"HC
int 21h W5
p}oN
J{y@ O
popa J:5n/m^A
ret DQ)SMqOotw
dispdx endp i ,'~Ds
o;.-I[ 9h]
dispqword proc near oC
[g
pusha ;%1^k/b6t
mov cx ,4 nTAsy0p]
add bx,6 R|suBF3
repeatdecbx: pqe**`z@y
mov dx,[bx] 'Khq!pC
call dispdx )~`
zjVx_
sub bx,2 !4E:IM63
loopnz repeatdecbx Ssj'1[%
popa NQAnvX;
ret jK =[
dispqword endp 4v>V7T.
gJ])A7O
rwsect proc near _KFKx3<m!
ew(6;}+^/
lea bx,msg ')BQ 0sg
mov dx,bx <L J$GiU
mov ah,09h sR6 (8
int 21h ld
$`5!Z
+3 C
S3fTq
lea bx,BlockNumL URAipLvN
call dispqword L6a8%% `
6voK{ C4J
lea di, packetsize L!5f*
mov dl,80h 4g 1h:I/
mov ah,42h UZ1 lI>
int 13h E Y>A(
jnc readok 3X:F9x>y
h@J`:KO
mov cx,5 g=pDC+
;出错后重试(定位0道后再重读) Z|W=.RdA;
retryrd: (]1 %s?ud*
lea bx, msgReadErr % Y @3)
mov dx,bx &[YG\8sxWa
mov ah,09 zE [c$KPP
int 21h 7v-C-u[E`
-4Xr5j%o
k2=uP8
lea di,dap0 (/Ubw4unI
mov dl,80h #xc[)Y,W
mov ah,44h B$bsh.
int 13h c|7Pnx%gT
v% 1# y5
lea bx,BlockNumL 5?b9[o+ D
call dispqword 7-5q\[ZK
ym KdRF
lea di, packetsize c_i F S
mov dl,80h d
>%_<pw
mov ah,42h h+D ok#g
int 13h 1$^{Uma
jnc readok )L{\k$r!EM
loopnz retryrd <fw[7=_)^
R:e:B7O~0
readok: E8xXr>j>#
lea di, packetsize h
%nZKhm
mov dl,80h 0XY xMN)
mov ah,43h &^<94l
int 13h v zn/waw
*f( }@U
rwsect endp +|.#<]GA
8{ep`$(K@
code ends ;代码段结尾 `d rv u?F
end start ;结束汇编 /EC m
x!< C0N>?z
