第一个宏汇编程序 K; ,2ag
=87.6Ai
工作后不久，单位里我所在的小组有了一台浪潮0520(XT兼容机)，有了硬盘，有了汇编编译程序，就开始玩汇编了。当然那时的主要工作是用dBASEIII，这个我已经在读研期间自学会了，读了一本关于dBASEIII plus的英文书，编个dBASE/FoxBASE程序已经是小菜一碟了。 r+r-[z D(
Q ;V `
那时候的硬盘老出点问题，经常碰上个“Error reading data....” 啥的小毛病，但是换又不方便而且很贵。PCTOOLS与NORTON DISKEDIT扫描盘比较慢。我就自己写了一个磁盘扫描程序。算是用汇编写的第一个正式的有点用处的程序吧！ |1
iCt1~U
xXp$Nm] :
这也是我现在电脑里唯一一个汇编语言的程序了，其它都随着磁盘来回更换丢了。所以，还是在老大这里存一份留个纪念吧！ Y]!8Ymuww@
Yx>y(Whu.
比较长啊！所以可以自动跳过。 I<PKwT/?
e@}zp
.286 V<A_c^unO
.radix 16 p~1!O ]qLt
data segment ;定义数据段 ?=}~]A5N
;4tmnC>OnA
#+I)<a7\
msg db 0dh, "Reading sector:$" B U
|]4
msg1 db 0dh, "Writing sector:$" > 1 {V
msgready db 0dh,0a,0dh,0a,"Reading/Writing completed!", 0dh,0a, "$" "ph&hd}S
^vw? 4 O
dsp db " $" f mXU)
;<i `6e
;DAP wH& [Tg
PacketSize db 16d; // 数据包尺寸(16字节) 0n` 1GU)W
Reserved db 0; // ==0 n#8N{ya5x1
BlockCount dw 63d; // 要传输的数据块个数(以扇区为单位) )`<-
c2
BufferAddr dw 0,0 ; // 传输缓冲地址(segment:offset) 1iyd{r7|
BlockNumL Dw 0,0; // 磁盘起始绝对块地址 vs]# ?3+
BlockNumH Dw 0,0; // 磁盘起始绝对块地址 t6V@00M@
?nN3K
;定位用DAP （复位到0磁道） sq1Z;l31"
DAP0 db 16d u2%/</]h
db 0 _?$P?
dw 1 -L<
''2t
buff1 dw 0,0 XaOq &7
dw 0,0,0,0 !|}(tqt
>U?HXu/TJr
mMo<C_~w&
;DiskParameters Hyx%F N=
infosize dw 26d; WORD InfoSize; // 数据包尺寸 (26 字节) hYO UuC
falgs dw 0; WORD Flags; // 信息标志 iU]py
Cylinders DW 0; DWORD Cylinders; // 磁盘柱面数 =
zJY5@^'7
Heads DW 0; DWORD Heads; // 磁盘磁头数 Ry2rQM`
SPT Dw 0,0; DWORD SectorsPerTrack; // 每磁道扇区数 t
1gH9
Sectors Dw 0,0,0,0; QWORD Sectors; // 磁盘总扇区数 DG1C_hu
i
SectorSize DW 0; WORD SectorSize; // 扇区尺寸 (以字节为单位) o_C
j o
;[9 WB<t
cmpsect dw 0 HMDQE d;
eJD !dGa
msgcyl db 0dh,0a,"Disk Parameters",0dh,0a,"Total Cylinders:$" 'Pyeb`AXE9
msgHds db 0dh,0a,"Heads:$" ?ra6Lo
msgspt db 0dh, 0a,"SectorsPerTrack:$" z'FD{xdf
msgTotal db 0d,0a, "Total Sectors:$" u g 47JW
msgSS db 0dh,0a, "Sector Size:$" 2O}UVp>
(o`"s~)
msgReadErr db 0dh,0a,"Error Reading Sectors:$" 0`y;[qAG[
msgWriteErr db 0dh,0a, "Error Writing Sectors:$" H=
S y.
msgReset db 0dh,0a, "Reseting drive to Cyl 0" lrQ +G@#
eTVI. B@p
B^`'2$3
buffer db 32768d dup(0); c@iP^;D
sY,q*}SLD
data ends ;数据段结尾 H]>b< Cs
AW Se!\b
stack segment
|_7 nvck
db 400 dup(?) (9R;a np
stack ends &a
D ]_+b
DY]\@<ez
code segment ;定义代码段 TX x%\ V_6
assume cs:code ;规定cs的内容 e]N?{s
assume ds:data ;规定ds的内容 A'(v] w
assume ss:stack J<8~w; i
Ji %6/zV
start: } ti+tM*
pusha G+Vlaa/7
W
'54g$T
h|z{ (v
mov ax,data ;程序从start开始 Sg$14B
mov ds,ax ;ds置初值,data的段地址 ( W.euQ y
|/LCwq%
;设置缓冲区 F^Q[P4>m\
lea bx, buffer @ H'pvFLK?
mov bufferaddr,bx Q 5R7se_
mov buff1,bx }*0OLUFFJ
mov bx,ds
&Uqm3z?v
mov bufferaddr+2,bx i^hgs`hvU
mov buff1,bx u
Yk4qorA
doJ\7c5uU
lea di,infosize B/ @9.a.c
mov dl,80h -4:L[.2
mov ah,48h TM_ MJp
int 13h yj]\%3o<Z7
6@ `'}
lea bx,msgcyl &gIDcZ
mov dx,bx VeT\I.K[
mov ah,09 I^'U_"vB
int 21h "f'pa&oHi
mov dx,cylinders %DJxU
uh
call dispdx jU
K0?S>
|UbwPL_L
lea bx,msghds etbB;!6
mov dx,bx r +X%0@K
mov ah,09 $O|J8; "v
int 21h ]F&<{\:_}
mov dx,heads :{pJ
call dispdx 6.fahg?E
ba_T:;';0
lea bx,msgspt \A-w,]9^V
mov dx,bx Q=hf,/N
mov ah,09 )2c[]d /a4
int 21h ~ $I2{I#W
mov dx,spt+2 3W*O%9 t7
call dispdx **jD&h7$s-
mov dx,spt pfCNFF*"
call dispdx G(piq4D
dL9QYIfP
lea bx,msgtotal O{"
A3f
mov dx,bx e%#8]$
mov ah,09 9p,<< 5{
int 21h wr\d5j
lea bx,sectors DkO>?n:-C
call dispqword TRQX#))B
&^-quzlZ
lea bx,msgss nr /^HjMV
mov dx,bx RU`m|<
mov ah,09 X2#;1 ku
int 21h FBfyW-
7
mov dx,sectorsize ;jb+ x5t
call dispdx 4%5H<:V7
]@@ 3]
sbb word ptr sectors, 63d \ ]As L&
jnc subok XO |U4 #ya
sub word ptr sectors+2,1 qG S]2KY
jnc subok E&G_7->
sub word ptr sectors+4,1 "WKE% f
jnc subok z` b. ~ <P
sub word ptr sectors+6,1 Q+4
xU
!?Tu pi
subok: Vab+58s5
zw=as9z1-
LGb.>O^
UH8)r
xor ax,ax R!7emc0T
mov blocknumL, ax k]*DuVC OX
mov blocknumL+2, ax =d_@k[8<0
mov blocknumL+4, ax "Q*Z?6[Z
mov blocknumL+6, ax 8.vPh
?&Y3Fr)%
startread: mUi|vq)`=D
'WH@Zk/l
call rwsect IyE9G:fY
9gMNS6D'b
adc word ptr blocknuml,63d gd9ZlHo'Id
jnc addok ; *G[3kk
adc word ptr blocknuml+2,1 V%~u8 b
jnc addok pf.T{
/%
adc word ptr blocknuml+4,1 F8 4LMk?U
jnc addok F*WW v&\X
adc word ptr blocknuml+6,1 m9^ ? p
jnc addok 4i'2~w{/
|q$br- 0+
addok: ^0 t81,`
mov ax, word ptr sectors+6 ye U4,K o
cmp ax, blocknuml+6 MmOGt!}9A
jg complete Q}!U4!{i|p
jl startread [MM 11K
mov ax, word ptr sectors+4 >c~~i-=
cmp ax, blocknuml+4 _tE$a3`
jg complete @vf{_g<
jl startread J[<3Je=>$
mov ax, word ptr sectors+2 Q$iGpTL
cmp ax, blocknuml+2 yc,Qz.+g
jg complete SZ}t_w `
jl startread 9.5h
QZ
mov ax, word ptr sectors E&k{ubc T
cmp ax, blocknuml U4*5o~! =S
jg complete [ @ > 8Qhw
jl startread cm]D"GFLY
7`3he8@ze
complete: UQz8":#V
?9q{b\=l
lea bx,msgready ["N>Po
mov dx,bx qIQvix$8
mov ah,09 g M|X": j
int 21 L4SvE^2+
, cm;A'4]
popa 8xUmg&
mov ax,3100h Z iDmx-X
int 21h v ~7 3
o ?P(Fuf
; L QYT/
dispdx proc near $UlA_l29
pusha Fs:l"5~>1
lea bx, dsp+3 S <+_yB?
mov cx,4 WU1 I>i
XQ :HH 8
repeat0: (E)/' sEb
mov al,dl %j=E}J<H5*
and al,0fh F0Xv84:O
cmp al,09h UC
*
<]
jg add40 [_j.p MH/P
add al, 30h hIa@J EIt
jmp okadd IsO'aFK)ln
add40: Y=/3_[G
add al,37h FK!9to>
okadd: ->vfQwBFd
mov byte ptr [bx],al | ::kC3=
dec bx )|/t}|DIx
shr dx,4 ))63?_
loopnz repeat0 lfR"22t
lea bx,dsp Cm}ZeQ
mov dx,bx nM8aC&Rd\
mov ah,09h h Mw}[6m
int 21h }}~ ^!
z'r .LBnh
popa wP/rR D 6
ret 2q# t/oN3T
dispdx endp U^ BB |
,K7C2PV6
dispqword proc near ~I/7{B|yX
pusha
3 Yl[J;i
mov cx ,4 GMOv$Tn-_L
add bx,6 n[WXIE<
repeatdecbx: ]\P
mov dx,[bx] #v-)Ie\F?
call dispdx
Z.m.Uyz{7
sub bx,2 a(Z"
}m
loopnz repeatdecbx Jg
k@ti.}Z
popa ; ,*U,eV
ret 'r f='Y
dispqword endp xPqpNs-,
R4}G@&Q
rwsect proc near `(.ue8T
=}7wpTc,
lea bx,msg 7w )#[^
mov dx,bx @6.1E K0
mov ah,09h zE.4e&m%Z?
int 21h c [ff|-<g
W 5 :S+
lea bx,BlockNumL KnZm(c9+
call dispqword A'|W0|R9
!0`ZK-nA6
lea di, packetsize [ sz#*IJ
mov dl,80h I?-9%4 8iM
mov ah,42h D' O[0?N"g
int 13h .(;k]U P
jnc readok V0JoUyZ
hFa \x5I5
mov cx,5 $if(`8
;出错后重试(定位0道后再重读) L0|Vc9
retryrd: /]]\jj#^
lea bx, msgReadErr a|?CC/ Ra
mov dx,bx Tjur e]wQz
mov ah,09 #=t
:xEz
int 21h OY~5o&Oa
G`|mP:T:o
$yaE!.Kc
lea di,dap0 7Yj\*N
mov dl,80h +cy(} Vp
mov ah,44h e5fJN
)+a
int 13h /[nt=#+
xKsn);].`
lea bx,BlockNumL >E
"FoZM=
call dispqword \ox:/-[c\<
XrSqU D
lea di, packetsize ]2zx}D 4f
mov dl,80h v}[K Vwse
mov ah,42h Jc9SH C
J
int 13h *
JO"8iLw
jnc readok @b!fs
loopnz retryrd !^q<)!9<EO
2%vw C]A
readok: RWTv,p LK
lea di, packetsize -lSm:O@'
mov dl,80h "h og A5=
mov ah,43h w/G5I )G
int 13h ZWf{!L,@Z
pS%,wjb&P
rwsect endp F$F5N1<
e%'9oAz
code ends ;代码段结尾 Xg!Mc<wA [
end start ;结束汇编 AH=6xtS-
tvRa .3
