Pasted

        .TITLE  TERVEHDYS
        .IDENT  /V1.4/
         .LIBRARY /SYS$LIBRARY:STARLET.MLB/
         $SSDEF
        $DSCDEF
         .PSECT  DATA,NOEXE,WRT,LONG
 UTC_TIME:       .BLKQ   1
UTCNUM:         .BLKW   7
FINNUM:         .BLKW   7
 DAY:            .BLKL   1
YEAR:           .BLKL   1
HOUR:           .BLKL   1
MINUTE:         .BLKL   1
SECOND:         .BLKL   1
 MAR_LAST:       .BLKL   1
OCT_LAST:       .BLKL   1
MONTH_PTR:      .BLKL   1
OFFSET_HOURS:   .BLKL   1
MONTH_LEN:      .BLKL   1
 OUTBUF:         .BLKB   132
OUTLEN:         .BLKW   1
 OUT_DSC:
        .WORD   132
        .BYTE   DSC$K_DTYPE_T
        .BYTE   DSC$K_CLASS_S
        .ADDRESS OUTBUF
 FMT_DATE:       .ASCID  /!UL. !AS !UL !2ZL:!2ZL:!2ZL Suomen aikaa/
 MON01:          .ASCID  /tammikuuta/
MON02:          .ASCID  /helmikuuta/
MON03:          .ASCID  /maaliskuuta/
MON04:          .ASCID  /huhtikuuta/
MON05:          .ASCID  /toukokuuta/
MON06:          .ASCID  /kesakuuta/
MON07:          .ASCID  /heinakuuta/
MON08:          .ASCID  /elokuuta/
MON09:          .ASCID  /syyskuuta/
MON10:          .ASCID  /lokakuuta/
MON11:          .ASCID  /marraskuuta/
MON12:          .ASCID  /joulukuuta/
 MONTH_TABLE:
        .ADDRESS MON01,MON02,MON03,MON04,MON05,MON06
        .ADDRESS MON07,MON08,MON09,MON10,MON11,MON12
 MDAYS:
        .LONG   31,28,31,30,31,30,31,31,30,31,30,31
 MSG_TIME:       .ASCID  /Paivamaara ja aika:/
GREET_MORN:     .ASCID  /Hyvaa huomenta!/
GREET_DAY:      .ASCID  /Hyvaa paivaa!/
GREET_EVE:      .ASCID  /Hyvaa iltaa!/
GREET_NIGHT:    .ASCID  /Hyvaa yota!/
         .PSECT  CODE,EXE,NOWRT,LONG
         .ENTRY  START,^M<>
         $GETTIM_S TIMADR=UTC_TIME
        BLBS    R0,10$
        JMP     ERROR
10$:
        $NUMTIM_S TIMBUF=UTCNUM,TIMADR=UTC_TIME
        BLBS    R0,20$
        JMP     ERROR
20$:
         ; Find last Sunday of March and October in the UTC year.
        MOVZWL  UTCNUM+0,R0
        MOVL    #3,R1
        MOVL    #31,R2
        BSBW    LAST_SUNDAY
        MOVL    R0,MAR_LAST
         MOVZWL  UTCNUM+0,R0
        MOVL    #10,R1
        MOVL    #31,R2
        BSBW    LAST_SUNDAY
        MOVL    R0,OCT_LAST
         ; Default: Finnish winter time, UTC+2.
        MOVL    #2,OFFSET_HOURS
         ; Finnish summer time: last Sunday of March 01:00 UTC
        ; through last Sunday of October before 01:00 UTC.
        MOVZWL  UTCNUM+2,R0          ; UTC month
         CMPL    R0,#3
        BLSS    HAVE_OFFSET          ; Jan-Feb
         CMPL    R0,#10
        BGTR    HAVE_OFFSET          ; Nov-Dec
         CMPL    R0,#3
        BEQL    CHECK_MARCH
         CMPL    R0,#10
        BEQL    CHECK_OCTOBER
         MOVL    #3,OFFSET_HOURS     ; Apr-Sep
        BRW     HAVE_OFFSET
 CHECK_MARCH:
        MOVZWL  UTCNUM+4,R0          ; UTC day
        CMPL    R0,MAR_LAST
        BLSS    HAVE_OFFSET
        BGTR    MARCH_DST
         MOVZWL  UTCNUM+6,R0          ; UTC hour
        CMPL    R0,#1
        BLSS    HAVE_OFFSET
 MARCH_DST:
        MOVL    #3,OFFSET_HOURS
        BRW     HAVE_OFFSET
 CHECK_OCTOBER:
        MOVL    #3,OFFSET_HOURS     ; October is DST until cutoff
        MOVZWL  UTCNUM+4,R0
        CMPL    R0,OCT_LAST
        BLSS    HAVE_OFFSET
        BGTR    OCT_STD
         MOVZWL  UTCNUM+6,R0
        CMPL    R0,#1
        BLSS    HAVE_OFFSET
 OCT_STD:
        MOVL    #2,OFFSET_HOURS
 HAVE_OFFSET:
        ; Copy UTC numeric time to FINNUM.
        MOVW    UTCNUM+0,FINNUM+0
        MOVW    UTCNUM+2,FINNUM+2
        MOVW    UTCNUM+4,FINNUM+4
        MOVW    UTCNUM+6,FINNUM+6
        MOVW    UTCNUM+8,FINNUM+8
        MOVW    UTCNUM+10,FINNUM+10
        MOVW    UTCNUM+12,FINNUM+12
         ; Add 2 or 3 hours.
        MOVZWL  FINNUM+6,R0
        ADDL2   OFFSET_HOURS,R0
        CMPL    R0,#24
        BLSS    STORE_HOUR
         SUBL2   #24,R0
        MOVW    R0,FINNUM+6
        BSBW    INC_DATE
        BRW     AFTER_HOUR
 STORE_HOUR:
        MOVW    R0,FINNUM+6
 AFTER_HOUR:
        MOVZWL  FINNUM+0,YEAR
        MOVZWL  FINNUM+4,DAY
        MOVZWL  FINNUM+6,HOUR
        MOVZWL  FINNUM+8,MINUTE
        MOVZWL  FINNUM+10,SECOND
         MOVZWL  FINNUM+2,R1
        DECL    R1
        MULL2   #4,R1
        MOVL    MONTH_TABLE(R1),MONTH_PTR
         PUSHL   SECOND
        PUSHL   MINUTE
        PUSHL   HOUR
        PUSHL   YEAR
        PUSHL   MONTH_PTR
        PUSHL   DAY
        PUSHAQ  OUT_DSC
        PUSHAL  OUTLEN
        PUSHAQ  FMT_DATE
        CALLS   #9,G^LIB$SYS_FAO
        BLBS    R0,30$
        JMP     ERROR
30$:
        MOVW    OUTLEN,OUT_DSC
         PUSHAQ  MSG_TIME
        CALLS   #1,G^LIB$PUT_OUTPUT
         PUSHAQ  OUT_DSC
        CALLS   #1,G^LIB$PUT_OUTPUT
         CMPW    FINNUM+6,#6
        BLSS    SAY_NIGHT
         CMPW    FINNUM+6,#12
        BLSS    SAY_MORN
         CMPW    FINNUM+6,#18
        BLSS    SAY_DAY
         CMPW    FINNUM+6,#22
        BLSS    SAY_EVE
 SAY_NIGHT:
        PUSHAQ  GREET_NIGHT
        BRB     PRINT_GREET
 SAY_MORN:
        PUSHAQ  GREET_MORN
        BRB     PRINT_GREET
 SAY_DAY:
        PUSHAQ  GREET_DAY
        BRB     PRINT_GREET
 SAY_EVE:
        PUSHAQ  GREET_EVE
 PRINT_GREET:
        CALLS   #1,G^LIB$PUT_OUTPUT
        MOVL    #SS$_NORMAL,R0
        RET
 ERROR:
        PUSHL   R0
        CALLS   #1,G^LIB$STOP
        RET
 ; Increment FINNUM date by one day.
 INC_DATE:
        MOVZWL  FINNUM+0,R0          ; year
        MOVZWL  FINNUM+2,R1          ; month
        BSBW    GET_MONTH_LENGTH
        MOVL    R0,MONTH_LEN
         MOVZWL  FINNUM+4,R0          ; day
        INCL    R0
        CMPL    R0,MONTH_LEN
        BGTR    NEXT_MONTH
         MOVW    R0,FINNUM+4
        RSB
 NEXT_MONTH:
        MOVW    #1,FINNUM+4
         MOVZWL  FINNUM+2,R0
        INCL    R0
        CMPL    R0,#12
        BGTR    NEXT_YEAR
         MOVW    R0,FINNUM+2
        RSB
 NEXT_YEAR:
        MOVW    #1,FINNUM+2
        MOVZWL  FINNUM+0,R0
        INCL    R0
        MOVW    R0,FINNUM+0
        RSB
 ; Input:
;   R0 = year
;   R1 = month
; Output:
;   R0 = length of month
 GET_MONTH_LENGTH:
        DECL    R1
        MULL2   #4,R1
        MOVL    MDAYS(R1),R2
         ; February: check leap year.
        CMPL    R1,#4                ; original month 2 -> index 1 -> offset 4
        BNEQ    MONTH_LEN_DONE
         BSBW    IS_LEAP
        TSTL    R0
        BEQL    MONTH_LEN_DONE
        MOVL    #29,R2
 MONTH_LEN_DONE:
        MOVL    R2,R0
        RSB
 ; Input:
;   R0 = year
; Output:
;   R0 = 1 if leap year, 0 otherwise
 IS_LEAP:
        MOVL    R0,R3
         MOVL    R3,R4
        DIVL2   #400,R4
        MULL2   #400,R4
        CMPL    R3,R4
        BEQL    LEAP_YES
         MOVL    R3,R4
        DIVL2   #100,R4
        MULL2   #100,R4
        CMPL    R3,R4
        BEQL    LEAP_NO
         MOVL    R3,R4
        DIVL2   #4,R4
        MULL2   #4,R4
        CMPL    R3,R4
        BEQL    LEAP_YES
 LEAP_NO:
        CLRL    R0
        RSB
 LEAP_YES:
        MOVL    #1,R0
        RSB
 ; Input:
;   R0 = year
;   R1 = month, 3 or 10
;   R2 = last day of month
; Output:
;   R0 = day number of last Sunday in that month
 LAST_SUNDAY:
        MOVL    R0,R3
        MOVL    R1,R4
        MOVL    R2,R5
         ADDL3   #1,R4,R6
        MULL2   #13,R6
        DIVL2   #5,R6
         ADDL3   R5,R6,R7
        ADDL2   R3,R7
         MOVL    R3,R8
        DIVL2   #4,R8
        ADDL2   R8,R7
         MOVL    R3,R8
        DIVL2   #100,R8
        SUBL2   R8,R7
         MOVL    R3,R8
        DIVL2   #400,R8
        ADDL2   R8,R7
         MOVL    R7,R8
        DIVL2   #7,R8
        MULL2   #7,R8
        SUBL2   R8,R7
         ADDL2   #6,R7
        MOVL    R7,R8
        DIVL2   #7,R8
        MULL2   #7,R8
        SUBL2   R8,R7
         SUBL3   R7,R5,R0
        RSB
         .END    START