IS_DOS *.blk
ZXNet echo conference «code.zx»
From Oleg Grigoriev → To Valeriy Kovalev 17 April 1999
Let your enemies, Valeriy, die without sons!
Sun 11 Apr 1999 at 19:58:41, Valeriy Kovalev => All:
VK> A friend asked me to upload a message, he himself can’t because
VK> he doesn’t have a phone at all:
VK> ───────────────────────────────── ──────────────────────────
VK> Who knows the *.blk driver format for IS-DOS? If possible, then
VK> example on asm'e.
VK> ───────────────────────────────── ──────────────────────────
────[ The file app_04 .t begins here ]───────────────────────
APPENDIX 4. Disk driver body structure (sys_driv.blk)
offset name length comments
0 INSTL 2 Address of the installation procedure (AP) (if 0, then not needed)
2 BREAD 2 AP reading /read(D) /
4 BWRIT 2 AP writes /write(E)/
6 BINIT 2 AP initialization /binit(F)/
8 SCCSR 1 Status Register
9 DRCSR 1 status register (see APPENDIX 6.)
10 OFIM2 2 Offset from the beginning of the driver to the IM2 code (if 0,
then upon exit IM 2 is not forcibly installed)
12 TPSYS 1 TR-DOS type (0: 5.01, 1: 5.03, 5.04T, etc.)
13 QRDWR 1 Number of read/write attempts
14 TMBUF 2 Driver buffer address (1Kb)
20 2 Number of the current sector in the driver buffer30 1 Drive type. Bits(0/1): 0 - 40/80 tracks, 1 - 1/2
sides
31 TMWT 1 Sector reading start delay
32 HTIME 1 Drive head movement time
33 1 Disc type. Beats(0/1): 0 - 40/80 tracks, 1 - 1/2 sides
34 1 Sector size: 1/2/4: 256/512/1024 bytes
35 1 Number of sectors per track
36 16 Sector number table
.
────[ The file app_04 .t ends here ]────────────────────────
────[ The file app_06 .t begins here ]───────────────────────
APPENDIX 6. Block device vector structure
(BU) / g_bldv(#13) DOS.SYS /
offset name length comment
-10 CRBLK 1 Channel number of the current control unit
-9 BREAD 3 Go to the reading procedure (PP) /dread(#D)/
-6 BWRIT 3 PP writes /write(#E)/
-3 BINIT 3 initialization PP /binit(#F)/
0 SCCSR 1 Status Register. Bits 0/1
0..3 - cache device number
3 - driver without/with buffer
4 - auto-flush when recording (1)
5 - read prohibition/enable for RST
6 - prohibit/enable recording for RST
7 - past the cache / through it
1 DRCSR 1 Status Register. Bits 0/1:0 - request for an address in QVST when accessing a device
(APPENDIX 3
1 - auto-flush flag (reset by user)
2 - TRDOS/no
7 - do not/handle errors (erdrv(#1F))
2 6 (see APPENDIX 4.)
.
────[The file app_06 .t ends here]────────────────────────
────[ Rhdd .a file starts here ]───────────────────────
;Rhdd.blk
;(r) MK '1997
;(c) Ruiner '1998
;16-04-98 at 08:49:26
;------------------------------------------------------------;
CONST EQU #23
ORG #BEAF
DEFW INSTL
DEFW BREAD
DEFW BWRIT
DEFW BINIT
DEFB #E0
DEFB #04
DEFW #0000
DEFW #0000
DEFW #0000
DEFW #0000
DEFW #BEAF ;signature
TABLE DEFS #0048
;----------------------------;
BREAD LD C,#24
JR$+#04
BWRIT LD C,#25
LD (FOR_SP+#01),SP
CALL TST_BR
SRL D
RR E
INC DE
JR NC,HDD000
LD A,#01
CALL RS_BLK
DEC B
RET Z
INC H
INC DE
HDD000 SRL B
JR Z,HDD001
PUSH AF
PUSH BC
RST #08
DEFB #81
EI
JR C,ERROR7
POP B.C. POP AF
HDD001 RET NC
XOR A
;----------------------;
RS_BLK
;IN: [HL] - ADDR
; [DE] - NUMB OF BLOCK
; [C] - COMMAND: #24 - READ, #25 - WRITE
; [A] - NUMBER OF HALF
;--------;
PUSH HL
PUSH DE
PUSH BC
PUSH DE
PUSH BC
PUSH AF
PUSH BC
PUSH HL
BLK_NM LD HL,#FFFF
AND A
SBC HL,DE
LD HL,BUFFER
JR Z,RS_BL0
LD (BLK_NM+#01),DE
LD BC,#0124
RST #08
DEFB #81
EI
JR C,ERROR7
DEC H
DEC H
RS_BL0 POP DE
POP BC
POP AF
ADD A,H
LD H,A
BIT 0,C
JR Z,$+#03
EX DE,HL
LD BC,#0100
LDIR
POP BC
POP DE
BIT 0,C
JR Z,RS_BL1
LD B,#01
LD HL,BUFFER
RST #08
DEFB #81
EI
JR C,ERROR7
RS_BL1 POP BC
POP DE
POP HL
BINIT XOR A
RET
;-----------------------------;
TST_BR CALL #1F54
RET C
LD A,#14 ;BREAK
FOR_SP LD SP,#DEAD
SCF
RET
;----------------------;
ERROR7 LD A,#07 ;R/W ERROR
JR FOR_SP
;--------------------------------------------;
INSTL CP #08
RET NC
LD HL,TABL
LD C,A
ADD A,A
ADD A,A
ADD A,A
ADD A,C
LD C,A
LD B,#0
ADD HL,BC
LD A,(HL)
AND #1F
CP #03
LD A,CONST
EX DE,HL
LD HL,#FFFF
LD (BLK_NM+#01),HL
JR NZ,LBFCF
LD C,#23
RST #08
DEFB #81
EI
RET NC
LBFCF LD A,#9
SCF
RET
SMUC IDE Driver V1.0 Beta
DEFM "based on the original version by MK(r).
DEFM "Written by Ruiner.
DEFM " 16-04-98 at 07:47:4
L_END EQ$-BUFFER
DEFS #0200-L_END
. . . .
────[ Copyright © 2010 Rhdd .a ]────────────────────────
────[ Prerequisites for ed_gmx0 .a ]───────────────────────
;21-01-9
;ed_gmx0.blk
;(c)Ruin
;Last edit: 23-04-9
;
ORG #8000
;--------------------------------------------;
DEFW #0000 ;п/п п“””
DEFW LOAD ;and/or load
DEFW SAVE ;and/on the phone
DEFW INIC ;I/It doesn't matter
DEFB %11111000 ;
DEFB %00000110
;--------------------------------------------;LOAD XOR A
JR $+#04
;--------------------------------------------;
SAVE LD A,#EB
LD (LLLL),A
LD (MMMM),A
;--------------------------------------------;
LD A,H
ADD A,B
JR Z,E_EXIT
CP #C0
JR C,$+#06
E_EXIT LD A,#07
SCF
RET
;----------------;
SLA E
RL D
SLA E
RL D
LD (LLL2+#01),HL ;D-BANK,HL=DEST
LD A,E
RRCA
RRCA
ADD A,#C0
LD H,A
MOVE XOR TO
LD L,A ;HL=left
SUB H ;you're a snowman and you're a snowman
LD C,A ;small scale
LD A,B ;small snowflakes
SUB C
JR Z,LL1
JR C,LL2
LL3 LD B,A
JR LLL
;--------------------------------------------;
LL2 LD C,B
LL1 XOR A
JR LL3
;--------------------------------------------;
LLL DI ;B=left,C=left
LD A,D
ADD A,#09
EXX
LD D,A
LD E,A
LD BC,#7FFD
AND #07
OR #1
OUT (C),A
LD B,#1F
LD A,D
AND #08
RLCA
OUT (C),A
LD A,E
LD B,#DF
RLCARLCA
RLCA
RLCA
AND #07
OUT (C),A
EXX ;B=cockroach,C=cockroach
LD A,D
EX AF,AF'
LD A,B
LLL2 LD DE,#0000 ;DE=L
LD B,C
LD C,#00
LLLL DEFB #00
LDI
LDI
LDI
LDI
LDI
LDI
LDI
LDI
LDI
LDI
LDI
LDI
LDI
LDI
LDI
LDI
JP PE,$-#2
AND A
JR Z,MOVE1
LD B,A
EX AF,AF'
LD C,A
LD A,#0
MMMM EQU $-#01
AND A
JR NZ,$+#04
LD H,D
LD L,E
LD ( LLL2 + # 01 ), HL ; HL = SOURCE
LD D,C
INC D
LD H,#C0
JR MOVE
;--------------------------------------------;
MOVE1 EX AF,AF'
INIC LD BC,#7FFD
LD A,#1
OUT (C),A
XOR A
LD B,#1F
OUT (C),A
LD B,#DF
OUT (C),A
EI
RET
. . . .
────[ Prerequisites for ed_gmx0 .a ]────────────────────────
VK> Noun or squirrel : snowflake, snowflake, snowflake
VK> Small - Small. Transportation of South AfricaVK> under is-dos (in accordance with the recommendations in ZF) -
VK> works, but is very buggy.
Description of the structure, screw driver via MOA and ramdisk driver. Enough is enough
I hope? I can also give you the “correct” screw driver, if necessary, please.
Yes, he compiles, I hope, in a meticulous manner? :)
WBR, Oleg.
From Michael Kondratyev → To Oleg Grigoriev 25 April 1999
Hi Oleg!
Sat Apr 17 1999 01:36 you wrote to Valeriy Kovalev:
OG> ────[ Здесь начинается файл Rhdd .a ]───────────────────────
OG> ────[ Здесь начинается файл ed_gmx0 .a ]───────────────────────
already obsoleted both ;)
section 1 of file zhdd_14.zip
filetime 647366784
begin 644 zhdd_14.zip
M4$L#!!0````(`(`(EB8$"^`#9P$``!$$```)````6FAD9%T+B1#BI(28DW
M45!P7K]/E)F!99)NXW[>_0+[*_<_8&&`@O7[E/M]K.>4!$^;:'!_O5XV+EX7UC]>O7HUZ-/%?__
MW_XV2'=?@V^M%.^QE5&$$*E%55+Q[^+0E_;2C!N-K1@;&MQL>'KRHP<$&
MEF65/OAP_4D[=L.U]T[^X[B@>'A?G/*^$^7M[>UM_FP,G,IUS^3_,5>_!AJM
MY+1?@8U/&:CI@AVG^4E>+H5@WU!G!475X64HLRRU"(%A3)#/1,%QYR"C$1>
M+HUD305#2TM+!5]OH%(%A:3$XM04A?PA?RBS/3,O,0BD)R?E%1:G)):HI^?D%)9FYF%5`KR`:@TJ#2S#P@"V2NJ4%
M+Q?#JE$P$.#__W7[-NS;M&_+/JG]:OO=]_ON;]D_?S^UDO``!02P,$%```
M``@`@`B6)BJO4:W@!```%0P```@```!::&1D+DTX,(U66U,B1Q1^;JKX#R=;
MKD!$,WC)(FO)XH(5:KVDU"2/U$Q/X_0Z3+/=`ZB_/J=ORP6T(+[
MZ[^^PG0@=@JP[IW<`RC=)F$K8IHN2/%?F$Z]'5=')S>6_V
MI[B_N)N,OMGKP!"M123:TY9"]9ANM((=RH/^K/QK57K]Y)F8V[WTBW_V2!3;8A9G.>1PSH4PLUR+4UX&5T]?PS2UE2%#VH5A
MI"/ERS2%3T;TG.[CC9,#+K-"9:CIJ,I(JYLP@/]Z`]C$`E*?0[6`DOE,5\n
M7EM(E9.^7L01*:(U$KR:YU08WXO&.ERD&*31"$X'&^*@M=.%L'WKG-7-ZB='UC,;IU)@T7>@_A]G&X2]
M@[+WGD-;0$$E-.$<=MD0N[6TY6&4LG(LLL9>UIZ%9'>41=Z
MM:;XC`.),.S%B@<<2$SH8OTJ?9WUSF#^+/Y$65L2N9DMA$(8EI:9Y1=+>.
M^,)8*'QDPX10YY1D(F-OB.$*O9H5JYK[:GNL^G-_,BT_=].'
M2;&;WDP?7$3!)$CQB"`8IDX,$O)D9JA0R)-ZEXY'AK"1I%3+'[OYY67/%Y,@$.
M2JJP9.4%GX]&*&+"WI+92)-'S4?!<^_RY-A=AUVPQ&FNJ640EA-JI@;.C%![
M-E-Y2)75!+T(U2K[16^BY)AK:^?&%KEI7@/8VC88QIA=V7LIG<@.TV1DGD
M+;[ZQDBJ'6+Q!K:'(F?H5=O)0V[2N5RIA(3:3KO.EGTB<_$;([2IE*H()9&
MWD(,K/6,VJ>6D&F3M=L:2RT%DLK`U,:N,BR2YDE^ZM)")IZOY(?-1=,'%&
M^"0%7:#5V,=K`*CZ.%1?8O
MK8W^)UM)9%UJ0$9;)G2#AC>&11]9=K-U+^$&OA)G-XV&V[6R%9;J"4&.<;A
M3RH8COU,@]*E??9]-]>[!/D)_!<&IK"=I)UBWE*G[@^+:=1=@V>N-*YB/[/V
M2)9_PC*W@1.-^.2@&VU0KEU/C7D[[5OCAY(3WB'L0WL'
M_S@'O4P8)A6Z)_8[PBSQK-GX%U!+`P04````"`"`")8FEL5:&H"```1!```
M"P```%IH9&1397)V+B1#U5#12Q-Q'/^=V[.<[13TC]7X=R%0"629CZKFF
MS0IRH)00);O;;O-*-MNF9>+`7GQ=+_T!!3T(-7VQGHR)%D-*L.*XAUP8Q&,
M>^FE*)C=V?;0G]#G!Y_?A^_OQ^?W^WQNS(;#4W)B<10$O19@76$I6M48&_"U
MS?#7^33T1O5)=S-CQ?1):]_OC-M:QOLLPL,!51X4TKSKC@-':S"VY);1(;4IX0HXPU!(7K^U<@2H.OG64+-X)B&(K4
MH`D<^6OO;]:1:,&&4CB*6%#,BB8(Y"`PW
M&*,!(MEU!"5)J*%$E8JJ%*'6JUGA>YY/OX0KDO,+UD)D,ZY>477W:KP!,R+6
M"$IDNISE6OD7989CC/&90;%D
From Oleg Dokukin → To Oleg Grigoriev 7 May 1999
Hello Oleg!
once 05-05-99 at exactly 22:04:02
Oleg Grigoriev wrote to Igor Krauklis about IS_DOS *.blk...
Well, okay, since we're going to fix the bugs... it's time to post ours.
the strange Isdos system + the strange GMX piece of hardware together give a very
strange results.
1 not moa drizher neither yours + moa don’t work at all.
moa sees the mounted drive tr dosa, but when trying to change
copy brazenly breaks me off with screams egggog 87
yours + moa - actually some kind of pathology, not only does he see
mounted disk (and not always) only during initialization
(when repeated, it always goes to the drive) so when it sees
Mounted, when I try to copy it also screams 87 eggog
besides, they both completely ignore drive B:
2 or I don’t understand something about installing disk frames (although
A regular Scorpov frame disk installs normally)
or some serious glitches somewhere.
your version doesn’t work, I don’t remember the video effects with which
it flies away, but the fact remains a fact.
Michael Kondratiev's version doesn't work either (stuff effect
I remember - when we tried to switch to ram_gmh, we fearlessly fell out
in BASIC 48 with an open GMH screen)
that's how things are.....