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

Привет, WoWaN! 14 Авг 01 19:10, WoWaN Nickolaev -> All: WN> Есть у кого драйвер рамдиска для Пента-512 в сырцах ? При "да" :) Под что ? Под ISDOS вот (выбор банок по DB, а не расчёт для того, чтобы делать несколько разных дисков, и чтобы при желании не занимать 00-07 банки): ORG #A4E2 DEFW #0000 ;без инсталляции MEM1 EQU $-1 DEFW dread MEM2 EQU $-1 DEFW write MEM3 EQU $-1 DEFW binit ;для dread и write: ;hl - адрес в памяти ;de - номер нач. блока на диске ;b - кол-во блоков DEFB #E0,#04 DEFB #00,#00 DEFB #00,#00 DEFB #00,#00 ;таблица очередности заполнения страниц ptable DEFB #D0,#D1,#D2,#D3,#D4,#D5,#D6,#D7 DEFB #90,#91,#92,#93,#94,#95,#96,#97 DEFB #40,#41,#42,#43,#44,#45,#46,#47 DEFB #07,#06,#04,#03,#01,#00 dread XOR A JR LLA504 write LD A,#EB LLA504 LD (LLA54B),A LLA507 LD (LLA54E),A LD A,H ADD A,B JR C,LLA514 ADD A,#40 JR NZ,LLA514 DEC A ADD A,L LLA514 LD A,#07 RET C JR LLA55A LLA519 LD A,E OR #C0 PUSH AF NEG LD C,B CP B JR NC,LLA524 LD C,A LLA524 LD A,B SUB C LD B,#00 EX DE,HL PUSH HL ADD HL,BC EX (SP),HL ADD HL,HL ADD HL,HL LD L,H LD H,B LD B,A PUSH BC LLA532 LD BC,ptable ADD HL,BC POP BC LD A,(HL) POP HL EX (SP),HL PUSH BC LD B,C LD C,#00 LD L,C DI L1 EQU $+1 LD (L2),BC LD BC,#7FFD OUT (C),A L2 EQU $+1 LD BC,0 LLA54B EX DE,HL LDIR LLA54E EX DE,HL LD A,#10 LD BC,#7FFD OUT (C),A EI EX DE,HL POP BC POP DE LLA55A INC B DJNZ LLA519 binit XOR A RET DEFW #FFFF DEFW MEM1,MEM2,MEM3 DEFW LLA504 DEFW LLA507 DEFW LLA532 DEFW L1 С уважением, Евгений.