Hужна прога!!! — ZXNet «real.speccy»

From Grigory Klimenko To All 25 February 2001

█│■
█┼│ All!

Люди, нужна прога под 32к кэша, а то погонять его неначем!

▌┘│ ■ ▐ ┬─┐▌ ┬──
Извини, привезли свежее пиво... ▌│└─│┌┬┐ ▌ ▌_│▌-┤▌_┬

From Kirill Frolov To All 26 February 2001

Hемедленно нажми на RESET, Grigory!

25 Feb 01 22:59, Grigory Klimenko wrote to All:

GK> Люди, нужна прога под 32к кэша, а то погонять его неначем!

Под 32 не знаю. А под 16 Real Commander старый, но тебе нужна вторая кнопка
Magic специально
для кеша. Hу или ЦП/М-ка.

From Grigory Klimenko To All 1 March 2001

KF> Под 32 не знаю. А под 16 Real Commander старый, но тебе нужна вторая
KF> кнопка Magic специально
KF> для кеша. Hу или ЦП/М-ка.

Усе это у меня сделано, и работает, вот только не уверен я что вторая половинка
нормально работает, а поскольку я в кодинге "не алле" то мне проверить ее
проблемно.

From Kirill Frolov To All 2 March 2001

KF>> вторая кнопка Magic специально для кеша. Hу или ЦП/М-ка.
GK> Усе это у меня сделано, и работает, вот только не уверен я что вторая
GK> половинка нормально работает, а поскольку я в кодинге "не алле" то мне
GK> проверить ее проблемно.

Генератор случайных чисел никуда не годен (это даже и не ГСЧ) но для
"проверить"
наверное сойдёт. Эту программу я вообще не проверял на спеке (AS IS)...

ORG #6000

CALL #0D6B
LD A,2
CALL #1601
LD DE,MSG
XOR A
CALL #0C0A

DI
IN A,(#FB)

LD BC,#7FFD
LD DE,#0010
OUT (C),D
EXX
CALL SRAND
CALL FILL
EXX
OUT (C),E
EXX
CALL FILL
EXX
OUT (C),D
EXX
CALL SRAND
CALL CHECK
PUSH HL
EXX
OUT (C),E
EXX
CALL CHECK

IN A,(#7B)
EI

LD DE,MSG
LD A,1
CALL #0C0A
CALL TEST
LD DE,MSG
POP HL
LD A,2
CALL #0C0A
CALL TEST

RET

TEST LD DE,MSG
LD A,H
CP #40
LD A,3
JR NC,TEST1
INC A
TEST1 JP #0C0A

FILL LD HL,0
FILL1 CALL RAND
LD (HL),A
INC HL
LD A,H
CP #40
JR C,FILL1
RET

CHECK LD HL,0
CHECK1 CALL RAND
CP (HL)
RET NZ
INC HL
LD A,H
CP #40
JR C,CHECK1
RET

SRAND LD HL,0
LD (XRAND),HL
RET

RAND PUSH HL
LD HL,0
XRAND EQU $-2
INC HL
LD (XRAND),HL
LD A,H
XOR L
POP HL
RET

MSG DB #80
DB "Buggy cache test ver 0.1 alfa",#0D
DB "(C) Kirill Frolov 02-02-2001",#0D
DB "This programm is free software",#0D
DB "You can redistribute and modify",#0D
DB "it under the terms of the GNU",#0D
DB "General Public License version 2",#0D
DB "as published by the Free",#0D
DB "Software Foundation.",#0D
DB "This programm distributed AS IS",#0D
DB "WITHOUT ANY WARRANTY, see GNU",#0D
DB "General Public License for more",#0D
DB "details.",#0D,#8D
DB "Testing BANK 0 .......",#A0
DB "Testing BANK 1 .......",#A0
DB "Done",#8D
DB "Failed",#8D

From Grigory Klimenko To All 4 March 2001

KF>>> Под 32 не знаю. А под 16 Real Commander старый, но тебе нужна
KF>>> вторая кнопка Magic специально для кеша. Hу или ЦП/М-ка.
GK>> Усе это у меня сделано, и работает, вот только не уверен я что вторая
GK>> половинка нормально работает, а поскольку я в кодинге "не алле" то мне
GK>> проверить ее проблемно.