home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / program / c_say / say.s < prev    next >
Encoding:
Text File  |  1993-10-23  |  49.4 KB  |  1,640 lines
  1. ;    int    say(int mode, char *buf)
  2. ; prononce la suite de phonemes contenus dans buf.
  3. ; mode = 0:    retour immediat, silence en fin de phrase
  4. ; mode = 1:    attend la fin de la phrase.
  5. ; mode = 2:    retour immediat, sans silence en fin de phrase
  6.  
  7. TIMAVEC        equ    $000134
  8. GISELECT    equ    $ffff8800
  9. GIDATA        equ    $ffff8802
  10. IPRA        equ    $fffffa0b
  11. ISRA        equ    $fffffa0f
  12. IMRA        equ    $fffffa13
  13.  
  14.     .globl    _say
  15.     .globl    say
  16.     .globl    _set_pitch
  17.     .globl    set_pitch
  18.     .globl    _set_rate
  19.     .globl    set_rate
  20.     .globl    _say_copyright
  21.     .globl    say_copyright
  22.  
  23.     .text
  24.  
  25. _say_copyright:
  26. say_copyright:
  27.     dc.b    $0d,$0a,"MC68000/AY-3-8910 SPEECH SYNTHESIZER V:2.0"
  28.     dc.b    $0d,$0a,"Copyright 1986 A.D.BEVERIDGE & M.N.DAY"
  29.     dc.b    $0d,$0a,"ALL RIGHTS RESERVED.",$0d,$0a,$00
  30.     .even
  31.  
  32. _set_pitch:
  33. set_pitch:
  34.     link    a6,#0
  35.     move    __set_pitc,d1
  36.     bsr    verif
  37.     bmi    spit2
  38.     move.b    d0,__set_pitc
  39. spit2:
  40.     unlk    a6
  41.     rts
  42.  
  43. _set_rate:
  44. set_rate:
  45.     link    a6,#0
  46.     move    __set_rate,d1
  47.     bsr    verif
  48.     bmi    srat2
  49.     move.b    d0,__set_rate
  50. srat2:
  51.     unlk    a6
  52.     rts
  53. verif:
  54.     move    8(a6),d0
  55.     bmi    ret_old
  56.     cmpi    #200,d0
  57.     bhs    ret_bad
  58.     cmpi    #20,d0
  59.     blt    ret_bad
  60.     rts
  61. ret_bad:
  62.     moveq    #-1,d0
  63.     rts
  64. ret_old:
  65.     move    d1,d0
  66.     rts
  67.  
  68. ;*********
  69.  
  70. _say:
  71. say:
  72.     link    a6,#0
  73.     movem.l    d1-d7/a0-a5,-(sp)
  74.     move    8(a6),d0
  75.     cmpi    #3,d0
  76.     bne    saymd            ; mode 3: test
  77.     move.l    P3ae2,d0
  78.     beq    realbye
  79.     moveq    #1,d0
  80.     bra    realbye
  81. saymd:
  82.     move    d0,saymode
  83. waitp:
  84.     tst.l    P3ae2            ; attend la fin de la phrase
  85.     bne    waitp            ; precedente
  86. testptr:
  87.     move.l    10(a6),d0        ; si ptr = 0, sortie
  88.     beq    bye
  89.     move.l    d0,a0
  90.     tst.b    (a0)            ; si chaine vide, repetition
  91.     bne    decod
  92.     move    badbuf,d0
  93.     beq    repeat            ; ... apres verif du buffer
  94.     bra    bye
  95. decod:
  96.     bsr    stopsnd
  97.     bsr    decode            ; traitement de la phrase
  98.     tst.l    d0            ; sortie si elle est incorrecte
  99.     bne    badret
  100.     lea    phoneme(pc),a1
  101.     lea    P44c2(pc),a5
  102.     bsr    S196a            ; traite les AY OY
  103.     bsr    S1a68
  104.     bsr    S1a9a
  105.     bsr    S1ac4
  106.     bsr    S1b08
  107.     bsr    S1b5a
  108. repeat:
  109.     bsr    S2076
  110.  
  111.     moveq    #0,d0
  112. badret:    move    d0,badbuf
  113. bye:
  114.     cmpi    #1,saymode        ; en mode 1,
  115.     bne    realbye            ; attend la fin de phrase
  116. waitend:
  117.     tst.l    P3ae2
  118.     bne    waitend
  119. realbye:
  120.     movem.l    (sp)+,d1-d7/a0-a5
  121.     unlk    a6
  122.     rts
  123.  
  124. uppercase:
  125.     cmpi.b    #$61,d0
  126.     bcs    L18a0
  127.     cmpi.b    #$7b,d0
  128.     bcc    L18a0
  129.     subi.b    #$20,d0
  130. L18a0:    rts
  131.  
  132. ;*****************************************************************************
  133. ; entree: a0 = phrase
  134. ; decode les phonemes dans 'buffer'
  135. ; format de buffer: groupes de 4 octets termines par un mot a $FFFFFFFF
  136. ;    2 octets:    rang dans la table des phonemes
  137. ;    2 octets:    bits 0..3: hauteur, bit 6: raccourci, bit 7: rallonge
  138. ;*****************************************************************************
  139.  
  140. decode:    lea    buffer,a1
  141. L18a6:    move.l    #$ffffffff,(a1)
  142.     move.b    (a0)+,d0
  143.     beq    L193a
  144.  
  145.     cmpi.b    #$31,d0            ; chiffre 1..9
  146.     bcs    L18d0
  147.     cmpi.b    #$3a,d0
  148.     bcc    L18d0
  149.     subi.b    #$30,d0
  150.     tst.b    -2(a1)
  151.     bne    L1924
  152.     move.b    d0,-2(a1)
  153.     bra    L18a6
  154.  
  155. L18d0:    cmpi.b    #$3e,d0            ; '>'
  156.     bne    L18e4
  157.     move.b    -2(a1),d1
  158.     andi.b    #$C0,d1
  159.     bne    L1924
  160.     ori.b    #$80,-2(a1)
  161.     bra    L18a6
  162.  
  163. L18e4:    cmpi.b    #$3c,d0            ; '<'
  164.     bne    L18f8
  165.     move.b    -2(a1),d1
  166.     andi.b    #$C0,d1
  167.     bne    L1924
  168.     ori.b    #$40,-2(a1)
  169.     bra    L18a6
  170.  
  171. L18f8:    bsr    uppercase
  172.     move.b    d0,d1
  173.     move.b    (a0),d0
  174.     bsr    uppercase
  175.     lea    phoneme(pc),a2
  176.     moveq    #0,d2
  177. L1906:    cmp.b    0(a2,d2.w),d1
  178.     bne    L191a
  179.     cmpi.b    #$20,1(a2,d2.w)
  180.     beq    L192a
  181.     cmp.b    1(a2,d2.w),d0
  182.     beq    L1928
  183. L191a:    addi.w    #34,d2
  184.     tst.b    0(a2,d2.w)
  185.     bpl    L1906
  186. L1924:    moveq    #-1,d0
  187.     rts
  188.  
  189. L1928:    addq.l    #1,a0
  190. L192a:    move    d2,(a1)+
  191.     clr.w    (a1)+
  192.     cmpa.l    #buffer+1024,a1
  193.     beq    L1924
  194.     bra    L18a6
  195.  
  196. L193a:    cmpi    #2,saymode
  197.     beq    Lend
  198.     move    #_Q-phoneme,(a1)+
  199.     clr.w    (a1)+
  200. Lend:
  201.     move.l    #$ffffffff,(a1)+
  202. Lret:    moveq    #0,d0
  203.     rts
  204.  
  205. ;*********
  206. ; decale le buffer pour inserer 4 octets: d1.w d2.b et d3.b
  207. ;
  208. insert:
  209.     move.l    a1,-(a7)
  210.     lea    buffer+1020,a1
  211. L1950:    cmpa.l    a0,a1
  212.     beq    L195a
  213.     move.l    -(a1),4(a1)
  214.     bra    L1950
  215. L195a:    move    d1,0(a0)
  216.     move.b    d2,2(a0)
  217.     move.b    d3,3(a0)
  218.     movea.l    (a7)+,a1
  219.     rts
  220.  
  221. ;************
  222.  
  223. S196a:
  224.     lea    buffer,a0
  225. L196e:    moveq    #0,d0
  226.     move    (a0),d0
  227.     bmi    L1a66
  228.     cmpi    #_SPACE-phoneme,d0
  229.     beq    L1a5e
  230.     ble    L199a
  231.     move    2(a1,d0.w),(a0)
  232.     move    4(a1,d0.w),d1
  233.     move.b    2(a0),d2
  234.     moveq    #0,d3
  235.     addq.l    #4,a0
  236.     bsr    insert
  237.     subq.l    #4,a0
  238.     move    (a0),d0
  239.  
  240. L199a:    cmpi    #_UW-phoneme,d0
  241.     bgt    L19bc
  242.     move    #$0110,d1
  243.     cmpi    #$0044,d0
  244.     ble    L19ae
  245.     move    #$00ee,d1
  246. L19ae:    move.b    2(a0),d2
  247.     moveq    #0,d3
  248.     addq.l    #4,a0
  249.     bsr    insert
  250.     subq.l    #4,a0
  251.     move    (a0),d0
  252. L19bc:    cmpi    #_R-phoneme,d0
  253.     bne    L19e8
  254.     move    -4(a0),d1
  255.     bmi    L1a5e
  256.     cmpi    #_EH-phoneme,d1
  257.     bgt    L1a5e
  258.     move    4(a0),d1
  259.     bmi    L19e0
  260.     cmpi    #_EH-phoneme,d1
  261.     ble    L1a5e
  262. L19e0:    move    #_RX-phoneme,(a0)
  263.     bra    L1a5e
  264. L19e8:    cmpi    #_L-phoneme,d0
  265.     bne    L1a14
  266.     move    -4(a0),d1
  267.     bmi    L1a5e
  268.     cmpi    #_EH-phoneme,d1
  269.     bgt    L1a5e
  270.     move    4(a0),d1
  271.     bmi    L1a0e
  272.     cmpi    #_EH-phoneme,d1
  273.     ble    L1a5e
  274. L1a0e:    move    #_LX-phoneme,(a0)
  275.     bra    L1a5e
  276. L1a14:    cmpi    #_S-phoneme,d0
  277.     bne    L1a5e
  278.     cmpi    #_G-phoneme,-4(a0)
  279.     bne    L1a28
  280.     move    #_Z-phoneme,(a0)
  281.     bra    L1a5e
  282. L1a28:    cmpi    #_EH-phoneme,8(a0)
  283.     bgt    L1a5e
  284.     cmpi    #_P-phoneme,4(a0)
  285.     bne    L1a40
  286.     move    #_B-phoneme,4(a0)
  287.     bra    L1a5e
  288. L1a40:    cmpi    #_T-phoneme,4(a0)
  289.     bne    L1a50
  290.     move    #_D-phoneme,4(a0)
  291.     bra    L1a5e
  292. L1a50:    cmpi    #_K-phoneme,4(a0)
  293.     bne    L1a5e
  294.     move    #_G-phoneme,4(a0)
  295. L1a5e:    addq.l    #4,a0
  296.     tst.w    (a0)
  297.     bpl    L196e
  298. L1a66:    rts
  299.  
  300. ;**********
  301.  
  302. S1a68:
  303.     lea    buffer,a0
  304.     moveq    #0,d0
  305. L1a6e:    move    (a0),d0
  306.     bpl    L1a74
  307.     rts
  308. L1a74:    cmpi    #_EH-phoneme,d0
  309.     ble    L1a96
  310.     cmpi    #_S-phoneme,d0
  311.     bge    L1a96
  312.     move    4(a0),d0
  313.     bmi    L1a96
  314.     cmpi    #_EH-phoneme,d0
  315.     bgt    L1a96
  316.     move.b    6(a0),d0
  317.     beq    L1a96
  318.     move.b    d0,2(a0)
  319. L1a96:    addq.l    #4,a0
  320.     bra    L1a6e
  321.  
  322. ;***********
  323.  
  324. S1a9a:
  325.     lea    buffer,a0
  326. L1a9e:    move    (a0),d0
  327.     bmi    L1ac2
  328.     btst    #7,32(a1,d0.w)
  329.     beq    L1abe
  330.     move    d0,d1
  331.     addi.w    #34,d1
  332.     move.b    2(a0),d2
  333.     moveq    #0,d3
  334.     addq.l    #4,a0
  335.     bsr    insert
  336.     bra    L1a9e
  337. L1abe:    addq.l    #4,a0
  338.     bra    L1a9e
  339. L1ac2:    rts
  340.  
  341. ;*********
  342.  
  343. S1ac4:
  344.     lea    buffer,a0
  345.     moveq    #0,d0
  346. L1aca:    move    (a0),d0
  347.     bpl    L1ad0
  348.     rts
  349. L1ad0:    move.b    3(a1,d0.w),d1
  350.     move.b    2(a0),d2
  351.     bpl    L1ae4
  352.     move.b    d1,d3
  353.     lsr.b    #1,d3
  354.     addq.b    #1,d3
  355.     add.b    d3,d1
  356.     bra    L1af8
  357. L1ae4:    btst    #6,d2
  358.     beq    L1af0
  359.     lsr.b    #1,d1
  360.     addq.b    #1,d1
  361.     bra    L1af8
  362. L1af0:    tst.b    d2
  363.     beq    L1af8
  364.     move.b    2(a1,d0.w),d1
  365. L1af8:    andi.w    #$3f,d2
  366.     move.b    d2,2(a0)
  367.     move.b    d1,3(a0)
  368.     addq.l    #4,a0
  369.     bra    L1aca
  370.  
  371. ;***********
  372.  
  373. S1b08:
  374.     lea    buffer,a0
  375.     moveq    #0,d0
  376. L1b0e:    move    (a0),d0
  377.     bmi    L1b58
  378.     cmpi    #_S-phoneme,d0
  379.     ble    L1b54
  380.     moveq    #0,d4
  381. L1b1a:    subq.l    #4,d4
  382.     move    0(a0,d4.w),d0
  383.     bmi    L1b54
  384.     cmpi    #_S-phoneme,d0
  385.     bgt    L1b50
  386.     cmpi    #_EH-phoneme,d0
  387.     bgt    L1b1a
  388.     bra    L1b50
  389. L1b30:    move    0(a0,d4.w),d0
  390.     btst    #5,32(a1,d0.w)
  391.     beq    L1b44
  392.     btst    #6,32(a1,d0.w)
  393.     beq    L1b50
  394. L1b44:    move.b    3(a0,d4.w),d1
  395.     lsr.b    #1,d1
  396.     addq.b    #1,d1
  397.     add.b    d1,3(a0,d4.w)
  398. L1b50:    addq.l    #4,d4
  399.     bne    L1b30
  400. L1b54:    addq.l    #4,a0
  401.     bra    L1b0e
  402. L1b58:    rts
  403.  
  404. ;**********
  405.  
  406. S1b5a:
  407.     lea    buffer,a0
  408.     lea    spchbuff,a2
  409.     moveq    #0,d0            ; efface le buffer de parole (9 ko)
  410.     move    #$011f,d1
  411. L1b70:    move.l    d0,(a2)+
  412.     move.l    d0,(a2)+
  413.     move.l    d0,(a2)+
  414.     move.l    d0,(a2)+
  415.     move.l    d0,(a2)+
  416.     move.l    d0,(a2)+
  417.     move.l    d0,(a2)+
  418.     move.l    d0,(a2)+
  419.     dbra    d1,L1b70
  420.  
  421.     lea    spchbuff,a2
  422.     moveq    #0,d1
  423.     move.b    d0,20(a5)
  424.     move.b    d0,21(a5)
  425. L1b92:    move    (a0),d0
  426.     bmi    L1e12
  427.     move    4(a1,d0.w),2(a5)
  428.     move    8(a1,d0.w),8(a5)
  429.     move    12(a1,d0.w),14(a5)
  430.     move.b    21(a1,d0.w),5(a5)
  431.     move.b    23(a1,d0.w),11(a5)
  432.     move.b    25(a1,d0.w),17(a5)
  433.     move.b    27(a1,d0.w),19(a5)
  434.     moveq    #0,d4
  435.     move    d4,24(a5)
  436.     move    d4,26(a5)
  437.     move.b    20(a5),d4
  438.     cmp.b    3(a0),d4
  439.     ble    L1bdc
  440.     move.b    3(a0),20(a5)
  441. L1bdc:    move.b    21(a5),d4
  442.     cmp.b    3(a0),d4
  443.     ble    L1bec
  444.     move.b    3(a0),21(a5)
  445. L1bec:    bsr    S1f04
  446.     move.b    20(a5),24(a5)
  447.     move.b    21(a5),26(a5)
  448.     move    2(a5),0(a5)
  449.     move    8(a5),6(a5)
  450.     move    14(a5),12(a5)
  451.     move.b    5(a5),4(a5)
  452.     move.b    11(a5),10(a5)
  453.     move.b    17(a5),16(a5)
  454.     move.b    19(a5),18(a5)
  455.     move    4(a0),d1
  456.     bmi    L1e12
  457.     move.b    $0010(a1,d0.w),d2
  458.     cmp.b    $0010(a1,d1.w),d2
  459.     bge    L1c54
  460.     move.b    $0014(a1,d1.w),$0016(a5)
  461.     move.b    $0013(a1,d1.w),$0014(a5)
  462.     move.b    $001f(a1,d1.w),$0017(a5)
  463.     move.b    $001e(a1,d1.w),$0015(a5)
  464.     exg    d0,d1
  465.     bra    L1c6c
  466. L1c54:    move.b    $0014(a1,d0.w),$0014(a5)
  467.     move.b    $0013(a1,d0.w),$0016(a5)
  468.     move.b    $001f(a1,d0.w),$0015(a5)
  469.     move.b    $001e(a1,d0.w),$0017(a5)
  470. L1c6c:    move.b    $0003(a0),d6
  471.     cmp.b    $0014(a5),d6
  472.     bge    L1c7a
  473.     move.b    d6,$0014(a5)
  474. L1c7a:    cmp.b    $0015(a5),d6
  475.     bge    L1c84
  476.     move.b    d6,$0015(a5)
  477. L1c84:    cmpi    #_R-phoneme,d1
  478.     bne    L1c8e
  479.     moveq    #$00,d2
  480.     bra    L1c9a
  481. L1c8e:    move    $0004(a1,d1.w),d2
  482.     move.b    $0011(a1,d0.w),d3
  483.     bsr    S204c
  484. L1c9a:    add.w    $0006(a1,d0.w),d2
  485.     move    d2,$0002(a5)
  486.     move    $0008(a1,d1.w),d2
  487.     move.b    $0011(a1,d0.w),d3
  488.     bsr    S204c
  489.     add.w    $000a(a1,d0.w),d2
  490.     move    d2,$0008(a5)
  491.     move    $000c(a1,d1.w),d2
  492.     move.b    $0012(a1,d0.w),d3
  493.     bsr    S204c
  494.     add.w    $000e(a1,d0.w),d2
  495.     move    d2,$000e(a5)
  496.     move.b    $0015(a1,d1.w),d2
  497.     ext.w    d2
  498.     move.b    $001d(a1,d0.w),d3
  499.     bsr    S204c
  500.     add.b    $0016(a1,d0.w),d2
  501.     move.b    d2,$0005(a5)
  502.     move.b    $0017(a1,d1.w),d2
  503.     ext.w    d2
  504.     move.b    $001d(a1,d0.w),d3
  505.     bsr    S204c
  506.     add.b    $0018(a1,d0.w),d2
  507.     move.b    d2,$000b(a5)
  508.     move.b    $0019(a1,d1.w),d2
  509.     ext.w    d2
  510.     move.b    $001d(a1,d0.w),d3
  511.     bsr    S204c
  512.     add.b    $001a(a1,d0.w),d2
  513.     move.b    d2,$0011(a5)
  514.     move.b    $001b(a1,d1.w),d2
  515.     ext.w    d2
  516.     move.b    $001d(a1,d0.w),d3
  517.     bsr    S204c
  518.     add.b    $001c(a1,d0.w),d2
  519.     move.b    d2,$0013(a5)
  520.     moveq    #$00,d2
  521.     move.b    $0003(a0),d2
  522.     sub.b    $0018(a5),d2
  523.     sub.b    $0014(a5),d2
  524.     ble    L1d6e
  525.     moveq    #$00,d3
  526.     move.b    $0018(a5),d3
  527.     mulu    #$0009,d3
  528.     bra    L1d6a
  529. L1d3e:    move    $0000(a5),d7
  530.     bsr    S205c
  531.     move.b    d7,$0003(a2,d3.w)
  532.     move    $0006(a5),d7
  533.     bsr    S205c
  534.     move.b    d7,$0005(a2,d3.w)
  535.     move    $000c(a5),d7
  536.     bsr    S205c
  537.     move.b    d7,$0007(a2,d3.w)
  538.     addi.w    #$0009,d3
  539.     addq.b    #1,$0018(a5)
  540. L1d6a:    dbra    d2,L1d3e
  541. L1d6e:    moveq    #$00,d2
  542.     move.b    $0003(a0),d2
  543.     sub.b    $001a(a5),d2
  544.     sub.b    $0015(a5),d2
  545.     ble    L1dc6
  546.     moveq    #$00,d3
  547.     move.b    $001a(a5),d3
  548.     mulu    #9,d3
  549.     bra    L1dc2
  550. L1d8a:    move.b    4(a5),d7
  551.     bsr    S2064
  552.     move.b    d7,4(a2,d3.w)
  553.     move.b    10(a5),d7
  554.     bsr    S2064
  555.     move.b    d7,6(a2,d3.w)
  556.     move.b    16(a5),d7
  557.     bsr    S2064
  558.     move.b    d7,8(a2,d3.w)
  559.     move.b    18(a5),d7
  560.     bsr    S2064
  561.     move.b    d7,1(a2,d3.w)
  562.     addi.w    #9,d3
  563.     addq.b    #1,$001a(a5)
  564. L1dc2:    dbra    d2,L1d8a
  565. L1dc6:    bsr    S1f04
  566.     move    $0002(a5),$0000(a5)
  567.     move    $0008(a5),$0006(a5)
  568.     move    $000e(a5),$000c(a5)
  569.     move.b    $0005(a5),$0004(a5)
  570.     move.b    $000b(a5),$000a(a5)
  571.     move.b    $0011(a5),$0010(a5)
  572.     move.b    $0013(a5),$0012(a5)
  573.     move.b    $0016(a5),$0014(a5)
  574.     move.b    $0017(a5),$0015(a5)
  575.     moveq    #0,d0
  576.     move.b    3(a0),d0
  577.     mulu    #9,d0
  578.     adda.l    d0,a2
  579.     addq.l    #4,a0
  580.     bra    L1b92
  581. L1e12:    clr.b    (a2)
  582.     lea    spchbuff,a2
  583.     lea    buffer,a0
  584. L1e1c:    move    (a0),d0
  585.     bmi    L1e3c
  586.     moveq    #0,d1
  587.     move.b    3(a0),d1
  588.     move.b    $0021(a1,d0.w),d2
  589.     bra    L1e34
  590. L1e2c:    move.b    d2,2(a2)
  591.     adda.w    #9,a2
  592. L1e34:    dbra    d1,L1e2c
  593.     addq.l    #4,a0
  594.     bra    L1e1c
  595.  
  596. L1e3c:    lea    buffer,a0
  597.     lea    spchbuff,a2
  598.     moveq    #$42,d0
  599.     moveq    #0,d2
  600. L1e48:    move    (a0),d4
  601.     bmi    L1f02
  602.     moveq    #$00,d5
  603.     move.b    3(a0),d5
  604.     subq.b    #1,d5
  605.     blt    L1e84
  606.     cmpi    #_SPACE-phoneme,d4
  607.     beq    L1e6a
  608.     cmpi    #_S-phoneme,d4
  609.     bgt    L1ea8
  610.     tst.b    2(a0)
  611.     bne    L1e88
  612. L1e6a:    move.b    d0,0(a2)
  613.     cmpi.b    #$42,d0
  614.     beq    L1e7c
  615.     blt    L1e7a
  616.     subq.b    #1,d0
  617.     bra    L1e7c
  618. L1e7a:    addq.b    #1,d0
  619. L1e7c:    adda.w    #9,a2
  620.     dbra    d5,L1e6a
  621.  
  622. L1e84:    addq.l    #4,a0
  623.     bra    L1e48
  624.  
  625. L1e88:    moveq    #0,d0
  626.     move.b    2(a0),d0
  627.     move.b    d0,d7
  628.     add.b    d0,d0
  629.     add.b    d7,d0
  630.     neg.b    d0
  631.     addi.b    #$42,d0
  632. L1e9a:    move.b    d0,0(a2)
  633.     adda.w    #9,a2
  634.     dbra    d5,L1e9a
  635.     bra    L1e84
  636.  
  637. L1ea8:    moveq    #-$14,d2
  638.     moveq    #0,d3
  639. L1eac:    subi.w    #4,d3
  640.     tst.w    0(a0,d3.w)
  641.     bmi    L1ec8
  642.     cmpi    #_S-phoneme,0(a0,d3.w)
  643.     bgt    L1ec8
  644.     moveq    #0,d4
  645.     add.b    3(a0,d3.w),d2
  646.     blt    L1eac
  647.     moveq    #$00,d2
  648. L1ec8:    addi.b    #$14,d2
  649.     beq    L1efc
  650.     cmpi    #$0880,(a0)
  651.     bne    L1ed8
  652.     moveq    #$01,d1
  653.     bra    L1ee8
  654. L1ed8:    cmpi    #$08c4,(a0)
  655.     bne    L1ee2
  656.     moveq    #-1,d1
  657.     bra    L1ee8
  658. L1ee2:    moveq    #$01,d1
  659.     lsr.b    #1,d2
  660.     addq.b    #1,d2
  661. L1ee8:    ext.w    d2
  662.     muls    #-9,d2
  663.     moveq    #0,d3
  664. L1ef0:    add.b    d1,d3
  665.     add.b    d3,0(a2,d2.w)
  666.     addi    #9,d2
  667.     ble    L1ef0
  668. L1efc:    moveq    #$42,d0
  669.     bra    L1e6a
  670. L1f02:    rts
  671.  
  672. ;**********
  673.  
  674. S1f04:
  675.     movem.l    d0-d7,-(a7)
  676.     moveq    #0,d0
  677.     move.b    24(a5),d0
  678.     mulu    #9,d0
  679.     lea    0(a2,d0.w),a3
  680.     move    0(a5),d0
  681.     move    2(a5),d1
  682.     lea    3(a3),a4
  683.     moveq    #0,d2
  684.     move.b    20(a5),d2
  685.     bsr    S1fc4
  686.     move    6(a5),d0
  687.     move    8(a5),d1
  688.     lea    5(a3),a4
  689.     moveq    #0,d2
  690.     move.b    20(a5),d2
  691.     bsr    S1fc4
  692.     move    12(a5),d0
  693.     move    14(a5),d1
  694.     lea    7(a3),a4
  695.     moveq    #0,d2
  696.     move.b    20(a5),d2
  697.     bsr    S1fc4
  698.     moveq    #0,d0
  699.     move.b    26(a5),d0
  700.     mulu    #9,d0
  701.     lea    0(a2,d0.w),a3
  702.     move.b    4(a5),d0
  703.     move.b    5(a5),d1
  704.     lea    4(a3),a4
  705.     moveq    #0,d2
  706.     move.b    21(a5),d2
  707.     bsr    S1ffe
  708.     move.b    10(a5),d0
  709.     move.b    11(a5),d1
  710.     lea    6(a3),a4
  711.     moveq    #0,d2
  712.     move.b    21(a5),d2
  713.     bsr    S1ffe
  714.     move.b    16(a5),d0
  715.     move.b    17(a5),d1
  716.     lea    8(a3),a4
  717.     moveq    #0,d2
  718.     move.b    21(a5),d2
  719.     bsr    S1ffe
  720.     move.b    18(a5),d0
  721.     move.b    19(a5),d1
  722.     lea    1(a3),a4
  723.     moveq    #0,d2
  724.     move.b    21(a5),d2
  725.     bsr    S1ffe
  726.     movem.l    (a7)+,d0-d7
  727.     rts
  728.  
  729. ;**********
  730.  
  731. S1fc4:
  732.     tst.b    d2
  733.     beq    L1ffc
  734.     move    d1,d3
  735.     sub.w    d0,d3
  736.     ext.l    d3
  737.     divs    d2,d3
  738.     move    d3,d4
  739.     asr.w    #1,d4
  740.     add.w    d4,d0
  741.     bra    L1ff8
  742. L1fd8:    move    d0,d7
  743.     bsr    S205c
  744.     tst.b    (a4)
  745.     beq    L1ff0
  746.     tst.l    d3
  747.     bmi    L1fec
  748.     cmp.b    (a4),d7
  749.     bgt    L1ff0
  750.     bra    L1ff2
  751. L1fec:    cmp.b    (a4),d7
  752.     bge    L1ff2
  753. L1ff0:    move.b    d7,(a4)
  754. L1ff2:    add.w    d3,d0
  755.     adda.w    #9,a4
  756. L1ff8:    dbra    d2,L1fd8
  757. L1ffc:    rts
  758.  
  759. ;**********
  760.  
  761. S1ffe:
  762.     tst.b    d2
  763.     beq    L204a
  764.     andi.l    #$ff,d0
  765.     move.b    d1,d3
  766.     sub.b    d0,d3
  767.     lsl.w    #8,d3
  768.     ext.l    d3
  769.     divs    d2,d3
  770.     ext.l    d3
  771.     lsl.l    #8,d3
  772.     move.l    d3,d4
  773.     asr.l    #1,d4
  774.     swap    d0
  775.     add.l    d4,d0
  776.     swap    d0
  777.     bra    L2046
  778. L2022:    move.b    d0,d7
  779.     bsr    S2064
  780.     tst.b    (a4)
  781.     beq    L203a
  782.     tst.l    d3
  783.     bmi    L2036
  784.     cmp.b    (a4),d7
  785.     bgt    L203a
  786.     bra    L203c
  787. L2036:    cmp.b    (a4),d7
  788.     bge    L203c
  789. L203a:    move.b    d7,(a4)
  790. L203c:    swap    d0
  791.     add.l    d3,d0
  792.     swap    d0
  793.     adda.w    #9,a4
  794. L2046:    dbra    d2,L2022
  795. L204a:    rts
  796.  
  797. ;**********
  798.  
  799. S204c:
  800.     tst.b    d3
  801.     beq    L2058
  802.     subq.b    #1,d3
  803.     bne    L2056
  804.     asr.w    #1,d2
  805. L2056:    rts
  806. L2058:    moveq    #0,d2
  807.     rts
  808. S205c:
  809.     addi.w    #16,d7
  810.     lsr.w    #5,d7
  811.     rts
  812.  
  813. ;**********
  814.  
  815. S2064:
  816.     move.b    d7,d6
  817.     add.b    d6,d6
  818.     add.b    d6,d7
  819.     subi.b    #$59,d7
  820.     bpl    L2072
  821.     moveq    #$00,d7
  822. L2072:    lsr.b    #2,d7
  823.     rts
  824.  
  825. ;**********
  826.  
  827. S2076:
  828.     moveq    #$00,d0
  829.     moveq    #$00,d1
  830.     move.b    __set_pitc(pc),d0
  831.     move.b    d0,use_pitc
  832.     move.b    __set_rate(pc),d1
  833.     mulu    #$004d,d1
  834.     divu    d0,d1
  835.     move.b    d1,use_rate
  836.     clr.b    P3ae6
  837.     move.l    #spchbuff,P3ae2
  838.     pea    opwaves(pc)
  839.     move    d0,-(a7)
  840.     move    #1,-(a7)
  841.     clr    -(a7)
  842.     move    #31,-(a7)
  843.     trap    #14
  844.     adda.w    #12,a7
  845.     rts
  846.  
  847. ;    data
  848.  
  849. P20ca:    dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  850.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  851.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  852.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  853.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  854.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  855.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  856.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  857.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  858.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  859.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  860.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  861.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  862.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  863.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  864.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  865.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0001
  866.     dc.w    $0101,$0101,$0101,$0101,$0101,$0101,$0101,$0101
  867.     dc.w    $0202,$0202,$0202,$0202,$0202,$0202,$0202,$0202
  868.     dc.w    $0202,$0202,$0202,$0202,$0202,$0202,$0202,$0202
  869.     dc.w    $0202,$0202,$0202,$0202,$0202,$0202,$0202,$0202
  870.     dc.w    $0202,$0202,$0202,$0202,$0202,$0202,$0202,$0202
  871.     dc.w    $0201,$0101,$0101,$0101,$0101,$0101,$0101,$0101
  872.     dc.w    $0101,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  873.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$00FF
  874.     dc.w    $FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF
  875.     dc.w    $FEFE,$FEFE,$FEFE,$FEFE,$FEFE,$FEFE,$FEFE,$FEFE
  876.     dc.w    $FEFE,$FEFE,$FEFE,$FEFE,$FEFE,$FEFE,$FEFE,$FEFE
  877.     dc.w    $FEFE,$FEFE,$FEFE,$FEFE,$FEFE,$FEFE,$FEFE,$FEFE
  878.     dc.w    $FEFE,$FEFE,$FEFE,$FEFE,$FEFE,$FEFE,$FEFE,$FEFE
  879.     dc.w    $FEFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF
  880.     dc.w    $FFFF,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  881.     dc.w    $0000,$0000,$0000,$0000,$0101,$0101,$0101,$0102
  882.     dc.w    $0202,$0202,$0202,$0203,$0303,$0303,$0303,$0303
  883.     dc.w    $0404,$0404,$0404,$0404,$0404,$0404,$0405,$0505
  884.     dc.w    $0505,$0505,$0505,$0505,$0505,$0505,$0505,$0505
  885.     dc.w    $0505,$0505,$0505,$0505,$0505,$0505,$0505,$0505
  886.     dc.w    $0505,$0505,$0404,$0404,$0404,$0404,$0404,$0404
  887.     dc.w    $0403,$0303,$0303,$0303,$0303,$0202,$0202,$0202
  888.     dc.w    $0202,$0101,$0101,$0101,$0100,$0000,$0000,$0000
  889.     dc.w    $0000,$0000,$0000,$0000,$FFFF,$FFFF,$FFFF,$FFFE
  890.     dc.w    $FEFE,$FEFE,$FEFE,$FEFD,$FDFD,$FDFD,$FDFD,$FDFD
  891.     dc.w    $FCFC,$FCFC,$FCFC,$FCFC,$FCFC,$FCFC,$FCFB,$FBFB
  892.     dc.w    $FBFB,$FBFB,$FBFB,$FBFB,$FBFB,$FBFB,$FBFB,$FBFB
  893.     dc.w    $FBFB,$FBFB,$FBFB,$FBFB,$FBFB,$FBFB,$FBFB,$FBFB
  894.     dc.w    $FBFB,$FBFB,$FCFC,$FCFC,$FCFC,$FCFC,$FCFC,$FCFC
  895.     dc.w    $FCFD,$FDFD,$FDFD,$FDFD,$FDFD,$FEFE,$FEFE,$FEFE
  896.     dc.w    $FEFE,$FFFF,$FFFF,$FFFF,$FF00,$0000,$0000,$0000
  897.     dc.w    $0000,$0000,$0001,$0101,$0101,$0202,$0202,$0203
  898.     dc.w    $0303,$0303,$0404,$0404,$0404,$0505,$0505,$0505
  899.     dc.w    $0606,$0606,$0606,$0606,$0707,$0707,$0707,$0707
  900.     dc.w    $0707,$0808,$0808,$0808,$0808,$0808,$0808,$0808
  901.     dc.w    $0808,$0808,$0808,$0808,$0808,$0808,$0808,$0807
  902.     dc.w    $0707,$0707,$0707,$0707,$0706,$0606,$0606,$0606
  903.     dc.w    $0605,$0505,$0505,$0504,$0404,$0404,$0403,$0303
  904.     dc.w    $0303,$0202,$0202,$0201,$0101,$0101,$0000,$0000
  905.     dc.w    $0000,$0000,$00FF,$FFFF,$FFFF,$FEFE,$FEFE,$FEFD
  906.     dc.w    $FDFD,$FDFD,$FCFC,$FCFC,$FCFC,$FBFB,$FBFB,$FBFB
  907.     dc.w    $FAFA,$FAFA,$FAFA,$FAFA,$F9F9,$F9F9,$F9F9,$F9F9
  908.     dc.w    $F9F9,$F8F8,$F8F8,$F8F8,$F8F8,$F8F8,$F8F8,$F8F8
  909.     dc.w    $F8F8,$F8F8,$F8F8,$F8F8,$F8F8,$F8F8,$F8F8,$F8F9
  910.     dc.w    $F9F9,$F9F9,$F9F9,$F9F9,$F9FA,$FAFA,$FAFA,$FAFA
  911.     dc.w    $FAFB,$FBFB,$FBFB,$FBFC,$FCFC,$FCFC,$FCFD,$FDFD
  912.     dc.w    $FDFD,$FEFE,$FEFE,$FEFF,$FFFF,$FFFF,$0000,$0000
  913.     dc.w    $0000,$0000,$0101,$0101,$0202,$0203,$0303,$0304
  914.     dc.w    $0404,$0405,$0505,$0506,$0606,$0606,$0707,$0707
  915.     dc.w    $0808,$0808,$0808,$0909,$0909,$0909,$090A,$0A0A
  916.     dc.w    $0A0A,$0A0A,$0A0A,$0A0B,$0B0B,$0B0B,$0B0B,$0B0B
  917.     dc.w    $0B0B,$0B0B,$0B0B,$0B0B,$0B0B,$0A0A,$0A0A,$0A0A
  918.     dc.w    $0A0A,$0A0A,$0909,$0909,$0909,$0908,$0808,$0808
  919.     dc.w    $0807,$0707,$0706,$0606,$0606,$0505,$0505,$0404
  920.     dc.w    $0404,$0303,$0303,$0202,$0201,$0101,$0100,$0000
  921.     dc.w    $0000,$0000,$FFFF,$FFFF,$FEFE,$FEFD,$FDFD,$FDFC
  922.     dc.w    $FCFC,$FCFB,$FBFB,$FBFA,$FAFA,$FAFA,$F9F9,$F9F9
  923.     dc.w    $F8F8,$F8F8,$F8F8,$F7F7,$F7F7,$F7F7,$F7F6,$F6F6
  924.     dc.w    $F6F6,$F6F6,$F6F6,$F6F5,$F5F5,$F5F5,$F5F5,$F5F5
  925.     dc.w    $F5F5,$F5F5,$F5F5,$F5F5,$F5F5,$F6F6,$F6F6,$F6F6
  926.     dc.w    $F6F6,$F6F6,$F7F7,$F7F7,$F7F7,$F7F8,$F8F8,$F8F8
  927.     dc.w    $F8F9,$F9F9,$F9FA,$FAFA,$FAFA,$FBFB,$FBFB,$FCFC
  928.     dc.w    $FCFC,$FDFD,$FDFD,$FEFE,$FEFF,$FFFF,$FF00,$0000
  929.     dc.w    $0000,$0001,$0101,$0202,$0203,$0303,$0404,$0405
  930.     dc.w    $0505,$0606,$0606,$0707,$0708,$0808,$0809,$0909
  931.     dc.w    $0A0A,$0A0A,$0A0B,$0B0B,$0B0B,$0C0C,$0C0C,$0C0C
  932.     dc.w    $0D0D,$0D0D,$0D0D,$0D0D,$0D0D,$0E0E,$0E0E,$0E0E
  933.     dc.w    $0E0E,$0E0E,$0E0E,$0E0D,$0D0D,$0D0D,$0D0D,$0D0D
  934.     dc.w    $0D0C,$0C0C,$0C0C,$0C0B,$0B0B,$0B0B,$0A0A,$0A0A
  935.     dc.w    $0A09,$0909,$0808,$0808,$0707,$0706,$0606,$0605
  936.     dc.w    $0505,$0404,$0403,$0303,$0202,$0201,$0101,$0000
  937.     dc.w    $0000,$00FF,$FFFF,$FEFE,$FEFD,$FDFD,$FCFC,$FCFB
  938.     dc.w    $FBFB,$FAFA,$FAFA,$F9F9,$F9F8,$F8F8,$F8F7,$F7F7
  939.     dc.w    $F6F6,$F6F6,$F6F5,$F5F5,$F5F5,$F4F4,$F4F4,$F4F4
  940.     dc.w    $F3F3,$F3F3,$F3F3,$F3F3,$F3F3,$F2F2,$F2F2,$F2F2
  941.     dc.w    $F2F2,$F2F2,$F2F2,$F2F3,$F3F3,$F3F3,$F3F3,$F3F3
  942.     dc.w    $F3F4,$F4F4,$F4F4,$F4F5,$F5F5,$F5F5,$F6F6,$F6F6
  943.     dc.w    $F6F7,$F7F7,$F8F8,$F8F8,$F9F9,$F9FA,$FAFA,$FAFB
  944.     dc.w    $FBFB,$FCFC,$FCFD,$FDFD,$FEFE,$FEFF,$FFFF,$0000
  945.     dc.w    $0000,$0001,$0102,$0202,$0303,$0404,$0405,$0506
  946.     dc.w    $0606,$0707,$0808,$0809,$0909,$0A0A,$0A0B,$0B0B
  947.     dc.w    $0C0C,$0C0C,$0D0D,$0D0D,$0E0E,$0E0E,$0E0F,$0F0F
  948.     dc.w    $0F0F,$1010,$1010,$1010,$1010,$1010,$1010,$1010
  949.     dc.w    $1010,$1010,$1010,$1010,$1010,$1010,$1010,$100F
  950.     dc.w    $0F0F,$0F0F,$0E0E,$0E0E,$0E0D,$0D0D,$0D0C,$0C0C
  951.     dc.w    $0C0B,$0B0B,$0A0A,$0A09,$0909,$0808,$0807,$0706
  952.     dc.w    $0606,$0505,$0404,$0403,$0302,$0202,$0101,$0000
  953.     dc.w    $0000,$00FF,$FFFE,$FEFE,$FDFD,$FCFC,$FCFB,$FBFA
  954.     dc.w    $FAFA,$F9F9,$F8F8,$F8F7,$F7F7,$F6F6,$F6F5,$F5F5
  955.     dc.w    $F4F4,$F4F4,$F3F3,$F3F3,$F2F2,$F2F2,$F2F1,$F1F1
  956.     dc.w    $F1F1,$F0F0,$F0F0,$F0F0,$F0F0,$F0F0,$F0F0,$F0F0
  957.     dc.w    $F0F0,$F0F0,$F0F0,$F0F0,$F0F0,$F0F0,$F0F0,$F0F1
  958.     dc.w    $F1F1,$F1F1,$F2F2,$F2F2,$F2F3,$F3F3,$F3F4,$F4F4
  959.     dc.w    $F4F5,$F5F5,$F6F6,$F6F7,$F7F7,$F8F8,$F8F9,$F9FA
  960.     dc.w    $FAFA,$FBFB,$FCFC,$FCFD,$FDFE,$FEFE,$FFFF,$0000
  961.     dc.w    $0000,$0001,$0102,$0203,$0304,$0405,$0506,$0607
  962.     dc.w    $0708,$0808,$0909,$0A0A,$0B0B,$0B0C,$0C0C,$0D0D
  963.     dc.w    $0E0E,$0E0F,$0F0F,$0F10,$1010,$1111,$1111,$1112
  964.     dc.w    $1212,$1212,$1213,$1313,$1313,$1313,$1313,$1313
  965.     dc.w    $1313,$1313,$1313,$1313,$1313,$1313,$1212,$1212
  966.     dc.w    $1212,$1111,$1111,$1110,$1010,$0F0F,$0F0F,$0E0E
  967.     dc.w    $0E0D,$0D0C,$0C0C,$0B0B,$0B0A,$0A09,$0908,$0808
  968.     dc.w    $0707,$0606,$0505,$0404,$0303,$0202,$0101,$0000
  969.     dc.w    $0000,$00FF,$FFFE,$FEFD,$FDFC,$FCFB,$FBFA,$FAF9
  970.     dc.w    $F9F8,$F8F8,$F7F7,$F6F6,$F5F5,$F5F4,$F4F4,$F3F3
  971.     dc.w    $F2F2,$F2F1,$F1F1,$F1F0,$F0F0,$EFEF,$EFEF,$EFEE
  972.     dc.w    $EEEE,$EEEE,$EEED,$EDED,$EDED,$EDED,$EDED,$EDED
  973.     dc.w    $EDED,$EDED,$EDED,$EDED,$EDED,$EDED,$EEEE,$EEEE
  974.     dc.w    $EEEE,$EFEF,$EFEF,$EFF0,$F0F0,$F1F1,$F1F1,$F2F2
  975.     dc.w    $F2F3,$F3F4,$F4F4,$F5F5,$F5F6,$F6F7,$F7F8,$F8F8
  976.     dc.w    $F9F9,$FAFA,$FBFB,$FCFC,$FDFD,$FEFE,$FFFF,$0000
  977.     dc.w    $0000,$0101,$0202,$0303,$0404,$0506,$0607,$0708
  978.     dc.w    $0809,$090A,$0A0B,$0B0C,$0C0D,$0D0D,$0E0E,$0F0F
  979.     dc.w    $1010,$1011,$1111,$1212,$1213,$1313,$1314,$1414
  980.     dc.w    $1415,$1515,$1515,$1516,$1616,$1616,$1616,$1616
  981.     dc.w    $1616,$1616,$1616,$1616,$1616,$1515,$1515,$1515
  982.     dc.w    $1414,$1414,$1313,$1313,$1212,$1211,$1111,$1010
  983.     dc.w    $100F,$0F0E,$0E0D,$0D0D,$0C0C,$0B0B,$0A0A,$0909
  984.     dc.w    $0808,$0707,$0606,$0504,$0403,$0302,$0201,$0100
  985.     dc.w    $0000,$FFFF,$FEFE,$FDFD,$FCFC,$FBFA,$FAF9,$F9F8
  986.     dc.w    $F8F7,$F7F6,$F6F5,$F5F4,$F4F3,$F3F3,$F2F2,$F1F1
  987.     dc.w    $F0F0,$F0EF,$EFEF,$EEEE,$EEED,$EDED,$EDEC,$ECEC
  988.     dc.w    $ECEB,$EBEB,$EBEB,$EBEA,$EAEA,$EAEA,$EAEA,$EAEA
  989.     dc.w    $EAEA,$EAEA,$EAEA,$EAEA,$EAEA,$EBEB,$EBEB,$EBEB
  990.     dc.w    $ECEC,$ECEC,$EDED,$EDED,$EEEE,$EEEF,$EFEF,$F0F0
  991.     dc.w    $F0F1,$F1F2,$F2F3,$F3F3,$F4F4,$F5F5,$F6F6,$F7F7
  992.     dc.w    $F8F8,$F9F9,$FAFA,$FBFC,$FCFD,$FDFE,$FEFF,$FF00
  993.     dc.w    $0000,$0101,$0203,$0304,$0405,$0606,$0707,$0809
  994.     dc.w    $090A,$0A0B,$0C0C,$0D0D,$0E0E,$0F0F,$1010,$1111
  995.     dc.w    $1212,$1213,$1314,$1414,$1515,$1516,$1616,$1717
  996.     dc.w    $1717,$1818,$1818,$1818,$1919,$1919,$1919,$1919
  997.     dc.w    $1919,$1919,$1919,$1919,$1918,$1818,$1818,$1817
  998.     dc.w    $1717,$1716,$1616,$1515,$1514,$1414,$1313,$1212
  999.     dc.w    $1211,$1110,$100F,$0F0E,$0E0D,$0D0C,$0C0B,$0A0A
  1000.     dc.w    $0909,$0807,$0706,$0605,$0404,$0303,$0201,$0100
  1001.     dc.w    $0000,$FFFF,$FEFD,$FDFC,$FCFB,$FAFA,$F9F9,$F8F7
  1002.     dc.w    $F7F6,$F6F5,$F4F4,$F3F3,$F2F2,$F1F1,$F0F0,$EFEF
  1003.     dc.w    $EEEE,$EEED,$EDEC,$ECEC,$EBEB,$EBEA,$EAEA,$E9E9
  1004.     dc.w    $E9E9,$E8E8,$E8E8,$E8E8,$E7E7,$E7E7,$E7E7,$E7E7
  1005.     dc.w    $E7E7,$E7E7,$E7E7,$E7E7,$E7E8,$E8E8,$E8E8,$E8E9
  1006.     dc.w    $E9E9,$E9EA,$EAEA,$EBEB,$EBEC,$ECEC,$EDED,$EEEE
  1007.     dc.w    $EEEF,$EFF0,$F0F1,$F1F2,$F2F3,$F3F4,$F4F5,$F6F6
  1008.     dc.w    $F7F7,$F8F9,$F9FA,$FAFB,$FCFC,$FDFD,$FEFF,$FF00
  1009.     dc.w    $0000,$0102,$0203,$0404,$0506,$0607,$0808,$090A
  1010.     dc.w    $0A0B,$0C0C,$0D0D,$0E0F,$0F10,$1011,$1112,$1313
  1011.     dc.w    $1414,$1415,$1516,$1617,$1717,$1818,$1819,$1919
  1012.     dc.w    $1A1A,$1A1A,$1B1B,$1B1B,$1B1B,$1C1C,$1C1C,$1C1C
  1013.     dc.w    $1C1C,$1C1C,$1C1C,$1C1B,$1B1B,$1B1B,$1B1A,$1A1A
  1014.     dc.w    $1A19,$1919,$1818,$1817,$1717,$1616,$1515,$1414
  1015.     dc.w    $1413,$1312,$1111,$1010,$0F0F,$0E0D,$0D0C,$0C0B
  1016.     dc.w    $0A0A,$0908,$0807,$0606,$0504,$0403,$0202,$0100
  1017.     dc.w    $0000,$FFFE,$FEFD,$FCFC,$FBFA,$FAF9,$F8F8,$F7F6
  1018.     dc.w    $F6F5,$F4F4,$F3F3,$F2F1,$F1F0,$F0EF,$EFEE,$EDED
  1019.     dc.w    $ECEC,$ECEB,$EBEA,$EAE9,$E9E9,$E8E8,$E8E7,$E7E7
  1020.     dc.w    $E6E6,$E6E6,$E5E5,$E5E5,$E5E5,$E4E4,$E4E4,$E4E4
  1021.     dc.w    $E4E4,$E4E4,$E4E4,$E4E5,$E5E5,$E5E5,$E5E6,$E6E6
  1022.     dc.w    $E6E7,$E7E7,$E8E8,$E8E9,$E9E9,$EAEA,$EBEB,$ECEC
  1023.     dc.w    $ECED,$EDEE,$EFEF,$F0F0,$F1F1,$F2F3,$F3F4,$F4F5
  1024.     dc.w    $F6F6,$F7F8,$F8F9,$FAFA,$FBFC,$FCFD,$FEFE,$FF00
  1025.     dc.w    $0000,$0102,$0303,$0405,$0606,$0708,$0909,$0A0B
  1026.     dc.w    $0B0C,$0D0E,$0E0F,$1010,$1111,$1213,$1314,$1415
  1027.     dc.w    $1616,$1717,$1818,$1919,$191A,$1A1B,$1B1B,$1C1C
  1028.     dc.w    $1C1D,$1D1D,$1D1E,$1E1E,$1E1E,$1E1E,$1F1F,$1F1F
  1029.     dc.w    $1F1F,$1F1F,$1F1E,$1E1E,$1E1E,$1E1E,$1D1D,$1D1D
  1030.     dc.w    $1C1C,$1C1B,$1B1B,$1A1A,$1919,$1918,$1817,$1716
  1031.     dc.w    $1615,$1414,$1313,$1211,$1110,$100F,$0E0E,$0D0C
  1032.     dc.w    $0B0B,$0A09,$0908,$0706,$0605,$0403,$0302,$0100
  1033.     dc.w    $0000,$FFFE,$FDFD,$FCFB,$FAFA,$F9F8,$F7F7,$F6F5
  1034.     dc.w    $F5F4,$F3F2,$F2F1,$F0F0,$EFEF,$EEED,$EDEC,$ECEB
  1035.     dc.w    $EAEA,$E9E9,$E8E8,$E7E7,$E7E6,$E6E5,$E5E5,$E4E4
  1036.     dc.w    $E4E3,$E3E3,$E3E2,$E2E2,$E2E2,$E2E2,$E1E1,$E1E1
  1037.     dc.w    $E1E1,$E1E1,$E1E2,$E2E2,$E2E2,$E2E2,$E3E3,$E3E3
  1038.     dc.w    $E4E4,$E4E5,$E5E5,$E6E6,$E7E7,$E7E8,$E8E9,$E9EA
  1039.     dc.w    $EAEB,$ECEC,$EDED,$EEEF,$EFF0,$F0F1,$F2F2,$F3F4
  1040.     dc.w    $F5F5,$F6F7,$F7F8,$F9FA,$FAFB,$FCFD,$FDFE,$FF00
  1041.     dc.w    $0000,$0102,$0304,$0405,$0607,$0809,$090A,$0B0C
  1042.     dc.w    $0D0D,$0E0F,$1010,$1112,$1213,$1414,$1516,$1617
  1043.     dc.w    $1818,$1919,$1A1A,$1B1B,$1C1C,$1D1D,$1D1E,$1E1F
  1044.     dc.w    $1F1F,$2020,$2020,$2021,$2121,$2121,$2121,$2121
  1045.     dc.w    $2121,$2121,$2121,$2121,$2121,$2020,$2020,$201F
  1046.     dc.w    $1F1F,$1E1E,$1D1D,$1D1C,$1C1B,$1B1A,$1A19,$1918
  1047.     dc.w    $1817,$1616,$1514,$1413,$1212,$1110,$100F,$0E0D
  1048.     dc.w    $0D0C,$0B0A,$0909,$0807,$0605,$0404,$0302,$0100
  1049.     dc.w    $0000,$FFFE,$FDFC,$FCFB,$FAF9,$F8F7,$F7F6,$F5F4
  1050.     dc.w    $F3F3,$F2F1,$F0F0,$EFEE,$EEED,$ECEC,$EBEA,$EAE9
  1051.     dc.w    $E8E8,$E7E7,$E6E6,$E5E5,$E4E4,$E3E3,$E3E2,$E2E1
  1052.     dc.w    $E1E1,$E0E0,$E0E0,$E0DF,$DFDF,$DFDF,$DFDF,$DFDF
  1053.     dc.w    $DFDF,$DFDF,$DFDF,$DFDF,$DFDF,$E0E0,$E0E0,$E0E1
  1054.     dc.w    $E1E1,$E2E2,$E3E3,$E3E4,$E4E5,$E5E6,$E6E7,$E7E8
  1055.     dc.w    $E8E9,$EAEA,$EBEC,$ECED,$EEEE,$EFF0,$F0F1,$F2F3
  1056.     dc.w    $F3F4,$F5F6,$F7F7,$F8F9,$FAFB,$FCFC,$FDFE,$FF00
  1057.     dc.w    $0000,$0102,$0304,$0506,$0708,$0809,$0A0B,$0C0D
  1058.     dc.w    $0E0E,$0F10,$1112,$1213,$1415,$1516,$1718,$1819
  1059.     dc.w    $1A1A,$1B1B,$1C1D,$1D1E,$1E1F,$1F20,$2020,$2121
  1060.     dc.w    $2222,$2222,$2323,$2323,$2424,$2424,$2424,$2424
  1061.     dc.w    $2424,$2424,$2424,$2424,$2423,$2323,$2322,$2222
  1062.     dc.w    $2221,$2120,$2020,$1F1F,$1E1E,$1D1D,$1C1B,$1B1A
  1063.     dc.w    $1A19,$1818,$1716,$1515,$1413,$1212,$1110,$0F0E
  1064.     dc.w    $0E0D,$0C0B,$0A09,$0808,$0706,$0504,$0302,$0100
  1065.     dc.w    $0000,$FFFE,$FDFC,$FBFA,$F9F8,$F8F7,$F6F5,$F4F3
  1066.     dc.w    $F2F2,$F1F0,$EFEE,$EEED,$ECEB,$EBEA,$E9E8,$E8E7
  1067.     dc.w    $E6E6,$E5E5,$E4E3,$E3E2,$E2E1,$E1E0,$E0E0,$DFDF
  1068.     dc.w    $DEDE,$DEDE,$DDDD,$DDDD,$DCDC,$DCDC,$DCDC,$DCDC
  1069.     dc.w    $DCDC,$DCDC,$DCDC,$DCDC,$DCDD,$DDDD,$DDDE,$DEDE
  1070.     dc.w    $DEDF,$DFE0,$E0E0,$E1E1,$E2E2,$E3E3,$E4E5,$E5E6
  1071.     dc.w    $E6E7,$E8E8,$E9EA,$EBEB,$ECED,$EEEE,$EFF0,$F1F2
  1072.     dc.w    $F2F3,$F4F5,$F6F7,$F8F8,$F9FA,$FBFC,$FDFE,$FF00
  1073.     dc.w    $0000,$0102,$0304,$0506,$0708,$090A,$0B0C,$0D0E
  1074.     dc.w    $0F10,$1011,$1213,$1415,$1616,$1718,$1919,$1A1B
  1075.     dc.w    $1C1C,$1D1E,$1E1F,$1F20,$2021,$2222,$2223,$2324
  1076.     dc.w    $2425,$2525,$2526,$2626,$2627,$2727,$2727,$2727
  1077.     dc.w    $2727,$2727,$2727,$2727,$2626,$2626,$2525,$2525
  1078.     dc.w    $2424,$2323,$2222,$2221,$2020,$1F1F,$1E1E,$1D1C
  1079.     dc.w    $1C1B,$1A19,$1918,$1716,$1615,$1413,$1211,$1010
  1080.     dc.w    $0F0E,$0D0C,$0B0A,$0908,$0706,$0504,$0302,$0100
  1081.     dc.w    $0000,$FFFE,$FDFC,$FBFA,$F9F8,$F7F6,$F5F4,$F3F2
  1082.     dc.w    $F1F0,$F0EF,$EEED,$ECEB,$EAEA,$E9E8,$E7E7,$E6E5
  1083.     dc.w    $E4E4,$E3E2,$E2E1,$E1E0,$E0DF,$DEDE,$DEDD,$DDDC
  1084.     dc.w    $DCDB,$DBDB,$DBDA,$DADA,$DAD9,$D9D9,$D9D9,$D9D9
  1085.     dc.w    $D9D9,$D9D9,$D9D9,$D9D9,$DADA,$DADA,$DBDB,$DBDB
  1086.     dc.w    $DCDC,$DDDD,$DEDE,$DEDF,$E0E0,$E1E1,$E2E2,$E3E4
  1087.     dc.w    $E4E5,$E6E7,$E7E8,$E9EA,$EAEB,$ECED,$EEEF,$F0F0
  1088.     dc.w    $F1F2,$F3F4,$F5F6,$F7F8,$F9FA,$FBFC,$FDFE,$FF00
  1089.     dc.w    $0001,$0203,$0405,$0607,$0809,$0A0B,$0C0D,$0E0F
  1090.     dc.w    $1011,$1213,$1414,$1516,$1718,$191A,$1A1B,$1C1D
  1091.     dc.w    $1E1E,$1F20,$2021,$2222,$2323,$2424,$2525,$2626
  1092.     dc.w    $2727,$2828,$2828,$2929,$2929,$2A2A,$2A2A,$2A2A
  1093.     dc.w    $2A2A,$2A2A,$2A2A,$2A29,$2929,$2928,$2828,$2827
  1094.     dc.w    $2726,$2625,$2524,$2423,$2322,$2221,$2020,$1F1E
  1095.     dc.w    $1E1D,$1C1B,$1A1A,$1918,$1716,$1514,$1413,$1211
  1096.     dc.w    $100F,$0E0D,$0C0B,$0A09,$0807,$0605,$0403,$0201
  1097.     dc.w    $00FF,$FEFD,$FCFB,$FAF9,$F8F7,$F6F5,$F4F3,$F2F1
  1098.     dc.w    $F0EF,$EEED,$ECEC,$EBEA,$E9E8,$E7E6,$E6E5,$E4E3
  1099.     dc.w    $E2E2,$E1E0,$E0DF,$DEDE,$DDDD,$DCDC,$DBDB,$DADA
  1100.     dc.w    $D9D9,$D8D8,$D8D8,$D7D7,$D7D7,$D6D6,$D6D6,$D6D6
  1101.     dc.w    $D6D6,$D6D6,$D6D6,$D6D7,$D7D7,$D7D8,$D8D8,$D8D9
  1102.     dc.w    $D9DA,$DADB,$DBDC,$DCDD,$DDDE,$DEDF,$E0E0,$E1E2
  1103.     dc.w    $E2E3,$E4E5,$E6E6,$E7E8,$E9EA,$EBEC,$ECED,$EEEF
  1104.     dc.w    $F0F1,$F2F3,$F4F5,$F6F7,$F8F9,$FAFB,$FCFD,$FEFF
  1105.  
  1106. ;    text
  1107.  
  1108. stopsnd:
  1109.     movem.l    d0-d1/a0-a1,-(a7)
  1110.     pea    P30e0(pc)
  1111.     move    #38,-(a7)
  1112.     trap    #14
  1113.     addq.l    #6,a7
  1114.     movem.l    (a7)+,d0-d1/a0-a1
  1115.     rts
  1116. P30e0:    ori    #$0700,sr
  1117.     move.b    #$07,GISELECT
  1118.     move.b    #$7f,GIDATA
  1119.     move.l    TIMAVEC,old134
  1120.     rts
  1121.  
  1122. L30f6:    clr.l    P3ae2
  1123.     bclr    #5,IMRA
  1124.     bclr    #5,IPRA
  1125.     bclr    #5,ISRA
  1126.     move    (a7)+,d1
  1127.     move.l    (a7)+,d0
  1128.     movea.l    (a7)+,a0
  1129.     move.b    #$07,GISELECT
  1130.     move.b    #$7f,GIDATA
  1131.     move.l    old134,TIMAVEC
  1132.     rte
  1133.  
  1134. opwaves:
  1135.     move.l    a0,-(a7)
  1136.     move.l    d0,-(a7)
  1137. L3144:    move    d1,-(a7)
  1138.     subq.b    #1,P3ae6
  1139.     bpl    L3210
  1140.     move.b    use_rate(pc),P3ae6
  1141.     movea.l    P3ae2(pc),a0
  1142.     move.b    (a0)+,P3ae7
  1143.     beq    L30f6
  1144.     move.b    (a0)+,d0
  1145.     beq    L31cc
  1146.     move.b    #$0a,GISELECT
  1147.     move.b    d0,GIDATA
  1148.     move.b    #$06,GISELECT
  1149.     move.b    (a0)+,GIDATA
  1150.     move.b    (a0)+,L329a+3
  1151.     move.b    (a0)+,L32b2+2
  1152.     move.b    (a0)+,L32a2+3
  1153.     move.b    (a0)+,L32b6+2
  1154.     move.b    (a0)+,L32aa+3
  1155.     move.b    (a0)+,L32ba+2
  1156.     move.l    a0,P3ae2
  1157.     move.l    #ophiss,TIMAVEC
  1158.     move.b    #$07,GISELECT
  1159.     move.b    #$5f,GIDATA
  1160.     bra    L3278
  1161. L31cc:    addq.l    #1,a0
  1162.     move.b    (a0)+,L3238+3
  1163.     move.b    (a0)+,L3250+2
  1164.     move.b    (a0)+,L3240+3
  1165.     move.b    (a0)+,L3254+2
  1166.     move.b    (a0)+,L3248+3
  1167.     move.b    (a0)+,L3258+2
  1168.     move.l    #opwaves,TIMAVEC
  1169.     move.b    #$07,GISELECT
  1170.     move.b    #$7f,GIDATA
  1171.     move.l    a0,P3ae2
  1172. L3210:    subq.b    #1,P3ae8
  1173.     bpl    L3234
  1174.     move.b    P3ae7(pc),P3ae8
  1175.     moveq    #$00,d0
  1176.     move.b    d0,L3250+3
  1177.     move.b    d0,L3254+3
  1178.     move.b    d0,L3258+3
  1179. L3234:    lea    P20ca(pc),a0
  1180. L3238:    addi.b    #$00,L3250+3
  1181. L3240:    addi.b    #$00,L3254+3
  1182. L3248:    addi.b    #$00,L3258+3
  1183. L3250:    move.b    $1000(a0),d0
  1184. L3254:    add.b    $1000(a0),d0
  1185. L3258:    add.b    $1000(a0),d0
  1186.     andi.w    #$ff,d0
  1187.     lsl.w    #3,d0
  1188.     lea    P32e2(pc,d0.w),a0
  1189.     move.l    (a0)+,d0
  1190.     move    (a0),d1
  1191.     lea    GISELECT,a0
  1192.     movep.l    d0,0(a0)
  1193.     movep.w    d1,0(a0)
  1194. L3278:    move    (a7)+,d1
  1195.     move.l    (a7)+,d0
  1196.     movea.l    (a7)+,a0
  1197.     bclr    #5,ISRA
  1198.     rte
  1199.  
  1200. ophiss:
  1201.     move.l    a0,-(a7)
  1202.     move.l    d0,-(a7)
  1203.     subq.b    #1,P3ae6
  1204.     bmi    L3144
  1205.     lea    P20ca(pc),a0
  1206. L329a:    addi.b    #$00,L32b2+3
  1207. L32a2:    addi.b    #$00,L32b6+3
  1208. L32aa:    addi.b    #$00,L32ba+3
  1209. L32b2:    move.b    $1000(a0),d0
  1210. L32b6:    add.b    $1000(a0),d0
  1211. L32ba:    add.b    $1000(a0),d0
  1212.     andi.w    #$00ff,d0
  1213.     lsl.w    #3,d0
  1214.     lea    P32e2(pc,d0.w),a0
  1215.     move.l    (a0)+,d0
  1216.     lea    GISELECT,a0
  1217.     movep.l    d0,0(a0)
  1218.     move.l    (a7)+,d0
  1219.     movea.l    (a7)+,a0
  1220.     bclr    #5,ISRA
  1221.     rte
  1222.  
  1223. P32e2:    dc.b    $08,$0c,$09,$0b,$0a,$09,$00,$00,$08,$0c,$09,$0b,$0a
  1224.     dc.b    $09,$00,$00,$08,$0d,$09,$08,$0a,$08,$00,$00,$08,$0b
  1225.     dc.b    $09,$0b,$0a,$0b,$00,$00,$08,$0d,$09,$09,$0a,$05,$00
  1226.     dc.b    $00,$08,$0c,$09,$0b,$0a,$08,$00,$00,$08,$0d,$09,$09
  1227.     dc.b    $0a,$02,$00,$00,$08,$0d,$09,$08,$0a,$06,$00,$00,$08
  1228.     dc.b    $0c,$09,$0b,$0a,$07,$00,$00,$08,$0d,$09,$07,$0a,$07
  1229.     dc.b    $00,$00,$08,$0c,$09,$0b,$0a,$06,$00,$00,$08,$0c,$09
  1230.     dc.b    $0a,$0a,$09,$00,$00,$08,$0b,$09,$0b,$0a,$0a,$00,$00
  1231.     dc.b    $08,$0c,$09,$0b,$0a,$02,$00,$00,$08,$0c,$09,$0b,$0a
  1232.     dc.b    $00,$00,$00,$08,$0c,$09,$0a,$0a,$08,$00,$00,$08,$0d
  1233.     dc.b    $09,$06,$0a,$04,$00,$00,$08,$0d,$09,$05,$0a,$05,$00
  1234.     dc.b    $00,$08,$0d,$09,$05,$0a,$04,$00,$00,$08,$0c,$09,$09
  1235.     dc.b    $0a,$09,$00,$00,$08,$0d,$09,$04,$0a,$03,$00,$00,$08
  1236.     dc.b    $0b,$09,$0b,$0a,$09,$00,$00,$08,$0c,$09,$0a,$0a,$05
  1237.     dc.b    $00,$00,$08,$0b,$09,$0a,$0a,$0a,$00,$00,$08,$0c,$09
  1238.     dc.b    $09,$0a,$08,$00,$00,$08,$0b,$09,$0b,$0a,$08,$00,$00
  1239.     dc.b    $08,$0c,$09,$0a,$0a,$00,$00,$00,$08,$0c,$09,$0a,$0a
  1240.     dc.b    $00,$00,$00,$08,$0c,$09,$09,$0a,$07,$00,$00,$08,$0b
  1241.     dc.b    $09,$0b,$0a,$07,$00,$00,$08,$0c,$09,$09,$0a,$06,$00
  1242.     dc.b    $00,$08,$0b,$09,$0b,$0a,$06,$00,$00,$08,$0b,$09,$0a
  1243.     dc.b    $0a,$09,$00,$00,$08,$0b,$09,$0b,$0a,$05,$00,$00,$08
  1244.     dc.b    $0a,$09,$0a,$0a,$0a,$00,$00,$08,$0b,$09,$0b,$0a,$02
  1245.     dc.b    $00,$00,$08,$0b,$09,$0a,$0a,$08,$00,$00,$08,$0c,$09
  1246.     dc.b    $07,$0a,$07,$00,$00,$08,$0c,$09,$08,$0a,$04,$00,$00
  1247.     dc.b    $08,$0c,$09,$07,$0a,$06,$00,$00,$08,$0b,$09,$09,$0a
  1248.     dc.b    $09,$00,$00,$08,$0c,$09,$06,$0a,$06,$00,$00,$08,$0a
  1249.     dc.b    $09,$0a,$0a,$09,$00,$00,$08,$0c,$09,$07,$0a,$03,$00
  1250.     dc.b    $00,$08,$0b,$09,$0a,$0a,$05,$00,$00,$08,$0b,$09,$09
  1251.     dc.b    $0a,$08,$00,$00,$08,$0b,$09,$0a,$0a,$03,$00,$00,$08
  1252.     dc.b    $0a,$09,$0a,$0a,$08,$00,$00,$08,$0b,$09,$0a,$0a,$00
  1253.     dc.b    $00,$00,$08,$0b,$09,$09,$0a,$07,$00,$00,$08,$0b,$09
  1254.     dc.b    $08,$0a,$08,$00,$00,$08,$0a,$09,$0a,$0a,$07,$00,$00
  1255.     dc.b    $08,$0a,$09,$09,$0a,$09,$00,$00,$08,$0c,$09,$01,$0a
  1256.     dc.b    $01,$00,$00,$08,$0a,$09,$0a,$0a,$06,$00,$00,$08,$0b
  1257.     dc.b    $09,$08,$0a,$07,$00,$00,$08,$0a,$09,$0a,$0a,$05,$00
  1258.     dc.b    $00,$08,$0a,$09,$09,$0a,$08,$00,$00,$08,$0a,$09,$0a
  1259.     dc.b    $0a,$02,$00,$00,$08,$0a,$09,$0a,$0a,$01,$00,$00,$08
  1260.     dc.b    $0a,$09,$0a,$0a,$00,$00,$00,$08,$09,$09,$09,$0a,$09
  1261.     dc.b    $00,$00,$08,$0a,$09,$08,$0a,$08,$00,$00,$08,$0b,$09
  1262.     dc.b    $08,$0a,$01,$00,$00,$08,$0a,$09,$09,$0a,$06,$00,$00
  1263.     dc.b    $08,$0b,$09,$07,$0a,$04,$00,$00,$08,$0a,$09,$09,$0a
  1264.     dc.b    $05,$00,$00,$08,$09,$09,$09,$0a,$08,$00,$00,$08,$0a
  1265.     dc.b    $09,$09,$0a,$03,$00,$00,$08,$0a,$09,$08,$0a,$06,$00
  1266.     dc.b    $00,$08,$0a,$09,$09,$0a,$00,$00,$00,$08,$09,$09,$09
  1267.     dc.b    $0a,$07,$00,$00,$08,$09,$09,$08,$0a,$08,$00,$00,$08
  1268.     dc.b    $0a,$09,$08,$0a,$04,$00,$00,$08,$09,$09,$09,$0a,$06
  1269.     dc.b    $00,$00,$08,$0a,$09,$08,$0a,$01,$00,$00,$08,$09,$09
  1270.     dc.b    $09,$0a,$05,$00,$00,$08,$09,$09,$08,$0a,$07,$00,$00
  1271.     dc.b    $08,$08,$09,$08,$0a,$08,$00,$00,$08,$09,$09,$09,$0a
  1272.     dc.b    $02,$00,$00,$08,$09,$09,$08,$0a,$06,$00,$00,$08,$09
  1273.     dc.b    $09,$09,$0a,$00,$00,$00,$08,$09,$09,$07,$0a,$07,$00
  1274.     dc.b    $00,$08,$08,$09,$08,$0a,$07,$00,$00,$08,$09,$09,$07
  1275.     dc.b    $0a,$06,$00,$00,$08,$09,$09,$08,$0a,$02,$00,$00,$08
  1276.     dc.b    $08,$09,$08,$0a,$06,$00,$00,$08,$09,$09,$06,$0a,$06
  1277.     dc.b    $00,$00,$08,$08,$09,$07,$0a,$07,$00,$00,$08,$08,$09
  1278.     dc.b    $08,$0a,$04,$00,$00,$08,$08,$09,$07,$0a,$06,$00,$00
  1279.     dc.b    $08,$08,$09,$08,$0a,$02,$00,$00,$08,$07,$09,$07,$0a
  1280.     dc.b    $07,$00,$00,$08,$08,$09,$06,$0a,$06,$00,$00,$08,$08
  1281.     dc.b    $09,$07,$0a,$04,$00,$00,$08,$07,$09,$07,$0a,$06,$00
  1282.     dc.b    $00,$08,$08,$09,$06,$0a,$05,$00,$00,$08,$08,$09,$06
  1283.     dc.b    $0a,$04,$00,$00,$08,$07,$09,$06,$0a,$06,$00,$00,$08
  1284.     dc.b    $07,$09,$07,$0a,$04,$00,$00,$08,$08,$09,$05,$0a,$04
  1285.     dc.b    $00,$00,$08,$06,$09,$06,$0a,$06,$00,$00,$08,$07,$09
  1286.     dc.b    $06,$0a,$04,$00,$00,$08,$07,$09,$05,$0a,$05,$00,$00
  1287.     dc.b    $08,$06,$09,$06,$0a,$05,$00,$00,$08,$06,$09,$06,$0a
  1288.     dc.b    $04,$00,$00,$08,$06,$09,$05,$0a,$05,$00,$00,$08,$06
  1289.     dc.b    $09,$06,$0a,$02,$00,$00,$08,$06,$09,$05,$0a,$04,$00
  1290.     dc.b    $00,$08,$05,$09,$05,$0a,$05,$00,$00,$08,$06,$09,$05
  1291.     dc.b    $0a,$02,$00,$00,$08,$05,$09,$05,$0a,$04,$00,$00,$08
  1292.     dc.b    $05,$09,$04,$0a,$04,$00,$00,$08,$05,$09,$05,$0a,$02
  1293.     dc.b    $00,$00,$08,$04,$09,$04,$0a,$04,$00,$00,$08,$04,$09
  1294.     dc.b    $04,$0a,$03,$00,$00,$08,$04,$09,$04,$0a,$02,$00,$00
  1295.     dc.b    $08,$04,$09,$03,$0a,$03,$00,$00,$08,$03,$09,$03,$0a
  1296.     dc.b    $03,$00,$00,$08,$03,$09,$03,$0a,$02,$00,$00,$08,$03
  1297.     dc.b    $09,$02,$0a,$02,$00,$00,$08,$02,$09,$02,$0a,$02,$00
  1298.     dc.b    $00,$08,$02,$09,$02,$0a,$01,$00,$00,$08,$01,$09,$01
  1299.     dc.b    $0a,$01,$00,$00,$08,$02,$09,$01,$0a,$00,$00,$00,$08
  1300.     dc.b    $01,$09,$01,$0a,$00,$00,$00,$08,$01,$09,$00,$0a,$00
  1301.     dc.b    $00,$00,$08,$00,$09,$00,$0a,$00,$00,$00,$08,$0e,$09
  1302.     dc.b    $0d,$0a,$0c,$00,$00,$08,$0f,$09,$03,$0a,$00,$00,$00
  1303.     dc.b    $08,$0f,$09,$03,$0a,$00,$00,$00,$08,$0f,$09,$03,$0a
  1304.     dc.b    $00,$00,$00,$08,$0f,$09,$03,$0a,$00,$00,$00,$08,$0f
  1305.     dc.b    $09,$03,$0a,$00,$00,$00,$08,$0f,$09,$03,$0a,$00,$00
  1306.     dc.b    $00,$08,$0e,$09,$0d,$0a,$0b,$00,$00,$08,$0e,$09,$0d
  1307.     dc.b    $0a,$0b,$00,$00,$08,$0e,$09,$0d,$0a,$0b,$00,$00,$08
  1308.     dc.b    $0e,$09,$0d,$0a,$0b,$00,$00,$08,$0e,$09,$0d,$0a,$0b
  1309.     dc.b    $00,$00,$08,$0e,$09,$0d,$0a,$0b,$00,$00,$08,$0e,$09
  1310.     dc.b    $0d,$0a,$0b,$00,$00,$08,$0e,$09,$0d,$0a,$0a,$00,$00
  1311.     dc.b    $08,$0e,$09,$0d,$0a,$0a,$00,$00,$08,$0e,$09,$0d,$0a
  1312.     dc.b    $0a,$00,$00,$08,$0e,$09,$0d,$0a,$0a,$00,$00,$08,$0e
  1313.     dc.b    $09,$0c,$0a,$0c,$00,$00,$08,$0e,$09,$0d,$0a,$00,$00
  1314.     dc.b    $00,$08,$0d,$09,$0d,$0a,$0d,$00,$00,$08,$0d,$09,$0d
  1315.     dc.b    $0a,$0d,$00,$00,$08,$0d,$09,$0d,$0a,$0d,$00,$00,$08
  1316.     dc.b    $0d,$09,$0d,$0a,$0d,$00,$00,$08,$0d,$09,$0d,$0a,$0d
  1317.     dc.b    $00,$00,$08,$0d,$09,$0d,$0a,$0d,$00,$00,$08,$0e,$09
  1318.     dc.b    $0c,$0a,$0b,$00,$00,$08,$0e,$09,$0c,$0a,$0b,$00,$00
  1319.     dc.b    $08,$0e,$09,$0c,$0a,$0b,$00,$00,$08,$0e,$09,$0c,$0a
  1320.     dc.b    $0b,$00,$00,$08,$0e,$09,$0c,$0a,$0b,$00,$00,$08,$0e
  1321.     dc.b    $09,$0c,$0a,$0b,$00,$00,$08,$0e,$09,$0c,$0a,$0b,$00
  1322.     dc.b    $00,$08,$0e,$09,$0c,$0a,$0b,$00,$00,$08,$0e,$09,$0c
  1323.     dc.b    $0a,$0a,$00,$00,$08,$0e,$09,$0c,$0a,$0a,$00,$00,$08
  1324.     dc.b    $0e,$09,$0c,$0a,$0a,$00,$00,$08,$0e,$09,$0c,$0a,$0a
  1325.     dc.b    $00,$00,$08,$0d,$09,$0d,$0a,$0c,$00,$00,$08,$0d,$09
  1326.     dc.b    $0d,$0a,$0c,$00,$00,$08,$0e,$09,$0c,$0a,$09,$00,$00
  1327.     dc.b    $08,$0e,$09,$0c,$0a,$09,$00,$00,$08,$0e,$09,$0c,$0a
  1328.     dc.b    $05,$00,$00,$08,$0e,$09,$0c,$0a,$00,$00,$00,$08,$0e
  1329.     dc.b    $09,$0c,$0a,$00,$00,$00,$08,$0e,$09,$0b,$0a,$0b,$00
  1330.     dc.b    $00,$08,$0e,$09,$0b,$0a,$0b,$00,$00,$08,$0e,$09,$0b
  1331.     dc.b    $0a,$0b,$00,$00,$08,$0e,$09,$0b,$0a,$0b,$00,$00,$08
  1332.     dc.b    $0e,$09,$0b,$0a,$0a,$00,$00,$08,$0e,$09,$0b,$0a,$0a
  1333.     dc.b    $00,$00,$08,$0e,$09,$0b,$0a,$0a,$00,$00,$08,$0d,$09
  1334.     dc.b    $0d,$0a,$0b,$00,$00,$08,$0d,$09,$0d,$0a,$0b,$00,$00
  1335.     dc.b    $08,$0d,$09,$0d,$0a,$0b,$00,$00,$08,$0e,$09,$0b,$0a
  1336.     dc.b    $09,$00,$00,$08,$0e,$09,$0b,$0a,$09,$00,$00,$08,$0e
  1337.     dc.b    $09,$0b,$0a,$09,$00,$00,$08,$0d,$09,$0c,$0a,$0c,$00
  1338.     dc.b    $00,$08,$0d,$09,$0d,$0a,$0a,$00,$00,$08,$0e,$09,$0b
  1339.     dc.b    $0a,$07,$00,$00,$08,$0e,$09,$0b,$0a,$00,$00,$00,$08
  1340.     dc.b    $0e,$09,$0b,$0a,$00,$00,$00,$08,$0d,$09,$0d,$0a,$09
  1341.     dc.b    $00,$00,$08,$0d,$09,$0d,$0a,$09,$00,$00,$08,$0e,$09
  1342.     dc.b    $0a,$0a,$09,$00,$00,$08,$0d,$09,$0d,$0a,$08,$00,$00
  1343.     dc.b    $08,$0d,$09,$0d,$0a,$07,$00,$00,$08,$0d,$09,$0d,$0a
  1344.     dc.b    $04,$00,$00,$08,$0d,$09,$0d,$0a,$00,$00,$00,$08,$0e
  1345.     dc.b    $09,$0a,$0a,$04,$00,$00,$08,$0e,$09,$09,$0a,$09,$00
  1346.     dc.b    $00,$08,$0e,$09,$09,$0a,$09,$00,$00,$08,$0d,$09,$0c
  1347.     dc.b    $0a,$0b,$00,$00,$08,$0e,$09,$09,$0a,$08,$00,$00,$08
  1348.     dc.b    $0e,$09,$09,$0a,$08,$00,$00,$08,$0e,$09,$09,$0a,$07
  1349.     dc.b    $00,$00,$08,$0e,$09,$08,$0a,$08,$00,$00,$08,$0e,$09
  1350.     dc.b    $09,$0a,$01,$00,$00,$08,$0c,$09,$0c,$0a,$0c,$00,$00
  1351.     dc.b    $08,$0d,$09,$0c,$0a,$0a,$00,$00,$08,$0e,$09,$08,$0a
  1352.     dc.b    $06,$00,$00,$08,$0e,$09,$07,$0a,$07,$00,$00,$08,$0e
  1353.     dc.b    $09,$08,$0a,$00,$00,$00,$08,$0e,$09,$07,$0a,$05,$00
  1354.     dc.b    $00,$08,$0e,$09,$06,$0a,$06,$00,$00,$08,$0d,$09,$0c
  1355.     dc.b    $0a,$09,$00,$00,$08,$0e,$09,$05,$0a,$05,$00,$00,$08
  1356.     dc.b    $0e,$09,$04,$0a,$04,$00,$00,$08,$0d,$09,$0c,$0a,$08
  1357.     dc.b    $00,$00,$08,$0d,$09,$0b,$0a,$0b,$00,$00,$08,$0e,$09
  1358.     dc.b    $00,$0a,$00,$00,$00,$08,$0d,$09,$0c,$0a,$06,$00,$00
  1359.     dc.b    $08,$0d,$09,$0c,$0a,$05,$00,$00,$08,$0d,$09,$0c,$0a
  1360.     dc.b    $02,$00,$00,$08,$0c,$09,$0c,$0a,$0b,$00,$00,$08,$0c
  1361.     dc.b    $09,$0c,$0a,$0b,$00,$00,$08,$0d,$09,$0b,$0a,$0a,$00
  1362.     dc.b    $00,$08,$0d,$09,$0b,$0a,$0a,$00,$00,$08,$0d,$09,$0b
  1363.     dc.b    $0a,$0a,$00,$00,$08,$0d,$09,$0b,$0a,$0a,$00,$00,$08
  1364.     dc.b    $0c,$09,$0c,$0a,$0a,$00,$00,$08,$0c,$09,$0c,$0a,$0a
  1365.     dc.b    $00,$00,$08,$0c,$09,$0c,$0a,$0a,$00,$00,$08,$0d,$09
  1366.     dc.b    $0b,$0a,$09,$00,$00,$08,$0d,$09,$0b,$0a,$09,$00,$00
  1367.     dc.b    $08,$0d,$09,$0a,$0a,$0a,$00,$00,$08,$0d,$09,$0a,$0a
  1368.     dc.b    $0a,$00,$00,$08,$0d,$09,$0a,$0a,$0a,$00,$00,$08,$0c
  1369.     dc.b    $09,$0c,$0a,$09,$00,$00,$08,$0c,$09,$0c,$0a,$09,$00
  1370.     dc.b    $00,$08,$0c,$09,$0c,$0a,$09,$00,$00,$08,$0d,$09,$0b
  1371.     dc.b    $0a,$06,$00,$00,$08,$0c,$09,$0b,$0a,$0b,$00,$00,$08
  1372.     dc.b    $0c,$09,$0c,$0a,$08,$00,$00,$08,$0d,$09,$0b,$0a,$00
  1373.     dc.b    $00,$00,$08,$0d,$09,$0b,$0a,$00,$00,$00,$08,$0c,$09
  1374.     dc.b    $0c,$0a,$07,$00,$00,$08,$0c,$09,$0c,$0a,$06,$00,$00
  1375.     dc.b    $08,$0c,$09,$0c,$0a,$05,$00,$00,$08,$0c,$09,$0c,$0a
  1376.     dc.b    $03,$00,$00,$08,$0c,$09,$0c,$0a,$01,$00,$00,$08,$0c
  1377.     dc.b    $09,$0b,$0a,$0a,$00,$00,$08,$0d,$09,$0a,$0a,$05,$00
  1378.     dc.b    $00,$08,$0d,$09,$0a,$0a,$04,$00,$00,$08,$0d,$09,$0a
  1379.     dc.b    $0a,$02,$00,$00,$08,$0d,$09,$09,$0a,$08,$00,$00,$08
  1380.     dc.b    $0d,$09,$09,$0a,$08,$00,$00
  1381.  
  1382. P3ae2:    dc.l    0
  1383. P3ae6:    dc.b    $00
  1384. P3ae7:    dc.b    $00
  1385. P3ae8:    dc.b    $00,$00
  1386.  
  1387. phoneme:
  1388. _EY:    dc.b    "EY"        ;  0 (0000)
  1389.     dc.w    $0e0d,$0262,$012c,$0906,$047e,$0b40,$05a0,$0201
  1390.     dc.w    $0105,$0530,$1830,$182a,$1500,$0001,$0505,$4000
  1391. _AY:    dc.b    "AY"        ;  1 (0022)
  1392.     dc.w    $0f0c,$0366,$01ae,$04e2,$026c,$0b04,$0582,$0201
  1393.     dc.w    $0105,$0532,$192f,$171f,$0f00,$0001,$0505,$4000
  1394. _OY:    dc.b    "OY"        ;  2 (0044)
  1395.     dc.w    $0f0c,$02a8,$0154,$03e8,$01f4,$0b04,$0582,$0201
  1396.     dc.w    $0105,$0532,$192d,$2c1e,$0f00,$0001,$0505,$4000
  1397. _AW:    dc.b    "AW"        ;  3 (0066)
  1398.     dc.w    $0f0c,$0366,$01ae,$0564,$02b2,$0b04,$0582,$0201
  1399.     dc.w    $0105,$0532,$192f,$171f,$0f00,$0001,$0505,$4000
  1400. _OW:    dc.b    "OW"        ;  4 (0088)
  1401.     dc.w    $0e0e,$0244,$0122,$03c0,$01e0,$0b04,$0582,$0201
  1402.     dc.w    $0104,$0432,$192d,$161e,$0f00,$0001,$0505,$4000
  1403. _UW:    dc.b    "UW"        ;  5 (00aa)
  1404.     dc.w    $0e09,$01a4,$00d2,$0442,$021c,$0a46,$051e,$0201
  1405.     dc.w    $0104,$042f,$1728,$141e,$0f00,$0001,$0505,$4000
  1406. _AR:    dc.b    "AR"        ;  6 (00cc)
  1407.     dc.w    $0f0f,$0316,$019a,$0370,$01d6,$09c4,$04c4,$0201
  1408.     dc.w    $0104,$0432,$1831,$181d,$0e00,$0001,$0404,$4000
  1409. _WX:    dc.b    "WX"        ;  7 (00ee)
  1410.     dc.w    $0808,$01a4,$00d2,$03a2,$01cc,$0a00,$0500,$0501
  1411.     dc.w    $0104,$042f,$1728,$141e,$0f00,$0001,$0404,$4000
  1412. _YX:    dc.b    "YX"        ;  8 (0110)
  1413.     dc.w    $0807,$01e0,$00f0,$08a2,$044c,$0ba4,$05d2,$0501
  1414.     dc.w    $0104,$0430,$182d,$1627,$1300,$0001,$0404,$4000
  1415. _AE:    dc.b    "AE"        ;  9 (0132)
  1416.     dc.w    $0e08,$0316,$019a,$06f4,$03b6,$09c4,$04c4,$0201
  1417.     dc.w    $0104,$0432,$182f,$1826,$1100,$0001,$0404,$4000
  1418. _IY:    dc.b    "IY"        ; 10 (0154)
  1419.     dc.w    $0b08,$00fa,$006e,$0910,$04a6,$0c94,$062c,$0201
  1420.     dc.w    $0104,$0432,$1821,$1124,$1100,$0001,$0404,$4000
  1421. _ER:    dc.b    "ER"        ; 11 (0176)
  1422.     dc.w    $0e0b,$0244,$0122,$058c,$02c6,$09c4,$04c4,$0501
  1423.     dc.w    $0104,$0432,$182d,$1521,$1100,$0001,$0404,$4000
  1424. _AO:    dc.b    "AO"        ; 12 (0198)
  1425.     dc.w    $100c,$01ea,$00e6,$0334,$01d6,$09c4,$04c4,$0201
  1426.     dc.w    $0104,$0432,$182d,$1516,$0a00,$0001,$0404,$4000
  1427. _UX:    dc.b    "UX"        ; 13 (01ba)
  1428.     dc.w    $0c0a,$01c2,$00dc,$0488,$0244,$0a46,$051e,$0201
  1429.     dc.w    $0104,$0432,$1826,$1111,$0700,$0001,$0404,$4000
  1430. _UH:    dc.b    "UH"        ; 14 (01dc)
  1431.     dc.w    $0c0a,$02bc,$015e,$0550,$02c6,$09c4,$04c4,$0201
  1432.     dc.w    $0104,$0432,$182b,$151f,$0e00,$0001,$0404,$4000
  1433. _AH:    dc.b    "AH"        ; 15 (01fe)
  1434.     dc.w    $0b06,$02e4,$0172,$0582,$02e4,$0ae6,$053c,$0201
  1435.     dc.w    $0104,$0432,$182d,$161f,$0e00,$0001,$0404,$4000
  1436. _AA:    dc.b    "AA"        ; 16 (0220)
  1437.     dc.w    $0f0b,$0262,$0122,$0370,$01d6,$09c4,$04c4,$0201
  1438.     dc.w    $0104,$0432,$182f,$1816,$0a00,$0001,$0404,$4000
  1439. _OH:    dc.b    "OH"        ; 17 (0242)
  1440.     dc.w    $0e0a,$0244,$0104,$03c0,$0208,$0b04,$056e,$0a01
  1441.     dc.w    $0104,$0432,$182f,$181e,$0e00,$0001,$0404,$4000
  1442. _AX:    dc.b    "AX"        ; 18 (0264)
  1443.     dc.w    $0605,$01ea,$00e6,$05c8,$02c6,$09c4,$04c4,$0201
  1444.     dc.w    $0104,$0432,$1832,$1821,$1100,$0001,$0404,$4000
  1445. _IX:    dc.b    "IX"        ; 19 (0286)
  1446.     dc.w    $0605,$01c2,$00d2,$0924,$0460,$0ba4,$05aa,$0501
  1447.     dc.w    $0104,$042f,$162c,$1526,$1400,$0001,$0404,$4000
  1448. _IH:    dc.b    "IH"        ; 20 (02a8)
  1449.     dc.w    $0908,$0190,$00aa,$0820,$042e,$0a00,$053c,$0201
  1450.     dc.w    $0104,$0432,$1824,$1123,$1100,$0001,$0404,$4000
  1451. _EH:    dc.b    "EH"        ; 21 (02ca)
  1452.     dc.w    $0b08,$0280,$015e,$07e4,$042e,$09c4,$04c4,$0201
  1453.     dc.w    $0104,$0432,$182a,$1526,$1100,$0001,$0404,$4000
  1454. _DH:    dc.b    "DH"        ; 22 (02ec)
  1455.     dc.w    $0606,$0118,$00aa,$0640,$04a6,$0a00,$0000,$1401
  1456.     dc.w    $0203,$021d,$001f,$001a,$0028,$0000,$0000,$6010
  1457. _ZH:    dc.b    "ZH"        ; 23 (030e)
  1458.     dc.w    $0606,$0118,$00aa,$07e4,$04a6,$0a00,$0000,$1401
  1459.     dc.w    $0203,$021d,$001a,$0024,$0028,$0000,$0000,$6010
  1460. _CH:    dc.b    "CH"        ; 24 (0330)
  1461.     dc.w    $0606,$00be,$006e,$06f4,$03b6,$0a78,$0a78,$1701
  1462.     dc.w    $0002,$0000,$0000,$0000,$0000,$0000,$0000,$a000
  1463.     dc.b    "CH"        ; 25 (0352)
  1464.     dc.w    $0707,$0190,$00aa,$07e4,$04a6,$0a00,$0000,$1601
  1465.     dc.w    $0203,$0100,$001f,$002a,$002c,$0000,$0000,$2014
  1466. _LX:    dc.b    "LX"        ; 26 (0374)
  1467.     dc.w    $0b09,$0208,$0104,$04a6,$024e,$0dc0,$06e0,$0801
  1468.     dc.w    $0103,$022f,$0028,$001f,$0000,$0000,$0000,$4000
  1469. _RX:    dc.b    "RX"        ; 27 (0396)
  1470.     dc.w    $0a07,$0244,$0122,$0668,$0334,$07c6,$03de,$0201
  1471.     dc.w    $0103,$032f,$002d,$0027,$0000,$0000,$0000,$4000
  1472. _SH:    dc.b    "SH"        ; 28 (03b8)
  1473.     dc.w    $0a0a,$0190,$00aa,$07e4,$04a6,$0a00,$0000,$1201
  1474.     dc.w    $0203,$0100,$001f,$0028,$002a,$0000,$0000,$2011
  1475. _NX:    dc.b    "NX"        ; 29 (03da)
  1476.     dc.w    $0807,$0136,$006e,$0334,$060e,$0af0,$062c,$0801
  1477.     dc.w    $0102,$0132,$0021,$001c,$0000,$0000,$0000,$4000
  1478. _TH:    dc.b    "TH"        ; 30 (03fc)
  1479.     dc.w    $0a0a,$0190,$00aa,$06f4,$04a6,$0a78,$0a78,$1201
  1480.     dc.w    $0003,$0100,$001a,$001c,$002a,$0000,$0000,$2010
  1481.     dc.b    "/H"        ; 31 (041e)
  1482.     dc.w    $0707,$01ea,$0000,$05c8,$0000,$09c4,$0000,$1e02
  1483.     dc.w    $0200,$041f,$f220,$f216,$f92c,$0002,$0007,$001a
  1484. _V:    dc.b    "V "        ; 32 (0440)
  1485.     dc.w    $0807,$0118,$00aa,$058c,$015e,$0a00,$03d4,$1401
  1486.     dc.w    $0103,$021b,$0026,$0022,$0028,$0000,$0000,$6010
  1487. _Z:    dc.b    "Z "        ; 33 (0462)
  1488.     dc.w    $0606,$0118,$00aa,$06b8,$03b6,$0a00,$0000,$1401
  1489.     dc.w    $0203,$021d,$0018,$0018,$002c,$0000,$0000,$600e
  1490. _J:    dc.b    "J "        ; 34 (0484)
  1491.     dc.w    $0404,$00c8,$006e,$0848,$044c,$0f28,$0f28,$1a01
  1492.     dc.w    $0002,$001f,$0000,$0000,$0000,$0000,$0000,$c000
  1493.     dc.b    "J "        ; 35 (04a6)
  1494.     dc.w    $0606,$00a0,$006e,$09e2,$051e,$0ca8,$0000,$1901
  1495.     dc.w    $0203,$012c,$0024,$001f,$002b,$0000,$0000,$4012
  1496. _L:    dc.b    "L "        ; 36 (04c8)
  1497.     dc.w    $0906,$01c2,$00dc,$03c0,$01b8,$0dc0,$06a4,$0901
  1498.     dc.w    $0103,$022f,$0028,$001f,$0000,$0000,$0000,$4000
  1499. _R:    dc.b    "R "        ; 37 (04ea)
  1500.     dc.w    $0b0b,$01ea,$0000,$049c,$024e,$0640,$02e4,$0a01
  1501.     dc.w    $0103,$022a,$1523,$1123,$1100,$0001,$0505,$4000
  1502. _W:    dc.b    "W "        ; 38 (050c)
  1503.     dc.w    $0808,$0168,$0064,$0302,$015e,$0b40,$0564,$0801
  1504.     dc.w    $0103,$022f,$1728,$1428,$1400,$0001,$0203,$4000
  1505. _Y:    dc.b    "Y "        ; 39 (052e)
  1506.     dc.w    $0707,$00fa,$006e,$09c4,$04a6,$0ba4,$05b4,$0a01
  1507.     dc.w    $0104,$0432,$1821,$1126,$1100,$0001,$0404,$4000
  1508. _Q:    dc.b    "Q "        ; 40 (0550)
  1509.     dc.w    $0505,$0000,$0000,$0000,$0000,$0000,$0000,$1d00
  1510.     dc.w    $0000,$0000,$f600,$f600,$f600,$0002,$0300,$0000
  1511. _P:    dc.b    "P "        ; 41 (0572)
  1512.     dc.w    $0808,$00be,$006e,$02f8,$015e,$09c4,$0000,$1701
  1513.     dc.w    $0202,$0200,$0000,$0000,$0000,$0000,$0000,$8000
  1514.     dc.b    "P "        ; 42 (0594)
  1515.     dc.w    $0101,$00be,$0000,$02f8,$0000,$09c4,$0000,$1d00
  1516.     dc.w    $0000,$0018,$0028,$0024,$002d,$0000,$0000,$8014
  1517.     dc.b    "P "        ; 43 (05b6)
  1518.     dc.w    $0202,$00be,$006e,$02f8,$015e,$09c4,$0000,$1701
  1519.     dc.w    $0202,$0215,$0023,$001e,$002b,$0000,$0000,$0018
  1520. _T:    dc.b    "T "        ; 44 (05d8)
  1521.     dc.w    $0604,$00be,$006e,$06f4,$03b6,$0a78,$0a78,$1701
  1522.     dc.w    $0002,$0200,$0000,$0000,$0000,$0000,$0000,$8000
  1523.     dc.b    "T "        ; 45 (05fa)
  1524.     dc.w    $0101,$00be,$0000,$06f4,$0000,$0a78,$0000,$1d00
  1525.     dc.w    $0000,$0000,$0000,$0026,$002d,$0000,$0000,$8008
  1526.     dc.b    "T "        ; 46 (061c)
  1527.     dc.w    $0202,$00be,$006e,$06f4,$03b6,$0a78,$0a78,$1701
  1528.     dc.w    $0002,$0100,$0000,$001c,$002b,$0000,$0000,$000a
  1529. _K:    dc.b    "K "        ; 47 (063e)
  1530.     dc.w    $0706,$00be,$006e,$05c8,$060e,$0a3c,$062c,$1701
  1531.     dc.w    $0103,$0300,$0000,$0000,$0000,$0000,$0000,$8000
  1532.     dc.b    "K "        ; 48 (0660)
  1533.     dc.w    $0201,$0140,$0000,$0ac8,$0000,$0ca8,$0000,$1d00
  1534.     dc.w    $0000,$002d,$002b,$0026,$002d,$0000,$0000,$8008
  1535.     dc.b    "K "        ; 49 (0682)
  1536.     dc.w    $0404,$00be,$006e,$05c8,$060e,$0a3c,$062c,$1701
  1537.     dc.w    $0103,$0200,$0000,$0000,$0000,$0000,$0000,$0000
  1538. _B:    dc.b    "B "        ; 50 (06a4)
  1539.     dc.w    $0806,$00be,$006e,$02f8,$015e,$09c4,$0000,$1a01
  1540.     dc.w    $0202,$0218,$0000,$0000,$0000,$0000,$0000,$c000
  1541.     dc.b    "B "        ; 51 (06c6)
  1542.     dc.w    $0201,$00be,$0000,$02f8,$0000,$09c4,$0000,$1d00
  1543.     dc.w    $0000,$0018,$002e,$0028,$0000,$0000,$0000,$c000
  1544.     dc.b    "B "        ; 52 (06e8)
  1545.     dc.w    $0101,$00be,$006e,$02f8,$015e,$09c4,$0000,$1b01
  1546.     dc.w    $0202,$0018,$0018,$0018,$0000,$0000,$0000,$4000
  1547. _D:    dc.b    "D "        ; 53 (070a)
  1548.     dc.w    $0705,$00be,$006e,$06f4,$03b6,$0a78,$0a78,$1a01
  1549.     dc.w    $0002,$021f,$0000,$0000,$0000,$0000,$0000,$c000
  1550.     dc.b    "D "        ; 54 (072c)
  1551.     dc.w    $0201,$00be,$0000,$06f4,$0000,$0a78,$0000,$1d00
  1552.     dc.w    $0000,$0026,$0026,$0023,$0000,$0000,$0000,$c000
  1553.     dc.b    "D "        ; 55 (074e)
  1554.     dc.w    $0101,$00be,$006e,$06f4,$03b6,$0a78,$0a78,$1b01
  1555.     dc.w    $0003,$0126,$001c,$0018,$0000,$0000,$0000,$4000
  1556. _G:    dc.b    "G "        ; 56 (0770)
  1557.     dc.w    $0706,$00be,$006e,$05c8,$060e,$0a3c,$062c,$1a01
  1558.     dc.w    $0102,$0220,$0000,$0000,$0000,$0000,$0000,$c000
  1559.     dc.b    "G "        ; 57 (0792)
  1560.     dc.w    $0201,$00be,$0000,$05c8,$0000,$0a3c,$0000,$1d00
  1561.     dc.w    $0000,$0022,$0028,$0024,$0000,$0000,$0000,$c000
  1562.     dc.b    "G "        ; 58 (07b4)
  1563.     dc.w    $0202,$00be,$006e,$05c8,$060e,$0a3c,$062c,$1b01
  1564.     dc.w    $0104,$0100,$0000,$0000,$0000,$0000,$0000,$4000
  1565. _M:    dc.b    "M "        ; 59 (07d6)
  1566.     dc.w    $0807,$00be,$006e,$03e8,$015e,$0898,$0000,$0801
  1567.     dc.w    $0201,$012d,$0013,$001a,$0000,$0000,$0000,$4000
  1568. _N:    dc.b    "N "        ; 60 (07f8)
  1569.     dc.w    $0807,$00be,$006e,$0514,$03b6,$0a3c,$0a78,$0801
  1570.     dc.w    $0002,$012d,$0013,$001a,$0000,$0000,$0000,$4000
  1571. _F:    dc.b    "F "        ; 61 (081a)
  1572.     dc.w    $0a0a,$0190,$00aa,$058c,$015e,$0a00,$03d4,$1201
  1573.     dc.w    $0103,$0100,$0020,$001e,$002a,$0000,$0000,$200a
  1574. _S:    dc.b    "S "        ; 62 (083c)
  1575.     dc.w    $0c0c,$0190,$00aa,$06b8,$03b6,$0a3c,$0000,$1201
  1576.     dc.w    $0203,$0100,$001c,$001c,$002c,$0000,$0000,$2007
  1577.     dc.b    "- "        ; 63 (085e)
  1578.     dc.w    $0808,$0000,$0000,$0000,$0000,$0000,$0000,$1f00
  1579.     dc.w    $0000,$0000,$f600,$f600,$f600,$0001,$0300,$0000
  1580.     dc.b    ". "        ; 64 (0880v )
  1581.     dc.w    $1212,$0000,$0000,$0000,$0000,$0000,$0000,$1f00
  1582.     dc.w    $0000,$0000,$f600,$f600,$f600,$0001,$0300,$0000
  1583.     dc.b    ", "        ; 65 (08a2)
  1584.     dc.w    $0e0e,$0000,$0000,$0000,$0000,$0000,$0000,$1f00
  1585.     dc.w    $0000,$0000,$f600,$f600,$f600,$0001,$0300,$0000
  1586.     dc.b    "? "        ; 66 (08c4)
  1587.     dc.w    $1212,$0000,$0000,$0000,$0000,$0000,$0000,$1f00
  1588.     dc.w    $0000,$0000,$f600,$f600,$f600,$0001,$0300,$0000
  1589. _SPACE:    dc.b    "  "        ; 67 (08e6)
  1590.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$1f00
  1591.     dc.w    $0000,$0000,$f600,$f600,$f600,$0001,$0300,$0000
  1592. _UL:    dc.b    "UL"        ; 68 (0908)
  1593.     dc.w    $0264,$04c8,$0000,$0000,$0000,$0000,$0000,$0000
  1594.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  1595. _UM:    dc.b    "UM"        ; 69 (092a)
  1596.     dc.w    $0264,$07d6,$0000,$0000,$0000,$0000,$0000,$0000
  1597.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  1598. _UN:    dc.b    "UN"        ; 70 (094c)
  1599.     dc.w    $0264,$07f8,$0000,$0000,$0000,$0000,$0000,$0000
  1600.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  1601. _IL:    dc.b    "IL"        ; 71 (096e)
  1602.     dc.w    $0286,$04c8,$0000,$0000,$0000,$0000,$0000,$0000
  1603.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  1604. _IM:    dc.b    "IM"        ; 72 (0990)
  1605.     dc.w    $0286,$07d6,$0000,$0000,$0000,$0000,$0000,$0000
  1606.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  1607. _IN:    dc.b    "IN"        ; 73 (09b2)
  1608.     dc.w    $0286,$07f8,$0000,$0000,$0000,$0000,$0000,$0000
  1609.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  1610.     dc.w    $ffff,$ffff
  1611.  
  1612. P44c2:    dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  1613.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$ffff,$ffff
  1614.  
  1615. __set_rate:
  1616.     dc.b    "O"
  1617.     .even
  1618. __set_pitc:
  1619.     dc.b    "M"
  1620.     .even
  1621. use_rate:
  1622.     dc.b    "O"
  1623. use_pitc:
  1624.     dc.b    "M"
  1625. badbuf:
  1626.     dc.w    -1
  1627.  
  1628.     .bss
  1629.  
  1630.     ds.l    1
  1631. buffer:    ds.b    1028
  1632. spchbuff:
  1633.     ds.b    $2400
  1634. saymode:
  1635.     ds.w    1
  1636. old134:
  1637.     ds.l    1
  1638.  
  1639.     end
  1640.