summaryrefslogtreecommitdiff
path: root/v4.0/src/CMD/MODE/TYPAMAT.ASM
diff options
context:
space:
mode:
Diffstat (limited to 'v4.0/src/CMD/MODE/TYPAMAT.ASM')
-rw-r--r--v4.0/src/CMD/MODE/TYPAMAT.ASM263
1 files changed, 263 insertions, 0 deletions
diff --git a/v4.0/src/CMD/MODE/TYPAMAT.ASM b/v4.0/src/CMD/MODE/TYPAMAT.ASM
new file mode 100644
index 0000000..a2447ae
--- /dev/null
+++ b/v4.0/src/CMD/MODE/TYPAMAT.ASM
@@ -0,0 +1,263 @@
1.XLIST
2INCLUDE STRUC.INC
3.LIST
4.SALL
5 PAGE ,132 ;
6 TITLE TYPAMAT.SAL - TYPAMATIC RATE AND DELAY CONTROL FOR MODE COMMAND
7
8
9;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴�
10;�
11;� SET_TYPAMATIC
12;� -------------
13;� Translate the input parameters into BIOS digestable values and make the
14;� required calls. Typamatic support in BIOS exists only in machines with
15;� BIOS dated 11/15/85 or later, XT286 and all PS/2 products.
16;�
17;�
18;�; INPUT: A binary value from 1 to 32 indicating the typamatic rate
19;� desired and a binary value from 1 to 4 indicating the delay.
20;� Status is not supported on machines known today.
21;� The translation of the typamatic value to BIOS
22;� input is 32 - r where 'r' is the input value. The translation
23;� from 'd' the input delay value to the BIOS is d - 1. 'r'
24;� is passed in BL, 'd' is passed in BH.
25;�
26;� RETURN: none
27;�
28;�
29;� MESSAGES: none
30;�
31;�
32;�
33;� REGISTER
34;� USAGE AND
35;� COMVENTIONS: BX is used to pass parameters to BIOS
36;� The names used to represent the valid machines are: AT3, XT286,
37;� PS2Model30, PS2Model50, PS2Model60 and PS2Model80.
38;�
39;� ASSUMPTIONS: Input values are valid.
40;�
41;�
42;� SIDE EFFECT:
43;�
44;�
45;� 桁桁桁桁桁桁桁桁桁桁桁桁桁桁桁桁桁桁桁桁桁桁桁桁桁桁桁桁桁桁桁桁桁桁桁�
46;�
47;� BEGIN
48;�
49;� IF (machine_type>AT) OR ((machine_type=AT) AND (BIOS_date >= 11/15/85)) OR
50;� (machine_type=XT286) THEN
51;� IF typamatic_rate <> 0 THEN �
52;� MOV BL,32-BL ;translate typamatic rate �
53;� ELSE �
54;� MOV BL,previous_typamatic_rate ;not specified so no change �
55;� ENDIF �
56;� IF delay <> 0 THEN �
57;� SUB BH,1 ;translate delay �
58;� ELSE �
59;� MOV BH,previous_delay_rate �
60;� ENDIF �
61;� MOV AH,set_typamatic_rate_and_delay ;INT 16 set typamatic function �
62;� MOV AL,typamatic_function ;set typamatic subfunction �
63;� INT 16H �
64;� ELSE �
65;� queue Function_not_supported �
66;� ENDIF �
67;� �
68;� END �
69;�
70;읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴�
71
72
73
74
75;�袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴 M A C R O S 袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴敲
76;� �
77
78
79
80DISPLAY MACRO MESSAGE
81 MOV DX,OFFSET MESSAGE
82 CALL PRINTF
83ENDM
84
85SET MACRO REG,VALUE ;SET REG TO VALUE. DON'T SPECIFY AX FOR REG
86
87 PUSH AX
88 MOV AX,VALUE
89 MOV REG,AX
90 POP AX
91
92ENDM
93
94;� �
95;훤袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴� M A C R O S 袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴暠
96
97
98;�袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴� E Q U A T E S 袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴�
99;� �
100
101get_installed_state EQU 0 ;function of MODE INT 2FH handler
102get_typamatic_delay EQU 04 ;function of MODE INT 2FH handler
103get_typamatic_rate EQU 03 ;function of MODE INT 2FH handler
104installed EQU 0FFH ;return from MODE INT 2FH handler
105no_previous_setting EQU 0FFH ;return from MODE INT 2FH handler get setting call
106one_half_second EQU 01 ;value for BIOS INT 16H
107resident_MODE EQU 0AFH ;INT 2F multiplex number for resident part of MODE
108save_typamatic_delay EQU 02 ;function of MODE INT 2FH handler
109save_typamatic_rate EQU 01 ;function of MODE INT 2FH handler
110set_typamatic_rate_and_delay EQU 3
111typamatic_function EQU 5
112ten_chars_per_second EQU 0CH ;value for BIOS INT 16H
113
114INCLUDE modequat.inc ;definitions of machine types
115include version.inc ; defines version of DOS to be built
116
117;� �
118;훤袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴 E Q U A T E S 袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴�
119
120
121PRINTF_CODE SEGMENT PUBLIC
122 ASSUME DS:NOTHING, CS:PRINTF_CODE
123
124
125;�袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴� E X T R N S 袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴�
126;� �
127
128EXTRN PRINTF:NEAR
129EXTRN MACHINE_TYPE:BYTE ;MACHINE TYPE as determined by "modeleng"
130;EXTRN typamatic_rate_set_to:WORD
131;EXTRN chars_per_second:WORD
132EXTRN noerror:BYTE
133;EXTRN no_previous_typamatic_rate:WORD
134EXTRN Function_not_supported:BYTE ;see modedefs.inc
135;EXTRN delay_set_to:WORD
136;EXTRN second:WORD
137;EXTRN no_previous_delay_setting:WORD
138;EXTRN delay_set_to_one_half_second:WORD
139
140;� �
141;훤袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴 E X T R N S 袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴�
142
143
144;�袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴 D A T A 袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴敲
145;� �
146
147thirty_two DB 20H ;adjustment and work area for typamatic rate
148
149;� �
150;훤袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴� D A T A 袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴暠
151
152
153;�袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴� P U B L I C S 袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴�
154;� �
155;� �
156;훤袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴 P U B L I C S 袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴�
157
158
159
160
161PAGE
162;*********************************************************************************************
163
164TYPAMAT PROC NEAR
165PUBLIC TYPAMAT
166
167if IBMCOPYRIGHT
168.IF <machine_type EQ AT4> OR
169.IF <machine_type EQ XT286> OR
170;.IF <machine_type EQ AT> OR
171.IF <machine_type EQ PS2Model30> OR
172.IF <machine_type EQ PS2Model50> OR
173.IF <machine_type EQ PS2Model60> OR
174.IF <machine_type EQ PS2Model80> THEN
175endif
176; MOV AH,resident_MODE
177; MOV AL,get_installed_state
178; INT 2FH
179; CMP AL,installed
180; .IF NE ;IF the code is not resident THEN
181; CALL modeload ;make it resident
182; .ENDIF ;ENDIF
183; CMP BL,0 ;CASE typamatic_rate OF
184; .IF GT greater than zero:
185 SUB thirty_two,BL ; MOV BL,32-BL ;translate typamatic rate
186 MOV BL,thirty_two
187
188; DISPLAY typamatic_rate_set_to,BL
189; DISPLAY chars_per_second
190
191; .ELSEIF EQ ; zero:
192; MOV AH,resident_MODE
193; MOV AL,get_typamatic_rate ; MOV BL,previous_typamatic_rate ;not specified so no change
194; INT 2FH
195; CMP BL,no_previous_setting
196; .IF E
197; DISPLAY no_previous_typamatic_rate
198; DISPLAY typamatic_set_to_ten_chars_per_second
199; MOV BL,ten_chars_per_second
200; .ENDIF
201; .ELSE ; less than zero:
202; MOV AH,resident_MODE
203; MOV AL,get_typamatic_rate ; return setting in BL
204; INT 2FH
205; .IF <BL EQ no_previous_setting> THEN
206; DISPLAY no_previous_typamatic_rate
207; .ELSE
208; SUB thirty_two,BL
209; MOV BL,thirty_two ; translate to humanese
210; .ENDIF
211; .ENDIF ;ENDCASE
212; CMP BH,0 ;CASE delay OF
213; .IF GT >zero:
214 DEC BH ; SUB BH,1 ;translate delay
215
216
217; DISPLAY delay_set_to_?_second
218
219
220; .ELSEIF EQ ; zero:
221; MOV AH,resident_MODE
222; MOV AL,get_typamatic_delay ; MOV BH,previous_delay_rate
223; INT 2FH
224; CMP BH,no_previous_setting
225; .IF E
226; DISPLAY no_previous_delay_setting
227; DISPLAY delay_set_to_one_half_second
228; MOV BH,one_half_second
229; .ENDIF
230; .ELSE ; <zero:
231; MOV AH,resident_MODE
232; MOV AL,get_typamatic_rate ; return setting in BH
233; INT 2FH
234; .IF <BH EQ no_previous_setting> THEN
235; DISPLAY no_previous_delay_setting
236; .ELSE
237; INC BH
238; .ENDIF
239; .ENDIF ;ENDCASE
240; MOV AH,resident_MODE
241; MOV AL,save_typamatic_rate
242; INT 2FH
243; MOV AH,resident_MODE
244; MOV AL,save_typamatic_delay
245; INT 2FH
246 MOV AH,set_typamatic_rate_and_delay ;MOV AH,set_typamatic_rate_and_delay ;INT 16 set typamatic function
247 MOV AL,typamatic_function ;MOV AL,typamatic_function ;set typamatic subfunction
248 INT 16H ;INT 16H
249if IBMCOPYRIGHT
250.ELSE
251 DISPLAY Function_not_supported
252 MOV noerror,false
253.ENDIF
254endif
255
256RET
257
258TYPAMAT ENDP
259
260
261PRINTF_CODE ENDS
262 END
263 \ No newline at end of file
HIC SVNT DRACONES