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

some optimization

Browse Source
This commit is contained in:
Anatoliy Belyanskiy 2023-11-08 20:36:22 +10:00
parent 5c283a4d7f
commit fed7066721
7 changed files with 58 additions and 58 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
DSS/DOS5.ASM
View File

@ -29,7 +29,7 @@
; B = 1 SET ATTRIB
; OUTPUT: A - ATTRIB
////////////////////////////////////////////////////////////////////////
ATTRIB: ;!Test Current Dir ;[x] 15/10/23
ATTRIB: ;!TEST Current Dir ;[x] 15/10/23
LD C,A
PUSH HL
PUSH BC
@ -98,7 +98,7 @@ ATTRIB: ;!Test Current Dir ;[x] 15/10/23
; INPUT: HL - "C:\DIR1\DIR2\filename.ext",#00
; OUTPUT: A - FM
////////////////////////////////////////////////////////////////////////
CREATE: ;!Test Current Dir ;[x] 15/10/23
CREATE: ;!TEST Current Dir ;[x] 15/10/23
PUSH HL
CALL DIR_PATH_CHECK
POP HL
@ -112,7 +112,7 @@ CREATE: ;!Test Current Dir ;[x] 15/10/23
;
; INPUT: HL - "C:\DIR1\DIR2\filename.ext",#00
; OUTPUT: A - FM
.NEW: ;!Test Current Dir ;[x] 15/10/23
.NEW: ;!TEST Current Dir ;[x] 15/10/23
PUSH HL
CALL DIR_PATH_CHECK
POP HL
@ -179,7 +179,7 @@ CREAT_N EQU CREATE.NEW
; INPUT: HL - "c:\dir\filename.ext",#00 without simbols * ?
////////////////////////////////////////////////////////////////////////
DEL_FN: ;!TEST
;!Test Current Dir ;[x] 15/10/23
;!TEST Current Dir ;[x] 15/10/23
PUSH HL
CALL DIR_PATH_CHECK
POP HL
@ -240,7 +240,7 @@ DELETE: SET_PAGE_X DIRPAGE
; DE - "new_name.ext",#00 without simbols * ?
////////////////////////////////////////////////////////////////////////
RENAME:
;!Test Current Dir
;!TEST Current Dir ;[x] 15/10/23
PUSH HL
PUSH DE
CALL DIR_PATH_CHECK.forceCheck
@ -307,7 +307,7 @@ RENAME:
; ¢ë室: A - ¤¥áªà¨¯â®à ä ©« , ¥á«¨ CF=0
; ª®¤ ®è¨¡ª¨, ¥á«¨ CF=1
////////////////////////////////////////////////////////////////////////
OPEN_FN:;!Test Current Dir ;[x] 15/10/23
OPEN_FN:;!TEST Current Dir ;[x] 15/10/23
LD C,A
PUSH HL
PUSH BC
@ -433,25 +433,26 @@ CLOSE: LD (F_FIRST.ACCESS),A
; A - ª®¤ ®è¨¡ª¨, ¥á«¨ CF=1
////////////////////////////////////////////////////////////////////////
F_FIRST:
;!Test Current Dir
LD C,A
PUSH HL
PUSH DE
PUSH BC
CALL DIR_PATH_CHECK
POP BC
POP DE
POP HL
RET C
LD A,C
;
; Current Dir [x] 15/10/23
; LD C,A
; PUSH HL
; PUSH DE
; PUSH BC
; CALL DIR_PATH_CHECK
; POP BC
; POP DE
; POP HL
; RET C
; LD A,C
; ;
LD (.ACCESS),A
LD (.DTABUF),DE
LD A,B
LD (.FNDMODE),A
PUSH HL
;!TEST Current Dir ;[x] 15/10/23
CALL DIR_PATH_CHECK
;
CALL LOADDIR
POP HL
CALL GETWORD
@ -848,7 +849,7 @@ PUT_D_T:
; INPUT: HL - "C:\DIR\DIR\DIR_NAME[\]",0
////////////////////////////////////////////////////////////////////////
CHDIR_FN:
;!Test Current Dir ;[x] 15/10/23
;!TEST Current Dir ;[x] 15/10/23
PUSH HL
CALL DIR_PATH_CHECK
POP HL
@ -872,7 +873,7 @@ CHDIR: CALL GETWORD ;
;
; INPUT: HL - "C:\DIR\DIR\DIR_NAME",0
////////////////////////////////////////////////////////////////////////
MKDIR: ;!Test Current Dir ;[x] 15/10/23
MKDIR: ;!TEST Current Dir ;[x] 15/10/23
LD C,A
PUSH HL
PUSH BC
@ -1046,7 +1047,7 @@ MKDIR: ;!Test Current Dir ;[x] 15/10/23
;
; INPUT: HL - "C:\DIR\DIR\DIR_NAME",0
////////////////////////////////////////////////////////////////////////
RMDIR: ;!Test Current Dir ;[x] 15/10/23
RMDIR: ;!TEST Current Dir ;[x] 15/10/23
LD C,A
PUSH HL
PUSH BC

2
DSS/DOS_FM.ASM
View File

@ -73,7 +73,7 @@ RES_FM:
_mFM_FIND
LD A,DSS_Error.sys.INVALID_HANDLE
EXX
;EXX
SCF
RET Z
XOR A

32
DSS/EXECUTE.ASM
View File

@ -21,6 +21,15 @@
;R01 14-05-1999 DNS DECREASE HEADER SIZE FOR EXE-FILE
;---------------------------------------------------------------
MACRO _mINCTASK
LD HL,TASK ;R08
INC (HL) ;R08
ENDM
;
MACRO _mDECTASK
LD HL,TASK ;R08
DEC (HL) ;R08
ENDM
//////////////////////////////////////////////////////////////////////
; !FIXIT âãâ ®¤­¨ § âã¯ë ¨ ¤¥¡¨«¨§¬
@ -779,14 +788,6 @@ PATH_PNT_ARRAY EQU #FC80
TMP_CURDIR EQU #FD00
ENVTEMP EQU #FE00
INCTASK: LD HL,TASK ;R08
INC (HL) ;R08
RET ;R08
DECTASK: LD HL,TASK ;R08
DEC (HL) ;R08
RET ;R08
;/////////////////////////////////////////////////////////////////////
; ”ã­ªæ¨ï #40. ‚믮«­¨âì ä ©«.
@ -852,10 +853,10 @@ EXEC_1: LD (CMDLINE),HL
CALL TST_EXT
LD A,DSS_Error.sys.FILE_NOT_FOUND
RET C
CALL INCTASK ;R08
_mINCTASK ;R08
CALL OPEN.FILE
JR NC,.noError
CALL DECTASK ;R08
_mDECTASK ;R08
AND A
RET
;
@ -996,7 +997,7 @@ ERREXE0: LD A,DSS_Error.sys.NOT_ENOUGH_MEMORY
ERREXE: PUSH AF
LD A,(EXE_FM)
CALL CLOSE
CALL DECTASK
_mDECTASK
POP AF
RET
@ -1046,7 +1047,7 @@ _TST_PROC:
IN A,(SLOT1)
PUSH DE
PUSH AF
;!Test close EXE FM [x] 25/10/23
;[x] 25/10/23 close EXE FM
LD A,(EXE_FM)
PUSH AF
;
@ -1131,7 +1132,7 @@ _TST_PROC_2:
LD DE,RETFAR ;  ¤à¥á ¯/¯ "­¥®¦¨¤ ­­®¥ § ¢¥à襭¨¥ ¯à®æ¥áá "
PUSH DE
PUSH HL
;!Test Current Dir ;[x] 15/10/23
;!TEST Current Dir ;[x] 15/10/23
PUSH IX
LD HL,CurrentDirectory
CALL CHDIR_FN
@ -1158,12 +1159,11 @@ _TST_PROC_2:
LEAVE: LD A,B
LD (ERLEVEL),A
CALL LEAVMEM
;CALL DECTASK ;!Test close EXE FM [x] 25/10/23
LD SP,(EXSTACK)
;!Test close EXE FM [x] 25/10/23
;[x] 25/10/23 close EXE FM
POP AF
CALL RES_FM
CALL DECTASK
_mDECTASK
;
POP AF
POP HL

2
DSS/build.txt
View File

@ -1 +1 @@
516
522

1
SHELL/SHELL_EXEC.ASM
View File

@ -157,7 +157,6 @@ A839D: ld bc,0*256 + Dss.Exec ;
CALL RESTORE_ALL
POP AF
;
;[x] 25/10/23
JP NC,Ret_New_Line ; Ok
;

2
Shared_Includes

@ -1 +1 @@
Subproject commit a8a109eb8f4ee85e47d65911e8a0f2d2f5b71db1
Subproject commit 4c835d305fd5d1bc296039706d5e163c1f2224ca