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

Приветствую тебя, All!


Хочется вставить сабж в свою софтину.
Следующий код вроде верен, и даже запускает, но сам "ис"
начинает глючить.

=== Cut ===

org 24576

ld hl,BUFF1024 ;таб.разделов
ld c,#26 ;читать таблицу
push hl
rst 8 : db #81
pop hl
ret c ;ошибка - выход
ld b,e ;b = к-во разделов

FIND ld a,(hl)
cp 3 ;is-dos раздел?
jr nz,SKIP

push bc : push hl
ld e,10 ;смещение
add hl,de ;нашли имя раздела
ex de,hl
ld c,#23 ;подкл. раздела
ld a,15 ;%1111 - name,?!,D
rst 8 : db #81
jr c,INIT ;была ошибка?

ld hl,BUFF512
ld de,1 ;с первого сектора
ld b,1 ;один сектор
ld c,#24 ;прямое читение
rst 8 : db #81

INIT pop hl : pop bc
ret c ;ошибка - возврат
ld a,(BUFF512)
cp 24 ;запускаемый?-"jr$"
jr z,RUN

SKIP ld de,16 ;смещение
add hl,de ;нашли след. раздел
djnz FIND
ret ;нэту.

RUN ld hl,BUFF512

BUFF512
ds 512
; JR...

BUFF1024
ds 1024

=== Cut ===

Что же еще требуется для безглючного сабжа?


Счастливо. Михаил.

Пусть враги твои, Mihail, умрут без сыновей!

Thu 24 Feb 2000 at 20:10, Mihail Zharov ═> All:

MZ> Хочется вставить сабж в свою софтину.
MZ> Следующий код вроде верен, и даже запускает, но сам "ис"
MZ> начинает глючить.

[censored]

MZ> Что же еще требуется для безглючного сабжа?

где-то в конце нижеприведённой хрени есть загрузчик. весьма успешно грузит.

── { Begin } ─────────────────────────────────────────── { Rhddscon.a } ──
ORG #5E00
L2 EQU #2
L8 EQU #8
L12 EQU #12
L20 EQU #20
LFE EQU #FE
L100 EQU #100
L10D EQU #10D
L10E EQU #10E
L144 EQU #144
L1FFD EQU #1FFD
L5C00 EQU #5C00
L5C3A EQU #5C3A

LD C,#43
L5E01 EQU $-#1
RST #10
RET C
RET NZ
EXX
LD DE,L6003
PUSH DE
LD BC,L8
L5E0D LD A,(HL)
CP #20
JR Z,L5E1B
CP #D
JR Z,L5E1B
LDI
JP PE,L5E0D
L5E1B BIT 2,C
JR Z,L5E26
L5E1F LD HL,L5F04
LD C,#4
LDIR
L5E26 POP HL
XOR A
LD C,#50
RST #10
JR C,L5E61
L5E2D LD C,#34
RST #10
L5E30 JR C,L5E61
L5E32 PUSH HL
EXX
POP DE
LD BC,L20
L5E37 EQU $-#1
LDIR
LD A,(L600E)
BIT 6,A
LD HL,L5F1A
JR Z,L5E65
LD DE,L2
LD IX,L5F04
XOR A
LD L,A
LD H,A
LD C,#29
RST #10
LD HL,L5F2D
INC (IX+#0)
JR NZ,L5E65
DEC (IX+#1)
JR NZ,L5E65
CALL L5E90
L5E61 LD C,#41
RST #10
RET

L5E65 PUSH HL
LD HL,L6003
LD DE,L5F0D
L5E6A EQU $-#2
LD C,#4F
RST #10
; EX DE,HL
LD HL,L100
LD C,#C
RST #10
; EX DE,HL
LD HL,L5F08 ;!
LD C,#6C
RST #10
POP HL
RST #10
LD C,#8
RST #10
DEC C
RST #10
OR #FF
JR L5E61

L5E85 LD A,#D
LD (L5F08),A
POP HL
LD HL,L5F3B
JR L5E65

L5E90 LD C,#10
RST #10
EXX
LD DE,LFFF8
ADD HL,DE
LD E,(HL)
INC HL
LD D,(HL)
LD (L5EDE),DE
LD C,#13
RST #10
INC C
RST #10
RET C
EXX
LD BC,#0010
ADD HL,BC
LD A,#AD
CPI
JR NZ,L5E85
LD A,#DE
CP (HL)
JR NZ,L5E85
LD DE,0
LD HL,L6023
LD BC,L10D
RST #10
RET C
LD HL,L6003
LD DE,L6043
XOR A
LD BC,L20
L5ECA XOR (HL)
LDI
JP PE,L5ECA
LD (L603E),A
LD HL,L5F63
LD DE,L6073
LD C,L6003-L5F63
LDIR
LD HL,0
L5EDE EQU $-#2
LD (L603F),HL
LD C,#45
RST #10
EXX
DEC HL
DEC HL
LD B,(HL)
DEC HL
LD C,(HL)
LD (L6041),BC
LD HL,L6024
LD (HL),#4E
DEC HL
LD (HL),#18
LD DE,0
LD BC,L10E
RST #10
RET C
LD C,#1
RST #10
RET

L5F04 DEFM "_dos"
L5F08 DEFM "File "
L5F0D DEFM " "
; DEFB #20
DEFB #0D ;!
L5F1A DEFM " isn't contiguous!"
DEFB #0D
L5F2D DEFM " isn't valid!"
DEFB #0D
L5F3B DEFM "Did't you knew what is HARD DISK DRIVE?"
DEFB #0D

L5F63 LD DE,#5E01
LD B,E
LDIR
JP #5E5A
LD BC,L1FFD
XOR A
OUT (C),A
LD B,#7F
LD A,#10
OUT (C),A
LD A,(L5E37)
LD I,A
LD HL,(L5E2D)
LD DE,(L5E32)
LD A,(L5E30)
SRL D
RR E
INC DE
JR NC,L5F90
DEC H
INC A
L5F90 SRL A
ADC A,#0
LD B,A
LD C,#24
RST #8
ADD A,C
DI
JR NC,L5FA1
L5F9C OUT (LFE),A
DEC A
JR L5F9C
L5FA1 LD HL,(L5E2D)
LD A,(HL)
INC A
JR NZ,L5F9C
INC HL
LD A,#1
SUB (HL)
JR NZ,L5F9C
INC HL
LD IY,L5C3A
LD DE,L5C00
LD BC,L144
LDIR
IM 2
EI

LD C,#73
RST #10

LD C,#10
RST #10
EXX
DEC HL
LD B,(HL)
DEC HL
DEC HL
DEC HL
DEC HL
DEC HL
LD A,(HL)
LD C,#0
RST #10
LD C,#1C
RST #10
JR C,L6000
LD C,#0F
RST #10
JR C,L6000

LD C,#20
RST #10
LD C,#93
JR NC,L6002
L6000 LD C,#84
L6002 RST #10

L6003 DEFM " swp"

L600E EQU $
L6023 EQU L6003+#20
L6024 EQU L6003+#21
L603E EQU L6003+#3B
L603F EQU L6003+#3C
L6041 EQU L6003+#3E
L6043 EQU L6003+#40
L6073 EQU L6003+#70
LFFF8 EQU #FFF8
── { End } ───────────────────────────────────────────── { Rhddscon.a } ──

[ WBR, Oleg. ]
[ 13:53 26 February XXXV A.S. ]

Hello, Sergey!

Mon 06-Mar-2000 16:30, ты (500:8462/1) написал(а) письмо мне:

SZ>>> Я пробовал пользоваться ZHDD + Run_Me! Hо после каждой
SZ>>> загрузки с винта IsDOS через некоторое время работы запарывался.

VL>> Каким именно обpазом?
SZ> Выдает сообщение об ошибке 87,9,7,86 и т.п. Т.е. что раздел iS-DOS на
SZ> винте похерился. А как? Я ничего особенного не делал - читал help'ы
SZ> копировал файлы с винта на RAM и т.д.
_____^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^___ вот оно. Hакойхеp(с)?

А pамдиск у тебя, конечно, скоpповский, на всю память (832 блока), да?
Копиpуешь кучу файлов в pам, затиpаешь восьмую банку, винч умиpает.

Попpобуй еще pаз, но без pамдиска, или создавай pамдиск поменьше, на 320 блоков
для начала (пока мы не выяснили каким дpайвеpом pама ты пользуешься и какого
pазмеpа создаешь pамдиск).

VL>> и каким обpазом (а главное - зачем?) можно настpаивать в
VL>> zhdd? Один pаз его загpузил, после чего один pаз pазвесил
SZ> Линковать раздел на винте к какому-нибыдь драйву. zhddserv.com

Hу, один pаз.

VL>> сеpвисом паpтиции по буквам, после чего сохpанил систему и
VL>> подключил ее, это не пpоще?
SZ> Проще. Hо подключение разделов на сохранится. :(

Куда оно, нафиг, денется. Загpузил дpайвеp, pазвесил на него буквы, на буквы
pазвесил паpтиции, сохpанил систему, подключил систему. Усе. Гpузишься как
белый человек с винча, не успеваешь сказать "pаз" как все уже на месте.

Да, не мочишь восьмую банку - не гpохается винч. Все пpосто.


With best wishes, Vladimir.