some fixes
This commit is contained in:
		
							parent
							
								
									653cd869ba
								
							
						
					
					
						commit
						75aba83724
					
				
					 2 changed files with 5 additions and 2 deletions
				
			
		| 
						 | 
					@ -179,6 +179,7 @@ atof:		tst.b	(a4)+	;	bne	atof
 | 
				
			||||||
		rts
 | 
							rts
 | 
				
			||||||
 | 
					
 | 
				
			||||||
blshift:	move.l	a1,a0	;	move.l	#1024,d0
 | 
					blshift:	move.l	a1,a0	;	move.l	#1024,d0
 | 
				
			||||||
 | 
							move.l	d1,-(sp)
 | 
				
			||||||
		tst.l	-(sp)
 | 
							tst.l	-(sp)
 | 
				
			||||||
		sub.l	d0,a0	;	move.l	d0,-(sp)
 | 
							sub.l	d0,a0	;	move.l	d0,-(sp)
 | 
				
			||||||
		sub.l	d0,a4			!update pointer
 | 
							sub.l	d0,a4			!update pointer
 | 
				
			||||||
| 
						 | 
					@ -191,6 +192,7 @@ blshift:	move.l	a1,a0	;	move.l	#1024,d0
 | 
				
			||||||
		testen	(sp)+	;	bne	badarg
 | 
							testen	(sp)+	;	bne	badarg
 | 
				
			||||||
		move.l	(sp)+,d0
 | 
							move.l	(sp)+,d0
 | 
				
			||||||
		move.l	(sp)+,a1
 | 
							move.l	(sp)+,a1
 | 
				
			||||||
 | 
							move.l	(sp)+,d1
 | 
				
			||||||
		cmp.l	#1024,d0 ;	beq	1f
 | 
							cmp.l	#1024,d0 ;	beq	1f
 | 
				
			||||||
		add.l	d0,a1
 | 
							add.l	d0,a1
 | 
				
			||||||
1:		rts
 | 
					1:		rts
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
| 
						 | 
					@ -248,7 +248,7 @@ fil_l:		adroff		;	move.w	(a5),d0
 | 
				
			||||||
0:		jmp	(a4)
 | 
					0:		jmp	(a4)
 | 
				
			||||||
 | 
					
 | 
				
			||||||
!-----------------------------------------------------------------------------
 | 
					!-----------------------------------------------------------------------------
 | 
				
			||||||
lni_z:		add	#1,(a6)
 | 
					lni_z:		ad	#1,(a6)
 | 
				
			||||||
#if	count+flow+prof
 | 
					#if	count+flow+prof
 | 
				
			||||||
		add.l	#1,countptr
 | 
							add.l	#1,countptr
 | 
				
			||||||
#if	prof
 | 
					#if	prof
 | 
				
			||||||
| 
						 | 
					@ -256,7 +256,8 @@ lni_z:		add	#1,(a6)
 | 
				
			||||||
#endif
 | 
					#endif
 | 
				
			||||||
#endif
 | 
					#endif
 | 
				
			||||||
		bra	8f
 | 
							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_q:		move.l	(sp)+,d0 ;	bra	1f
 | 
				
			||||||
lin_s0:		move.l	#0,d0	;	move.b	(a3)+,d0
 | 
					lin_s0:		move.l	#0,d0	;	move.b	(a3)+,d0
 | 
				
			||||||
1:		cmp	(a6),d0 ;	beq	9f
 | 
					1:		cmp	(a6),d0 ;	beq	9f
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Loading…
	
	Add table
		
		Reference in a new issue