summaryrefslogtreecommitdiff
path: root/v4.0/src/CMD/MODE/MODELENG.ASM
diff options
context:
space:
mode:
Diffstat (limited to 'v4.0/src/CMD/MODE/MODELENG.ASM')
-rw-r--r--v4.0/src/CMD/MODE/MODELENG.ASM290
1 files changed, 290 insertions, 0 deletions
diff --git a/v4.0/src/CMD/MODE/MODELENG.ASM b/v4.0/src/CMD/MODE/MODELENG.ASM
new file mode 100644
index 0000000..dfae017
--- /dev/null
+++ b/v4.0/src/CMD/MODE/MODELENG.ASM
@@ -0,0 +1,290 @@
1PAGE ,132 ;
2TITLE MODELENG.ASM - VARIOUS SERVICE ROUTINES
3
4;This module contains procedures:
5;MODELENG - convert 3 digit or less ASCII string to binary number
6;GET_MACHINE_TYPE - determine the machine type based on model byte and sub model byte
7
8.XLIST
9 INCLUDE STRUC.INC
10.LIST
11;.SALL
12
13;ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ P R O L O G ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
14;º º
15
16; AX001 - P4031: Was allowing rate and delay settings on ATs that did not have
17; the functionality in the BIOS. Have to check specifically for
18; a date of 11/15/85 or later.
19
20; AX002 - P4543: Add VAIL and SNOWMASS to legal choices for 19200 baud
21
22;º º
23;ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ P R O L O G ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
24
25
26
27;ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ P U B L I C S ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
28;º º
29
30PUBLIC get_machine_type
31PUBLIC MODELENG
32
33;º º
34;ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ P U B L I C S ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
35
36;ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ M A C R O S ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
37;º º
38
39BREAK MACRO destination ;AN001;
40
41JMP ENDCASE_&destination ;AN001;
42
43ENDM ;AN001;
44
45;º º
46;ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ M A C R O S ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
47
48
49;ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ E Q U A T E S ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
50;º º
51
52AT_or_XT286_or_PS2_50_or_PS2_60 EQU 0FCH ;AN000;primary model byte for all 286 based machines
53BIOS_date EQU ES:[DI] ;used for accessing parts of the BIOS date ;AN001;
54INTCONV EQU 48 ;CONVERT ASCII TO NUMERIC
55model_byte_AH EQU AH
56return_system_configuration EQU 0C0H ;INT 15H subfunction
57system_descriptor_table EQU ES:[BX]
58system_services EQU 15H ;ROM BIOS call
59XT2 EQU 0FBH ;AN000;model byte for 2nd release of XT
60
61INCLUDE modequat.inc
62
63;º º
64;ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ E Q U A T E S ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
65
66
67;ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ S T R U C T U R E S ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
68;º º
69
70BIOS_date_struc STRUC ;in form mm/dd/yy ;AN001;
71 month DW ? ;AN001;
72 slash1 DB ? ;AN001;
73 day DW ? ;AN001;
74 slash2 DB ? ;AN001;
75 year DW ? ;AN001;
76BIOS_date_struc ENDS ;AN001;
77
78
79system_descriptor STRUC
80 length_of_descriptor DW bogus ;number of bytes in the descriptor table
81 primary_model_byte DB bogus
82 secondary_model_byte DB bogus
83system_descriptor ENDS
84
85;º º
86;ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ S T R U C T U R E S ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
87
88
89ROM SEGMENT AT 0F000H
90
91ORG 0FFF5H ;location of date ROM BIOS for the release was written ;AN001;
92date_location LABEL WORD ;AN001;
93
94ORG 0FFFEH
95model_byte LABEL BYTE
96
97ROM ENDS
98
99
100
101PRINTF_CODE SEGMENT PUBLIC
102 ASSUME CS:PRINTF_CODE,DS:PRINTF_CODE
103
104
105
106;ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ D A T A ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
107;º º
108
109HUNDRED DB 100
110TEN DB 10
111
112
113;º º
114;ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ D A T A ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
115
116
117;ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ E X T R N S ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
118;º º
119
120EXTRN machine_type:BYTE ;see 'rescode.sal'
121EXTRN submodel_byte:BYTE ;see 'rescode.sal'
122
123;º º
124;ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ E X T R N S ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
125
126
127MODELENG PROC NEAR
128;
129;INPUT:BP HAS ADDR OF PARM FIELD IN DATA SPACE (DS:)
130;
131 MOV BL,0 ;INIT BL TO 0
132; IF THIS PARAMETER IS A THREE DIGIT NUMBER,
133 CMP BYTE PTR DS:[BP]+2,0 ;LOOK AT THIRD DIGIT
134 JE ENDIF01
135 CMP BYTE PTR DS:[BP]+2,20H ;see if third char is a blank
136 JE ENDIF01 ;IF there is a third digit THEN
137;
138 MOV AL,DS:[BP] ;GET FIRST DIGIT
139 SUB AL,INTCONV ;CONVERT TO INT
140 MUL HUNDRED ;HUNDREDTHS PLACE
141 ADD BL,AL ;ADD TO BL
142 INC BP ;BUMP TO NEXT DIGIT
143 ENDIF01: ;ENDIF THIS PARAMETER IS A THREE DIGIT NUMBER
144 MOV AL,DS:[BP] ;GET NEXT DIGIT
145 SUB AL,INTCONV ;CONVERT TO INT
146 JNC ENDIF02
147 MOV BL,0FFH ;encountered an error so put a bogus number in the sum
148 ENDIF02:
149 MUL TEN ;TENS PLACE
150 ADD BL,AL ;ADD TO BL
151 INC BP ;GO TO NEXT DIGIT
152 MOV AL,DS:[BP] ;GET NEXT DIGIT
153 SUB AL,INTCONV ;CONVERT TO INT
154 ADD BL,AL ;ADD TO BL
155 RET
156MODELENG ENDP
157
158
159ascii_to_int PROC NEAR ;input: AX=2 digit ascii number ;AN001;
160 ;output: BL has binary value ;AN001;
161 ;assume: no overflow or underflow ;AN001;
162
163 PUSH AX ;the MUL destroys AH ;AN001;
164 SUB AL,INTCONV ;CONVERT high order digit to binary ;AN001;
165 MUL TEN ;TENS PLACE ;AN001;
166 MOV BL,AL ;ADD TO BL ;AN001;
167 POP AX ;AN001;
168 MOV AL,AH ;AL=low order digit ;AN001;
169 SUB AL,INTCONV ;CONVERT TO binary ;AN001;
170 ADD BL,AL ;ADD TO BL ;AN001;
171 RET ;AN001;
172
173ascii_to_int ENDP ;AN001;
174
175
176;------------------------------------------------------------------------------
177
178;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
179;³
180;³ GET_MACHINE_TYPE
181;³ ----------------
182;³
183;³ Get the machine type and store for future reference.
184;³
185;³
186;³ INPUT: none
187;³
188;³
189;³ RETURN: A scalar value indicating the type of machine is stored in
190;³ 'machine_type'.
191;³
192;³
193;³ MESSAGES: none
194;³
195;³
196;³
197;³ REGISTER
198;³ USAGE AND
199;³ COMVENTIONS: AX - general usage
200;³ BX - used to address the system descriptor table
201;³
202;³
203;³
204;³
205;³
206;³ ASSUMPTIONS: DS has segment of MODE's data area
207;³
208;³
209;³ SIDE EFFECT: ES is changed.
210;³
211;³
212;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
213
214
215get_machine_type PROC NEAR
216
217
218
219PUSH ES
220PUSH BX ;will be used to point to 'system descriptor table'
221MOV AH,return_system_configuration
222INT 15H
223.IF NC ;IF the call was handled successfully
224 MOV AH,system_descriptor_table.secondary_model_byte
225 MOV submodel_byte,AH ;save submodel byte
226 MOV AH,system_descriptor_table.primary_model_byte
227.ELSE
228 MOV AX,ROM ;get addressability to the model byte
229 MOV ES,AX
230 MOV AH,ES:model_byte
231.ENDIF
232
233.IF <model_byte_AH EQ AT_or_XT286_or_PS2_50_or_PS2_60> THEN ;AN000;may have a submodel byte, check it
234
235 .IF <submodel_byte EQ PS2Model60> THEN ;AN000;
236 MOV AH,PS2Model60 ;AN000;
237 .ELSEIF <submodel_byte EQ VAIL> OR ;AN000;
238 .IF <submodel_byte EQ PS2Model50> THEN ;AN000;
239 MOV AH,PS2Model50 ;AN000;
240 .ELSEIF <submodel_byte EQ XT286> THEN ;AN000;
241 MOV AH,XT286 ;AN000;
242 .ELSEIF <submodel_byte EQ AT3> THEN ;AN000;
243 MOV DI,OFFSET date_location ;ES:DI=>BIOS date (BIOS_date EQU ES:[DI]) ;AN001;
244
245; CASE BIOS_date= ;AN001;
246
247; later than 1985: ;AN001;
248
249 MOV AX,BIOS_date.year ;AX=ASCII form of BIOS date year ;AN001;
250 CALL ascii_to_int ;BL=binary form of BIOS date year ;AN001;
251 .IF <BL GT 85> THEN ;IF AT built in 86 or later ;AN001;
252
253 MOV AH,AT4 ;AN001;
254 BREAK 0 ;AN001;
255
256 .ENDIF ;AN001;
257
258; 1985, on 11/15: ;BL already has year from above check ;AN001;
259
260 .IF <BL EQ 85> AND ;AN001;
261 .IF <BIOS_date.month EQ "11"> AND ;AN001;
262 .IF <BIOS_date.day EQ "51"> THEN ;"51" is the word form of "15" ;AN001;
263
264 MOV AH,AT4 ;AN001;
265 BREAK 0 ;AN001;
266
267 .ENDIF ;AN001;
268
269; otherwise: ;internal release of third version of AT ;AN001;
270
271 MOV AH,AT3 ;AN001;
272
273
274 ENDCASE_0: ;AN001;
275
276 .ELSEIF <submodel_byte EQ AT2> THEN ;AN000;
277 MOV AH,AT2 ;AN000;
278 .ENDIF ;AN000;IF none of the above AH has correct value for AT1 (FC)
279.ELSEIF <model_byte_AH EQ XT2> THEN ;AN000;
280 MOV AH,PCXT ;AN000;no difference from XT1
281.ENDIF ;AN000;
282
283MOV DS:machine_type,AH ;AH was set as result of getting the system configuration or during the IF.
284POP BX
285POP ES
286
287RET ;RETURN TO MODE MAIN ROUTINE
288get_machine_type ENDP
289PRINTF_CODE ENDS
290 END
HIC SVNT DRACONES