0100 ; VOICE HANDLER (C) 1997 THOR›0110 ; USING THE SP0256-AL2 CHIP›0120 ;›0130 ; BASE ADDRESS FOR TURBO BASIC›0140 ; SHOULD BE MODIFIED FOR OTHER›0150 ; OTHER PURPOSES.›0160 ; THIS HANDLER DOES NOT YET SET›0170 ; MEMLO.›0180 ;›0190     *=  $1C80›0200     .OPT OBJ›0210     JMP INSTA   ; JMP TO INSTALLATION PROC›0220 INIT LDA #$3F   ; INIT VIA›0230     STA $D603›0240     LDA #$00›0250     STA $D601›0260     LDA #$1E›0270     STA $D60C›0280     LDA #$00›0290     STA BFL›0300     STA BUFA›0310     STA BUFB›0320     STA LENTH   ;INIT BUFFER AND TIMER›0330     STA TIMR›0340     STA SPEED   ;RESET SPEED›0350     STA FLG›0360     LDA #$20›0370     STA PBUF›0380     STA PBUF+1›0390     STA PBUF+2›0400     LDA #$06›0410     LDX # >VBI›0420     LDY # <VBI›0430     JSR $E45C   ;SETUP VBI (WE'RE NOT USING THE VIA IRQ, ALTHOUGH THIS IS POSSIBLE)›0440     LDA $D600›0450     LDA $D601›0460     LDA #$00›0470     STA FLG›0480     RTS ›0490 VBI BIT FLG›0500     BMI WAIT›0510     DEC TIMR›0520     LDA TIMR›0530     CMP #$FF    ;SPEED TIMER›0540     BNE EVB›0550     LDA LENTH   ;STILL CHARACTERS IN THE BUFFER?›0560     BEQ EVA›0570     LDX BUFA›0580     LDA #$3F›0590     STA $D603›0600     LDA #$1E›0610     STA $D60C›0620     LDA BUFR,X›0630     CMP #$40›0640     BCC NSP     ;CHECK FOR ILLEGAL PHONEMS: SET SPEED›0650     AND #$3F›0660     STA SPEED›0670     DEC LENTH›0680     INC BUFA›0690     CLC ›0700     BCC EVA›0710 NSP STA $D601   ;SEND TO OUTPUT BUFFER›0720     LDA #$1C›0730     STA $D60C›0740     ORA #$02›0750     STA $D60C   ;GENERATE STROBE›0760 EVC DEC LENTH›0770     INC BUFA›0780     DEC FLG›0790     LDA SPEED›0800     STA TIMR›0810 WAIT LDA $D60D  ;CHECK FOR CHARACTER DONE›0820     AND #$02›0830     BEQ EVB›0840     LDA $D601›0850     INC FLG›0860 EVA LDA SPEED›0870     STA TIMR›0880 EVB JMP $E45F›0890 BUFA .BYTE 0›0900 BUFB .BYTE 0›0910 LENTH .BYTE 0›0920 SPEED .BYTE 0›0930 TIMR .BYTE 0›0940 FLG .BYTE 0›0950 PUTONE LDY $D40B ;PUT ONE PHONEM›0960     BNE PUTONE  ;WAIT FOR VBI, AVOID MODIFICATION WHILE VBI ACTIVE›0970 PO  LDY LENTH›0980     CPY #$FF›0990     BEQ PO      ;OVERFLOW ?›1000     LDX BUFB›1010     STA BUFR,X  ;TO BUFFER›1020     INC BUFB›1030     INC LENTH›1040     RTS ›1050 PBUF .BYTE "   "›1060 BFL .BYTE 0›1070 PUT ;           PUT ONE BYTE VECTOR›1080     CMP #'/     ;END OF PHONEM?›1090     BEQ TOC›1100     CMP #$9B›1110     BEQ TOC›1120     CMP #$20›1130     BEQ TOC›1140     CMP #',›1150     BEQ TOC›1160     LDY BFL›1170     CPY #$03›1180     BCS ERC0›1190     STA PBUF,Y›1200     INC BFL›1210     LDY #$01›1220     RTS ›1230 ERC0 LDY #$C0   ;DECODE PHONEM›1240     BMI ENAL›1250 TOC LDX #$00›1260 CL  LDA PBUF›1270     CMP TAB1,X›1280     BNE NX›1290     LDA PBUF+1›1300     CMP TAB2,X›1310     BNE NX›1320     LDA PBUF+2›1330     CMP TAB3,X›1340     BEQ FON›1350 NX  INX ›1360     CPX #75›1370     BCC CL›1380     LDY #$C1›1390     BMI ENAL›1400 FON TXA ›1410     JSR PUTONE›1420     LDY #$01›1430 ENAL LDA #$20›1440     STA PBUF›1450     STA PBUF+1›1460     STA PBUF+2›1470     LDA #$00›1480     STA BFL›1490     RTS ›1500 ; PHONEM TABLE›1510 TAB1 .BYTE "PPPPPOAEKPJNITRAMTDIEDUAAYAHBTUUADGVGSZRFKKZNLWXWYCEEODSNHOAYGEBSSSSSSSSSS"›1520 TAB2 .BYTE "AAAAAYYHKPHNHTRXMTHYYDWOAYEHBHHWWDGVGHHRFKKZGLWRHYHRRWHSNHRRRGLBPPPPPPPPPP"›1530 TAB3 .BYTE "12345   3  1 21  11  11  2 11  2 23 1  2 21      1 12 2 22   2 20123456789"›1540 OPEN JSR INIT›1550 ;CIO VECTORS›1560     LDY #$01›1570     RTS ›1580 CLOSE›1590     LDA #$00›1600     JSR PUTONE›1610     LDA #$03›1620     JSR PUTONE›1630     JSR WTEN›1640     LDA #6›1650     LDX # >$E45F›1660     LDY # <$E45F›1670     JSR $E45C›1680     LDY #$01›1690     RTS ›1700 GET RTS ›1710 STATUS LDA LENTH›1720     BEQ ST1›1730     LDY #$03    ;SEND EOF IF BUFFER EMPTY›1740     RTS ›1750 ST1 LDY #$01›1760     RTS ›1770 WTEN LDA $D600›1780 WL  LDA $D60D›1790     AND #$10›1800     BEQ WL›1810     LDA $D600›1820     LDA LENTH›1830     BNE WL›1840     RTS ›1850 INSTA LDA 9     ;INSTALL HANDLER TO CASINI, AS V: TO HATABS›1860     ORA #$02›1870     STA 9›1880     LDA # <RST›1890     STA 2›1900     LDA # >RST›1910     STA 3›1920 RST LDX #'V›1930     LDA # >TAB›1940     LDY # <TAB›1950     JSR $E486›1960     RTS ›1970 TAB .WORD OPEN-1›1980     .WORD CLOSE-1›1990     .WORD GET-1›2000     .WORD PUT-1›2010     .WORD STATUS-1›2020     .WORD GET-1›2030 BUFR .DS 256›