第一个宏汇编程序 /CX VLl8~
SW? p?<
工作后不久，单位里我所在的小组有了一台浪潮0520(XT兼容机)，有了硬盘，有了汇编编译程序，就开始玩汇编了。当然那时的主要工作是用dBASEIII，这个我已经在读研期间自学会了，读了一本关于dBASEIII plus的英文书，编个dBASE/FoxBASE程序已经是小菜一碟了。 odu DA:
fnu"*5bE
那时候的硬盘老出点问题，经常碰上个“Error reading data....” 啥的小毛病，但是换又不方便而且很贵。PCTOOLS与NORTON DISKEDIT扫描盘比较慢。我就自己写了一个磁盘扫描程序。算是用汇编写的第一个正式的有点用处的程序吧！ zY9 H%
f@V3\Z/6E
这也是我现在电脑里唯一一个汇编语言的程序了，其它都随着磁盘来回更换丢了。所以，还是在老大这里存一份留个纪念吧！ 15H6:_+=0
XSRdqU>Aun
比较长啊！所以可以自动跳过。 1cJsj
L2z2}U=<
.286 P\R27Jd
.radix 16 t} p@:'
data segment ;定义数据段 "4xfrlOc
+C {p%`<
Zm TDQ`Ix
msg db 0dh, "Reading sector:$" 6LUC!Sh
msg1 db 0dh, "Writing sector:$" 8HErE< _(
msgready db 0dh,0a,0dh,0a,"Reading/Writing completed!", 0dh,0a, "$" d]v+mVAyE
^>$P)=O:v
dsp db " $" r0dDHj
~F
I=Zx"'Um
;DAP ^HA
%q8| n
PacketSize db 16d; // 数据包尺寸(16字节) M: SO2Czz
Reserved db 0; // ==0 ?pGkk=,KB
BlockCount dw 63d; // 要传输的数据块个数(以扇区为单位) |;vi*u
BufferAddr dw 0,0 ; // 传输缓冲地址(segment:offset) \F6LZZ2Lv
BlockNumL Dw 0,0; // 磁盘起始绝对块地址 O/Y)&VG7
BlockNumH Dw 0,0; // 磁盘起始绝对块地址 K`KLC.j
l}g;'9ZB
;定位用DAP （复位到0磁道） H#d:kil Ny
DAP0 db 16d v90T{1+M|4
db 0 )LHj+B
dw 1 {U11^w1"3
buff1 dw 0,0 udqS'g&
dw 0,0,0,0 \ZXLX'-
@9G- m(?*
fQLax
;DiskParameters e ;95a
infosize dw 26d; WORD InfoSize; // 数据包尺寸 (26 字节) RuR t0Sd3
falgs dw 0; WORD Flags; // 信息标志 l:(Rb-Wy
Cylinders DW 0; DWORD Cylinders; // 磁盘柱面数 ?w&SW{ I
Heads DW 0; DWORD Heads; // 磁盘磁头数 {bNXedZ\
SPT Dw 0,0; DWORD SectorsPerTrack; // 每磁道扇区数 5F $V`kYT
Sectors Dw 0,0,0,0; QWORD Sectors; // 磁盘总扇区数 <9A@`_';Aq
SectorSize DW 0; WORD SectorSize; // 扇区尺寸 (以字节为单位) |QZ 58)>
TYgQJW?
cmpsect dw 0 >v5k{Cbp0
zsl,,gk9Y
msgcyl db 0dh,0a,"Disk Parameters",0dh,0a,"Total Cylinders:$" o >D
msgHds db 0dh,0a,"Heads:$" !fk ep=
msgspt db 0dh, 0a,"SectorsPerTrack:$" %:C ]7gQ
msgTotal db 0d,0a, "Total Sectors:$"
\' li
msgSS db 0dh,0a, "Sector Size:$"
:Ao!ls' =
!
T9]/H?
msgReadErr db 0dh,0a,"Error Reading Sectors:$" Wsj=!Obc
msgWriteErr db 0dh,0a, "Error Writing Sectors:$" l5t2\Fl
msgReset db 0dh,0a, "Reseting drive to Cyl 0" -p,x&h,p
n-;y*kD
:VA.Q rKW
buffer db 32768d dup(0); v"DL'@$Ut{
qCMl!g'
data ends ;数据段结尾 - M5=r>1;
{{yt
*7k {
stack segment p='-\M74K
db 400 dup(?) 9ptFG]lZ
stack ends *wbZ;rfF
)h$NS2B`
code segment ;定义代码段 ?(zoTxD
assume cs:code ;规定cs的内容 j5
wRGn 3
assume ds:data ;规定ds的内容 (&\aA 0-}H
assume ss:stack !sSQQo2Sv
Uu p(6`7
start: ik,lSTBD
pusha &Vk; VM`5
}E^S]hdvz
] gb=
mov ax,data ;程序从start开始 alFjc.~}
mov ds,ax ;ds置初值,data的段地址 $ItF])Bj5N
irBDGT~
;设置缓冲区 u b?K,
lea bx, buffer wdE ?SD s
mov bufferaddr,bx v Y|
!
mov buff1,bx g=)J ~1&p
mov bx,ds &~DTZg Y
mov bufferaddr+2,bx H^%.=kf
mov buff1,bx % g"eV4 j
T6 #"8qz<
lea di,infosize 6)gd^{
mov dl,80h $6>?;
mov ah,48h v6a]1B
int 13h |
BU+:+
GJ(d&o8
lea bx,msgcyl k)(Biz398E
mov dx,bx <I*x0BM=
mov ah,09 ` (4pu6uT
int 21h _O:WG&a6
mov dx,cylinders x2VBm$
>
call dispdx J]/}ojW3
o@E/r.uK
lea bx,msghds 7Hw< ojkt
mov dx,bx lT8\}hNI+
mov ah,09 ) |#%Czd4
int 21h t` ^ Vb-
mov dx,heads L):U"M>]=
call dispdx dWRrG- '
{y^3> 7
lea bx,msgspt 5 MxL*DB=b
mov dx,bx _Tm0x>EM
mov ah,09 !cEG}(|h
int 21h %,*$D} H
mov dx,spt+2 |I8Mk.Z=FA
call dispdx ekSY~z=/u
mov dx,spt q`|CrOzO
call dispdx jk~:\8M(A
P1zK2sL_
lea bx,msgtotal &x:JD1T}
mov dx,bx dx_6X!=.J
mov ah,09 }qPhx6 nP
int 21h +*nGp5=^GE
lea bx,sectors ZDLMMX x>
call dispqword tB(4Eq
\
9L eNe}9v
lea bx,msgss D #2yIec
mov dx,bx uYO|5a<f~
mov ah,09 m@
xi0t
int 21h /M0/- pV 9
mov dx,sectorsize 0Ce]V,i6C>
call dispdx W=}Okq)x9I
25{ uz
sbb word ptr sectors, 63d obClBO)@Y
jnc subok Xo5$X 7m
sub word ptr sectors+2,1 }2>"<)
jnc subok 2-If]Fc
sub word ptr sectors+4,1 AD5)
.}[F
jnc subok <|6%9@
sub word ptr sectors+6,1 '{?C{MK3Q
wNCCH55Pt
subok: E;\M1(\u
N Y
7()?C}Ni-
(g8*d^u#PO
xor ax,ax
j#A%q"]8
mov blocknumL, ax L-i>R:N4
mov blocknumL+2, ax +RZ~LA \+
mov blocknumL+4, ax 5CYo7mJ 6+
mov blocknumL+6, ax @ Cs V]97`
Y#V8(DTyH
startread: &M &{yc*%
Sq]pQ8
call rwsect !4#"!Md4o
i\} :hU-U
adc word ptr blocknuml,63d g;p)n
jnc addok 8pZ< 9t'
adc word ptr blocknuml+2,1 MEZ{j%-a
jnc addok Y0uvT7+[hi
adc word ptr blocknuml+4,1 KlxN~/gyik
jnc addok d 4{FDqto
adc word ptr blocknuml+6,1 7G2PMe;$m
jnc addok 0Dv JZ|e
h#YD~!aJ
addok: Q %=YM4 ;
mov ax, word ptr sectors+6 P8yIegPY
cmp ax, blocknuml+6 nY-* i!H
jg complete T8 J4C=?/
jl startread B;zt#H4
mov ax, word ptr sectors+4 FVWfDQ$&v
cmp ax, blocknuml+4 Gy29MUF
jg complete N0TeqOi4Y
jl startread 4 2) mM#
mov ax, word ptr sectors+2 n[+'OU[
cmp ax, blocknuml+2 8Cf|*C+_'
jg complete 4n( E;!s
jl startread oW }!vf3z
mov ax, word ptr sectors 70 W"G
X&
cmp ax, blocknuml n$+M%}/f
jg complete GUp; AoQ
jl startread j RZ%} KX
dJ3
IUe
complete: =C7
khE
~ 9o6 W",
lea bx,msgready #XIc
"L)c
mov dx,bx U5 ZX78>a
mov ah,09 O_,O,1
int 21
a=}*mF[ug
GY!C|7kN
popa [IX+M# mf
mov ax,3100h +=@ ^i'
int 21h z5cYyx
r>
.QWhK|(.!
; R'K/t|MC
dispdx proc near j.?:Gaab?#
pusha lP<I|O=z
lea bx, dsp+3 c=p=-j=.J
mov cx,4 1 TJ0D_,
Rs;15@t@
repeat0: `x 8B n"
mov al,dl eb:A 1f4L
and al,0fh W.}]
.7}h
cmp al,09h mX# "+X|
jg add40 H?rg5TI0
add al, 30h BR_TykP
jmp okadd C 0 ) Z6
add40: fjz) Gp
add al,37h +a)E| (cN
okadd: {")\0|2\x
mov byte ptr [bx],al GuQRn
dec bx 5mB]N%rfW%
shr dx,4 '?Bg;Z'L %
loopnz repeat0 Gm8E<iTP
lea bx,dsp 1JS
2SxF
mov dx,bx x-m/SI]_N
mov ah,09h 9(1rh9`=
int 21h | hzT;
OK ue" p
popa D@54QJ<
ret /I{R23o
dispdx endp dbGg
D=}o
n@>wwp
dispqword proc near >>'C
:7+Y
pusha
+ c,[ Q
mov cx ,4 0%C^8%(x
add bx,6 v"6 \=@
repeatdecbx: t%0?N<9YkU
mov dx,[bx] 8v_C5d\
call dispdx rGwIcx(%
sub bx,2 >9K//co"of
loopnz repeatdecbx S>:,z}i
popa S'i ;xL>
ret 0& w0a P`Y
dispqword endp 4*H"Z(HP
b Y8GA
rwsect proc near rzLd" `
-$k>F#
lea bx,msg zQ)+/e(8
mov dx,bx XX; 6 P
mov ah,09h I}0_nge
int 21h oVO.@M#
i?}>.$j
lea bx,BlockNumL NP
t(MFK \
call dispqword +++pI.>(*Q
t 0O4GcAN
lea di, packetsize 6qp5Xt+
mov dl,80h 4SVW/Zl.?
mov ah,42h )/t 6" "
int 13h :b#%C
pR
jnc readok a+z2Zd!u\x
'5 .\#=S 1
mov cx,5 7nE"F!d+0
;出错后重试(定位0道后再重读) E,"&-
`/2v
retryrd: F 1W+o?B
lea bx, msgReadErr D_D ,t8_Y
mov dx,bx ^$?qT60%d|
mov ah,09 b) } +>Wx
int 21h !c(QSf502
Lk, +Tfk"
Ej(2w Q
lea di,dap0 GrI& ?=S^
mov dl,80h ]#eh&jw
mov ah,44h @'jf KW
int 13h n Y w\'c
8e:vWgQpL
lea bx,BlockNumL )C]x?R([m
call dispqword 5~VosUp e7
pO/% N94s
lea di, packetsize G?)vWM`j
mov dl,80h ?-~I<f ]_
mov ah,42h nfE@R."A
int 13h RI. 2F*|
jnc readok q? z>
loopnz retryrd LsTffIP
HkjEiU
readok: XAic9SNu;
lea di, packetsize Ob@Hng% v
mov dl,80h 05e>\}{0
mov ah,43h ]|oJ)5P
int 13h $[CA&Y.
I 48VNX
rwsect endp %efGt6&
p 8> %Mflf
code ends ;代码段结尾 4('JwZw\!
end start ;结束汇编 d0UZ+ RR#
TUTe9;)
