Tolik-Trek/Estex-DSS
1
0
Fork 0
mirror of https://github.com/Tolik-Trek/Estex-DSS.git synced 2026-06-15 01:11:48 +03:00
Code Issues Actions Packages Projects Releases Wiki Activity

...

Browse Source
This commit is contained in:
Anatoliy Belyanskiy 2024-03-31 05:10:52 +10:00
parent b1d75de608
commit 4fd82287e9
17 changed files with 36 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
BOOT/boot.asm
View File

@ -25,7 +25,8 @@
include 'shared_includes/macroses/macros.z80'
include 'shared_includes/structures/FileSystem.inc'
DEFINE EXEinfoMACRO 1
DEFINE EXEinfoMACRO 0
DEFINE App_EXE_Version 1
MACRO _mEXEinfo
BLOCK 10,' ' ; ‚ëà ¢­¨¢ ­¨¥ ¤«ï ªà á¨¢®£® ®â®¡à ¦¥­¨ï ¢ HEX
BYTE ' Bootloader '

6
DSS/API/Time.asm
View File

@ -123,7 +123,7 @@ SETTIME:
PUSH HL
PUSH DE
;
; [ ] 25/01/2024
; [x] 25/01/2024
CALL CalcDayOfWeek
PUSH HL
;
@ -131,7 +131,7 @@ SETTIME:
RST ToBIOS
JR C,.NOCMOS2
;
; [ ] 25/01/2024
; [x] 25/01/2024
POP AF
LD D,CMOS.Register.dayOfWeek
LD C,BIOS.CMOS_WR
@ -157,7 +157,7 @@ SETTIME:
;PUSH AF ; [ ] ¡ £ á ãáâ ­®¢ª®© ¤­ï ­¥¤¥«¨ ¨§ ॣ¨áâà  C. <20> è¥« Hard
LD D,CMOS.Register.seconds
CALL WCMOS
; [ ] ¡ £ á ãáâ ­®¢ª®© ¤­ï ­¥¤¥«¨ ¨§ ॣ¨áâà  C. <20> è¥« Hard
; [x] ¡ £ á ãáâ ­®¢ª®© ¤­ï ­¥¤¥«¨ ¨§ ॣ¨áâà  C. <20> è¥« Hard
;POP BC
;LD A,C
;LD D,CMOS.Register.dayOfWeek

6
DSS/API/bootDsk.asm
View File

@ -26,7 +26,7 @@ BOOTDSK:
.SET: LD B,H ;SET BOOT DISK
LD C,0
;[ ] 17.12.2023 § £à㧪  á  ªâ¨¢­®£® à §¤¥« ,   ­¥ á ¯¥à¢®£®
;[x] 17.12.2023 § £à㧪  á  ªâ¨¢­®£® à §¤¥« ,   ­¥ á ¯¥à¢®£®
LD (.part),HL
;
.loop: PUSH BC
@ -34,7 +34,7 @@ BOOTDSK:
LD DE,#55AA
LD BC,256*0 + Dss.DRV.GenIOCTL
RST ToDSS.DRV
;[ ] 17.12.2023 § £à㧪  á  ªâ¨¢­®£® à §¤¥« ,   ­¥ á ¯¥à¢®£®
;[x] 17.12.2023 § £à㧪  á  ªâ¨¢­®£® à §¤¥« ,   ­¥ á ¯¥à¢®£®
LD A,C ; ­®¬¥à ¯ àâ¨æ¨¨ ¢ MBR ¤¨áª 
;
POP BC
@ -42,7 +42,7 @@ BOOTDSK:
EX AF,AF' ;PHISICAL DRIVE NUMBER
CP B
JR NZ,.NoSupport
;[ ] 17.12.2023 § £à㧪  á  ªâ¨¢­®£® à §¤¥« ,   ­¥ á ¯¥à¢®£®
;[x] 17.12.2023 § £à㧪  á  ªâ¨¢­®£® à §¤¥« ,   ­¥ á ¯¥à¢®£®
EX AF,AF' ; ­®¬¥à ¯ àâ¨æ¨¨ ¢ MBR ¤¨áª 
.part+1: LD HL,0
CP L

6
DSS/DOS_Proc.asm
View File

@ -219,7 +219,7 @@ OPENDSK:;!TEST DRV.Open
RST ToDSS.DRV
POP BC
JP C,.error
;[ ] 29/02/2024 fix "open drive error"
;[x] 29/02/2024 fix "open drive error"
LD A,(FatBuffer.DRIVE)
LD D,A
PUSH DE
@ -228,7 +228,7 @@ OPENDSK:;!TEST DRV.Open
LD (FatBuffer.DRIVE),A
;
CALL RD_BPB
;[ ] 29/02/2024 fix "open drive error"
;[x] 29/02/2024 fix "open drive error"
POP DE
LD A,D
JR C,.error_disk
@ -242,7 +242,7 @@ OPENDSK:;!TEST DRV.Open
RET Z
LD A,DSS_Error.sys.NOT_READY
RET
;[ ] 29/02/2024 fix "open drive error"
;[x] 29/02/2024 fix "open drive error"
.error_disk:
CALL OPENDSK.force
LD A,(BOOTDSK.NUM)

4
DSS/DSS-MAIN.ASM
View File

@ -472,7 +472,7 @@ SECBUF EQU BUFFER
; <20>¥à¢ë© áâ àâ á¨á⥬ë, ¯®á«¥ ¨­¨æ¨ «¨§ æ¨¨  ¤à¥á ¢ â ¡«¨æ¥ ¬¥­ï¥âáï ­  VERSION
F_START: DI
;[ ] 17.12.2023 § £à㧪  á  ªâ¨¢­®£® à §¤¥« ,   ­¥ á ¯¥à¢®£®
;[x] 17.12.2023 § £à㧪  á  ªâ¨¢­®£® à §¤¥« ,   ­¥ á ¯¥à¢®£®
;LD (.saveDRV),A
LD H,A
LD (.saveDRV),HL ; H - ­®¬¥à ãáâனá⢠, L - ­®¬¥à à §¤¥«  ­  ãáâனá⢥
@ -509,7 +509,7 @@ F_START: DI
LD (LDRIVE),A
;R05
.saveDRV+1:
;[ ] 17.12.2023 § £à㧪  á  ªâ¨¢­®£® à §¤¥« ,   ­¥ á ¯¥à¢®£®
;[x] 17.12.2023 § £à㧪  á  ªâ¨¢­®£® à §¤¥« ,   ­¥ á ¯¥à¢®£®
LD HL,0 ; H - ­®¬¥à ãáâனá⢠, L - ­®¬¥à à §¤¥«  ­  ãáâனá⢥
;LD A,H
;LD A,0

4
DSS/INTMOUSE.ASM
View File

@ -837,7 +837,7 @@ DECY: LD A,E
SENSE: LD HL,(SENSEXY)
LD A,L
; [ ] 15/03/2024 ⥯¥àì ¯®¯à ¢ª¨ çã¢á⢨⥫쭮á⨠¯® ª®®à¤¨­ â ¬ à ¡®â îâ ª®à४⭮
; [x] 15/03/2024 ⥯¥àì ¯®¯à ¢ª¨ çã¢á⢨⥫쭮á⨠¯® ª®®à¤¨­ â ¬ à ¡®â îâ ª®à४⭮
;OR L
;RET Z
;DEC A
@ -863,7 +863,7 @@ SENSE: LD HL,(SENSEXY)
LD B,A
;
.next: LD E,B
; [ ] 15/03/2024 ⥯¥àì ¯®¯à ¢ª¨ çã¢á⢨⥫쭮á⨠¯® ª®®à¤¨­ â ¬ à ¡®â îâ ª®à४⭮
; [x] 15/03/2024 ⥯¥àì ¯®¯à ¢ª¨ çã¢á⢨⥫쭮á⨠¯® ª®®à¤¨­ â ¬ à ¡®â îâ ª®à४⭮
.check_Y:
LD A,H
CP 2

6
DSS/KEYINTER.ASM
View File

@ -643,7 +643,7 @@ PAUSE_X: BIT X_CTRL,(IX+K_SHIFT)
RET Z
POP HL ; ¡ « ­á á⥪ 
LD A,(KEYFLAG)
XOR 1<<PAUSE_L
XOR 1<<PAUSE_L
LD (KEYFLAG),A
AND 1<<PAUSE_L
RET Z
@ -793,7 +793,7 @@ XLAT: BIT FLAG_E0,(IX+KEYFLG)
LD L,A
.W_O_E0: ;LD H,high XLAT_T
;LD L,(HL)
; [ ] 31/03/2024 ¨á¯à ¢«¥­ ¡ £ á ¢ë室®¬ §  £à ­¨æë â ¡«¨æë XLAT_T
; [x] 31/03/2024 ¨á¯à ¢«¥­ ¡ £ á ¢ë室®¬ §  £à ­¨æë â ¡«¨æë XLAT_T
CP XLAT_T.Size
LD L,0
RET NC
@ -815,7 +815,6 @@ INPCODE: LD D,L
JP NZ,RUSCODE
LD A,(KEYCTRL)
AND 1<<L_SHIFT | 1<<R_SHIFT
;BIT X_SHIFT,(IX+K_LOCK)
JR NZ,.SHIFT
SET 7,D
BIT X_ALT,(IX+K_SHIFT)
@ -842,7 +841,6 @@ CONVERT: ;
RUSCODE: LD A,(KEYCTRL)
AND 1<<L_SHIFT | 1<<R_SHIFT
;BIT X_SHIFT,(IX+K_LOCK)
JR NZ,.SHIFT
SET 7,D
BIT X_ALT,(IX+K_SHIFT)

2
DSS/Media_drivers/fdd-drv.asm
View File

@ -251,7 +251,7 @@ FDDRIVE:
; HL:DE - SECTORS ON LOGICAL DISK
; C - PARTITION RECORD NUMBER IN DRIVE MBR must be 0 here ;[ ] 17.12.2023 § £à㧪  á  ªâ¨¢­®£® à §¤¥« ,   ­¥ á ¯¥à¢®£®
; C - PARTITION RECORD NUMBER IN DRIVE MBR must be 0 here ;[x] 17.12.2023 § £à㧪  á  ªâ¨¢­®£® à §¤¥« ,   ­¥ á ¯¥à¢®£®
; HL' - CYLINDERS ON PHISICAL DISK
; DE' - HEADS ON PHISICAL DISK
; BC' - SECTORS PER TRACK ON PHISICAL DISK

12
DSS/Media_drivers/ide-drv.asm
View File

@ -351,7 +351,7 @@ HFRTRAC LD A,DSS_Error.drv.GENERAL_FAILURE
RET
; HL:DE - SECTORS ON LOGICAL DISK
; C - PARTITION RECORD NUMBER IN DRIVE MBR. if #FF - then not supported ;[ ] 17.12.2023 § £à㧪  á  ªâ¨¢­®£® à §¤¥« ,   ­¥ á ¯¥à¢®£®
; C - PARTITION RECORD NUMBER IN DRIVE MBR. if #FF - then not supported ;[x] 17.12.2023 § £à㧪  á  ªâ¨¢­®£® à §¤¥« ,   ­¥ á ¯¥à¢®£®
; HL' - CYLINDERS ON PHISICAL DISK
; DE' - HEADS ON PHISICAL DISK
; BC' - SECTORS PER TRACK ON PHISICAL DISK
@ -401,7 +401,7 @@ HGETPRM:
LD L,(IY+LOGDRV.SIZE_IN_SECTORS+2)
LD H,(IY+LOGDRV.SIZE_IN_SECTORS+3)
;
;[ ] 17.12.2023 § £à㧪  á  ªâ¨¢­®£® à §¤¥« ,   ­¥ á ¯¥à¢®£®
;[x] 17.12.2023 § £à㧪  á  ªâ¨¢­®£® à §¤¥« ,   ­¥ á ¯¥à¢®£®
LD C,(IY+LOGDRV.PARTITION_RECORD_NUM) ; ­®¬¥à ¯ àâ¨æ¨¨ ¢ MBR ¤¨áª 
;
EX AF,AF'
@ -547,7 +547,7 @@ DEFINE_PARTITIONS:
LD (IX + LOGDRV.SIZE_IN_SECTORS + 1),D
LD (IX + LOGDRV.SIZE_IN_SECTORS + 2),L
LD (IX + LOGDRV.SIZE_IN_SECTORS + 3),H
;[ ] 17.12.2023 § £à㧪  á  ªâ¨¢­®£® à §¤¥« ,   ­¥ á ¯¥à¢®£®
;[x] 17.12.2023 § £à㧪  á  ªâ¨¢­®£® à §¤¥« ,   ­¥ á ¯¥à¢®£®
.ExtendedPartitionFlag+1:
LD A,0
OR A ; !TODO § £à㧪  á à áè¨à¥­­®£® à §¤¥«  ­¥ ¯®¤¤¥à¦¨¢ ¥âáï
@ -626,7 +626,7 @@ DEFINE_PARTITIONS:
LD DE,#AA55
AND A
SBC HL,DE
;[ ] 17/12/23 ¯à®¯ã᪠ࠧ¤¥«®¢ á ­¥¨§¢¥áâ­ë¬¨ ”‘, ®¯â¨¬¨§ æ¨ï ¯¥à¥¡®à  à §¤¥«®¢
;[x] 17/12/23 ¯à®¯ã᪠ࠧ¤¥«®¢ á ­¥¨§¢¥áâ­ë¬¨ ”‘, ®¯â¨¬¨§ æ¨ï ¯¥à¥¡®à  à §¤¥«®¢
;JR NZ,NODEFIN
SCF
RET NZ
@ -644,13 +644,13 @@ DEFINE_PARTITIONS:
LD IX,(CURRENT_SECTOR_H)
PUSH DE
PUSH IX
;[ ] 17/12/23 ¯à®¯ã᪠ࠧ¤¥«®¢ á ­¥¨§¢¥áâ­ë¬¨ ”‘, ®¯â¨¬¨§ æ¨ï ¯¥à¥¡®à  à §¤¥«®¢
;[x] 17/12/23 ¯à®¯ã᪠ࠧ¤¥«®¢ á ­¥¨§¢¥áâ­ë¬¨ ”‘, ®¯â¨¬¨§ æ¨ï ¯¥à¥¡®à  à §¤¥«®¢
LD A,(.ExtendedPartitionFlag)
INC A
LD (.ExtendedPartitionFlag),A ; !TODO § £à㧪  á à áè¨à¥­­®£® à §¤¥«  ­¥ ¯®¤¤¥à¦¨¢ ¥âáï
;
CALL .ParseExtended
;[ ] 17/12/23 ¯à®¯ã᪠ࠧ¤¥«®¢ á ­¥¨§¢¥áâ­ë¬¨ ”‘, ®¯â¨¬¨§ æ¨ï ¯¥à¥¡®à  à §¤¥«®¢
;[x] 17/12/23 ¯à®¯ã᪠ࠧ¤¥«®¢ á ­¥¨§¢¥áâ­ë¬¨ ”‘, ®¯â¨¬¨§ æ¨ï ¯¥à¥¡®à  à §¤¥«®¢
LD A,(.ExtendedPartitionFlag)
DEC A
LD (.ExtendedPartitionFlag),A ; !TODO § £à㧪  á à áè¨à¥­­®£® à §¤¥«  ­¥ ¯®¤¤¥à¦¨¢ ¥âáï

2
DSS/Media_drivers/ram_disk-drv.asm
View File

@ -515,7 +515,7 @@ IOCTL_RD:
XOR A
LD L,A
LD H,L
LD C,A ;[ ] 17.12.2023 § £à㧪  á  ªâ¨¢­®£® à §¤¥« ,   ­¥ á ¯¥à¢®£®
LD C,A ;[x] 17.12.2023 § £à㧪  á  ªâ¨¢­®£® à §¤¥« ,   ­¥ á ¯¥à¢®£®
LD A,%10100000
RET

2
DSS/Procedures.asm
View File

@ -102,7 +102,7 @@ RMKTIME:
;----------------------------------------------------------------------;
; [ ] 25/01/2024
; [x] 25/01/2024
; ¢å®¤: D - ¤¥­ì
; E - ¬¥áïæ
; IX - £®¤

8
SHELL/BATCH.ASM
View File

@ -68,7 +68,7 @@ MAKE_BATCH_PRM_ARRAY:
; ¢ë室: "CF" - ®è¨¡ª  ®âªà. ä ©« 
;-------------------------------------------------
BATCH:
; [ ] 11/12/23 ¢«®¦¥­­ë¥ bat
; [x] 11/12/23 ¢«®¦¥­­ë¥ bat
ld a,(BAT_FM)
or a
jr nz,.new_process
@ -115,7 +115,7 @@ BATCH:
;R10
xor a ;!FIXIT
ret
; [ ] 11/12/23 ¢«®¦¥­­ë¥ bat
; [x] 11/12/23 ¢«®¦¥­­ë¥ bat
.new_process:
ld de,work_buffer2
call copy_string
@ -164,7 +164,7 @@ BATCH:
; ‚믮«­¥­¨¥ ª®¬ ­¤ BAT-ä ©« 
;---------------------------------------------------
NEWLINE:
LD (cmd_break.sp),SP ; [ ] 11/12/23 cmd_break
LD (cmd_break.sp),SP ; [x] 11/12/23 cmd_break
;
ld de,struct_input_line+5 ;!HARDCODE
.ADDBAT: push de
@ -222,7 +222,7 @@ NEWLINE:
;-------------------------------------------------
MOVWORD:
.count+1: ld a,0 ; ç¨á«® ¯à®ç¨â. ¡ ©â ¨§ ä ©« 
; [ ] 15/12/23 exit if 0
; [x] 15/12/23 exit if 0
OR A
SCF
RET Z

2
SHELL/Commands/BREAK.ASM
View File

@ -1,4 +1,4 @@
; [ ] 11/12/23
; [x] 11/12/23
cmd_break:
; pop hl ; ¢®ááâ ­®¢«¥­¨¥ ¡ « ­á  á⥪ 
; pop hl ; ¢®ááâ ­®¢«¥­¨¥ ¡ « ­á  á⥪ 

4
SHELL/Commands/DATE.ASM
View File

@ -48,7 +48,7 @@ cmd_date:
.cmd_dt1:
ld c,Dss.SysTime
RST ToDSS
PUSH BC ; [ ] ’λ’<CEBB>€ €­ο ­₯€₯«¨ 26/01/2023
PUSH BC ; [x] ’λ’<CEBB>€ €­ο ­₯€₯«¨ 26/01/2023
push ix
push de
ld a,d ; ç¨á«®
@ -67,7 +67,7 @@ cmd_date:
pop ix
pop hl
call PDIGIT
; [ ] ’λ’<CEBB>€ €­ο ­₯€₯«¨ 26/01/2023
; [x] ’λ’<CEBB>€ €­ο ­₯€₯«¨ 26/01/2023
POP DE
LD D,0
LD A,E

2
SHELL/Commands/REM.ASM
View File

@ -3,7 +3,7 @@
; REM. Š®¬¬¥­â à¨© (¢ bat-ä ©«¥)
;
;///////////////////////////////////////////////////
cmd_rem:; [ ] 15/12/23 ¬®¦¥â ¨ ­¥ ¯®­ ¤®¡¨âáï
cmd_rem:; [x] 15/12/23 ¬®¦¥â ¨ ­¥ ¯®­ ¤®¡¨âáï
AND A
;
ret

2
SHELL/Messages/main_txt.asm
View File

@ -33,7 +33,7 @@ MAIN_MSG:
db "Volume Serial Number is %2",CR,LF
db CR,LF,"Directory of %3",CR,LF,LF,0
stN .VERS_ : db "Estex DSS version %1. Shell version %2.",CR,LF,0 ;R13
stN .DATE_ : db "Current date: %1, %2",CR,LF,0 ; [ ] ¢ë¢®¤ ¤­ï ­¥¤¥«¨ 26/01/2023
stN .DATE_ : db "Current date: %1, %2",CR,LF,0 ; [x] ¢ë¢®¤ ¤­ï ­¥¤¥«¨ 26/01/2023
stN .TIME_ : db "Current time: %1",CR,LF,0
stN .PAUSE_ : db "Press any key to continue . . .",CR,0
stN .DIR_ESC_ : db 'Command "DIR" aborted by user ',CR,LF,CR,LF,0

2
SHELL/SHELL.ASM
View File

@ -126,7 +126,7 @@ shell:
;
; ‚¥à­ãâìáï ¢ த¨â. ¯à®æ¥áá
back_to_parent_process:
; [ ] 11/12/23 ¢«®¦¥­­ë¥ bat
; [x] 11/12/23 ¢«®¦¥­­ë¥ bat
and a
.saveA: LD B,0
JR NC,.exit