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

1 - length of last table

Browse source 
2 - human readable profile and count output.
This commit is contained in:
keie 1984-12-18 16:58:30 +00:00
parent 8b60227186
commit 45e2eea414
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
mach/mantra/int/mloop0
View file

@ -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