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