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 2023-07-04 22:58:09 +10:00
parent 8965dee742
commit 4fc3220d28
12 changed files with 67 additions and 62 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
BOOT/BOOTNAME.ASM
View File

@ -39,10 +39,10 @@ BOOTDRIVE DB "C:",0
CRLF LD A,#0D
LD C,DSS_PUTCHAR
RST #10
RST ToDSS
LD A,#0A
LD C,DSS_PUTCHAR
RST #10
RST ToDSS
RET
ERROR LD E,A

4
BOOT/DSSBOOT.ASM
View File

@ -24,9 +24,7 @@ CDRIVE EQU #02
DRIVE:
_mSYSID
DRIVE: _mSYSID
DI
LD (DRIVE),A
LD C,BIOS.EXT_VERSION

23
Console/CONSOLE.ASM
View File

@ -416,10 +416,13 @@ NOSPC INC HL
JP (HL)
COMP002 XOR A
LD C,#FF
.loop: CPI ;!FIXIT CPIR
JP NZ,.loop
;!TEST
;LD C,#FF
LD C,A
CPIR
.loop: ;CPI
;JP NZ,.loop
;
INC HL
INC HL
@ -530,6 +533,7 @@ RUN_BAT CALL BATCH
JP C,EXEERR
RET
; !! <09>¥ ¤¥« âì ®¤­ã ª®¬ ­¤ã > 256 ᨬ¢®«®¢)) !!
BATLIST DZ 'PAUSE' : DW CPAUSE
DZ 'REM' : DW CREM
CMDLIST DZ 'CD' : DW CCHDIR
@ -1274,13 +1278,12 @@ PDIGIT LD DE,10000
LD A,L
ADD A,#30
; !FIXIT
LD (IX+0),A
INC IX
LD (IX+0),0
; ­  íâ®:
;!TEST
;LD (IX+0),A
; LD (IX+1),0
;INC IX
;LD (IX+0),0
LD (IX+0),A
LD (IX+1),0
RET
DIG XOR A

34
DSS/DOS-MAIN.ASM
View File

@ -251,7 +251,7 @@ PORTAL.outMAIN: ;
.BPB_PHISICAL_DRIVE_NUMBER: WORD #80 ; +#24 PHISICAL DRIVE NUMBER
.BPB_EXT_BOOT_RECORD_SIGNATURE: BYTE #29 ; +#26 EXTENDED BOOT RECORD SIGNATURE
.BPB_SERIAL_NUMBER: DWORD 0 ; +#27 VOLUME SERIAL NUMBER
.BPB_LABEL: TEXT 8,{"NO NAME"," "} ; +#2B DISK LABEL
.BPB_LABEL: TEXT 11,{"NO NAME"," "} ; +#2B DISK LABEL
.ID_FAT: TEXT 8,{"FAT16"," "} ; +#36 FILE SYSTEM ID ( BPB_FS_ID )
ENDS
*/
@ -494,27 +494,25 @@ SECBUF EQU BUFFER
; !!!!! íâ  ¯à®æ¥¤ãà  § âàñâáï ¯®á«¥ ¨á¯®«­¥­¨ï
DEPLOY:
;Allocate memory
LD BC,USING_MEMPAGES*256+#C2
RST ToBIOS ;GET DSS PAGES HANDLE
RET C ;R10
LD HL,BANKTBL
LD C,A
LD B,#FF
.loop: INC B
PUSH BC
PUSH HL
LD A,C
LD C,#C4 ; !FIXIT ­  .GetMemBlkPages - ¯¨å âì íâã áâà ­¨æã ¢ á«®â 1 (®­  ¡ã¤¥â ¨ ¢ 0 ᫮⥠¨ ¢ 1) ¨ ¢ë§ë¢ âì ¡¨®á
LD BC,USING_MEMPAGES*256 + BIOS.GetMem
RST ToBIOS
RET C ;R10
LD C,A
POP HL
POP BC
LD (HL),A
INC HL
JR NC,.loop
;
IN A,(SLOT3)
PUSH AF
IN A,(SLOT0)
LD (DRV.MAIN_PG_NUMBER),A
OUT (SLOT3),A
LD A,C
LD HL,BANKTBL + #C000
LD C,BIOS.GetMemBlkPages
RST ToBIOS
POP AF
OUT (SLOT3),A
LD A,DRVPAGE
CALL BANK
PUSH AF

2
DSS/DOS5.ASM
View File

@ -878,7 +878,7 @@ LOADDIR:
LD A,DIRPAGE
CALL BANK
PUSH AF
;!FIXIT ᫨誮¬ ¤®«£®
;!TEST no ldir
;LD HL,#C000
;LD DE,#C001
;LD BC,#3FFF

2
DSS/DOS_FM.ASM
View File

@ -62,7 +62,7 @@ FM_BUF: _sFM
SET_FM:
_mFM_FIND
LD A,0 ;!FIXIT ­®¬¥à ®è¨¡ª¨
LD A,0 ;!HARDCODE ­®¬¥à ®è¨¡ª¨
RET NZ
ABS_FM LD A,DSS_Error.sys.INVALID_HANDLE
SCF

13
DSS/DOS_X.ASM
View File

@ -443,6 +443,7 @@ FatBuffer:
;
DIRSPEC: DB '\'
;BLOCK DIRSPEC.DEPTH,0 ;????? <20>ë«® 255, ã ‘ ©¬ ­  256
BLOCK DIRSPEC.DEPTH-1,0 ;????? <20>ë«® 255, ã ‘ ©¬ ­  256
;
@ -520,12 +521,14 @@ BACK_CUR_PATH:
;R12
SCANDRV:
DI ;!FIXIT ¢ DRV-MAIN ¬®£ãâ ¡ëâì ¯à®¡«¥¬ë á ¯à¥à뢠­¨ï¬¨
LD A,#FF
LD C,#FF
RST #18
;!TEST ¢ DRV-MAIN ¬®£ãâ ¡ëâì ¯à®¡«¥¬ë á ¯à¥à뢠­¨ï¬¨
;DI
LD A,Dss.DRV.RescanDRV
LD C,Dss.DRV.RescanDRV
RST ToDSS.DRV
LD (LDRIVE),A
EI
;EI
;
RET
;R12

3
DSS/DRV-MAIN.ASM
View File

@ -113,7 +113,7 @@ RST_30:
; <[MAIN INT]> ;
BLOCK #38-$,#FF ;
A0038: ;
// JP RST_38 ;
; JP RST_38 ;
; RST_38: ;
; INT_: PUSH AF ;
; EX AF,AF' ;
@ -227,7 +227,6 @@ LDRIVE DB #00
INCLUDE 'disk_x.asm'
INCLUDE 'ide_drv0.asm'
INCLUDE 'fdd_drv0.asm'
;INCLUDE 'ram_drv0.asm'
INCLUDE 'ram_drv1.asm'
DB 0

6
DSS/IDE_DRV0.ASM
View File

@ -471,7 +471,11 @@ RESE_H XOR A
STAT_H XOR A
RET
CHEK_H LD A,#FF
CHEK_H:
;!TEST
;LD A,#FF
XOR A
;
AND A
RET

2
DSS/KEYINTER.ASM
View File

@ -312,7 +312,7 @@ TESTKEY LD HL,HOST
; RET
; K_C3 LD C,B
; RST #10
; RST ToDSS
; RET
;small optimization

2
Shared_Includes

@ -1 +1 @@
Subproject commit ced877c153d64941d9ab3a1808d21bc559113e4b
Subproject commit 3fa91af2db4f96a96f3342d7291deb4d63a90591