程序调试

加减法参考程序DATA SEGMENT P ARA PUBLIC …DATA‟DATA ENDSSTACK SEGMENT P ARA STACK …STACK‟DB 512 DUP (?)STACK ENDSCODE SEGMENT P ARA PUBLIC …CODE‟ASSUME CS:CODE,DS:DATA,ES:DATA,SS:STACKSTART PROC FARPUSH DSMOV AX,0PUSH AXMOV AX,DATAMOV DS,AXMOV ES,AXMOV AX,0000MOV DX,0000MOV SI,2050HMOV DI,2150HMOV BP,2250HMOV WORD PTR[SI],0205HMOV WORD PTR[DI],0408HMOV WORD PTR[BP],0109HMOV AL,…;送被加数低8位AL=…;低8位相加AL= ，AH= ，CF= …;加法ASCII调整AL= ，AH= ，CF=MOV DL,AL ；DL=MOV AL,[SI+1] ；AL=…;带进位加；AL= ，CF=…;加法ASCII调整AL= ，AH= ，CF= …;AL与DL交换AL= ，DL=…;和的低8位减减数的低8位AL=…;减法ASCII调整AL= ，AH= ，CF= …;AL与DL交换，存低8位结果AL= ，DL= …;高8位带进位减AL=…;减法ASCII调整AL= ，AH= ，CF= MOV DH,AL ；DH=RETSTART ENDPCODE ENDSEND START乘法参考程序DATA SEGMENT P ARA PUBLIC …DATA‟DATA ENDSSTACK SEGMENT P ARA STACK …STACK‟DB 512 DUP (?)STACK ENDSCODE SEGMENT P ARA PUBLIC …CODE‟ASSUME CS:CODE,DS:DATA,ES:DATA,SS:STACKSTART PROC FARPUSH DSMOV AX,0PUSH AXMOV AX,DATAMOV DS,AXMOV ES,AXMOV AX,0MOV BX,0MOV DI,223AHMOV SI,2230HMOV AL,04HMOV BL,06H…;相乘，AL=，CF=…;调整，AH=，AL=MOV WORD PTR [DI],AXMOV AL,03H…;被乘数高8位乘以乘数低8位…;调整…;部分积相加…;调整MOV WORD PTR [DI+1],AXMOV AL,04HMOV BL,05H…;相乘…;调整MOV WORD PTR[SI],AXMOV AL, 03HMUL BL…;调整…;部分积相加…;调整MOV WORD PTR [SI+1],AXMOV AL,[DI] ;MOV BP,2240HMOV [BP],ALMOV AL,[DI+1]…;部分积相加…;调整MOV [BP+1],ALMOV AL,[DI+2] ;…;部分积相加…;调整MOV [BP+2],ALMOV AL,0…;部分积相加…;调整MOV [BP+3],ALRETSTART ENDPCODE ENDSEND START16进制到ACII码参考程序name HEXASCdata segment para public 'data'hex dw 0A5E9hasc db 20 dup(0)data endsstack segment para stack 'stack'db 512 dup (?)stack endscode segment para public 'code'assume c s:code,ds:data, es:data,ss:stackstart proc farpush dsmov ax,0push axmov ax,datamov ds,axmov es,axmov cx,0004hmov ax, …；AX= ,取十六进制数0ebf9hlea bx,ascaa: push cx…；给循环计数器赋转换代码长度…；AX= ,十六进制数循环左移push axand ax,000fh ；AX= ;AX= AX= ;AX=cmp al, …；判别是否为“0~9”… ascii；是“0~9”转asciiadd al,07hascii: add al,30h ；al = ;al = al= ;al =pop axloop aaretstart endpcode endsend startACII码到BCD码参考程序NAME A SCBCDDATA SEGMENT PARA PUBLIC'DATA'ORG 0150HDATA1 DW 3538H,4237H,3946H,3639H,3642HORG 0160HDB 10 DUP(?)DATA ENDSSTACK SEGMENT PARA STACK'STACK'DB 512 DUP(?)STACK ENDSCODE SEGMENT PARA PUBLIC'CODE'ASSUME CS:CODE,DS:DATA,ES:DATA,SS:STACKSTART PROC FARPUSH DSMOV AX,0PUSH AXMOV AX,DATAMOV DS,AXMOV ES,AXMOV CX,05H…; DI= ,[DI]= ASCII首址送DI …; SI= , BCD首址送SIBB:MOV BL,0FFHMOV AL,[DI] ;AL=…;检查是否为大于9的ASCII码…;是转DONE…;AL= ,[DI]= 不是，取ASCII码低4位…; 小于0的十进制数，转DONEMOV BL,ALDONE:MOV AL,BL ; AL= ,[DI]=MOV [SI],AL ;[SI]=…;指针加1…;指针加1…;(CX)不为0，转BBRET [160H]=START ENDPCODE ENDSEND STARTBCD码→二进制参考程序NAME BCD2DATA SEGMENTORG 0180HDAT1 DW 0802H,0103H,0009H,0706H,0407HORG 0190HDAT2 DB 10 DUP(?)DATA ENDSSTACK SEGMENT PARA STACK'STACK'DB 512 DUP(?)STACK ENDSCODE SEGMENTASSUME CS:CODE,DS:DATA,ES:DATA,SS:STACKSTART PROC FARPUSH DSMOV AX,0PUSH AXMOV AX,DATAMOV DS,AXMOV ES,AX…;循环计数器赋转换代码长度…;BCD码首址送DI…;二进制首址送SIXL: …;BCD码十位数值赋AL MOV BL,0AHMUL BL ;乘10INC DIMOV AH,00H…;BCD码十位和个位相加，转换结束…;转换结果存二进制起始地址INC DIINC DIINC SI ;(CX)不为0转AALOOP XLRETSTART ENDPCODE ENDSEND START查表处理参考程序DATA SEGMENTLIST DW 12,11H,22H,33H,44H,55H,66H,77H,88H,99H,111H,222H,333H DATA ENDSCODE SEGMENTDEL_UL PROC FARASSUME CS:CODE,DS:DATA,ES:DATAMAIN: PUSH DSSUB AX,AXPUSH AXMOV AX,DATAMOV DS,AXMOV ES,AXMOV AX, ….. ;AX=CLDLEA DI, …; DI= ,[DI]= ….. …取得数据区首地址PUSH DIMOV CX,ES:[DI] ;CX=ADD DI,2…SCASW ; AX= ,DI= ,[DI-2]= 字符串比较…DELETE ;字符相同转移JMP SHORT EXITDELETE:…DEC_CNT ;CX寄存器内容为0则到数据区尾转结束NEXT_EL: MOV BX,ES:[DI] ;BX= , [DI-2]MOV ES:[DI-2],BX ; (DI-2)= ，（DI）=ADD DI,2LOOP NEXT_ELDEC_CNT: POP DIDEC WORD PTR ES:[DI] ; (0H)= ……….EXIT: RETDEL_UL ENDPCODE ENDSEND MAIN分支与循环参考程序DATA SEGMENTORG 200HARRAY DW 56H,12H,-6790H,0,78H,0H,-1H,0H,3000H,90HDATA ENDSCODE SEGMENTMAIN PROC FARASSUME CS:CODE,DS:DATASTART:PUSH DSMOVAX,0PUSH AXMOV AX,DATAMOV DS,AXMOV CX,…;CX= 循环计数器赋转换代码长度MOV BX,0MOV DI,BXMOV SI,BX…;BX= ……字数组首址送BX AGAIN:MOV AX,[BX]…;与0比较…LEQ ;小于或等于0转INC DI ;AX= ,DI=JMP SHORT NEXTLEQ: …NEXT ;小于0转INC SI ;AX= ,SI=NEXT:ADD BX,2LOOP AGAINMOV AX,10…;字数组长度减负数…; AX= 字数组长度减负数再减零RETMAIN ENDPCODE ENDSEND START排序参考程序DATA SEGMENTDAT DW 10,1234H,2345H,3456H,9999HDW 8700H,7000H,0,6500H,5111H,4FBDHDATA ENDSCODE SEGMENTMAIN PROC FARASSUME CS:CODE,DS:DATA,ES:DATASTART:PUSH DS ;初始化SUB AX,AXPUSH AXMOV AX,DATAMOV DS,AXMOV ES,AX…;字数组首地址送DI…;循环长度送CX…;循环长度减1(10个数据,循环9次) LOOP1:MOV SI,CXINC DIINC DILOOP2:…;取DAT(I)个数据…;与DAT(I＋1)个数据比较…;如果DAT(I＋1)大于或等于DAT(I)转移…; AX= ,(DI)=否则交换…;(DI)=存较小的数CON: ADD DI,2LOOP LOOP2…;(DI)=……. 取循环长度，准备下次比较…;字数组首地址送DILOOP LOOP1 ;(DI)=……..RETMAIN ENDPCODE ENDSEND START6264参考程序.486DATA SEGMENT AT 0 USE16ORG 4000HDATA1 DB 6 DUP(?)DATA ENDSCODE SEGMENT USE16ASSUME CS:CODE,DS:DATA,ES:DATAORG 2000HBEG: JMP STARTSTART: MOV AX,DATAMOV DS,AXMOV ES,AXMOV AX,0MOV SS,AXMOV SP,1000HMOV AX,…;6264段地址MOV DS,AXXOR AX,AXMOV BX,…;偏移地址MOV CX,…;数据长度M1: M OV BYTE PTR[BX],AL ; (BX)= , (BX)= , (BX)=送数据INC ALINC BXLOOP M1HARTENDPCODE ENDSEND BEG8255参考程序.486DATA SEGMENT AT 0 USE16PORTA EQU …;A口PORTB EQU …;B口PORTC EQU …;C口CONTROL E QU 20FH ;控制口PORT1 EQU 340H ;七段码段地址PORT2 EQU 360H ;七段码位地址ORG …HDATA1 DB 6 DUP (?) ;输入数据区ORG …HDATA2 DB 6 DUP (？) ;显示缓冲区DATA ENDSCODE SEGMENT USE16ASSUME CS:CODE,DS:DATA,ES:DATAORG 2000HBEG: JMP STARTTAB DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FHDB 67H,77H,7CH,39H,5EH,79H,71H ;段码表STlART: MOV AX,DATA ;初始化MOV DS,AXMOV ES,AXMOV AX,0MOV SS,AXMOV SP,1000H…;8255初始化……;清显示…LP：…; AL= 读数据……;存数据…CALL CZ ;调用拆字子程序CALL DISP ;调用显示子程序JMP …;循环取数显示CZ PROCPUSH CXLEA SI,DATA1 ; SI= 拆字，取数LEA DI,DATA2 ;DI= 显示缓冲区首址CZ0:MOV BL,[SI]AND BL,0F0H ;BL=MOV CL,4ROL BL,CLMOV [DI],BL ;(DI)=INC DIMOV BL,[SI]AND BL,0FH ;BL=MOV [DI],BLINC SIINC DICMP SI, …HJBE CZ0POP CXRETCZ ENDPDISP PROC ;显示子程序PUSH CXPUSH DXLEA BX,TABLEA SI,DATA2MOV AH,0C1HDISP1:MOV DX,PORT2MOV AL,AHOUT DX,AL ; AL= , AL= 位输出MOV DX,PORT1MOV AL,[SI]XLATOUT DX,AL ;AL= ,AL= 段输出MOV CX,0200HLOOP $INC SISAL AH,1OR AH,0C0HCMP AH,0C0HJNZ DISP1POP DXPOP CXRETDISP ENDPCODE ENDSEND BEG8253参考程序.486DATA SEGMENT AT 0 USE16ZDXL EQU 20H ;中断向量(20H) OPORT EQU 3A0H ;8259偶地址JPORT EQU 3A8H ;8259奇地址PORT1 EQU 340H ;段地址PORT2 EQU 360H ;位地址DS0 EQU 300H ;8253通道0DSC EQU 30CH ;8253控制口COUNT EQU 50ORG 4000HDATA1 DB 6 DUP(?)ORG 4040HDATA2 DB 3 DUP(?)DATA ENDSCODE SEGMENT USE16ASSUME CS:CODE,DS:DATA,ES:DATAORG 2000HBEG: CLIJMP STARTTAB DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H,DB 7FH,67H,77H,7CH,39H,5EH,79H,71H ;段码表TIMER DB 0 ;延时、计数初值START:…;初始化INIT8253:MOV DX,DSCMOV AL, …;方式3，方波发生器OUT DX,ALMOV DX,DS0MOV AL,0BHOUT DX,ALMOV AL,0E9HOUT DX,ALSETVECT:MOV DI,0MOV DX,OFFSET SERVER ;中断服务子程序偏移地址;送中断向量低位MOV ZDXL[DI],DXMOV DX,CS ;中断服务子程序段地址;送中断向量高位MOV ZDXL[DI+2],DX ,(00:20H)INIT8259:MOV AL,00010011B ;ICW1MOV DX,OPORTOUT DX,ALMOV AL,00001000B ;ICW2MOV DX,JPORTOUT DX,ALMOV AL,00001101B ;ICW4MOV DX,JPORTOUT DX,ALMOV AL,11111110B ;OCW1MOV DX,JPORTOUT DX,ALMOV AL,20H ;EOI(20H)MOV DX,OPORTAGAIN:STI ;开中断CALL CZ ;调拆字CALL DISP ;调显示JMP AGAINCZ PROC…RETCZ ENDPDISP PROC…RETDISP ENDP;--------------------------------------SERVER PROC ;8253中断入口CLIPUSH AXPUSH CXPUSH DXPUSH SIPUSH DILEA SI,TIMERMOV AL,[SI]INC ALCMP AL, …;与延时、计数值终值比较…WORK ;大于、等于(到1秒)转移MOV [SI],AL ;[SI]= , [SI]= ,[SI]=JMP EXITWORK:MOV AL,0MOV [SI],ALLEA SI,DATA2+2MOV AL,[SI]INC AL…;十进制调整CMP AL, …;与60秒比较…MINUTE ;大于、等于(60秒)转移MOV [SI],ALJMP EXITMINUTE:MOV AL,0LEA SI,DATA2+1MOV AL,[SI]INC AL…;十进制调整CMP AL, …;与60分比较…HOURE ;大于、等于(60分)转移MOV [SI],ALJMP EXITHOURE:MOV AL,0MOV [SI],ALLEA SI,DATA2MOV AL,[SI]INC AL…;十进制调整CMP AL, …;与24小时比较…NEXT ;大于、等于(24小时)转移MOV [SI],ALJMP EXITNEXT:MOV AL,0MOV [SI],ALEXIT:MOV AL,20HMOV DX,OPORTOUT DX,ALPOP DIPOP SIPOP DXPOP CXPOP AXIRETSERVER ENDPCODE ENDSEND BEGA/D、D/A参考程序.486DATA SEGMENT AT 0 USE16ORG 4000HDATA1 DB 6 DUP(?) ;转换数据暂存区ORG 4010HDATA2 DB 3 DUP(?) ;显示缓冲区DATA ENDSCODE SEGMENT USE16ASSUME CS:CODE,DS:DATA,ES:DATAORG 2000HBEG: JMP STARTTAB DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH DB 67H,77H,7CH,39H,5EH,79H,71H ;段码表ADPORT EQU 3C0HADPORT7 EQU 3DCHDAPORT EQU 3E0HZDXL EQU 20H ;中断向量(20H) OPORT EQU 3A0H ;8259偶地址JPORT EQU 3A8H ;8259奇地址PORT1 EQU 340HPORT2 EQU 360HSTART:…;初始化SETVECT:…;中断初始化LAST: MOV DX,ADPORT ;启动ADCOUT DX,AL;--------------------------------------AGAIN:STICALL CZ ;调用拆字子程序CALL DISP ;调用显示子程序JMP AGAIN;--------------------------------------CZ PROC…RETCZ ENDPDISP PROC…RETDISP ENDP;--------------------------------------IRQ2 PROC ; A/D中断服务程序CLIPUSH AXPUSH SIPUSH DX…;取A/D转换通道地址…;读A/D转换数据LEA SI,DATA1MOV [SI],AL ;保存A/D转换数据…;启动A/D…;取D/A转换通道地址…;启动D/AMOV AL,20H ;EOI(20H)MOV DX,OPORTOUT DX,ALPOP DXPOP SIPOP AXIRETIRQ2 ENDP;--------------------------------------CODE ENDSEND BEG8251参考程序（中断方式,异步数据发送）.486DATA SEGMENT AT 0 USE16ORG 4000HDATA1 DB 1 DUP(?) ;发送数据区OUNT EQU 02 ;延时、计数终值C8251 EQU 330H ;8251控制口地址D8251 EQU 320H ;8251数据口地址DS0 EQU 300H ;8253通道0DSC EQU 30CH ;8253控制口DATA ENDSCODE SEGMENT USE16ASSUME CS:CODE,DS:DATAORG 2000HBEG: CLI ;关中断JMP STARTSTART:…;初始化INIT8253:…;8253初始化。