******************************************					**	TwentyOne.x 乽偲偅偉偵偂傢傫乿	**	patch for human Ver 2.02,2.03	**					********************************************	file name:	options.s*	author:		俤倶倲 (T.Kawamoto)*	last modify:	92/3/1*			92/3/17 thanks YUU(HARUKA)*blpeek:	macro	moveq.l	#$84,d0	trap	#15	endm*getpdb:	macro	dc.w	$ff51	endm*	.xdef	_TwentyOneOptions*	.text*_TwentyOneOptions:	movem.l	a0-a2,-(sp)	bsr	search_memory_blindly	tst.l	d0	bne	return	bsr	search_device_blindlyreturn:	movem.l	(sp)+,a0-a2	rts*search_device_blindly:	lea	$00006800,a1search_NUL_device_loop:	cmp.l	#$00020000,a1	bcc	sd_not_found	blpeek	cmp.l	#'NUL ',d0	beq	found_NUL_device*	lea	4(a1),a1			* 埲壓偺梫椞傛傝						* 偙偙偱僀儞僋儕儊儞僩偡傞昁梫偼						* 偁傝傑偣傫	1992.03.17 YUU(HARUKA).	cmp.w	#'NU',d0	bne	search_NUL_device_loop	lea	-2(a1),a1	bra	search_NUL_device_loop*found_NUL_device:*	lea	-14(a1),a1			* 仼 偙偙偑偍偐偟偄	lea	-18(a1),a1			* IOCS B_LPEEK 偺栠傝抣 a1						* 偼 d0 偺抣傪庢摼偟偨傾僪儗僗 + 4						* 側偺偱師偺僨僶僀僗傊偺傾僪儗僗偼						* -18(a1) 偲側傝傑偡	1992.03.17 YUU.search_device:	blpeeksd_loop:	move.l	d0,a0	lea	$000E(a0),a2	bsr	check_TW	tst.l	d0	bne	sd_end	lea.l	(a0),a1	blpeek	cmp.l	#$ffffffff,d0	bne	sd_loopsd_not_found:	moveq.l	#0,d0sd_end:	rts*search_memory_blindly:	getpdb	move.l	d0,a1	lea	-16(a1),a1search_top_loop:	lea	4(a1),a1	blpeek	tst.l	d0	beq	found_top	move.l	d0,a1	bra	search_top_loop*found_top:	lea	-8(a1),a1			* 側偤偐偙偺峴偑僐儊儞僩峴偵側偭偰偄傑偟偨*	lea	8(a1),a1			* 懡暘偙偭偪偑僐儊儞僩峴偩偲巚偄傑偡						* 1992.03.17 YUU(HARUKA).search_memory:	lea	12(a1),a1	blpeeksm_loop:	move.l	d0,a0	lea	$010E(a0),a2	bsr	check_TW	tst.l	d0	bne	sm_end	lea	$000C(a0),a1	blpeek	tst.l	d0	bne	sm_loop	moveq.l	#0,d0sm_end:	rts*check_TW:	lea	(a2),a1	blpeek	cmp.l	#'?Twe',d0	beq	check_new	cmp.l	#'*Twe',d0	bne	check_errorcheck_old:	lea	$0004(a2),a1	blpeek	cmp.l	#'nty*',d0	bne	check_error	moveq.l	#-1,d0	rts*check_new:	lea	$0004(a2),a1	blpeek	cmp.l	#'nty?',d0	beq	check_new_E	cmp.l	#'ntyE',d0	bne	check_errorcheck_new_E:	lea	$0008(a2),a1	blpeek	rts*check_error:	moveq.l	#0,d0	rts*	dc.b	'TwentyOne Option Checker Ver 1.00 '	dc.b	'Copyright 1991,92 俤倶倲 (俿.俲awamoto)',0*	.end