新建 文本文档 (2).txt

汇编程序设计万年历封面

.386
DATA      SEGMENT   USE16
STR1      DB   80
                DB   0
                DB   80     DUP(0)
STR2      DB   'WAN1.ASM'
COUNT   EQU  $-STR2
DATA      ENDS
STACK   SEGMENT  USE16  STACK
                DB     200    DUP(0)
STACK   ENDS

CODE     SEGMENT   USE16
                 ASSUME     DA: DATA,ES: DATA,SS: STACK,CS: CODE
START:   MOV             AS, DATA
                 MOV             DS, AX
                 MOV             ES, AX
                 LEA              DX, STR1
                 MOV             AH, 10
                 INT               21H
                 MOV             AL, STR1+1
                 CMP             AL, COUNT
                 JNE              EXIT
                 LEA              SI, STR1+2
                 LEA              DI, STR2
                 MOV             CX, COUNT
                 REPZ           CMPSB
                 JNE              EXIT
                 MOV             BX, 0
                 JMP              RETU
EXIT:       MOV             BX, -1
RETU:     MOV              AH, 4CH
                 INT                21H
CODE      ENDS
                 END              START