File: options.s

package info (click to toggle)
unzip 5.40-1
  • links: PTS
  • area: non-free
  • in suites: potato
  • size: 4,120 kB
  • ctags: 5,900
  • sloc: ansic: 40,977; cpp: 3,778; makefile: 1,384; asm: 1,228; sh: 133
file content (142 lines) | stat: -rw-r--r-- 2,332 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
*****************************************
*					*
*	TwentyOne.x �u�Ƃ����ɂ����v	*
*	patch for human Ver 2.02,2.03	*
*					*
*****************************************
*
*	file name:	options.s
*	author:		�d���� (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_blindly
return:
	movem.l	(sp)+,a0-a2
	rts
*
search_device_blindly:
	lea	$00006800,a1
search_NUL_device_loop:
	cmp.l	#$00020000,a1
	bcc	sd_not_found
	blpeek
	cmp.l	#'NUL ',d0
	beq	found_NUL_device
*	lea	4(a1),a1			* �ȉ��̗v�̂��
						* �����ŃC���N�������g����K�v��
						* ����܂���	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 �̖߂�l a1
						* �� d0 �̒l��擾�����A�h���X + 4
						* �Ȃ̂Ŏ��̃f�o�C�X�ւ̃A�h���X��
						* -18(a1) �ƂȂ�܂�	1992.03.17 YUU.
search_device:
	blpeek
sd_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_loop
sd_not_found:
	moveq.l	#0,d0
sd_end:
	rts
*
search_memory_blindly:
	getpdb
	move.l	d0,a1
	lea	-16(a1),a1
search_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			* �Ȃ������̍s���R�����g�s�ɂȂ��Ă��܂���
*	lea	8(a1),a1			* �������������R�����g�s���Ǝv���܂�
						* 1992.03.17 YUU(HARUKA).
search_memory:
	lea	12(a1),a1
	blpeek
sm_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,d0
sm_end:
	rts
*
check_TW:
	lea	(a2),a1
	blpeek
	cmp.l	#'?Twe',d0
	beq	check_new
	cmp.l	#'*Twe',d0
	bne	check_error
check_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_error
check_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 �d���� (�s.�jawamoto)',0
*
	.end