mirror of
https://github.com/microsoft/MS-DOS.git
synced 2024-12-02 02:25:47 +00:00
88 lines
2.6 KiB
NASM
88 lines
2.6 KiB
NASM
|
TITLE SORT Messages
|
|||
|
|
|
|||
|
|
false equ 0
|
|||
|
|
true equ not false
|
|||
|
|
msver equ false
|
|||
|
|
ibm equ true
|
|||
|
|
internat equ true
|
|||
|
|
|
|||
|
|
CONST SEGMENT PUBLIC BYTE
|
|||
|
|
|
|||
|
|
PUBLIC BADVER,ERRMSG,ERRMSG2
|
|||
|
|
|
|||
|
|
BADVER DB "SORT: Incorrect DOS version",13,10,"$"
|
|||
|
|
|
|||
|
|
ERRMSG DW ERRMSG2 - MSG1TXT
|
|||
|
|
MSG1TXT DB "SORT: Insufficient memory",13,10
|
|||
|
|
|
|||
|
|
ERRMSG2 DW ENDTEXT - MSG2TXT
|
|||
|
|
MSG2TXT DB "SORT: Insufficient disk space",13,10
|
|||
|
|
|
|||
|
|
if internat
|
|||
|
|
public table
|
|||
|
|
;This table defibes the coalating sequence to be used for
|
|||
|
|
;international characters. This table also equates
|
|||
|
|
;lower case character to upper case unlike a straight ASCII sort.
|
|||
|
|
;If your character set is like the IBM PC simply turn
|
|||
|
|
;on the IBM conditional. If it is different simply modify the
|
|||
|
|
;table appropriately. Note: to insert a foreign language character
|
|||
|
|
;between two ASCII characters it will be necessary to
|
|||
|
|
;"shift" all the ASCII characters to make room for a new character.
|
|||
|
|
;If this is done be sure to equate the foreign characters to the new
|
|||
|
|
;values instead of the old values which have been set here to the
|
|||
|
|
;upper case ASCII values.
|
|||
|
|
|
|||
|
|
table db 0,1,2,3,4,5,6,7
|
|||
|
|
db 8,9,10,11,12,13,14,15
|
|||
|
|
db 16,17,18,19,20,21,22,23
|
|||
|
|
db 24,25,26,27,28,29,30,31
|
|||
|
|
db " ","!",'"',"#","$","%","&","'"
|
|||
|
|
db "(",")","*","+",",","-",".","/"
|
|||
|
|
db "0","1","2","3","4","5","6","7"
|
|||
|
|
db "8","9",":",";","<","=",">","?"
|
|||
|
|
db "@","A","B","C","D","E","F","G"
|
|||
|
|
db "H","I","J","K","L","M","N","O"
|
|||
|
|
db "P","Q","R","S","T","U","V","W"
|
|||
|
|
db "X","Y","Z","[","\","]","^","_"
|
|||
|
|
db "`","A","B","C","D","E","F","G"
|
|||
|
|
db "H","I","J","K","L","M","N","O"
|
|||
|
|
db "P","Q","R","S","T","U","V","W"
|
|||
|
|
db "X","Y","Z","{","|","}","~",127
|
|||
|
|
if msver
|
|||
|
|
db 128,129,130,131,132,133,134,135
|
|||
|
|
db 136,137,138,139,140,141,142,143
|
|||
|
|
db 144,145,146,147,148,149,150,151
|
|||
|
|
db 152,153,154,155,156,157,158,159
|
|||
|
|
db 160,161,162,163,164,165,166,167
|
|||
|
|
db 168,169,170,171,172,173,174,175
|
|||
|
|
endif
|
|||
|
|
if ibm
|
|||
|
|
db "C","U","E","A","A","A","A","C"
|
|||
|
|
db "E","E","E","I","I","I","A","A"
|
|||
|
|
db "E","A","A","O","O","O","U","U"
|
|||
|
|
db "Y","O","U","$","$","$","$","$"
|
|||
|
|
db "A","I","O","U","N","N",166,167
|
|||
|
|
db "?",169,170,171,172,"!",'"','"'
|
|||
|
|
endif
|
|||
|
|
db 176,177,178,179,180,181,182,183
|
|||
|
|
db 184,185,186,187,188,189,190,191
|
|||
|
|
db 192,193,194,195,196,197,198,199
|
|||
|
|
db 200,201,202,203,204,205,206,207
|
|||
|
|
db 208,209,210,211,212,213,214,215
|
|||
|
|
db 216,217,218,219,220,221,222,223
|
|||
|
|
if ibm
|
|||
|
|
db 224,"S"
|
|||
|
|
endif
|
|||
|
|
if msver
|
|||
|
|
db 224,225
|
|||
|
|
endif
|
|||
|
|
db 226,227,228,229,230,231
|
|||
|
|
db 232,233,234,235,236,237,238,239
|
|||
|
|
db 240,241,242,243,244,245,246,247
|
|||
|
|
db 248,249,250,251,252,253,254,255
|
|||
|
|
endif
|
|||
|
|
ENDTEXT EQU $
|
|||
|
|
|
|||
|
|
CONST ENDS
|
|||
|
|
END
|
|||
|
|
|