Context Navigation

source: xtideuniversalbios/trunk/Assembly_Library/Src/Menu/Dialog/DialogFile.asm@ 623

Visit:

Last change on this file since 623 was 602, checked in by Krister Nordvall, 6 years ago

Changes:

SerDrive: Fixed a bug that prevented use of 3.5" 720 KB floppy disk images.
Also added support for Microsoft DMF (Distribution Media Format) floppy disk images.
XTIDECFG / Library: Minor size optimizations. Added a new macro (SKIP1B) as part of that.
BIOS: A small size optimization (2 bytes) to MODULE_8BIT_IDE_ADVANCED that is enabled only when USE_NEC_V is defined.

File size: 24.3 KB

Rev	Line
[41]	1	; Project name : Assembly Library
	2	; Description : Displays file dialog.
	3
[376]	4	;
[505]	5	; XTIDE Universal BIOS and Associated Tools
[526]	6	; Copyright (C) 2009-2010 by Tomi Tilli, 2011-2013 by XTIDE Universal BIOS Team.
[376]	7	;
	8	; This program is free software; you can redistribute it and/or modify
	9	; it under the terms of the GNU General Public License as published by
	10	; the Free Software Foundation; either version 2 of the License, or
	11	; (at your option) any later version.
[505]	12	;
[376]	13	; This program is distributed in the hope that it will be useful,
	14	; but WITHOUT ANY WARRANTY; without even the implied warranty of
	15	; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
[505]	16	; GNU General Public License for more details.
[376]	17	; Visit http://www.gnu.org/licenses/old-licenses/gpl-2.0.html
	18	;
[41]	19
	20	CURRENTDIR_CHARACTERS EQU 002Eh
	21	UPDIR_CHARACTERS EQU 2E2Eh
	22
	23	; Section containing code
	24	SECTION .text
	25
	26	;--------------------------------------------------------------------
	27	; DialogFile_GetFileNameWithIoInDSSI
	28	; Parameters:
	29	; DS:SI: Ptr to FILE_DIALOG_IO
	30	; SS:BP: Ptr to parent MENU
	31	; Returns:
	32	; Nothing
	33	; Corrupts registers:
[593]	34	; AX, BX, CX, DX, DI
[41]	35	;--------------------------------------------------------------------
	36	ALIGN JUMP_ALIGN
	37	DialogFile_GetFileNameWithIoInDSSI:
[593]	38	; We need to store default drive because user might change drive but
	39	; then cancel the file selection. In that case the original default directory
	40	; must be restored.
	41	call Drive_GetDefaultToAL
	42	push ax
	43
[41]	44	mov bx, FileEventHandler
	45	mov BYTE [si+FILE_DIALOG_IO.bUserCancellation], TRUE
[593]	46	call Dialog_DisplayWithDialogInputInDSSIandHandlerInBX
[41]	47
[593]	48	; Now restore the default drive if user cancellation
	49	pop dx
	50	cmp BYTE [si+FILE_DIALOG_IO.bUserCancellation], TRUE
[596]	51	jne SHORT .UserDidNotCancel
	52	jmp Drive_SetDefaultFromDL
	53
	54	.UserDidNotCancel:
[593]	55	ret
[41]	56
[593]	57
[41]	58	;--------------------------------------------------------------------
	59	; FileEventHandler
	60	; Common parameters for all events:
	61	; BX: Menu event (anything from MENUEVENT struct)
	62	; SS:BP: Ptr to DIALOG
	63	; Common return values for all events:
	64	; CF: Set if event processed
	65	; Cleared if event not processed
	66	; Corrupts registers:
	67	; All
	68	;--------------------------------------------------------------------
	69	ALIGN JUMP_ALIGN
	70	FileEventHandler:
	71	jmp [cs:bx+.rgfnEventHandlers]
	72
	73
	74	ALIGN JUMP_ALIGN
	75	.ItemSelectedFromCX:
	76	call LoadItemStringBufferToESDI
[106]	77	call Registers_CopyESDItoDSSI
[52]	78	call ItemLineSplitter_GetLineToDSSIandLengthToCXfromStringInDSSIwithIndexInCX
[41]	79	jmp ParseSelectionFromItemLineInDSSI
	80
	81
	82	ALIGN JUMP_ALIGN
	83	.RefreshInformation:
	84	call GetInfoLinesToCXandDialogFlagsToAX
	85	mov si, [cs:.rgszInfoStringLookup]
	86	xor bx, bx
	87	xchg dx, ax
	88	ALIGN JUMP_ALIGN
	89	.InfoLineLoop:
	90	shr dl, 1
	91	jnc SHORT .CheckNextFlag
	92	mov si, [cs:bx+.rgszInfoStringLookup]
	93	push bx
	94	CALL_DISPLAY_LIBRARY PrintNullTerminatedStringFromCSSI
	95	pop bx
	96	ALIGN JUMP_ALIGN
	97	.CheckNextFlag:
	98	inc bx
	99	inc bx
	100	loop .InfoLineLoop
	101	stc ; Event processed
	102	ret
	103
	104
[53]	105	ALIGN JUMP_ALIGN
	106	.RefreshItemFromCX:
	107	call LoadItemStringBufferToESDI
	108	mov ax, FILE_STRING_LENGTH
	109	xchg ax, cx
	110	mul cx
	111	add di, ax
	112	mov si, di
	113	mov bx, es
	114	dec cx ; Do not print LF at the end of file string
	115	CALL_DISPLAY_LIBRARY PrintCharBufferFromBXSIwithLengthInCX
	116	stc
	117	ret
	118
	119
[41]	120	ALIGN WORD_ALIGN
	121	.rgszInfoStringLookup:
	122	dw g_szChangeDrive
	123	dw g_szSelectDirectory
	124	dw g_szCreateNew
	125
	126	.rgfnEventHandlers:
	127	istruc MENUEVENT
	128	at MENUEVENT.InitializeMenuinitFromDSSI, dw InitializeMenuinitFromSSBP
[58]	129	at MENUEVENT.ExitMenu, dw Dialog_EventExitMenu
[41]	130	at MENUEVENT.IdleProcessing, dw Dialog_EventNotHandled
	131	at MENUEVENT.ItemHighlightedFromCX, dw Dialog_EventNotHandled
	132	at MENUEVENT.ItemSelectedFromCX, dw .ItemSelectedFromCX
	133	at MENUEVENT.KeyStrokeInAX, dw HandleFunctionKeyFromAH
	134	at MENUEVENT.RefreshTitle, dw Dialog_EventRefreshTitle
	135	at MENUEVENT.RefreshInformation, dw .RefreshInformation
[53]	136	at MENUEVENT.RefreshItemFromCX, dw .RefreshItemFromCX
[41]	137	iend
	138
	139
	140	;--------------------------------------------------------------------
[54]	141	; ReInitializeMenuinitFromSSBP
[41]	142	; InitializeMenuinitFromSSBP
	143	; Parameters:
	144	; SS:BP: Ptr to DIALOG
	145	; Returns:
	146	; Nothing
	147	; Corrupts registers:
	148	; All, except BP
	149	;--------------------------------------------------------------------
	150	ALIGN JUMP_ALIGN
[54]	151	ReInitializeMenuinitFromSSBP:
	152	call DisplayLoadingMessageInInformationArea
[41]	153	InitializeMenuinitFromSSBP:
	154	call LoadItemStringBufferToESDI
	155	call CreateStringFromCurrentDirectoryContentsToESDI
[46]	156	call LoadItemStringBufferToESDI
	157	call SortDirectoryContentsStringFromESDIwithCountInCX
[53]	158	call RemoveLastLFandTerminateESDIwithNull
[54]	159
[106]	160	call Registers_CopySSBPtoDSSI
[52]	161	xor ax, ax
	162	call Dialog_EventInitializeMenuinitFromDSSIwithHighlightedItemInAX
[41]	163	call GetInfoLinesToCXandDialogFlagsToAX
	164	mov [bp+MENUINIT.bInfoLines], cl
	165	CALL_DISPLAY_LIBRARY GetColumnsToALandRowsToAH
	166	mov [bp+MENUINIT.bHeight], ah ; Always max height
[52]	167	mov WORD [bp+MENU.wFirstVisibleItem], 0
[41]	168	ret
	169
	170
	171	;--------------------------------------------------------------------
	172	; LoadItemStringBufferToESDI
	173	; Parameters:
	174	; SS:BP: Ptr to DIALOG
	175	; Returns:
	176	; ES:DI: Ptr to item string buffer
	177	; Corrupts registers:
	178	; Nothing
	179	;--------------------------------------------------------------------
	180	ALIGN JUMP_ALIGN
	181	LoadItemStringBufferToESDI:
	182	les di, [bp+DIALOG.fpDialogIO]
	183	les di, [es:di+FILE_DIALOG_IO.fszItemBuffer]
	184	ret
	185
	186
	187	;--------------------------------------------------------------------
	188	; CreateStringFromCurrentDirectoryContentsToESDI
	189	; Parameters:
	190	; ES:DI: Buffer where to create item string
	191	; SS:BP: Ptr to DIALOG
	192	; Returns:
[46]	193	; CX: Number of files or directories found
[41]	194	; Corrupts registers:
[53]	195	; AX, BX, DX, SI, DI, DS
[41]	196	;--------------------------------------------------------------------
	197	ALIGN JUMP_ALIGN
	198	CreateStringFromCurrentDirectoryContentsToESDI:
[53]	199	mov bx, di
	200	CALL_DISPLAY_LIBRARY PushDisplayContext
	201	mov cx, -1
	202	CALL_DISPLAY_LIBRARY PrepareOffScreenBufferInESBXwithLengthInCX ; ES:DI now points to buffer
	203
[41]	204	lds si, [bp+DIALOG.fpDialogIO]
[293]	205	eMOVZX cx, [si+FILE_DIALOG_IO.bFileAttributes]
[41]	206	lds si, [si+FILE_DIALOG_IO.fpFileFilterString]
	207	call Directory_UpdateDTAForFirstMatchForDSSIwithAttributesInCX
[53]	208
[41]	209	call .ClearDLifInRootDirectory
	210	call Directory_GetDiskTransferAreaAddressToDSSI
[46]	211	xor cx, cx ; Clear file/directory count
[53]	212	call .FindMatchingFilesAndPrintThemToOffScreenBuffer
[41]	213
[505]	214	JMP_DISPLAY_LIBRARY PopDisplayContext
[41]	215
	216	;--------------------------------------------------------------------
	217	; .ClearDLifInRootDirectory
	218	; Parameters:
	219	; SS:BP: Ptr to DIALOG
	220	; ES:DI: Ptr to destination string buffer
	221	; Returns:
	222	; DL: Cleared if in root directory
	223	; Set if in any other directory
	224	; Corrupts registers:
	225	; AX, SI, DS
	226	;--------------------------------------------------------------------
	227	ALIGN JUMP_ALIGN
	228	.ClearDLifInRootDirectory:
[106]	229	call Registers_CopyESDItoDSSI
[41]	230	call Directory_WriteCurrentPathToDSSI
	231	mov dl, [si]
	232	ret
	233
	234	;--------------------------------------------------------------------
[53]	235	; .FindMatchingFilesAndPrintThemToOffScreenBuffer
[41]	236	; Parameters:
[53]	237	; CX: Initial directory count
	238	; DL: Zero if root directory selected
	239	; DS:SI: Ptr to DTA with first matching file
[41]	240	; Returns:
[53]	241	; CX: Incremented by number of files/directories found
[41]	242	; Corrupts registers:
[53]	243	; AX, BX, DX, DI, DS
[41]	244	;--------------------------------------------------------------------
	245	ALIGN JUMP_ALIGN
[53]	246	.FindMatchingFilesAndPrintThemToOffScreenBuffer:
	247	call AppendFileFromDTAinDSSItoOffScreenBuffer
	248	call Directory_UpdateDTAForNextMatchUsingPreviousParameters
	249	jnc SHORT .FindMatchingFilesAndPrintThemToOffScreenBuffer
[41]	250	ret
	251
[46]	252
[41]	253	;--------------------------------------------------------------------
[53]	254	; AppendFileFromDTAinDSSItoOffScreenBuffer
[41]	255	; Parameters:
[589]	256	; CX: Files/directories found
[41]	257	; DL: Zero if root directory selected
	258	; DS:SI: Ptr to DTA containing file information
	259	; Returns:
[46]	260	; CX: Incremented by number of files/directories found
[41]	261	; Corrupts registers:
[53]	262	; AX, BX
[41]	263	;--------------------------------------------------------------------
	264	ALIGN JUMP_ALIGN
[53]	265	AppendFileFromDTAinDSSItoOffScreenBuffer:
[592]	266	cmp WORD [si+DTA.szFile], CURRENTDIR_CHARACTERS
	267	je SHORT .Return ; We never want "."
	268	test dl, dl
	269	jnz SHORT .NotInRootDirectory
	270	cmp WORD [si+DTA.szFile], UPDIR_CHARACTERS
	271	je SHORT .Return ; No ".." when in root directory
	272	.NotInRootDirectory:
[46]	273	inc cx ; Nothing filtered so increment files/directories
[41]	274
	275	push bp
	276	push si
[53]	277	push dx
[46]	278	push cx
[41]	279	call .FormatFileOrDirectoryToBufferFromDTAinDSSI
[46]	280	pop cx
[53]	281	pop dx
[41]	282	pop si
	283	pop bp
[592]	284	.Return:
[41]	285	ret
	286
	287	;--------------------------------------------------------------------
	288	; .FormatFileOrDirectoryToBufferFromDTAinDSSI
	289	; Parameters:
	290	; DS:SI: Ptr to DTA containing file information
	291	; Returns:
	292	; Nothing
	293	; Corrupts registers:
	294	; AX, BX, CX, DX, SI, DI, BP
	295	;--------------------------------------------------------------------
	296	ALIGN JUMP_ALIGN
	297	.FormatFileOrDirectoryToBufferFromDTAinDSSI:
	298	mov bp, sp
	299	lea ax, [si+DTA.szFile]
	300
	301	test BYTE [si+DTA.bFileAttributes], FLG_FILEATTR_DIRECTORY
	302	jnz SHORT .FormatDirectory
[46]	303	; Fall to .FormatFile
[41]	304
[46]	305	;--------------------------------------------------------------------
	306	; .FormatFile
	307	; Parameters:
	308	; BP: SP before pushing formatting parameters
	309	; DS:AX: Far pointer to file name
	310	; DS:SI: Ptr to DTA containing file information
	311	; Returns:
	312	; Nothing
	313	; Corrupts registers:
[53]	314	; AX, BX, CX, DX, SI, DI
[46]	315	;--------------------------------------------------------------------
	316	.FormatFile:
	317	xchg si, ax
[53]	318	call String_ConvertDSSItoLowerCase
[46]	319	xchg ax, si
[52]	320
	321	; Push parameters for file name
[53]	322	push ax ; Push file name offset
	323	push ds ; Push file name segment
[46]	324
	325	; Push parameters for file size
[41]	326	mov ax, [si+DTA.dwFileSize]
	327	mov dx, [si+DTA.dwFileSize+2]
	328	xor bx, bx
	329	xor cx, cx
	330	call Size_GetSizeToAXAndCharToDLfromBXDXAXwithMagnitudeInCX
	331	mov cl, 'i'
	332	cmp dl, ' '
	333	eCMOVE cl, dl
	334	push ax
	335	push dx
	336	push cx
[46]	337
	338	; Format to buffer
[41]	339	mov si, g_szFileFormat
	340	jmp SHORT .FormatStringInCSSIandReturn
	341
[46]	342	;--------------------------------------------------------------------
	343	; .FormatDirectory
	344	; Parameters:
	345	; BP: SP before pushing formatting parameters
	346	; DS:AX: Far pointer to directory name
	347	; DS:SI: Ptr to DTA containing file information
	348	; Returns:
	349	; Nothing
	350	; Corrupts registers:
[53]	351	; AX, SI, DI
[46]	352	;--------------------------------------------------------------------
[41]	353	ALIGN JUMP_ALIGN
	354	.FormatDirectory:
[46]	355	push ax ; Push directory name offset
	356	push ds ; Push directory name segment
[41]	357	mov ax, g_szSub
	358	cmp WORD [si+DTA.szFile], UPDIR_CHARACTERS
	359	eCMOVE ax, g_szUp
	360	push ax
	361	mov si, g_szDirectoryFormat
	362	ALIGN JUMP_ALIGN
	363	.FormatStringInCSSIandReturn:
[505]	364	JMP_DISPLAY_LIBRARY FormatNullTerminatedStringFromCSSI
[41]	365
	366
	367	;--------------------------------------------------------------------
[46]	368	; SortDirectoryContentsStringFromESDIwithCountInCX
	369	; Parameters:
	370	; CX: Number of files and directories
	371	; ES:DI: Buffer containing directory contents string
	372	; SS:BP: Ptr to DIALOG
	373	; Returns:
[53]	374	; ES:DI: Ptr to end of directory contents string
[46]	375	; Corrupts registers:
[53]	376	; AX, BX, CX, DX, SI, DS
[46]	377	;--------------------------------------------------------------------
	378	ALIGN JUMP_ALIGN
	379	SortDirectoryContentsStringFromESDIwithCountInCX:
[106]	380	call Registers_CopyESDItoDSSI
[46]	381
[181]	382	; Add directory contents string length to DI
[53]	383	mov ax, FILE_STRING_LENGTH
[181]	384	push ax
[53]	385	mul cx
	386	add di, ax
	387
[181]	388	mov dx, cx
	389	pop cx
	390	mov bx, .FileStringComparator
	391	jmp Sort_ItemsFromDSSIwithCountInDXsizeInCXandComparatorInBX
	392
[46]	393	;--------------------------------------------------------------------
	394	; .FileStringComparator
	395	; Parameters:
	396	; CX: Item size in bytes
	397	; DS:SI: Ptr to first item to compare
	398	; ES:DI: Ptr to second item to compare
	399	; Returns:
[181]	400	; FLAGS: Signed comparison between first and second item
[46]	401	; Corrupts registers:
	402	; Nothing
	403	;--------------------------------------------------------------------
	404	ALIGN JUMP_ALIGN
	405	.FileStringComparator:
	406	push di
	407	push si
	408	push cx
	409	push bx
	410
	411	mov bx, FILE_STRING_LENGTH-2 ; Zero BH
	412	cmp WORD [si], UPDIR_CHARACTERS
	413	je SHORT .ForceValueFromDSSItoBeLess
	414	mov bl, [si+bx]
	415	cmp bl, [es:di+FILE_STRING_LENGTH-2] ; 'B' for files, 'R' for directories
	416	jne SHORT .ForceValueFromDSSItoBeMoreOrLess
	417	repe cmpsb ; Two directories or two files
	418
	419	ALIGN JUMP_ALIGN
	420	.ReturnFromComparison:
	421	pop bx
	422	pop cx
	423	pop si
	424	pop di
	425	ret
	426	ALIGN JUMP_ALIGN
	427	.ForceValueFromDSSItoBeMoreOrLess:
	428	ja SHORT .ForceValueFromDSSItoBeLess ; Directory in SI, file in DI
	429	xchg bl, bh
	430	; Fall to ForceValueFromDSSItoBeLess
	431	ALIGN JUMP_ALIGN
	432	.ForceValueFromDSSItoBeLess:
	433	cmp bh, bl
	434	jmp SHORT .ReturnFromComparison
	435
	436
	437	;--------------------------------------------------------------------
[54]	438	; RemoveLastLFandTerminateESDIwithNull
	439	; Parameters:
	440	; ES:DI: Ptr to end of buffer to terminate
	441	; Returns:
	442	; Nothing
	443	; Corrupts registers:
	444	; AX
	445	;--------------------------------------------------------------------
	446	ALIGN JUMP_ALIGN
	447	RemoveLastLFandTerminateESDIwithNull:
	448	dec di
	449	xor ax, ax
	450	stosb
	451	ret
	452
	453
	454	;--------------------------------------------------------------------
[41]	455	; GetInfoLinesToCXandDialogFlagsToAX
	456	; Parameters:
	457	; SS:BP: Ptr to DIALOG
	458	; Returns:
	459	; AX: Dialog flags
	460	; CX: Number of info lines to be displayed
	461	; Corrupts registers:
	462	; SI, DS
	463	;--------------------------------------------------------------------
	464	ALIGN JUMP_ALIGN
	465	GetInfoLinesToCXandDialogFlagsToAX:
[592]	466	ePUSH_T ax, Bit_GetSetCountToCXfromAX
	467	xor ah, ah
	468	; Fall to GetDialogFlagsToAL
[41]	469
	470	;--------------------------------------------------------------------
	471	; GetDialogFlagsToAL
	472	; Parameters:
	473	; SS:BP: Ptr to DIALOG
	474	; Returns:
	475	; AL: Dialog flags
	476	; Corrupts registers:
	477	; SI, DS
	478	;--------------------------------------------------------------------
	479	ALIGN JUMP_ALIGN
	480	GetDialogFlagsToAL:
	481	lds si, [bp+DIALOG.fpDialogIO]
	482	mov al, [si+FILE_DIALOG_IO.bDialogFlags]
	483	ret
	484
	485
	486	;--------------------------------------------------------------------
	487	; ParseSelectionFromItemLineInDSSI
	488	; Parameters:
	489	; DS:SI: Ptr to char buffer containing file or directory to be selected
	490	; SS:BP: Ptr to DIALOG
	491	; Returns:
	492	; Nothing
	493	; Corrupts registers:
	494	; All, except BP
	495	;--------------------------------------------------------------------
	496	ALIGN JUMP_ALIGN
	497	ParseSelectionFromItemLineInDSSI:
[46]	498	mov ax, [si]
	499	cmp ax, UPDIR_CHARACTERS
	500	je SHORT .ChangeToUpdir
	501	call Char_IsUpperCaseLetterInAL
	502	jc SHORT .ParseAndChangeToSubdirInDSSI
[141]	503	call Char_IsDecimalDigitInAL
	504	jc SHORT .ParseAndChangeToSubdirInDSSI ; Assume subdir and check for errors
[46]	505	; Fall to .ParseAndSelectFileFromDSSI
[41]	506
	507	;--------------------------------------------------------------------
[46]	508	; .ParseAndSelectFileFromDSSI
[41]	509	; Parameters:
[46]	510	; DS:SI: NULL terminated string selected from dialog
[41]	511	; SS:BP: Ptr to DIALOG
	512	; Returns:
	513	; Nothing (exits dialog)
	514	; Corrupts registers:
	515	; All, except BP
	516	;--------------------------------------------------------------------
[46]	517	.ParseAndSelectFileFromDSSI:
[41]	518	les di, [bp+DIALOG.fpDialogIO]
	519	add di, BYTE FILE_DIALOG_IO.szFile
	520	mov cx, FILENAME_BUFFER_SIZE-1
[50]	521	call Memory_CopyCXbytesFromDSSItoESDI
[41]	522	xor ax, ax
	523	stosb ; Terminate with NULL
[293]	524	jmp SHORT CloseFileDialogAfterSuccessfulSelection
[41]	525
	526	;--------------------------------------------------------------------
[46]	527	; .ChangeToUpdir
[41]	528	; Parameters:
	529	; SS:BP: Ptr to DIALOG
	530	; Returns:
	531	; Nothing
	532	; Corrupts registers:
	533	; All, except BP
	534	;--------------------------------------------------------------------
	535	ALIGN JUMP_ALIGN
[46]	536	.ChangeToUpdir:
[51]	537	push cs
	538	pop ds
[46]	539	mov si, g_szUpdir
	540	jmp SHORT .ChangeDirectoryToDSSI
	541
	542	;--------------------------------------------------------------------
	543	; .ParseAndChangeToSubdirInDSSI
	544	; Parameters:
	545	; DS:SI: NULL terminated string selected from dialog
	546	; SS:BP: Ptr to DIALOG
	547	; Returns:
	548	; Nothing
	549	; Corrupts registers:
	550	; All, except BP
	551	;--------------------------------------------------------------------
	552	ALIGN JUMP_ALIGN
	553	.ParseAndChangeToSubdirInDSSI:
	554	mov BYTE [si+12], NULL ; Terminate with NULL (unnecessary spaces do not matter)
	555	.ChangeDirectoryToDSSI:
[41]	556	call Directory_ChangeToPathFromDSSI
[141]	557	jc SHORT .ParseAndSelectFileFromDSSI ; Must have been a file starting with number
[41]	558	; Fall to RefreshFilesToDisplay
	559
	560	;--------------------------------------------------------------------
	561	; RefreshFilesToDisplay
	562	; Parameters:
	563	; SS:BP: Ptr to DIALOG
	564	; Returns:
	565	; Nothing
	566	; Corrupts registers:
	567	; All, except BP
	568	;--------------------------------------------------------------------
	569	ALIGN JUMP_ALIGN
	570	RefreshFilesToDisplay:
[54]	571	call ReInitializeMenuinitFromSSBP
[41]	572	jmp MenuInit_RefreshMenuWindow
	573
	574
	575	;--------------------------------------------------------------------
	576	; HandleFunctionKeyFromAH
	577	; Parameters:
	578	; AH: Scancode for function key
	579	; SS:BP: Ptr to DIALOG
	580	; Returns:
	581	; Nothing
	582	; Corrupts registers:
	583	; AX, SI, DI, BP
	584	;--------------------------------------------------------------------
	585	ALIGN JUMP_ALIGN
	586	HandleFunctionKeyFromAH:
	587	call GetDialogFlagsToAL
	588	cmp ah, KEY_FILEDIALOG_NEW_FILE_OR_DIR
	589	je SHORT HandleFunctionKeyForCreatingNewFileOrDirectory
	590	cmp ah, KEY_FILEDIALOG_SELECT_DIRECTORY
	591	je SHORT HandleFunctionKeyForSelectingDirectoryInsteadOfFile
	592	cmp ah, KEY_FILEDIALOG_CHANGE_DRIVE
	593	je SHORT HandleFunctionKeyForDriveChange
	594	ReturnWithoutHandlingKeystroke:
	595	clc ; Event not processed
	596	ret
	597
	598
	599	;--------------------------------------------------------------------
	600	; HandleFunctionKeyForCreatingNewFileOrDirectory
	601	; Parameters:
	602	; AL: File dialog flags
	603	; SS:BP: Ptr to DIALOG
	604	; Returns:
	605	; Closes file dialog
	606	; Corrupts registers:
	607	; All, except BP
	608	;--------------------------------------------------------------------
	609	ALIGN JUMP_ALIGN
	610	HandleFunctionKeyForCreatingNewFileOrDirectory:
	611	test al, FLG_FILEDIALOG_NEW
	612	jz SHORT ReturnWithoutHandlingKeystroke
	613
[602]	614	mov cl, STRING_DIALOG_IO_size
	615	call Memory_ReserveCLbytesFromStackToDSSI
[41]	616
[568]	617	;;; InitializeStringDialogIoInDSSIforInputtingFileName
[41]	618	call InitializeNullStringsToDialogInputInDSSI
	619	mov WORD [si+DIALOG_INPUT.fszTitle], g_szEnterNewFileOrDirectory
	620	mov WORD [si+STRING_DIALOG_IO.fnCharFilter], NULL
	621	mov WORD [si+STRING_DIALOG_IO.wBufferSize], FILENAME_BUFFER_SIZE
	622	les ax, [bp+DIALOG.fpDialogIO]
	623	add ax, BYTE FILE_DIALOG_IO.szFile
	624	mov [si+STRING_DIALOG_IO.fpReturnBuffer], ax
	625	mov [si+STRING_DIALOG_IO.fpReturnBuffer+2], es
[568]	626	;;;
[41]	627
[568]	628	CALL_MENU_LIBRARY GetStringWithIoInDSSI
	629	mov al, [si+STRING_DIALOG_IO.bUserCancellation]
	630	add sp, BYTE STRING_DIALOG_IO_size
	631	test al, al ; User cancellation?
	632	jnz SHORT ReturnWithoutHandlingKeystroke
	633	jmp CloseFileDialogAfterSuccessfulSelection
[41]	634
[568]	635
[41]	636	;--------------------------------------------------------------------
	637	; HandleFunctionKeyForSelectingDirectoryInsteadOfFile
	638	; Parameters:
	639	; AL: File dialog flags
	640	; SS:BP: Ptr to DIALOG
	641	; Returns:
	642	; Closes file dialog
	643	; Corrupts registers:
	644	; All, except BP
	645	;--------------------------------------------------------------------
	646	ALIGN JUMP_ALIGN
	647	HandleFunctionKeyForSelectingDirectoryInsteadOfFile:
	648	test al, FLG_FILEDIALOG_DIRECTORY
	649	jz SHORT ReturnWithoutHandlingKeystroke
[293]	650	; Fall to CloseFileDialogAfterSuccessfulSelection
[41]	651
	652	;--------------------------------------------------------------------
[293]	653	; CloseFileDialogAfterSuccessfulSelection
[41]	654	; Parameters:
	655	; SS:BP: Ptr to DIALOG
	656	; Returns:
	657	; Nothing (exits dialog)
	658	; Corrupts registers:
	659	; All, except BP
	660	;--------------------------------------------------------------------
	661	ALIGN JUMP_ALIGN
[293]	662	CloseFileDialogAfterSuccessfulSelection:
[41]	663	lds di, [bp+DIALOG.fpDialogIO]
	664	mov BYTE [di+FILE_DIALOG_IO.bUserCancellation], FALSE
	665	jmp MenuInit_CloseMenuWindow
	666
	667
	668	;--------------------------------------------------------------------
	669	; HandleFunctionKeyForDriveChange
	670	; Parameters:
	671	; AL: File dialog flags
	672	; SS:BP: Ptr to DIALOG
	673	; Returns:
	674	; Nothing
	675	; Corrupts registers:
	676	; All, except BP
	677	;--------------------------------------------------------------------
	678	ALIGN JUMP_ALIGN
	679	HandleFunctionKeyForDriveChange:
	680	test al, FLG_FILEDIALOG_DRIVES
	681	jz SHORT ReturnWithoutHandlingKeystroke
	682
[54]	683	call DisplayLoadingMessageInInformationArea
[602]	684	mov cl, DRIVE_DIALOG_IO_size
	685	call Memory_ReserveCLbytesFromStackToDSSI
[54]	686	call .DisplayDriveSelectionDialogWithIoInDSSI
	687	call .ChangeDriveToUserSelectionFromIoInDSSI
	688	add sp, BYTE DRIVE_DIALOG_IO_size
[592]	689	.UserCancelledDriveChange:
[54]	690	ret
[41]	691
	692	;--------------------------------------------------------------------
[54]	693	; .DisplayDriveSelectionDialogWithIoInDSSI
[41]	694	; Parameters:
[54]	695	; DS:SI: Ptr to uninitialized DRIVE_DIALOG_IO
[41]	696	; SS:BP: Ptr to DIALOG
	697	; Returns:
[54]	698	; DS:SI: Ptr to DRIVE_DIALOG_IO
[41]	699	; Corrupts registers:
[54]	700	; AX, DI
[41]	701	;--------------------------------------------------------------------
	702	ALIGN JUMP_ALIGN
[54]	703	.DisplayDriveSelectionDialogWithIoInDSSI:
[41]	704	call InitializeNullStringsToDialogInputInDSSI
	705	mov WORD [si+DIALOG_INPUT.fszTitle], g_szSelectNewDrive
[525]	706	JMP_MENU_LIBRARY GetDriveWithIoInDSSI
[41]	707
	708	;--------------------------------------------------------------------
[54]	709	; .ChangeDriveToUserSelectionFromIoInDSSI
[41]	710	; Parameters:
[54]	711	; DS:SI: Ptr to DRIVE_DIALOG_IO
[41]	712	; SS:BP: Ptr to DIALOG
	713	; Returns:
	714	; Nothing
	715	; Corrupts registers:
[54]	716	; All, except BP
[41]	717	;--------------------------------------------------------------------
	718	ALIGN JUMP_ALIGN
[54]	719	.ChangeDriveToUserSelectionFromIoInDSSI:
	720	cmp BYTE [si+DRIVE_DIALOG_IO.bUserCancellation], FALSE
	721	jne SHORT .UserCancelledDriveChange
[41]	722
[592]	723	; Install our Custom Critical Error Handler to catch "Drive Not Ready" errors. This handler only works on DOS 3.0+ systems
	724	; but that should be OK because only DOS 3.1+ will trigger it. Under older DOS versions drives are enumerated using
	725	; GET_DOS_DRIVE_PARAMETER_BLOCK_FOR_SPECIFIC_DRIVE which will access the drive so we know it is available at this point.
	726	mov dx, DosCritical_CustomHandler
	727	call DosCritical_InstallNewHandlerFromCSDX
	728
	729	; Save the current drive on stack in case the selected drive is not ready and the user decides to cancel the change.
	730	call Drive_GetDefaultToAL
	731	xchg dx, ax
	732
	733	.RetryDrive:
	734	push dx ; Save the previous current drive to stack
	735
[54]	736	mov dl, [si+DRIVE_DIALOG_IO.bReturnDriveNumber]
	737	call Drive_SetDefaultFromDL
[592]	738
	739	; Now we must try to force a media access to catch "Drive Not Ready".
	740	push ds
	741	push ss
	742	pop ds
[602]	743	ePUSH_T ax, CURRENTDIR_CHARACTERS ; The high byte is zero
[592]	744	mov cx, FLG_FILEATTR_DIRECTORY
	745	mov dx, sp
	746	mov ax, FIND_FIRST_MATCHING_FILE<<8
	747	int DOS_INTERRUPT_21h
[601]	748	; Returns ERR_DOS_NO_MORE_FILES only when the root directory is the current directory (at least under Windows XP).
	749	cmp al, ERR_DOS_PATH_NOT_FOUND
[592]	750	pop ax
	751	pop ds
	752
	753	pop dx ; Restore the previous current drive from stack
	754
	755	xchg ah, [cs:bLastCriticalError] ; Zero bLastCriticalError and fetch error code to AH
[601]	756	je SHORT .DriveIsNotReady ; A removable drive with no media (or possibly a drive that has not been formatted?)
[592]	757	cmp ah, ERR_DOS_DRIVE_NOT_READY
	758	jne SHORT .DriveIsReady
[601]	759	.DriveIsNotReady:
[592]	760	mov bx, g_szDlgDriveNotReady
	761	call Dialogs_DisplayYesNoResponseDialogWithTitleStringInBX
	762	jz SHORT .RetryDrive
	763	; The user cancelled the drive change. Restore current drive to what it was previously.
	764	call Drive_SetDefaultFromDL
	765	jmp DosCritical_RestoreDosHandler
	766
	767	.DriveIsReady:
	768	call DosCritical_RestoreDosHandler
[54]	769	jmp RefreshFilesToDisplay
[41]	770
	771
	772	;--------------------------------------------------------------------
[54]	773	; DisplayLoadingMessageInInformationArea
[53]	774	; Parameters:
[54]	775	; SS:BP: Ptr to DIALOG
[53]	776	; Returns:
	777	; Nothing
	778	; Corrupts registers:
[54]	779	; AX, BX, CX, DX, SI, DI
[53]	780	;--------------------------------------------------------------------
	781	ALIGN JUMP_ALIGN
[54]	782	DisplayLoadingMessageInInformationArea:
	783	call MenuText_ClearInformationArea
	784	call MenuText_PrepareToDrawInformationArea
	785	mov si, g_szLoadingPleaseWait
[505]	786	JMP_DISPLAY_LIBRARY PrintNullTerminatedStringFromCSSI
[53]	787
	788
	789	;--------------------------------------------------------------------
[41]	790	; InitializeNullStringsToDialogInputInDSSI
	791	; Parameters:
	792	; DS:SI: Ptr to DIALOG_INPUT
	793	; SS:BP: Ptr to DIALOG
	794	; Returns:
	795	; Nothing
	796	; Corrupts registers:
	797	; AX
	798	;--------------------------------------------------------------------
	799	ALIGN JUMP_ALIGN
	800	InitializeNullStringsToDialogInputInDSSI:
	801	mov ax, g_szNull
	802	mov [si+DIALOG_INPUT.fszTitle], ax
	803	mov [si+DIALOG_INPUT.fszTitle+2], cs
	804	mov [si+DIALOG_INPUT.fszItems], ax
	805	mov [si+DIALOG_INPUT.fszItems+2], cs
	806	mov [si+DIALOG_INPUT.fszInfo], ax
	807	mov [si+DIALOG_INPUT.fszInfo+2], cs
	808	ret

Note: See TracBrowser for help on using the repository browser.

Download in other formats: