*
* Ferma F-5000 FR Speech Card
*
* (c) 1986, Ferma
* (s) 2022, Brutal Deluxe Software
*

            TYP   BIN
            ORG   $C200
            MX    %11
            LST   OFF

*----------------------------

MSLOT       EQU   $07F8
KBD         EQU   $C000
BUTN0       EQU   $C061
BUTN1       EQU   $C062
CLRROM      EQU   $CFFF
COUT        EQU   $FDED
IORTS       EQU   $FF58

*----------------------------

LC200       BIT   IORTS
            BVS   LC211
            SEC
            BCC   LC220
            CLV
            BVC   LC211

            DB    $01
            DB    $51
            DB    $00
            DB    $06
            DB    $09
            DB    $0C

LC211       PHA
            TXA
            PHA
            TYA
            PHA
            LDA   $27
            PHA
            LDA   $26
            PHA
            TSX
            LDA   $0105,X
LC220       STA   $27
            PHP
            SEI
            JSR   IORTS
            TSX
            LDA   $0100,X
            STA   MSLOT
            TAX
            ASL
            ASL
            ASL
            ASL
            STA   $26
            STA   CLRROM
            TAY
            PLP
            BVC   LC269
            LDA   KBD
            STA   $0638,X
            LDA   $0538,X
            CMP   #$07
            BEQ   LC24E
            LDA   #$00
            STA   $0538,X
LC24E       AND   $0738,X
            STA   $0738,X
            STX   $37
            LDA   #$07
            STA   $36
            LDA   #$01
            STA   $06B8,X
            LDA   #$00
            STA   $05B8,X
            LDA   #$10
            STA   $04B8,X
LC269       LDA   $0738,X
            AND   #$40
            BNE   LC288
            LDA   KBD
            CMP   $0638,X
            BEQ   LC288
            STA   $0638,X
            LDA   $06B8,X
            AND   #$01
            BEQ   LC288
            LDA   $0638,X
            JSR   $C824
LC288       LDA   BUTN0
            BPL   LC292
            JSR   $C91B
            LDY   $26
LC292       LDA   $04B8,X
            BPL   LC29D
            JSR   $CB43
            JMP   $C84B

LC29D       LDA   $27
            AND   #$7F
            CMP   $04B8,X
            BNE   LC2A9
            JMP   $CB30

LC2A9       LDA   $0738,X
            AND   #$40
            BEQ   LC2BC
            LDA   $27
            BIT   BUTN1
            BPL   LC2B9
            LDA   #$8C
LC2B9       JSR   $C812
LC2BC       JSR   $CC5A
            JMP   $C84B

            LDX   #$03
LC2C4       LDA   $36,X
            PHA
            DEX
            BPL   LC2C4
            LDX   MSLOT
            LDA   $05B8,X
            STA   $36
            LDA   $0738,X
            AND   #$07
            ORA   #$C0
            STA   $37
            TXA
            PHA
            LDA   $27
            PHA
            ORA   #$80
            JSR   COUT
            PLA
            STA   $27
            PLA
            STA   MSLOT
            STA   CLRROM
            TAX
            ASL
            ASL
            ASL
            ASL
            STA   $26
            JMP   $CE00

            DB    $FF
            DB    $FF
            DB    $FF
            DB    $FF
            DB    $FF
            DB    $FF
            DB    $02