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
|
||
|
||
|
||
|