Tolik-Trek/Estex-DSS
1
0
Fork 0
mirror of https://github.com/Tolik-Trek/Estex-DSS.git synced 2026-06-15 09:21:47 +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/macroses/macros.z80'
include 'shared_includes/structures/FileSystem.inc' include 'shared_includes/structures/FileSystem.inc'
DEFINE EXEinfoMACRO 1 DEFINE EXEinfoMACRO 0
DEFINE App_EXE_Version 1
MACRO _mEXEinfo MACRO _mEXEinfo
BLOCK 10,' ' ; ‚ëà ¢­¨¢ ­¨¥ ¤«ï ªà á¨¢®£® ®â®¡à ¦¥­¨ï ¢ HEX BLOCK 10,' ' ; ‚ëà ¢­¨¢ ­¨¥ ¤«ï ªà á¨¢®£® ®â®¡à ¦¥­¨ï ¢ HEX
BYTE ' Bootloader ' BYTE ' Bootloader '

6
DSS/API/Time.asm
View File

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

6
DSS/API/bootDsk.asm
View File

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

6
DSS/DOS_Proc.asm
View File

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

4
DSS/DSS-MAIN.ASM
View File

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

4
DSS/INTMOUSE.ASM
View File

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

6
DSS/KEYINTER.ASM
View File

@ -643,7 +643,7 @@ PAUSE_X: BIT X_CTRL,(IX+K_SHIFT)
RET Z RET Z
POP HL ; ¡ « ­á á⥪  POP HL ; ¡ « ­á á⥪ 
LD A,(KEYFLAG) LD A,(KEYFLAG)
XOR 1<<PAUSE_L XOR 1<<PAUSE_L
LD (KEYFLAG),A LD (KEYFLAG),A
AND 1<<PAUSE_L AND 1<<PAUSE_L
RET Z RET Z
@ -793,7 +793,7 @@ XLAT: BIT FLAG_E0,(IX+KEYFLG)
LD L,A LD L,A
.W_O_E0: ;LD H,high XLAT_T .W_O_E0: ;LD H,high XLAT_T
;LD L,(HL) ;LD L,(HL)
; [ ] 31/03/2024 ¨á¯à ¢«¥­ ¡ £ á ¢ë室®¬ §  £à ­¨æë â ¡«¨æë XLAT_T ; [x] 31/03/2024 ¨á¯à ¢«¥­ ¡ £ á ¢ë室®¬ §  £à ­¨æë â ¡«¨æë XLAT_T
CP XLAT_T.Size CP XLAT_T.Size
LD L,0 LD L,0
RET NC RET NC
@ -815,7 +815,6 @@ INPCODE: LD D,L
JP NZ,RUSCODE JP NZ,RUSCODE
LD A,(KEYCTRL) LD A,(KEYCTRL)
AND 1<<L_SHIFT | 1<<R_SHIFT AND 1<<L_SHIFT | 1<<R_SHIFT
;BIT X_SHIFT,(IX+K_LOCK)
JR NZ,.SHIFT JR NZ,.SHIFT
SET 7,D SET 7,D
BIT X_ALT,(IX+K_SHIFT) BIT X_ALT,(IX+K_SHIFT)
@ -842,7 +841,6 @@ CONVERT: ;
RUSCODE: LD A,(KEYCTRL) RUSCODE: LD A,(KEYCTRL)
AND 1<<L_SHIFT | 1<<R_SHIFT AND 1<<L_SHIFT | 1<<R_SHIFT
;BIT X_SHIFT,(IX+K_LOCK)
JR NZ,.SHIFT JR NZ,.SHIFT
SET 7,D SET 7,D
BIT X_ALT,(IX+K_SHIFT) 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 ; 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 ; HL' - CYLINDERS ON PHISICAL DISK
; DE' - HEADS ON PHISICAL DISK ; DE' - HEADS ON PHISICAL DISK
; BC' - SECTORS PER TRACK 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 RET
; HL:DE - SECTORS ON LOGICAL DISK ; 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 ; HL' - CYLINDERS ON PHISICAL DISK
; DE' - HEADS ON PHISICAL DISK ; DE' - HEADS ON PHISICAL DISK
; BC' - SECTORS PER TRACK ON PHISICAL DISK ; BC' - SECTORS PER TRACK ON PHISICAL DISK
@ -401,7 +401,7 @@ HGETPRM:
LD L,(IY+LOGDRV.SIZE_IN_SECTORS+2) LD L,(IY+LOGDRV.SIZE_IN_SECTORS+2)
LD H,(IY+LOGDRV.SIZE_IN_SECTORS+3) LD H,(IY+LOGDRV.SIZE_IN_SECTORS+3)
; ;
;[ ] 17.12.2023 § £à㧪  á  ªâ¨¢­®£® à §¤¥« ,   ­¥ á ¯¥à¢®£® ;[x] 17.12.2023 § £à㧪  á  ªâ¨¢­®£® à §¤¥« ,   ­¥ á ¯¥à¢®£®
LD C,(IY+LOGDRV.PARTITION_RECORD_NUM) ; ­®¬¥à ¯ àâ¨æ¨¨ ¢ MBR ¤¨áª  LD C,(IY+LOGDRV.PARTITION_RECORD_NUM) ; ­®¬¥à ¯ àâ¨æ¨¨ ¢ MBR ¤¨áª 
; ;
EX AF,AF' EX AF,AF'
@ -547,7 +547,7 @@ DEFINE_PARTITIONS:
LD (IX + LOGDRV.SIZE_IN_SECTORS + 1),D LD (IX + LOGDRV.SIZE_IN_SECTORS + 1),D
LD (IX + LOGDRV.SIZE_IN_SECTORS + 2),L LD (IX + LOGDRV.SIZE_IN_SECTORS + 2),L
LD (IX + LOGDRV.SIZE_IN_SECTORS + 3),H LD (IX + LOGDRV.SIZE_IN_SECTORS + 3),H
;[ ] 17.12.2023 § £à㧪  á  ªâ¨¢­®£® à §¤¥« ,   ­¥ á ¯¥à¢®£® ;[x] 17.12.2023 § £à㧪  á  ªâ¨¢­®£® à §¤¥« ,   ­¥ á ¯¥à¢®£®
.ExtendedPartitionFlag+1: .ExtendedPartitionFlag+1:
LD A,0 LD A,0
OR A ; !TODO § £à㧪  á à áè¨à¥­­®£® à §¤¥«  ­¥ ¯®¤¤¥à¦¨¢ ¥âáï OR A ; !TODO § £à㧪  á à áè¨à¥­­®£® à §¤¥«  ­¥ ¯®¤¤¥à¦¨¢ ¥âáï
@ -626,7 +626,7 @@ DEFINE_PARTITIONS:
LD DE,#AA55 LD DE,#AA55
AND A AND A
SBC HL,DE SBC HL,DE
;[ ] 17/12/23 ¯à®¯ã᪠ࠧ¤¥«®¢ á ­¥¨§¢¥áâ­ë¬¨ ”‘, ®¯â¨¬¨§ æ¨ï ¯¥à¥¡®à  à §¤¥«®¢ ;[x] 17/12/23 ¯à®¯ã᪠ࠧ¤¥«®¢ á ­¥¨§¢¥áâ­ë¬¨ ”‘, ®¯â¨¬¨§ æ¨ï ¯¥à¥¡®à  à §¤¥«®¢
;JR NZ,NODEFIN ;JR NZ,NODEFIN
SCF SCF
RET NZ RET NZ
@ -644,13 +644,13 @@ DEFINE_PARTITIONS:
LD IX,(CURRENT_SECTOR_H) LD IX,(CURRENT_SECTOR_H)
PUSH DE PUSH DE
PUSH IX PUSH IX
;[ ] 17/12/23 ¯à®¯ã᪠ࠧ¤¥«®¢ á ­¥¨§¢¥áâ­ë¬¨ ”‘, ®¯â¨¬¨§ æ¨ï ¯¥à¥¡®à  à §¤¥«®¢ ;[x] 17/12/23 ¯à®¯ã᪠ࠧ¤¥«®¢ á ­¥¨§¢¥áâ­ë¬¨ ”‘, ®¯â¨¬¨§ æ¨ï ¯¥à¥¡®à  à §¤¥«®¢
LD A,(.ExtendedPartitionFlag) LD A,(.ExtendedPartitionFlag)
INC A INC A
LD (.ExtendedPartitionFlag),A ; !TODO § £à㧪  á à áè¨à¥­­®£® à §¤¥«  ­¥ ¯®¤¤¥à¦¨¢ ¥âáï LD (.ExtendedPartitionFlag),A ; !TODO § £à㧪  á à áè¨à¥­­®£® à §¤¥«  ­¥ ¯®¤¤¥à¦¨¢ ¥âáï
; ;
CALL .ParseExtended CALL .ParseExtended
;[ ] 17/12/23 ¯à®¯ã᪠ࠧ¤¥«®¢ á ­¥¨§¢¥áâ­ë¬¨ ”‘, ®¯â¨¬¨§ æ¨ï ¯¥à¥¡®à  à §¤¥«®¢ ;[x] 17/12/23 ¯à®¯ã᪠ࠧ¤¥«®¢ á ­¥¨§¢¥áâ­ë¬¨ ”‘, ®¯â¨¬¨§ æ¨ï ¯¥à¥¡®à  à §¤¥«®¢
LD A,(.ExtendedPartitionFlag) LD A,(.ExtendedPartitionFlag)
DEC A DEC A
LD (.ExtendedPartitionFlag),A ; !TODO § £à㧪  á à áè¨à¥­­®£® à §¤¥«  ­¥ ¯®¤¤¥à¦¨¢ ¥âáï LD (.ExtendedPartitionFlag),A ; !TODO § £à㧪  á à áè¨à¥­­®£® à §¤¥«  ­¥ ¯®¤¤¥à¦¨¢ ¥âáï

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

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

2
DSS/Procedures.asm
View File

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

8
SHELL/BATCH.ASM
View File

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

2
SHELL/Commands/BREAK.ASM
View File

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

4
SHELL/Commands/DATE.ASM
View File

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

2
SHELL/Commands/REM.ASM
View File

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

2
SHELL/Messages/main_txt.asm
View File

@ -33,7 +33,7 @@ MAIN_MSG:
db "Volume Serial Number is %2",CR,LF db "Volume Serial Number is %2",CR,LF
db CR,LF,"Directory of %3",CR,LF,LF,0 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 .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 .TIME_ : db "Current time: %1",CR,LF,0
stN .PAUSE_ : db "Press any key to continue . . .",CR,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 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: back_to_parent_process:
; [ ] 11/12/23 ¢«®¦¥­­ë¥ bat ; [x] 11/12/23 ¢«®¦¥­­ë¥ bat
and a and a
.saveA: LD B,0 .saveA: LD B,0
JR NC,.exit JR NC,.exit