mirror of
https://github.com/cc65/cc65.git
synced 2025-01-03 01:31:55 +00:00
246 lines
5.4 KiB
ArmAsm
246 lines
5.4 KiB
ArmAsm
;
|
||
; 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 <EFBFBD>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
|