initial commit

2026-05-21 21:33:56 +02:00 · 2015-12-14 14:00:35 +01:00
commit 5a96c0ca66
377 changed files with 149124 additions and 0 deletions
@@ -0,0 +1,133 @@
+;   atari_asm.asm - Amiga specific port code
+; 
+;   Copyright (c) 2000 Sebastian Bauer
+;   Copyright (C) 2000-2003 Atari800 development team (see DOC/CREDITS)
+;
+;   This file is part of the Atari800 emulator project which emulates
+;   the Atari 400, 800, 800XL, 130XE, and 5200 8-bit computers.
+;
+;   Atari800 is free software; you can redistribute it and/or modify
+;   it under the terms of the GNU General Public License as published by
+;   the Free Software Foundation; either version 2 of the License, or
+;   (at your option) any later version.
+;
+;   Atari800 is distributed in the hope that it will be useful,
+;   but WITHOUT ANY WARRANTY; without even the implied warranty of
+;   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;   GNU General Public License for more details.
+;
+;   You should have received a copy of the GNU General Public License
+;   along with Atari800; if not, write to the Free Software
+;   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+
+	MC68020
+
+	XDEF _ScreenData28bit
+
+; a0 - UBYTE *screen
+; a1 - UBYTE *destscreendata
+; a2 - UBYTE *colortable8
+; d0 - UWORD width
+; d1 - UWORD height
+
+_ScreenData28bit:
+			movem.l	d2/d7,-(a7)
+			lsr.w	#2,d0
+			subq.l	#1,d1
+			subq.l	#1,d0
+
+			moveq	#0,d2
+;			moveq	#0,d3
+;			moveq	#0,d4
+;			moveq	#0,d5
+
+.heightloop:	move.l	d0,d7
+
+.widthloop:
+;			move.b	(a0)+,d2
+;			move.b	(a0)+,d3
+;			move.b	(a0)+,d4
+;			move.b	(a0)+,d5
+
+;			move.b	(a2,d2),(a1)+
+;			move.b	(a2,d3),(a1)+
+;			move.b	(a2,d4),(a1)+
+;			move.b	(a2,d5),(a1)+
+
+			move.b	(a0)+,d2
+			move.b	(a2,d2),(a1)+
+
+			move.b	(a0)+,d2
+			move.b	(a2,d2),(a1)+
+
+			move.b	(a0)+,d2
+			move.b	(a2,d2),(a1)+
+
+			move.b	(a0)+,d2
+			move.b	(a2,d2),(a1)+
+
+;			moveq	#0,d3
+;			moveq	#0,d5
+
+;			move.b	(a0)+,d2
+;			move.b	(a2,d2),d3
+
+;			move.b	(a0)+,d2
+;			lsl.w	#8,d3
+;			move.b	(a2,d2),d4
+
+;			move.b	(a0)+,d2
+;			or.w		d4,d3
+;			move.b	(a2,d2),d5
+;			swap		d3
+
+;			move.b	(a0)+,d2
+;			lsl.w	#8,d5
+;			move.b	(a2,d2),d3
+
+;			or.w		d5,d3
+;			move.l	d3,(a1)+
+
+			dbra		d7,.widthloop
+			dbra		d1,.heightloop
+
+			movem.l	(a7)+,d2/d7
+			rts
+
+
+			XDEF _ScreenData215bit
+
+; a0 - UBYTE *screen
+; a1 - UWORD *destscreendata
+; a2 - UWORD *colortable15
+; d0 - UWORD width
+; d1 - UWORD height
+
+
+_ScreenData215bit:
+			movem.l	d2/d3/d7,-(a7)
+			lsr.l	#1,d0
+			subq.l	#1,d1
+			subq.l	#1,d0
+
+			moveq	#0,d2
+
+.heightloop:	move.l	d0,d7
+
+.widthloop:
+			move.b	(a0)+,d2
+			move.w	(a2,d2*2),d3
+
+			move.b	(a0)+,d2
+			swap		d3
+			move.w	(a2,d2*2),d3
+
+			move.l	d3,(a1)+
+
+			dbra		d7,.widthloop
+			dbra		d1,.heightloop
+
+			movem.l	(a7)+,d2/d3/d7
+			rts
+
+			end