OA自动化-广工自动化微机实验胶印-精品

(大神出品,不保证没错误)实验一：：STACK SEGMENT STACKDW 64 DUP()STACK ENDSDATA SEGMENTORG 0500HDATA1 DB 5 DUP()ORG 050AHDATA2 DB 5 DUP(){DATA ENDSCODE SEGMENTASSUME CS:CODE,DS:DATA,SS:STACK START: MOV AX,DATAMOV DS,AXMOV CX,5MOV DI,OFFSET DATA1MOV SI,OFFSET DATA2LAB1: MOV BL,0FFHMOV AL, [DI]CMP AL,3AH(JNB OKSUB AL,30HJC OKMOV BL,ALOK: MOV AL,BLMOV [SI],ALINC DIINC SILOOP LAB1MOV AH,4CH"INT 21HCODE ENDSEND START：STACK SEGMENT STACKDW 64 DUP()STACK ENDSDATA SEGMENTORG 0500HDATA1 DW 78EDH}ORG 0510HDATA2 DB 5 DUP()DATA ENDSCODE SEGMENTASSUME CS:CODE,DS:DATA,SS:STACK START: MOV AX,DATAMOV DS,AXLEA SI,DATA1LEA DI,DATA2+4MOV BX,000AHMOV CX,0005H>MOV AX,[SI]AA0: MOV DX,0000HDIV BXMOV [DI],DLDEC DILOOP AA0MOV AH,4CHINT 21HCODE ENDSEND START#：STACK SEGMENT STACKDW 64 DUP()STACK ENDSDATA SEGMENTORG 0500HDATA1 DB 2 DUP()ORG 050AHDATA2 DB 4 DUP()DATA ENDSCODE SEGMENT{ASSUME CS:CODE,DS:DATA START: MOV AX,DATAMOV DS,AXMOV DI,OFFSET DATA1MOV SI,OFFSET DATA2MOV AX,[DI]MOV CX,0004HMOV BX,1000HA1: MOV DX,0000HDIV BXCMP AL,0AH（JAE A3ADD AL,30HA2: MOV [SI],ALINC SIPUSH DXMOV AX,BXMOV BX,0010HMOV DX,0000HDIV BXMOV BX,AXPOP DX、MOV AX,DXLOOP A1INT 03HA3: SUB AL,0AHADD AL,41HJMP A2CODE ENDSEND STARTSTACK SEGMENT STACK~DW 64 DUP()STACK ENDSDATA SEGMENTORG 0500HDATA1 DB 8 DUP()ORG 0510HDATA2 DB 8 DUP()DATA ENDSCODE SEGMENTASSUME CS:CODE,DS:DATA START: MOV AX,DATA~MOV DI,OFFSET DATA1 MOV SI,OFFSET DATA2 MOV CX,0004HMOV BL,0AHMOV AH,00HA1: MOV AL,[DI] MUL BLINC DIMOV DL,[DI]ADD AL,DL：MOV [SI],ALINC DIINC SILOOP A1INT 03HCODE ENDSEND STARTSTACK SEGMENT STACKDW 64 DUP()}STACK ENDSDATA SEGMENTORG 0600HDATA1 DBORG 0610HJIEGUO DBDATA ENDSCODE SEGMENTASSUME CS:CODE,DS:DATA START:MOV AX,DATAMOV DS,AX>LEA SI,DATA1LEA DI,JIEGUOXOR CH,CHMOV CL,04HMOV DL,0AHMOV DH,04HA1:MOV AL,[SI]AND AL,0FHMOV AL,[SI]SHR AL,CL;MUL DLADD AL,BLMOV [DI],ALINC SIINC DIDEC DHJNZ A2JMP A3A2:JMP A1A3:INT 03HCODE ENDS~END STARTSTACK SEGMENT STACKDW 64 DUP()STACK ENDSDATA SEGMENTORG 0300HDATA1 DB 2 DUP()ORG 0308HDATA2 DB 5 DUP()'DATA ENDSCODE SEGMENTASSUME CS:CODE,DS:DATA START: MOV AX,DATAMOV DS,AXMOV DI,OFFSET DATA1MOV SI,OFFSET DATA2MOV AX,[DI]MOV BX,2710H ;十进制数的10000 MOV CX,0005HA1: MOV DX,0000H|DIV BXMOV [SI],ALINC SIPUSH DXMOV BX,0AHMOV DX,0000HDIV BXMOV BX,AXPOP DXMOV AX,DX}LOOP A1INT 03HCODE ENDSEND START实验二：STACKS SEGMENTDW 64 ()STACKS ENDS-DATAS SEGMENTORG 0700HX DW 0208HY DW 0509HZ DW 0304HORG 0710HQ DWDATAS ENDSCODES SEGMENTASSUME CS:CODES,DS:DATAS,SS:STACKS|START: MOV AX,DATASMOV DS,AXMOV AX,XADD AX,Y ;X+Y结果存入AX中 AAA ;BCD码调整SUB AX,Z ;X+Y-Z结果存入AX AAS ;BCD码调整MOV Q,AX ;Q存入3710单元 MOV AH,4CHINT 21HCODES ENDS\END STARTSTACKS SEGMENTDW 64 DUP()STACKS ENDSDATAS SEGMENTORG 0500HTAB DW 0010H,0020H,0030H,0040H,0050H,0060H ORG 0510HJIEGUO DB 2 DUP()-DATAS ENDSCODES SEGMENTASSUME CS:CODES,DS:DATAS,SS:STACKS START:MOV AX,DATASMOV DS,AXSUB AX,AXMOV CX,06HLEA DI,TABBBB: ADD AX,[DI]INC DI：INC DIDEC CXJNZ BBBMOV BX,06HCWDDIV BXMOV BX,0AHCWDDIV BXLEA SI,JIEGUOMOV[SI],AL<INC SIMOV[SI],DL;INT 03HMOV AH,4CHINT 21HCODES ENDSEND STARTSTACK SEGMENT STACKDW 64 DUP()@STACK ENDSDATA SEGMENTORG 0500HDATA1 DB 10H,15H,0FHORG 0510HJIEGUO DBDATA ENDSCODE SEGMENTASSUME CS:CODE,DS:DATA START:MOV AX,DATAMOV DS,AX，LEA SI,DATA1LEA DI,JIEGUOMOV CX,0002HMOV AL,[SI]A1:INC SIADD AL,[SI]LOOP A1MOV BL,04HMUL BLMOV DL,64HMOV AH,00H:DIV DLMOV [DI],ALINC DIMOV AL,AHMOV AH,00HMOV DL,0AHDIV DLMOV [DI],ALINC DIMOV [DI],AHINT 03H]CODE ENDSEND STARTDATAS SEGMENTORG 0550HX DB 65H,67H,87H,19H,32H,54H,76H,98H ;低位在低地址,高位在高地址 Y DB 65H,67H,87H,19H,32H,54H,76H,98HDATAS ENDSSTACKS SEGMENTSTACKS ENDSCODES SEGMENT）ASSUME CS:CODES,DS:DATAS,SS:STACKSSTART:MOV AX,DATASMOV DS,AXMOV SI,00H ;变址存于SIMOV CX,04H ;循环次数为4CLC ;CF位清零BBB:MOV AX,0550H[SI] ;取被加数4位存于AX中ADC AX,0558H[SI] ;被加数4位减去减数4位MOV 0560H[SI],AX ;结果存入3060H开始的单元ADD SI,02H ;变址加2.DEC CXJNZ BBB ;DI不为零时继续循环MOV AH,4CHINT 21HCODES ENDSEND STARTSTACKS SEGMENTDW 64 ()STACKS ENDS}DATAS SEGMENTORG 0300HX DW 0608HY DW 0509HZ DW 0306HORG 0310HQ DWDATAS ENDSCODES SEGMENTASSUME CS:CODES,DS:DATAS,SS:STACKSSTART: MOV AX,DATAS-MOV DS,AXMOV AX,XSUB AX,Y ;X-Y结果存入AX中;AAS ;BCD码调整ADD AX,Z ;X-Y+Z结果存入AX;AAA ;BCD码调整MOV Q,AX ;Q存入3710单元MOV AH,4CHINT 21HCODES ENDSEND START/DATAS SEGMENTORG 0550HX DB 65H,67H,87H,19H,32H,54H,76H,98H ;低位在低地址,高位在高地址 Y DB 77H,39H,32H,48H,95H,28H,43H,56HDATAS ENDSSTACKS SEGMENTSTACKS ENDSCODES SEGMENTASSUME CS:CODES,DS:DATAS,SS:STACKSSTART:$MOV AX,DATASMOV DS,AXMOV SI,00H ;变址存于SIMOV CX,04H ;循环次数为4CLC ;CF位清零BBB:MOV AX,0550H[SI] ;取被加数4位存于AX中SBB AX,0558H[SI] ;被加数4位减去减数4位MOV 0560H[SI],AX ;结果存入0506H开始的单元 ADD SI,02H ;变址加2DEC CXJNZ BBB ;DI不为零时继续循环)MOV AH,4CHINT 21HCODES ENDSEND START实验三：DATAS SEGMENTORG 0500H;BUFSIZE DB 9 ;单元数据个数NUM DB 09h,12H,80H,78H,0C8H,00H,00H,0FEH,99H,34H-ORG 0510HRESULT DB 3 DUP(0,0,0)DATAS ENDSCODES SEGMENTASSUME CS:CODES,DS:DATASSTART:MOV AX,DATASMOV DS,AXMOV DI,OFFSET NUM ;送数据地址到DILEA BP,RESULTMOV SI,00H*MOV CX,[di] ;循环次数mov ch,00hinc diAGAIN:TEST BYTE PTR[DI],80HJZ COUNT ;ZF=1，此数据为非负数，转移 INC BYTE PTR[BP+1] ;ZF=0，此数据为负数JMP DONECOUNT:CMP BYTE PTR[DI],01HJNC NEXTINC BYTE PTR[BP+2] ;CF=1，此数据为0JMP DONE?NEXT: INC BYTE PTR[BP] ;CF=0，此数据为正数DONE: INC DILOOP AGAINMOV AH,4CHINT 21HCODES ENDSEND STARTSTACK SEGMENT STACK%DW 64 DUP()STACK ENDSDATA SEGMENTORG 0200HDAT0 DB 3 DUP()ORG 0204HDATE0 DWDATA ENDSCODE SEGMENTASSUME CS:CODE,DS:DATASTART: MOV AX,DATA-MOV DS,AXLEA SI,DAT0LEA DI,DATE0MOV AL,[SI]MOV AH,[SI+1]MOV BL,[SI+2]CMP AL,AHJZ A1CMP AL,BLJZ A2MOV [DI],SI{JMP A4A2:ADD SI,1MOV [DI],SIJMP A4A1:CMP AL,BLJZ A3ADD SI,2MOV [DI],SIJMP A4A3:MOV [DI],0FFFFHA4:MOV AH,4CH?INT 21HCODE ENDSEND STARTDATAS SEGMENTORG 3700HSCORE DB 64H,61H,5DH,55H,52H,51H,44H,45H,47H,48H,4DH,4FH,3CH,3FH,40H,41H,33H, 56H,59H,30HORG 3720HTOT DB 5 DUP(0,0,0,0,0)DATAS ENDS~CODES SEGMENTASSUME CS:CODES,DS:DATASSTART:MOV AX,DATASMOV DS,AXMOV CX,20 ;循环次数MOV SI,OFFSET SCORE ;分数首地址送SIBBB:MOV BP,OFFSET TOTMOV AL,BYTE PTR[SI]CLCCMP AL,60【JNB S70 ;CF=0,大于60跳转JMP DONES70: INC BPCMP AL,70JNB S80 ;CF=0,大于70跳转JMP DONES80: INC BPCMP AL,80JNB S90 ;CF=0,大于80跳转JMP DONES90: INC BP\CMP AL,90JNB S100 ;CF=0,大于90跳转JMP DONES100: INC BPDONE:INC BYTE PTR[BP] ;对应分数段人数加1INC SILOOP BBBMOV AH,4CHINT 21HCODES ENDSEND START】DATAS SEGMENTORG 0300HLEN DW 0020HNUM (定义20个数，由于太长，Worl里面显示成了几行,换行要在行首加DB) DB 12H,34H,34H,54H,65H,65H,53H,55H,09H,69H,0FCH,65H,0AAH,0FBH,98H,88H,0C3H,44H,12H,12H,45H,45H,76H,76H,32H,32H,76H,76H,0B7H,86H,21H,09H ORG 0400HMAX DBADDRESS DWDATAS ENDSCODES SEGMENT@ASSUME CS:CODES,DS:DATASSTART:MOV AX,DATASMOV DS,AXLEA SI,NUMMOV AL,00HMOV CX,LEN ;循环次数MOV ADDRESS,0302HCLCBBB: CMP AL,BYTE PTR[SI] ;讲AL中数据与(SI)中数据比较JNB NEXT(CLC ;CF=1,CF清零，记录数据地址MOV AL,BYTE PTR[SI]MOV ADDRESS,SINEXT:INC SILOOP BBBMOV MAX,AL ;将AL中最大数存入指定地址MOV AH,4CHINT 21HCODES ENDSEND START\STACK SEGMENT STACKDW 64 DUP()STACK ENDSDATA SEGMENTORG 0300HX DBORG 0305HY DBDATA ENDSCODE SEGMENT%ASSUME CS:CODE,DS:DATASTART:MOV AX,DATAMOV DS,AXLEA SI,XLEA DI,YMOV CX,0003HA1:MOV AL,[SI]INC SIAND AL,ALJNS A2MOV BYTE PTR[DI],0BH {INC DILOOP A1JMP EXITA2:JZ A3MOV BYTE PTR[DI],0AH INC DILOOP A1JMP EXITA3:MOV BYTE PTR[DI],00H INC DILOOP A1:EXIT:INT 03HCODE ENDSEND STARTSTACK SEGMENT STACKDW 64 DUP()STACK ENDSDATA SEGMENTORG 0200HX DB？ORG 0105HY DBDATA ENDSCODE SEGMENTASSUME CS:CODE,DS:DATA START:MOV AX,DATAMOV DS,AXLEA SI,XLEA DI,YMOV CX,0003HA1:MOV AL,[SI]《INC SICMP AL,0C8HJBE A2MOV BYTE PTR[DI],90HINC DILOOP A1JMP EXITA2:CMP AL,64HJNZ A3MOV BYTE PTR[DI],50HINC DI—LOOP A1JMP EXITA3:CMP AL,32HJAE A4MOV BYTE PTR[DI],00HINC DIA4:LOOP A1EXIT:INT 03HCODE ENDSEND START—实验四：1.修改实验程序：（1）STACK SEGMENT STACKDW 64 DUP()STACK ENDSCODE SEGMENTASSUME CS:CODE,SS:STACK START: MOV BX,03HA0: CMP BX,00HJZ A3…PUSH BX ;现场保护MOV CX,09H ;9个字符MOV BL,31HMOV AH,02HA1: MOV DL,BLINT 21HINC BLPUSH CXMOV CX,0FFFFHA2: LOOP A2【POP CXDEC CXJNZ A1MOV DL,0DHMOV AH,02HINT 21HMOV DL,0AHMOV AH,02HINT 21H；POP BXDEC BXJMP A0A3: MOV AH,4CHINT 21HCODE ENDSEND START（2）STACK SEGMENT STACKDW 64 DUP()]STACK ENDSCODE SEGMENTASSUME CS:CODE,SS:STACK START: MOV BX,04HA0: CMP BX,00HJZ A3PUSH BX ;现场保护MOV CX,001AH ;26个字母MOV BL,41HMOV AH,01H&A1: MOV AL,BLINT 10HINC BLDEC CXJNZ A1MOV CX,09H ;9个字符MOV BL,31HMOV AH,01HA2: MOV AL,BLINT 10H￥INC BLDEC CXJNZ A2MOV DL,0DH ;回车换行MOV AH,02HINT 21HMOV DL,0AHMOV AH,02HINT 21H[POP BXDEC BXJMP A0A3: INT 03HCODE ENDSEND START（3）STACK SEGMENT STACKDW 64 DUP()STACK ENDS^DATA SEGMENTDATE1 DB 'HOW ARE YOU TODAY' DATA ENDSCODE SEGMENTASSUME CS:CODE,SS:STACK START:MOV AX,DATAMOV DS,AXA1: MOV AH,06HLEA BX,DATE1INT 10H\INT 03HCODE ENDSEND START（4）STACK SEGMENT STACKDW 64 DUP()STACK ENDSDATA SEGMENTDATE1 DB 'GOOD AFTERNOON' DATA ENDS—CODE SEGMENTASSUME CS:CODE,SS:STACK START:MOV AX,DATAMOV DS,AXMOV CX,000EHLEA SI,DATE1A1: MOV DL,[SI]MOV AH,02HINT 21H/CALL DELAYINC SILOOP A1MOV AH,4CHINT 21HDELAY:PUSH CXPUSH AXMOV CX,2000HA2:MOV AX,0FFFFHA3:DEC AXJNE A3@LOOP A2POP AXPOP CXRETCODE ENDSEND START2.编程练习(STACK SEGMENT STACKDW 64 DUP()STACK ENDSCODE SEGMENTASSUME CS:CODE,SS:STACKSTART:MOV AX,5678H+6666H-1234H （注：其余5题把该算式改为相应的即可） MOV BX,AXMOV CL,4HMOV SI,0004HA0: ROL BX,CLMOV AX,BX[AND AX,000FHCMP AL,0AHJGE A2ADD AL,30HJMP A3A2:ADD AL,37HA3:MOV AH,02HMOV DL,ALINT 21HDEC SIJNZ A0(MOV AH,4CHINT 21HCODE ENDSEND START实验五:STACK SEGMENT STACKDW 64 DUP()STACK ENDSCODE SEGMENT》ASSUME CS:CODESTART:MOV AX,0000H MOV DS,AXMOV AX,OFFSET IRQ6 MOV SI,0038HMOV [SI],AXMOV AX,CSMOV SI,003AHMOV [SI],AXMOV AL,11H#OUT 20H,ALMOV AL,08HOUT 21H,ALMOV AL,04HOUT 21H,ALMOV AL,01HOUT 21H,ALMOV AL,0BFHOUT 21H,ALMOV CX,000FHA1: CMP CX,0000H*JNZ A2MOV AL,80HOUT 21H,ALA2:STIJMP A1IRQ6:MOV AX,0136H INT 10HMOV AX,0120HINT 10HDEC CXMOV AL,20H\OUT 20H,ALIRETCODE ENDSEND STARTSTACK SEGMENT STACK DW 64 DUP () STACK ENDSDATA SEGMENTTABLE DB 39H,41H,38H,42H,37H,43H 》DATA ENDSCODE SEGMENTASSUME CS:CODE,DS:DATA START:MOV AX,DATAMOV DS,AXPUSH DSMOV AX,0000HMOV DS,AXMOV AX,OFFSET IRQ6MOV SI,0038HMOV [SI],AX"MOV AX,CSMOV SI,003AHMOV [SI],AXPOP DSMOV AL,11HOUT 20H,ALMOV AL,08HOUT 21H,ALMOV AL,04HOUT 21H,ALMOV AL,01H！OUT 21H,ALMOV AL,0BFHOUT 21H,ALMOV CX,000CHA1:CMP CX,0000HJNZ A2MOV AL,40HOUT 21H,ALA2:STIJMP A1)IRQ6:MOV AH,06HMOV BX ,OFFSET TABLEINT 10HMOV AX,0120HINT 10HDEC CXMOV AL,20HOUT 20H,ALIRETCODE ENDSEND START`5,3STACK SEGMENT STACKDW 64 DUP ()STACK ENDSDATA SEGMENTTABLE DB '7ABCDEFGHIJKLMNOPQRSTUVWXYZ $' DATA ENDSCODE SEGMENTASSUME CS:CODE,DS:DATASTART:MOV AX,DATA？MOV DS,AXPUSH DSMOV AX,0000HMOV DS,AXMOV AX,OFFSET IRQ7MOV SI,003CHMOV [SI],AXMOV AX,CSMOV SI,003EHMOV [SI],AXPOP DS…MOV AL,11HOUT 20H,ALMOV AL,08HOUT 21H,ALMOV AL,04HOUT 21H,ALMOV AL,01HOUT 21H,ALMOV AL,7FHOUT 21H,AL!MOV CX,0002HA1: CMP CX,0000HJNZ A2MOV AL,40HOUT 21H,ALA2:STIJMP A1IRQ7:MOV AH,09HMOV DX ,OFFSET TABLE INT 21HMOV AX,0120H，INT 10HDEC CXMOV AL,20HOUT 20H,ALIRETCODE ENDSEND STARTSTACK SEGMENT STACKDW 64 DUP ()·STACK ENDSDATA SEGMENTTABLE DB '20XXNKL $' DATA ENDSCODE SEGMENTASSUME CS:CODE,DS:DATA START:MOV AX,DATAMOV DS,AXPUSH DSMOV AX,0000HMOV DS,AX·MOV AX,OFFSET IRQ6 MOV SI,0038HMOV [SI],AXMOV AX,CSMOV SI,003AHMOV [SI],AXPOP DSMOV AL,11HOUT 20H,ALMOV AL,08HOUT 21H,AL[MOV AL,04HOUT 21H,ALMOV AL,01HOUT 21H,ALMOV AL,0BFHOUT 21H,ALMOV CX,0010HA1: CMP CX,0000HJNZ A2MOV AL,40H、OUT 21H,ALA2:STIJMP A1IRQ6:MOV AH,09HMOV DX ,OFFSET TABLEINT 21HMOV AX,0120HINT 10HDEC CXMOV AL,20HOUT 20H,AL（IRETCODE ENDSEND START实验6STACK SEGMENTDW 32 DUP()STACK ENDSDATA SEGMENTVA1 DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH,77H,7FH,39H,3FH,79H,71H~DATA ENDSCODE SEGMENTASSUME CS:CODE,DS:DATASTART:MOV AX,DATAMOV DS,AXMOV DX,0606HMOV AL,80HOUT DX,ALA1:LEA SI,VA1MOV CX,0CHA2:MOV DX,0602H》MOV AL,[SI]OUT DX,ALCALL DALLYINC SILOOP A2JMP A1DALLY:PUSH CXMOV CX,0050HA3:MOV AX,0FFFHA4:DEC AXJNZ A4|LOOP A3POP CXRETCODE ENDSEND STARTSTACK SEGMENT STACKDW 32 DUP()STACK ENDSDATA SEGMENT<LED DB 80H,40H,20H,10H,08H,04H,02H,01H DATA ENDSCODE SEGMENTASSUME CS:CODE,DS:DATA,SS:STACK START: MOV AX,DATAMOV DS,AXMOV DX,0606HMOV AL,82HOUT DX,ALA1:MOV DX,0602HIN AL,DX·CMP AL,20HJZ A2CMP AL,40HJZ A3MOV DX,0600H MOV AL,00HOUT DX,ALJMP A1A2:MOV DX,0600H MOV AL,0FFHOUT DX,AL%JMP A1A3:MOV CX,08H LEA SI,LEDA4:MOV AL,[SI] MOV DX,0600H OUT DX,ALCALL DALLYNIC SIMOV DX,0602HIN AL,DXCMP AL,40H…JNZ A1LOOP A4JMP A3DALLY:PUSH CX PUSH AXMOV CX,0050HAA3:MOV AX,0FFFH AA4:DEC AXJNZ AA4LOOP AA3POP AX`POP CXRETCODE ENDSEND STARTSTACK SEGMENT DW 32 DUP() STACK ENDSDATA SEGMENTVA1 DB 9EH,7AH,9CH,3EH,0EEH,0F6H,0FEH,0E6H,0BEH,0B6H,66H,0F2H DATA ENDS—CODE SEGMENTASSUME CS:CODE,DS:DATASTART:MOV AX,DATAMOV DS,AXMOV DX,0606HMOV AL,80HOUT DX,ALA1:LEA SI,VA1MOV CX,0CHA2:MOV DX,0602HMOV AL,[SI]~OUT DX,ALCALL DALLYINC SILOOP A2JMP A1DALLY:PUSH CXMOV CX,0050HA3:MOV AX,0FFFHA4:DEC AXJNZ A4LOOP A3*POP CXRETCODE ENDSEND STARTSTACK SEGMENT STACKDW 32 DUP()STACK ENDSDATA SEGMENTLED DB 80H,40H,20H,10H,08H,04H,02H,01H^DATA ENDSCODE SEGMENTASSUME CS:CODE,DS:DATA,SS:STACKSTART: MOV AX,DATAMOV DS,AXMOV DX,0606H MOV AL,82HOUT DX,ALA1:MOV DX,0602H IN AL,DXCMP AL,04H！JZ A2CMP AL,08HJZ A3MOV DX,0600H MOV AL,0FHOUT DX,ALJMP A1A2:MOV DX,0600H MOV AL,0F0HOUT DX,ALJMP A1*A3:MOV CX,08H LEA SI,LEDA4:MOV AL,[SI] MOV DX,0600H OUT DX,ALCALL DALLYNIC SIMOV DX,0602HIN AL,DXCMP AL,08HJNZ A1-LOOP A4JMP A3DALLY:PUSH CX PUSH AXMOV CX,0050HAA3:MOV AX,0FFFH AA4:DEC AXJNZ AA4LOOP AA3POP AXPOP CX（RETCODE ENDSEND STARTSTACK SEGMENTDW 32 DUP()STACK ENDSDATA SEGMENTVA1 DB 8EH ,9EH,7AH,9CH,3EH,0EEH,0F6H,0FEH,0E6H,0BEH,0B6H,66H,0F2H,0DAH,60H ,0FCHDATA ENDSCODE SEGMENT。