Маленький Fix для DosX'a (Dickie Mailer)... — ZXNet «real.speccy»

From Felix Knajzev To All 16 August 2000

Приветствую тебя, 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]

From Oleg Grigoriev To All 17 August 2000

Пусть враги твои, Felix, умрут без сыновей!

16 Aug 2000 at 17:11, Felix Knajzev ═> All:

FK> Сабж. Для тех, кто компилит свои DosX'ы из сорцов Олега Григорьева (ZXASM.
FK> недавно тут пролетали). Фиксит неправильное число месяца (после августа,
FK> включительно) в описателях файлов, создаваемых самИм Dickie.

в смысле - это мой глюк что ли? не бывает такого. :-)

[ WBR, Oleg. ]
[ 14:08 17 August XXXV A.S. ]

From Felix Knajzev To All 18 August 2000

Приветствую тебя, Oleg!

[Четверг 17 Август 2000] в [14:08:39] Oleg Grigoriev начертал письмецо к Felix
Knajzev.
Обсуждали они тему "Маленький Fix для DosX'a (Dickie Mailer)...". Продолжим
начатое...