d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

some fixes

Browse source
This commit is contained in:
ceriel 1988-03-07 11:44:39 +00:00
parent 653cd869ba
commit 75aba83724
2 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
mach/mantra/int/mloop0
View file

@ -179,6 +179,7 @@ atof: tst.b (a4)+ ; bne atof
rts
blshift: move.l a1,a0 ; move.l #1024,d0
move.l d1,-(sp)
tst.l -(sp)
sub.l d0,a0 ; move.l d0,-(sp)
sub.l d0,a4 !update pointer
@ -191,6 +192,7 @@ blshift: move.l a1,a0 ; move.l #1024,d0
testen (sp)+ ; bne badarg
move.l (sp)+,d0
move.l (sp)+,a1
move.l (sp)+,d1
cmp.l #1024,d0 ; beq 1f
add.l d0,a1
1: rts

5
mach/mantra/int/mloop9
View file

@ -248,7 +248,7 @@ fil_l: adroff ; move.w (a5),d0
0: jmp (a4)
!-----------------------------------------------------------------------------
lni_z: add #1,(a6)
lni_z: ad #1,(a6)
#if count+flow+prof
add.l #1,countptr
#if prof
@ -256,7 +256,8 @@ lni_z: add #1,(a6)
#endif
#endif
bra 8f
lin_l: adroff ; move.w (a5),d0 ; bra 1f
lin_l: adroff ; clr.l d0
move.w (a5),d0 ; bra 1f
lin_q: move.l (sp)+,d0 ; bra 1f
lin_s0: move.l #0,d0 ; move.b (a3)+,d0
1: cmp (a6),d0 ; beq 9f