...

TRDOS/TR_HDD_4.ASZ

@@ -55,72 +55,50 @@ HDD_PROG_E:
 	JP AUTO_03E4
 
 ;
-HDD_SET:;!TEST
+HDD_SET:
 .loop:		LD	A,(DE)
 		INC	DE
 		CP	" "
 		JR	Z,.loop
 		CP	"\r"
-		 JR	Z,.init
+		JR	Z,.check
 		;
 		DEC	DE
 		DEC	DE
 		JP	CHOOSE_HDD
-		 ;CALL	CHOOSE_HDD
-		 ;CALL	READ_BPB
-		 ;RET
 		;
 ; [x] new tr-hdd
-.init:		;CALL	CORRECT_CUR_DIR
+.check:		DI
-		DI
 		LD	BC,SLOT3
 		IN	B,(C)
-		;LD	C,A
 		LD	A,SYS_PAGE
 		OUT	(SLOT3),A
 		;
 		LD	E,DRIVE_CODES.TRDOS.HDD
 		LD	A,(SYS_PAGE.CURRENT_DIR_DRIVE_COPY)
 		CP	#FF
-		SCF
+		JR	Z,.init
-		JR	Z,.skip
-		;
 		CP	E
-		JR	C,.skip
+		JR	C,.init
+		;
 		LD	(SYS_PAGE.CURRENT_DIR_DRIVE),A
-		;
-		AND	#0F
-		; !TEST
 		OUT	(C),B
-		 ;
 		PUSH	DE
+		AND	#0F
 		LD	C,BIOS.HDD_PART
 		CALL	EXP_FNS
 		POP	DE
 		JR	C,CHOOSE_HDD.error
+		JR	.exit
 		;
-		 LD	C,BIOS.SET_DISK_REDIR
+.init:		OUT	(C),B
-		 JP	EXP_FNS
-		 ;
-		 ;LD	(SYS_PAGE.CURRENT_HDD),A
-		;
-		;
-;.skip:		LD	A,C
-; 		OUT	(SLOT3),A
-.skip:		OUT	(C),B
-		;
 		PUSH	DE
 		LD	C,BIOS.HDD_INIT
 		CALL	EXP_FNS
 		POP	DE
 		JP	C,HDD_PROG_E
 		;
-		; LD	BC,(ZX_VARS.OPER_DISK - 1)
+.exit:		LD	C,BIOS.SET_DISK_REDIR
-		; LD A,(ZX_VARS.OPER_DISK)
-		; LD B,A
-		; XOR A
-		;LD	E,A
-		LD	C,BIOS.SET_DISK_REDIR
 		JP	EXP_FNS