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


тема: блочникъ



от: Oleg Grigoriev
кому: All
дата: 24 Apr 1999

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

Вот, сабжъ. Глядишь, кому пригодится.
Даже с сорняком. :)

────[ Здесь начинается файл moa_driv.a ]───────────────────────
;moa_driv.blk
;Disk driver with MOA-trdos support.
;(c) Oleg Grigoriev AKA Ruiner AKA #0R.
;Warning: Only for Scorpion with HDD!
;Warning: No check's!
;Version 1.00
;Complete: 100%
;Creating date: 27-10-98
;last edit: 24-04-1999
;************************************************************;

ORG #8000

DEFW INST
DEFW READ
DEFW WRIT
DEFW INIT
DEFB %11101000 ;SCCSR
DRCSR DEFB %10000000 ;DRCSR
DEFW #0000
DEFW #0101
DEFW BUFFER

DEFB #00,#00,#00,#00
DEFW #0000
DEFB #00,#00,#00,#00,#00,#00,#00,#00
DEFB #83
DEFB #00
DEFB #00
DEFB #00
DEFB #00
DEFB #00
DEFB #00,#00,#00,#00,#00,#00,#00,#00
DEFB #00,#00,#00,#00,#00,#00,#00,#00

;***************************************
;
INST CP #08
RET NC
LD (SEADR+#01),A

CALL SEADR

INST2 LD HL,#FFFF
LD (BLKNM+#01),HL
XOR A
RET

;***************************************
;
INIT CALL SEADR

LD HL,BUFFER
LD DE,#0001
LD BC,#0124
RST #08
DEFB #81

INIT1 LD HL,(BUFFER+#0B)
LD DE,"SK"
LD A,(BUFFER+#0A)
SUB "D"
LD A,#09
JR NZ,INIT2
SBC HL,DE
RET Z

INIT2 SCF
RET

;***************************************
;
SEADR LD A,#00
AND #03
LD H,A
OR #80
LD C,#23
RST #08
DEFB #81
RET NC

LD A,(DRCSR)
ADD A,A
JR NC,SEADR

LD A,#06
LD BC,#021F
RST #10
CP "R"
JR Z,SEADR

POP AF
LD A,#06
SCF
RET

;************************************************************;
;IN: HL =ADDR;DE =BLK;B =QUAN
;

READ LD C,#24
JR $+#04
WRIT LD C,#25

SRL D
RR E
INC DE
JR NC,HDD1

XOR A
INC A
CALL HDDRB
INC DE
INC H
DEC B
RET Z

HDD1 SRL B
JR Z,HDD2
PUSH AF
PUSH BC
RST #08
DEFB #81
POP BC
POP AF

HDD2 RET NC
XOR A

;-----------------------------
;IN: [A]=HLF
;
HDDRB PUSH AF
PUSH HL
PUSH BC

PUSH BC
PUSH DE

PUSH AF
PUSH BC
PUSH HL

BLKNM LD HL,#0000
OR A
SBC HL,DE
LD HL,BUFFER
JR Z,HDDRB1
LD (BLKNM+#01),DE
LD BC,#0124
RST #08
DEFB #81
DEC H
DEC H

HDDRB1 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 DE
POP BC
JR Z,HDDRB2
LD B,#01
LD HL,BUFFER
RST #08
DEFB #81
DEC DE

HDDRB2 POP BC
POP HL
POP AF
RET

;***************************************
BUFFER DEFS #0200
.
────[ Здесь кончается файл moa_driv.a ]────────────────────────

────[ Здесь начинается файл moa_driv.u ]───────────────────────
section 1 of 1 of file moa_driv.blk < iS-UUE 1.00 by MK >

begin 644 moa_driv.blk
M-("(@(R`18#H@````0'G@```````````````````@P``````````````````
M`````````/X(T#)H@,UG@"'__R*S@*_)S6>`(>>`$0$``20!SX$JH`14TLZ
M8#61#X)(`/M4L@WR3X`Y@-G]H`.(^!T#H)@( MR0XD&`(.) M`+?M4B'G@"@+[5.S@`$D`<^!)271P?&$9M!*`'K`0`![;#1P2@(!@$AYX#/
M@1O!X?')````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M``````````````````````````````#___]_`8`#@`6`#8`W@#J`0(!%@$B`
.4X!9@'.`EX"X@+Z`W8"`
`
end
sum -r/size 45905/1105 section (from "begin" to "end")
sum -r/size 63686/779 entire input file
.
────[ Здесь кончается файл moa_driv.u ]────────────────────────

WBR, Oleg.




Темы: Игры, Программное обеспечение, Пресса, Аппаратное обеспечение, Сеть, Демосцена, Люди, Программирование

Похожие статьи:
Zoom - интервью с Baze/3sc.
Система - Обзор нового системных программ: ALASM v4.1, STORM v1.1 , BEST VIEW v2.2.
Speccy - Спектрум мертв. Сцены больше нет!
Paradox - Рассказ о втором дне.
ПИСЬМА В РЕДАКЦИЮ

В этот день...   29 марта