jpluimers/idle-call-release-time-slice.pas

Created January 3, 2015 12:06

Star 0 You must be signed in to star a gist
Fork 0 You must be signed in to fork a gist

Learn more about clone URLs
Clone this repository at <script src="https://gist.github.com/jpluimers/500d19d9005c9a042f4e.js"></script>
Save jpluimers/500d19d9005c9a042f4e to your computer and use it in GitHub Desktop.

Download ZIP

Release the current time slice in Turbo Pascal, Borland Pascal, and Delphi; see http://wiert.me/2013/06/12/crap-the-outsourcing-party-of-the-client-wrote-c-code-like-this-in-2005-and-nobody-scrutinized-it/#release-time-slice

Raw

idle-call-release-time-slice.pas

	asm
	int $28
	mov ax, $1000
	int $15 { DESQview/TopView give up time slice }
	mov ax, $1680
	int $2F
	end;

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment