home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / cpm68k / msutils.lbr / LFONT.SQ / LFONT.S
Encoding:
Text File  |  1988-02-18  |  36.8 KB  |  859 lines
  1. *#######################################################################
  2. *               Program FONT...Create Scientific Font
  3. *
  4. *                       Dr. David C. Wilcox
  5. *                       DCW Industries, Inc.
  6. *               5354 Palm Drive, La Canada, CA  91011
  7. *                          818/790-3844
  8. *
  9. *                         March 21, 1986
  10. *#######################################################################
  11. boot    equ    00        *warm boot
  12. list    equ    05        *send character to printer
  13. pstring    equ    09        *send string to console
  14. bell    equ    07        *ascii bel
  15. lf    equ    10        *line feed
  16. ff    equ    12        *form feed
  17. cr    equ    13        *carriage return
  18. esc    equ    27        *ascii escape
  19. space    equ    32        *ascii space
  20. bdos    equ    $0002        *bdos entry point
  21. *#######################################################################
  22. *
  23. * Locate FCB (for portability)
  24. *
  25.     link    a6,#0        *mark stack frame
  26.     move.l    8(a6),a0    *get base page address
  27.     lea    $5c(a0),a6    *get address of FCB and save it in a6
  28. *
  29. * Send scientific font definition to printer
  30. *
  31.     movea.l    #scifont,a1
  32.     jsr    lpsend
  33. *
  34. * Send "font-loaded" message to console
  35. *
  36.     move.l    #fontmsg,d1
  37.     move.w    #pstring,d0
  38.     trap    #bdos
  39. *
  40. * Check for sample <P>rint requested
  41. *
  42.     cmpi.b    #'P',1(a6)
  43.     bne    quit
  44. *
  45. * Do a sample print
  46. *
  47.     movea.l    #line1,a1        *first line...regular font
  48.     jsr    lpsend
  49.     jsr    crlf
  50.     movea.l    #sfont,a1
  51.     jsr    lpsend
  52.     movea.l    #line1,a1        *first line...new font
  53.     jsr    lpsend
  54.     movea.l    #efont,a1
  55.     jsr    lpsend
  56.     jsr    crlf
  57.     jsr    crlf
  58. *
  59.     movea.l    #line2,a1        *second line...regular font
  60.     jsr    lpsend
  61.     jsr    crlf
  62.     movea.l    #sfont,a1
  63.     jsr    lpsend
  64.     movea.l    #line2,a1        *second line...new font
  65.     jsr    lpsend
  66.     movea.l    #efont,a1
  67.     jsr    lpsend
  68.     jsr    crlf
  69.     jsr    crlf
  70. *
  71.     movea.l    #line3,a1        *third line...regular font
  72.     jsr    lpsend
  73.     jsr    crlf
  74.     movea.l    #sfont,a1
  75.     jsr    lpsend
  76.     movea.l    #line3,a1        *third line...new font
  77.     jsr    lpsend
  78.     movea.l    #efont,a1
  79.     jsr    lpsend
  80.     jsr    crlf
  81.     jsr    crlf
  82. *
  83.     movea.l    #line4,a1        *fourth line...regular font
  84.     jsr    lpsend
  85.     jsr    crlf
  86.     movea.l    #sfont,a1
  87.     jsr    lpsend
  88.     movea.l    #line4,a1        *fourth line...new font
  89.     jsr    lpsend
  90.     movea.l    #efont,a1
  91.     jsr    lpsend
  92. *
  93.     move.w    #ff,d1        *page eject
  94.     move.w    #list,d0
  95.     trap    #bdos
  96. *
  97. * Return to CP/M
  98. *
  99. quit:
  100.     movea.l    #draft,a1        *return to draft mode
  101.     jsr    lpsend
  102.     move.w    #boot,d0        *and return to CP/M
  103.     trap    #bdos
  104. *
  105. * Send string terminated by lf to printer
  106. *
  107. lpsend:    move.b    (a1)+,d1    *keep looping until a lf is found
  108.     cmpi.b    #lf,d1        *(lf is safe...it's been avoided
  109.     bne    sendit        *in defining the font)
  110.     rts            *return when it's found
  111. sendit:    move.w    #list,d0
  112.     trap    #bdos
  113.     bra    lpsend
  114. *
  115. * Send a carriage return/line feed pair to printer
  116. *
  117. crlf:    move.w    #cr,d1
  118.     move.w    #list,d0
  119.     trap    #bdos
  120.     move.w    #lf,d1
  121.     move.w    #list,d0
  122.     trap    #bdos
  123.     rts
  124. *#######################################################################
  125. *              Sample print strings and console message
  126. *#######################################################################
  127. draft:    dc.b    esc,'x',0,lf
  128. efont:    dc.b    esc,'%',0,lf
  129. sfont:    dc.b    esc,'%',1,lf
  130. line1:    dc.b    '1234567890-=   !@#$%^&*()_+   ~\|',lf
  131. line2:    dc.b    'qwertyuiop{}   QWERTYUIOP[]',lf
  132. line3:    dc.b    'asdfghjkl;',39,'    ASDFGHJKL:"',lf
  133. line4:    dc.b    'zxcvbnm,./     ZXCVBNM<>?',lf
  134. fontmsg:dc.b    cr,lf,'SCIENTIFIC font now loaded...'
  135.     dc.b    'LETTER QUALITY mode',cr,lf,'$'
  136. *#######################################################################
  137. *      Epson LQ-1500...Letter quality mode font definition
  138. *#######################################################################
  139. scifont:
  140. * Select letter quality mode
  141. lq:    dc.b    esc,'x',1
  142. * Copy ROM characters to RAM
  143. romram:    dc.b    esc,':',0,0,0
  144. * Redefine characters from " to $
  145. init1:    dc.b    esc,'&',0,'"$'
  146. * Define " = therefore symbol
  147. thrfor:    dc.b    0,36,0
  148.     dc.b    0,0,0,       0,0,0,       0,0,64,       0,0,0
  149.     dc.b    0,0,224,     0,0,0,       0,0,224,      0,0,0
  150.     dc.b    0,0,64,      0,0,0,       0,0,0,        0,0,0
  151.     dc.b    0,0,0,       0,0,0,       4,0,0,        0,0,0
  152.     dc.b    14,0,0,      0,0,0,       14,0,0,       0,0,0
  153.     dc.b    4,0,0,       0,0,0,       0,0,0,        0,0,0
  154.     dc.b    0,0,0,       0,0,0,       0,0,64,       0,0,0
  155.     dc.b    0,0,224,     0,0,0,       0,0,224,      0,0,0
  156.     dc.b    0,0,64,      0,0,0,       0,0,0,        0,0,0
  157. * Define # = twiddle
  158. twid:    dc.b    0,36,0
  159.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  160.     dc.b    0,1,128,     0,0,0,       0,7,128,      0,0,0
  161.     dc.b    0,14,0,      0,0,0,       0,24,0,       0,0,0
  162.     dc.b    0,16,0,      0,0,0,       0,24,0,       0,0,0
  163.     dc.b    0,14,0,      0,0,0,       0,7,0,        0,0,0
  164.     dc.b    0,1,128,     0,0,0,       0,0,128,      0,0,0
  165.     dc.b    0,1,128,     0,0,0,       0,7,0,        0,0,0
  166.     dc.b    0,30,0,      0,0,0,       0,24,0,       0,0,0
  167.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  168. * Define $ = large integral
  169. lint:    dc.b    0,36,0
  170.     dc.b    0,0,0,       0,0,0,       0,0,14,       0,0,0
  171.     dc.b    0,0,31,      0,0,0,       0,0,15,       0,0,0
  172.     dc.b    0,0,1,       0,0,0,       0,0,7,        0,0,0
  173.     dc.b    0,0,31,      0,0,0,       7,255,254,    0,0,0
  174.     dc.b    31,255,248,  0,0,0,       127,255,224,  0,0,0
  175.     dc.b    248,0,0,     0,0,0,       224,0,0,      0,0,0
  176.     dc.b    128,0,0,     0,0,0,       240,0,0,      0,0,0
  177.     dc.b    248,0,0,     0,0,0,       112,0,0,      0,0,0
  178.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  179. * Redefine characters from & to '
  180. init2:    dc.b    esc,'&',0,'&',39
  181. * Define & = dagger
  182. dagger:    dc.b    0,36,0
  183.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  184.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  185.     dc.b    0,0,0,       0,0,0,       4,0,0,        0,0,0
  186.     dc.b    4,0,0,       0,0,0,       4,0,0,        0,0,0
  187.     dc.b    255,254,0,   0,0,0,       255,248,0,    0,0,0
  188.     dc.b    4,0,0,       0,0,0,       4,0,0,        0,0,0
  189.     dc.b    4,0,0,       0,0,0,       0,0,0,        0,0,0
  190.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  191.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  192. * Define ' = prime symbol
  193. prime:    dc.b    0,36,0
  194.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  195.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  196.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  197.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  198.     dc.b    63,224,0,    0,0,0,       63,192,0,     0,0,0
  199.     dc.b    63,128,0,    0,0,0,       0,0,0,        0,0,0
  200.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  201.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  202.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  203. * Redefine characters from , to ,
  204. init3:    dc.b    esc,'&',0,',,'
  205. * Define , = dot
  206. dot:    dc.b    0,36,0
  207.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  208.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  209.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  210.     dc.b    0,60,0,      0,0,0,       0,126,0,      0,0,0
  211.     dc.b    0,126,0,     0,0,0,       0,126,0,      0,0,0
  212.     dc.b    0,126,0,     0,0,0,       0,60,0,       0,0,0
  213.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  214.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  215.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  216. * Redefine characters from : to ;
  217. init4:    dc.b    esc,'&',0,':;'
  218. * Define : = summation sigma
  219. sumsig:    dc.b    0,36,0
  220.     dc.b    192,0,3,     0,0,0,       224,0,7,      0,0,0
  221.     dc.b    240,0,15,    0,0,0,       248,0,31,     0,0,0
  222.     dc.b    220,0,59,    0,0,0,       206,0,115,    0,0,0
  223.     dc.b    199,0,227,   0,0,0,       195,129,195,  0,0,0
  224.     dc.b    193,195,131, 0,0,0,       192,231,3,    0,0,0
  225.     dc.b    192,126,3,   0,0,0,       192,60,3,     0,0,0
  226.     dc.b    192,24,3,    0,0,0,       192,0,3,      0,0,0
  227.     dc.b    192,0,3,     0,0,0,       192,0,3,      0,0,0
  228.     dc.b    240,0,15,    0,0,0,       240,0,15,     0,0,0
  229. * Define ; = product pi
  230. prodpi:    dc.b    0,36,0
  231.     dc.b    192,0,0,     0,0,0,       192,0,1,      0,0,0
  232.     dc.b    192,0,1,     0,0,0,       255,255,255,  0,0,0
  233.     dc.b    255,255,255, 0,0,0,       192,0,1,      0,0,0
  234.     dc.b    192,0,1,     0,0,0,       192,0,0,      0,0,0
  235.     dc.b    192,0,0,     0,0,0,       192,0,1,      0,0,0
  236.     dc.b    192,0,1,     0,0,0,       255,255,255,  0,0,0
  237.     dc.b    255,255,255, 0,0,0,       192,0,1,      0,0,0
  238.     dc.b    192,0,1,     0,0,0,       192,0,0,      0,0,0
  239.     dc.b    240,0,0,     0,0,0,       240,0,0,      0,0,0
  240. * Redefine characters from ? to Z
  241. init5:    dc.b    esc,'&',0,'?Z'
  242. * Define ? = division sign
  243. divide:    dc.b    0,36,0
  244.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  245.     dc.b    0,0,0,       0,0,0,       0,16,0,       0,0,0
  246.     dc.b    0,16,0,      0,0,0,       0,16,0,       0,0,0
  247.     dc.b    0,16,0,      0,0,0,       2,16,128,     0,0,0
  248.     dc.b    7,17,192,    0,0,0,       7,17,192,     0,0,0
  249.     dc.b    2,16,128,    0,0,0,       0,16,0,       0,0,0
  250.     dc.b    0,16,0,      0,0,0,       0,16,0,       0,0,0
  251.     dc.b    0,16,0,      0,0,0,       0,0,0,        0,0,0
  252.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  253. * Define @ = copyright symbol
  254. cpyrt:    dc.b    0,36,0
  255.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  256.     dc.b    1,252,0,     0,0,0,       6,3,0,        0,0,0
  257.     dc.b    12,1,128,    0,0,0,       24,0,192,     0,0,0
  258.     dc.b    16,248,64,   0,0,0,       33,4,32,      0,0,0
  259.     dc.b    34,2,32,     0,0,0,       34,2,32,      0,0,0
  260.     dc.b    34,2,32,     0,0,0,       33,4,32,      0,0,0
  261.     dc.b    16,136,64,   0,0,0,       24,0,192,     0,0,0
  262.     dc.b    12,1,128,    0,0,0,       6,3,0,        0,0,0
  263.     dc.b    1,252,0,     0,0,0,       0,0,0,        0,0,0
  264. * Define A = subscript infinity
  265. snfin:    dc.b    0,36,0
  266.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  267.     dc.b    0,1,224,     0,0,0,       0,3,48,       0,0,0
  268.     dc.b    0,6,24,      0,0,0,       0,4,8,        0,0,0
  269.     dc.b    0,6,24,      0,0,0,       0,3,48,       0,0,0
  270.     dc.b    0,1,224,     0,0,0,       0,1,224,      0,0,0
  271.     dc.b    0,3,48,      0,0,0,       0,6,24,       0,0,0
  272.     dc.b    0,4,8,       0,0,0,       0,6,24,       0,0,0
  273.     dc.b    0,3,48,      0,0,0,       0,1,224,      0,0,0
  274.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  275. * Define B = infinity
  276. infin:    dc.b    0,36,0
  277.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  278.     dc.b    0,60,0,      0,0,0,       0,102,0,      0,0,0
  279.     dc.b    0,195,0,     0,0,0,       0,129,0,      0,0,0
  280.     dc.b    0,195,0,     0,0,0,       0,102,0,      0,0,0
  281.     dc.b    0,60,0,      0,0,0,       0,60,0,       0,0,0
  282.     dc.b    0,102,0,     0,0,0,       0,195,0,      0,0,0
  283.     dc.b    0,129,0,     0,0,0,       0,195,0,      0,0,0
  284.     dc.b    0,102,0,     0,0,0,       0,60,0,       0,0,0
  285.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  286. * Define C = upper case psi
  287. upsi:    dc.b    0,36,0
  288.     dc.b    0,0,0,       0,0,0,       4,0,0,        0,0,0
  289.     dc.b    7,240,0,     0,0,0,       7,248,0,      0,0,0
  290.     dc.b    4,12,0,      0,0,0,       0,6,0,        0,0,0
  291.     dc.b    32,2,32,     0,0,0,       32,2,32,      0,0,0
  292.     dc.b    63,255,224,  0,0,0,       63,255,224,   0,0,0
  293.     dc.b    32,2,32,     0,0,0,       32,2,32,      0,0,0
  294.     dc.b    0,6,0,       0,0,0,       4,12,0,       0,0,0
  295.     dc.b    7,248,0,     0,0,0,       7,240,0,      0,0,0
  296.     dc.b    4,0,0,       0,0,0,       0,0,0,        0,0,0
  297. * Define D = curly d (partial derivative operator)
  298. curlyd:    dc.b    0,36,0
  299.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  300.     dc.b    32,0,0,      0,0,0,       32,0,0,       0,0,0
  301.     dc.b    48,15,128,   0,0,0,       16,31,192,    0,0,0
  302.     dc.b    24,48,96,    0,0,0,       8,96,32,      0,0,0
  303.     dc.b    12,64,32,    0,0,0,       6,64,32,      0,0,0
  304.     dc.b    3,64,32,     0,0,0,       1,192,32,     0,0,0
  305.     dc.b    0,192,96,    0,0,0,       0,96,192,     0,0,0
  306.     dc.b    0,63,128,    0,0,0,       0,31,0,       0,0,0
  307.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  308. * Define E = large left bracket
  309. lbrack:    dc.b    0,36,0
  310.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  311.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  312.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  313.     dc.b    255,255,255, 0,0,0,       255,255,255,  0,0,0
  314.     dc.b    255,255,255, 0,0,0,       192,0,3,      0,0,0
  315.     dc.b    192,0,3,     0,0,0,       192,0,3,      0,0,0
  316.     dc.b    192,0,3,     0,0,0,       0,0,0,        0,0,0
  317.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  318.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  319. * Define F = upper case phi
  320. uphi:    dc.b    0,36,0
  321.     dc.b    0,0,0,       0,0,0,       0,248,0,      0,0,0
  322.     dc.b    1,252,0,     0,0,0,       3,6,0,        0,0,0
  323.     dc.b    2,2,0,       0,0,0,       6,3,0,        0,0,0
  324.     dc.b    36,1,32,     0,0,0,       36,1,32,      0,0,0
  325.     dc.b    63,255,224,  0,0,0,       63,255,224,   0,0,0
  326.     dc.b    36,1,32,     0,0,0,       36,1,32,      0,0,0
  327.     dc.b    6,3,0,       0,0,0,       2,2,0,        0,0,0
  328.     dc.b    3,6,0,       0,0,0,       1,252,0,      0,0,0
  329.     dc.b    0,248,0,     0,0,0,       0,0,0,        0,0,0
  330. * Define G = upper case gamma
  331. ugamma:    dc.b    0,36,0
  332.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  333.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  334.     dc.b    63,255,224,  0,0,0,       63,255,224,   0,0,0
  335.     dc.b    48,0,0,      0,0,0,       48,0,0,       0,0,0
  336.     dc.b    48,0,0,      0,0,0,       48,0,0,       0,0,0
  337.     dc.b    48,0,0,      0,0,0,       48,0,0,       0,0,0
  338.     dc.b    63,0,0,      0,0,0,       63,0,0,       0,0,0
  339.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  340.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  341. * Define H = proportionality symbol
  342. propor:    dc.b    0,36,0
  343.     dc.b    0,0,0,       0,0,0,       0,28,0,       0,0,0
  344.     dc.b    0,62,0,      0,0,0,       0,99,0,       0,0,0
  345.     dc.b    0,193,128,   0,0,0,       0,193,128,    0,0,0
  346.     dc.b    0,193,128,   0,0,0,       0,193,128,    0,0,0
  347.     dc.b    0,99,0,      0,0,0,       0,54,0,       0,0,0
  348.     dc.b    0,28,0,      0,0,0,       0,54,0,       0,0,0
  349.     dc.b    0,99,0,      0,0,0,       0,193,128,    0,0,0
  350.     dc.b    0,193,128,   0,0,0,       0,193,128,    0,0,0
  351.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  352. * Define I = small integral
  353. sint:    dc.b    0,36,0
  354.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  355.     dc.b    0,0,28,      0,0,0,       0,0,62,       0,0,0
  356.     dc.b    0,0,27,      0,0,0,       0,0,1,        0,0,0
  357.     dc.b    0,0,3,       0,0,0,       63,255,254,   0,0,0
  358.     dc.b    127,255,252, 0,0,0,       192,0,0,      0,0,0
  359.     dc.b    128,0,0,     0,0,0,       216,0,0,      0,0,0
  360.     dc.b    124,0,0,     0,0,0,       56,0,0,       0,0,0
  361.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  362.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  363. * Define J = upper case theta
  364. utheta:    dc.b    0,36,0
  365.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  366.     dc.b    3,254,0,     0,0,0,       7,255,0,      0,0,0
  367.     dc.b    12,1,128,    0,0,0,       24,0,192,     0,0,0
  368.     dc.b    48,112,64,   0,0,0,       48,32,96,     0,0,0
  369.     dc.b    32,32,32,    0,0,0,       32,32,32,     0,0,0
  370.     dc.b    48,32,96,    0,0,0,       48,112,64,    0,0,0
  371.     dc.b    24,0,192,    0,0,0,       12,1,128,     0,0,0
  372.     dc.b    7,255,0,     0,0,0,       3,254,0,      0,0,0
  373.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  374. * Define K = right arrow
  375. rarow:    dc.b    0,36,0
  376.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  377.     dc.b    0,24,0,      0,0,0,       0,24,0,       0,0,0
  378.     dc.b    0,24,0,      0,0,0,       0,24,0,       0,0,0
  379.     dc.b    0,24,0,      0,0,0,       0,24,0,       0,0,0
  380.     dc.b    0,153,0,     0,0,0,       0,153,0,      0,0,0
  381.     dc.b    0,90,0,      0,0,0,       0,90,0,       0,0,0
  382.     dc.b    0,60,0,      0,0,0,       0,60,0,       0,0,0
  383.     dc.b    0,24,0,      0,0,0,       0,24,0,       0,0,0
  384.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  385. * Define L = upper case lambda
  386. ulamda:    dc.b    0,36,0
  387.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  388.     dc.b    0,0,32,      0,0,0,       0,0,32,       0,0,0
  389.     dc.b    0,1,224,     0,0,0,       0,14,32,      0,0,0
  390.     dc.b    0,112,32,    0,0,0,       3,128,0,      0,0,0
  391.     dc.b    12,0,0,      0,0,0,       48,0,0,       0,0,0
  392.     dc.b    12,0,0,      0,0,0,       3,128,0,      0,0,0
  393.     dc.b    0,112,32,    0,0,0,       0,14,32,      0,0,0
  394.     dc.b    0,1,224,     0,0,0,       0,0,32,       0,0,0
  395.     dc.b    0,0,32,      0,0,0,       0,0,0,        0,0,0
  396. * Define M = script l
  397. lmix:    dc.b    0,36,0
  398.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  399.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  400.     dc.b    0,0,32,      0,0,0,       15,240,96,    0,0,0
  401.     dc.b    24,12,192,   0,0,0,       48,7,128,     0,0,0
  402.     dc.b    48,3,0,      0,0,0,       24,15,128,    0,0,0
  403.     dc.b    15,252,192,  0,0,0,       0,0,96,       0,0,0
  404.     dc.b    0,0,32,      0,0,0,       0,0,192,      0,0,0
  405.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  406.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  407. * Define N = large right bracket
  408. rbrack:    dc.b    0,36,0
  409.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  410.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  411.     dc.b    0,0,0,       0,0,0,       192,0,3,      0,0,0
  412.     dc.b    192,0,3,     0,0,0,       192,0,3,      0,0,0
  413.     dc.b    192,0,3,     0,0,0,       255,255,255,  0,0,0
  414.     dc.b    255,255,255, 0,0,0,       255,255,255,  0,0,0
  415.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  416.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  417.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  418. * Define O = cross product
  419. cross:    dc.b    0,36,0
  420.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  421.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  422.     dc.b    1,0,64,      0,0,0,       0,128,128,    0,0,0
  423.     dc.b    0,65,0,      0,0,0,       0,34,0,       0,0,0
  424.     dc.b    0,20,0,      0,0,0,       0,8,0,        0,0,0
  425.     dc.b    0,20,0,      0,0,0,       0,34,0,       0,0,0
  426.     dc.b    0,65,0,      0,0,0,       0,128,128,    0,0,0
  427.     dc.b    1,0,64,      0,0,0,       0,0,0,        0,0,0
  428.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  429. * Define P = upper case pi
  430. upi:    dc.b    0,36,0
  431.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  432.     dc.b    48,0,0,      0,0,0,       48,0,32,      0,0,0
  433.     dc.b    48,0,32,     0,0,0,       63,255,224,   0,0,0
  434.     dc.b    48,0,32,     0,0,0,       48,0,32,      0,0,0
  435.     dc.b    48,0,0,      0,0,0,       48,0,0,       0,0,0
  436.     dc.b    48,0,32,     0,0,0,       63,255,224,   0,0,0
  437.     dc.b    48,0,32,     0,0,0,       48,0,32,      0,0,0
  438.     dc.b    48,0,32,     0,0,0,       62,0,0,       0,0,0
  439.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  440. * Define Q = upper case delta
  441. udelta:    dc.b    0,36,0
  442.     dc.b    0,0,0,       0,0,0,       0,0,96,       0,0,0
  443.     dc.b    0,1,224,     0,0,0,       0,6,96,       0,0,0
  444.     dc.b    0,24,96,     0,0,0,       0,96,96,      0,0,0
  445.     dc.b    1,128,96,    0,0,0,       6,0,96,       0,0,0
  446.     dc.b    24,0,96,     0,0,0,       24,0,96,      0,0,0
  447.     dc.b    6,0,96,      0,0,0,       1,128,96,     0,0,0
  448.     dc.b    0,96,96,     0,0,0,       0,24,96,      0,0,0
  449.     dc.b    0,6,96,      0,0,0,       0,1,224,      0,0,0
  450.     dc.b    0,0,96,      0,0,0,       0,0,0,        0,0,0
  451. * Define R = square root
  452. root:    dc.b    0,36,0
  453.     dc.b    0,0,112,     0,0,0,       0,1,192,      0,0,0
  454.     dc.b    0,7,0,       0,0,0,       0,1,192,      0,0,0
  455.     dc.b    0,0,112,     0,0,0,       0,0,28,       0,0,0
  456.     dc.b    0,0,7,       0,0,0,       0,0,28,       0,0,0
  457.     dc.b    0,0,112,     0,0,0,       0,1,192,      0,0,0
  458.     dc.b    0,7,0,       0,0,0,       0,28,0,       0,0,0
  459.     dc.b    0,112,0,     0,0,0,       1,192,0,      0,0,0
  460.     dc.b    7,0,0,       0,0,0,       28,0,0,       0,0,0
  461.     dc.b    112,0,0,     0,0,0,       192,0,0,      0,0,0
  462. * Define S = upper case sigma
  463. usigma:    dc.b    0,36,0
  464.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  465.     dc.b    48,0,96,     0,0,0,       56,0,224,     0,0,0
  466.     dc.b    60,1,224,    0,0,0,       54,3,96,      0,0,0
  467.     dc.b    51,6,96,     0,0,0,       49,140,96,    0,0,0
  468.     dc.b    48,216,96,   0,0,0,       48,112,96,    0,0,0
  469.     dc.b    48,32,96,    0,0,0,       48,0,96,      0,0,0
  470.     dc.b    48,0,96,     0,0,0,       48,0,96,      0,0,0
  471.     dc.b    60,1,224,    0,0,0,       60,1,224,     0,0,0
  472.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  473. * Define T = overbar
  474. over:    dc.b    0,36,0
  475.     dc.b    128,0,0,     0,0,0,       128,0,0,      0,0,0
  476.     dc.b    128,0,0,     0,0,0,       128,0,0,      0,0,0
  477.     dc.b    128,0,0,     0,0,0,       128,0,0,      0,0,0
  478.     dc.b    128,0,0,     0,0,0,       128,0,0,      0,0,0
  479.     dc.b    128,0,0,     0,0,0,       128,0,0,      0,0,0
  480.     dc.b    128,0,0,     0,0,0,       128,0,0,      0,0,0
  481.     dc.b    128,0,0,     0,0,0,       128,0,0,      0,0,0
  482.     dc.b    128,0,0,     0,0,0,       128,0,0,      0,0,0
  483.     dc.b    128,0,0,     0,0,0,       128,0,0,      0,0,0
  484. * Define U = upper case upsilon
  485. uupsi:    dc.b    0,36,0
  486.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  487.     dc.b    6,0,0,       0,0,0,       14,0,0,       0,0,0
  488.     dc.b    24,0,0,      0,0,0,       48,0,0,       0,0,0
  489.     dc.b    48,0,32,     0,0,0,       24,0,32,      0,0,0
  490.     dc.b    15,255,224,  0,0,0,       15,255,224,   0,0,0
  491.     dc.b    24,0,32,     0,0,0,       48,0,32,      0,0,0
  492.     dc.b    48,0,0,      0,0,0,       24,0,0,       0,0,0
  493.     dc.b    14,0,0,      0,0,0,       6,0,0,        0,0,0
  494.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  495. * Define V = approximately equal with a dot
  496. eqdot:    dc.b    0,36,0
  497.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  498.     dc.b    0,0,0,       0,0,0,       0,33,0,       0,0,0
  499.     dc.b    0,33,0,      0,0,0,       0,33,0,       0,0,0
  500.     dc.b    0,33,0,      0,0,0,       8,33,0,       0,0,0
  501.     dc.b    28,33,0,     0,0,0,       28,33,0,      0,0,0
  502.     dc.b    8,33,0,      0,0,0,       0,33,0,       0,0,0
  503.     dc.b    0,33,0,      0,0,0,       0,33,0,       0,0,0
  504.     dc.b    0,33,0,      0,0,0,       0,0,0,        0,0,0
  505.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  506. * Define W = upper case omega
  507. uomega:    dc.b    0,36,0
  508.     dc.b    0,0,0,       0,0,0,       3,248,96,     0,0,0
  509.     dc.b    7,252,96,    0,0,0,       12,6,96,      0,0,0
  510.     dc.b    24,3,96,     0,0,0,       16,1,224,     0,0,0
  511.     dc.b    48,0,224,    0,0,0,       48,0,0,       0,0,0
  512.     dc.b    48,0,0,      0,0,0,       48,0,0,       0,0,0
  513.     dc.b    48,0,0,      0,0,0,       48,0,224,     0,0,0
  514.     dc.b    16,1,224,    0,0,0,       24,3,96,      0,0,0
  515.     dc.b    12,6,96,     0,0,0,       7,252,96,     0,0,0
  516.     dc.b    3,248,96,    0,0,0,       0,0,0,        0,0,0
  517. * Define X = upper case xi
  518. uexi:    dc.b    0,36,0
  519.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  520.     dc.b    62,3,224,    0,0,0,       48,0,96,      0,0,0
  521.     dc.b    48,0,96,     0,0,0,       48,248,96,    0,0,0
  522.     dc.b    48,32,96,    0,0,0,       48,32,96,     0,0,0
  523.     dc.b    48,32,96,    0,0,0,       48,32,96,     0,0,0
  524.     dc.b    48,32,96,    0,0,0,       48,32,96,     0,0,0
  525.     dc.b    48,248,96,   0,0,0,       48,0,96,      0,0,0
  526.     dc.b    48,0,96,     0,0,0,       62,3,224,     0,0,0
  527.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  528. * Define Y = identically equal
  529. eqidnt:    dc.b    0,36,0
  530.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  531.     dc.b    0,0,0,       0,0,0,       4,33,0,       0,0,0
  532.     dc.b    4,33,0,      0,0,0,       4,33,0,       0,0,0
  533.     dc.b    4,33,0,      0,0,0,       4,33,0,       0,0,0
  534.     dc.b    4,33,0,      0,0,0,       4,33,0,       0,0,0
  535.     dc.b    4,33,0,      0,0,0,       4,33,0,       0,0,0
  536.     dc.b    4,33,0,      0,0,0,       4,33,0,       0,0,0
  537.     dc.b    4,33,0,      0,0,0,       0,0,0,        0,0,0
  538.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  539. * Define Z = subscript tau
  540. stau:    dc.b    0,36,0
  541.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  542.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  543.     dc.b    0,48,0,      0,0,0,       0,48,0,       0,0,0
  544.     dc.b    0,48,0,      0,0,0,       0,63,224,     0,0,0
  545.     dc.b    0,63,240,    0,0,0,       0,48,24,      0,0,0
  546.     dc.b    0,48,8,      0,0,0,       0,48,24,      0,0,0
  547.     dc.b    0,48,48,     0,0,0,       0,56,0,       0,0,0
  548.     dc.b    0,24,0,      0,0,0,       0,0,0,        0,0,0
  549.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  550. * Redefine characters from \ to \
  551. init6:    dc.b    esc,'&',0,'\\'
  552. * Define \ = vertical bar
  553. vert:    dc.b    0,36,0
  554.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  555.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  556.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  557.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  558.     dc.b    255,255,255, 0,0,0,       255,255,255,  0,0,0
  559.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  560.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  561.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  562.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  563. * Redefine characters from a to c
  564. init7:    dc.b    esc,'&',0,'ac'
  565. * Define a = lower case alpha
  566. lalpha:    dc.b    0,36,0
  567.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  568.     dc.b    0,0,0,       0,0,0,       0,31,0,       0,0,0
  569.     dc.b    0,63,128,    0,0,0,       0,96,192,     0,0,0
  570.     dc.b    0,192,96,    0,0,0,       0,192,96,     0,0,0
  571.     dc.b    0,192,96,    0,0,0,       0,192,96,     0,0,0
  572.     dc.b    0,96,192,    0,0,0,       0,49,128,     0,0,0
  573.     dc.b    0,31,0,      0,0,0,       0,63,128,     0,0,0
  574.     dc.b    0,96,192,    0,0,0,       0,192,96,     0,0,0
  575.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  576. * Define b = lower case beta
  577. lbeta:    dc.b    0,36,0
  578.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  579.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  580.     dc.b    0,63,248,    0,0,0,       3,255,248,    0,0,0
  581.     dc.b    15,224,64,   0,0,0,       28,64,32,     0,0,0
  582.     dc.b    48,64,32,    0,0,0,       32,64,32,     0,0,0
  583.     dc.b    32,224,96,   0,0,0,       49,176,192,   0,0,0
  584.     dc.b    31,31,128,   0,0,0,       14,15,0,      0,0,0
  585.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  586.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  587. * Define c = lower case psi
  588. lpsi:    dc.b    0,36,0
  589.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  590.     dc.b    6,0,0,       0,0,0,       6,0,0,        0,0,0
  591.     dc.b    3,248,0,     0,0,0,       1,252,0,      0,0,0
  592.     dc.b    0,6,0,       0,0,0,       0,6,0,        0,0,0
  593.     dc.b    63,255,224,  0,0,0,       63,255,224,   0,0,0
  594.     dc.b    0,6,0,       0,0,0,       0,6,0,        0,0,0
  595.     dc.b    0,6,0,       0,0,0,       0,12,0,       0,0,0
  596.     dc.b    7,252,0,     0,0,0,       7,240,0,      0,0,0
  597.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  598. * Redefine characters from e to z
  599. init8:    dc.b    esc,'&',0,'ez'
  600. * Define e = lower case epsilon
  601. leps:    dc.b    0,36,0
  602.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  603.     dc.b    0,0,0,       0,0,0,       0,14,0,       0,0,0
  604.     dc.b    0,63,128,    0,0,0,       0,117,192,    0,0,0
  605.     dc.b    0,100,192,   0,0,0,       0,196,96,     0,0,0
  606.     dc.b    0,196,96,    0,0,0,       0,196,96,     0,0,0
  607.     dc.b    0,196,96,    0,0,0,       0,196,96,     0,0,0
  608.     dc.b    0,196,96,    0,0,0,       0,192,96,     0,0,0
  609.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  610.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  611. * Define f = lower case phi
  612. lphi:    dc.b    0,36,0
  613.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  614.     dc.b    0,0,0,       0,0,0,       0,248,0,      0,0,0
  615.     dc.b    1,252,0,     0,0,0,       3,6,0,        0,0,0
  616.     dc.b    6,3,0,       0,0,0,       6,3,0,        0,0,0
  617.     dc.b    63,255,224,  0,0,0,       63,255,224,   0,0,0
  618.     dc.b    6,3,0,       0,0,0,       6,3,0,        0,0,0
  619.     dc.b    3,6,0,       0,0,0,       1,252,0,      0,0,0
  620.     dc.b    0,248,0,     0,0,0,       0,0,0,        0,0,0
  621.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  622. * Define g = lower case gamma
  623. lgamma:    dc.b    0,36,0
  624.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  625.     dc.b    0,0,0,       0,0,0,       3,0,0,        0,0,0
  626.     dc.b    6,0,0,       0,0,0,       6,0,0,        0,0,0
  627.     dc.b    6,0,0,       0,0,0,       3,0,224,      0,0,0
  628.     dc.b    1,135,224,   0,0,0,       0,255,0,      0,0,0
  629.     dc.b    0,120,0,     0,0,0,       0,192,0,      0,0,0
  630.     dc.b    1,128,0,     0,0,0,       3,0,0,        0,0,0
  631.     dc.b    2,0,0,       0,0,0,       0,0,0,        0,0,0
  632.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  633. * Define h = lower case eta
  634. leta:    dc.b    0,36,0
  635.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  636.     dc.b    0,0,0,       0,0,0,       0,192,0,      0,0,0
  637.     dc.b    1,192,0,     0,0,0,       0,127,224,    0,0,0
  638.     dc.b    0,63,224,    0,0,0,       0,24,0,       0,0,0
  639.     dc.b    0,48,0,      0,0,0,       0,96,0,       0,0,0
  640.     dc.b    0,192,0,     0,0,0,       0,192,0,      0,0,0
  641.     dc.b    0,127,252,   0,0,0,       0,63,252,     0,0,0
  642.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  643.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  644. * Define i = lower case iota
  645. liota:    dc.b    0,36,0
  646.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  647.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  648.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  649.     dc.b    0,0,0,       0,0,0,       0,255,192,    0,0,0
  650.     dc.b    0,255,224,   0,0,0,       0,0,96,       0,0,0
  651.     dc.b    0,0,96,      0,0,0,       0,0,192,      0,0,0
  652.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  653.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  654.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  655. * Define j = lower case theta
  656. ltheta:    dc.b    0,36,0
  657.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  658.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  659.     dc.b    0,0,0,       0,0,0,       3,254,0,      0,0,0
  660.     dc.b    15,255,128,  0,0,0,       28,33,192,    0,0,0
  661.     dc.b    48,32,96,    0,0,0,       32,32,32,     0,0,0
  662.     dc.b    48,32,96,    0,0,0,       28,33,192,    0,0,0
  663.     dc.b    15,255,128,  0,0,0,       3,254,0,      0,0,0
  664.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  665.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  666. * Define k = lower case kappa
  667. lkappa:    dc.b    0,36,0
  668.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  669.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  670.     dc.b    1,255,224,   0,0,0,       1,255,224,    0,0,0
  671.     dc.b    0,12,0,      0,0,0,       0,30,0,       0,0,0
  672.     dc.b    0,51,0,      0,0,0,       0,97,128,     0,0,0
  673.     dc.b    0,192,192,   0,0,0,       1,128,96,     0,0,0
  674.     dc.b    1,128,96,    0,0,0,       1,128,96,     0,0,0
  675.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  676.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  677. * Define l = lower case lambda
  678. llamda:    dc.b    0,36,0
  679.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  680.     dc.b    0,0,0,       0,0,0,       12,0,224,     0,0,0
  681.     dc.b    12,1,224,    0,0,0,       12,3,0,       0,0,0
  682.     dc.b    12,6,0,      0,0,0,       6,12,0,       0,0,0
  683.     dc.b    3,48,0,      0,0,0,       1,176,0,      0,0,0
  684.     dc.b    0,224,0,     0,0,0,       0,48,0,       0,0,0
  685.     dc.b    0,31,192,    0,0,0,       0,7,224,      0,0,0
  686.     dc.b    0,0,96,      0,0,0,       0,0,0,        0,0,0
  687.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  688. * Define m = lower case mu
  689. lmu:    dc.b    0,36,0
  690.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  691.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  692.     dc.b    0,255,254,   0,0,0,       0,255,254,    0,0,0
  693.     dc.b    0,1,128,     0,0,0,       0,0,192,      0,0,0
  694.     dc.b    0,0,96,      0,0,0,       0,0,96,       0,0,0
  695.     dc.b    0,0,96,      0,0,0,       0,0,192,      0,0,0
  696.     dc.b    0,0,128,     0,0,0,       0,255,192,    0,0,0
  697.     dc.b    0,255,96,    0,0,0,       0,0,0,        0,0,0
  698.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  699. * Define n = lower case nu
  700. lnu:    dc.b    0,36,0
  701.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  702.     dc.b    0,0,0,       0,0,0,       0,128,0,      0,0,0
  703.     dc.b    0,192,0,     0,0,0,       0,96,0,       0,0,0
  704.     dc.b    0,48,0,      0,0,0,       0,24,0,       0,0,0
  705.     dc.b    0,15,224,    0,0,0,       0,7,224,      0,0,0
  706.     dc.b    0,0,64,      0,0,0,       0,0,192,      0,0,0
  707.     dc.b    0,1,128,     0,0,0,       0,255,0,      0,0,0
  708.     dc.b    0,254,0,     0,0,0,       0,0,0,        0,0,0
  709.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  710. * Define o = lower case omicron
  711. lomi:    dc.b    0,36,0
  712.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  713.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  714.     dc.b    0,31,0,      0,0,0,       0,63,128,     0,0,0
  715.     dc.b    0,96,192,    0,0,0,       0,192,96,     0,0,0
  716.     dc.b    0,192,96,    0,0,0,       0,192,96,     0,0,0
  717.     dc.b    0,192,96,    0,0,0,       0,96,192,     0,0,0
  718.     dc.b    0,63,128,    0,0,0,       0,31,0,       0,0,0
  719.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  720.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  721. * Define p = lower case pi
  722. lpi:    dc.b    0,36,0
  723.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  724.     dc.b    0,192,0,     0,0,0,       0,192,0,      0,0,0
  725.     dc.b    0,192,0,     0,0,0,       0,255,224,    0,0,0
  726.     dc.b    0,255,224,   0,0,0,       0,192,0,      0,0,0
  727.     dc.b    0,192,0,     0,0,0,       0,192,0,      0,0,0
  728.     dc.b    0,255,224,   0,0,0,       0,255,224,    0,0,0
  729.     dc.b    0,192,0,     0,0,0,       0,192,0,      0,0,0
  730.     dc.b    0,240,0,     0,0,0,       0,240,0,      0,0,0
  731.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  732. * Define q = lower case delta
  733. ldelta:    dc.b    0,36,0
  734.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  735.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  736.     dc.b    0,7,128,     0,0,0,       14,15,192,    0,0,0
  737.     dc.b    31,24,96,    0,0,0,       49,176,96,    0,0,0
  738.     dc.b    48,224,96,   0,0,0,       48,96,96,     0,0,0
  739.     dc.b    48,48,96,    0,0,0,       48,24,192,    0,0,0
  740.     dc.b    28,15,128,   0,0,0,       12,7,0,       0,0,0
  741.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  742.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  743. * Define r = lower case rho
  744. lrho:    dc.b    0,36,0
  745.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  746.     dc.b    0,0,0,       0,0,0,       0,31,254,     0,0,0
  747.     dc.b    0,63,254,    0,0,0,       0,97,128,     0,0,0
  748.     dc.b    0,192,192,   0,0,0,       0,192,96,     0,0,0
  749.     dc.b    0,192,96,    0,0,0,       0,192,96,     0,0,0
  750.     dc.b    0,192,96,    0,0,0,       0,192,96,     0,0,0
  751.     dc.b    0,96,192,    0,0,0,       0,63,128,     0,0,0
  752.     dc.b    0,31,0,      0,0,0,       0,0,0,        0,0,0
  753.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  754. * Define s = lower case sigma
  755. lsigma:    dc.b    0,36,0
  756.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  757.     dc.b    0,31,128,    0,0,0,       0,63,192,     0,0,0
  758.     dc.b    0,96,96,     0,0,0,       0,192,96,     0,0,0
  759.     dc.b    0,192,96,    0,0,0,       0,192,96,     0,0,0
  760.     dc.b    0,192,96,    0,0,0,       0,192,96,     0,0,0
  761.     dc.b    0,224,192,   0,0,0,       0,255,128,    0,0,0
  762.     dc.b    0,223,0,     0,0,0,       0,192,0,      0,0,0
  763.     dc.b    0,192,0,     0,0,0,       0,192,0,      0,0,0
  764.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  765. * Define t = lower case tau
  766. ltau:    dc.b    0,36,0
  767.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  768.     dc.b    0,0,0,       0,0,0,       0,192,0,      0,0,0
  769.     dc.b    0,192,0,     0,0,0,       0,192,0,      0,0,0
  770.     dc.b    0,192,0,     0,0,0,       0,255,128,    0,0,0
  771.     dc.b    0,255,192,   0,0,0,       0,192,96,     0,0,0
  772.     dc.b    0,192,32,    0,0,0,       0,192,96,     0,0,0
  773.     dc.b    0,192,192,   0,0,0,       0,192,128,    0,0,0
  774.     dc.b    0,224,0,     0,0,0,       0,96,0,       0,0,0
  775.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  776. * Define u = lower case upsilon
  777. lupsi:    dc.b    0,36,0
  778.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  779.     dc.b    0,0,0,       0,0,0,       0,128,0,      0,0,0
  780.     dc.b    0,192,0,     0,0,0,       0,126,0,      0,0,0
  781.     dc.b    0,63,128,    0,0,0,       0,1,192,      0,0,0
  782.     dc.b    0,0,96,      0,0,0,       0,0,32,       0,0,0
  783.     dc.b    0,0,96,      0,0,0,       0,128,192,    0,0,0
  784.     dc.b    0,193,128,   0,0,0,       0,127,0,      0,0,0
  785.     dc.b    0,62,0,      0,0,0,       0,0,0,        0,0,0
  786.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  787. * Define v = gradient operator
  788. lgrad:    dc.b    0,36,0
  789.     dc.b    0,0,0,       0,0,0,       48,0,0,       0,0,0
  790.     dc.b    60,0,0,      0,0,0,       51,0,0,       0,0,0
  791.     dc.b    48,192,0,    0,0,0,       48,48,0,      0,0,0
  792.     dc.b    48,12,0,     0,0,0,       48,3,0,       0,0,0
  793.     dc.b    48,0,192,    0,0,0,       48,0,192,     0,0,0
  794.     dc.b    48,3,0,      0,0,0,       48,12,0,      0,0,0
  795.     dc.b    48,48,0,     0,0,0,       48,192,0,     0,0,0
  796.     dc.b    51,0,0,      0,0,0,       60,0,0,       0,0,0
  797.     dc.b    48,0,0,      0,0,0,       0,0,0,        0,0,0
  798. * Define w = lower case omega
  799. lomega:    dc.b    0,36,0
  800.     dc.b    0,0,0,       0,0,0,       0,31,0,       0,0,0
  801.     dc.b    0,63,128,    0,0,0,       0,96,192,     0,0,0
  802.     dc.b    0,192,96,    0,0,0,       0,128,96,     0,0,0
  803.     dc.b    0,0,96,      0,0,0,       0,0,96,       0,0,0
  804.     dc.b    0,7,192,     0,0,0,       0,7,192,      0,0,0
  805.     dc.b    0,0,96,      0,0,0,       0,0,96,       0,0,0
  806.     dc.b    0,128,96,    0,0,0,       0,192,96,     0,0,0
  807.     dc.b    0,96,192,    0,0,0,       0,63,128,     0,0,0
  808.     dc.b    0,31,0,      0,0,0,       0,0,0,        0,0,0
  809. * Define x = lower case xi
  810. lexi:    dc.b    0,36,0
  811.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  812.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  813.     dc.b    0,0,0,       0,0,0,       1,142,0,      0,0,0
  814.     dc.b    27,223,0,    0,0,0,       46,113,128,   0,0,0
  815.     dc.b    12,32,192,   0,0,0,       12,32,72,     0,0,0
  816.     dc.b    12,32,72,    0,0,0,       0,0,48,       0,0,0
  817.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  818.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  819.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  820. * Define y = lower case chi
  821. lchi:    dc.b    0,36,0
  822.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  823.     dc.b    0,0,0,       0,0,0,       0,192,0,      0,0,0
  824.     dc.b    0,192,32,    0,0,0,       0,192,96,     0,0,0
  825.     dc.b    0,192,192,   0,0,0,       0,97,128,     0,0,0
  826.     dc.b    0,54,0,      0,0,0,       0,31,0,       0,0,0
  827.     dc.b    0,31,128,    0,0,0,       0,48,192,     0,0,0
  828.     dc.b    0,96,96,     0,0,0,       0,192,32,     0,0,0
  829.     dc.b    0,128,0,     0,0,0,       0,0,0,        0,0,0
  830.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  831. * Define z = lower case zeta
  832. lzeta:    dc.b    0,36,0
  833.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  834.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  835.     dc.b    0,0,0,       0,0,0,       24,0,0,       0,0,0
  836.     dc.b    60,0,0,      0,0,0,       44,120,0,     0,0,0
  837.     dc.b    12,252,24,   0,0,0,       12,134,56,    0,0,0
  838.     dc.b    15,3,96,     0,0,0,       14,1,192,     0,0,0
  839.     dc.b    12,0,128,    0,0,0,       0,0,0,        0,0,0
  840.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  841.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  842. * Redefine characters from | to |
  843. init9:    dc.b    esc,'&',0,'||'
  844. * Define | = absolute value
  845. labs:    dc.b    0,36,0
  846.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  847.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  848.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  849.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  850.     dc.b    63,255,224,  0,0,0,       0,0,0,        0,0,0
  851.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  852.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  853.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  854.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  855. * End of redefinition tables
  856. stop:    dc.b    bell,lf
  857. *#######################################################################
  858.     end
  859.