mirror of
https://github.com/Tolik-Trek/Estex-DSS.git
synced 2026-06-15 01:11:48 +03:00
CORE: убран баг с русскими буквами
SHELL: убран баг с маской для DIR
This commit is contained in:
parent
7befdcafc1
commit
8ba8177a13
@ -4,7 +4,7 @@ WRITE.ERR2:
|
||||
POP HL
|
||||
WRITE.ERR1:
|
||||
POP BC
|
||||
SCF
|
||||
;SCF
|
||||
RET
|
||||
WRITE.RD_ONLY:
|
||||
POP DE
|
||||
|
||||
@ -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
|
||||
;
|
||||
|
||||
@ -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
|
||||
;
|
||||
|
||||
@ -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
|
||||
|
||||
@ -1 +1 @@
|
||||
51
|
||||
55
|
||||
@ -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 ¬ áâ¥à/á«¥©¢
|
||||
|
||||
@ -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
|
||||
|
||||
@ -1 +1 @@
|
||||
514
|
||||
518
|
||||
@ -1 +1 @@
|
||||
Subproject commit 8371051031cac61e25740ba6cf9f2acacdc783b7
|
||||
Subproject commit 63faf9f0823649cfb52e9fcaad430170a05b31a7
|
||||
Loading…
Reference in New Issue
Block a user