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

мелкие правки

Browse Source
This commit is contained in:
Tolik 2025-06-17 05:20:24 +10:00
parent 98f5637289
commit 072ed4ed60
5 changed files with 22 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
DSS/API/Write.asm
View File

@ -53,7 +53,7 @@ WRITE: ;!TEST ;!TODO 5/12/23 ; [ ]
PUSH DE PUSH DE
PUSH BC PUSH BC
.R_POINT+2: LD IX,0 .R_POINT+2: LD IX,0
CALL BLOK_WRITE CALL BLOCK_WRITE
POP BC POP BC
JR C,.ERR3 JR C,.ERR3
LD C,B LD C,B
@ -62,7 +62,7 @@ WRITE: ;!TEST ;!TODO 5/12/23 ; [ ]
.WOV5: ADD HL,DE .WOV5: ADD HL,DE
DJNZ .WOV5 DJNZ .WOV5
; B=0 ; B=0
LD (.R_POINT),HL ;!FIXIT íâ® §­ ç¥­¨¥ 㦥 à ácç¨â뢠¥âáï ¯¥à¥¤ ¢ë室®¬ ¢ BLOK_WRITE? LD (.R_POINT),HL ;!FIXIT íâ® §­ ç¥­¨¥ 㦥 à ácç¨â뢠¥âáï ¯¥à¥¤ ¢ë室®¬ ¢ BLOCK_WRITE?
;LD B,0 ;LD B,0
POP HL POP HL
ADD HL,BC ADD HL,BC
@ -103,7 +103,7 @@ WRITE: ;!TEST ;!TODO 5/12/23 ; [ ]
PUSH AF PUSH AF
IN A,(SLOT0) IN A,(SLOT0)
OUT (SLOT3),A OUT (SLOT3),A
CALL BLOK_WRITE CALL BLOCK_WRITE
POP BC POP BC
LD C,SLOT3 LD C,SLOT3
OUT (C),B OUT (C),B
@ -181,7 +181,7 @@ WRITE: ;!TEST ;!TODO 5/12/23 ; [ ]
PUSH AF PUSH AF
IN A,(SLOT0) IN A,(SLOT0)
OUT (SLOT3),A OUT (SLOT3),A
CALL BLOK_WRITE CALL BLOCK_WRITE
POP BC POP BC
LD C,SLOT3 LD C,SLOT3
OUT (C),B OUT (C),B

2
DSS/FS/FAT.asm
View File

@ -2422,7 +2422,7 @@ CHECK_FIRST_CLUSTER:
; IX - data in RAM ; IX - data in RAM
; IY - FM ; IY - FM
; B - ª®«¨ç¥á⢮ ᥪâ®à®¢ ¤«ï § ¯¨á¨ ; B - ª®«¨ç¥á⢮ ᥪâ®à®¢ ¤«ï § ¯¨á¨
BLOK_WRITE: LD (READ.PointerOnBuffer),IX BLOCK_WRITE: LD (READ.PointerOnBuffer),IX
LD A,(CORE_BUFFERS.FS_Buffer.SectorsPerCluster) ;SECTORS PER CLUSTER LD A,(CORE_BUFFERS.FS_Buffer.SectorsPerCluster) ;SECTORS PER CLUSTER
LD C,A LD C,A
PUSH BC ; B - ª®«¨ç¥á⢮ ᥪâ®à®¢ ¤«ï ç⥭¨ï, C - SectorsPerCluster PUSH BC ; B - ª®«¨ç¥á⢮ ᥪâ®à®¢ ¤«ï ç⥭¨ï, C - SectorsPerCluster

27
DSS/KEYINTER.ASM
View File

@ -451,14 +451,9 @@ PUTSYM: LD HL,HEAD
AND #3F AND #3F
CP (HL) CP (HL)
JR Z,FULL_BF JR Z,FULL_BF
LD A,(HL) ;
INC (HL) CALL GetSymAddr
INC (HL) ;
INC (HL)
INC (HL)
RES 6,(HL)
LD L,A
LD H,high SBUF
LD (HL),E LD (HL),E
INC L INC L
LD (HL),D LD (HL),D
@ -468,10 +463,8 @@ PUTSYM: LD HL,HEAD
LD (HL),C LD (HL),C
RET RET
GETSYM: LD HL,HOST
LD A,(HEAD) GetSymAddr:
CP (HL)
RET Z
LD A,(HL) LD A,(HL)
INC (HL) INC (HL)
INC (HL) INC (HL)
@ -480,6 +473,16 @@ GETSYM: LD HL,HOST
RES 6,(HL) RES 6,(HL)
LD L,A LD L,A
LD H,high SBUF LD H,high SBUF
RET
GETSYM: LD HL,HOST
LD A,(HEAD)
CP (HL)
RET Z
;
CALL GetSymAddr
;
LD E,(HL) LD E,(HL)
INC L INC L
LD D,(HL) LD D,(HL)

2
DSS/build.txt
View File

@ -1 +1 @@
56 57

2
Shared_Includes

@ -1 +1 @@
Subproject commit 63faf9f0823649cfb52e9fcaad430170a05b31a7 Subproject commit a0e68ce3a19bd47537585e49bfbf5e45fab197a1