diff --git a/BaS_GNU/sources/ii_add.h b/BaS_GNU/sources/ii_add.h deleted file mode 100644 index bc23f63..0000000 --- a/BaS_GNU/sources/ii_add.h +++ /dev/null @@ -1,581 +0,0 @@ -//-------------------------------------------------------------------- -// add -//-------------------------------------------------------------------- -/*****************************************************************************************/ -//-------------------------------------------------------------------- -// byt -//-------------------------------------------------------------------- -//-------------------------------------------------------------------- -// add.b #im,dx -//-------------------------------------------------------------------- -addbir_macro:.macro - move.w (a0)+,d0 - extb.l d0 - mvs.b \2,d1 - add.l d0,d1 - set_cc0 - move.b d1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // add ea,dx -//-------------------------------------------------------------------- -adddd:.macro -#ifdef halten_add - halt -#endif - mvs.\3 \1,d0 - mvs.\3 \2,d1 - add.l d0,d1 - set_cc0 - move.\3 d1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // add ea,dx (first ea->a1 z.B. für a0,a1,USP) -//-------------------------------------------------------------------- -addddd:.macro -#ifdef halten_add - halt -#endif - move.l \1,a1 - mvs.\3 a1,d0 - mvs.\3 \2,d1 - add.l d0,d1 - set_cc0 - move.\3 d1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // add (ea),dx (first ea->a1 z.B. für a0,a1,USP) -//-------------------------------------------------------------------- -adddda:.macro -#ifdef halten_add - halt -#endif - move.l \1,a1 - mvs.\3 (a1),d0 - mvs.\3 \2,d1 - add.l d0,d1 - set_cc0 - move.\3 d1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // add (ay)+,dx (first ea->a1 z.B. für a0,a1,USP) -//-------------------------------------------------------------------- -addddai:.macro -#ifdef halten_add - halt -#endif - move.l \1,a1 - mvs.\3 (a1)+,d0 - move.l a1,\1 - mvs.\3 \2,d1 - add.l d0,d1 - set_cc0 - move.\3 d1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // add -(ay),dx (first ea->a1 z.B. für a0,a1,USP) -//-------------------------------------------------------------------- -addddad:.macro -#ifdef halten_add - halt -#endif - move.l \1,a1 - mvs.\3 -(a1),d0 - move.l a1,\1 - mvs.\3 \2,d1 - add.l d0,d1 - set_cc0 - move.\3 d1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // add d16(ay),dx -//-------------------------------------------------------------------- -addd16ad:.macro -#ifdef halten_add - halt -#endif - move.l \1,a1 - mvs.w (a0)+,d0 - add.l d0,a1 - mvs.\3 (a1),d0 - mvs.\3 \2,d1 - add.l d0,d1 - set_cc0 - move.\3 d1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // add d8(ay,dy),dx -//-------------------------------------------------------------------- -addd8ad:.macro -#ifdef halten_add - halt -#endif - move.l \1,a1 - jsr ewf -.ifc \3,l - move.l (a1),d0 - move.l \2,d1 -.else - mvs.\3 (a1),d0 - mvs.\3 \2,d1 -.endif - add.l d0,d1 - set_cc0 - move.\3 d1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // add xxx.w,dx -//-------------------------------------------------------------------- -addxwd:.macro -#ifdef halten_add - halt -#endif - move.w (a0)+,a1 - mvs.\3 (a1),d0 - mvs.\3 \2,d1 - add.l d0,d1 - set_cc0 - move.\3 d1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // add xxx.l,dx -//-------------------------------------------------------------------- -addxld:.macro -#ifdef halten_add - halt -#endif - move.l (a0)+,a1 - mvs.\3 (a1),d0 - mvs.\3 \2,d1 - add.l d0,d1 - set_cc0 - move.\3 d1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // add d16(pc),dx -//-------------------------------------------------------------------- -addd16pcd:.macro -#ifdef halten_add - halt -#endif - move.l a0,a1 - mvs.w (a0)+,d0 - add.l d0,a1 - mvs.\3 (a1),d0 - mvs.\3 \2,d1 - add.l d0,d1 - set_cc0 - move.\3 d1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // add d8(pc,dy),dx -//-------------------------------------------------------------------- -addd8pcd:.macro -#ifdef halten_add - halt -#endif - move.l a0,a1 - jsr ewf -.ifc \3,l - move.l (a1),d0 - move.l \2,d1 -.else - mvs.\3 (a1),d0 - mvs.\3 \2,d1 -.endif - add.l d0,d1 - set_cc0 - move.\3 d1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// add dy,ea -//-------------------------------------------------------------------- -//-------------------------------------------------------------------- -// // add dx,(ay) (first ea->a1 z.B. für a0,a1,USP) -//-------------------------------------------------------------------- -addeda:.macro -#ifdef halten_add - halt -#endif - mvs.\3 \1,d0 - move.l \2,a1 - mvs.\3 (a1),d1 - add.l d0,d1 - set_cc0 - move.\3 d1,(a1) - ii_end - .endm; -//-------------------------------------------------------------------- -// // add dx,(ay)+ (first ea->a1 z.B. für a0,a1,USP) -//-------------------------------------------------------------------- -addedai:.macro -#ifdef halten_add - halt -#endif - mvs.\3 \1,d0 - move.l \2,a1 - mvs.\3 (a1),d1 - add.l d0,d1 - set_cc0 - move.\3 d1,(a1)+ - move.l a1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // add dx,(ay)+ -//-------------------------------------------------------------------- -addedaid:.macro -#ifdef halten_add - halt -#endif - mvs.\3 \1,d0 - mvs.\3 \2,d1 - add.l d0,d1 - set_cc0 - move.\3 d1,\2+ - ii_end - .endm; -//-------------------------------------------------------------------- -// // add dx,-(ay) -//-------------------------------------------------------------------- -addedad:.macro -#ifdef halten_add - halt -#endif - mvs.\3 \1,d0 - move.l \2,a1 - mvs.\3 -(a1),d1 - move.l a1,\2 - add.l d0,d1 - set_cc0 - move.\3 d1,(a1) - ii_end - .endm; -//-------------------------------------------------------------------- -// // add dx,-(ay) -//-------------------------------------------------------------------- -addedadd:.macro -#ifdef halten_add - halt -#endif - mvs.\3 \1,d0 - mvs.\3 -\2,d1 - add.l d0,d1 - set_cc0 - move.\3 d1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // add dx,d16(ay) -//-------------------------------------------------------------------- -adde16ad:.macro -#ifdef halten_add - halt -#endif - mvs.\3 \1,d0 - move.l \2,a1 - mvs.w (a0)+,d1 - add.l d1,a1 - mvs.\3 (a1),d1 - add.l d0,d1 - set_cc0 - move.\3 d1,(a1) - ii_end - .endm; -//-------------------------------------------------------------------- -// // add.w d8(ay,dy),dx -//-------------------------------------------------------------------- -adde8ad:.macro -#ifdef halten_add - halt -#endif - move.l \2,a1 - jsr ewf -.ifc \3,l - move.l (a1),d1 - move.l \1,d0 -.else - mvs.\3 (a1),d1 - mvs.\3 \1,d0 -.endif - add.l d0,d1 - set_cc0 - move.\3 d1,(a1) - ii_end - .endm; -//-------------------------------------------------------------------- -// // add dx,xxx.w -//-------------------------------------------------------------------- -addxwe:.macro -#ifdef halten_add - halt -#endif - mvs.\3 \1,d0 - move.w (a0)+,a1 - mvs.\3 (a1),d1 - add.l d0,d1 - set_cc0 - move.\3 d1,(a1) - ii_end - .endm; -//-------------------------------------------------------------------- -// // add dx,xxx.l -//-------------------------------------------------------------------- -addxle:.macro -#ifdef halten_add - halt -#endif - mvs.\3 \1,d0 - move.l (a0)+,a1 - mvs.\3 (a1),d1 - add.l d0,d1 - set_cc0 - move.\3 d1,(a1) - ii_end - .endm; -/******************************************************/ -// adress register -/******************************************************/ -//-------------------------------------------------------------------- -// // adda.w ea,ax (ea = dx;ax;(ax);(ax)+,-(ax) -//-------------------------------------------------------------------- -addaw:.macro -#ifdef halten_add - halt -#endif - move.l a0,pc_off(a7) // pc auf next - movem.l (a7),d0/d1/a0/a1 // register zurpück - mvs.w \1,d0 - adda.l d0,\2 - move.l d0_off(a7),d0 - lea ii_ss(a7),a7 // stack erhöhen - rte - .endm; -//-------------------------------------------------------------------- -// add.w ea,usp -//-------------------------------------------------------------------- -addawa7:.macro -#ifdef halten_add - halt -#endif - mvs.w \1,d0 - move.l usp,a1 - add.l d0,a1 - move.l a1,usp - ii_end - .endm; -//-------------------------------------------------------------------- -// // adda.w ea,usp (ea = dx;ax;(ax);(ax)+,-(ax) -//-------------------------------------------------------------------- -addawu:.macro -#ifdef halten_add - halt -#endif - move.l a0,pc_off(a7) // pc auf next - movem.l (a7),d0/d1/a0/a1 // register zurpück - move.l a7,_a7_save - move.l usp,a7 - move.l \1,d0 - adda.l d0,\2 - move.l a7,usp - move.l _a7_save,a7 - move.l d0_off(a7),d0 - lea ii_ss(a7),a7 // stack erhöhen - rte - .endm; -//-------------------------------------------------------------------- -// // adda.w ea,usp (ea = a7 => dx;ax;(ax);(ax)+,-(ax) -//-------------------------------------------------------------------- -addawua7:.macro - addawu \1,\2 - .endm; -//-------------------------------------------------------------------- -// // adda.w d16(ay),ax -//-------------------------------------------------------------------- -addawd16a:.macro -#ifdef halten_add - halt -#endif - move.l \1,a1 - mvs.w (a0)+,d0 - adda.l d0,a1 - mvs.w (a1),d0 - move.l \2,a1 - add.l d0,a1 - move.l a1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // adda.w d8(ay,dy),ax -//-------------------------------------------------------------------- -addawd8a:.macro -#ifdef halten_add - halt -#endif - move.l \1,a1 - jsr ewf - mvs.w (a1),d0 - move.l \2,a1 - add.l d0,a1 - move.l a1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // adda.w xxx.w,ax -//-------------------------------------------------------------------- -addawxwax:.macro -#ifdef halten_add - halt -#endif - move.w \1,a1 - mvs.w (a1),d0 - move.l \2,a1 - adda.l d0,a1 - move.l a1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // adda.w xxx.l,ax -//-------------------------------------------------------------------- -addawxlax:.macro -#ifdef halten_add - halt -#endif - move.l \1,a1 - mvs.w (a1),d0 - move.l \2,a1 - adda.l d0,a1 - move.l a1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // adda.w d16(pc),ax -//-------------------------------------------------------------------- -addawd16pcax:.macro -#ifdef halten_add - halt -#endif - move.w \1,a1 - adda.l a0,a1 - mvs.w (a1),d0 - move.l \2,a1 - adda.l d0,a1 - move.l a1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // adda.w d8(pc,dy),ax -//-------------------------------------------------------------------- -addawd8pcax:.macro -#ifdef halten_add - halt -#endif - move.l a0,a1 - jsr ewf - mvs.w (a1),d0 - move.l \2,a1 - adda.l d0,a1 - move.l a1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // adda.w #im,ax -//-------------------------------------------------------------------- -addawim:.macro -#ifdef halten_add - halt -#endif - mvs.w \1,d0 - move.l \2,a1 - adda.l d0,a1 - move.l a1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // adda.l d8(ay,dy),ax -//-------------------------------------------------------------------- -addald8a:.macro -#ifdef halten_add - halt -#endif - move.l \1,a1 - jsr ewf - move.l (a1),d0 - move.l \2,a1 - adda.l d0,a1 - move.l a1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // adda.l d8(pc,dy),ax -//-------------------------------------------------------------------- -addakd8pcax:.macro -#ifdef halten_add - halt -#endif - move.l a0,a1 - jsr ewf - move.l (a1),d0 - move.l \2,a1 - adda.l d0,a1 - move.l a1,\2 - ii_end - .endm; -//***************************************************************************************** -// addx -//***************************************************************************************** -//-------------------------------------------------------------------- -// // addx dy,dx -//-------------------------------------------------------------------- -adddx:.macro -#ifdef halten_add - halt -#endif - move.b sr_off+1(a7),d0 //ccr holen - move d0,ccr //setzen - mvs.\3 \2,d0 - mvs.\3 \1,d1 - addx.l d0,d1 - set_cc0 - move.\3 d1,\1 - ii_end - .endm; -//-------------------------------------------------------------------- -// // addx -(ay),-(ax) -//-------------------------------------------------------------------- -adddax:.macro -#ifdef halten_add - halt -#endif - move.b sr_off+1(a7),d0 //ccr holen - move d0,ccr //setzen - move.l \1,a1 -.ifc \3,l - move.l -(a1),d0 -.else - mvs.\3 -(a1),d0 -.endif - move.l \2,a1 -.ifc \3,l - move.l -(a1),d0 -.else - mvs.\3 -(a1),d1 -.endif - addx.l d0,d1 - set_cc0 - move.\3 d1,(a1) - ii_end - .endm; -//-------------------------------------------------------------------- diff --git a/BaS_GNU/sources/ii_and.h b/BaS_GNU/sources/ii_and.h deleted file mode 100644 index f74afde..0000000 --- a/BaS_GNU/sources/ii_and.h +++ /dev/null @@ -1,441 +0,0 @@ -//-------------------------------------------------------------------- -// and -//-------------------------------------------------------------------- -/*****************************************************************************************/ -//-------------------------------------------------------------------- -// byt -//-------------------------------------------------------------------- -//-------------------------------------------------------------------- -// and.b #im,dx -//-------------------------------------------------------------------- -andbir_macro:.macro - move.w (a0)+,d0 - extb.l d0 - mvs.b \2,d1 - and.l d0,d1 - set_cc0 - move.b d1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // and ea,dx -//-------------------------------------------------------------------- -anddd:.macro -#ifdef halten_and - halt -#endif - mvs.\3 \1,d0 - mvs.\3 \2,d1 - and.l d0,d1 - set_cc0 - move.\3 d1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // and ea(l)->dy(w),dx z.B. für USP -//-------------------------------------------------------------------- -andddd:.macro -#ifdef halten_and - halt -#endif - move.l \1,a1 - mvs.\3 a1,d0 - mvs.\3 \2,d1 - and.l d0,d1 - set_cc0 - move.\3 d1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // and (ea)->dy,dx -//-------------------------------------------------------------------- -anddda:.macro -#ifdef halten_and - halt -#endif - move.l \1,a1 - mvs.\3 (a1),d0 - mvs.\3 \2,d1 - and.l d0,d1 - set_cc0 - move.\3 d1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // and ea->ay,(ay)+,dx -//-------------------------------------------------------------------- -andddai:.macro -#ifdef halten_and - halt -#endif - move.l \1,a1 - mvs.\3 (a1)+,d0 - move.l a1,\1 - mvs.\3 \2,d1 - and.l d0,d1 - set_cc0 - move.\3 d1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // and ea->ay,-(ay),dx -//-------------------------------------------------------------------- -andddad:.macro -#ifdef halten_and - halt -#endif - move.l \1,a1 - mvs.\3 -(a1),d0 - move.l a1,\1 - mvs.\3 \2,d1 - and.l d0,d1 - set_cc0 - move.\3 d1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // and d16(ay),dx -//-------------------------------------------------------------------- -andd16ad:.macro -#ifdef halten_and - halt -#endif - move.l \1,a1 - mvs.w (a0)+,d0 - add.l d0,a1 - mvs.\3 (a1),d0 - mvs.\3 \2,d1 - and.l d0,d1 - set_cc0 - move.\3 d1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // and d8(ay,dy),dx -//-------------------------------------------------------------------- -andd8ad:.macro -#ifdef halten_and - halt -#endif - move.l \1,a1 - jsr ewf -.ifc \3,l - move.l (a1),d0 - move.l \2,d1 -.else - mvs.\3 (a1),d0 - mvs.\3 \2,d1 -.endif - and.l d0,d1 - set_cc0 - move.\3 d1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // and xxx.w,dx -//-------------------------------------------------------------------- -andxwd:.macro -#ifdef halten_and - halt -#endif - move.w (a0)+,a1 - mvs.\3 (a1),d0 - mvs.\3 \2,d1 - and.l d0,d1 - set_cc0 - move.\3 d1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // and xxx.l,dx -//-------------------------------------------------------------------- -andxld:.macro -#ifdef halten_and - halt -#endif - move.l (a0)+,a1 - mvs.\3 (a1),d0 - mvs.\3 \2,d1 - and.l d0,d1 - set_cc0 - move.\3 d1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // and d16(pc),dx -//-------------------------------------------------------------------- -andd16pcd:.macro -#ifdef halten_and - halt -#endif - move.l a0,a1 - mvs.w (a0)+,d0 - add.l d0,a1 - mvs.\3 (a1),d0 - mvs.\3 \2,d1 - and.l d0,d1 - set_cc0 - move.\3 d1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // and d8(pc,dy),dx -//-------------------------------------------------------------------- -andd8pcd:.macro -#ifdef halten_and - halt -#endif - move.l a0,a1 - jsr ewf -.ifc \3,l - move.l (a1),d0 - move.l \2,d1 -.else - mvs.\3 (a1),d0 - mvs.\3 \2,d1 -.endif - and.l d0,d1 - set_cc0 - move.\3 d1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// and dx,ea -//-------------------------------------------------------------------- -//-------------------------------------------------------------------- -// // and dx,(ea)->dy -//-------------------------------------------------------------------- -andeda:.macro -#ifdef halten_and - halt -#endif - mvs.\3 \1,d0 - move.l \2,a1 - mvs.\3 (a1),d1 - and.l d0,d1 - set_cc0 - move.\3 d1,(a1) - ii_end - .endm; -//-------------------------------------------------------------------- -// // and dx,ea->ay,(ay)+ -//-------------------------------------------------------------------- -andedai:.macro -#ifdef halten_and - halt -#endif - mvs.\3 \1,d0 - move.l \2,a1 - mvs.\3 (a1),d1 - and.l d0,d1 - set_cc0 - move.\3 d1,(a1)+ - move.l a1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // and dx,ea->ay,(ay)+ -//-------------------------------------------------------------------- -andedaid:.macro -#ifdef halten_and - halt -#endif - mvs.\3 \1,d0 - mvs.\3 \2,d1 - and.l d0,d1 - set_cc0 - move.\3 d1,\2+ - ii_end - .endm; -//-------------------------------------------------------------------- -// // and dx,ea->ay,-(ay) -//-------------------------------------------------------------------- -andedad:.macro -#ifdef halten_and - halt -#endif - mvs.\3 \1,d0 - move.l \2,a1 - mvs.\3 -(a1),d1 - move.l a1,\2 - and.l d0,d1 - set_cc0 - move.\3 d1,(a1) - ii_end - .endm; -//-------------------------------------------------------------------- -// // and dx,ea->ay,-(ay) -//-------------------------------------------------------------------- -andedadd:.macro -#ifdef halten_and - halt -#endif - mvs.\3 \1,d0 - mvs.\3 -\2,d1 - and.l d0,d1 - set_cc0 - move.\3 d1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // and dx,d16(ay) -//-------------------------------------------------------------------- -ande16ad:.macro -#ifdef halten_and - halt -#endif - mvs.\3 \1,d0 - move.l \2,a1 - mvs.w (a0)+,d1 - add.l d1,a1 - mvs.\3 (a1),d1 - and.l d0,d1 - set_cc0 - move.\3 d1,(a1) - ii_end - .endm; -//-------------------------------------------------------------------- -// // and.w dx,d8(ay,dy) -//-------------------------------------------------------------------- -ande8ad:.macro -#ifdef halten_and - halt -#endif - move.l \2,a1 - jsr ewf -.ifc \3,l - move.l (a1),d1 - move.l \1,d0 -.else - mvs.\3 (a1),d1 - mvs.\3 \1,d0 -.endif - and.l d0,d1 - set_cc0 - move.\3 d1,(a1) - ii_end - .endm; -//-------------------------------------------------------------------- -// // and dx,xxx.w -//-------------------------------------------------------------------- -andxwe:.macro -#ifdef halten_and - halt -#endif - mvs.\3 \1,d0 - move.w (a0)+,a1 - mvs.\3 (a1),d1 - and.l d0,d1 - set_cc0 - move.\3 d1,(a1) - ii_end - .endm; -//-------------------------------------------------------------------- -// // and dx,xxx.l -//-------------------------------------------------------------------- -andxle:.macro -#ifdef halten_and - halt -#endif - mvs.\3 \1,d0 - move.l (a0)+,a1 - mvs.\3 (a1),d1 - and.l d0,d1 - set_cc0 - move.\3 d1,(a1) - ii_end - .endm; -//-------------------------------------------------------------------- -// // anda.w ea,ax -//-------------------------------------------------------------------- -andaw:.macro - jmp ii_error - .endm; -//-------------------------------------------------------------------- -// and.w ea,usp -//-------------------------------------------------------------------- -andawa7:.macro - jmp ii_error - .endm; -//-------------------------------------------------------------------- -// // anda.w usp?,ax -//-------------------------------------------------------------------- -andawu:.macro - jmp ii_error - .endm; -//-------------------------------------------------------------------- -// // anda.w usp?,usp -//-------------------------------------------------------------------- -andawua7:.macro - andawu \1,\2 - .endm; -//-------------------------------------------------------------------- -// // anda.w d16(ay),ax -//-------------------------------------------------------------------- -andawd16a:.macro - jmp ii_error - .endm; -//-------------------------------------------------------------------- -// // anda.w d8(ay,dy),ax -//-------------------------------------------------------------------- -andawd8a:.macro - jmp ii_error - .endm; -//-------------------------------------------------------------------- -// // anda.w xxx.w,ax -//-------------------------------------------------------------------- -andawxwax:.macro - jmp ii_error - .endm; -//-------------------------------------------------------------------- -// // anda.w xxx.l,ax -//-------------------------------------------------------------------- -andawxlax:.macro - jmp ii_error - .endm; -//-------------------------------------------------------------------- -// // anda.w d16(pc),ax -//-------------------------------------------------------------------- -andawd16pcax:.macro - jmp ii_error - .endm; -//-------------------------------------------------------------------- -// // anda.w d8(pc,dy),ax -//-------------------------------------------------------------------- -andawd8pcax:.macro - jmp ii_error - .endm; -//-------------------------------------------------------------------- -// // anda.w #im,ax -//-------------------------------------------------------------------- -andawim:.macro - jmp ii_error - .endm; -//-------------------------------------------------------------------- -// // anda.l d8(ay,dy),ax -//-------------------------------------------------------------------- -andald8a:.macro - jmp ii_error - .endm; -//-------------------------------------------------------------------- -// // anda.l d8(pc,dy),ax -//-------------------------------------------------------------------- -andald8pcax:.macro - jmp ii_error - .endm; -//***************************************************************************************** -// spezial addx subx etc. -//-------------------------------------------------------------------- -//-------------------------------------------------------------------- -// // addx dy,dx -//-------------------------------------------------------------------- -anddx:.macro - jmp ii_error - .endm; -//-------------------------------------------------------------------- -// // addx -(ay),-(ax) -//-------------------------------------------------------------------- -anddax:.macro - jmp ii_error - .endm; -//-------------------------------------------------------------------- diff --git a/BaS_GNU/sources/ii_dbcc.h b/BaS_GNU/sources/ii_dbcc.h deleted file mode 100644 index 652cdbe..0000000 --- a/BaS_GNU/sources/ii_dbcc.h +++ /dev/null @@ -1,117 +0,0 @@ -//-------------------------------------------------------------------- -// 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 ü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 ü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 \ No newline at end of file diff --git a/BaS_GNU/sources/ii_ewf.h b/BaS_GNU/sources/ii_ewf.h deleted file mode 100644 index 34d2483..0000000 --- a/BaS_GNU/sources/ii_ewf.h +++ /dev/null @@ -1,181 +0,0 @@ -//-------------------------------------------------------------------- -// extension word format missing -//-------------------------------------------------------------------- -.text -ii_ewf_lset:.macro -// pea - ii_lset_opeag 48,7 - ii_lset 0x487b -// jmp - ii_lset_opeag 4e,f - ii_lset 0x4efb -// jsr - ii_lset_opeag 4e,b - ii_lset 0x4ebb -// tas - ii_lset_opeag 4a,f - ii_lset 0x4ebb -// tst.b - ii_lset_opeag 4a,3 - ii_lset 0x4ebb -// tst.w - ii_lset_opeag 4a,7 - ii_lset 0x4ebb -// tst.l - ii_lset_opeag 4a,b - ii_lset 0x4ebb -// clr.b - ii_lset_opeag 42,3 - ii_lset 0x423b -// clr.w - ii_lset_opeag 42,7 - ii_lset 0x423b -// clr.l - ii_lset_opeag 42,b - ii_lset 0x423b -.endm -//--------------------------------------------------------------------------------------------- -ii_ewf_func:.macro - ewf_func_macro pea,487 - ewf_func_macro jmp,4ef - ewf_func_macro jsr,4eb - ewf_func_macro tas,4af - ewf_func_macro tstb,4a3 - ewf_func_macro tstw,4a7 - ewf_func_macro tstl,4ab - ewf_func_macro clrb,423 - ewf_func_macro clrw,427 - ewf_func_macro clrl,42b -.endm -//--------------------------------------------------------------------------------------------- -pea_macro:.macro - jsr ewf - move.l (a1),d0 - move.l usp,a1 - move.l d0,-(a1) - move.l a1,usp - ii_end -.endm - -jmp_macro:.macro - jsr ewf - move.l a1,a0 - ii_end -.endm - -jsr_macro:.macro - jsr ewf - move.l a1,d0 - move.l usp,a1 - move.l a0,-(a1) - move.l a1,usp - move.l d0,a0 - ii_end -.endm - -tas_macro:.macro - jsr ewf - tas (a1) - set_cc0 - ii_end -.endm - -tstb_macro:.macro - jsr ewf - tst.b (a1) - set_cc0 - ii_end -.endm - -tstw_macro:.macro - jsr ewf - tst.w (a1) - set_cc0 - ii_end -.endm - -tstl_macro:.macro - jsr ewf - tst.l (a1) - set_cc0 - ii_end -.endm - -clrb_macro:.macro - jsr ewf - clr.b (a1) - set_cc0 - ii_end -.endm - -clrw_macro:.macro - jsr ewf - clr.w (a1) - set_cc0 - ii_end -.endm - -clrl_macro:.macro - jsr ewf - clr.l (a1) - set_cc0 - ii_end -.endm -//-------------------------------------------------------------------- -ewf_func_macro:.macro //1=art 2=code -ii_0x\20: -#ifdef halten_ewf - halt -#endif - move.l a0_off(a7),a1 - \1_macro -ii_0x\21: -#ifdef halten_ewf - halt -#endif - move.l a1_off(a7),a1 - \1_macro -ii_0x\22: -#ifdef halten_ewf - halt -#endif - move.l a2,a1 - \1_macro -ii_0x\23: -#ifdef halten_ewf - halt -#endif - move.l a3,a1 - \1_macro -ii_0x\24: -#ifdef halten_ewf - halt -#endif - move.l a4,a1 - \1_macro -ii_0x\25: -#ifdef halten_ewf - halt -#endif - move.l a5,a1 - \1_macro -ii_0x\26: -#ifdef halten_ewf - halt -#endif - move.l a6,a1 - \1_macro -ii_0x\27: -#ifdef halten_ewf - halt -#endif - move.l usp,a1 - \1_macro -ii_0x\2b: -#ifdef halten_ewf - halt -#endif - move.l a0,a1 - \1_macro -.endm - diff --git a/BaS_GNU/sources/ii_exg.h b/BaS_GNU/sources/ii_exg.h deleted file mode 100644 index a0544af..0000000 --- a/BaS_GNU/sources/ii_exg.h +++ /dev/null @@ -1,120 +0,0 @@ -//-------------------------------------------------------------------- -// exg -//-------------------------------------------------------------------- -.text -ii_exg_lset:.macro -/* ii_lset_dxu c,40 //dx,d0 - ii_lset_dxu c,41 //dx,d1 - ii_lset_dxu c,42 //dx,d2 - ii_lset_dxu c,43 //dx,d3 - ii_lset_dxu c,44 //dx,d4 - ii_lset_dxu c,45 //dx,d5 - ii_lset_dxu c,46 //dx,d6 - ii_lset_dxu c,47 //dx,d7 - ii_lset_dxu c,48 //ax,a0 - ii_lset_dxu c,49 //ax,a1 - ii_lset_dxu c,4a //ax,a2 - ii_lset_dxu c,4b //ax,a3 - ii_lset_dxu c,4c //ax,a4 - ii_lset_dxu c,4d //ax,a5 - ii_lset_dxu c,4e //ax,a6 - ii_lset_dxu c,4f //ax,a7 */ -->setting by "and" - ii_lset_dxu c,88 //dx,a0 - ii_lset_dxu c,89 //dx,a1 - ii_lset_dxu c,8a //dx,a2 - ii_lset_dxu c,8b //dx,a3 - ii_lset_dxu c,8c //dx,a4 - ii_lset_dxu c,8d //dx,a5 - ii_lset_dxu c,8e //dx,a6 - ii_lset_dxu c,8f //dx,a7 -.endm -//--------------------------------------------------------------------------------------------- -ii_exg_func:.macro -// exg dx,dy - ii_exg_dx_dx 14,d0_off(a7) - ii_exg_dx_dx 34,d1_off(a7) - ii_exg_dx_dx 54,d2 - ii_exg_dx_dx 74,d3 - ii_exg_dx_dx 94,d4 - ii_exg_dx_dx b4,d5 - ii_exg_dx_dx d4,d6 - ii_exg_dx_dx f4,d7 -// exg ax,ay - ii_exg_to_ax 14,a0_off(a7) - ii_exg_to_ax 34,a1_off(a7) - ii_exg_to_ax 54,a2 - ii_exg_to_ax 74,a3 - ii_exg_to_ax 94,a4 - ii_exg_to_ax b4,a5 - ii_exg_to_ax d4,a6 - ii_exg_to_ax f4,usp -// exg dx,ay - ii_exg_to_ax 18,d0_off(a7) - ii_exg_to_ax 38,d1_off(a7) - ii_exg_to_ax 58,d2 - ii_exg_to_ax 78,d3 - ii_exg_to_ax 98,d4 - ii_exg_to_ax b8,d5 - ii_exg_to_ax d8,d6 - ii_exg_to_ax f8,d7 -.endm -//--------------------------------------------------------------------------------------------- -exg_macro:.macro -#ifdef halten_exg - halt -#endif - move.l \1,a1 -.ifc \2,usp - move.l a1,d0 - move.l \2,a1 - move.l a1,\1 - move.l d0,a1 -.else - .ifc \1,usp - move.l a1,d0 - move.l \2,a1 - move.l a1,\1 - move.l d0,a1 - .else - move.l \2,\1 - .endif -.endif - move.l a1,\2 - ii_end -.endm -ii_exg_dx_dx:.macro -ii_0xc\10: - exg_macro \2,d0_off(a7) -ii_0xc\11: - exg_macro \2,d1_off(a7) -ii_0xc\12: - exg_macro \2,d2 -ii_0xc\13: - exg_macro \2,d3 -ii_0xc\14: - exg_macro \2,d4 -ii_0xc\15: - exg_macro \2,d5 -ii_0xc\16: - exg_macro \2,d6 -ii_0xc\17: - exg_macro \2,d7 -.endm -ii_exg_to_ax:.macro -ii_0xc\18: - exg_macro \2,a0_off(a7) -ii_0xc\19: - exg_macro \2,a1_off(a7) -ii_0xc\1a: - exg_macro \2,a2 -ii_0xc\1b: - exg_macro \2,a3 -ii_0xc\1c: - exg_macro \2,a4 -ii_0xc\1d: - exg_macro \2,a5 -ii_0xc\1e: - exg_macro \2,a6 -ii_0xc\1f: - exg_macro \2,usp -.endm \ No newline at end of file diff --git a/BaS_GNU/sources/ii_func.h b/BaS_GNU/sources/ii_func.h deleted file mode 100644 index f545f47..0000000 --- a/BaS_GNU/sources/ii_func.h +++ /dev/null @@ -1,945 +0,0 @@ -//-------------------------------------------------------------------- -// functionen macros -//-------------------------------------------------------------------- -ii_lset_func:.macro -/******************************************************/ -// byt -/******************************************************/ -// func.b dy,dx - ii_lset_dx \1,00 // 0x1.22 -> z.B. 1=d2=4 ->0xd07c -> 0xde7c - ii_lset_dx \1,01 - ii_lset_dx \1,02 - ii_lset_dx \1,03 - ii_lset_dx \1,04 - ii_lset_dx \1,05 - ii_lset_dx \1,06 - ii_lset_dx \1,07 -// func.b ax,dx - ii_lset_dxu \1,08 - ii_lset_dxu \1,09 - ii_lset_dxu \1,0a - ii_lset_dxu \1,0b - ii_lset_dxu \1,0c - ii_lset_dxu \1,0d - ii_lset_dxu \1,0e - ii_lset_dxu \1,0f -// func.b (ax),dx - ii_lset_dx \1,10 - ii_lset_dx \1,11 - ii_lset_dx \1,12 - ii_lset_dx \1,13 - ii_lset_dx \1,14 - ii_lset_dx \1,15 - ii_lset_dx \1,16 - ii_lset_dx \1,17 -// func.b (ax)+,dx - ii_lset_dx \1,18 - ii_lset_dx \1,19 - ii_lset_dx \1,1a - ii_lset_dx \1,1b - ii_lset_dx \1,1c - ii_lset_dx \1,1d - ii_lset_dx \1,1e - ii_lset_dx \1,1f -// func.b -(ax),dx - ii_lset_dx \1,20 - ii_lset_dx \1,21 - ii_lset_dx \1,22 - ii_lset_dx \1,23 - ii_lset_dx \1,24 - ii_lset_dx \1,25 - ii_lset_dx \1,26 - ii_lset_dx \1,27 -// func.b d16(ax),dx - ii_lset_dx \1,28 - ii_lset_dx \1,29 - ii_lset_dx \1,2a - ii_lset_dx \1,2b - ii_lset_dx \1,2c - ii_lset_dx \1,2d - ii_lset_dx \1,2e - ii_lset_dx \1,2f -// func.b dd8(ax,dy),dx - ii_lset_dx \1,30 - ii_lset_dx \1,31 - ii_lset_dx \1,32 - ii_lset_dx \1,33 - ii_lset_dx \1,34 - ii_lset_dx \1,35 - ii_lset_dx \1,36 - ii_lset_dx \1,37 -// func.b xxx.w,dx - ii_lset_dx \1,38 // 0x1.22 -> z.B. 1=d2=4 ->0xd07c -> 0xde7c -// func.b xxx.l,dx - ii_lset_dx \1,39 // 0x1.22 -> z.B. 1=d2=4 ->0xd07c -> 0xde7c -// func.b d16(pc),dx - ii_lset_dxg \1,7a // 0x1.22 -> z.B. 1=d2=4 ->0xd07c -> 0xde7c -// func.b d8(pc,dy),dx - ii_lset_dxg \1,3b // 0x1.22 -> z.B. 1=d2=4 ->0xd07c -> 0xde7c -// func.b #im,dx - ii_lset_dxg \1,3c // 0x1.22 -> z.B. 1=d2=4 ->0xd07c -> 0xde7c -/******************************************************/ -// word -/******************************************************/ -// func.w dy,dx - ii_lset_dx \1,40 // 0x1.22 -> z.B. 1=d2=4 ->0xd07c -> 0xde7c - ii_lset_dx \1,41 - ii_lset_dx \1,42 - ii_lset_dx \1,43 - ii_lset_dx \1,44 - ii_lset_dx \1,45 - ii_lset_dx \1,46 - ii_lset_dx \1,47 -// func.w ax,dx - ii_lset_dx \1,48 - ii_lset_dx \1,49 - ii_lset_dx \1,4a - ii_lset_dx \1,4b - ii_lset_dx \1,4c - ii_lset_dx \1,4d - ii_lset_dx \1,4e - ii_lset_dx \1,4f -// func.w (ax),dx - ii_lset_dx \1,50 - ii_lset_dx \1,51 - ii_lset_dx \1,52 - ii_lset_dx \1,53 - ii_lset_dx \1,54 - ii_lset_dx \1,55 - ii_lset_dx \1,56 - ii_lset_dx \1,57 -// func.w (ax)+,dx - ii_lset_dx \1,58 - ii_lset_dx \1,59 - ii_lset_dx \1,5a - ii_lset_dx \1,5b - ii_lset_dx \1,5c - ii_lset_dx \1,5d - ii_lset_dx \1,5e - ii_lset_dx \1,5f -// func.w -(ax),dx - ii_lset_dx \1,60 - ii_lset_dx \1,61 - ii_lset_dx \1,62 - ii_lset_dx \1,63 - ii_lset_dx \1,64 - ii_lset_dx \1,65 - ii_lset_dx \1,66 - ii_lset_dx \1,67 -// func.w d16(ax),dx - ii_lset_dx \1,68 - ii_lset_dx \1,69 - ii_lset_dx \1,6a - ii_lset_dx \1,6b - ii_lset_dx \1,6c - ii_lset_dx \1,6d - ii_lset_dx \1,6e - ii_lset_dx \1,6f -// func.w d8(ax,dy),dx - ii_lset_dx \1,70 - ii_lset_dx \1,71 - ii_lset_dx \1,72 - ii_lset_dx \1,73 - ii_lset_dx \1,74 - ii_lset_dx \1,75 - ii_lset_dx \1,76 - ii_lset_dx \1,77 -// func.w xxx.w,dx - ii_lset_dx \1,78 // 0x1.22 -> z.B. 1=d2=4 ->0xd07c -> 0xde7c -// func.w xxx.l,dx - ii_lset_dx \1,79 // 0x1.22 -> z.B. 1=d2=4 ->0xd07c -> 0xde7c -// func.w d16(pc),dx - ii_lset_dxg \1,7a // 0x1.22 -> z.B. 1=d2=4 ->0xd07c -> 0xde7c -// func.w d8(pc,dy),dx - ii_lset_dxg \1,7b // 0x1.22 -> z.B. 1=d2=4 ->0xd07c -> 0xde7c -// func.w #im,dx - ii_lset_dxg \1,7c // 0x1.22 -> z.B. 1=d2=4 ->0xd07c -> 0xde7c -/******************************************************/ -// long -/******************************************************/ -// func.l ax,dx -> -(ay),-(ax) - ii_lset_dxu \1,c8 - ii_lset_dxu \1,c9 - ii_lset_dxu \1,ca - ii_lset_dxu \1,cb - ii_lset_dxu \1,cc - ii_lset_dxu \1,cd - ii_lset_dxu \1,ce - ii_lset_dxu \1,cf -// func.w d8(ax,dy),dx - ii_lset_dx \1,b0 - ii_lset_dx \1,b1 - ii_lset_dx \1,b2 - ii_lset_dx \1,b3 - ii_lset_dx \1,b4 - ii_lset_dx \1,b5 - ii_lset_dx \1,b6 - ii_lset_dx \1,b7 -// func.l d8(pc,dy),dx - ii_lset_dxg \1,bb // 0x1.22 -> z.B. 1=d2=4 ->0xd07c -> 0xde7c -/******************************************************/ -// adress register -/******************************************************/ -//func.w dy,ax - ii_lset_dxg \1,c0 - ii_lset_dxg \1,c1 - ii_lset_dxg \1,c2 - ii_lset_dxg \1,c3 - ii_lset_dxg \1,c4 - ii_lset_dxg \1,c5 - ii_lset_dxg \1,c6 - ii_lset_dxg \1,c7 -//func.w ay,ax - ii_lset_dxg \1,c8 - ii_lset_dxg \1,c9 - ii_lset_dxg \1,ca - ii_lset_dxg \1,cb - ii_lset_dxg \1,cc - ii_lset_dxg \1,cd - ii_lset_dxg \1,ce - ii_lset_dxg \1,cf -//func.w (ay),ax - ii_lset_dxg \1,d0 - ii_lset_dxg \1,d1 - ii_lset_dxg \1,d2 - ii_lset_dxg \1,d3 - ii_lset_dxg \1,d4 - ii_lset_dxg \1,d5 - ii_lset_dxg \1,d6 - ii_lset_dxg \1,d7 -//func.w (ay)+,ax - ii_lset_dxg \1,d8 - ii_lset_dxg \1,d9 - ii_lset_dxg \1,da - ii_lset_dxg \1,db - ii_lset_dxg \1,dc - ii_lset_dxg \1,dd - ii_lset_dxg \1,de - ii_lset_dxg \1,df -//func.w -(ay),ax - ii_lset_dxg \1,e0 - ii_lset_dxg \1,e1 - ii_lset_dxg \1,e2 - ii_lset_dxg \1,e3 - ii_lset_dxg \1,e4 - ii_lset_dxg \1,e5 - ii_lset_dxg \1,e6 - ii_lset_dxg \1,e7 -//func.w d16(ay),ax - ii_lset_dxg \1,e8 - ii_lset_dxg \1,e9 - ii_lset_dxg \1,ea - ii_lset_dxg \1,eb - ii_lset_dxg \1,ec - ii_lset_dxg \1,ed - ii_lset_dxg \1,ee - ii_lset_dxg \1,ef -//func.w d8(ay,dy),ax - ii_lset_dxg \1,f0 - ii_lset_dxg \1,f1 - ii_lset_dxg \1,f2 - ii_lset_dxg \1,f3 - ii_lset_dxg \1,f4 - ii_lset_dxg \1,f5 - ii_lset_dxg \1,f6 - ii_lset_dxg \1,f7 -// func.w xxx.w,ax - ii_lset_dxg \1,f8 -// func.w xxx.l,ax - ii_lset_dxg \1,f9 -// func.w d16(pc),ax - ii_lset_dxg \1,fa -// func.w d8(pc,dy),ax - ii_lset_dxg \1,fb -// func.w #im,ax - ii_lset_dxg \1,fc -//-------------------------------------------------------------------- -// ende - .endm; -/*****************************************************************************************/ -ii_func:.macro -//-------------------------------------------------------------------- -// byt -//-------------------------------------------------------------------- -///-------------------------------------------------------------------- -// func.b ds,dx -//-------------------------------------------------------------------- - funcbeadx \1,00,\2dd,d0_off+3(a7) - funcbeadx \1,01,\2dd,d1_off+3(a7) - funcbeadx \1,02,\2dd,d2 - funcbeadx \1,03,\2dd,d3 - funcbeadx \1,04,\2dd,d4 - funcbeadx \1,05,\2dd,d5 - funcbeadx \1,06,\2dd,d6 - funcbeadx \1,07,\2dd,d7 -//-------------------------------------------------------------------- -// func.b (ax),dx -//-------------------------------------------------------------------- - funcbeadx \1,10,\2dda,a0_off(a7) - funcbeadx \1,11,\2dda,a1_off(a7) - funcbeadx \1,12,\2dd,(a2) - funcbeadx \1,13,\2dd,(a3) - funcbeadx \1,14,\2dd,(a4) - funcbeadx \1,15,\2dd,(a5) - funcbeadx \1,16,\2dd,(a6) - funcbeadx \1,17,\2dda,usp -//-------------------------------------------------------------------- -// func.b (ax)+,dx -//-------------------------------------------------------------------- - funcbeadx \1,18,\2ddai,a0_off(a7) - funcbeadx \1,19,\2ddai,a1_off(a7) - funcbeadx \1,1a,\2dd,(a2)+ - funcbeadx \1,1b,\2dd,(a3)+ - funcbeadx \1,1c,\2dd,(a4)+ - funcbeadx \1,1d,\2dd,(a5)+ - funcbeadx \1,1e,\2dd,(a6)+ - funcbeadx \1,1f,\2ddai,usp -//-------------------------------------------------------------------- -// func.b -(ax),dx -//-------------------------------------------------------------------- - funcbeadx \1,20,\2ddad,a0_off(a7) - funcbeadx \1,21,\2ddad,a1_off(a7) - funcbeadx \1,22,\2dd,-(a2) - funcbeadx \1,23,\2dd,-(a3) - funcbeadx \1,24,\2dd,-(a4) - funcbeadx \1,25,\2dd,-(a5) - funcbeadx \1,26,\2dd,-(a6) - funcbeadx \1,27,\2ddad,usp -//-------------------------------------------------------------------- -// func.b d16(ax),dx -//-------------------------------------------------------------------- - funcbeadx \1,28,\2d16ad,a0_off(a7) - funcbeadx \1,29,\2d16ad,a1_off(a7) - funcbeadx \1,2a,\2d16ad,a2 - funcbeadx \1,2b,\2d16ad,a3 - funcbeadx \1,2c,\2d16ad,a4 - funcbeadx \1,2d,\2d16ad,a5 - funcbeadx \1,2e,\2d16ad,a6 - funcbeadx \1,2f,\2d16ad,usp -//-------------------------------------------------------------------- -// func.b d8(ax,dy),dx -//-------------------------------------------------------------------- - funcbeadx \1,30,\2d8ad,a0_off(a7) - funcbeadx \1,31,\2d8ad,a1_off(a7) - funcbeadx \1,32,\2d8ad,a2 - funcbeadx \1,33,\2d8ad,a3 - funcbeadx \1,34,\2d8ad,a4 - funcbeadx \1,35,\2d8ad,a5 - funcbeadx \1,36,\2d8ad,a6 - funcbeadx \1,37,\2d8ad,usp -//-------------------------------------------------------------------- -// func.b xxx.w,dx -//-------------------------------------------------------------------- - funcbeadx \1,38,\2xwd,(a0)+ -//-------------------------------------------------------------------- -// func.b xxx.w,dx -//-------------------------------------------------------------------- - funcbeadx \1,39,\2xld,(a0)+ -//-------------------------------------------------------------------- -// func.b d16(pc),dx -//-------------------------------------------------------------------- - funcbeadx \1,3a,\2d16pcd,(a0)+ -//-------------------------------------------------------------------- -// func.b d8(pc,dy),dx -//-------------------------------------------------------------------- - funcbeadx \1,3b,\2d8pcd,(a0)+ (a0 wird nicht verwendet) -//-------------------------------------------------------------------- -// func.b #im,dx -//-------------------------------------------------------------------- - funcbeadx \1,3c,\2bir_macro,(a0)+ -//-------------------------------------------------------------------- -// func.b dy,ea -//-------------------------------------------------------------------- -///-------------------------------------------------------------------- -// func.b dx,dd -> addx subx etc. src und dest vertauscht! -//-------------------------------------------------------------------- - funcbdxea \1,00,\2dx,d0_off+3(a7) - funcbdxea \1,01,\2dx,d1_off+3(a7) - funcbdxea \1,02,\2dx,d2 - funcbdxea \1,03,\2dx,d3 - funcbdxea \1,04,\2dx,d4 - funcbdxea \1,05,\2dx,d5 - funcbdxea \1,06,\2dx,d6 - funcbdxea \1,07,\2dx,d7 -//-------------------------------------------------------------------- -// func.b -(ax),-(ay) addx subx etc. src und dest vertauscht! -//-------------------------------------------------------------------- - funcaxay \1,08,\2dax,a0_off(a7),b - funcaxay \1,09,\2dax,a1_off(a7).b - funcaxay \1,0a,\2dax,a2,b - funcaxay \1,0b,\2dax,a3,b - funcaxay \1,0c,\2dax,a4,b - funcaxay \1,0d,\2dax,a5,b - funcaxay \1,0e,\2dax,a6,b - funcaxay \1,0f,\2dax,usp,b -//-------------------------------------------------------------------- -// func.b dy,(ax) -//-------------------------------------------------------------------- - funcbdxea \1,10,\2eda,a0_off(a7) - funcbdxea \1,11,\2eda,a1_off(a7) - funcbdxea \1,12,\2dd,(a2) - funcbdxea \1,13,\2dd,(a3) - funcbdxea \1,14,\2dd,(a4) - funcbdxea \1,15,\2dd,(a5) - funcbdxea \1,16,\2dd,(a6) - funcbdxea \1,17,\2eda,usp -//-------------------------------------------------------------------- -// func.b dy,(ax)+ -//-------------------------------------------------------------------- - funcbdxea \1,18,\2edai,a0_off(a7) - funcbdxea \1,19,\2edai,a1_off(a7) - funcbdxea \1,1a,\2edaid,(a2) - funcbdxea \1,1b,\2edaid,(a3) - funcbdxea \1,1c,\2edaid,(a4) - funcbdxea \1,1d,\2edaid,(a5) - funcbdxea \1,1e,\2edaid,(a6) - funcbdxea \1,1f,\2edai,usp -//-------------------------------------------------------------------- -// func.b dy,-(ax) -//-------------------------------------------------------------------- - funcbdxea \1,20,\2edad,a0_off(a7) - funcbdxea \1,21,\2edad,a1_off(a7) - funcbdxea \1,22,\2edadd,(a2) - funcbdxea \1,23,\2edadd,(a3) - funcbdxea \1,24,\2edadd,(a4) - funcbdxea \1,25,\2edadd,(a5) - funcbdxea \1,26,\2edadd,(a6) - funcbdxea \1,27,\2edad,usp -//-------------------------------------------------------------------- -// func.b dy,d16(ax) -//-------------------------------------------------------------------- - funcbdxea \1,28,\2e16ad,a0_off(a7) - funcbdxea \1,29,\2e16ad,a1_off(a7) - funcbdxea \1,2a,\2e16ad,a2 - funcbdxea \1,2b,\2e16ad,a3 - funcbdxea \1,2c,\2e16ad,a4 - funcbdxea \1,2d,\2e16ad,a5 - funcbdxea \1,2e,\2e16ad,a6 - funcbdxea \1,2f,\2e16ad,usp -//-------------------------------------------------------------------- -// func.b dy,d8(ax,dy) -//-------------------------------------------------------------------- - funcbdxea \1,30,\2e8ad,a0_off(a7) - funcbdxea \1,31,\2e8ad,a1_off(a7) - funcbdxea \1,32,\2e8ad,a2 - funcbdxea \1,33,\2e8ad,a3 - funcbdxea \1,34,\2e8ad,a4 - funcbdxea \1,35,\2e8ad,a5 - funcbdxea \1,36,\2e8ad,a6 - funcbdxea \1,37,\2e8ad,usp -//-------------------------------------------------------------------- -// func.w dy,xxx.w -//-------------------------------------------------------------------- - funcwdxea \1,38,\2xwe,(a0)+ -//-------------------------------------------------------------------- -// func.w dy,xxx.w -//-------------------------------------------------------------------- - funcwdxea \1,39,\2xld,(a0)+ -/*****************************************************************************************/ -// word -/*****************************************************************************************/ -// func.w ds,dx -//-------------------------------------------------------------------- - funcweadx \1,40,\2dd,d0_off+2(a7) - funcweadx \1,41,\2dd,d1_off+2(a7) - funcweadx \1,42,\2dd,d2 - funcweadx \1,43,\2dd,d3 - funcweadx \1,44,\2dd,d4 - funcweadx \1,45,\2dd,d5 - funcweadx \1,46,\2dd,d6 - funcweadx \1,47,\2dd,d7 -//-------------------------------------------------------------------- -// func.w ax,dx -//-------------------------------------------------------------------- - funcweadx \1,48,\2dd,a0_off+2(a7) - funcweadx \1,49,\2dd,a1_off+2(a7) - funcweadx \1,4a,\2dd,a2 - funcweadx \1,4b,\2dd,a3 - funcweadx \1,4c,\2dd,a4 - funcweadx \1,4d,\2dd,a5 - funcweadx \1,4e,\2dd,a6 - funcweadx \1,4f,\2ddd,usp -//-------------------------------------------------------------------- -// func.w (ax),dx -//-------------------------------------------------------------------- - funcweadx \1,50,\2dda,a0_off(a7) - funcweadx \1,51,\2dda,a1_off(a7) - funcweadx \1,52,\2dd,(a2) - funcweadx \1,53,\2dd,(a3) - funcweadx \1,54,\2dd,(a4) - funcweadx \1,55,\2dd,(a5) - funcweadx \1,56,\2dd,(a6) - funcweadx \1,57,\2dda,usp -//-------------------------------------------------------------------- -// func.w (ax)+,dx -//-------------------------------------------------------------------- - funcweadx \1,58,\2ddai,a0_off(a7) - funcweadx \1,59,\2ddai,a1_off(a7) - funcweadx \1,5a,\2dd,(a2)+ - funcweadx \1,5b,\2dd,(a3)+ - funcweadx \1,5c,\2dd,(a4)+ - funcweadx \1,5d,\2dd,(a5)+ - funcweadx \1,5e,\2dd,(a6)+ - funcweadx \1,5f,\2ddai,usp -//-------------------------------------------------------------------- -// func.w -(ax),dx -//-------------------------------------------------------------------- - funcweadx \1,60,\2ddad,a0_off(a7) - funcweadx \1,61,\2ddad,a1_off(a7) - funcweadx \1,62,\2dd,-(a2) - funcweadx \1,63,\2dd,-(a3) - funcweadx \1,64,\2dd,-(a4) - funcweadx \1,65,\2dd,-(a5) - funcweadx \1,66,\2dd,-(a6) - funcweadx \1,67,\2ddad,usp -//-------------------------------------------------------------------- -// func.w d16(ax),dx -//-------------------------------------------------------------------- - funcweadx \1,68,\2d16ad,a0_off(a7) - funcweadx \1,69,\2d16ad,a1_off(a7) - funcweadx \1,6a,\2d16ad,a2 - funcweadx \1,6b,\2d16ad,a3 - funcweadx \1,6c,\2d16ad,a4 - funcweadx \1,6d,\2d16ad,a5 - funcweadx \1,6e,\2d16ad,a6 - funcweadx \1,6f,\2d16ad,usp -//-------------------------------------------------------------------- -// func.w d8(ax,dy),dx -//-------------------------------------------------------------------- - funcweadx \1,70,\2d8ad,a0_off(a7) - funcweadx \1,71,\2d8ad,a1_off(a7) - funcweadx \1,72,\2d8ad,a2 - funcweadx \1,73,\2d8ad,a3 - funcweadx \1,74,\2d8ad,a4 - funcweadx \1,75,\2d8ad,a5 - funcweadx \1,76,\2d8ad,a6 - funcweadx \1,77,\2d8ad,usp -//-------------------------------------------------------------------- -// func.w xxx.w,dx -//-------------------------------------------------------------------- - funcweadx \1,78,\2xwd,(a0)+ -//-------------------------------------------------------------------- -// func.w xxx.w,dx -//-------------------------------------------------------------------- - funcweadx \1,79,\2xld,(a0)+ -//-------------------------------------------------------------------- -// func.w d16(pc),dx -//-------------------------------------------------------------------- - funcweadx \1,7a,\2d16pcd,(a0)+ -//-------------------------------------------------------------------- -// func.w d8(pc,dy),dx -//-------------------------------------------------------------------- - funcweadx \1,7b,\2d8pcd,(a0)+ (a0 wird nicht verwendet) -//-------------------------------------------------------------------- -// func.w #im,dx -//-------------------------------------------------------------------- - funcweadx \1,7c,\2dd,(a0)+ -//-------------------------------------------------------------------- -// func.w dy,ea -//-------------------------------------------------------------------- -///-------------------------------------------------------------------- -// func.w dx,dd -> addx subx etc. -//-------------------------------------------------------------------- -.ifnc \2,and //platz für exg - funcwdxea \1,40,\2dx,d0_off+2(a7) - funcwdxea \1,41,\2dx,d1_off+2(a7) - funcwdxea \1,42,\2dx,d2 - funcwdxea \1,43,\2dx,d3 - funcwdxea \1,44,\2dx,d4 - funcwdxea \1,45,\2dx,d5 - funcwdxea \1,46,\2dx,d6 - funcwdxea \1,47,\2dx,d7 -//-------------------------------------------------------------------- -// func.w -(ax),-(ay) -> addx,subx -//-------------------------------------------------------------------- - funcaxay \1,48,\2dax,a0_off(a7),w - funcaxay \1,49,\2dax,a1_off(a7).w - funcaxay \1,4a,\2dax,a2,w - funcaxay \1,4b,\2dax,a3,w - funcaxay \1,4c,\2dax,a4,w - funcaxay \1,4d,\2dax,a5,w - funcaxay \1,4e,\2dax,a6,w - funcaxay \1,4f,\2dax,usp,w -.endif -//-------------------------------------------------------------------- -// func.w dy,(ax) -//-------------------------------------------------------------------- - funcwdxea \1,50,\2eda,a0_off(a7) - funcwdxea \1,51,\2eda,a1_off(a7) - funcwdxea \1,52,\2dd,(a2) - funcwdxea \1,53,\2dd,(a3) - funcwdxea \1,54,\2dd,(a4) - funcwdxea \1,55,\2dd,(a5) - funcwdxea \1,56,\2dd,(a6) - funcwdxea \1,57,\2eda,usp -//-------------------------------------------------------------------- -// func.w dy,(ax)+ -//-------------------------------------------------------------------- - funcwdxea \1,58,\2edai,a0_off(a7) - funcwdxea \1,59,\2edai,a1_off(a7) - funcwdxea \1,5a,\2edaid,(a2) - funcwdxea \1,5b,\2edaid,(a3) - funcwdxea \1,5c,\2edaid,(a4) - funcwdxea \1,5d,\2edaid,(a5) - funcwdxea \1,5e,\2edaid,(a6) - funcwdxea \1,5f,\2edai,usp -//-------------------------------------------------------------------- -// func.w dy,-(ax) -//-------------------------------------------------------------------- - funcwdxea \1,60,\2edad,a0_off(a7) - funcwdxea \1,61,\2edad,a1_off(a7) - funcwdxea \1,62,\2edadd,(a2) - funcwdxea \1,63,\2edadd,(a3) - funcwdxea \1,64,\2edadd,(a4) - funcwdxea \1,65,\2edadd,(a5) - funcwdxea \1,66,\2edadd,(a6) - funcwdxea \1,67,\2edad,usp -//-------------------------------------------------------------------- -// func.w dy,d16(ax) -//-------------------------------------------------------------------- - funcwdxea \1,68,\2e16ad,a0_off(a7) - funcwdxea \1,69,\2e16ad,a1_off(a7) - funcwdxea \1,6a,\2e16ad,a2 - funcwdxea \1,6b,\2e16ad,a3 - funcwdxea \1,6c,\2e16ad,a4 - funcwdxea \1,6d,\2e16ad,a5 - funcwdxea \1,6e,\2e16ad,a6 - funcwdxea \1,6f,\2e16ad,usp -//-------------------------------------------------------------------- -// func.w dy,d8(ax,dy) -//-------------------------------------------------------------------- - funcwdxea \1,70,\2e8ad,a0_off(a7) - funcwdxea \1,71,\2e8ad,a1_off(a7) - funcwdxea \1,72,\2e8ad,a2 - funcwdxea \1,73,\2e8ad,a3 - funcwdxea \1,74,\2e8ad,a4 - funcwdxea \1,75,\2e8ad,a5 - funcwdxea \1,76,\2e8ad,a6 - funcwdxea \1,77,\2e8ad,usp -//-------------------------------------------------------------------- -// func.w dy,xxx.w -//-------------------------------------------------------------------- - funcwdxea \1,78,\2xwe,(a0)+ -//-------------------------------------------------------------------- -// func.w dy,xxx.w -//-------------------------------------------------------------------- - funcwdxea \1,79,\2xld,(a0)+ -/*****************************************************************************************/ -// long -/*****************************************************************************************/ -//-------------------------------------------------------------------- -// func.l -(ax),-(ay) -//-------------------------------------------------------------------- - funcaxay \1,c8,\2dax,a0_off(a7),l - funcaxay \1,c9,\2dax,a1_off(a7).l - funcaxay \1,ca,\2dax,a2,l - funcaxay \1,cb,\2dax,a3,l - funcaxay \1,cc,\2dax,a4,l - funcaxay \1,cd,\2dax,a5,l - funcaxay \1,ce,\2dax,a6,l - funcaxay \1,cf,\2dax,usp,l -//-------------------------------------------------------------------- -// func.l d8(ax,dy),dx -//-------------------------------------------------------------------- - funcleadx \1,b0,\2d8ad,a0_off(a7) - funcleadx \1,b1,\2d8ad,a1_off(a7) - funcleadx \1,b2,\2d8ad,a2 - funcleadx \1,b3,\2d8ad,a3 - funcleadx \1,b4,\2d8ad,a4 - funcleadx \1,b5,\2d8ad,a5 - funcleadx \1,b6,\2d8ad,a6 - funcleadx \1,b7,\2d8ad,usp -//-------------------------------------------------------------------- -// func.l d8(pc,dy),dx -//-------------------------------------------------------------------- - funcleadx \1,bb,\2d8pcd,(a0)+ (a0 wird nicht verwendet) -//-------------------------------------------------------------------- -// func.l dy,d8(ax,dy) -//-------------------------------------------------------------------- - funcldxea \1,b0,\2e8ad,a0_off(a7) - funcldxea \1,b1,\2e8ad,a1_off(a7) - funcldxea \1,b2,\2e8ad,a2 - funcldxea \1,b3,\2e8ad,a3 - funcldxea \1,b4,\2e8ad,a4 - funcldxea \1,b5,\2e8ad,a5 - funcldxea \1,b6,\2e8ad,a6 - funcldxea \1,b7,\2e8ad,usp -/******************************************************/ -// adress register -/******************************************************/ -//-------------------------------------------------------------------- -// func.w ea,ax -//-------------------------------------------------------------------- -//-------------------------------------------------------------------- -// func.w dx,ax -//-------------------------------------------------------------------- - funcweaax \1,c0,\2aw,d0 - funcweaax \1,c1,\2aw,d1 - funcweaax \1,c2,\2aw,d2 - funcweaax \1,c3,\2aw,d3 - funcweaax \1,c4,\2aw,d4 - funcweaax \1,c5,\2aw,d5 - funcweaax \1,c6,\2aw,d6 - funcweaax \1,c7,\2aw,d7 -//-------------------------------------------------------------------- -// func.w ay,ax -//-------------------------------------------------------------------- - funcweaax \1,c8,\2aw,a0 - funcweaax \1,c9,\2aw,a1 - funcweaax \1,ca,\2aw,a2 - funcweaax \1,cb,\2aw,a3 - funcweaax \1,cc,\2aw,a4 - funcweaax \1,cd,\2aw,a5 - funcweaax \1,ce,\2aw,a6 - funcweaax \1,cf,\2awu,a7 -//-------------------------------------------------------------------- -// func.w (ay),ax -//-------------------------------------------------------------------- - funcweaax \1,d0,\2aw,(a0) - funcweaax \1,d1,\2aw,(a1) - funcweaax \1,d2,\2aw,(a2) - funcweaax \1,d3,\2aw,(a3) - funcweaax \1,d4,\2aw,(a4) - funcweaax \1,d5,\2aw,(a5) - funcweaax \1,d6,\2aw,(a6) - funcweaax \1,d7,\2awu,(a7) -//-------------------------------------------------------------------- -// func.w (ay)+,ax -//-------------------------------------------------------------------- - funcweaax \1,d8,\2aw,(a0)+ - funcweaax \1,d9,\2aw,(a1)+ - funcweaax \1,da,\2aw,(a2)+ - funcweaax \1,db,\2aw,(a3)+ - funcweaax \1,dc,\2aw,(a4)+ - funcweaax \1,dd,\2aw,(a5)+ - funcweaax \1,de,\2aw,(a6)+ - funcweaax \1,df,\2awu,(a7)+ -//-------------------------------------------------------------------- -// func.w -(ay),ax -//-------------------------------------------------------------------- - funcweaax \1,e0,\2aw,-(a0) - funcweaax \1,e1,\2aw,-(a1) - funcweaax \1,e2,\2aw,-(a2) - funcweaax \1,e3,\2aw,-(a3) - funcweaax \1,e4,\2aw,-(a4) - funcweaax \1,e5,\2aw,-(a5) - funcweaax \1,e6,\2aw,-(a6) - funcweaax \1,e7,\2awu,-(a7) -//-------------------------------------------------------------------- -// func.w d16(ay),ax -//-------------------------------------------------------------------- - funcweaaxn \1,e8,\2awd16a,a0_off(a7) - funcweaaxn \1,e9,\2awd16a,a1_off(a7) - funcweaaxn \1,ea,\2awd16a,a2 - funcweaaxn \1,eb,\2awd16a,a3 - funcweaaxn \1,ec,\2awd16a,a4 - funcweaaxn \1,ed,\2awd16a,a5 - funcweaaxn \1,ee,\2awd16a,a6 - funcweaaxn \1,ef,\2awd16a,usp -//-------------------------------------------------------------------- -// func.w d8(ay,dy),ax -//-------------------------------------------------------------------- - funcweaaxn \1,f0,\2awd8a,a0_off(a7) - funcweaaxn \1,f1,\2awd8a,a1_off(a7) - funcweaaxn \1,f2,\2awd8a,a2 - funcweaaxn \1,f3,\2awd8a,a3 - funcweaaxn \1,f4,\2awd8a,a4 - funcweaaxn \1,f5,\2awd8a,a5 - funcweaaxn \1,f6,\2awd8a,a6 - funcweaaxn \1,f7,\2awd8a,usp -//-------------------------------------------------------------------- -// func.w xxx.w,ax -//-------------------------------------------------------------------- - funcweaaxn \1,f8,\2awxwax,(a0)+ -//-------------------------------------------------------------------- -// func.w xxxlw,ax -//-------------------------------------------------------------------- - funcweaaxn \1,f9,\2awxlax,(a0)+ -//-------------------------------------------------------------------- -// func.w d16(pc),ax -//-------------------------------------------------------------------- - funcweaaxn \1,fa,\2awd16pcax,(a0)+ -//-------------------------------------------------------------------- -// func.w d8(pc,dy),ax -//-------------------------------------------------------------------- - funcweaaxn \1,fb,\2awd8pcax,(a0)+ //(a0 wird nicht verwendet) -//-------------------------------------------------------------------- -// func.w #im,ax -//-------------------------------------------------------------------- - funcweaaxn \1,fc,\2awim,(a0)+ -//-------------------------------------------------------------------- -// ende - .endm; -//-------------------------------------------------------------------- -// byt -funcbeadx:.macro // function byt: im,dx -ii_0x\10\2: - \3 \4,d0_off+3(a7),b -ii_0x\12\2: - \3 \4,d1_off+3(a7),b -ii_0x\14\2: - \3 \4,d2,b -ii_0x\16\2: - \3 \4,d3,b -ii_0x\18\2: - \3 \4,d4,b -ii_0x\1a\2: - \3 \4,d5,b -ii_0x\1c\2: - \3 \4,d6,b -ii_0x\1e\2: - \3 \4,d7,b - .endm; -funcbdxea:.macro // ea(\4) function(\3) dx -> ea -ii_0x\11\2: - \3 d0_off+3(a7),\4,b -ii_0x\13\2: - \3 d1_off+3(a7),\4,b -ii_0x\15\2: - \3 d2,\4,b -ii_0x\17\2: - \3 d3,\4,b -ii_0x\19\2: - \3 d4,\4,b -ii_0x\1b\2: - \3 d5,\4,b -ii_0x\1d\2: - \3 d6,\4,b -ii_0x\1f\2: - \3 d7,\4,b - .endm; -//-------------------------------------------------------------------- -// word -funcweadx:.macro // dx function(\3) ea(\4) -> dx -ii_0x\10\2: - \3 \4,d0_off+2(a7),w -ii_0x\12\2: - \3 \4,d1_off+2(a7),w -ii_0x\14\2: - \3 \4,d2,w -ii_0x\16\2: - \3 \4,d3,w -ii_0x\18\2: - \3 \4,d4,w -ii_0x\1a\2: - \3 \4,d5,w -ii_0x\1c\2: - \3 \4,d6,w -ii_0x\1e\2: - \3 \4,d7,w - .endm; -funcwdxea:.macro // ea(\4) function(\3) dx -> ea -ii_0x\11\2: - \3 d0_off+2(a7),\4,w -ii_0x\13\2: - \3 d1_off+2(a7),\4,w -ii_0x\15\2: - \3 d2,\4,w -ii_0x\17\2: - \3 d3,\4,w -ii_0x\19\2: - \3 d4,\4,w -ii_0x\1b\2: - \3 d5,\4,w -ii_0x\1d\2: - \3 d6,\4,w -ii_0x\1f\2: - \3 d7,\4,w - .endm; -//-------------------------------------------------------------------- -// long -funcleadx:.macro // dx function(\3) ea(\4) -> dx -ii_0x\10\2: - \3 \4,d0_off(a7),w -ii_0x\12\2: - \3 \4,d1_off(a7),w -ii_0x\14\2: - \3 \4,d2,w -ii_0x\16\2: - \3 \4,d3,w -ii_0x\18\2: - \3 \4,d4,w -ii_0x\1a\2: - \3 \4,d5,w -ii_0x\1c\2: - \3 \4,d6,w -ii_0x\1e\2: - \3 \4,d7,w - .endm; -funcldxea:.macro // ea(\4) function(\3) dx -> ea -ii_0x\11\2: - \3 d0_off(a7),\4,w -ii_0x\13\2: - \3 d1_off(a7),\4,w -ii_0x\15\2: - \3 d2,\4,w -ii_0x\17\2: - \3 d3,\4,w -ii_0x\19\2: - \3 d4,\4,w -ii_0x\1b\2: - \3 d5,\4,w -ii_0x\1d\2: - \3 d6,\4,w -ii_0x\1f\2: - \3 d7,\4,w - .endm; -//-------------------------------------------------------------- -// address -funcweaax:.macro // ax function(\3) ea(\4)(ext long!) -> ax -ii_0x\10\2: - \3 \4,a0 -ii_0x\12\2: - \3 \4,a1 -ii_0x\14\2: - \3 \4,a2 -ii_0x\16\2: - \3 \4,a3 -ii_0x\18\2: - \3 \4,a4 -ii_0x\1a\2: - \3 \4,a5 -ii_0x\1c\2: - \3 \4,a6 -ii_0x\1e\2: - \3a7 \4,a7 // "a7" beachten wegen usp - .endm; -funcweaaxn:.macro // ax function(\3) ea(\4)(ext long!) -> ax -ii_0x\10\2: - \3 \4,a0_off(a7) -ii_0x\12\2: - \3 \4,a1_off(a7) -ii_0x\14\2: - \3 \4,a2 -ii_0x\16\2: - \3 \4,a3 -ii_0x\18\2: - \3 \4,a4 -ii_0x\1a\2: - \3 \4,a5 -ii_0x\1c\2: - \3 \4,a6 -ii_0x\1e\2: - \3 \4,usp - .endm; -//-------------------------------------------------------------- -// byt, word, long -//-------------------------------------------------------------- -funcaxay:.macro // ea(\4) function(\3) dx -> ea,\5 = size -ii_0x\11\2: - \3 a0_off(a7),\4,\5 -ii_0x\13\2: - \3 a1_off(a7),\4,\5 -ii_0x\15\2: - \3 a2,\4,\5 -ii_0x\17\2: - \3 a3,\4,\5 -ii_0x\19\2: - \3 a4,\4,\5 -ii_0x\1b\2: - \3 a5,\4,\5 -ii_0x\1d\2: - \3 a6,\4,\5 -ii_0x\1f\2: - \3 usp,\4,\5 - .endm; diff --git a/BaS_GNU/sources/ii_jmp.h b/BaS_GNU/sources/ii_jmp.h deleted file mode 100644 index 1896118..0000000 --- a/BaS_GNU/sources/ii_jmp.h +++ /dev/null @@ -1,59 +0,0 @@ -//-------------------------------------------------------------------- -// extension word format missing -//-------------------------------------------------------------------- -ii_\1_func:.macro -ii_0x\20: -#ifdef halten_\1 - halt -#endif - move.l a0_off(a7),a1 - \1_macro -ii_0x\21: -#ifdef halten_\1 - halt -#endif - move.l a1_off(a7),a1 - \1_macro -ii_0x\22: -#ifdef halten_\1 - halt -#endif - move.l a2,a1 - \1_macro -ii_0x\23: -#ifdef halten_\1 - halt -#endif - move.l a3,a1 - \1_macro -ii_0x\24: -#ifdef halten_\1 - halt -#endif - move.l a4,a1 - \1_macro -ii_0x\25: -#ifdef halten_\1 - halt -#endif - move.l a5,a1 - \1_macro -ii_0x\26: -#ifdef halten_\1 - halt -#endif - move.l a6,a1 - \1_macro -ii_0x\27: -#ifdef halten_\1 - halt -#endif - move.l usp,a1 - \1_macro -ii_0x\2b: -#ifdef halten_\1 - halt -#endif - move.l a0,a1 - \1_macro -.endm diff --git a/BaS_GNU/sources/ii_lea.h b/BaS_GNU/sources/ii_lea.h deleted file mode 100644 index 7a422a7..0000000 --- a/BaS_GNU/sources/ii_lea.h +++ /dev/null @@ -1,105 +0,0 @@ -//------------------------------------------------------------------- -// lea -//------------------------------------------------------------------- -.text -ii_lea_lset:.macro - ii_lset_dxu 4,f0 // lea d8(a0,dy.w),a0-a7 - ii_lset_dxu 4,f1 // lea d8(a1,dy.w),a0-a7 - ii_lset_dxu 4,f2 // lea d8(a2,dy.w),a0-a7 - ii_lset_dxu 4,f3 // lea d8(a3,dy.w),a0-a7 - ii_lset_dxu 4,f4 // lea d8(a4,dy.w),a0-a7 - ii_lset_dxu 4,f5 // lea d8(a5,dy.w),a0-a7 - ii_lset_dxu 4,f6 // lea d8(a6,dy.w),a0-a7 - ii_lset_dxu 4,f7 // lea d8(a7,dy.w),a0-a7 - ii_lset_dxu 4,fb // lea d8(pc,dy.w),a0-a7 -.endm - -//--------------------------------------------------------------------------------------------- -// function -//--------------------------------------------------------------------------------------------- -ii_lea_sub:.macro -ii_0x4\1\2: -#ifdef halten_lea - halt -#endif - move.l \4,a1 - jsr ewf - move.l a1,\3 - ii_end -.endm -ii_lea_func:.macro -//lea d8(ax,dy.w),a0-a7 - ii_lea_sub 1,f0,a0_off(a7),a0_off(a7) - ii_lea_sub 1,f1,a0_off(a7),a1_off(a7) - ii_lea_sub 1,f2,a0_off(a7),a2 - ii_lea_sub 1,f3,a0_off(a7),a3 - ii_lea_sub 1,f4,a0_off(a7),a4 - ii_lea_sub 1,f5,a0_off(a7),a5 - ii_lea_sub 1,f6,a0_off(a7),a6 - ii_lea_sub 1,f7,a0_off(a7),usp - ii_lea_sub 3,f0,a1_off(a7),a0_off(a7) - ii_lea_sub 3,f1,a1_off(a7),a1_off(a7) - ii_lea_sub 3,f2,a1_off(a7),a2 - ii_lea_sub 3,f3,a1_off(a7),a3 - ii_lea_sub 3,f4,a1_off(a7),a4 - ii_lea_sub 3,f5,a1_off(a7),a5 - ii_lea_sub 3,f6,a1_off(a7),a6 - ii_lea_sub 3,f7,a1_off(a7),usp - ii_lea_sub 5,f0,a2,a0_off(a7) - ii_lea_sub 5,f1,a2,a1_off(a7) - ii_lea_sub 5,f2,a2,a2 - ii_lea_sub 5,f3,a2,a3 - ii_lea_sub 5,f4,a2,a4 - ii_lea_sub 5,f5,a2,a5 - ii_lea_sub 5,f6,a2,a6 - ii_lea_sub 5,f7,a2,usp - ii_lea_sub 7,f0,a3,a0_off(a7) - ii_lea_sub 7,f1,a3,a1_off(a7) - ii_lea_sub 7,f2,a3,a2 - ii_lea_sub 7,f3,a3,a3 - ii_lea_sub 7,f4,a3,a4 - ii_lea_sub 7,f5,a3,a5 - ii_lea_sub 7,f6,a3,a6 - ii_lea_sub 7,f7,a3,usp - ii_lea_sub 9,f0,a4,a0_off(a7) - ii_lea_sub 9,f1,a4,a1_off(a7) - ii_lea_sub 9,f2,a4,a2 - ii_lea_sub 9,f3,a4,a3 - ii_lea_sub 9,f4,a4,a4 - ii_lea_sub 9,f5,a4,a5 - ii_lea_sub 9,f6,a4,a6 - ii_lea_sub 9,f7,a4,usp - ii_lea_sub b,f0,a5,a0_off(a7) - ii_lea_sub b,f1,a5,a1_off(a7) - ii_lea_sub b,f2,a5,a2 - ii_lea_sub b,f3,a5,a3 - ii_lea_sub b,f4,a5,a4 - ii_lea_sub b,f5,a5,a5 - ii_lea_sub b,f6,a5,a6 - ii_lea_sub b,f7,a6,usp - ii_lea_sub d,f0,a6,a0_off(a7) - ii_lea_sub d,f1,a6,a1_off(a7) - ii_lea_sub d,f2,a6,a2 - ii_lea_sub d,f3,a6,a3 - ii_lea_sub d,f4,a6,a4 - ii_lea_sub d,f5,a6,a5 - ii_lea_sub d,f6,a6,a6 - ii_lea_sub d,f7,a6,usp - ii_lea_sub f,f0,usp,a0_off(a7) - ii_lea_sub f,f1,usp,a1_off(a7) - ii_lea_sub f,f2,usp,a2 - ii_lea_sub f,f3,usp,a3 - ii_lea_sub f,f4,usp,a4 - ii_lea_sub f,f5,usp,a5 - ii_lea_sub f,f6,usp,a6 - ii_lea_sub f,f7,usp,usp -// lea d8(pc,dy.w),az - ii_lea_sub 1,fb,a0_off(a7),a0 - ii_lea_sub 3,fb,a1_off(a7),a0 - ii_lea_sub 5,fb,a2,a0 - ii_lea_sub 7,fb,a3,a0 - ii_lea_sub 9,fb,a4,a0 - ii_lea_sub b,fb,a5,a0 - ii_lea_sub d,fb,a6,a0 - ii_lea_sub f,fb,usp,a0 -.endm \ No newline at end of file diff --git a/BaS_GNU/sources/ii_macro.h b/BaS_GNU/sources/ii_macro.h deleted file mode 100644 index 5db7460..0000000 --- a/BaS_GNU/sources/ii_macro.h +++ /dev/null @@ -1,144 +0,0 @@ -/*******************************************************/ -// constanten -/*******************************************************/ -.extern ___RAMBAR1 -.extern _rt_cacr -.extern _rt_mod -.extern _rt_ssp -.extern _rt_usp -.extern _rt_vbr -.extern _d0_save -.extern _a7_save - -ii_ss = 16 -d0_off = 0 -d1_off = 4 -a0_off = 8 -a1_off = 12 -format_off = 16 -sr_off = 18 -ccr_off = 19 -pc_off = 20 - -#define table 0x20000000-0x8000-0xF000*4 // Adresse Sprungtabelle -> 8000=Sprungbereich mod cod, 61k(ohne 0xFxxx!)x4= tabelle - -/*******************************************************/ -// allgemeine macros -/*******************************************************/ -ii_end: .macro - move.l a0,pc_off(a7) - movem.l (a7),d0/d1/a0/a1 - lea ii_ss(a7),a7 - rte - .endm; - -set_cc0:.macro - move.w ccr,d0 - move.b d0,ccr_off(a7) - .endm; - -ii_esr: .macro // geht nicht!!?? - movem.l (a7),d0/d1/a0/a1 - lea ii_ss+8(a7),a7 // stack erhöhen - move.w d0,_d0_save // d0.w sicheren - move.w -6(a7),d0 // sr holen - move.w d0,sr // sr setzen - nop - move.w _d0_save,d0 // d0.w zurück - .endm; - -ii_end_mvm:.macro - move.l a0_off(a7),a0 - lea 16(a7),a7 - rte - .endm; - -ii_endj:.macro - movem.l (a7),d0/d1/a0/a1 // register zurück - lea ii_ss(a7),a7 // korr - rte // ende - .endm; - -set_nzvc:.macro // set ccr bits nzvc - move.w ccr,d1 - bclr #4,d1 - btst #4,ccr_off(a7) - beq snzvc2\@ - bset #4,d1 -snzvc2\@: - move.b d1,ccr_off(a7) - .endm; - -set_cc1:.macro - move.w ccr,d1 - move.b d1,ccr_off(a7) - .endm; - -set_cc_b:.macro - move.w ccr,d1 - btst #7,d0 // byt negativ? - beq set_cc_b2\@ - bset #3,d1 // make negativ -set_cc_b2\@: - move.b d1,ccr_off(a7) - .endm; - -set_cc_w:.macro - move.w ccr,d1 - btst #15,d0 // byt negativ? - beq set_cc_w2\@ - bset #3,d1 // make negativ -set_cc_w2\@: - move.b d1,ccr_off(a7) - .endm; - -get_pc: .macro - lea.l (a0),a1 - .endm; - -//-------------------------------------------------------------------- -ii_lset:.macro - lea table+\1*4,a0 - move.l #ii_\1,(a0) - .endm; -ii_lset_dx:.macro // 0x1.22 -> z.B. 1=d,2=4 ->0xd040 -> 0xde40 - ii_lset_dxg \1,\2 - ii_lset_dxu \1,\2 - .endm; -ii_lset_dxg:.macro // gerade: 0x1.22 -> z.B. 1=d,2=4 ->0xd040 -> 0xde40 - lea table+0x\10\2*4,a0 - move.l #ii_0x\10\2,(a0) - lea 0x800(a0),a0 // 4 * 0x200 - move.l #ii_0x\12\2,(a0) - lea 0x800(a0),a0 - move.l #ii_0x\14\2,(a0) - lea 0x800(a0),a0 - move.l #ii_0x\16\2,(a0) - lea 0x800(a0),a0 - move.l #ii_0x\18\2,(a0) - lea 0x800(a0),a0 - move.l #ii_0x\1a\2,(a0) - lea 0x800(a0),a0 - move.l #ii_0x\1c\2,(a0) - lea 0x800(a0),a0 - move.l #ii_0x\1e\2,(a0) - .endm; -ii_lset_dxu:.macro // ungerade: 0x1.22 -> z.B. 1=d,2=4 ->0xd140 -> 0xdf40 - lea table+0x\11\2*4,a0 - move.l #ii_0x\11\2,(a0) - lea 0x800(a0),a0 - move.l #ii_0x\13\2,(a0) - lea 0x800(a0),a0 - move.l #ii_0x\15\2,(a0) - lea 0x800(a0),a0 - move.l #ii_0x\17\2,(a0) - lea 0x800(a0),a0 - move.l #ii_0x\19\2,(a0) - lea 0x800(a0),a0 - move.l #ii_0x\1b\2,(a0) - lea 0x800(a0),a0 - move.l #ii_0x\1d\2,(a0) - lea 0x800(a0),a0 - move.l #ii_0x\1f\2,(a0) - .endm; - diff --git a/BaS_GNU/sources/ii_move.h b/BaS_GNU/sources/ii_move.h deleted file mode 100644 index 1ae8213..0000000 --- a/BaS_GNU/sources/ii_move.h +++ /dev/null @@ -1,1271 +0,0 @@ -//------------------------------------------------------------------- -// move -//------------------------------------------------------------------- -.extern ewf - -.text -ii_move_lset:.macro -//------------------------------------------------------------------------- -// 0x1000 move.b -//------------------------------------------------------------------------- -// move.x d16(ax),xxx.w 1=size 2=adress register - ii_lset_opeau 11,e -// move.x d16(ax),xxx.l - ii_lset_opeau 13,e -// move.x d16(pc),xxx.w - ii_lset 0x11fa -// move.x d16(pc),xxx.l - ii_lset 0x13fa -// move.x xxx.w,d16(ax) - ii_lset_dxu 1,78 -// move.x xxx.l,d16(ax) - ii_lset_dxu 1,79 -// move.x #xx,d16(ax) - ii_lset_dxu 1,7c -// move.x xxx.w,xxx.w; 1=size 2=size source adr 3=size dest adr 4=code - ii_lset 0x11f8 -// move.x xxx.l,xxx.w - ii_lset 0x11f9 -// move.x xxx.w,xxx.l - ii_lset 0x13f8 -// move.x xxx.l,xxx.l - ii_lset 0x13f9 -// move.x #xx,xxx.w //1=size 2=size dest adr 3=code - ii_lset 0x11fc -// move.x #xx,xxx.l //1=size 2=size dest adr 3=code - ii_lset 0x13fc -//--------------------------------------------------------------------- -// move.x ea,d8(ax,dy) ------------------------------------------- -//--------------------------------------------------------------------- -// move.x dx,d8(a0-a7,dy) - ii_lset_opeag 11,8 - ii_lset_opeag 13,8 - ii_lset_opeag 15,8 - ii_lset_opeag 17,8 - ii_lset_opeag 19,8 - ii_lset_opeag 1b,8 - ii_lset_opeag 1d,8 - ii_lset_opeag 1f,8 -// move.x (ax),d8(a0-a7,dy) -// move.x (ax)+,d8(a0-a7,dy) - ii_lset_opea 11,9 - ii_lset_opea 13,9 - ii_lset_opea 15,9 - ii_lset_opea 17,9 - ii_lset_opea 19,9 - ii_lset_opea 1b,9 - ii_lset_opea 1d,9 - ii_lset_opea 1f,9 -// move.x -(ax),d8(a0-a7,dy) - ii_lset_opeag 11,a - ii_lset_opeag 13,a - ii_lset_opeag 15,a - ii_lset_opeag 17,a - ii_lset_opeag 19,a - ii_lset_opeag 1b,a - ii_lset_opeag 1d,a - ii_lset_opeag 1f,a -//--------------------------------------------------------------------- -// move.x ea,d8(pc,dy) ------------------------------------------- -//--------------------------------------------------------------------- -// move.x dx,d8(pc,dy) - ii_lset_opeag 17,c -// move.x (ax),d8(pc,dy) -// move.x (ax)+,d8(pc,dy) - ii_lset_opea 17,d -// move.x -(ax),d8(pc,dy) - ii_lset_opeag 17,e -//--------------------------------------------------------------------- -// move.x d8(ax,dy),ea -------------------------------------------- -//--------------------------------------------------------------------- -// move.x d8(ax,dy),d0-d7 - ii_lset_opeag 10,3 - ii_lset_opeag 12,3 - ii_lset_opeag 14,3 - ii_lset_opeag 16,3 - ii_lset_opeag 18,3 - ii_lset_opeag 1a,3 - ii_lset_opeag 1c,3 - ii_lset_opeag 1e,3 -// move.x d8(ax,dy),a0-a7 - ii_lset_opeag 10,7 - ii_lset_opeag 12,7 - ii_lset_opeag 14,7 - ii_lset_opeag 16,7 - ii_lset_opeag 18,7 - ii_lset_opeag 1a,7 - ii_lset_opeag 1c,7 - ii_lset_opeag 1e,7 -// move.x d8(ax,dy),(a0)-(a7) - ii_lset_opeag 10,b - ii_lset_opeag 12,b - ii_lset_opeag 14,b - ii_lset_opeag 16,b - ii_lset_opeag 18,b - ii_lset_opeag 1a,b - ii_lset_opeag 1c,b - ii_lset_opeag 1e,b -// move.x d8(ax,dy),(a0)+-(a7)+ - ii_lset_opeag 10,f - ii_lset_opeag 12,f - ii_lset_opeag 14,f - ii_lset_opeag 16,f - ii_lset_opeag 18,f - ii_lset_opeag 1a,f - ii_lset_opeag 1c,f - ii_lset_opeag 1e,f -// move.x d8(ax,dy),-(a0) bis -(a7) - ii_lset_opeag 11,3 - ii_lset_opeag 13,3 - ii_lset_opeag 15,3 - ii_lset_opeag 17,3 - ii_lset_opeag 19,3 - ii_lset_opeag 1b,3 - ii_lset_opeag 1d,3 - ii_lset_opeag 1f,3 -//--------------------------------------------------------------------- -// move.x d8(pc,dy),ea -------------------------------------------- -//--------------------------------------------------------------------- -// move.x d8(pc,dy),d0-d7 - ii_lset_dxg 1,3b -// move.x d8(pc,dy),a0-a7 - ii_lset_dxg 1,7b -// move.x d8(pc,dy),(a0-a7) - ii_lset_dxg 1,bb -// move.x d8(pc,dy),(a0-a7)+ - ii_lset_dxg 1,fb -// move.x d8(pc,dy),(a0-a7)+ - ii_lset_dxu 1,3b -//------------------------------------------------------------------------- -// 0x2000 move.l -//------------------------------------------------------------------------- -// move.x d16(ax),xxx.w 1=size 2=adress register - ii_lset_opeau 21,e -// move.x d16(ax),xxx.l - ii_lset_opeau 23,e -// move.x d16(pc),xxx.w - ii_lset 0x21fa -// move.x d16(pc),xxx.l - ii_lset 0x23fa -// move.x xxx.w,d16(ax) - ii_lset_dxu 2,78 -// move.x xxx.l,d16(ax) - ii_lset_dxu 2,79 -// move.x #xx,d16(ax) - ii_lset_dxu 2,7c -// move.x xxx.w,xxx.w; 1=size 2=size source adr 3=size dest adr 4=code - ii_lset 0x21f8 -// move.x xxx.l,xxx.w - ii_lset 0x21f9 -// move.x xxx.w,xxx.l - ii_lset 0x23f8 -// move.x xxx.l,xxx.l - ii_lset 0x23f9 -// move.x #xx,xxx.w //1=size 2=size dest adr 3=code - ii_lset 0x21fc -// move.x #xx,xxx.l //1=size 2=size dest adr 3=code - ii_lset 0x23fc -// move.x ea,d8(ax,dy) ------------------------------------------- -// move.x dx,d8(a0-a7,dy) - ii_lset_opeag 21,8 - ii_lset_opeag 23,8 - ii_lset_opeag 25,8 - ii_lset_opeag 27,8 - ii_lset_opeag 29,8 - ii_lset_opeag 2b,8 - ii_lset_opeag 2d,8 - ii_lset_opeag 2f,8 -// move.x (ax),d8(a0-a7,dy) -// move.x (ax)+,d8(a0-a7,dy) - ii_lset_opea 21,9 - ii_lset_opea 23,9 - ii_lset_opea 25,9 - ii_lset_opea 27,9 - ii_lset_opea 29,9 - ii_lset_opea 2b,9 - ii_lset_opea 2d,9 - ii_lset_opea 2f,9 -// move.x -(ax),d8(a0-a7,dy) - ii_lset_opeag 21,a - ii_lset_opeag 23,a - ii_lset_opeag 25,a - ii_lset_opeag 27,a - ii_lset_opeag 29,a - ii_lset_opeag 2b,a - ii_lset_opeag 2d,a - ii_lset_opeag 2f,a -//--------------------------------------------------------------------- -// move.x ea,d8(pc,dy) ------------------------------------------- -//--------------------------------------------------------------------- -// move.x dx,d8(pc,dy) -// move.x ax,d8(pc,dy) - ii_lset_opea 27,c -// move.x (ax),d8(pc,dy) -// move.x (ax)+,d8(pc,dy) - ii_lset_opea 27,d -// move.x -(ax),d8(pc,dy) - ii_lset_opeag 27,e -//--------------------------------------------------------------------- -// move.x d8(ax,dy),ea -------------------------------------------- -//--------------------------------------------------------------------- -// move.x d8(ax,dy),d0-d7 - ii_lset_opeag 20,3 - ii_lset_opeag 22,3 - ii_lset_opeag 24,3 - ii_lset_opeag 26,3 - ii_lset_opeag 28,3 - ii_lset_opeag 2a,3 - ii_lset_opeag 2c,3 - ii_lset_opeag 2e,3 -// move.x d8(ax,dy),a0-a7 - ii_lset_opeag 20,7 - ii_lset_opeag 22,7 - ii_lset_opeag 24,7 - ii_lset_opeag 26,7 - ii_lset_opeag 28,7 - ii_lset_opeag 2a,7 - ii_lset_opeag 2c,7 - ii_lset_opeag 2e,7 -// move.x d8(ax,dy),(a0)-(a7) - ii_lset_opeag 20,b - ii_lset_opeag 22,b - ii_lset_opeag 24,b - ii_lset_opeag 26,b - ii_lset_opeag 28,b - ii_lset_opeag 2a,b - ii_lset_opeag 2c,b - ii_lset_opeag 2e,b -// move.x d8(ax,dy),(a0)+-(a7)+ - ii_lset_opeag 20,f - ii_lset_opeag 22,f - ii_lset_opeag 24,f - ii_lset_opeag 26,f - ii_lset_opeag 28,f - ii_lset_opeag 2a,f - ii_lset_opeag 2c,f - ii_lset_opeag 2e,f -// move.x d8(ax,dy),-(a0) bis -(a7) - ii_lset_opeag 21,3 - ii_lset_opeag 23,3 - ii_lset_opeag 25,3 - ii_lset_opeag 27,3 - ii_lset_opeag 29,3 - ii_lset_opeag 2b,3 - ii_lset_opeag 2d,3 - ii_lset_opeag 2f,3 -//--------------------------------------------------------------------- -// move.x d8(pc,dy),ea -------------------------------------------- -//--------------------------------------------------------------------- -// move.x d8(pc,dy),d0-d7 - ii_lset_dxg 2,3b -// move.x d8(pc,dy),a0-a7 - ii_lset_dxg 2,7b -// move.x d8(pc,dy),(a0-a7) - ii_lset_dxg 2,bb -// move.x d8(pc,dy),(a0-a7)+ - ii_lset_dxg 2,fb -// move.x d8(pc,dy),(a0-a7)+ - ii_lset_dxu 2,3b -//------------------------------------------------------------------------- -// 0x3000 move.w -///------------------------------------------------------------------------- -// move.x d16(ax),xxx.w 1=size 2=adress register - ii_lset_opeau 31,e -// move.x d16(ax),xxx.l - ii_lset_opeau 33,e -// move.x d16(pc),xxx.w - ii_lset 0x31fa -// move.x d16(pc),xxx.l - ii_lset 0x33fa -// move.x xxx.w,d16(ax) - ii_lset_dxu 3,78 -// move.x xxx.l,d16(ax) - ii_lset_dxu 3,79 -// move.x #xx,d16(ax) - ii_lset_dxu 3,7c -// move.x xxx.w,xxx.w; 1=size 2=size source adr 3=size dest adr 4=code - ii_lset 0x31f8 -// move.x xxx.l,xxx.w - ii_lset 0x31f9 -// move.x xxx.w,xxx.l - ii_lset 0x33f8 -// move.x xxx.l,xxx.l - ii_lset 0x33f9 -// move.x #xx,xxx.w //1=size 2=size dest adr 3=code - ii_lset 0x31fc -// move.x #xx,xxx.l //1=size 2=size dest adr 3=code - ii_lset 0x33fc -// move.x ea,d8(ax,dy) ------------------------------------------- -// move.x dx,d8(a0-a7,dy) - ii_lset_opeag 31,8 - ii_lset_opeag 33,8 - ii_lset_opeag 35,8 - ii_lset_opeag 37,8 - ii_lset_opeag 39,8 - ii_lset_opeag 3b,8 - ii_lset_opeag 3d,8 - ii_lset_opeag 3f,8 -// move.x (ax),d8(a0-a7,dy) -// move.x (ax)+,d8(a0-a7,dy) - ii_lset_opea 31,9 - ii_lset_opea 33,9 - ii_lset_opea 35,9 - ii_lset_opea 37,9 - ii_lset_opea 39,9 - ii_lset_opea 3b,9 - ii_lset_opea 3d,9 - ii_lset_opea 3f,9 -// move.x -(ax),d8(a0-a7,dy) - ii_lset_opeag 31,a - ii_lset_opeag 33,a - ii_lset_opeag 35,a - ii_lset_opeag 37,a - ii_lset_opeag 39,a - ii_lset_opeag 3b,a - ii_lset_opeag 3d,a - ii_lset_opeag 3f,a -//--------------------------------------------------------------------- -// move.x ea,d8(pc,dy) ------------------------------------------- -//--------------------------------------------------------------------- -// move.x dx,d8(pc,dy) -// move.x ax,d8(pc,dy) - ii_lset_opea 37,c -// move.x (ax),d8(pc,dy) -// move.x (ax)+,d8(pc,dy) - ii_lset_opea 37,d -// move.x -(ax),d8(pc,dy) - ii_lset_opeag 37,e -//--------------------------------------------------------------------- -// move.x d8(ax,dy),ea -------------------------------------------- -//--------------------------------------------------------------------- -// move.x d8(ax,dy),d0-d7 - ii_lset_opeag 30,3 - ii_lset_opeag 32,3 - ii_lset_opeag 34,3 - ii_lset_opeag 36,3 - ii_lset_opeag 38,3 - ii_lset_opeag 3a,3 - ii_lset_opeag 3c,3 - ii_lset_opeag 3e,3 -// move.x d8(ax,dy),a0-a7 - ii_lset_opeag 30,7 - ii_lset_opeag 32,7 - ii_lset_opeag 34,7 - ii_lset_opeag 36,7 - ii_lset_opeag 38,7 - ii_lset_opeag 3a,7 - ii_lset_opeag 3c,7 - ii_lset_opeag 3e,7 -// move.x d8(ax,dy),(a0)-(a7) - ii_lset_opeag 30,b - ii_lset_opeag 32,b - ii_lset_opeag 34,b - ii_lset_opeag 36,b - ii_lset_opeag 38,b - ii_lset_opeag 3a,b - ii_lset_opeag 3c,b - ii_lset_opeag 3e,b -// move.x d8(ax,dy),(a0)+-(a7)+ - ii_lset_opeag 30,f - ii_lset_opeag 32,f - ii_lset_opeag 34,f - ii_lset_opeag 36,f - ii_lset_opeag 38,f - ii_lset_opeag 3a,f - ii_lset_opeag 3c,f - ii_lset_opeag 3e,f -// move.x d8(ax,dy),-(a0) bis -(a7) - ii_lset_opeag 31,3 - ii_lset_opeag 33,3 - ii_lset_opeag 35,3 - ii_lset_opeag 37,3 - ii_lset_opeag 39,3 - ii_lset_opeag 3b,3 - ii_lset_opeag 3d,3 - ii_lset_opeag 3f,3 -//--------------------------------------------------------------------- -// move.x d8(pc,dy),ea -------------------------------------------- -//--------------------------------------------------------------------- -// move.x d8(pc,dy),d0-d7 - ii_lset_dxg 3,3b -// move.x d8(pc,dy),a0-a7 - ii_lset_dxg 3,7b -// move.x d8(pc,dy),(a0-a7) - ii_lset_dxg 3,bb -// move.x d8(pc,dy),(a0-a7)+ - ii_lset_dxg 3,fb -// move.x d8(pc,dy),(a0-a7)+ - ii_lset_dxu 3,3b -.endm -//--------------------------------------------------------------------------------------------- -// function -//--------------------------------------------------------------------------------------------- -ii_move_op:.macro -// move.x d16(ax),xxx.w 1=size 2=adress register - ii_move_d16ax_xxx 1e8,a0_off(a7),w - ii_move_d16ax_xxx 1e9,a1_off(a7),w - ii_move_d16ax_xxx 1ea,a2,w - ii_move_d16ax_xxx 1eb,a3,w - ii_move_d16ax_xxx 1ec,a4,w - ii_move_d16ax_xxx 1ed,a5,w - ii_move_d16ax_xxx 1ee,a6,w - ii_move_d16ax_xxx 1ef,usp,w -// move.x d16(ax),xxx.l - ii_move_d16ax_xxx 3e8,a0_off(a7),l - ii_move_d16ax_xxx 3e9,a1_off(a7),l - ii_move_d16ax_xxx 3ea,a2,l - ii_move_d16ax_xxx 3eb,a3,l - ii_move_d16ax_xxx 3ec,a4,l - ii_move_d16ax_xxx 3ed,a5,l - ii_move_d16ax_xxx 3ee,a6,l - ii_move_d16ax_xxx 3ef,usp,l -// move.x d16(pc),xxx.w - ii_move_d16ax_xxx 1fa,a0,w -// move.x d16(pc),xxx.l - ii_move_d16ax_xxx 3fa,a0,l -// move.x xxx.w,d16(ax) -// move.x xxx.l,d16(ax) -// move.x #xx,d16(ax) - ii_move_xxx_d16ax 1,a0_off(a7) - ii_move_xxx_d16ax 3,a1_off(a7) - ii_move_xxx_d16ax 5,a2 - ii_move_xxx_d16ax 7,a3 - ii_move_xxx_d16ax 9,a4 - ii_move_xxx_d16ax b,a5 - ii_move_xxx_d16ax d,a6 - ii_move_xxx_d16ax f,usp -// move.x xxx.w,xxx.w; 1=size 2=size source adr 3=size dest adr 4=code - ii_move_xxx_xxx b,w,w,11f8 - ii_move_xxx_xxx l,w,w,21f8 - ii_move_xxx_xxx w,w,w,31f8 -// move.x xxx.l,xxx.w - ii_move_xxx_xxx b,l,w,11f9 - ii_move_xxx_xxx l,l,w,21f9 - ii_move_xxx_xxx w,l,w,31f9 -// move.x xxx.w,xxx.l - ii_move_xxx_xxx b,w,l,13f8 - ii_move_xxx_xxx l,w,l,23f8 - ii_move_xxx_xxx w,w,l,33f8 -// move.x xxx.l,xxx.l - ii_move_xxx_xxx b,l,l,13f9 - ii_move_xxx_xxx l,l,l,23f9 - ii_move_xxx_xxx w,l,l,33f9 -// move.x #xx,xxx.w //1=size 2=size dest adr 3=code - ii_move_im_xxx b,w,11fc - ii_move_im_xxx l,w,21fc - ii_move_im_xxx w,w,31fc -// move.x #xx,xxx.l //1=size 2=size dest adr 3=code - ii_move_im_xxx b,l,13fc - ii_move_im_xxx l,l,23fc - ii_move_im_xxx w,l,33fc -//--------------------------------------------------------------------- -// move.x ea,d8(ax,dy) ------------------------------------------- -//--------------------------------------------------------------------- -// move.x dx,d8(ax/pc,dy) - ii_move_dxxia d0_off(a7),80,id,d,c0 - ii_move_dxxia d1_off(a7),81,id,d,c1 - ii_move_dxxia d2,82,d,d,c2 - ii_move_dxxia d3,83,d,d,c3 - ii_move_dxxia d4,84,d,d,c4 - ii_move_dxxia d5,85,d,d,c5 - ii_move_dxxia d6,86,d,d,c6 - ii_move_dxxia d7,87,d,d,c7 -// move.x ax,d8(ax/pc,dy) - ii_move_dxxia a0_off(a7),88,id,d,c8 - ii_move_dxxia a1_off(a7),89,id,d,c9 - ii_move_dxxia a2,8a,d,da,ca - ii_move_dxxia a3,8b,d,da,cb - ii_move_dxxia a4,8c,d,da,cc - ii_move_dxxia a5,8d,d,da,cd - ii_move_dxxia a6,8e,d,da,ce - ii_move_dxxia a7,8f,a7,da,cf -// move.x (ax),d8(ax/pc,dy) - ii_move_dxxia a0_off(a7),90,ia,d,d0 - ii_move_dxxia a1_off(a7),91,ia,d,d1 - ii_move_dxxia (a2),92,d,d,d2 - ii_move_dxxia (a3),93,d,d,d3 - ii_move_dxxia (a4),94,d,d,d4 - ii_move_dxxia (a5),95,d,d,d5 - ii_move_dxxia (a6),96,d,d,d6 - ii_move_dxxia (a7),97,a7,d,d7 -// move.x (ax)+,d8(ax/pc,dy) - ii_move_dxxia a0_off(a7),98,iap,d,d8 - ii_move_dxxia a1_off(a7),99,iap,d,d9 - ii_move_dxxia (a2)+,9a,d,d,da - ii_move_dxxia (a3)+,9b,d,d,db - ii_move_dxxia (a4)+,9c,d,d,dc - ii_move_dxxia (a5)+,9d,d,d,dd - ii_move_dxxia (a6)+,9e,d,d,de - ii_move_dxxia (a7)+,9f,a7,d,df -// move.x -(ax),d8(ax/pc,dy) - ii_move_dxxia a0_off(a7),a0,iam,d,e0 - ii_move_dxxia a1_off(a7),a1,iam,d,e1 - ii_move_dxxia -(a2),a2,d,d,e2 - ii_move_dxxia -(a3),a3,d,d,e3 - ii_move_dxxia -(a4),a4,d,d,e4 - ii_move_dxxia -(a5),a5,d,d,e5 - ii_move_dxxia -(a6),a6,d,d,e6 - ii_move_dxxia -(a7),a7,a7,d,e7 -//--------------------------------------------------------------------- -// move.x d8(ax/pc,dy),ea -------------------------------------------- -//--------------------------------------------------------------------- -// move.x d8(ax/pc,dy),dz - ii_move_d8_dest d0,id,03,dx - ii_move_d8_dest d1,id,23,dx - ii_move_d8_dest d2,d,43,dx - ii_move_d8_dest d3,d,63,dx - ii_move_d8_dest d4,d,83,dx - ii_move_d8_dest d5,d,a3,dx - ii_move_d8_dest d6,d,c3,dx - ii_move_d8_dest d7,d,e3,dx -// move.x d8(ax/pc,dy),az - ii_move_d8_dest a0,id,07,ax - ii_move_d8_dest a1,id,27,ax - ii_move_d8_dest a2,d,47,ax - ii_move_d8_dest a3,d,67,ax - ii_move_d8_dest a4,d,87,ax - ii_move_d8_dest a5,d,a7,ax - ii_move_d8_dest a6,d,c7,ax - ii_move_d8_dest usp,id,e7,ax -// move.x d8(ax/pc,dy),(az) - ii_move_d8_dest a0_off(a7),id,0b,ia - ii_move_d8_dest a1_off(a7),id,2b,ia - ii_move_d8_dest (a2),d,4b,ia - ii_move_d8_dest (a3),d,6b,ia - ii_move_d8_dest (a4),d,8b,ia - ii_move_d8_dest (a5),d,ab,ia - ii_move_d8_dest (a6),d,cb,ia - ii_move_d8_dest usp,id,eb,ia -// move.x d8(ax/pc,dy),(az)+ - ii_move_d8_dest a0_off(a7),id,0f,iap - ii_move_d8_dest a1_off(a7),id,2f,iap - ii_move_d8_dest (a2)+,d,4f,iap - ii_move_d8_dest (a3)+,d,6f,iap - ii_move_d8_dest (a4)+,d,8f,iap - ii_move_d8_dest (a5)+,d,af,iap - ii_move_d8_dest (a6)+,d,cf,iap - ii_move_d8_dest usp,id,ef,iap -// move.x d8(ax/pc,dy),-(az) - ii_move_d8_dest a0_off(a7),id,13,iam - ii_move_d8_dest a1_off(a7),id,33,iam - ii_move_d8_dest -(a2),d,53,iam - ii_move_d8_dest -(a3),d,73,iam - ii_move_d8_dest -(a4),d,93,iam - ii_move_d8_dest -(a5),d,b3,iam - ii_move_d8_dest -(a6),d,d3,iam - ii_move_d8_dest usp,id,f3,iam -.endm //end function -//==================================================================== -// subs ---------------------------------------------------------- -//==================================================================== -// move.x d16(ax),xxx.w/l 1=code 2=adress register 3=dest adr size -ii_move_d16ax_xxx:.macro -ii_0x1\1: //byt: -#ifdef halten_move - halt -#endif - mvs.w (a0)+,d0 - move.l \2,a1 - add.l d0,a1 - move.b (a1),d0 - move.\3 (a0)+,a1 - move.b d0,(a1) - set_cc0 - ii_end -ii_0x2\1: //long: -#ifdef halten_move - halt -#endif - mvs.w (a0)+,d0 - move.l \2,a1 - add.l d0,a1 - move.l (a1),d0 - move.\3 (a0)+,a1 - move.l d0,(a1) - set_cc0 - ii_end -ii_0x3\1: //word: -#ifdef halten_move - halt -#endif - mvs.w (a0)+,d0 - move.l \2,a1 - add.l d0,a1 - move.w (a1),d0 - move.\3 (a0)+,a1 - move.w d0,(a1) - set_cc0 - ii_end -.endm -//---------------------------------------- -// move.x xxx.w,d16(ax) -// move.x xxx.l,d16(ax) -// move.x #xx,d16(ax) -ii_move_xxx_d16ax:.macro //1=code 2=adress register -ii_0x1\178: //byt xxx.w -#ifdef halten_move - halt -#endif - move.w (a0)+,a1 - move.b (a1),d0 - move.l \2,a1 - mvs.w (a0)+,d1 - add.l d1,a1 - move.b d0,(a1) - set_cc0 - ii_end -ii_0x1\179: //byt xxx.l -#ifdef halten_move - halt -#endif - move.l (a0)+,a1 - move.b (a1),d0 - move.l \2,a1 - mvs.w (a0)+,d1 - add.l d1,a1 - move.b d0,(a1) - set_cc0 - ii_end -ii_0x1\17c: //byt #x -#ifdef halten_move - halt -#endif - mvs.b (a0)+,d0 - move.l \2,a1 - mvs.w (a0)+,d1 - add.l d1,a1 - move.b d0,(a1) - set_cc0 - ii_end -ii_0x2\178: //long xxx.w -#ifdef halten_move - halt -#endif - move.w (a0)+,a1 - move.l (a1),d0 - move.l \2,a1 - mvs.w (a0)+,d1 - add.l d1,a1 - move.l d0,(a1) - set_cc0 - ii_end -ii_0x2\179: //long xxx.l -#ifdef halten_move - halt -#endif - move.l (a0)+,a1 - move.l (a1),d0 - move.l \2,a1 - mvs.w (a0)+,d1 - add.l d1,a1 - move.l d0,(a1) - set_cc0 - ii_end -ii_0x2\17c: //long #x -#ifdef halten_move - halt -#endif - move.l (a0)+,d0 - move.l \2,a1 - mvs.w (a0)+,d1 - add.l d1,a1 - move.l d0,(a1) - set_cc0 - ii_end - ii_end -ii_0x3\178: //word xxx.w -#ifdef halten_move - halt -#endif - move.w (a0)+,a1 - move.w (a1),d0 - move.l \2,a1 - mvs.w (a0)+,d1 - add.l d1,a1 - move.w d0,(a1) - set_cc0 - ii_end -ii_0x3\179: //word xxx.l -#ifdef halten_move - halt -#endif - move.l (a0)+,a1 - move.w (a1),d0 - move.l \2,a1 - mvs.w (a0)+,d1 - add.l d1,a1 - move.w d0,(a1) - set_cc0 - ii_end -ii_0x3\17c: //word #x -#ifdef halten_move - halt -#endif - move.w (a0)+,d0 - move.l \2,a1 - mvs.w (a0)+,d1 - add.l d1,a1 - move.w d0,(a1) - set_cc0 - ii_end -.endm -// move.x xxx,xxx -ii_move_xxx_xxx:.macro //1=size 2=size source adr 3=size dest adr 4=code -ii_0x\4: -#ifdef halten_move - halt -#endif - move.\2 (a0)+,a1 - move.\1 (a1),d0 - move.\3 (a0)+,d1 - move.\1 d0,(a1) - set_cc0 - ii_end -.endm -// move.x im,xxx -ii_move_im_xxx:.macro //1=size 2=size dest adr 3=code -ii_0x\3: -#ifdef halten_move - halt -#endif -.ifc 1,b - move.w (a0)+,d0 -.else - move.\1 (a0)+,d0 -.endif - move.\2 (a0)+,a1 - move.\1 d0,(a1) - set_cc0 - ii_end -.endm -//--------------------------------------------------------------------- -// move.x ea,d8(ax,dy) ------------------------------------------- -//--------------------------------------------------------------------- -// ea=dx,ax,(ax),(ax)+,-(ax) -//--------------------------------------------------------------------- -ii_move_dxxia:.macro //1=source 2=code 1.stelle 3=code 2 letzte Stellen 4=art 5=code d8(pc,dy) -.ifc \3,id - ii_move_dxxi b,\1+3,1,\2,\3,\5 - ii_move_dxxi w,\1+2,2,\2,\3,\5 - ii_move_dxxi l,\1,3,\2,\3,\5 -.else - .ifc \4,da - ii_move_dxxi w,\1,2,\2,\3,\5 - ii_move_dxxi l,\1,3,\2,\3,\5 - .else - ii_move_dxxi b,\1,1,\2,\3,\5 - ii_move_dxxi w,\1,2,\2,\3,\5 - ii_move_dxxi l,\1,3,\2,\3,\5 - .endif -.endif -.endm - -ii_move_dxxi:.macro -ii_0x\31\4: //1=size 2=source 3=code 1.stelle 4=code 2 letzte Stellen -#ifdef halten_move - halt -#endif - move.l a0_off(a7),a1 - move_end \1,\2,\5 -ii_0x\33\4: //1=size 2=source 3=code 1.stelle 4=code 2 letzte Stellen -#ifdef halten_move - halt -#endif - move.l a1_off(a7),a1 - move_end \1,\2,\5 -ii_0x\35\4: //1=size 2=source 3=code 1.stelle 4=code 2 letzte Stellen -#ifdef halten_move - halt -#endif - move.l a2,a1 - move_end \1,\2,\5 -ii_0x\37\4: //1=size 2=source 3=code 1.stelle 4=code 2 letzte Stellen -#ifdef halten_move - halt -#endif - move.l a3,a1 - move_end \1,\2,\5 -ii_0x\39\4: //1=size 2=source 3=code 1.stelle 4=code 2 letzte Stellen -#ifdef halten_move - halt -#endif - move.l a4,a1 - move_end \1,\2,\5 -ii_0x\3b\4: //1=size 2=source 3=code 1.stelle 4=code 2 letzte Stellen -#ifdef halten_move - halt -#endif - move.l a5,a1 - move_end \1,\2,\5 -ii_0x\3d\4: //1=size 2=source 3=code 1.stelle 4=code 2 letzte Stellen -#ifdef halten_move - halt -#endif - move.l a6,a1 - move_end \1,\2,\5 -ii_0x\3f\4: //1=size 2=source 3=code 1.stelle 4=code 2 letzte Stellen -#ifdef halten_move - halt -#endif - move.l usp,a1 - move_end \1,\2,\5 -ii_0x\37\6: //1=size 2=source 3=code 1.stelle 4=code 2 letzte Stellen -#ifdef halten_move - halt -#endif - move.l a0,a1 - move_end \1,\2,\5 -.endm -//------------------------------------ -move_end:.macro - jsr ewf -.ifc 3,a7 - move.l a7,d1 // a7 sichern - move.l usp,a7 // a7 holen -.endif -.ifc 3,ia - move.l a2,d1 // a2 sichern - move.l \2,a2 - move.\2 (a2),(a1) - move.l d1,a2 // a2 zurück -.else - .ifc 3,iap - move.l a2,d1 // a2 sichern - move.l \2,a2 - move.\2 (a2)+,(a1) - .else - .ifc 3,iam - move.l a2,d1 // a2 sichern - move.l \2,a2 - move.\2 -(a2),(a1) - .else - move.\1 \2,(a1) - .endif - .endif -.endif -.ifc 3,a7 - movea.l a7,usp // a7 zurück - movea.l d1,a7 // a7 setzen -.endif - set_cc0 -.ifc 3,iap - move.l d1,a2 // a2 zurück -.endif -.ifc 3,iam - move.l d1,a2 // a2 zurück -.endif - ii_end -.endm -//--------------------------------------------------------------------- -// move.x ea,d8(pc,dy) -//--------------------------------------------------------------------- - -//--------------------------------------------------------------------- -// move.x d8(ax,dy),ea --------------------------------------------- -//--------------------------------------------------------------------- -ii_move_d8_dest:.macro //1=dest 2=art 3=code 2.+3.stelle 4=art adresse -//byt -ii_0x1\30: -#ifdef halten_move - halt -#endif - move.l a0_off(a7),a1 - moveb_a1_src\4 \1,\2 -ii_0x1\31: -#ifdef halten_move - halt -#endif - move.l a1_off(a7),a1 - moveb_a1_src\4 \1,\2 -ii_0x1\32: -#ifdef halten_move - halt -#endif - move.l a2,a1 - moveb_a1_src\4 \1,\2 -ii_0x1\33: -#ifdef halten_move - halt -#endif - move.l a3,a1 - moveb_a1_src\4 \1,\2 -ii_0x1\34: -#ifdef halten_move - halt -#endif - move.l a4,a1 - moveb_a1_src\4 \1,\2 -ii_0x1\35: -#ifdef halten_move - halt -#endif - move.l a5,a1 - moveb_a1_src\4 \1,\2 -ii_0x1\36: -#ifdef halten_move - halt -#endif - move.l a6,a1 - moveb_a1_src\4 \1,\2 -ii_0x1\37: -#ifdef halten_move - halt -#endif - move.l usp,a1 - moveb_a1_src\4 \1,\2 -ii_0x1\3b: -#ifdef halten_move - halt -#endif - move.l a0,a1 - moveb_a1_src\4 \1,\2 -//long -ii_0x2\30: -#ifdef halten_move - halt -#endif - move.l a0_off(a7),a1 - movel_a1_src\4 \1,\2 -ii_0x2\31: -#ifdef halten_move - halt -#endif - move.l a1_off(a7),a1 - movel_a1_src\4 \1,\2 -ii_0x2\32: -#ifdef halten_move - halt -#endif - move.l a2,a1 - movel_a1_src\4 \1,\2 -ii_0x2\33: -#ifdef halten_move - halt -#endif - move.l a3,a1 - movel_a1_src\4 \1,\2 -ii_0x2\34: -#ifdef halten_move - halt -#endif - move.l a4,a1 - movel_a1_src\4 \1,\2 -ii_0x2\35: -#ifdef halten_move - halt -#endif - move.l a5,a1 - movel_a1_src\4 \1,\2 -ii_0x2\36: -#ifdef halten_move - halt -#endif - move.l a6,a1 - movel_a1_src\4 \1,\2 -ii_0x2\37: -#ifdef halten_move - halt -#endif - move.l usp,a1 - movel_a1_src\4 \1,\2 -ii_0x2\3b: -#ifdef halten_move - halt -#endif - move.l a0,a1 - moveb_a1_src\4 \1,\2 -//word -ii_0x3\30: -#ifdef halten_move - halt -#endif - move.l a0_off(a7),a1 - movew_a1_src\4 \1,\2 -ii_0x3\31: -#ifdef halten_move - halt -#endif - move.l a1_off(a7),a1 - movew_a1_src\4 \1,\2 -ii_0x3\32: -#ifdef halten_move - halt -#endif - move.l a2,a1 - movew_a1_src\4 \1,\2 -ii_0x3\33: -#ifdef halten_move - halt -#endif - move.l a3,a1 - movew_a1_src\4 \1,\2 -ii_0x3\34: -#ifdef halten_move - halt -#endif - move.l a4,a1 - movew_a1_src\4 \1,\2 -ii_0x3\35: -#ifdef halten_move - halt -#endif - move.l a5,a1 - movew_a1_src\4 \1,\2 -ii_0x3\36: -#ifdef halten_move - halt -#endif - move.l a6,a1 - movew_a1_src\4 \1,\2 -ii_0x3\37: -#ifdef halten_move - halt -#endif - move.l usp,a1 - movew_a1_src\4 \1,\2 -ii_0x3\3b: -#ifdef halten_move - halt -#endif - move.l a0,a1 - moveb_a1_src\4 \1,\2 -.endm -//--------------------------------------------------------------------- -//dx -moveb_a1_srcdx:.macro - jsr ewf -.ifc \2,id - move.b (a1),\1_off+3(a7) -.else - move.b (a1),\1 -.endif - set_cc0 - ii_end -.endm -movel_a1_srcdx:.macro - jsr ewf -.ifc \2,id - move.l (a1),\1_off(a7) -.else - move.l (a1),\1 -.endif - set_cc0 - ii_end -.endm -movew_a1_srcdx:.macro - jsr ewf -.ifc \2,id - move.w (a1),\1_off+2(a7) -.else - move.w (a1),\1 -.endif - set_cc0 - ii_end -.endm -// ax -moveb_a1_srcax:.macro - jsr ewf -.ifc \2,id - .ifc \1,usp - move.w (a1),a1 - move.l a1,usp - .else - move.w (a1),\1_off+2(a7) - .endif -.else - move.w (a1),\1 -.endif - set_cc0 - ii_end -.endm -movel_a1_srcax:.macro - jsr ewf -.ifc \2,id - .ifc \1,usp - move.l (a1),a1 - move.l a1,usp - .else - move.l (a1),\1_off(a7) - .endif -.else - move.l (a1),\1 -.endif - set_cc0 - ii_end -.endm -movew_a1_srcax:.macro - jsr ewf -.ifc \2,id - .ifc \1,usp - move.w (a1),a1 - move.l a1,usp - .else - move.w (a1),\1_off+2(a7) - .endif -.else - move.w (a1),\1 -.endif - set_cc0 - ii_end -.endm -// (ax) -moveb_a1_srcia:.macro - jsr ewf -.ifc \2,id - move.b (a1),d0 - move.l \1,a1 - move.b d0,(a1) -.else - move.b (a1),\1 -.endif - set_cc0 - ii_end -.endm -movel_a1_srcia:.macro - jsr ewf -.ifc \2,id - move.l (a1),d0 - move.l \1,a1 - move.l d0,(a1) -.else - move.l (a1),\1 -.endif - set_cc0 - ii_end -.endm -movew_a1_srcia:.macro - jsr ewf -.ifc \2,id - move.w (a1),d0 - move.l \1,a1 - move.w d0,(a1) -.else - move.w (a1),\1 -.endif - set_cc0 - ii_end -.endm -// (ax)+ -moveb_a1_srciap:.macro - jsr ewf -.ifc \2,id - move.b (a1),d0 - move.l \1,a1 - move.b d0,(a1)+ - move.l a1,\1 -.else - move.b (a1),\1 -.endif - set_cc0 - ii_end -.endm -movel_a1_srciap:.macro - jsr ewf -.ifc \2,id - move.l (a1),d0 - move.l \1,a1 - move.l d0,(a1)+ - move.l a1,\1 -.else - move.l (a1),\1 -.endif - set_cc0 - ii_end -.endm -movew_a1_srciap:.macro - jsr ewf -.ifc \2,id - move.w (a1),d0 - move.l \1,a1 - move.w d0,(a1)+ - move.l a1,\1 -.else - move.w (a1),\1 -.endif - set_cc0 - ii_end -.endm -// -(ax) -moveb_a1_srciam:.macro - jsr ewf -.ifc \2,id - move.b (a1),d0 - move.l \1,a1 - move.b d0,-(a1) - move.l a1,\1 -.else - move.b (a1),\1 -.endif - set_cc0 - ii_end -.endm -movel_a1_srciam:.macro - jsr ewf -.ifc \2,id - move.l (a1),d0 - move.l \1,a1 - move.l d0,-(a1) - move.l a1,\1 -.else - move.l (a1),\1 -.endif - set_cc0 - ii_end -.endm -movew_a1_srciam:.macro - jsr ewf -.ifc \2,id - move.w (a1),d0 - move.l \1,a1 - move.w d0,-(a1) - move.l a1,\1 -.else - move.w (a1),\1 -.endif - set_cc0 - ii_end -.endm - -//--------------------------------------------------------------------- -// move.x d8(pc,dy),ea -//--------------------------------------------------------------------- - - - -/*============================================================ -// move.w dx,(a0,dx.w*SF) - ii_lset 0x3180 - ii_lset 0x3181 - ii_lset 0x3182 - ii_lset 0x3183 - ii_lset 0x3184 - ii_lset 0x3185 - ii_lset 0x3186 - ii_lset 0x3187 - -//-------------------------------------------------------------------- -// // move.w dx,d(ay,dz.w*sf) -//-------------------------------------------------------------------- -movew_ewfw:.macro - move.l \2,a1 - jsr ewf - move.w \1,(a1) - set_cc0 - ii_end - .endm -ii_0x3180: - movew_ewfw d0_off+2(a7),a0_off(a7) -ii_0x3181: - movew_ewfw d0_off+2(a7),a0_off(a7) -ii_0x3182: - movew_ewfw d2,a0_off(a7) -ii_0x3183: - movew_ewfw d3,a0_off(a7) -ii_0x3184: - movew_ewfw d4,a0_off(a7) -ii_0x3185: - movew_ewfw d5,a0_off(a7) -ii_0x3186: - movew_ewfw d6,a0_off(a7) -ii_0x3187: - movew_ewfw d7,a0_off(a7) diff --git a/BaS_GNU/sources/ii_movem.h b/BaS_GNU/sources/ii_movem.h deleted file mode 100644 index 5e8a470..0000000 --- a/BaS_GNU/sources/ii_movem.h +++ /dev/null @@ -1,374 +0,0 @@ -//***********************************************************************************/ -// movem -//***********************************************************************************/ -ii_movem_lset: .macro -// movem.l rx,xxx.L - ii_lset 0x48f9 -// movem.l xxx.L,rx - ii_lset 0x4cf9 -// movem.w rx,xxx.L - ii_lset 0x48b9 -// movem.w xxx.L,rx - ii_lset 0x4cb9 -// movem.l rx,-(ax) - ii_lset 0x48e0 - ii_lset 0x48e1 - ii_lset 0x48e2 - ii_lset 0x48e3 - ii_lset 0x48e4 - ii_lset 0x48e5 - ii_lset 0x48e6 - ii_lset 0x48e7 -// movem.l (ax)+,rx - ii_lset 0x4cd8 - ii_lset 0x4cd9 - ii_lset 0x4cda - ii_lset 0x4cdb - ii_lset 0x4cdc - ii_lset 0x4cdd - ii_lset 0x4cde - ii_lset 0x4cdf -.endm -//***********************************************************************************/ -ii_movem_func: .macro -//------------------------------------------------------------------- -// movem.l -//-------------------------------------------------------------------- -// movem.l (ax)+,reg -//-------------------------------------------------------------------- - .long 0 -az_reg_table: - .byte 0,1,1,2,1,2,2,3,1,2,2,3,2,3,3,4 // 0-f - .byte 1,2,2,3,2,3,3,4,2,3,3,4,3,4,4,5 // 10-1f - .byte 1,2,2,3,2,3,3,4,2,3,3,4,3,4,4,5 // 20-2f - .byte 2,3,3,4,3,4,4,5,3,4,4,5,4,5,5,6 // 30-3f - .byte 1,2,2,3,2,3,3,4,2,3,3,4,3,4,4,5 // 40-4f - .byte 2,3,3,4,3,4,4,5,3,4,4,5,4,5,5,6 // 50 - .byte 2,3,3,4,3,4,4,5,3,4,4,5,4,5,5,6 // 60 - .byte 3,4,4,5,4,5,5,6,4,5,5,6,5,6,6,7 // 70 - .byte 1,2,2,3,2,3,3,4,2,3,3,4,3,4,4,5 // 80-8f - .byte 2,3,3,4,3,4,4,5,3,4,4,5,4,5,5,6 // 90 - .byte 2,3,3,4,3,4,4,5,3,4,4,5,4,5,5,6 // a0 - .byte 3,4,4,5,4,5,5,6,4,5,5,6,5,6,6,7 // b0 - .byte 2,3,3,4,3,4,4,5,3,4,4,5,4,5,5,6 // c0 - .byte 3,4,4,5,4,5,5,6,4,5,5,6,5,6,6,7 // d0 - .byte 3,4,4,5,4,5,5,6,4,5,5,6,5,6,6,7 // e0 - .byte 4,5,5,6,5,6,6,7,5,6,6,7,6,7,7,8 // f0 -//------------------------------------------------------------------------------- -ii_0x48e0: // movem.l reglist,-(a0) - mvm_mem_macro 0x48d0,a0_off(a7),2 -ii_0x48e1: // movem.l reglist,-(a1) - mvm_mem_macro 0x48d1,a1_off(a7),2 -ii_0x48e2: // movem.l reglist,-(a2) - mvm_mem_macro 0x48d2,a2,2 -ii_0x48e3: // movem.l reglist,-(a3) - mvm_mem_macro 0x48d3,a3,2 -ii_0x48e4: // movem.l reglist,-(a4) - mvm_mem_macro 0x48d4,a4,2 -ii_0x48e5: // movem.l reglist,-(a5) - mvm_mem_macro 0x48d5,a5,2 -ii_0x48e6: // movem.l reglist,-(a6) - mvm_mem_macro 0x48d6,a6,2 -ii_0x48e7: // movem.l reglist,-(a7) - mvm_mem_macro 0x48d7,usp,2 -//------------------------------------------------------------------------------- -ii_0x4cd8: // movem.l (a0)+,reglist - mvm_reg_macro 0x4cd0,0x41e8,2 -ii_0x4cd9: // movem.l (a1)+,reglist - mvm_reg_macro 0x4cd1,0x43e9,2 -ii_0x4cda: // movem.l (a2)+,reglist - mvm_reg_macro 0x4cd2,0x45ea,2 -ii_0x4cdb: // movem.l (a3)+,reglist - mvm_reg_macro 0x4cd3,0x47eb,2 -ii_0x4cdc: // movem.l (a4)+,reglist - mvm_reg_macro 0x4cd4,0x49ec,2 -ii_0x4cdd: // movem.l (a5)+,reglist - mvm_reg_macro 0x4cd5,0x4bed,2 -ii_0x4cde: // movem.l (a6)+,reglist - mvm_reg_macro 0x4cd6,0x4dee,2 -ii_0x4cdf: // movem.l (a7)+,reglist - mvm_reg_macro 0x4cd7,0x4fef,2 -//---------------------------------------------------------------------------- -ii_0x48f9: // movem.l reg,xxx.L -#ifdef halten_movem - halt -#endif - move.w (a0)+,d0 - move.l (a0)+,a1 - movemrm_macro l -//--------------------------------------------------------------------------------------------- -ii_0x4cf9: // movem.l xxx.L,reg -#ifdef halten_movem - halt -#endif - move.w (a0)+,d0 - move.l (a0)+,a1 - movemmr_macro l -//---------------------------------------------------------------------------- -ii_0x48b9: // movem.w reg,xxx.L -#ifdef halten_movem - halt -#endif - move.w (a0)+,d0 - move.l (a0)+,a1 - movemrm_macro w -//--------------------------------------------------------------------------------------------- -ii_0x4cb9: // movem.w xxx.L,reg -#ifdef halten_movem - halt -#endif - move.w (a0)+,d0 - move.l (a0)+,a1 - movemmr_macro w -.endm -//============================================================== -mvm_mem_macro:.macro -#ifdef halten_movem - halt -#endif - lea az_reg_table,a1 - mvz.b (a0),d1 - mvz.b 0(a1,d1)+,d0 - mvz.b 1(a0),d1 - mvz.b 0(a1,d1)+,d1 - add.l d0,d1 - lsl.l #\3,d1 // * anzahl byts pro wert - move.l \2,a1 - sub.l d1,a1 // ax-anzahl byts - move.l a1,\2 - lea ___RAMBAR1,a1 - move.l a1,pc_off(a7) - move.l a1,d0 - addq.l #1,d0 - movec d0,RAMBAR1 - move.w #\1,(a1)+ // movem.x reg_list,-(a7) - move.w (a0)+,(a1)+ // register list - move.w #0x4ef9,(a1)+ // jmp.l - move.l a0,(a1) // rücksprungadresse - move.l #___RAMBAR1 + 0x81,d0 // instruction - movec d0,RAMBAR1 - movem.l (a7),d0/d1/a0/a1 - lea ii_ss(a7),a7 // stack erhöhen - rte -.endm -//--------------------------------------------------------------------------------- -mvm_reg_macro:.macro -#ifdef halten_movem - halt -#endif - lea az_reg_table,a1 - mvz.b (a0),d1 - mvz.b 0(a1,d1)+,d0 - mvz.b 1(a0),d1 - mvz.b 0(a1,d1)+,d1 - add.l d0,d1 - lea ___RAMBAR1,a1 - move.l a1,pc_off(a7) - move.l a1,d0 - addq.l #1,d0 - movec d0,RAMBAR1 - move.w #\1,(a1)+ // movem.x (ax),reg_list - move.w (a0)+,(a1)+ // register list - move.w #\2,(a1)+ // lea 0(ax),ax - lsl.l #\3,d1 // * anzahl byts pro wert - move.w d1,(a1)+ // offset von lea - move.w #0x4ef9,(a1)+ // jmp.l - move.l a0,(a1) // rücksprungadresse - move.l #___RAMBAR1 + 0x81,d0 // instruction - movec d0,RAMBAR1 - movem.l (a7),d0/d1/a0/a1 - lea ii_ss(a7),a7 // stack erhöhen - rte -.endm -//--------------------------------------------------------------------------------- -movemrm_macro:.macro // in d0 register liste, in a1 zieladresse -#ifdef halten_movem - halt -#endif - tst.b d0 // datenregister zu verschieben? - bne mrm_dx\@ // ja-> - lsr.l #8,d0 // sonst zu addressregister - jmp mmrm_nd7\@ // -> -mrm_dx\@: - lsr.l #1,d0 - bcc mmrm_nd0\@ -.ifc 1,l - move.l d0_off(a7),(a1)+ -.else - move.w d0_off+2(a7),(a1)+ -.endif -mmrm_nd0\@: - lsr.l #1,d0 - bcc mmrm_nd1\@ -.ifc 1,l - move.l d1_off(a7),(a1)+ -.else - move.w d1_off+2(a7),(a1)+ -.endif -mmrm_nd1\@: - lsr.l #1,d0 - bcc mmrm_nd2\@ - move.\1 d2,(a1)+ -mmrm_nd2\@: - lsr.l #1,d0 - bcc mmrm_nd3\@ - move.\1 d3,(a1)+ -mmrm_nd3\@: - lsr.l #1,d0 - bcc mmrm_nd4\@ - move.\1 d4,(a1)+ -mmrm_nd4\@: - lsr.l #1,d0 - bcc mmrm_nd5\@ - move.\1 d5,(a1)+ -mmrm_nd5\@: - lsr.l #1,d0 - bcc mmrm_nd6\@ - move.l d6,(a1)+ -mmrm_nd6\@: - lsr.l #1,d0 - bcc mmrm_nd7\@ - move.\1 d7,(a1)+ -mmrm_nd7\@: - tst.b d0 // addressregister zu verschieben? - beq mmrm_na7\@ - lsr.l #1,d0 - bcc mmrm_na0\@ -.ifc 1,l - move.l a0_off(a7),(a1)+ -.else - move.w a0_off+2(a7),(a1)+ -.endif -mmrm_na0\@: - lsr.l #1,d0 - bcc mmrm_na1\@ -.ifc 1,l - move.l a1_off(a7),(a1)+ -.else - move.w a1_off+2(a7),(a1)+ -.endif -mmrm_na1\@: - lsr.l #1,d0 - bcc mmrm_na2\@ - move.\1 a2,(a1)+ -mmrm_na2\@: - lsr.l #1,d0 - bcc mmrm_na3\@ - move.\1 a3,(a1)+ -mmrm_na3\@: - lsr.l #1,d0 - bcc mmrm_na4\@ - move.\1 a4,(a1)+ -mmrm_na4\@: - lsr.l #1,d0 - bcc mmrm_na5\@ - move.\1 a5,(a1)+ -mmrm_na5\@: - lsr.l #1,d0 - bcc mmrm_na6\@ - move.\1 a6,(a1)+ -mmrm_na6\@: - lsr.l #1,d0 - bcc mmrm_na7\@ - move.l a0,d1 // sichern - move.l usp,a0 // ist ja usp - move.\1 a0,(a1)+ // nach a0 - move.l d1,a0 // pc zurück -mmrm_na7\@: - ii_end - .endm -//--------------------------------------------------------------------------------------------- -movemmr_macro:.macro // in d0 register liste, in a1 source adr -#ifdef halten_movem - halt -#endif - tst.b d0 // datenregister zu verschieben? - bne mmr_dx\@ // ja-> - lsr.l #8,d0 // sonst zu addressregister - bra mmmr_nd7\@ // -> -mmr_dx\@: - lsr.l #1,d0 - bcc mmmr_nd0\@ -.ifc 1,l - move.l (a1)+,d0_off(a7) -.else - move.w (a1)+,d0_off+2(a7) -.endif -mmmr_nd0\@: - lsr.l #1,d0 - bcc mmmr_nd1\@ -.ifc 1,l - move.l (a1)+,d1_off(a7) -.else - move.w (a1)+,d1_off+2(a7) -.endif -mmmr_nd1\@: - lsr.l #1,d0 - bcc mmmr_nd2\@ - move.\1 (a1)+,d2 -mmmr_nd2\@: - lsr.l #1,d0 - bcc mmmr_nd3\@ - move.\1 (a1)+,d3 -mmmr_nd3\@: - lsr.l #1,d0 - bcc mmmr_nd4\@ - move.\1 (a1)+,d4 -mmmr_nd4\@: - lsr.l #1,d0 - bcc mmmr_nd5\@ - move.\1 (a1)+,d5 -mmmr_nd5\@: - lsr.l #1,d0 - bcc mmmr_nd6\@ - move.\1 (a1)+,d6 -mmmr_nd6\@: - lsr.l #1,d0 - bcc mmmr_nd7\@ - move.\1 (a1)+,d7 -mmmr_nd7\@: - tst.b d0 // addressregister zu verschieben? - beq mmmr_na7\@ // nein-> - lsr.l #1,d0 - bcc mmmr_na0\@ -.ifc 1,l - move.l (a1)+,a0_off(a7) -.else - move.w (a1)+,a0_off+2(a7) -.endif -mmmr_na0\@: - lsr.l #1,d0 - bcc mmmr_na1\@ -.ifc 1,l - move.l (a1)+,a1_off(a7) -.else - move.w (a1)+,a1_off+2(a7) -.endif -mmmr_na1\@: - lsr.l #1,d0 - bcc mmmr_na2\@ - move.\1 (a1)+,a2 -mmmr_na2\@: - lsr.l #1,d0 - bcc mmmr_na3\@ - move.\1 (a1)+,a3 -mmmr_na3\@: - lsr.l #1,d0 - bcc mmmr_na4\@ - move.\1 (a1)+,a4 -mmmr_na4\@: - lsr.l #1,d0 - bcc mmmr_na5\@ - move.\1 (a1)+,a5 -mmmr_na5\@: - lsr.l #1,d0 - bcc mmmr_na6\@ - move.\1 (a1)+,a6 -mmmr_na6\@: - lsr.l #1,d0 - bcc mmmr_na7\@ - move.\1 (a1)+,a1 // nach a0 - move.l a1,usp // war ja usp -mmmr_na7\@: - ii_end - .endm diff --git a/BaS_GNU/sources/ii_movep.h b/BaS_GNU/sources/ii_movep.h deleted file mode 100644 index 830fdf7..0000000 --- a/BaS_GNU/sources/ii_movep.h +++ /dev/null @@ -1,179 +0,0 @@ -//-------------------------------------------------------------------- -// movep -//-------------------------------------------------------------------- -.text -ii_movep_lset:.macro - ii_lset_opeau 01,0 //movep.w d(a0-7),d0 - ii_lset_opeau 03,0 //movep.w d(a0-7),d1 - ii_lset_opeau 05,0 //movep.w d(a0-7),d2 - ii_lset_opeau 07,0 //movep.w d(a0-7),d3 - ii_lset_opeau 09,0 //movep.w d(a0-7),d4 - ii_lset_opeau 0b,0 //movep.w d(a0-7),d5 - ii_lset_opeau 0d,0 //movep.w d(a0-7),d6 - ii_lset_opeau 0f,0 //movep.w d(a0-7),d7 - - ii_lset_opeau 01,4 //movep.w d0,d(a0-7) - ii_lset_opeau 03,4 //movep.w d1,d(a0-7) - ii_lset_opeau 05,4 //movep.w d2,d(a0-7) - ii_lset_opeau 07,4 //movep.w d3,d(a0-7) - ii_lset_opeau 09,4 //movep.w d4,d(a0-7) - ii_lset_opeau 0b,4 //movep.w d5,d(a0-7) - ii_lset_opeau 0d,4 //movep.w d6,d(a0-7) - ii_lset_opeau 0f,4 //movep.w d7,d(a0-7) - - ii_lset_opeau 01,8 //movep.l d(a0-7),d0 - ii_lset_opeau 03,8 //movep.l d(a0-7),d1 - ii_lset_opeau 05,8 //movep.l d(a0-7),d2 - ii_lset_opeau 07,8 //movep.l d(a0-7),d3 - ii_lset_opeau 09,8 //movep.l d(a0-7),d4 - ii_lset_opeau 0b,8 //movep.l d(a0-7),d5 - ii_lset_opeau 0d,8 //movep.l d(a0-7),d6 - ii_lset_opeau 0f,8 //movep.l d(a0-7),d7 - - ii_lset_opeau 01,c //movep.l d0,d(a0-7) - ii_lset_opeau 03,c //movep.l d1,d(a0-7) - ii_lset_opeau 05,c //movep.l d2,d(a0-7) - ii_lset_opeau 07,c //movep.l d3,d(a0-7) - ii_lset_opeau 09,c //movep.l d4,d(a0-7) - ii_lset_opeau 0b,c //movep.l d5,d(a0-7) - ii_lset_opeau 0d,c //movep.l d6,d(a0-7) - ii_lset_opeau 0f,c //movep.l d7,d(a0-7) -.endm -//--------------------------------------------------------------------------------------------- -ii_movep_func:.macro -//movep.w d(a0-7),d0-7 - ii_movep 010,d0_off(a7),wad - ii_movep 030,d1_off(a7),wad - ii_movep 050,d2,wad - ii_movep 070,d3,wad - ii_movep 090,d4,wad - ii_movep 0b0,d5,wad - ii_movep 0d0,d6,wad - ii_movep 0f0,d7,wad -//movep.w d0-7,d(a0-7) - ii_movep 014,d0_off(a7),wda - ii_movep 034,d1_off(a7),wda - ii_movep 054,d2,wda - ii_movep 074,d3,wda - ii_movep 094,d4,wda - ii_movep 0b4,d5,wda - ii_movep 0d4,d6,wda - ii_movep 0f4,d7,wda -//movep.l d(a0-7),d0-7 - ii_movep 018,d0_off(a7),lad - ii_movep 038,d1_off(a7),lad - ii_movep 058,d2,lad - ii_movep 078,d3,lad - ii_movep 098,d4,lad - ii_movep 0b8,d5,lad - ii_movep 0d8,d6,lad - ii_movep 0f8,d7,lad -//movep.l d0-7,d(a0-7) - ii_movep 01c,d0_off(a7),lda - ii_movep 03c,d1_off(a7),lda - ii_movep 05c,d2,lda - ii_movep 07c,d3,lda - ii_movep 09c,d4,lda - ii_movep 0bc,d5,lda - ii_movep 0dc,d6,lda - ii_movep 0fc,d7,lda -.endm -//--------------------------------------------------------------------------------------------- -ii_movep:.macro //1=code ziffer 1-3 2=register 3=art -ii_0x\18: -#ifdef halten_movep - halt -#endif - move.l a0_off(a7),a1 - ii_movep\3_up1 \2 -ii_0x\19: -#ifdef halten_movep - halt -#endif - move.l a1_off(a7),a1 - ii_movep\3_up1 \2 -ii_0x\1a: -#ifdef halten_movep - halt -#endif - move.l a2,a1 - ii_movep\3_up1 \2 -ii_0x\1b: -#ifdef halten_movep - halt -#endif - move.l a3,a1 - ii_movep\3_up1 \2 -ii_0x\1c: -#ifdef halten_movep - halt -#endif - move.l a4,a1 - ii_movep\3_up1 \2 -ii_0x\1d: -#ifdef halten_movep - halt -#endif - move.l a5,a1 - ii_movep\3_up1 \2 -ii_0x\1e: -#ifdef halten_movep - halt -#endif - move.l a6,a1 - ii_movep\3_up1 \2 -ii_0x\1f: -#ifdef halten_movep - halt -#endif - move.l usp,a1 - ii_movep\3_up1 \2 -.endm - -ii_movepwad_up1:.macro - mvs.w (a0)+,d1 - add.l d1,a1 - move.b (a1),d0 - lsl.l #8,d0 - move.b 2(a1,d1.l),d0 - move.w d0,\1 - ii_end -.endm - -ii_movepwda_up1:.macro - mvs.w (a0)+,d1 - add.l d1,a1 - move.w \1,d0 - move.b d0,2(a1) - lsr.l #8,d0 - move.b d0,(a1) - ii_end -.endm - -ii_moveplad_up1:.macro - mvs.w (a0)+,d1 - add.l d1,a1 - move.b (a1),d0 - lsl.l #8,d0 - move.b 2(a1),d0 - lsl.l #8,d0 - move.b 4(a1),d0 - lsl.l #8,d0 - move.b 6(a1),d0 - move.l d0,\1 - ii_end -.endm - -ii_moveplda_up1:.macro - mvs.w (a0)+,d1 - add.l d1,a1 - move.l \1,d0 - move.b d0,6(a1) - lsr.l #8,d0 - move.b d0,4(a1) - lsr.l #8,d0 - move.b d0,2(a1) - lsr.l #8,d0 - move.b d0,(a1) - ii_end -.endm diff --git a/BaS_GNU/sources/ii_op.h b/BaS_GNU/sources/ii_op.h deleted file mode 100644 index a3fc0cf..0000000 --- a/BaS_GNU/sources/ii_op.h +++ /dev/null @@ -1,661 +0,0 @@ -/*****************************************************************************************/ -// opertionen -/*****************************************************************************************/ -ii_lset_op:.macro -//byt - ii_lset_opea \1,0 // dx,ax - ii_lset_opea \1,1 // (ax), (ax)+ - ii_lset_opea \1,2 // -(ax),d16(ax) - ii_lset_opeag \1,3 // d8(ax,dy) - lea table+0x\1\238*4,a0 - move.l #ii_0x\138,(a0)+ // xxx.w - move.l #ii_0x\139,(a0)+ // xxx.l -//word - ii_lset_opea \1,4 // dx,ax - ii_lset_opea \1,5 // (ax), (ax)+ - ii_lset_opea \1,6 // -(ax),d16(ax) - ii_lset_opeag \1,7 // d8(ax,dy) - lea table+0x\178*4,a0 - move.l #ii_0x\178,(a0)+ // xxx.w - move.l #ii_0x\179,(a0)+ // xxx.l -//long - ii_lset_opea \1,8 // dx,ax - ii_lset_opea \1,9 // (ax), (ax)+ - ii_lset_opea \1,a // -(ax),d16(ax) - ii_lset_opeag \1,b // d8(ax,dy) - lea table+0x\1b8*4,a0 - move.l #ii_0x\1b8,(a0)+ // xxx.w - move.l #ii_0x\1b9,(a0)+ // xxx.l - .endm - -ii_lset_opeag:.macro // 0x1120-0x1127 - lea table+0x\1\20*4,a0 - move.l #ii_0x\1\20,(a0)+ - move.l #ii_0x\1\21,(a0)+ - move.l #ii_0x\1\22,(a0)+ - move.l #ii_0x\1\23,(a0)+ - move.l #ii_0x\1\24,(a0)+ - move.l #ii_0x\1\25,(a0)+ - move.l #ii_0x\1\26,(a0)+ - move.l #ii_0x\1\27,(a0)+ - .endm; - -ii_lset_opeau:.macro // 0x1128-0x112f - lea table+0x\1\28*4,a0 - move.l #ii_0x\1\28,(a0)+ - move.l #ii_0x\1\29,(a0)+ - move.l #ii_0x\1\2a,(a0)+ - move.l #ii_0x\1\2b,(a0)+ - move.l #ii_0x\1\2c,(a0)+ - move.l #ii_0x\1\2d,(a0)+ - move.l #ii_0x\1\2e,(a0)+ - move.l #ii_0x\1\2f,(a0)+ - .endm; - -ii_lset_opea:.macro - ii_lset_opeag \1,\2 - ii_lset_opeau \1,\2 - .endm -/******************************************************/ -ii_op:.macro // 1=code 2=operation 3 = normal oder immediat/quick -// byt - opdx \1,\2,b,0,\3 // dx,ax - opia \1,\2,b,1,\3 // (ax),(ax)+ - opdia \1,\2,b,2,\3 // -(ax),d16(ax) - opd8a \1,\2,b,3,\3 // d8(ax),xxx -// word - opdx \1,\2,w,4,\3 // dx,ax - opia \1,\2,w,5,\3 // (ax),(ax)+ - opdia \1,\2,w,6,\3 // -(ax),d16(ax) - opd8a \1,\2,w,7,\3 // d8(ax),xxx -// long - opdx \1,\2,l,8,\3 // dx,ax - opia \1,\2,l,9,\3 // (ax),(ax)+ - opdia \1,\2,l,a,\3 // -(ax),d16(ax) - opd8a \1,\2,l,b,\3 // d8(ax),xxx - .endm -/******************************************************/ -// byt word long -/******************************************************/ -opdx: .macro //register: \1=code \2 = operation \3 = size \4=size and adressierungsart 5 = immediate oder normal -ii_0x\1\40: - .ifc \3,b - op\5smd \2,d0_off+3(a7),d0_off+3(a7),\3 - .else - .ifc \3,w - op\5smd \2,d0_off+2(a7),d0_off+2(a7),\3 - .else - op\5smd \2,d0_off(a7),d0_off(a7),\3 - .endif - .endif -ii_0x\1\41: - .ifc \3,b - op\5smd \2,d1_off+3(a7),d1_off+3(a7),\3 - .else - .ifc \3,w - op\5smd \2,d1_off+2(a7),d1_off+2(a7),\3 - .else - op\5smd \2,d1_off(a7),d1_off(a7),\3 - .endif -.endif -ii_0x\1\42: - op\5smd \2,d2,d2,\3 -ii_0x\1\43: - op\5smd \2,d3,d3,\3 -ii_0x\1\44: - op\5smd \2,d4,d4,\3 -ii_0x\1\45: - op\5smd \2,d5,d5,\3 -ii_0x\1\46: - op\5smd \2,d6,d6,\3 -ii_0x\1\47: - op\5smd \2,d7,d7,\3 -//ax -ii_0x\1\48: - opa\5smd \2,a0_off(a7),a0_off(a7),\3 -ii_0x\1\49: - opa\5smd \2,a1_off(a7),a1_off(a7),\3 -ii_0x\1\4a: - opa\5smd \2,a2,a2,\3 -ii_0x\1\4b: - opa\5smd \2,a3,a3,\3 -ii_0x\1\4c: - opa\5smd \2,a4,a4,\3 -ii_0x\1\4d: - opa\5smd \2,a5,a5,\3 -ii_0x\1\4e: - opa\5smd \2,a6,a6,\3 -ii_0x\1\4f: - opa\5smd \2,usp,usp,\3 -.endm; -//----------------------------------------------- -opia: .macro // (ax) \1=code \2 = operation \3 = size \4=size and adressierungsart 5 = immediate oder normal -//(ax) -ii_0x\1\40: - op\5sia \2,a0_off(a7),(a1),(a1),\3 -ii_0x\1\41: - op\5sia \2,a1_off(a7),(a1),(a1),\3 -ii_0x\1\42: - op\5smd \2,(a2),(a2),\3 -ii_0x\1\43: - op\5smd \2,(a3),(a3),\3 -ii_0x\1\44: - op\5smd \2,(a4),(a4),\3 -ii_0x\1\45: - op\5smd \2,(a5),(a5),\3 -ii_0x\1\46: - op\5smd \2,(a6),(a6),\3 -ii_0x\1\47: - op\5sia \2,usp,(a1),(a1),\3 -//(ax)+ -ii_0x\1\48: - op\5sia \2,a0_off(a7),(a1),(a1)+,\3 -ii_0x\1\49: - op\5sia \2,a1_off(a7),(a1),(a1)+,\3 -ii_0x\1\4a: - op\5smd \2,(a2),(a2)+,\3 -ii_0x\1\4b: - op\5smd \2,(a3),(a3)+,\3 -ii_0x\1\4c: - op\5smd \2,(a4),(a4)+,\3 -ii_0x\1\4d: - op\5smd \2,(a5),(a5)+,\3 -ii_0x\1\4e: - op\5smd \2,(a6),(a6)+,\3 -ii_0x\1\4f: - op\5sia \2,usp,(a1),(a1)+,\3 -.endm; -//----------------------------------------------- -opdia: .macro // -(ax) \1=code \2 = operation \3 = size \4 size and adressierungsart 5 = immediate oder normal -ii_0x\1\40: - op\5sia \2,a0_off(a7),-(a1),(a1),\3 -ii_0x\1\41: - op\5sia \2,a1_off(a7),-(a1),(a1),\3 -ii_0x\1\42: - op\5smd \2,-(a2),(a2),\3 -ii_0x\1\43: - op\5smd \2,-(a3),(a3),\3 -ii_0x\1\44: - op\5smd \2,-(a4),(a4),\3 -ii_0x\1\45: - op\5smd \2,-(a5),(a5),\3 -ii_0x\1\46: - op\5smd \2,-(a6),(a6),\3 -ii_0x\1\47: - op\5sia \2,usp,-(a1),(a1),\3 - -ii_0x\1\48: - op\5sd16a \2,a0_off(a7),\3 -ii_0x\1\49: - op\5sd16a \2,a1_off(a7),\3 -ii_0x\1\4a: - op\5sd16a \2,a2,\3 -ii_0x\1\4b: - op\5sd16a \2,a3,\3 -ii_0x\1\4c: - op\5sd16a \2,a4,\3 -ii_0x\1\4d: - op\5sd16a \2,a5,\3 -ii_0x\1\4e: - op\5sd16a \2,a6,\3 -ii_0x\1\4f: - op\5sd16a \2,usp,\3 -.endm; -//----------------------------------------------- -opd8a: .macro // d8(ax,dy) \1=code \2 = operation \3 = size \4=size and adressierungsart 5 = immediate oder normal -ii_0x\1\40: - op\5sd8a \2,a0_off(a7),\3 -ii_0x\1\41: - op\5sd8a \2,a1_off(a7),\3 -ii_0x\1\42: - op\5sd8a \2,a2,\3 -ii_0x\1\43: - op\5sd8a \2,a3,\3 -ii_0x\1\44: - op\5sd8a \2,a4,\3 -ii_0x\1\45: - op\5sd8a \2,a5,\3 -ii_0x\1\46: - op\5sd8a \2,a6,\3 -ii_0x\1\47: - op\5sd8a \2,usp,\3 - -ii_0x\1\48: - op\5sxx \2,\3,w -ii_0x\1\49: - op\5sxx \2,\3,l -.endm; -//----------------------------------------------- -opnsmd:.macro // direct dx: 1=operation 2=ea src 3=ea dest 4=size -#ifdef halten_op - halt -#endif -.ifc \4,l - move.l \2,d1 -.else - mvs.\4 \2,d1 -.endif - .ifc \1,negx - move.b sr_off+1(a7),d1 //ccr holen - move d1,ccr //setzen - .endif - \1 d1 - set_cc0 - move.\4 d1,\3 - ii_end - .endm; - -opansmd:.macro // direct ax: 1=operation 2=ea src 3=ea dest 4=size -#ifdef halten_op - halt -#endif - -.ifc \2,usp - move.l usp,a1 - move.l a1,d1 -.else - move.l \2,d1 -.endif - \1 d1 -.ifc \3,usp - move.l d1,a1 - move.l a1,usp -.else - move.l d1,\3 -.endif - ii_end -.endm; - -opnsia:.macro // indirect: 1=operation 2=adress register 3= src 4=dest 5=size -#ifdef halten_op - halt -#endif - move.l \2,a1 -.ifc \5,l - move.l \3,d1 -.else - mvs.\5 \3,d1 -.endif - .ifc \1,negx - move.b sr_off+1(a7),d1 //ccr holen - move d1,ccr //setzen - .endif - \1 d1 - set_cc0 - move.\5 d1,\4 - ii_end - .endm; - -opnsd16a:.macro // indirect: 1=operation 2=adress register 3=size -#ifdef halten_op - halt -#endif - move.l \2,a1 - mvs.w (a0)+,d1 - add.l d1,a1 -.ifc \3,l - move.l (a1),d1 -.else - mvs.\3 (a1),d1 -.endif - .ifc \1,negx - move.b sr_off+1(a7),d1 //ccr holen - move d1,ccr //setzen - .endif - \1 d1 - set_cc0 - move.\3 d1,(a1) - ii_end - .endm; - -opnsd8a:.macro // indirect: 1=operation 2=adress register 3=size -#ifdef halten_op - halt -#endif - move.l \2,a1 - jsr ewf -.ifc \3,l - move.l (a1),d1 -.else - mvs.\3 (a1),d1 -.endif - .ifc \1,negx - move.b sr_off+1(a7),d1 //ccr holen - move d1,ccr //setzen - .endif - \1 d1 - set_cc0 - move.\3 d1,(a1) - ii_end - .endm; - -opnsxx:.macro // indirect: 1=operation 2=size 3=size adresse -#ifdef halten_op - halt -#endif - -.ifc \2,l - move.l (a1),d1 -.else - mvs.\2 (a1),d1 -.endif - move.\3 (a0)+,a1 - .ifc \1,negx - move.b sr_off+1(a7),d1 //ccr holen - move d1,ccr //setzen - .endif - \1 d1 - set_cc0 - move.\2 d1,(a1) - ii_end - .endm; -//*******************************************************************************3 -opismd:.macro // immediate dx: 1=opieration 2=ea src 3=ea dest 4=size -#ifdef halten_op - halt -#endif - -.ifc \4,l - move.l (a0)+,d0 -.else - .ifc \4,w - mvs.w (a0)+,d0 - .else - move.w (a0)+,d0 - extb.l d0 - .endif -.endif -.ifc \4,l - move.l \2,d1 -.else - mvs.\4 \2,d1 -.endif - \1 d0,d1 - set_cc0 -.ifnc \1,cmp.l - move.\4 d1,\3 -.endif - ii_end -.endm; - -opaismd:.macro // immediate ax: 1=opieration 2=ea src 3=ea dest 4=size -#ifdef halten_op - halt -#endif - -.ifc \4,l - move.l (a0)+,d0 -.else - .ifc \4,w - mvs.w (a0)+,d0 - .else - move.w (a0)+,d0 - extb.l d0 - .endif -.endif -.ifc \2,usp - move.l usp,a1 - move.l a1,d1 -.else - move.l \2,d1 -.endif - \1 d0,d1 -.ifnc \1,cmp.l -.ifc \3,usp - move.l d1,a1 - move.l a1,usp -.else - move.l d1,\3 -.endif -.endif - ii_end -.endm; - -opisia:.macro // indirect: 1=opieration 2=adress register 3= src 4=dest 5=size -#ifdef halten_op - halt -#endif - -.ifc \5,l - move.l (a0)+,d0 -.else - .ifc \5,w - mvs.w (a0)+,d0 - .else - move.w (a0)+,d0 - extb.l d0 - .endif -.endif - move.l \2,a1 -.ifc \5,l - move.l \3,d1 -.else - mvs.\5 \3,d1 -.endif - \1 d0,d1 - set_cc0 -.ifnc \1,cmp.l - move.\5 d1,\4 -.endif - ii_end -.endm; - -opisd16a:.macro // indirect: 1=opieration 2=adress register 3=size -#ifdef halten_op - halt -#endif - -.ifc \3,l - move.l (a0)+,d0 -.else - .ifc \3,w - mvs.w (a0)+,d0 - .else - move.w (a0)+,d0 - extb.l d0 - .endif -.endif - move.l \2,a1 - mvs.w (a0)+,d1 - add.l d1,a1 -.ifc \3,l - move.l (a1),d1 -.else - mvs.\3 (a1),d1 -.endif - \1 d0,d1 - set_cc0 -.ifnc \1,cmp.l - move.\3 d1,(a1) -.endif - ii_end - .endm; - -opisd8a:.macro // indirect: 1=opieration 2=adress register 3=size -#ifdef halten_op - halt -#endif - -.ifc \3,l - move.l (a0)+,d0 -.else - .ifc \3,w - mvs.w (a0)+,d0 - .else - move.w (a0)+,d0 - extb.l d0 - .endif -.endif - move.l d0,_d0_save - move.l \2,a1 - jsr ewf - move.l _d0_save,d0 -.ifc \3,l - move.l (a1),d1 -.else - mvs.\3 (a1),d1 -.endif - \1 d0,d1 - set_cc0 -.ifnc \1,cmp.l - move.\3 d1,(a1) -.endif - ii_end - .endm; - -opisxx:.macro // immediate: 1=opieration 2=size 3=size adresse -.ifc \2,l - move.l (a0)+,d0 -.else - .ifc \2,w - mvs.w (a0)+,d0 - .else - move.w (a0)+,d0 - extb.l d0 - .endif -.endif - move.\3 (a0)+,a1 -.ifc \2,l - move.l (a1),d1 -.else - mvs.\2 (a1),d1 -.endif - \1 d0,d1 - set_cc0 -.ifnc \1,cmp.l - move.\2 d1,(a1) -.endif - ii_end - .endm; -//*******************************************************************************3 -opqsmd:.macro // quick: 1=opieration 2=ea src 3=ea dest 4=size -.ifc \4,l - move.l \2,d1 -.else - mvs.\4 \2,d1 -.endif -.ifc \1,eor.l d0 - move.l d0_off(a7),d0 -.endif -.ifc \1,eor.l d1 - move.l d1_off(a7),d1 -.endif - \1 ,d1 - set_cc0 - move.\4 d1,\3 - ii_end - .endm; - -opaqsmd:.macro // quick: 1=opieration 2=ea src 3=ea dest 4=size -.ifc \2,usp - move.l usp,a1 - move.l a1,d1 -.else - move.l \2,d1 -.endif - \1 ,d1 -.ifc \3,usp - move.l d1,a1 - move.l a1,usp -.else - move.l d1,\3 -.endif - ii_end - .endm; - -opqsia:.macro // indirect: 1=opieration 2=adress register 3= src 4=dest 5=size -#ifdef halten_op - halt -#endif - - move.l \2,a1 -.ifc \5,l - move.l \3,d1 -.else - mvs.\5 \3,d1 -.endif -.ifc \1,eor.l d0 - move.l d0_off(a7),d0 -.endif -.ifc \1,eor.l d1 - move.l d1_off(a7),d1 -.endif - \1 ,d1 - set_cc0 - move.\5 d1,\4 - ii_end - .endm; - -opqsd16a:.macro // indirect: 1=opieration 2=adress register 3=size -#ifdef halten_op - halt -#endif - - move.l \2,a1 - mvs.w (a0)+,d1 - add.l d1,a1 -.ifc \3,l - move.l (a1),d1 -.else - mvs.\3 (a1),d1 -.endif -.ifc \1,eor.l d0 - move.l d0_off(a7),d0 -.endif -.ifc \1,eor.l d1 - move.l d1_off(a7),d1 -.endif - \1 ,d1 - set_cc0 - move.\3 d1,(a1) - ii_end - .endm; - -opqsd8a:.macro // indirect: 1=opieration 2=adress register 3=size -#ifdef halten_op - halt -#endif - - move.l d0,_d0_save - move.l \2,a1 - jsr ewf - move.l _d0_save,d0 -.ifc \3,l - move.l (a1),d1 -.else - mvs.\3 (a1),d1 -.endif -.ifc \1,eor.l d0 - move.l d0_off(a7),d0 -.endif -.ifc \1,eor.l d1 - move.l d1_off(a7),d1 -.endif - \1 ,d1 - set_cc0 - move.\3 d1,(a1) - ii_end - .endm; - -opqsxx:.macro // quick: 1=opieration 2=size 3=size adresse -#ifdef halten_op - halt -#endif - - move.\3 (a0)+,a1 -.ifc \2,l - move.l (a1),d1 -.else - mvs.\2 (a1),d1 -.endif -.ifc \1,eor.l d0 - move.l d0_off(a7),d0 -.endif -.ifc \1,eor.l d1 - move.l d1_off(a7),d1 -.endif - \1 ,d1 - set_cc0 - move.\2 d1,(a1) - ii_end - .endm; diff --git a/BaS_GNU/sources/ii_opc.h b/BaS_GNU/sources/ii_opc.h deleted file mode 100644 index 8b887ce..0000000 --- a/BaS_GNU/sources/ii_opc.h +++ /dev/null @@ -1,263 +0,0 @@ -/*****************************************************************************************/ -// functionen macros: fehlende adressierungsarte (MCF nur Dx support) ohne ax -// zusammen mit op.h -/*****************************************************************************************/ -ii_lset_opc:.macro - ii_lset_opeag \1,c // dx,ax - ii_lset_opea \1,d // (ax), (ax)+ - ii_lset_opea \1,e // -(ax),d16(ax) - ii_lset_opeag \1,f // d8(ax,dy) - lea table+0x\1b8*4,a0 - move.l #ii_0x\1b8,(a0)+ // xxx.w - move.l #ii_0x\1b9,(a0)+ // xxx.l - .endm - -/******************************************************/ -ii_opc:.macro // 1=code 2=operation 3 = normal oder immediat - opcdx \1,\2,l,c,\3 // dx,ax - opia \1,\2,l,d,\3 // (ax),(ax)+ - opdia \1,\2,l,e,\3 // -(ax),d16(ax) - opd8a \1,\2,l,f,\3 // d8(ax),xxx - .endm -//*******************************************************************************3 -/******************************************************/ -// byt word long -/******************************************************/ -opcdx: .macro //register: \1=code \2 = operation \3 = size \4=size and adressierungsart 5 = immediate oder normal -ii_0x\1\40: -#ifdef halten_opc - halt -#endif - .ifc \3,b - op\5smd \2,d0_off+3(a7),d0_off+3(a7),\3 - .else - .ifc \3,w - op\5smd \2,d0_off+2(a7),d0_off+2(a7),\3 - .else - op\5smd \2,d0_off(a7),d0_off(a7),\3 - .endif - .endif -ii_0x\1\41: - .ifc \3,b - op\5smd \2,d1_off+3(a7),d1_off+3(a7),\3 - .else - .ifc \3,w - op\5smd \2,d1_off+2(a7),d1_off+2(a7),\3 - .else - op\5smd \2,d1_off(a7),d1_off(a7),\3 - .endif -.endif -ii_0x\1\42: - op\5smd \2,d2,d2,\3 -ii_0x\1\43: - op\5smd \2,d3,d3,\3 -ii_0x\1\44: - op\5smd \2,d4,d4,\3 -ii_0x\1\45: - op\5smd \2,d5,d5,\3 -ii_0x\1\46: - op\5smd \2,d6,d6,\3 -ii_0x\1\47: - op\5smd \2,d7,d7,\3 -.endm -//----------------------------------------------------- -opcsmd:.macro // dx: 1=opieration 2=ea src 3=ea dest 4=size -#ifdef halten_opc - halt -#endif - -.ifc \4,l - move.l (a0)+,d0 -.else - .ifc \4,w - mvs.w (a0)+,d0 - .else - move.w (a0)+,d0 - extb.l d0 - .endif -.endif -.ifc \4,l - move.l \2,d1 -.else - mvs.\4 \2,d1 -.endif -.ifc \1,eor.l d0 - move.l d0_off(a7),d1 -.endif -.ifc \1,eor.l d1 - move.l d1_off(a7),d1 -.endif - \1 d1 - set_cc0 - move.\4 d1,\3 - ii_end - .endm; - -opacsmd:.macro // ax: 1=opieration 2=ea src 3=ea dest 4=size -#ifdef halten_opc - halt -#endif - -.ifc \4,l - move.l (a0)+,d0 -.else - .ifc \4,w - mvs.w (a0)+,d0 - .else - move.w (a0)+,d0 - extb.l d0 - .endif -.endif -.ifc \2,usp - move.l usp,a1 - move.l a1,d1 -.else - move.l \2,d1 -.endif - \1 d1 - set_cc0 -.ifc \3,usp - move.l d1,a1 - move.l a1,usp -.else - move.l d1,\3 -.endif - ii_end - .endm; - -opcsia:.macro // (ax) (ax)+ -(ax): 1=opieration 2=adress register 3= src 4=dest 5=size -#ifdef halten_opc - halt -#endif - -.ifc \4,l - move.l (a0)+,d0 -.else - .ifc \4,w - mvs.w (a0)+,d0 - .else - move.w (a0)+,d0 - extb.l d0 - .endif -.endif - move.l \2,a1 -.ifc \5,l - move.l \3,d1 -.else - mvs.\5 \3,d1 -.endif -.ifc \1,eor.l d0 - move.l d0_off(a7),d1 -.endif -.ifc \1,eor.l d1 - move.l d1_off(a7),d1 -.endif - \1 d1 - set_cc0 - move.\5 d1,\4 - ii_end - .endm; - -opcsd16a:.macro // d16(ax): 1=opieration 2=adress register 3=size -#ifdef halten_opc - halt -#endif - -.ifc \4,l - move.l (a0)+,d0 -.else - .ifc \4,w - mvs.w (a0)+,d0 - .else - move.w (a0)+,d0 - extb.l d0 - .endif -.endif - move.l \2,a1 - mvs.w (a0)+,d1 - add.l d1,a1 -.ifc \3,l - move.l (a1),d1 -.else - mvs.\3 (a1),d1 -.endif -.ifc \1,eor.l d0 - move.l d0_off(a7),d1 -.endif -.ifc \1,eor.l d1 - move.l d1_off(a7),d1 -.endif - \1 d1 - set_cc0 - move.\3 d1,(a1) - ii_end - .endm; - -opcsd8a:.macro // indirect: 1=opieration 2=adress register 3=size -#ifdef halten_opc - halt -#endif - -.ifc \4,l - move.l (a0)+,d0 -.else - .ifc \4,w - mvs.w (a0)+,d0 - .else - move.w (a0)+,d0 - extb.l d0 - .endif -.endif - move.l d0,_d0_save - move.l \2,a1 - jsr ewf - move.l _d0_save,d0 -.ifc \3,l - move.l (a1),d1 -.else - mvs.\3 (a1),d1 -.endif -.ifc \1,eor.l d0 - move.l d0_off(a7),d1 -.endif -.ifc \1,eor.l d1 - move.l d1_off(a7),d1 -.endif - \1 d1 - set_cc0 - move.\3 d1,(a1) - ii_end - .endm; - -opcsxx:.macro // indirect: 1=opieration 2=size 3=size adresse -#ifdef halten_opc - halt -#endif - -.ifc \2,l - move.l (a0)+,d0 -.else - .ifc \2,w - mvs.w (a0)+,d0 - .else - move.w (a0)+,d0 - extb.l d0 - .endif -.endif - move.\3 (a0)+,a1 -.ifc \2,l - move.l (a1),d1 -.else - mvs.\2 (a1),d1 -.endif -.ifc \1,eor.l d0 - move.l d0_off(a7),d1 -.endif -.ifc \1,eor.l d1 - move.l d1_off(a7),d1 -.endif - \1 d1 - set_cc0 - move.\2 d1,(a1) - ii_end - .endm; diff --git a/BaS_GNU/sources/ii_or.h b/BaS_GNU/sources/ii_or.h deleted file mode 100644 index dfe4450..0000000 --- a/BaS_GNU/sources/ii_or.h +++ /dev/null @@ -1,442 +0,0 @@ -//-------------------------------------------------------------------- -// or -//-------------------------------------------------------------------- -/*****************************************************************************************/ -//-------------------------------------------------------------------- -// byt -//-------------------------------------------------------------------- -//-------------------------------------------------------------------- -// or.b #im,dx -//-------------------------------------------------------------------- -orbir_macro:.macro -#ifdef halten_or - halt -#endif - move.w (a0)+,d0 - extb.l d0 - mvs.b \2,d1 - or.l d0,d1 - set_cc0 - move.b d1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // or ea,dx -//-------------------------------------------------------------------- -ordd:.macro -#ifdef halten_or - halt -#endif - mvs.\3 \1,d0 - mvs.\3 \2,d1 - or.l d0,d1 - set_cc0 - move.\3 d1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // or ea(l)->dy(w),dx z.B. für USP -//-------------------------------------------------------------------- -orddd:.macro -#ifdef halten_or - halt -#endif - move.l \1,a1 - mvs.\3 a1,d0 - mvs.\3 \2,d1 - or.l d0,d1 - set_cc0 - move.\3 d1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // or (ea)->dy,dx -//-------------------------------------------------------------------- -ordda:.macro -#ifdef halten_or - halt -#endif - move.l \1,a1 - mvs.\3 (a1),d0 - mvs.\3 \2,d1 - or.l d0,d1 - set_cc0 - move.\3 d1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // or ea->ay,(ay)+,dx -//-------------------------------------------------------------------- -orddai:.macro -#ifdef halten_or - halt -#endif - move.l \1,a1 - mvs.\3 (a1)+,d0 - move.l a1,\1 - mvs.\3 \2,d1 - or.l d0,d1 - set_cc0 - move.\3 d1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // or ea->ay,-(ay),dx -//-------------------------------------------------------------------- -orddad:.macro -#ifdef halten_or - halt -#endif - move.l \1,a1 - mvs.\3 -(a1),d0 - move.l a1,\1 - mvs.\3 \2,d1 - or.l d0,d1 - set_cc0 - move.\3 d1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // or d16(ay),dx -//-------------------------------------------------------------------- -ord16ad:.macro -#ifdef halten_or - halt -#endif - move.l \1,a1 - mvs.w (a0)+,d0 - add.l d0,a1 - mvs.\3 (a1),d0 - mvs.\3 \2,d1 - or.l d0,d1 - set_cc0 - move.\3 d1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // or d8(ay,dy),dx -//-------------------------------------------------------------------- -ord8ad:.macro -#ifdef halten_or - halt -#endif - move.l \1,a1 - jsr ewf -.ifc \3,l - move.l (a1),d0 - move.l \2,d1 -.else - mvs.\3 (a1),d0 - mvs.\3 \2,d1 -.endif - or.l d0,d1 - set_cc0 - move.\3 d1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // or xxx.w,dx -//-------------------------------------------------------------------- -orxwd:.macro -#ifdef halten_or - halt -#endif - move.w (a0)+,a1 - mvs.\3 (a1),d0 - mvs.\3 \2,d1 - or.l d0,d1 - set_cc0 - move.\3 d1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // or xxx.l,dx -//-------------------------------------------------------------------- -orxld:.macro -#ifdef halten_or - halt -#endif - move.l (a0)+,a1 - mvs.\3 (a1),d0 - mvs.\3 \2,d1 - or.l d0,d1 - set_cc0 - move.\3 d1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // or d16(pc),dx -//-------------------------------------------------------------------- -ord16pcd:.macro - halt - move.l a0,a1 - mvs.w (a0)+,d0 - add.l d0,a1 - mvs.\3 (a1),d0 - mvs.\3 \2,d1 - or.l d0,d1 - set_cc0 - move.\3 d1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // or d8(pc,dy),dx -//-------------------------------------------------------------------- -ord8pcd:.macro -#ifdef halten_or - halt -#endif - move.l a0,a1 - jsr ewf -.ifc \3,l - move.l (a1),d0 - move.l \2,d1 -.else - mvs.\3 (a1),d0 - mvs.\3 \2,d1 -.endif - or.l d0,d1 - set_cc0 - move.\3 d1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// or dy,ea -//-------------------------------------------------------------------- -//-------------------------------------------------------------------- -// // or (ea)->dy,dx -//-------------------------------------------------------------------- -oreda:.macro -#ifdef halten_or - halt -#endif - mvs.\3 \1,d0 - move.l \2,a1 - mvs.\3 (a1),d1 - or.l d0,d1 - set_cc0 - move.\3 d1,(a1) - ii_end - .endm; -//-------------------------------------------------------------------- -// // or dx,ea->ay,(ay)+ -//-------------------------------------------------------------------- -oredai:.macro -#ifdef halten_or - halt -#endif - mvs.\3 \1,d0 - move.l \2,a1 - mvs.\3 (a1),d1 - or.l d0,d1 - set_cc0 - move.\3 d1,(a1)+ - move.l a1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // or dx,ea->ay,(ay)+ -//-------------------------------------------------------------------- -oredaid:.macro -#ifdef halten_or - halt -#endif - mvs.\3 \1,d0 - mvs.\3 \2,d1 - or.l d0,d1 - set_cc0 - move.\3 d1,\2+ - ii_end - .endm; -//-------------------------------------------------------------------- -// // or dx,ea->ay,-(ay) -//-------------------------------------------------------------------- -oredad:.macro -#ifdef halten_or - halt -#endif - mvs.\3 \1,d0 - move.l \2,a1 - mvs.\3 -(a1),d1 - move.l a1,\2 - or.l d0,d1 - set_cc0 - move.\3 d1,(a1) - ii_end - .endm; -//-------------------------------------------------------------------- -// // or dx,ea->ay,-(ay) -//-------------------------------------------------------------------- -oredadd:.macro -#ifdef halten_or - halt -#endif - mvs.\3 \1,d0 - mvs.\3 -\2,d1 - or.l d0,d1 - set_cc0 - move.\3 d1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // or dx,d16(ay) -//-------------------------------------------------------------------- -ore16ad:.macro -#ifdef halten_or - halt -#endif - mvs.\3 \1,d0 - move.l \2,a1 - mvs.w (a0)+,d1 - add.l d1,a1 - mvs.\3 (a1),d1 - or.l d0,d1 - set_cc0 - move.\3 d1,(a1) - ii_end - .endm; -//-------------------------------------------------------------------- -// // or.w dx,d8(ay,dy) -//-------------------------------------------------------------------- -ore8ad:.macro -#ifdef halten_or - halt -#endif - move.l \2,a1 - jsr ewf -.ifc \3,l - move.l (a1),d1 - move.l \1,d0 -.else - mvs.\3 (a1),d1 - mvs.\3 \1,d0 -.endif - or.l d0,d1 - set_cc0 - move.\3 d1,(a1) - ii_end - .endm; -//-------------------------------------------------------------------- -// // or dx,xxx.w -//-------------------------------------------------------------------- -orxwe:.macro -#ifdef halten_or - halt -#endif - mvs.\3 \1,d0 - move.w (a0)+,a1 - mvs.\3 (a1),d1 - or.l d0,d1 - set_cc0 - move.\3 d1,(a1) - ii_end - .endm; -//-------------------------------------------------------------------- -// // or dx,xxx.l -//-------------------------------------------------------------------- -orxle:.macro -#ifdef halten_or - halt -#endif - mvs.\3 \1,d0 - move.l (a0)+,a1 - mvs.\3 (a1),d1 - or.l d0,d1 - set_cc0 - move.\3 d1,(a1) - ii_end - .endm; -//-------------------------------------------------------------------- -// // ora.w ea,ax -//-------------------------------------------------------------------- -oraw:.macro - jmp ii_error - .endm; -//-------------------------------------------------------------------- -// or.w ea,usp -//-------------------------------------------------------------------- -orawa7:.macro - jmp ii_error - .endm; -//-------------------------------------------------------------------- -// // ora.w usp?,ax -//-------------------------------------------------------------------- -orawu:.macro - jmp ii_error - .endm; -//-------------------------------------------------------------------- -// // ora.w usp?,usp -//-------------------------------------------------------------------- -orawua7:.macro - orawu \1,\2 - .endm; -//-------------------------------------------------------------------- -// // ora.w d16(ay),ax -//-------------------------------------------------------------------- -orawd16a:.macro - jmp ii_error - .endm; -//-------------------------------------------------------------------- -// // ora.w d8(ay,dy),ax -//-------------------------------------------------------------------- -orawd8a:.macro - jmp ii_error - .endm; -//-------------------------------------------------------------------- -// // ora.w xxx.w,ax -//-------------------------------------------------------------------- -orawxwax:.macro - jmp ii_error - .endm; -//-------------------------------------------------------------------- -// // ora.w xxx.l,ax -//-------------------------------------------------------------------- -orawxlax:.macro - jmp ii_error - .endm; -//-------------------------------------------------------------------- -// // ora.w d16(pc),ax -//-------------------------------------------------------------------- -orawd16pcax:.macro - jmp ii_error - .endm; -//-------------------------------------------------------------------- -// // ora.w d8(pc,dy),ax -//-------------------------------------------------------------------- -orawd8pcax:.macro - jmp ii_error - .endm; -//-------------------------------------------------------------------- -// // ora.w #im,ax -//-------------------------------------------------------------------- -orawim:.macro - jmp ii_error - .endm; -//-------------------------------------------------------------------- -// // ora.l d8(ay,dy),ax -//-------------------------------------------------------------------- -orald8a:.macro - jmp ii_error - .endm; -//-------------------------------------------------------------------- -// // ora.l d8(pc,dy),ax -//-------------------------------------------------------------------- -orald8pcax:.macro - jmp ii_error - .endm; -//***************************************************************************************** -// spezial addx subx etc. -//-------------------------------------------------------------------- -//-------------------------------------------------------------------- -// // addx dy,dx -//-------------------------------------------------------------------- -ordx:.macro - jmp ii_error - .endm; -//-------------------------------------------------------------------- -// // addx -(ay),-(ax) -//-------------------------------------------------------------------- -ordax:.macro - jmp ii_error - .endm; -//-------------------------------------------------------------------- diff --git a/BaS_GNU/sources/ii_pea.h b/BaS_GNU/sources/ii_pea.h deleted file mode 100644 index 69f69d0..0000000 --- a/BaS_GNU/sources/ii_pea.h +++ /dev/null @@ -1,74 +0,0 @@ -//-------------------------------------------------------------------- -// pea -//-------------------------------------------------------------------- -.text -ii_pea_lset:.macro - ii_lset_opeag 48,7 - ii_lset 0x487b -.endm -//--------------------------------------------------------------------------------------------- -ii_pea_func:.macro -ii_0x4870: -#ifdef halten_pea - halt -#endif - move.l a0_off(a7),a1 - pea_macro -ii_0x4871: -#ifdef halten_pea - halt -#endif - move.l a1_off(a7),a1 - pea_macro -ii_0x4872: -#ifdef halten_pea - halt -#endif - move.l a2,a1 - pea_macro -ii_0x4873: -#ifdef halten_pea - halt -#endif - move.l a3,a1 - pea_macro -ii_0x4874: -#ifdef halten_pea - halt -#endif - move.l a4,a1 - pea_macro -ii_0x4875: -#ifdef halten_pea - halt -#endif - move.l a5,a1 - pea_macro -ii_0x4876: -#ifdef halten_pea - halt -#endif - move.l a6,a1 - pea_macro -ii_0x4877: -#ifdef halten_pea - halt -#endif - move.l usp,a1 - pea_macro -ii_0x487b: -#ifdef halten_pea - halt -#endif - move.l a0,a1 - pea_macro -.endm -//--------------------------------------------------------------------------------------------- -pea_macro:.macro - jsr ewf - move.l (a1),d0 - move.l usp,a1 - move.l d0,-(a1) - move.l a1,usp - ii_end -.endm \ No newline at end of file diff --git a/BaS_GNU/sources/ii_shd.h b/BaS_GNU/sources/ii_shd.h deleted file mode 100644 index ecace29..0000000 --- a/BaS_GNU/sources/ii_shd.h +++ /dev/null @@ -1,247 +0,0 @@ -/*****************************************************************************************/ -// opertionen -/*****************************************************************************************/ -ii_lset_shd:.macro - ii_lset_shdx e0 //r d0 - ii_lset_shdx e2 //r d1 - ii_lset_shdx e4 //r d2 - ii_lset_shdx e6 //r d3 - ii_lset_shdx e8 //r d4 - ii_lset_shdx ea //r d5 - ii_lset_shdx ec //r d6 - ii_lset_shdx ee //r d7 - - ii_lset_shdx e1 //l d0 - ii_lset_shdx e3 //l d1 - ii_lset_shdx e4 //l d2 - ii_lset_shdx e5 //l d3 - ii_lset_shdx e9 //l d4 - ii_lset_shdx eb //l d5 - ii_lset_shdx ed //l d6 - ii_lset_shdx ef //l d7 - .endm - -ii_lset_shdx:.macro -//byt - ii_lset_opea \1,0 // as,ls #im,dx - ii_lset_opea \1,1 // rox,ro #im,dx - ii_lset_opea \1,2 // as,ls dy,dx - ii_lset_opea \1,3 // rox,ro dy,dx -//word - ii_lset_opea \1,4 // as,ls #im,dx - ii_lset_opea \1,5 // rox,ro #im,dx - ii_lset_opea \1,6 // as,ls dy,dx - ii_lset_opea \1,7 // rox,ro dy,dx -//long -// ii_lset_opea \1,8 // as,ls #im,dx -> vorhanden - ii_lset_opea \1,9 // rox,ro #im,dx -// ii_lset_opea \1,a // as,ls dy,dx -> vorhanden - ii_lset_opea \1,b // rox,ro dy,dx - .endm -/******************************************************/ -ii_shd:.macro // 1=code 2=operation 3 = normal, direct oder immediat -// byt - opdx \1,\2,b,0,\3 // dx -// word - opdx \1,\2,w,4,\3 // dx -// long - opdx \1,\2,l,8,\3 // dx - .endm -/******************************************************/ -// byt word long routinen -/******************************************************/ -sh_asr: .macro // asr -> 1=operation 2 = dx 3 = dy/im 4 = size b/w - mvs.\4 \2,d1 - sh_shal \1,\2,\3,\4 - .endm - -sh_lsr: .macro // asl -> 1=operation 2 = dx 3 = dy/im 4 = size b/w - mvz.\4 \2,d1 - sh_shal \1,\2,\3,\4 - .endm - -sh_shal:.macro - move.w \3,d0 - \1.l d0,d1 - set_cc0 - move.\4 d1,\2 - .endm - -sh_all: .macro // asl/lsl -> 1=operation 2 = dx 3 = dy/im 4 = size b/w - mvz.\4 \2,d1 -.ifc \4,b - byterev.l d1 -.else - swap.w d1 -.endif - sh_asr \1,\2,\3,\4 - .endm - -sh_ror: .macro // ror -> 1=operation 2 = dx 3 = dy/im 4 = size b/w/l - move.\4 \2,d1 / - move.w \3,d0 -.ifc \4,b - lsl.l #8,d1 - move.b \2,d1 - and.l #0x7,d0 - lsr.l d0,d1 -.else - .ifc \4,w - swap.w d1 - move.w \2,d1 - and.l #0xf,d0 - lsr.l d0,d1 - .else - and.l #0x1f,d0 - lsr.l d0,d1 - move.l d1,a1 - move.l \2,d1 - sub.l #32,d0 - neg.l d0 - lsl.l d0,d1 - add.l a1,d1 - .endif -.endif - move.\4 d1,\2 - move.w ccr,d0 - and.l #1,d1 // ist auch carry bit - or.l d1,d0 - move.b d0,ccr_off(a7) - .endm - -sh_rol: .macro // rol -> 1=operation 2 = dx 3 = dy/im 4 = size b/w/l - move.\4 \2,d1 - move.w \3,d0 -.ifc \4,b - lsl.l #8,d1 - move.b \2,d1 - and.l #0x7,d0 - lsl.l d0,d1 - lsr.l #8,d1 - moveq #7,d0 -.else - .ifc \4,w - swap.w d1 - move.w \2,d1 - and.l #0xf,d0 - lsr.l d0,d1 - swap.w d1 - moveq #15,d0 - .else - and.l #0x1f,d0 - lsl.l d0,d1 - move.l d1,a1 - move.l \2,d1 - sub.l #32,d0 - neg.l d0 - lsr.l d0,d1 - add.l a1,d1 - moveq #31,d0 - .endif -.endif - move.\4 d1,\2 - lsr.l d0,d1 // carry bit schieben - move.w ccr,d0 - and.l #1,d1 - or.l d1,d0 - move.b d0,ccr_off(a7) - .endm - -sh_roxr: .macro // roxr -> 1=operation 2 = dx 3 = dy/im 4 = size b/w/l - clr.l d0 - addx.l d0,d0 -ifc \4,b - mvz.b \2,d1 - lsl.l #1,d1 - add.l d0,d1 - lsl.l #8,d1 - move.b \2,d1 - move.w \3,d0 - and.l #0x7,d0 - lsr.l d0,d1 - set_cc0 -else - .ifc \4,w - mvz.b \2,d1 - lsl.l #1,d1 - add.l d0,d1 - lsl.l #8,d1 - lsl.l #8,d1 - move.w \2,d1 - move.w \3,d0 - and.l #0xf,d0 - lsr.l d0,d1 - set_cc0 - .else - bitrev.l d0 - move.l \2,d1 - lsr.l #1,d1 - add.l d0,d1 - move.w \3,d0 - subq.l #1,d0 - and.l #0x1f,d0 - lsr.l d0,d1 - move.l d1,a1 - set_cc1 - move.l \2,d1 - sub.l #32,d0 - neg.l d0 - lsl.l d0,d1 - add.l a1,d1 - .endif -.endif - move.\4 d1,\2 - .endm - -sh_roxl: .macro // roxl -> 1=operation 2 = dx 3 = dy/im 4 = size b/w/l - clr.l d0 - addx.l d0,d0 -ifc \4,b - mvz.b \2,d1 - lsl.l #1,d1 - add.l d0,d1 - lsl.l #8,d1 - move.b \2,d1 - lsl.l #8,d1 - lsl.l #7,d1 - move.w \3,d0 - and.l #0x7,d0 - lsl.l d0,d1 - set_cc0 - byterev.l d1 -else - .ifc \4,w - mvz.b \2,d1 - lsl.l #1,d1 - add.l d0,d1 - lsl.l #8,d1 - lsl.l #7,d1 - mvz.w \2,d0 - lsr.l #1,d0 - add.l d0,d1 - move.w \3,d0 - and.l #0xf,d0 - lsl.l d0,d1 - set_cc0 - swap.w d1 - .else - move.l \2,d1 - lsl.l #1,d1 - add.l d0,d1 - move.w \3,d0 - subq.l #1,d0 - and.l #0x1f,d0 - lsl.l d0,d1 - move.l d1,a1 - set_cc1 - move.l \2,d1 - sub.l #32,d0 - neg.l d0 - lsr.l d0,d1 - add.l a1,d1 - .endif -.endif - move.\4 d1,\2 - .endm - - \ No newline at end of file diff --git a/BaS_GNU/sources/ii_shift.h b/BaS_GNU/sources/ii_shift.h deleted file mode 100644 index f83bfcb..0000000 --- a/BaS_GNU/sources/ii_shift.h +++ /dev/null @@ -1,687 +0,0 @@ -/*****************************************************************************************/ -// opertionen -/*****************************************************************************************/ -ii_shift_lset:.macro -/******************************************************/ -// byt -/******************************************************/ -// asx.b #,dx - ii_lset_dx \1,00 // 0x1.22 -> z.B. 1=d2=4 ->0xd07c -> 0xde7c - ii_lset_dx \1,01 - ii_lset_dx \1,02 - ii_lset_dx \1,03 - ii_lset_dx \1,04 - ii_lset_dx \1,05 - ii_lset_dx \1,06 - ii_lset_dx \1,07 -// lsx.b #,dx - ii_lset_dxu \1,08 - ii_lset_dxu \1,09 - ii_lset_dxu \1,0a - ii_lset_dxu \1,0b - ii_lset_dxu \1,0c - ii_lset_dxu \1,0d - ii_lset_dxu \1,0e - ii_lset_dxu \1,0f -// roxx.b #,dx - ii_lset_dx \1,10 - ii_lset_dx \1,11 - ii_lset_dx \1,12 - ii_lset_dx \1,13 - ii_lset_dx \1,14 - ii_lset_dx \1,15 - ii_lset_dx \1,16 - ii_lset_dx \1,17 -// rox.b #,dx - ii_lset_dx \1,18 - ii_lset_dx \1,19 - ii_lset_dx \1,1a - ii_lset_dx \1,1b - ii_lset_dx \1,1c - ii_lset_dx \1,1d - ii_lset_dx \1,1e - ii_lset_dx \1,1f -// asx.b dy,dx - ii_lset_dx \1,20 - ii_lset_dx \1,21 - ii_lset_dx \1,22 - ii_lset_dx \1,23 - ii_lset_dx \1,24 - ii_lset_dx \1,25 - ii_lset_dx \1,26 - ii_lset_dx \1,27 -// lsx.b dy,dx - ii_lset_dx \1,28 - ii_lset_dx \1,29 - ii_lset_dx \1,2a - ii_lset_dx \1,2b - ii_lset_dx \1,2c - ii_lset_dx \1,2d - ii_lset_dx \1,2e - ii_lset_dx \1,2f -// roxx.dy,dx - ii_lset_dx \1,30 - ii_lset_dx \1,31 - ii_lset_dx \1,32 - ii_lset_dx \1,33 - ii_lset_dx \1,34 - ii_lset_dx \1,35 - ii_lset_dx \1,36 - ii_lset_dx \1,37 -// rox.b dy,dx - ii_lset_dx \1,38 - ii_lset_dx \1,39 - ii_lset_dx \1,3a - ii_lset_dx \1,3b - ii_lset_dx \1,3c - ii_lset_dx \1,3d - ii_lset_dx \1,3e - ii_lset_dx \1,3f -/******************************************************/ -// word -/******************************************************/ -// asx.w #x,dx - ii_lset_dx \1,40 // 0x1.22 -> z.B. 1=d2=4 ->0xd07c -> 0xde7c - ii_lset_dx \1,41 - ii_lset_dx \1,42 - ii_lset_dx \1,43 - ii_lset_dx \1,44 - ii_lset_dx \1,45 - ii_lset_dx \1,46 - ii_lset_dx \1,47 -// lsx.w #,dx - ii_lset_dx \1,48 - ii_lset_dx \1,49 - ii_lset_dx \1,4a - ii_lset_dx \1,4b - ii_lset_dx \1,4c - ii_lset_dx \1,4d - ii_lset_dx \1,4e - ii_lset_dx \1,4f -// roxx.w #,dx - ii_lset_dx \1,50 - ii_lset_dx \1,51 - ii_lset_dx \1,52 - ii_lset_dx \1,53 - ii_lset_dx \1,54 - ii_lset_dx \1,55 - ii_lset_dx \1,56 - ii_lset_dx \1,57 -// rox.w #xdx - ii_lset_dx \1,58 - ii_lset_dx \1,59 - ii_lset_dx \1,5a - ii_lset_dx \1,5b - ii_lset_dx \1,5c - ii_lset_dx \1,5d - ii_lset_dx \1,5e - ii_lset_dx \1,5f -// asx.w dy,dx - ii_lset_dx \1,60 - ii_lset_dx \1,61 - ii_lset_dx \1,62 - ii_lset_dx \1,63 - ii_lset_dx \1,64 - ii_lset_dx \1,65 - ii_lset_dx \1,66 - ii_lset_dx \1,67 -// lsx.w dy,dx - ii_lset_dx \1,68 - ii_lset_dx \1,69 - ii_lset_dx \1,6a - ii_lset_dx \1,6b - ii_lset_dx \1,6c - ii_lset_dx \1,6d - ii_lset_dx \1,6e - ii_lset_dx \1,6f -// roxx.w dy,dx - ii_lset_dx \1,70 - ii_lset_dx \1,71 - ii_lset_dx \1,72 - ii_lset_dx \1,73 - ii_lset_dx \1,74 - ii_lset_dx \1,75 - ii_lset_dx \1,76 - ii_lset_dx \1,77 -// rox.w dy,dx - ii_lset_dx \1,78 - ii_lset_dx \1,79 - ii_lset_dx \1,7a - ii_lset_dx \1,7b - ii_lset_dx \1,7c - ii_lset_dx \1,7d - ii_lset_dx \1,7e - ii_lset_dx \1,7f -/******************************************************/ -// long -/******************************************************/ -// roxx.l #,dx - ii_lset_dx \1,90 - ii_lset_dx \1,91 - ii_lset_dx \1,92 - ii_lset_dx \1,93 - ii_lset_dx \1,94 - ii_lset_dx \1,95 - ii_lset_dx \1,96 - ii_lset_dx \1,97 -// rox.l #xdx - ii_lset_dx \1,98 - ii_lset_dx \1,99 - ii_lset_dx \1,9a - ii_lset_dx \1,9b - ii_lset_dx \1,9c - ii_lset_dx \1,9d - ii_lset_dx \1,9e - ii_lset_dx \1,9f -// roxx.l dy,dx - ii_lset_dx \1,b0 - ii_lset_dx \1,b1 - ii_lset_dx \1,b2 - ii_lset_dx \1,b3 - ii_lset_dx \1,b4 - ii_lset_dx \1,b5 - ii_lset_dx \1,b6 - ii_lset_dx \1,b7 -// rox.l dy,dx - ii_lset_dx \1,b8 - ii_lset_dx \1,b9 - ii_lset_dx \1,ba - ii_lset_dx \1,bb - ii_lset_dx \1,bc - ii_lset_dx \1,bd - ii_lset_dx \1,be - ii_lset_dx \1,bf -//-------------------------------------------------------------------- -// asr.w ea - ii_lset_opea \10,d // (ax), (ax)+ - ii_lset_opea \10,e // -(ax),d16(ax) - ii_lset_opeag \10,f // d8(ax,dy) - lea table+0x\10\2f8*4,a0 - move.l #ii_0x\10f8,(a0)+ // xxx.w - move.l #ii_0x\10f9,(a0)+ // xxx.l -// asl.w ea - ii_lset_opea \11,d // (ax), (ax)+ - ii_lset_opea \11,e // -(ax),d16(ax) - ii_lset_opeag \11,f // d8(ax,dy) - lea table+0x\11\2f8*4,a0 - move.l #ii_0x\11f8,(a0)+ // xxx.w - move.l #ii_0x\11f9,(a0)+ // xxx.l -// lsr.w ea - ii_lset_opea \12,d // (ax), (ax)+ - ii_lset_opea \12,e // -(ax),d16(ax) - ii_lset_opeag \12,f // d8(ax,dy) - lea table+0x\12\2f8*4,a0 - move.l #ii_0x\12f8,(a0)+ // xxx.w - move.l #ii_0x\12f9,(a0)+ // xxx.l -// lsr.w ea - ii_lset_opea \13,d // (ax), (ax)+ - ii_lset_opea \13,e // -(ax),d16(ax) - ii_lset_opeag \13,f // d8(ax,dy) - lea table+0x\13\2f8*4,a0 - move.l #ii_0x\13f8,(a0)+ // xxx.w - move.l #ii_0x\13f9,(a0)+ // xxx.l -// roxr.w ea - ii_lset_opea \14,d // (ax), (ax)+ - ii_lset_opea \14,e // -(ax),d16(ax) - ii_lset_opeag \14,f // d8(ax,dy) - lea table+0x\14\2f8*4,a0 - move.l #ii_0x\14f8,(a0)+ // xxx.w - move.l #ii_0x\14f9,(a0)+ // xxx.l -// roxl.w ea - ii_lset_opea \15,e // (ax), (ax)+ - ii_lset_opea \15,e // -(ax),d16(ax) - ii_lset_opeag \15,f // d8(ax,dy) - lea table+0x\15\2f8*4,a0 - move.l #ii_0x\15f8,(a0)+ // xxx.w - move.l #ii_0x\15f9,(a0)+ // xxx.l -// ror.w ea - ii_lset_opea \16,d // (ax), (ax)+ - ii_lset_opea \16,e // -(ax),d16(ax) - ii_lset_opeag \16,f // d8(ax,dy) - lea table+0x\16\2f8*4,a0 - move.l #ii_0x\16f8,(a0)+ // xxx.w - move.l #ii_0x\16f9,(a0)+ // xxx.l -// rol.w ea - ii_lset_opea \17,d // (ax), (ax)+ - ii_lset_opea \17,e // -(ax),d16(ax) - ii_lset_opeag \17,f // d8(ax,dy) - lea table+0x\17\2f8*4,a0 - move.l #ii_0x\17f8,(a0)+ // xxx.w - move.l #ii_0x\17f9,(a0)+ // xxx.l -// ende -.endm; -/******************************************************/ -ii_shift_op:.macro // 1=code -//byt------------------------------- -//asx.b #x,dx - ii_shift_op2agb 0,as,a -//lsx.b #x,dx - ii_shift_op2aub 0,ls,a -//roxx.b #x,dx - ii_shift_op2agb 1,rox,a -//rox.b #x,dx - ii_shift_op2aub 1,ro,a -//asx.b dy,dx - ii_shift_op2agb 2,as,b -//lsx.b dy,dx - ii_shift_op2aub 2,ls,b -//roxx.b dy,dx - ii_shift_op2agb 3,rox,b -//rox.b dy,dx - ii_shift_op2aub 3,ro,b -// word --------------------------------------- -//asx.w #x,dx - ii_shift_op2agw 4,as,a -//lsx.w #x,dx - ii_shift_op2auw 4,ls,a -//roxx.w #x,dx - ii_shift_op2agw 5,rox,a -//rox.w #x,dx - ii_shift_op2auw 5,ro,a -//asx.w dy,dx - ii_shift_op2agw 6,as,b -//lsx.w dy,dx - ii_shift_op2auw 6,ls,b -//roxx.w dy,dx - ii_shift_op2agw 7,rox,b -//rox.w dy,dx - ii_shift_op2auw 7,ro,b -// long --------------------------------------- -//roxx.l #x,dx - ii_shift_op2agw 9,rox,a -//rox.l #x,dx - ii_shift_op2auw 9,ro,a -//roxx.l dy,dx - ii_shift_op2agw b,rox,b -//rox.l dy,dx - ii_shift_op2auw b,ro,b -// ea --------------------------------------- -//asr.w #1,ea - ii_shift_op2ea 0,asr -//asl.w #1,ea - ii_shift_op2ea 1,asl -//lsr.w #1,ea - ii_shift_op2ea 2,lsr, -//lsl.w #1,ea - ii_shift_op2ea 3,lsl -//roxr.w #1,ea - ii_shift_op2ea 4,roxr -//roxl.w #1,ea - ii_shift_op2ea 5,roxl -//ror.w #1,ea - ii_shift_op2ea 6,ror -//rol.w #1,ea - ii_shift_op2ea 7,rol -.endm -//byt ============================================ -ii_shift_op2agb:.macro //byt: 1=code 2=operation 3=quick(a) oder register(b) - ii_shift_op1\3b \1,0,\2,d0_off+3(a7) - ii_shift_op1\3b \1,1,\2,d1_off+3(a7) - ii_shift_op1\3b \1,2,\2,d2 - ii_shift_op1\3b \1,3,\2,d3 - ii_shift_op1\3b \1,4,\2,d4 - ii_shift_op1\3b \1,5,\2,d5 - ii_shift_op1\3b \1,6,\2,d6 - ii_shift_op1\3b \1,7,\2,d7 -.endm - -ii_shift_op2aub:.macro //byt: 1=code 2=operation - ii_shift_op1\3b \1,8,\2,d0_off+3(a7) - ii_shift_op1\3b \1,9,\2,d1_off+3(a7) - ii_shift_op1\3b \1,a,\2,d2 - ii_shift_op1\3b \1,b,\2,d3 - ii_shift_op1\3b \1,c,\2,d4 - ii_shift_op1\3b \1,d,\2,d5 - ii_shift_op1\3b \1,e,\2,d6 - ii_shift_op1\3b \1,f,\2,d7 -.endm - -ii_shift_op1ab:.macro // z.B. asr.w. #x,dx 1=code 3.ziffer 2=code 4.ziffer 3=shift art 4=dx - ii_shift_op0 0\1\2,b,\3r,#8,\4 - ii_shift_op0 2\1\2,b,\3r,#1,\4 - ii_shift_op0 4\1\2,b,\3r,#2,\4 - ii_shift_op0 6\1\2,b,\3r,#3,\4 - ii_shift_op0 8\1\2,b,\3r,#4,\4 - ii_shift_op0 a\1\2,b,\3r,#5,\4 - ii_shift_op0 c\1\2,b,\3r,#6,\4 - ii_shift_op0 e\1\2,b,\3r,#7,\4 - ii_shift_op0 1\1\2,b,\3l,#8,\4 - ii_shift_op0 3\1\2,b,\3l,#1,\4 - ii_shift_op0 5\1\2,b,\3l,#2,\4 - ii_shift_op0 7\1\2,b,\3l,#3,\4 - ii_shift_op0 9\1\2,b,\3l,#4,\4 - ii_shift_op0 b\1\2,b,\3l,#5,\4 - ii_shift_op0 d\1\2,b,\3l,#6,\4 - ii_shift_op0 f\1\2,b,\3l,#7,\4 -.endm - -ii_shift_op1bb:.macro // z.B. asr.w. #x,dx 1=code 3.ziffer 2=code 4.ziffer 3=shift art 4=dx - ii_shift_op0b 0\1\2,b,\3r,d0_off(a7),\4 - ii_shift_op0b 2\1\2,b,\3r,d1_off(a7),\4 - ii_shift_op0 4\1\2,b,\3r,d2,\4 - ii_shift_op0 6\1\2,b,\3r,d3,\4 - ii_shift_op0 8\1\2,b,\3r,d4,\4 - ii_shift_op0 a\1\2,b,\3r,d5,\4 - ii_shift_op0 c\1\2,b,\3r,d6,\4 - ii_shift_op0 e\1\2,b,\3r,d7,\4 - ii_shift_op0b 1\1\2,b,\3l,d0_off(a7),\4 - ii_shift_op0b 3\1\2,b,\3l,d1_off(a7),\4 - ii_shift_op0 5\1\2,b,\3l,d2,\4 - ii_shift_op0 7\1\2,b,\3l,d3,\4 - ii_shift_op0 9\1\2,b,\3l,d4,\4 - ii_shift_op0 b\1\2,b,\3l,d5,\4 - ii_shift_op0 d\1\2,b,\3l,d6,\4 - ii_shift_op0 f\1\2,b,\3l,d7,\4 -.endm -// word --------------------------------------- -ii_shift_op2agw:.macro //byt: 1=code 2=operation 3=quick(a) oder register(b) - ii_shift_op1\3w \1,0,\2,d0_off+2(a7) - ii_shift_op1\3w \1,1,\2,d1_off+2(a7) - ii_shift_op1\3w \1,2,\2,d2 - ii_shift_op1\3w \1,3,\2,d3 - ii_shift_op1\3w \1,4,\2,d4 - ii_shift_op1\3w \1,5,\2,d5 - ii_shift_op1\3w \1,6,\2,d6 - ii_shift_op1\3w \1,7,\2,d7 -.endm - -ii_shift_op2auw:.macro //byt: 1=code 2=operation - ii_shift_op1\3w \1,8,\2,d0_off+2(a7) - ii_shift_op1\3w \1,9,\2,d1_off+2(a7) - ii_shift_op1\3w \1,a,\2,d2 - ii_shift_op1\3w \1,b,\2,d3 - ii_shift_op1\3w \1,c,\2,d4 - ii_shift_op1\3w \1,d,\2,d5 - ii_shift_op1\3w \1,e,\2,d6 - ii_shift_op1\3w \1,f,\2,d7 -.endm - -ii_shift_op1aw:.macro // z.B. asr.w. #x,dx 1=code 3.ziffer 2=code 4.ziffer 3=shift art 4=dx - ii_shift_op0 0\1\2,w,\3r,#8,\4 - ii_shift_op0 2\1\2,w,\3r,#1,\4 - ii_shift_op0 4\1\2,w,\3r,#2,\4 - ii_shift_op0 6\1\2,w,\3r,#3,\4 - ii_shift_op0 8\1\2,w,\3r,#4,\4 - ii_shift_op0 a\1\2,w,\3r,#5,\4 - ii_shift_op0 c\1\2,w,\3r,#6,\4 - ii_shift_op0 e\1\2,w,\3r,#7,\4 - ii_shift_op0 1\1\2,w,\3l,#8,\4 - ii_shift_op0 3\1\2,w,\3l,#1,\4 - ii_shift_op0 5\1\2,w,\3l,#2,\4 - ii_shift_op0 7\1\2,w,\3l,#3,\4 - ii_shift_op0 9\1\2,w,\3l,#4,\4 - ii_shift_op0 b\1\2,w,\3l,#5,\4 - ii_shift_op0 d\1\2,w,\3l,#6,\4 - ii_shift_op0 f\1\2,w,\3l,#7,\4 -.endm - -ii_shift_op1bw:.macro // z.B. asr.w. #x,dx 1=code 3.ziffer 2=code 4.ziffer 3=shift art 4=dx - ii_shift_op0b 0\1\2,w,\3r,d0_off(a7),\4 - ii_shift_op0b 2\1\2,w,\3r,d1_off(a7),\4 - ii_shift_op0 4\1\2,w,\3r,d2,\4 - ii_shift_op0 6\1\2,w,\3r,d3,\4 - ii_shift_op0 8\1\2,w,\3r,d4,\4 - ii_shift_op0 a\1\2,w,\3r,d5,\4 - ii_shift_op0 c\1\2,w,\3r,d6,\4 - ii_shift_op0 e\1\2,w,\3r,d7,\4 - ii_shift_op0b 1\1\2,w,\3l,d0_off(a7),\4 - ii_shift_op0b 3\1\2,w,\3l,d1_off(a7),\4 - ii_shift_op0 5\1\2,w,\3l,d2,\4 - ii_shift_op0 7\1\2,w,\3l,d3,\4 - ii_shift_op0 9\1\2,w,\3l,d4,\4 - ii_shift_op0 b\1\2,w,\3l,d5,\4 - ii_shift_op0 d\1\2,w,\3l,d6,\4 - ii_shift_op0 f\1\2,w,\3l,d7,\4 -.endm -// long --------------------------------------- -ii_shift_op2agl:.macro //byt: 1=code 2=operation 3=quick(a) oder register(b) - ii_shift_op1\3l \1,0,\2,d0_off(a7) - ii_shift_op1\3l \1,1,\2,d1_off(a7) - ii_shift_op1\3l \1,2,\2,d2 - ii_shift_op1\3l \1,3,\2,d3 - ii_shift_op1\3l \1,4,\2,d4 - ii_shift_op1\3l \1,5,\2,d5 - ii_shift_op1\3l \1,6,\2,d6 - ii_shift_op1\3l \1,7,\2,d7 -.endm - -ii_shift_op2aul:.macro //byt: 1=code 2=operation - ii_shift_op1\3l \1,8,\2,d0_off(a7) - ii_shift_op1\3l \1,9,\2,d1_off(a7) - ii_shift_op1\3l \1,a,\2,d2 - ii_shift_op1\3l \1,b,\2,d3 - ii_shift_op1\3l \1,c,\2,d4 - ii_shift_op1\3l \1,d,\2,d5 - ii_shift_op1\3l \1,e,\2,d6 - ii_shift_op1\3l \1,f,\2,d7 -.endm - -ii_shift_op1al:.macro // z.B. asr.w. #x,dx 1=code 3.ziffer 2=code 4.ziffer 3=shift art 4=dx - ii_shift_op0 0\1\2,l,\3r,#8,\4 - ii_shift_op0 2\1\2,l,\3r,#1,\4 - ii_shift_op0 4\1\2,l,\3r,#2,\4 - ii_shift_op0 6\1\2,l,\3r,#3,\4 - ii_shift_op0 8\1\2,l,\3r,#4,\4 - ii_shift_op0 a\1\2,l,\3r,#5,\4 - ii_shift_op0 c\1\2,l,\3r,#6,\4 - ii_shift_op0 e\1\2,l,\3r,#7,\4 - ii_shift_op0 1\1\2,l,\3l,#8,\4 - ii_shift_op0 3\1\2,l,\3l,#1,\4 - ii_shift_op0 5\1\2,l,\3l,#2,\4 - ii_shift_op0 7\1\2,l,\3l,#3,\4 - ii_shift_op0 9\1\2,l,\3l,#4,\4 - ii_shift_op0 b\1\2,l,\3l,#5,\4 - ii_shift_op0 d\1\2,l,\3l,#6,\4 - ii_shift_op0 f\1\2,l,\3l,#7,\4 -.endm - -ii_shift_op1bl:.macro // z.B. asr.w. #x,dx 1=code 3.ziffer 2=code 4.ziffer 3=shift art 4=dx - ii_shift_op0b 0\1\2,l,\3r,d0_off(a7),\4 - ii_shift_op0b 2\1\2,l,\3r,d1_off(a7),\4 - ii_shift_op0 4\1\2,l,\3r,d2,\4 - ii_shift_op0 6\1\2,l,\3r,d3,\4 - ii_shift_op0 8\1\2,l,\3r,d4,\4 - ii_shift_op0 a\1\2,l,\3r,d5,\4 - ii_shift_op0 c\1\2,l,\3r,d6,\4 - ii_shift_op0 e\1\2,l,\3r,d7,\4 - ii_shift_op0b 1\1\2,l,\3l,d0_off(a7),\4 - ii_shift_op0b 3\1\2,l,\3l,d1_off(a7),\4 - ii_shift_op0 5\1\2,l,\3l,d2,\4 - ii_shift_op0 7\1\2,l,\3l,d3,\4 - ii_shift_op0 9\1\2,l,\3l,d4,\4 - ii_shift_op0 b\1\2,l,\3l,d5,\4 - ii_shift_op0 d\1\2,l,\3l,d6,\4 - ii_shift_op0 f\1\2,l,\3l,d7,\4 -.endm -// .word ea ============================================ -ii_shift_op2ea:.macro //1=code 2.ziffer 2=shiftart -// (a0) bis (a7) ---------------------------- -ii_0xe\1d0: - move.l a0_off(a7),a1 - ii_shift_typ w,\2,#1,(a1),(a1). -ii_0xe\1d1: - move.l a1_off(a7),a1 - ii_shift_typ w,\2,#1,(a1),(a1). -ii_0xe\1d2: - ii_shift_typ w,\2,#1,(a2),(a2). -ii_0xe\1d3: - ii_shift_typ w,\2,#1,(a3),(a3). -ii_0xe\1d4: - ii_shift_typ w,\2,#1,(a4),(a4). -ii_0xe\1d5: - ii_shift_typ w,\2,#1,(a5),(a5). -ii_0xe\1d6: - ii_shift_typ w,\2,#1,(a6),(a6). -ii_0xe\1d7: - move.l usp,a1 - ii_shift_typ w,\2,#1,(a1),(a1). -// (a0)+ bis (a7)+ ----------------------------- -ii_0xe\1d8: - move.l a0_off(a7),a1 - addq.l #2,a0_off(a7) - ii_shift_typ w,\2,#1,(a1),(a1). -ii_0xe\1d9: - move.l a1_off(a7),a1 - addq.l #2,a0_off(a7) - ii_shift_typ w,\2,#1,(a1),(a1). -ii_0xe\1da: - ii_shift_typ w,\2,#1,(a2),(a2)+. -ii_0xe\1db: - ii_shift_typ w,\2,#1,(a3),(a3)+ -ii_0xe\1dc: - ii_shift_typ w,\2,#1,(a4),(a4)+ -ii_0xe\1dd: - ii_shift_typ w,\2,#1,(a5),(a5)+ -ii_0xe\1de: - ii_shift_typ w,\2,#1,(a6),(a6)+ -ii_0xe\1df: - move.l usp,a1 - addq.l #2,a1 - move.l a1,usp - subq.l #2,a1 - ii_shift_typ w,\2,#1,(a1),(a1). -// -(a0) bis -(a7) ----------------------------- -ii_0xe\1e0: - move.l a0_off(a7),a1 - subq.l #2,a1 - move.l a1,a0_off(a7) - ii_shift_typ w,\2,#1,(a1),(a1). -ii_0xe\1e1: - move.l a1_off(a7),a1 - subq.l #2,a1 - move.l a1,a1_off(a7) - ii_shift_typ w,\2,#1,(a1),(a1). -ii_0xe\1e2: - ii_shift_typ w,\2,#1,-(a2),(a2). -ii_0xe\1e3: - ii_shift_typ w,\2,#1,-(a3),(a3) -ii_0xe\1e4: - ii_shift_typ w,\2,#1,-(a4),(a4) -ii_0xe\1e5: - ii_shift_typ w,\2,#1,-(a5),(a5) -ii_0xe\1e6: - ii_shift_typ w,\2,#1,-(a6),(a6) -ii_0xe\1e7: - move.l usp,a1 - subq.l #2,a1 - move.l a1,usp - ii_shift_typ w,\2,#1,(a1),(a1). -// d16(a0) bis d16(a7) ----------------------------- -ii_0xe\1e8: - move.w (a0)+,a1 - add.l a0_off(a7),a1 - ii_shift_typ w,\2,#1,(a1),(a1). -ii_0xe\1e9: - move.w (a0)+,a1 - add.l a1_off(a7),a1 - ii_shift_typ w,\2,#1,(a1),(a1). -ii_0xe\1ea: - move.w (a0)+,a1 - add.l a2,a1 - ii_shift_typ w,\2,#1,(a1),(a1). -ii_0xe\1eb: - move.w (a0)+,a1 - add.l a3,a1 - ii_shift_typ w,\2,#1,(a1),(a1) -ii_0xe\1ec: - move.w (a0)+,a1 - add.l a4,a1 - ii_shift_typ w,\2,#1,(a1),(a1) -ii_0xe\1ed: - move.w (a0)+,a1 - add.l a5,a1 - ii_shift_typ w,\2,#1,(a1),(a1) -ii_0xe\1ee: - move.w (a0)+,a1 - add.l a6,a1 - ii_shift_typ w,\2,#1,(a1),(a1) -ii_0xe\1ef: - mvs.w (a0)+,d0 - move.l usp,a1 - add.l d0,a1 - ii_shift_typ w,\2,#1,(a1),(a1). -// d8(a0,dy) bis d8(a7,dy) ----------------------------- -ii_0xe\1f0: - move.l a0_off(a0),a1 - jsr ewf - ii_shift_typ w,\2,#1,(a1),(a1). -ii_0xe\1f1: - move.l a1_off(a0),a1 - jsr ewf - ii_shift_typ w,\2,#1,(a1),(a1). -ii_0xe\1f2: - move.l a2,a1 - jsr ewf - ii_shift_typ w,\2,#1,(a1),(a1). -ii_0xe\1f3: - move.l a3,a1 - jsr ewf - ii_shift_typ w,\2,#1,(a1),(a1). -ii_0xe\1f4: - move.l a4,a1 - jsr ewf - ii_shift_typ w,\2,#1,(a1),(a1). -ii_0xe\1f5: - move.l a5,a1 - jsr ewf - ii_shift_typ w,\2,#1,(a1),(a1). -ii_0xe\1f6: - move.l a6,a1 - jsr ewf - ii_shift_typ w,\2,#1,(a1),(a1). -ii_0xe\1f7: - move.l usp,a1 - jsr ewf - ii_shift_typ w,\2,#1,(a1),(a1). -// xxx.w xxx.l -ii_0xe\1f8: - move.w (a0)+,a1 - ii_shift_typ w,\2,#1,(a1),(a1). -ii_0xe\1f9: - move.l (a0)+,a1 - ii_shift_typ w,\2,#1,(a1),(a1). -.endm -//============================================================================ -//subroutine -//------------------------------ -ii_shift_op0:.macro // shift: 1=code 2=size 3=shift art 4=shift wert 5=ea -ii_0xe\1: - ii_shift_typ \2,\3,\4,\5,\5 -.endm - -ii_shift_op0b:.macro // shift wert nach d0 holen: 1=code 2=size 3=shift art 4=shift wert 5=ea -ii_0xe\1: - move.l \4,d0 - ii_shift_typ \2,\3,d0,\5,\5 -.endm - -ii_shift_typ:.macro //1=size 2=shift art 3=shift wert 4=source 5=dest -#ifdef halten - halt -#endif -.ifc asr,\2 - mvs.\1 \4,d1 -.else - mvz.\1 \4,d1 -.endif -.ifc roxr,\2 - nop -.else - .ifc roxl,\2 - nop - .else - .ifc ror,\2 - nop - .else - .ifc rol,\2 - nop - .else - \2.l \3,d1 - .endif - .endif - .endif -.endif - set_cc0 - move.\1 d1,\5 - ii_end -.endm diff --git a/BaS_GNU/sources/ii_sub.h b/BaS_GNU/sources/ii_sub.h deleted file mode 100644 index 1405e1a..0000000 --- a/BaS_GNU/sources/ii_sub.h +++ /dev/null @@ -1,584 +0,0 @@ -//-------------------------------------------------------------------- -// sub -//-------------------------------------------------------------------- -/*****************************************************************************************/ -//-------------------------------------------------------------------- -// byt -//-------------------------------------------------------------------- -//-------------------------------------------------------------------- -// sub.b #im,dx -//-------------------------------------------------------------------- -subbir_macro:.macro -#ifdef halten_sub - halt -#endif - move.w (a0)+,d0 - extb.l d0 - mvs.b \2,d1 - sub.l d0,d1 - set_cc0 - move.b d1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // sub ea,dx -//-------------------------------------------------------------------- -subdd:.macro -#ifdef halten_sub - halt -#endif - mvs.\3 \1,d0 - mvs.\3 \2,d1 - sub.l d0,d1 - set_cc0 - move.\3 d1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // sub ea(l)->dy(w),dx z.B. für USP -//-------------------------------------------------------------------- -subddd:.macro -#ifdef halten_sub - halt -#endif - move.l \1,a1 - mvs.\3 a1,d0 - mvs.\3 \2,d1 - sub.l d0,d1 - set_cc0 - move.\3 d1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // sub (ea)->dy,dx -//-------------------------------------------------------------------- -subdda:.macro -#ifdef halten_sub - halt -#endif - move.l \1,a1 - mvs.\3 (a1),d0 - mvs.\3 \2,d1 - sub.l d0,d1 - set_cc0 - move.\3 d1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // sub ea->ay,(ay)+,dx -//-------------------------------------------------------------------- -subddai:.macro -#ifdef halten_sub - halt -#endif - move.l \1,a1 - mvs.\3 (a1)+,d0 - move.l a1,\1 - mvs.\3 \2,d1 - sub.l d0,d1 - set_cc0 - move.\3 d1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // sub ea->ay,-(ay),dx -//-------------------------------------------------------------------- -subddad:.macro -#ifdef halten_sub - halt -#endif - move.l \1,a1 - mvs.\3 -(a1),d0 - move.l a1,\1 - mvs.\3 \2,d1 - sub.l d0,d1 - set_cc0 - move.\3 d1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // sub d16(ay),dx -//-------------------------------------------------------------------- -subd16ad:.macro -#ifdef halten_sub - halt -#endif - move.l \1,a1 - mvs.w (a0)+,d0 - add.l d0,a1 - mvs.\3 (a1),d0 - mvs.\3 \2,d1 - sub.l d0,d1 - set_cc0 - move.\3 d1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // sub d8(ay,dy),dx -//-------------------------------------------------------------------- -subd8ad:.macro -#ifdef halten_sub - halt -#endif - move.l \1,a1 - jsr ewf -.ifc \3,l - move.l (a1),d0 - move.l \2,d1 -.else - mvs.\3 (a1),d0 - mvs.\3 \2,d1 -.endif - sub.l d0,d1 - set_cc0 - move.\3 d1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // sub xxx.w,dx -//-------------------------------------------------------------------- -subxwd:.macro -#ifdef halten_sub - halt -#endif - move.w (a0)+,a1 - mvs.\3 (a1),d0 - mvs.\3 \2,d1 - sub.l d0,d1 - set_cc0 - move.\3 d1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // sub xxx.l,dx -//-------------------------------------------------------------------- -subxld:.macro -#ifdef halten_sub - halt -#endif - move.l (a0)+,a1 - mvs.\3 (a1),d0 - mvs.\3 \2,d1 - sub.l d0,d1 - set_cc0 - move.\3 d1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // sub d16(pc),dx -//-------------------------------------------------------------------- -subd16pcd:.macro -#ifdef halten_sub - halt -#endif - move.l a0,a1 - mvs.w (a0)+,d0 - add.l d0,a1 - mvs.\3 (a1),d0 - mvs.\3 \2,d1 - sub.l d0,d1 - set_cc0 - move.\3 d1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // sub d8(pc,dy),dx -//-------------------------------------------------------------------- -subd8pcd:.macro -#ifdef halten_sub - halt -#endif - move.l a0,a1 - jsr ewf -.ifc \3,l - move.l (a1),d0 - move.l \2,d1 -.else - mvs.\3 (a1),d0 - mvs.\3 \2,d1 -.endif - sub.l d0,d1 - set_cc0 - move.\3 d1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// sub dy,ea -//-------------------------------------------------------------------- -//-------------------------------------------------------------------- -// // sub (ea)->dy,dx -//-------------------------------------------------------------------- -subeda:.macro -#ifdef halten_sub - halt -#endif - mvs.\3 \1,d0 - move.l \2,a1 - mvs.\3 (a1),d1 - sub.l d0,d1 - set_cc0 - move.\3 d1,(a1) - ii_end - .endm; -//-------------------------------------------------------------------- -// // sub dx,ea->ay,(ay)+ -//-------------------------------------------------------------------- -subedai:.macro -#ifdef halten_sub - halt -#endif - mvs.\3 \1,d0 - move.l \2,a1 - mvs.\3 (a1),d1 - sub.l d0,d1 - set_cc0 - move.\3 d1,(a1)+ - move.l a1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // sub dx,ea->ay,(ay)+ -//-------------------------------------------------------------------- -subedaid:.macro -#ifdef halten_sub - halt -#endif - mvs.\3 \1,d0 - mvs.\3 \2,d1 - sub.l d0,d1 - set_cc0 - move.\3 d1,\2+ - ii_end - .endm; -//-------------------------------------------------------------------- -// // sub dx,ea->ay,-(ay) -//-------------------------------------------------------------------- -subedad:.macro -#ifdef halten_sub - halt -#endif - mvs.\3 \1,d0 - move.l \2,a1 - mvs.\3 -(a1),d1 - move.l a1,\2 - sub.l d0,d1 - set_cc0 - move.\3 d1,(a1) - ii_end - .endm; -//-------------------------------------------------------------------- -// // sub dx,ea->ay,-(ay) -//-------------------------------------------------------------------- -subedadd:.macro -#ifdef halten_sub - halt -#endif - mvs.\3 \1,d0 - mvs.\3 -\2,d1 - sub.l d0,d1 - set_cc0 - move.\3 d1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // sub dx,d16(ay) -//-------------------------------------------------------------------- -sube16ad:.macro -#ifdef halten_sub - halt -#endif - mvs.\3 \1,d0 - move.l \2,a1 - mvs.w (a0)+,d1 - add.l d1,a1 - mvs.\3 (a1),d1 - sub.l d0,d1 - set_cc0 - move.\3 d1,(a1) - ii_end - .endm; -//-------------------------------------------------------------------- -// // sub dx,d8(ay,dy) -//-------------------------------------------------------------------- -sube8ad:.macro -#ifdef halten_sub - halt -#endif - move.l \2,a1 - jsr ewf -.ifc \3,l - move.l (a1),d1 - move.l \1,d0 -.else - mvs.\3 (a1),d1 - mvs.\3 \1,d0 -.endif - sub.l d0,d1 - set_cc0 - move.\3 d1,(a1) - ii_end - .endm; -//-------------------------------------------------------------------- -// // sub dx,xxx.w -//-------------------------------------------------------------------- -subxwe:.macro -#ifdef halten_sub - halt -#endif - mvs.\3 \1,d0 - move.w (a0)+,a1 - mvs.\3 (a1),d1 - sub.l d0,d1 - set_cc0 - move.\3 d1,(a1) - ii_end - .endm; -//-------------------------------------------------------------------- -// // sub dx,xxx.l -//-------------------------------------------------------------------- -subxle:.macro -#ifdef halten_sub - halt -#endif - mvs.\3 \1,d0 - move.l (a0)+,a1 - mvs.\3 (a1),d1 - sub.l d0,d1 - set_cc0 - move.\3 d1,(a1) - ii_end - .endm; -/******************************************************/ -// adress register -/******************************************************/ -//-------------------------------------------------------------------- -// // suba.w ea,ax -//-------------------------------------------------------------------- -subaw:.macro -#ifdef halten_sub - halt -#endif - move.l a0,pc_off(a7) // pc auf next - movem.l (a7),d0/d1/a0/a1 // register zurpück - mvs.w \1,d0 - suba.l d0,\2 - move.l d0_off(a7),d0 - lea ii_ss(a7),a7 // stack erhöhen - rte - .endm; -//-------------------------------------------------------------------- -// sub.w ea,usp -//-------------------------------------------------------------------- -subawa7:.macro -#ifdef halten_sub - halt -#endif - mvs.w \1,d0 - move.l usp,a1 - sub.l d0,a1 - move.l a1,usp - ii_end - .endm; -//-------------------------------------------------------------------- -// // suba.w usp?,ax -//-------------------------------------------------------------------- -subawu:.macro -#ifdef halten_sub - halt -#endif - move.l a0,pc_off(a7) // pc auf next - movem.l (a7),d0/d1/a0/a1 // register zurpück - move.l a7,_a7_save - move.l usp,a7 - move.l \1,d0 - suba.l d0,\2 - move.l a7,usp - move.l _a7_save,a7 - move.l d0_off(a7),d0 - lea ii_ss(a7),a7 // stack erhöhen - rte - .endm; -//-------------------------------------------------------------------- -// // suba.w usp?,usp -//-------------------------------------------------------------------- -subawua7:.macro - subawu \1,\2 - .endm; -//-------------------------------------------------------------------- -// // suba.w d16(ay),ax -//-------------------------------------------------------------------- -subawd16a:.macro -#ifdef halten_sub - halt -#endif - move.l \1,a1 - mvs.w (a0)+,d0 - adda.l d0,a1 - mvs.w (a1),d0 - move.l \2,a1 - sub.l d0,a1 - move.l a1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // suba.w d8(ay,dy),ax -//-------------------------------------------------------------------- -subawd8a:.macro -#ifdef halten_sub - halt -#endif - move.l \1,a1 - jsr ewf - mvs.w (a1),d0 - move.l \2,a1 - sub.l d0,a1 - move.l a1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // suba.w xxx.w,ax -//-------------------------------------------------------------------- -subawxwax:.macro -#ifdef halten_sub - halt -#endif - move.w (a0)+,a1 - mvs.w (a1),d0 - move.l \2,a1 - suba.l d0,a1 - move.l a1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // suba.w xxx.l,ax -//-------------------------------------------------------------------- -subawxlax:.macro -#ifdef halten_sub - halt -#endif - move.l (a0)+,a1 - mvs.w (a1),d0 - move.l \2,a1 - suba.l d0,a1 - move.l a1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // suba.w d16(pc),ax -//-------------------------------------------------------------------- -subawd16pcax:.macro -#ifdef halten_sub - halt -#endif - move.w (a0)+,a1 - adda.l a0,a1 - mvs.w (a1),d0 - move.l \2,a1 - suba.l d0,a1 - move.l a1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // suba.w d8(pc,dy),ax -//-------------------------------------------------------------------- -subawd8pcax:.macro -#ifdef halten_sub - halt -#endif - move.l a0,a1 - jsr ewf - mvs.w (a1),d0 - move.l \2,a1 - sub.l d0,a1 - move.l a1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // suba.w #im,ax -//-------------------------------------------------------------------- -subawim:.macro -#ifdef halten_sub - halt -#endif - mvs.w \1,d0 - move.l \2,a1 - sub.l d0,a1 - move.l a1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // suba.l d8(ay,dy),ax -//-------------------------------------------------------------------- -subald8a:.macro -#ifdef halten_sub - halt -#endif - move.l \1,a1 - jsr ewf - move.l (a1),d0 - move.l \2,a1 - sub.l d0,a1 - move.l a1,\2 - ii_end - .endm; -//-------------------------------------------------------------------- -// // suba.l d8(pc,dy),ax -//-------------------------------------------------------------------- -subakd8pcax:.macro -#ifdef halten_sub - halt -#endif - move.l a0,a1 - jsr ewf - move.l (a1),d0 - move.l \2,a1 - sub.l d0,a1 - move.l a1,\2 - ii_end - .endm; -//***************************************************************************************** -// subx -//***************************************************************************************** -//-------------------------------------------------------------------- -// // subx dy,dx -//-------------------------------------------------------------------- -subdx:.macro -#ifdef halten_sub - halt -#endif - move.b sr_off+1(a7),d0 //ccr holen - move d0,ccr //setzen - mvs.\3 \2,d0 - mvs.\3 \1,d1 - subx.l d0,d1 - set_cc0 - move.\3 d1,\1 - ii_end - .endm; -//-------------------------------------------------------------------- -// // subx -(ay),-(ax) -//-------------------------------------------------------------------- -subdax:.macro -#ifdef halten_sub - halt -#endif - move.b sr_off+1(a7),d0 //ccr holen - move d0,ccr //setzen - move.l \1,a1 -.ifc \3,l - move.l -(a1),d0 -.else - mvs.\3 -(a1),d0 -.endif - move.l \2,a1 -.ifc \3,l - move.l -(a1),d0 -.else - mvs.\3 -(a1),d1 -.endif - subx.l d0,d1 - set_cc0 - move.\3 d1,(a1) - ii_end - .endm; -//--------------------------------------------------------------------