Not for the sake of self-interest, but only for the benefit of...
ZXNet echo conference «code.zx»
From 812/03.00 → To Oleg Grigoriev 15 December 1997
I suddenly saw on 12/13/97, at 02:43:36, Oleg Grigoriev wrote to ALL:
Hi Oleg!
OG> For correct processing of delays
OG> I would really like to work with the drive
OG> mark a list of _software_ ways to disable-
OG> checking/enabling/switching turbo mode
OG> on various types of spectrum-compatible
OG> computers.
Well, in Scorpio you probably know:
turbo_on: ld bc,#7ffd
in c,(c)
turbo_off: ld bc,#1ffd
in c,(c)
on ATM (turbo) (2) (2+)
turbo_on: ld a,171
ld bc,10835
push bc
ld bc,#ff77
jp 15663
turbo_off: ld a,163
ld bc,10835
push bc
ld bc,#ff77
jp 15663
on the pro there is no software method for switching turbo_on/off
something like #1ffd. so you will also have to
determine the type of machine before work. try AUTOconfig from
ZF, SPF, on_line... or write to me and I’ll throw the latest version in the echo.
▌▌║▌█▐│▌▌▐▐ WiTh The BeST wIsheS fROM
▌▌║▌█▐│▌▌▐▐ *C*R*E*A*T*O*R*
▌812/03.00▐
-+- SMM version 1.05
From 812/03.00 → To Oleg Grigoriev 26 December 1997
I suddenly see on 12/26/97, at 04:09:40 someone
Oleg Grigoriev wrote to Paul Falcon about not for self-interest, but only for benefit...:
Hi Oleg!
PF>> no, I don't like "." press (in xas, instead of "#" you can dot
PF>> it fixes it itself)
OG> Oh, damn, I wish I could change the font in it and make friends with the screw...
OG> :) Do you want me to write a drever? about 3 seconds... 512 bytes - buffer
OG> [there are 512 bytes on the sector screw:(] well, the loader/saver byte is 200. Eh?;)
OG> Otherwise I’m still writing in the fourth tasma. Although he works with
OG> screw via #3d13 :(, but when reading (that is, assembling)
OG> will overtake :) any seedy storm:( (42 characters per line -
OG> ssssssuuuuuuuuuuuuxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx!!!!!).
xas and 64 characters are available... but there is a problem with the screw,
for some reason he doesn’t really want to work through #3d13... it glitches when
records. I'll figure it out when I have time.
PF>> nothing is checked by pages! it's not 100%
PF>> maybe this is an old scorpion without a shadow. and the inscriptions
PF>> the ROM is not a serious matter because it could have been changed. OG> What if we do out (#1FFD),#02? On Scorpa it connects
OG> ROM Expansion. What this does in the world is not known, but even the EU
OG> and connects bank 2 ROM, then it is probably clean. So about
OG> take ten bytes from ROM at once and compare with zero. And if not
OG> connects then take the same 10-k click and compare.
and if on another machine it goes wrong, the test will fly away to
edrene hairdryer?
OG> Well, throw your autoconfig into the echo. Don't want to do GMX -
OG> I'll do it myself. It’s not that difficult, since the procedure has already been written
OG> you just need to dock.
Right now, I’m going to die.
here:
;IY-127 MACHINE TYPE
;IY-126 ALL PAGES
; 0 =1 #7FFD SPECTRUM 128K
; 1 =1 #1FFD SCORPION OR KAY
; 2 =1 #DFFD PROFI
; 3 =1 TURBO 2+
; 4 =1 #FDFD ATM TURBO 1
; 5 =1 6 & 7 bit #7FFD
; 7 =1 #08 BYTE #C3
START
XOR A
LD (IY-127),A
INC A
LD (IY-126),A
D.I.
LD A,(#08)
CP#C3
JR NZ,ITURBO
SET 7,(IY-127)
ITURBO LD HL,(1111)
LD BC,#FFF7
LD A,%00011111
CALL OUTC_A
LD DE,(#C000+1111)
AND A
SBC HL,DE
LD BC,#FFF7 LD A,255
CALL OUTC_A
JR NZ,IDFFD
SET 3,(IY-127)
JR I7FFD
IDFFD LD HL,#80
LD DE,#1000
LD BC,#DFFD
OUT (C),D
LD A,(HL)
INC (HL)
CP (HL)
OUT (C),E
JR Z,I1FFD
SET 2,(IY-127)
JR I7FFD
I1FFD LD DE,#1110
LD B,#1F
OUT (C),D
LD A,(HL)
INC (HL)
CP (HL)
OUT (C),E
JR Z,IFDFD
XOR A
OUT (C),A
SET 1,(IY-127)
JR I7FFD
IFDFD LD B,C
LD HL,#FFFF
OUT (C),D
LD B,#7F
OUT (C),D
LD (HL),D
LD B,C
OUT (C),E
LD B,#7F
OUT (C),D
LD (HL),E
LD B,C
OUT (C),D
LD B,#7F
OUT (C),D
LD A,(HL)
CP D
JR NZ,I7FFD
SET 4,(IY-127)
I7FFD LD HL,#80
LD DE,#1000
LD BC,#7FFD
OUT (C),D
LD A,(HL)
OUT (C),E
CP (HL)
OUT (C),D
JR Z,SIZED
SET 0,(IY-127)
SIZED CALL VIRT
LD A,(IY-126)
CP 8
JR C,ENDING
LD A,(IY-127)
CP 1
JR NZ,ENDING
SET 5,(IY-127)
ENDING LD A,0
CALL EX_RAM
EI
RET
VIRT LD IX,#C000
LD HL,DOOM+63
LD B,64
V_R11 LD A,B
DEC A
CALL EX_RAM
LD C,(IX+0)
LD (HL),C
LD (IX+0),A
DEC HL
DJNZ V_R11
PUSH AF
LD (IY-126),61
POP AF
LD DE,TABL_PG
V_R20 LD A,(DE)
CP #FF
JR Z,V_R30
CALL EX_RAM
CP (IX+0)
JR Z,V_R22
PUSH DE
LD HL,TABL_PG+62
AND A
SBC HL,DE
PUSH HL
POP BC
PUSH DE
POP HL
INC HL
LDIR
DEC (IY-126)
POP DE
DEC DE
V_R22 INC DE
JR V_R20
V_R30 LD B,64
LD HL,DOOM
V_R31 LD A,64
SUB B
CALL EX_RAM
LD A,(HL)
LD (IX+0),A
INC HL
DJNZ V_R31
RET
DEBUG PUSH DE
POP HL
NO_PG1 DEC DE
LD A,(DE)
CP #FF
JR Z,NO_PG2
CP C
JR NZ,NO_PG1
SBC HL,DE
PUSH HL
POP BC
PUSH DE
POP HL
INC HL
LDIR
DEC (IY-126)
DEC HL
DEC HL
NO_PG2 EX DE,HL
RET
ONPAGE PUSH BC
PUSH HL
LD C,A
LD B,0
LD HL,TABL_PG
ADD HL,BC
LD A,(HL)
POP HL
POP BC
EX_RAM DI
PUSH HL
PUSH AF
PUSH BC
BIT 1,(IY-127)
JR NZ,ZS256
BIT 2,(IY-127)
JR NZ,PROFI
BIT 3,(IY-127)
JR NZ,TURBO_2
BIT 4,(IY-127)
JR NZ,ATM1
JR SPECCY
TURBO_2 PUSH AF
PUSH IX
AND 24
CPL
LD BC,#FFF7
CALL OUTC_A
POP IX
POP AF
JR SPECCY
ATM1 LD BC,#FDFD
PUSH AF
RRCA
RRCA
RRCA
AND 3
JR HOME
PROFI LD BC,#DFFD
PUSH AF
RRCA
RRCA
RRCA
AND 7
JR HOME
ZS256 PUSH AF
LD B,A
AND %00001000
RLCA
LD C,A
LD A,B
AND %00110000
RLCA
RLCA
ADD A,C
LD BC,#1FFD
HOME OUT (C),A
POP AF
SPECCY LD B,A
AND 24
RLCA
RLCA
RLCA
LD C,A
LD A,B
AND 7
ADD A,C
OR 16
LD BC,#7FFD
OUT (C),A
POP BC
POP AF
POP HL
RET
OUTC_A LD IX,10835
PUSH IX
JP 15663
DEFB #FF
TABL_PG DEFB 00,01,03,04,06,07
DEFB 08,09,10,11,12,13,14,15
DEFB 16,17,18,19,20,21,22,23
DEFB 24,25,26,27,28,29,30,31
DEFB 32,33,34,35,36,37,38,39
DEFB 40,41,42,43,44,45,46,47
DEFB 48,49,50,51,52,53,54,55
DEFB 56,57,58,59,60,61,62,63
DEFB #FF
DOOM DEFS 64
PF>>>> ▌▌║▌█▐│▌▌▐▐ WiTh The BeST wIsheS fROM CREATOR product
OG>>> Слушай, всё забываю спросить, а чей ты
OG>>> продукт? ;)
PF>> мой!
OG> Сам себя сделал?! Ж:) Бей изврашенцев!;)
это ващето торговая марка aka копиригхт!
по поводу ис-доса, покидай мылом зипы, на MAS BBS, а то
я толко ночью свободен. с часа гдето. да и драйврра
рам дисков посмотри - мне очень надо много и разных
▌▌║▌█▐│▌▌▐▐ WiTh The BeST wIsheS fROM CREATOR product
▌812/03.00▐ Powered by Cyrix 6x86L 200+/16DIMM/S3TrV2 2MB/1.6GB
-+- SMM version 1.05