home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Frozen Fish 1: Amiga
/
FrozenFish-Apr94.iso
/
bbs
/
alib
/
d9xx
/
d942
/
as65.lha
/
AS65
/
Connect_C64
/
main_C64.asm
< prev
next >
Wrap
Assembly Source File
|
1993-12-20
|
2KB
|
78 lines
;*****************************
;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 $8000 ;empfangene Daten ablegen
*= $e000 ; Epromversion
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"
irq rti
*= $fffa
.word irq
.word start
.word irq