URL
https://opencores.org/ocsvn/rf68000/rf68000/trunk
Subversion Repositories rf68000
[/] [rf68000/] [trunk/] [software/] [examples/] [cputest.asm] - Rev 3
Compare with Previous | Blame | View Log
** @name cputest.s Tests 68000 cpu** Based on https://github.com/MicroCoreLabs/Projects/blob/master/MCL68/MC68000_Test_Code/MC68000_test_all_opcodes.X68** Converted into a CD-i system ROM image by CD-i Fan:* - comment lines must start in first column* - replaced org instructions by suitable rept* - copy vectors to low memory at startup* - replaced jsr/jmp by bsr/bra for position independence* - replaced move.l by moveq whenever possible* - converted branches to short form whenever possible (e.g. beq => beq.s)* - added immediate suffix to opcodes where required (e.g. and => andi)* The last three modifications are required to make the test work;* apparently the original assembler was somewhat smarter then* the Microware OS-9 assembler and did this automatically.** In some cases the opcodes of the test are used as test data!** Original file header follows.** File Name : MCL68 Opcode Tests* Used on :* Author : Ted Fried, MicroCore Labs* Creation : 7/14/2020** Description:* ============** Program to test all of the Motorola 68000's opcodes.** If failures are detected, the code will immediately loop on itself.* All addressing modes, data sizes, and opcode combinations are tested.** This code was developed using the Easy68K simulator where all tests passed!**------------------------------------------------------------------------** Modification History:* =====================** Revision 1 7/14/2020* Initial revision***------------------------------------------------------------------------** Copyright (c) 2020 Ted Fried** Permission is hereby granted, free of charge, to any person obtaining a copy* of this software and associated documentation files (the "Software"), to deal* in the Software without restriction, including without limitation the rights* to use, copy, modify, merge, publish, distribute, sublicense, and/or sell* copies of the Software, and to permit persons to whom the Software is* furnished to do so, subject to the following conditions:** The above copyright notice and this permission notice shall be included in all* copies or substantial portions of the Software.** THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE* SOFTWARE.* Modified for rf68000 project (c) 2022 Robert Finch* data* dc.l $0001FFFC ; top of local ram area* dc.l start* org $1000 ; code starts at $400 in local ram*start:* move.l $FFFFFFE0,d0 ; get core number* cmpi.b #2,d0* bne do_nothing* lea EXCEPTION_6,a0 * check exception vector* move.l a0,6*4* lea EXCEPTION_7,a0 * TRAPV exception vector* move.l a0,7*4cpu_test:bsr op_ORI_TO_CCRbsr op_ORI_TO_SRbsr op_EORI_TO_CCRbsr op_EORI_TO_SRbsr op_ANDI_TO_CCRbsr op_ANDI_TO_SRbsr op_BTSTbsr op_BCHGbsr op_BCLRbsr op_BSETbsr op_MOVEPbsr op_BOOL_Ibsr op_CMP_Ibsr op_ADD_Ibsr op_SUB_Ibsr op_MOVEbsr op_MOVE_xxx_FLAGSbsr op_EXTbsr op_SWAPbsr op_LEAPEAbsr op_TASbsr op_TSTbsr op_LINKSbsr op_MOVE_USPbsr op_CHKbsr op_NEGSbsr op_MOVEM* bsr op_ABCD* bsr op_SBCD* bsr op_NBCDbsr op_TRAPVbsr op_RTRbsr op_BSRbsr op_BCCbsr op_DBCCbsr op_SCCbsr op_ADDQbsr op_SUBQbsr op_MOVEQbsr op_DIVU* bsr op_DIVSbsr op_ORbsr op_ANDbsr op_EORbsr op_CMPbsr op_CMPAbsr op_CMPMbsr op_ADDbsr op_SUBbsr op_ADDAbsr op_SUBAbsr op_ADDXbsr op_SUBXbsr op_MULUbsr op_MULSbsr op_EXGbsr op_ROxbsr op_ROXxbsr op_SHIFTSbsr op_SHIFTS2rtsbra ALL_DONE* Loop here when all tests pass*ALL_DONE: bra.s ALL_DONEBSR_FAR1: move.l #$33333333,d3rts; moveq #-1,d0; move.l d0,$FD0FFF00;do_nothing:; bra ** Exception Vector = 6 CHK Instruction** align 4EXCEPTION_6:move.l #$EEEE0006,d6 * Set d6 to the exception vectorrte* Exception Vector = 7 TRAPV Instruction** align 4EXCEPTION_7:move.l #$12345678,d0 * Set d6 to the exception vectorrte;-----------------------------------------------------------;-----------------------------------------------------------; OPCODE : ORI_TO_CCR;-----------------------------------------------------------;-----------------------------------------------------------op_ORI_TO_CCR:ori.b #$FF,CCRbpl.s * ; branch if Z clearbne.s * ; branch if N clearbvc.s * ; branch if V clearbcc.s * ; branch if C clearmove #$00,CCRori.b #$00,CCRbeq.s * ; branch if Z setbmi.s * ; branch if N setbvs.s * ; branch if V setbcs.s * ; branch if C setmove.w #$2700,SR ; Put flags back to initial valuerts;-----------------------------------------------------------;-----------------------------------------------------------; OPCODE : ORI_TO_SR;-----------------------------------------------------------;-----------------------------------------------------------op_ORI_TO_SR:ori.w #$2FFF,SRbpl.s * * branch if Z clearbne.s * * branch if N clearbvc.s * * branch if V clearbcc.s * * branch if C clearmove.w #$2000,SRori.w #$0000,SRbeq.s * * branch if Z setbmi.s * * branch if N setbvs.s * * branch if V setbcs.s * * branch if C setmove.w #$2700,sr * Put flags back to initial valuerts;;-----------------------------------------------------------;-----------------------------------------------------------; OPCODE : EORI_TO_CCR;-----------------------------------------------------------;-----------------------------------------------------------op_EORI_TO_CCR:move #$00,CCReori.b #$FF,CCRbpl.s * ; branch if Z clearbne.s * ; branch if N clearbvc.s * ; branch if V clearbcc.s * ; branch if C clearmove #$00,CCReori.b #$00,CCRbeq.s * ; branch if Z setbmi.s * ; branch if N setbvs.s * ; branch if V setbcs.s * ; branch if C setmove.w #$2700,sr ; Put flags back to initial valuerts*-----------------------------------------------------------*-----------------------------------------------------------* OPCODE : EORI_TO_SR*-----------------------------------------------------------*-----------------------------------------------------------op_EORI_TO_SR:move.w #$2000,SReori.w #$0FFF,SRbpl.s * * branch if Z clearbne.s * * branch if N clearbvc.s * * branch if V clearbcc.s * * branch if C clearmove.w #$2000,SReori.w #$0000,SRbeq.s * * branch if Z setbmi.s * * branch if N setbvs.s * * branch if V setbcs.s * * branch if C setmove.w #$2700,sr * Put flags back to initial valuerts*-----------------------------------------------------------*-----------------------------------------------------------* OPCODE : ANDI_TO_CCR*-----------------------------------------------------------*-----------------------------------------------------------op_ANDI_TO_CCR:move #$FF,CCRandi.b #$FF,CCRbpl.s * * branch if Z clearbne.s * * branch if N clearbvc.s * * branch if V clearbcc.s * * branch if C clearmove #$FF,CCRandi.b #$00,CCRbeq.s * * branch if Z setbmi.s * * branch if N setbvs.s * * branch if V setbcs.s * * branch if C setmove #$2700,SR * Put flags back to initial valuerts*-----------------------------------------------------------*-----------------------------------------------------------* OPCODE : ANDI_TO_SR*-----------------------------------------------------------*-----------------------------------------------------------op_ANDI_TO_SR:move.w #$20FF,SRandi.w #$FFFF,SRbpl.s * * branch if Z clearbne.s * * branch if N clearbvc.s * * branch if V clearbcc.s * * branch if C clearmove.w #$20FF,SRandi.w #$FF00,SRbeq.s * * branch if Z setbmi.s * * branch if N setbvs.s * * branch if V setbcs.s * * branch if C setmove.w #$2700,sr * Put flags back to initial valuerts*-----------------------------------------------------------*-----------------------------------------------------------* OPCODE : BTST*-----------------------------------------------------------*-----------------------------------------------------------op_BTST:* Bit Number.s Static* EA = Dn - LONG onlymove.l #$80000001,d0 * populate test databtst.l #0,d0beq.s * * branch if Z setbtst.l #1,d0 *bne.s * * branch if Z clearbtst.l #31,d0 *beq.s * * branch if Z set* EA = (An) - BYTE onlymove.l #$00000100,a0 * point to memory to address 0x100move.b #$81,(a0) * populate test datamove.b (a0),d1 * Check to see if data in memory is 0x81btst.b #0,(a0)beq.s * * branch if Z setbtst.b #1,(a0) *bne.s * * branch if Z clearbtst.b #7,(a0) *beq.s * * branch if Z set* EA = (An)+ - BYTE onlymove.l #$00000100,a0 * point to memory to address 0x100move.b #$01,(a0)+ * populate test datamove.b #$FC,(a0)+ * populate test datamove.b #$80,(a0)+ * populate test datamove.l #$00000100,a0 * point to memory to address 0x100btst.b #0,(a0)+beq.s * * branch if Z setbtst.b #1,(a0)+ *bne.s * * branch if Z clearbtst.b #7,(a0)+ *beq.s * * branch if Z set* EA = -(An) - BYTE onlymove.l #$00000100,a0 * point to memory to addressmove.b #$80,(a0)+ * populate test datamove.b #$FC,(a0)+ * populate test datamove.b #$01,(a0)+ * populate test datamove.l #$00000103,a0 * point to memory to addressbtst.b #0,-(a0)beq.s * * branch if Z setbtst.b #1,-(a0) *bne.s * * branch if Z clearbtst.b #7,-(a0) *beq.s * * branch if Z set* EA = n(An) - BYTE onlymove.l #$00000100,a0 * point to memory to addressmove.b #$01,(a0)+ * populate test datamove.b #$FC,(a0)+ * populate test datamove.b #$80,(a0)+ * populate test datamove.l #$00000100,a0 * point to memory to addressbtst.b #0,0(a0)beq.s * * branch if Z setbtst.b #1,1(a0) *bne.s * * branch if Z clearbtst.b #7,2(a0) *beq.s * * branch if Z set* EA = n(An,R.W) - BYTE onlymove.l #$00000100,a0 * point to memory to addressmove.l #$00000000,a1 * point to memory to addressmove.l #$00000001,a2 * point to memory to addressmoveq #$00000000,d0 * point to memory to addressmoveq #$00000001,d1 * point to memory to addressbtst.b #0,0(a0,d0.w)beq.s * * branch if Z setbtst.b #1,0(a0,d1.w) *bne.s * * branch if Z clearbtst.b #7,1(a0,d1.w) *beq.s * * branch if Z set* EA = n(An,R.L) - BYTE onlybtst.b #0,0(a0,d0.l)beq.s * * branch if Z setbtst.b #1,0(a0,d1.l) *bne.s * * branch if Z clearbtst.b #7,1(a0,d1.l) *beq.s * * branch if Z set* EA = n(An,A.W) - BYTE onlybtst.b #0,0(a0,a1.w)beq.s * * branch if Z setbtst.b #1,0(a0,a2.w) *bne.s * * branch if Z clearbtst.b #7,1(a0,a2.w) *beq.s * * branch if Z set* EA = n(An,A.L) - BYTE onlybtst.b #0,0(a0,a1.l)beq.s * * branch if Z setbtst.b #1,0(a0,a2.l) *bne.s * * branch if Z clearbtst.b #7,1(a0,a2.l) *beq.s * * branch if Z set* EA = x.W - BYTE onlybtst.b #0,$0100beq.s * * branch if Z setbtst.b #1,$0101 *bne.s * * branch if Z clearbtst.b #7,$0102 *beq.s * * branch if Z set* EA = x.L - BYTE onlymove.l #$F100,a0 * point to memory to address 0x100move.b #$01,(a0)+ * populate test datamove.b #$FC,(a0)+ * populate test datamove.b #$80,(a0)+ * populate test databtst.b #0,$F100beq.s * * branch if Z setbtst.b #1,$F101 *bne.s * * branch if Z clearbtst.b #7,$F102 *beq.s * * branch if Z set* EA = x(PC) - BYTE onlylea op_BTST(pc),a5btst.b #0,op_BTST(pc)bne.s * * branch if Z clearbtst.b #3,op_BTST0(pc) *beq.s * * branch if Z setbtst.b #6,op_BTST12(pc) *beq.s * * branch if Z set* EA = n(PC,R.W) - BYTE onlymove.l #$00000100,a0 * point to memory to addressmove.l #$00000000,a1 * point to memory to addressmove.l #$00000001,a2 * point to memory to addressmoveq #$00000000,d0 * point to memory to addressmoveq #$00000001,d1 * point to memory to addressop_BTST0: btst.b #0,op_BTST0(pc,d0.w)bne.s * * branch if Z clearlea op_BTST1(pc,d1.w),a5op_BTST1: btst.b #1,op_BTST1(pc,d1.w) *beq.s * * branch if Z setop_BTST2: btst.b #7,op_BTST2(pc,d1.w) *bne.s * * branch if Z clear* EA = n(PC,R.L) - BYTE onlyop_BTST3: btst.b #0,op_BTST3(pc,d0.l)bne.s * * branch if Z clearop_BTST4: btst.b #1,op_BTST4(pc,d1.l) *beq.s * * branch if Z setop_BTST5: btst.b #7,op_BTST5(pc,d1.l) *bne.s * * branch if Z clear* EA = n(PC,A.W) - BYTE onlyop_BTST6 btst.b #0,op_BTST6(pc,a1.w)bne.s * * branch if Z clearop_BTST7: btst.b #1,op_BTST7(pc,a2.w) *beq.s * * branch if Z setop_BTST8: btst.b #7,op_BTST8(pc,a2.w) *bne.s * * branch if Z clear* EA = n(PC,A.L) - BYTE onlyop_BTST9: btst.b #0,op_BTST9(pc,a1.l)bne.s * * branch if Z clearop_BTST10: btst.b #1,op_BTST10(pc,a2.l) *beq.s * * branch if Z setop_BTST11: btst.b #7,op_BTST11(pc,a2.l) *op_BTST12: bne.s * * branch if Z clear* Bit Number.s Dynamic* EA = Dn - LONG onlymove.l #$80000001,d0 * populate test datamove.l #0,d5 * populate bit.s number to testmove.l #1,d6 * populate bit.s number to testmove.l #31,d7 * populate bit.s number to testbtst.l d5,d0beq.s * * branch if Z setbtst.l d6,d0 *bne.s * * branch if Z clearbtst.l d7,d0 *beq.s * * branch if Z set* EA = (An) - BYTE onlymove.l #0,d5 * populate bit.s number to testmove.l #1,d6 * populate bit.s number to testmove.l #7,d7 * populate bit.s number to testmove.l #$00000100,a0 * point to memory to address 0x100move.b #$81,(a0) * populate test datamove.b (a0),d1 * Check to see if data in memory is 0x81btst.b d5,(a0)beq.s * * branch if Z setbtst.b d6,(a0) *bne.s * * branch if Z clearbtst.b d7,(a0) *beq.s * * branch if Z set* ---* EA = (An)+ - BYTE onlymove.l #$00000100,a0 * point to memory to address 0x100move.b #$01,(a0)+ * populate test datamove.b #$FC,(a0)+ * populate test datamove.b #$80,(a0)+ * populate test datamove.l #$00000100,a0 * point to memory to address 0x100btst.b d5,(a0)+beq.s * * branch if Z setbtst.b d6,(a0)+ *bne.s * * branch if Z clearbtst.b d7,(a0)+ *beq.s * * branch if Z set* EA = -(An) - BYTE onlymove.l #$00000100,a0 * point to memory to addressmove.b #$80,(a0)+ * populate test datamove.b #$FC,(a0)+ * populate test datamove.b #$01,(a0)+ * populate test datamove.l #$00000103,a0 * point to memory to addressbtst.b d5,-(a0)beq.s * * branch if Z setbtst.b d6,-(a0) *bne.s * * branch if Z clearbtst.b d7,-(a0) *beq.s * * branch if Z set* EA = n(An) - BYTE onlymove.l #$00000100,a0 * point to memory to addressmove.b #$01,(a0)+ * populate test datamove.b #$FC,(a0)+ * populate test datamove.b #$80,(a0)+ * populate test datamove.l #$00000100,a0 * point to memory to addressbtst.b d5,0(a0)beq.s * * branch if Z setbtst.b d6,1(a0) *bne.s * * branch if Z clearbtst.b d7,2(a0) *beq.s * * branch if Z set* EA = n(An,R.W) - BYTE onlymove.l #$00000100,a0 * point to memory to addressmove.l #$00000000,a1 * point to memory to addressmove.l #$00000001,a2 * point to memory to addressmoveq #$00000000,d0 * point to memory to addressmoveq #$00000001,d1 * point to memory to addressbtst.b d5,0(a0,d0.w)beq.s * * branch if Z setbtst.b d6,0(a0,d1.w) *bne.s * * branch if Z clearbtst.b d7,1(a0,d1.w) *beq.s * * branch if Z set* EA = n(An,R.L) - BYTE onlybtst.b d5,0(a0,d0.l)beq.s * * branch if Z setbtst.b d6,0(a0,d1.l) *bne.s * * branch if Z clearbtst.b d7,1(a0,d1.l) *beq.s * * branch if Z set* EA = n(An,A.W) - BYTE onlybtst.b d5,0(a0,a1.w)beq.s * * branch if Z setbtst.b d6,0(a0,a2.w) *bne.s * * branch if Z clearbtst.b d7,1(a0,a2.w) *beq.s * * branch if Z set* EA = n(An,A.L) - BYTE onlybtst.b d5,0(a0,a1.l)beq.s * * branch if Z setbtst.b d6,0(a0,a2.l) *bne.s * * branch if Z clearbtst.b d7,1(a0,a2.l) *beq.s * * branch if Z set* EA = x.W - BYTE onlybtst.b d5,$0100beq.s * * branch if Z setbtst.b d6,$0101 *bne.s * * branch if Z clearbtst.b d7,$0102 *beq.s * * branch if Z set* EA = x.L - BYTE onlymove.l #$F100,a0 * point to memory to address 0x100move.b #$01,(a0)+ * populate test datamove.b #$FC,(a0)+ * populate test datamove.b #$80,(a0)+ * populate test databtst.b d5,$F100beq.s * * branch if Z setbtst.b d6,$F101 *bne.s * * branch if Z clearbtst.b d7,$F102 *beq.s * * branch if Z set* EA = x(PC) - BYTE onlymove.l #3,d6 * populate bit.s number to testmove.l #6,d7 * populate bit.s number to testlea op_BTST(pc),a5btst.b d5,op_BTST(pc)bne.s * * branch if Z clearbtst.b d6,op_BTST0(pc) *beq.s * * branch if Z setbtst.b d7,op_BTST12(pc) *beq.s * * branch if Z set* EA = n(PC,R.W) - BYTE onlymove.l #$00000100,a0 * point to memory to addressmove.l #$00000000,a1 * point to memory to addressmove.l #$00000001,a2 * point to memory to addressmoveq #$00000000,d0 * point to memory to addressmoveq #$00000001,d1 * point to memory to addressmove.l #1,d6 * populate bit.s number to testmove.l #7,d7 * populate bit.s number to testop_BTST20: btst.b d5,op_BTST20(pc,d0.w)beq.s * * branch if Z setlea op_BTST21(pc,d1.w),a5op_BTST21: btst.b d6,op_BTST21(pc,d1.w) *beq.s * * branch if Z setop_BTST22: btst.b d7,op_BTST22(pc,d1.w) *bne.s * * branch if Z clear* EA = n(PC,R.L) - BYTE onlyop_BTST23: btst.b d5,op_BTST23(pc,d0.l)beq.s * * branch if Z setop_BTST24: btst.b d6,op_BTST24(pc,d1.l) *beq.s * * branch if Z setop_BTST25 btst.b d7,op_BTST25(pc,d1.l) *bne.s * * branch if Z clear* EA = n(PC,A.W) - BYTE onlyop_BTST26 btst.b d5,op_BTST26(pc,a1.w)beq.s * * branch if Z setop_BTST27: btst.b d6,op_BTST27(pc,a2.w) *beq.s * * branch if Z setop_BTST28: btst.b d7,op_BTST28(pc,a2.w) *bne.s * * branch if Z clear* EA = n(PC,A.L) - BYTE onlyop_BTST29: btst.b d5,op_BTST29(pc,a1.l)beq.s * * branch if Z setop_BTST30: btst.b d6,op_BTST30(pc,a2.l) *beq.s * * branch if Z setop_BTST31: btst.b d7,op_BTST31(pc,a2.l) *op_BTST32: bne.s * * branch if Z clear* EA = #x - BYTE onlymove.l #0,d5 * populate bit.s number to testmove.l #3,d6 * populate bit.s number to testmove.l #7,d7 * populate bit.s number to testbtst.b d5,#$88bne.s * * branch if Z clearbtst.b d6,#$88beq.s * * branch if Z setbtst.b d7,#$88beq.s * * branch if Z setrts*-----------------------------------------------------------*-----------------------------------------------------------* OPCODE : BCHG*-----------------------------------------------------------*-----------------------------------------------------------op_BCHG:* Bit Number.s Static* EA = Dn - LONG onlymove.l #$80000001,d0 * populate test databchg.l #0,d0beq.s * * branch if Z setbchg.l #1,d0 *bne.s * * branch if Z clearbchg.l #31,d0 *beq.s * * branch if Z setcmpi.l #$00000002,d0bne.s * * branch if Z clear* EA = (An) - BYTE onlymove.l #$00000100,a0 * point to memory to address 0x100move.b #$81,(a0) * populate test datamove.b (a0),d1 * Check to see if data in memory is 0x81bchg.b #0,(a0)beq.s * * branch if Z setbchg.b #1,(a0) *bne.s * * branch if Z clearbchg.b #7,(a0) *beq.s * * branch if Z setcmpi.b #$02,(a0)bne.s * * branch if Z clear* EA = (An)+ - BYTE onlymove.l #$00000100,a0 * point to memory to address 0x100move.b #$01,(a0)+ * populate test datamove.b #$FC,(a0)+ * populate test datamove.b #$80,(a0)+ * populate test datamove.l #$00000100,a0 * point to memory to address 0x100bchg.b #0,(a0)+beq.s * * branch if Z setbchg.b #1,(a0)+ *bne.s * * branch if Z clearbchg.b #7,(a0)+ *beq.s * * branch if Z setmove.l #$00000100,a0 * point to memory to address 0x100cmpi.b #$00,(a0)+bne.s * * branch if Z clearcmpi.b #$FE,(a0)+bne.s * * branch if Z clearcmpi.b #$00,(a0)+bne.s * * branch if Z clear* EA = -(An) - BYTE onlymove.l #$00000100,a0 * point to memory to addressmove.b #$80,(a0)+ * populate test datamove.b #$FC,(a0)+ * populate test datamove.b #$01,(a0)+ * populate test datamove.l #$00000103,a0 * point to memory to addressbchg.b #0,-(a0)beq.s * * branch if Z setbchg.b #1,-(a0) *bne.s * * branch if Z clearbchg.b #7,-(a0) *beq.s * * branch if Z setmove.l #$00000103,a0 * point to memory to address 0x100cmpi.b #$00,-(a0)bne.s * * branch if Z clearcmpi.b #$FE,-(a0)bne.s * * branch if Z clearcmpi.b #$00,-(a0)bne.s * * branch if Z clear* EA = n(An) - BYTE onlymove.l #$00000100,a0 * point to memory to addressmove.b #$01,(a0)+ * populate test datamove.b #$FC,(a0)+ * populate test datamove.b #$80,(a0)+ * populate test datamove.l #$00000100,a0 * point to memory to addressbchg.b #0,0(a0)beq.s * * branch if Z setbchg.b #1,1(a0) *bne.s * * branch if Z clearbchg.b #7,2(a0) *beq.s * * branch if Z setmove.l #$00000100,a0 * point to memory to address 0x100cmpi.b #$00,(a0)+bne.s * * branch if Z clearcmpi.b #$FE,(a0)+bne.s * * branch if Z clearcmpi.b #$00,(a0)+bne.s * * branch if Z clear* EA = n(An,D.W) - BYTE onlymove.l #$00000100,a0 * point to memory to addressmove.l #$00000000,a1 * point to memory to addressmove.l #$00000001,a2 * point to memory to addressmoveq #$00000000,d0 * point to memory to addressmoveq #$00000001,d1 * point to memory to addressbchg.b #0,0(a0,d0.w)bne.s * * branch if Z clearbchg.b #1,0(a0,d1.w) *beq.s * * branch if Z setbchg.b #7,1(a0,d1.w) *bne.s * * branch if Z clear* EA = n(An,D.L) - BYTE onlybchg.b #0,0(a0,d0.l)beq.s * * branch if Z setbchg.b #1,0(a0,d1.l) *bne.s * * branch if Z clearbchg.b #7,1(a0,d1.l) *beq.s * * branch if Z set* EA = n(An,A.W) - BYTE onlybchg.b #0,0(a0,a1.w)bne.s * * branch if Z clearbchg.b #1,0(a0,a2.w) *beq.s * * branch if Z setbchg.b #7,1(a0,a2.w) *bne.s * * branch if Z clear* EA = n(An,A.L) - BYTE onlybchg.b #0,0(a0,a1.l)beq.s * * branch if Z setbchg.b #1,0(a0,a2.l) *bne.s * * branch if Z clearbchg.b #7,1(a0,a2.l) *beq.s * * branch if Z setmove.l #$00000100,a0 * point to memory to address 0x100cmpi.b #$00,(a0)+bne.s * * branch if Z clearcmpi.b #$FE,(a0)+bne.s * * branch if Z clearcmpi.b #$00,(a0)+bne.s * * branch if Z clear* EA = x.W - BYTE onlybchg.b #0,$0100bne.s * * branch if Z clearbchg.b #1,$0101 *beq.s * * branch if Z setbchg.b #7,$0102 *bne.s * * branch if Z clearmove.l #$00000100,a0 * point to memory to address 0x100cmpi.b #$01,(a0)+bne.s * * branch if Z clearcmpi.b #$FC,(a0)+bne.s * * branch if Z clearcmpi.b #$80,(a0)+bne.s * * branch if Z clear* EA = x.L - BYTE onlymove.l #$F100,a0 * point to memory to address 0x100move.b #$01,(a0)+ * populate test datamove.b #$FC,(a0)+ * populate test datamove.b #$80,(a0)+ * populate test databchg.b #0,$F100beq.s * * branch if Z setbchg.b #1,$F101 *bne.s * * branch if Z clearbchg.b #7,$F102 *beq.s * * branch if Z setmove.l #$00000100,a0 * point to memory to address 0x100cmpi.b #$01,(a0)+bne.s * * branch if Z clearcmpi.b #$FC,(a0)+bne.s * * branch if Z clearcmpi.b #$80,(a0)+bne.s * * branch if Z clear* Bit Number.s Dynamic* EA = Dn - LONG onlymove.l #$80000001,d0 * populate test datamove.l #0,d5 * populate bit.s number to testmove.l #1,d6 * populate bit.s number to testmove.l #31,d7 * populate bit.s number to testbchg.l d5,d0beq.s * * branch if Z setbchg.l d6,d0 *bne.s * * branch if Z clearbchg.l d7,d0 *beq.s * * branch if Z setcmpi.l #$00000002,d0bne.s * * branch if Z clear* EA = (An) - BYTE onlymove.l #0,d5 * populate bit.s number to testmove.l #1,d6 * populate bit.s number to testmove.l #7,d7 * populate bit.s number to testmove.l #$00000100,a0 * point to memory to address 0x100move.b #$81,(a0) * populate test datamove.b (a0),d1 * Check to see if data in memory is 0x81bchg.b d5,(a0)beq.s * * branch if Z setbchg.b d6,(a0) *bne.s * * branch if Z clearbchg.b d7,(a0) *beq.s * * branch if Z setcmpi.b #$02,(a0)bne.s * * branch if Z clear* EA = (An)+ - BYTE onlymove.l #$00000100,a0 * point to memory to address 0x100move.b #$01,(a0)+ * populate test datamove.b #$FC,(a0)+ * populate test datamove.b #$80,(a0)+ * populate test datamove.l #$00000100,a0 * point to memory to address 0x100bchg.b d5,(a0)+beq.s * * branch if Z setbchg.b d6,(a0)+ *bne.s * * branch if Z clearbchg.b d7,(a0)+ *beq.s * * branch if Z setmove.l #$00000100,a0 * point to memory to address 0x100cmpi.b #$00,(a0)+bne.s * * branch if Z clearcmpi.b #$FE,(a0)+bne.s * * branch if Z clearcmpi.b #$00,(a0)+bne.s * * branch if Z clear* EA = -(An) - BYTE onlymove.l #$00000100,a0 * point to memory to addressmove.b #$80,(a0)+ * populate test datamove.b #$FC,(a0)+ * populate test datamove.b #$01,(a0)+ * populate test datamove.l #$00000103,a0 * point to memory to addressbchg.b d5,-(a0)beq.s * * branch if Z setbchg.b d6,-(a0) *bne.s * * branch if Z clearbchg.b d7,-(a0) *beq.s * * branch if Z setmove.l #$00000103,a0 * point to memory to address 0x100cmpi.b #$00,-(a0)bne.s * * branch if Z clearcmpi.b #$FE,-(a0)bne.s * * branch if Z clearcmpi.b #$00,-(a0)bne.s * * branch if Z clear* EA = n(An) - BYTE onlymove.l #$00000100,a0 * point to memory to addressmove.b #$01,(a0)+ * populate test datamove.b #$FC,(a0)+ * populate test datamove.b #$80,(a0)+ * populate test datamove.l #$00000100,a0 * point to memory to addressbchg.b d5,0(a0)beq.s * * branch if Z setbchg.b d6,1(a0) *bne.s * * branch if Z clearbchg.b d7,2(a0) *beq.s * * branch if Z setmove.l #$00000100,a0 * point to memory to address 0x100cmpi.b #$00,(a0)+bne.s * * branch if Z clearcmpi.b #$FE,(a0)+bne.s * * branch if Z clearcmpi.b #$00,(a0)+bne.s * * branch if Z clear* EA = n(An,R.W) - BYTE onlymove.l #$00000100,a0 * point to memory to addressmove.l #$00000000,a1 * point to memory to addressmove.l #$00000001,a2 * point to memory to addressmoveq #$00000000,d0 * point to memory to addressmoveq #$00000001,d1 * point to memory to addressbchg.b d5,0(a0,d0.w)bne.s * * branch if Z clearbchg.b d6,0(a0,d1.w) *beq.s * * branch if Z setbchg.b d7,1(a0,d1.w) *bne.s * * branch if Z clear* EA = n(An,R.L) - BYTE onlybchg.b d5,0(a0,d0.l)beq.s * * branch if Z setbchg.b d6,0(a0,d1.l) *bne.s * * branch if Z clearbchg.b d7,1(a0,d1.l) *beq.s * * branch if Z set* EA = n(An,A.W) - BYTE onlybchg.b d5,0(a0,a1.w)bne.s * * branch if Z clearbchg.b d6,0(a0,a2.w) *beq.s * * branch if Z setbchg.b d7,1(a0,a2.w) *bne.s * * branch if Z clear* EA = n(An,A.L) - BYTE onlybchg.b d5,0(a0,a1.l)beq.s * * branch if Z setbchg.b d6,0(a0,a2.l) *bne.s * * branch if Z clearbchg.b d7,1(a0,a2.l) *beq.s * * branch if Z setcmpi.b #$00,(a0)+bne.s * * branch if Z clear* EA = x.W - BYTE onlybchg.b d5,$0100bne.s * * branch if Z clearbchg.b d6,$0101 *beq.s * * branch if Z setbchg.b d7,$0102 *bne.s * * branch if Z clearcmpi.b #$FC,(a0)+bne.s * * branch if Z clear* EA = x.L - BYTE onlymove.l #$F100,a0 * point to memory to address 0x100move.b #$01,(a0)+ * populate test datamove.b #$FC,(a0)+ * populate test datamove.b #$80,(a0)+ * populate test databchg.b d5,$F100beq.s * * branch if Z setbchg.b d6,$F101 *bne.s * * branch if Z clearbchg.b d7,$F102 *beq.s * * branch if Z setmove.l #$F101,a0 * point to memory to address 0x100cmpi.b #$FE,(a0)bne.s * * branch if Z clearrts*-----------------------------------------------------------*-----------------------------------------------------------* OPCODE : BCLR*-----------------------------------------------------------*-----------------------------------------------------------op_BCLR:* Bit Number.s Static* EA = Dn - LONG onlymove.l #$FF0000FF,d0 * populate test databclr.l #0,d0beq.s * * branch if Z setbclr.l #1,d0 *beq.s * * branch if Z setbclr.l #15,d0 *bne.s * * branch if Z clearbclr.l #31,d0 *beq.s * * branch if Z setcmpi.l #$7F0000FC,d0bne.s * * branch if Z clear* EA = (An) - BYTE onlymove.l #$00000100,a0 * point to memory to address 0x100move.b #$0F,(a0) * populate test databclr.b #0,(a0)beq.s * * branch if Z setbclr.b #7,(a0) *bne.s * * branch if Z clearcmpi.b #$0E,(a0)bne.s * * branch if Z clear* EA = (An)+ - BYTE onlymove.l #$00000100,a0 * point to memory to address 0x100move.b #$01,(a0)+ * populate test datamove.b #$00,(a0)+ * populate test datamove.l #$00000100,a0 * point to memory to address 0x100bclr.b #0,(a0)+beq.s * * branch if Z setbclr.b #1,(a0)+ *bne.s * * branch if Z clearmove.l #$00000100,a0 * point to memory to address 0x100cmpi.b #$00,(a0)+bne.s * * branch if Z clearcmpi.b #$00,(a0)+bne.s * * branch if Z clear* EA = -(An) - BYTE onlymove.l #$00000100,a0 * point to memory to addressmove.b #$01,(a0)+ * populate test datamove.b #$80,(a0)+ * populate test databclr.b #7,-(a0)beq.s * * branch if Z setbclr.b #0,-(a0) *beq.s * * branch if Z setmove.l #$00000102,a0 * point to memory to address 0x100cmpi.b #$00,-(a0)bne.s * * branch if Z clearcmpi.b #$00,-(a0)bne.s * * branch if Z clear* EA = n(An) - BYTE onlymove.l #$00000100,a0 * point to memory to addressmove.b #$FF,(a0)+ * populate test datamove.b #$FF,(a0)+ * populate test datamove.l #$00000100,a0 * point to memory to addressbclr.b #0,0(a0)beq.s * * branch if Z setbclr.b #4,1(a0) *beq.s * * branch if Z setmove.l #$00000100,a0 * point to memory to address 0x100cmpi.b #$FE,(a0)+bne.s * * branch if Z clearcmpi.b #$EF,(a0)+bne.s * * branch if Z clear* EA = n(An,D.W) - BYTE onlymove.l #$00000100,a0 * point to memory to addressmove.l #$00000000,a1 * point to memory to addressmove.l #$00000001,a2 * point to memory to addressmoveq #$00000000,d0 * point to memory to addressmoveq #$00000001,d1 * point to memory to addressmove.b #$FF,(a0)+ * populate test datamove.b #$FF,(a0)+ * populate test datamove.l #$00000100,a0 * point to memory to addressbclr.b #0,0(a0,d0.w)beq.s * * branch if Z setbclr.b #1,0(a0,d1.w) *beq.s * * branch if Z setbclr.b #2,1(a0,d1.w) *bne.s * * branch if Z clear* EA = n(An,D.L) - BYTE onlybclr.b #3,0(a0,d0.l)beq.s * * branch if Z setbclr.b #4,0(a0,d1.l) *beq.s * * branch if Z setbclr.b #5,1(a0,d1.l) *bne.s * * branch if Z clear* EA = n(An,A.W) - BYTE onlybclr.b #6,0(a0,a1.w)beq.s * * branch if Z setbclr.b #1,0(a0,a2.w) *bne.s * * branch if Z clearbclr.b #7,1(a0,a2.w) *beq.s * * branch if Z set* EA = n(An,A.L) - BYTE onlybclr.b #0,0(a0,a1.l)bne.s * * branch if Z clearbclr.b #0,0(a0,a2.l) *beq.s * * branch if Z setbclr.b #1,1(a0,a2.l) *bne.s * * branch if Z clearmove.l #$00000100,a0 * point to memory to address 0x100cmpi.b #$B6,(a0)+bne.s * * branch if Z clearcmpi.b #$EC,(a0)+bne.s * * branch if Z clearcmpi.b #$59,(a0)+beq.s * * branch if Z set* EA = x.W - BYTE onlymove.l #$00000100,a0 * point to memory to addressmove.b #$FF,(a0)+ * populate test databclr.b #0,$0100beq.s * * branch if Z setbclr.b #1,$0100 *beq.s * * branch if Z setmove.l #$00000100,a0 * point to memory to address 0x100cmpi.b #$FC,(a0)+bne.s * * branch if Z clear* EA = x.L - BYTE onlymove.l #$F100,a0 * point to memory to address 0x100move.b #$FF,(a0) * populate test databclr.b #0,$F100beq.s * * branch if Z setbclr.b #1,$F100 *beq.s * * branch if Z setbclr.b #2,$F100 *beq.s * * branch if Z setmove.l #$F100,a0 * point to memory to address 0x100cmpi.b #$F8,(a0)+bne.s * * branch if Z clear* Bit Number.s Dynamic* EA = Dn - LONG onlymove.l #$FF00FF00,d0 * populate test datamove.l #0,d5 * populate bit.s number to testmove.l #1,d6 * populate bit.s number to testmove.l #31,d7 * populate bit.s number to testbclr.l d5,d0bne.s * * branch if Z clearbclr.l d6,d0 *bne.s * * branch if Z clearbclr.l d7,d0 *beq.s * * branch if Z setcmpi.l #$7F00FF00,d0bne.s * * branch if Z clear* EA = (An) - BYTE onlymove.l #0,d5 * populate bit.s number to testmove.l #1,d6 * populate bit.s number to testmove.l #7,d7 * populate bit.s number to testmove.l #$00000100,a0 * point to memory to address 0x100move.b #$81,(a0) * populate test databclr.b d5,(a0)beq.s * * branch if Z setbclr.b d6,(a0) *bne.s * * branch if Z clearbclr.b d7,(a0) *beq.s * * branch if Z setcmpi.b #$00,(a0)bne.s * * branch if Z clear* EA = (An)+ - BYTE onlymove.l #$00000100,a0 * point to memory to address 0x100move.b #$01,(a0)+ * populate test datamove.b #$FC,(a0)+ * populate test datamove.b #$80,(a0)+ * populate test datamove.l #$00000100,a0 * point to memory to address 0x100bclr.b d5,(a0)+beq.s * * branch if Z setbclr.b d6,(a0)+ *bne.s * * branch if Z clearbclr.b d7,(a0)+ *beq.s * * branch if Z setmove.l #$00000100,a0 * point to memory to address 0x100cmpi.b #$00,(a0)+bne.s * * branch if Z clearcmpi.b #$FC,(a0)+bne.s * * branch if Z clearcmpi.b #$00,(a0)+bne.s * * branch if Z clear* EA = -(An) - BYTE onlymove.l #$00000100,a0 * point to memory to addressmove.b #$80,(a0)+ * populate test datamove.b #$FC,(a0)+ * populate test datamove.b #$01,(a0)+ * populate test datamove.l #$00000103,a0 * point to memory to addressbclr.b d5,-(a0)beq.s * * branch if Z setbclr.b d6,-(a0) *bne.s * * branch if Z clearbclr.b d7,-(a0) *beq.s * * branch if Z setmove.l #$00000103,a0 * point to memory to address 0x100cmpi.b #$00,-(a0)bne.s * * branch if Z clearcmpi.b #$FC,-(a0)bne.s * * branch if Z clearcmpi.b #$00,-(a0)bne.s * * branch if Z clear* EA = n(An) - BYTE onlymove.l #$00000100,a0 * point to memory to addressmove.b #$01,(a0)+ * populate test datamove.b #$FC,(a0)+ * populate test datamove.b #$80,(a0)+ * populate test datamove.l #$00000100,a0 * point to memory to addressbclr.b d5,0(a0)beq.s * * branch if Z setbclr.b d6,1(a0) *bne.s * * branch if Z clearbclr.b d7,2(a0) *beq.s * * branch if Z setmove.l #$00000100,a0 * point to memory to address 0x100cmpi.b #$00,(a0)+bne.s * * branch if Z clearcmpi.b #$FC,(a0)+bne.s * * branch if Z clearcmpi.b #$00,(a0)+bne.s * * branch if Z clear* EA = n(An,R.W) - BYTE onlymove.l #$00000100,a0 * point to memory to addressmove.b #$FF,(a0)+ * populate test datamove.b #$FF,(a0)+ * populate test datamove.b #$FF,(a0)+ * populate test datamove.l #$00000103,a0 * point to memory to addressmove.l #$00000100,a0 * point to memory to addressmove.l #$00000000,a1 * point to memory to addressmove.l #$00000001,a2 * point to memory to addressmoveq #$00000000,d0 * point to memory to addressmoveq #$00000001,d1 * point to memory to addressbclr.b d5,0(a0,d0.w)beq.s * * branch if Z setbclr.b d6,0(a0,d1.w) *beq.s * * branch if Z setbclr.b d7,1(a0,d1.w) *beq.s * * branch if Z set* EA = n(An,R.L) - BYTE onlybclr.b d5,0(a0,d0.l)bne.s * * branch if Z clearbclr.b d6,0(a0,d1.l) *bne.s * * branch if Z clearbclr.b d7,1(a0,d1.l) *bne.s * * branch if Z clear* EA = n(An,A.W) - BYTE onlybclr.b d5,0(a0,a1.w)bne.s * * branch if Z clearbclr.b d6,0(a0,a2.w) *bne.s * * branch if Z clearbclr.b d7,1(a0,a2.w) *bne.s * * branch if Z clear* EA = n(An,A.L) - BYTE onlybclr.b d5,0(a0,a1.l)bne.s * * branch if Z clearbclr.b d6,0(a0,a2.l) *bne.s * * branch if Z clearbclr.b d7,1(a0,a2.l) *bne.s * * branch if Z clearmove.l #$00000100,a0 * point to memory to addresscmpi.b #$FE,(a0)bne.s * * branch if Z clear* EA = x.W - BYTE onlymove.l #$00000100,a0 * point to memory to addressmove.b #$FF,(a0)+ * populate test datamove.b #$FF,(a0)+ * populate test datamove.b #$FF,(a0)+ * populate test databclr.b d5,$0100beq.s * * branch if Z setbclr.b d6,$0101 *beq.s * * branch if Z setbclr.b d7,$0102 *beq.s * * branch if Z setmove.l #$00000100,a0 * point to memory to addresscmpi.b #$FE,(a0)+bne.s * * branch if Z clear* EA = x.L - BYTE onlymove.l #$F100,a0 * point to memory to address 0x100move.b #$01,(a0)+ * populate test datamove.b #$FC,(a0)+ * populate test datamove.b #$80,(a0)+ * populate test databclr.b d5,$F100beq.s * * branch if Z setbclr.b d6,$F101 *bne.s * * branch if Z clearbclr.b d7,$F102 *beq.s * * branch if Z setmove.l #$F101,a0 * point to memory to address 0x100cmpi.b #$FC,(a0)bne.s * * branch if Z clearrts*-----------------------------------------------------------*-----------------------------------------------------------* OPCODE : BSET*-----------------------------------------------------------*-----------------------------------------------------------op_BSET:* Bit Number.s Static* EA = Dn - LONG onlymoveq #$00000000,d0 * populate test databset.l #0,d0bne.s * * branch if Z clearbset.l #1,d0 *bne.s * * branch if Z clearbset.l #15,d0 *bne.s * * branch if Z clearbset.l #31,d0 *bne.s * * branch if Z clearcmpi.l #$80008003,d0bne.s * * branch if Z clear* EA = (An) - BYTE onlymove.l #$00000100,a0 * point to memory to address 0x100move.b #$00,(a0) * populate test databset.b #0,(a0)bne.s * * branch if Z clearbset.b #7,(a0) *bne.s * * branch if Z clearcmpi.b #$81,(a0)bne.s * * branch if Z clear* EA = (An)+ - BYTE onlymove.l #$00000100,a0 * point to memory to address 0x100move.b #$00,(a0)+ * populate test datamove.b #$00,(a0)+ * populate test datamove.l #$00000100,a0 * point to memory to address 0x100bset.b #0,(a0)+bne.s * * branch if Z clearbset.b #1,(a0)+ *bne.s * * branch if Z clearmove.l #$00000100,a0 * point to memory to address 0x100cmpi.b #$01,(a0)+bne.s * * branch if Z clearcmpi.b #$02,(a0)+bne.s * * branch if Z clear* EA = -(An) - BYTE onlymove.l #$00000100,a0 * point to memory to addressmove.b #$00,(a0)+ * populate test datamove.b #$00,(a0)+ * populate test databset.b #7,-(a0)bne.s * * branch if Z clearbset.b #0,-(a0) *bne.s * * branch if Z clearmove.l #$00000102,a0 * point to memory to address 0x100cmpi.b #$80,-(a0)bne.s * * branch if Z clearcmpi.b #$01,-(a0)bne.s * * branch if Z clear* EA = n(An) - BYTE onlymove.l #$00000100,a0 * point to memory to addressmove.b #$00,(a0)+ * populate test datamove.b #$00,(a0)+ * populate test datamove.l #$00000100,a0 * point to memory to addressbset.b #0,0(a0)bne.s * * branch if Z clearbset.b #4,1(a0) *bne.s * * branch if Z clearmove.l #$00000100,a0 * point to memory to address 0x100cmpi.b #$01,(a0)+bne.s * * branch if Z clearcmpi.b #$10,(a0)+bne.s * * branch if Z clear* EA = n(An,D.W) - BYTE onlymove.l #$00000100,a0 * point to memory to addressmove.l #$00000000,a1 * point to memory to addressmove.l #$00000004,a2 * point to memory to addressmoveq #$00000000,d0 * point to memory to addressmoveq #$00000001,d1 * point to memory to addressmove.b #$00,(a0)+ * populate test datamove.b #$00,(a0)+ * populate test datamove.b #$00,(a0)+ * populate test datamove.b #$00,(a0)+ * populate test datamove.b #$00,(a0)+ * populate test datamove.b #$00,(a0)+ * populate test datamove.b #$00,(a0)+ * populate test datamove.b #$00,(a0)+ * populate test datamove.b #$00,(a0)+ * populate test datamove.b #$00,(a0)+ * populate test datamove.l #$00000100,a0 * point to memory to addressbset.b #0,0(a0,d0.w)bne.s * * branch if Z clearbset.b #1,0(a0,d1.w) *bne.s * * branch if Z clearbset.b #2,1(a0,d1.w) *bne.s * * branch if Z clear* EA = n(An,D.L) - BYTE onlybset.b #3,2(a0,d0.l)bne.s * * branch if Z clearbset.b #4,0(a0,d1.l) *bne.s * * branch if Z clearbset.b #5,1(a0,d1.l) *bne.s * * branch if Z clear* EA = n(An,A.W) - BYTE onlybset.b #6,0(a0,a1.w)bne.s * * branch if Z clearbset.b #1,0(a0,a2.w) *bne.s * * branch if Z clearbset.b #7,1(a0,a2.w) *bne.s * * branch if Z clear* EA = n(An,A.L) - BYTE onlybset.b #0,2(a0,a2.l)bne.s * * branch if Z clearbset.b #0,3(a0,a2.l) *bne.s * * branch if Z clearbset.b #1,4(a0,a2.l) *bne.s * * branch if Z clearmove.l #$00000100,a0 * point to memory to address 0x100cmpi.l #$41122C00,(a0)+bne.s * * branch if Z clearcmpi.l #$02800101,(a0)+bne.s ** EA = x.W - BYTE onlymove.l #$00000100,a0 * point to memory to addressmove.b #$00,(a0)+ * populate test databset.b #0,$0100bne.s * * branch if Z clearbset.b #1,$0100 *bne.s * * branch if Z clearmove.l #$00000100,a0 * point to memory to address 0x100cmpi.b #$03,(a0)+bne.s ** EA = x.L - BYTE onlymove.l #$F100,a0 * point to memory to address 0x100move.b #$00,(a0) * populate test databset.b #0,$F100bne.s * * branch if Z clearbset.b #1,$F100 *bne.s * * branch if Z clearbset.b #2,$F100 *bne.s * * branch if Z clearmove.l #$F100,a0 * point to memory to address 0x100cmpi.b #$07,(a0)+bne.s ** Bit Number.s Dynamic* EA = Dn - LONG onlymoveq #$00000000,d0 * populate test datamove.l #0,d5 * populate bit.s number to testmove.l #1,d6 * populate bit.s number to testmove.l #31,d7 * populate bit.s number to testbset.l d5,d0bne.s * * branch if Z clearbset.l d6,d0 *bne.s * * branch if Z clearbset.l d7,d0 *bne.s * * branch if Z clearcmpi.l #$80000003,d0bne.s * * branch if Z clear* EA = (An) - BYTE onlymove.l #0,d5 * populate bit.s number to testmove.l #1,d6 * populate bit.s number to testmove.l #7,d7 * populate bit.s number to testmove.l #$00000100,a0 * point to memory to address 0x100move.b #$00,(a0) * populate test databset.b d5,(a0)bne.s * * branch if Z clearbset.b d6,(a0) *bne.s * * branch if Z clearbset.b d7,(a0) *bne.s * * branch if Z clearcmpi.b #$83,(a0)bne.s * * branch if Z clear* EA = (An)+ - BYTE onlymove.l #$00000100,a0 * point to memory to address 0x100move.b #$00,(a0)+ * populate test datamove.b #$00,(a0)+ * populate test datamove.b #$00,(a0)+ * populate test datamove.l #$00000100,a0 * point to memory to address 0x100bset.b d5,(a0)+bne.s * * branch if Z clearbset.b d6,(a0)+ *bne.s * * branch if Z clearbset.b d7,(a0)+ *bne.s * * branch if Z clearmove.l #$00000100,a0 * point to memory to address 0x100cmpi.b #$01,(a0)+bne.s * * branch if Z clearcmpi.b #$02,(a0)+bne.s * * branch if Z clearcmpi.b #$80,(a0)+bne.s * * branch if Z clear* EA = -(An) - BYTE onlymove.l #$00000100,a0 * point to memory to addressmove.b #$00,(a0)+ * populate test datamove.b #$00,(a0)+ * populate test datamove.b #$00,(a0)+ * populate test datamove.l #$00000103,a0 * point to memory to addressbset.b d5,-(a0)bne.s * * branch if Z clearbset.b d6,-(a0) *bne.s * * branch if Z clearbset.b d7,-(a0) *bne.s * * branch if Z clearmove.l #$00000103,a0 * point to memory to address 0x100cmpi.b #$01,-(a0)bne.s * * branch if Z clearcmpi.b #$02,-(a0)bne.s * * branch if Z clearcmpi.b #$80,-(a0)bne.s * * branch if Z clear* EA = n(An) - BYTE onlymove.l #$00000100,a0 * point to memory to addressmove.b #$00,(a0)+ * populate test datamove.b #$00,(a0)+ * populate test datamove.b #$00,(a0)+ * populate test datamove.l #$00000100,a0 * point to memory to addressbset.b d5,0(a0)bne.s * * branch if Z clearbset.b d6,1(a0) *bne.s * * branch if Z clearbset.b d7,2(a0) *bne.s * * branch if Z clearmove.l #$00000100,a0 * point to memory to address 0x100cmpi.b #$01,(a0)+bne.s * * branch if Z clearcmpi.b #$02,(a0)+bne.s * * branch if Z clearcmpi.b #$80,(a0)+bne.s * * branch if Z clear* EA = n(An,R.W) - BYTE onlymove.l #$00000100,a0 * point to memory to addressmove.b #$00,(a0)+ * populate test datamove.b #$00,(a0)+ * populate test datamove.b #$00,(a0)+ * populate test datamove.b #$00,(a0)+ * populate test datamove.b #$00,(a0)+ * populate test datamove.b #$00,(a0)+ * populate test datamove.b #$00,(a0)+ * populate test datamove.b #$00,(a0)+ * populate test datamove.b #$00,(a0)+ * populate test datamove.b #$00,(a0)+ * populate test datamove.b #$00,(a0)+ * populate test datamove.b #$00,(a0)+ * populate test datamove.l #$00000100,a0 * point to memory to addressmove.l #$00000000,a1 * point to memory to addressmove.l #$00000001,a2 * point to memory to addressmoveq #$00000000,d0 * point to memory to addressmoveq #$00000001,d1 * point to memory to addressbset.b d5,0(a0,d0.w)bne.s * * branch if Z clearbset.b d6,0(a0,d1.w) *bne.s * * branch if Z clearbset.b d7,1(a0,d1.w) *bne.s * * branch if Z clear* EA = n(An,R.L) - BYTE onlybset.b d5,2(a0,d0.l)bne.s * * branch if Z clearbset.b d6,3(a0,d1.l) *bne.s * * branch if Z clearbset.b d7,4(a0,d1.l) *bne.s * * branch if Z clear* EA = n(An,A.W) - BYTE onlybset.b d5,5(a0,a1.w)bne.s * * branch if Z clearbset.b d6,6(a0,a2.w) *bne.s * * branch if Z clearbset.b d7,7(a0,a2.w) *bne.s * * branch if Z clear* EA = n(An,A.L) - BYTE onlybset.b d5,8(a0,a1.l)bne.s * * branch if Z clearbset.b d6,9(a0,a2.l) *bne.s * * branch if Z clearbset.b d7,10(a0,a2.l) *bne.s * * branch if Z clearmove.l #$00000100,a0 * point to memory to address 0x100cmpi.l #$01028100,(a0)+bne.s * * branch if Z clearcmpi.l #$02810002,(a0)+bne.s ** EA = x.W - BYTE onlymove.l #$00000100,a0 * point to memory to addressmove.b #$00,(a0)+ * populate test datamove.b #$00,(a0)+ * populate test datamove.b #$00,(a0)+ * populate test databset.b d5,$0100bne.s * * branch if Z clearbset.b d6,$0100 *bne.s * * branch if Z clearbset.b d7,$0100 *bne.s * * branch if Z clearmove.l #$00000100,a0 * point to memory to addresscmpi.b #$83,(a0)+bne.s * * branch if Z clear* EA = x.L - BYTE onlymove.l #$F100,a0 * point to memory to address 0x100move.b #$00,(a0)+ * populate test datamove.b #$00,(a0)+ * populate test datamove.b #$00,(a0)+ * populate test databset.b d5,$F100bne.s * * branch if Z clearbset.b d6,$F100 *bne.s * * branch if Z clearbset.b d7,$F100 *bne.s * * branch if Z clearmove.l #$F100,a0 * point to memory to address 0x100cmpi.b #$83,(a0)bne.s * * branch if Z clearrts*-----------------------------------------------------------*-----------------------------------------------------------* OPCODE : MOVEP*-----------------------------------------------------------*-----------------------------------------------------------op_MOVEP:* Dn --> x(An)move.l #$00000100,a0move.l #$12345678,d0move.l #$AABBCCDD,d1move.l #0,(a0)move.l #0,4(a0)movep.w d0,0(a0) * even offsetmovep.w d1,1(a0) * odd offsetmovep.l d0,4(a0) * even offsetmovep.l d1,5(a0) * odd offsetcmpi.l #$56CC78DD,(a0)bne.s *cmpi.l #$12AA34BB,4(a0)bne.s *cmpi.l #$56CC78DD,8(a0)bne.s ** x(An)--> Dnmove.l #$5a5a5a5a,d0move.l #$5a5a5a5a,d1move.l #$5a5a5a5a,d2move.l #$5a5a5a5a,d3movep.w 0(a0),d0 * even offsetmovep.w 1(a0),d1 * odd offsetmovep.l 4(a0),d2 * even offsetmovep.l 5(a0),d3 * odd offsetcmpi.l #$5a5a5678,d0bne.s *cmpi.l #$5a5aCCDD,d1bne.s *cmpi.l #$12345678,d2bne.s *cmpi.l #$AABBCCDD,d3bne.s *rts*-----------------------------------------------------------*-----------------------------------------------------------* OPCODE : BOOL_I*-----------------------------------------------------------*-----------------------------------------------------------op_BOOL_I:* Dn -- BYTEmove.l #$12345678,d0move.w #$000F,CCR * pre-set Flagsori.b #$FF,d0eori.b #$5A,d0andi.b #$F0,d0bvs.s * * Check V,C are clearedbcs.s *bpl.s * * Verify if N flag is setandi.b #$00,d0bmi.s * * Verify if N flag is clearedbne.s * * Verify if Z flag is set* Dn -- WORDmove.l #$12345678,d1move.w #$000F,CCR * pre-set Flagsori.w #$FFFF,d1eori.w #$5A5A,d1andi.w #$F0F0,d1bvs.s * * Check V,C are clearedbcs.s *bpl.s * * Verify if N flag is setandi.w #$0000,d1bmi.s * * Verify if N flag is clearedbne.s * * Verify if Z flag is set* Dn -- LONGmove.l #$12345678,d2move.w #$000F,CCR * pre-set Flagsori.l #$FFFFFFFF,d2eori.l #$5A5A5A5A,d2andi.l #$F0F0F0F0,d2bvs.s * * Check V,C are clearedbcs.s *bpl.s * * Verify if N flag is setandi.l #$00000000,d2bmi.s * * Verify if N flag is clearedbne.s * * Verify if Z flag is set* (An) -- BYTEmove.l #$00000100,a0move.l #$12345678,(a0)move.w #$000F,CCR * pre-set Flagsori.b #$FF,(a0)eori.b #$5A,(a0)andi.b #$F0,(a0)bvs.s * * Check V,C are clearedbcs.s *bpl.s * * Verify if N flag is setandi.b #$00,(a0)bmi.s * * Verify if N flag is clearedbne.s * * Verify if Z flag is setcmpi.b #$00,(a0)bne.s * * Verify if Z flag is set* (An) -- WORDmove.l #$12345678,(a0)move.w #$000F,CCR * pre-set Flagsori.w #$FFFF,(a0)eori.w #$5A5A,(a0)andi.w #$F0F0,(a0)bvs.s * * Check V,C are clearedbcs.s *bpl.s * * Verify if N flag is setandi.w #$0000,(a0)bmi.s * * Verify if N flag is clearedbne.s * * Verify if Z flag is setcmpi.w #$00,(a0)bne.s * * Verify if Z flag is set* (An) -- LONGmove.l #$12345678,(a0)move.w #$000F,CCR * pre-set Flagsori.l #$FFFFFFFF,(a0)eori.l #$5A5A5A5A,(a0)andi.l #$F0F0F0F0,(a0)bvs.s * * Check V,C are clearedbcs.s *bpl.s * * Verify if N flag is setandi.l #$00000000,(a0)bmi.s * * Verify if N flag is clearedbne.s * * Verify if Z flag is setcmpi.l #$00,(a0)bne.s * * Verify if Z flag is set* (An)+ -- BYTEmove.l #$00000100,a0move.l #$00A5FF88,(a0)move.w #$000F,CCR * pre-set Flagsori.b #$F5,(a0)+bpl.s * * Verify if N flag is setbeq.s * * Verify if Z flag is clearedeori.b #$FF,(a0)+bmi.s * * Verify if N flag is clearedbeq.s * * Verify if Z flag is clearedandi.b #$AA,(a0)+bpl.s * * Verify if N flag is setbeq.s * * Verify if Z flag is clearedmove.l #$00000100,a0cmpi.l #$F55AAA88,(a0)bne.s * * Verify if Z flag is set* (An)+ -- WORDmove.l #$00000100,a0move.l #$00000104,a1move.l #$00005a5a,(a0)move.l #$12345678,(a1)move.w #$000F,CCR * pre-set Flagsori.w #$5678,(a0)+bmi.s * * Verify if N flag is clearedbeq.s * * Verify if Z flag is clearedeori.w #$FFFF,(a0)+bpl.s * * Verify if N flag is setbeq.s * * Verify if Z flag is clearedandi.w #$A55A,(a0)+bmi.s * * Verify if N flag is clearedbeq.s * * Verify if Z flag is clearedmove.l #$00000100,a0cmpi.l #$5678a5a5,(a0)move.l #$00000104,a0cmpi.l #$00105678,(a0)bne.s * * Verify if Z flag is set* (An)+ -- LONGmove.l #$00000100,a0move.l #$00000000,(a0)+move.l #$5a5a5a5a,(a0)+move.l #$FFFFFFFF,(a0)+move.l #$00000100,a0move.w #$000F,CCR * pre-set Flagsori.l #$12345678,(a0)+bmi.s * * Verify if N flag is clearedbeq.s * * Verify if Z flag is clearedeori.l #$FFFFFFFF,(a0)+bpl.s * * Verify if N flag is setbeq.s * * Verify if Z flag is clearedandi.l #$A5A5A55A,(a0)+bpl.s * * Verify if N flag is setbeq.s * * Verify if Z flag is clearedmove.l #$00000100,a0cmpi.l #$12345678,(a0)+cmpi.l #$a5a5a5a5,(a0)+cmpi.l #$a5a5a55a,(a0)+bne.s * * Verify if Z flag is setrts*-----------------------------------------------------------*-----------------------------------------------------------* OPCODE : BSR*-----------------------------------------------------------*-----------------------------------------------------------BSR_CLOSE1: move.l #$11111111,d1rtsop_BSR: bsr BSR_CLOSE1 * Negative 8-bit.s displacementbsr BSR_CLOSE2 * Positive 8-bit.s displacementbsr.w BSR_FAR1 * Negative 16-bit.s displacementbsr.w BSR_FAR2 * Positive 16-bit.s displacementcmpi.l #$11111111,d1bne.s *cmpi.l #$22222222,d2bne.s *cmpi.l #$33333333,d3bne.s *cmpi.l #$44444444,d4bne.s *rtsBSR_CLOSE2: move.l #$22222222,d2rts*-----------------------------------------------------------*-----------------------------------------------------------* OPCODE : op_CMP_I*-----------------------------------------------------------*-----------------------------------------------------------op_CMP_I:move.l #$00000100,a0move.l #$00000100,(a0)* REGISTER - BYTEmove.l #$FFFFFF80,d0cmpi.b #$80,d0bne.s * * Check Z Flag beq/bnebmi.s * * Check N Flag bmi/bplbcs.s * * Check C Flag bcc/bcsbvs.s * * Check V Flag bvc/bvsmove.l #$FFFFF000,d1cmpi.b #$00,d1bne.s * * Check Z Flag beq/bnebmi.s * * Check N Flag bmi/bplbcs.s * * Check C Flag bcc/bcsbvs.s * * Check V Flag bvc/bvsmove.l #$FFFFFF02,d2cmpi.b #$FF,d2beq.s * * Check Z Flag beq/bnebmi.s * * Check N Flag bmi/bplbcc.s * * Check C Flag bcc/bcsbvs.s * * Check V Flag bvc/bvsmove.l #$FFFFFF7F,d3cmpi.b #$FF,d3beq.s * * Check Z Flag beq/bnebpl.s * * Check N Flag bmi/bplbcc.s * * Check C Flag bcc/bcsbvc.s * * Check V Flag bvc/bvs* REGISTER - WORDmove.l #$FFFF8000,d0cmpi.w #$8000,d0bne.s * * Check Z Flag beq/bnebmi.s * * Check N Flag bmi/bplbcs.s * * Check C Flag bcc/bcsbvs.s * * Check V Flag bvc/bvsmove.l #$FFF00000,d1cmpi.w #$0000,d1bne.s * * Check Z Flag beq/bnebmi.s * * Check N Flag bmi/bplbcs.s * * Check C Flag bcc/bcsbvs.s * * Check V Flag bvc/bvsmove.l #$FFFF0002,d2cmpi.w #$FFFF,d2beq.s * * Check Z Flag beq/bnebmi.s * * Check N Flag bmi/bplbcc.s * * Check C Flag bcc/bcsbvs.s * * Check V Flag bvc/bvsmove.l #$FFFF7FFF,d3cmpi.w #$FFFF,d3beq.s * * Check Z Flag beq/bnebpl.s * * Check N Flag bmi/bplbcc.s * * Check C Flag bcc/bcsbvc.s * * Check V Flag bvc/bvs* REGISTER - LONGmove.l #$80000000,d0cmpi.l #$80000000,d0bne.s * * Check Z Flag beq/bnebmi.s * * Check N Flag bmi/bplbcs.s * * Check C Flag bcc/bcsbvs.s * * Check V Flag bvc/bvsmoveq #$00000000,d1cmpi.l #$00000000,d1bne.s * * Check Z Flag beq/bnebmi.s * * Check N Flag bmi/bplbcs.s * * Check C Flag bcc/bcsbvs.s * * Check V Flag bvc/bvsmoveq #$00000002,d2cmpi.l #$FFFFFFFF,d2beq.s * * Check Z Flag beq/bnebmi.s * * Check N Flag bmi/bplbcc.s * * Check C Flag bcc/bcsbvs.s * * Check V Flag bvc/bvsmove.l #$7FFFFFFF,d3cmpi.l #$FFFFFFFF,d3beq.s * * Check Z Flag beq/bnebpl.s * * Check N Flag bmi/bplbcc.s * * Check C Flag bcc/bcsbvc.s * * Check V Flag bvc/bvs* EA=x(An,Dn) - BYTEmove.l #$00000100,a0moveq #$00000004,d7move.l #$FFFFFF80,12(a0,d7)move.l #$FFFFFF80,12(a0,d7)cmpi.b #$80,15(a0,d7)bne.s * * Check Z Flag beq/bnebmi.s * * Check N Flag bmi/bplbcs.s * * Check C Flag bcc/bcsbvs.s * * Check V Flag bvc/bvsmove.l #$FFFFF000,12(a0,d7)cmpi.b #$00,15(a0,d7)bne.s * * Check Z Flag beq/bnebmi.s * * Check N Flag bmi/bplbcs.s * * Check C Flag bcc/bcsbvs.s * * Check V Flag bvc/bvsmove.l #$FFFFFF02,12(a0,d7)cmpi.b #$FF,15(a0,d7)beq.s * * Check Z Flag beq/bnebmi.s * * Check N Flag bmi/bplbcc.s * * Check C Flag bcc/bcsbvs.s * * Check V Flag bvc/bvsmove.l #$FFFFFF7F,12(a0,d7)cmpi.b #$FF,15(a0,d7)beq.s * * Check Z Flag beq/bnebpl.s * * Check N Flag bmi/bplbcc.s * * Check C Flag bcc/bcsbvc.s * * Check V Flag bvc/bvs* EA=x(An,Dn) - WORDmove.l #$FFFF8000,12(a0,d7)cmpi.w #$8000,14(a0,d7)bne.s * * Check Z Flag beq/bnebmi.s * * Check N Flag bmi/bplbcs.s * * Check C Flag bcc/bcsbvs.s * * Check V Flag bvc/bvsmove.l #$FFF00000,12(a0,d7)cmpi.w #$0000,14(a0,d7)bne.s * * Check Z Flag beq/bnebmi.s * * Check N Flag bmi/bplbcs.s * * Check C Flag bcc/bcsbvs.s * * Check V Flag bvc/bvsmove.l #$FFFF0002,12(a0,d7)cmpi.w #$FFFF,14(a0,d7)beq.s * * Check Z Flag beq/bnebmi.s * * Check N Flag bmi/bplbcc.s * * Check C Flag bcc/bcsbvs.s * * Check V Flag bvc/bvsmove.l #$FFFF7FFF,12(a0,d7)cmpi.w #$FFFF,14(a0,d7)beq.s * * Check Z Flag beq/bnebpl.s * * Check N Flag bmi/bplbcc.s * * Check C Flag bcc/bcsbvc.s * * Check V Flag bvc/bvs* EA=x(An,Dn) - LONGmove.l #$80000000,12(a0,d7)cmpi.l #$80000000,12(a0,d7)bne.s * * Check Z Flag beq/bnebmi.s * * Check N Flag bmi/bplbcs.s * * Check C Flag bcc/bcsbvs.s * * Check V Flag bvc/bvsmove.l #$00000000,12(a0,d7)cmpi.l #$00000000,12(a0,d7)bne.s * * Check Z Flag beq/bnebmi.s * * Check N Flag bmi/bplbcs.s * * Check C Flag bcc/bcsbvs.s * * Check V Flag bvc/bvsmove.l #$00000002,12(a0,d7)cmpi.l #$FFFFFFFF,12(a0,d7)beq.s * * Check Z Flag beq/bnebmi.s * * Check N Flag bmi/bplbcc.s * * Check C Flag bcc/bcsbvs.s * * Check V Flag bvc/bvsmove.l #$7FFFFFFF,12(a0,d7)cmpi.l #$FFFFFFFF,12(a0,d7)beq.s * * Check Z Flag beq/bnebpl.s * * Check N Flag bmi/bplbcc.s * * Check C Flag bcc/bcsbvc.s * * Check V Flag bvc/bvsrts*-----------------------------------------------------------*-----------------------------------------------------------* OPCODE : ADD_I*-----------------------------------------------------------*-----------------------------------------------------------op_ADD_I:* EA = Dn - Bytemove.l #$12345678,d0 * populate test dataaddi.b #0,d0beq.s * * Check Z Flag beq/bnebmi.s * * Check N Flag bmi/bplbcs.s * * Check C Flag bcc/bcsbvs.s * * Check V Flag bvc/bvsaddi.b #$10,d0beq.s * * Check Z Flag beq/bnebpl.s * * Check N Flag bmi/bplbcs.s * * Check C Flag bcc/bcsbvc.s * * Check V Flag bvc/bvsaddi.b #$A5,d0beq.s * * Check Z Flag beq/bnebmi.s * * Check N Flag bmi/bplbcc.s * * Check C Flag bcc/bcsbvc.s * * Check V Flag bvc/bvscmpi.b #$2D,d0bne.s * * Check Z Flag beq/bne* EA = Dn - WORDmove.l #$12345678,d0 * populate test dataaddi.w #0,d0beq.s * * Check Z Flag beq/bnebmi.s * * Check N Flag bmi/bplbcs.s * * Check C Flag bcc/bcsbvs.s * * Check V Flag bvc/bvsaddi.w #$7000,d0beq.s * * Check Z Flag beq/bnebpl.s * * Check N Flag bmi/bplbcs.s * * Check C Flag bcc/bcsbvc.s * * Check V Flag bvc/bvsaddi.w #$A55A,d0beq.s * * Check Z Flag beq/bnebmi.s * * Check N Flag bmi/bplbcc.s * * Check C Flag bcc/bcsbvc.s * * Check V Flag bvc/bvscmpi.w #$6BD2,d0bne.s * * Check Z Flag beq/bne* EA = Dn - LONGmove.l #$12345678,d0 * populate test dataaddi.l #0,d0beq.s * * Check Z Flag beq/bnebmi.s * * Check N Flag bmi/bplbcs.s * * Check C Flag bcc/bcsbvs.s * * Check V Flag bvc/bvsaddi.l #$F0000000,d0beq.s * * Check Z Flag beq/bnebmi.s * * Check N Flag bmi/bplbcc.s * * Check C Flag bcc/bcsbvs.s * * Check V Flag bvc/bvsaddi.l #$855AA55A,d0beq.s * * Check Z Flag beq/bnebpl.s * * Check N Flag bmi/bplbcs.s * * Check C Flag bcc/bcsbvs.s * * Check V Flag bvc/bvsaddi.l #$A0000000,d0bvc.s * * Check V Flag bvc/bvscmpi.l #$278EFBD2,d0bne.s * * Check Z Flag beq/bne* EA = x.L - Bytemove.l #$F100,a0 * populate test datamove.l #$12345678,(a0) * populate test dataaddi.b #0,$F103beq.s * * Check Z Flag beq/bnebmi.s * * Check N Flag bmi/bplbcs.s * * Check C Flag bcc/bcsbvs.s * * Check V Flag bvc/bvsaddi.b #$10,$F103beq.s * * Check Z Flag beq/bnebpl.s * * Check N Flag bmi/bplbcs.s * * Check C Flag bcc/bcsbvc.s * * Check V Flag bvc/bvsaddi.b #$A5,$F103beq.s * * Check Z Flag beq/bnebmi.s * * Check N Flag bmi/bplbcc.s * * Check C Flag bcc/bcsbvc.s * * Check V Flag bvc/bvscmpi.b #$2D,$F103bne.s * * Check Z Flag beq/bne* EA = x.L- WORDmove.l #$F100,a0 * populate test datamove.l #$12345678,(a0) * populate test dataaddi.w #0,$F100beq.s * * Check Z Flag beq/bnebmi.s * * Check N Flag bmi/bplbcs.s * * Check C Flag bcc/bcsbvs.s * * Check V Flag bvc/bvsaddi.w #$7000,$F100beq.s * * Check Z Flag beq/bnebpl.s * * Check N Flag bmi/bplbcs.s * * Check C Flag bcc/bcsbvc.s * * Check V Flag bvc/bvsaddi.w #$A55A,$F100beq.s * * Check Z Flag beq/bnebmi.s * * Check N Flag bmi/bplbcc.s * * Check C Flag bcc/bcsbvc.s * * Check V Flag bvc/bvscmpi.w #$278E,$F100bne.s * * Check Z Flag beq/bne* EA = x.L- LONGmove.l #$12345678,$F100 * populate test dataaddi.l #0,$F100beq.s * * Check Z Flag beq/bnebmi.s * * Check N Flag bmi/bplbcs.s * * Check C Flag bcc/bcsbvs.s * * Check V Flag bvc/bvsaddi.l #$F0000000,$F100beq.s * * Check Z Flag beq/bnebmi.s * * Check N Flag bmi/bplbcc.s * * Check C Flag bcc/bcsbvs.s * * Check V Flag bvc/bvsaddi.l #$855AA55A,$F100beq.s * * Check Z Flag beq/bnebpl.s * * Check N Flag bmi/bplbcs.s * * Check C Flag bcc/bcsbvs.s * * Check V Flag bvc/bvsaddi.l #$A0000000,$F100bvc.s * * Check V Flag bvc/bvscmpi.l #$278EFBD2,$F100bne.s * * Check Z Flag beq/bnerts*-----------------------------------------------------------*-----------------------------------------------------------* OPCODE : SUB_I*-----------------------------------------------------------*-----------------------------------------------------------op_SUB_I:* EA = Dn - Bytemove.l #$12345678,d0 * populate test datasubi.b #0,d0beq.s * * Check Z Flag beq/bnebmi.s * * Check N Flag bmi/bplbcs.s * * Check C Flag bcc/bcsbvs.s * * Check V Flag bvc/bvssubi.b #$10,d0beq.s * * Check Z Flag beq/bnebmi.s * * Check N Flag bmi/bplbcs.s * * Check C Flag bcc/bcsbvs.s * * Check V Flag bvc/bvssubi.b #$A5,d0beq.s * * Check Z Flag beq/bnebpl.s * * Check N Flag bmi/bplbcc.s * * Check C Flag bcc/bcsbvc.s * * Check V Flag bvc/bvscmpi.b #$C3,d0bne.s * * Check Z Flag beq/bne* EA = Dn - WORDmove.l #$12345678,d0 * populate test datasubi.w #0,d0beq.s * * Check Z Flag beq/bnebmi.s * * Check N Flag bmi/bplbcs.s * * Check C Flag bcc/bcsbvs.s * * Check V Flag bvc/bvssubi.w #$7000,d0beq.s * * Check Z Flag beq/bnebpl.s * * Check N Flag bmi/bplbcc.s * * Check C Flag bcc/bcsbvs.s * * Check V Flag bvc/bvssubi.w #$A55A,d0beq.s * * Check Z Flag beq/bnebmi.s * * Check N Flag bmi/bplbcs.s * * Check C Flag bcc/bcsbvs.s * * Check V Flag bvc/bvscmpi.w #$411E,d0bne.s * * Check Z Flag beq/bne* EA = Dn - LONGmove.l #$12345678,d0 * populate test datasubi.l #0,d0beq.s * * Check Z Flag beq/bnebmi.s * * Check N Flag bmi/bplbcs.s * * Check C Flag bcc/bcsbvs.s * * Check V Flag bvc/bvssubi.l #$F0000000,d0beq.s * * Check Z Flag beq/bnebmi.s * * Check N Flag bmi/bplbcc.s * * Check C Flag bcc/bcsbvs.s * * Check V Flag bvc/bvssubi.l #$855AA55A,d0beq.s * * Check Z Flag beq/bnebpl.s * * Check N Flag bmi/bplbcc.s * * Check C Flag bcc/bcsbvc.s * * Check V Flag bvc/bvssubi.l #$A0000000,d0bvs.s * * Check V Flag bvc/bvscmpi.l #$FCD9B11E,d0bne.s * * Check Z Flag beq/bne* EA = x.L - Bytemove.l #$F100,a0 * populate test datamove.l #$12345678,(a0) * populate test datasubi.b #0,$F103beq.s * * Check Z Flag beq/bnebmi.s * * Check N Flag bmi/bplbcs.s * * Check C Flag bcc/bcsbvs.s * * Check V Flag bvc/bvssubi.b #$10,$F103beq.s * * Check Z Flag beq/bnebmi.s * * Check N Flag bmi/bplbcs.s * * Check C Flag bcc/bcsbvs.s * * Check V Flag bvc/bvssubi.b #$A5,$F103beq.s * * Check Z Flag beq/bnebpl.s * * Check N Flag bmi/bplbcc.s * * Check C Flag bcc/bcsbvc.s * * Check V Flag bvc/bvscmpi.b #$C3,$F103bne.s * * Check Z Flag beq/bne* EA = x.L- WORDmove.l #$F100,a0 * populate test datamove.l #$12345678,(a0) * populate test datasubi.w #0,$F100beq.s * * Check Z Flag beq/bnebmi.s * * Check N Flag bmi/bplbcs.s * * Check C Flag bcc/bcsbvs.s * * Check V Flag bvc/bvssubi.w #$7000,$F100beq.s * * Check Z Flag beq/bnebpl.s * * Check N Flag bmi/bplbcc.s * * Check C Flag bcc/bcsbvs.s * * Check V Flag bvc/bvssubi.w #$A55A,$F100beq.s * * Check Z Flag beq/bnebpl.s * * Check N Flag bmi/bplbcc.s * * Check C Flag bcc/bcsbvs.s * * Check V Flag bvc/bvscmpi.w #$FCDA,$F100bne.s * * Check Z Flag beq/bne* EA = x.L- LONGmove.l #$12345678,$F100 * populate test datasubi.l #0,$F100beq.s * * Check Z Flag beq/bnebmi.s * * Check N Flag bmi/bplbcs.s * * Check C Flag bcc/bcsbvs.s * * Check V Flag bvc/bvssubi.l #$F0000000,$F100beq.s * * Check Z Flag beq/bnebmi.s * * Check N Flag bmi/bplbcc.s * * Check C Flag bcc/bcsbvs.s * * Check V Flag bvc/bvssubi.l #$855AA55A,$F100beq.s * * Check Z Flag beq/bnebpl.s * * Check N Flag bmi/bplbcc.s * * Check C Flag bcc/bcsbvc.s * * Check V Flag bvc/bvssubi.l #$A0000000,$F100bvs.s * * Check V Flag bvc/bvscmpi.l #$FCD9B11E,$F100bne.s * * Check Z Flag beq/bnerts*-----------------------------------------------------------*-----------------------------------------------------------* OPCODE : MOVE*-----------------------------------------------------------*-----------------------------------------------------------op_MOVE:move.l #$11223344,d0move.l #$55667788,d1move.l #$8899aabb,d2move.l #$ccddeeff,d3moveq #$00000000,d4moveq #$00000000,d5moveq #$00000000,d6moveq #$00000000,d7move.l #$44332211,a0move.l #$88776655,a1move.l #$bbaa9988,a2move.l #$ffeeddcc,a3move.b d0,d4 * BYTE - DATA REGISTERbeq.s * * Check Z Flag beq/bnebmi.s * * Check N Flag bmi/bplcmpi.l #$00000044,d4bne.s * * Check Z Flag beq/bnemove.w d1,d5 * WORD - DATA REGISTERbeq.s * * Check Z Flag beq/bnebmi.s * * Check N Flag bmi/bplcmpi.l #$00007788,d5bne.s * * Check Z Flag beq/bnemove.l d2,d6 * LONG - DATA REGISTERbeq.s * * Check Z Flag beq/bnebpl.s * * Check N Flag bmi/bplcmpi.l #$8899aabb,d6bne.s * * Check Z Flag beq/bnemove.w a1,d5 * WORD - ADDRESS REGISTERbeq.s * * Check Z Flag beq/bnebmi.s * * Check N Flag bmi/bplcmpi.l #$00006655,d5bne.s * * Check Z Flag beq/bnemove.l a2,d6 * LONG - ADDRESS REGISTERbeq.s * * Check Z Flag beq/bnebpl.s * * Check N Flag bmi/bplcmpi.l #$bbaa9988,d6bne.s * * Check Z Flag beq/bnemovea.w d2,a4 * WORD - ADDRESS REGISTER as SOURCE ## MOVEAcmpa.l d2,a4beq.s * * Check Z Flag beq/bne ## comopare fails because A4 was sign extendedmovea.l d1,a5 * LONG - ADDRESS REGISTER as SOURCE ## MOVEAcmpa.l d1,a5bne.s * * Check Z Flag beq/bne* Too mamy EA combinations to test,so we focus on a few of the more complicted EA'smove.l #$11223344,d0move.l #$00010100,d1move.l #$8899aabb,d2moveq #$00000001,d3moveq #$00000000,d4moveq #$00000000,d5moveq #$00000000,d6moveq #$00000000,d7move.l #$00000000,a0move.l #$00010100,a1* x(An,AL) --> x.Lmove.b #$5A,4(a0,a1.l) * BYTElea 4(a0,a1.l),a3move.b 4(a0,a1.l),$00010105beq.s * * Check Z Flag beq/bnebmi.s * * Check N Flag bmi/bplcmpi.b #$5A,5(a0,a1.l)bne.s * * Check Z Flag beq/bne* x.L --> n(An,Dw)MOVE2: move.b $00010105,7(a0,d1.w) * BYTEbeq.s * * Check Z Flag beq/bnebmi.s * * Check N Flag bmi/bplcmpi.b #$5A,7(a0,d1.w)bne.s * * Check Z Flag beq/bne* x(PC,Ds) --> x.wmove.b MOVE1(pc,d3.w),$0100 * BYTEbeq.s * * Check Z Flag beq/bnebpl.s * * Check N Flag bmi/bplcmpi.b #$B9,1+MOVE2bne.s * * Check Z Flag beq/bne* #x --> n(An,AL)move.b #$78,7(a0,d1.w) * BYTEbeq.s * * Check Z Flag beq/bnebmi.s * * Check N Flag bmi/bplcmpi.b #$78,7(a0,d1.w)bne.s * * Check Z Flag beq/bnemove.l #$11223344,d0move.l #$00010100,d1move.l #$8899aabb,d2moveq #$00000002,d3moveq #$00000000,d4moveq #$00000000,d5moveq #$00000000,d6moveq #$00000000,d7move.l #$00000000,a0move.l #$00010100,a1* x(An,AL) --> x.Lmove.w #$5A5A,4(a0,a1.l) * WORDlea 4(a0,a1.l),a4move.w 4(a0,a1.l),$00010104beq.s * * Check Z Flag beq/bnebmi.s * * Check N Flag bmi/bplcmpi.w #$5A5A,4(a0,a1.l)bne.s * * Check Z Flag beq/bne* x.L --> n(An,Dw)MOVE1: move.w $00010104,6(a0,d1.w) * WORDbeq.s * * Check Z Flag beq/bnebmi.s * * Check N Flag bmi/bplcmpi.w #$5A5A,6(a0,d1.w)bne.s * * Check Z Flag beq/bne* x(PC,Ds) --> x.wmove.w MOVE1(pc,d3),$0100 * WORDbeq.s * * Check Z Flag beq/bnebmi.s * * Check N Flag bmi/bplcmpi.w #$67FE,8+MOVE1bne.s * * Check Z Flag beq/bne* #x --> n(An,AL)move.w #$7878,6(a0,d1.w) * WORDbeq.s * * Check Z Flag beq/bnebmi.s * * Check N Flag bmi/bplcmpi.w #$7878,6(a0,d1.w)bne.s * * Check Z Flag beq/bne* ---move.l #$11223344,d0move.l #$00010100,d1move.l #$8899aabb,d2moveq #$00000002,d3moveq #$00000000,d4moveq #$00000000,d5moveq #$00000000,d6moveq #$00000000,d7move.l #$00000000,a0move.l #$00010100,a1* x(An,AL) --> x.Lmove.l #$5A5A1234,4(a0,a1.l) * LONGlea 4(a0,a1.l),a4move.l 4(a0,a1.l),$00010104beq.s * * Check Z Flag beq/bnebmi.s * * Check N Flag bmi/bplcmpi.l #$5A5A1234,4(a0,a1.l)bne.s * * Check Z Flag beq/bne* x.L --> n(An,Dw)MOVE3: move.l $00010104,6(a0,d1.w) * LONGbeq.s * * Check Z Flag beq/bnebmi.s * * Check N Flag bmi/bplcmpi.l #$5A5A1234,6(a0,d1.w)bne.s * * Check Z Flag beq/bne* x(PC,Ds) --> x.wmove.l MOVE3(pc,d3),$0100 * LONGbeq.s * * Check Z Flag beq/bnebmi.s * * Check N Flag bmi/bplcmpi.l #$67FE6BFE,8+MOVE3bne.s * * Check Z Flag beq/bne* #x --> n(An,AL)move.l #$78782323,6(a0,d1.w) * LONGbeq.s * * Check Z Flag beq/bnebmi.s * * Check N Flag bmi/bplcmpi.l #$78782323,6(a0,d1.w)bne.s * * Check Z Flag beq/bnerts*-----------------------------------------------------------*-----------------------------------------------------------* OPCODE : MOVE_xxx_FLAGS*-----------------------------------------------------------*-----------------------------------------------------------op_MOVE_xxx_FLAGS:* Move_To_SR* Dnmove.w #$2FFF,d0move.w d0,SRbpl.s * * branch if Z clearbne.s * * branch if N clearbvc.s * * branch if V clearbcc.s * * branch if C clearmove.w #$2F00,d0move d0,CCRbeq.s * * branch if Z setbmi.s * * branch if N setbvs.s * * branch if V setbcs.s * * branch if C setmove.w #$2000,d0move.w d0,SRbeq.s * * branch if Z setbmi.s * * branch if N setbvs.s * * branch if V setbcs.s * * branch if C set* (An)move.l #$00000100,a0move.w #$2FFF,(a0)move.w (a0),SRbpl.s * * branch if Z clearbne.s * * branch if N clearbvc.s * * branch if V clearbcc.s * * branch if C clearmove.w #$2000,(a0)move.w (a0),SRbeq.s * * branch if Z setbmi.s * * branch if N setbvs.s * * branch if V setbcs.s * * branch if C set* (An)+move.l #$00000100,a0move.w #$2FFF,(a0)move.w (a0)+,SRbpl.s * * branch if Z clearbne.s * * branch if N clearbvc.s * * branch if V clearbcc.s * * branch if C clearmove.w #$2000,(a0)move.w (a0)+,SRbeq.s * * branch if Z setbmi.s * * branch if N setbvs.s * * branch if V setbcs.s * * branch if C set* -(An)move.l #$00000102,a0move.w #$2FFF,(a0)move.w (a0)+,SRbpl.s * * branch if Z clearbne.s * * branch if N clearbvc.s * * branch if V clearbcc.s * * branch if C clearmove.w #$2000,(a0)move.w (a0)+,SRbeq.s * * branch if Z setbmi.s * * branch if N setbvs.s * * branch if V setbcs.s * * branch if C set* n(An)move.l #$00000102,a0move.w #$2FFF,2(a0)move.w 2(a0),SRbpl.s * * branch if Z clearbne.s * * branch if N clearbvc.s * * branch if V clearbcc.s * * branch if C clearmove.w #$2000,2(a0)move.w 2(a0),SRbeq.s * * branch if Z setbmi.s * * branch if N setbvs.s * * branch if V setbcs.s * * branch if C set* n(An,Rn.l)move.l #$00000100,a0moveq #$00000002,d0move.w #$2FFF,2(a0,d0.l)move.w 2(a0,d0.l),SRbpl.s * * branch if Z clearbne.s * * branch if N clearbvc.s * * branch if V clearbcc.s * * branch if C clearmove.w #$2000,2(a0,d0.l)move.w 2(a0,d0.l),SRbeq.s * * branch if Z setbmi.s * * branch if N setbvs.s * * branch if V setbcs.s * * branch if C set* x.Wmove.w #$2FFF,$0100move.w $0100,SRbpl.s * * branch if Z clearbne.s * * branch if N clearbvc.s * * branch if V clearbcc.s * * branch if C clearmove.w #$2000,$0100move.w $0100,SRbeq.s * * branch if Z setbmi.s * * branch if N setbvs.s * * branch if V setbcs.s * * branch if C set* x.Lmove.w #$2FFF,$00010100move.w $00010100,SRbpl.s * * branch if Z clearbne.s * * branch if N clearbvc.s * * branch if V clearbcc.s * * branch if C clearMOVE4: move.w #$2000,$00010100move.w $00010100,SRbeq.s * * branch if Z setbmi.s * * branch if N setbvs.s * * branch if V setbcs.s * * branch if C set* x(PC)move.w MOVE4+2(pc),SRbeq.s * * branch if Z setbmi.s * * branch if N setbvs.s * * branch if V setbcs.s * * branch if C set* x(PC,d0.l)moveq #$00000000,d0move.w MOVE4+2(pc,d0.l),SRbeq.s * * branch if Z setbmi.s * * branch if N setbvs.s * * branch if V setbcs.s * * branch if C setmove MOVE4+2(pc,d0.l),CCRbeq.s * * branch if Z setbmi.s * * branch if N setbvs.s * * branch if V setbcs.s * * branch if C set* #xmove.w #$2FFF,SRbne.s * * branch if Z clearbpl.s * * branch if N clearbvc.s * * branch if V clearbcc.s * * branch if C clear* MOVE_From_SR* Dnmove.w #$275A,SR * Initial valuemove.w SR,d0cmpi.w #$271A,d0* The following fails because sr bits are implemented and non-zero so later code works.* bne.s * * branch if Z set* (An)move.l #$00000100,a0move.w #$275A,SR * Initial valuemove.w SR,(a0)cmpi.w #$275A,(a0)bne.s * * branch if Z set* (An)+move.l #$00000100,a0move.w #$257A,SR * Initial valuemove.w SR,(a0)+move.l #$00000100,a0cmpi.w #$257A,(a0)+bne.s * * branch if Z set* -(An)move.l #$00000102,a0move.w #$2766,SR * Initial valuemove.w SR,-(a0)move.l #$00000100,a0cmpi.w #$2766,(a0)bne.s * * branch if Z set* x(An)move.l #$00000102,a0move.w #$2733,SR * Initial valuemove.w SR,4(a0)cmpi.w #$2733,4(a0)bne.s * * branch if Z set* x(An,rn)move.l #$00000102,a0moveq #$00000004,d0move.w #$275a,SR * Initial valuemove.w SR,4(a0,d0.l)cmpi.w #$275a,4(a0,d0.l)bne.s * * branch if Z set* x.Wmove.w #$2777,SR * Initial valuemove.w SR,$0102cmpi.w #$2777,$0102bne.s * * branch if Z set* x.Lmove.w #$2777,SR * Initial valuemove.w SR,$10102cmpi.w #$2777,$10102bne.s * * branch if Z setmove.w #$2700,SR * Put flags back to initial valuerts*-----------------------------------------------------------*-----------------------------------------------------------* OPCODE : EXT*-----------------------------------------------------------*-----------------------------------------------------------op_EXT:move.l #$0000007F,d0move.l #$00008FFF,d1moveq #$00000000,d2ext.w d0bmi.s * * Check N Flag bmi/bplbeq.s * * Check Z Flag beq/bnecmpi.l #$0000007F,d0bne.s * * branch if Z setext.l d1bpl.s * * Check N Flag bmi/bplbeq.s * * Check Z Flag beq/bnecmpi.l #$FFFF8FFF,d1bne.s * * branch if Z setext.l d2bne.s * * Check Z Flag beq/bnerts*-----------------------------------------------------------*-----------------------------------------------------------* OPCODE : SWAP*-----------------------------------------------------------*-----------------------------------------------------------op_SWAP:move.l #$12345678,d0swap d0bmi.s * * Check N Flag bmi/bplbeq.s * * Check Z Flag beq/bnecmpi.l #$56781234,d0bne.s * * branch if Z setrts*-----------------------------------------------------------*-----------------------------------------------------------* OPCODE : LEA_PEA*-----------------------------------------------------------*-----------------------------------------------------------op_LEAPEA:move.l #$00345678,a0moveq #$00000000,d4* (An)lea (a0),a6move.l a6,d0cmpi.l #$00345678,d0bne.s * * branch if Z setpea (a0)cmpi.l #$00345678,(a7)bne.s * * branch if Z set* This was without a specifier which the assembler defaulted to .waddq.l #4,a7 * Restore Stack Pointer* x(An)lea 4(a0),a6move.l a6,d0cmpi.l #$0034567C,d0bne.s * * branch if Z setpea 4(a0)cmpi.l #$0034567C,(a7)bne.s * * branch if Z set* This was without a specifier which the assembler defaulted to .waddq.l #4,a7 * Restore Stack Pointer* x(An,Dn.l)lea 4(a0,d4),a6move.l a6,d0cmpi.l #$0034567C,d0bne.s * * branch if Z setpea 4(a0,d4.l)cmpi.l #$0034567C,(a7)bne.s * * branch if Z set* This was without a specifier which the assembler defaulted to .waddq.l #4,a7 * Restore Stack Pointer* x.Wlea $1234,a6move.l a6,d0cmpi.w #$1234,d0bne.s * * branch if Z setpea $1234cmpi.l #$00001234,(a7)bne.s * * branch if Z set* This was without a specifier which the assembler defaulted to .waddq.l #4,a7 * Restore Stack Pointer* x.Llea $00345678,a6move.l a6,d0cmp.l a6,d0bne.s * * branch if Z setpea $00345678cmpi.l #$00345678,(a7)bne.s * * branch if Z set* This was without a specifier which the assembler defaulted to .waddq.l #4,a7 * Restore Stack Pointer* x(PC)lea LEA1(pc),a6move.l a6,d0cmp.l a6,d0bne.s * * branch if Z setLEA1: pea LEA1(pc)cmpi.l #$0000241E,(a7)beq.s * * branch if Z clear* This was without a specifier which the assembler defaulted to .waddq.l #4,a7 * Restore Stack Pointermove.w #$2700,sr * Put flags back to initial valuerts*-----------------------------------------------------------*-----------------------------------------------------------* OPCODE : LEA_TAS*-----------------------------------------------------------*-----------------------------------------------------------op_TAS:* Test just one addressing modemove.l #$00000100,a0* (An)move.b #$00,(a0)bmi.s * * Check N Flag bmi/bplbne.s * * Check Z Flag beq/bnetas (a0)cmpi.b #$80,(a0)bne.s * * branch if Z setmove.b #$F5,(a0)tas (a0)bpl.s * * Check N Flag bmi/bplbeq.s * * Check Z Flag beq/bnetas (a0)cmpi.b #$F5,(a0)bne.s * * branch if Z setrts*-----------------------------------------------------------*-----------------------------------------------------------* OPCODE : LEA_TST*-----------------------------------------------------------*-----------------------------------------------------------op_TST:* Test just one addressing modemove.l #$00000100,a0* (An) - BYTEmove.b #$00,(a0)tst.b (a0)bmi.s * * Check N Flag bmi/bplbne.s * * Check Z Flag beq/bnemove.b #$F5,(a0)tst.b (a0)bpl.s * * Check N Flag bmi/bplbeq.s * * Check Z Flag beq/bne* (An) - WORDmove.w #$0000,(a0)tst.w (a0)bmi.s * * Check N Flag bmi/bplbne.s * * Check Z Flag beq/bnemove.w #$F567,(a0)tst.w (a0)bpl.s * * Check N Flag bmi/bplbeq.s * * Check Z Flag beq/bne* (An) - LONGmove.l #$00000000,(a0)tst.l (a0)bmi.s * * Check N Flag bmi/bplbne.s * * Check Z Flag beq/bnemove.l #$F56789ab,(a0)tst.l (a0)bpl.s * * Check N Flag bmi/bplbeq.s * * Check Z Flag beq/bnerts*-----------------------------------------------------------*-----------------------------------------------------------* OPCODE : LINKS*-----------------------------------------------------------*-----------------------------------------------------------op_LINKS:move.l #$11223344,a0move.l #$11223344,d0link a0,#$0cmpi.l #$11223344,(a7)unlk a0cmp.l d0,a0bne.s * * branch if Z setrts*-----------------------------------------------------------*-----------------------------------------------------------* OPCODE : MOVE_USP*-----------------------------------------------------------*-----------------------------------------------------------op_MOVE_USP:move.l #$11223344,a0move a0,USPmove USP,a1cmp.l a0,a1bne.s * * branch if Z setrts*-----------------------------------------------------------*-----------------------------------------------------------* OPCODE : CHK*-----------------------------------------------------------*-----------------------------------------------------------op_CHK:move.w #$1122,d0move.w #$1122,d1chk d0,d1nopnopmove.w #$1122,d1chk #$1122,d1move.w #$1122,d1chk #00122,d1cmp.l #$EEEE0006,d6bne.s * * branch if Z setmove.w #$1122,d0move.w #$8000,d1chk d0,d1cmp.l #$EEEE0006,d6bne.s * * branch if Z setrts*-----------------------------------------------------------*-----------------------------------------------------------* OPCODE : NEGS*-----------------------------------------------------------*-----------------------------------------------------------op_NEGS:* NOT - BYTEmove.l #$00000100,a0moveq #$00000000,d0not.b d0bpl.s * * Check N Flag bmi/bplbeq.s * * Check Z Flag beq/bnenot.b d0bmi.s * * Check N Flag bmi/bplbne.s * * Check Z Flag beq/bnecmpi.b #$00,d0bne.s * * Check Z Flag beq/bnemove.b #$80,(a0)not.b (a0)bmi.s * * Check N Flag bmi/bplbeq.s * * Check Z Flag beq/bnenot.b (a0)bpl.s * * Check N Flag bmi/bplbeq.s * * Check Z Flag beq/bnecmpi.b #$80,(a0)bne.s * * Check Z Flag beq/bne* NOT - WORDmove.l #$00000100,a0moveq #$00000000,d0not.w d0bpl.s * * Check N Flag bmi/bplbeq.s * * Check Z Flag beq/bnenot.w d0bmi.s * * Check N Flag bmi/bplbne.s * * Check Z Flag beq/bnecmpi.w #$0000,d0bne.s * * Check Z Flag beq/bnemove.w #$5a5a,(a0)not.w (a0)bpl.s * * Check N Flag bmi/bplbeq.s * * Check Z Flag beq/bnenot.w (a0)bmi.s * * Check N Flag bmi/bplbeq.s * * Check Z Flag beq/bnecmpi.w #$5a5a,(a0)bne.s * * Check Z Flag beq/bne* NOT - LONGmove.l #$00000100,a0moveq #$00000000,d0not.l d0bpl.s * * Check N Flag bmi/bplbeq.s * * Check Z Flag beq/bnenot.l d0bmi.s * * Check N Flag bmi/bplbne.s * * Check Z Flag beq/bnecmpi.l #$00000000,d0bne.s * * Check Z Flag beq/bnemove.l #$5a5a1234,(a0)not.l (a0)bpl.s * * Check N Flag bmi/bplbeq.s * * Check Z Flag beq/bnenot.l (a0)bmi.s * * Check N Flag bmi/bplbeq.s * * Check Z Flag beq/bnecmpi.l #$5a5a1234,(a0)bne.s * * Check Z Flag beq/bne* -----* NEG - BYTEmove.l #$00000100,a0moveq #$00000000,d0move.l #$00000080,d1neg.b d0bmi.s * * Check N Flag bmi/bpl 0bne.s * * Check Z Flag beq/bne 1bcs.s * * Check C Flag bcc/bcs 1bvs.s * * Check V Flag bvc/bvs 1neg.b d1bpl.s * * Check N Flag bmi/bpl 1beq.s * * Check Z Flag beq/bne 0bcc.s * * Check C Flag bcc/bcs 0bvc.s * * Check V Flag bvc/bvs 0cmpi.b #$80,d1bne.s * * Check Z Flag beq/bnemove.b #$7F,(a0)neg.b (a0)bpl.s * * Check N Flag bmi/bpl 1beq.s * * Check Z Flag beq/bne 0bcc.s * * Check C Flag bcc/bcs 0bvs.s * * Check V Flag bvc/bvs 1move.b #$F5,(a0)neg.b (a0)bmi.s * * Check N Flag bmi/bpl 0beq.s * * Check Z Flag beq/bne 0bcc.s * * Check C Flag bcc/bcs 0bvs.s * * Check V Flag bvc/bvs 1cmpi.b #$0B,(a0)bne.s * * Check Z Flag beq/bne* -----* NEG - WORDmove.l #$00000100,a0moveq #$00000000,d0move.l #$00008000,d1neg.w d0bmi.s * * Check N Flag bmi/bpl 0bne.s * * Check Z Flag beq/bne 1bcs.s * * Check C Flag bcc/bcs 1bvs.s * * Check V Flag bvc/bvs 1neg.w d1bpl.s * * Check N Flag bmi/bpl 1beq.s * * Check Z Flag beq/bne 0bcc.s * * Check C Flag bcc/bcs 0bvc.s * * Check V Flag bvc/bvs 0cmpi.w #$8000,d1bne.s * * Check Z Flag beq/bnemove.w #$7FFF,(a0)neg.w (a0)bpl.s * * Check N Flag bmi/bpl 1beq.s * * Check Z Flag beq/bne 0bcc.s * * Check C Flag bcc/bcs 0bvs.s * * Check V Flag bvc/bvs 1move.w #$F578,(a0)neg.w (a0)bmi.s * * Check N Flag bmi/bpl 0beq.s * * Check Z Flag beq/bne 0bcc.s * * Check C Flag bcc/bcs 0bvs.s * * Check V Flag bvc/bvs 1cmpi.w #$0A88,(a0)bne.s * * Check Z Flag beq/bne* -----* NEG - LONGmove.l #$00000100,a0moveq #$00000000,d0move.l #$80000000,d1neg.l d0bmi.s * * Check N Flag bmi/bpl 0bne.s * * Check Z Flag beq/bne 1bcs.s * * Check C Flag bcc/bcs 1bvs.s * * Check V Flag bvc/bvs 1neg.l d1bpl.s * * Check N Flag bmi/bpl 1beq.s * * Check Z Flag beq/bne 0bcc.s * * Check C Flag bcc/bcs 0bvc.s * * Check V Flag bvc/bvs 0cmpi.l #$80000000,d1bne.s * * Check Z Flag beq/bnemove.l #$7FFFFFFF,(a0)neg.l (a0)bpl.s * * Check N Flag bmi/bpl 1beq.s * * Check Z Flag beq/bne 0bcc.s * * Check C Flag bcc/bcs 0bvs.s * * Check V Flag bvc/bvs 1move.l #$F5781234,(a0)neg.l (a0)bmi.s * * Check N Flag bmi/bpl 0beq.s * * Check Z Flag beq/bne 0bcc.s * * Check C Flag bcc/bcs 0bvs.s * * Check V Flag bvc/bvs 1cmpi.l #$0A87EDCC,(a0)bne.s * * Check Z Flag beq/bne* -----* NEGX - BYTEmove.l #$00000100,a0moveq #$00000000,d0move.l #$00000080,d1ori.b #$10,CCR * Set X Flagnegx.b d0bpl.s * * Check N Flag bmi/bpl 0beq.s * * Check Z Flag beq/bne 1bcc.s * * Check C Flag bcc/bcs 1bvs.s * * Check V Flag bvc/bvs 1andi.b #$EF,CCR * Clear X Flagnegx.b d0bmi.s * * Check N Flag bmi/bpl 0beq.s * * Check Z Flag beq/bne 1bcc.s * * Check C Flag bcc/bcs 1bvs.s * * Check V Flag bvc/bvs 1ori.b #$10,CCR * Set X Flagnegx.b d1bmi.s * * Check N Flag bmi/bpl 1beq.s * * Check Z Flag beq/bne 0bcc.s * * Check C Flag bcc/bcs 0bvs.s * * Check V Flag bvc/bvs 0cmpi.b #$7F,d1bne.s * * Check Z Flag beq/bneandi.b #$EF,CCR * Clear X Flagnegx.b d1bpl.s * * Check N Flag bmi/bpl 1beq.s * * Check Z Flag beq/bne 0bcc.s * * Check C Flag bcc/bcs 0bvs.s * * Check V Flag bvc/bvs 0cmpi.b #$81,d1bne.s * * Check Z Flag beq/bnemove.b #$7F,(a0)ori.b #$10,CCR * Set X Flagnegx.b (a0)bpl.s * * Check N Flag bmi/bpl 1beq.s * * Check Z Flag beq/bne 0bcc.s * * Check C Flag bcc/bcs 0* I think overflow should happen here.* bvs.s * * Check V Flag bvc/bvs 1move.b #$7F,(a0)andi.b #$EF,CCR * Clear X Flagnegx.b (a0)bpl.s * * Check N Flag bmi/bpl 1beq.s * * Check Z Flag beq/bne 0bcc.s * * Check C Flag bcc/bcs 0bvs.s * * Check V Flag bvc/bvs 1move.b #$F5,(a0)ori.b #$10,CCR * Set X Flagnegx.b (a0)bmi.s * * Check N Flag bmi/bpl 0beq.s * * Check Z Flag beq/bne 0bcc.s * * Check C Flag bcc/bcs 0bvs.s * * Check V Flag bvc/bvs 1cmpi.b #$0A,(a0)bne.s * * Check Z Flag beq/bneandi.b #$EF,CCR * Clear X Flagnegx.b (a0)bpl.s * * Check N Flag bmi/bpl 0beq.s * * Check Z Flag beq/bne 0bcc.s * * Check C Flag bcc/bcs 0bvs.s * * Check V Flag bvc/bvs 1cmpi.b #$F6,(a0)bne.s * * Check Z Flag beq/bne* -----* NEGX - WORDmove.l #$00000100,a0moveq #$00000000,d0move.l #$00008000,d1ori.b #$10,CCR * Set X Flagnegx.w d0bpl.s * * Check N Flag bmi/bpl 0beq.s * * Check Z Flag beq/bne 1bcc.s * * Check C Flag bcc/bcs 1bvs.s * * Check V Flag bvc/bvs 1andi.b #$EF,CCR * Clear X Flagnegx.w d0bmi.s * * Check N Flag bmi/bpl 0beq.s * * Check Z Flag beq/bne 1bcc.s * * Check C Flag bcc/bcs 1bvs.s * * Check V Flag bvc/bvs 1ori.b #$10,CCR * Set X Flagnegx.w d1bmi.s * * Check N Flag bmi/bpl 1beq.s * * Check Z Flag beq/bne 0bcc.s * * Check C Flag bcc/bcs 0bvs.s * * Check V Flag bvc/bvs 0cmpi.w #$7FFF,d1bne.s * * Check Z Flag beq/bneandi.b #$EF,CCR * Clear X Flagnegx.w d1bpl.s * * Check N Flag bmi/bpl 1beq.s * * Check Z Flag beq/bne 0bcc.s * * Check C Flag bcc/bcs 0bvs.s * * Check V Flag bvc/bvs 0cmpi.w #$8001,d1bne.s * * Check Z Flag beq/bnemove.w #$7FFF,(a0)ori.b #$10,CCR * Set X Flagnegx.w (a0)bpl.s * * Check N Flag bmi/bpl 1beq.s * * Check Z Flag beq/bne 0bcc.s * * Check C Flag bcc/bcs 0**** bvs.s * * Check V Flag bvc/bvs 1move.w #$F567,(a0)andi.b #$EF,CCR * Clear X Flagnegx.w (a0)bmi.s * * Check N Flag bmi/bpl 1beq.s * * Check Z Flag beq/bne 0bcc.s * * Check C Flag bcc/bcs 0bvs.s * * Check V Flag bvc/bvs 1move.w #$F567,(a0)ori.b #$10,CCR * Set X Flagnegx.w (a0)bmi.s * * Check N Flag bmi/bpl 0beq.s * * Check Z Flag beq/bne 0bcc.s * * Check C Flag bcc/bcs 0bvs.s * * Check V Flag bvc/bvs 1cmpi.w #$0A98,(a0)bne.s * * Check Z Flag beq/bneandi.b #$EF,CCR * Clear X Flagnegx.w (a0)bpl.s * * Check N Flag bmi/bpl 0beq.s * * Check Z Flag beq/bne 0bcc.s * * Check C Flag bcc/bcs 0bvs.s * * Check V Flag bvc/bvs 1cmpi.w #$F568,(a0)bne.s * * Check Z Flag beq/bne* -----* NEGX - LONGmove.l #$00000100,a0moveq #$00000000,d0move.l #$80000000,d1ori.b #$10,CCR * Set X Flagnegx.l d0bpl.s * * Check N Flag bmi/bpl 0beq.s * * Check Z Flag beq/bne 1bcc.s * * Check C Flag bcc/bcs 1bvs.s * * Check V Flag bvc/bvs 1andi.b #$EF,CCR * Clear X Flagnegx.l d0bmi.s * * Check N Flag bmi/bpl 0beq.s * * Check Z Flag beq/bne 1bcc.s * * Check C Flag bcc/bcs 1bvs.s * * Check V Flag bvc/bvs 1ori.b #$10,CCR * Set X Flagnegx.l d1bmi.s * * Check N Flag bmi/bpl 1beq.s * * Check Z Flag beq/bne 0bcc.s * * Check C Flag bcc/bcs 0bvs.s * * Check V Flag bvc/bvs 0cmpi.l #$7FFFFFFF,d1bne.s * * Check Z Flag beq/bneandi.b #$EF,CCR * Clear X Flagnegx.l d1bpl.s * * Check N Flag bmi/bpl 1beq.s * * Check Z Flag beq/bne 0bcc.s * * Check C Flag bcc/bcs 0***** bvs.s * * Check V Flag bvc/bvs 0cmpi.l #$80000001,d1bne.s * * Check Z Flag beq/bnemove.l #$7FFF,(a0)ori.b #$10,CCR * Set X Flagnegx.l (a0)bpl.s * * Check N Flag bmi/bpl 1beq.s * * Check Z Flag beq/bne 0bcc.s * * Check C Flag bcc/bcs 0***** bvs.s * * Check V Flag bvc/bvs 1move.l #$F5671234,(a0)andi.b #$EF,CCR * Clear X Flagnegx.l (a0)bmi.s * * Check N Flag bmi/bpl 1beq.s * * Check Z Flag beq/bne 0bcc.s * * Check C Flag bcc/bcs 0bvs.s * * Check V Flag bvc/bvs 1move.l #$F5675678,(a0)ori.b #$10,CCR * Set X Flagnegx.l (a0)bmi.s * * Check N Flag bmi/bpl 0beq.s * * Check Z Flag beq/bne 0bcc.s * * Check C Flag bcc/bcs 0bvs.s * * Check V Flag bvc/bvs 1cmpi.l #$0A98A987,(a0)bne.s * * Check Z Flag beq/bneandi.b #$EF,CCR * Clear X Flagnegx.l (a0)bpl.s * * Check N Flag bmi/bpl 0beq.s * * Check Z Flag beq/bne 0bcc.s * * Check C Flag bcc/bcs 0bvs.s * * Check V Flag bvc/bvs 1cmpi.l #$F5675679,(a0)bne.s * * Check Z Flag beq/bne* -----* CLR - BYTEmove.l #$00000100,a0move.l #$12345678,d0move.l #$12345678,d1move.l #$12345678,d2move.l #$12345600,d4move.l #$12340000,d5moveq #$00000000,d6clr.b d0bne.s * * Check Z Flag beq/bne 0bmi.s * * Check N Flag bmi/bpl 0cmp.l d0,d4bne.s * * Check Z Flag beq/bne 0clr.w d1bne.s * * Check Z Flag beq/bne 0bmi.s * * Check N Flag bmi/bpl 0cmp.l d1,d5bne.s * * Check Z Flag beq/bne 0clr.l d2bne.s * * Check Z Flag beq/bne 0bmi.s * * Check N Flag bmi/bpl 0cmp.l d2,d6bne.s * * Check Z Flag beq/bne 0rts*-----------------------------------------------------------*-----------------------------------------------------------* OPCODE : MOVEM*-----------------------------------------------------------*-----------------------------------------------------------op_MOVEM:* WORD Registers --> Memorymove.l #$0000d0d0,d0move.l #$0000d1d1,d1move.l #$0000d2d2,d2move.l #$0000d3d3,d3move.l #$0000d4d4,d4move.l #$0000d5d5,d5move.l #$0000d6d6,d6move.l #$0000d7d7,d7move.l #$00000a0a,a0move.l #$00001a1a,a1move.l #$00002a2a,a2move.l #$00003a3a,a3move.l #$00004a4a,a4move.l #$00005a5a,a5move.l #$00006a6a,a6* move.l #$00007a7a,a7 * Dont change the Stack Pointermovem.w D0-D7/A0-A7,$00000100move.l #$00000100,a0cmp.w (a0)+,d0bne.s * * Check Z Flag beq/bne 0cmp.w (a0)+,d1bne.s * * Check Z Flag beq/bne 0cmp.w (a0)+,d2bne.s * * Check Z Flag beq/bne 0cmp.w (a0)+,d3bne.s * * Check Z Flag beq/bne 0cmp.w (a0)+,d4bne.s * * Check Z Flag beq/bne 0cmp.w (a0)+,d5bne.s * * Check Z Flag beq/bne 0cmp.w (a0)+,d6bne.s * * Check Z Flag beq/bne 0cmp.w (a0)+,d7bne.s * * Check Z Flag beq/bne 0cmpi.w #$0A0A,(a0)+ * Because we are using a0 as a pointerbne.s * * Check Z Flag beq/bne 0cmp.w (a0)+,a1bne.s * * Check Z Flag beq/bne 0cmp.w (a0)+,a2bne.s * * Check Z Flag beq/bne 0cmp.w (a0)+,a3bne.s * * Check Z Flag beq/bne 0cmp.w (a0)+,a4bne.s * * Check Z Flag beq/bne 0cmp.w (a0)+,a5bne.s * * Check Z Flag beq/bne 0cmp.w (a0)+,a6bne.s * * Check Z Flag beq/bne 0* LONG Registers --> Memorymove.l #$d0d0d0d0,d0move.l #$d1d1d1d1,d1move.l #$d2d2d2d2,d2move.l #$d3d3d3d3,d3move.l #$d4d4d4d4,d4move.l #$d5d5d5d5,d5move.l #$d6d6d6d6,d6move.l #$d7d7d7d7,d7move.l #$0a0a0a0a,a0move.l #$1a1a1a1a,a1move.l #$2a2a2a2a,a2move.l #$3a3a3a3a,a3move.l #$4a4a4a4a,a4move.l #$5a5a5a5a,a5move.l #$6a6a6a6a,a6* move.l #$7a7a7a7a,a7 * Dont change the Stack Pointermovem.l D0-D7/A0-A7,$00000120move.l #$00000120,a0cmp.l (a0)+,d0bne.s * * Check Z Flag beq/bne 0cmp.l (a0)+,d1bne.s * * Check Z Flag beq/bne 0cmp.l (a0)+,d2bne.s * * Check Z Flag beq/bne 0cmp.l (a0)+,d3bne.s * * Check Z Flag beq/bne 0cmp.l (a0)+,d4bne.s * * Check Z Flag beq/bne 0cmp.l (a0)+,d5bne.s * * Check Z Flag beq/bne 0cmp.l (a0)+,d6bne.s * * Check Z Flag beq/bne 0cmp.l (a0)+,d7bne.s * * Check Z Flag beq/bne 0cmpi.l #$0A0A0A0A,(a0)+ * Because we are using a0 as a pointerbne.s * * Check Z Flag beq/bne 0cmp.l (a0)+,a1bne.s * * Check Z Flag beq/bne 0cmp.l (a0)+,a2bne.s * * Check Z Flag beq/bne 0cmp.l (a0)+,a3bne.s * * Check Z Flag beq/bne 0cmp.l (a0)+,a4bne.s * * Check Z Flag beq/bne 0cmp.l (a0)+,a5bne.s * * Check Z Flag beq/bne 0cmp.l (a0)+,a6bne.s * * Check Z Flag beq/bne 0* ----* WORD Registers --> Memory -(An) EA Modemove.l #$0000d0d0,d0move.l #$0000d1d1,d1move.l #$0000d2d2,d2move.l #$0000d3d3,d3move.l #$0000d4d4,d4move.l #$0000d5d5,d5move.l #$0000d6d6,d6move.l #$0000d7d7,d7move.l #$00000a0a,a0move.l #$00001a1a,a1move.l #$00002a2a,a2move.l #$00003a3a,a3move.l #$00004a4a,a4move.l #$00005a5a,a5move.l #$00006a6a,a6* move.l #$00007a7a,a7 * Dont change the Stack Pointermove.l #$000001A0,a0movem.w D0-D7/A0-A7,-(a0)move.l #$0000019E,a0cmp.w -(a0),a6bne.s * * Check Z Flag beq/bne 0cmp.w -(a0),a5bne.s * * Check Z Flag beq/bne 0cmp.w -(a0),a4bne.s * * Check Z Flag beq/bne 0cmp.w -(a0),a3bne.s * * Check Z Flag beq/bne 0cmp.w -(a0),a2bne.s * * Check Z Flag beq/bne 0cmp.w -(a0),a1bne.s * * Check Z Flag beq/bne 0cmp.w -(a0),a0* bne.s * * Check Z Flag beq/bne 0cmp.w -(a0),d7bne.s * * Check Z Flag beq/bne 0cmp.w -(a0),d6bne.s * * Check Z Flag beq/bne 0cmp.w -(a0),d5bne.s * * Check Z Flag beq/bne 0cmp.w -(a0),d4bne.s * * Check Z Flag beq/bne 0cmp.w -(a0),d3bne.s * * Check Z Flag beq/bne 0cmp.w -(a0),d2bne.s * * Check Z Flag beq/bne 0cmp.w -(a0),d1bne.s * * Check Z Flag beq/bne 0cmp.w -(a0),d0bne.s * * Check Z Flag beq/bne 0* LONG Registers --> Memory -(An) EA Modemove.l #$d0d0d0d0,d0move.l #$d1d1d1d1,d1move.l #$d2d2d2d2,d2move.l #$d3d3d3d3,d3move.l #$d4d4d4d4,d4move.l #$d5d5d5d5,d5move.l #$d6d6d6d6,d6move.l #$d7d7d7d7,d7move.l #$0a0a0a0a,a0move.l #$1a1a1a1a,a1move.l #$2a2a2a2a,a2move.l #$3a3a3a3a,a3move.l #$4a4a4a4a,a4move.l #$5a5a5a5a,a5move.l #$6a6a6a6a,a6* move.l #$7a7a7a7a,a7 * Dont change the Stack Pointermove.l #$000001A0,a0movem.l D0-D7/A0-A7,-(a0)move.l #$0000019C,a0cmp.l -(a0),a6bne.s * * Check Z Flag beq/bne 0cmp.l -(a0),a5bne.s * * Check Z Flag beq/bne 0cmp.l -(a0),a4bne.s * * Check Z Flag beq/bne 0cmp.l -(a0),a3bne.s * * Check Z Flag beq/bne 0cmp.l -(a0),a2bne.s * * Check Z Flag beq/bne 0cmp.l -(a0),a1bne.s * * Check Z Flag beq/bne 0cmp.l -(a0),a0* bne.s * * Check Z Flag beq/bne 0cmp.l -(a0),d7bne.s * * Check Z Flag beq/bne 0cmp.l -(a0),d6bne.s * * Check Z Flag beq/bne 0cmp.l -(a0),d5bne.s * * Check Z Flag beq/bne 0cmp.l -(a0),d4bne.s * * Check Z Flag beq/bne 0cmp.l -(a0),d3bne.s * * Check Z Flag beq/bne 0cmp.l -(a0),d2bne.s * * Check Z Flag beq/bne 0cmp.l -(a0),d1bne.s * * Check Z Flag beq/bne 0cmp.l -(a0),d0bne.s * * Check Z Flag beq/bne 0* ----* WORD - Memory --> Registersmoveq #$00000000,d0moveq #$00000000,d1moveq #$00000000,d2moveq #$00000000,d3moveq #$00000000,d4moveq #$00000000,d5moveq #$00000000,d6moveq #$00000000,d7move.l #$00000000,a0move.l #$00000000,a1move.l #$00000000,a2move.l #$00000000,a3move.l #$00000000,a4move.l #$00000000,a5move.l #$00000000,a6* move.l #$00000000,a7 * Dont change the Stack Pointermovem.w $00000100,D0/D2/D4/D6/A1/A3/A5cmp.l #$FFFFD0D0,d0bne.s * * Check Z Flag beq/bne 0cmp.l #$FFFFD1D1,d2bne.s * * Check Z Flag beq/bne 0cmp.l #$FFFFD2D2,d4bne.s * * Check Z Flag beq/bne 0cmp.l #$FFFFD3D3,d6bne.s * * Check Z Flag beq/bne 0cmp.l #$FFFFD4D4,a1bne.s * * Check Z Flag beq/bne 0cmp.l #$FFFFD5D5,a3bne.s * * Check Z Flag beq/bne 0cmp.l #$FFFFD6D6,a5bne.s * * Check Z Flag beq/bne 0* LONG - Memory --> Registersmoveq #$00000000,d0moveq #$00000000,d1moveq #$00000000,d2moveq #$00000000,d3moveq #$00000000,d4moveq #$00000000,d5moveq #$00000000,d6moveq #$00000000,d7move.l #$00000000,a0move.l #$00000000,a1move.l #$00000000,a2move.l #$00000000,a3move.l #$00000000,a4move.l #$00000000,a5move.l #$00000000,a6* move.l #$00000000,a7 * Dont change the Stack Pointermovem.l $00000120,D0/D2/D4/D6/A1/A3/A5cmp.l #$D0D0D0D0,d0bne.s * * Check Z Flag beq/bne 0cmp.l #$D1D1D1D1,d2bne.s * * Check Z Flag beq/bne 0cmp.l #$D2D2D2D2,d4bne.s * * Check Z Flag beq/bne 0cmp.l #$D3D3D3D3,d6bne.s * * Check Z Flag beq/bne 0cmp.l #$D4D4D4D4,a1bne.s * * Check Z Flag beq/bne 0cmp.l #$D5D5D5D5,a3bne.s * * Check Z Flag beq/bne 0cmp.l #$D6D6D6D6,a5bne.s * * Check Z Flag beq/bne 0rts*-----------------------------------------------------------*-----------------------------------------------------------* OPCODE : ABCD*-----------------------------------------------------------*-----------------------------------------------------------op_ABCD:* Test with X Flag CLEAREDmove.l #$00000110,a0 * Address pointer-Xmove.l #$00000120,a1 * Address pointer-Ymoveq #$00000000,d0 * BCD byte-Xmoveq #$00000000,d1 * BCD byte-Ymoveq #$00000000,d2moveq #$00000000,d3 * Cumulative -(An) BCD resultsmoveq #$00000000,d4 * Cumulative number.s of times C was setmoveq #$00000000,d5 * Cumulative Register BCD resultsmove.l #$00000099,d6 * Inner loop countermove.l #$00000099,d7 * Outer loop counterABCD_OUTER1: move.l d7,d0ABCD_INNER1: move.l d6,d1andi.b #$EF,CCR * Clear X Flagmove.l #$00000110,a0 * Address pointer-Xmove.l #$00000120,a1 * Address pointer-Ymove.b d0,-1(a0)move.b d1,-1(a1)abcd d0,d1bcc.s ABCD_NO_C1 * Check C Flag bcc/bcs 0add.l #1,d4ABCD_NO_C1: add.l d1,d5abcd -(a0),-(a1)bcc.s ABCD_NO_C2 * Check C Flag bcc/bcs 0add.l #1,d4ABCD_NO_C2: add.b (a1),d3dbf d6,ABCD_INNER1move.l #$00000099,d6dbf d7,ABCD_OUTER1cmpi.l #$00005AFC,d4 * Check the cumulative resultsbne.s *cmpi.l #$001C9A34,d5bne.s *cmpi.l #$00000034,d3bne.s ** Test with X Flag SETmove.l #$00000110,a0 * Address pointer-Xmove.l #$00000120,a1 * Address pointer-Ymoveq #$00000000,d0 * BCD byte-Xmoveq #$00000000,d1 * BCD byte-Ymoveq #$00000000,d2moveq #$00000000,d3 * Cumulative -(An) BCD resultsmoveq #$00000000,d4 * Cumulative number.s of times C was setmoveq #$00000000,d5 * Cumulative Register BCD resultsmove.l #$00000099,d6 * Inner loop countermove.l #$00000099,d7 * Outer loop counterABCD_OUTER2: move.l d7,d0ABCD_INNER2: move.l d6,d1ori.b #$10,CCR * Set X Flagmove.l #$00000110,a0 * Address pointer-Xmove.l #$00000120,a1 * Address pointer-Ymove.b d0,-1(a0)move.b d1,-1(a1)abcd d0,d1bcc.s ABCD_NO_C3 * Check C Flag bcc/bcs 0add.l #1,d4ABCD_NO_C3: add.l d1,d5abcd -(a0),-(a1)bcc.s ABCD_NO_C4 * Check C Flag bcc/bcs 0add.l #1,d4ABCD_NO_C4: add.b (a1),d3dbf d6,ABCD_INNER2move.l #$00000099,d6dbf d7,ABCD_OUTER2cmpi.l #$00005B60,d4 * Check the cumulative resultsbne.s *cmpi.l #$001CCFC8,d5bne.s *cmpi.l #$00000034,d3bne.s ** Quick check of Z Flagmove.b #$00,d0move.b #$00,d1move #$00,CCR * Set Z flag to 0abcd d1,d0 * Should NOT set Z Flag to 1beq.s * * Check Z Flag beq/bnemove.b #$01,d0move.b #$00,d1move #$04,CCR * Set Z flag to 0abcd d1,d0 * Should NOT set Z Flag to 1beq.s * * Check Z Flag beq/bnerts*-----------------------------------------------------------*-----------------------------------------------------------* OPCODE : SBCD*-----------------------------------------------------------*-----------------------------------------------------------op_SBCD:* Test with X Flag CLEAREDmove.l #$00000110,a0 * Address pointer-Xmove.l #$00000120,a1 * Address pointer-Ymoveq #$00000000,d0 * BCD byte-Xmoveq #$00000000,d1 * BCD byte-Ymoveq #$00000000,d2moveq #$00000000,d3 * Cumulative -(An) BCD resultsmoveq #$00000000,d4 * Cumulative number.s of times C was setmoveq #$00000000,d5 * Cumulative Register BCD resultsmove.l #$00000099,d6 * Inner loop countermove.l #$00000099,d7 * Outer loop counterSBCD_OUTER1: move.l d7,d0SBCD_INNER1: move.l d6,d1andi.b #$EF,CCR * Clear X Flagmove.l #$00000110,a0 * Address pointer-Xmove.l #$00000120,a1 * Address pointer-Ymove.b d0,-1(a0)move.b d1,-1(a1)sbcd d0,d1bcc.s SBCD_NO_C1 * Check C Flag bcc/bcs 0add.l #1,d4SBCD_NO_C1: add.l d1,d5sbcd -(a0),-(a1)bcc.s SBCD_NO_C2 * Check C Flag bcc/bcs 0add.l #1,d4SBCD_NO_C2: add.b (a1),d3dbf d6,SBCD_INNER1move.l #$00000099,d6dbf d7,SBCD_OUTER1cmpi.l #$00005C0A,d4 * Check the cumulative resultsbne.s *cmpi.l #$001C459E,d5bne.s *cmpi.l #$0000009E,d3bne.s ** Test with X Flag SETmove.l #$00000110,a0 * Address pointer-Xmove.l #$00000120,a1 * Address pointer-Ymoveq #$00000000,d0 * BCD byte-Xmoveq #$00000000,d1 * BCD byte-Ymoveq #$00000000,d2moveq #$00000000,d3 * Cumulative -(An) BCD resultsmoveq #$00000000,d4 * Cumulative number.s of times C was setmoveq #$00000000,d5 * Cumulative Register BCD resultsmove.l #$00000099,d6 * Inner loop countermove.l #$00000099,d7 * Outer loop counterSBCD_OUTER2: move.l d7,d0SBCD_INNER2: move.l d6,d1ori.b #$10,CCR * Set X Flagmove.l #$00000110,a0 * Address pointer-Xmove.l #$00000120,a1 * Address pointer-Ymove.b d0,-1(a0)move.b d1,-1(a1)sbcd d0,d1bcc.s SBCD_NO_C3 * Check C Flag bcc/bcs 0add.l #1,d4SBCD_NO_C3: add.l d1,d5sbcd -(a0),-(a1)bcc.s SBCD_NO_C4 * Check C Flag bcc/bcs 0add.l #1,d4SBCD_NO_C4: add.b (a1),d3dbf d6,SBCD_INNER2move.l #$00000099,d6dbf d7,SBCD_OUTER2cmpi.l #$00005CA4,d4 * Check the cumulative resultsbne.s *cmpi.l #$001C5C66,d5bne.s *cmpi.l #$0000009E,d3bne.s ** Quick check of Z Flagmove.b #$00,d0move.b #$00,d1move #$00,CCR * Set Z flag to 0sbcd d1,d0 * Should NOT set Z Flag to 1beq.s * * Check Z Flag beq/bnemove.b #$01,d0move.b #$00,d1move #$04,CCR * Set Z flag to 0sbcd d1,d0 * Should NOT set Z Flag to 1beq.s * * Check Z Flag beq/bnerts*-----------------------------------------------------------*-----------------------------------------------------------* OPCODE : NBCD*-----------------------------------------------------------*-----------------------------------------------------------op_NBCD:* NBCD to a Registermoveq #$00000000,d0 * BCD bytemoveq #$00000000,d1moveq #$00000000,d2moveq #$00000000,d3 * Cumulative number.s of times Z was setmoveq #$00000000,d4 * Cumulative number.s of times C was setmoveq #$00000000,d5 * Cumulative BCD resultsmove.l #$00000099,d6move.l #$00000099,d7 * Loop counterNBCD_LOOP: move.l d7,d0move #$04,CCR * Set Z flag to 0nbcd d0bcc.s NBCD_NO_C * Check C Flagadd.l #1,d4NBCD_NO_C: bne.s NBCD_NO_Z * Check Z Flagadd.l #1,d3NBCD_NO_Z: add.l d0,d5 * Add results into d5dbf d7,NBCD_LOOPcmpi.l #$00000001,d3 * Check the cumulative resultsbne.s *cmpi.l #$00000099,d4bne.s *cmpi.l #$00002E3B,d5bne.s ** NBCD to a memory locationmoveq #$00000000,d0 * BCD bytemoveq #$00000000,d1moveq #$00000000,d2moveq #$00000000,d3 * Cumulative number.s of times Z was setmoveq #$00000000,d4 * Cumulative number.s of times C was setmoveq #$00000000,d5 * Cumulative BCD resultsmove.l #$00000099,d6move.l #$00000099,d7 * Loop counterNBCD_LOOP1: move.b d7,$00000100move #$04,CCR * Set Z flag to 0nbcd $00000100move.b $00000100,d0bcc.s NBCD_NO_C1 * Check C Flagadd.l #1,d4NBCD_NO_C1: bne.s NBCD_NO_Z1 * Check Z Flagadd.l #1,d3NBCD_NO_Z1: add.l d0,d5 * Add results into d5dbf d7,NBCD_LOOP1cmpi.l #$00000001,d3 * Check the cumulative resultsbne.s *cmpi.l #$00000000,d4bne.s *cmpi.l #$00002E3B,d5bne.s *rts*-----------------------------------------------------------*-----------------------------------------------------------* OPCODE : TRAPV*-----------------------------------------------------------*-----------------------------------------------------------op_TRAPV:* TRAPV will set d0 to 12345678 if V flag is setmoveq #$00000000,d0 * Clear d0move #$00,CCR * Clear V flagtrapvcmpi.l #$00000000,d0 * Check of d0 was updated (should not be_)bne.s *move #$02,CCR * Set V flagtrapvcmpi.l #$12345678,d0 * Check of d0 was updated (should not be_)bne.s *rts*-----------------------------------------------------------*-----------------------------------------------------------* OPCODE : RTR*-----------------------------------------------------------*-----------------------------------------------------------op_RTR:* Leventhal claims only 5 LSB's are popped from the stack to the CCRlea RTR_DONE,a0move.l a0,-(a7) * push destination PC to the stackmove.w #$FF15,-(a7) * push flags=0xFFFF to the stackrtrRTR_DONE: move.w SR,d0andi.w #$1F,d0cmpi.w #$15,d0bne.s *rtsBSR_FAR2: move.l #$44444444,d4rts*-----------------------------------------------------------*-----------------------------------------------------------* OPCODE : BCC*-----------------------------------------------------------*-----------------------------------------------------------op_BCC: move #$00,CCRbhi.s BCC1 * Higher Than C=0 AND Z=0bra.s *BCC1: move #$01,CCRbls.w BCC2 * Lower or Same C=1 OR Z=1bra.s *BCC2: move #$00,CCRbcc.s BCC3 * Carry Clear C=0bra.s *BCC3: move #$01,CCRbcs.w BCC4 * Carry Set C=1bra.s *BCC4: move #$00,CCRbne.s BCC5 * Not Equal Z=0bra.s *BCC5: move #$04,CCRbeq.w BCC6 * Equal Z=1bra.s *BCC6: move #$00,CCRbvc.s BCC7 * V Clear V=0bra.s *BCC7: move #$02,CCRbvs.w BCC8 * V Set V=1bra.s *BCC8: move #$00,CCRbpl.s BCC9 * Plus N=0bra.s *BCC9: move #$08,CCRbmi.w BCC10 * Minus N=1bra.s *BCC10: move #$00,CCRbge.s BCC11 * Greater or Equal N=Vbra.s *BCC11: move #$02,CCRblt.w BCC12 * Less Than N!=Vbra.s *BCC12: move #$0A,CCRbgt.s BCC13 * Greater Than N=V AND Z=0bra.s *BCC13: move #$06,CCRble.w BCC14 * Less Than or Equal N!=V AND Z=1bra.s *BCC14: rts*-----------------------------------------------------------*-----------------------------------------------------------* OPCODE : DBCC*-----------------------------------------------------------*-----------------------------------------------------------op_DBCC: moveq #$00000003,d0 * Loop countermoveq #$00000000,d1 * Accumulatormove #$00,CCRDBCC_LOOP1: addi.b #$1,d1dbf d0,DBCC_LOOP1cmpi.l #$00000004,d1 * Check Accumulator resultsbne.s *DBCC_LOOP2: addi.b #$1,d1dbcc d0,DBCC_LOOP2 * Dont loopcmpi.l #$00000005,d1 * Check Accumulator resultsbne.s *rts*-----------------------------------------------------------*-----------------------------------------------------------* OPCODE : SCC*-----------------------------------------------------------*-----------------------------------------------------------op_SCC: move #$01,CCRscc $00010000 * Clear the EA bytecmpi.b #$00,$00010000bne.s *move #$00,CCRscc $00010000 * Set the EA byte to 0xFFcmpi.b #$FF,$00010000bne.s *scc d0 * Test setting a data registercmpi.b #$FF,d0bne.s *rts*-----------------------------------------------------------*-----------------------------------------------------------* OPCODE : ADDQ*-----------------------------------------------------------*-----------------------------------------------------------op_ADDQ:* BYTEmove.l #$000000FF,d0 * Loop countermoveq #$00000000,d1 * Flag results accumulatormoveq #$00000000,d2 * Data results accumulatormoveq #$00000000,d3moveq #$00000000,d4moveq #$00000000,d5moveq #$00000000,d6moveq #$00000000,d7ADDQ_LOOP1: addq.b #3,d5move.w SR,d6andi.l #$1F,d6 * Isolate flagsadd.l d6,d1 * Copy flag results into accumulatoradd.l d5,d2 * Copy data results into data accumulatordbf d0,ADDQ_LOOP1cmpi.l #$0000043D,d1bne.s *cmpi.l #$00007F80,d2bne.s ** WORDmove.l #$000000FF,d0 * Loop countermoveq #$00000000,d1 * Flag results accumulatormoveq #$00000000,d2 * Data results accumulatormoveq #$00000000,d3moveq #$00000000,d4move.l #$0000FFF0,d5moveq #$00000000,d6moveq #$00000000,d7move.l #$00000100,a0ADDQ_LOOP2: addq.w #5,d5move.w SR,d6andi.l #$1F,d6 * Isolate flagsadd.l d6,d1 * Copy flag results into accumulatoradd.l d5,d2 * Copy data results into data accumulatordbf d0,ADDQ_LOOP2cmpi.l #$00000029,d1bne.s *cmpi.l #$00057280,d2bne.s ** LONGmove.l #$000000FF,d0 * Loop countermoveq #$00000000,d1 * Flag results accumulatormoveq #$00000000,d2 * Data results accumulatormoveq #$00000000,d3moveq #$00000000,d4move.l #$FFFFFFF0,d5moveq #$00000000,d6moveq #$00000000,d7ADDQ_LOOP3: addq.l #1,d5move.w SR,d6andi.l #$1F,d6 * Isolate flagsadd.l d6,d1 * Copy flag results into accumulatoradd.l d5,d2 * Copy data results into data accumulatordbf d0,ADDQ_LOOP3cmpi.l #$0000008D,d1bne.s *cmpi.l #$00007080,d2bne.s ** Check that Flags are not updated for Address registersmove.l #$0000FFFF,a0move #$00,CCR * Clear flagsaddq.w #$7,a0bcs.s *rts*-----------------------------------------------------------*-----------------------------------------------------------* OPCODE : SUBQ*-----------------------------------------------------------*-----------------------------------------------------------op_SUBQ:* BYTEmove.l #$000000FF,d0 * Loop countermoveq #$00000000,d1 * Flag results accumulatormove.l #$00001234,d2 * Data results accumulatormoveq #$00000000,d3moveq #$00000000,d4moveq #$00000012,d5moveq #$00000000,d6moveq #$00000000,d7SUBQ_LOOP1: subq.b #1,d5move.w SR,d6andi.l #$1F,d6 * Isolate flagsadd.l d6,d1 * Copy flag results into accumulatoradd.l d5,d2 * Copy data results into data accumulatordbf d0,SUBQ_LOOP1cmpi.l #$00000417,d1bne.s *cmpi.l #$000091B4,d2bne.s ** WORDmove.l #$000000FF,d0 * Loop countermoveq #$00000000,d1 * Flag results accumulatormoveq #$00000000,d2 * Data results accumulatormoveq #$00000000,d3moveq #$00000000,d4moveq #$00000002,d5moveq #$00000000,d6moveq #$00000000,d7move.l #$00000100,a0SUBQ_LOOP2: subq.w #5,d5move.w SR,d6andi.l #$1F,d6 * Isolate flagsadd.l d6,d1 * Copy flag results into accumulatoradd.l d5,d2 * Copy data results into data accumulatordbf d0,SUBQ_LOOP2cmpi.l #$00000811,d1bne.s *cmpi.l #$00FD7F80,d2bne.s ** LONGmove.l #$000000FF,d0 * Loop countermoveq #$00000000,d1 * Flag results accumulatormoveq #$00000000,d2 * Data results accumulatormoveq #$00000000,d3moveq #$00000000,d4moveq #$00000007,d5moveq #$00000000,d6moveq #$00000000,d7SUBQ_LOOP3: subq.l #1,d5move.w SR,d6andi.l #$1F,d6 * Isolate flagsadd.l d6,d1 * Copy flag results into accumulatoradd.l d5,d2 * Copy data results into data accumulatordbf d0,SUBQ_LOOP3cmpi.l #$000007DD,d1bne.s *cmpi.l #$FFFF8680,d2bne.s ** Check that Flags are not updated for Address registersmove.l #$0001FFFF,a0move #$00,CCR * Clear flagssubq.w #$7,a0bcs.s *rts*-----------------------------------------------------------*-----------------------------------------------------------* OPCODE : MOVEQ*-----------------------------------------------------------*-----------------------------------------------------------op_MOVEQ:moveq #$00000000,d0moveq #$0,d0bne.s *cmpi.l #$00000000,d0bne.s *moveq #$00000000,d0moveq #-128,d0beq.s *bpl.s *cmpi.l #$FFFFFF80,d0bne.s *rts*-----------------------------------------------------------*-----------------------------------------------------------* OPCODE : DIVU*-----------------------------------------------------------*-----------------------------------------------------------op_DIVU:move.l #$a5a5a5a5,d0 * Initial Numeratormove.l #$00005a5a,d1 * Initial Divisormove.l #$a5a5a5a5,d2moveq #$00000000,d3moveq #$00000000,d4 * Cumulative data resultsmoveq #$00000000,d5 * Cumulative flag resultsmove.l #$0000000E,d6 * Inner loop countermove.l #$0000001E,d7 * Outer loop counterDIVU_OUTER1: divu d1,d0 * !! Easy68K C not always clearedmove.w SR,d3andi.l #$0C,d3 * Isolate flagsadd.l d3,d5 * Copy flag results into accumulatoradd.l d0,d4 * Copy data results into data accumulatorlsr.l #$1,d1dbf d6,DIVU_OUTER1lsr.l #$1,d2move.l d2,d0move.l #$00005a5a,d1 * Initial Divisormove.l #$0000000E,d6 * Inner loop counterdbf d7,DIVU_OUTER1cmpi.l #$92FEDB89,d4 * Check the data resultsbne.s *cmpi.l #$00000110,d5 * Check the Flag resultsbne.s *rts*-----------------------------------------------------------*-----------------------------------------------------------* OPCODE : DIVS*-----------------------------------------------------------*-----------------------------------------------------------op_DIVS:move.l #$a5a5a5a5,d0 * Initial Numeratormove.l #$00005a5a,d1 * Initial Divisormove.l #$a5a5a5a5,d2moveq #$00000000,d3moveq #$00000000,d4 * Cumulative data resultsmoveq #$00000000,d5 * Cumulative flag resultsmove.l #$0000000E,d6 * Inner loop countermove.l #$0000001E,d7 * Outer loop counterDIVS_OUTER1: divs d1,d0 * !! Easy68K C not always clearedmove.w SR,d3andi.l #$0C,d3 * Isolate flagsadd.l d3,d5 * Copy flag results into accumulatoradd.l d0,d4 * Copy data results into data accumulatorlsr.l #$1,d1dbf d6,DIVS_OUTER1lsr.l #$1,d2move.l d2,d0move.l #$00005a5a,d1 * Initial Divisormove.l #$0000000E,d6 * Inner loop counterdbf d7,DIVS_OUTER1cmpi.l #$4EC5D057,d4 * Check the data resultsbne.s *cmpi.l #$00000038,d5 * Check the Flag resultsbne.s *rts*-----------------------------------------------------------*-----------------------------------------------------------* OPCODE : OR*-----------------------------------------------------------*-----------------------------------------------------------op_OR:* * <EA> to Registermove.l #$a5a5a5a5,d0 * Initial Data-X Inner loopmove.l #$8167E123,d1 * Initial Data-Y Outer loopmove.l #$a5a5a5a5,d2moveq #$00000000,d3moveq #$00000000,d4 * Cumulative data resultsmoveq #$00000000,d5 * Cumulative flag resultsmove.l #$0000001E,d6 * Inner loop countermove.l #$0000001E,d7 * Outer loop countermove.l #$00000100,a0 * Address for memory EA operationsOR_OUTER1:* BYTEmove.l d1,(a0)or.b (a0),d0move.w SR,d3andi.l #$0C,d3 * Isolate flagsadd.l d3,d5 * Copy flag results into accumulatoradd.l d0,d4 * Copy data results into data accumulator* WORDmove.l d1,(a0)or.w (a0),d0move.w SR,d3andi.l #$0C,d3 * Isolate flagsadd.l d3,d5 * Copy flag results into accumulatoradd.l d0,d4 * Copy data results into data accumulator* LONGmove.l d1,(a0)or.l (a0),d0move.w SR,d3andi.l #$0F,d3 * Isolate flagsadd.l d3,d5 * Copy flag results into accumulatoradd.l d0,d4 * Copy data results into data accumulatorlsr.l #$1,d1dbf d6,OR_OUTER1lsr.l #$1,d2move.l #$8167E123,d1 * Initial Data-Ymove.l #$0000001E,d6 * Inner loop counterdbf d7,OR_OUTER1cmpi.l #$76EAC803,d4 * Check the data resultsbne.s *cmpi.l #$00005A18,d5 * Check the Flag resultsbne.s ** * Register to <EA>move.l #$86738374,d0 * Initial Data-X Inner loopmove.l #$FC55F2FE,d1 * Initial Data-Y Outer loopmove.l #$86738374,d2moveq #$00000000,d3moveq #$00000000,d4 * Cumulative data resultsmoveq #$00000000,d5 * Cumulative flag resultsmove.l #$0000001E,d6 * Inner loop countermove.l #$0000001D,d7 * Outer loop countermove.l #$00000100,a0 * Address for memory EA operationsOR_OUTER2:* BYTEmove.l d0,(a0)or.b d1,(a0)move.w SR,d3andi.l #$0C,d3 * Isolate flagsadd.l d3,d5 * Copy flag results into accumulatoradd.l (a0),d4 * Copy data results into data accumulator* WORDmove.l d0,(a0)or.w d1,(a0)move.w SR,d3andi.l #$0C,d3 * Isolate flagsadd.l d3,d5 * Copy flag results into accumulatoradd.l (a0),d4 * Copy data results into data accumulator* LONGmove.l d0,(a0)or.l d1,(a0)move.w SR,d3andi.l #$0F,d3 * Isolate flagsadd.l d3,d5 * Copy flag results into accumulatoradd.l (a0),d4 * Copy data results into data accumulatorlsr.l #$1,d1dbf d6,OR_OUTER2lsr.l #$1,d2move.l #$8167E123,d1 * Initial Data-Ymove.l #$0000001E,d6 * Inner loop counterdbf d7,OR_OUTER2cmpi.l #$FA82B9E4,d4 * Check the data resultsbne.s *cmpi.l #$00005730,d5 * Check the Flag resultsbne.s *rts*-----------------------------------------------------------*-----------------------------------------------------------* OPCODE : AND*-----------------------------------------------------------*-----------------------------------------------------------op_AND:* * <EA> to Registermove.l #$a5a5a5a5,d0 * Initial Data-X Inner loopmove.l #$8167E123,d1 * Initial Data-Y Outer loopmove.l #$a5a5a5a5,d2moveq #$00000000,d3moveq #$00000000,d4 * Cumulative data resultsmoveq #$00000000,d5 * Cumulative flag resultsmove.l #$0000001E,d6 * Inner loop countermove.l #$0000001E,d7 * Outer loop countermove.l #$00000100,a0 * Address for memory EA operationsAND_OUTER1:* BYTEmove.l d1,(a0)and.b (a0),d0move.w sr,d3andi.l #$0C,d3 * Isolate flagsadd.l d3,d5 * Copy flag results into accumulatoradd.l d0,d4 * Copy data results into data accumulator* WORDmove.l d1,(a0)and.w (a0),d0move.w sr,d3andi.l #$0C,d3 * Isolate flagsadd.l d3,d5 * Copy flag results into accumulatoradd.l d0,d4 * Copy data results into data accumulator* LONGmove.l d1,(a0)and.l (a0),d0move.w sr,d3andi.l #$0F,d3 * Isolate flagsadd.l d3,d5 * Copy flag results into accumulatoradd.l d0,d4 * Copy data results into data accumulatorlsr.l #$1,d1dbf d6,AND_OUTER1lsr.l #$1,d2move.l #$8167E123,d1 * Initial Data-Ymove.l #$0000001E,d6 * Inner loop counterdbf d7,AND_OUTER1cmpi.l #$CF212883,d4 * Check the data resultsbne.s *cmpi.l #$00002D10,d5 * Check the Flag resultsbne.s ** * Register to <EA>move.l #$86738374,d0 * Initial Data-X Inner loopmove.l #$FC55F2FE,d1 * Initial Data-Y Outer loopmove.l #$86738374,d2moveq #$00000000,d3moveq #$00000000,d4 * Cumulative data resultsmoveq #$00000000,d5 * Cumulative flag resultsmove.l #$0000001E,d6 * Inner loop countermove.l #$0000001D,d7 * Outer loop countermove.l #$00000100,a0 * Address for memory EA operationsAND_OUTER2:* BYTEmove.l d0,(a0)and.b d1,(a0)move.w sr,d3andi.l #$0C,d3 * Isolate flagsadd.l d3,d5 * Copy flag results into accumulatoradd.l (a0),d4 * Copy data results into data accumulator* WORDmove.l d0,(a0)and.w d1,(a0)move.w sr,d3andi.l #$0C,d3 * Isolate flagsadd.l d3,d5 * Copy flag results into accumulatoradd.l (a0),d4 * Copy data results into data accumulator* LONGmove.l d0,(a0)and.l d1,(a0)move.w sr,d3andi.l #$0F,d3 * Isolate flagsadd.l d3,d5 * Copy flag results into accumulatoradd.l (a0),d4 * Copy data results into data accumulatorlsr.l #$1,d1dbf d6,AND_OUTER2lsr.l #$1,d2move.l #$8167E123,d1 * Initial Data-Ymove.l #$0000001E,d6 * Inner loop counterdbf d7,AND_OUTER2cmpi.l #$4A3DE544,d4 * Check the data resultsbne.s *cmpi.l #$000018E8,d5 * Check the Flag resultsbne.s *rts*-----------------------------------------------------------*-----------------------------------------------------------* OPCODE : EOR*-----------------------------------------------------------*-----------------------------------------------------------op_EOR:* * Register to <EA>move.l #$86738374,d0 * Initial Data-X Inner loopmove.l #$FC55F2FE,d1 * Initial Data-Y Outer loopmove.l #$86738374,d2moveq #$00000000,d3moveq #$00000000,d4 * Cumulative data resultsmoveq #$00000000,d5 * Cumulative flag resultsmove.l #$0000001E,d6 * Inner loop countermove.l #$0000001D,d7 * Outer loop countermove.l #$00000100,a0 * Address for memory EA operationsEOR_OUTER2:* BYTEmove.l d0,(a0)eor.b d1,(a0)move.w sr,d3andi.l #$0C,d3 * Isolate flagsadd.l d3,d5 * Copy flag results into accumulatoradd.l (a0),d4 * Copy data results into data accumulator* WORDmove.l d0,(a0)eor.w d1,(a0)move.w sr,d3andi.l #$0C,d3 * Isolate flagsadd.l d3,d5 * Copy flag results into accumulatoradd.l (a0),d4 * Copy data results into data accumulator* LONGmove.l d0,(a0)eor.l d1,(a0)move.w sr,d3andi.l #$0F,d3 * Isolate flagsadd.l d3,d5 * Copy flag results into accumulatoradd.l (a0),d4 * Copy data results into data accumulatorlsr.l #$1,d1dbf d6,EOR_OUTER2lsr.l #$1,d2move.l #$8167E123,d1 * Initial Data-Ymove.l #$0000001E,d6 * Inner loop counterdbf d7,EOR_OUTER2cmpi.l #$55C5EB70,d4 * Check the data resultsbne.s *cmpi.l #$00004430,d5 * Check the Flag resultsbne.s *rts*-----------------------------------------------------------*-----------------------------------------------------------* OPCODE : CMP*-----------------------------------------------------------*-----------------------------------------------------------op_CMP:* * <EA> to Registermove.l #$a5a5a5a5,d0 * Initial Data-X Inner loopmove.l #$8167E123,d1 * Initial Data-Y Outer loopmove.l #$a5a5a5a5,d2moveq #$00000000,d3moveq #$00000000,d4 * Cumulative data resultsmoveq #$00000000,d5 * Cumulative flag resultsmove.l #$0000001E,d6 * Inner loop countermove.l #$0000001E,d7 * Outer loop countermove.l #$00000100,a0 * Address for memory EA operationsCMP_OUTER1:* BYTEmove.l d1,(a0)cmp.b (a0),d0move.w sr,d3andi.l #$0F,d3 * Isolate flagsadd.l d3,d5 * Copy flag results into accumulatoradd.l d0,d4 * Copy data results into data accumulator* WORDmove.l d1,(a0)cmp.w (a0),d0move.w sr,d3andi.l #$0F,d3 * Isolate flagsadd.l d3,d5 * Copy flag results into accumulatoradd.l d0,d4 * Copy data results into data accumulator* LONGmove.l d1,(a0)cmp.l (a0),d0move.w sr,d3andi.l #$0F,d3 * Isolate flagsadd.l d3,d5 * Copy flag results into accumulatoradd.l d0,d4 * Copy data results into data accumulatorlsr.l #$1,d1dbf d6,CMP_OUTER1lsr.l #$1,d2move.l #$8167E123,d1 * Initial Data-Ymove.l #$0000001E,d6 * Inner loop counterdbf d7,CMP_OUTER1cmpi.l #$7878712F,d4 * Check the data resultsbne.s *cmpi.l #$00005502,d5 * Check the Flag resultsbne.s *rts*-----------------------------------------------------------*-----------------------------------------------------------* OPCODE : CMPA*-----------------------------------------------------------*-----------------------------------------------------------op_CMPA:* * <EA> to Registermove.l #$a5a5a5a5,a0 * Initial Data-X Inner loopmove.l #$8167E123,d1 * Initial Data-Y Outer loopmove.l #$a5a5a5a5,d2moveq #$00000000,d3moveq #$00000000,d4 * Cumulative data resultsmoveq #$00000000,d5 * Cumulative flag resultsmove.l #$0000001E,d6 * Inner loop countermove.l #$0000001E,d7 * Outer loop countermove.l #$00000100,a1 * Address for memory EA operationsCMPA_OUTER1:* WORDmove.l d1,(a1)cmpa.w (a1),a0move.w sr,d3andi.l #$0F,d3 * Isolate flagsadd.l d3,d5 * Copy flag results into accumulatoradd.l a0,d4 * Copy data results into data accumulator* LONGmove.l d1,(a1)cmpa.l (a1),a0move.w sr,d3andi.l #$0F,d3 * Isolate flagsadd.l d3,d5 * Copy flag results into accumulatoradd.l a0,d4 * Copy data results into data accumulatorlsr.l #$1,d1dbf d6,CMPA_OUTER1lsr.l #$1,d2move.l #$8167E123,d1 * Initial Data-Ymove.l #$0000001E,d6 * Inner loop counterdbf d7,CMPA_OUTER1cmpi.l #$a5a5a0ca,d4 * Check the data resultsbne.s *cmpi.l #$00003A7D,d5 * Check the Flag resultsbne.s *rts*-----------------------------------------------------------*-----------------------------------------------------------* OPCODE : CMPM*-----------------------------------------------------------*-----------------------------------------------------------op_CMPM:move.l #$00000100,a0 * Address for Data-Xmove.l #$00000200,a1 * Address for Data-Ymoveq #$00000000,d0moveq #$00000000,d1moveq #$00000000,d2move.l #$11FF5580,(a0)+ * Populate test datamove.l #$1111FFFF,(a0)+ * Populate test datamove.l #$33333333,(a0)+ * Populate test datamove.l #$44444444,(a0)+ * Populate test datamove.l #$80FF337F,(a1)+ * Populate test datamove.l #$FFFF1111,(a1)+ * Populate test datamove.l #$33333333,(a1)+ * Populate test datamove.l #$44444444,(a1)+ * Populate test datamove.l #$00000100,a0 * Address for Data-Xmove.l #$00000200,a1 * Address for Data-Ymove.l #$0000000F,d6 * Loop counterCMPM_LOOP1: cmpm.b (a0)+,(a1)+move.w sr,d3andi.l #$0F,d3 * Isolate flagsadd.l d3,d0 * Copy flag results into accumulatordbf d6,CMPM_LOOP1move.l #$00000100,a0 * Address for Data-Xmove.l #$00000200,a1 * Address for Data-Ymoveq #$00000007,d6 * Loop counterCMPM_LOOP2: cmpm.w (a0)+,(a1)+move.w sr,d3andi.l #$0F,d3 * Isolate flagsadd.l d3,d1 * Copy flag results into accumulatordbf d6,CMPM_LOOP2move.l #$00000100,a0 * Address for Data-Xmove.l #$00000200,a1 * Address for Data-Ymoveq #$00000003,d6 * Loop counterCMPM_LOOP3: cmpm.l (a0)+,(a1)+move.w sr,d3andi.l #$0F,d3 * Isolate flagsadd.l d3,d2 * Copy flag results into accumulatordbf d6,CMPM_LOOP3cmpi.l #$0000004C,d0 * Check the data resultsbne.s *cmpi.l #$00000024,d1bne.s *cmpi.l #$00000012,d2bne.s *rts*-----------------------------------------------------------*-----------------------------------------------------------* OPCODE : ADD*-----------------------------------------------------------*-----------------------------------------------------------op_ADD:* * <EA> to Registermove.l #$a5a5a5a5,d0 * Initial Data-X Inner loopmove.l #$8167E123,d1 * Initial Data-Y Outer loopmove.l #$a5a5a5a5,d2moveq #$00000000,d3moveq #$00000000,d4 * Cumulative data resultsmoveq #$00000000,d5 * Cumulative flag resultsmove.l #$0000001E,d6 * Inner loop countermove.l #$0000001E,d7 * Outer loop countermove.l #$00000100,a0 * Address for memory EA operationsADD_OUTER1:* BYTEmove.l d1,(a0)add.b (a0),d0move.w sr,d3andi.l #$1F,d3 * Isolate flagsadd.l d3,d5 * Copy flag results into accumulatoradd.l d0,d4 * Copy data results into data accumulator* WORDmove.l d1,(a0)add.w (a0),d0move.w sr,d3andi.l #$0C,d3 * Isolate flagsadd.l d3,d5 * Copy flag results into accumulatoradd.l d0,d4 * Copy data results into data accumulator* LONGmove.l d1,(a0)add.l (a0),d0move.w sr,d3andi.l #$0F,d3 * Isolate flagsadd.l d3,d5 * Copy flag results into accumulatoradd.l d0,d4 * Copy data results into data accumulatorror.l #$1,d1dbf d6,ADD_OUTER1ror.l #$1,d2move.l #$8167E123,d1 * Initial Data-Ymove.l #$0000001E,d6 * Inner loop counterdbf d7,ADD_OUTER1cmpi.l #$23ED428F,d4 * Check the data resultsbne.s *cmpi.l #$00004C96,d5 * Check the Flag resultsbne.s ** * Register to <EA>move.l #$86738374,d0 * Initial Data-X Inner loopmove.l #$FC55F2FE,d1 * Initial Data-Y Outer loopmove.l #$86738374,d2moveq #$00000000,d3moveq #$00000000,d4 * Cumulative data resultsmoveq #$00000000,d5 * Cumulative flag resultsmove.l #$0000001E,d6 * Inner loop countermove.l #$0000001D,d7 * Outer loop countermove.l #$00000100,a0 * Address for memory EA operationsADD_OUTER2:* BYTEmove.l d0,(a0)add.b d1,(a0)move.w sr,d3andi.l #$0C,d3 * Isolate flagsadd.l d3,d5 * Copy flag results into accumulatoradd.l (a0),d4 * Copy data results into data accumulator* WORDmove.l d0,(a0)add.w d1,(a0)move.w sr,d3andi.l #$1F,d3 * Isolate flagsadd.l d3,d5 * Copy flag results into accumulatoradd.l (a0),d4 * Copy data results into data accumulator* LONGmove.l d0,(a0)add.l d1,(a0)move.w sr,d3andi.l #$0F,d3 * Isolate flagsadd.l d3,d5 * Copy flag results into accumulatoradd.l (a0),d4 * Copy data results into data accumulatorror.l #$1,d1dbf d6,ADD_OUTER2ror.l #$1,d2move.l #$8167E123,d1 * Initial Data-Ymove.l #$0000001E,d6 * Inner loop counterdbf d7,ADD_OUTER2cmpi.l #$6701B884,d4 * Check the data resultsbne.s *cmpi.l #$00005467,d5 * Check the Flag resultsbne.s *rts*-----------------------------------------------------------*-----------------------------------------------------------* OPCODE : SUB*-----------------------------------------------------------*-----------------------------------------------------------op_SUB:* * <EA> to Registermove.l #$a5a5a5a5,d0 * Initial Data-X Inner loopmove.l #$8167E123,d1 * Initial Data-Y Outer loopmove.l #$a5a5a5a5,d2moveq #$00000000,d3moveq #$00000000,d4 * Cumulative data resultsmoveq #$00000000,d5 * Cumulative flag resultsmove.l #$0000001E,d6 * Inner loop countermove.l #$0000001E,d7 * Outer loop countermove.l #$00000100,a0 * Address for memory EA operationsSUB_OUTER1:* BYTEmove.l d1,(a0)sub.b (a0),d0move.w sr,d3andi.l #$1F,d3 * Isolate flagsadd.l d3,d5 * Copy flag results into accumulatoradd.l d0,d4 * Copy data results into data accumulator* WORDmove.l d1,(a0)sub.w (a0),d0move.w sr,d3andi.l #$0C,d3 * Isolate flagsadd.l d3,d5 * Copy flag results into accumulatoradd.l d0,d4 * Copy data results into data accumulator* LONGmove.l d1,(a0)sub.l (a0),d0move.w sr,d3andi.l #$0F,d3 * Isolate flagsadd.l d3,d5 * Copy flag results into accumulatoradd.l d0,d4 * Copy data results into data accumulatorror.l #$1,d1dbf d6,SUB_OUTER1ror.l #$1,d2move.l #$8167E123,d1 * Initial Data-Ymove.l #$0000001E,d6 * Inner loop counterdbf d7,SUB_OUTER1cmpi.l #$1A8D14CF,d4 * Check the data resultsbne.s *cmpi.l #$00004FC4,d5 * Check the Flag resultsbne.s ** * Register to <EA>move.l #$86738374,d0 * Initial Data-X Inner loopmove.l #$FC55F2FE,d1 * Initial Data-Y Outer loopmove.l #$86738374,d2moveq #$00000000,d3moveq #$00000000,d4 * Cumulative data resultsmoveq #$00000000,d5 * Cumulative flag resultsmove.l #$0000001E,d6 * Inner loop countermove.l #$0000001D,d7 * Outer loop countermove.l #$00000100,a0 * Address for memory EA operationsSUB_OUTER2:* BYTEmove.l d0,(a0)sub.b d1,(a0)move.w sr,d3andi.l #$0C,d3 * Isolate flagsadd.l d3,d5 * Copy flag results into accumulatoradd.l (a0),d4 * Copy data results into data accumulator* WORDmove.l d0,(a0)sub.w d1,(a0)move.w sr,d3andi.l #$1F,d3 * Isolate flagsadd.l d3,d5 * Copy flag results into accumulatoradd.l (a0),d4 * Copy data results into data accumulator* LONGmove.l d0,(a0)sub.l d1,(a0)move.w sr,d3andi.l #$0F,d3 * Isolate flagsadd.l d3,d5 * Copy flag results into accumulatoradd.l (a0),d4 * Copy data results into data accumulatorror.l #$1,d1dbf d6,SUB_OUTER2ror.l #$1,d2move.l #$8167E123,d1 * Initial Data-Ymove.l #$0000001E,d6 * Inner loop counterdbf d7,SUB_OUTER2cmpi.l #$36D38BEC,d4 * Check the data resultsbne.s *cmpi.l #$000045A5,d5 * Check the Flag resultsbne.s *rts*-----------------------------------------------------------*-----------------------------------------------------------* OPCODE : ADDA*-----------------------------------------------------------*-----------------------------------------------------------op_ADDA:* * <EA> to Registermove.l #$a5a5a5a5,d0 * Initial Data-X Inner loopmove.l #$8167E123,d1move.l #$a5a5a5a5,d2moveq #$00000000,d3moveq #$00000000,d4 * Cumulative data resultsmoveq #$00000000,d5 * Cumulative flag resultsmove.l #$0000001E,d6 * Inner loop countermove.l #$0000001E,d7 * Outer loop countermove.l #$00000100,a0 * Address for memory EA operationsmove.l #$8167E123,a1 * Initial Data-Y Outer loopADDA_OUTER1:* WORD* move.l d1,(a0) * !!! Easy68K is not altering the whole 32-bits of the address register* adda.w (a0),a1* add.l a1,d4 * Copy data results into data accumulator* LONGmove.l d1,(a0)adda.l (a0),a1add.l a1,d4 * Copy data results into data accumulatorror.l #$1,d1dbf d6,ADDA_OUTER1ror.l #$1,d1move.l d1,a1move.l #$8167E123,d1 * Initial Data-Ymove.l #$0000001E,d6 * Inner loop counterdbf d7,ADDA_OUTER1cmpi.l #$AC04DB4C,d4 * Check the data resultsbne.s *rts*-----------------------------------------------------------*-----------------------------------------------------------* OPCODE : SUBA*-----------------------------------------------------------*-----------------------------------------------------------op_SUBA:* * <EA> to Registermove.l #$a5a5a5a5,d0 * Initial Data-X Inner loopmove.l #$8167E123,d1move.l #$a5a5a5a5,d2moveq #$00000000,d3moveq #$00000000,d4 * Cumulative data resultsmoveq #$00000000,d5 * Cumulative flag resultsmove.l #$0000001E,d6 * Inner loop countermove.l #$0000001E,d7 * Outer loop countermove.l #$00000100,a0 * Address for memory EA operationsmove.l #$8167E123,a1 * Initial Data-Y Outer loopSUBA_OUTER1:* WORD* move.l d1,(a0) * !!! Easy68K is not altering the whole 32-bits of the address register* suba.w (a0),a1* add.l a1,d4 * Copy data results into data accumulator* LONGmove.l d1,(a0)suba.l (a0),a1add.l a1,d4 * Copy data results into data accumulatorror.l #$1,d1dbf d6,SUBA_OUTER1ror.l #$1,d1move.l d1,a1move.l #$8167E123,d1 * Initial Data-Ymove.l #$0000001E,d6 * Inner loop counterdbf d7,SUBA_OUTER1cmpi.l #$E1E36D7A,d4 * Check the data resultsbne.s *rts*-----------------------------------------------------------*-----------------------------------------------------------* OPCODE : ADDX*-----------------------------------------------------------*-----------------------------------------------------------op_ADDX:* * Register to Registermove.l #$a5a5a5a5,d0 * Initial Data-X Inner loopmove.l #$8167E123,d1 * Initial Data-Y Outer loopmove.l #$a5a5a5a5,d2moveq #$00000000,d3moveq #$00000000,d4 * Cumulative data resultsmoveq #$00000000,d5 * Cumulative flag resultsmove.l #$0000001E,d6 * Inner loop countermove.l #$0000001E,d7 * Outer loop countermove.l #$00000100,a0 * Address for memory EA operationsADDX_OUTER1:* BYTEmove.l d2,d0addx.b d1,d0move.w sr,d3andi.l #$1F,d3 * Isolate flagsadd.l d3,d5 * Copy flag results into accumulatoradd.l d0,d4 * Copy data results into data accumulator* WORDmove.l d2,d0addx.w d1,d0move.w sr,d3andi.l #$1F,d3 * Isolate flagsadd.l d3,d5 * Copy flag results into accumulatoradd.l d0,d4 * Copy data results into data accumulator* LONGmove.l d2,d0addx.l d1,d0move.w sr,d3andi.l #$1F,d3 * Isolate flagsadd.l d3,d5 * Copy flag results into accumulatoradd.l d0,d4 * Copy data results into data accumulatorror.l #$1,d1dbf d6,ADDX_OUTER1ror.l #$1,d2move.l #$8167E123,d1 * Initial Data-Ymove.l #$0000001E,d6 * Inner loop counterdbf d7,ADDX_OUTER1cmpi.l #$4E96A4D9,d4 * Check the data resultsbne.s *cmpi.l #$000085CD,d5 * Check the Flag resultsbne.s ** -(An),-(An)moveq #$00000000,d0 * BYTE Flag Results Accumulatormoveq #$00000000,d1moveq #$00000000,d2move.l #$00000100,a0 * Address for Data-Xmove.l #$00000200,a1 * Address for Data-Ymove.l #$11FF5580,(a0)+ * Populate test datamove.l #$1111FFFF,(a0)+ * Populate test datamove.l #$33333333,(a0)+ * Populate test datamove.l #$44444444,(a0)+ * Populate test datamove.l #$80FF337F,(a1)+ * Populate test datamove.l #$FFFF1111,(a1)+ * Populate test datamove.l #$33333333,(a1)+ * Populate test datamove.l #$44444444,(a1)+ * Populate test datamove.l #$0000000F,d6 * Loop counterADDX_LOOP3: addx.b -(a0),-(a1)move.w sr,d3andi.l #$0F,d3 * Isolate flagsadd.l d3,d0 * Copy flag results into accumulatoradd.b (a1),d1dbf d6,ADDX_LOOP3move.l #$00000110,a0 * Address for Data-Xmove.l #$00000210,a1 * Address for Data-Ymoveq #$00000007,d6 * Loop counterADDX_LOOP4: addx.w -(a0),-(a1)move.w sr,d3andi.l #$0F,d3 * Isolate flagsadd.l d3,d0 * Copy flag results into accumulatoradd.w (a1),d1dbf d6,ADDX_LOOP4move.l #$00000110,a0 * Address for Data-Xmove.l #$00000210,a1 * Address for Data-Ymoveq #$00000003,d6 * Loop counterADDX_LOOP5: addx.l -(a0),-(a1)move.w sr,d3andi.l #$0F,d3 * Isolate flagsadd.l d3,d0 * Copy flag results into accumulatoradd.l (a1),d1dbf d6,ADDX_LOOP5cmpi.l #$00000095,d0 * Check the flag resultsbne.s *cmpi.l #$C812A682,d1 * Check the data resultsbne.s *rts*-----------------------------------------------------------*-----------------------------------------------------------* OPCODE : SUBX*-----------------------------------------------------------*-----------------------------------------------------------op_SUBX:* * Register to Registermove.l #$a5a5a5a5,d0 * Initial Data-X Inner loopmove.l #$8167E123,d1 * Initial Data-Y Outer loopmove.l #$a5a5a5a5,d2moveq #$00000000,d3moveq #$00000000,d4 * Cumulative data resultsmoveq #$00000000,d5 * Cumulative flag resultsmove.l #$0000001E,d6 * Inner loop countermove.l #$0000001E,d7 * Outer loop countermove.l #$00000100,a0 * Address for memory EA operationsSUBX_OUTER1:* BYTEmove.l d2,d0subx.b d1,d0move.w sr,d3andi.l #$1F,d3 * Isolate flagsadd.l d3,d5 * Copy flag results into accumulatoradd.l d0,d4 * Copy data results into data accumulator* WORDmove.l d2,d0subx.w d1,d0move.w sr,d3andi.l #$1F,d3 * Isolate flagsadd.l d3,d5 * Copy flag results into accumulatoradd.l d0,d4 * Copy data results into data accumulator* LONGmove.l d2,d0subx.l d1,d0move.w sr,d3andi.l #$1F,d3 * Isolate flagsadd.l d3,d5 * Copy flag results into accumulatoradd.l d0,d4 * Copy data results into data accumulatorror.l #$1,d1dbf d6,SUBX_OUTER1ror.l #$1,d2move.l #$8167E123,d1 * Initial Data-Ymove.l #$0000001E,d6 * Inner loop counterdbf d7,SUBX_OUTER1cmpi.l #$FCAA913E,d4 * Check the data resultsbne.s *cmpi.l #$00007E89,d5 * Check the Flag resultsbne.s ** -(An),-(An)moveq #$00000000,d0 * BYTE Flag Results Accumulatormoveq #$00000000,d1moveq #$00000000,d2move.l #$00000100,a0 * Address for Data-Xmove.l #$00000200,a1 * Address for Data-Ymove.l #$11FF5580,(a0)+ * Populate test datamove.l #$1111FFFF,(a0)+ * Populate test datamove.l #$80FF337F,(a0)+ * Populate test datamove.l #$44444444,(a0)+ * Populate test datamove.l #$80FF337F,(a1)+ * Populate test datamove.l #$1111FFFF,(a1)+ * Populate test datamove.l #$33333333,(a1)+ * Populate test datamove.l #$5580EECC,(a1)+ * Populate test datamove.l #$0000000F,d6 * Loop counterSUBX_LOOP3: subx.b -(a0),-(a1)move.w sr,d3andi.l #$0F,d3 * Isolate flagsadd.l d3,d0 * Copy flag results into accumulatoradd.b (a1),d1dbf d6,SUBX_LOOP3move.l #$00000110,a0 * Address for Data-Xmove.l #$00000210,a1 * Address for Data-Ymoveq #$00000007,d6 * Loop counterSUBX_LOOP4: subx.w -(a0),-(a1)move.w sr,d3andi.l #$0F,d3 * Isolate flagsadd.l d3,d0 * Copy flag results into accumulatoradd.w (a1),d1dbf d6,SUBX_LOOP4move.l #$00000110,a0 * Address for Data-Xmove.l #$00000210,a1 * Address for Data-Ymoveq #$00000003,d6 * Loop counterSUBX_LOOP5: subx.l -(a0),-(a1)move.w sr,d3andi.l #$0F,d3 * Isolate flagsadd.l d3,d0 * Copy flag results into accumulatoradd.l (a1),d1dbf d6,SUBX_LOOP5cmpi.l #$000000B1,d0 * Check the flag resultsbne.s *cmpi.l #$62C6F417,d1 * Check the data resultsbne.s *rts*-----------------------------------------------------------*-----------------------------------------------------------* OPCODE : MULU*-----------------------------------------------------------*-----------------------------------------------------------op_MULU:move.l #$FE805501,d0 * Initialmove.l #$5697EDB6,d1 * Initial Ymove.l #$FE805501,d2moveq #$00000000,d3moveq #$00000000,d4 * Cumulative data resultsmoveq #$00000000,d5 * Cumulative flag resultsmove.l #$0000000E,d6 * Inner loop countermove.l #$0000000E,d7 * Outer loop counterMULU_OUTER1: mulu d1,d0move.w sr,d3andi.l #$0C,d3 * Isolate flagsadd.l d3,d5 * Copy flag results into accumulatoradd.l d0,d4 * Copy data results into data accumulatorror.l #$1,d1dbf d6,MULU_OUTER1ror.l #$1,d2move.l d2,d0move.l #$0000000E,d6 * Inner loop counterdbf d7,MULU_OUTER1cmpi.l #$76FB988C,d4 * Check the data resultsbne.s *cmpi.l #$00000170,d5 * Check the Flag resultsbne.s *rts*-----------------------------------------------------------*-----------------------------------------------------------* OPCODE : MULS*-----------------------------------------------------------*-----------------------------------------------------------op_MULS:move.l #$FE805501,d0 * Initialmove.l #$5697EDB6,d1 * Initial Ymove.l #$FE805501,d2moveq #$00000000,d3moveq #$00000000,d4 * Cumulative data resultsmoveq #$00000000,d5 * Cumulative flag resultsmove.l #$0000000E,d6 * Inner loop countermove.l #$0000000E,d7 * Outer loop counterMULS_OUTER1: muls d1,d0move.w sr,d3andi.l #$0C,d3 * Isolate flagsadd.l d3,d5 * Copy flag results into accumulatoradd.l d0,d4 * Copy data results into data accumulatorror.l #$1,d1dbf d6,MULS_OUTER1ror.l #$1,d2move.l d2,d0move.l #$0000000E,d6 * Inner loop counterdbf d7,MULS_OUTER1cmpi.l #$D4E2988C,d4 * Check the data resultsbne.s *cmpi.l #$000003E0,d5 * Check the Flag resultsbne.s *rts*-----------------------------------------------------------*-----------------------------------------------------------* OPCODE : EXG*-----------------------------------------------------------*-----------------------------------------------------------op_EXG:move.l #$d1d1d1d1,d1move.l #$d2d2d2d2,d2move.l #$d3d3d3d3,d3move.l #$a1a1a1a1,a1move.l #$a2a2a2a2,a2move.l #$a3a3a3a3,a3exg d1,d2exg a1,a2exg d3,a3cmpi.l #$d2d2d2d2,d1 * Check the resultsbne.s *cmpi.l #$d1d1d1d1,d2bne.s *cmpi.l #$a3a3a3a3,d3bne.s *move.l a1,d1move.l a2,d2move.l a3,d3cmpi.l #$a2a2a2a2,d1bne.s *cmpi.l #$a1a1a1a1,d2bne.s *cmpi.l #$d3d3d3d3,d3bne.s *rts*-----------------------------------------------------------*-----------------------------------------------------------* OPCODE : ROx*-----------------------------------------------------------*-----------------------------------------------------------* Subroutine to check and accumulate the flagsROx_FLAGS: move.w sr,d3andi.l #$0F,d3 * Isolate flagsadd.l d3,d5 * Copy flag results into accumulatorrtsop_ROx:* Shift a Register LEFT and RIGHT with shift_count ## IN A REGISTER ##* BYTE LEFTmove.l #$80018FF1,d0moveq #$00000000,d5moveq #$00000011,d6ROx_LOOP1:rol.b d6,d0bsr ROx_FLAGSdbf d6,ROx_LOOP1cmpi.l #$80018FE3,d0bne.s *cmpi.l #$0000006B,d5bne.s ** BYTE RIGHTmove.l #$80018FF1,d0moveq #$00000012,d6ROx_LOOP2:ror.b d6,d0bsr ROx_FLAGSdbf d6,ROx_LOOP2cmpi.l #$80018F3E,d0bne.s *cmpi.l #$000000C5,d5bne.s ** WORD LEFTmove.l #$80018FF1,d0moveq #$00000013,d6ROx_LOOP3:rol.w d6,d0bsr ROx_FLAGSdbf d6,ROx_LOOP3cmpi.l #$800163FC,d0bne.s *cmpi.l #$00000131,d5bne.s ** WORD RIGHTmove.l #$80018FF1,d0move.l #$0000001E,d6ROx_LOOP4:ror.w d6,d0bsr ROx_FLAGSdbf d6,ROx_LOOP4cmpi.l #$8001C7F8,d0bne.s *cmpi.l #$000001DB,d5bne.s ** LONG LEFTmove.l #$80018FF1,d0moveq #$00000015,d6ROx_LOOP5:rol.l d6,d0bsr ROx_FLAGSdbf d6,ROx_LOOP5cmpi.l #$00C7F8C0,d0bne.s *cmpi.l #$0000021A,d5bne.s ** LONG RIGHTmove.l #$80018FF1,d0moveq #$00000016,d6ROx_LOOP6:ror.l d6,d0bsr ROx_FLAGSdbf d6,ROx_LOOP6cmpi.l #$000C7F8C,d0bne.s *cmpi.l #$00000250,d5bne.s ** Shift a Register LEFT and RIGHT with shift_count ## IN THE OPCODE ##move.l #$80018FF1,d0moveq #$00000000,d5* BYTE LEFTrol.b #1,d0bsr ROx_FLAGSrol.b #5,d0bsr ROx_FLAGSrol.b #7,d0bsr ROx_FLAGSrol.b #8,d0bsr ROx_FLAGScmpi.l #$80018F3E,d0bne.s *cmpi.l #$00000009,d5bne.s ** BYTE RIGHTror.b #1,d0bsr ROx_FLAGSror.b #5,d0bsr ROx_FLAGSror.b #7,d0bsr ROx_FLAGSror.b #8,d0bsr ROx_FLAGScmpi.l #$80018FF1,d0bne.s *cmpi.l #$00000024,d5bne.s ** WORD LEFTrol.w #1,d0bsr ROx_FLAGSrol.w #5,d0bsr ROx_FLAGSrol.w #7,d0bsr ROx_FLAGSrol.w #8,d0bsr ROx_FLAGScmpi.l #$8001FE31,d0bne.s *cmpi.l #$00000037,d5bne.s ** WORD RIGHTror.w #1,d0bsr ROx_FLAGSror.w #5,d0bsr ROx_FLAGSror.w #7,d0bsr ROx_FLAGSror.w #8,d0bsr ROx_FLAGScmpi.l #$80018FF1,d0bne.s *cmpi.l #$0000005B,d5bne.s ** LONG LEFTrol.l #1,d0bsr ROx_FLAGSrol.l #5,d0bsr ROx_FLAGSrol.l #7,d0bsr ROx_FLAGSrol.l #8,d0bsr ROx_FLAGScmpi.l #$FE300031,d0bne.s *cmpi.l #$00000065,d5bne.s ** LONG RIGHTror.l #1,d0bsr ROx_FLAGSror.l #5,d0bsr ROx_FLAGSror.l #7,d0bsr ROx_FLAGSror.l #8,d0bsr ROx_FLAGScmpi.l #$80018FF1,d0bne.s *cmpi.l #$00000080,d5bne.s ** Shift a Memory location LEFT and RIGHT with shift_count of 1 - WORD onlymoveq #$00000000,d5move.l #$00000100,a0move.w #$8FF1,(a0)* WORD LEFTrol (a0)bsr ROx_FLAGSrol (a0)bsr ROx_FLAGSrol (a0)bsr ROx_FLAGSrol (a0)bsr ROx_FLAGSmove.w (a0),d0cmpi.l #$8001FF18,d0bne.s *cmpi.l #$00000009,d5bne.s ** WORD RIGHTror (a0)bsr ROx_FLAGSror (a0)bsr ROx_FLAGSror (a0)bsr ROx_FLAGSror (a0)bsr ROx_FLAGSror (a0)bsr ROx_FLAGSror (a0)bsr ROx_FLAGSmove.w (a0),d0cmpi.l #$800163FC,d0bne.s *cmpi.l #$0000001B,d5bne.s *rts*-----------------------------------------------------------*-----------------------------------------------------------* OPCODE : ROXx*-----------------------------------------------------------*-----------------------------------------------------------* Subroutine to check and accumulate the flagsROXx_FLAGS: move.w sr,d3andi.l #$0F,d3 * Isolate flagsadd.l d3,d5 * Copy flag results into accumulatorrtsop_ROXx:* Shift a Register LEFT and RIGHT with shift_count ## IN A REGISTER ##* BYTE LEFTmove.l #$80018FF1,d0moveq #$00000000,d5moveq #$00000011,d6ROXx_LOOP1:roxl.b d6,d0bsr ROXx_FLAGSdbf d6,ROXx_LOOP1cmpi.l #$80018FD0,d0bne.s *cmpi.l #$00000042,d5bne.s ** BYTE RIGHTmove.l #$80018FF1,d0moveq #$00000012,d6ROXx_LOOP2:roxr.b d6,d0bsr ROXx_FLAGSdbf d6,ROXx_LOOP2cmpi.l #$80018F51,d0bne.s *cmpi.l #$0000009C,d5bne.s ** WORD LEFTmove.l #$80018FF1,d0moveq #$00000013,d6ROXx_LOOP3:roxl.w d6,d0bsr ROXx_FLAGSdbf d6,ROXx_LOOP3cmpi.l #$80013980,d0bne.s *cmpi.l #$000000C9,d5bne.s ** WORD RIGHTmove.l #$80018FF1,d0move.l #$0000001E,d6ROXx_LOOP4:roxr.w d6,d0bsr ROXx_FLAGSdbf d6,ROXx_LOOP4cmpi.l #$80010A1D,d0bne.s *cmpi.l #$0000014D,d5bne.s ** LONG LEFTmove.l #$80018FF1,d0moveq #$00000015,d6ROXx_LOOP5:roxl.l d6,d0bsr ROXx_FLAGSdbf d6,ROXx_LOOP5cmpi.l #$800185D0,d0bne.s *cmpi.l #$000001A1,d5bne.s ** LONG RIGHTmove.l #$80018FF1,d0moveq #$00000016,d6ROXx_LOOP6:roxr.l d6,d0bsr ROXx_FLAGSdbf d6,ROXx_LOOP6cmpi.l #$082D8200,d0bne.s *cmpi.l #$000001DE,d5bne.s ** Shift a Register LEFT and RIGHT with shift_count ## IN THE OPCODE ##move.l #$80018FF1,d0moveq #$00000000,d5* BYTE LEFTroxl.b #1,d0bsr ROXx_FLAGSroxl.b #5,d0bsr ROXx_FLAGSroxl.b #7,d0bsr ROXx_FLAGSroxl.b #8,d0bsr ROXx_FLAGScmpi.l #$80018F09,d0bne.s *cmpi.l #$0000000B,d5bne.s ** BYTE RIGHTroxr.b #1,d0bsr ROXx_FLAGSroxr.b #5,d0bsr ROXx_FLAGSroxr.b #7,d0bsr ROXx_FLAGSroxr.b #8,d0bsr ROXx_FLAGScmpi.l #$80018F00,d0bne.s *cmpi.l #$00000015,d5bne.s ** WORD LEFTroxl.w #1,d0bsr ROXx_FLAGSroxl.w #5,d0bsr ROXx_FLAGSroxl.w #7,d0bsr ROXx_FLAGSroxl.w #8,d0bsr ROXx_FLAGScmpi.l #$8001B000,d0bne.s *cmpi.l #$00000027,d5bne.s ** WORD RIGHTroxr.w #1,d0bsr ROXx_FLAGSroxr.w #5,d0bsr ROXx_FLAGSroxr.w #7,d0bsr ROXx_FLAGSroxr.w #8,d0bsr ROXx_FLAGScmpi.l #$80010A00,d0bne.s *cmpi.l #$00000028,d5bne.s ** LONG LEFTroxl.l #1,d0bsr ROXx_FLAGSroxl.l #5,d0bsr ROXx_FLAGSroxl.l #7,d0bsr ROXx_FLAGSroxl.l #8,d0bsr ROXx_FLAGScmpi.l #$40000010,d0bne.s *cmpi.l #$0000002A,d5bne.s ** LONG RIGHTroxr.l #1,d0bsr ROXx_FLAGSroxr.l #5,d0bsr ROXx_FLAGSroxr.l #7,d0bsr ROXx_FLAGSroxr.l #8,d0bsr ROXx_FLAGScmpi.l #$00010200,d0bne.s *cmpi.l #$00000032,d5bne.s ** Shift a Memory location LEFT and RIGHT with shift_count of 1 - WORD onlymoveq #$00000000,d5move.l #$00000100,a0move.w #$8FF1,(a0)* WORD LEFTroxl (a0)bsr ROXx_FLAGSroxl (a0)bsr ROXx_FLAGSroxl (a0)bsr ROXx_FLAGSroxl (a0)bsr ROXx_FLAGSmove.w (a0),d0cmpi.l #$0001FF10,d0bne.s *cmpi.l #$00000009,d5bne.s ** WORD RIGHTroxr (a0)bsr ROXx_FLAGSroxr (a0)bsr ROXx_FLAGSroxr (a0)bsr ROXx_FLAGSroxr (a0)bsr ROXx_FLAGSroxr (a0)bsr ROXx_FLAGSroxr (a0)bsr ROXx_FLAGSmove.w (a0),d0cmpi.l #$000103FC,d0bne.s *cmpi.l #$0000000A,d5bne.s *rts*-----------------------------------------------------------*-----------------------------------------------------------* OPCODE : SHIFTS*-----------------------------------------------------------*-----------------------------------------------------------* Subroutine to check and accumulate the flagsSHIFTS_FLAGS: move.w sr,d3andi.l #$0F,d3 * Isolate flagsadd.l d3,d5 * Copy flag results into accumulatorrtsop_SHIFTS:* Shift a Register LEFT and RIGHT with shift_count ## IN A REGISTER ##* BYTE LEFTmove.l #$80018F81,d0moveq #$00000000,d5moveq #$00000002,d6SHIFTS_LOOP1:asl.b d6,d0bsr SHIFTS_FLAGSdbf d6,SHIFTS_LOOP1cmpi.l #$80018F08,d0bne.s *cmpi.l #$00000002,d5bne.s ** BYTE RIGHTmove.l #$80018F81,d0moveq #$00000002,d6SHIFTS_LOOP2:asr.b d6,d0bsr SHIFTS_FLAGSdbf d6,SHIFTS_LOOP2cmpi.l #$80018FF0,d0bne.s *cmpi.l #$0000001A,d5bne.s ** WORD LEFTmove.l #$80018FF1,d0moveq #$00000002,d6SHIFTS_LOOP3:asl.w d6,d0bsr SHIFTS_FLAGSdbf d6,SHIFTS_LOOP3cmpi.l #$80017F88,d0bne.s *cmpi.l #$0000001C,d5bne.s ** WORD RIGHTmove.l #$80018FF1,d0moveq #$00000002,d6SHIFTS_LOOP4:asr.w d6,d0bsr SHIFTS_FLAGSdbf d6,SHIFTS_LOOP4cmpi.l #$8001F1FE,d0bne.s *cmpi.l #$00000034,d5bne.s ** LONG LEFTmove.l #$80018FF1,d0moveq #$00000002,d6SHIFTS_LOOP5:asl.l d6,d0bsr SHIFTS_FLAGSdbf d6,SHIFTS_LOOP5cmpi.l #$000C7F88,d0bne.s *cmpi.l #$00000036,d5bne.s ** LONG RIGHTmove.l #$80018FF1,d0moveq #$00000002,d6SHIFTS_LOOP6:asr.l d6,d0bsr SHIFTS_FLAGSdbf d6,SHIFTS_LOOP6cmpi.l #$F00031FE,d0bne.s *cmpi.l #$0000004E,d5bne.s ** Shift a Register LEFT and RIGHT with shift_count ## IN THE OPCODE ##move.l #$80018FF1,d0moveq #$00000000,d5* BYTE LEFTasl.b #1,d0bsr SHIFTS_FLAGSasl.b #2,d0bsr SHIFTS_FLAGSasl.b #1,d0bsr SHIFTS_FLAGSasl.b #3,d0bsr SHIFTS_FLAGScmpi.l #$80018F80,d0bne.s *cmpi.l #$0000001F,d5bne.s ** BYTE RIGHTasr.b #1,d0bsr SHIFTS_FLAGSasr.b #2,d0bsr SHIFTS_FLAGSasr.b #3,d0bsr SHIFTS_FLAGSasr.b #1,d0bsr SHIFTS_FLAGScmpi.l #$80018FFF,d0bne.s *cmpi.l #$0000003F,d5bne.s ** WORD LEFTasl.w #1,d0bsr SHIFTS_FLAGSasl.w #2,d0bsr SHIFTS_FLAGSasl.w #3,d0bsr SHIFTS_FLAGSasl.w #5,d0bsr SHIFTS_FLAGScmpi.l #$8001F800,d0bne.s *cmpi.l #$00000056,d5bne.s ** WORD RIGHTasr.w #5,d0bsr SHIFTS_FLAGSasr.w #1,d0bsr SHIFTS_FLAGSasr.w #2,d0bsr SHIFTS_FLAGSasr.w #4,d0bsr SHIFTS_FLAGScmpi.l #$8001FFFF,d0bne.s *cmpi.l #$00000077,d5bne.s ** LONG LEFTmove.l #$80018FF1,d0asl.l #1,d0bsr SHIFTS_FLAGSasl.l #2,d0bsr SHIFTS_FLAGSasl.l #7,d0bsr SHIFTS_FLAGSasl.l #4,d0bsr SHIFTS_FLAGScmpi.l #$63FC4000,d0bne.s *cmpi.l #$0000007A,d5bne.s ** LONG RIGHTmove.l #$80018FF1,d0asr.l #1,d0bsr SHIFTS_FLAGSasr.l #5,d0bsr SHIFTS_FLAGSasr.l #7,d0bsr SHIFTS_FLAGSasr.l #8,d0bsr SHIFTS_FLAGScmpi.l #$FFFFFC00,d0bne.s *cmpi.l #$0000009C,d5bne.s ** Shift a Memory location LEFT and RIGHT with shift_count of 1 - WORD onlymoveq #$00000000,d5move.l #$00000100,a0move.w #$8FF1,(a0)* WORD LEFTasl (a0)bsr SHIFTS_FLAGSasl (a0)bsr SHIFTS_FLAGSasl (a0)bsr SHIFTS_FLAGSasl (a0)bsr SHIFTS_FLAGSmove.w (a0),d0cmpi.l #$FFFFFF10,d0bne.s *cmpi.l #$0000000D,d5bne.s ** WORD RIGHTasr (a0)bsr SHIFTS_FLAGSasr (a0)bsr SHIFTS_FLAGSasr (a0)bsr SHIFTS_FLAGSasr (a0)bsr SHIFTS_FLAGSasr (a0)bsr SHIFTS_FLAGSasr (a0)bsr SHIFTS_FLAGSmove.w (a0),d0cmpi.l #$FFFFFFFC,d0bne.s *cmpi.l #$0000003E,d5bne.s *rts*-----------------------------------------------------------*-----------------------------------------------------------* OPCODE : SHIFTS2*-----------------------------------------------------------*-----------------------------------------------------------* Subroutine to check and accumulate the flagsSHIFTS2_FLAGS: move.w sr,d3andi.l #$0F,d3 * Isolate flagsadd.l d3,d5 * Copy flag results into accumulatorrtsop_SHIFTS2:* Shift a Register LEFT and RIGHT with shift_count ## IN A REGISTER ##* BYTE LEFTmove.l #$80018F81,d0moveq #$00000000,d5moveq #$00000002,d6SHIFTS2_LOOP1:lsl.b d6,d0bsr SHIFTS2_FLAGSdbf d6,SHIFTS2_LOOP1cmpi.l #$80018F08,d0bne.s *cmpi.l #$00000000,d5bne.s ** BYTE RIGHTmove.l #$80018F81,d0moveq #$00000002,d6SHIFTS2_LOOP2:lsr.b d6,d0bsr SHIFTS2_FLAGSdbf d6,SHIFTS2_LOOP2cmpi.l #$80018F10,d0bne.s *cmpi.l #$00000000,d5bne.s ** WORD LEFTmove.l #$80018FF1,d0moveq #$00000002,d6SHIFTS2_LOOP3:lsl.w d6,d0bsr SHIFTS2_FLAGSdbf d6,SHIFTS2_LOOP3cmpi.l #$80017F88,d0bne.s *cmpi.l #$00000000,d5bne.s ** WORD RIGHTmove.l #$80018FF1,d0moveq #$00000002,d6SHIFTS2_LOOP4:lsr.w d6,d0bsr SHIFTS2_FLAGSdbf d6,SHIFTS2_LOOP4cmpi.l #$800111FE,d0bne.s *cmpi.l #$00000000,d5bne.s ** LONG LEFTmove.l #$80018FF1,d0moveq #$00000002,d6SHIFTS2_LOOP5:lsl.l d6,d0bsr SHIFTS2_FLAGSdbf d6,SHIFTS2_LOOP5cmpi.l #$000C7F88,d0bne.s *cmpi.l #$00000000,d5bne.s ** LONG RIGHTmove.l #$80018FF1,d0moveq #$00000002,d6SHIFTS2_LOOP6:lsr.l d6,d0bsr SHIFTS2_FLAGSdbf d6,SHIFTS2_LOOP6cmpi.l #$100031FE,d0bne.s *cmpi.l #$00000000,d5bne.s ** Shift a Register LEFT and RIGHT with shift_count ## IN THE OPCODE ##move.l #$80018FF1,d0moveq #$00000000,d5* BYTE LEFTlsl.b #1,d0bsr SHIFTS2_FLAGSlsl.b #2,d0bsr SHIFTS2_FLAGSlsl.b #1,d0bsr SHIFTS2_FLAGSlsl.b #3,d0bsr SHIFTS2_FLAGScmpi.l #$80018F80,d0bne.s *cmpi.l #$0000001B,d5bne.s ** BYTE RIGHTlsr.b #1,d0bsr SHIFTS2_FLAGSlsr.b #2,d0bsr SHIFTS2_FLAGSlsr.b #3,d0bsr SHIFTS2_FLAGSlsr.b #1,d0bsr SHIFTS2_FLAGScmpi.l #$80018F01,d0bne.s *cmpi.l #$0000001B,d5bne.s ** WORD LEFTlsl.w #1,d0bsr SHIFTS2_FLAGSlsl.w #2,d0bsr SHIFTS2_FLAGSlsl.w #3,d0bsr SHIFTS2_FLAGSlsl.w #5,d0bsr SHIFTS2_FLAGScmpi.l #$80010800,d0bne.s *cmpi.l #$00000025,d5bne.s ** WORD RIGHTlsr.w #5,d0bsr SHIFTS2_FLAGSlsr.w #1,d0bsr SHIFTS2_FLAGSlsr.w #2,d0bsr SHIFTS2_FLAGSlsr.w #4,d0bsr SHIFTS2_FLAGScmpi.l #$80010000,d0bne.s *cmpi.l #$0000002A,d5bne.s ** LONG LEFTmove.l #$80018FF1,d0lsl.l #1,d0bsr SHIFTS2_FLAGSlsl.l #2,d0bsr SHIFTS2_FLAGSlsl.l #7,d0bsr SHIFTS2_FLAGSlsl.l #4,d0bsr SHIFTS2_FLAGScmpi.l #$63FC4000,d0bne.s *cmpi.l #$0000002B,d5bne.s ** LONG RIGHTmove.l #$80018FF1,d0lsr.l #1,d0bsr SHIFTS2_FLAGSlsr.l #5,d0bsr SHIFTS2_FLAGSlsr.l #7,d0bsr SHIFTS2_FLAGSlsr.l #8,d0bsr SHIFTS2_FLAGScmpi.l #$00000400,d0bne.s *cmpi.l #$0000002D,d5bne.s ** Shift a Memory location LEFT and RIGHT with shift_count of 1 - WORD onlymoveq #$00000000,d5move.l #$00000100,a0move.w #$8FF1,(a0)* WORD LEFTlsl (a0)bsr SHIFTS2_FLAGSlsl (a0)bsr SHIFTS2_FLAGSlsl (a0)bsr SHIFTS2_FLAGSlsl (a0)bsr SHIFTS2_FLAGSmove.w (a0),d0cmpi.l #$0000FF10,d0bne.s *cmpi.l #$00000009,d5bne.s ** WORD RIGHTlsr (a0)bsr SHIFTS2_FLAGSlsr (a0)bsr SHIFTS2_FLAGSlsr (a0)bsr SHIFTS2_FLAGSlsr (a0)bsr SHIFTS2_FLAGSlsr (a0)bsr SHIFTS2_FLAGSlsr (a0)bsr SHIFTS2_FLAGSmove.w (a0),d0cmpi.l #$000003FC,d0bne.s *cmpi.l #$0000000A,d5bne.s *rts;-----------------------------------------------------------;-----------------------------------------------------------; OPCODE : BSR / RTS;-----------------------------------------------------------;-----------------------------------------------------------;t3_bsr:; moveq #3,d3; rts;t1_bsr:; moveq #1,d1; rts;op_bsr:; bsr t1_bsr; bsr t2_bsr; bsr.w t3_bsr; bsr.w t4_bsr; cmpi.l #1,d1; bne *; cmpi.l #2,d2; bne *; cmpi.l #3,d3; bne *; cmpi.l #4,d4; bne *; rts;t2_bsr:; moveq #2,d2; rts;t4_bsr:; moveq #4,d4; rts* END