第一个宏汇编程序 9>&zOITTaL
`.MZ,Xhqi"
工作后不久，单位里我所在的小组有了一台浪潮0520(XT兼容机)，有了硬盘，有了汇编编译程序，就开始玩汇编了。当然那时的主要工作是用dBASEIII，这个我已经在读研期间自学会了，读了一本关于dBASEIII plus的英文书，编个dBASE/FoxBASE程序已经是小菜一碟了。 9!
jPZn
rNq* z,
那时候的硬盘老出点问题，经常碰上个“Error reading data....” 啥的小毛病，但是换又不方便而且很贵。PCTOOLS与NORTON DISKEDIT扫描盘比较慢。我就自己写了一个磁盘扫描程序。算是用汇编写的第一个正式的有点用处的程序吧！ ;|WUbc6&g
Sv M\9
这也是我现在电脑里唯一一个汇编语言的程序了，其它都随着磁盘来回更换丢了。所以，还是在老大这里存一份留个纪念吧！ M YF
^zheD
D{N8q^Cs9
比较长啊！所以可以自动跳过。 AB'+6QU9k
^wolY0p
.286 ~{I.qv)>M~
.radix 16 h p|v?3(
data segment ;定义数据段 !G-+O#W`
#@B"E2F
T&_&l;syA
msg db 0dh, "Reading sector:$" G 1 "QX
msg1 db 0dh, "Writing sector:$"
^[7 Mp
msgready db 0dh,0a,0dh,0a,"Reading/Writing completed!", 0dh,0a, "$" 3P6O] x<-?
b tuG%D{a^
dsp db " $" ]gq)%T]
'IX1WS&\"
;DAP i]r(VKX
PacketSize db 16d; // 数据包尺寸(16字节) @e)}#kN.
Reserved db 0; // ==0 9m
M3Ve*
BlockCount dw 63d; // 要传输的数据块个数(以扇区为单位) e L SzGbKf
BufferAddr dw 0,0 ; // 传输缓冲地址(segment:offset)
X%
'z
BlockNumL Dw 0,0; // 磁盘起始绝对块地址 }_'5Vb_
BlockNumH Dw 0,0; // 磁盘起始绝对块地址 G$>?UQ [
f\hMTebma$
;定位用DAP （复位到0磁道） R xMsP;be
DAP0 db 16d ?gMx
db 0 ie6
c/5
dw 1 Z6zV 9hn
buff1 dw 0,0 Q-w#
!<L.
dw 0,0,0,0 J =^IS\m
5)RZJrN]
V O: 4wC"7
;DiskParameters .J75bX5
infosize dw 26d; WORD InfoSize; // 数据包尺寸 (26 字节) mLuNl ^)3
falgs dw 0; WORD Flags; // 信息标志 ~A=zjkm
Cylinders DW 0; DWORD Cylinders; // 磁盘柱面数 aj`
&ca8
Heads DW 0; DWORD Heads; // 磁盘磁头数 U*[E+Uq}:N
SPT Dw 0,0; DWORD SectorsPerTrack; // 每磁道扇区数 2|>\A.I|=
Sectors Dw 0,0,0,0; QWORD Sectors; // 磁盘总扇区数 J,?#O#j
SectorSize DW 0; WORD SectorSize; // 扇区尺寸 (以字节为单位) 0
$)Q@#
z ?\it(
cmpsect dw 0 !"F;wg$
`3F#k[IR
msgcyl db 0dh,0a,"Disk Parameters",0dh,0a,"Total Cylinders:$" lAU99(GXV
msgHds db 0dh,0a,"Heads:$" 3%+ ~"4&
msgspt db 0dh, 0a,"SectorsPerTrack:$" _iJ~O1qx,w
msgTotal db 0d,0a, "Total Sectors:$" #-;c!<2
msgSS db 0dh,0a, "Sector Size:$" KrpIH6
j9 NF|
msgReadErr db 0dh,0a,"Error Reading Sectors:$" ( zo7h
msgWriteErr db 0dh,0a, "Error Writing Sectors:$" 2%pED
xui
msgReset db 0dh,0a, "Reseting drive to Cyl 0" rRq60A
_Q5mPBO
Bu(51wU8
buffer db 32768d dup(0); `DY
yK?R
!1)aie+p6
data ends ;数据段结尾 qi4P(s-i
Q~(Gll;
stack segment Dx-P]j)4x
db 400 dup(?) yiZt G#6K{
stack ends wD9K\%jIr!
bp?5GU&Uy
code segment ;定义代码段 >R F|Q
assume cs:code ;规定cs的内容 7'IIB1v.\
assume ds:data ;规定ds的内容 EH |+S
assume ss:stack >$Z G=&
,R[$S"]!SH
start: v1:.t
pusha l
;:IL\*1I
V.*TOU{{xh
:oIBJ u%/
mov ax,data ;程序从start开始 P 1mg;!tq
mov ds,ax ;ds置初值,data的段地址 dQj/ Sr
i5}Z k r
;设置缓冲区 4`,(*igEv
lea bx, buffer >38>R0k35
mov bufferaddr,bx bCw{9El!K4
mov buff1,bx U>PZ3
mov bx,ds j*DPW)RkKX
mov bufferaddr+2,bx V9oBSP'kt
mov buff1,bx ;MS.ag#
|C4fg6XDL
lea di,infosize RM|J |R
mov dl,80h IIR+qJ__|
mov ah,48h 6j6CA?|
int 13h ~qgh w@Q~
#|b*l/t8
lea bx,msgcyl 8TP$ ? 8l
mov dx,bx {fXkbMO|
mov ah,09 Yj& Sb
int 21h vXDs/,`r
mov dx,cylinders XZ %,h
call dispdx <VxA&bb7c
[Fr ](&Tx
lea bx,msghds hObL=^F
mov dx,bx |owr?tC
mov ah,09 ~ n]5iGz
int 21h Ooz ,?wU6
mov dx,heads EwPrh
call dispdx E'LI0fr
*k L Fs|U
lea bx,msgspt aS [[
AL
mov dx,bx DU!T#H
7
mov ah,09 +Ryj82;59z
int 21h K{ P-+(
mov dx,spt+2 fUjo',<s
call dispdx $f
=`fPo
mov dx,spt LIID(s!bX
call dispdx !zE{`H a~
yzS^8,
lea bx,msgtotal 8 Rj5~+5
mov dx,bx ?Y~t{5NJR
mov ah,09 *igmi9A
int 21h [bh?p+V
lea bx,sectors $@z77td3
call dispqword '8q3ub<\
?6:qAF
w
lea bx,msgss o'DtW#F
mov dx,bx P~\rP6
;
mov ah,09 u} mj )Nk
int 21h &O' W+4FAc
mov dx,sectorsize 6^b)Q(Edut
call dispdx A%8
Q}s$<s
Uc
tlE>X`
sbb word ptr sectors, 63d X
J<" S
p
jnc subok (]#^q8)]\9
sub word ptr sectors+2,1 0/Q_%
:
jnc subok & &}_[{fc
sub word ptr sectors+4,1 dtR"5TL<~}
jnc subok 9lYKG ^#D
sub word ptr sectors+6,1 SxR J{m~
k)b{ UFRW
subok: & BPYlfB1
W;OGdAa_
x4q}xwH
b9j}QK
xor ax,ax P =X]'m_B
mov blocknumL, ax ]
F y' M
mov blocknumL+2, ax tRo Sq;VrS
mov blocknumL+4, ax (kxS0 ]=
mov blocknumL+6, ax d {!P
c<
;73S;IPR
startread: O=o}uB-*6
Q#p)?:o/
call rwsect ,t`V^(PEq
w 0BphK[
adc word ptr blocknuml,63d gnp.!-
jnc addok 0>|q
[ SC
adc word ptr blocknuml+2,1 |*{*tW C1
jnc addok c-$r B_t+
adc word ptr blocknuml+4,1 geG0F}oC!
jnc addok =0cTct6
\
adc word ptr blocknuml+6,1 1b V
G%N
jnc addok *?m)VvR> |
Dd?G4xUG
addok: ,%9XG077
mov ax, word ptr sectors+6 {>ba7-Cy+y
cmp ax, blocknuml+6 \ja 6g
jg complete doanTF4Da
jl startread ZG=]b%
mov ax, word ptr sectors+4 .\XRkr'-
cmp ax, blocknuml+4 %L.S~dN 6
jg complete SP%X@ ~d
jl startread Ub3$ `
mov ax, word ptr sectors+2 }3*<sxw7<
cmp ax, blocknuml+2 [PIMG2"G
jg complete IO\1nB$0nb
jl startread jW: 7PS
mov ax, word ptr sectors }WsPu o
cmp ax, blocknuml Cv,WG]E7(
jg complete "^4*,41U
jl startread iE'_x$i
`
i[26Qb
complete: %p}vX9U')
8&@=Anc&q
lea bx,msgready MJ:c";KCq0
mov dx,bx o-8{ C0>:
mov ah,09 @8W@I|
int 21 x@
=p
wiN0|h>,
popa H:
(B ^uH
mov ax,3100h lD0p=`.
int 21h )U\i7[k>
(@^9oN~}
; oKn$g[,SJh
dispdx proc near e1Db
+ QBV
pusha MR
pMmu
lea bx, dsp+3 a OmG, +o
mov cx,4 @D9O< x
JT
7WZc)
repeat0: M XG>|
mov al,dl 31G :[;g
and al,0fh d8wGXNd7B
cmp al,09h $wM..ee
jg add40 L~ &S<5?
add al, 30h B
/;(#{U;
jmp okadd vU >^
add40: g}+|0F TV
add al,37h tiZ H;t';<
okadd: }_lG2#Ll5
mov byte ptr [bx],al *ra)u-
dec bx ]t 0o%w
shr dx,4 }U7IMONU
loopnz repeat0 MD[hqsh oh
lea bx,dsp =zn'0g, J4
mov dx,bx = Z+^n
?"
mov ah,09h gN/!w:
int 21h ?nc:bC
Y][12{I{
popa /O[6PG
ret =i)%AnZ^9
dispdx endp &kb~N-
^(; x-d3
dispqword proc near %B@NW2ZQ[
pusha $ oW= N
mov cx ,4 SWdmej[
add bx,6 /g u
VA
repeatdecbx: :%gc Sm
mov dx,[bx]
UuIjtqW
call dispdx ;2kQ)Bq"
sub bx,2 #4AU&UM+i
loopnz repeatdecbx ika*w
popa 6/;YS[jX
ret ,ojJ ;w5D
dispqword endp 6[t<g=
oywPPVxj
rwsect proc near NCk-[I?R
+`F(wk["m
lea bx,msg ranem0KQ)]
mov dx,bx "r6qFxY
mov ah,09h
hlVC+%8
int 21h 1sXCu|\q
f,O10`4s
lea bx,BlockNumL U.TZd"
call dispqword Xq1#rK(
*9n[ #2sM<
lea di, packetsize V ESvCei
mov dl,80h `he# !"
mov ah,42h = o(}=T>:"
int 13h O8Mypv/C
jnc readok W1)SgiXnuy
~ |Kq G
mov cx,5 g+o$&'\
;出错后重试(定位0道后再重读) 'pA%lc)
retryrd: !/}4_s`,
lea bx, msgReadErr qK'mF#n0#
mov dx,bx x)?V{YAL
mov ah,09 j"jssbu}
int 21h e, s S.
/>x EpR3_A
Jl SqTfA
lea di,dap0 e,OXn gC
mov dl,80h ^6Aa^|
mov ah,44h :Ou~?q%X
int 13h Jz''UJY/O
S*Ea" vBA
lea bx,BlockNumL 91z= ou
call dispqword OXLB{|hH80
,.Ofv):=
lea di, packetsize /
[6wm1?!
mov dl,80h <~|
n}&
mov ah,42h xiW}P% bf
int 13h S:!5 |o|
jnc readok @6ckB (
loopnz retryrd z"6o|]9I
~ T}D#}
readok: M Q =x:p{
lea di, packetsize #Shy^58$
mov dl,80h Hl $qmq
mov ah,43h 7Ydqg&
int 13h 54z`KX
73
.EhC\QpP
rwsect endp l z=D Gm
-(57C*#ap
code ends ;代码段结尾 bAt!S
end start ;结束汇编 Ps0 Cc _
Rc)]A&J
