Vectorblade/vecvox.i at master · malbanGit/Vectorblade · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
;
;
; VECVOX.I
;
;
; Copyright (c) 2004 Alex Herbert
;
;
;
; Include the serial driver
;
;        include "ser_ji.i"
;
; Constants
;
VOX_DATAMASK        equ      $ef                          ; bit mask for data line
VOX_STATUSMASK      equ      $20                          ; bit mask for status line
VOX_TERM            equ      $ff                          ; speech string terminator
;
; Variables
;
; These routines require 2 bytes of RAM for the following variable:
;
; vox_addr - 16-bit pointer to next byte in speech string.
;
; You may wish to comment out the following lines and declare vox_addr
; elsewhere in your code.
;
;        bss
;vox_addr        ds      2
;
; Subroutines
;
                    code
;
; vox_init
; --------
;
; Function:
;       Prepare joystick port for serial transmission and initialize
;       speech string pointer.
;
; Usage:
;       Call vox_init once at the start of your program.
;
; Note:
;       This routine writes $ef to PSG register 14 by calling Exec ROM
;       routine WRREG ($f256).  This is to mask serial output from all
;       joystick pins except the data line. (Port 2, pin 1.)
;       Care should be taken to not overwrite this register.  (There's
;       normally no reason to do so.)
;
; Caution:
;       The dp register will be set to $d0.
;
voxInit
                    lda      #$d0
                    tfr      a,dp                         ; dp = $d0
                    ldd      #($0e<<8)|VOX_DATAMASK
                    jsr      Sound_Byte                   ; WRREG (write data mask to PSG reg 14)
; test if there is a vecVox, by filling its buffer to overflow and if it
; gives a "buffer full" we know its there
; this does not work!  - at least not with atari vecVox
; lda additionalFlags
; bita #$ff-BIT_VOX_FULL
; lbeq noVOX
vox_init2
                    ldx      #vox_silence
                    stx      vox_addr                     ; point to 'silence' speech string
                    rts

;
; vox_speak
; ---------
;
; Function:
;       Sends speech data to the VecVox.
;
; Usage:
;       Call vox_speak once per frame. (I.e. stick it in your main loop)
;       See note below.
;
;       Then, just store the start address of a speech string in
;       vox_addr when you want the VecVox to speak, and let this
;       routine do the work!
;
;       To abort speech in progress, point vox_addr at vox_silence or
;       call vox_init2 (which does exactly that).
;
; Note:
;    1. This subroutine requires that the current joystick button
;       status is held at RAM address $c80f (TRIGGR).  This is usually
;       set by calling the Executive ROM routine INPUT (a.k.a.
;       read_switches2) at $F1BA.
;
;    2. Speech strings should be terminated with VOX_TERM. ($ff)
;
; Caution:
;       Contents of the dp register may (or may not) be set to $d0.
;
voxSpeak
vox_speak
; not working
; lda additionalFlags
; bita #BIT_VOX_FULL
;        lda     $c80f           ; get joystick buttons (TRIGGR)
;        bita    #VOX_STATUSMASK ; mask "buffer full" status
;        beq     vox_exit        ; exit if no room in buffer
                    ldx      vox_addr                     ; get speech pointer
                    lda      ,x+                          ; read next byte
                    cmpa     #VOX_TERM                    ; end of string?
                    beq      vox_exit                     ; ...if so, exit
                    stx      vox_addr                     ; store speech pointer
                    jmp      ser_txbyte                   ; send byte

vox_exit
                    rts

;
; Silence string
;
; Initial speech string.  Point vox_addr here to abort speech
; in progress.
;
vox_silence
                    db       $00,VOX_TERM