显示用户信息 
UID: 231
精华:
8
发帖: 11183
财富: 1815 湾区元
威望: 3532 点
支持度: 34 点
好评度: 21 点
在线时间: 321(时)
注册时间: 2017-06-04
最后登录: 2025-07-25
|
第一个宏汇编程序 <g&.U W4 2PSkLS&I M 工作后不久，单位里我所在的小组有了一台浪潮0520(XT兼容机)，有了硬盘，有了汇编编译程序，就开始玩汇编了。当然那时的主要工作是用dBASEIII，这个我已经在读研期间自学会了，读了一本关于dBASEIII plus的英文书，编个dBASE/FoxBASE程序已经是小菜一碟了。 1h#/8 X Dk&(QajL 那时候的硬盘老出点问题，经常碰上个“Error reading data....” 啥的小毛病，但是换又不方便而且很贵。PCTOOLS与NORTON DISKEDIT扫描盘比较慢。我就自己写了一个磁盘扫描程序。算是用汇编写的第一个正式的有点用处的程序吧！ * \ B(- RY3=UeoF 这也是我现在电脑里唯一一个汇编语言的程序了，其它都随着磁盘来回更换丢了。所以，还是在老大这里存一份留个纪念吧！ f\r"7j eFotV.T!# 比较长啊！所以可以自动跳过。 mM~&mAa+Z Dbb=d8u tE .286 ; K,5qs .radix 16 a|(|! = data segment ;定义数据段 #M<YNuE#" o+L [o_er ArScJ\/Nwv msg db 0dh, "Reading sector:$" j\NCoos msg1 db 0dh, "Writing sector:$" 4 9HP 2E msgready db 0dh,0a,0dh,0a,"Reading/Writing completed!", 0dh,0a, "$" KEdqA/F> C ^c <s dsp db " $" [email protected]D21 \6bvk _
;DAP `sA xk PacketSize db 16d; // 数据包尺寸(16字节) Qp
A$=' Reserved db 0; // ==0 Hy -)yR BlockCount dw 63d; // 要传输的数据块个数(以扇区为单位) DL
d~ BufferAddr dw 0,0 ; // 传输缓冲地址(segment:offset) B%`| W@v BlockNumL Dw 0,0; // 磁盘起始绝对块地址 -0TI7 @ BlockNumH Dw 0,0; // 磁盘起始绝对块地址 s IBP$9 WJI}~/z;C ;定位用DAP （复位到0磁道） #K*p1}rf DAP0 db 16d Gm &jlN db 0 =$%-RX7 dw 1 ,tDLpnB@; buff1 dw 0,0 A-d<[@d0 dw 0,0,0,0 $Ld-lQsL G$luGxl[ CpK :u!
Dn ;DiskParameters w
n|;Li infosize dw 26d; WORD InfoSize; // 数据包尺寸 (26 字节) Vk*XiEfKm> falgs dw 0; WORD Flags; // 信息标志 (XlvPcTi Cylinders DW 0; DWORD Cylinders; // 磁盘柱面数 F+?i{$ Heads DW 0; DWORD Heads; // 磁盘磁头数 BS ?i!Bm 7 SPT Dw 0,0; DWORD SectorsPerTrack; // 每磁道扇区数 _z1Qr?cY Sectors Dw 0,0,0,0; QWORD Sectors; // 磁盘总扇区数 !1K.H dK SectorSize DW 0; WORD SectorSize; // 扇区尺寸 (以字节为单位) ';}:*nZ//_ <F AbImE} cmpsect dw 0 |onLJY7) H= w6 msgcyl db 0dh,0a,"Disk Parameters",0dh,0a,"Total Cylinders:$" !P
t4 \ msgHds db 0dh,0a,"Heads:$" qu!x#OY+ msgspt db 0dh, 0a,"SectorsPerTrack:$" 9I`0`o"A msgTotal db 0d,0a, "Total Sectors:$" \t`Vq JLyu msgSS db 0dh,0a, "Sector Size:$" ^6Zx-Mf\ 6, |>;,U7 msgReadErr db 0dh,0a,"Error Reading Sectors:$" O3)B]!xL msgWriteErr db 0dh,0a, "Error Writing Sectors:$" rCsC}2O msgReset db 0dh,0a, "Reseting drive to Cyl 0" g-,lY| a HR?bnkv|id [P0c,97_
H buffer db 32768d dup(0); 97<Z,q72Y Y^C(<N$ data ends ;数据段结尾 K9Onjs% U .tHjGx
stack segment (D6ks5Uui db 400 dup(?) 2Nx:Y +[
stack ends !VXy67 )A6=P%;}>I code segment ;定义代码段 !vVW8hb p assume cs:code ;规定cs的内容 6`%|-o
: assume ds:data ;规定ds的内容 ,% 'r:@' assume ss:stack &
P
%# Z [l+{ start: AZ4:3} pusha T!Tp:&O- gPA8A>U)[ e@]m @ mov ax,data ;程序从start开始 X$G:3uoN mov ds,ax ;ds置初值,data的段地址 )2 q
r^) y+= s/c ;设置缓冲区 ( kyRx+gA lea bx, buffer Pa#Jw
o mov bufferaddr,bx ,7Ejb++/M, mov buff1,bx /|#2ehE mov bx,ds VKfpk^rU mov bufferaddr+2,bx Ut C<TBr mov buff1,bx #f;6Ia># TaaCl#g$? lea di,infosize r
_ FI5f mov dl,80h .:4*HB mov ah,48h 9V~hz (^ int 13h M n3j6a Hyen n lea bx,msgcyl vl6|i )D mov dx,bx q&O9W?E8dG mov ah,09
j=G int 21h wAgV evE mov dx,cylinders S,ud pQ7 call dispdx st~ l|| W#kyD)(F lea bx,msghds L_|iQwU% mov dx,bx G T80k]e. mov ah,09 #%8)'=1+4? int 21h B*E"yB\N V mov dx,heads I,05'edCQ call dispdx k {vd1,HZ O*lIZ ,!n lea bx,msgspt s mn(q)tt mov dx,bx 7xY&7 x(v mov ah,09 ]&B/rSC int 21h VKw.g@BY mov dx,spt+2 8|$g"? CU call dispdx 8e
?9:VM] mov dx,spt 0v6Z 4Ahpo call dispdx b|may/xWH TK bfZw lea bx,msgtotal $P)-o?eer mov dx,bx J t0/*^' mov ah,09 XMykUr e | int 21h n5efHJU lea bx,sectors @[`]w`9Q7 call dispqword nv7)X2jja g z uWhQo lea bx,msgss m6H+4@Z-;( mov dx,bx :Ig9n : mov ah,09 b"`Q&V . int 21h b$pCp`/MT mov dx,sectorsize H;@0L}Nu+} call dispdx ew~uOG+ x
RO9o3 sbb word ptr sectors, 63d '/rU<.1 jnc subok Sn
7 h$ sub word ptr sectors+2,1 wuxOFlrg jnc subok 44 w
"U%+ sub word ptr sectors+4,1 I>w|80%% jnc subok %Wm ) sub word ptr sectors+6,1 69Z`mR lPC{R k.\C subok: ;PqC *iz m*h O@M {zc*yV\ F9tWJJ Usr xor ax,ax <Wj /A/ mov blocknumL, ax AAuwE&Gg mov blocknumL+2, ax wr (*RI" mov blocknumL+4, ax ;9-J=@KY4 mov blocknumL+6, ax \}<J> R@ /UY'E<wBx startread: +z#+}'mT% jeO`45O call rwsect W>c*\)Xk ! X+ybgB4( adc word ptr blocknuml,63d JlawkA jnc addok ,J<+Wxz adc word ptr blocknuml+2,1 D8xE"6T> jnc addok }5 z!FXB adc word ptr blocknuml+4,1 M0e&GR8<z> jnc addok 7|bBC+;( adc word ptr blocknuml+6,1 YACx9K H jnc addok &oJ
[ *pQ `K[r5;QFKf addok: cRCji^,KJ mov ax, word ptr sectors+6 BPKrRex cmp ax, blocknuml+6 /,j'V r\" jg complete 7Up-a^ k^` jl startread kp!(e0n mov ax, word ptr sectors+4 $GQEdVSNo cmp ax, blocknuml+4 |%rRALIY jg complete k Q_Vj7 jl startread @Jlsx0i}} mov ax, word ptr sectors+2 ti]8_vP}* cmp ax, blocknuml+2 rTOex]@N jg complete mq(K _ jl startread X4Uy3 TV> mov ax, word ptr sectors ^vzXT>t-M cmp ax, blocknuml us
u{1&g jg complete Q &@<?K9 jl startread sYSq >M >}C:EnECy complete: Nr"GxezU+A u@+^lRGFh lea bx,msgready T
:^OW5 d mov dx,bx _`laP5~ mov ah,09 C\;%IGn int 21 /Tw $} 8 &N3a`U a popa vfVF^
WOd mov ax,3100h <]#_&Na int 21h V' i @N 4(Y-TFaf ;
. lI.I dispdx proc near Tc/<b2 \g pusha vDR>
Q&/K lea bx, dsp+3 =%u=m a; mov cx,4 RUut7[r
AT2D +Hi=E repeat0: sebuuL.l0< mov al,dl mZ3Z8q}%P and al,0fh =+<DNW@% cmp al,09h 9\E];~"iP jg add40 jH;L7 add al, 30h C nD3 %% jmp okadd ]/%CTD(O add40: >m=XqtP add al,37h Y[m* okadd: O`PQ4Q*F mov byte ptr [bx],al hu}uc&N)iE dec bx w*(1qU F#% shr dx,4 Pp4Q)2X loopnz repeat0 G[fg!vig#7 lea bx,dsp )U 0I|dx mov dx,bx bIk4? S mov ah,09h Y9%zo~]-W' int 21h 63t '|9^5 X)c0 y3hk popa })q8{Qj! ret $%ztP
Ta dispdx endp cA]PZ*]{BN s(=@J?7As dispqword proc near n
n">
pusha b `cH.v mov cx ,4 )IIWXN2A add bx,6 OKj\>3 repeatdecbx: |y ?W#xb mov dx,[bx] a",
8N"' call dispdx $z5C+K@ sub bx,2 6$csFW3 R loopnz repeatdecbx A9Pq}3U popa P8ns @VV ret Tv%
Z|%* dispqword endp 9):^[Wkx B7%m7GM rwsect proc near =^zOM6E1ZF u=#_8e(9Z lea bx,msg ?fpI,WFu mov dx,bx g`"_+x' mov ah,09h 4s <Z KU int 21h bZ+H u~ 9om}j lea bx,BlockNumL + e Zn call dispqword O"RIY3m /de~+I5AB~ lea di, packetsize 1vq c8lC mov dl,80h jT-tsQ ., mov ah,42h \@^ `
G int 13h 5fp&!HnG jnc readok UVsF !0 : D !/.0 mov cx,5 4]%MrSjS ;出错后重试(定位0道后再重读) 2e({%P@2? retryrd: fCv.$5
lea bx, msgReadErr uL~.#Y_jQ mov dx,bx )G#O# Yy mov ah,09 e4 .G9( int 21h @ "C P@^ T\7t#Z
k Xc
g+ SOB lea di,dap0 > k~3W> D mov dl,80h Ik=bgEF mov ah,44h V r T0S int 13h sX`b y\s, <bywi2]z lea bx,BlockNumL nEik;hAz call dispqword Z22#lF\ N !4$o*{9Lx: lea di, packetsize 1ZWr@,\L mov dl,80h HLq2a vs\ mov ah,42h q~xs4?n1U int 13h E1qf N>0Z jnc readok i[vOpg]J loopnz retryrd quq !Jswn <*ME&c gh4 readok: g zyi'K< lea di, packetsize O tR mov dl,80h =Zaw>p*H mov ah,43h .bRDz:?j int 13h U/\LOIs LcHe5Bv % rwsect endp N_VWA.JHt <2^
F'bQV code ends ;代码段结尾 -}H
EV#ev end start ;结束汇编 o& ?:pE L@G~9{U>
|
