v2.0/source/SORTMES.ASM

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