;*****************************
						;Datenübertragung AMIGA -> C64
						;Empfangsprogramm 64`er Seite
						;
						;05.Nov.89 by Thomas Lehmann
						;*****************************

						.sernr TLS_A0002


						.include "inc/defines.h"
						.include "inc/macros.h"


BUFFER				.equ	$2000			;empfangene Daten ablegen


						*= $1000

start					jsr init				;Initialisierung
						jsr cls				;Bildschirm löschen
						jsr prg_head		;Programmkopf ausgeben
						jmp receive_data	;Daten empfangen


						.include "init.asm"
						.include "screen.asm"
						.include "receive.asm"

						;=====================
						;Programmkopf ausgeben
						;=====================

prg_head				?print 40,"UEBERTRAGUNGSPROGRAMM AMIGA (PAR:)->C64 "
						?print 80,"(C) 05.NOV.1989   BY THOMAS LEHMANN     "
						?print 160,"BUFFER: $"
						jsr show_buffadr		;aktuelle Bufferadr. ausgeben
						rts


						;============================
						;aktuelle Bufferadr. ausgeben
						;============================

show_buffadr		lda BUFF_PTR+1			;high Byte Bufferptr.
						pha
						and #$0f
						clc
						adc #"0"					;in ASCII wandeln
						sta buff_txt+1			;und ablegen
						pla
						lsr
						lsr
						lsr
						lsr
						and #$0f
						clc
						adc #"0"					;in ASCII wandeln
						sta buff_txt			;und ablegen

						ldx #<buff_txt			;Bufferadr. ausgeben
						ldy #>buff_txt
						lda #169
						jsr print_txt
						rts

buff_txt				.null " 000"