home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol050 / voicequ.lib < prev    next >
Encoding:
Text File  |  1984-04-29  |  5.5 KB  |  190 lines
  1. ;
  2. ; VOTRAX CROSS-COMPILER FOR ASCII TO VOICE PHONEMES
  3. ;
  4. ; ORIGINALLY WRITTEN AND RELEASED IN PUBLIC DOMAIN
  5. ; 9/22/81 BY ALAN JEWER, SHAWN EVERSON & WILLIAM WHITFORD
  6. ; 
  7. ;
  8. ; MACR@ (MACRO) @DRIVER
  9. ;
  10. ; THE @DRIVER MACRO IS INCLUDED AT THE START OF THE
  11. ; VOICE PROGRAM, AND PROVIDES DRIVE TO THE SWEET TALKER
  12. ; SPEECH BOARD  THRU AN 8255 PROGRAMMABLE PARALLEL 
  13. ; INTERFACE CHIP. ANY OTHER BOARD USING THE VOTRAX SC-01 
  14. ; VOICE SYNTHESIS CHIP SHOULD BE ABLE TO BE SUPPORTED
  15. ; BY ONLY SMALL CHANGES TO THE DRIVER PROGRAM.
  16. ; WHEN USING THIS MACRO, A .COM FILE (MACHINE CODE)
  17. ; IS PRODUCED WHICH IS DIRECTLY EXECUTABLE AS A CP/M
  18. ; TRANSIENT. THIS DRIVER CONSISTS OF Z80 CODE, AND
  19. ; WILL NOT RUN ON AN 8080. THE MACRO @QUIT MUST BE USED 
  20. ; AT THE END OF THE VOICE PROGRAM TO PROVIDE AND 
  21. ; END-OF-FILE INDICATION. THE INVOKING SYNTAX IS:
  22. ;
  23. ;            @DRIVER    @FINISH
  24. ;
  25. ;            BODY
  26. ;            OF
  27. ;            SPEECH
  28. ;            PROGRAM
  29. ;
  30. ;            @QUIT
  31. ;
  32. @DRIVER    MACR@    @FINISH
  33.     I8255    EQU    24H    ;LOCATION OF THE 8255 I/O CHIP
  34.     IDATA    EQU    I8255    ;DATA OUTPUT PORT
  35.     ISTROBE    EQU    I8255+1    ;STROBE OUTPUT PORT
  36.     IREADY    EQU    I8255+2    ;READY STATUS LINE INPUT PORT
  37.     ISETUP    EQU    I8255+3    ;SETUP PORT FOR 8255
  38.     ICONFIG    EQU    89H    ;A&B OUTPUT, C IS INPUT
  39.     STBON    EQU    255    ;STROBE ACTIVE
  40.     STBOFF    EQU    000    ;STROBE INACTIVE
  41. ;
  42. ; THE 8255 BASE PORT (PORT A) IS THE DATA OUTPUT PORT
  43. ; THE B PORT LSB IS USED AS THE STROBE OUTPUT LINE
  44. ; THE C PORT LSB IS USED AS THE READY INPUT LINE
  45. ;
  46.     DB 3EH,ICONFIG        ;MVI A,ICONFIG    ;SET UP 8255
  47.     DB 0D3H,ISETUP        ;OUT ISETUP
  48.     DB 3EH,STBOFF        ;MVI A,STBOFF    ;SET STROBE POLARITY
  49.     DB 0D3H,ISTROBE       ;OUT ISTROBE
  50.     DB 0AFH            ;XRA A        ;CLEAR INFLECTION
  51.     DB 32H            ;STA INFLECT    ;THIS IS STORAGE
  52.     DW INFL
  53.     DB 21H                 ;LXI H,@START    ;BUFFER POINTER
  54.     DW @START
  55.     DB 11H             ;LXI D,@FINISH-@START ;COUNTER
  56.     DW @FINISH-@START
  57.     DB 0EH,IDATA         ;MVI C,IDATA    ;OUTPUT PORT ADDR
  58. DMPLP:    DB 3EH,3FH        ;MVI A,3FH    ;PHONEMES ARE SMALLER 
  59.     DB 0BEH            ;CMP M        ;IS PHONEME?
  60.     DB 30H,DMPIT-$-1    ;JRNC DMPIT    ;JUMP IF IT IS
  61.     DB 7EH            ;MOV A,M    ;GET INFLECTION
  62.     DB 0FEH,0FFH        ;CPI 0FFH    ;IS IT PITCH 0?
  63.     DB 20H,NOT0-$-1        ;JRNZ NOT0    ;JUMP IF NOT
  64.     DB 0AFH            ;XRA A        ;GET 0 FOR PITCH 0
  65. NOT0:    DB 32H            ;STA INFLECT    ;STORE IT
  66.     DW INFL
  67.     DB 23H            ;INX H        ;BUMP RAM POINTER
  68.     DB 18H,CNTEM-$-1    ;JMPR COUNTEM    ;CONTINUE TILL DONE
  69. DMPIT:    DB 3AH            ;LDA INFL    ;GET INFLECTION
  70.     DW INFL
  71.     DB 86H            ;ADD M        ;ADD PHONEME
  72.     DB 77H            ;MOV M,A    ;CRUDE, BUT EFFECTIVE
  73.     DB 2FH            ;CMA        ;FLIP FOR LIGHTS
  74.     DB 0D3H,0FFH        ;OUT FPANEL    ;ON THE LIGHTS
  75.     DB 0EDH,0A3H            ;OUTI        ;NEXT BYTE TO OUTPUT
  76.     DB 3EH,STBON          ;MVI A,STBON    ;TURN ON STROBE
  77.     DB 0D3H,ISTROBE        ;OUT ISTROBE
  78.     DB 06H,1EH        ;MVI B,30    ;WAIT FOR 100 US
  79. STLOOP:    DB 10H,STLOOP-$-1    ;DJNZ STLOOP    ;LOOP TILL TIME UP
  80.     DB 3EH,STBOFF        ;MVI A,STBOFF    ;TURN OFF STROBE
  81.     DB 0D3H,ISTROBE        ;OUT ISTROBE
  82. WFOR:    DB 0DBH,IREADY         ;IN IREADY    ;GET READY BIT
  83.     DB 1FH            ;RAR        ;TO CY
  84.     DB 30H,WFOR-$-1          ;JRNC WAITFOR    ;WAIT FOR VOTRAX
  85. CNTEM:    DB 1BH            ;DCX D        ;COUNT BYTE
  86.     DB 7AH            ;MOV A,D    ;CHECK FOR 0
  87.     DB 0B3H            ;ORA E
  88.     DB 20H,DMPLP-$-1    ;JRNZ DMPLOOP    ;LOOP TILL ALL DONE
  89.     DB 0C9H            ;RET        ;BACK TO CP/M
  90. INFL:    DB 0            ;INFLECTION STORAGE
  91. @START:
  92.     ENDM
  93. ;
  94. @QUIT    MACR@
  95.     DB 3FH    ;;SHUT UP
  96. @FINISH:
  97.     ENDM
  98. ;;
  99. PITCH0    MACR@
  100.     DB 0FFH    ;;LOWEST PITCH
  101.     ENDM
  102. PITCH1    MACR@
  103.     DB 40H    ;;2ND PITCH
  104.     ENDM
  105. PITCH2    MACR@
  106.     DB 080H    ;;3RD PITCH
  107.     ENDM
  108. PITCH3    MACR@
  109.     DB 0C0H ;;HIGHEST PITCH
  110.     ENDM
  111.  ;
  112. ;; FIRST WE DEFINE THE PHONEMES
  113. ;;
  114. EH3    EQU 00H    ;;59 MS    ;JACK/E/T
  115. EH2    EQU 01H    ;;71 MS    ;/E/NLIST
  116. EH1    EQU 02H    ;;121MS    ;H/EA/VY
  117. PA0    EQU 03H    ;;47 MS    ;NO SOUND
  118. DT    EQU 04H    ;;47 MS    ;BU/TT/ER
  119. A2    EQU 05H    ;;71 MS    ;M/A/DE
  120. A1    EQU 06H    ;;103MS    ;M/A/DE
  121. ZH     EQU 07H    ;;90 MS    ;A/Z/URE
  122. AH2    EQU 08H ;;71 MS    ;H/O/NEST
  123. I3     EQU 09H    ;;55 MS    ;INHIB/I/T
  124. I2     EQU 0AH    ;;80 MS    ;/I/NHIBIT
  125. I1     EQU 0BH    ;;121MS    ;INH/I/BIT
  126. @M     EQU 0CH    ;;103MS    ;/M/AT
  127. @N     EQU 0DH    ;;80 MS    ;SU/N/
  128. @B     EQU 0EH    ;;71 MS    ;/B/AG
  129. @V     EQU 0FH    ;;71 MS    ;/V/AN
  130. CH     EQU 10H    ;;71 MS    ;/CH/IP
  131.             ;;/T/ MUST PRECEDE /J/
  132.             ;;TO PRODUCE CH SOUND
  133. SH     EQU 11H    ;;121MS    ;/SH/OP
  134. @Z     EQU 12H    ;;71 MS    ;/Z/OO
  135. AW1    EQU 13H    ;;146MS    ;L/AW/FUL
  136. NG     EQU 14H    ;;121MS    ;THI/NG/
  137. AH1    EQU 15H    ;;146MS    ;F/A/THER
  138. OO1    EQU 16H    ;;103MS    ;L/OO/KING
  139. OO     EQU 17H    ;;185MS    ;B/OO/K
  140. @L     EQU 18H    ;;103MS    ;/L/AND
  141. @K     EQU 19H    ;;80 MS    ;TRI/CK/
  142. @J     EQU 1AH    ;;47 MS    ;/J/U/DG/E 
  143.             ;;/D/ MUST PRECEDE /J/ TO PRODUCE 
  144.             ;;J SOUND
  145. @H     EQU 1BH    ;;71 MS    ;/H/ELLO
  146. @G     EQU 1CH    ;;71 MS    ;/G/ET
  147. @F     EQU 1DH    ;;103MS    ;/F/AST
  148. @D     EQU 1EH    ;;55 MS    ;PAI/D/
  149. @S     EQU 1FH    ;;90 MS    ;PA/SS/
  150. @A     EQU 20H    ;;185MS    ;D/AY/
  151. AY     EQU 21H    ;;65 MS    ;D/AY/
  152. Y1     EQU 22H    ;;80 MS    ;/Y/ARD
  153. UH3    EQU 23H    ;;47 MS    ;MISS/IO/N
  154. AH     EQU 24H    ;;250MS    ;M/O/P
  155. @P     EQU 25H    ;;103MS    ;P/A/ST
  156. @O     EQU 26H    ;;185MS    ;C/O/LD
  157. @I     EQU 27H    ;;185MS    ;P/I/N
  158. @U     EQU 28H    ;;185MS    ;M/O/VE
  159. @Y     EQU 29H    ;;103MS    ;AN/Y/
  160. @T     EQU 2AH    ;;71 MS    ;/T/AP
  161. @R     EQU 2BH    ;;90 MS    ;/R/ED
  162. @E     EQU 2CH    ;;185MS    ;M/EE/T
  163. @W     EQU 2DH    ;;80 MS    ;/W/IN
  164. AE     EQU 2EH    ;;185MS    ;D/A/D
  165. AE1    EQU 2FH    ;;103MS    ;/A/FTER
  166. AW2    EQU 30H    ;;90 MS    ;S/A/LTY
  167. UH2    EQU 31H    ;;71 MS    ;/A/BOUT
  168. UH1    EQU 32H    ;;103MS    ;/U/NCLE
  169. UH     EQU 33H    ;;185MS    ;C/U/P
  170. O2     EQU 34H    ;;80 MS    ;F/O/R
  171. O1     EQU 35H    ;;121MS    ;AB/OA/RD
  172. IU     EQU 36H    ;;59 MS    ;Y/OU/
  173. U1     EQU 37H    ;;90 MS    ;Y/OU/
  174. THV    EQU 38H    ;;80 MS    ;/TH/E
  175. TH     EQU 39H    ;;71 MS    ;/TH/IN
  176. ER     EQU 3AH    ;;146MS    ;B/I/RD
  177. EH     EQU 3BH    ;;185MS    ;G/E/T
  178. E1     EQU 3CH    ;;121MS    ;B/E/
  179. AW     EQU 3DH    ;;250MS    ;C/A/LL
  180. PA1    EQU 3EH    ;;185MS    ;NO SOUND
  181. @STOP    EQU 3FH    ;;47 MS    ;NO SOUND
  182. ;;
  183. ;;
  184. ;; THE FOLLOWING LETTERS AND WORDS FORM THE
  185. ;; LIBRARY OF WORDS WHICH IS USED TO ASSEMBLE 
  186. ;; OBJECT FILES FROM SOURCE FILES.
  187. ;;
  188. ;; THE LIST OF WORDS IN THIS LIBRARY IS:
  189. ;;
  190.