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 # $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›1910 STA 3›1920 RST LDX #'V›1930 LDA # >TAB›1940 LDY #