显示用户信息 
UID: 231
精华:
8
发帖: 11183
财富: 1815 湾区元
威望: 3532 点
支持度: 34 点
好评度: 21 点
在线时间: 321(时)
注册时间: 2017-06-04
最后登录: 2025-07-25
|
第一个宏汇编程序 <d*;d3gm VT@,RlB0 工作后不久，单位里我所在的小组有了一台浪潮0520(XT兼容机)，有了硬盘，有了汇编编译程序，就开始玩汇编了。当然那时的主要工作是用dBASEIII，这个我已经在读研期间自学会了，读了一本关于dBASEIII plus的英文书，编个dBASE/FoxBASE程序已经是小菜一碟了。 *aem5 E`c /xS4>@h n 那时候的硬盘老出点问题，经常碰上个“Error reading data....” 啥的小毛病，但是换又不方便而且很贵。PCTOOLS与NORTON DISKEDIT扫描盘比较慢。我就自己写了一个磁盘扫描程序。算是用汇编写的第一个正式的有点用处的程序吧！ v$n J$M&k Dqxtc|vo 这也是我现在电脑里唯一一个汇编语言的程序了，其它都随着磁盘来回更换丢了。所以，还是在老大这里存一份留个纪念吧！ ?so=k&I-M EuH[G_5e 0 比较长啊！所以可以自动跳过。 6> L) g<b
(q| .286 XHN*'@
77; .radix 16 x{'3eJ^ 8 data segment ;定义数据段 WF#3'"I F R57F(31 ^jph"a C msg db 0dh, "Reading sector:$" ioJ~k[
T msg1 db 0dh, "Writing sector:$" ;7 /
;4Z msgready db 0dh,0a,0dh,0a,"Reading/Writing completed!", 0dh,0a, "$" XEX ." y UYw_k\ dsp db " $" ` @PHV
TK! D=M ;DAP k 'CM^ ,F& PacketSize db 16d; // 数据包尺寸(16字节)
n7EG%q6m+ Reserved db 0; // ==0 C4,;l^?=% BlockCount dw 63d; // 要传输的数据块个数(以扇区为单位) fC4#b?Q BufferAddr dw 0,0 ; // 传输缓冲地址(segment:offset) 0 oC5W?>8s BlockNumL Dw 0,0; // 磁盘起始绝对块地址 Jy
iP3whW BlockNumH Dw 0,0; // 磁盘起始绝对块地址 h
eR$j heizO",8.& ;定位用DAP （复位到0磁道） pYxdE|2j DAP0 db 16d S`w_q=-^ 8 db 0 h=a-~= 8 dw 1 n PAl8 buff1 dw 0,0 QXaE2}}P dw 0,0,0,0 II,snRD ~ k(4eRq ?=^~(
x?S ;DiskParameters DT x!# [ infosize dw 26d; WORD InfoSize; // 数据包尺寸 (26 字节) M94zlW< falgs dw 0; WORD Flags; // 信息标志
F ]
qX} Cylinders DW 0; DWORD Cylinders; // 磁盘柱面数 Q:v9 C ^7 Heads DW 0; DWORD Heads; // 磁盘磁头数 wO-](3A-8P SPT Dw 0,0; DWORD SectorsPerTrack; // 每磁道扇区数 { p90 Sectors Dw 0,0,0,0; QWORD Sectors; // 磁盘总扇区数 *X%dg$VcV SectorSize DW 0; WORD SectorSize; // 扇区尺寸 (以字节为单位) H
Z) an _
x'?igy cmpsect dw 0 L!>EW0 iHYvH
msgcyl db 0dh,0a,"Disk Parameters",0dh,0a,"Total Cylinders:$" | Q|vCWel{ msgHds db 0dh,0a,"Heads:$" h=x{
3P;B msgspt db 0dh, 0a,"SectorsPerTrack:$"
;:`0:Ao. msgTotal db 0d,0a, "Total Sectors:$" X:/Y^Xu msgSS db 0dh,0a, "Sector Size:$" 6he (v Y%G I KtP msgReadErr db 0dh,0a,"Error Reading Sectors:$" %C1*`"Jb& msgWriteErr db 0dh,0a, "Error Writing Sectors:$" .dE2,9{Z msgReset db 0dh,0a, "Reseting drive to Cyl 0" <T^:`p/]4 ,ve$bSp s/+k[9l2 buffer db 32768d dup(0); PV(TDb : 0 gK%^}xU+
data ends ;数据段结尾 <+r<3ZBA bM Cy=5
stack segment f3E%0cg db 400 dup(?) IncHY?ud< stack ends {y\5 9 RZL
:k;}5 code segment ;定义代码段 rn8#nQ>QZ% assume cs:code ;规定cs的内容 GEd JB= assume ds:data ;规定ds的内容 { K,KIj" assume ss:stack Qzh`x-S 'P`L?/_3 start: wOg?.6<Kxa pusha I_aS C 4 WGC'k
s ^ Cju %CE3a mov ax,data ;程序从start开始 .ou#BWav/ mov ds,ax ;ds置初值,data的段地址 tR{@NFUcu A}h`%b ;设置缓冲区 4k6,pt" lea bx, buffer _oU}>5 mov bufferaddr,bx 9$iDK$% mov buff1,bx :enmMB#% mov bx,ds iC`mj mov bufferaddr+2,bx WF&?OHf2 mov buff1,bx uK!G-1
QE\t}> lea di,infosize q\I2lZ mov dl,80h xlHC?d0} mov ah,48h $Y 3mO ~ int 13h ;*AK eI2 DtRu&>o_6D lea bx,msgcyl Dpf" H mov dx,bx OtsW>L@ O( mov ah,09 sfUKH;xC int 21h 2c u?2 _, mov dx,cylinders H}f} Y8J{ call dispdx ?z/ )Hkw o)U4RY* lea bx,msghds 2 $ @N4 mov dx,bx vi8)U]6 mov ah,09 24; BY' int 21h 9~lC/I')t mov dx,heads wVMR&R <t call dispdx 4r+s"
| >vny 9^_ lea bx,msgspt ch -.+p3 mov dx,bx E4; @P']` mov ah,09 -0G/a&ss int 21h 0D Q\ akh mov dx,spt+2 pI]tv@ >:f call dispdx loR,f&80=O mov dx,spt B{dR/q3;@ call dispdx O)EA2`)E c
0/vB lea bx,msgtotal 8~6 H\.0Q mov dx,bx ,JVW
n>s mov ah,09
(;(P3 h int 21h s<hl>v Y_' lea bx,sectors g UAx8=h call dispqword &?wNL@n ~ MZEAY9 lea bx,msgss KhFw%Z0s< mov dx,bx 'G|M
_ e mov ah,09 wBa IN]Y, int 21h 2*5]6B-( mov dx,sectorsize !7f L' call dispdx rd\: . V
W2+ Bs} sbb word ptr sectors, 63d aZBS!X jnc subok 56JvF*hP sub word ptr sectors+2,1 d:"#_ jnc subok :Y\!~J3W sub word ptr sectors+4,1 ,+mH1#-3 jnc subok VAL]\@Q} sub word ptr sectors+6,1 L^b / +R#
#l<un< subok: W_\ ~CntyZ p@Va`:RDW %j7HIxZh N#!**Q 0 xor ax,ax L2$`S'U W mov blocknumL, ax lq[o2\ mov blocknumL+2, ax /ZpwJc`e mov blocknumL+4, ax Jp#Onl+d6 mov blocknumL+6, ax #@^mA{Dt5 F caO -
startread: s/cclFji] 6_vhBYLf call rwsect 4eh~/o&h ynQ+yW74Z
adc word ptr blocknuml,63d f*tKj.P
jnc addok K|Kc.
adc word ptr blocknuml+2,1 >dU.ic?19 jnc addok ("!P_Q# adc word ptr blocknuml+4,1 #eZm)KFQg jnc addok O
S% adc word ptr blocknuml+6,1 L';b908r2 jnc addok {%! >0@7 R8(Bt73 addok: g)/ #gyT4Y mov ax, word ptr sectors+6 |tVWmm^m cmp ax, blocknuml+6 Dmq_jt jg complete 2]i>kV/,0 jl startread J4VyP["m mov ax, word ptr sectors+4 WNo", Vc cmp ax, blocknuml+4 <Z:Fnp jg complete 9 0rY:!e jl startread `rQDX<? mov ax, word ptr sectors+2 $(A LxC cmp ax, blocknuml+2 !8ch&cr)o+ jg complete rV[/G#V>{ jl startread ]?"1FSu-8r mov ax, word ptr sectors >r8$vQ Gj cmp ax, blocknuml =|Vm69 jg complete >v9@p7Dn jl startread 4n 9c 6%Ws>H4@| complete: ^U@-Dp,k+ CG397Y^ lea bx,msgready N{<9N jmm mov dx,bx
q8-*3K mov ah,09 M>m+VsJV int 21 M%S.Z4D
(0 3Y6W)$ Q popa 7sglqf> mov ax,3100h V#-\
4 `c int 21h x4 .Y&Wq# )/4xR] ; M"l<::z dispdx proc near -s5>GwZt pusha +@5@`"Jry lea bx, dsp+3 DM[gjfMXu mov cx,4 h F 4gz*Q FM=- ^l, repeat0: |w)S
&+ mov al,dl Uk0Fo(HY and al,0fh Qi? xx') cmp al,09h ; m t v jg add40 +ia N[F$ add al, 30h tg|7\Z7i jmp okadd k'b'Ay(< add40: {EL
J!o[ add al,37h ,2 *x4Gycb okadd: IJ zPWs5W: mov byte ptr [bx],al M
s 5L 7S dec bx @Y| % shr dx,4 ;:l >Kac loopnz repeat0 Duh[(r _ lea bx,dsp x+;"(]# mov dx,bx {CH *?|t mov ah,09h WJJwhr int 21h
Rk(2|I EDAVU popa r{ 1xjA T ret f0Zn31c^ dispdx endp ~P@6f K/M b xFDB^ dispqword proc near ?x-:JME0 pusha @9ndr$t mov cx ,4 *$/!.e add bx,6 [email protected] repeatdecbx: n `Ry !
mov dx,[bx] V
'
e _gH call dispdx _1EWmH
Z? sub bx,2 zmdu\:_X9 loopnz repeatdecbx P ko 2fJt1 popa ,
lUr[xzV ret 9 %MHIY5 dispqword endp ?loP1 8S
b bzh`s< + rwsect proc near ){S/h<4m s ;N PY lea bx,msg Q /u1$&1 mov dx,bx >?yxig:_ mov ah,09h tIJ?ca X5= int 21h m:4 Ec>?e *B ]5K{N lea bx,BlockNumL o%1dbbh call dispqword ?jy6%Y#,i >|| =# ; lea di, packetsize XeRbn mov dl,80h uL1$yf' mov ah,42h aH(B}wh{ int 13h = (%+S<} jnc readok }_GI%+t aNxq_pRb mov cx,5 Uc>
$w?oA ;出错后重试(定位0道后再重读) }
0^wJs retryrd: ^+b ??K lea bx, msgReadErr C;BC@OE mov dx,bx jJU9~5i? mov ah,09 9X%H $>s int 21h [L4s.l_# SIr^\ii OB V
ub ($ lea di,dap0 g2t'u4> mov dl,80h = Ti[Q5SZ mov ah,44h b8$(j2B~ int 13h *!p#1fE L-V+ `![{ lea bx,BlockNumL o n+:{ad call dispqword 4y$tp1 8 ,- FC lea di, packetsize E>2~cC* mov dl,80h q\q8xF~[p mov ah,42h X @cO`
P int 13h <-avC/M$d jnc readok 8&2W^f5 loopnz retryrd .e|VW) v5 Qp[O_ readok: z:a%kZQ!0 lea di, packetsize rM5{R}+; mov dl,80h ;E0aTV)Zp mov ah,43h IP3%'2}- int 13h [fl x/
E c( 5r rwsect endp r)Dln5F Q
xg)W b# code ends ;代码段结尾 AQR/nWwx end start ;结束汇编 ,4`=gKn a
]~Yi.H
|
