Estex-DSS/DSS/API/ScanDRV.asm

;R12
;///////////////////////////////////////////////////////////////////////
; ”ã­ªæ¨ï #08 (DSS_RESCAN). <20>¥à¥áª ­¨à®¢ âì ¤¥¢ ©áë á¨á⥬ë.
;
; ¢å®¤: ­¥â
; ¢ë室: A - ­®¬¥à ¯®á«¥¤­¥£® «®£. ¤¨áª  ¢ á¨á⥬¥
;///////////////////////////////////////////////////////////////////////
; INCLUDE	'ScanDRV.asm'
;!TODO ª®¤ ¤¨ª® ª®áâë«ì­ë© ¨ ¡ã¤¥â ¯¥à¥¤¥« ­ ¢¬¥áâ¥ á ¯à®æ¥¤ãன INITDVC
SCANDRV:
; 1. § ¯®¬¨­ ¥¬ á®áâ®ï­¨¥ ¯à¥à뢠­¨©
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -;
	LD	A,R
	DI
	PUSH	AF
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -;
; 2. 㧭 ñ¬ ¡ãª¢ã ¡ãâ-¤¨áª 
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -;
	CALL	BOOTDSK.GET
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -;
; 3. ¢ë§ë¢ ¥¬ à¥áª ­
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -;
	; A = Boot disk
	LD	B,A
	LD	A,Dss.DRV.RescanDRV
	LD	C,Dss.DRV.RescanDRV
	RST	ToDSS.DRV
	; ¯à®¢¥àª  ­  ®è¨¡ªã boot disk lost
	LD	HL,.BOOT_DSK_LOST
	LD	E, +(80-.BOOT_DSK_LOST.size)/2 ; coord X
	LD	BC,.BOOT_DSK_LOST.size
	JP	C,KERNEL_PANIC
	;
	LD	(LDRIVE),A
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -;
; 4. ­  ¢á直© á«ãç © ¯¥à¥ç¨â뢠¥¬ ¤¨à४â®à¨î
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -;
	LD	A,(CurrentPath)
	SUB	'A'
	CALL	CHNDISK
	;
	LD	HL,CurrentDirectory
	CALL	CHDIR
	JR	NC,.exit
	LD	HL,CurrentDirectory
	LD	(HL),0
	; LD	HL,CurrentPath
	; CALL	CHDIR
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -;
; 5. ¢ë室
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -;
.exit:	POP	AF
	RET	PO
	EI
	RET
	;
.BOOT_DSK_LOST:
	DZ "Boot drive lost o_O"
.BOOT_DSK_LOST.size EQU $-.BOOT_DSK_LOST
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -;
;///////////////////////////////////////////////////////////////////////
;