added missing source files from original code

2012-10-12 09:16:15 +00:00
parent bd57530aea
commit b314b79c9d
34 changed files with 14097 additions and 0 deletions
--- a/BaS_GNU/sources/ii_dbcc.h
+++ b/BaS_GNU/sources/ii_dbcc.h
@@ -0,0 +1,117 @@
+//--------------------------------------------------------------------
+// dbcc,trapcc
+//--------------------------------------------------------------------
+.text
+ii_lset_dbcc:.macro 
+// dbra
+	ii_lset_opeau	51,c
+	ii_lset_opeau	52,c
+	ii_lset_opeau	53,c
+	ii_lset_opeau	54,c
+	ii_lset_opeau	55,c
+	ii_lset_opeau	56,c
+	ii_lset_opeau	57,c
+	ii_lset_opeau	58,c
+	ii_lset_opeau	59,c
+	ii_lset_opeau	5a,c
+	ii_lset_opeau	5b,c
+	ii_lset_opeau	5c,c
+	ii_lset_opeau	5d,c
+	ii_lset_opeau	5e,c
+	ii_lset_opeau	5f,c
+.endm
+
+ii_dbcc_func:.macro
+ii_0x51c8:
+		dbra_macro	d0_off+2(a7)
+ii_0x51c9:
+		dbra_macro	d1_off+2(a7)
+ii_0x51ca:
+		dbra_macro	d2
+ii_0x51cb:
+		dbra_macro	d3
+ii_0x51cc:
+		dbra_macro	d4
+ii_0x51cd:
+		dbra_macro	d5
+ii_0x51ce:
+		dbra_macro	d6
+ii_0x51cf:
+		dbra_macro	d7
+//---------------------------------------------------------------------------------------------
+// dbcc dx
+//---------------------------------------------------------------------------------------------
+		ii_dbcc	2,hi
+		ii_dbcc 3,ls
+		ii_dbcc	4,cc
+		ii_dbcc 5,cs
+		ii_dbcc	6,ne
+		ii_dbcc	7,eq
+		ii_dbcc	8,vc
+		ii_dbcc 9,vs
+		ii_dbcc a,pl
+		ii_dbcc b,mi
+		ii_dbcc c,ge
+		ii_dbcc	d,lt
+		ii_dbcc	e,gt
+		ii_dbcc	f,le
+.endm		
+//---------------------------------------------------------------------------------------------
+// dbra dx
+//---------------------------------------------------------------------------------------------
+dbra_macro:.macro
+#ifdef	halten_dbcc
+	halt
+#endif
+		mvz.w	\1,d1				// dx holen
+		subq.l	#1,d1				// dx-1
+		bcc		dbra\@				// bra if plus?
+		addq.l	#2,a0				// offset <20>berspringen		
+		move.w	d1,\1				// dx sichern
+ 		ii_end
+dbra\@:
+		move.w	(a0),a1				// offset (wird auf long erweitert)
+		add.l	a1,a0				// dazuadieren
+		move.w	d1,\1				// dx sichern
+ 		ii_end
+.endm
+//---------------------------------------------------------------------------------------------
+// dbcc dx
+//---------------------------------------------------------------------------------------------
+dbcc_macro:.macro
+#ifdef	halten_dbcc
+	halt
+#endif
+		b\2		dbncc\@		
+		mvz.w	\1,d1				// dx holen
+		subq.l	#1,d1				// dx-1
+		bcc		dbcc\@				// bra if plus?
+dbncc\@:
+		addq.l	#2,a0				// offset <20>berspringen		
+		move.w	d1,\1				// dx sichern
+ 		ii_end
+dbcc\@:
+		move.w	(a0),a1				// offset (wird auf long erweitert)
+		add.l	a1,a0				// dazuadieren
+		move.w	d1,\1				// dx sichern
+ 		ii_end
+.endm
+//db
+ii_dbcc:.macro
+ii_0x5\1c8:
+		dbcc_macro	d0_off+2(a7),\2
+ii_0x5\1c9:
+		dbcc_macro	d1_off+2(a7),\2
+ii_0x5\1ca:
+		dbcc_macro	d2,\2
+ii_0x5\1cb:
+		dbcc_macro	d3,\2
+ii_0x5\1cc:
+		dbcc_macro	d4,\2
+ii_0x5\1cd:
+		dbcc_macro	d5,\2
+ii_0x5\1ce:
+		dbcc_macro	d6,\2
+ii_0x5\1cf:
+		dbcc_macro	d7,\2
+.endm