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

some fixes with "Current dir" logic

Browse Source
This commit is contained in:
Anatoliy Belyanskiy 2023-11-01 01:30:19 +10:00
parent 8077291336
commit 5cce74f2a0
9 changed files with 56 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
DSS/DRV-MAIN.ASM
View File

@ -141,7 +141,7 @@ A0038: ;
; PUSH IY ;
; CALL KEYSCAN ;
; LD C,#80 ;
; RST #30 ;
; RST ToDSS.Mouse ;
; POP IY ;
; POP IX ;
; POP HL ;

10
DSS/DSS-MAIN.ASM
View File

@ -153,7 +153,7 @@ INT_: PUSH AF ;
PUSH IY ;
CALL KEYSCAN ;
LD C,#80 ;
RST #30 ;
RST ToDSS.Mouse ;
IFN CLASSIC_CURSOR ;
CALL cursor_interrupt; ¢¥ªâ®à ®¡á«ã¦. ªãàá®à  ;!!!!! VASIL
ENDIF ;
@ -286,11 +286,11 @@ F_START: DI
RET C ;R10
CALL KINIT
CALL PRINT_INIT
LD C,0 ;!HARDCODE
RST #30 ;!HARDCODE
LD C,Dss.Mouse.Init
RST ToDSS.Mouse
LD A,(VMODE)
LD C,#81 ;!HARDCODE
RST #30 ;!HARDCODE
LD C,Dss.Mouse.SetVideoMode
RST ToDSS.Mouse
;CALL INITDVC ;R05
;R05
LD C,Dss.DRV.Init

16
DSS/INTMOUSE.ASM
View File

@ -78,13 +78,13 @@ DMOUSE EQU #1A ; !FIXIT
;---------------------------------------------
; COMMAND 0Dh (RESERVED)
;---------------------------------------------
; COMMAND 0Eh (GET SENSETIVE)
; OUTPUT: H - VERTICAL SENSETIVE
; L - HORIZONTAL SENSETIVE
; COMMAND 0Eh (GET SENSITIVE)
; OUTPUT: H - VERTICAL SENSITIVE
; L - HORIZONTAL SENSITIVE
;---------------------------------------------
; COMMAND 0Fh (SET SENSETIVE)
; INPUT: H - VERTICAL SENSETIVE
; L - HORIZONTAL SENSETIVE
; COMMAND 0Fh (SET SENSITIVE)
; INPUT: H - VERTICAL SENSITIVE
; L - HORIZONTAL SENSITIVE
;---------------------------------------------
; COMMAND 80h (MOUSE HARDWARE INTERRUPT)
;---------------------------------------------
@ -358,8 +358,8 @@ MS_MASK
XOR A
RET
; H - VERTICAL SENSETIVE
; L - HORIZONTAL SENSETIVE
; H - VERTICAL SENSITIVE
; L - HORIZONTAL SENSITIVE
MS_SENT
LD (SENSEXY),HL

2
DSS/KEYINTER.ASM
View File

@ -357,7 +357,7 @@ K_CLEAR LD A,(HOST)
CP B
JR C,.error
LD C,B
JP #10
JP RST_10
.error: LD A,DSS_Error.sys.INVALID_FUNCTION
SCF
RET

8
DSS/VIDEO.ASM
View File

@ -416,10 +416,10 @@ SETVMOD:;BIT 7,A
JR Z,.NOMODE
DEC A
LD HL,TAB_40x32
JP Z,T_40_32
JR Z,T_40_32
DEC A
LD HL,TAB_80x32
JP Z,T_80_32
JR Z,T_80_32
.NOMODE: POP IX
LD A,DSS_Error.sys.INVALID_VIDEO_MODE
SCF
@ -460,8 +460,8 @@ GRAPH_NEXT:
AND #01
OUT (SCREEN_SWITCH),A
LD A,(VMODE)
LD C,#81
RST #30
LD C,Dss.Mouse.SetVideoMode
RST ToDSS.Mouse
SAFE_PORTY
XOR A
RET

2
DSS/build.txt
View File

@ -1 +1 @@
503
507

39
SHELL/SHELL_EXEC.ASM
View File

@ -151,12 +151,17 @@ RUN_EXT: ex de,hl ;
A839D: ld bc,0*256 + Dss.Exec ; § £à. ¨ ¢ë¯®«­¨âì ¯à®£à ¬¬ã
RST ToDSS
;R10
CALL Restore_Screen
;R10
;[x] 01/11/23 ;!TEST
PUSH AF
CALL RESTORE_ALL
POP AF
;
;[x] 25/10/23
JP NC,Ret_New_Line ; Ok
;
ld hl,(D8374)
cp DSS_Error.sys.FILE_NOT_FOUND
jr nz,A83DD
@ -197,10 +202,13 @@ A83B7: ld e,b
; hl=¨¬ï ä ©« 
A83D7: ld bc,0*256 + Dss.Exec ; § £à㧨âì ¯à®£à ¬¬ã, ¢ë¯®«­¨âì ä ©«
RST ToDSS
;R10
CALL Restore_Screen
;R10
;[x] 01/11/23 ;!TEST
PUSH AF
CALL RESTORE_ALL
POP AF
;
;[x] 25/10/23
JP NC,Ret_New_Line ; Ok
;
@ -216,3 +224,22 @@ Ret_New_Line:
OR E
RET Z
jp newline
RESTORE_ALL:
;[x] 01/11/23 ;!TEST
CALL save_disk_path
;
LD A,(screen_path)
SUB 'A'
LD C,Dss.ChDisk
RST ToDSS
;
LD HL,system_path
LD C,Dss.ChDir
RST ToDSS
;
;R10
CALL Restore_Screen
;R10
;
RET

2
SHELL/build.txt
View File

@ -1 +1 @@
88
94

2
Shared_Includes

@ -1 +1 @@
Subproject commit 374477690571809e7318bd4279bc7da120b6c492
Subproject commit a15861c07cab60eaf09c28226d0c7761b4fd8235