home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / cpm68k / msutils.lbr / DFONT.SQ / DFONT.S
Encoding:
Text File  |  1988-02-18  |  14.8 KB  |  478 lines
  1. *#######################################################################
  2. *               Program DFONT...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.     move.w    #boot,d0        *and return to CP/M
  101.     trap    #bdos
  102. *
  103. * Send string terminated by lf to printer
  104. *
  105. lpsend:    move.b    (a1)+,d1    *keep looping until a lf is found
  106.     cmpi.b    #lf,d1        *(lf is safe...it's been avoided
  107.     bne    sendit        *in defining the font)
  108.     rts            *return when it's found
  109. sendit:    move.w    #list,d0
  110.     trap    #bdos
  111.     bra    lpsend
  112. *
  113. * Send a carriage return/line feed pair to printer
  114. *
  115. crlf:    move.w    #cr,d1
  116.     move.w    #list,d0
  117.     trap    #bdos
  118.     move.w    #lf,d1
  119.     move.w    #list,d0
  120.     trap    #bdos
  121.     rts
  122. *#######################################################################
  123. *              Sample print strings and console message
  124. *#######################################################################
  125. efont:    dc.b    esc,'%',0,lf
  126. sfont:    dc.b    esc,'%',1,lf
  127. line1:    dc.b    '1234567890-=   !@#$%^&*()_+   ~\|',lf
  128. line2:    dc.b    'qwertyuiop{}   QWERTYUIOP[]',lf
  129. line3:    dc.b    'asdfghjkl;',39,'    ASDFGHJKL:"',lf
  130. line4:    dc.b    'zxcvbnm,./     ZXCVBNM<>?',lf
  131. fontmsg:dc.b    cr,lf,'SCIENTIFIC font now loaded...'
  132.     dc.b    'DRAFT mode',cr,lf,'$'
  133. *#######################################################################
  134. *           Epson LQ-1500...draft mode font definition
  135. *#######################################################################
  136. scifont:
  137. * Select draft mode
  138. lq:    dc.b    esc,'x',0
  139. * Copy ROM characters to RAM
  140. romram:    dc.b    esc,':',0,0,0
  141. * Redefine characters from " to $
  142. init1:    dc.b    esc,'&',0,'"$'
  143. * Define " = therefore symbol
  144. thrfor:    dc.b    2,9,1
  145.     dc.b    0,0,96,      0,0,0,       0,0,96,       3,0,0
  146.     dc.b    0,0,0,       3,0,0,       0,0,96,       0,0,0
  147.     dc.b    0,0,96
  148. * Define # = twiddle
  149. twid:    dc.b    2,9,1 
  150.     dc.b    0,4,0,       0,16,0,      0,32,0,       0,16,0
  151.     dc.b    0,4,0,       0,1,0,       0,0,128,      0,1,0
  152.     dc.b    0,4,0
  153. * Define $ = large integral
  154. lint:    dc.b    2,9,1
  155.     dc.b    0,0,6,       0,0,1,       0,0,4,        11,85,81
  156.     dc.b    32,0,4,      139,85,80,   32,0,0,       128,0,0
  157.     dc.b    80,0,0
  158. * Redefine characters from & to '
  159. init2:    dc.b    esc,'&',0,'&',39
  160. * Define & = dagger
  161. dagger:    dc.b    2,9,1
  162.     dc.b    0,0,0,       4,0,0,       0,0,0,        4,0,0
  163.     dc.b    170,170,0,   4,0,0,       0,0,0,        4,0,0
  164.     dc.b    0,0,0
  165. * Define ' = prime symbol
  166. prime:    dc.b    2,9,1
  167.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  168.     dc.b    42,160,0,    0,0,0,       0,0,0,        0,0,0
  169.     dc.b    0,0,0
  170. * Redefine characters from , to ,
  171. init3:    dc.b    esc,'&',0,',,'
  172. * Define , = dot
  173. dot:    dc.b    2,9,1
  174.     dc.b    0,0,0,       0,0,0,       0,8,0,        0,20,0
  175.     dc.b    0,42,0,      0,20,0,      0,8,0,        0,0,0
  176.     dc.b    0,0,0
  177. * Redefine characters from : to ;
  178. init4:    dc.b    esc,'&',0,':;'
  179. * Define : = summation sigma
  180. sumsig:    dc.b    2,9,1
  181.     dc.b    128,0,1,     32,0,4,      136,0,17,     2,0,64
  182.     dc.b    128,129,1,   0,36,0,      128,24,1,     0,0,0
  183.     dc.b    168,0,21
  184. * Define ; = product pi
  185. prodpi:    dc.b    2,9,1
  186.     dc.b    128,0,0,     0,0,0,       170,173,85,   0,0,0
  187.     dc.b    128,0,0,     0,0,0,       170,173,85,   0,0,0
  188.     dc.b    128,0,0
  189. * Redefine characters from ? to Z
  190. init5:    dc.b    esc,'&',0,'?Z'
  191. * Define ? = division sign
  192. divide:    dc.b    2,9,1
  193.     dc.b    0,16,0,      0,0,0,       0,16,0,       6,0,192
  194.     dc.b    0,16,0,      6,0,192,     0,16,0,       0,0,0
  195.     dc.b    0,16,0
  196. * Define @ = copyright symbol
  197. cpyrt:    dc.b    2,9,1
  198.     dc.b    1,84,0,      4,1,0,       8,168,128,    17,4,64
  199.     dc.b    2,2,0,       17,4,64,     8,136,128,    4,1,0
  200.     dc.b    1,84,0
  201. * Define A = subscript infinity
  202. sinfin:    dc.b    2,9,1
  203.     dc.b    0,0,224,     0,1,16,      0,2,8,        0,1,16
  204.     dc.b    0,0,224,     0,1,16,      0,2,8,        0,1,16
  205.     dc.b    0,0,224
  206. * Define B = infinity
  207. infin:    dc.b    1,9,2
  208.     dc.b    0,56,0,      0,68,0,      0,130,0,      0,68,0
  209.     dc.b    0,56,0,      0,68,0,      0,130,0,      0,68,0
  210.     dc.b    0,56,0
  211. * Define C = upper case psi
  212. upsi:    dc.b    2,9,1
  213.     dc.b    1,80,0,      0,4,0,       32,2,32,      0,0,0
  214.     dc.b    42,86,160,   0,0,0,       32,2,32,      0,4,0
  215.     dc.b    1,80,0
  216. * Define D = curly d (partial derivative operator)
  217. curlyd:    dc.b    1,9,2
  218.     dc.b    16,0,0,      0,5,0,       4,16,64,      0,0,0
  219.     dc.b    1,32,32,     0,0,0,       0,64,32,      0,32,64
  220.     dc.b    0,11,0
  221. * Define E = large left bracket
  222. lbrack:    dc.b    2,9,1
  223.     dc.b    0,0,0,       170,181,85,  0,0,0,        170,181,85
  224.     dc.b    0,0,0,       160,0,5,     0,0,0,        160,0,5
  225.     dc.b    0,0,0
  226. * Define F = upper case phi
  227. uphi:    dc.b    2,9,1
  228.     dc.b    0,168,0,     2,2,0,       32,0,32,      4,1,0
  229.     dc.b    42,170,160,  4,1,0,       32,0,32,      2,2,0
  230.     dc.b    0,168,0
  231. * Define G = upper case gamma
  232. ugamma:    dc.b    1,9,2
  233.     dc.b    42,170,160,  0,0,0,       32,0,0,       0,0,0
  234.     dc.b    32,0,0,      0,0,0,       32,0,0,       0,0,0
  235.     dc.b    42,0,0
  236. * Define H = proportionality symbol
  237. propor:    dc.b    1,9,2
  238.     dc.b    0,56,0,      0,68,0,      0,130,0,      0,68,0
  239.     dc.b    0,56,0,      0,68,0,      0,130,0,      0,0,0
  240.     dc.b    0,130,0
  241. * Define I = small integral
  242. sint:    dc.b    2,9,2
  243.     dc.b    0,0,12,      0,0,2,       0,0,1,        0,0,2
  244.     dc.b    42,173,84,   64,0,0,      128,0,0,      64,0,0
  245.     dc.b    48,0,0
  246. * Define J = upper case theta
  247. utheta:    dc.b    2,9,1
  248.     dc.b    1,116,0,     4,1,0,       16,32,64,     0,0,0
  249.     dc.b    32,32,32,    0,0,0,       16,32,64,     4,1,0
  250.     dc.b    1,116,0
  251. * Define K = right arrow
  252. rarow:    dc.b    2,9,1
  253.     dc.b    0,16,0,      0,0,0,       0,16,0,       0,0,0
  254.     dc.b    1,17,0,      0,0,0,       0,84,0,       0,0,0
  255.     dc.b    0,16,0
  256. * Define L = upper case lambda
  257. ulamda:    dc.b    2,9,1
  258.     dc.b    0,2,160,     0,16,0,      0,128,0,      4,0,0
  259.     dc.b    32,0,0,      4,0,0,       0,128,0,      0,16,0
  260.     dc.b    0,2,160
  261. * Define M = script l
  262. lmix:    dc.b    2,9,1
  263.     dc.b    0,0,0,       0,0,32,      11,72,128,    32,2,0
  264.     dc.b    0,8,128,     32,32,32,    14,128,32,    0,0,0
  265.     dc.b    0,0,0
  266. * Define N = large right bracket
  267. rbrack:    dc.b    2,9,1
  268.     dc.b    0,0,0,       160,0,5,     0,0,0,        160,0,5
  269.     dc.b    0,0,0,       170,181,85,  0,0,0,        170,181,85
  270.     dc.b    0,0,0
  271. * Define O = cross product
  272. cross:    dc.b    2,9,1
  273.     dc.b    0,0,0,       1,0,64,      0,65,0,       0,20,0
  274.     dc.b    0,0,0,       0,20,0,      0,65,0,       1,0,64
  275.     dc.b    0,0,0
  276. * Define P = upper case pi
  277. upi:    dc.b    1,9,2
  278.     dc.b    32,0,0,      0,0,0,       42,170,160,   0,0,0
  279.     dc.b    32,0,0,      0,0,0,       42,170,160,   0,0,0
  280.     dc.b    32,0,0
  281. * Define Q = upper case delta
  282. udelta:    dc.b    2,9,1
  283.     dc.b    0,2,160,     0,16,0,      0,128,32,     4,0,0
  284.     dc.b    32,0,32,     4,0,0,       0,128,32,     0,16,0
  285.     dc.b    0,2,160
  286. * Define R = square root
  287. root:    dc.b    2,9,1
  288.     dc.b    0,0,128,     0,0,40,      0,0,2,        0,0,40
  289.     dc.b    0,2,128,     0,40,0,      2,128,0,      40,0,0
  290.     dc.b    128,0,0
  291. * Define S = upper case sigma
  292. usigma:    dc.b    1,9,2
  293.     dc.b    32,0,32,     8,0,128,     34,2,32,      0,136,0
  294.     dc.b    32,32,32,    0,0,0,       32,0,32,      0,0,0
  295.     dc.b    42,2,160
  296. * Define T = overbar
  297. over:    dc.b    1,9,2
  298.     dc.b    128,0,0,     0,0,0,       128,0,0,      0,0,0
  299.     dc.b    128,0,0,     0,0,0,       128,0,0,      0,0,0
  300.     dc.b    128,0,0
  301. * Define U = upper case upsilon
  302. uupsi:    dc.b    2,9,1
  303.     dc.b    4,0,0,       8,0,0,       4,0,32,       2,0,0
  304.     dc.b    0,170,160,   2,0,0,       4,0,32,       8,0,0
  305.     dc.b    4,0,0
  306. * Define V = approximately equal with a dot
  307. eqdot:    dc.b    2,9,1
  308.     dc.b    0,33,0,      0,0,0,       0,33,0,       12,0,0
  309.     dc.b    0,33,0,      12,0,0,      0,33,0,       0,0,0
  310.     dc.b    0,33,0
  311. * Define W = upper case omega
  312. uomega:    dc.b    1,9,2
  313.     dc.b    2,160,32,    8,8,0,       32,2,160,     0,0,0
  314.     dc.b    32,0,0,      0,0,0,       32,2,160,     8,8,0
  315.     dc.b    2,160,32
  316. * Define X = upper case xi
  317. uexi:    dc.b    2,9,1
  318.     dc.b    42,2,160,    0,0,0,       32,32,32,     0,0,0
  319.     dc.b    32,32,32,    0,0,0,       32,32,32,     0,0,0
  320.     dc.b    42,2,160
  321. * Define Y = identically equal
  322. eqidnt:    dc.b    2,9,1
  323.     dc.b    4,33,0,      0,0,0,       4,33,0,       0,0,0
  324.     dc.b    4,33,0,      0,0,0,       4,33,0,       0,0,0
  325.     dc.b    4,33,0
  326. * Define Z = subscript tau
  327. stau:    dc.b    1,9,2
  328.     dc.b    0,0,0,       0,32,0,      0,0,0,        0,42,176
  329.     dc.b    0,0,8,       0,32,16,     0,16,0,       0,4,0
  330.     dc.b    0,0,0
  331. * Redefine characters from \ to \
  332. init6:    dc.b    esc,'&',0,'\\'
  333. * Define \ = vertical bar
  334. vert:    dc.b    2,9,1
  335.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  336.     dc.b    170,173,85,  0,0,0,       0,0,0,        0,0,0
  337.     dc.b    0,0,0
  338. * Redefine characters from a to c
  339. init7:    dc.b    esc,'&',0,'ac'
  340. * Define a = lower case alpha
  341. lalpha:    dc.b    2,9,1
  342.     dc.b    0,42,128,    0,0,0,       0,128,32,     0,0,0
  343.     dc.b    0,32,128,    0,0,0,       0,4,0,        0,32,128
  344.     dc.b    0,128,32
  345. * Define b = lower case beta
  346. lbeta:    dc.b    2,9,1
  347.     dc.b    0,0,0,       0,85,84,     2,0,128,      8,0,64
  348.     dc.b    32,64,32,    0,0,0,       32,160,64,    14,20,128
  349.     dc.b    0,0,0
  350. * Define c = lower case psi
  351. lpsi:    dc.b    2,9,1
  352.     dc.b    1,80,0,      0,4,0,       0,2,0,        0,0,0
  353.     dc.b    42,170,160,  0,0,0,       0,2,0,        0,4,0
  354.     dc.b    1,80,0
  355. * Redefine characters from e to z
  356. init8:    dc.b    esc,'&',0,'ez'
  357. * Define e = lower case epsilon
  358. leps:    dc.b    2,9,1
  359.     dc.b    0,21,0,      0,64,64,     0,4,0,        0,128,32
  360.     dc.b    0,4,0,       0,128,32,    0,4,0,        0,128,32
  361.     dc.b    0,0,0
  362. * Define f = lower case phi
  363. lphi:    dc.b    2,9,1
  364.     dc.b    0,0,0,       0,168,0,     2,2,0,        0,0,0
  365.     dc.b    42,170,160,  0,0,0,       2,2,0,        0,168,0
  366.     dc.b    0,0,0
  367. * Define g = lower case gamma
  368. lgamma:    dc.b    2,9,1
  369.     dc.b    0,128,0,     2,0,0,       4,0,0,        2,0,0
  370.     dc.b    0,128,0,     0,106,160,   1,0,0,        4,0,0
  371.     dc.b    0,0,0
  372. * Define h = lower case eta
  373. leta:    dc.b    2,9,1
  374.     dc.b    0,0,0,       0,170,160,   0,16,0,       0,64,0
  375.     dc.b    0,128,0,     0,64,0,      0,21,84,      0,0,0
  376.     dc.b    0,0,0
  377. * Define i = lower case iota
  378. liota:    dc.b    2,9,1
  379.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,170,192
  380.     dc.b    0,0,32,      0,0,192,     0,0,0,        0,0,0
  381.     dc.b    0,0,0
  382. * Define j = lower case theta
  383. ltheta:    dc.b    2,9,1
  384.     dc.b    0,0,0,       0,168,0,     4,1,0,        16,32,64
  385.     dc.b    32,0,32,     16,32,64,    4,1,0,        0,168,0
  386.     dc.b    0,0,0
  387. * Define k = lower case kappa
  388. lkappa:    dc.b    2,9,1
  389.     dc.b    0,170,160,   0,4,0,       0,0,0,        0,17,0
  390.     dc.b    0,0,0,       0,64,64,     0,0,0,        0,128,32
  391.     dc.b    0,0,0
  392. * Define l = lower case lambda
  393. llamda:    dc.b    2,9,1
  394.     dc.b    32,0,32,     0,1,0,       16,8,0,       4,32,0
  395.     dc.b    0,128,0,     0,16,0,      0,2,0,        0,0,128
  396.     dc.b    0,0,32
  397. * Define m = lower case mu
  398. lmu:    dc.b    2,9,1
  399.     dc.b    1,85,84,     0,0,128,     0,0,64,       0,0,32
  400.     dc.b    0,0,64,      0,0,128,     0,2,0,        1,85,160
  401.     dc.b    0,0,0
  402. * Define n = lower case nu
  403. lnu:    dc.b    1,9,2
  404.     dc.b    0,0,0,       0,128,0,     0,64,0,       0,32,0
  405.     dc.b    0,8,0,       0,2,160,     0,0,64,       0,1,0
  406.     dc.b    0,168,0
  407. * Define o = lower case omicron
  408. lomi:    dc.b    2,9,1
  409.     dc.b    0,0,0,       0,21,0,      0,64,64,      0,0,0
  410.     dc.b    0,128,32,    0,0,0,       0,64,64,      0,21,0
  411.     dc.b    0,0,0
  412. * Define p = lower case pi
  413. lpi:    dc.b    2,9,1
  414.     dc.b    0,128,0,     0,0,0,       0,170,160,    0,0,0
  415.     dc.b    0,128,0,     0,0,0,       0,170,160,    0,0,0
  416.     dc.b    0,128,0
  417. * Define q = lower case delta
  418. ldelta:    dc.b    2,9,1
  419.     dc.b    0,0,0,       0,5,0,       14,144,64,    16,64,32
  420.     dc.b    32,32,0,     16,16,32,    8,8,64,       0,2,128
  421.     dc.b    0,0,0
  422. * Define r = lower case rho
  423. lrho:    dc.b    2,9,1
  424.     dc.b    0,0,0,       0,21,84,     0,64,128,     0,128,32
  425.     dc.b    0,0,0,       0,128,32,    0,64,64,      0,21,0
  426.     dc.b    0,0,0
  427. * Define s = lower case sigma
  428. lsigma:    dc.b    2,9,1
  429.     dc.b    0,14,0,      0,32,128,    0,128,64,     0,0,32
  430.     dc.b    0,128,0,     0,32,32,     0,142,128,    0,0,0
  431.     dc.b    0,128,0
  432. * Define t = lower case tau
  433. ltau:    dc.b    1,9,2
  434.     dc.b    0,128,0,     0,0,0,       0,170,192,    0,0,32
  435.     dc.b    0,128,64,    0,0,128,     0,128,0,      0,64,0
  436.     dc.b    0,40,0
  437. * Define u = lower case upsilon
  438. lupsi:    dc.b    2,9,1
  439.     dc.b    0,128,0,     0,64,0,      0,42,128,     0,0,32
  440.     dc.b    0,0,0,       0,0,32,      0,128,128,    0,42,0
  441.     dc.b    0,0,0
  442. * Define v = gradient operator
  443. lgrad:    dc.b    2,9,1
  444.     dc.b    42,0,0,      0,64,0,      32,8,0,       0,1,0
  445.     dc.b    32,0,32,     0,1,0,       32,8,0,       0,64,0
  446.     dc.b    42,0,0
  447. * Define w = lower case omega
  448. lomega:    dc.b    2,9,1
  449.     dc.b    0,21,0,      0,64,64,     0,128,32,     0,0,64
  450.     dc.b    0,5,0,       0,0,64,      0,128,32,     0,64,64
  451.     dc.b    0,21,0
  452. * Define x = lower case xi
  453. lexi:    dc.b    1,9,2
  454.     dc.b    0,0,0,       0,0,0,       0,0,0,        1,69,0
  455.     dc.b    34,40,128,   20,16,84,    8,0,32,       0,0,0
  456.     dc.b    0,0,0
  457. * Define y = lower case chi
  458. lchi:    dc.b    1,9,2
  459.     dc.b    2,0,0,       0,0,0,       2,0,32,       0,128,128
  460.     dc.b    0,34,0,      0,8,0,       0,34,0,       0,128,128
  461.     dc.b    2,0,32
  462. * Define z = lower case zeta
  463. lzeta:    dc.b    1,9,2
  464.     dc.b    0,0,0,       0,0,0,       49,80,0,      74,4,0
  465.     dc.b    4,1,40,      0,0,192,     4,0,0,        0,0,0
  466.     dc.b    0,0,0
  467. * Redefine characters from | to |
  468. init9:    dc.b    esc,'&',0,'||'
  469. * Define | = absolute value
  470. labs:    dc.b    2,9,1
  471.     dc.b    0,0,0,       0,0,0,       0,0,0,        0,0,0
  472.     dc.b    42,170,160,  0,0,0,       0,0,0,        0,0,0
  473.     dc.b    0,0,0
  474. * End of redefinition tables
  475. stop:    dc.b    bell,lf
  476. *#######################################################################
  477.     end
  478.