257 lines
6.1 KiB
C
257 lines
6.1 KiB
C
// movem
|
||
_ii_movem_lset: .macro
|
||
// movem rx,xxx.L
|
||
ii_lset 0x48f9
|
||
// movem rx,-(ax)
|
||
|
||
// movem (ax)+,rx
|
||
ii_lset 0x4cd8
|
||
ii_lset 0x4cd9
|
||
ii_lset 0x4cda
|
||
ii_lset 0x4cdb
|
||
ii_lset 0x4cdc
|
||
ii_lset 0x4cdd
|
||
ii_lset 0x4cde
|
||
ii_lset 0x4cdf
|
||
// movem xxx.L,rx
|
||
ii_lset 0x4cf9
|
||
.endm
|
||
//***********************************************************************************/
|
||
_ii_movem_func: .macro
|
||
//-------------------------------------------------------------------
|
||
// movem.l
|
||
//--------------------------------------------------------------------
|
||
// movem.l (ax)+,reg
|
||
//--------------------------------------------------------------------
|
||
//-------------------------------------------------------------------------------
|
||
ii_0x4cd8: // movem.l (a0)+,reglist
|
||
mvm_macro 0x4cd0,0x41e8,2
|
||
ii_0x4cd9: // movem.l (a1)+,reglist
|
||
mvm_macro 0x4cd1,0x43e9,2
|
||
ii_0x4cda: // movem.l (a2)+,reglist
|
||
mvm_macro 0x4cd2,0x45ea,2
|
||
ii_0x4cdb: // movem.l (a3)+,reglist
|
||
mvm_macro 0x4cd3,0x47eb,2
|
||
ii_0x4cdc: // movem.l (a4)+,reglist
|
||
mvm_macro 0x4cd4,0x49ec,2
|
||
ii_0x4cdd: // movem.l (a5)+,reglist
|
||
mvm_macro 0x4cd5,0x4bed,2
|
||
ii_0x4cde: // movem.l (a6)+,reglist
|
||
mvm_macro 0x4cd6,0x4dee,2
|
||
ii_0x4cdf: // movem.l (a7)+,reglist
|
||
mvm_macro 0x4cd7,0x4fef,2
|
||
//----------------------------------------------------------------------------
|
||
ii_0x48f9: // movem.l reg,xxx.L
|
||
move.w (a0)+,d0
|
||
move.l (a0)+,a1
|
||
movemrm_macro
|
||
ii_end
|
||
//---------------------------------------------------------------------------------------------
|
||
ii_0x4cf9: // movem.l xxx.L,reg
|
||
move.w (a0)+,d0
|
||
move.l (a0)+,a1
|
||
movemmr_macro
|
||
ii_end
|
||
.endm
|
||
//==============================================================
|
||
mvm_macro:.macro
|
||
halt
|
||
lea az_reg_table,a1
|
||
mvz.b (a0),d1
|
||
mvz.b 0(a1,d1)+,d0
|
||
mvz.b 1(a0),d1
|
||
mvz.b 0(a1,d1)+,d1
|
||
add.l d0,d1
|
||
lea ___RAMBAR1,a1
|
||
move.l a1,pc_off(a7)
|
||
move.l a1,d0
|
||
addq.l #1,d0
|
||
movec d0,RAMBAR1
|
||
move.w #\1,(a1)+ // movem.x (ax),reg_list
|
||
move.w (a0)+,(a1)+ // register list
|
||
move.w #\2,(a1)+ // lea 0(ax),ax
|
||
lsl.l #\3,d1 // * anzahl byts pro wert
|
||
move.w d1,(a1)+ // offset von lea
|
||
move.w #0x4ef9,(a1)+ // jmp.l
|
||
move.l a0,(a1) // r<>cksprungadresse
|
||
move.l #___RAMBAR1 + 0x81,d0 // instruction
|
||
movec d0,RAMBAR1
|
||
movem.l (a7),d0/d1/a0/a1
|
||
lea ii_ss(a7),a7 // stack erh<72>hen
|
||
rte
|
||
.endm
|
||
.long 0
|
||
az_reg_table:
|
||
.byte 0,1,1,2,1,2,2,3,1,2,2,3,2,3,3,4 // 0-f
|
||
.byte 1,2,2,3,2,3,3,4,2,3,3,4,3,4,4,5 // 10-1f
|
||
.byte 1,2,2,3,2,3,3,4,2,3,3,4,3,4,4,5 // 20-2f
|
||
.byte 2,3,3,4,3,4,4,5,3,4,4,5,4,5,5,6 // 30-3f
|
||
.byte 1,2,2,3,2,3,3,4,2,3,3,4,3,4,4,5 // 40-4f
|
||
.byte 2,3,3,4,3,4,4,5,3,4,4,5,4,5,5,6 // 50
|
||
.byte 2,3,3,4,3,4,4,5,3,4,4,5,4,5,5,6 // 60
|
||
.byte 3,4,4,5,4,5,5,6,4,5,5,6,5,6,6,7 // 70
|
||
.byte 1,2,2,3,2,3,3,4,2,3,3,4,3,4,4,5 // 80-8f
|
||
.byte 2,3,3,4,3,4,4,5,3,4,4,5,4,5,5,6 // 90
|
||
.byte 2,3,3,4,3,4,4,5,3,4,4,5,4,5,5,6 // a0
|
||
.byte 3,4,4,5,4,5,5,6,4,5,5,6,5,6,6,7 // b0
|
||
.byte 2,3,3,4,3,4,4,5,3,4,4,5,4,5,5,6 // c0
|
||
.byte 3,4,4,5,4,5,5,6,4,5,5,6,5,6,6,7 // d0
|
||
.byte 3,4,4,5,4,5,5,6,4,5,5,6,5,6,6,7 // e0
|
||
.byte 4,5,5,6,5,6,6,7,5,6,6,7,6,7,7,8 // f0
|
||
//---------------------------------------------------------------------------------
|
||
movemrm_macro:.macro // in d0 register liste, in a1 zieladresse
|
||
halt
|
||
tst.b d0 // datenregister zu verschieben?
|
||
bne mrm_dx // ja->
|
||
lsr.l #8,d0 // sonst zu addressregister
|
||
jmp mmrm_nd7 // ->
|
||
mrm_dx:
|
||
lsr.l #1,d0
|
||
bcc mmrm_nd0
|
||
move.l d0_off(a7),(a1)+
|
||
mmrm_nd0:
|
||
lsr.l #1,d0
|
||
bcc mmrm_nd1
|
||
move.l d1_off(a7),(a1)+
|
||
mmrm_nd1:
|
||
lsr.l #1,d0
|
||
bcc mmrm_nd2
|
||
move.l d2,(a1)+
|
||
mmrm_nd2:
|
||
lsr.l #1,d0
|
||
bcc mmrm_nd3
|
||
move.l d3,(a1)+
|
||
mmrm_nd3:
|
||
lsr.l #1,d0
|
||
bcc mmrm_nd4
|
||
move.l d4,(a1)+
|
||
mmrm_nd4:
|
||
lsr.l #1,d0
|
||
bcc mmrm_nd5
|
||
move.l d5,(a1)+
|
||
mmrm_nd5:
|
||
lsr.l #1,d0
|
||
bcc mmrm_nd6
|
||
move.l d6,(a1)+
|
||
mmrm_nd6:
|
||
lsr.l #1,d0
|
||
bcc mmrm_nd7
|
||
move.l d7,(a1)+
|
||
mmrm_nd7:
|
||
tst.b d0 // addressregister zu verschieben?
|
||
beq mmrm_na7
|
||
lsr.l #1,d0
|
||
bcc mmrm_na0
|
||
move.l a0_off(a7),(a1)+
|
||
mmrm_na0:
|
||
lsr.l #1,d0
|
||
bcc mmrm_na1
|
||
move.l a1_off(a7),(a1)+
|
||
mmrm_na1:
|
||
lsr.l #1,d0
|
||
bcc mmrm_na2
|
||
move.l a2,(a1)+
|
||
mmrm_na2:
|
||
lsr.l #1,d0
|
||
bcc mmrm_na3
|
||
move.l a3,(a1)+
|
||
mmrm_na3:
|
||
lsr.l #1,d0
|
||
bcc mmrm_na4
|
||
move.l a4,(a1)+
|
||
mmrm_na4:
|
||
lsr.l #1,d0
|
||
bcc mmrm_na5
|
||
move.l a5,(a1)+
|
||
mmrm_na5:
|
||
lsr.l #1,d0
|
||
bcc mmrm_na6
|
||
move.l a6,(a1)+
|
||
mmrm_na6:
|
||
lsr.l #1,d0
|
||
bcc mmrm_na7
|
||
move.l a0,d1 // sichern
|
||
move.l usp,a0 // ist ja usp
|
||
move.l a0,(a1)+ // nach a0
|
||
move.l d1,a0 // pc zur<75>ck
|
||
mmrm_na7:
|
||
.endm
|
||
//---------------------------------------------------------------------------------------------
|
||
movemmr_macro:.macro // in d0 register liste, in a1 source adr
|
||
halt
|
||
tst.b d0 // datenregister zu verschieben?
|
||
bne mmr_dx // ja->
|
||
lsr.l #8,d0 // sonst zu addressregister
|
||
bra mmmr_nd7 // ->
|
||
mmr_dx:
|
||
lsr.l #1,d0
|
||
bcc mmmr_nd0
|
||
move.l (a1)+,d0_off(a7)
|
||
mmmr_nd0:
|
||
lsr.l #1,d0
|
||
bcc mmmr_nd1
|
||
move.l (a1)+,d1_off(a7)
|
||
mmmr_nd1:
|
||
lsr.l #1,d0
|
||
bcc mmmr_nd2
|
||
move.l (a1)+,d2
|
||
mmmr_nd2:
|
||
lsr.l #1,d0
|
||
bcc mmmr_nd3
|
||
move.l (a1)+,d3
|
||
mmmr_nd3:
|
||
lsr.l #1,d0
|
||
bcc mmmr_nd4
|
||
move.l (a1)+,d4
|
||
mmmr_nd4:
|
||
lsr.l #1,d0
|
||
bcc mmmr_nd5
|
||
move.l (a1)+,d5
|
||
mmmr_nd5:
|
||
lsr.l #1,d0
|
||
bcc mmmr_nd6
|
||
move.l (a1)+,d6
|
||
mmmr_nd6:
|
||
lsr.l #1,d0
|
||
bcc mmmr_nd7
|
||
move.l (a1)+,d7
|
||
mmmr_nd7:
|
||
tst.b d0 // addressregister zu verschieben?
|
||
beq mmmr_na7 // nein->
|
||
lsr.l #1,d0
|
||
bcc mmmr_na0
|
||
move.l (a1)+,a0_off(a7)
|
||
mmmr_na0:
|
||
lsr.l #1,d0
|
||
bcc mmmr_na1
|
||
move.l (a1)+,a1_off(a7)
|
||
mmmr_na1:
|
||
lsr.l #1,d0
|
||
bcc mmmr_na2
|
||
move.l (a1)+,a2
|
||
mmmr_na2:
|
||
lsr.l #1,d0
|
||
bcc mmmr_na3
|
||
move.l (a1)+,a3
|
||
mmmr_na3:
|
||
lsr.l #1,d0
|
||
bcc mmmr_na4
|
||
move.l (a1)+,a4
|
||
mmmr_na4:
|
||
lsr.l #1,d0
|
||
bcc mmmr_na5
|
||
move.l (a1)+,a5
|
||
mmmr_na5:
|
||
lsr.l #1,d0
|
||
bcc mmmr_na6
|
||
move.l (a1)+,a6
|
||
mmmr_na6:
|
||
lsr.l #1,d0
|
||
bcc mmmr_na7
|
||
move.l a0,d1 // sichern
|
||
move.l (a1)+,a0 // nach a0
|
||
move.l a0,usp // war ja usp
|
||
move.l d1,a0 // pc zur<75>ck
|
||
mmmr_na7:
|
||
.endm
|