exp99.asm

汇编语言 参考书 包含作业与答案 从入门到精通 通俗易懂

STACK   SEGMENT PARA STACK
        DW      100h DUP(?)
STACK   ENDS

DATA    SEGMENT PARA
DATE1   DB      'Current Date is $'
DATE2   DB      '01-01-1980',0DH,0AH,'$'
TIME1   DB      'Current Time is $'
TIME2   DB      '00:00:00',0DH,0AH,'$'
DATA    ENDS

CODE    SEGMENT PARA
        ASSUME  CS:CODE,DS:DATA,SS:STACK
DISP_STR        MACRO Str1
                MOV     AH,9
                LEA     DX,Str1
                INT     21H
                ENDM

MAIN    PROC    FAR
        MOV     AX,DATA
        MOV     DS,AX

        DISP_STR   DATE1
        MOV     AH,04H
        INT     1AH

        MOV     AX,CX
        MOV     CX,4
        LEA     SI,DATE2+6
LP1:    PUSH    CX
        MOV     CL,4
        ROL     AX,CL
        MOV     BL,AL
        AND     BL,0FH
        OR      BL,30H
        MOV     [SI],BL
        INC     SI
        POP     CX
        LOOP    LP1

        MOV     AX,DX
        MOV     CX,4
        LEA     SI,DATE2
LP2:    PUSH    CX
        MOV     CL,4
        ROL     AX,CL
        MOV     BL,AL
        AND     BL,0FH
        OR      BL,30H
        MOV     [SI],BL
        INC     SI
        POP     CX
        CMP     CX,3
        JNZ     LP2_1
        INC     SI      ;Skip '-'
LP2_1:  LOOP    LP2

        DISP_STR DATE2

        DISP_STR TIME1

        MOV     AH,2
        INT     1AH
        MOV     AX,CX

        MOV     CX,4
        LEA     SI,TIME2
LP3:    PUSH    CX
        MOV     CL,4
        ROL     AX,CL
        MOV     BL,AL
        AND     BL,0FH
        OR      BL,30H
        MOV     [SI],BL
        INC     SI
        POP     CX
        CMP     CX,3
        JNZ     LP3_1
        INC     SI      ;Skip '-'
LP3_1:  LOOP    LP3

        PUSH    DX
        MOV     CL,4
        SHR     DH,CL
        OR      DH,30H
        MOV     TIME2+6,DH
        POP     DX
        AND     DH,0FH
        OR      DH,30H
        MOV     TIME2+7,DH

        DISP_STR TIME2

        MOV     AX,4C00H
        INT     21H
MAIN    ENDP
CODE    ENDS
        END     MAIN