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
|
bsr _break
|
||||||
add.l wrd,sp
|
add.l wrd,sp
|
||||||
#if last
|
#if last
|
||||||
move.l #30,d0 !initialise lasttable
|
move.l #126,d0 !initialise lasttable
|
||||||
lea lasttable,a5
|
lea lasttable,a5
|
||||||
0: clr.l (a5)+
|
0: clr.l (a5)+
|
||||||
dbra d0,0b
|
dbra d0,0b
|
||||||
|
@ -409,7 +409,7 @@ skipdisp:
|
||||||
#if flow
|
#if flow
|
||||||
move.l d1,lflow
|
move.l d1,lflow
|
||||||
move.l maxcount,d0
|
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
|
add.l #2,d0
|
||||||
bclr #0,d0 !make integer number of words (2 byte!)
|
bclr #0,d0 !make integer number of words (2 byte!)
|
||||||
add.l d0,d1
|
add.l d0,d1
|
||||||
|
@ -495,6 +495,8 @@ hp: .space 4
|
||||||
.define retarea
|
.define retarea
|
||||||
.define retsize
|
.define retsize
|
||||||
.define hp
|
.define hp
|
||||||
|
.define maxcount
|
||||||
|
.define firstp
|
||||||
.define globmax
|
.define globmax
|
||||||
.define tblmax
|
.define tblmax
|
||||||
.define ml
|
.define ml
|
||||||
|
|
Loading…
Reference in a new issue