home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The CDPD Public Domain Collection for CDTV 4
/
CDPD_IV.bin
/
fish
/
931-950
/
ff942
/
as65
/
connect_c64
/
receive.asm
< prev
next >
Wrap
Assembly Source File
|
1993-12-22
|
2KB
|
75 lines
;*****************************
;Datenübertragung AMIGA -> C64
;
;Daten empfangen
;*****************************
receive_data ?print 200,"WAITING FOR DATA"
sei
;====================
;auf Startbyte warten
;====================
wait_byte inx
stx SCREEN_ADR
lda #$10 ;Maske für BIT 4 laden
bit CIA_ICR ;liegt Byte an?
bne get_byte ;ja, Byte holen
lda CIA_PORT ;Signal auf Port-Controll-Ltg. ausgeben
bne wait_byte
beq wait_byte
;===================
;Byte vom Port holen
;===================
get_byte lda CIA_PORT ;Byte vom Port holen
sta SCREEN_ADR+2 ;und zur Kontrolle ausgeben
ldy #$00
sta (BUFF_PTR),y ;und in den Buffer schreiben
?print 200,"RECEIVING DATA "
inc BUFF_PTR ;Bufferptr. low erhöhen
bne time_out ;kein Überlauf
inc BUFF_PTR+1 ;Bufferptr. high erhöhen
;=======
;Timeout
;=======
time_out lda #$40 ;high Byte des Timeout Zählers
sta $02
ldx #$00 ;low Byte Timeout
time_out1 lda #$10 ;Maske für BIT 4 laden
bit CIA_ICR ;liegt Byte an?
bne get_byte ;ja, Byte holen
dex ;Timeout Zähler-1
bne time_out1
dec $02 ;Timeout high Byte-1
bne time_out1
;======================================
;Timeout erreicht, Rücksprung zum Basic
;======================================
lda #$37
sta $01 ;Basicinterpreter wieder einschalten
cli
?print 240,"ALLRIGHT"
lda #10 ;Curor auf Zeile setzen
sta $d6
ldx #$00
ldy #$00
wait dex
bne wait
dey
bne wait
jmp start ; Neustart