DEFB +00,(+00,+00,+00) DEFB +03,subtract X', e' Perform step iii. DEFB +01,exchange e', X' DEFB +31,duplicate e', X', X' DEFB +34,stk-data e', X', X',0.8 (decimal) DEFB +F0,exponent+80 DEFB +4C,+CC,+CC,+CD DEFB +03,subtract e', X', X'-0.8 DEFB +37,greater-0 e', X', (1/0) DEFB +00,jump-true e', X' DEFB +08,to 373D, GRE.8 e', X' DEFB +01,exchange X', e' DEFB +A1,stk-one X', e', 1 DEFB +03,subtract X', e'-1 DEFB +01,exchange e'-1, X' DEFB +38,end-calc e'-1, X' INC (HL) Double X' to give 2*X'. RST 0028,FP-CALC e'-1,2*X' 373D GRE.8 DEFB +01,exchange X',e' - X' large. 2*X',e'-1 - X' small. DEFB +34,stk-data X',e',LN 2 DEFB +F0,exponent+80 2*X',e'-1, LN 2 DEFB +31,+72,+17,+F8 DEFB +04,multiply X',e'*LN 2 = Y1 2*X', (e'-1)*LN 2 = Y2 Perform step iv. DEFB +01,exchange Y1, X' - X' large. Y2, 2*X' - X' small. DEFB +A2,stk-half Y1, X', .5 (decimal) Y2, 2*X', .5 DEFB +03,subtract Y1, X'-.5 Y2, 2*X'-.5 DEFB +A2,stk-half Y1, X'-.5, .5 Y2, 2*X'-.5, .5 DEFB +03,subtract Y1, X'-1 Y2, 2*X'-1 Perform step v. DEFB +31,duplicate Y, X'-1, X'-1 Y2, 2*X'-1, 2*X'-1 DEFB +34,stk-data Y1, X'-1, X'-1, 2.5 (decimal) Y2, 2*X'-1, 2*X'-1, 2.5 DEFB +32,exponent+82 DEFB +20,(+00,+00,+00) DEFB +04,multiply Y1, X'-1,2.5*X'-3 = Z Y2, 2*X'-1, 5*X'-3 = Z Perform step vi, passing to the SERIES GENERATOR the parameter '12' decimal, and the twelve constant required. DEFB +8C,series-0C Y1, X'-1, Z or Y2, 2*X'-1, Z 1. DEFB +11,exponent+61 DEFB +AC,(+00,+00,+00) 2. DEFB +14,exponent+64 DEFB +09,(+00,+00,+00) 3. DEFB +56,exponent+66 DEFB +DA,+A5,(+00,+00)