home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / mskermit / mszz10.asm < prev   
Assembly Source File  |  2020-01-01  |  19KB  |  496 lines
  1.     NAME    mszz10
  2. ; File MSZZ10.ASM
  3.     include mssdef.h
  4. ;       Copyright (C) 1982,1991, Trustees of Columbia University in the
  5. ;       City of New York.  Permission is granted to any individual or
  6. ;       institution to use, copy, or redistribute this software as long as
  7. ;       it is not sold for profit and this copyright notice is retained.
  8. ; Terminal emulator module for Zenith-100 based on mszibm.asm.
  9. ; Most of the contents of this file including all of the VT100/VT52
  10. ; emulation is left inactive (commented out).  I hope to be able to
  11. ; come back with a more complete implementation later on.
  12. ; Edit history
  13. ; 2 March 1991 version 3.10
  14. ; Last change: 3 May 1990.
  15. ; Bo Gedda
  16. ; 
  17. ; Terminal emulator module for IBM PC's and compatibles. Emulates Heath-19,
  18. ; VT52, VT102, and VT320. Original version for VT100 done by James Harvey,
  19. ; Indiana Purdue Univ, for MS Kermit 2.27. Taken from there by Joe Doupnik,
  20. ; Utah State Univ for MS Kermit 2.29 et seq.
  21.  
  22. ; * Disclaimer *
  23. ;
  24. ; DEC and VT are trademarks of Digital Equipment Corporation.
  25. ; References:
  26. ;  "PT200 Programmers Reference Guide", 1984, Prime Computer # DOC 8621-001P
  27. ;  "Video Terminal Model H19, Operation", 1979, Heath Company # 595-2284-05
  28. ;  "VT100 User's Guide", 2nd ed., Jan 1979, DEC # EK-VT100-UG
  29. ;  "Rainbow 100+/100B Terminal Emulation Manual", June 1984, DEC # QV069-GZ
  30. ;  "Installing and Using The VT320 Video Terminal", June 1987,
  31. ;    DEC # EK-VT320-UU-001
  32. ;  "VT320 Programmer Reference Manual", July 1987, DEC # EK-VT320-RM-001
  33. ; ---------------------------------------------------------------------------
  34.  
  35.     public    nrc2cp, cpdecsg
  36.  
  37. data    segment
  38.     extrn    flags:byte, dosnum:word
  39.  
  40.     ; DEC National Replacement Char sets, one table for each Code Page
  41.                         ; CP437
  42. ; 12 replacment bytes (keyed by ASCII bytes), NRC number, country, size, ident
  43. nrc437    db    23h,40h,5bh,5ch,5dh,5eh        ; 0, ASCII, "B", dispatch ref
  44.     db    5fh,60h,7bh,7ch,7dh,7eh
  45.     db    94,'B',0            ; 94 byte set, letter pair
  46.     db    9ch,40h,5bh,5ch,5dh,5eh        ; 1, British, "A"
  47.     db    5fh,60h,7bh,7ch,7dh,7eh
  48.     db    94,'A',0
  49.     db    9ch,3fh,98h,0abh,7ch,5eh    ; 2, Dutch, "4"
  50.     db    5fh,60h,22h,9fh,0ach,27h
  51.     db    94,'4',0
  52.     db    23h,40h,8eh,99h,8fh,9ah        ; 3, Finnish, "5"
  53.     db    5fh,82h,84h,94h,86h,81h
  54.     db    94,'5',0
  55.     db    9ch,85h,0f8h,87h,15h,5eh    ; 4, French, "R"
  56.     db    5fh,60h,82h,97h,8ah,22h
  57.     db    94,'R',0
  58.     db    23h,85h,83h,87h,88h,8ch        ; 5, French Canadian, "9"
  59.     db    5fh,93h,82h,97h,8ah,96h
  60.     db    94,'9',0
  61.     db    23h,15h,8eh,99h,9ah,5eh        ; 6, German, "K"
  62.     db    5fh,60h,84h,94h,81h,0e1h
  63.     db    94,'K',0
  64.     db    9ch,15h,0f8h,87h,82h,5eh    ; 7, Italian, "Y"
  65.     db    5fh,97h,85h,95h,8ah,8dh
  66.     db    94,'Y',0
  67.     db    23h,40h,92h,0edh,8fh,5eh    ; 8, Norwegian/Danish, "'"
  68.     db    5fh,60h,91h,0edh,86h,7eh
  69.     db    94,60h,0
  70.     db    23h,40h,8eh,80h,99h,5eh        ; 9, Portugese, "%6"
  71.     db    5fh,60h,0a6h,87h,0a7h,7eh
  72.     db    94,'%','6'
  73.     db    9ch,15h,8ch,0a5h,0a8h,5eh    ; 10, Spanish, "Z"
  74.     db    5fh,60h,60h,0f8h,0a4h,87h
  75.     db    94,'Z',0
  76.     db    23h,90h,8eh,99h,8fh,9ah        ; 11, Swedish, "7"
  77.     db    5fh,82h,84h,94h,86h,81h
  78.     db    94,'7',0
  79.     db    97h,85h,82h,87h,88h,8ch        ; 12, Swiss, "="
  80.     db    8ah,93h,84h,94h,81h,96h
  81.     db    94,'=',0
  82.  
  83.                         ; CP850
  84. ; 12 replacment bytes (keyed by ASCII bytes), NRC number, country, size, ident
  85. nrc850    db    23h,40h,5bh,5ch,5dh,5eh        ; 0, ASCII, "B", dispatch ref
  86.     db    5fh,60h,7bh,7ch,7dh,7eh
  87.     db    94,'B',0            ; 94 byte set, letter pair
  88.     db    9ch,40h,5bh,5ch,5dh,5eh        ; 1, British, "A"
  89.     db    5fh,60h,7bh,7ch,7dh,7eh
  90.     db    94,'A',0
  91.     db    9ch,0f3h,98h,0abh,7ch,5eh    ; 2, Dutch, "4"
  92.     db    5fh,60h,22h,9fh,0ach,27h
  93.     db    94,'4',0
  94.     db    23h,40h,8eh,99h,8fh,9ah        ; 3, Finnish, "5"
  95.     db    5fh,82h,84h,94h,86h,81h
  96.     db    94,'5',0
  97.     db    9ch,85h,0f8h,87h,15h,5eh    ; 4, French, "R"
  98.     db    5fh,60h,82h,97h,8ah,22h
  99.     db    94,'R',0
  100.     db    23h,85h,83h,87h,88h,8ch        ; 5, French Canadian, "9"
  101.     db    5fh,93h,82h,97h,8ah,96h
  102.     db    94,'9',0
  103.     db    23h,15h,8eh,99h,9ah,5eh        ; 6, German, "K"
  104.     db    5fh,60h,84h,94h,81h,0e1h
  105.     db    94,'K',0
  106.     db    9ch,15h,0f8h,87h,82h,5eh    ; 7, Italian, "Y"
  107.     db    5fh,97h,85h,95h,8ah,8dh
  108.     db    94,'Y',0
  109.     db    23h,40h,92h,09dh,8fh,5eh    ; 8, Norwegian/Danish, "'"
  110.     db    5fh,60h,91h,09bh,86h,7eh
  111.     db    94,60h,0
  112.     db    23h,40h,0b5h,80h,0e5h,5eh    ; 9, Portugese, "%6"
  113.     db    5fh,60h,61h,87h,0e4h,7eh
  114.     db    94,'%','6'
  115.     db    9ch,15h,0adh,0a5h,0a8h,5eh    ; 10, Spanish, "Z"
  116.     db    5fh,60h,60h,0f8h,0a4h,87h
  117.     db    94,'Z',0
  118.     db    23h,90h,8eh,99h,8fh,9ah        ; 11, Swedish, "7"
  119.     db    5fh,82h,84h,94h,86h,81h
  120.     db    94,'7',0
  121.     db    97h,85h,82h,87h,88h,8ch        ; 12, Swiss, "="
  122.     db    8ah,93h,84h,94h,81h,96h
  123.     db    94,'=',0
  124.                         ; CP860
  125. ; 12 replacment bytes (keyed by ASCII bytes), NRC number, country, size, ident
  126. nrc860    db    23h,40h,5bh,5ch,5dh,5eh        ; 0, ASCII, "B", dispatch ref
  127.     db    5fh,60h,7bh,7ch,7dh,7eh
  128.     db    94,'B',0            ; 94 byte set, letter pair
  129.     db    9ch,40h,5bh,5ch,5dh,5eh        ; 1, British, "A"
  130.     db    5fh,60h,7bh,7ch,7dh,7eh
  131.     db    94,'A',0
  132.     db    9ch,3fh,79h,0abh,7ch,5eh    ; 2, Dutch, "4"
  133.     db    5fh,60h,22h,3fh,0ach,27h
  134.     db    94,'4',0
  135.     db    23h,40h,41h,4fh,41h,9ah        ; 3, Finnish, "5"
  136.     db    5fh,82h,61h,6fh,61h,81h
  137.     db    94,'5',0
  138.     db    9ch,85h,0f8h,87h,15h,5eh    ; 4, French, "R"
  139.     db    5fh,60h,82h,97h,8ah,22h
  140.     db    94,'R',0
  141.     db    23h,85h,83h,87h,88h,69h        ; 5, French Canadian, "9"
  142.     db    5fh,93h,82h,97h,8ah,75h
  143.     db    94,'9',0
  144.     db    23h,15h,41h,4fh,9ah,5eh        ; 6, German, "K"
  145.     db    5fh,60h,61h,6fh,81h,0e1h
  146.     db    94,'K',0
  147.     db    9ch,15h,0f8h,87h,82h,5eh    ; 7, Italian, "Y"
  148.     db    5fh,97h,85h,95h,8ah,8dh
  149.     db    94,'Y',0
  150.     db    23h,40h,3fh,0edh,41h,5eh    ; 8, Norwegian/Danish, "'"
  151.     db    5fh,60h,3fh,0edh,61h,7eh
  152.     db    94,60h,0
  153.     db    23h,40h,8eh,80h,99h,5eh        ; 9, Portugese, "%6"
  154.     db    5fh,60h,84h,87h,94h,7eh
  155.     db    94,'%','6'
  156.     db    9ch,15h,0adh,0a5h,0a8h,5eh    ; 10, Spanish, "Z"
  157.     db    5fh,60h,60h,0f8h,0a4h,87h
  158.     db    94,'Z',0
  159.     db    23h,90h,41h,4fh,41h,9ah        ; 11, Swedish, "7"
  160.     db    5fh,82h,61h,6fh,61h,75h
  161.     db    94,'7',0
  162.     db    97h,85h,82h,87h,88h,69h        ; 12, Swiss, "="
  163.     db    8ah,93h,61h,6fh,81h,75h
  164.     db    94,'=',0
  165.                         ; CP863
  166. ; 12 replacment bytes (keyed by ASCII bytes), NRC number, country, size, ident
  167. nrc863    db    23h,40h,5bh,5ch,5dh,5eh        ; 0, ASCII, "B", dispatch ref
  168.     db    5fh,60h,7bh,7ch,7dh,7eh
  169.     db    94,'B',0            ; 94 byte set, letter pair
  170.     db    9ch,40h,5bh,5ch,5dh,5eh        ; 1, British, "A"
  171.     db    5fh,60h,7bh,7ch,7dh,7eh
  172.     db    94,'A',0
  173.     db    9ch,0adh,79h,0abh,7ch,5eh    ; 2, Dutch, "4"
  174.     db    5fh,60h,0a4h,9fh,0ach,0a1h
  175.     db    94,'4',0
  176.     db    23h,40h,41h,4fh,41h,55h        ; 3, Finnish, "5"
  177.     db    5fh,82h,61h,6fh,61h,81h
  178.     db    94,'5',0
  179.     db    9ch,85h,0f8h,87h,15h,5eh    ; 4, French, "R"
  180.     db    5fh,60h,82h,97h,8ah,0a4h
  181.     db    94,'R',0
  182.     db    23h,85h,83h,87h,88h,8ch        ; 5, French Canadian, "9"
  183.     db    5fh,93h,82h,97h,8ah,96h
  184.     db    94,'9',0
  185.     db    23h,15h,41h,4fh,9ah,5eh        ; 6, German, "K"
  186.     db    5fh,60h,61h,6fh,81h,0e1h
  187.     db    94,'K',0
  188.     db    9ch,15h,0f8h,87h,82h,5eh    ; 7, Italian, "Y"
  189.     db    5fh,97h,6fh,85h,8ah,69h
  190.     db    94,'Y',0
  191.     db    23h,40h,3fh,0edh,41h,5eh    ; 8, Norwegian/Danish, "'"
  192.     db    5fh,60h,0efh,0edh,61h,7eh
  193.     db    94,60h,0
  194.     db    23h,40h,41h,80h,4fh,5eh        ; 9, Portugese, "%6"
  195.     db    5fh,60h,61h,87h,6fh,7eh
  196.     db    94,'%','6'
  197.     db    9ch,15h,3fh,4eh,3fh,5eh        ; 10, Spanish, "Z"
  198.     db    5fh,60h,60h,0f8h,6eh,87h
  199.     db    94,'Z',0
  200.     db    23h,90h,41h,4fh,41h,9ah        ; 11, Swedish, "7"
  201.     db    5fh,82h,61h,6fh,61h,81h
  202.     db    94,'7',0
  203.     db    97h,85h,82h,87h,88h,8ch        ; 12, Swiss, "="
  204.     db    8ah,93h,61h,6fh,81h,96h
  205.     db    94,'=',0
  206.                         ; CP865
  207. ; 12 replacment bytes (keyed by ASCII bytes), NRC number, country, size, ident
  208. nrc865    db    23h,40h,5bh,5ch,5dh,5eh        ; 0, ASCII, "B", dispatch ref
  209.     db    5fh,60h,7bh,7ch,7dh,7eh
  210.     db    94,'B',0            ; 94 byte set, letter pair
  211.     db    9ch,40h,5bh,5ch,5dh,5eh        ; 1, British, "A"
  212.     db    5fh,60h,7bh,7ch,7dh,7eh
  213.     db    94,'A',0
  214.     db    9ch,3fh,98h,0abh,7ch,5eh    ; 2, Dutch, "4"
  215.     db    5fh,60h,22h,9fh,0ach,27h
  216.     db    94,'4',0
  217.     db    23h,40h,8eh,99h,8fh,9ah        ; 3, Finnish, "5"
  218.     db    5fh,82h,84h,94h,86h,81h
  219.     db    94,'5',0
  220.     db    9ch,85h,0f8h,87h,15h,5eh    ; 4, French, "R"
  221.     db    5fh,60h,82h,97h,8ah,22h
  222.     db    94,'R',0
  223.     db    23h,85h,83h,87h,88h,8ch        ; 5, French Canadian, "9"
  224.     db    5fh,93h,82h,97h,8ah,96h
  225.     db    94,'9',0
  226.     db    23h,15h,8eh,99h,9ah,5eh        ; 6, German, "K"
  227.     db    5fh,60h,84h,94h,81h,0e1h
  228.     db    94,'K',0
  229.     db    9ch,15h,0f8h,87h,82h,5eh    ; 7, Italian, "Y"
  230.     db    5fh,97h,85h,95h,8ah,8dh
  231.     db    94,'Y',0
  232.     db    23h,40h,92h,9dh,8fh,5eh        ; 8, Norwegian/Danish, "'"
  233.     db    5fh,60h,91h,9bh,86h,7eh
  234.     db    94,60h,0
  235.     db    23h,40h,41h,80h,4fh,5eh        ; 9, Portugese, "%6"
  236.     db    5fh,60h,61h,87h,6fh,7eh
  237.     db    94,'%','6'
  238.     db    9ch,15h,0adh,0a5h,0a8h,5eh    ; 10, Spanish, "Z"
  239.     db    5fh,60h,60h,0f8h,0a4h,87h
  240.     db    94,'Z',0
  241.     db    23h,90h,8eh,99h,8fh,9ah        ; 11, Swedish, "7"
  242.     db    5fh,82h,84h,94h,86h,81h
  243.     db    94,'7',0
  244.     db    97h,85h,82h,87h,88h,8ch        ; 12, Swiss, "="
  245.     db    8ah,93h,84h,94h,81h,96h
  246.     db    94,'=',0
  247.  
  248. ; Translation tables for byte codes 0a0h..0ffh to map DEC Multinational
  249. ; Character Set (DEC Supplemental Graphic) to Code Pages.
  250. ; Codes 00h-1fh are 7-bit controls (C0), codes 20h..7eh are ASCII, 7fh DEL is
  251. ; considered to be a control code, 80h..9fh are 8-bit controls (C1).
  252. ; Each table is 94 translatable bytes followed by the table size (94), the
  253. ; ISO announcer ident '%5'.
  254.                     ; from DEC Multinational to Code Page
  255.                             ; to CP437
  256. MNcp437 db    80h,81h,82h,83h,   84h,85h,86h,87h    ; column 8
  257.     db    88h,89h,8ah,8bh,   8ch,8dh,8eh,8fh
  258.     db    90h,91h,92h,93h,   94h,95h,96h,97h    ; column 9
  259.     db    98h,99h,9ah,9bh,   9ch,9dh,9eh,9fh
  260.     db    0h,0adh,9bh,9ch,   20h,9dh,20h,15h    ; column 10
  261.     db    0fh,40h,0a6h,0aeh, 20h,20h,20h,20h
  262.     db    0f8h,0f1h,0fdh,33h, 20h,0e6h,14h,0feh    ; column 11
  263.     db    2eh,60h,0a7h,0afh, 0ach,0abh,20h,0a8h
  264.     db    85h,0a0h,83h,83h,  8eh,8fh,92h,80h    ; column 12
  265.     db    8ah,90h,88h,89h,   8dh,0a1h,8ch,8bh
  266.     db    20h,0a5h,95h,0a2h, 93h,94h,94h,4fh    ; column 13
  267.     db    0edh,97h,0a3h,96h, 9ah,59h,20h,0e1h
  268.     db    85h,0a0h,83h,84h,  84h,86h,91h,87h    ; column 14
  269.     db    8ah,82h,88h,89h,   8dh,0a1h,8ch,8bh
  270.     db    20h,0a4h,95h,0a2h, 93h,94h,94h,6fh    ; column 15
  271.     db    0edh,97h,0a3h,96h, 81h,98h,20h,0h
  272.     db    94,'%','5'            ; 94 byte set, letter ident
  273.  
  274.                             ; to CP850
  275. MNcp850 db    80h,81h,82h,83h,   84h,85h,86h,87h    ; column 8
  276.     db    88h,89h,8ah,8bh,   8ch,8dh,8eh,8fh
  277.     db    90h,91h,92h,93h,   94h,95h,96h,97h    ; column 9
  278.     db    98h,99h,9ah,9bh,   9ch,9dh,9eh,9fh
  279.     db    0h,0adh,0bdh,9ch,  20h,0beh,20h,15h    ; column 10
  280.     db    0cfh,0b8h,0a6h,0aeh, 20h,20h,20h,20h
  281.     db    0f8h,0f1h,0fdh,0fch, 20h,0e6h,14h,0feh    ; column 11
  282.     db    2eh,0fbh,0a7h,0afh, 0ach,0abh,20h,0a8h
  283.     db    0b7h,0b5h,0b6h,0b5h, 8eh,8fh,92h,80h    ; column 12
  284.     db    0d4h,90h,0d2h,0d3h, 0deh,0d6h,0d7h,0d8h
  285.     db    20h,0a5h,0e3h,0e0h, 0e2h,0e5h,99h,4fh    ; column 13
  286.     db    9dh,0ebh,0e9h,0eah, 9ah,0edh,20h,0e1h
  287.     db    85h,0a0h,83h,61h,   84h,86h,91h,87h    ; column 14
  288.     db    8ah,82h,88h,89h,    8dh,0a1h,8ch,8bh
  289.     db    20h,0a4h,95h,0a2h,  93h,0e4h,94h,6fh    ; column 15
  290.     db    9bh,97h,0a3h,96h,   81h,0ech,20h,0h
  291.     db    94,'%','5'            ; 94 byte set, letter ident
  292.                             ; to CP860
  293. MNcp860 db    80h,81h,82h,83h,   84h,85h,86h,87h    ; column 8
  294.     db    88h,89h,8ah,8bh,   8ch,8dh,8eh,8fh
  295.     db    90h,91h,92h,93h,   94h,95h,96h,97h    ; column 9
  296.     db    98h,99h,9ah,9bh,   9ch,9dh,9eh,9fh
  297.     db    0h,0adh,9bh,9ch,   20h,59h,20h,15h    ; column 10
  298.     db    0fh,3fh,0a6h,0aeh, 20h,20h,20h,20h
  299.     db    0f8h,0f1h,0fdh,33h, 20h,0e6h,14h,0feh    ; column 11
  300.     db    2eh,60h,0a7h,0afh, 0ach,0abh,20h,0a8h
  301.     db    85h,0a0h,83h,83h,  8eh,8fh,92h,80h    ; column 12
  302.     db    8ah,90h,88h,89h,   8dh,0a1h,8ch,8bh
  303.     db    20h,0a5h,95h,0a2h, 93h,94h,94h,4fh    ; column 13
  304.     db    0edh,97h,0a3h,96h, 9ah,59h,20h,0e1h
  305.     db    85h,0a0h,83h,84h,  84h,86h,91h,87h    ; column 14
  306.     db    8ah,82h,88h,89h,   8dh,0a1h,8ch,8bh
  307.     db    20h,0a4h,95h,0a2h, 93h,94h,94h,6fh    ; column 15
  308.     db    0edh,97h,0a3h,96h, 81h,98h,20h,0h
  309.     db    94,'%','5'            ; 94 byte set, letter ident
  310.                             ; to CP863
  311. MNcp863 db    80h,81h,82h,83h,   84h,85h,86h,87h    ; column 8
  312.     db    88h,89h,8ah,8bh,   8ch,8dh,8eh,8fh
  313.     db    90h,91h,92h,93h,   94h,95h,96h,97h    ; column 9
  314.     db    98h,99h,9ah,9bh,   9ch,9dh,9eh,9fh
  315.     db    0h,0adh,9bh,9ch,   20h,9dh,20h,15h    ; column 10
  316.     db    98h,40h,61h,0aeh,  20h,20h,20h,20h
  317.     db    0f8h,0f1h,0fdh,33h, 20h,0e6h,86h,0feh    ; column 11
  318.     db    2eh,31h,6fh,0afh,  0ach,0abh,20h,3fh
  319.     db    8eh,41h,84h,41h,   41h,41h,3fh,80h    ; column 12
  320.     db    91h,90h,92h,94h,   49h,49h,88h,95h
  321.     db    20h,4eh,4fh,4fh,   99h,4fh,4fh,4fh    ; column 13
  322.     db    0edh,9dh,55h,0aeh, 55h,59h,20h,0e1h
  323.     db    85h,61h,83h,61h,   61h,61h,3fh,87h    ; column 14
  324.     db    8ah,82h,88h,89h,   69h,69h,8ch,8bh
  325.     db    20h,6eh,6fh,0a2h,  93h,6fh,6fh,6fh    ; column 15
  326.     db    0edh,97h,0a3h,96h, 75h,79h,20h,0h
  327.     db    94,'%','5'            ; 94 byte set, letter ident
  328.                             ; to CP865
  329. MNcp865 db    80h,81h,82h,83h,   84h,85h,86h,87h    ; column 8
  330.     db    88h,89h,8ah,8bh,   8ch,8dh,8eh,8fh
  331.     db    90h,91h,92h,93h,   94h,95h,96h,97h    ; column 9
  332.     db    98h,99h,9ah,9bh,   9ch,9dh,9eh,9fh
  333.     db    0h,0adh,3fh,9ch,   20h,3fh,20h,15h    ; column 10
  334.     db    0afh,3fh,0a6h,0aeh, 20h,20h,20h,20h
  335.     db    0f8h,0f1h,0fdh,33h, 20h,0e6h,14h,0feh    ; column 11
  336.     db    2eh,31h,0a7h,03fh, 0ach,0abh,20h,0a8h
  337.     db    41h,41h,41h,41h,   8eh,8fh,92h,80h    ; column 12
  338.     db    45h,90h,45h,45h,   49h,49h,49h,49h
  339.     db    20h,0a5h,4fh,4fh,  4fh,4fh,99h,4fh    ; column 13
  340.     db    0edh,55h,55h,55h,  9ah,59h,20h,0e1h
  341.     db    85h,0a0h,83h,61h,  84h,86h,91h,87h    ; column 14
  342.     db    8ah,82h,88h,89h,   8dh,0a1h,8ch,8bh
  343.     db    20h,0a4h,95h,0a2h, 93h,6fh,94h,6fh    ; column 15
  344.     db    0edh,97h,0a3h,96h, 81h,79h,20h,0h
  345.     db    94,'%','5'            ; 94 byte set, letter ident
  346.  
  347. ; 128 byte translation tables from Code Pages to DEC Multinational char set
  348. ; (DEC Supplemental Graphic). For GRight only (high bit set).
  349.                             ; from Code Page 437
  350. cp437MN db    0c7h,0fch,0e9h,0e2h, 0e4h,0e0h,0e5h,0e7h ; column 8
  351.     db    0eah,0ebh,0e8h,0efh, 0eeh,0ech,0c4h,0c5h
  352.     db    0c9h,0e6h,0c6h,0f4h, 0f6h,0f2h,0fbh,0f9h ; column 9
  353.     db    0ffh,0d6h,0dch,0a2h, 0a3h,0a5h,3fh,3fh
  354.     db    0e1h,0edh,0f3h,0fah, 0f1h,0d1h,0aah,0bah ; column 10
  355.     db    0bfh,3fh,0ach,0bdh,  0bch,0a1h,0abh,0bbh
  356.     db    16 dup (3fh)                 ; column 11
  357.     db    16 dup (3fh)                 ; column 12
  358.     db    16 dup (3fh)                 ; column 13
  359.     db    3fh,0dfh, 4 dup (3fh),        0b5h,3fh ; column 14
  360.     db    5 dup(3fh),            0f8h,3fh,3fh
  361.     db    3fh,0b1h, 4 dup (3fh),          0h,3fh ; column 15
  362.     db    0b0h, 4 dup (3fh),       0b2h,0b7h,3fh
  363.                              ; from Code Page 850
  364. cp850MN db    0c7h,0fch,0e9h,0e2h, 0e4h,0e0h,0e5h,0e7h ; column 8
  365.     db    0eah,0ebh,0e8h,0efh, 0eeh,0ech,0c4h,0c5h
  366.     db    0c9h,0e6h,0c6h,0f4h, 0f6h,0f2h,0fbh,0f9h ; column 9
  367.     db    0ffh,0d6h,0dch,0f8h, 0a3h,0d8h,58h,3fh
  368.     db    0e1h,0edh,0f3h,0fah, 0f1h,0d1h,0aah,0bah ; column 10
  369.     db    0bfh,0aeh,0ach,0bdh, 0bch,0a1h,0abh,0bbh
  370.     db    5 dup (3fh),          0c1h,0c2h,0c0h ; column 11
  371.     db    0a9h, 4 dup (3fh),      0a2h,0a5h,0ach
  372.     db    6 dup (3fh),0e3h,0c3h, 7 dup (3fh),0a4h     ; column 12
  373.     db    0f0h,0d0h,0cah,0cbh, 0c8h,0b9h,0cdh,0ceh ; column 13
  374.     db    0cfh, 4 dup (3fh),       7ch,0cch,3fh
  375.     db    0d3h,0dfh,0d4h,0d2h, 0f5h,0d5h,0b5h,0deh ; column 14
  376.     db    0feh,0dah,0dbh,0d9h, 0fdh,0ddh,0afh,0b4h
  377.     db    0adh,0b1h,3dh,0beh,  0b6h,0a7h,00h,22h     ; column 15
  378.     db    0b0h,0a8h,3fh,0b9h,  0b2h,0b3h,0b7h,20h
  379.                              ; from Code Page 860
  380. cp860MN db    0c7h,0fch,0e9h,0e2h, 0e3h,0e0h,0c1h,0e7h ; column 8
  381.     db    0eah,0cah,0e8h,0cch, 0d4h,0ech,0c3h,0c2h
  382.     db    0c9h,0c0h,0c8h,0f4h, 0f5h,0f2h,0dah,0f9h ; column 9
  383.     db    0cch,0d5h,0dch,0a2h, 0a3h,0d9h,3fh,0d3h
  384.     db    0e1h,0edh,0f3h,0fah, 0f1h,0d1h,0aah,0bah ; column 10
  385.     db    0bfh,0d2h,0ach,0bdh, 0bch,0a1h,0abh,0bbh
  386.     db    16 dup (3fh)                 ; column 11
  387.     db    16 dup (3fh)                 ; column 12
  388.     db    16 dup (3fh)                 ; column 13
  389.     db    3fh,0dfh, 4 dup (3fh),        0b5h,3fh ; column 14
  390.     db    5 dup(3fh),            0f8h,3fh,3fh
  391.     db    3fh,0b1h, 4 dup (3fh),          0h,3fh ; column 15
  392.     db    0b0h, 4 dup (3fh),       0b2h,0b7h,3fh
  393.                              ; from Code Page 863
  394. cp863MN db    0c7h,0fch,0e9h,0e2h, 0e2h,0e0h,0b6h,0a2h ; column 8
  395.     db    0eah,0ebh,0e8h,0efh, 0eeh,3dh,0c0h,0a7h
  396.     db    0c9h,0c8h,0cah,0f4h, 0cbh,0cfh,0fbh,0fah ; column 9
  397.     db    0a4h,0d4h,0dch,0a2h, 0a3h,0d9h,0dbh,3fh
  398.     db    7ch,0b4h,0f3h,0fah, 0a8h,0a8h,0b3h,0afh ; column 10
  399.     db    0ceh,3fh,0ach,0bdh,  0bch,0beh,0abh,0bbh
  400.     db    16 dup (3fh)                 ; column 11
  401.     db    16 dup (3fh)                 ; column 12
  402.     db    16 dup (3fh)                 ; column 13
  403.     db    3fh,0dfh, 4 dup (3fh),        0b5h,3fh ; column 14
  404.     db    5 dup(3fh),            0f8h,3fh,3fh
  405.     db    3fh,0b1h, 4 dup (3fh),          0h,3fh ; column 15
  406.     db    0b0h, 4 dup (3fh),       0b2h,0b7h,3fh
  407.                              ; from Code Page 865
  408. cp865MN db    0c7h,0fch,0e9h,0e2h, 0e4h,0e0h,0e5h,0e7h ; column 8
  409.     db    0eah,0ebh,0e8h,0efh, 0eeh,0ech,0c4h,0c5h
  410.     db    0c9h,0e6h,0c6h,0f4h, 0f6h,0f2h,0fbh,0fah ; column 9
  411.     db    0ffh,0d6h,0dch,0f8h, 0a3h,0d8h,3fh,3fh
  412.     db    0e2h,0edh,0f3h,0fah, 0f1h,0d1h,0aah,0bah ; column 10
  413.     db    0bfh,3fh,0ach,0bdh,  0bch,0a1h,0abh,0a4h
  414.     db    16 dup (3fh)                 ; column 11
  415.     db    16 dup (3fh)                 ; column 12
  416.     db    16 dup (3fh)                 ; column 13
  417.     db    3fh,0dfh, 4 dup (3fh),        0b5h,3fh ; column 14
  418.     db    5 dup(3fh),            0f8h,3fh,3fh
  419.     db    3fh,0b1h, 4 dup (3fh),          0h,3fh ; column 15
  420.     db    0b0h, 4 dup (3fh),       0b2h,0b7h,3fh
  421.  
  422.             ; Dec Technical set to CP437, CP860, CP863, CP865
  423.             ; Note: CP850 lacks the symbols so expect trash
  424. dectech db    32 dup (0)                ; columns 8 and 9
  425.     db    0h,0fbh,0dah,0c4h, 0f4h,0f5h,0b3h,0dah    ; column 10
  426.     db    0c0h,0bfh,0d9h,28h,28h,29h,29h,0b4h
  427.     db    0c3h,3ch,3eh,5ch,  2fh,0bfh,0d9h,03eh    ; column 11
  428.     db    0a8h,20h,20h,20h,  0f3h,3dh,0f2h,3fh
  429.     db    1eh,0ech,0ech,0f6h,1eh,1fh,0e8h,0e2h    ; column 12
  430.     db    0f7h,0f7h,0e9h,58h,3fh,1dh,1ah,0f0h
  431.     db    0e3h,3fh,20h,0e4h, 20h,20h,0fbh,0eah    ; column 13
  432.     db    3fh,54h,3fh,3fh,   0efh,55h,5eh,76h
  433.     db    0aah,0e0h,0e1h,78h,0ebh,0eeh,0edh,3fh    ; column 14 
  434.     db    6eh,69h,0e9h,6bh,  3fh,20h,76h,3fh
  435.     db    0e3h,3fh,70h,0e5h, 0e7h,0a8h,9fh,77h    ; column 15
  436.     db    45h,76h,3fh,1bh,   18h,1ah,19h,7fh
  437.     db    94,3eh,0            ; 94 byte set, letter ident
  438. data    ends
  439.  
  440. code    segment
  441.     assume    cs:code, ds:data, es:nothing
  442.  
  443. ; Set reg BX to offset of table for Code Page to DEC Multinational Char Set
  444. ; (DEC Supplemental Graphics)
  445. CPDECSG proc    near
  446.     mov    bx,offset cp437MN    ; assume CP437
  447.     cmp    flags.chrset,437    ; current Code Page is 437?
  448.     je    cpdecsx            ; e = yes
  449.     mov    bx,offset cp850MN    ; assume CP850
  450.     cmp    flags.chrset,850    ; current Code Page is 850?
  451.     je    cpdecsx            ; e = yes
  452.     mov    bx,offset cp860MN    ; assume CP860
  453.     cmp    flags.chrset,860    ; current Code Page is 860?
  454.     je    cpdecsx            ; e = yes
  455.     mov    bx,offset cp863MN    ; assume CP863
  456.     cmp    flags.chrset,863    ; current Code Page is 863?
  457.     je    cpdecsx            ; e = yes
  458.     mov    bx,offset cp865MN    ; assume CP865
  459.     cmp    flags.chrset,865    ; current Code Page is 865?
  460.     je    cpdecsx            ; e = yes
  461.     mov    bx,offset cp437MN    ; default to CP437
  462. CPDECSX:ret
  463. CPDECSG endp
  464. ; Set register SI to the offset of the NRC table appropriate to the
  465. ; currently active Code Page. Defaults to CP437 if no CP found.
  466. NRC2CP    proc    near
  467.     push    bx
  468.     push    dx
  469.     cmp    dosnum,0300h+30        ; DOS version 3.30 or higher?
  470.     jb    nrc2cp1            ; b = no, no Code Pages
  471.     mov    ax,6601h        ; get global Code Page
  472.     int    dos            ; bx=active Code Page, dx=boot CP
  473.     cmp    bx,437            ; current Code Page is 437?
  474.     je    nrc2cp1            ; e = yes
  475.     mov    si,offset NRC850    ; assume CP850
  476.     cmp    bx,850            ; current Code Page is 850?
  477.     je    nrc2cpx            ; e = yes
  478.     mov    si,offset NRC860    ; assume CP860
  479.     cmp    bx,860            ; current Code Page is 860?
  480.     je    nrc2cpx            ; e = yes
  481.     mov    si,offset NRC863    ; assume CP863
  482.     cmp    bx,863            ; current Code Page is 863?
  483.     je    nrc2cpx            ; e = yes
  484.     mov    si,offset NRC865    ; assume CP865
  485.     cmp    bx,865            ; current Code Page is 865?
  486.     je    nrc2cpx            ; e = yes
  487. nrc2cp1:mov    si,offset NRC437    ; default to CP437
  488. nrc2cpx:pop    dx
  489.     pop    bx
  490.     ret
  491. NRC2CP    endp
  492.  
  493.  
  494. code    ends
  495.     end
  496.