[Back to DATETIME SWAG index] [Back to Main SWAG index] [Original]

    {
    From: LIAM STITT
    Subj: BASM Get Date
    }

      type
        DateInfo = record
          Year: Word;
          Month: Byte;
          Day: Byte;
          DOW: Byte;
       end;

      var
        DI: DateInfo;

      procedure GetDate; assembler;
      asm
        mov ah,2Ah
        int 21h
        mov DI.Year,cx
        mov DI.Month,dh
        mov DI.Day,dl
        mov DI.DOW,al
      end;

[Back to DATETIME SWAG index] [Back to Main SWAG index] [Original]