1 - length of last table
2 - human readable profile and count output.
This commit is contained in:
		
							parent
							
								
									8b60227186
								
							
						
					
					
						commit
						45e2eea414
					
				
					 1 changed files with 4 additions and 2 deletions
				
			
		|  | @ -7,7 +7,7 @@ | |||
| 		bsr	_break | ||||
| 		add.l	wrd,sp | ||||
| #if	last | ||||
| 		move.l	#30,d0			!initialise lasttable | ||||
| 		move.l	#126,d0			!initialise lasttable | ||||
| 		lea	lasttable,a5 | ||||
| 0:		clr.l	(a5)+ | ||||
| 		dbra	d0,0b | ||||
|  | @ -409,7 +409,7 @@ skipdisp: | |||
| #if flow | ||||
| 		move.l	d1,lflow | ||||
| 		move.l	maxcount,d0 | ||||
| 		asr.l	#3,d0		!divide by 8 ; byte is 8 bits ,you know | ||||
| 		asr.l	#3,d0		!divide by 8 | ||||
| 		add.l	#2,d0 | ||||
| 		bclr	#0,d0		!make integer number of words (2 byte!) | ||||
| 		add.l	d0,d1 | ||||
|  | @ -495,6 +495,8 @@ hp:	.space	4 | |||
| 	.define	retarea | ||||
| 	.define	retsize | ||||
| 	.define hp | ||||
| 	.define maxcount | ||||
| 	.define firstp | ||||
| 	.define globmax | ||||
| 	.define tblmax | ||||
| 	.define ml | ||||
|  |  | |||
		Loading…
	
	Add table
		
		Reference in a new issue