第一个宏汇编程序 :i ?c
AsZy Pybq
工作后不久，单位里我所在的小组有了一台浪潮0520(XT兼容机)，有了硬盘，有了汇编编译程序，就开始玩汇编了。当然那时的主要工作是用dBASEIII，这个我已经在读研期间自学会了，读了一本关于dBASEIII plus的英文书，编个dBASE/FoxBASE程序已经是小菜一碟了。 3kJSz-_M
Z-U3Tr SI
那时候的硬盘老出点问题，经常碰上个“Error reading data....” 啥的小毛病，但是换又不方便而且很贵。PCTOOLS与NORTON DISKEDIT扫描盘比较慢。我就自己写了一个磁盘扫描程序。算是用汇编写的第一个正式的有点用处的程序吧！ 3_VWtGQ
H'EBe;ccM
这也是我现在电脑里唯一一个汇编语言的程序了，其它都随着磁盘来回更换丢了。所以，还是在老大这里存一份留个纪念吧！ *=E4|> Ul,
/e*<- a
比较长啊！所以可以自动跳过。 OZ Obx
:]C\DUBo
.286 d9
8p v%
.radix 16 *Lm zGF|
data segment ;定义数据段 &:+_{nc,
71&`6 #
T? __
msg db 0dh, "Reading sector:$" !})3Fb
msg1 db 0dh, "Writing sector:$" =g@hh)3wP
msgready db 0dh,0a,0dh,0a,"Reading/Writing completed!", 0dh,0a, "$" _x#r,1V+D
-IV-"-6(
dsp db " $" mW_A 3S5
&E
k\
;DAP
t.O4-+$ig
PacketSize db 16d; // 数据包尺寸(16字节) E\}Q9, Z$
Reserved db 0; // ==0 B;{sr 'CP
BlockCount dw 63d; // 要传输的数据块个数(以扇区为单位) >273V+dy
BufferAddr dw 0,0 ; // 传输缓冲地址(segment:offset) d7c m?+
BlockNumL Dw 0,0; // 磁盘起始绝对块地址 9*|A n
BlockNumH Dw 0,0; // 磁盘起始绝对块地址 v g tJ+GjN
@qJv
;定位用DAP （复位到0磁道） ;rF:$ 37^
DAP0 db 16d m}
=<@b:l
db 0 iN`L* h
dw 1 6 d 8n1_
buff1 dw 0,0 S
1J i\
dw 0,0,0,0 ~b4fk^u`+
Q([g1?F9*
[7)#3
;DiskParameters ?~Vev D
infosize dw 26d; WORD InfoSize; // 数据包尺寸 (26 字节) oU 8o ;zk0
falgs dw 0; WORD Flags; // 信息标志 VKrKA71Z~
Cylinders DW 0; DWORD Cylinders; // 磁盘柱面数 >y q L
Heads DW 0; DWORD Heads; // 磁盘磁头数 K& Q0]r?
SPT Dw 0,0; DWORD SectorsPerTrack; // 每磁道扇区数 u
q
y~hY
Sectors Dw 0,0,0,0; QWORD Sectors; // 磁盘总扇区数 z#&qWO
SectorSize DW 0; WORD SectorSize; // 扇区尺寸 (以字节为单位) .Qj`_q6=
1G8t=IA%D
cmpsect dw 0 ] @1ncn7N
gD fVY%[Z
msgcyl db 0dh,0a,"Disk Parameters",0dh,0a,"Total Cylinders:$" zwHT t
E
msgHds db 0dh,0a,"Heads:$" |@)ij c4i
msgspt db 0dh, 0a,"SectorsPerTrack:$" 7@VR:~n}k
msgTotal db 0d,0a, "Total Sectors:$" naB[0I&
N
msgSS db 0dh,0a, "Sector Size:$" w@f_TG"Vt
X_|} b[b
msgReadErr db 0dh,0a,"Error Reading Sectors:$" m7mC
7x
msgWriteErr db 0dh,0a, "Error Writing Sectors:$" WUi7~Ei}
msgReset db 0dh,0a, "Reseting drive to Cyl 0" -3b0;L&4>x
]gj@r[
z<P#dj x
buffer db 32768d dup(0); K
i
@8
6Ue6b$xE
data ends ;数据段结尾 2I39fZa
C[$<7Mi|;
stack segment
Vk~}^;`Y
db 400 dup(?) 8c$Isv Jg
stack ends |y=D^N TG
d{GXFT;0
code segment ;定义代码段 r>q` # ~
assume cs:code ;规定cs的内容 c Ky%0oTla
assume ds:data ;规定ds的内容 4 ]8PF
assume ss:stack {gi"ktgk
{k~$\J?.
start: kQBVx8Uq]
pusha u09OnP\
]R ]X#jm
qOa-@MN
mov ax,data ;程序从start开始 e S
Fmx
mov ds,ax ;ds置初值,data的段地址 PwNLJj+%
Bp6
Evi
;设置缓冲区 I 3aE g
lea bx, buffer E3KPJ`=!*"
mov bufferaddr,bx ||,;0 7
mov buff1,bx S"Zs'7dy`
mov bx,ds N4 mQN90t
mov bufferaddr+2,bx TT&!WbA-Hk
mov buff1,bx /ci.IT$Q^
A><%"9p Z
lea di,infosize Ap> n4~
mov dl,80h G6Fg<g9:
mov ah,48h L_Ai/'
int 13h ,|c_l)
+l3
vIN
lea bx,msgcyl z?YGE iR/}
mov dx,bx sQH. }W$C
mov ah,09 cRfX
int 21h i|d41u;@
mov dx,cylinders >"nk}@
call dispdx "|&*MjwN6
;NP b
lea bx,msghds Pr /&p0@aV
mov dx,bx ,>jm|BTD {
mov ah,09 *'t `; m~
int 21h C,z]q$4
mov dx,heads $fvUb_n
call dispdx W]*wxzf!5z
>zhbipA
lea bx,msgspt YG n:_9
mov dx,bx K|1^?#n
mov ah,09 rC*n Z*
int 21h `") I[h
mov dx,spt+2 4-n.4j|
call dispdx S I(8.$1
mov dx,spt 3 \WdA$Wx
call dispdx u})JQ<|
%yrP: fg/
lea bx,msgtotal WK^ qYfq|
mov dx,bx ?%0i,p@<
mov ah,09 Ua3ERBX{
int 21h dX3> j{_
lea bx,sectors " 7
4 L
call dispqword ohyUvxvj
p_(hM&>C
lea bx,msgss ,^ ,J[
F
mov dx,bx 2I4P":
q
mov ah,09 XZT( :(
int 21h BPOWo8TqD^
mov dx,sectorsize 1Q$ M/}
call dispdx =gqZ^v&5U
BZ T%+s;u9
sbb word ptr sectors, 63d \%^3Izsc
jnc subok hg>YOf&RG
sub word ptr sectors+2,1 q.X-2jjpx:
jnc subok e)bqE^JP
sub word ptr sectors+4,1 ";. 3+z
jnc subok Ek. j@79
sub word ptr sectors+6,1 C ]XDDr
5astv:p,P
subok: +[7u>RJ
FxT
[4
)T+htD)
=f p(h X"
xor ax,ax sR0nY8@F
mov blocknumL, ax y@z #Jw<
mov blocknumL+2, ax ?{dno =
mov blocknumL+4, ax K=>/(s Wiq
mov blocknumL+6, ax \5l}5<|
Zj0&/S
startread: %?$"oWmenS
v>P){VT
call rwsect ,J#5Y.
p 5' \< gQ
adc word ptr blocknuml,63d i
xkg,
jnc addok zC^Ib&gm>,
adc word ptr blocknuml+2,1 % ~[F^
jnc addok ab v]
adc word ptr blocknuml+4,1 / L8=8
jnc addok OWkK] O
adc word ptr blocknuml+6,1 0nuFWV
jnc addok n#fg7d%
=w5w =qB
addok: pL-$N p] V
mov ax, word ptr sectors+6 3WVHI$A9
cmp ax, blocknuml+6 Y#5S;?bR
jg complete hv)($;
jl startread Q&LkST-i
mov ax, word ptr sectors+4 +$'/!vN
cmp ax, blocknuml+4 +Sn jb0
jg complete GgYo mR:
jl startread (^4%Fk&I-
mov ax, word ptr sectors+2 !14 z4]b
cmp ax, blocknuml+2 eyWwE%
jg complete 3 2Z4&~ I
jl startread m4
(Fuu
mov ax, word ptr sectors iB`m! g6$
cmp ax, blocknuml U#P#YpD;==
jg complete 'mM5l *{
jl startread YD%Kd&es
ij),DbWd
complete: G7<X l}
3N21[i2/m
lea bx,msgready 6bn-NY:i
mov dx,bx .PxM
#;i2
mov ah,09 HTG;'$H^
int 21 v]!7=>/2
NlMx!f>b%/
popa StVv" YY
mov ax,3100h U|QDV16f
int 21h s5dh]vNN
-d~'tt
i
; '37b [~k4
dispdx proc near WveFB%@`;
pusha ~eP 2PG
lea bx, dsp+3 /_|1,x-Kx
mov cx,4 x @ O:
#]'xUg cE9
repeat0: \NqC i'&
mov al,dl }R x%&29&
and al,0fh @wPmx*SF
cmp al,09h J @fE" )
jg add40 ;sf/tX
add al, 30h 73.b9mF
jmp okadd k|D!0^HE[
add40: 9.B7Owgr89
add al,37h tQ67XAb
okadd: .wSAysiQ|P
mov byte ptr [bx],al )Fw)&5B!
dec bx pf_ /jR
shr dx,4 B+LNDnjO]
loopnz repeat0 S
7vE[VF5
lea bx,dsp A0ToX) |C
mov dx,bx Y 4O L 82Y
mov ah,09h `4qKQJw
int 21h SOL=3hfb^
4Ojw&ys@V
popa :KLD~k7yA(
ret 1 DP)6{x
dispdx endp \v_C7R;&
d w|0K+-PH
dispqword proc near ik*_,51Zj
pusha ]lY9[~
v
mov cx ,4 J Nz 0!wi
add bx,6 ; <A/e
repeatdecbx: wGH@I_cy>
mov dx,[bx] L9@jmh*E
call dispdx ZJ(!jc$"*%
sub bx,2 9vu8koL
loopnz repeatdecbx :Mk}Suf&H
popa ccSS a u5N
ret s$_#T
dispqword endp DvCt^ O*
G
;;~xfE'
rwsect proc near ^xwFjQXx
I'C , '
lea bx,msg :6 +~"7T
mov dx,bx wW4S@m
mov ah,09h 5,Y2Lzr
int 21h LayU)TIt
h(-&.Sm")H
lea bx,BlockNumL 2'U9!. o
call dispqword ^d*>P|n*@e
i.] zq
lea di, packetsize Dhoj|lc
mov dl,80h V]}b3Y!(
mov ah,42h l? o-
p
int 13h bR K9Qt#3
jnc readok jlBCu(.,_
Izu .I_$4
mov cx,5 bph*
X{lFK
;出错后重试(定位0道后再重读) fL;p^t u3
retryrd: cw.7YiU
lea bx, msgReadErr 4;||g@f'[
mov dx,bx jHCKV
mov ah,09 s|T7)PgR
int 21h JPG!c X%
F e .*O`
M
6sDtL 9l
lea di,dap0 )QD}R36Ic
mov dl,80h [4 j;FN Fa
mov ah,44h (/U1J
int 13h $ Zr,
-
A\)X&vR[6
lea bx,BlockNumL 3D0I5LF&
call dispqword @U JmbD{
YP,PJnJU8
lea di, packetsize (T01 hR&
mov dl,80h \tx/!t A
mov ah,42h Bl] ;^W^P
int 13h b*KZe[#M1
jnc readok rYQ@"o0/Y
loopnz retryrd aw1J#5j` n
b3lpNJ J
readok: : 4WbDe R
lea di, packetsize X;:xGZ- oY
mov dl,80h G
m! ]
mov ah,43h Uj )
]nJX
int 13h ltR^IiA}
*
U4:K@ y
rwsect endp }i:'f 2/
}o- P
code ends ;代码段结尾 *lAdS]I
end start ;结束汇编 ,be?GAq
uw! |G>
