]> wirehaze git hosting - MS-DOS.git/blob - v4.0/src/DEV/ANSI/ANSI.ASM

wirehaze git hosting

projects / MS-DOS.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
MZ is back!
[MS-DOS.git] / v4.0 / src / DEV / ANSI / ANSI.ASM
1 PAGE ,132
2 TITLE CONDEV FANCY CONSOLE DRIVER
3
4 ;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
5 ;
6 ; ADDRESSES FOR I/O
7 ;
8 ;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
9 ;------------------------------------------------------------------------------
10 ;AN000; New functionality in DOS 4.00
11 ;AN001; GHG fix scrolling flashes on Mod 25/30's
12 ;AN002; P1767 VIDEO_MODE_TABLE not initialized correctly 10/16/87 J.K.
13 ;AN003; D375 /X needs to be supported by ANSI sequence also 12/14/87 J.K.
14 ;AN004; D397 /L option for Enforcing number of lines 12/17/87 J.K.
15 ;AN005; D479 An option to disable the extended keyboard functions 02/12/88 J.K.
16 ;AN006; P4241 AN001 fix be Revised to fix this problem 04/20/88 J.K.
17 ;AN007; P4532 Scrolling has a snow for CGA adapter 04/27/88 J.K.
18 ;AN008; P4533 In mode Dh, Eh, Fh, 10h and 13h, Scrolling not working 04/27/88 J.K.
19 ;AN009; P4766 In mode 11h, and 12h erase display leaves bottom 5 05/24/88 F.G.
20 ;------------------------------------------------------------------------------
21
22 TRUE EQU 0FFFFh
23 FALSE EQU 0
24
25 BREAK MACRO subtitle
26 SUBTTL subtitle
27 PAGE ,132
28 ENDM
29
30 AsmVars Macro varlist
31 IRP var,<varlist>
32 AsmVar var
33 ENDM
34 ENDM
35
36 AsmVar Macro var
37 IFNDEF var
38 var = FALSE
39 ENDIF
40 ENDM
41
42 INCLUDE VECTOR.INC
43 INCLUDE MULT.INC
44 INCLUDE ANSI.INC ; WGR equates and structures ;AN000;
45 .xlist
46 INCLUDE STRUC.INC ; WGR include STRUC macros ;AN000;
47 .list
48
49 BREAK <ANSI driver code>
50
51 CR=13 ;CARRIAGE RETURN
52 BACKSP=8 ;BACKSPACE
53 ESC_CHAR=1BH
54 BRKADR=6CH ;006C BREAK VECTOR ADDRESS
55 ASNMAX=400 ;WGR (increased) SIZE OF KEY ASSIGNMENT BUFFER
56
57 PUBLIC SWITCH_X ; WGR/X option for extended keyboard redefinition support;AN000;
58 PUBLIC SCAN_LINES ; WGR ;AN000;
59 PUBLIC VIDEO_MODE_TABLE ; WGR ;AN000;
60 PUBLIC VIDEO_TABLE_MAX ; WGR ;AN000;
61 public MAX_VIDEO_TAB_NUM ;P1767
62 PUBLIC PTRSAV ; WGR ;AN000;
63 PUBLIC ERR1 ; WGR ;AN000;
64 PUBLIC ERR2 ; WGR ;AN000;
65 PUBLIC EXT_16 ; WGR ;AN000;
66 PUBLIC BRKADR ; WGR ;AN000;
67 PUBLIC BRKKY ; WGR ;AN000;
68 PUBLIC COUT ; WGR ;AN000;
69 PUBLIC BASE ; WGR ;AN000;
70 PUBLIC MODE ; WGR ;AN000;
71 PUBLIC MAXCOL ; WGR ;AN000;
72 PUBLIC TRANS ; WGR ;AN000;
73 PUBLIC STATUS ; WGR ;AN000;
74 PUBLIC EXIT ; WGR ;AN000;
75 PUBLIC NO_OPERATION ; WGR ;AN000;
76 PUBLIC HDWR_FLAG ; WGR ;AN000;
77 public Switch_L ;AN004;
78 public Switch_K ;AN005;
79 ;AN000;
80 CODE SEGMENT PUBLIC BYTE
81
82 ASSUME CS:CODE,DS:NOTHING,ES:NOTHING
83 ;-----------------------------------------------
84 ;
85 ; C O N - CONSOLE DEVICE DRIVER
86 ;
87
88 EXTRN CON$INIT:NEAR ; WGR ANSI initialization code
89 EXTRN GENERIC_IOCTL:NEAR ; WGR Generic IOCTL code
90 EXTRN REQ_TXT_LENGTH:WORD ; WGR current text length
91 EXTRN GRAPHICS_FLAG:BYTE ; WGR graphics flag
92
93 CONDEV: ;HEADER FOR DEVICE "CON"
94 DW -1,-1
95 DW 1100000001010011B ;WGR changed to match CON ;AC000;
96 DW STRATEGY
97 DW ENTRY
98 DB 'CON '
99
100 ;--------------------------------------------------------------
101 ;
102 ; COMMAND JUMP TABLES
103 CONTBL:
104 DW CON$INIT
105 DW NO_OPERATION ; WGR ;AC000;
106 DW NO_OPERATION ; WGR ;AC000;
107 DW NO_OPERATION ; WGR ;AC000;
108 DW CON$READ
109 DW CON$RDND
110 DW NO_OPERATION ; WGR ;AC000;
111 DW CON$FLSH
112 DW CON$WRIT
113 DW CON$WRIT
114 DW NO_OPERATION ; WGR ;AC000;
115 DW NO_OPERATION ; WGR ;AC000;
116 DW NO_OPERATION ; WGR ;AC000;
117 DW NO_OPERATION ; WGR ;AC000;
118 DW NO_OPERATION ; WGR ;AC000;
119 DW NO_OPERATION ; WGR ;AC000;
120 DW NO_OPERATION ; WGR ;AN000;
121 DW NO_OPERATION ; WGR ;AN000;
122 DW NO_OPERATION ; WGR ;AN000;
123 DW GENERIC_IOCTL ; WGR generic IOCTL routine offset ;AN000;
124 MAX_CMD EQU ($ - CONTBL)/2 ; WGR size of CONTBL ;AN000;
125
126 CMDTABL DB 'A'
127 DW CUU ;cursor up
128 DB 'B'
129 DW CUD ;cursor down
130 DB 'C'
131 DW CUF ;cursor forward
132 DB 'D'
133 DW CUB ;cursor back
134 DB 'H'
135 DW CUP ;cursor position
136 DB 'J'
137 DW ED ;erase display
138 DB 'K'
139 DW EL ;erase line
140 DB 'R'
141 DW CPR ;cursor postion report
142 DB 'f'
143 DW CUP ;cursor position
144 DB 'h'
145 DW SM ;set mode
146 DB 'l'
147 DW RM ;reset mode
148 DB 'm'
149 DW SGR ;select graphics rendition
150 DB 'n'
151 DW DSR ;device status report
152 DB 'p'
153 DW KEYASN ;key assignment
154 db 'q' ;AN003; dynamic support of /X option through ansi sequence
155 dw ExtKey ;AN003; esc[0q = reset it. esc[1q = set it
156 DB 's'
157 DW PSCP ;save cursor postion
158 DB 'u'
159 DW PRCP ;restore cursor position
160 DB 00
161
162 GRMODE DB 00,00000000B,00000111B
163 DB 01,11111111B,00001000B
164 DB 04,11111000B,00000001B
165 DB 05,11111111B,10000000B
166 DB 07,11111000B,01110000B
167 DB 08,10001000B,00000000B
168 DB 30,11111000B,00000000B
169 DB 31,11111000B,00000100B
170 DB 32,11111000B,00000010B
171 DB 33,11111000B,00000110B
172 DB 34,11111000B,00000001B
173 DB 35,11111000B,00000101B
174 DB 36,11111000B,00000011B
175 DB 37,11111000B,00000111B
176 DB 40,10001111B,00000000B
177 DB 41,10001111B,01000000B
178 DB 42,10001111B,00100000B
179 DB 43,10001111B,01100000B
180 DB 44,10001111B,00010000B
181 DB 45,10001111B,01010000B
182 DB 46,10001111B,00110000B
183 DB 47,10001111B,01110000B
184 DB 0FFH
185
186 ;---------------------------------------------------
187 ;
188 ; Device entry point
189 ;
190 CMDLEN = 0 ;LENGTH OF THIS COMMAND
191 UNIT = 1 ;SUB UNIT SPECIFIER
192 CMD = 2 ;COMMAND CODE
193 STATUS = 3 ;STATUS
194 MEDIA = 13 ;MEDIA DESCRIPTOR
195 TRANS = 14 ;TRANSFER ADDRESS
196 COUNT = 18 ;COUNT OF BLOCKS OR CHARACTERS
197 START = 20 ;FIRST BLOCK TO TRANSFER
198
199 PTRSAV DD 0
200
201 BUF1: BUF_DATA <> ; WGR Next CON Buffer area ;AN000;
202
203 STRATP PROC FAR
204
205 STRATEGY:
206 MOV WORD PTR CS:[PTRSAV],BX
207 MOV WORD PTR CS:[PTRSAV+2],ES
208 RET
209
210 STRATP ENDP
211
212 ENTRY:
213 PUSH SI
214 PUSH AX
215 PUSH CX
216 PUSH DX
217 PUSH DI
218 PUSH BP
219 PUSH DS
220 PUSH ES
221 PUSH BX
222 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
223 ; WGR ;AN000;
224 ; Check if header link has to be set WGR (Code ported from ;AN000;
225 ; WGR DISPLAY.SYS) ;AN000;
226 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; WGR ;AN000;
227 LEA BX, BUF1 ; WGR ;AN000;
228 MOV DI,OFFSET CONDEV ; WGR CON Device header ;AN000;
229 ; WGR ;AN000;
230 MOV CONPTR.DEV_HDRO,DI ; WGR ;AN000;
231 MOV CONPTR.DEV_HDRS,CS ; WGR ;AN000;
232 CLD ; WGR all moves forward ;AN000;
233 ; WGR ;AN000;
234 CMP CONPTR.CON_STRAO, -1 ; WGR ;AN000;
235 JNE L4 ; WGR has been linked to DOS CON ;AN000;
236 CMP CONPTR.CON_STRAS, -1 ; WGR ;AN000;
237 JNE L4 ; WGR has been linked to DOS CON ;AN000;
238 ; WGR next device header : ES:[DI] ;AN000;
239 LDS SI,DWORD PTR CONPTR.DEV_HDRO;WGR ;AN000;
240 LES DI,DWORD PTR HP.DH_NEXTO; WGR ;AN000;
241 ; WGR ;AN000;
242 ;$SEARCH WHILE ; WGR pointer to next device header is NOT ;AN000;
243 L1: ; WGR ;AN000;
244 PUSH ES ; WGR -1 ;AN000;
245 POP AX ; WGR ;AN000;
246 CMP AX,-1 ; WGR ;AN000;
247 ;$LEAVE E, AND ; WGR leave if both offset and segment are ;AN000;
248 JNE NOT0FFFF ; WGR ;AN000;
249 ; WGR ;AN000;
250 CMP DI,-1 ; WGR 0FFFFH ;AN000;
251 ;$LEAVE E ; WGR ;AN000;
252 JE L4 ; WGR ;AN000;
253 NOT0FFFF: ; WGR ;AN000;
254 PUSH DI ; WGR ;AN000;
255 PUSH SI ; WGR ;AN000;
256 MOV CX,NAME_LEN ; WGR ;AN000;
257 LEA DI,NHD.DH_NAME ; WGR ;AN000;
258 LEA SI,HP.DH_NAME ; WGR ;AN000;
259 REPE CMPSB ; WGR ;AN000;
260 POP SI ; WGR ;AN000;
261 POP DI ; WGR ;AN000;
262 AND CX,CX ; WGR ;AN000;
263 ;$EXITIF Z ; WGR Exit if name is found in linked hd. ;AN000;
264 JNZ L3 ; WGR Name is not found ;AN000;
265 ; WGR Name is found in the linked header ;AN000;
266 MOV AX,NHD.DH_STRAO ; WGR Get the STRATEGY address ;AN000;
267 MOV CONPTR.CON_STRAO,AX ; WGR ;AN000;
268 MOV AX,ES ; WGR ;AN000;
269 X1: MOV CONPTR.CON_STRAS,AX ; WGR ;AN000;
270 ; WGR ;AN000;
271 MOV AX,NHD.DH_INTRO ; WGR Get the INTERRUPT address ;AN000;
272 MOV CONPTR.CON_INTRO,AX ; WGR ;AN000;
273 MOV AX,ES ; WGR ;AN000;
274 X2: MOV CONPTR.CON_INTRS,AX ; WGR ;AN000;
275 ; WGR ;AN000;
276 ;$ORELSE ; WGR FInd next header to have the same ;AN000;
277 JMP L4 ; WGR Device Name ;AN000;
278 L3: ; WGR ;AN000;
279 LES DI,DWORD PTR NHD.DH_NEXTO;WGR ;AN000;
280 ;$ENDLOOP ; WGR ;AN000;
281 JMP L1 ; WGR ;AN000;
282 L4: ; WGR ;AN000;
283
284 LDS BX,CS:[PTRSAV] ;GET PONTER TO I/O PACKET
285
286 MOV CX,WORD PTR DS:[BX].COUNT ;CX = COUNT
287
288 MOV AL,BYTE PTR DS:[BX].CMD
289 CBW
290 MOV SI,OFFSET CONTBL
291 ADD SI,AX
292 ADD SI,AX
293 CMP AL,MAX_CMD ; WGR not a call for ANSI...chain to lower device;AC000;
294 JA NO_OPERATION
295
296 LES DI,DWORD PTR DS:[BX].TRANS
297
298 PUSH CS
299 POP DS
300
301 ASSUME DS:CODE
302
303 JMP WORD PTR [SI] ;GO DO COMMAND
304
305 ;=====================================================
306 ;=
307 ;= SUBROUTINES SHARED BY MULTIPLE DEVICES
308 ;=
309 ;=====================================================
310 ;----------------------------------------------------------
311 ;
312 ; EXIT - ALL ROUTINES RETURN THROUGH THIS PATH
313 ;
314 BUS$EXIT: ;DEVICE BUSY EXIT
315 MOV AH,00000011B
316 JMP SHORT ERR1
317
318 NO_OPERATION: ; WGR ;AN000;
319 CALL PASS_CONTROL ; WGR Pass control to lower CON ;AN000;
320 JMP SHORT ERR2 ; WGR ;AN000;
321
322 ERR$EXIT:
323 MOV AH,10000001B ;MARK ERROR RETURN
324 JMP SHORT ERR1
325
326 EXITP PROC FAR
327
328 EXIT: MOV AH,00000001B
329 ERR1: LDS BX,CS:[PTRSAV]
330 MOV WORD PTR [BX].STATUS,AX ;MARK OPERATION COMPLETE
331 ERR2:
332 POP BX ; WGR ;AN000;
333 POP ES
334 POP DS
335 POP BP
336 POP DI
337 POP DX
338 POP CX
339 POP AX
340 POP SI
341 RET ;RESTORE REGS AND RETURN
342 EXITP ENDP
343 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
344 ; WGR ;AN000;
345 ; PASS CONTROL WGR ;AN000;
346 ; WGR ;AN000;
347 ; This calls the attached device to perform any further ;AN000;
348 ; action on the call! WGR ;AN000;
349 ; WGR ;AN000;
350 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; WGR ;AN000;
351 PASS_CONTROL PROC ; WGR ;AN000;
352 LEA SI,BUF1 ; WGR ;AN000;
353 LES BX,CS:[PTRSAV] ; WGR pass the request header to the ;AN000;
354 CALL DWORD PTR CS:[SI].CON_STRAO ; CON strategy routine. ;AN000;
355 CALL DWORD PTR CS:[SI].CON_INTRO ; WGR interrupt the CON ;AN000;
356 RET ; WGR ;AN000;
357 PASS_CONTROL ENDP ; WGR ;AN000;
358 ;----------------------------------------------- ;AN000;
359 ;
360 ; BREAK KEY HANDLING
361 ;
362 BRKKY:
363 MOV CS:ALTAH,3 ;INDICATE BREAK KEY SET
364 INTRET: IRET
365
366 ;
367 ; WARNING - Variables are very order dependent, be careful
368 ; when adding new ones! - c.p.
369 ;
370 WRAP DB 0 ; 0 = WRAP, 1 = NO WRAP
371 ASNPTR DW 4
372 STATE DW S1
373 MODE DB 3 ;*
374 MAXCOL DB 79 ;*
375 COL DB 0
376 ROW DB 0
377 SAVCR DW 0
378 INQ DB 0
379 PRMCNT LABEL BYTE
380 PRMCNTW DW 0
381 KEYCNT DB 0
382 KEYPTR DW BUF
383 REPORT DB ESC_CHAR,'[00;00R',CR ;CURSOR POSTION REPORT BUFFER
384 ALTAH DB 0 ;Special key handling
385
386 EXT_16 DB 0 ; WGR Extended INT 16h flag ;AN000;
387 Switch_X DB OFF ; WGR /X flag ;AN000;
388 Switch_L db OFF ;DCR397; 1= /L flag entered.
389 Switch_K db OFF ;AN005; To control EXT_16
390 SCAN_LINES DB ? ; WGR flag for available scan lines (VGA) ;AN000;
391 HDWR_FLAG DW 0 ; WGR byte of flags indicating video support ;AN000;
392
393 VIDEO_MODE_TABLE LABEL BYTE ; WGR table containing applicable ;AN000;
394 MODE_TABLE <> ; WGR video modes and corresponding ;AN000;
395 MODE_TABLE <> ; WGR data. ;AN000;
396 MODE_TABLE <> ; WGR this table is initialized at ;AN000;
397 MODE_TABLE <> ; WGR INIT time ;AN000;
398 MODE_TABLE <> ; WGR ;AN000;
399 MODE_TABLE <> ; WGR ;AN000;
400 MODE_TABLE <> ; WGR ;AN000;
401 MODE_TABLE <> ; WGR ;AN000;
402 MODE_TABLE <> ; WGR ;AN000;
403 MODE_TABLE <> ; WGR ;AN000;
404 MODE_TABLE <> ; WGR ;AN000;
405 MODE_TABLE <> ; WGR ;AN000;
406 MODE_TABLE <> ; WGR ;AN000;
407 MODE_TABLE <> ; WGR ;AN000;
408 MODE_TABLE <> ; WGR ;AN000;
409 VIDEO_TABLE_MAX EQU $ ; WGR maximum address for video table ;AN000;
410 MAX_VIDEO_TAB_NUM EQU ($-VIDEO_MODE_TABLE)/TYPE MODE_TABLE ;P1767 Max number of table
411 ;AN000;
412 ;-------------------------------------------------------------
413 ;
414 ; CHROUT - WRITE OUT CHAR IN AL USING CURRENT ATTRIBUTE
415 ;
416 ATTRW LABEL WORD
417 ATTR DB 00000111B ;CHARACTER ATTRIBUTE
418 BPAGE DB 0 ;BASE PAGE
419 base dw 0b800h
420 screen_seg dw 00000h
421
422 chrout: cmp al,13
423 jnz trylf
424 mov [col],0
425 jmp short setit
426
427 trylf: cmp al,10
428 jz lf
429 cmp al,7
430 jnz tryback
431 torom:
432 mov bx,[attrw]
433 and bl,7
434 mov ah,14
435 int 10h
436 ret5: ret
437
438 tryback:
439 cmp al,8
440 jnz outchr
441 cmp [col],0
442 jz ret5
443 dec [col]
444 jmp short setit
445
446 outchr:
447 mov bx,[attrw]
448 mov cx,1
449 mov ah,9
450 int 10h
451 inc [col]
452 mov al,[col]
453 cmp al,[maxcol]
454 jbe setit
455 cmp [wrap],0
456 jz outchr1
457 dec [col]
458 ret
459 outchr1:
460 mov [col],0
461 lf: inc [row]
462 MOV AH,30 ; GHG Fix for ROUNDUP/PALACE
463 MOV AL,MODE ; GHG Fix for ROUNDUP/PALACE
464 CMP AL,11H ; GHG Fix for ROUNDUP/PALACE
465 JE LF2 ; GHG Fix for ROUNDUP/PALACE
466 CMP AL,12H ; GHG Fix for ROUNDUP/PALACE
467 JE LF2 ; GHG Fix for ROUNDUP/PALACE
468 .IF <GRAPHICS_FLAG EQ GRAPHICS_MODE> ; WGR ;AN000;
469 MOV AH,DEFAULT_LENGTH ; WGR ;AN000;
470 .ELSE ; WGR ;AN000;
471 MOV AH,BYTE PTR [REQ_TXT_LENGTH] ; GHG Fix for ROUNDUP/PALACE
472 .ENDIF ; WGR ;AN000;
473 LF2: ; GHG Fix for ROUNDUP/PALACE
474 cmp [row],AH ; GHG Fix for ROUNDUP/PALACE
475 jb setit
476 DEC AH ; GHG Fix for ROUNDUP/PALACE
477 mov [row],AH ; GHG Fix for ROUNDUP/PALACE
478 call scroll
479
480 setit: mov dh,row
481 mov dl,col
482 mov bh,[bpage]
483 mov ah,2
484 int 10h
485 ret
486
487 ;AN006;Writing a LF char through Teletype function to scroll the screen
488 ;has a side effect of changing the color of the cursor when the PROMPT
489 ;setting in PTM P4241 is used. AN001 uses this method to fix the strobing
490 ;problem of the palace machine. The old method of scrolling used to directly
491 ;write into video buffer. The old method has been used by AN001 for
492 ;CGA adater of mode 2 or 3 only.
493 ;To solve P4241, but to maintain the fix of the strobing problem of palace
494 ;machine, we return back to the old logic but the old logic has to be
495 ;Revised for the displays above CGA level. For the adapters above
496 ;CGA display, we don't need to turn off/on the video - this will causes
497 ;a strobing, if you use do this, for Palace machine.
498 ;This logic will be only applied to mode 2 and 3 only.
499
500 scroll:
501 ;AN006;AN008; Myscroll is only for Mode 2 and 3 of all display unit.
502 ; .IF <BIT HDWR_FLAG eq CGA_ACTIVE> ; GHG is this the CGA? ;AN000;
503 .IF < MODE eq 2 > or
504 .IF < MODE eq 3 >
505 jmp myscroll
506 .ENDIF
507 ; .ENDIF
508 ;AN006;AN008; Other modes (=APA mode) use TeleType function of
509 ; writing LF to scroll the screen!.
510 mov al,10 ; GHG
511 jmp torom ; GHG
512
513 myscroll:
514 mov bh,[attr]
515 mov bl,' '
516 MOV AL,[MAXCOL] ; WGR ;AN000;
517 CBW ; WGR ;AN000;
518 INC AX ; WGR ;AN000;
519 MOV BP,AX ; WGR ;AN000;
520 MOV SI,BP ; WGR ;AN000;
521 ADD SI,BP ; WGR ;AN000;
522 .IF <GRAPHICS_FLAG EQ GRAPHICS_MODE> ; WGR ;AN000;
523 MOV AX,DEFAULT_LENGTH ; WGR ;AN000;
524 .ELSE ; WGR ;AN000;
525 MOV AX,[REQ_TXT_LENGTH] ; WGR ;AN000;
526 .ENDIF ; WGR ;AN000;
527 DEC AX ; WGR ;AN000;
528 MUL BP ; WGR ;AN000;
529 MOV CX,AX ; WGR ;AN000;
530 mov ax,[base]
531 add ax,[screen_seg]
532 mov es,ax
533 mov ds,ax
534 xor di,di
535 cld
536 cmp cs:[base],0b800h
537 jz colorcard
538
539 rep movsw
540 mov ax,bx
541 mov cx,bp
542 rep stosw
543 sret: push cs
544 pop ds
545 ret
546
547 colorcard:
548 ; We must protect this with a critical section
549 ;
550 ; INT 29H calls to device drivers do not enter CritDevice
551 ; The user MIGHT hit Ctrl-NumLock in the middle of this
552 ; which will leave the screen blanked.
553 mov ax,8000H + CritDevice ; Enter Device critical section
554 int int_IBM
555
556 cmp cs:[Hdwr_Flag], MCGA_ACTIVE ;AN006;AN007;above CGA level?
557 jae Skip_Video_Off ;AN006;AN007;
558
559 mov dx,3dah
560 wait2: in al,dx
561 test al,8
562 jz wait2
563 mov al,25h
564 mov dx,3d8h
565 out dx,al ;turn off video
566 Skip_Video_Off: ;AN006;
567 rep movsw
568 mov ax,bx
569 mov cx,bp
570 rep stosw
571 cmp cs:[Hdwr_Flag], MCGA_ACTIVE ;AN006;AN007;
572 jae Skip_Video_On ;AN006;AN007;
573 mov al,29h
574 mov dx,3d8h
575 out dx,al ;turn on video
576
577 Skip_Video_On: ;AN006;
578 mov ax,8100H + CritDevice ; Leave Device critical section
579 int int_IBM
580
581 jmp sret
582
583 ;------------------------------------------------------
584 ;
585 ; CONSOLE READ ROUTINE
586 ;
587 CON$READ:
588 JCXZ CON$EXIT
589 CON$LOOP:
590 PUSH CX ;SAVE COUNT
591 CALL CHRIN ;GET CHAR IN AL
592 POP CX
593 STOSB ;STORE CHAR AT ES:DI
594 LOOP CON$LOOP
595 CON$EXIT:
596 JMP EXIT
597 ;---------------------------------------------------------
598 ;
599 ; INPUT SINGLE CHAR INTO AL
600 ;
601 CHRIN: XOR AX,AX
602 XCHG AL,ALTAH ;GET CHARACTER & ZERO ALTAH
603 OR AL,AL
604 JNZ KEYRET
605
606 INAGN: CMP KEYCNT,0
607 JNZ KEY5A
608
609 XOR AH,AH
610 .IF <EXT_16 EQ ON> ; WGR extended interrupt available? ;AN000;
611 MOV AH,10h ; WGR yes..perform extended call ;AN000;
612 INT 16H ; WGR ;AN000;
613 .IF <SWITCH_X EQ OFF> ; WGR /X switch used? ;AN000;
614 CALL CHECK_FOR_REMAP ; WGR no....map to normal call ;AN000;
615 .ENDIF ; WGR ;AN000;
616 CALL SCAN ; WGR check for redefinition ;AN000;
617 .IF NZ AND ; WGR no redefinition?...and ;AN000;
618 .IF <SWITCH_X EQ ON> ; WGR /X switch used? ;AN000;
619 CALL CHECK_FOR_REMAP ; WGR then remap.. ;AN000;
620 OR BX,BX ; WGR reset zero flag for jump test in old code ;AN000;
621 .ENDIF ; WGR ;AN000;
622 .ELSE ; WGR extended interrupt not available ;AN000;
623 INT 16H ; WGR ;AN000;
624 CALL SCAN ; WGR check for redefinition ;AN000;
625 .ENDIF ; WGR ;AN000;
626 JNZ ALT10 ;IF NO MATCH JUST RETURN IT
627
628 DEC CX
629 DEC CX
630 INC BX
631 INC BX
632 .IF <AL EQ 0> OR ; WGR check whether the ;AN000;
633 .IF <AL EQ 0E0H> AND ; WGR keypacket is an extended one? ;AN000;
634 .IF <SWITCH_X EQ 1> ; WGR switch must be set for 0E0h extended ;AN000;
635 DEC CX ; WGR adjust pointers ;AN000;
636 INC BX ; WGR appropiately ;AN000;
637 .ENDIF
638 MOV KEYCNT,CL
639 MOV KEYPTR,BX
640 KEY5A: ; Jmp here to get rest of translation
641 CALL KEY5 ;GET FIRST KEY FROM TRANSLATION
642 ALT10:
643 OR AX,AX ;Check for non-key after BREAK
644 JZ INAGN
645 OR AL,AL ;SPECIAL CASE?
646 JNZ KEYRET
647 MOV ALTAH,AH ;STORE SPECIAL KEY
648 KEYRET: RET
649
650 KEY5: MOV BX,KEYPTR ;GET A KEY FROM TRANSLATION TABLE
651 MOV AX,WORD PTR [BX]
652 DEC KEYCNT
653 INC BX
654 OR AL,AL
655 JNZ KEY6
656 INC BX
657 DEC KEYCNT
658 KEY6: MOV KEYPTR,BX
659 RET
660
661 SCAN: MOV BX,OFFSET BUF
662 KEYLP: MOV CL,BYTE PTR [BX]
663 XOR CH,CH
664 OR CX,CX
665 JZ NOTFND
666 .IF <AL EQ 0> OR ; WGR check whether the ;AN000;
667 .IF <AL EQ 0E0H> AND ; WGR keypacket is an extended one. ;AN000;
668 .IF <SWITCH_X EQ ON> ; WGR switch must be set for 0E0h extended ;AN000;
669 CMP AX,WORD PTR [BX+1] ; WGR yes...compare the word ;AN000;
670 .ELSE ; WGR ;AN000;
671 CMP AL,BYTE PTR [BX+1] ; WGR no...compare the byte ;AN000;
672 .ENDIF ; WGR ;AN000;
673 JZ MATCH
674 ADD BX,CX
675 JMP KEYLP
676 NOTFND: OR BX,BX
677 MATCH: RET
678 ;--------------------------------------------------------------
679 ;
680 ; KEYBOARD NON DESTRUCTIVE READ, NO WAIT
681 ;
682 CON$RDND:
683 MOV AL,[ALTAH]
684 OR AL,AL
685 JNZ RDEXIT
686
687 CMP [KEYCNT],0
688 JZ RD1
689 MOV BX,[KEYPTR]
690 MOV AL,BYTE PTR [BX]
691 JMP SHORT RDEXIT
692
693 RD1: MOV AH,1
694 .IF <EXT_16 EQ ON> ; WGR extended INT16 available? ;AN000;
695 ADD AH,10H ; WGR yes....adjust to extended call ;AN000;
696 .ENDIF
697 INT 16H
698 JZ CONBUS
699 OR AX,AX
700 JNZ RD2
701 MOV AH,0
702 .IF <EXT_16 EQ ON> ; WGR extended interrupt available? ;AN000;
703 MOV AH,10h ; WGR yes..perform extended call ;AN000;
704 INT 16H ; WGR ;AN000;
705 .IF <SWITCH_X EQ OFF> ; WGR /X switch used? ;AN000;
706 CALL CHECK_FOR_REMAP ; WGR no....map to normal call ;AN000;
707 .ENDIF ; WGR ;AN000;
708 .ELSE ; WGR ;AN000;
709 INT 16H ; WGR ;AN000;
710 .ENDIF ; WGR ;AN000;
711 JMP CON$RDND
712
713 RD2: CALL SCAN
714 .IF NZ AND ; WGR if no redefinition ;AN000;
715 .IF <EXT_16 EQ ON> AND ; WGR and extended INT16 used ;AN000;
716 .IF <SWITCH_X EQ ON> ; WGR and /x used ....then ;AN000;
717 CALL CHECK_FOR_REMAP ; WGR remap to standard call ;AN000;
718 OR BX,BX ; WGR reset zero flag for jump test in old code ;AN000;
719 .ENDIF
720 JNZ RDEXIT
721
722 MOV AL,BYTE PTR [BX+2]
723 CMP BYTE PTR [BX+1],0
724 JNZ RDEXIT
725 MOV AL,BYTE PTR [BX+3]
726 RDEXIT: LDS BX,[PTRSAV]
727 MOV [BX].MEDIA,AL
728 EXVEC: JMP EXIT
729 CONBUS: JMP BUS$EXIT
730 ;--------------------------------------------------------------
731 ;
732 ; KEYBOARD FLUSH ROUTINE
733 ;
734 CON$FLSH:
735 MOV [ALTAH],0 ;Clear out holding buffer
736 MOV [KEYCNT],0
737
738 ; PUSH DS
739 ; XOR BP,BP
740 ; MOV DS,BP ;Select segment 0
741 ; MOV DS:BYTE PTR 41AH,1EH ; Reset KB queue head pointer
742 ; MOV DS:BYTE PTR 41CH,1EH ;Reset tail pointer
743 ; POP DS
744
745 Flush: mov ah,1
746 .IF <EXT_16 EQ ON> ; WGR is extended call available? ;AN000;
747 ADD AH,10H ; WGR yes....adjust for extended ;AN000;
748 .ENDIF ; WGR ;AN000;
749 int 16h
750 jz FlushDone
751 mov ah,0
752 .IF <EXT_16 EQ ON> ; WGR is extended call available? ;AN000;
753 ADD AH,10H ; WGR yes....adjust for extended ;AN000;
754 .ENDIF ; WGR ;AN000;
755 int 16h
756 jmp Flush
757 FlushDone:
758
759 JMP EXVEC
760 ;----------------------------------------------------------
761 ;
762 ; CONSOLE WRITE ROUTINE
763 ;
764 CON$WRIT:
765 JCXZ EXVEC
766
767 CON$LP: MOV AL,ES:[DI] ;GET CHAR
768 INC DI
769 CALL OUTC ;OUTPUT CHAR
770 LOOP CON$LP ;REPEAT UNTIL ALL THROUGH
771 JMP EXVEC
772
773 COUT: STI
774 PUSH DS
775 PUSH CS
776 POP DS
777 CALL OUTC
778 POP DS
779 IRET
780
781 OUTC: PUSH AX
782 PUSH BX
783 PUSH CX
784 PUSH DX
785 PUSH SI
786 PUSH DI
787 PUSH ES
788 PUSH BP
789
790 MOV [BASE],0B800H
791 XCHG AX,SI ; SAVE CHARACTER TO STUFF
792 MOV AX,40H ; POINT TO ROS BIOS
793 MOV DS,AX
794 MOV AX,DS:[49H] ; AL=MODE, AH=MAX COL
795 DEC AH ; ANSI NEEDS 0-79 OR 0-39
796 MOV WORD PTR CS:[MODE],AX ; SAVE MODE AND MAX COL
797 CMP AL,7
798 JNZ NOT_BW
799 MOV WORD PTR CS:[BASE],0B000H
800 NOT_BW: MOV AL,DS:[62H] ; GET ACTIVE PAGE
801 MOV CS:[BPAGE],AL
802 CBW
803 ADD AX,AX
804 MOV BX,AX
805 MOV AX,DS:[BX+50H] ; AL=COL, AH=ROW
806 MOV WORD PTR CS:[COL],AX ; SAVE ROW AND COLUMN
807 MOV AX,DS:[4EH] ; GET START OF SCREEN SEG
808 MOV CL,4
809 SHR AX,CL ; CONVERT TO A SEGMENT
810 PUSH CS
811 POP DS
812 MOV [SCREEN_SEG],AX
813 XCHG AX,SI ; GET BACK CHARACTER IN AL
814
815 CALL VIDEO
816 POP BP
817 POP ES
818 POP DI
819 POP SI
820 POP DX
821 POP CX
822 POP BX
823 POP AX
824 RET
825
826
827 ;----------------------------------------------------------
828 ;
829 ; OUTPUT SINGLE CHAR IN AL TO VIDEO DEVICE
830 ;
831 VIDEO: MOV SI,OFFSET STATE
832 JMP [SI]
833
834 S2: CMP AL,'['
835 JZ S22
836 JMP S1
837 S22: MOV WORD PTR [SI],OFFSET S3
838 XOR BX,BX
839 MOV WORD PTR INQ,BX
840 JMP SHORT S3B
841
842 S3: CMP AL,';'
843 JNZ S3C
844 S3A: INC PRMCNT
845 S3B: CALL GETPTR
846 XOR AX,AX
847 MOV WORD PTR [BX],AX ;DEFAULT VALUE IS ZERO
848 RET
849
850 S3C: CMP AL,'0'
851 JB S3D
852 CMP AL,'9'
853 JA S3D
854 CALL GETPTR
855 SUB AL,'0'
856 XCHG AL,BYTE PTR [BX]
857 MOV AH,10
858 MUL AH ;*10
859 ADD BYTE PTR [BX],AL ;MOVE IN DIGIT
860 RET
861
862 S3D: CMP AL,'='
863 JZ S3RET
864 CMP AL,'?'
865 JZ S3RET
866 CMP AL,'"' ;BEGIN QUOTED STRING
867 JZ S3E
868 CMP AL,"'"
869 JNZ S7
870 S3E: MOV WORD PTR [SI],OFFSET S4
871 MOV [INQ],AL
872 S3RET: RET
873
874 ;
875 ; ENTER QUOTED STRINGS
876 ;
877
878 S4: CMP AL,[INQ] ;CHECK FOR STRING TERMINATOR
879 JNZ S4A
880 DEC PRMCNT ;TERMINATE STRING
881 MOV WORD PTR [SI],OFFSET S3
882 RET
883
884 S4A: CALL GETPTR
885 MOV BYTE PTR [BX],AL
886 MOV WORD PTR [SI],OFFSET S4
887 JMP S3A
888 ;
889 ; LOOK FOR ANSI COMMAND SPECIFIED IN AL
890 ;
891
892 S7: MOV BX,OFFSET CMDTABL-3
893 ;
894 S7A: ADD BX,3
895 CMP BYTE PTR [BX],0
896 JZ S1B
897 CMP BYTE PTR [BX],AL
898 JNZ S7A
899 ;
900 S7B: MOV AX,WORD PTR [BX+1] ;AX = JUMP ADDRESS
901 MOV BX,OFFSET BUF
902 INC BX
903 ADD BX,ASNPTR ;BX = PTR TO PARM LIST
904 MOV DL,BYTE PTR [BX]
905 XOR DH,DH ;DX = FIRST PARAMETER
906 MOV CX,DX
907 OR CX,CX
908 JNZ S7C
909 INC CX ;CX = DX, CX=1 IF DX=0
910 S7C: JMP AX ;AL = COMMAND
911
912 S1: CMP AL,ESC_CHAR ;ESCAPE SEQUENCE?
913 JNZ S1B
914 MOV WORD PTR [SI],OFFSET S2
915 RET
916
917 S1B: CALL CHROUT
918 S1A: MOV WORD PTR [STATE],OFFSET S1
919 RET
920
921 MOVCUR: CMP BYTE PTR [BX],AH
922 JZ SETCUR
923 ADD BYTE PTR [BX],AL
924 LOOP MOVCUR
925 SETCUR: MOV DX,WORD PTR COL
926 XOR BX,BX
927 MOV AH,2
928 INT 16
929 JMP S1A
930
931 CUP: .IF <GRAPHICS_FLAG EQ GRAPHICS_MODE> ; WGR ;AN000;
932 CMP CL,DEFAULT_LENGTH ; WGR ;AN000;
933 .ELSE ; WGR ;AN000;
934 CMP CL,BYTE PTR [REQ_TXT_LENGTH] ; WGR ;AN000;
935 .ENDIF ; WGR ;AN000;
936 JA SETCUR
937 MOV AL,MAXCOL
938 MOV CH,BYTE PTR [BX+1]
939 OR CH,CH
940 JZ CUP1
941 DEC CH
942 CUP1: CMP AL,CH
943 JA CUP2
944 MOV CH,AL
945 CUP2: XCHG CL,CH
946 DEC CH
947 MOV WORD PTR COL,CX
948 JMP SETCUR
949
950 CUF: MOV AH,MAXCOL
951 MOV AL,1
952 CUF1: MOV BX,OFFSET COL
953 JMP MOVCUR
954
955 CUB: MOV AX,00FFH
956 JMP CUF1
957
958 CUU: MOV AX,00FFH
959 CUU1: MOV BX,OFFSET ROW
960 JMP MOVCUR
961
962 CUD: .IF <GRAPHICS_FLAG EQ GRAPHICS_MODE> ; WGR ;AN000;
963 MOV AH,DEFAULT_LENGTH ; WGR ;AN000;
964 .ELSE ; WGR ;AN000;
965 MOV AH,BYTE PTR [REQ_TXT_LENGTH] ; WGR ;AN000;
966 .ENDIF ; WGR ;AN000;
967 MOV AL,1 ; WGR ;AN000;
968 JMP CUU1
969
970 ExtKey: ;AN003;
971 cmp dl, 0 ;AN003; DL = previous parameter
972 jne ExtKey_1 ;AN003;
973 mov Switch_X, OFF ;AN003; reset it if 0.
974 jmp S1A ;AN003;
975 ExtKey_1: ;AN003;
976 cmp dl, 1 ;AN003; 1 ?
977 je SetExtKey ;AN003;
978 jmp S1A ;AN003; ignore it
979 SetExtKey: ;AN003;
980 mov Switch_X, ON ;AN003; set it if 1.
981 jmp S1A ;AN003;
982
983 PSCP: MOV AX,WORD PTR COL
984 MOV SAVCR,AX
985 JMP SETCUR
986
987 PRCP: MOV AX,SAVCR
988 MOV WORD PTR COL,AX
989 JMP SETCUR
990
991 SGR: XOR CX,CX
992 XCHG CL,PRMCNT
993 CALL GETPTR
994 INC CX
995 SGR1: MOV AL,BYTE PTR [BX]
996 PUSH BX
997 MOV BX,OFFSET GRMODE
998 SGR2: MOV AH,BYTE PTR [BX]
999 ADD BX,3
1000 CMP AH,0FFH
1001 JZ SGR3
1002 CMP AH,AL
1003 JNZ SGR2
1004 MOV AX,WORD PTR [BX-2]
1005 AND ATTR,AL
1006 OR ATTR,AH
1007 SGR3: POP BX
1008 INC BX
1009 LOOP SGR1
1010 JMP SETCUR
1011
1012 ED: XOR CX,CX
1013 MOV WORD PTR COL,CX
1014 MOV DH,30 ; ;AN009;
1015 MOV AL,MODE ; ;AN009;
1016 CMP AL,11H ; ;AN009;
1017 JE ERASE ; ;AN009;
1018 CMP AL,12H ; ;AN009;
1019 JE ERASE ; ;AN009;
1020 .IF <GRAPHICS_FLAG EQ GRAPHICS_MODE> ; WGR ;AN000;
1021 MOV DH,DEFAULT_LENGTH ; WGR ;AN000;
1022 .ELSE ; WGR ;AN000;
1023 MOV DH,BYTE PTR [REQ_TXT_LENGTH] ; WGR ;AN000;
1024 .ENDIF ; WGR ;AN000;
1025 ERASE: MOV DL,MAXCOL
1026 .IF <GRAPHICS_FLAG EQ GRAPHICS_MODE> ; WGR if we are in a graphics mode.. ;AN000;
1027 XOR BH,BH ; WGR then use 0 as attribute... ;AN000;
1028 .ELSE ; WGR else... ;AN000;
1029 MOV BH,ATTR ; WGR ...use active attribute ;AC000;
1030 .ENDIF ; WGR ;AN000;
1031 MOV AX,0600H
1032 INT 16
1033 ED3: JMP SETCUR
1034
1035 EL: MOV CX,WORD PTR COL
1036 MOV DH,CH
1037 JMP ERASE
1038
1039 BIN2ASC:MOV DL,10
1040 INC AL
1041 XOR AH,AH
1042 DIV DL
1043 ADD AX,'00'
1044 RET
1045 DSR: MOV AH,REQ_CRSR_POS ; WGR ;AN000;
1046 PUSH BX ; WGR ;AN000;
1047 XOR BH,BH ; WGR ;AN000;
1048 INT 10H ; WGR ;AN000;
1049 POP BX ; WGR ;AN000;
1050 PUSH DX ; WGR ;AN000;
1051 MOV AL,DH ;REPORT CURRENT CURSOR POSITION
1052 CALL BIN2ASC
1053 MOV WORD PTR REPORT+2,AX
1054 POP DX ; WGR ;AN000;
1055 MOV AL,DL ; WGR ;AN000;
1056 CALL BIN2ASC
1057 MOV WORD PTR REPORT+5,AX
1058 MOV [KEYCNT],9
1059 MOV [KEYPTR],OFFSET REPORT
1060 CPR: JMP S1A
1061
1062 RM: MOV CL,1
1063 JMP SHORT SM1
1064
1065 SM: XOR CX,CX
1066 SM1: MOV AL,DL
1067 .IF <AL LT MODE7> OR ;; WGR check to see if valid mode.. ;AN000;
1068 .IF <AL GE MODE13> AND ;; WGR (0-6,13-19) ;AN000;
1069 .IF <AL LE MODE19> ;; WGR ;AN000;
1070 .IF <BIT HDWR_FLAG AND LCD_ACTIVE> ;; WGR is this the LCD? ;AN000;
1071 PUSH DS ;; WGR yes... ;AN000;
1072 PUSH AX ;; WGR save mode ;AN000;
1073 MOV AX,ROM_BIOS ;; WGR ;AN000;
1074 MOV DS,AX ;; WGR get equipment status flag.. ;AN000;
1075 MOV AX,DS:[EQUIP_FLAG] ;; WGR ;AN000;
1076 AND AX,INIT_VID_MASK ;; WGR clear initial video bits.. ;AN000;
1077 OR AX,LCD_COLOR_MODE ;; WGR .....set bits as color ;AN000;
1078 MOV DS:[EQUIP_FLAG],AX ;; WGR replace updated flag. ;AN000;
1079 POP AX ;; WGR restore mode. ;AN000;
1080 POP DS ;; WGR ;AN000;
1081 .ENDIF ;; WGR ;AN000;
1082 MOV AH,SET_MODE ;; WGR yes....set mode.. ;AN000;
1083 INT 10H ;; WGR ;AN000;
1084 .ELSE ;; WGR no...check for 7 (wrap at EOL) ;AN000;
1085 .IF <AL EQ 7> ;; WGR ;AN000;
1086 MOV [WRAP],CL ;; WGR yes....wrap... ;AN000;
1087 .ENDIF ;; WGR ;AN000;
1088 .ENDIF ;; WGR ;AN000;
1089 JMP CPR
1090
1091 KEYASN: XOR DX,DX
1092 XCHG DL,PRMCNT ;GET CHARACTER COUNT
1093 INC DX
1094 INC DX
1095
1096 CALL GETPTR
1097 MOV AX,WORD PTR [BX] ;GET CHARACTER TO BE ASSIGNED
1098 CALL SCAN ;LOOK IT UP
1099 JNZ KEYAS1
1100
1101 MOV DI,BX ;DELETE OLD DEFINITION
1102 SUB ASNPTR,CX
1103 MOV KEYCNT,0 ; This delete code shuffles the
1104 ; key definition table all around.
1105 ; This will cause all sorts of trouble
1106 ; if we are in the middle of expanding
1107 ; one of the definitions being shuffled.
1108 ; So shut off the expansion.
1109 MOV SI,DI
1110 ADD SI,CX
1111 MOV CX,OFFSET BUF+ASNMAX
1112 SUB CX,SI
1113 CLD
1114 PUSH ES ;SAVE USER'S ES
1115 PUSH CS
1116 POP ES ;SET UP ES ADDRESSABILITY
1117 REP MOVSB
1118 POP ES ;RESTORE ES
1119
1120 KEYAS1: CALL GETPTR
1121 CMP DL,3
1122 JB KEYAS3
1123 MOV BYTE PTR [BX-1],DL ;SET LENGTH
1124 ADD ASNPTR,DX ;REMEMBER END OF LIST
1125 ADD BX,DX
1126 CMP ASNPTR,ASNMAX ; Too much???
1127 JB KEYAS3 ; No
1128 SUB BX,DX ; Next three instructions undo the above
1129 SUB ASNPTR,DX
1130 KEYAS3: MOV BYTE PTR [BX-1],00
1131 MOV STATE,OFFSET S1 ;RETURN
1132 RET
1133
1134 GETPTR: MOV BX,ASNPTR
1135 INC BX
1136 ADD BX,PRMCNTW
1137 CMP BX,ASNMAX + 8
1138 JB GET1
1139 DEC PRMCNT
1140 JMP GETPTR
1141 GET1: ADD BX,OFFSET BUF
1142 RET
1143
1144
1145 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; WGR ;AN000;
1146 ; WGR ;AN000;
1147 ; CHECK_FOR_REMAP: WGR ;AN000;
1148 ; WGR ;AN000;
1149 ; This function esnures that the keypacket WGR ;AN000;
1150 ; passed to it in AX is mapped to a standard INT16h call WGR ;AN000;
1151 ; WGR ;AN000;
1152 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; WGR ;AN000;
1153 ;AN000;
1154 CHECK_FOR_REMAP PROC NEAR ; WGR ;AN000;
1155 .IF <AL EQ 0E0h> ; WGR is this an extended key? ;AN000;
1156 OR AH,AH ; WGR probably...but check for alpha character ;AN000;
1157 .IF NZ ; WGR if it's not an alpha character ....then ;AN000;
1158 XOR AL,AL ; WGR map extended to standard ;AN000;
1159 .ENDIF ; WGR ;AN000;
1160 .ENDIF ; WGR ;AN000;
1161 RET ; WGR ;AN000;
1162 CHECK_FOR_REMAP ENDP ; WGR ;AN000;
1163
1164
1165 BUF DB 4,00,72H,16,0
1166 DB ASNMAX+8-5 DUP (?)
1167
1168 CODE ENDS
1169 END
The original sources of MS-DOS 1.25, 2.0, and 4.0 for reference purposes