上机题之17
　　以下内容为程序代码:
　　;*      请编制程序PROG1.ASM, 其功能是:内存中连续存放着十个无符
　　;*  号8位格雷码表示的数, 现将此十个数转换成十个8位二进制数, 结
　　;*  果存入内存。其转换方法为二进制数的最高位d[7]与格雷码的最高位
　　;*  g[7]相同, 二进制数的其余七位d[k](k=6,…,0) 分别为格雷码的位g[k]
　　;*  (k=6,…,0)与二进制数的位d[k+1](k=6,…,0) 异或的结果。
　　;*      例如:
　　;*      内存中有 00H,03H,2BH,67H,0CH,15H,54H,02H,D8H,C7H
　　;*      结果为   00H,02H,32H,45H,08H,19H,67H,03H,90H,85H
　　;*      部分程序已给出, 其中原始数据由过程LOAD从文件INPUT1.DAT
　　;*  中读入SOURCE开始的内存单元中。运算结果要求从RESULT开始存放,
　　;*  由过程SAVE保存到文件OUTPUT1.DAT中。
　　;*      填空BEGIN和END之间已给出的源程序使其完整(空白已用横线标
　　;*  出,每行空白一般只需一条指令, 但采用功能相当的多条指令亦可),
　　;*  或删除BEGIN和END之间原有的代码并自行编程来完成要求的功能。
　　;*      对程序必须进行汇编,并与IO.OBJ链接产生PROG1.EXE执行文件,
　　;*  最终运行程序产生结果(无结果或结果不正确者均不得分)。调试中
　　;*  若发现整个程序中存在错误之处, 请加以修改。
　　EXTRN      LOAD:FAR,SAVE:FAR
　　N         EQU         10
　　STAC      SEGMENT   STACK
　　DB          128 DUP (?)
　　STAC      ENDS
　　DATA     SEGMENT
　　SOURCE   DB          N DUP(?)           ; 顺序存放十个字节数
　　RESULT   DB          N DUP(0)           ; 存放结果
　　NAME0    DB          ’INPUT1.DAT’,0
　　NAME1    DB          ’OUTPUT1.DAT’,0
　　DATA     ENDS
　　CODE     SEGMENT
　　ASSUME     CS:CODE, DS:DATA, SS:STAC
　　START    PROC         FAR
　　PUSH       DS
　　XOR        AX,AX
　　PUSH       AX
　　MOV        AX,DATA
　　MOV        DS,AX
　　LEA        DX,SOURCE        ; 数据区起始地址
　　LEA        SI,NAME0         ; 原始数据文件名
　　MOV        CX,N             ; 字节数
　　CALL       LOAD             ; 从 ’INPUT1.DAT’中读取数据

　　;  **** BEGIN ****
　　LEA        DI,RESULT
　　LEA        SI,SOURCE
　　MOV        CX,10
　　AGN0:      MOV        AL,[SI]
　　push       cx
　　;_______________
　　MOV        CX,8
　　MOV        BX,0
　　AGN1:      MOV        AH,0
　　SHL        BL,1
　　shl        al,1
　　;___        AL,1
　　RCL        AH,1

　　cmp        ah,bh
　　jne        set_one
　　;CMP        AH,__
　　;________________
　　JMP        NEXT
　　SET_ONE:   OR         BL,01H
　　NEXT:      mov        bh,bl
　　and        bh,01h
　　;MOV        __,BL
　　;________________
　　LOOP       AGN1
　　pop        cx
　　;________________
　　MOV        [DI],BL
　　INC        SI
　　INC        DI
　　LOOP       AGN0
　　;  ****  END  ****
　　LEA         DX,RESULT         ; 结果数据区首址
　　LEA         SI,NAME1          ; 结果文件名
　　MOV         CX,N              ; 结果字节数
　　CALL        SAVE              ; 保存结果到文件
　　RET
　　START      ENDP
　　CODE       ENDS
　　END        START
　　input1.dat 内容如下：
　　A0 88 56 3D 02 D3 90 78 23 E8
　　output1.dat 内容应当如下：
　　C0 F0 64 29 03 9D E0 50 3D B0