home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / develop / as65 / connect_c64 / main_c64.asm < prev    next >
Assembly Source File  |  1995-02-27  |  2KB  |  78 lines
  1.                         ;*****************************
  2.                         ;Datenübertragung AMIGA -> C64
  3.                         ;Empfangsprogramm 64`er Seite
  4.                         ;
  5.                         ;05.Nov.89 by Thomas Lehmann
  6.                         ;*****************************
  7.  
  8.                         .sernr TLS_A0002
  9.  
  10.  
  11.                         .include "inc/defines.h"
  12.                         .include "inc/macros.h"
  13.  
  14.  
  15. BUFFER                .equ    $8000            ;empfangene Daten ablegen
  16.  
  17.  
  18.                         *= $e000                ; Epromversion
  19.  
  20. start                    jsr init                ;Initialisierung
  21.                         jsr cls                ;Bildschirm löschen
  22.                         jsr prg_head        ;Programmkopf ausgeben
  23.                         jmp receive_data    ;Daten empfangen
  24.  
  25.  
  26.                         .include "init.asm"
  27.                         .include "screen.asm"
  28.                         .include "receive.asm"
  29.  
  30.                         ;=====================
  31.                         ;Programmkopf ausgeben
  32.                         ;=====================
  33.  
  34. prg_head                ?print 40,"UEBERTRAGUNGSPROGRAMM AMIGA (PAR:)->C64 "
  35.                         ?print 80,"(C) 05.NOV.1989   BY THOMAS LEHMANN     "
  36.                         ?print 160,"BUFFER: $"
  37.                         jsr show_buffadr        ;aktuelle Bufferadr. ausgeben
  38.                         rts
  39.  
  40.  
  41.                         ;============================
  42.                         ;aktuelle Bufferadr. ausgeben
  43.                         ;============================
  44.  
  45. show_buffadr        lda BUFF_PTR+1            ;high Byte Bufferptr.
  46.                         pha
  47.                         and #$0f
  48.                         clc
  49.                         adc #"0"                    ;in ASCII wandeln
  50.                         sta buff_txt+1            ;und ablegen
  51.                         pla
  52.                         lsr
  53.                         lsr
  54.                         lsr
  55.                         lsr
  56.                         and #$0f
  57.                         clc
  58.                         adc #"0"                    ;in ASCII wandeln
  59.                         sta buff_txt            ;und ablegen
  60.  
  61.                         ldx #<buff_txt            ;Bufferadr. ausgeben
  62.                         ldy #>buff_txt
  63.                         lda #169
  64.                         jsr print_txt
  65.                         rts
  66.  
  67. buff_txt                .null " 000"
  68.  
  69.  
  70. irq                    rti
  71.  
  72.                         *= $fffa
  73.  
  74.                         .word irq
  75.                         .word start
  76.                         .word irq
  77.  
  78.