程序调试.docx

程序调试.docx

《程序调试.docx》由会员分享，可在线阅读，更多相关《程序调试.docx（28页珍藏版）》请在冰豆网上搜索。

程序调试

加减法参考程序

DATASEGMENTPARAPUBLIC‘DATA’

DATAENDS

STACKSEGMENTPARASTACK‘STACK’

DB512DUP（?

）

STACKENDS

CODESEGMENTPARAPUBLIC‘CODE’

ASSUMECS:

CODE,DS:

DATA,ES:

DATA,SS:

STACK

STARTPROCFAR

PUSHDS

MOVAX,0

PUSHAX

MOVAX,DATA

MOVDS,AX

MOVES,AX

MOVAX,0000

MOVDX,0000

MOVSI,2050H

MOVDI,2150H

MOVBP,2250H

MOVWORDPTR[SI],0205H

MOVWORDPTR[DI],0408H

MOVWORDPTR[BP],0109H

MOVAL,[SI];送被加数低8位AL=

ADDAL,[DI];低8位相加AL=，AH=，CF=

AAA;加法ASCII调整AL=，AH=，CF=

MOVDL,AL;DL=

MOVAL,[SI+1];AL=

ADCAL,[DI+1];带进位加AL=，CF=

AAA;加法ASCII调整AL=，AH=，CF=

XCHGAL,DL;AL与DL交换AL=，DL=

SUBAL,[BP];和的低8位减减数的低8位AL=

AAS;减法ASCII调整AL=，AH=，CF=

XCHGAL,DL;AL与DL交换，存低8位结果AL=，DL=

SBBAL,[BP+1];高8位带进位减AL=

AAS;减法ASCII调整AL=，AH=，CF=

MOVDH,AL;DH=

RET

STARTENDP

CODEENDS

ENDSTART

乘法参考程序

DATASEGMENTPARAPUBLIC‘DATA’

DATAENDS

STACKSEGMENTPARASTACK‘STACK’

DB512DUP（?

）

STACKENDS

CODESEGMENTPARAPUBLIC‘CODE’

ASSUMECS:

CODE,DS:

DATA,ES:

DATA,SS:

STACK

STARTPROCFAR

PUSHDS

MOVAX,0

PUSHAX

MOVAX,DATA

MOVDS,AX

MOVES,AX

MOVAX,0

MOVBX,0

MOVDI,223AH

MOVSI,2230H

MOVAL,04H

MOVBL,06H

…;相乘，AL=，CF=

…;调整，AH=，AL=

MOVWORDPTR[DI],AX

MOVAL,03H

…;被乘数高8位乘以乘数低8位

…;调整

…;部分积相加

…;调整

MOVWORDPTR[DI+1],AX

MOVAL,04H

MOVBL,05H

…;相乘

…;调整

MOVWORDPTR[SI],AX

MOVAL,03H

MULBL

…;调整

…;部分积相加

…;调整

MOVWORDPTR[SI+1],AX

MOVAL,[DI];

MOVBP,2240H

MOV[BP],AL

MOVAL,[DI+1]

…;部分积相加

…;调整

MOV[BP+1],AL

MOVAL,[DI+2];

…;部分积相加

…;调整

MOV[BP+2],AL

MOVAL,0

…;部分积相加

…;调整

MOV[BP+3],AL

RET

STARTENDP

CODEENDS

ENDSTART

16进制到ACII码参考程序

nameHEXASC

datasegmentparapublic'data'

hexdw0A5E9h

ascdb20dup（0）

dataends

stacksegmentparastack'stack'

db512dup（?

）

stackends

codesegmentparapublic'code'

assumecs:

code,ds:

data,es:

data,ss:

stack

startprocfar

pushds

movax,0

pushax

movax,data

movds,ax

moves,ax

movcx,0004h

movax,0EBF9H;AX=,取十六进制数0ebf9h

leabx,asc

aa:

pushcx

movcl,4;给循环计数器赋转换代码长度

rolax,cl;AX=,十六进制数循环左移

pushax

andax,000fh;AX=;AX=AX=;AX=

cmpal,0AH;判别是否为“0~9”

JCascii;是“0~9”转ascii

addal,07h

ascii:

addal,30h;al=;al=al=;al=

loopaa

ret

startendp

codeends

endstart

datasegmentparapublic'data'

hexdw0A5E9h

ascdb20dup（0）

dataends

stacksegmentparastack'stack'

db512dup（?

）

stackends

codesegmentparapublic'code'

assumecs:

code,ds:

data,es:

data,ss:

stack

startprocfar

pushds

movax,0

pushax

movax,data

movds,ax

moves,ax

movcx,0004h

movax,0EBF9H;AX=,取十六进制数0ebf9h

leabx,asc

aa:

pushcx

movcl,4;给循环计数器赋转换代码长度

rolax,cl;AX=,十六进制数循环左移

pushax

andax,000fh;AX=;AX=AX=;AX=

cmpal,0AH;判别是否为“0~9”

JCascii;是“0~9”转ascii

addal,07h

ascii:

addal,30h;al=;al=al=;al=

popax

popcx

loopaa

ret

startendp

codeends

endstart

ACII码到BCD码参考程序

NAMEASCBCD

DATASEGMENTPARAPUBLIC'DATA'

ORG0150H

DATA1DW3538H,4237H,3946H,3639H,3642H

ORG0160H

DB10DUP（?

）

DATAENDS

STACKSEGMENTPARASTACK'STACK'

DB512DUP（?

）

STACKENDS

CODESEGMENTPARAPUBLIC'CODE'

ASSUMECS:

CODE,DS:

DATA,ES:

DATA,SS:

STACK

STARTPROCFAR

PUSHDS

MOVAX,0

PUSHAX

MOVAX,DATA

MOVDS,AX

MOVES,AX

MOVCX,05H

…;DI=,[DI]=ASCII首址送DI

…;SI=,BCD首址送SI

BB:

MOVBL,0FFH

MOVAL,[DI];AL=

…;检查是否为大于9的ASCII码

…;是转DONE

…;AL=,[DI]=不是，取ASCII码低4位

…;小于0的十进制数，转DONE

MOVBL,AL

DONE:

MOVAL,BL;AL=,[DI]=

MOV[SI],AL;[SI]=

…;指针加1

…;指针加1

…;（CX）不为0，转BB

RET[160H]=

STARTENDP

CODEENDS

ENDSTART

BCD码→二进制参考程序

NAMEBCD2

DATASEGMENT

ORG0180H

DAT1DW0802H,0103H,0009H,0706H,0407H

ORG0190H

DAT2DB10DUP（?

）

DATAENDS

STACKSEGMENTPARASTACK'STACK'

DB512DUP（?

）

STACKENDS

CODESEGMENT

ASSUMECS:

CODE,DS:

DATA,ES:

DATA,SS:

STACK

STARTPROCFAR

PUSHDS

MOVAX,0

PUSHAX

MOVAX,DATA

MOVDS,AX

MOVES,AX

…;循环计数器赋转换代码长度

…;BCD码首址送DI

…;二进制首址送SI

XL:

…;BCD码十位数值赋AL

MOVBL,0AH

MULBL;乘10

INCDI

MOVAH,00H

…;BCD码十位和个位相加，转换结束

…;转换结果存二进制起始地址

INCDI

INCDI

INCSI;（CX）不为0转AA

LOOPXL

RET

STARTENDP

CODEENDS

ENDSTART

查表处理参考程序

DATASEGMENT

LISTDW12,11H,22H,33H,44H,55H,66H,77H,88H,99H,111H,222H,333H

DATAENDS

CODESEGMENT

DEL_ULPROCFAR

ASSUMECS:

CODE,DS:

DATA,ES:

DATA

MAIN:

PUSHDS

SUBAX,AX

PUSHAX

MOVAX,DATA

MOVDS,AXMOVES,AXMOVAX,55H;AX=

CLD

LEADI,LIST;DI=,[DI]=取得数据区首地址PUSHDI

MOVCX,ES:

[DI]

ADDDI,2

REPNZSCASW;AX=,DI=,[DI]=字符串比较

JZDELETE;字符相同转移

JMPSHORTEXIT

DELETE:

JCXZDEC_CNT;CX寄存器内容为0则到数据区尾转结束

NEXT_EL:

MOVBX,ES:

[DI];BX=,[DI-2]

MOVES:

[DI-2],BX;（DI-2）=，（DI）=

ADDDI,2

LOOPNEXT_EL

DEC_CNT:

POPDI

DECWORDPTRES:

[DI];（0H）=……….

EXIT:

RETDEL_ULENDP

CODEENDSENDMAIN

分支与循环参考程序

DATASEGMENT

ORG200H

ARRAYDW56H,12H,-6790H,0,78H,0H,-1H,0H,3000H,90H

DATAENDS

CODESEGMENT

MAINPROCFAR

ASSUMECS:

CODE,DS:

DATA

START:

PUSHDS

MOVAX,0

PUSHAX

MOVAX,DATA

MOVDS,AX

MOVCX,10;循环计数器赋转换代码长度

MOVBX,0

MOVDI,BX

MOVSI,BX

MOVBX,200H;BX=字数组首址送BX

AGAIN:

MOVAX,[BX]

CMPAX,0000H;与0比较

JNGLEQ;小于或等于0转

INCDI;AX=,DI=

JMPSHORTNEXT

LEQ:

JNGENEXT;小于0转

INCSI;AX=,SI=

NEXT:

ADDBX,2

LOOPAGAIN

MOVAX,10

SUBAX,DI;字数组长度减正数

SUBAX,SI;AX=字数组长度减正数再减零

RET

MAINENDP

CODEENDS

ENDSTART

排序参考程序

DATASEGMENT

DATDW10,1234H,2345H,3456H,9999H

DW8700H,7000H,0,6500H,5111H,4FBDH

DATAENDS

CODESEGMENT

MAINPROCFAR

ASSUMECS:

CODE,DS:

DATA,ES:

DATA

START:

PUSHDS;初始化

SUBAX,AX

PUSHAX

MOVAX,DATA

MOVDS,AX

MOVES,AX

leadi,dat;字数组首地址送DI

movcx,[di];循环长度送CX

deccx;循环长度减1（10个数据,循环9次）

LOOP1:

MOVSI,CX

INCDI

INCDI

LOOP2:

movax,[di];取DAT（I）个数据

cmpax,[di+1];与DAT（I＋1）个数据比较

jccon;如果DAT（I＋1）大于或等于DAT（I）转移

xchgax,[di+1];AX=,（DI）=否则交换

movdi,ax;（DI）=存较小的数

CON:

ADD

DI,2

LOOPLOOP2

movcx,[di];（DI）=…….取循环长度，准备下次比较

leadi,dat;字数组首地址送DI

LOOPLOOP1;（DI）=……..

RET

MAINENDP

CODEENDS

ENDSTART

6264参考程序

.486

DATASEGMENTAT0USE16

ORG4000H

DATA1DB6DUP（?

）

DATAENDS

CODESEGMENTUSE16

ASSUMECS:

CODE,DS:

DATA,ES:

DATA

ORG2000H

BEG:

JMPSTART

START:

MOVAX,DATA

MOVDS,AX

MOVES,AX

MOVAX,0

MOVSS,AX

MOVSP,1000H

MOVAX,…;6264段地址

MOVDS,AX

XORAX,AX

MOVBX,…;偏移地址

MOVCX,…;数据长度

M1:

MOVBYTEPTR[BX],AL;（BX）=,（BX）=,（BX）=送数据

INCAL

INCBX

LOOPM1

HART

ENDP

CODEENDS

ENDBEG

8255参考程序

.486

DATASEGMENTAT0USE16

PORTAEQU…;A口

PORTBEQU…;B口

PORTCEQU…;C口

CONTROLEQU20FH;控制口

PORT1EQU340H;七段码段地址

PORT2EQU360H;七段码位地址

ORG…H

DATA1DB6DUP（?

）;输入数据区

ORG…H

DATA2DB6DUP（？

）;显示缓冲区

DATAENDS

CODESEGMENTUSE16

ASSUMECS:

CODE,DS:

DATA,ES:

DATA

ORG2000H

BEG:

JMPSTART

TABDB3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH

DB67H,77H,7CH,39H,5EH,79H,71H;段码表

STlART:

MOVAX,DATA;初始化

MOVDS,AX

MOVES,AX

MOVAX,0

MOVSS,AX

MOVSP,1000H

…;8255初始化

…

…;清显示

…

LP：

…;读数据

…

…;存数据

…

CALLCZ;调用拆字子程序

CALLDISP;调用显示子程序

JMP…;循环取数显示

CZPROC

PUSHCX

LEASI,DATA1;拆字，取数

LEADI,DATA2;显示缓冲区首址

CZ0:

MOVBL,[SI]

ANDBL,0F0H;BL=

MOVCL,4

ROLBL,CL

MOV[DI],BL;（DI）=

INCDI

MOVBL,[SI]

ANDBL,0FH;BL=

MOV[DI],BL

INCSI

INCDI

CMPSI,…H

JBECZ0

POPCX

RET

CZENDP

DISPPROC;显示子程序

PUSHCX

PUSHDX

LEABX,TAB

LEASI,DATA2

MOVAH,0C1H

DISP1:

MOVDX,PORT2

MOVAL,AH

OUTDX,AL;AL=,AL=位输出

MOVDX,PORT1

MOVAL,[SI]

XLAT

OUTDX,AL;AL=,AL=段输出

MOVCX,0200H

LOOP$

INCSI

SALAH,1

ORAH,0C0H

CMPAH,0C0H

JNZDISP1

POPDX

POPCX

RET

DISPENDP

CODEENDS

ENDBEG

8253参考程序

.486

DATASEGMENTAT0USE16

ZDXLEQU20H;中断向量（20H）

OPORTEQU3A0H;8259偶地址

JPORTEQU3A8H;8259奇地址

PORT1EQU340H;段地址

PORT2EQU360H;位地址

DS0EQU300H;8253通道0

DSCEQU30CH;8253控制口

COUNTEQU50

ORG4000H

DATA1DB6DUP（?

）

ORG4040H

DATA2DB3DUP（?

）

DATAENDS

CODESEGMENTUSE16

ASSUMECS:

CODE,DS:

DATA,ES:

DATA

ORG2000H

BEG:

CLI

JMPSTART

TABDB3FH,06H,5BH,4FH,66H,6DH,7DH,07H,

DB7FH,67H,77H,7CH,39H,5EH,79H,71H;段码表

TIMERDB0;延时、计数初值

START:

…;初始化

INIT8253:

MOVDX,DSC

MOVAL,…;方式3，方波发生器

OUTDX,AL

MOVDX,DS0

MOVAL,0BH

OUTDX,AL

MOVAL,0E9H

OUTDX,AL

SETVECT:

MOVDI,0

MOVDX,OFFSETSERVER;中断服务子程序偏移地址

;送中断向量低位

MOVZDXL[DI],DX

MOVDX,CS;中断服务子程序段地址

;送中断向量高位

MOVZDXL[DI+2],DX,（00:

20H）

INIT8259:

MOVAL,00010011B;ICW1

MOVDX,OPORT

OUTDX,AL

MOVAL,00001000B;ICW2

MOVDX,JPORT

OUTDX,AL

MOVAL,00001101B;ICW4

MOVDX,JPORT

OUTDX,AL

MOVAL,11111110B;OCW1

MOVDX,JPORT

OUTDX,AL

MOVAL,20H;EOI（20H）

MOVDX,OPORT

OUTDX,AL

AGAIN:

STI;开中断

CALLCZ;调拆字

CALLDISP;调显示

JMPAGAIN

CZPROC

…

RET

CZENDP

DISPPROC

…

RET

DISPENDP

;--------------------------------------

SERVERPROC;8253中断入口

CLI

PUSHAX

P