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
