Restructuring, added first version of IEC routines (untested)

git-svn-id: svn://svn.cc65.org/cc65/trunk@2782 b7a2c559-68d2-44c3-8de9-860c34a00d81

diff --git a/libsrc/cbm610/kiec.s b/libsrc/cbm610/kiec.s
new file mode 100644 (file)
index 0000000..488eda9
--- /dev/null
+++ b/libsrc/cbm610/kiec.s
@@ -0,0 +1,245 @@
+;
+; Ullrich von Bassewitz, 2003-12-18
+;
+; IEC bus routines for the 610.
+;
+
+        .export         TALK, LISTEN, SECOND, TKSA, CIOUT, UNTLK, UNLSN, ACPTR
+
+        .import         UPDST
+       .import         tpi1: zp, cia: zp
+
+       .include        "cbm610.inc"
+
+
+; -------------------------------------------------------------------------
+; Talk senden
+
+TALK:   ora     #$40
+        bne     talk_listen
+
+; -------------------------------------------------------------------------
+; Listen senden
+
+LISTEN:
+        ora     #$20
+
+talk_listen:
+        pha
+        lda     #$3F
+        ldy     #tpiDDRA
+        sta     (tpi1),y
+        lda     #$FF
+        ldy     #PortA
+        sta     (cia),y
+        ldy     #DDRA
+        sta     (cia),y
+        lda     #$FA
+        ldy     #tpiPortA
+        sta     (tpi1),y
+        lda     CTemp
+        bpl     LF268
+        lda     (tpi1),y
+        and     #$DF
+        sta     (tpi1),y
+        lda     snsw1
+        jsr     transfer_byte
+        lda     CTemp
+        and     #$7F
+        sta     CTemp
+        ldy     #tpiPortA
+        lda     (tpi1),y
+        ora     #$20
+        sta     (tpi1),y
+
+LF268:  lda     (tpi1),y                ; tpiPortA
+        and     #$F7
+        sta     (tpi1),y
+        pla
+        jmp     transfer_byte
+
+; -------------------------------------------------------------------------
+; Output secondary address after listen
+
+SECOND: jsr     transfer_byte
+
+scatn:  ldy     #tpiPortA
+        lda     (tpi1),y
+        ora     #$08
+        sta     (tpi1),y
+        rts
+
+; -------------------------------------------------------------------------
+; Output secondary address
+
+TKSA:   jsr     transfer_byte
+
+LF283:  ldy     #tpiPortA
+        lda     (tpi1),y
+        and     #$39
+
+; A -> IEC control, data ready for input
+
+set_listen:
+        ldy     #tpiPortA
+        sta     (tpi1),y
+        lda     #$C7
+        ldy     #tpiDDRA
+        sta     (tpi1),y
+        lda     #$00
+        ldy     #DDRA
+        sta     (cia),y
+        jmp     scatn
+
+; -------------------------------------------------------------------------
+
+CIOUT:  pha
+        lda     CTemp
+        bpl     @L1
+        lda     snsw1
+        jsr     transfer_byte
+        lda     CTemp
+@L1:    ora     #$80
+        sta     CTemp
+        pla
+        sta     snsw1
+        rts
+
+; -------------------------------------------------------------------------
+; UNTLK
+
+UNTLK:  lda     #$5F
+        bne     LF2B1
+UNLSN:  lda     #$3F
+LF2B1:  jsr     talk_listen
+        lda     #$F9
+        jmp     set_listen
+
+; -------------------------------------------------------------------------
+; Output A (without EOF flag)
+
+transfer_byte:
+        eor     #$FF
+        ldy     #PortA
+        sta     (cia),y
+        ldy     #tpiPortA
+        lda     (tpi1),y
+        ora     #$12
+        sta     (tpi1),y
+        lda     (tpi1),y
+        and     #%11000000
+        beq     LF2D4
+        lda     #$80
+        jsr     UPDST
+        bne     LF304                   ; Branch always
+
+; Wait until NRFD is high
+
+LF2D4:  lda     (tpi1),y
+        bpl     LF2D4
+        and     #$EF
+        sta     (tpi1),y
+
+LF2DE:  jsr     SetTimB32ms
+        bcc     LF2E4                   ; Branch always
+
+LF2E3:  sec
+LF2E4:  ldy     #tpiPortA
+        lda     (tpi1),y
+        and     #$40
+        bne     LF2FC
+        ldy     #IntCtrReg
+        lda     (cia),y
+        and     #$02
+        beq     LF2E4
+        lda     TimOut
+        bmi     LF2DE
+        bcc     LF2E3
+        lda     #$01
+        jsr     UPDST
+
+LF2FC:  ldy     #tpiPortA
+        lda     (tpi1),y
+        ora     #$10
+        sta     (tpi1),y
+
+LF304:  lda     #$FF
+        ldy     #PortA
+        sta     (cia),y
+        rts
+
+; -------------------------------------------------------------------------
+
+ACPTR:  ldy     #tpiPortA
+        lda     (tpi1),y
+        and     #$B9
+        ora     #$81
+        sta     (tpi1),y
+
+LF314:  jsr     SetTimB32ms
+        bcc     LF31A
+
+LF319:  sec
+
+LF31A:  ldy     #tpiPortA
+        lda     (tpi1),y
+        and     #$10
+        beq     LF33F
+        ldy     #IntCtrReg
+        lda     (cia),y
+        and     #$02
+        beq     LF31A                   ; Loop if not timeout
+
+        lda     TimOut
+        bmi     LF314
+        bcc     LF319
+        lda     #$02
+        jsr     UPDST
+        ldy     #tpiPortA
+        lda     (tpi1),y
+        and     #$3D
+        sta     (tpi1),y
+        lda     #$0D
+        rts
+; -------------------------------------------------------------------------
+
+LF33F:  lda     (tpi1),y                ; tpiPortA
+        and     #$7F
+        sta     (tpi1),y
+        and     #$20
+        bne     LF350
+        lda     #$40
+        jsr     UPDST
+
+LF350:  ldy     #PortA
+        lda     (cia),y
+        eor     #$FF
+        pha
+        ldy     #tpiPortA
+        lda     (tpi1),y
+        ora     #$40
+        sta     (tpi1),y
+
+LF35E:  lda     (tpi1),y                ; tpiPortA
+        and     #$10
+        beq     LF35E
+        lda     (tpi1),y
+        and     #$BF
+        sta     (tpi1),y
+        pla
+        rts
+
+; -------------------------------------------------------------------------
+; Set timer B to 32,64 ms and start it
+
+SetTimB32ms:
+        lda     #$FF            ; 255*256*0,5 µs
+        ldy     #TimBHi
+        sta     (cia),y         ; as high byte, low byte = 0
+        lda     #$11
+        ldy     #CtrlB
+        sta     (cia),y         ; Start the timer
+        ldy     #IntCtrReg
+        lda     (cia),y         ; Clear the interrupt flag
+        clc
+        rts