ASM.rar_asm 程序

;----------------------软件实验一 清零程序--------------------------- CODE SEGMENT ASSUME CS:CODE,DS:CODE,ES:CODE ORG 3000H S1: MOV BX,4000H MOV AX,0000H MOV CX,0080H L1: MOV [BX],AX INC BX INC BX LOOP L1 JMP $ CODE ENDS END S1 ;---------------------软件实验二 拆字程序----------------------------- CODE SEGMENT ASSUME CS:CODE,DS:CODE,ES:CODE ORG 3020H S2: MOV BX,4000H MOV AL,[BX] MOV AH,AL MOV CL,4 SHR AH,CL INC BX MOV [BX],AH AND AL,0FH INC BX MOV [BX],AL JMP $ CODE ENDS END S2 ;--------------------------软件实验四 数据区移动--------------------------- CODE SEGMENT ASSUME CS:CODE,DS:CODE,ES:CODE ORG 3060H S4: MOV CX,0010H MOV SI,4100H MOV DI,4200H CMP SI,DI JA A42 ADD SI,CX ADD DI,CX A41: DEC SI DEC DI MOV AL,[SI] MOV [DI],AL LOOP A41 JMP $ A42: MOV AL,[SI] MOV [DI],AL INC SI INC DI LOOP A42 JMP $ CODE ENDS END S4 ;---------------------------软件实验五 数据排序实验-------------------- CODE SEGMENT ASSUME CS:CODE,DS:CODE,ES:CODE ORG 3090H S5: MOV CX,000AH A53: MOV BX,4000H PUSH CX A52: MOV AX,[BX] CMP AL,AH JC A51 A54: INC BX LOOP A52 POP CX LOOP A53 JMP $ A51: XCHG AL,AH MOV [BX],AX JMP A54 CODE ENDS END S5 ;-------------------------软件实验六 找"零"个数------------------- CODE SEGMENT ASSUME CS:CODE,DS:CODE,ES:CODE ORG 30B0H S6: MOV BX,4100H ;COUNT MOV AX,0000 MOV [BX],AX MOV CX,0010H MOV DI,4000H CLD A62: SCASB JZ A61 A63: LOOP A62 JMP $ A61: INC BYTE PTR [BX] JMP A63 CODE ENDS END S6