mirror of
https://github.com/Tolik-Trek/Estex-DSS.git
synced 2026-06-15 01:11:48 +03:00
небольшие оптимизации
This commit is contained in:
Anatoliy Belyanskiy
parent
8965dee742
commit
4fc3220d28
@ -25,15 +25,15 @@
|
||||
|
||||
DEFINE EXEinfoMACRO 1
|
||||
MACRO _mEXEinfo
|
||||
BLOCK 10,' ' ; ‚ëà ¢¨¢ ¨¥ ¤«ï ªà ᨢ®£® ®â®¡à ¦¥¨ï ¢ HEX
|
||||
BYTE ' Bootloader '
|
||||
BYTE ' installer '
|
||||
BYTE ' for DSS. '
|
||||
BYTE ' Vasil Ivanov, '
|
||||
BYTE ' Anatoliy '
|
||||
BYTE ' Belyanskiy. '
|
||||
BYTE ' Sprinter Team, '
|
||||
BYTE ' 2023 '
|
||||
BLOCK 10,' ' ; ‚ëà ¢¨¢ ¨¥ ¤«ï ªà ᨢ®£® ®â®¡à ¦¥¨ï ¢ HEX
|
||||
BYTE ' Bootloader '
|
||||
BYTE ' installer '
|
||||
BYTE ' for DSS. '
|
||||
BYTE ' Vasil Ivanov, '
|
||||
BYTE ' Anatoliy '
|
||||
BYTE ' Belyanskiy. '
|
||||
BYTE ' Sprinter Team, '
|
||||
BYTE ' 2023 '
|
||||
ENDM
|
||||
|
||||
|
||||
|
||||
@ -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
|
||||
|
||||
@ -24,9 +24,7 @@ CDRIVE EQU #02
|
||||
|
||||
|
||||
|
||||
DRIVE:
|
||||
_mSYSID
|
||||
|
||||
DRIVE: _mSYSID
|
||||
DI
|
||||
LD (DRIVE),A
|
||||
LD C,BIOS.EXT_VERSION
|
||||
|
||||
@ -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
|
||||
; íâ®:
|
||||
; LD (IX+0),A
|
||||
; LD (IX+1),0
|
||||
;!TEST
|
||||
;LD (IX+0),A
|
||||
;INC IX
|
||||
;LD (IX+0),0
|
||||
LD (IX+0),A
|
||||
LD (IX+1),0
|
||||
RET
|
||||
|
||||
DIG XOR A
|
||||
|
||||
@ -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
|
||||
LD BC,USING_MEMPAGES*256 + BIOS.GetMem
|
||||
RST ToBIOS
|
||||
RET C ;R10
|
||||
LD HL,BANKTBL
|
||||
LD C,A
|
||||
LD B,#FF
|
||||
.loop: INC B
|
||||
PUSH BC
|
||||
PUSH HL
|
||||
|
||||
IN A,(SLOT3)
|
||||
PUSH AF
|
||||
IN A,(SLOT0)
|
||||
LD (DRV.MAIN_PG_NUMBER),A
|
||||
OUT (SLOT3),A
|
||||
|
||||
LD A,C
|
||||
LD C,#C4 ; !FIXIT .GetMemBlkPages - ¯¨å âì íâã áâà ¨æã ¢ á«®â 1 (® ¡ã¤¥â ¨ ¢ 0 ᫮⥠¨ ¢ 1) ¨ ¢ë§ë¢ âì ¡¨®á
|
||||
LD HL,BANKTBL + #C000
|
||||
LD C,BIOS.GetMemBlkPages
|
||||
RST ToBIOS
|
||||
|
||||
POP HL
|
||||
POP BC
|
||||
LD (HL),A
|
||||
INC HL
|
||||
JR NC,.loop
|
||||
;
|
||||
IN A,(SLOT0)
|
||||
LD (DRV.MAIN_PG_NUMBER),A
|
||||
POP AF
|
||||
OUT (SLOT3),A
|
||||
|
||||
LD A,DRVPAGE
|
||||
CALL BANK
|
||||
PUSH AF
|
||||
|
||||
12
DSS/DOS5.ASM
12
DSS/DOS5.ASM
@ -878,12 +878,12 @@ LOADDIR:
|
||||
LD A,DIRPAGE
|
||||
CALL BANK
|
||||
PUSH AF
|
||||
;!FIXIT ᫨誮¬ ¤®«£®
|
||||
; LD HL,#C000
|
||||
; LD DE,#C001
|
||||
; LD BC,#3FFF
|
||||
; LD (HL),L
|
||||
; LDIR
|
||||
;!TEST no ldir
|
||||
;LD HL,#C000
|
||||
;LD DE,#C001
|
||||
;LD BC,#3FFF
|
||||
;LD (HL),L
|
||||
;LDIR
|
||||
;
|
||||
LD A,(FatBuffer.DRIVE)
|
||||
LD (IY+_sFM.DRIVE),A
|
||||
|
||||
@ -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
|
||||
|
||||
@ -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
|
||||
|
||||
|
||||
@ -113,15 +113,15 @@ RST_30:
|
||||
; <[MAIN INT]> ;
|
||||
BLOCK #38-$,#FF ;
|
||||
A0038: ;
|
||||
// JP RST_38 ;
|
||||
; RST_38: ;
|
||||
; JP RST_38 ;
|
||||
; RST_38: ;
|
||||
; INT_: PUSH AF ;
|
||||
; EX AF,AF' ;
|
||||
; PUSH AF ;
|
||||
; PUSH BC ;
|
||||
; PUSH DE ;
|
||||
; PUSH HL ;
|
||||
; EXX ;
|
||||
; EXX ;
|
||||
; PUSH BC ;
|
||||
; PUSH DE ;
|
||||
; PUSH HL ;
|
||||
@ -135,7 +135,7 @@ A0038: ;
|
||||
; POP HL ;
|
||||
; POP DE ;
|
||||
; POP BC ;
|
||||
; EXX ;
|
||||
; EXX ;
|
||||
; POP HL ;
|
||||
; POP DE ;
|
||||
; POP BC ;
|
||||
@ -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
|
||||
|
||||
@ -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
|
||||
|
||||
|
||||
@ -312,7 +312,7 @@ TESTKEY LD HL,HOST
|
||||
; RET
|
||||
|
||||
; K_C3 LD C,B
|
||||
; RST #10
|
||||
; RST ToDSS
|
||||
; RET
|
||||
|
||||
;small optimization
|
||||
|
||||
@ -1 +1 @@
|
||||
Subproject commit ced877c153d64941d9ab3a1808d21bc559113e4b
|
||||
Subproject commit 3fa91af2db4f96a96f3342d7291deb4d63a90591
|
||||
Loading…
Reference in New Issue
Block a user