CORE: убран баг с русскими буквами

SHELL:  убран баг с маской для DIR
This commit is contained in:
Tolik 2025-06-03 22:23:48 +10:00
parent 7befdcafc1
commit 8ba8177a13
9 changed files with 46 additions and 17 deletions

View File

@ -4,7 +4,7 @@ WRITE.ERR2:
POP HL
WRITE.ERR1:
POP BC
SCF
;SCF
RET
WRITE.RD_ONLY:
POP DE

View File

@ -2605,6 +2605,7 @@ BLOK_WRITE: LD (READ.PointerOnBuffer),IX
LD B,C
LD C,Dss.DRV.Write
RST ToDSS.DRV
;
LD A,DSS_Error.sys.WRITE_ERROR
JR C,.Error_3
POP BC
@ -2626,7 +2627,6 @@ BLOK_WRITE: LD (READ.PointerOnBuffer),IX
.Error_3: POP BC ;[x] GET/SAVE CLUSTER NUMBER BEFORE/AFTER READ/WRITE
POP BC
POP DE
;LD A,DSS_Error.sys.WRITE_ERROR
;SCF
RET
;

View File

@ -1172,7 +1172,7 @@ BEEP: LD A,#10
JR NZ,BEEP
RET
;
.beep_loop: OUT (ZX_Beeper),A
.beep_loop: OUT (SP_SND.Beeper),A
LD B,D
LD C,E
;

View File

@ -215,11 +215,8 @@ UPPER: CP 'a'
;
.CheckRUS: CP ' ' ; àãááª ï ¡ãª¢   , ª®¤ #A0
RET C
CP '¯' ; àãááª ï ¡ãª¢  ¯, ª®¤ #B0
CP '¯'+1 ; àãááª ï ¡ãª¢  ¯, ª®¤ #AF + 1
JR C,.Dec
; JR NC,.BGUPPER
; SUB #20
; RET
;
.BGUPPER: CP 'à' ; àãááª ï ¡ãª¢  à, ª®¤ #E0
RET C

View File

@ -1 +1 @@
51
55

View File

@ -650,17 +650,19 @@ GetBPB: ; !FIXIT
ReadLong: LD C,BIOS.DRV_READ_LONG
JP Exec_BIOS
;!FIXIT debug zip
;HL:IX - SECTOR
; DE - ADDRESS
; B - COUNTER
; A'- PAGE
; A - HDD LOG NUMBER
;WRITE SECTOR
; WriteLong: LD C,BIOS.DRV_WRITE_LONG
; JP Exec_BIOS
WriteLong: LD C,BIOS.DRV_WRITE_LONG
JP Exec_BIOS
;!FIXIT debug zip
;HL:IX - SECTOR
; DE - ADDRESS
; B - COUNTER
@ -668,7 +670,31 @@ WriteLong: LD C,BIOS.DRV_WRITE_LONG
;WRITE SECTOR
Write: LD C,BIOS.DRV_WRITE
JP Exec_BIOS
; Write: LD C,BIOS.DRV_WRITE
; .loop: PUSH HL
; PUSH IX
; PUSH DE
; PUSH BC
; PUSH AF
; CALL Exec_BIOS
; JR NC,.good
; JR Z,.good
; ;
; POP AF
; POP BC
; POP DE
; POP IX
; POP HL
; JR .loop
; ;
; .good: EXX
; POP DE
; POP DE
; POP DE
; POP DE
; POP DE
; EXX
; RET
;HL:IX - SECTOR
@ -685,14 +711,16 @@ Exec_BIOS: PUSH IY
;
.exec: CALL SelectDrive
RET C ;!FIXIT ¯¥à¥¤¥« âì ­®¬¥à ®è¨¡ª¨ á ¤à ©¢¥à  ­  ¤®á
PUSH IY
RST ToBIOS
POP IY
RET NC
CP BIOS.Error.ATAPI.UnitAttention
SCF
RET NZ
SET 1,(IY + LOGDRV.MediaParameters)
RET
;
;------------------------------[ PARTIT ]------------------------------;
; ¢å®¤: B - bit0=1 removable, bit1=1 drive changed, bit7..2 reserved
@ -983,6 +1011,8 @@ INC_DRV_COUNT: LD A,(Init.count)
LD (Init.count),A
RET
;=======================================================================
;=======================================================================
; PHISICAL DRIVE NUMBER
; #80/#81 - primary ¬ áâ¥à/á«¥©¢, #82/#83 - secondary ¬ áâ¥à/á«¥©¢

View File

@ -7,6 +7,7 @@ cmd_dir: push de
; § ­ã«ï¥¬ ¢á¥ ¯ à ¬¥âàë ­  áâ àâ¥
xor a
ld (Buffers.work.buffer2),a
ld (Buffers.work.free),a
ld (read_disk_info.full),a
ld (.key_p),a
; ¢ë¯®«­ï¥¬/­ áâà ¨¢ ¥¬ ¢á¥ ­ ©¤¥­­ë¥ ¯ à ¬¥âàë ¢ áâப¥
@ -48,8 +49,9 @@ cmd_dir: push de
ld hl,Buffers.work.buffer1
ld bc,Dss.EX_Path.GET_ALL
rst ToDSS
;
and %00001100 ; ¨¬ï ¤¨áª  ¨ ¯ãâì
;!FIXIT ᤥ« âì ¯®¨áª ¯® ¬ áª¨ ¡¥§ ¯ã⨠¢ ­ ç «¥
; ᥩç á ¯¥à¥¤ ¬ áª®© ­ã¦¥­ ¯ãâì ⨯  dir .\*.asm
and %00001100 ; ¨¬ï ¤¨áª  ¨ ¯ãâì ;!FIXIT ᤥ« âì ¯®¨áª ¯® ¬ áª¨ ¡¥§ ¯ã⨠¢ ­ ç «¥
jr z,.SkipMask
;
ld hl,Buffers.work.buffer2+2

View File

@ -1 +1 @@
514
518

@ -1 +1 @@
Subproject commit 8371051031cac61e25740ba6cf9f2acacdc783b7
Subproject commit 63faf9f0823649cfb52e9fcaad430170a05b31a7