显示年月日.txt

masm用汇编编的显示当前系统年月日的程序

     stack1  segment   para stack
              dw        100h  dup(?)
      stack1  ends

        data  segment   para
       date1  db        'Current Date is ','$'
       date2  db        '01-01-1980',0dh,0ah,'$'
        data  ends

        code  segment   para
              assume    cs:code,ds:data,ss:stack1
        main  proc      far
              mov       ax,data
              mov       ds,ax

              lea       dx,date1
              mov       ah,9
              int       21h

              mov       ah,2ah
              int       21h
              push      dx


              lea       si,date2+9  ;从日期最后一位开始写
              mov       ax,cx
              mov       bx,10
              mov       cx,4
        lp1:
              xor       dx,dx       ; 从这里开始计算年
              div       bx
              add       dl,30h
              mov       [si],dl     ;一个个数值地写入
              dec       si
              loop      lp1
              pop       ax



              mov       cl,ah       ; 保存月份数值

              xor       ah,ah
              div       bl
              add       ax,3030h    ;变成数值
              sub       si,2
              mov       [si],ax

              xor       ax,ax
              mov       al,cl       ; 取回月份数值
              div       bl
              add       ax,3030h     ;变成数值
              sub       si,3
              mov       [si],ax

              lea       dx,date2
              mov       ah,9
              int       21h

              mov       ax,4c00h
              int       21h
        main  endp
        code  ends
              end       main