...

menu.asm

@@ -239,7 +239,8 @@ NO_TO_CORR
 
 ; Initialization variables
 
-INIT	XOR	A
+INIT:	XOR	A
+	LD	D,A
 	LD	(QUITMODE),A
 	LD	(ITEMCOUNT),A
 	LD	(AEXIT),A
@@ -249,9 +250,30 @@ INIT	XOR	A
 	LD	(DEFAULT_ITEM),A
 	LD	(RUN_TIME),A
 	LD	(CMD_MENU),A
-	
 	DEC	A
 	LD	(GO_TIME),A
+	;
+	LD	A,(IX+0)
+	ADD	A,3
+	LD	E,A
+	EX	DE,HL
+	 LD	D,XH
+	 LD	E,XL
+	EX	DE,HL
+	ADD	HL,DE
+	LD	(WorkDirAddr),HL
+	;
+	XOR	A
+	LD	BC,128	;!HARDCODE ¤«¨­  CL
+	CPIR
+	DEC	HL
+	LD	BC,128	;!HARDCODE ¤«¨­  CL
+	LD	A,'\' ;
+	CPDR
+	INC	HL
+	XOR	A
+	LD	(HL),A
+	;
 	RET
 ;
 
@@ -278,38 +300,19 @@ CLICK2	LD	L,(IX+2)
 ;
 	LD	C,2
 	RST	#30
-;
-	;  POP	HL
-	; LD	C,Dss.PCHARS
-	; RST	ToDSS
 
-;<Sayman>
-	 ;push bc
-		; ld	c,Dss.CurDisk
-		; rst	#10
-		; add 	a,'A'
-		; ld	(cwd),a
-		; ld	a,':'
-		; ld	(cwd+1),a
-		; ld	c,Dss.CurDir
-		; ld	hl,cwd+2
-		; rst	#10
-;</Sayman>
 
 	POP	HL
-;<Sayman>
-	ld bc,Dss.Exec
-;</Sayman>
-	RST	ToDSS		;Launch the program
-;<Sayman>
-		; push af
 
-		; ld hl,cwd
-		; ld c,Dss.ChDir
-		; rst #10
-		; pop af
-	 ;pop bc
-;</Sayman>
+	LD	BC,Dss.Exec
+	RST	ToDSS		;Launch the program
+	PUSH	AF
+	;
+	LD	HL,(WorkDirAddr)
+	LD	C,Dss.ChDir
+	RST	ToDSS
+	;
+	POP	AF
 	JR	NC,OK_EXEC
 	LD	A,7
 	CALL	MESSAGE
@@ -931,10 +934,7 @@ CH_L6	LD	(WIN_Y),A
 	LD	(OBSOLUTE_CNT_POS),HL
 	RET
 
-;<Sayman>
-;cwd:	ds 256
-;</Sayman>
-
+WorkDirAddr:	WORD	0
 OBSOLUTE_CNT_POS
 	DW	0