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

...

Browse Source
This commit is contained in:
Anatoliy Belyanskiy 2024-04-13 18:30:09 +10:00
parent c54d5d0eb8
commit 8b43cc426b
1 changed files with 13 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
menu.asm
View File

@ -71,6 +71,18 @@ M_ALLOK
LD (HL),0
LDIR
LD C,Dss.CurDisk
RST ToDSS
ADD A,'A'
LD (WorkDir),A
LD A,':'
LD (WorkDir+1),A
LD C,Dss.CurDir
LD HL,WorkDir+2
RST ToDSS
POP HL
CALL EX_COMMAND_LINE
@ -275,15 +287,7 @@ INIT: XOR A
; XOR A
; LD (HL),A
;
LD C,Dss.CurDisk
RST ToDSS
ADD A,'A'
LD (WorkDir),A
LD A,':'
LD (WorkDir+1),A
LD C,Dss.CurDir
LD HL,WorkDir+2
JP ToDSS
RET
;
HNDMEM DB 0