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


С уважением, Евгений.