d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity
ack/mach/mantra/int/mloop4

264 lines
6.2 KiB
Plaintext
Raw Normal View History

*** empty log message ***
1984-07-23 11:49:00 +00:00
!----------------------------------------------------------------------------
! CLEARS , INCREMENTS , DECREMENTS
!-----------------------------------------------------------------------------
inc_z: move.l sp,a0
4:
#if test
comp und,(a0)
bne 3f ; bsr e_iund
3:
#endif
1 - Indexed addressing mode gave unwanted sign extends. They are replaced by additions. 2 - Added pointer checks. 3 - Completed parametrization of addresses of locals. 
1984-12-18 17:04:24 +00:00
ad #1,(a0)
#if test
bvs 9f
#endif
*** empty log message ***
1984-07-23 11:49:00 +00:00
jmp (a4)
#ifdef lword
inl__1W: move.l a2,a0 ; sub.l #4,a0 ; bra 4b
inl__2W: move.l a2,a0 ; sub.l #8,a0 ; bra 4b
inl__3W: move.l a2,a0 ; sub.l #12,a0 ; bra 4b
#else
inl__1W: move.l a2,a0 ; sub.l #2,a0 ; bra 4b
inl__2W: move.l a2,a0 ; sub.l #4,a0 ; bra 4b
inl__3W: move.l a2,a0 ; sub.l #6,a0 ; bra 4b
#endif
inl_w_1: move.l #-1,d0 ; move.b (a3)+,d0
2: asl.l wmu,d0
1: move.l a2,a0 ; add.l d0,a0 ; bra 4b
inl_pw: adroff ; move.w (a1),d0
1 - Indexed addressing mode gave unwanted sign extends. They are replaced by additions. 2 - Added pointer checks. 3 - Completed parametrization of addresses of locals. 
1984-12-18 17:04:24 +00:00
6: asl.l wmu,d0 ; add.l #0+l0,d0
*** empty log message ***
1984-07-23 11:49:00 +00:00
bra 1b
inl_qpw: move.l (sp)+,d0 ; bra 6b
inl_nw: adroff ; move.w (a1),d0
ext.l d0 ; bra 2b
inl_qnw: move.l (sp)+,d0 ; bra 2b
ine_lw: adroff ; move.w (a1),d0 ; bra 5f
ine_qw: move.l (sp)+,d0 ; bra 5f
ine_w0: clr.w d0 ; move.b (a3)+,d0
5: asl.l wmu,d0 ; move.l d0,a0
add.l a6,a0 ; bra 4b
!---------------------------------------------------------------------------
dec_z: move.l sp,a0
4:
#if test
1 - Indexed addressing mode gave unwanted sign extends. They are replaced by additions. 2 - Added pointer checks. 3 - Completed parametrization of addresses of locals. 
1984-12-18 17:04:24 +00:00
locptr
heaptr
extptr
7: bra e_badptr
6:
*** empty log message ***
1984-07-23 11:49:00 +00:00
comp und,(a0) ;bne 3f
bsr e_iund
3:
#endif
1 - Indexed addressing mode gave unwanted sign extends. They are replaced by additions. 2 - Added pointer checks. 3 - Completed parametrization of addresses of locals. 
1984-12-18 17:04:24 +00:00
subt #1,(a0)
#if test
bvs 9f
#endif
*** empty log message ***
1984-07-23 11:49:00 +00:00
jmp (a4)
del_w_1: move.l #-1,d0 ; move.b (a3)+,d0
1: asl.l wmu,d0
2: move.l a2,a0 ; add.l d0,a0 ; bra 4b
del_pw: adroff ; move.w (a1),d0
1 - Indexed addressing mode gave unwanted sign extends. They are replaced by additions. 2 - Added pointer checks. 3 - Completed parametrization of addresses of locals. 
1984-12-18 17:04:24 +00:00
5: asl.l wmu,d0 ; add.l #0+l0,d0 ; bra 2b
*** empty log message ***
1984-07-23 11:49:00 +00:00
del_qpw: move.l (sp)+,d0 ; bra 5b
del_nw: adroff ; move.w (a1),d0
ext.l d0 ; bra 1f
del_qnw: move.l (sp)+,d0 ; bra 1f
dee_w0: clr.w d0 ; move.b (a3)+,d0
0: asl.l wmu,d0 ; move.l d0,a0
add.l a6,a0 ; bra 4b
dee_lw: adroff ; move.w (a1),d0 ; bra 0b
dee_qw: move.l (sp)+,d0 ; bra 0b
1 - Indexed addressing mode gave unwanted sign extends. They are replaced by additions. 2 - Added pointer checks. 3 - Completed parametrization of addresses of locals. 
1984-12-18 17:04:24 +00:00
#if test
*** empty log message ***
1984-07-23 11:49:00 +00:00
9: bsr e_iovfl !error routine for integer overflow
jmp (a4)
1 - Indexed addressing mode gave unwanted sign extends. They are replaced by additions. 2 - Added pointer checks. 3 - Completed parametrization of addresses of locals. 
1984-12-18 17:04:24 +00:00
#endif
*** empty log message ***
1984-07-23 11:49:00 +00:00
!----------------------------------------------------------------------------
zrl__1W: cl l_1(a2) ; jmp (a4)
zrl__2W: cl l_2(a2) ; jmp (a4)
zrl_w_1: move.l #-1,d0 ; move.b (a3)+,d0
1 - Indexed addressing mode gave unwanted sign extends. They are replaced by additions. 2 - Added pointer checks. 3 - Completed parametrization of addresses of locals. 
1984-12-18 17:04:24 +00:00
1: asl.l wmu,d0 ; add.l a2,d0
move.l d0,a0
#if test
locptr
7: bra e_badptr
6:
#endif
cl (a0)
*** empty log message ***
1984-07-23 11:49:00 +00:00
jmp (a4)
zrl_nw: adroff ; move.w (a1),d0
ext.l d0 ; bra 1b
zrl_qnw: move.l (sp)+,d0 ; bra 1b
zrl_pw: adroff ; move.w (a1),d0
1 - Indexed addressing mode gave unwanted sign extends. They are replaced by additions. 2 - Added pointer checks. 3 - Completed parametrization of addresses of locals. 
1984-12-18 17:04:24 +00:00
2: asl.l wmu,d0 ; add.l a2,d0
move.l d0,a0 ; cl l0(a0)
*** empty log message ***
1984-07-23 11:49:00 +00:00
jmp (a4)
zrl_qpw: move.l (sp)+,d0 ; bra 2b
zre_lw: adroff ; move.w (a1),d0 ; bra 7f
zre_qw: move.l (sp)+,d0 ; bra 7f
zre_w0: clr.w d0 ; move.b (a3)+,d0
1 - Indexed addressing mode gave unwanted sign extends. They are replaced by additions. 2 - Added pointer checks. 3 - Completed parametrization of addresses of locals. 
1984-12-18 17:04:24 +00:00
7: asl.l wmu,d0 ; add.l a6,d0
move.l d0,a0
#if test
extptr
7: bra e_badptr
6:
#endif
cl (a0)
*** empty log message ***
1984-07-23 11:49:00 +00:00
jmp (a4)
zrf_l: adroff ; move.w (a1),d0 ; bra 8f
zrf_z: mov (sp)+,d0
8: move.l d7,d1
3: asr.w #1,d0 ; dbcs d1,3b
bcs e_oddz ; sub.w #1,d0
0: cl -(sp) ; dbra d0,0b
jmp (a4)
zer_s0: clr.w d0 ; move.b (a3)+,d0 ; bra 8b
zer_l: adroff ; move.w (a1),d0 ; bra 8b
zer_z: mov (sp),d0 ; bra 8b
! The test on illegal argument takes some time , specially in 4byte case.
!-----------------------------------------------------------------------
! LOGICAL GROUP
!-------------------------------------------------------------------------
and_1W: mov (sp)+,d1
an d1,(sp)
jmp (a4)
and_l: adroff ; move.w (a1),d0 ; bra 1f
and_z: mov (sp)+,d0
1: ble e_oddz ; move.l d0,a0
move.l d7,d2
2: asr.l #1,d0 ; dbcs d2,2b ; bcs e_oddz
add.l sp,a0 ; sub.l #1,d0
3: mov (sp)+,d1; an d1,(a0)+
dbra d0,3b ; jmp (a4)
!------------------------------------------------------------------------------
ior_1W: mov (sp)+,d1; inor d1,(sp)
jmp (a4)
ior_s0: clr.w d0 ; move.b (a3)+,d0; bra 4f
ior_l: adroff ; move.w (a1),d0 ; bra 4f
ior_z: mov (sp)+,d0
4: ble e_oddz ; move.l d0,a0
move.l d7,d2
5: asr.l #1,d0 ; dbcs d2,5b ; bcs e_oddz
add.l sp,a0 ; sub.l #1,d0
move.l d6,d1
3: mov (sp)+,d1
inor d1,(a0)+; dbra d0,3b
jmp (a4)
!----------------------------------------------------------------------------
xor_l: adroff ; move.w (a1),d0 ; bra 6f
xor_z: mov (sp)+,d0
6: ble e_oddz ; move.l d0,a0
move.l d7,d2
8: asr.l #1,d0 ; dbcs d2,8b ; bcs e_oddz
add.l sp,a0 ; sub.l #1,d0
7: mov (sp)+,d1
exor d1,(a0)+; dbra d0,7b
jmp (a4)
!----------------------------------------------------------------------------
com_l: adroff ; move.w (a1),d0 ; bra 0f
com_z: mov (sp)+,d0
0: ble e_oddz ; move.l d7,d2
1: asr.l #1,d0 ; dbcs d2,1b ; bcs e_oddz
move.l sp,a0 ; sub.l #1,d0
2: nt (a0)+ ; dbra d0,2b
jmp (a4)
!---------------------------------------------------------------------------
rol_l: adroff ; move.w (a1),d0 ; bra 3f
rol_z: mov (sp)+,d0
3: ble e_oddz ; move.l d7,d2
4: asr.l #1,d0 ; dbcs d2,4b
bcs e_oddz
sub.l #1,d0
mov (sp)+,d1
bmi 2f
0: move.l sp,a0 !d0 = #words-1 , d1 = shift count
5: mov (a0),d2 ; rotl d1,d2
mov d2,(a0)+; dbra d0,5b
jmp (a4)
2: nega d1 ; bra 0f
2: nega d1 ; bra 0b
ror_l: adroff ; move.w (a1),d0 ; bra 6f
ror_z: mov (sp)+,d0
6: ble e_oddz ; move.l d7,d2
7: asr.l #1,d0 ; dbcs d2,7b
bcs e_oddz ; sub.l #1,d0
mov (sp)+,d1
bmi 2b
0: move.l sp,a0
8: mov (a0),d2 ; rotr d1,d2
mov d2,(a0)+; dbra d0,8b
jmp (a4)
!-----------------------------------------------------------------------------
! SET GROUP
!------------------------------------------------------------------------------
set_s0: clr.w d0 ; move.b (a3)+,d0
1 - Indexed addressing mode gave unwanted sign extends. They are replaced by additions. 2 - Added pointer checks. 3 - Completed parametrization of addresses of locals. 
1984-12-18 17:04:24 +00:00
0: ble e_oddz ; move.l #0,d1
*** empty log message ***
1984-07-23 11:49:00 +00:00
mov (sp)+,d1; move.l d0,d2
move.l d7,d3
1: asr.l #1,d2 ; dbcs d3,1b
bcs e_oddz ; sub.l #1,d2
2: cl -(sp) ; dbra d2,2b
move.l sp,a0 ; move.l d1,d2
asr.l #3,d2 ; cmp.l d0,d2 !d2 byte number
bmi 3f ; bsr e_set
jmp (a4)
3:
#ifdef lword
bchg #1,d2 !0->3,1->2
#endif
bchg #0,d2 ; add.l d2,a0
bset d1,(a0) ; jmp (a4) !d1 mod 8 bit set
set_l: adroff ; move.w (a1),d0 ; bra 0b
set_z: mov (sp)+,d0; bra 0b
!----------------------------------------------------------------------------
inn_s0: clr.w d0 ; move.b (a3)+,d0
0: ble e_oddz
move.l d6,d1 ; mov (sp)+,d1
btst #0,d0 ; bne e_oddz
#ifdef lword
btst #1,d0 ; bne e_oddz
#endif
move.l sp,a0 ; add.l d0,sp
move.l d1,d2 ; asri #3,d2
comp d2,d0 ; bhi 3f
cl -(sp)
!#if test
! bsr e_set
!#endif
jmp (a4)
3:
#ifdef lword
bchg #1,d2
#else
ext.l d2
#endif
bchg #0,d2 ; add.l d2,a0
btst d1,(a0) ; beq 7f
mov #1,-(sp); jmp (a4)
7: cl -(sp) ; jmp (a4)
inn_l: adroff ; move.w (a1),d0 ; bra 0b
inn_z: mov (sp)+,d0; bra 0b
Reference in a new issue Copy permalink