edtoggle.asm

来自「Turbo Pascal 6.0编译器源码」· 汇编 代码 · 共 54 行

	include	ed.inc

	.code

	Entry	ToggleInsert
	xor	ds:Options,eoOverwrite
	Exit	ToggleInsert

	Entry	SetInsertMode
	and	ds:Options,not eoOverwrite
	Exit	SetInsertMode

	Entry	ToggleAutoIndent
	xor	ds:Options,eoAutoIndent
	Exit	ToggleAutoIndent

	Entry	SetAutoIndent
	or	ds:Options,eoAutoIndent
	Exit	SetAutoIndent

	Entry	ToggleAutoOutdent
	xor	ds:Options,eoAutoOutdent
	Exit	ToggleAutoOutdent

	Entry	SetAutoOutdent
	or	ds:Options,eoAutoOutdent
	Exit	SetAutoOutdent

	Entry	ToggleTabbingMode
	xor	ds:Options,eoUseTab
	Exit	ToggleTabbingMode

	Entry	SetTabbingMode
	or	ds:Options,eoUseTab
	Exit	SetTabbingMode

	Entry	ToggleOptimalFillMode
	xor	ds:Options,eoOptimalFill
	Exit	ToggleOptimalFillMode

	Entry	SetOptimalFillMode
	or	ds:Options,eoOptimalFill
	Exit	SetOptimalFillMode

	Entry	ToggleRoamingCursorMode
	xor	ds:Options,eoRoamingCursor
	Exit	ToggleRoamingCursorMode

	Entry	SetRoamingCursorMode
	or	ds:Options,eoRoamingCursor
	Exit	SetRoamingCursorMode

	end