blob: 74b1c32183acdb3fb46758e5c3f7c062eb58a07a (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
TERM ORIG 1000
START ENT1 5
LDA 2000
MUL 2000
STX 2001
SRC 5
MUL 2001
SRC 5
DEC1 1
J1NZ 1005
MUL 2000
SRC 5
HLT 0
END START
* space = 12; time = 102u.
* time is 72u less than the time for 22.small.mixal.
* this solution uses successive squaring.
* discovered successive squaring in sicp. second edition. section 1.2.4.
|