Hужна прога!!!

ZXNet эхоконференция «real.speccy»

От Grigory Klimenko Кому All 25.02.2001


█│■
█┼│ All!

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

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

От Kirill Frolov Кому All 26.02.2001

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

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

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

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

От Grigory Klimenko Кому All 01.03.2001

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

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

От Kirill Frolov Кому All 02.03.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

От Grigory Klimenko Кому All 04.03.2001


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