summaryrefslogtreecommitdiff
path: root/v4.0/src/DOS/DOSMES.ASM
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--v4.0/src/DOS/DOSMES.ASM442
1 files changed, 442 insertions, 0 deletions
diff --git a/v4.0/src/DOS/DOSMES.ASM b/v4.0/src/DOS/DOSMES.ASM
new file mode 100644
index 0000000..3770c5d
--- /dev/null
+++ b/v4.0/src/DOS/DOSMES.ASM
@@ -0,0 +1,442 @@
1; SCCSID = @(#)dosmes.asm 1.7 85/10/23
2; SCCSID = @(#)dosmes.asm 1.7 85/10/23
3;
4; Message file for Internationalized messages. There is
5; only one message here available for translation.
6;
7;
8; Revision history
9; A000 version 4.00 Jan. 1988
10;
11
12IFNDEF KANJI
13KANJI EQU FALSE
14ENDIF
15
16IFNDEF Rainbow
17Rainbow EQU FALSE
18ENDIF
19
20include dossym.inc
21include dosmac.inc
22include doscntry.inc
23
24CONSTANTS SEGMENT WORD PUBLIC 'CONST'
25
26 PUBLIC UserNum, OEMNum
27 Public DMES001S,DMES001E
28DMES001S Label byte
29USERNUM DW ? ; 24 bit user number
30 DB ?
31IF IBM
32 IF IBMCOPYRIGHT
33 OEMNUM DB 0 ; 8 bit OEM number
34 ELSE
35 OEMNUM DB 0FFH ; 8 bit OEM number
36 ENDIF
37ELSE
38OEMNUM DB 0FFH
39ENDIF
40
41
42DMES001E label byte
43CONSTANTS ENDS
44
45TABLE SEGMENT BYTE PUBLIC 'TABLE'
46Public DMES002S
47DMES002S label byte
48
49
50; The following table is used for DOS 3.3
51;DOS country and code page information is defined here for DOS 3.3.
52;The initial value for ccDosCountry is 1 (USA).
53;The initial value for ccDosCodepage is 850.
54;
55;
56 PUBLIC COUNTRY_CDPG,UCASE_TAB,FILE_UCASE_TAB
57 PUBLIC FILE_CHAR_TAB
58;
59; country and code page infomation
60;
61COUNTRY_CDPG label byte
62
63 db 0,0,0,0,0,0,0,0 ; reserved words
64 db '\COUNTRY.SYS',0 ; path name of country.sys
65 db 51 dup (?)
66 dw 437 ; system code page id
67 dw 6 ; number of entries
68 db SetUcase ; Ucase type
69 dw OFFSET DOSGROUP:UCASE_TAB ;pointer to upper case table
70 dw 0 ; segment of poiter
71 db SetUcaseFile ; Ucase file char type
72 dw OFFSET DOSGROUP:FILE_UCASE_TAB ;pointer to file upper case table
73 dw 0 ; segment of poiter
74 db SetFileList ; valid file chars type
75 dw OFFSET DOSGROUP:FILE_CHAR_TAB ;pointer to valid file char tab
76 dw 0 ; segment of poiter
77 db SetCollate ; collate type
78 dw OFFSET DOSGROUP:COLLATE_TAB ;pointer to collate table
79 dw 0 ; segment of poiter
80 db SetDBCS ;AN000; DBCS Ev 2/12/KK
81 dw OFFSET DOSGROUP:DBCS_TAB ;AN000;;pointer to DBCS Ev table 2/12/KK
82 dw 0 ;AN000; segment of poiter 2/12/KK
83 db SetCountryInfo ; country info type
84 dw NEW_COUNTRY_SIZE ; extended country info size
85 dw 1 ; USA country id
86 dw 437 ; USA system code page id
87 dw 0 ; date format
88 db '$',0,0,0,0 ; currency symbol
89 db ',',0 ; thousand separator
90 db '.',0 ; decimal separator
91 db '-',0 ; date separator
92 db ':',0 ; time separator
93 db 0 ; currency format flag
94 db 2 ; # of disgit in currency
95 db 0 ; time format
96 dw OFFSET DOSGROUP:MAP_CASE ;mono case routine entry point
97 dw 0 ; segment of entry point
98 db ',',0 ; data list separator
99 dw 0,0,0,0,0 ; reserved
100
101
102
103;
104;
105;
106;
107;
108; upper case table
109;
110UCASE_TAB label byte
111 dw 128
112 db 128,154,069,065,142,065,143,128
113 db 069,069,069,073,073,073,142,143
114 db 144,146,146,079,153,079,085,085
115 db 089,153,154,155,156,157,158,159
116 db 065,073,079,085,165,165,166,167
117 db 168,169,170,171,172,173,174,175
118 db 176,177,178,179,180,181,182,183
119 db 184,185,186,187,188,189,190,191
120 db 192,193,194,195,196,197,198,199
121 db 200,201,202,203,204,205,206,207
122 db 208,209,210,211,212,213,214,215
123 db 216,217,218,219,220,221,222,223
124 db 224,225,226,227,228,229,230,231
125 db 232,233,234,235,236,237,238,239
126 db 240,241,242,243,244,245,246,247
127 db 248,249,250,251,252,253,254,255
128
129;
130; file upper case table
131;
132FILE_UCASE_TAB label byte
133 dw 128
134 db 128,154,069,065,142,065,143,128
135 db 069,069,069,073,073,073,142,143
136 db 144,146,146,079,153,079,085,085
137 db 089,153,154,155,156,157,158,159
138 db 065,073,079,085,165,165,166,167
139 db 168,169,170,171,172,173,174,175
140 db 176,177,178,179,180,181,182,183
141 db 184,185,186,187,188,189,190,191
142 db 192,193,194,195,196,197,198,199
143 db 200,201,202,203,204,205,206,207
144 db 208,209,210,211,212,213,214,215
145 db 216,217,218,219,220,221,222,223
146 db 224,225,226,227,228,229,230,231
147 db 232,233,234,235,236,237,238,239
148 db 240,241,242,243,244,245,246,247
149 db 248,249,250,251,252,253,254,255
150
151;
152; file char list
153;
154FILE_CHAR_TAB label byte
155 dw 22 ; length
156 db 1,0,255 ; include all
157 db 0,0,20h ; exclude 0 - 20h
158 db 2,14,'."/\[]:|<>+=;,' ; exclude 14 special
159 db 24 dup (?) ; reserved
160;
161; collate table
162;
163COLLATE_TAB label byte
164 dw 256
165 db 0,1,2,3,4,5,6,7
166 db 8,9,10,11,12,13,14,15
167 db 16,17,18,19,20,21,22,23
168 db 24,25,26,27,28,29,30,31
169 db " ","!",'"',"#","$","%","&","'"
170 db "(",")","*","+",",","-",".","/"
171 db "0","1","2","3","4","5","6","7"
172 db "8","9",":",";","<","=",">","?"
173 db "@","A","B","C","D","E","F","G"
174 db "H","I","J","K","L","M","N","O"
175 db "P","Q","R","S","T","U","V","W"
176 db "X","Y","Z","[","\","]","^","_"
177 db "`","A","B","C","D","E","F","G"
178 db "H","I","J","K","L","M","N","O"
179 db "P","Q","R","S","T","U","V","W"
180 db "X","Y","Z","{","|","}","~",127
181 db "C","U","E","A","A","A","A","C"
182 db "E","E","E","I","I","I","A","A"
183 db "E","A","A","O","O","O","U","U"
184 db "Y","O","U","$","$","$","$","$"
185 db "A","I","O","U","N","N",166,167
186 db "?",169,170,171,172,"!",'"','"'
187 db 176,177,178,179,180,181,182,183
188 db 184,185,186,187,188,189,190,191
189 db 192,193,194,195,196,197,198,199
190 db 200,201,202,203,204,205,206,207
191 db 208,209,210,211,212,213,214,215
192 db 216,217,218,219,220,221,222,223
193 db 224,"S"
194 db 226,227,228,229,230,231
195 db 232,233,234,235,236,237,238,239
196 db 240,241,242,243,244,245,246,247
197 db 248,249,250,251,252,253,254,255
198;
199; dbcs is not supported in DOS 3.3
200; DBCS_TAB CC_DBCS <>
201;
202; DBCS for DOS 4.00 2/12/KK
203 PUBLIC DBCS_TAB
204DBCS_TAB label byte ;AN000; 2/12/KK
205 dw 0 ;AN000; 2/12/KK max number
206 db 16 dup(0) ;AN000; 2/12/KK
207
208; dw 6 ; 2/12/KK
209; db 081h,09fh ; 2/12/KK
210; db 0e0h,0fch ; 2/12/KK
211; db 0,0 ; 2/12/KK
212;
213;
214include divmes.asm
215include yesno.asm
216
217TABLE ENDS
218
219CODE SEGMENT BYTE PUBLIC 'CODE'
220ASSUME CS:DOSGROUP,DS:NOTHING,ES:NOTHING,SS:NOTHING
221
222;CASE MAPPER ROUTINE FOR 80H-FFH character range, DOS 3.3
223; ENTRY: AL = Character to map
224; EXIT: AL = The converted character
225; Alters no registers except AL and flags.
226; The routine should do nothing to chars below 80H.
227;
228; Example:
229
230Procedure MAP_CASE,FAR
231 CMP AL,80H
232 JAE Map1 ;Map no chars below 80H ever
233 RET
234Map1:
235 SUB AL,80H ;Turn into index value
236 PUSH DS
237 PUSH BX
238 MOV BX,OFFSET DOSGROUP:UCASE_TAB + 2
239FINISH:
240 PUSH CS ;Move to DS
241 POP DS
242 XLAT ds:[bx] ;Get upper case character
243 POP BX
244 POP DS
245L_RET: RET
246EndProc MAP_CASE
247
248SUBTTL EDIT FUNCTION ASSIGNMENTS AND HEADERS
249PAGE
250; The following two tables implement the current buffered input editing
251; routines. The tables are pairwise associated in reverse order for ease
252; in indexing. That is; The first entry in ESCTAB corresponds to the last
253; entry in ESCFUNC, and the last entry in ESCTAB to the first entry in ESCFUNC.
254
255
256TABLE SEGMENT
257 PUBLIC CANCHAR
258CANCHAR DB CANCEL ;Cancel line character
259 PUBLIC ESCCHAR
260ESCCHAR DB ESCCH ;Lead-in character for escape sequences
261 IF NOT Rainbow
262ESCTAB LABEL BYTE
263 IF NOT IBM
264 IF WANG
265 DB 0C0h ; ^Z inserter
266 DB 0C1H ; Copy one char
267 DB 0C1H ; Copy one char
268 DB 0C7H ; Skip one char
269 DB 08AH ; Copy to char
270 DB 088H ; Skip to char
271 DB 09AH ; Copy line
272 DB 0CBH ; Kill line (no change in template)
273 DB 08BH ; Reedit line (new template)
274 DB 0C3H ; Backspace
275 DB 0C6H ; Enter insert mode
276 DB 0D6H ; Exit insert mode
277 DB 0C6H ; Escape character
278 DB 0C6H ; End of table
279 ELSE
280 ; VT52 equivalences
281 DB "Z" ; ^Z inserter
282 DB "S" ; F1 Copy one char
283 DB "S" ; F1 Copy one char
284 DB "V" ; F4 Skip one char
285 DB "T" ; F2 Copy to char
286 DB "W" ; F5 Skip to char
287 DB "U" ; F3 Copy line
288 DB "E" ; SHIFT ERASE Kill line (no change in template)
289 DB "J" ; ERASE Reedit line (new template)
290 DB "D" ; LEFT Backspace
291 DB "P" ; BLUE Enter insert mode
292 DB "Q" ; RED Exit insert mode
293 DB "R" ; GRAY Escape character
294 DB "R" ; End of table
295 ENDIF
296 ENDIF
297 IF IBM
298 DB 64 ; Ctrl-Z - F6
299 DB 77 ; Copy one char - -->
300 DB 59 ; Copy one char - F1
301 DB 83 ; Skip one char - DEL
302 DB 60 ; Copy to char - F2
303 DB 62 ; Skip to char - F4
304 DB 61 ; Copy line - F3
305 DB 61 ; Kill line (no change to template ) - Not used
306 DB 63 ; Reedit line (new template) - F5
307 DB 75 ; Backspace - <--
308 DB 82 ; Enter insert mode - INS (toggle)
309 DB 82 ; Exit insert mode - INS (toggle)
310 DB 65 ; Escape character - F7
311 DB 65 ; End of table
312 ENDIF
313ESCEND LABEL BYTE
314ESCTABLEN EQU ESCEND-ESCTAB
315
316ESCFUNC LABEL WORD
317 short_addr GETCH ; Ignore the escape sequence
318 short_addr TWOESC
319 short_addr EXITINS
320 short_addr ENTERINS
321 short_addr BACKSP
322 short_addr REEDIT
323 short_addr KILNEW
324 short_addr COPYLIN
325 short_addr SKIPSTR
326 short_addr COPYSTR
327 short_addr SKIPONE
328 short_addr COPYONE
329 short_addr COPYONE
330 short_addr CTRLZ
331 ENDIF
332TABLE ENDS
333
334;
335; OEMFunction key is expected to process a single function
336; key input from a device and dispatch to the proper
337; routines leaving all registers UNTOUCHED.
338;
339; Inputs: CS, SS are DOSGROUP
340; Outputs: None. This function is expected to JMP to one of
341; the following labels:
342;
343; GetCh - ignore the sequence
344; TwoEsc - insert an ESCChar in the buffer
345; ExitIns - toggle insert mode
346; EnterIns - toggle insert mode
347; BackSp - move backwards one space
348; ReEdit - reedit the line with a new template
349; KilNew - discard the current line and start from scratch
350; CopyLin - copy the rest of the template into the line
351; SkipStr - read the next character and skip to it in the template
352; CopyStr - read next char and copy from template to line until char
353; SkipOne - advance position in template one character
354; CopyOne - copy next character in template into line
355; CtrlZ - place a ^Z into the template
356; Registers that are allowed to be modified by this function are:
357; AX, CX, BP
358
359Procedure OEMFunctionKey,NEAR
360 ASSUME DS:NOTHING,ES:NOTHING,SS:DOSGROUP
361 IF DBCS ;AN000;
362extrn intCNE0:near ;AN000; 2/17/KK
363 CALL intCNE0 ;AN000; 2/17/KK
364 ELSE ;AN000;
365 invoke $std_con_input_no_echo ; Get the second byte of the sequence
366 ENDIF ;AN000;
367 IF NOT Rainbow
368 MOV CL,ESCTABLEN ; length of table for scan
369 PUSH DI ; save DI (cannot change it!)
370 MOV DI,OFFSET DOSGROUP:ESCTAB ; offset of second byte table
371 REPNE SCASB ; Look it up in the table
372 POP DI ; restore DI
373 SHL CX,1 ; convert byte offset to word
374 MOV BP,CX ; move to indexable register
375 JMP [BP+OFFSET DOSGROUP:ESCFUNC] ; Go to the right routine
376 ENDIF
377 IF Rainbow
378
379TransferIf MACRO value,address
380 local a
381 CMP AL,value
382 JNZ a
383 transfer address
384a:
385ENDM
386
387 CMP AL,'[' ; is it second lead char
388 JZ EatParm ; yes, go walk tree
389GoGetCh:
390 transfer GetCh ; no, ignore sequence
391EatParm:
392 invoke $std_con_input_no_echo ; get argument
393 CMP AL,'A' ; is it alphabetic arg?
394 JAE EatAlpha ; yes, go snarf one up
395 XOR BP,BP ; init digit counter
396 JMP InDigit ; jump into internal eat digit routine
397EatNum:
398 invoke $std_con_input_no_echo ; get next digit
399InDigit:
400 CMP AL,'9' ; still a digit?
401 JA CheckNumEnd ; no, go check for end char
402 SUB AL,'0' ; turn into potential digit
403 JL GoGetCh ; oops, not a digit, ignore
404 MOV CX,BP ; save BP for 10 multiply
405 CBW ; make AL into AX
406 SHL BP,1 ; 2*BP
407 SHL BP,1 ; 4*BP
408 ADD BP,CX ; 5*BP
409 SHL BP,1 ; 10*BP
410 ADD BP,AX ; 10*BP + digit
411 JMP EatNum ; continue with number
412CheckNumEnd:
413 CMP AL,7Eh ; is it end char ~
414 JNZ GoGetCh ; nope, ignore key sequence
415 MOV AX,BP
416 transferIf 1,SkipStr ; FIND key
417 transferIf 2,EnterIns ; INSERT HERE key
418 transferIf 3,SkipOne ; REMOVE
419 transferIf 4,CopyStr ; SELECT
420 transferIf 17,TwoEsc ; INTERRUPT
421 transferIf 18,ReEdit ; RESUME
422 transferIf 19,KilNew ; CANCEL
423 transferIf 21,CtrlZ ; EXIT
424 transferIf 29,CopyLin ; DO
425 JMP GoGetCh
426EatAlpha:
427 CMP AL,'O' ; is it O?
428 JA GoGetCh ; no, after assume bogus
429 JZ EatPQRS ; eat the rest of the bogus key
430 transferIf 'C',CopyOne ; RIGHT
431 transferIf 'D',BackSp ; LEFT
432 JMP GoGetCh
433EatPQRS:
434 invoke $std_con_input_no_echo ; eat char after O
435 JMP GoGetCh
436 ENDIF
437
438EndProc OEMFunctionKey
439
440CODE ENDS
441
442 END
HIC SVNT DRACONES