' 10 Nov 1998

' This file contains Baudot/ASCII tables in various permutations.

' They are the macro prototypes for the Model 2 Teletype

' translator code.



' ASCII to Baudot: 128 element table, i=ASCII character. FG,

' LT: X=exists in FIGS or LTRS case; Bdo is US Baudot character

' code, or 255 for untranslatable.



'  FG LT  Bdo  ASCII char

' --------------------------

   -  -   00   NUL

   -  -   255  soh

   -  -   255  stx

   -  -   255  etx

   -  -   255  eot

   -  -   255  enq

   -  -   255  ack

   X  -   05   bell

   -  -   255  bs

   -  -   255  ht

   -  -   02   LF

   -  -   255  vt

   -  -   255  ff

   -  -   08   CR

   -  -   255  so

   -  -   255  si

   -  -   255  dle

   -  -   255  dc1

   -  -   255  dc2

   -  -   255  dc3

   -  -   255  dc4

   -  -   255  nak

   -  -   255  syn

   -  -   255  etb

   -  -   255  can

   -  -   255  em

   -  -   255  sub

   -  -   27   FIGS

   -  -   255  fs

   -  -   255  gs

   -  -   255  rs

   -  -   31   LTRS

   -  -   04   SPACE

   X  -   13   ! (exclamation)

   X  -   17   "

   X  -   20   #

   X  -   09   $ (dollar)

   -  -   255  % (percent)

   X  -   26   &

   X  -   11   ' (sgl quote)w



   X  -   15   (

   X  -   18   )

   -  -   255  * (asterisk)

   -  -   255  + (plus)

   X  -   12   ,

   X  -   03   -

   X  -   28   .

   X  -   29   /

   X  -   22   0

   X  -   23   1

   X  -   19   2

   X  -   01   3

   X  -   10   4

   X  -   16   5

   X  -   21   6

   X  -   07   7

   X  -   06   8

   X  -   24   9

   X  -   14   :

   X  -   30   ;

   -  -   255  < (.LT.)

   -  -   255  = (equal)

   -  -   255  > (.GT.)

   X  -   25   ?

   -  -   255  @ (at)

   -  -   03   A

   -  X   25   B

   -  X   14   C

   -  X   09   D

   -  X   01   E

   -  X   13   F

   -  X   26   G

   -  X   20   H

   -  X   06   I

   -  X   11   J

   -  X   15   K

   -  X   18   L

   -  X   28   M

   -  X   12   N

   -  X   24   O

   -  X   22   P

   -  X   23   Q

   -  X   10   R

   -  X   05   S

   -  X   16   T

   -  X   07   U

   -  X   30   V

   -  X   19   W

   -  X   29   X

   -  X   21   Y

   -  X   17   Z

   -  -   255  [ (L bkt)

   -  -   255  \ (back sl)

   -  -   255  ] (R bkt)

   -  -   255  ^ (caret)

   -  -   255  _ (underscore)



' FIGS case only

   X  -   00   NULL

   X  -   01   3

   X  -   02   LF

   X  -   03   -

   X  -   04   SPACE

   X  -   05   bell

   X  -   06   8

   X  -   07   7

   X  -   08   CR

   X  -   09   $

   X  -   10   4

   X  -   11   '

   X  -   12   ,

   X  -   13   !

   X  -   14   :

   X  -   15   (

   X  -   16   5

   X  -   17   "

   X  -   18   )

   X  -   19   2

   X  -   20   #

   X  -   21   6

   X  -   22   0

   X  -   23   1

   X  -   24   9

   X  -   25   ?

   X  -   26   &

   X  -   27   FIGS

   X  -   28   .

   X  -   29   /

   X  -   30   ;

   X  -   31   LTRS



' LTRS case only

   -  X   00   NULL

   -  X   01   E

   -  X   02   LF

   -  X   03   A

   -  X   04   SPACE

   -  X   05   S

   -  X   06   I

   -  X   07   U

   -  X   08   CR

   -  X   09   D

   -  X   10   R

   -  X   11   J

   -  X   12   N

   -  X   13   F

   -  X   14   C

   -  X   15   K

   -  X   16   T

   -  X   17   Z

   -  X   18   L

   -  X   19   W

   -  X   20   H

   -  X   21   Y

   -  X   22   P

   -  X   23   Q

   -  X   24   O

   -  X   25   B

   -  X   26   G

   -  X   27   FIGS

   -  X   28   M

   -  X   29   X

   -  X   30   V

   -  X   31   LTRS