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