第一个宏汇编程序 ck){N
? y
A\ CtM`
工作后不久，单位里我所在的小组有了一台浪潮0520(XT兼容机)，有了硬盘，有了汇编编译程序，就开始玩汇编了。当然那时的主要工作是用dBASEIII，这个我已经在读研期间自学会了，读了一本关于dBASEIII plus的英文书，编个dBASE/FoxBASE程序已经是小菜一碟了。 (>%Ddj6_>
s0~a5Ti3
那时候的硬盘老出点问题，经常碰上个“Error reading data....” 啥的小毛病，但是换又不方便而且很贵。PCTOOLS与NORTON DISKEDIT扫描盘比较慢。我就自己写了一个磁盘扫描程序。算是用汇编写的第一个正式的有点用处的程序吧！ 1>[3(o3t
@{:E&K 1f
这也是我现在电脑里唯一一个汇编语言的程序了，其它都随着磁盘来回更换丢了。所以，还是在老大这里存一份留个纪念吧！ . R#p<"$I
!-m (1
比较长啊！所以可以自动跳过。 ~
b!mKyrZ
(dLt$<F
.286 MMN2X xS
.radix 16 BOQ2;@:3
data segment ;定义数据段 @(,k%84z
{+0]diD
hCD0Zel
msg db 0dh, "Reading sector:$" 'p80X
^g
msg1 db 0dh, "Writing sector:$" ;$wS<zp6
msgready db 0dh,0a,0dh,0a,"Reading/Writing completed!", 0dh,0a, "$" +^iUY%pm
\f}S Hh
dsp db " $" l`UJHX
kOmTji7
;DAP wWKC
.N
PacketSize db 16d; // 数据包尺寸(16字节) wm}6$ n?Za
Reserved db 0; // ==0 Nq/,41
BlockCount dw 63d; // 要传输的数据块个数(以扇区为单位) TxoMCN?7c
BufferAddr dw 0,0 ; // 传输缓冲地址(segment:offset) k"uqso/
BlockNumL Dw 0,0; // 磁盘起始绝对块地址 ,2qJXMg"=$
BlockNumH Dw 0,0; // 磁盘起始绝对块地址 nw+ L _b
;O}%_ef@
;定位用DAP （复位到0磁道） 4L 85~l
DAP0 db 16d ?Lbw o<E
db 0 Ia=wf"JS)
dw 1 5 wmH3g#0
buff1 dw 0,0 hWf J h0I
dw 0,0,0,0 Z2_eT
C
u
YR@@:n'TP
Q.*qU,4);
;DiskParameters z | Hl*T
infosize dw 26d; WORD InfoSize; // 数据包尺寸 (26 字节)
:z_D?UQ
falgs dw 0; WORD Flags; // 信息标志 ; =ai]AYW
Cylinders DW 0; DWORD Cylinders; // 磁盘柱面数 #I'W[\ l~+
Heads DW 0; DWORD Heads; // 磁盘磁头数 s/Fc7V!;
SPT Dw 0,0; DWORD SectorsPerTrack; // 每磁道扇区数 H [w J; l
Sectors Dw 0,0,0,0; QWORD Sectors; // 磁盘总扇区数 x }[/A;N
SectorSize DW 0; WORD SectorSize; // 扇区尺寸 (以字节为单位) Py^F},?J
cpF\^[D
cmpsect dw 0 / V+&#N
iW(HOsA
msgcyl db 0dh,0a,"Disk Parameters",0dh,0a,"Total Cylinders:$" FVW<
F(g`
msgHds db 0dh,0a,"Heads:$" 7 [rn
,8@
msgspt db 0dh, 0a,"SectorsPerTrack:$" Ol`/r@s
msgTotal db 0d,0a, "Total Sectors:$" +ByxhSIr
msgSS db 0dh,0a, "Sector Size:$" 3k` "%R.H
2asA]sY
msgReadErr db 0dh,0a,"Error Reading Sectors:$" )l[<3< @s
msgWriteErr db 0dh,0a, "Error Writing Sectors:$" 'ejuzE9
msgReset db 0dh,0a, "Reseting drive to Cyl 0" 3ZGU? Z;R
bIu '^
R
rs?I,NV
buffer db 32768d dup(0); `Rub"zM
4_Tx FulX.
data ends ;数据段结尾 YAv-5
E3<jH
stack segment s #/JMvQ#
db 400 dup(?) 22"M#:r$
stack ends QXY-?0RO#
,A[40SZA
code segment ;定义代码段 #o SQWC=T
assume cs:code ;规定cs的内容 1mm/Ssw:C
assume ds:data ;规定ds的内容 G"T)+! 6t
assume ss:stack QZ$9 4XLI
PspH[db
start: H$>D_WeJ
pusha Qw!cd-zc
\K.i8f,
^>gRK*,
mov ax,data ;程序从start开始 wj!p6D;;
S
mov ds,ax ;ds置初值,data的段地址 p+ SFeUp
[u;]J*
;设置缓冲区 nyWA(%N1
lea bx, buffer IsxPm9P2<
mov bufferaddr,bx
%6j|/|#]
mov buff1,bx " ^u
mov bx,ds odMjxWY
mov bufferaddr+2,bx [cwc}f ^
mov buff1,bx {mY<R`Ee
~aQ>DpSEf
lea di,infosize _iLXs
mov dl,80h e S8tsI
mov ah,48h kSv?p1\@&P
int 13h VT96ph
LzB)o\a
lea bx,msgcyl z'=*p IY5f
mov dx,bx Tw/kD)u{
mov ah,09 GM
U.Kt
int 21h 'g$~ij ;x
mov dx,cylinders Y5&Jgn.l
call dispdx JR|yg=E
.^>[@w 3
lea bx,msghds M7-piRnd4
mov dx,bx 1k6f|Al -
mov ah,09 0AP wk
}
int 21h O`~G'l&@T
mov dx,heads H0Qpc<Z4/
call dispdx PwU}<Hrl]
5V!L~#
lea bx,msgspt r483"k(7
mov dx,bx Z#BwJHh
mov ah,09 y :WRpCZoa
int 21h %H75u 6
mov dx,spt+2 6^F "np{w
call dispdx B(w k $2
mov dx,spt }0 0mJ]H (
call dispdx k!H;(B"s-
$)\%i =
lea bx,msgtotal _6Wz1.]n
mov dx,bx fQi7e5
mov ah,09 jhjGDF
int 21h %Rj:r!XB:
lea bx,sectors $9Ho d-Z1
call dispqword \Si@t{`O
-|B?pR
lea bx,msgss t_6sD
r'.
mov dx,bx { :xINQ=}D
mov ah,09 t uo'4%]i
int 21h )_"Cz".|9
mov dx,sectorsize m8,P-m
call dispdx s
Z(LT'}
D-\\L[
sbb word ptr sectors, 63d oe_l :Y%
jnc subok E]WammX c
sub word ptr sectors+2,1 M;OY+ |uA
jnc subok GzW mXm
sub word ptr sectors+4,1 x.qn$?3V]
jnc subok d|k6#f-E
sub word ptr sectors+6,1 eUPG) { "
>gM| :FG
subok: 'uBXSP#
EgM.wQHR]
-B
fZ P5
z)xGZ*{=
xor ax,ax FiMP_ y*S
mov blocknumL, ax LbOjKM^-
mov blocknumL+2, ax e;~[PYeu
mov blocknumL+4, ax S!A)kK+
mov blocknumL+6, ax -U)6o"O_CV
7D\#1h
startread: zB/$*Hd
1v!Xx+}
call rwsect Izm8
qt=m
} R !-*Wk
adc word ptr blocknuml,63d )` -b\8uw
jnc addok RE Dh`Wd
adc word ptr blocknuml+2,1 #q Wa[kB
jnc addok )
[yM4QFl
adc word ptr blocknuml+4,1 fp|!LU
jnc addok ftq&<8
adc word ptr blocknuml+6,1 /1:`?
% ,2
jnc addok 85Zy0
l
Iz,a
Hrq
addok: `An|a~G 1
mov ax, word ptr sectors+6 *X +T>SKL
cmp ax, blocknuml+6 wcUf?`21,
jg complete <use+C2
jl startread jo {[*]Oa
mov ax, word ptr sectors+4 ZfM(%rx
cmp ax, blocknuml+4 i`Fg kABw
jg complete jJdw\`
jl startread L3lf2 8W
mov ax, word ptr sectors+2 VJ;n0*/
cmp ax, blocknuml+2 oNY;z-QK
jg complete _?
#}@?
jl startread }C! N$8 d,
mov ax, word ptr sectors |UZPn>F~
cmp ax, blocknuml | V Ps5
jg complete ,+<NP}Yg#G
jl startread g#ubxC7t<
]S9~2;2^,
complete: z #c)Q
Z2~;u[0a[
lea bx,msgready 9:"% j
mov dx,bx Kyw Dp 37^
mov ah,09 .>DqdtP [
int 21 zR N_` U
YQe9g>G&
popa ey BLgJt8P
mov ax,3100h mG@xehH
int 21h j v<BGr=4;
vS%o>"P
; w]X~I/6g
dispdx proc near jjL(=n<J<"
pusha 4]0|fi3} >
lea bx, dsp+3 W4Rs9NA}
mov cx,4 |
K| c
'
Z:FGSwT
repeat0: = zW}v
m }
mov al,dl Zm,< 2BP>
and al,0fh r7o63]
cmp al,09h fC+<n{"C
jg add40 8X!^ 2B}J
add al, 30h Zc(uK{3W-
jmp okadd KZUB{Y^)
add40: Q4\EI=4P]
add al,37h _Z z" `
okadd: j: B ?0~=
mov byte ptr [bx],al hE0
p> R8
dec bx Tu95 qL~^
shr dx,4 /{
Lo0
loopnz repeat0 Sx?IpcPSm
lea bx,dsp `V Y -3
mov dx,bx &l2oyQEF)
mov ah,09h }D/0& <1
int 21h Eh&*"&fHR
\E1[
/
popa &Q
7Q1`S
ret CM?dB$AwX
dispdx endp e}Cp;c]=
> Pj ?IE6
dispqword proc near +F$c_
\>
pusha <gRv7 ?V[z
mov cx ,4 4<fKB&
add bx,6 E7@0,9A U
repeatdecbx: } /q]:3M|
mov dx,[bx] / =&HunaxI
call dispdx { \9vW; '
sub bx,2 W- 5Z"m1I
loopnz repeatdecbx f{MXH&d 1\
popa +LeZjA[
ret pe$"
nUy|
dispqword endp e2CjZ" C
XcB!9AIO
rwsect proc near F+
qRC_C>O
{j O:9O @
lea bx,msg #8iRWm0*6
mov dx,bx Wcd;B7OH
mov ah,09h p&~8N#I#
int 21h T(zE RWo
U|VF zpJ
lea bx,BlockNumL vp7J';
call dispqword mu`h6?v
B'"(qzE-kM
lea di, packetsize *m6~x-x
mov dl,80h hi4#8W
mov ah,42h <| 9s {z
int 13h !PJD+SrG
jnc readok d6,SZ*AE
>utm\!Gac
mov cx,5 9gR@Q%b)
;出错后重试(定位0道后再重读) *-"DZ
retryrd: ZZ
k6 @C
lea bx, msgReadErr k2DT+}u7G
mov dx,bx 0)n#$d>
mov ah,09 }bIbMEMn
int 21h 2<53y~Yi%
0J7)UqMf.
hbdq'2!Qr
lea di,dap0 XM o#LS
mov dl,80h C# IV"Pkq
mov ah,44h ':Y Fm
int 13h qE?*:$
I t>8XKS
lea bx,BlockNumL ?
hU0S
call dispqword 0m k-o
FJJ+*3(
lea di, packetsize ovJwo r
mov dl,80h J k=E"I6
mov ah,42h 0V6gNEAUg
int 13h }qU(G3
jnc readok ]FV,}EZ
loopnz retryrd >KX
Sb@
Xr'Y[E [
readok: ^x(BZolkm
lea di, packetsize F_0vh;J
o
mov dl,80h A+v6N>}*
mov ah,43h &?C%
-"|c
int 13h w6 0I;.hy
e<o{3*%p)
rwsect endp H:byCFN-
?EQ]f34
code ends ;代码段结尾 at"-X ?`d
end start ;结束汇编 X:Z4QqT
^-Ob($(\
