1t IS $255
2n IS $0
3new GREG
4old GREG
5phi GREG
6rt5 GREG
7acc GREG
8f   GREG
9     LOC  #100
10Main FLOT t,5
11     FSQRT rt5,t
12     FLOT t,1
13     FADD phi,t,rt5
14     INCH phi,#fff0
15     FDIV acc,phi,rt5
16     SET n,1
17     SET new,1
181H   ADDU new,new,old
19     INCL n,1
20     CMPU t,new,old
21     BN   t,9F
22     SUBU old,new,old
23     FMUL acc,acc,phi
24     FIXU f,acc
25     CMP  t,f,new
26     PBZ  t,1B
27     SET  t,1
289H   TRAP 0,Halt,0
29