第一个宏汇编程序 qyfxT Q5
Hxi=\2-
工作后不久，单位里我所在的小组有了一台浪潮0520(XT兼容机)，有了硬盘，有了汇编编译程序，就开始玩汇编了。当然那时的主要工作是用dBASEIII，这个我已经在读研期间自学会了，读了一本关于dBASEIII plus的英文书，编个dBASE/FoxBASE程序已经是小菜一碟了。 <]qd9mj5
<s3(
那时候的硬盘老出点问题，经常碰上个“Error reading data....” 啥的小毛病，但是换又不方便而且很贵。PCTOOLS与NORTON DISKEDIT扫描盘比较慢。我就自己写了一个磁盘扫描程序。算是用汇编写的第一个正式的有点用处的程序吧！ 7V``f:#d
PzkXrDlB7
这也是我现在电脑里唯一一个汇编语言的程序了，其它都随着磁盘来回更换丢了。所以，还是在老大这里存一份留个纪念吧！ %"fK Z
)Dpt<}}\
比较长啊！所以可以自动跳过。 yyDBW`V((
g}KZL-p4\m
.286 [
[CXMbD`*
.radix 16 xmx;tq
data segment ;定义数据段 b
u9&sQ;
!jnIXvT1qy
4ux5G`oL
msg db 0dh, "Reading sector:$" 0J</`/g H
msg1 db 0dh, "Writing sector:$" L4Y3\4xXO
msgready db 0dh,0a,0dh,0a,"Reading/Writing completed!", 0dh,0a, "$" *lO+^\HXD
$ zi\ /Yw
dsp db " $" ?tQv|x
WfO$q^'?DP
;DAP A6.'1OD
PacketSize db 16d; // 数据包尺寸(16字节) =)5a=^
6
Reserved db 0; // ==0 Khd ,| pM
BlockCount dw 63d; // 要传输的数据块个数(以扇区为单位) 6^u(PzlA|~
BufferAddr dw 0,0 ; // 传输缓冲地址(segment:offset) i_ T d
I
BlockNumL Dw 0,0; // 磁盘起始绝对块地址 s\ R?@
BlockNumH Dw 0,0; // 磁盘起始绝对块地址 (.+n1)L ?
}"k(kH
;定位用DAP （复位到0磁道） 'PbA/MN
DAP0 db 16d M X\-)e#
db 0 Z"T(8>c;g
dw 1 DK%eFCo<~
buff1 dw 0,0 E NjD~ S
dw 0,0,0,0 7E )7sd
~ ri w7"
+N_%|!F-c
;DiskParameters f`rz
)C03
infosize dw 26d; WORD InfoSize; // 数据包尺寸 (26 字节) - Sgp,"a
falgs dw 0; WORD Flags; // 信息标志 qEz' l'%(
Cylinders DW 0; DWORD Cylinders; // 磁盘柱面数 kn|l 3+
Heads DW 0; DWORD Heads; // 磁盘磁头数 K a|\gl;V
SPT Dw 0,0; DWORD SectorsPerTrack; // 每磁道扇区数 Z`t?kXDNoI
Sectors Dw 0,0,0,0; QWORD Sectors; // 磁盘总扇区数 83*k.]S`
SectorSize DW 0; WORD SectorSize; // 扇区尺寸 (以字节为单位) ^k##a-t<_>
!2I wur u
cmpsect dw 0 ZfikNQU9r
K 5[ 3WHQ
msgcyl db 0dh,0a,"Disk Parameters",0dh,0a,"Total Cylinders:$" }`FPe
msgHds db 0dh,0a,"Heads:$" <Rt@z|Zv
msgspt db 0dh, 0a,"SectorsPerTrack:$" g iJyMd}x
msgTotal db 0d,0a, "Total Sectors:$" nP31jm+A
msgSS db 0dh,0a, "Sector Size:$" +,>bpp 1
!,"G/}'^;
msgReadErr db 0dh,0a,"Error Reading Sectors:$" zSC Pp6
msgWriteErr db 0dh,0a, "Error Writing Sectors:$" #::vMnT
msgReset db 0dh,0a, "Reseting drive to Cyl 0" ir#^5e @
*^_!W'T{j
"r+<=JU>OV
buffer db 32768d dup(0); z(eAwmuli
3zHiu*2/!
data ends ;数据段结尾 D*,H%xA
t Ya8I/HpT
stack segment h DsORh!i
db 400 dup(?) tn1aH
+
stack ends 0yN lf-O
:nEV/" #F
code segment ;定义代码段 h]P$L >
assume cs:code ;规定cs的内容 6P| n eb}
assume ds:data ;规定ds的内容 T,> e\
assume ss:stack jXZNr
sA
lgp2-
start: 4iW 2hV@m
pusha %L.+r!.
k]g\`
gc
*[n^6 )
mov ax,data ;程序从start开始 Pc1N~?}.
mov ds,ax ;ds置初值,data的段地址 i[# Tn52D
`_i-BdW
;设置缓冲区 c*Nbz,:
lea bx, buffer jp`N%O]6
mov bufferaddr,bx `_`,XkpzCJ
mov buff1,bx )_?$B6hf,&
mov bx,ds ;Vt
u8f
mov bufferaddr+2,bx
@eWx4bl
mov buff1,bx N/VIP0Kb
+Z*%,m=N(
lea di,infosize )`-]nMc
mov dl,80h sA .yb,Fw
mov ah,48h yqwr0yDAl
int 13h -2_$zk* n
J M%#L *;
lea bx,msgcyl p6)UR~9Rs
mov dx,bx ?2;G_P+
mov ah,09 A?zW !'
int 21h L+L9)8FJ
mov dx,cylinders v2V1&-
call dispdx A>puk2 s
P0=F9`3 wb
lea bx,msghds vxx3^;4p
mov dx,bx jU$PO\UTk
mov ah,09 =
xk @ Q7$
int 21h P+UK@~D+G
mov dx,heads y"ck;OQD
call dispdx DM9 5Il[/
,YTIYG](
lea bx,msgspt &EOh}O<
mov dx,bx
Ex3 woT-
mov ah,09 g K CIfxM
int 21h OLwxGRYX
mov dx,spt+2 r
N7"%dx
call dispdx Le!I-i( aD
mov dx,spt ~T~v*' _h
call dispdx Jt8 v=<@
e hq6.+l
lea bx,msgtotal ./'n2$^3
mov dx,bx lOui{QU
mov ah,09 M<M
r (z
int 21h (Q+3aEUE
lea bx,sectors Sj ? 'T @
call dispqword ]u ';zJ.
_JH6bvb Q
lea bx,msgss 7F4]EA ^
mov dx,bx YBP{4Rl
mov ah,09 =qR
VKz
int 21h 8^l
XM-G-
mov dx,sectorsize e)kf;Hkf
call dispdx Apn#o2
8h97~$7)
sbb word ptr sectors, 63d 9@06]EI_
jnc subok :*1w;>o)n
sub word ptr sectors+2,1 9':$!Eoq
jnc subok ($kwlj~c
sub word ptr sectors+4,1 A-FwNo2"%
jnc subok KX`,7-
sub word ptr sectors+6,1 Y$^\D' .k
*$
!LRmp?
subok: |.A>0-']M
"K< VZ
Qp ,l> k
4SYN$?.Mp
xor ax,ax vkK+
C~"
mov blocknumL, ax MR}\fw$(.
mov blocknumL+2, ax (L1`]cp
mov blocknumL+4, ax 5hAg*zJb5o
mov blocknumL+6, ax x3 Uv&
\2jY)UrQs
startread: )-@EUN0E>5
EIRf6jL
call rwsect
)[1m$>
5z _)
adc word ptr blocknuml,63d =j0V/=
jnc addok F@BNSs N=
adc word ptr blocknuml+2,1 LHb {9x
jnc addok A?/?9Gr
adc word ptr blocknuml+4,1 1yu!:8=ee
jnc addok D }\`5L<
adc word ptr blocknuml+6,1 L;"<8\vWB
jnc addok hd \#Vh(H
xph60T
addok: ?6dtvz;K+?
mov ax, word ptr sectors+6 H &JKja}`
cmp ax, blocknuml+6 $gNCS:VG*
jg complete DYS(ZY) 4
jl startread MYDSkW
mov ax, word ptr sectors+4 sAN
#j
{
cmp ax, blocknuml+4 5h1j.t!
jg complete e9d~Xi16KY
jl startread FyEl @ }W
mov ax, word ptr sectors+2 WxFjpJt
cmp ax, blocknuml+2 mI# BQE`p6
jg complete SxDE3A-:
jl startread 5
Jhl4p}w
mov ax, word ptr sectors yl}Hr*
cmp ax, blocknuml |1D`v 9
jg complete PewLg<?,G4
jl startread Ogb_WO;)
Mw~ ?@Sq
complete: W5
p}oN
J{y@ O
lea bx,msgready
kBzzi^cl
mov dx,bx DQ)SMqOotw
mov ah,09 yrjm0BM#
int 21
r2G<::<zL
RY'y%6Z]ZO
popa vl<J-+|0C
mov ax,3100h Fv
9Z'#t
int 21h g:Dg?_o
"hfwj`U
; $sJn:
8z
dispdx proc near luMNi^FQ
pusha RA6D dqT~
lea bx, dsp+3 HIF] c
mov cx,4 )~`
zjVx_
!cZsIcI e
repeat0: [>-k(D5D
mov al,dl n>H N py
and al,0fh .\VjS^o&Z&
cmp al,09h ZZTV
>:
jg add40
1} 6pq 2
add al, 30h bbJa,}R
jmp okadd wb}tN7~Y;
add40: vzw\f
add al,37h <L J$GiU
okadd: b %kh:NV{S
mov byte ptr [bx],al ;VuIQ*@m"
dec bx +3 C
S3fTq
shr dx,4 i"'k|TGW^
loopnz repeat0 Y'-Lt5SCS
lea bx,dsp 6voK{ C4J
mov dx,bx CqoL5qt
mov ah,09h 4g 1h:I/
int 21h UZ1 lI>
E Y>A(
popa n'ro5D
ret h@J`:KO
dispdx endp g=pDC+
Z|W=.RdA;
dispqword proc near (]1 %s?ud*
pusha x\jHk}Buj
mov cx ,4 &[YG\8sxWa
add bx,6 zE [c$KPP
repeatdecbx: 7v-C-u[E`
mov dx,[bx] -4Xr5j%o
call dispdx k2=uP8
sub bx,2 (/Ubw4unI
loopnz repeatdecbx )oj`K,#
popa B$bsh.
ret [D t`@Dm
dispqword endp M(|gfsD
5?b9[o+ D
rwsect proc near hCmOSDym
s+[=nau('w
lea bx,msg c_i F S
mov dx,bx d|TIrlA
mov ah,09h O!g>
f
int 21h 1$^{Uma
8X%;29tow
lea bx,BlockNumL 3EyN"Lvp{o
call dispqword R:e:B7O~0
@:[/u q L
lea di, packetsize oVu>jO:.
mov dl,80h [ACYd/
mov ah,42h eYa gI
int 13h DbcKKgPn(9
jnc readok te|VKYN%}[
>eC^]#c
mov cx,5 3 !,% ;Vz=
;出错后重试(定位0道后再重读) Cpj_ mMtu
retryrd: ZD,l 2DQ?
lea bx, msgReadErr D ir We
mov dx,bx \ ||PW58j
mov ah,09 4MM# \
int 21h ,Xn%-OT
eN$~@'w
j<!$ug9VA
lea di,dap0 IQ M!dC
mov dl,80h Pwq}
;+
mov ah,44h 4nY2v['m0
int 13h V> <P`
{M$1?j"7
lea bx,BlockNumL ~ e"^-x
call dispqword s#Le`pGoW
O^f@ g l
lea di, packetsize T>c;q%A/
mov dl,80h %$cwbh-{{
mov ah,42h 5}m2D='
int 13h DgdW.Kj|IL
jnc readok 9J?j2!D
loopnz retryrd u (BYRB
#zXDh3%]a
readok: L^=>)\R2$[
lea di, packetsize xH=&={
mov dl,80h r h!4 1
mov ah,43h '.iUv#j4Sh
int 13h d1,azM
+b{\ v1b
rwsect endp J ^v _VZ3
"-hgeQX
code ends ;代码段结尾
BAxZR
end start ;结束汇编 pS%Az)3RZ
PH]q#/'
