mirror of
https://github.com/Tolik-Trek/Estex-DSS.git
synced 2026-06-15 17:31:47 +03:00
небольшие оптимизации
This commit is contained in:
Anatoliy Belyanskiy
parent
35e9b7b9fe
commit
8965dee742
613
DSS/RAM_DRV0.ASM
613
DSS/RAM_DRV0.ASM
@ -1,613 +0,0 @@
|
||||
;
|
||||
; SYSPAGE EQU #FE
|
||||
; SLOT1 EQU #A2
|
||||
; SLOT2 EQU #C2
|
||||
; SLOT3 EQU #E2
|
||||
|
||||
; ORG #3CDB
|
||||
; Disk Driver Specification ver. 2.20
|
||||
;[]===========================================================[ 0]
|
||||
;Procedure : Initialization
|
||||
;
|
||||
;Function : Initialization device(s)
|
||||
;
|
||||
;Input : C = 00h
|
||||
; IX - Environment
|
||||
;Output : A = Amount drive support
|
||||
; HL = Size driver
|
||||
;[]===========================================================[ 0]
|
||||
|
||||
|
||||
;[]===========================================================[ 1]
|
||||
;Procedure : Open
|
||||
;
|
||||
;Function : Open disk
|
||||
;
|
||||
;Input : C = 01h
|
||||
; A - Drive
|
||||
;Output : None
|
||||
;
|
||||
;[]===========================================================[ 1]
|
||||
|
||||
|
||||
;[]===========================================================[ 2]
|
||||
;Procedure : Close
|
||||
;
|
||||
;Function : Close disk
|
||||
;
|
||||
;Input : C = 02h
|
||||
; A - Drive
|
||||
;Output : None
|
||||
;
|
||||
;[]===========================================================[ 2]
|
||||
|
||||
|
||||
;[]===========================================================[ 3]
|
||||
;!TODO
|
||||
;Procedure : Media check
|
||||
;
|
||||
;Function : Checking change line
|
||||
;
|
||||
;Input : C = 03h
|
||||
; A - Drive
|
||||
;Output : A = 00h disk no changed
|
||||
; A = 0FFh disk changed
|
||||
;
|
||||
;[]===========================================================[ 3]
|
||||
|
||||
|
||||
;[]===========================================================[ 4]
|
||||
;Procedure : Get BPB
|
||||
;
|
||||
;Function : Get Block Parameters BIOS
|
||||
;
|
||||
;Input : C = 04h
|
||||
; DE - Address
|
||||
;Output : None
|
||||
;
|
||||
;[]===========================================================[ 4]
|
||||
|
||||
|
||||
;[]===========================================================[ 5]
|
||||
;Procedure : Input
|
||||
;
|
||||
;Function : Input from disk
|
||||
;
|
||||
;Input : C = 05h
|
||||
; HL:IX - Logical Block (sector)
|
||||
; DE - Address
|
||||
; B - Sector count
|
||||
;Output : None
|
||||
;
|
||||
;[]===========================================================[ 5]
|
||||
|
||||
|
||||
;[]===========================================================[ 6]
|
||||
;Procedure : Output
|
||||
;
|
||||
;Function : Output to disk
|
||||
;
|
||||
;Input : C = 06h
|
||||
; HL:IX - Logical Block (sector)
|
||||
; DE - Address
|
||||
; B - Sector count
|
||||
;Output : None
|
||||
;
|
||||
;[]===========================================================[ 6]
|
||||
|
||||
|
||||
;[]===========================================================[ 7]
|
||||
;!TODO
|
||||
;Procedure : Removable
|
||||
;
|
||||
;Function : Checking change line
|
||||
;
|
||||
;Input : C = 07h
|
||||
; A - Drive
|
||||
;Output : A = 00h Removable
|
||||
; A = FFh Nonremovable
|
||||
;
|
||||
;[]===========================================================[ 7]
|
||||
|
||||
|
||||
;[]===========================================================[ 8]
|
||||
;Procedure : Generic IOCTL
|
||||
;
|
||||
;Function : Generic Input Output Control
|
||||
;
|
||||
;Input : C = 08h
|
||||
; B - Subcommand
|
||||
; DE = 55AAh Magic Number
|
||||
; Subcommand
|
||||
;----------------------
|
||||
; 00h - Get Device Parameters
|
||||
; 01h - Read track
|
||||
; 02h - Test track
|
||||
; 80h - Set Device Parameters
|
||||
; 81h - Write track
|
||||
; 82h - Format track
|
||||
;Output :
|
||||
;
|
||||
;[]===========================================================[ 8]
|
||||
|
||||
|
||||
;[]===========================================================[ 9]
|
||||
; RESERVED
|
||||
;[]===========================================================[ 9]
|
||||
|
||||
|
||||
;[]===========================================================[ 10]
|
||||
;!TODO
|
||||
;Procedure : Read Long
|
||||
;
|
||||
;Function : Reading sectors from disk
|
||||
;
|
||||
;Input : C = 0Ah
|
||||
; HL:IX - Logical Block (sector)
|
||||
; DE - Address
|
||||
; B - Sector count
|
||||
; A'- Page
|
||||
;Output : A'- Next Page
|
||||
; HL:IX - Next Logical Block (sector)
|
||||
; DE - Next Address
|
||||
;
|
||||
;[]===========================================================[ 10]
|
||||
|
||||
|
||||
;[]===========================================================[ 11]
|
||||
;!TODO
|
||||
;Procedure : Write Long
|
||||
;
|
||||
;Function : Writing sectors to disk
|
||||
;
|
||||
;Input : C = 0Bh
|
||||
; HL:IX - Logical Block (sector)
|
||||
; DE - Address
|
||||
; B - Sector count
|
||||
; A'- Page
|
||||
;Output : A'- Next Page
|
||||
; HL:IX - Next Logical Block (sector)
|
||||
; DE - Next Address
|
||||
;
|
||||
;[]===========================================================[ 11]
|
||||
;
|
||||
; Errors:
|
||||
; 0 (00h) - NO ERRORS
|
||||
; 1 (01h) - BAD COMMAND
|
||||
; 2 (02h) - BAD DRIVE NUMBER
|
||||
; 3 (03h) - UNKNOW FORMAT
|
||||
; 4 (04h) - NOT READY
|
||||
; 5 (05h) - SEEK ERROR
|
||||
; 6 (06h) - SECTOR NOT FOUND
|
||||
; 7 (07h) - CRC ERROR
|
||||
; 8 (08h) - WRITE PROTECT
|
||||
; 9 (09h) - READ ERROR
|
||||
; 10 (0Ah) - WRITE ERROR
|
||||
; 11 (0Bh) - FAILURE
|
||||
; 12 (0Ch) - BUSY (DEVICE OPENED)
|
||||
; 13 (0Dh) - RESERVED
|
||||
|
||||
RMDRIVE:
|
||||
INC C
|
||||
DEC C
|
||||
JP Z,INIT_RD ; 0
|
||||
DEC C
|
||||
JR Z,RESE_RD ; 1
|
||||
DEC C
|
||||
JR Z,STAT_RD ; 2
|
||||
DEC C
|
||||
JR Z,CHEK_RD ; 3
|
||||
DEC C
|
||||
JR Z,GBPB_RD ; 4
|
||||
DEC C
|
||||
JR Z,READR ; 5
|
||||
DEC C
|
||||
JR Z,WRITER ; 6
|
||||
DEC C
|
||||
JR Z,REMOV_R ; 7
|
||||
DEC C
|
||||
JP Z,IOCTL_R ; 8
|
||||
|
||||
; DEC C
|
||||
; JP Z,RESR_H ; 9
|
||||
; DEC C
|
||||
; JP Z,LREADH ; 10
|
||||
; DEC C
|
||||
; JP Z,LWRITEH ; 11
|
||||
.error:
|
||||
LD A,DSS_Error.drv.INVALID_COMMAND
|
||||
SCF
|
||||
RET
|
||||
|
||||
REMOV_R:
|
||||
RESE_RD:
|
||||
STAT_RD:
|
||||
XOR A
|
||||
RET
|
||||
|
||||
;!FIXIT ᤥ« âì ¢ SYS_PAGE ¤«ï à ¬¤¨áª®¢ ¯¥à¥¬¥ë¥ ¨ ¡à âì ®ââ㤠§ 票¥
|
||||
CHEK_RD LD A,#FF
|
||||
AND A
|
||||
RET
|
||||
|
||||
;DE - ADDRESS
|
||||
GBPB_RD LD IX,0
|
||||
LD HL,0
|
||||
LD B,#01
|
||||
;JP READR
|
||||
;READ SECTORS
|
||||
; HL:IX - SECTOR
|
||||
; DE - ADDRESS
|
||||
; B - COUNT
|
||||
; A - DRIVE
|
||||
READR PUSH BC
|
||||
PUSH IX
|
||||
PUSH HL
|
||||
PUSH BC
|
||||
CALL RAMADDR
|
||||
POP BC
|
||||
LD IX,512
|
||||
RAMRLOP PUSH BC
|
||||
PUSH IX
|
||||
CALL LRDSEC
|
||||
POP IX
|
||||
POP BC
|
||||
DJNZ RAMRLOP
|
||||
POP HL
|
||||
POP IX
|
||||
POP BC
|
||||
XOR A
|
||||
CP B
|
||||
LD C,B
|
||||
LD B,A
|
||||
JR Z,DYEP256
|
||||
ADD IX,BC
|
||||
LD C,B
|
||||
ADC HL,BC
|
||||
XOR A
|
||||
RET
|
||||
|
||||
DYEP256 INC B
|
||||
ADD IX,BC
|
||||
LD B,C
|
||||
ADC HL,BC
|
||||
XOR A
|
||||
RET
|
||||
|
||||
|
||||
;WRITE SECTORS
|
||||
; HL:IX - SECTOR
|
||||
; DE - ADDRESS
|
||||
; B - COUNT
|
||||
; A - DRIVE
|
||||
WRITER PUSH BC
|
||||
PUSH IX
|
||||
PUSH HL
|
||||
PUSH BC
|
||||
CALL RAMADDR
|
||||
POP BC
|
||||
LD IX,512
|
||||
RAMWLOP PUSH BC
|
||||
PUSH IX
|
||||
CALL WRDSEC
|
||||
POP IX
|
||||
POP BC
|
||||
DJNZ RAMWLOP
|
||||
POP HL
|
||||
POP IX
|
||||
POP BC
|
||||
XOR A
|
||||
CP B
|
||||
LD C,B
|
||||
LD B,A
|
||||
JR Z,WYEP256
|
||||
ADD IX,BC
|
||||
LD C,B
|
||||
ADC HL,BC
|
||||
XOR A
|
||||
RET
|
||||
|
||||
WYEP256 INC B
|
||||
ADD IX,BC
|
||||
LD B,C
|
||||
ADC HL,BC
|
||||
XOR A
|
||||
RET
|
||||
|
||||
|
||||
INIT_RD:
|
||||
.SectorSize EQU 512 ;!HARDCODE
|
||||
LD HL,.SectorSize
|
||||
LD A,#80
|
||||
.loop: SRL A
|
||||
RR H
|
||||
JR NC,.loop
|
||||
|
||||
LD (S_P_P),A
|
||||
LD BC,#0*256 + BIOS.GET_RAMD_ST ; <20>®«ã票¥ ¨¤¥â¨ä¨ª â®à ¡«®ª , § 祮£® RAM-Disk
|
||||
LD DE,RAMDTBL
|
||||
|
||||
.initLoop:
|
||||
PUSH BC
|
||||
LD A,B
|
||||
PUSH DE
|
||||
RST ToBIOS
|
||||
POP DE
|
||||
OR A
|
||||
JR Z,.noDRV
|
||||
|
||||
LD (DE),A
|
||||
INC DE
|
||||
POP BC
|
||||
LD A,B
|
||||
LD (DE),A
|
||||
INC DE
|
||||
JP 1F
|
||||
|
||||
.noDRV: POP BC
|
||||
1: INC B
|
||||
LD A,RAMDTBL.Size / 2
|
||||
CP B
|
||||
JR NZ,.initLoop
|
||||
|
||||
LD HL,RAMDTBL
|
||||
EX DE,HL
|
||||
AND A
|
||||
SBC HL,DE
|
||||
SRL L
|
||||
LD A,L
|
||||
; LD HL,ENDDRVR
|
||||
AND A
|
||||
RET
|
||||
|
||||
; ’€<E28099>‹ˆ–€ ‘ŽŽ’‚…’‘’‚ˆŸ Œ…†„“ ”ˆ‡ˆ—…‘ŠˆŒ <20>ŽŒ…<C592>ŽŒ <20>€Œ„ˆ‘Š€ ˆ …ƒŽ RAM-DISK ID
|
||||
; DB RAM_DRIVE_ID, RAM_DRIVE_NUMBER
|
||||
RAMDTBL: DUP MAX_RAMDRIVES * 2
|
||||
DB #FF
|
||||
EDUP
|
||||
.Size EQU $-RAMDTBL
|
||||
|
||||
|
||||
; SECTOR / S_P_P = START PAGE
|
||||
; INPUT : HL:IX -SECTOR
|
||||
; OUTPUT: A':HL - ADDRESS
|
||||
RAMADDR LD BC,RAMDTBL
|
||||
|
||||
SLA A
|
||||
|
||||
ADD A,C
|
||||
LD C,A
|
||||
LD A,0
|
||||
ADC A,B
|
||||
LD B,A
|
||||
LD A,(BC)
|
||||
EX AF,AF'
|
||||
LD B,XH
|
||||
LD C,XL
|
||||
LD A,(S_P_P) ; (S_P_P) ;SECTORS PER Page
|
||||
;AGE
|
||||
DIVR0 RRCA
|
||||
JR C,DIVR1
|
||||
RR H
|
||||
RR L
|
||||
RR B
|
||||
RR C
|
||||
JR DIVR0
|
||||
DIVR1 LD B,C
|
||||
LD C,#C4 ;GET FIRST PAGE
|
||||
EX AF,AF'
|
||||
RST ToBIOS
|
||||
EX AF,AF'
|
||||
LD A,(S_P_P)
|
||||
LD C,A
|
||||
DEC C
|
||||
LD A,XL
|
||||
AND C
|
||||
INC A
|
||||
LD HL,#C000
|
||||
LD BC,512
|
||||
SBC HL,BC
|
||||
ADDLP ADD HL,BC
|
||||
DEC A
|
||||
JR NZ,ADDLP
|
||||
RET
|
||||
|
||||
S_P_P DB #00
|
||||
|
||||
; A':HL - ADDRESS SOURCE
|
||||
; DE - ADDRESS DESTINATION
|
||||
LRDSEC LD A,D
|
||||
CP #A0
|
||||
LD C,SLOT3
|
||||
SET 6,H
|
||||
JR C,RMDL02
|
||||
LD C,SLOT1
|
||||
RES 7,H
|
||||
RMDL02 IN A,(C)
|
||||
EX AF,AF'
|
||||
DI
|
||||
OUT (C),A
|
||||
LD B,XH
|
||||
LD XH,C
|
||||
LD C,XL
|
||||
LDIR
|
||||
EX AF,AF'
|
||||
LD C,XH
|
||||
OUT (C),A
|
||||
LD A,H
|
||||
AND #7F
|
||||
EI
|
||||
RET NZ
|
||||
LD C,SLOT3 ;GET NEXT PAGE
|
||||
IN B,(C)
|
||||
LD A,SYS_PAGE
|
||||
OUT (C),A
|
||||
EX AF,AF'
|
||||
LD XH,#C2
|
||||
LD XL,A
|
||||
LD A,(IX)
|
||||
EX AF,AF'
|
||||
OUT (C),B
|
||||
LD H,#C0
|
||||
RET
|
||||
|
||||
; A':HL - ADDRESS SOURCE
|
||||
; DE - ADDRESS DESTINATION
|
||||
|
||||
WRDSEC LD A,D
|
||||
CP #A0
|
||||
LD C,SLOT3
|
||||
SET 6,H
|
||||
JR C,WMDL02
|
||||
LD C,SLOT1
|
||||
RES 7,H
|
||||
WMDL02 IN A,(C)
|
||||
EX AF,AF'
|
||||
DI
|
||||
OUT (C),A
|
||||
LD B,XH
|
||||
LD XH,C
|
||||
LD C,XL
|
||||
EX DE,HL
|
||||
LDIR
|
||||
EX DE,HL
|
||||
EX AF,AF'
|
||||
LD C,XH
|
||||
OUT (C),A
|
||||
LD A,H
|
||||
AND #7F
|
||||
EI
|
||||
RET NZ
|
||||
LD C,SLOT3 ;GET NEXT PAGE
|
||||
IN B,(C)
|
||||
LD A,SYS_PAGE
|
||||
OUT (C),A
|
||||
EX AF,AF'
|
||||
LD XH,#C2
|
||||
LD XL,A
|
||||
LD A,(IX)
|
||||
EX AF,AF'
|
||||
OUT (C),B
|
||||
LD H,#C0
|
||||
RET
|
||||
|
||||
|
||||
|
||||
;;
|
||||
;;
|
||||
|
||||
|
||||
; 00 - GET DEVICE PARAMETERS
|
||||
; 01 - READ TRACK
|
||||
; 02 - TEST TRACK
|
||||
; 80 - SET DEVICE PARAMETERS
|
||||
; 81 - WRITE TRACK
|
||||
; 82 - FORMAT TRACK
|
||||
|
||||
|
||||
IOCTL_R:
|
||||
BIT 7,B
|
||||
JR NZ,.O_CTL_F
|
||||
INC B
|
||||
DEC B
|
||||
JP Z,.RGETPRM
|
||||
; DEC B
|
||||
; JP Z,FRDTRAC
|
||||
; DEC B
|
||||
; JP Z,FCHTRAC
|
||||
LD A,DSS_Error.drv.INVALID_COMMAND
|
||||
SCF
|
||||
RET
|
||||
|
||||
.O_CTL_F:
|
||||
RES 7,B
|
||||
INC B
|
||||
DEC B
|
||||
JP Z,.RSETPRM
|
||||
; DEC B
|
||||
; JP Z,FWRTRAC
|
||||
; DEC B
|
||||
; JP Z,FFRTRAC
|
||||
LD A,DSS_Error.drv.INVALID_COMMAND
|
||||
SCF
|
||||
RET
|
||||
|
||||
; HL:DE - SECTORS ON LOGICAL DISK
|
||||
; HL' - CYLINDERS ON PHISICAL DISK
|
||||
; DE' - HEADS ON PHISICAL DISK
|
||||
; BC' - SECTORS PER TRACK ON PHISICAL DISK
|
||||
; A' - PHISICAL DRIVE NUMBER
|
||||
; A - EXTENDED INFORMATION
|
||||
; D0...D3 - "0" RESERVED (MAY BE OTHER)
|
||||
; D4 - DEVICE MASTER/SLAVE
|
||||
; D5 - "1" RESERVED
|
||||
; D6 - ADDRESSING MODE LBA/CHS
|
||||
; D7 - "1" RESERVED
|
||||
.RGETPRM:
|
||||
EX DE,HL
|
||||
LD BC,#55AA
|
||||
AND A
|
||||
SBC HL,BC
|
||||
LD L,A
|
||||
LD A,DSS_Error.drv.GENERAL_FAILURE
|
||||
SCF
|
||||
RET NZ
|
||||
|
||||
|
||||
EX AF,AF'
|
||||
LD BC,RAMDTBL
|
||||
LD A,L
|
||||
SLA A
|
||||
ADD A,C
|
||||
LD C,A
|
||||
LD A,0
|
||||
ADC A,B
|
||||
LD B,A
|
||||
INC BC
|
||||
LD A,(BC)
|
||||
ADD #60 ;!HARDCODE ᤥ« âì ®¬¥à à §ëå ãáâனá⢠ç¥à¥§ ¬¥âª¨
|
||||
PUSH AF
|
||||
PUSH AF
|
||||
EX AF,AF'
|
||||
|
||||
POP AF
|
||||
LD C,BIOS.DRV_GET_PAR
|
||||
RST ToBIOS
|
||||
|
||||
PUSH HL ;ç¨á«® £®«®¢®ª, ç¨á«® ᥪâ®à®¢ ( 楫¨¤à)
|
||||
PUSH DE ;ª®«¨ç¥á⢮ 樫¨¤à®¢
|
||||
EXX
|
||||
POP HL ;ª®«¨ç¥á⢮ 樫¨¤à®¢
|
||||
POP BC ;ç¨á«® ᥪâ®à®¢ ( 楫¨¤à)
|
||||
LD D,0
|
||||
LD E,B ;ç¨á«® £®«®¢®ª
|
||||
LD B,D
|
||||
EXX
|
||||
|
||||
LD A,L
|
||||
|
||||
RRA
|
||||
JR C,.end
|
||||
.loopShift:
|
||||
SLA E
|
||||
RL D
|
||||
RRA
|
||||
JR NC,.loopShift
|
||||
|
||||
.end:
|
||||
EX AF,AF'
|
||||
POP AF
|
||||
EX AF,AF'
|
||||
XOR A
|
||||
LD L,A
|
||||
LD H,L
|
||||
LD A,%10100000
|
||||
RET
|
||||
|
||||
;!HARDCODE
|
||||
.RSETPRM:
|
||||
AND A
|
||||
RET
|
||||
|
||||
ENDDRVR EQU $
|
||||
;
|
||||
Loading…
Reference in New Issue
Block a user