prog1.asm

有很强的适用性,大起大落 震耳欲聋 夺取城区 震耳欲聋

         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 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              ; 从 'INPUT.DAT'中读取数据
;  **** BEGIN ****
           LEA         SI,SOURCE
          MOV        DI,OFFSET RESULT  ; ①
          MOV CX,N            ; ②
NEXT:      MOV        AL,[SI]
           CMP        AL,'0'
           JB           INVALID
           CMP         AL,'9'           ; ③
           JBE          STRIP             ; ④
           CMP         AL,'A'
           JB           INVALID
           CMP         AL, 'F'          ; ⑤
           JA           INVALID             ; ⑥
           ADD         AL,9
STRIP:     AND         AL,0FH
INVALID:   MOV         [DI],AL
           ADD         SI,1
           ADD         DI,1
           LOOP       NEXT              ; ⑦
;  ****  END  ****
           LEA         DX,RESULT         ; 结果数据区首址
           LEA         SI,NAME1          ; 结果文件名
           MOV        CX,N               ; 结果字节数
           CALL        SAVE              ; 保存结果到文件
           RET
START    ENDP
CODE     ENDS
         END         START