*** Area: REAL.SPECCY                             Date: 15 Aug 00 17:11:28
*** From: Felix Knajzev (2:5030/827.9)
*** To  : All
*** Subj: 쪨 Fix  DosX'a (Dickie Mailer)...

                  ਢ ⥡, All!

.  ,   ᢮ DosX'  殢  ਣ쥢 (ZXASM.
  ஫⠫).  ࠢ쭮 ᫮  (᫥ ,
⥫쭮)  ⥫ 䠩, ᮧ ᠬ Dickie.

1. H室  䠩 'MR_*****.C' 楤:


===============   筥 䠩 "MR_*****.C" ================
; *** proc
RTC_GetDosTime          ld      a, #37
                        ld      (IntISR_rtc), a
                        call    _rtc_corr_time
                        push    af
                        ld      hl, _rtc_year
                        ld      a, (hl)
                        dec     hl
                        sub     80
                        jr      nc, not_y2000
                        add     a, 100
not_y2000               add     a, a
                        ld      d, a
                        ld      a, (hl)
                        dec     hl
                        inc     a
                        add     a, a
                        add     a, a
                        add     a, a
                        add     a, a
                        add     a, a
                        or      (hl)
                        inc     a
                        ld      e, a
                        dec     hl
                        dec     hl
                        ld      b, (hl)
                        dec     hl
                        ld      c, (hl)
                        dec     hl
                        ld      a, (hl)
                        add     a, a
                        add     a, a
                        rr      c
                        rra
                        rr      c
                        rra
                        rr      c
                        rra
                        ld      l, a
                        ld      a, b
                        add     a, a
                        add     a, a
                        add     a, a
                        or      c
                        ld      h, a
                        ld      a, #AF
                        ld      (IntISR_rtc), a
                        pop     af
                        ret
; *** end proc


===============   稬 䠩 "MR_*****.C" ================

2. 塞  :



===============   筥 䠩 "MR_**fix.C" ==============
; *** proc
RTC_GetDosTime          ld      a, #37
                        ld      (IntISR_rtc), a
                        call    _rtc_corr_time
                        push    af
                        ld      hl, _rtc_year
                        ld      a, (hl)
                        dec     hl
                        sub     80
                        jr      nc, not_y2000
                        add     a, 100
not_y2000               ld      d, a
                        ld      a, (hl)
                        dec     hl
                        inc     a
                        add     a, a
                        add     a, a
                        add     a, a
                        add     a, a
                        add     a, a
                        rl      d
                        or      (hl)
                        inc     a
                        ld      e, a
                        dec     hl
                        dec     hl
                        ld      b, (hl)
                        dec     hl
                        ld      c, (hl)
                        dec     hl
                        ld      a, (hl)
                        add     a, a
                        add     a, a
                        rr      c
                        rra
                        rr      c
                        rra
                        rr      c
                        rra
                        ld      l, a
                        ld      a, b
                        add     a, a
                        add     a, a
                        add     a, a
                        or      c
                        ld      h, a
                        ld      a, #AF
                        ld      (IntISR_rtc), a
                        pop     af
                        ret
; *** end proc


===============   稬 䠩 "MR_**fix.C" ===============

                     㢠, Felix.

                            [I ZX]
--- Lara_Croft_v4.50
 * Origin: HREAL쭮  REAL쭮! (2:5030/827.9)
