Subversion Repositories MB01 Project

;;
;; Copyright (c) 2016 Marco Granati <mg@unet.bz>
;;
;; Permission to use, copy, modify, and distribute this software for any
;; purpose with or without fee is hereby granted, provided that the above
;; copyright notice and this permission notice appear in all copies.
;;
;; THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
;; WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
;; MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
;; ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
;; WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
;; ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
;; OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
;;

;; name: sp.inc 
;; rev.: 2016/07/28
;; bios C816 version v1.0

.LIST on

SOH             .EQU    $01
STX             .EQU    $02
ETX             .EQU    $03
EOT             .EQU    $04
ENQ             .EQU    $05
ACK             .EQU    $06
DLE             .EQU    $10
SYN             .EQU    $16

SOBUFSIZ        .EQU    $2000   ; dimensione coda TX1/TX2 ACIA (8K)
;SOBUFSIZ       .EQU    $0100   ; dimensione coda TX1/TX2 ACIA (8K)
SIBUFSIZ        .EQU    $4000   ; dimensione coda RX1/RX2 ACIA (16K)
;SIBUFSIZ       .EQU    $0100   ; dimensione coda RX1/RX2 ACIA (16K)

NGUARD1         .EQU    $80     ; numero bytes di guardia buffer RX XON/XOFF
NGUARD2         .EQU    $40     ; numero bytes di guardia buffer RX handshake
;NGUARD1                .EQU    $40     ; numero bytes di guardia buffer RX XON/XOFF
;NGUARD2                .EQU    $20     ; numero bytes di guardia buffer RX handshake
NFREE1          .EQU    $1000   ; minimo posto in coda RX per cancellare pausa remota
NFREE2          .EQU    $0800
;NGUARD3                .EQU    $F0
;NGUARD4                .EQU    $F8

;---------------------------------------------------------------------------
; direct page var's for serial ports handling 
;---------------------------------------------------------------------------

DPSP:   .SECTION page0, common, ref_only, offset spwrk  ;ACIA D.P.

_DPSP_START     .DS     0

; WARNING: not change order and type of the following variables

; acia 1 var's
splin           .DB             ; interrupt status register
spcsr           .DB             ; control status register
spfr            .DB             ; format register
spout           .DB             ; XON/XOFF send flag

; acia 2 var's
splin2          .DB             ; interrupt status register
spcsr2          .DB             ; control status register
spfr2           .DB             ; format register
spout2          .DB             ; XON/XOFF send flag

; serial port's mode & status
spmode          .DB             ; <7>: 0=no handshake, 1=handshake
                                ; <6>: 0=software/1=hardware handshake
                                ; <5>: not used
                                ; <4>: baud rate: 0=19200, 1=38400
                                ; <3>: 0=odd parity, 1=even parity
                                ; <2>: 0=no parity, 1=parity as specified
                                ;      by bit <3>
                                ; <1>: interface type: 0=RS232, 1=RS485
                                ; <0>: RS232: uplink flow control (RTS/DCD)
                                ;      RS485: 120 ohm termination on
                                ; if bit 7=1 and bit 1=1, bit 6 is forced to 0
                        
spstat          .DB             ; serial port status            
                                ; <7>: rx error (data discarded)
                                ; <6>: rx buffer overflow
                                ; <5>: remote disconnession (DSR line = 1)
                                ; <4>: output buffer overflow
                                ; <3>: not used
                                ; <2>: framing error
                                ; <1>: parity error
                                ; <0>: overrun error

sppause         .DB             ; local/remote pause flag's             
                                ; <7>: remote pause (sent an XON or set RTS=1)
                                ; <6>: local pause (received an XON or CTS=1)

sptmp           .DB             ; temp. byte used while get data

; serial port's mode & status
spmode2         .DB             ; <7>: 0=no handshake, 1=handshake
                                ; <6>: 0=software/1=hardware handshake
                                ; <5>: not used
                                ; <4>: baud rate: 0=19200, 1=38400
                                ; <3>: 0=odd parity, 1=even parity
                                ; <2>: 0=no parity, 1=parity as specified
                                ;      by bit <3>
                                ; <1>: interface type: 0=RS232, 1=RS485
                                ; <0>: RS232: uplink flow control (RTS/DCD)
                                ;      RS485: 120 ohm termination on
                                ; if bit 7=1 and bit 1=1, bit 6 is forced to 0
                        
spstat2         .DB             ; serial port status            
                                ; <7>: rx error (data discarded)
                                ; <6>: rx buffer overflow
                                ; <5>: remote disconnession (DSR line = 1)
                                ; <4>: output buffer overflow
                                ; <3>: not used
                                ; <2>: framing error
                                ; <1>: parity error
                                ; <0>: overrun error

sppause2        .DB             ; local/remote pause flag's             
                                ; <7>: remote pause (sent XOFF/XON or RTS=1/0)
                                ; <6>: local pause (rx XOFF/XON or CTS=0/1)

sppost          .DB             ; after POST must hold $C0

ibuftail        .DW             ; pointer to tail of input buffer
ibufhead        .DW             ; pointer to head of input buffer
ibuftail2       .DW
ibufhead2       .DW

obuftail        .DW             ; pointer to tail of output buffer
obufhead        .DW             ; pointer to head of output buffer
obuftail2       .DW
obufhead2       .DW

ibufcnt         .DW             ; count of bytes in input buffer
obufcnt         .DW             ; count of bytes in output buffer
ibufcnt2        .DW
obufcnt2        .DW

icntmin         .DW             ; min. count for clear remote pause  
icntmax         .DW             ; max. count for set remote pause
icntmin2        .DW
icntmax2        .DW

_DPSP_END       .DS     0
DPSPSIZ         .EQU    (_DPSP_END - _DPSP_START)


        .ENDS

ACIArxe_1       .EQU    spstat
ACIArxe_2       .EQU    spstat2
ACIAhsk_1       .EQU    spmode
ACIAhsk_2       .EQU    spmode2
ACIAPause_1     .EQU    sppause
ACIAPause_2     .EQU    sppause2
ACIAcsr_1       .EQU    spcsr
ACIAcsr_2       .EQU    spcsr2
ACIAfr_1        .EQU    spfr
ACIAfr_2        .EQU    spfr2
ACIAOut_1       .EQU    sppause
ACIAOut_2       .EQU    sppause2
ACIAICnt_1      .EQU    ibufcnt
ACIAICnt_2      .EQU    ibufcnt2
ACIAIHead_1     .EQU    ibufhead
ACIAIHead_2     .EQU    ibufhead2
ACIAITail_1     .EQU    ibuftail
ACIAITail_2     .EQU    ibuftail2
ACIAOCnt_1      .EQU    obufcnt
ACIAOCnt_2      .EQU    obufcnt2
ACIAOHead_1     .EQU    obufhead
ACIAOHead_2     .EQU    obufhead2
ACIAOTail_1     .EQU    obuftail
ACIAOTail_2     .EQU    obuftail2

ACIAOBUFLEN     .EQU    SOBUFSIZ
ACIAIBUFLEN     .EQU    SIBUFSIZ
ACIAOUTBUF1     .EQU    SPOUTBUFF
ACIAOUTBUF2     .EQU    SPOUTBUFF2
ACIAINBUF1      .EQU    SPINBUFF
ACIAINBUF2      .EQU    SPINBUFF2

ACIATmp         .EQU    sptmp

.LIST off