mirror of
https://github.com/Tolik-Trek/Estex-DSS.git
synced 2026-06-15 17:31:47 +03:00
some fixes with "Current dir" logic
This commit is contained in:
Anatoliy Belyanskiy
parent
8077291336
commit
5cce74f2a0
@ -141,7 +141,7 @@ A0038: ;
|
|||||||
; PUSH IY ;
|
; PUSH IY ;
|
||||||
; CALL KEYSCAN ;
|
; CALL KEYSCAN ;
|
||||||
; LD C,#80 ;
|
; LD C,#80 ;
|
||||||
; RST #30 ;
|
; RST ToDSS.Mouse ;
|
||||||
; POP IY ;
|
; POP IY ;
|
||||||
; POP IX ;
|
; POP IX ;
|
||||||
; POP HL ;
|
; POP HL ;
|
||||||
|
|||||||
@ -153,7 +153,7 @@ INT_: PUSH AF ;
|
|||||||
PUSH IY ;
|
PUSH IY ;
|
||||||
CALL KEYSCAN ;
|
CALL KEYSCAN ;
|
||||||
LD C,#80 ;
|
LD C,#80 ;
|
||||||
RST #30 ;
|
RST ToDSS.Mouse ;
|
||||||
IFN CLASSIC_CURSOR ;
|
IFN CLASSIC_CURSOR ;
|
||||||
CALL cursor_interrupt; ¢¥ªâ®à ®¡á«ã¦. ªãàá®à ;!!!!! VASIL
|
CALL cursor_interrupt; ¢¥ªâ®à ®¡á«ã¦. ªãàá®à ;!!!!! VASIL
|
||||||
ENDIF ;
|
ENDIF ;
|
||||||
@ -286,11 +286,11 @@ F_START: DI
|
|||||||
RET C ;R10
|
RET C ;R10
|
||||||
CALL KINIT
|
CALL KINIT
|
||||||
CALL PRINT_INIT
|
CALL PRINT_INIT
|
||||||
LD C,0 ;!HARDCODE
|
LD C,Dss.Mouse.Init
|
||||||
RST #30 ;!HARDCODE
|
RST ToDSS.Mouse
|
||||||
LD A,(VMODE)
|
LD A,(VMODE)
|
||||||
LD C,#81 ;!HARDCODE
|
LD C,Dss.Mouse.SetVideoMode
|
||||||
RST #30 ;!HARDCODE
|
RST ToDSS.Mouse
|
||||||
;CALL INITDVC ;R05
|
;CALL INITDVC ;R05
|
||||||
;R05
|
;R05
|
||||||
LD C,Dss.DRV.Init
|
LD C,Dss.DRV.Init
|
||||||
|
|||||||
@ -78,13 +78,13 @@ DMOUSE EQU #1A ; !FIXIT
|
|||||||
;---------------------------------------------
|
;---------------------------------------------
|
||||||
; COMMAND 0Dh (RESERVED)
|
; COMMAND 0Dh (RESERVED)
|
||||||
;---------------------------------------------
|
;---------------------------------------------
|
||||||
; COMMAND 0Eh (GET SENSETIVE)
|
; COMMAND 0Eh (GET SENSITIVE)
|
||||||
; OUTPUT: H - VERTICAL SENSETIVE
|
; OUTPUT: H - VERTICAL SENSITIVE
|
||||||
; L - HORIZONTAL SENSETIVE
|
; L - HORIZONTAL SENSITIVE
|
||||||
;---------------------------------------------
|
;---------------------------------------------
|
||||||
; COMMAND 0Fh (SET SENSETIVE)
|
; COMMAND 0Fh (SET SENSITIVE)
|
||||||
; INPUT: H - VERTICAL SENSETIVE
|
; INPUT: H - VERTICAL SENSITIVE
|
||||||
; L - HORIZONTAL SENSETIVE
|
; L - HORIZONTAL SENSITIVE
|
||||||
;---------------------------------------------
|
;---------------------------------------------
|
||||||
; COMMAND 80h (MOUSE HARDWARE INTERRUPT)
|
; COMMAND 80h (MOUSE HARDWARE INTERRUPT)
|
||||||
;---------------------------------------------
|
;---------------------------------------------
|
||||||
@ -358,8 +358,8 @@ MS_MASK
|
|||||||
XOR A
|
XOR A
|
||||||
RET
|
RET
|
||||||
|
|
||||||
; H - VERTICAL SENSETIVE
|
; H - VERTICAL SENSITIVE
|
||||||
; L - HORIZONTAL SENSETIVE
|
; L - HORIZONTAL SENSITIVE
|
||||||
|
|
||||||
MS_SENT
|
MS_SENT
|
||||||
LD (SENSEXY),HL
|
LD (SENSEXY),HL
|
||||||
|
|||||||
@ -357,7 +357,7 @@ K_CLEAR LD A,(HOST)
|
|||||||
CP B
|
CP B
|
||||||
JR C,.error
|
JR C,.error
|
||||||
LD C,B
|
LD C,B
|
||||||
JP #10
|
JP RST_10
|
||||||
.error: LD A,DSS_Error.sys.INVALID_FUNCTION
|
.error: LD A,DSS_Error.sys.INVALID_FUNCTION
|
||||||
SCF
|
SCF
|
||||||
RET
|
RET
|
||||||
|
|||||||
@ -416,10 +416,10 @@ SETVMOD:;BIT 7,A
|
|||||||
JR Z,.NOMODE
|
JR Z,.NOMODE
|
||||||
DEC A
|
DEC A
|
||||||
LD HL,TAB_40x32
|
LD HL,TAB_40x32
|
||||||
JP Z,T_40_32
|
JR Z,T_40_32
|
||||||
DEC A
|
DEC A
|
||||||
LD HL,TAB_80x32
|
LD HL,TAB_80x32
|
||||||
JP Z,T_80_32
|
JR Z,T_80_32
|
||||||
.NOMODE: POP IX
|
.NOMODE: POP IX
|
||||||
LD A,DSS_Error.sys.INVALID_VIDEO_MODE
|
LD A,DSS_Error.sys.INVALID_VIDEO_MODE
|
||||||
SCF
|
SCF
|
||||||
@ -460,8 +460,8 @@ GRAPH_NEXT:
|
|||||||
AND #01
|
AND #01
|
||||||
OUT (SCREEN_SWITCH),A
|
OUT (SCREEN_SWITCH),A
|
||||||
LD A,(VMODE)
|
LD A,(VMODE)
|
||||||
LD C,#81
|
LD C,Dss.Mouse.SetVideoMode
|
||||||
RST #30
|
RST ToDSS.Mouse
|
||||||
SAFE_PORTY
|
SAFE_PORTY
|
||||||
XOR A
|
XOR A
|
||||||
RET
|
RET
|
||||||
|
|||||||
@ -1 +1 @@
|
|||||||
503
|
507
|
||||||
@ -151,12 +151,17 @@ RUN_EXT: ex de,hl ;
|
|||||||
|
|
||||||
A839D: ld bc,0*256 + Dss.Exec ; § £à. ¨ ¢ë¯®«¨âì ¯à®£à ¬¬ã
|
A839D: ld bc,0*256 + Dss.Exec ; § £à. ¨ ¢ë¯®«¨âì ¯à®£à ¬¬ã
|
||||||
RST ToDSS
|
RST ToDSS
|
||||||
;R10
|
|
||||||
CALL Restore_Screen
|
;[x] 01/11/23 ;!TEST
|
||||||
;R10
|
PUSH AF
|
||||||
|
CALL RESTORE_ALL
|
||||||
|
POP AF
|
||||||
|
;
|
||||||
|
|
||||||
;[x] 25/10/23
|
;[x] 25/10/23
|
||||||
JP NC,Ret_New_Line ; Ok
|
JP NC,Ret_New_Line ; Ok
|
||||||
;
|
;
|
||||||
|
|
||||||
ld hl,(D8374)
|
ld hl,(D8374)
|
||||||
cp DSS_Error.sys.FILE_NOT_FOUND
|
cp DSS_Error.sys.FILE_NOT_FOUND
|
||||||
jr nz,A83DD
|
jr nz,A83DD
|
||||||
@ -197,10 +202,13 @@ A83B7: ld e,b
|
|||||||
; hl=¨¬ï ä ©«
|
; hl=¨¬ï ä ©«
|
||||||
A83D7: ld bc,0*256 + Dss.Exec ; § £à㧨âì ¯à®£à ¬¬ã, ¢ë¯®«¨âì ä ©«
|
A83D7: ld bc,0*256 + Dss.Exec ; § £à㧨âì ¯à®£à ¬¬ã, ¢ë¯®«¨âì ä ©«
|
||||||
RST ToDSS
|
RST ToDSS
|
||||||
;R10
|
|
||||||
CALL Restore_Screen
|
;[x] 01/11/23 ;!TEST
|
||||||
;R10
|
PUSH AF
|
||||||
|
CALL RESTORE_ALL
|
||||||
|
POP AF
|
||||||
;
|
;
|
||||||
|
|
||||||
;[x] 25/10/23
|
;[x] 25/10/23
|
||||||
JP NC,Ret_New_Line ; Ok
|
JP NC,Ret_New_Line ; Ok
|
||||||
;
|
;
|
||||||
@ -216,3 +224,22 @@ Ret_New_Line:
|
|||||||
OR E
|
OR E
|
||||||
RET Z
|
RET Z
|
||||||
jp newline
|
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
|
||||||
@ -1 +1 @@
|
|||||||
88
|
94
|
||||||
@ -1 +1 @@
|
|||||||
Subproject commit 374477690571809e7318bd4279bc7da120b6c492
|
Subproject commit a15861c07cab60eaf09c28226d0c7761b4fd8235
|
||||||
Loading…
Reference in New Issue
Block a user