@P
@L
@H1"STconverter?"

Did you build that midi-interface?@L
Have your friend got an Atari ST?@L
Do you want to convert pictures from ST to Amiga?@L
Then this is for you!@L
@L

All you need is two simple programs, one to send and one to recieve.
The Amiga-program is found in the dir @Ksources@N. The program on the Atari is
listed below with comments.
The program on Amiga sits waiting for a controlbyte, then it recieves 16
colours and 4 bitplanes. If you want to save your picture as IFF, reset and
use a program like the graphics- searcher.@L@L
The ST-program uses the printvector and will be executed when you press the
keys Alt + Help together. We did that so you can send pictures
direct from your paintingprogram.

+++++++++++++++++++++++++++++++++++++har ar den forsta kolumnen slut

@CType this into your favourite Atari-assembler ...@L
@Kstart:@N@L
	clr.l	-(sp)@L
	move.w	#$20,-(sp)@L
	trap	#1@L
			;enter supervisor@L
	addq.l	#6,sp@L
	lea	ssp(pc),a0@L
	move.l	d0,(a0)@L
	move.l	#myvec,$502.w@L
			;change printvector@L
	move.l	(a0),sp@L
	move.w	#$20,-(sp)@L
	trap	#1@L
			;enter usermode@L
	addq.l	#6,sp@L
	move.w	#0,-(sp)@L
	move.l	#$400,-(sp)@L
	move.w	#$31,-(sp)@L
	trap	#1@L
	rts@L
@L
@Kmyvec:@N@L
	movem.l	d0-d7/a0-a6,-(a7)@L
	bsr.s	sendit@L
	movem.l	(a7)+,d0-d7/a0-a6@L
	rts

++++++++++++++++++++++++++++++++++++Har ar den forsta sidan slut

@Ksendit:@N@L
	move.w	sr,d5@L
	or.w	#$700,sr@L
			;disable interupts@L
@L
	move.b	#$ff,d1@L
	bsr	send@L
			;send controlbyte@L
@L
	moveq.w	#$f,d3@L
	lea	$ff8240,a2@L
			;colourbase@L
@Kcnext:@N@L
	move.w	(a2),d1@L
	lsr.w	#$8,d1@L
	bsr	send@L
	move.w	(a2)+,d1@L
	bsr	send@L
	dbf	d3,cnext@L
@L
	move.l	$44e.w,a3@L
			;get screenbase@L
	subq.l	#2,a3@L
	moveq.w	#3,d6@L
@Kmainloop:@N@L
	move.w	#$f9f,d3@L
	addq.l	#2,a3@L
	move.l	a3,a2@L
+++++++++++++++++++++++++++Har ar kolumnen slut (hoppas jag)
@Ksnext:@N@L
	move.w	(a2),d1@L
	lsr.w	#8,d1@L
	bsr.s	send@L
	move.w	(a2),d1@L
	bsr.s	send@L
	addq.w	#8,a2@L
	dbf	d3,snext@L
	dbf	d6,mainloop@L
@L
	move.w	d5,sr@L
	rts@L
@L
@Ksend:@N@L
			;send reg d1 to MIDI@L
	lea	$fffc04,a1@L
@Kswait:@N@L
	move.b	(a1),d2@L
	btst	#1,d2@L
	beq	swait@L
	move.b	d1,2(a1)@L
	rts@L
@Kssp:@N@L
	ds.l	1@L
@L
For more information, look in the Amiga-source	/ * Mahoney & Kaktus *
@L

++++++++++++++++++++++slutt!

    Det ar inte mycket till forklaring, men jag hoppas det racker.
	hejda ...        / Per

