Tolik-Trek/MountIMA
1
0
Fork 0
mirror of https://github.com/Tolik-Trek/MountIMA.git synced 2026-06-15 09:21: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

41
mountima.asm
View File

@ -20,7 +20,8 @@
; Defines section
;-------------[]
define NEED_LOADER 0
define NEED_LOADER 0
DEFINE App_EXE_Version 1
; define NeedSafePort_Y 0
;-------------[]
@ -197,8 +198,7 @@ RMD_SAVE: XOR A ;LD A,FileAttr
RMD_MOUNT: LD A,(key_buff.FM)
LD HL,0
LD IX,0
LD B,Dss.Move_FP.FrEnd
LD C,Dss.Move_FP
LD BC,Dss.Move_FP.FrEnd
RST ToDSS ; 㧭 ñ¬ à §¬¥à ä ©« 
; A - ä ©«®¢ë© ¬ ­¨¯ã«ïâ®à
; HL:IX - ᬥ饭¨¥ 㪠§ â¥«ï ¢ ä ©«¥
@ -302,8 +302,7 @@ RMD_MOUNT: LD A,(key_buff.FM)
LD A,(key_buff.FM)
LD HL,0
LD IX,0
LD B,Dss.Move_FP.FrStart
LD C,Dss.Move_FP
LD BC,Dss.Move_FP.FrStart
RST ToDSS
IN A,(SLOT3)
@ -395,16 +394,23 @@ error:
JP printANDexit
;
messages:
.good: DZ "\r\n All Done. Good luck)))\r\n"
.noRAM: DZ "\r\n ERROR! No enough memory.\r\n"
.wrongMEMblkID: DZ "\r\n ERROR! Invalid Memory block ID.\r\n"
.wrongRAMdrv: DZ "\r\n ERROR! Invalid RAM disk ID or RAM disk busy.\r\n"
.readFile: DZ "\r\n ERROR! Unable to read disk image file.\r\n"
.writeFile: DZ "\r\n ERROR! Unable to write disk image to file.\r\n"
.noFreeRAMdsk: DZ "\r\n ERROR! The number of RAM disks in use has reached its maximum.\r\n"
.WrongKeys: DZ "\r\n ERROR! Wrong key combination.\r\n"
.help: DZ "\r\n HELP MESSAGE IN PROGRESS\r\n" ;!TODO
.UNDEFINED: DZ "\r\n Undefined error: SET_KEYS\r\n" ;!TODO
.good: DZ "\r\n",'Mountima:\> All Done. Good luck)))',"\r\n"
.noRAM: DZ "\r\nERROR! No enough memory.\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"
.readFile: DZ "\r\nERROR! Unable to read disk image 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"
.WrongKeys: DZ "\r\nERROR! Wrong key combination.\r\n"
.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
;.test DZ "1234567890-1234567890-1234567890-1234567890"
;.help: DZ " HELP MESSAGE IN PROGRESS\r\n" ;!TODO
ENDMODULE
@ -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
RET C ; ®è¨¡ª  ¢ áâப¥
AND %00000011 ; ¯à®¢¥à塞, çâ® ¥áâì ¨¬ï ¨
@ -593,8 +599,7 @@ Set_keys: LD HL,(dss_line)
EX DE,HL
LD HL,Buffer
LD B,Dss.EX_Path.GET_DRIVE
LD C,Dss.EX_Path ; âãâ ®¯à¥¤¥«ï¥¬ ¨¬ï ¤¨áª  «¨ ¢ ¡ãä¥à¥
LD BC,Dss.EX_Path.GET_DRIVE ; âãâ ®¯à¥¤¥«ï¥¬ ¨¬ï ¤¨áª  «¨ ¢ ¡ãä¥à¥
RST ToDSS ; ¯®«ãç ¥¬ ¢ € «®£¨ç¥áª¨© ­®¬¥à ¤¨áª 
RET C