home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / PROGRAMS / VOICE / VOICE.LIB < prev    next >
Text File  |  2000-06-30  |  18KB  |  961 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. ;; A    ABLE ABOUT ACTUAL ADD ADJUST AL ALL ALONE AND    
  191. ;;
  192. ;; B    BACK BASIC BEEN BEFORE BETTER    
  193. ;;
  194. ;; C    CAME CAN CAR CATALOG CHANGE
  195. ;;
  196. ;; D    DATA DATE DECIDE DECISION DELIVER DID DISK DOCTOR
  197. ;;    DOES DONT
  198. ;;
  199. ;; E    EARLY EITHER ELEVEN EMPTY EXACT 
  200. ;;
  201. ;; F    FACT FAULT FINAL FIRST FOLLOW
  202. ;;
  203. ;; G    GAME GOOD GREAT GROUND GROW
  204. ;;
  205. ;; H    HAND HAVE HEAR HEAVY HELLO HIGH HUMAN
  206. ;;
  207. ;; I    IMPORTANT IN INCLUDE INFORM INSERT INSTEAD IS IT
  208. ;;
  209. ;; J    JOB JOIN JOY JUDGE JUMP
  210. ;;
  211. ;; K    KEEP KEY KEYBOARD KILL KNOWLEDGE
  212. ;;
  213. ;; L    LAB LANGUAGE LARGE LEAVE LEFT LENGTH LESS LISTEN
  214. ;;
  215. ;; M    MAKE MANY MASTER MATCH ME MEAN MEMORY MESSAGE MISTER
  216. ;;     MY
  217. ;;
  218. ;; N    NAME NATURAL NEAR NEED NEXT NONE 
  219. ;;
  220. ;; O    OBJECT OBSOLETE OFTEN OMIT ON OM ONE OTHER OUT
  221. ;;
  222. ;; P    PACKAGE PAPER PART PERSON PHONE
  223. ;;
  224. ;; Q    QUALIFY QUANTITY QUESTION QUICK QUIET
  225. ;;
  226. ;; R    RAISE REACH REMAIN RESISTOR
  227. ;;
  228. ;; S    SAFE SAIL SALE SCHEDULE SCRAMBLE SCRAP SECTION SHIT
  229. ;;
  230. ;; T    TALK TECHNICAL TERMINAL THANK THE THIRTEEN THINK THREE
  231. ;;    TIME TO TOUCH TWELVE TWENTY TWO TWAS
  232. ;;
  233. ;; U    UNDER UNIFORM UNTIL UP URGENT USE UZE
  234. ;;
  235. ;; V    VACANT VALID VALUE VENDOR VENT VERIFY VARY VIA VICTOR VOICE
  236. ;;    VOID VOLT VOLUME
  237. ;;
  238. ;; W    WAGE WAIT WANT WAS WASH WATER WATT WAVE WAY WE WEAPON WEDNESDAY
  239. ;;    WEEK WELCOME WENT WEST WET WHEEL WHEN WHERE WHICH WHILE WHISKEY WHITE
  240. ;;    WHO WILL WINDOW WINTER WIRE WITH WITHDRAW WITHOUT WORD WORK
  241. ;;    WRONG
  242. ;;
  243. ;; X    XRAY
  244. ;;
  245. ;; Y    YANKEE YARD YEAR YELLOW YES YESTERDAY YET YOU YOUR 
  246. ;;
  247. ;; Z    ZAP ZERO ZONE ZULU
  248. ;;
  249. ;;
  250. A       MACR@
  251.     DB A1,AY,PA1
  252.     ENDM
  253. ABLE    MACR@
  254.     DB A1,@Y,@B,UH3,@L,PA1
  255.     ENDM
  256. ABOUT   MACR@
  257.     DB UH1,@B,UH2,AH2,U1,@T,PA1
  258.     ENDM
  259. ACTUAL  MACR@
  260.     DB AE1,EH3,@K,@T,CH,U1,UH3,@L,PA1
  261.     ENDM
  262. ADD     MACR@
  263.     DB AE1,EH3,@D,PA1
  264.     ENDM
  265. ADJUST  MACR@
  266.     DB UH1,@D,@J,UH1,UH3,@S,@T,PA1
  267.     ENDM
  268. AL    MACR@
  269.     DB AE1,EH3,@L,PA1
  270.     ENDM
  271. ALL    MACR@
  272.     DB AW2,@L,@L,PA1
  273.     ENDM
  274. ALONE   MACR@
  275.     DB UH1,@L,O1,U1,@N,PA1
  276.     ENDM
  277. AND     MACR@
  278.     DB AE1,EH3,@N,@D,PA1
  279.     ENDM
  280. B       MACR@
  281.     DB @B,E1,@Y,PA1
  282.     ENDM
  283. BACK    MACR@
  284.     DB @B,AE1,AE1,@K,PA1
  285.     ENDM
  286. BASIC   MACR@
  287.     DB @B,A1,@Y,@S,I2,@K,PA1
  288.     ENDM
  289. BEEN    MACR@
  290.     DB @B,EH1,EH3,@N,PA1
  291.     ENDM
  292. BEFORE  MACR@
  293.     DB @B,@Y,@F,O2,O2,@R,PA1
  294.     ENDM
  295. BETTER  MACR@
  296.     DB @B,EH1,EH3,@T,ER,PA1
  297.     ENDM
  298. C       MACR@
  299.     DB @S,E1,@Y,PA1
  300.     ENDM
  301. CAME    MACR@
  302.     DB @K,A1,AY,@Y,@M,PA1
  303.     ENDM
  304. CAN     MACR@
  305.     DB @K,AE1,EH3,@N,PA1
  306.     ENDM
  307. CAR     MACR@
  308.     DB @K,AH2,UH3,@R,PA1
  309.     ENDM
  310. CATALOG MACR@
  311.     DB @K,AE1,EH3,DT,UH3,@L,AW2,AW2,@G,PA1
  312.     ENDM
  313. CHANGE  MACR@
  314.     DB @T,CH,A1,AY,@Y,@N,@D,@J,PA1
  315.     ENDM
  316. D       MACR@
  317.     DB @D,E1,@Y,PA1
  318.     ENDM
  319. DATA    MACR@
  320.     DB @D,A2,@Y,DT,UH1,PA1
  321.     ENDM
  322. DATE    MACR@
  323.     DB @D,A2,AY,@Y,@T,PA1
  324.     ENDM
  325. DECIDE  MACR@
  326.     DB @D,@Y,@S,AH2,EH3,@Y,@D,PA1
  327.     ENDM
  328. DECISION MACR@
  329.     DB @D,@Y,@S,I2,ZH,UH3,@N,PA1
  330.     ENDM
  331. DELIVER MACR@
  332.     DB @D,@Y,@L,I2,@V,ER,PA1
  333.     ENDM
  334. DID    MACR@
  335.     DB @D,I1,@D,PA1
  336.     ENDM
  337. DISK    MACR@
  338.     DB @D,I1,@S,@K,PA1
  339.     ENDM
  340. DOCTOR    MACR@
  341.     DB @D,AH,@K,@T,O1,ER,PA0,PA1
  342.     ENDM
  343. DOES    MACR@    
  344.     DB @D,UH,@Z,PA1
  345.     ENDM
  346. DONT   MACR@
  347.     DB @D,O1,U1,@N,@T,PA1
  348.     ENDM
  349. E       MACR@
  350.     DB E1,@Y,PA1
  351.     ENDM
  352. EARLY   MACR@
  353.     DB ER,@R,@L,@Y,PA1
  354.     ENDM
  355. EITHER  MACR@
  356.     DB E1,@Y,THV,ER,PA1
  357.     ENDM
  358. ELEVEN    MACR@
  359.     DB,E1,@L,EH1,@V,I1,@N,PA1
  360.     ENDM
  361. EMPTY   MACR@
  362.     DB EH2,EH3,@M,@P,@T,@Y,PA1
  363.     ENDM
  364. EXACT   MACR@
  365.     DB EH2,EH3,@G,PA0,@Z,AE1,EH3,@K,@T,PA1
  366.     ENDM
  367. F       MACR@
  368.     DB EH1,EH2,@F,PA1
  369.     ENDM
  370. FACT    MACR@
  371.     DB @F,AE,EH3,@F,@T,PA1
  372.     ENDM
  373. FAULT   MACR@
  374.     DB @F,AW,@L,@T,PA1
  375.     ENDM
  376. FINAL   MACR@
  377.     DB @F,AH2,@Y,@N,UH3,@L,PA1
  378.     ENDM
  379. FIRST   MACR@
  380.     DB @F,ER,@R,@S,@T,PA1
  381.     ENDM
  382. FOLLOW  MACR@
  383.     DB @F,AH1,AW2,@L,O1,U1,PA1
  384.     ENDM
  385. G       MACR@
  386.     DB @D,@J,E1,@Y,PA1
  387.     ENDM
  388. GAME    MACR@
  389.     DB @G,A2,AY,@Y,@M,PA1
  390.     ENDM
  391. GOOD    MACR@
  392.     DB @G,OO1,OO1,@D,PA1
  393.     ENDM
  394. GREAT   MACR@
  395.     DB @G,@R,A2,@Y,@T,PA1
  396.     ENDM
  397. GROUND  MACR@
  398.     DB @G,@R,AH1,UH3,@W,@N,@D,PA1
  399.     ENDM
  400. GROW    MACR@
  401.     DB @G,@R,O1,U1,PA1
  402.     ENDM
  403. H       MACR@
  404.     DB A1,AY,@Y,@T,CH,PA1
  405.     ENDM
  406. HAND    MACR@
  407.     DB @H,AE1,EH3,@N,@D,PA1
  408.     ENDM
  409. HAVE    MACR@
  410.     DB @H,AE1,EH3,@V,PA1
  411.     ENDM
  412. HEAR    MACR@
  413.     DB @H,AY,I3,@R,PA1
  414.     ENDM
  415. HEAVY   MACR@
  416.     DB @H,EH1,@V,@Y,PA1
  417.     ENDM
  418. HELLO    MACR@
  419.     DB @H,EH1,@L,@L,O1,U1,PA1
  420.     ENDM
  421. HIGH    MACR@
  422.     DB @H,AH1,EH3,@Y,PA1
  423.     ENDM
  424. HUMAN    MACR@
  425.     DB @H,IU,U1,@M,AE1,EH3,@N,PA1
  426.     ENDM
  427. I       MACR@
  428.     DB AH1,EH3,I3,@Y,PA1
  429.     ENDM
  430. IMPORTANT MACR@
  431.     DB I1,I3,@M,@P,O2,O2,@R,@T,EH3,@N,@T,PA1
  432.     ENDM
  433. IN    MACR@
  434.     DB I1,@N,PA1
  435.     ENDM
  436. INCLUDE MACR@
  437.     DB I1,I3,@N,@K,@L,IU,U1,U1,@D,PA1
  438.     ENDM
  439. INFORM  MACR@
  440.     DB I1,I3,@N,@F,O2,O2,@R,@M,PA1
  441.     ENDM
  442. INSERT  MACR@
  443.     DB I1,@N,@S,@R,@R,@T,PA1
  444.     ENDM
  445. INSTEAD MACR@
  446.     DB I1,I3,@N,@S,@T,EH1,EH3,@D,PA1
  447.     ENDM
  448. IS    MACR@
  449.     DB PA1,I1,@Z,PA0,PA1
  450.     ENDM
  451. IT    MACR@
  452.     DB @I,@T,PA1
  453.     ENDM
  454. J       MACR@
  455.     DB @D,@J,EH3,A1,AY,@Y,PA1
  456.     ENDM
  457. JOB     MACR@
  458.     DB @D,@J,AH1,UH3,@B,PA1
  459.     ENDM
  460. JOIN    MACR@
  461.     DB @D,@J,O1,UH3,I3,AY,@N,PA1
  462.     ENDM
  463. JOY     MACR@
  464.     DB @D,@J,O1,UH3,I3,AY,PA1
  465.     ENDM
  466. JUDGE   MACR@
  467.     DB @D,@J,UH1,UH2,@D,@J,PA1
  468.     ENDM
  469. JUMP    MACR@
  470.     DB @D,@J,UH1,UH2,@M,@P,PA1
  471.     ENDM
  472. K       MACR@
  473.     DB @K,EH3,A1,AY,@Y,PA1
  474.     ENDM
  475. KEEP    MACR@
  476.     DB @K,E1,@Y,@P,PA1
  477.     ENDM
  478. KEY     MACR@
  479.     DB @K,E1,@Y,PA1
  480.     ENDM
  481. KEYBOARD MACR@
  482.     DB @K,AY,@Y,@B,O1,O2,@R,@D,PA1
  483.     ENDM
  484. KILL    MACR@
  485.     DB @K,I1,I3,@L,PA1
  486.     ENDM
  487. KNOWLEDGE MACR@
  488.     DB @N,AH1,UH3,@L,I3,@D,@J,PA1
  489.     ENDM
  490. L       MACR@
  491.     DB EH1,EH3,UH3,@L,PA1
  492.     ENDM
  493. LAB    MACR@
  494.     DB @L,AE,@B,PA1
  495.     ENDM
  496. LANGUAGE MACR@
  497.     DB @L,AE1,EH3,NG,@G,@W,I1,@D,@J,PA1
  498.     ENDM
  499. LARGE   MACR@
  500.     DB @L,AH1,@R,@D,@J,PA1
  501.     ENDM
  502. LEAVE   MACR@
  503.     DB @L,E1,@Y,@V,PA1
  504.     ENDM
  505. LEFT    MACR@
  506.     DB @L,EH1,EH3,@F,@T,PA1
  507.     ENDM
  508. LENGTH  MACR@
  509.     DB @L,EH1,EH3,NG,TH,PA1
  510.     ENDM
  511. LESS    MACR@
  512.     DB @L,EH1,EH2,@S,PA1
  513.     ENDM
  514. LISTEN  MACR@
  515.     DB @L,I1,I3,@S,I2,@N,PA1
  516.     ENDM
  517. M       MACR@
  518.     DB EH1,EH2,@M,PA1
  519.     ENDM
  520. MAKE    MACR@
  521.     DB @M,A1,AY,@Y,@K,PA1
  522.     ENDM
  523. MANY    MACR@
  524.     DB @M,EH2,EH2,@N,@Y,PA1
  525.     ENDM
  526. MASTER    MACR@
  527.     DB @M,AE1,EH3,@S,@T,ER,PA1
  528.     ENDM
  529. MATCH   MACR@
  530.     DB @M,AE1,EH3,@T,CH,PA1
  531.     ENDM
  532. ME    MACR@
  533.     DB @M,@E,PA1
  534.     ENDM
  535. MEAN    MACR@
  536.     DB @M,@E,@N,PA1
  537.     ENDM
  538. MEMORY  MACR@
  539.     DB @M,EH1,EH3,@M,ER,@Y,PA1
  540.     ENDM
  541. MESSAGE MACR@
  542.     DB @M,EH1,EH3,@S,I2,@D,@J,PA1
  543.     ENDM
  544. MISTER     MACR@
  545.     DB @M,@I,@S,@T,ER,PA1
  546.     ENDM
  547. MY      MACR@
  548.     DB @M,AH1,EH3,I3,@Y,PA1
  549.     ENDM
  550. N       MACR@
  551.     DB EH1,EH2,@N,PA1
  552.     ENDM
  553. NAME    MACR@
  554.     DB @N,A1,@Y,@M
  555.     ENDM
  556. NATURAL MACR@
  557.     DB @N,AE1,@T,CH,UH3,@R,UH2,@L
  558.     ENDM
  559. NEAR    MACR@
  560.     DB @N,AY,I1,@R,PA1
  561.     ENDM
  562. NEED    MACR@
  563.     DB @N,E1,@Y,@D,PA1
  564.     ENDM
  565. NEXT    MACR@
  566.     DB @N,EH1,EH3,@K,PA0,@S,@T,PA1
  567.     ENDM
  568. NONE    MACR@
  569.     DB @N,UH1,UH3,@N,PA1
  570.     ENDM
  571. O       MACR@
  572.     DB O2,O1,U1,PA1
  573.     ENDM
  574. OBJECT  MACR@
  575.     DB UH1,@B,@D,@J,EH1,EH3,@K,@T,PA1
  576.     ENDM
  577. OBSOLETE MACR@
  578.     DB AH1,UH3,@B,@S,UH3,@L,AY,@Y,@T,PA1
  579.     ENDM
  580. OFTEN   MACR@
  581.     DB AW2,AW2,@F,I3,@N,PA1
  582.     ENDM
  583. OMIT    MACR@
  584.     DB O1,U1,@M,I1,I3,@T,PA1
  585.     ENDM
  586. OM    MACR@
  587.     DB AH,@O,@M,@M,@M,@M,@M,@M,@M,@M,@M,PA1
  588.     ENDM
  589. ON    MACR@
  590.     DB AH,@N,PA1
  591.     ENDM
  592. ONE    MACR@
  593.     DB @W,UH1,I3,@N,PA1
  594.     ENDM
  595. OTHER   MACR@
  596.     DB UH1,UH3,THV,ER,PA1
  597.     ENDM
  598. OUT    MACR@
  599.     DB UH1,AW1,@W,@T,PA1
  600.     ENDM
  601. P       MACR@
  602.     DB @P,E1,@Y,PA1
  603.     ENDM
  604. PACKAGE MACR@
  605.     DB @P,AE1,EH3,@K,I1,@D,@J,PA1
  606.     ENDM
  607. PAPER   MACR@
  608.     DB @P,A1,@Y,@P,ER,PA1
  609.     ENDM
  610. PART    MACR@
  611.     DB @P,AH1,@R,@T,PA1
  612.     ENDM
  613. PERSON  MACR@
  614.     DB @P,ER,@S,UH1,@N,PA1
  615.     ENDM
  616. PHONE   MACR@
  617.     DB @F,O1,U1,@N,PA1
  618.     ENDM
  619. Q       MACR@
  620.     DB @K,Y1,IU,U1,U1,PA1
  621.     ENDM
  622. QUALIFY MACR@
  623.     DB @K,@W,AW1,@L,I1,@F,AH1,EH3,@Y,PA1
  624.     ENDM
  625. QUANTITY MACR@
  626.     DB @K,@W,AH1,@N,@T,I3,@T,@Y,PA1
  627.     ENDM
  628. QUESTION MACR@
  629.     DB @K,@W,EH1,EH3,@S,@T,CH,UH3,@N,PA1
  630.     ENDM
  631. QUICK   MACR@
  632.     DB @K,@W,I1,I3,@K,PA1
  633.     ENDM
  634. QUIET   MACR@
  635.     DB @K,@W,AH1,EH3,AY,I2,@T,PA1
  636.     ENDM
  637. R       MACR@
  638.     DB AH1,UH2,ER,PA1
  639.     ENDM
  640. RAISE   MACR@
  641.     DB @R,A1,AY,@Y,@Z,PA1
  642.     ENDM
  643. REACH   MACR@
  644.     DB @R,E1,@Y,@T,CH,PA1
  645.     ENDM
  646. READY   MACR@
  647.     DB @R,EH1,EH3,@D,@Y,PA1
  648.     ENDM
  649. REMAIN  MACR@
  650.     DB @R,E1,@M,A1,AY,@Y,@N,PA1
  651.     ENDM
  652. RESISTOR MACR@
  653.     DB @R,E1,@Z,I1,@S,@T,ER,PA1
  654.     ENDM
  655. S       MACR@
  656.     DB EH1,EH2,@S,PA1
  657.     ENDM
  658. SAFE    MACR@
  659.     DB @S,A1,AY,@Y,@F,PA1
  660.     ENDM
  661. SAIL    MACR@
  662.     DB @S,A1,A2,AY,UH3,@L,PA1
  663.     ENDM
  664. SALE    MACR@
  665.     DB @S,A1,A2,AY,UH3,@L,PA1
  666.     ENDM
  667. SCHEDULE MACR@
  668.     DB @S,@K,EH1,EH3,@D,@J,IU,U1,@L,PA1
  669.     ENDM
  670. SCRAMBLE MACR@
  671.     DB @S,@K,@R,AE1,EH3,@M,@B,UH1,@L,PA1
  672.     ENDM
  673. SCRAP   MACR@
  674.     DB @S,@K,@R,AE1,EH3,@P,PA1
  675.     ENDM
  676. SECTION MACR@
  677.     DB @S,EH1,EH3,@K,SH,UH3,@N,PA1
  678.     ENDM
  679. SHIT    MACR@
  680.     DB SH,@E,@I,@T,PA0,PA1
  681.     ENDM
  682.  
  683.  
  684. T       MACR@
  685.     DB @T,E1,AY,Y,PA1
  686.     ENDM
  687. TALK    MACR@
  688.     DB @T,AW,@K,PA1
  689.     ENDM
  690. TECHNICAL MACR@
  691.     DB @T,EH1,EH3,@K,@N,I3,@K,UH3,@L,PA1
  692.     ENDM
  693. TERMINAL MACR@
  694.     DB @T,ER,@M,EH3,@N,UH2,@L,PA1
  695.     ENDM
  696. THANK    MACR@
  697.     DB PA0,THV,EH,@N,@K,PA1
  698.     ENDM
  699. THE    MACR@
  700.     DB THV,UH1,PA1
  701.     ENDM
  702. THIRTEEN MACR@
  703.     DB TH,UH2,ER,@T,E1,E1,@N,PA0,
  704.     ENDM
  705. THINK   MACR@
  706.     DB TH,I1,I3,NG,@K,PA1
  707.     ENDM
  708. THREE    MACR@
  709.     DB TH,@R,E1,@Y,PA1
  710.     ENDM
  711. TIME    MACR@
  712.     DB @T,AH1,EH3,@Y,@M,PA1
  713.     ENDM
  714. TO    MACR@
  715.     DB @T,PA0,@U,@W,PA1
  716.     ENDM
  717. TOUCH    MACR@
  718.     DB @T,UH2,@T,@J,PA0,PA1
  719.     ENDM
  720.  
  721. TWELVE  MACR@
  722.     DB @T,PA0,@W,EH2,UH2,@L,@V,PA1
  723.     ENDM
  724. TWENTY  MACR@
  725.     DB @T,PA0,@W,EH2,@N,@T,E1,PA0,PA1
  726.     ENDM
  727. TWO    MACR@
  728.     @T,PA0,@U,@W,PA1
  729.     ENDM
  730. TWAS    MACR@
  731.     DB @T,@W,UH,@S,PA1
  732.     ENDM
  733. U       MACR@
  734.     DB Y1,IU,U1,U1,PA1
  735.     ENDM
  736. UNDER   MACR@
  737.     DB UH2,UH2,@N,@D,ER,PA1
  738.     ENDM
  739. UNIFORM  MACR@
  740.     DB Y1,IU,U1,@N,I3,@F,O1,@R,@M,PA1
  741.     ENDM
  742. UNTIL   MACR@
  743.     DB UH2,UH2,@N,@T,I1,I3,@L,PA1
  744.     ENDM
  745. UP      MACR@
  746.     DB UH1,UH2,@P,PA1
  747.     ENDM
  748. URGENT  MACR@
  749.     DB @R,@R,@D,@J,I3,@N,@T,PA1
  750.     ENDM
  751. USE     MACR@
  752.     DB UH1,UH2,@S,PA1
  753.     ENDM
  754. UZE     MACR@
  755.     DB Y1,IU,U1,U1,@Z,PA1
  756.     ENDM
  757. V       MACR@
  758.     DB @V,E1,AY,@Y,PA1
  759.     ENDM
  760. VACANT  MACR@
  761.     DB @V,A1,@Y,@K,EH3,@N,@T,PA1
  762.     ENDM
  763. VALID   MACR@
  764.     DB @V,AE1,UH3,@L,I1,@D,PA1
  765.     ENDM
  766. VALUE   MACR@
  767.     DB @V,AE1,EH3,@L,Y1,IU,U1,PA1
  768.     ENDM
  769. VENDOR  MACR@
  770.     DB @V,EH1,EH3,@N,@D,ER,PA1
  771.     ENDM
  772. VENT    MACR@
  773.     DB @V,EH1,EH3,@N,@T,PA1
  774.     ENDM
  775. VERIFY  MACR@
  776.     DB @V,EH1,@R,I3,@F,AH1,EH3,@Y,PA1
  777.     ENDM
  778. VARY    MACR@
  779.     DB @V,EH1,@R,@Y,PA1
  780.     ENDM
  781. VIA     MACR@
  782.     DB @V,E1,AY,UH2,UH3,PA1
  783.     ENDM
  784. VICTOR  MACR@
  785.     DB @V,I1,I3,@K,@T,ER,PA1
  786.     ENDM
  787. VOICE   MACR@
  788.     DB @V,O1,UH3,I3,AY,@S,PA1
  789.     ENDM
  790. VOID    MACR@
  791.     DB @V,O1,UH3,I3,AY,@D,PA1
  792.     ENDM
  793. VOLT    MACR@
  794.     DB @V,O2,O2,@L,@T,PA1
  795.     ENDM
  796. VOLUME  MACR@
  797.     DB @V,AH1,UH3,@L,Y1,IU,U1,@M,PA1
  798.     ENDM
  799. W       MACR@
  800.     DB @D,UH1,@B,UH3,@L,Y1,IU,U1,PA1
  801.     ENDM
  802. WAGE    MACR@
  803.     DB @W,A1,AY,@Y,@D,@J,PA1
  804.     ENDM
  805. WAIT    MACR@
  806.     DB @W,A1,AY,@Y,@T,PA1
  807.     ENDM
  808. WANT    MACR@
  809.     DB @W,AH1,UH3,@N,@T,PA1
  810.     ENDM
  811. WAS     MACR@
  812.     DB @W,UH1,UH3,@Z,PA1
  813.     ENDM
  814. WASH    MACR@
  815.     DB @W,AW,SH,PA1
  816.     ENDM
  817. WATER   MACR@
  818.     DB @W,AH1,UH3,@T,ER,PA1
  819.     ENDM
  820. WATT    MACR@
  821.     DB @W,AH1,UH3,@T,PA1
  822.     ENDM
  823. WAVE    MACR@
  824.     DB @W,A1,AY,@Y,@V,PA1
  825.     ENDM
  826. WAY     MACR@
  827.     DB @W,A2,A2,@Y,PA1
  828.     ENDM
  829. WE      MACR@
  830.     DB @W,E1,@Y,PA1
  831.     ENDM
  832. WEAPON  MACR@
  833.     DB @W,EH2,EH2,@P,UH1,N,PA1
  834.     ENDM
  835. WEDNESDAY MACR@
  836.     DB @W,EH1,@N,@Z,@D,A1,I3,@Y,PA1
  837.     ENDM
  838. WEEK    MACR@
  839.     DB @E,E1,@Y,@K,PA1
  840.     ENDM
  841. WELCOME    MACR@
  842.     DB @W,EH2,@L,@K,UH1,@M,PA1
  843.     ENDM
  844. WENT    MACR@
  845.     DB @W,EH1,EH3,@N,@T,PA1
  846.     ENDM
  847. WEST    MACR@
  848.     DB @W,EH1,EH3,@S,@T,PA1
  849.     ENDM
  850. WET     MACR@
  851.     DB @W,EH1,EH3,@T,PA1
  852.     ENDM
  853. WHAT    MACR@
  854.     DB @W,UH3,UH1,@T,PA1
  855.     ENDM
  856. WHEEL   MACR@
  857.     DB @W,E1,@Y,@L,PA1
  858.     ENDM
  859. WHEN    MACR@
  860.     DB @W,EH1,EH3,@N,PA1
  861.     ENDM
  862. WHERE   MACR@
  863.     DB @W,EH3,A2,EH3,@R,PA1
  864.     ENDM
  865. WHICH   MACR@
  866.     DB @W,I1,I3,@T,CH,PA1
  867.     ENDM
  868. WHILE   MACR@
  869.     DB @W,AH1,EH3,I1,UH3,@L,PA1
  870.     ENDM
  871. WHISKY  MACR@
  872.     DB @W,I1,I3,@S,@K,AY,@Y,PA1
  873.     ENDM
  874. WHITE   MACR@
  875.     DB @W,UH3,AH2,@Y,@T,PA1
  876.     ENDM
  877. WHO     MACR@
  878.     DB @H,IU,U1,U1,PA1
  879.     ENDM
  880. WILL    MACR@
  881.     DB @W,I1,I3,@L,PA1
  882.     ENDM
  883. WINDOW  MACR@
  884.     DB @W,I1,@N,@D,O1,U1,PA1
  885.     ENDM
  886. WINTER  MACR@
  887.     DB @W,I1,I3,@N,@T,ER,PA1
  888.     ENDM
  889. WIRE    MACR@
  890.     DB @W,AH1,EH3,AY,@R,PA1
  891.     ENDM
  892. WITH    MACR@
  893.     DB @W,I1,I3,TH,PA1
  894.     ENDM
  895. WITHDRAW MACR@
  896.     DB @W,I1,I3,TH,@D,@R,AW,PA1
  897.     ENDM
  898. WITHOUT MACR@
  899.     DB @W,I1,I3,TH,UH2,AH2,U1,@T,PA1
  900.     ENDM
  901. WORD    MACR@
  902.     DB @W,ER,@R,@D,PA1
  903.     ENDM
  904. WORK    MACR@
  905.     DB @W,ER,@R,@K,PA0,PA1
  906.     ENDM
  907. WRONG   MACR@
  908.     DB @R,AW,NG,PA1
  909.     ENDM
  910. X       MACR@
  911.     DB EH1,EH2,@K,PA0,@S,PA1
  912.     ENDM
  913. XRAY    MACR@
  914.     DB EH1,EH2,@K,PA0,@S,@R,A1,I3,@Y,PA1
  915.     ENDM
  916. Y       MACR@
  917.     DB @W,AH1,EH3,I3,@Y,PA1
  918.     ENDM
  919. YANKEE  MACR@
  920.     DB Y1,AE1,EH3,NG,@K,E1,@Y,PA1
  921.     ENDM
  922. YARD    MACR@
  923.     DB Y1,AH1,@R,@D,PA1
  924.     ENDM
  925. YEAR    MACR@
  926.     DB Y1,AY,I3,@R,PA1
  927.     ENDM
  928. YELLOW  MACR@
  929.     DB Y1,EH1,EH3,@L,O1,U1,PA1
  930.     ENDM
  931. YES     MACR@
  932.     DB Y1,EH3,EH1,@S,PA1
  933.     ENDM
  934. YESTERDAY MACR@
  935.     DB Y1,EH3,EH1,@S,@T,ER,@D,A1,I3,@Y,PA1
  936.     ENDM
  937. YET     MACR@
  938.     DB Y1,EH1,EH3,@T,PA1
  939.     ENDM
  940. YOU    MACR@
  941.     DB @Y,IU,U1,U1,PA1
  942.     ENDM
  943. YOUR    MACR@
  944.     DB @Y,O2,O2,@R,PA1
  945.     ENDM
  946. Z       MACR@
  947.     DB @Z,E1,@Y,PA1
  948.     ENDM
  949. ZAP     MACR@
  950.     DB @Z,AE1,EH3,@P,PA1
  951.     ENDM
  952. ZERO    MACR@
  953.     DB @Z,AY,I1,@R,O1,U1,PA1
  954.     ENDM
  955. ZONE    MACR@
  956.     DB @Z,O1,U1,@N,PA1
  957.     ENDM
  958. ZULU    MACR@
  959.     DB @Z,U1,@L,IU,U1,PA1
  960.     ENDM
  961.