Tolik-Trek/MountIMA
1
0
Fork 0
mirror of https://github.com/Tolik-Trek/MountIMA.git synced 2026-06-15 17:31:35 +03:00
Code Issues Actions Packages Projects Releases Wiki Activity

App_EXE_Version 1

Browse Source
This commit is contained in:
Anatoliy Belyanskiy 2024-03-29 23:34:30 +10:00 committed by Tolik
parent 7c9cb9d192
commit 3da5da0680
2 changed files with 24 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Shared_Includes

@ -1 +1 @@
Subproject commit 9a65a386bfb6aaccc7fb476a3e159a684af65743 Subproject commit 2b1e30c6108f0a5c271f84558e1e5f804a6d623a

23
mountima.asm
View File

@ -21,6 +21,7 @@
; Defines section ; Defines section
;-------------[] ;-------------[]
define NEED_LOADER 0 define NEED_LOADER 0
DEFINE App_EXE_Version 1
; define NeedSafePort_Y 0 ; define NeedSafePort_Y 0
;-------------[] ;-------------[]
@ -197,8 +198,7 @@ RMD_SAVE: XOR A ;LD A,FileAttr
RMD_MOUNT: LD A,(key_buff.FM) RMD_MOUNT: LD A,(key_buff.FM)
LD HL,0 LD HL,0
LD IX,0 LD IX,0
LD B,Dss.Move_FP.FrEnd LD BC,Dss.Move_FP.FrEnd
LD C,Dss.Move_FP
RST ToDSS ; 㧭 ñ¬ à §¬¥à ä ©«  RST ToDSS ; 㧭 ñ¬ à §¬¥à ä ©« 
; A - ä ©«®¢ë© ¬ ­¨¯ã«ïâ®à ; A - ä ©«®¢ë© ¬ ­¨¯ã«ïâ®à
; HL:IX - ᬥ饭¨¥ 㪠§ â¥«ï ¢ ä ©«¥ ; HL:IX - ᬥ饭¨¥ 㪠§ â¥«ï ¢ ä ©«¥
@ -302,8 +302,7 @@ RMD_MOUNT: LD A,(key_buff.FM)
LD A,(key_buff.FM) LD A,(key_buff.FM)
LD HL,0 LD HL,0
LD IX,0 LD IX,0
LD B,Dss.Move_FP.FrStart LD BC,Dss.Move_FP.FrStart
LD C,Dss.Move_FP
RST ToDSS RST ToDSS
IN A,(SLOT3) IN A,(SLOT3)
@ -395,7 +394,7 @@ error:
JP printANDexit JP printANDexit
; ;
messages: messages:
.good: DZ "\r\n All Done. Good luck)))\r\n" .good: DZ "\r\n",'Mountima:\> All Done. Good luck)))',"\r\n"
.noRAM: DZ "\r\nERROR! No enough memory.\r\n" .noRAM: DZ "\r\nERROR! No enough memory.\r\n"
.wrongMEMblkID: DZ "\r\nERROR! Invalid Memory block ID.\r\n" .wrongMEMblkID: DZ "\r\nERROR! Invalid Memory block ID.\r\n"
.wrongRAMdrv: DZ "\r\nERROR! Invalid RAM disk ID or RAM disk busy.\r\n" .wrongRAMdrv: DZ "\r\nERROR! Invalid RAM disk ID or RAM disk busy.\r\n"
@ -403,7 +402,14 @@ messages:
.writeFile: DZ "\r\nERROR! Unable to write disk image to file.\r\n" .writeFile: DZ "\r\nERROR! Unable to write disk image to file.\r\n"
.noFreeRAMdsk: DZ "\r\nERROR! The number of RAM disks in use has reached its maximum.\r\n" .noFreeRAMdsk: DZ "\r\nERROR! The number of RAM disks in use has reached its maximum.\r\n"
.WrongKeys: DZ "\r\nERROR! Wrong key combination.\r\n" .WrongKeys: DZ "\r\nERROR! Wrong key combination.\r\n"
.help: DZ "\r\n HELP MESSAGE IN PROGRESS\r\n" ;!TODO .help: DB "\r\nMountima Help:\r\n"
DB " /M - Mounts IMG file to RAM drive.\r\n"
DB " /U - Unmounts RAM drive.\r\n"
DB " /S - Saves RAM drive to IMG file.\r\n"
DB "Examples:\r\n"
DB ' mountima.exe /M c:\images\image.img', "\r\n"
DB ' mountima.exe /U e:', "\r\n"
DZ ' mountima.exe /S c:\images\image.img e:',"\r\n"
.UNDEFINED: DZ "\r\nUndefined error: SET_KEYS\r\n" ;!TODO .UNDEFINED: DZ "\r\nUndefined error: SET_KEYS\r\n" ;!TODO
;.test DZ "1234567890-1234567890-1234567890-1234567890" ;.test DZ "1234567890-1234567890-1234567890-1234567890"
;.help: DZ " HELP MESSAGE IN PROGRESS\r\n" ;!TODO ;.help: DZ " HELP MESSAGE IN PROGRESS\r\n" ;!TODO
@ -571,7 +577,7 @@ Set_keys: LD HL,(dss_line)
;-----------------; ;-----------------;
;-----------------; ;-----------------;
.OpenRDfile: LD BC,Dss.EX_Path.GET_ALL * 256 + Dss.EX_Path ; ¯à®¢¥à塞 ¡ãä¥à ­  ª®à४⭮áâì ¨¬¥­¨ ä ©«  .OpenRDfile: LD BC,Dss.EX_Path.GET_ALL ; ¯à®¢¥à塞 ¡ãä¥à ­  ª®à४⭮áâì ¨¬¥­¨ ä ©« 
RST ToDSS RST ToDSS
RET C ; ®è¨¡ª  ¢ áâப¥ RET C ; ®è¨¡ª  ¢ áâப¥
AND %00000011 ; ¯à®¢¥à塞, çâ® ¥áâì ¨¬ï ¨ AND %00000011 ; ¯à®¢¥à塞, çâ® ¥áâì ¨¬ï ¨
@ -593,8 +599,7 @@ Set_keys: LD HL,(dss_line)
EX DE,HL EX DE,HL
LD HL,Buffer LD HL,Buffer
LD B,Dss.EX_Path.GET_DRIVE LD BC,Dss.EX_Path.GET_DRIVE ; âãâ ®¯à¥¤¥«ï¥¬ ¨¬ï ¤¨áª  «¨ ¢ ¡ãä¥à¥
LD C,Dss.EX_Path ; âãâ ®¯à¥¤¥«ï¥¬ ¨¬ï ¤¨áª  «¨ ¢ ¡ãä¥à¥
RST ToDSS ; ¯®«ãç ¥¬ ¢ € «®£¨ç¥áª¨© ­®¬¥à ¤¨áª  RST ToDSS ; ¯®«ãç ¥¬ ¢ € «®£¨ç¥áª¨© ­®¬¥à ¤¨áª 
RET C RET C