This commit is contained in:
Anatoliy Belyanskiy committed 2024-04-13 18:30:09 +10:00
1 parent c54d5d0eb8
commit 8b43cc426b
1 file changed
+13 -9
+13 -9
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