URL https://opencores.org/ocsvn/eco32/eco32/trunk

Subversion Repositories eco32

[/] [eco32/] [trunk/] [fp/] [implementation/] [mmix/] [zero.mms] - Blame information for rev 50

Line No.	Rev	Author	Line
1	15	hellwig	`LOC #100`
2			`a IS $0`
3			`n IS $1`
4			`z IS $2`
5			`t IS $255`
6
7			`1H STB z,a,0`
8			`SUB n,n,1`
9			`ADD a,a,1`
10			`Zero BZ n,9F`
11			`SET z,0`
12			`AND t,a,7`
13			`BNZ t,1B`
14			`CMP t,n,64`
15			`PBNN t,3F`
16			`JMP 5F`
17			`2H STCO 0,a,0`
18			`SUB n,n,8`
19			`ADD a,a,8`
20			`3H AND t,a,63`
21			`PBNZ t,2B`
22			`CMP t,n,64`
23			`BN t,5F`
24			`4H PREST 63,a,0`
25			`SUB n,n,64`
26			`CMP t,n,64`
27			`STCO 0,a,0`
28			`STCO 0,a,8`
29			`STCO 0,a,16`
30			`STCO 0,a,24`
31			`STCO 0,a,32`
32			`STCO 0,a,40`
33			`STCO 0,a,48`
34			`STCO 0,a,56`
35			`ADD a,a,64`
36			`PBNN t,4B`
37			`5H CMP t,n,8`
38			`BN t,7F`
39			`6H STCO 0,a,0`
40			`SUB n,n,8`
41			`ADD a,a,8`
42			`CMP t,n,8`
43			`PBNN t,6B`
44			`7H BZ n,9F`
45			`8H STB z,a,0`
46			`SUB n,n,1`
47			`ADD a,a,1`
48			`PBNZ n,8B`
49			`9H POP`
50
51			`Main SET a+1,#fff7`
52			`SET n+1,146`
53			`PUSHJ 0,Zero`