上机题之39
以下内容为程序代码:

;*      请编制程序PROG1.ASM, 其功能是: 内存中连续存放着二十个无
;*  符号8位二进制数,每个数为摇号机一次摇出的两个号码的压缩BCD码
;*  表示。现统计此二十次摇号中号码0,1,2,…,9出现的次数,将结果存
;*  入内存。
;*      例如:
;*      内存中有 00H,02H,32H,45H,08H,19H,67H,51H,90H,85H,
;*               62H,44H,73H,57H,39H,81H,36H,92H,21H,05H
;*      结果为   06H,04H,05H,04H,03H,05H,03H,03H,03H,04H
;*      部分程序已给出, 其中原始数据由过程LOAD从文件INPUT1.DAT
;*  中读入SOURCE开始的内存单元中。运算结果要求从RESULT开始存放,
;*  由过程SAVE保存到文件OUTPUT1.DAT中。
;*      填空BEGIN和END之间已给出的源程序使其完整(空白已用横线标
;*  出,每行空白一般只需一条指令, 但采用功能相当的多条指令亦可),
;*  或删除BEGIN和END之间原有的代码并自行编程来完成要求的功能。
;*      对程序必须进行汇编,并与IO.OBJ链接产生PROG1.EXE执行文件,
;*  最终运行程序产生结果(无结果或结果不正确者均不得分)。调试中
;*  若发现整个程序中存在错误之处, 请加以修改。

          EXTRN      LOAD:FAR,SAVE:FAR
N         EQU         20
STAC      SEGMENT   STACK
           DB          128 DUP (?)
STAC      ENDS
DATA     SEGMENT
SOURCE   DB          N DUP(?)           ; 顺序存放十个字节数
RESULT   DB          (N/2) 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'中读取数据