微型计算机控制技术答案

ASSUME CS:CODE,DS:CODE,ES:CODE ORG 3000H

start0: MOV BX,4000H MOV AX,0000H MOV CX,007FH

L1: MOV [BX],AX INC BX INC BX LOOP L1 JMP $

;---------------------实验二 拆字程序----------------------------- ORG 3020H 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 $

;----------------------------实验三 拼字程序------------------------------ ORG 3040H MOV BX,4000H MOV AX,[BX] AND AL,0FH MOV CL,4 SHL AL,CL AND AH,0FH OR AL,AH ADD BX,2 MOV [BX],AL JMP $

;--------------------------实验四 数据区移动--------------------------- ORG 3060H 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 $

;---------------------------实验五 数据排序实验-------------------- ORG 3090H 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

;-------------------------实验六 找"零"个数------------------- ORG 30B0H

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

;------------------------实验七 32位二进制乘法------------------- ORG 30D0H JMP START N1 DW ? N2 DW ? N3 DW ? N4 DW ? M1 DW 0 M2 DW 0 M3 DW 0 M4 DW 0

START: MOV AX,N2 MUL N4 MOV M4,AX MOV M3,DX MOV AX,N4 MUL N1 ADD M3,AX ADC M2,DX MOV AX,N3 MUL N2 ADD M3,AX ADC M2,DX ADC M1,0 MOV AX,N3 MUL N1 ADD M2,AX ADC M1,DX JMP $

;------------------------实验八 多分支程序设计---------------------- ORG 3130H JMP A81

TAB DW LED0,LED1,LED2,LED3,LED4,LED5,LED6,LED7 DW LED8,LED9,LEDA,LEDB,LEDC,LEDD,LEDE,LEDF A81: MOV BX,OFFSET TAB MOV SI,4000H MOV AL,[SI] AND AL,0FH SHL AL,1

MOV AH,00H ADD BX,AX JMP [BX]

LED0: MOV AL,0C0H JMP LEDX

LED1: MOV AL,0F9H JMP LEDX

LED2: MOV AL,0A4H JMP LEDX

LED3: MOV AL,0B0H JMP LEDX

LED4: MOV AL,99H JMP LEDX

LED5: MOV AL,92H JMP LEDX

LED6: MOV AL,82H JMP LEDX

LED7: MOV AL,0F8H JMP LEDX

LED8: MOV AL,80H JMP LEDX

LED9: MOV AL,90H JMP LEDX

LEDA: MOV AL,88H JMP LEDX LEDB:

MOV AL,83H JMP LEDX

LEDC: MOV AL,0C6H JMP LEDX

LEDD: MOV AL,0A1H JMP LEDX

LEDE: MOV AL,86H JMP LEDX

LEDF: MOV AL,8EH JMP LEDX

LEDX: MOV DX,0FFDCH OUT DX,AL MOV CL,20H MOV DX,0FFDDH LEDX1: MOV AL,CL