第一个宏汇编程序 R8
1z|+c|_
`@MY}/
o.
工作后不久，单位里我所在的小组有了一台浪潮0520(XT兼容机)，有了硬盘，有了汇编编译程序，就开始玩汇编了。当然那时的主要工作是用dBASEIII，这个我已经在读研期间自学会了，读了一本关于dBASEIII plus的英文书，编个dBASE/FoxBASE程序已经是小菜一碟了。 !o.l: Mr
4%#C _pE9
那时候的硬盘老出点问题，经常碰上个“Error reading data....” 啥的小毛病，但是换又不方便而且很贵。PCTOOLS与NORTON DISKEDIT扫描盘比较慢。我就自己写了一个磁盘扫描程序。算是用汇编写的第一个正式的有点用处的程序吧！ ]d]tQPEU
5Qb%g )jZ
这也是我现在电脑里唯一一个汇编语言的程序了，其它都随着磁盘来回更换丢了。所以，还是在老大这里存一份留个纪念吧！ ]ee%=+'
s'yA^
VPf
比较长啊！所以可以自动跳过。 ^cO^3=
X9^a:7(
.286 !"\UT&
.radix 16 <&3qFK*9r
data segment ;定义数据段 ZJz6 {cY
4u;db_gX
i*`; /x'+
msg db 0dh, "Reading sector:$" [ F id
msg1 db 0dh, "Writing sector:$" qV57P6<
msgready db 0dh,0a,0dh,0a,"Reading/Writing completed!", 0dh,0a, "$" *c} MI
e'&
m7z6c"?lB
dsp db " $" AhOvI {
]$)J/L(p/]
;DAP _1w?nN'
PacketSize db 16d; // 数据包尺寸(16字节) rf.w}B;V;
Reserved db 0; // ==0 o
g.LD7&/
BlockCount dw 63d; // 要传输的数据块个数(以扇区为单位) Q
/T\Rr_d
BufferAddr dw 0,0 ; // 传输缓冲地址(segment:offset) %a-:f)@
BlockNumL Dw 0,0; // 磁盘起始绝对块地址 +'qzk>B
BlockNumH Dw 0,0; // 磁盘起始绝对块地址 Vw7NLTE}`
Pyc/6~ ?
;定位用DAP （复位到0磁道） S?.2V@Ic
DAP0 db 16d eJ0PSW/4l
db 0 ]m0MbA
dw 1 /JPy ADi
buff1 dw 0,0 !Fa2F~#h
dw 0,0,0,0 Z{/0 P
.@{W6
/I
^hOnLy2
;DiskParameters v@bs4E46e
infosize dw 26d; WORD InfoSize; // 数据包尺寸 (26 字节) - P+( =U
falgs dw 0; WORD Flags; // 信息标志 K9Dxb
Cylinders DW 0; DWORD Cylinders; // 磁盘柱面数 ;5 W|#{I
Heads DW 0; DWORD Heads; // 磁盘磁头数 \ ]
SPT Dw 0,0; DWORD SectorsPerTrack; // 每磁道扇区数 x|/zn<\^
Sectors Dw 0,0,0,0; QWORD Sectors; // 磁盘总扇区数 3R pD Il`0
SectorSize DW 0; WORD SectorSize; // 扇区尺寸 (以字节为单位) KL]@y!QU
fDo )~t*~
cmpsect dw 0 U[5
|ToCRM
msgcyl db 0dh,0a,"Disk Parameters",0dh,0a,"Total Cylinders:$" ;hsgi|Cy-
msgHds db 0dh,0a,"Heads:$"
a@_.uD
msgspt db 0dh, 0a,"SectorsPerTrack:$" XjpFJ#T*$A
msgTotal db 0d,0a, "Total Sectors:$" AtNu:U$
msgSS db 0dh,0a, "Sector Size:$" (Sc]dH
&E.ckWf
msgReadErr db 0dh,0a,"Error Reading Sectors:$" b?U!<s.
msgWriteErr db 0dh,0a, "Error Writing Sectors:$" %H\i}}PTe
msgReset db 0dh,0a, "Reseting drive to Cyl 0" B42.;4"T
Q5'DV!0aSv
w]w>yD>$
buffer db 32768d dup(0); Bfw]#"N`
BwO^F^Pr?k
data ends ;数据段结尾
mVG
QyX
~fLuys`*:
stack segment vlu A46c
db 400 dup(?) B9;d X6c
stack ends F-%w On /
V6'"J
code segment ;定义代码段 =>".
assume cs:code ;规定cs的内容 v*}r<} j
assume ds:data ;规定ds的内容 y~_wr}.CS
assume ss:stack Nq>74q]}n8
pQc5'*F
Kd
start: ; 2K_u
pusha ^S*~<0NQ'
OF^v;4u
7VkT(xnm
mov ax,data ;程序从start开始 L1#z'<IO
mov ds,ax ;ds置初值,data的段地址 ws:@Pe4AF
yRa B\'
;设置缓冲区 |eIEqq.Eb
lea bx, buffer |]`\ak
mov bufferaddr,bx wPTXRq%
mov buff1,bx \`?l6'!
mov bx,ds wJA`e)>
mov bufferaddr+2,bx T
'p
X)ZH
mov buff1,bx 0ts]
iQ 7
$fSV8 n;Y
lea di,infosize =\Td~>
mov dl,80h !K;\{/8
mov ah,48h &d]%b`EXq
int 13h 6Zwrk-,A
B5"( NJ;
lea bx,msgcyl N( 0G!sTI
mov dx,bx DYlu`j_ux
mov ah,09 fw@n[u{~
int 21h g1-^@&q
mov dx,cylinders Q :$<`K4)
call dispdx H8j#rC#&pm
hR" j[
lea bx,msghds ,.Ac= "f
mov dx,bx #)`N
mov ah,09 U1<EAGo|
int 21h 4[t1"s~Wg
mov dx,heads d 0YN :lJc
call dispdx
_+%RbJ~H
f]H[uzsV
lea bx,msgspt iTi]D2jC
mov dx,bx bY:A7.p7#
mov ah,09 @O b$w1c
int 21h n2\;`9 zm
mov dx,spt+2 r(./ 00a
call dispdx L 1=HD
mov dx,spt [4'C4Zl
call dispdx CqQ>"Y
,a& N1G.
lea bx,msgtotal uNe5Mv|}
mov dx,bx 4bD^
Kc 4\
mov ah,09 Rk8>Ak( /
int 21h !P7&{I,e
lea bx,sectors 26| 2 r
call dispqword Wi_5.=
gZ6]\l]J{
lea bx,msgss w=>~pYASH
mov dx,bx 5I9~OJ>
mov ah,09 o9-b!I2
int 21h v5 U\E`)s
mov dx,sectorsize ?2l#=t?PP
call dispdx &U:bRzD
n@[&SgZq
sbb word ptr sectors, 63d [80jG+6
jnc subok T% J;~|
sub word ptr sectors+2,1 kxU <?0
jnc subok i_?";5B"
sub word ptr sectors+4,1 -miWXEe@l
jnc subok !|K~)4%rj
sub word ptr sectors+6,1 fNOsB^Y
s"b()JP
subok: /7 #KkMg
.ky( (
1qXqQA
[*ylC ,w
xor ax,ax ~[bS+ ]d!
mov blocknumL, ax ^Nl)ocHv!
mov blocknumL+2, ax
?CKINN
mov blocknumL+4, ax BG !;9Z{u
mov blocknumL+6, ax q B-9&X
a=bP
startread: vKYdYa\
J+IQ vOn_|
call rwsect (h> Jz
"X~ayn'@w,
adc word ptr blocknuml,63d ,@"Z!?e
jnc addok 6#P\DT
adc word ptr blocknuml+2,1 pfS?:f<+6"
jnc addok |5
|^ [v
adc word ptr blocknuml+4,1 ,Oojh;P_
jnc addok E yu]0+
adc word ptr blocknuml+6,1 !HyPe"`oL
jnc addok g#0h{%3A
\
+-~hl
addok: 4Eh 2sI
mov ax, word ptr sectors+6 dj,7lJy
cmp ax, blocknuml+6 6 B
4Sd
jg complete 5^lroC-(x
jl startread (u`[I4z`
mov ax, word ptr sectors+4 F; p>bw
cmp ax, blocknuml+4 '
O1X+
jg complete vq yR aaMf
jl startread Q*|O9vu'D
mov ax, word ptr sectors+2 `k ~.>#
cmp ax, blocknuml+2 ~_v?M%5i
jg complete J9J[.6k8
jl startread }Th":sin},
mov ax, word ptr sectors | _/D-m*
cmp ax, blocknuml 't".~H_V
jg complete 2Eg* Yb 1
jl startread 9 ! [oJ3
cn1CM'Ru
complete: a86m?)-c
kgfOH. P
lea bx,msgready t]1j4S"pm
mov dx,bx \,jrug<C$^
mov ah,09 Z }_{@|
int 21 #|'&%n|Z
{H
OvJ`tM
popa b'Cy!d r
mov ax,3100h
KfpDPwP@
int 21h Wlm%W>%
$#ks`$v M
; m[S6pqz
dispdx proc near QA
_SS'*
pusha v#u]cmI
lea bx, dsp+3 ;!U`GN,tH
mov cx,4 x 9}D2Ui
HPVW2Y0_N
repeat0: O
H~X~n-Z
mov al,dl (3z: ;
and al,0fh &Npv~Iy
cmp al,09h 1;E[Ml
jg add40 jR<yV
add al, 30h R=ddQ:W6g
jmp okadd zh7#[#>t
add40: c|q!C0X[
add al,37h ]eA<
okadd: 1Y iUf
mov byte ptr [bx],al IxC/X5Mp^q
dec bx @a,X{
0
shr dx,4 Pk444_"=
loopnz repeat0 seWYY $$
lea bx,dsp nnLE dJ}n
mov dx,bx q]Gym 7o
mov ah,09h x]umh{H~
int 21h DE3>F^ j
Rz%
Px: M
popa h*2Q0GRX
ret { ?*3Ou
dispdx endp e;8 >/G
g0t$1cUR
dispqword proc near jSbO1 go#
pusha ;} ),6R
mov cx ,4 I,dH\]^h=
add bx,6 V&4)B &W
repeatdecbx: z #*M}RR
mov dx,[bx] r2?-QvQ
call dispdx Kl. xe&t@j
sub bx,2 QW :- q(s
loopnz repeatdecbx F. X{(8
popa 3f9J! B`n
ret O)C
y4[
dispqword endp zRtaO'G(
rq'Cj<=Zj
rwsect proc near b%> vhj&F
.QX|:]|n
lea bx,msg iyNyj44
H
mov dx,bx hU=n>g>nx
mov ah,09h JzH\_,,
int 21h s>`$]6wPa
?CGbnXZ4Ug
lea bx,BlockNumL C
$`z23E
call dispqword
|aef$f5
2b+cz
lea di, packetsize j~!0n[F
mov dl,80h ^yDCX
mov ah,42h z:f[<`,GT
int 13h Sd?:+\bS;
jnc readok 5_";EED
*k'D%}N:
mov cx,5 wWm 1G)
;出错后重试(定位0道后再重读)
8m Tjf Br
retryrd: vU Bk oC2Q
lea bx, msgReadErr 8XtZF,Du
mov dx,bx :Bc)1^ I
mov ah,09 VgG*y#Qf$
int 21h zp[Uh]-dMK
+T:F :X`
UP=0>jjbn:
lea di,dap0 F`,XB[}2
mov dl,80h \IY)2C<e
mov ah,44h W j2
] 1A
int 13h q%8%J'Fro
p~1
,[]k
lea bx,BlockNumL -E~pCN(E
call dispqword ($:s}_<>s
+
5 E6|
lea di, packetsize m}w~ d /
mov dl,80h )f]E<*k'E
mov ah,42h *44^M{ti<
int 13h *IWO ,!
jnc readok c/.U<
loopnz retryrd 01Bs7@"+
@F)51$Ld
readok: }8cL +JJU
lea di, packetsize % !$ua_8
mov dl,80h 9?B}CCE<LR
mov ah,43h TNBFb_F
int 13h )M(; :#l e
f h05*]r
rwsect endp "o&_tB;O
A,-UW
+:
code ends ;代码段结尾 n1K"VjZk
end start ;结束汇编 *njdqr2c~
X 8l[B{|
