ABBUC Magazin 39B/ABBUC_Magazin_39_19xx_ABBUC_Side_B.atr/argsrsm.src

Text File | 2023-02-26 | 5KB | 381 lines

***       RS 232 HANDLER          ***
*** Fuer A.R.G.S. RS232 Interface ***
***   Mit Pokey-Timer-Interrupt   ***
***      von Sven Traenkle        ***
***        neue Version           ***
***          by RoBue             ***
***         15.07.1994            ***


    ORG $2000,$A800

ACDATA    EQU $D508    ACIA-
ACSTAT    EQU $D509    REGISTER
ACCOMM    EQU $D50A
ACCONT    EQU $D50B

DOSINI    EQU $C
DOSVEC    EQU $A
COLOR1    EQU 709
COLOR2    EQU 710
COLOR4    EQU 712
MEMLO    EQU 743
ICAX1Z    EQU $2A
ICAX2Z    EQU $2B
ICCOMZ    EQU $22
BRKKEY    EQU 17
POKMSK    EQU 16
DVSTAT    EQU 746

PHENTV    EQU $E486
IRQEN    EQU $D20E
AUDF1    EQU $D200
KBCODE    EQU $2FC
VTIMR1    EQU 528
STIMER    EQU 53769


*************************
* Jetzt gehts los !!!   *
*************************


INIT    LDA #END:L    NEUES
    STA MEMLO    MEMLO
    LDA #END:H    FESTLEGEN
    STA MEMLO+1


*** TREIBER IN TABELLE EINTRAGEN

    LDX #'R
    LDA #TAB:H
    LDY #TAB:L
    SEC
    JSR PHENTV
    BCC OKA
    RTS         EINTRAG NICHT ERFOLGREICH
OKA    LDA #5
    STA COLOR4


*** VOREINSTELLUNGEN

    LDA #9        300/8/N/1
    STA ACCOMM
    LDA #23
    STA ACCONT
    RTS

TAB    DFW OPEN-1
    DFW CLOSE-1
    DFW GET-1
    DFW PUT-1
    DFW STATUS-1
    DFW SPECIAL-1
    JMP OKA


***  HANDLERROUTINEN ***

************
*** OPEN ***
************

OPEN    LDY #0
    STY IIN        BUFFER
    STY IOUT        ZURUECK-
    STY OIN        SETZEN
    STY OOUT
    INY

    LDA POKMSK    POKEY-
    ORA #$01        IRQ
    STA POKMSK    EIN
    STA IRQEN
    LDA FREQ
    STA AUDF1
    LDA #INT:L
    STA VTIMR1
    LDA #INT:H
    STA VTIMR1+1
    LDA #1
    STA STIMER
    JMP AN

****************
*** CLOSE    ***
****************

CLOSE    LDA POKMSK    POKEY-
    AND #$FE        IRQ
    STA POKMSK    AUS
    STA IRQEN
    JSR AUS
    LDY #1
    RTS


****************
*** GET ********
****************

GET    LDA BRKKEY    BREAK?
    BEQ BREAK
    LDA IIN
    CMP IOUT
    BEQ GET
BUFCHK    LDA FULLFL
    BEQ GETCHR
    LDA IOUT
    SEC
    SBC IIN
    CLC
    CMP #10
    BNE GETCHR
    JSR AN
    LDA #$0
    STA FULLFL
GETCHR    LDY IOUT
    INC IOUT
    LDA IBUF,Y
NEXT    LDY #$1
    RTS

BREAK    LDY #128
    INC BRKKEY
    RTS


**************
*** PUT  *****
**************

PUT    PHA
    LDA ACCOMM
    AND #243
    ORA #4
    STA ACCOMM
PUT0    LDA BRKKEY    BREAK?
    BNE PUT1
    PLA
    JMP BREAK
PUT1    LDA OIN
    CLC
    ADC #2
    CMP OOUT
    BEQ PUT0
    LDY OIN
    PLA
    STA OBUF,Y
    INC OIN
    LDY #1
    RTS


********************
*** SPECIAL ********
********************

SPECIAL    LDA ICCOMZ
    CMP #36
    BEQ X36
    LDY #1
    RTS


*** XIO 36 (BAUDRATE,WORTLAENGE...)

X36    LDA ICAX1Z
    AND #15
    JSR COMP        Baudrate u. Pokey-Freq.
    SEI
    PHA
    LDA ACCONT
    AND #%11110000
    STA ACCONT
    PLA
    ORA ACCONT
    STA ACCONT
    CLI
    STY FREQ
    STY AUDF1
    LDY #1
    RTS
*
*    AKKU: Baudrate
*    YREG: IRQ-Frequenz
COMP    CMP #10
    BEQ B1200
    CMP #12
    BEQ B2400
    CMP #13
    BEQ B4800
    CMP #14
    BEQ B9600
    CMP #15
    BEQ B19200
    LDA #6        300/8/N/1
    LDY #$FF
    RTS
B1200    LDA #8
    LDY #$FF
    RTS
B2400    LDA #10
    LDY #160
    RTS
B4800    LDA #12
    LDY #80
    RTS
B9600    LDA #14
    LDY #40
    RTS
B19200    LDA #15
    LDY #20
    RTS


****************
*** STATUS  ****
****************

STATUS    LDA #$00
    STA DVSTAT+2
    LDA IIN
    SEC
    SBC IOUT
    STA DVSTAT+1
    LDA OIN
    SEC
    SBC OOUT
    STA DVSTAT+3
    CLC
    LDY #$1
    RTS


*************************************
*  INTERRUPT                        *
*************************************

INT    LDA ACSTAT
    BPL BACK1
    STA STAT
    TYA
    PHA

ACIA    LDA STAT
    AND #8
    BEQ NOTFULL
    JSR REC
NOTFULL    LDA STAT
    AND #16
    BEQ BACK
    JSR TRANSF

BACK    PLA
    TAY
BACK1    PLA
    RTI

***********************
* Byte in Inputbuffer *
***********************

REC    LDA STAT
    AND #1
    BNE INBUF1
NOSO    LDA ACDATA
INBUF    LDY IIN
    STA IBUF,Y
    INC IIN
    LDA IOUT
    SEC
    SBC IIN
    CMP #8
    BEQ VOLL
INBUF1    RTS

VOLL    JSR AUS
    LDA #1
    STA FULLFL
    RTS

******************************
* Byte aus Outputbuffer      *
******************************


TRANSF    LDA DATABRK
    BNE NOTRANS
    LDA OOUT
    CMP OIN
    BNE AUSG
NOTRANS    JMP AUS

AUSG    TAY
    LDA OBUF,Y
    STA ACDATA
    INC OOUT
    RTS

***************************
* READY AN SENDER MELDEN  *
***************************

AN    LDA ACCOMM
    AND #243
    ORA #8
    STA ACCOMM
    RTS


**************************
* NICHT READY MELDEN     *
**************************

AUS    LDA ACCOMM
    AND #243
    STA ACCOMM
    RTS


*************************
* VARIABLE ETC.         *
*************************


FULLFL    DFB 0
DATABRK    DFB 0
STAT    DFB 0
FREQ    DFB 255

IIN    DFB 0
IOUT    DFB 0
OIN    DFB 0
OOUT    DFB 0


*******************
*** BUFFER       **
*******************

IBUF    ASC '********************************'
    ASC '  A.R.G.S. (Atari Regionalgruppe'
    ASC ' Stuttgart) is the best !!!     '
    ASC '********************************'
    ASC '                                '
    ASC 'ARGS-RS 232 Handler (p)1992/93  '
    ASC 'Sven Traenkle (mit mehr oder wen'
    ASC 'iger grosser Unterstuetzung von '
    DFB 255
OBUF    ASC 'Roland Buehler, Holger Pfeil, Pe'
    ASC 'ter Straif, Star Trek - The next'
    ASC ' Generation, Al Bundy und seiner'
    ASC ' schrecklich netten Familie, der'
    ASC 'Lindenstrasse, 21st Century Digi'
    ASC 'tal Boy, Ramones, Coca Cola, Stu'
    ASC 'ttgarter Hofbraeu, Bofrost,Wing '
    ASC 'Com.II und meinem genialen Hirn.'
END    DFB 255
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯