ZXNet эхоконференция «code.zx»

Хаюшки, All! Вот вам бяка, если её вызвать в ИСДОСе, то она считает из КМОСа дату и запихнет её на место... прога набиралась в ЗАСМЕ (рулез) с использование его возможностей, посему или работайте в нём, или ручками-ручками ;-) ╔══════════════ начнём отсюдава ══════════╗ ; АВТОУСТАHОВКА ДАТЫ ДЛЯ IS-DOS MAKE "dt.com",25000 ;заодно включаем ТУРБО-режим Скорпа LD BC,#7FFD: IN A,(C) ;считываем дату и запаковываем её в ;хитрый формат: ;DE по битам: ;FEDCBA9876543210 ;гггггггММММддддд ;где "ггггг" номер года МИHУС 80! ;"ММММ" - номер месяца ;"дддд" - день. LD A,7: CALL READ_CM AND #1F: LD H,A ;ДЕHЬ LD A,8: CALL READ_CM AND #0F: LD L,A ;МЕСЯЦ LD A,9: CALL READ_CM SUB 80: LD D,A ;ГОД LD A,L RLCA: RLCA: RLCA: RLCA: RLCA RL D OR H: LD E,A PUSH DE LD C,#45: RST 16 EXX: POP DE DEC HL: DEC HL LD (HL),D: DEC HL: LD (HL),E RET READ_CM LD BC,#FFF9 LD DE,#3FF0: CALL TR_DOS LD C,#79 LD DE,#3FF3: CALL TR_DOS ;ПЕРЕВОД ИЗ ДВОИЧHО-ДЕСЯТИЧH. СИСТЕМЫ ;В ДВОИЧHУЮ DECODE LD C,A: AND #F0 RRCA: LD B,A RRCA: RRCA: ADD A,B LD B,A LD A,C: AND #0F: ADD A,B RET TR_DOS PUSH DE: JP #3D2F ╚═════════════ на сегодня хватит ═════════╝ Hу вот и всё... С уважением, Aleksandr (*MAS*)

Hello Aleksandr! Sat Jul 05 1997, Aleksandr Majorov (812/00.00) состряпал(а) письмо к All: AM> Вот вам бяка, если её вызвать в ИСДОСе, AM> то она считает из КМОСа дату и запихнет AM> её на место... а чиво такая толстая-то? AM> прога набиралась в ЗАСМЕ (рулез) с AM> использование его возможностей, посему AM> или работайте в нём, или ручками-ручками ;-) господи, как убого-то. не читабельно ведь ни капельки. AM> ╔══════════════ начнём отсюдава ══════════╗ AM> ; АВТОУСТАHОВКА ДАТЫ ДЛЯ IS-DOS ld d, 00100001b ; read reg bin ? ? ? ? date MOA_SERVICE Rst08_TIME jc @@no_146818_chip ld a, e ; year sub 80 ld h, a ld a, b ; month rept 5 add a, a endm rl h or c ; day ld l, a push hl ISDOS_RST 0x45 exx dec hl dec hl pop de ld (hl), d dec hl ld (hl), e @@no_146818_chip: xor a ret AM> ╚═════════════ на сегодня хватит ═════════╝ With best wishes, Michael.

Здрасте вам, Konstantyn Kankyev. · ·· ---·<[ Местное время 10:07 ]>·-- -··· · ·· ---·<[ Konstantyn Kankyev и All ]>·-- -··· · ·· ---·<[ Обсуждают ]>·-- -··· KK> Hужен драйвер верхней памяти для машин >128 kb, желательно в KK> plaint-text. По возможности, продублируйте на zx_spec@chat.ru KK> PS. Вам что, жалко поделиться ? У меня игрушка в 128 кил не влазит KK> ... Во пpолетало pаньше: ─ [1] То, что мне интересно. (500:3432/13) ────────────────────────── MY.MAIL ─ Msg : 9 of 95 From : Felix Knajzev 500:812/5.9 Сpд 05 Июл 00 13:29 To : Alexandr Kolotuhin Subj : компы. ─────────────────────────────────────────────────────────────────────────────── @RealName: Князев Феликс Аполлонович Приветствую тебя, о досточтимый Alexandr! [Суббота 1 Июль 2000] в [16:25:31] Alexandr Kolotuhin начертал письмецо к All. Обсуждали они тему "компы.". Продолжим начатое... AK> Подскажите, плиз: AK> 1. Как из асьма определить различные типы компов: AK> Скорп, Кай, Проффи, АТМ и другие, которые имеют память AK> 256 и AK> выше. [skip] =============== тут мы начнем файл "OnLine76.C" ================ (C) PAUL FALCON Вот хотел бы вам представить програмку, которая поможет "бо- роться" с верхней памятью. То есть управлять ею на разных маши- нах. Программа при запуске сама определяет с каким компьютером она работает. И выставляет переменные в соответствии с тестирова- нием машины: какой компьютер, и сколько у него "мозгов" т.е. па- мяти. Для работы с программой достаточно обращения к трем процеду- рам независимо от типа определенного компьютера. Основную систему 55-65% кодил мой друг - Юра Ковалевский. пе- реработал, добавил еще машин для определения, кодил 45-35% - я. Hу теперь техническая информация, собственно, что и как: Данные по определенной машине находятся в переменной (IY+118) (23728) и расположение ее битов следущее: 0 =1 есть порт #7FFD SPECTRUM 128K 1 =1 есть порт #1FFD SCORPION или KAY 2 =1 есть порт #DFFD PROFI 3 =1 есть порт #FFF7 TURBO 2+ 4 =1 есть порт #FDFD ATM TURBO 5 =1 действуют 6 и 7 bit #7FFD 6 7 =1 по адресу 8 байт #C3 (SCORPION) Соответствия по значению, т.е. какое значение будет иметь пе- ременная (IY+118) при определении того или иного компьютера: 0 SPECTRUM 48K 1 SPECTRUM 128K 32+1 SPECTRUM 256K - 512K 2 KAY 48K 2+1 KAY 256K - 1024к 4 PROFI 48K 4+1 PROFI 256K - 1024K 8 TURBO 2+ 48K 8+1 TURBO 2+ 128K - 1024K 16 ATM TURBO 48K 16+1 ATM TURBO 128K - 512K 128 SCORPION 48K 128+1 SCORPION 128K 128+2 SCORPION 256K - 1024K Количество реально существующих страниц заносится в перемен- ную (IY+119)(23729). Естественно, можно использовать у другие адреса хранения этих переменных, но это самые удобные на мой взгляд. Управление программой настолько просто, что надо знать всего три процедурки: Если при определении какой либо машины надо исключить нес- колько страниц, то здесь поможет процедура DEBUG, в регистре C указывается номер удаляемой из таблицы страницы. Делать это на- до сразу после определения машины и после определения памяти (после CALL VIRT). Пример : .... LD C,8 CALL DEBUG .... В данном примере будет удалена страница номер 8 из доступных для переключения (для Scorp'a полезно, не убивается теневик). Если эта процедура вам не пригодится, то можно смело выре- зать ее из программы от метки DEBUG до ONPAGE. Также количество страниц и их номера можно корректировать прям в самой таблице (в конце программы) изначально в ней отсут- ствуют 2 и 5 страницы. Листание страниц по их логическому номеру, это процедура ONPAGE. Пример : .... LD A,8 CALL ONPAGE .... Данный пример включит с #C000 страницу, находящуюся но номе- ру (в рег. А) от начала таблицы (в нашем случае будет включена 10 страница, если такая вообще здесь есть). Листание страниц по их физическому номеру - это процедура EX_RAM. Пример : .... LD A,8 CALL EX_RAM .... С #C000 включится страница с номером (в рег. А). Т.е. реально 8 страница. Вот собственно сама прога ... ; @ @ @ @@@ @@@ ; @ @ @ @ @ @ @ ; @ @ @ @ @ @ @ @@ @ @ @ @@ @ @@@ ; @ @ @ @ @ @ @ @ @ @ @@ @ @ @ @ ; @ @ @ @ @ @ @ @ @ @ @ @@ @@ @ @ @@ ; @@@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ ; @ @ @@@ @ @@@ @@ @ @ @ @ @ @@@@ ; ; VERSION 5.5. IMPROVED. ; ; ; AUTOCONFIG PAGEMAKER FOR MACHINES: ; ; TURBO 2+ (48K - 1024K) V6.00 - V7.1 ; ATM TURBO (48K - 512K) V4.10 - V5.20 ; SCORPION (48K - 1024K) ; PROFI (48K - 1024K) ; SPECTRUM (128K - 512K) 6 & 7 BIT #7FFD ; ; THE SHAREWARE PRODUCT FOR FREE USING! ; (при использовании данной процедуры в ; своих программах ссылка на авторов ; практически обязательна (но ваше дело)) START ; начало начал ... XOR A LD (IY+118),A ; тип компьютера INC A LD (IY+119),A ; число доступных страниц DI ; проверим (.) 'RST 8' в ROM 48 (если ZS-256,там #C3) LD BC,#7FFD LD A,#10 OUT (C),A LD A,(#0008) CP #C3 JR NZ,ITURBO ; не ZS-256 ; это наверно SCORPION SET 7,(IY+118) ITURBO ; проверка наличия диспетчера RAM/ROM ; берем 2 байта из 0-го сегмента (там ROM48) LD HL,(1111) ; дублируем ROM48 в 3-м сегменте (#C000-#FFFF) LD BC,#FFF7 LD A,%00011111 CALL OUTC_A ; берем 2 байта 3-го сегмента (если TURBO 2+, там ROM48) LD DE,(#C000+1111) AND A SBC HL,DE ; сравниваем с байтами 0-го сегмента ; восстанавливаем диспетчер LD BC,#FFF7 LD A,#FF CALL OUTC_A JR NZ,IDFFD ; это не TURBO 2+ ; обнаружен диспетчер RAM/ROM (TURBO 2+) SET 3,(IY+118) JR I7FFD ; PROFI ? IDFFD LD HL,#80 LD DE,#1000 LD BC,#DFFD ; проверка на порт #DFFD bit 4 ; (проверяем подключение RAM вместо ROM) OUT (C),D ; включаем 0-й сегмент RAM ; вместо ПЗУ ; пробуем отключить ROM NOP LD A,(HL) ; читаем байт INC (HL) ; меняем его CP (HL) ; сравниваем с прочитанным LD (HL),A ; восстанавливаем байт OUT (C),E ; восстанавливаем ROM JR Z,I1FFD ; нет порта #DFFD ; есть порт #DFFD (PROFI) SET 2,(IY+118) JR I7FFD ; проверка на порт #1FFD bit 0 ; (проверка на подключение RAM вместо ROM) I1FFD LD DE,#1110 LD B,#1F OUT (C),D ; включаем 8 сегмент RAM NOP LD A,(HL) ; читаем байт INC (HL) ; меняем его CP (HL) ; сравниваем с прочитанным LD (HL),A ; восстанавливаем байт OUT (C),E ; ставим ROM на место JR Z,IFDFD ; нет порта #1FFD ; есть порт #1FFD (SCORPION или KAY) XOR A OUT (C),A SET 1,(IY+118) JP I7FFD IFDFD ; Проверка на наличие порта #FDFD (АТМ-1) LD B,C LD HL,#FFFF OUT (C),D NOP LD B,#7F OUT (C),D NOP LD (HL),D LD B,C OUT (C),E NOP LD B,#7F OUT (C),D NOP LD (HL),E LD B,C OUT (C),D NOP LD B,#7F OUT (C),D NOP LD A,(HL) CP D JR NZ,I7FFD ; нет такого слова ; однако есть порт #FDFD SET 4,(IY+118) ; наличие порта (#7FFD) ; (проверка на переключение ROM48<->ROM128) I7FFD LD HL,#80 LD DE,#1000 LD BC,#7FFD OUT (C),D ; ROM 1, однозначно! NOP LD A,(HL) ; байт ROM 48 OUT (C),E ; ROM 0 NOP CP (HL) ; байт из ROM 128 OUT (C),D ; ROM 1 NOP JR Z,SIZED ; нет порта или блокирован ; обнаружен порт #7FFD SET 0,(IY+118) ; определить объем памяти SIZED CALL VIRT ; DE - конец таблицы (метка #FF) LD A,(IY+119) ; SPECTRUN 256K-512K ? CP #08 JR C,ENDING LD A,(IY+118) CP #01 JR NZ,ENDING SET 5,(IY+118) ; крутой SPECCY 256K - 512K ENDING LD A,#00 ; страница после выхода из программы CALL EX_RAM ; в порте #7FFD на SPECTRUM 128K . EI ; для нормального выхода . RET ; определение реальных (!) страниц для данной машины ; страницы "фантомы" удалятся из логической таблицы ; на выходе: ; DE - конец таблицы (метка #FF) ; переменная PAGE - доступное число страниц VIRT LD IX,#C000 ; заполнить страницы их номерами со спасением содержимого байт ; в точках проверки (#C000) LD HL,DOOM+63 LD B,64 V_R11 LD A,B DEC A ; NN стр. 63,62,61,60...1,0 CALL EX_RAM LD C,(IX+0) LD (HL),C ; спасти содержимое байта LD (IX+0),A ; занести туда номер страницы DEC HL DJNZ V_R11 ; исключить из таблицы не найденные страницы PUSH AF LD A,61 LD (IY+119),A 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 ; страница реально существует ; такой страницы по жизни HET !!! 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+119) ; -1 доступная страница POP DE DEC DE V_R22 INC DE JR V_R20 ; восстанавливаем содержимое байт (#C000) на страницах V_R30 LD B,64 LD HL,DOOM V_R31 LD A,64 SUB B ; NN стр. 0,1,2,3,4...62,63 CALL EX_RAM LD A,(HL) LD (IX+0),A ; спасти содержимое байта INC HL DJNZ V_R31 RET ; "выдирка" из таблицы страниц заданной страницы ; на входе: ; C - N страницы ; DE - конец таблицы (метка #FF) ; на выходе: ; DE - конец таблицы (возможно, уже новый) DEBUG PUSH DE POP HL NO_PG1 DEC DE LD A,(DE) CP #FF JR Z,NO_PG2 ; HE найдена удаляемая страница!!! CP C JR NZ,NO_PG1 ;DE - на номере удаляемой страницы ;HL - на метке конца таблицы (#FF) SBC HL,DE PUSH HL POP BC PUSH DE POP HL INC HL LDIR DEC (IY+119) ; -1 доступная страница DEC HL DEC HL NO_PG2 EX DE,HL RET ; программа переключения страниц для различных типов машин ONPAGE PUSH BC ; A - логический номер страницы PUSH HL LD C,A LD B,#00 LD HL,TABL_PG ADD HL,BC LD A,(HL) ; физический номер страницы POP HL POP BC EX_RAM DI ; A - физический номер страницы PUSH HL PUSH AF PUSH BC BIT 1,(IY+118) JR NZ,ZS256 ; SCORPION (#1FFD) BIT 2,(IY+118) JR NZ,PROFI ; PROFI (#DFFD) BIT 3,(IY+118) JR NZ,TURBO_2 ; TURBO 2+ (#FFF7) BIT 4,(IY+118) JR NZ,ATM1 ; ATM TURBO (#FDFD) BIT 0,(IY+118) JR NZ,SPECCY ; SPECTRUM 128K-512K (#7FFD) BIT 7,(IY+118) JR NZ,SPECCY ; SCORPION 128K (#7FFD) JR TDK ; для TURBO 2+ (поддерживает 128K-1024K) TURBO_2 PUSH AF PUSH IX AND %00011000 CPL LD BC,#FFF7 CALL OUTC_A POP IX POP AF JP SPECCY ; ATM TURBO V4.10 - 5.20 (поддерживает 256K - 512K) ATM1 LD BC,#FDFD PUSH AF RRCA RRCA RRCA AND %00000011 JR HOME ; для PROFI (поддерживает 256K-1024K) PROFI LD BC,#DFFD PUSH AF RRCA RRCA RRCA AND %00000111 JR HOME ; для SCORPION или KAY (поддерживает 512K-1024K нестандартно) 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 NOP POP AF ; для SPECTRUM 128K (поддерживает 256K-512K нестандартно!) SPECCY LD B,A AND %00011000 RLCA RLCA RLCA LD C,A LD A,B AND %00000111 ADD A,C OR #10 ; ROM 48 LD BC,#7FFD OUT (C),A NOP TDK POP BC POP AF POP HL RET OUTC_A LD IX,#2A53 PUSH IX JP #3D2F 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,0 Hу вот вроде и вся программа, если что, пишите на мой сете- вой адрес в SpbZXNet (812/03.00). Всего хорошего. Paul Falcon (CREATOR) SPbZXNet: 812/03.00 . =============== тут мы кончим файл "OnLine76.C" ================ С уважением, Felix. [I.ZX] -+- Lara_Croft_v4.50 + Origin: LDIR - хорошо, а LDI - лучше! (500:812/5.9) 27 С уважением, Max Melnikov... aka HighLander... aka Дядька Максимка... ··----*<[_ProDiGy_]>*<[/*LImp BiZkiT*/]>*<[/*_MetaLlicA_*/]>*<[BeeR]>*----·· ··----*<[/*_UnrEAl TouRNameNt_*/]>*<[/*MW 4*/]>*<[*GirlS*]>*<[_КиШ_]>*----··

Hello, All! Как протестить cache на наличие в нём Real Commander'a? <<< WBR, Stormbringer >>> <<< 500:322/67.64 >>> AKA <<< 2:462/162.7 >>> AKA <<< 2:462/167.64 >>> <<< http://cobrasoft.narod.ru >>>

Пусть враги твои, All, умрут без сыновей! народ, не надо здесь филиал spbzxnet.general устраивать. WBR, Moderator.