mirror of
https://github.com/microsoft/MS-DOS.git
synced 2024-12-11 23:15:48 +00:00
355 lines
14 KiB
NASM
355 lines
14 KiB
NASM
|
INCLUDE STDSW.ASM
|
|||
|
|
|
|||
|
|
KANJI EQU FALSE
|
|||
|
|
|
|||
|
|
Rainbow EQU FALSE
|
|||
|
|
|
|||
|
|
INCLUDE DOSSYM.ASM
|
|||
|
|
;
|
|||
|
|
; segment ordering for MSDOS
|
|||
|
|
;
|
|||
|
|
|
|||
|
|
CONSTANTS SEGMENT BYTE PUBLIC 'CONST'
|
|||
|
|
CONSTANTS ENDS
|
|||
|
|
|
|||
|
|
DATA SEGMENT BYTE PUBLIC 'DATA'
|
|||
|
|
DATA ENDS
|
|||
|
|
|
|||
|
|
CODE SEGMENT BYTE PUBLIC 'CODE'
|
|||
|
|
CODE ENDS
|
|||
|
|
|
|||
|
|
LAST SEGMENT BYTE PUBLIC 'LAST'
|
|||
|
|
LAST ENDS
|
|||
|
|
|
|||
|
|
DOSGROUP GROUP CODE,CONSTANTS,DATA,LAST
|
|||
|
|
|
|||
|
|
CONSTANTS SEGMENT BYTE PUBLIC 'CONST'
|
|||
|
|
|
|||
|
|
PUBLIC DIVMES
|
|||
|
|
DIVMES DB 13,10,"Divide overflow",13,10
|
|||
|
|
|
|||
|
|
PUBLIC DivMesLen
|
|||
|
|
DivMesLen DB $-DivMes ; Length of the above message in bytes
|
|||
|
|
|
|||
|
|
|
|||
|
|
;
|
|||
|
|
; The next variable points to the country table for the current country
|
|||
|
|
; ( the table returned by the AL=0 INTERNATIONAL call).
|
|||
|
|
;
|
|||
|
|
PUBLIC Current_Country
|
|||
|
|
|
|||
|
|
IF KANJI
|
|||
|
|
Current_Country DW OFFSET DOSGROUP:JAPTABLE
|
|||
|
|
ELSE
|
|||
|
|
Current_Country DW OFFSET DOSGROUP:USTABLE
|
|||
|
|
ENDIF
|
|||
|
|
|
|||
|
|
;
|
|||
|
|
; The international tabel(s).
|
|||
|
|
; This is simply a sequence of tables of the following form:
|
|||
|
|
;
|
|||
|
|
; BYTE Size of this table excluding this byte and the next
|
|||
|
|
; BYTE Country code represented by this table
|
|||
|
|
; A sequence of n bytes, where n is the number specified
|
|||
|
|
; by the first byte above and is not > internat_block_max,
|
|||
|
|
; in the correct order for being returned by the
|
|||
|
|
; INTERNATIONAL call as follows:
|
|||
|
|
; WORD Date format 0=mdy, 1=dmy, 2=ymd
|
|||
|
|
; 5 BYTE Currency symbol null terminated
|
|||
|
|
; 2 BYTE thousands separator null terminated
|
|||
|
|
; 2 BYTE Decimal point null terminated
|
|||
|
|
; 2 BYTE Date separator null terminated
|
|||
|
|
; 2 BYTE Time separator null terminated
|
|||
|
|
; 1 BYTE Bit field. Currency format.
|
|||
|
|
; Bit 0. =0 $ before # =1 $ after #
|
|||
|
|
; Bit 1. no. of spaces between # and $ (0 or 1)
|
|||
|
|
; 1 BYTE No. of significant decimal digits in currency
|
|||
|
|
; 1 BYTE Bit field. Time format.
|
|||
|
|
; Bit 0. =0 12 hour clock =1 24 hour
|
|||
|
|
; WORD Segment offset for address of case conversion routine
|
|||
|
|
; WORD RESERVED. Filled in by DOS. Segment value for above routine
|
|||
|
|
; 2 BYTE Data list separator null terminated.
|
|||
|
|
; NOTE: The segment part of the DWORD Map_call is set
|
|||
|
|
; by the INTERNATIONAL call. Do not try to initialize
|
|||
|
|
; it to anything meaningful.
|
|||
|
|
;
|
|||
|
|
; The list of tables is terminated by putting a byte of -1 after the last
|
|||
|
|
; table (a table with length -1).
|
|||
|
|
|
|||
|
|
PUBLIC international_table
|
|||
|
|
|
|||
|
|
international_table LABEL BYTE
|
|||
|
|
|
|||
|
|
IF KANJI
|
|||
|
|
DB SIZE internat_block ; Size in bytes of this table
|
|||
|
|
DB 81 ; Country code
|
|||
|
|
JAPTABLE internat_block <2,'\',0,0,0,0,',',0,'.',0,'-',0,':',0,0,0,1,OFFSET DOSGROUP:MAP_DCASE , 0,',',0>
|
|||
|
|
ENDIF
|
|||
|
|
|
|||
|
|
DB SIZE internat_block ; Size in bytes of this table
|
|||
|
|
DB 1 ; Country code
|
|||
|
|
USTABLE internat_block <0,'$',0,0,0,0,',',0,'.',0,'-',0,':',0,0,2,0,OFFSET DOSGROUP:MAP_DCASE,0,',',0>
|
|||
|
|
; Tables for the IBM PC character set follow. The values
|
|||
|
|
; associated with some of the currency symbols may change with
|
|||
|
|
; other character sets. You may wish to add or delete country
|
|||
|
|
; entries. NOTE: It is not a mistake that the JAPANESE entry
|
|||
|
|
; has different currency symbols for the KANJI and
|
|||
|
|
; non-KANJI versions.
|
|||
|
|
|
|||
|
|
IF NOT KANJI
|
|||
|
|
IF IBM
|
|||
|
|
DB SIZE internat_block ; Size in bytes of this table
|
|||
|
|
DB 44 ; Country code
|
|||
|
|
UKTABLE internat_block <1,9Ch,0,0,0,0,',',0,'.',0,'-',0,':',0,0,2,0,OFFSET DOSGROUP:MAP_DCASE,0,',',0>
|
|||
|
|
DB SIZE internat_block ; Size in bytes of this table
|
|||
|
|
DB 49 ; Country code
|
|||
|
|
GRMTABLE internat_block <1,'D','M',0,0,0,'.',0,',',0,'.',0,'.',0,3,2,1,OFFSET DOSGROUP:MAP_DCASE,0,';',0>
|
|||
|
|
DB SIZE internat_block ; Size in bytes of this table
|
|||
|
|
DB 33 ; Country code
|
|||
|
|
FRNTABLE internat_block <1,'F',0,0,0,0,' ',0,',',0,'/',0,':',0,3,2,1,OFFSET DOSGROUP:MAP_DCASE,0,';',0>
|
|||
|
|
DB SIZE internat_block ; Size in bytes of this table
|
|||
|
|
DB 81 ; Country code
|
|||
|
|
JAPTABLE internat_block <2,9DH,0,0,0,0,',',0,'.',0,'-',0,':',0,0,0,1,OFFSET DOSGROUP:MAP_DCASE , 0,',',0>
|
|||
|
|
ENDIF
|
|||
|
|
ENDIF
|
|||
|
|
DB -1 ; End of tables
|
|||
|
|
|
|||
|
|
CONSTANTS ENDS
|
|||
|
|
|
|||
|
|
|
|||
|
|
CODE SEGMENT BYTE PUBLIC 'CODE'
|
|||
|
|
ASSUME CS:DOSGROUP,DS:NOTHING,ES:NOTHING,SS:NOTHING
|
|||
|
|
|
|||
|
|
;CASE MAPPER ROUTINE FOR 80H-FFH character range
|
|||
|
|
; ENTRY: AL = Character to map
|
|||
|
|
; EXIT: AL = The converted character
|
|||
|
|
; Alters no registers except AL and flags.
|
|||
|
|
; The routine should do nothing to chars below 80H.
|
|||
|
|
;
|
|||
|
|
; Example:
|
|||
|
|
MAP_DCASE PROC FAR
|
|||
|
|
IF NOT KANJI
|
|||
|
|
IF IBM
|
|||
|
|
CMP AL,80H
|
|||
|
|
JB L_RET ;Map no chars below 80H ever
|
|||
|
|
CMP AL,0A7H
|
|||
|
|
JA L_RET ;This routine maps chars between 80H and A7H
|
|||
|
|
SUB AL,80H ;Turn into index value
|
|||
|
|
PUSH DS
|
|||
|
|
PUSH BX
|
|||
|
|
PUSH CS ;Move to DS
|
|||
|
|
POP DS
|
|||
|
|
MOV BX,OFFSET DOSGROUP:TABLE
|
|||
|
|
XLAT ;Get upper case character
|
|||
|
|
POP BX
|
|||
|
|
POP DS
|
|||
|
|
ENDIF
|
|||
|
|
ENDIF
|
|||
|
|
L_RET: RET
|
|||
|
|
MAP_DCASE ENDP
|
|||
|
|
IF NOT KANJI
|
|||
|
|
IF IBM
|
|||
|
|
TABLE: DB 80H,9AH,"E","A",8EH,"A",8FH,80H
|
|||
|
|
DB "E","E","E","I","I","I",8EH,8FH
|
|||
|
|
DB 90H,92H,92H,"O",99H,"O","U","U"
|
|||
|
|
DB "Y",99H,9AH,9BH,9CH,9DH,9EH,9FH
|
|||
|
|
DB "A","I","O","U",0A5H,0A5H,0A6H,0A7H
|
|||
|
|
ENDIF
|
|||
|
|
ENDIF
|
|||
|
|
|
|||
|
|
SUBTTL EDIT FUNCTION ASSIGNMENTS AND HEADERS
|
|||
|
|
PAGE
|
|||
|
|
; The following two tables implement the current buffered input editing
|
|||
|
|
; routines. The tables are pairwise associated in reverse order for ease
|
|||
|
|
; in indexing. That is; The first entry in ESCTAB corresponds to the last
|
|||
|
|
; entry in ESCFUNC, and the last entry in ESCTAB to the first entry in ESCFUNC.
|
|||
|
|
|
|||
|
|
|
|||
|
|
PUBLIC ESCCHAR
|
|||
|
|
ESCCHAR DB ESCCH ;Lead-in character for escape sequences
|
|||
|
|
IF NOT Rainbow
|
|||
|
|
ESCTAB:
|
|||
|
|
IF NOT IBM
|
|||
|
|
IF WANG
|
|||
|
|
DB 0C0h ; ^Z inserter
|
|||
|
|
DB 0C1H ; Copy one char
|
|||
|
|
DB 0C7H ; Skip one char
|
|||
|
|
DB 08AH ; Copy to char
|
|||
|
|
DB 088H ; Skip to char
|
|||
|
|
DB 09AH ; Copy line
|
|||
|
|
DB 0CBH ; Kill line (no change in template)
|
|||
|
|
DB 08BH ; Reedit line (new template)
|
|||
|
|
DB 0C3H ; Backspace
|
|||
|
|
DB 0C6H ; Enter insert mode
|
|||
|
|
IF NOT TOGLINS
|
|||
|
|
DB 0D6H ; Exit insert mode
|
|||
|
|
ENDIF
|
|||
|
|
DB 0C6H ; Escape character
|
|||
|
|
DB 0C6H ; End of table
|
|||
|
|
ELSE
|
|||
|
|
; VT52 equivalences
|
|||
|
|
DB "Z" ; ^Z inserter
|
|||
|
|
DB "S" ; F1 Copy one char
|
|||
|
|
DB "V" ; F4 Skip one char
|
|||
|
|
DB "T" ; F2 Copy to char
|
|||
|
|
DB "W" ; F5 Skip to char
|
|||
|
|
DB "U" ; F3 Copy line
|
|||
|
|
DB "E" ; SHIFT ERASE Kill line (no change in template)
|
|||
|
|
DB "J" ; ERASE Reedit line (new template)
|
|||
|
|
DB "D" ; LEFT Backspace
|
|||
|
|
DB "P" ; BLUE Enter insert mode
|
|||
|
|
DB "Q" ; RED Exit insert mode
|
|||
|
|
DB "R" ; GRAY Escape character
|
|||
|
|
DB "R" ; End of table
|
|||
|
|
ENDIF
|
|||
|
|
ENDIF
|
|||
|
|
IF IBM
|
|||
|
|
DB 64 ; Ctrl-Z - F6
|
|||
|
|
DB 77 ; Copy one char - -->
|
|||
|
|
DB 59 ; Copy one char - F1
|
|||
|
|
DB 83 ; Skip one char - DEL
|
|||
|
|
DB 60 ; Copy to char - F2
|
|||
|
|
DB 62 ; Skip to char - F4
|
|||
|
|
DB 61 ; Copy line - F3
|
|||
|
|
DB 61 ; Kill line (no change to template ) - Not used
|
|||
|
|
DB 63 ; Reedit line (new template) - F5
|
|||
|
|
DB 75 ; Backspace - <--
|
|||
|
|
DB 82 ; Enter insert mode - INS (toggle)
|
|||
|
|
DB 65 ; Escape character - F7
|
|||
|
|
DB 65 ; End of table
|
|||
|
|
ENDIF
|
|||
|
|
ESCEND:
|
|||
|
|
ESCTABLEN EQU ESCEND-ESCTAB
|
|||
|
|
|
|||
|
|
ESCFUNC LABEL WORD
|
|||
|
|
short_addr GETCH ; Ignore the escape sequence
|
|||
|
|
short_addr TWOESC
|
|||
|
|
IF NOT TOGLINS
|
|||
|
|
short_addr EXITINS
|
|||
|
|
ENDIF
|
|||
|
|
short_addr ENTERINS
|
|||
|
|
short_addr BACKSP
|
|||
|
|
short_addr REEDIT
|
|||
|
|
short_addr KILNEW
|
|||
|
|
short_addr COPYLIN
|
|||
|
|
short_addr SKIPSTR
|
|||
|
|
short_addr COPYSTR
|
|||
|
|
short_addr SKIPONE
|
|||
|
|
short_addr COPYONE
|
|||
|
|
|
|||
|
|
IF IBM
|
|||
|
|
short_addr COPYONE
|
|||
|
|
ENDIF
|
|||
|
|
short_addr CTRLZ
|
|||
|
|
ENDIF
|
|||
|
|
|
|||
|
|
;
|
|||
|
|
; OEMFunction key is expected to process a single function
|
|||
|
|
; key input from a device and dispatch to the proper
|
|||
|
|
; routines leaving all registers UNTOUCHED.
|
|||
|
|
;
|
|||
|
|
; Inputs: CS, SS are DOSGROUP
|
|||
|
|
; Outputs: None. This function is expected to JMP to onw of
|
|||
|
|
; the following labels:
|
|||
|
|
;
|
|||
|
|
; GetCh - ignore the sequence
|
|||
|
|
; TwoEsc - insert an ESCChar in the buffer
|
|||
|
|
; ExitIns - toggle insert mode
|
|||
|
|
; EnterIns - toggle insert mode
|
|||
|
|
; BackSp - move backwards one space
|
|||
|
|
; ReEdit - reedit the line with a new template
|
|||
|
|
; KilNew - discard the current line and start from scratch
|
|||
|
|
; CopyLin - copy the rest of the template into the line
|
|||
|
|
; SkipStr - read the next character and skip to it in the template
|
|||
|
|
; CopyStr - read next char and copy from template to line until char
|
|||
|
|
; SkipOne - advance position in template one character
|
|||
|
|
; CopyOne - copy next character in template into line
|
|||
|
|
; CtrlZ - place a ^Z into the template
|
|||
|
|
; Registers that are allowed to be modified by this function are:
|
|||
|
|
; AX, CX, BP
|
|||
|
|
|
|||
|
|
PUBLIC OEMFunctionKey
|
|||
|
|
OEMFunctionKey PROC NEAR
|
|||
|
|
ASSUME DS:NOTHING,ES:NOTHING,SS:DOSGROUP
|
|||
|
|
invoke $STD_CON_INPUT_NO_ECHO ; Get the second byte of the sequence
|
|||
|
|
|
|||
|
|
IF NOT Rainbow
|
|||
|
|
MOV CL,ESCTABLEN ; length of table for scan
|
|||
|
|
PUSH DI ; save DI (cannot change it!)
|
|||
|
|
MOV DI,OFFSET DOSGROUP:ESCTAB ; offset of second byte table
|
|||
|
|
REPNE SCASB ; Look it up in the table
|
|||
|
|
POP DI ; restore DI
|
|||
|
|
SHL CX,1 ; convert byte offset to word
|
|||
|
|
MOV BP,CX ; move to indexable register
|
|||
|
|
JMP [BP+OFFSET DOSGROUP:ESCFUNC] ; Go to the right routine
|
|||
|
|
ENDIF
|
|||
|
|
IF Rainbow
|
|||
|
|
|
|||
|
|
TransferIf MACRO value,address
|
|||
|
|
local a
|
|||
|
|
CMP AL,value
|
|||
|
|
JNZ a
|
|||
|
|
transfer address
|
|||
|
|
a:
|
|||
|
|
ENDM
|
|||
|
|
|
|||
|
|
CMP AL,'[' ; is it second lead char
|
|||
|
|
JZ EatParm ; yes, go walk tree
|
|||
|
|
GoGetCh:
|
|||
|
|
transfer GetCh ; no, ignore sequence
|
|||
|
|
EatParm:
|
|||
|
|
invoke $STD_CON_INPUT_NO_ECHO ; get argument
|
|||
|
|
CMP AL,'A' ; is it alphabetic arg?
|
|||
|
|
JAE EatAlpha ; yes, go snarf one up
|
|||
|
|
XOR BP,BP ; init digit counter
|
|||
|
|
JMP InDigit ; jump into internal eat digit routine
|
|||
|
|
EatNum:
|
|||
|
|
invoke $STD_CON_INPUT_NO_ECHO ; get next digit
|
|||
|
|
InDigit:
|
|||
|
|
CMP AL,'9' ; still a digit?
|
|||
|
|
JA CheckNumEnd ; no, go check for end char
|
|||
|
|
SUB AL,'0' ; turn into potential digit
|
|||
|
|
JB GoGetCh ; oops, not a digit, ignore
|
|||
|
|
MOV CX,BP ; save BP for 10 multiply
|
|||
|
|
CBW ; make AL into AX
|
|||
|
|
SHL BP,1 ; 2*BP
|
|||
|
|
SHL BP,1 ; 4*BP
|
|||
|
|
ADD BP,CX ; 5*BP
|
|||
|
|
SHL BP,1 ; 10*BP
|
|||
|
|
ADD BP,AX ; 10*BP + digit
|
|||
|
|
JMP EatNum ; continue with number
|
|||
|
|
CheckNumEnd:
|
|||
|
|
CMP AL,7Eh ; is it end char ~
|
|||
|
|
JNZ GoGetCh ; nope, ignore key sequence
|
|||
|
|
MOV AX,BP
|
|||
|
|
transferIf 1,SkipStr ; FIND key
|
|||
|
|
transferIf 2,EnterIns ; INSERT HERE key
|
|||
|
|
transferIf 3,SkipOne ; REMOVE
|
|||
|
|
transferIf 4,CopyStr ; SELECT
|
|||
|
|
transferIf 17,TwoEsc ; INTERRUPT
|
|||
|
|
transferIf 18,ReEdit ; RESUME
|
|||
|
|
transferIf 19,KilNew ; CANCEL
|
|||
|
|
transferIf 21,CtrlZ ; EXIT
|
|||
|
|
transferIf 29,CopyLin ; DO
|
|||
|
|
JMP GoGetCh
|
|||
|
|
EatAlpha:
|
|||
|
|
CMP AL,'O' ; is it O?
|
|||
|
|
JA GoGetCh ; no, after assume bogus
|
|||
|
|
JZ EatPQRS ; eat the rest of the bogus key
|
|||
|
|
transferIf 'C',CopyOne ; RIGHT
|
|||
|
|
transferIf 'D',BackSp ; LEFT
|
|||
|
|
JMP GoGetCh
|
|||
|
|
EatPQRS:
|
|||
|
|
invoke $STD_CON_INPUT_NO_ECHO ; eat char after O
|
|||
|
|
JMP GoGetCh
|
|||
|
|
ENDIF
|
|||
|
|
|
|||
|
|
OEMFunctionKey ENDP
|
|||
|
|
|
|||
|
|
CODE ENDS
|
|||
|
|
|
|||
|
|
do_ext
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
|
|||
|
|
|