華電保定微機原理匯編實驗

1、實驗一 、數據塊傳送1. 將數據段中2000H單元開始存放的10個數（8位數）傳送到3000H開始的10個字節(jié)中。源程序：DATAS SEGMENT ;此處輸入數據段代碼 ORG 2000H DATA1 DB 1,2,3,4,5,6,7,8,9,10 ORG 3000H DATA2 DB 10 DUP(0)DATAS ENDSSTACKS SEGMENT ;此處輸入堆棧段代碼STACKS ENDSCODES SEGMENT ASSUME CS:CODES,DS:DATAS,SS:STACKSSTART: MOV AX,DATAS MOV DS,AX ;此處輸入代碼段代碼 MOV SI,2000

2、H MOV DI,3000H MOV CX,10NEXT:MOV AL,SI MOV DI,AL INC SI INC DI DEC CX JNZ NEXT MOV AH,4CH INT 21HCODES ENDS END START運行結果：2. 將數據段中2000H單元開始存放的10個數（16位數）傳送到3000H開始的10個字中。源程序：DATAS SEGMENT ;此處輸入數據段代碼 ORG 2000H DATA1 DW 1,2,3,4,5,6,7,8,9,10 ORG 3000H DATA2 DW 10 DUP(0) DATAS ENDSSTACKS SEGMENT ;此處輸入堆棧段

3、代碼STACKS ENDSCODES SEGMENT ASSUME CS:CODES,DS:DATAS,SS:STACKSSTART: MOV AX,DATAS MOV DS,AX ;此處輸入代碼段代碼 MOV SI,2000H MOV DI,3000H MOV CX,10NEXT:MOV AX,SI MOV DI,AX ADD SI,2 ADD DI,2 DEC CX JNZ NEXT MOV AH,4CH INT 21HCODES ENDS END START運行后：3. 將數據DATA1中的10個字節(jié)數據傳送到數據段DATA2中源數據：DATAS SEGMENT ;此處輸入數據段代碼 D

4、ATA1 DB 1,2,3,4,5,6,7,8,9,10 ORG 1000H DATA2 DB 10 DUP(0)DATAS ENDSSTACKS SEGMENT ;此處輸入堆棧段代碼STACKS ENDSCODES SEGMENT ASSUME CS:CODES,DS:DATAS,SS:STACKSSTART: MOV AX,DATAS MOV DS,AX ;此處輸入代碼段代碼 LEA SI,DATA1 LEA DI,DATA2 MOV CX,10NEXT:MOV AL,SI MOV DI,AL INC SI INC DI DEC CX JNZ NEXT MOV AH,4CH INT 21H

5、CODES ENDS END START初始值：運行后：4. 將數據段中2000H開始的20個數據傳送到2010H開始的20個單元中。源程序：DATAS SEGMENT ;此處輸入數據段代碼 ORG 2000H DATA1 DB 5 DUP(1,2,3,4,5,6) DATAS ENDSSTACKS SEGMENT ;此處輸入堆棧段代碼STACKS ENDSCODES SEGMENT ASSUME CS:CODES,DS:DATAS,SS:STACKSSTART: MOV AX,DATAS MOV DS,AX ;此處輸入代碼段代碼 MOV SI,2000H MOV DI,2100H MOV C

6、X,20NEXT1:MOV AL,SI MOV DI,AL INC SI INC DI DEC CX JNZ NEXT1 MOV SI,2100H MOV DI,2010H MOV CX,20NEXT2:MOV AL,SI MOV DI,AL INC SI INC DI DEC CX JNZ NEXT2 MOV AH,4CH INT 21HCODES ENDS END START運行結果：實驗二 查表實驗目的：熟悉實驗環(huán)境；熟練掌握查表程序1. 已知015的平方值表，查表求X的平方值，送到Y單元，用兩種方法DATAS SEGMENT ;此處輸入數據段代碼 TABLE DB 0, 1,4,9,1

7、6,25,36,49,64,81,100,121,144,169,196,255 X DB 3 Y DB 0DATAS ENDSSTACKS SEGMENT ;此處輸入堆棧段代碼STACKS ENDSCODES SEGMENT ASSUME CS:CODES,DS:DATAS,SS:STACKSSTART: MOV AX,DATAS MOV DS,AX ;此處輸入代碼段代碼 LEA BX,TABLE MOV AL,X MOV AH,0 ADD BX,AX MOV AL,BX MOV Y,AL MOV AH,4CH INT 21HCODES ENDSEND START運行結果：方法二：源程序：D

8、ATAS SEGMENT ;此處輸入數據段代碼 TABLE DB 0,1,4,9,16,25,36,49,64,81,100,121,144,169,196,255 X DB 3 Y DB 0DATAS ENDSSTACKS SEGMENT ;此處輸入堆棧段代碼STACKS ENDSCODES SEGMENT ASSUME CS:CODES,DS:DATAS,SS:STACKSSTART: MOV AX,DATAS MOV DS,AX ;此處輸入代碼段代碼 LEA BX,TABLE MOV AL,X XLAT MOV Y,AL MOV AH,4CH INT 21HCODES ENDS END

9、START運行結果2. 2已知0255的平方值表，查表求X的平方值，送到Y單元源程序DATAS SEGMENT ;此處輸入數據段代碼 TABLE DW 0,1,4,9,16,25,250 DUP(0) X DW 3 Y DW ?DATAS ENDSSTACKS SEGMENT ;此處輸入堆棧段代碼STACKS ENDSCODES SEGMENT ASSUME CS:CODES,DS:DATAS,SS:STACKSSTART: MOV AX,DATAS MOV DS,AX ;此處輸入代碼段代碼 LEA SI,TABLE MOV AX,X ADD AX,AX ADD BX,AX MOV AX,BX

10、 MOV Y,AX MOV AH,4CH INT 21HCODES ENDS END START運行結果實驗三、計算1. 計算1234F000H+98765000H的和源程序：DATAS SEGMENT ;此處輸入數據段代碼 DATA1 DD 1234F000H DATA2 DD 98765000HDATAS ENDSSTACKS SEGMENT ;此處輸入堆棧段代碼STACKS ENDSCODES SEGMENT ASSUME CS:CODES,DS:DATAS,SS:STACKSSTART: MOV AX,DATAS MOV DS,AX ;此處輸入代碼段代碼 LEA SI,DATA1 LE

11、A DI,DATA2 MOV AX,SI ADD AX,DI MOV SI,AX MOV AX,SI+2 ADC AX,DI+2 MOV SI+2,AX MOV AH,4CH INT 21HCODES ENDS END START運行結果2. 計算8字節(jié)數據1122334455667788H與 99AABBCCDDEEFF00H的和源程序：DATAS SEGMENT ;此處輸入數據段代碼 DATA1 DQ 1122334455667788H DATA2 DQ 99AABBCCDDEEFF00HDATAS ENDSSTACKS SEGMENT ;此處輸入堆棧段代碼STACKS ENDSCODES

12、 SEGMENT ASSUME CS:CODES,DS:DATAS,SS:STACKSSTART: MOV AX,DATAS MOV DS,AX ;此處輸入代碼段代碼 LEA SI,DATA1 LEA DI,DATA2 MOV CX,4 CLCNEXT:MOV AX,SI ADC AX,DI MOV SI,AX ADD SI,2 ADD DI,2 DEC CX JNZ NEXT MOV AH,4CH INT 21HCODES ENDS END START運行結果3. 計算8字節(jié)的BCD碼十進制數1122334455667788H與9988776655443322H的和源程序：DATAS SEG

13、MENT ;此處輸入數據段代碼 DATA1 DB 88H,77H,66H,55H,44H,33H,22H,11H DATA2 DB 22H,33H,44H,55H,66H,77H,88H,99HDATAS ENDSSTACKS SEGMENT ;此處輸入堆棧段代碼STACKS ENDSCODES SEGMENT ASSUME CS:CODES,DS:DATAS,SS:STACKSSTART: MOV AX,DATAS MOV DS,AX ;此處輸入代碼段代碼 LEA SI,DATA1 LEA DI,DATA2 CLC MOV CX,8NEXT:MOV AL,SI ADC AL,DI DAA M

14、OV SI,AL INC SI INC DI DEC CX JNZ NEXT MOV AH,4CH INT 21HCODES ENDS END START運行結果4. 計算10個字節(jié)數據的和（數據自己定義）源程序：DATAS SEGMENT ;此處輸入數據段代碼 DATA1 DB 1,2,3,4,5,6,7,8,9,10 SUM DB 0 DATAS ENDSSTACKS SEGMENT ;此處輸入堆棧段代碼STACKS ENDSCODES SEGMENT ASSUME CS:CODES,DS:DATAS,SS:STACKSSTART: MOV AX,DATAS MOV DS,AX ;此處輸入

15、代碼段代碼 LEA SI,DATA1 LEA DI,SUM MOV CX,10 CLCNEXT:MOV AL,SI ADC SUM,AL ADD SI,1 DEC CX JNZ NEXT MOV AH,4CH INT 21HCODES ENDS END START運行結果5. 計算10個字數據的和（數據自己定義）源程序：DATAS SEGMENT ;此處輸入數據段代碼 DATA1 DW 1,2,3,4,5,6,7,8,9,10 SUM DW 0 DATAS ENDSSTACKS SEGMENT ;此處輸入堆棧段代碼STACKS ENDSCODES SEGMENT ASSUME CS:CODES

16、,DS:DATAS,SS:STACKSSTART: MOV AX,DATAS MOV DS,AX ;此處輸入代碼段代碼 LEA SI,DATA1 LEA DI,SUM MOV CX,10 CLCNEXT:MOV AX,SI ADC SUM,AX ADD SI,2 DEC CX JNZ NEXT MOV AH,4CH INT 21HCODES ENDS END START運行結果實驗四、計算表達式的值1. 計算表達式的值，已知X=10，Y=5。DATAS SEGMENT ;此處輸入數據段代碼 X DB 10 Y DB 5 Z DB ?DATAS ENDSSTACKS SEGMENT ;此處輸入堆

17、棧段代碼STACKS ENDSCODES SEGMENT ASSUME CS:CODES,DS:DATAS,SS:STACKSSTART: MOV AX,DATAS MOV DS,AX ;此處輸入代碼段代碼 MOV AL,X SUB AL,Y MOV BL,7 MUL BL CBW MOV BL,Y ADD BL,2 IDIV BL MOV Z,AL MOV AH,4CH INT 21HCODES ENDS END START實驗五、找最大、最小數1. 找出2040H單元和2041H單元的大數，送2042H單元（數據自己定義）DATAS SEGMENT ;此處輸入數據段代碼 ORG 2040H

18、 DATA1 DB 11 DATA2 DB 12 DATA3 DB ?DATAS ENDSSTACKS SEGMENT ;此處輸入堆棧段代碼STACKS ENDSCODES SEGMENT ASSUME CS:CODES,DS:DATAS,SS:STACKSSTART: MOV AX,DATAS MOV DS,AX ;此處輸入代碼段代碼 MOV AL,DATA1 CMP AL,DATA2 JG GREAT MOV AL,DATA2GREAT:MOV DATA3,AL MOV AH,4CH INT 21HCODES ENDSEND START2. 找出10個數（8位數）里的最大數（數據自己定義）

19、DATAS SEGMENT ;此處輸入數據段代碼 DATA DB 1,2,3,6,5,4,10,9,8,7 MAX DB ?DATAS ENDSSTACKS SEGMENT ;此處輸入堆棧段代碼STACKS ENDSCODES SEGMENT ASSUME CS:CODES,DS:DATAS,SS:STACKSSTART: MOV AX,DATAS MOV DS,AX ;此處輸入代碼段代碼 LEA BX,DATA MOV CX,9 MOV AL,BXNEXT:INC BX CMP AL,BX JG GREAT MOV AL,BXGREAT:MOV MAX,AL DEC CX JNZ NEXT

20、MOV AH,4CH INT 21HCODES ENDS END START3. 找出10個數（8位數）里的最小數（數據自己定義）DATAS SEGMENT ;此處輸入數據段代碼 DATA DB 3,2,1,6,5,4,10,9,8,7 MIN DB ?DATAS ENDSSTACKS SEGMENT ;此處輸入堆棧段代碼STACKS ENDSCODES SEGMENT ASSUME CS:CODES,DS:DATAS,SS:STACKSSTART: MOV AX,DATAS MOV DS,AX ;此處輸入代碼段代碼 LEA BX,DATA MOV CX,9 MOV AL,BXNEXT:INC

21、 BX CMP AL,BX JL LESS MOV AL,BXLESS:MOV MIN,AL DEC CX JNZ NEXT MOV AH,4CH INT 21HCODES ENDS END START4. 找出10個數（16位數）里的最大數（數據自己定義）DATAS SEGMENT ;此處輸入數據段代碼 DATA DW 3,2,1,6,5,4,10,9,8,7 MAX DW ?DATAS ENDSSTACKS SEGMENT ;此處輸入堆棧段代碼STACKS ENDSCODES SEGMENT ASSUME CS:CODES,DS:DATAS,SS:STACKSSTART: MOV AX,D

22、ATAS MOV DS,AX ;此處輸入代碼段代碼 LEA BX,DATA MOV CX,9 MOV AX,BXNEXT:ADD BX,2 CMP AX,BX JG GREAT MOV AX,BXGREAT:MOV MAX,AX DEC CX JNZ NEXT MOV AH,4CH INT 21HCODES ENDSEND START5. 找出10個數（16位數）里的最小數（數據自己定義）DATAS SEGMENT ;此處輸入數據段代碼 DATA DW 3,2,1,6,5,4,10,9,8,7 MIN DW ?DATAS ENDSSTACKS SEGMENT ;此處輸入堆棧段代碼STACKS

23、ENDSCODES SEGMENT ASSUME CS:CODES,DS:DATAS,SS:STACKSSTART: MOV AX,DATAS MOV DS,AX ;此處輸入代碼段代碼 LEA BX,DATA MOV CX,9 MOV AX,BXNEXT:ADD BX,2 CMP AX,BX JL LESS MOV AX,BXLESS:MOV MIN,AX DEC CX JNZ NEXT MOV AH,4CH INT 21HCODES ENDSEND START實驗六、統(tǒng)計正數、負數個數1. 找出10個數（8位數）里的正數個數（數據自己定義）源程序：DATAS SEGMENT ;此處輸入數據段

24、代碼 TABLE DB -1,-2,-3,-4,-5,1,2,3,4,5 NUM DB ?DATAS ENDSSTACKS SEGMENT ;此處輸入堆棧段代碼STACKS ENDSCODES SEGMENT ASSUME CS:CODES,DS:DATAS,SS:STACKSSTART: MOV AX,DATAS MOV DS,AX ;此處輸入代碼段代碼 LEA SI,TABLE MOV NUM,0 MOV CX,10NEXT2:MOV AL,SI TEST AL,80H JNZ NEXT1 INC NUMNEXT1:INC SI DEC CX JNZ NEXT2 MOV AH,4CH IN

25、T 21HCODES ENDS END START運行結果：2. 找出10個數（8位數）里的負數個數（數據自己定義）源程序：DATAS SEGMENT ;此處輸入數據段代碼 TABLE DB -1,-2,-3,-4,-5,1,2,3,4,5 NUM DB ?DATAS ENDSSTACKS SEGMENT ;此處輸入堆棧段代碼STACKS ENDSCODES SEGMENT ASSUME CS:CODES,DS:DATAS,SS:STACKSSTART: MOV AX,DATAS MOV DS,AX ;此處輸入代碼段代碼 LEA SI,TABLE MOV NUM,0 MOV CX,10NEXT

26、2:MOV AL,SI TEST AL,80H JZ NEXT1 INC NUMNEXT1:INC SI DEC CX JNZ NEXT2 MOV AH,4CH INT 21HCODES ENDS END START運行結果：3. 找出10個數（16位數）里的正數個數（數據自己定義）源程序：DATAS SEGMENT ;此處輸入數據段代碼 TABLE DW -1,-2,-3,-4,-5,1,2,3,4,5NUM DB ?DATAS ENDSSTACKS SEGMENT ;此處輸入堆棧段代碼STACKS ENDSCODES SEGMENT ASSUME CS:CODES,DS:DATAS,SS:

27、STACKSSTART: MOV AX,DATAS MOV DS,AX ;此處輸入代碼段代碼 LEA SI,TABLE MOV NUM,0 MOV CX,10NEXT2:MOV AX,SI TEST AX,8000H JNZ NEXT1 INC NUMNEXT1:ADD SI,2 DEC CX JNZ NEXT2 MOV AH,4CH INT 21HCODES ENDS END START運行結果：4. 找出10個數（16位數）里的負數個數（數據自己定義）源程序：DATAS SEGMENT ;此處輸入數據段代碼 TABLE DW -1,-2,-3,-4,-5,1,2,3,4,5NUM DB ?

28、DATAS ENDSSTACKS SEGMENT ;此處輸入堆棧段代碼STACKS ENDSCODES SEGMENT ASSUME CS:CODES,DS:DATAS,SS:STACKSSTART: MOV AX,DATAS MOV DS,AX ;此處輸入代碼段代碼 LEA SI,TABLE MOV NUM,0 MOV CX,10NEXT2:MOV AX,SI TEST AX,8000H JZ NEXT1 INC NUMNEXT1:ADD SI,2 DEC CX JNZ NEXT2 MOV AH,4CH INT 21HCODES ENDS END START運行結果：實驗七、數據塊比較1.

29、比較數據段DS與數據段ES中的10個字節(jié)的數據是否一致？源程序：DATAS SEGMENT ;此處輸入數據段代碼 TABLE1 DB 1,2,3,4,5,6,7,8,9,10 N DB ? DATAS ENDSDATAB SEGMENT TABLE2 DB 1,2,3,4,5,6,8,7,9,10DATAB ENDSSTACKS SEGMENT ;此處輸入堆棧段代碼STACKS ENDSCODES SEGMENT ASSUME CS:CODES,DS:DATAS,SS:STACKSSTART: MOV AX,DATAS MOV DS,AX MOV BX,DATAB MOV ES,BX ;此處輸

30、入代碼段代碼 LEA SI,TABLE1 LEA DI,TABLE2 CLD MOV CX,10 MOV N,0NEXT2:CMPSB JNZ NEXT1 DEC CX JNZ NEXT2 JMP EXITNEXT1:INC NEXIT:MOV AH,4CH INT 21HCODES ENDS END START運行結果：(相同N=0,不同N=1)2. 比較數據段DS與數據段ES中的10個字的數據是否一致？源程序：DATAS SEGMENT ;此處輸入數據段代碼 TABLE1 DW 1,2,3,4,5,6,7,8,9,10 N DB ? DATAS ENDSDATAB SEGMENT TABL

31、E2 DW 1,2,3,4,5,6,8,7,9,10DATAB ENDSSTACKS SEGMENT ;此處輸入堆棧段代碼STACKS ENDSCODES SEGMENT ASSUME CS:CODES,DS:DATAS,SS:STACKSSTART: MOV AX,DATAS MOV DS,AX MOV BX,DATAB MOV ES,BX ;此處輸入代碼段代碼 LEA SI,TABLE1 LEA DI,TABLE2 MOV CX,10 MOV N,0 CLDNEXT2:CMPSW JNZ NEXT1 DEC CX JNZ NEXT2 JMP EXITNEXT1:INC NEXIT:MOV

32、AH,4CH INT 21HCODES ENDS END START運行結果：(相同N=0,不同N=1)實驗八、邏輯運算與移位1. 將數據段中4000H單元的內容拆開，高位送4001H低位，低位送4002H低位，4001H、4002H的高位清零，一般用于把數據送顯示緩沖區(qū)時使用。源程序：DATAS SEGMENT ;此處輸入數據段代碼 ORG 4000H DATA1 DB 9AH DATA2 DB ? DATA3 DB ?DATAS ENDSSTACKS SEGMENT ;此處輸入堆棧段代碼STACKS ENDSCODES SEGMENT ASSUME CS:CODES,DS:DATAS,SS

33、:STACKSSTART: MOV AX,DATAS MOV DS,AX ;此處輸入代碼段代碼 MOV AL,DATA1 AND AL,0F0H MOV CL,4 SHR AL,CL MOV DATA2,AL MOV AL,DATA1 AND AL,0FH MOV DATA3,AL MOV AH,4CH INT 21HCODES ENDS END START運行結果：2. 將4000H、4001H單元的低位送4002H單元的高、低位，一般用于將緩沖區(qū)的數據取出拼成一個字節(jié)。源程序：DATAS SEGMENT ;此處輸入數據段代碼 ORG 4000H DATA1 DB 9AH DATA2 DB

34、7BH DATA3 DB ?DATAS ENDSSTACKS SEGMENT ;此處輸入堆棧段代碼STACKS ENDSCODES SEGMENT ASSUME CS:CODES,DS:DATAS,SS:STACKSSTART: MOV AX,DATAS MOV DS,AX ;此處輸入代碼段代碼 MOV AL,DATA1 AND AL,0FH MOV CL,4 SHL AL,CL MOV DATA3,AL MOV AL,DATA2 AND AL,0FH ADD DATA3,AL MOV AH,4CH INT 21HCODES ENDS END START運行結果：實驗九、輸入輸出1. 在顯示器

35、上輸出字符串HELLO！DATAS SEGMENT ;此處輸入數據段代碼 STRING DB "HELLO!$" DATAS ENDSSTACKS SEGMENT ;此處輸入堆棧段代碼STACKS ENDSCODES SEGMENT ASSUME CS:CODES,DS:DATAS,SS:STACKSSTART: MOV AX,DATAS MOV DS,AX ;此處輸入代碼段代碼 LEA DX,STRING MOV AH,9 INT 21H MOV AH,4CH INT 21HCODES ENDS END START2. .從鍵盤輸入一組字符串，存入到BUFFER數據區(qū)（自

36、己定義）中。DATAS SEGMENT ;此處輸入數據段代碼 BUFFER DB 100,0,100 DUP(?) DATAS ENDSSTACKS SEGMENT ;此處輸入堆棧段代碼STACKS ENDSCODES SEGMENT ASSUME CS:CODES,DS:DATAS,SS:STACKSSTART: MOV AX,DATAS MOV DS,AX ;此處輸入代碼段代碼 LEA DX,BUFFER MOV AH,10 INT 21H MOV CL,BUFFER+1 XOR CH,CH ADD DX,CX MOV BX,DX MOV BYTE PTRBX+2,'$'

37、MOV AH,4CH INT 21HCODES ENDSEND START3. .將內存單元存放的BCD碼25H在顯示器上輸出(即輸出字符25)。 DATAS SEGMENT ;此處輸入數據段代碼 DATA DB 25HDATAS ENDSSTACKS SEGMENT ;此處輸入堆棧段代碼STACKS ENDSCODES SEGMENT ASSUME CS:CODES,DS:DATAS,SS:STACKSSTART: MOV AX,DATAS MOV DS,AX ;此處輸入代碼段代碼 LEA BX,DATA MOV AL,BX AND AL,0F0H MOV CL,4 SHR AL,CL AD

38、D AL,30H MOV DL,AL MOV AH,2 INT 21H MOV AL,BX AND AL,0FH ADD AL,30H MOV DL,AL MOV AH,2 INT 21H MOV AH,4CH INT 21HCODES ENDSEND START4. 將內存單元存放的十進制數25從顯示器上輸出(即輸出字符25)。DATAS SEGMENT ;此處輸入數據段代碼 DATA DB 25DATAS ENDSSTACKS SEGMENT ;此處輸入堆棧段代碼STACKS ENDSCODES SEGMENT ASSUME CS:CODES,DS:DATAS,SS:STACKSSTART

39、: MOV AX,DATAS MOV DS,AX ;此處輸入代碼段代碼 LEA BX,DATA MOV AL,BX CBW MOV CL,10 DIV CL ADD AL,30H ADD AH,30H MOV BL,AH MOV DL,AL MOV AH,2 INT 21H MOV DL,BL MOV AH,2 INT 21H MOV AH,4CH INT 21HCODES ENDS END START5. 從鍵盤輸入10個個位數字（09之間的任意數字），并存儲到數據區(qū)INPUT中。DATAS SEGMENT ;此處輸入數據段代碼 BUFFER DB 20,0,20 DUP(?) INPUT DB 10 DUP(0)DATAS ENDSSTACKS SEGMENT ;此處輸入堆棧段代碼STACKS ENDSCODES SEGMENT ASSUME CS:CODES,DS:DATAS,SS:STACKSSTART: MOV AX,DATAS MOV DS,AX ;此處輸入代碼段代碼 LEA SI,B