You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
FF6B 31<br />
FF6C B9<br />
FP6D 01<br />
FF6E EB<br />
FF6P 05<br />
FF70 2A<br />
FF71 27<br />
FT72 CB<br />
rm 02<br />
FHl 05<br />
FF75 S8<br />
duplicate number of steps In one circuit<br />
get ra<br />
multiply<br />
get hcf<br />
divide<br />
absolute<br />
Integer<br />
set t<br />
delete<br />
divide<br />
get f<br />
rnt> E9 get tn<br />
(SPECTRUM GRAPHICS!<br />
+ |r{ 1+ f/m)|))<br />
nusfcer of steps In eooplete pattern<br />
-2n/m< -2n(|f+m| + |r(l+ f/a)]))<br />
largest angular increment which will<br />
not leave gaps in the pattern<br />
FF77 OF add f+m — COS 9 — mem-CD<br />
FP70 AO conct-0 0 — SBi 9 mem-CE<br />
FF79 EC<br />
get ie<br />
FHA 20 cos oos ie -»mes-OF<br />
FP7B EC get i"<br />
FP7C IP sin sin ie mem-10<br />
FF7D EA get r r — COS 0-*-nem-ll<br />
FP7E AO const-0 0 -»SIW C -» meo-12<br />
FF7F E8 get t<br />
FT80 E9 get m<br />
FF81 05 divide f/n<br />
FF82 A1 eonst-l<br />
FP83 OF add 1+ f/n<br />
PFA3<br />
FFA4 OF<br />
FFA5 F1<br />
FFA6 F3<br />
FPA7 aims<br />
F2<br />
FFA9 F4<br />
FFAA 04<br />
FFA3 03<br />
FFAC Dl<br />
FFAD 02<br />
FFAK EC<br />
FFAF 02<br />
FF30 Bfc<br />
FFB1 ED<br />
FF32 OF<br />
FF33 F1<br />
FFB4 OF<br />
FFB5 27<br />
FF96 E7<br />
FF87 TE<br />
FFB8 OF<br />
FF99 F2<br />
FFM OF<br />
FFBB 27<br />
FFBC F5<br />
FFBO 36<br />
FFBE 0022<br />
FPCO P6<br />
FFC1 36<br />
FFC2 001E<br />
FFC4 F5<br />
FFC5 34409000FF<br />
FPCA 03<br />
FFCB 37<br />
F m EC get A9 FFCC 0014<br />
FP85 Oi ailtlply AH - (1+ f/n)A9 FFCE F6<br />
r?sb 31 duplicate FFCF 3440BOOOAP<br />
FT87 20 cos FFD4 03<br />
Free oi exchange cos At mem-U FFD5 37<br />
FT89 IF sin sin oeit-14<br />
FFD6 OOOA<br />
FF8A 38 HEFB end-calc FFD8 3480BOOOX22<br />
FFflB EF 1HOP RST 0028 call the calculator<br />
FF0C EE DEF8 get SIN 9<br />
FF8D EF get COS A9<br />
FF55S 04 multiply SDI 6 cos A9<br />
FF8F BD get COS e<br />
FRO FO get sin 69<br />
FF91 Oi. multiply OOS 6 sin &«<br />
FFDB 2D<br />
FFDF 3302<br />
FFE1 02<br />
FFE2 02<br />
FFE3 EH<br />
FFE4 A1<br />
FF92 OF add - SIK 9 cos i9 + C05 9 c In ie FFE5 03<br />
FF93 ED got OOS 9<br />
FF94 EF<br />
get cos i9<br />
FF95 04 mltiply OOS 9 cos A9<br />
77% EE get sm e<br />
FF97 FO get sin i9<br />
PP98 04 Bultiply SDi 9 sin A9<br />
P799 03 subtract C0S(e+A9) - OOS 6 eoc ie - sit: e sin is<br />
FT9A CD<br />
set COS 9<br />
FF9B 02 delete<br />
FF9C CB set SHI 9<br />
FF9D 02 delete<br />
FFSS CB<br />
FFE/ 37<br />
FFSS 0004<br />
FFEA 38<br />
FFEB 1807<br />
FFED 38<br />
FFEE CD541F<br />
PFT1 3898<br />
FFF3 2192JC<br />
IX<br />
FF9E F2 get SIN «<br />
FFF4 2268SC<br />
FF9F F3<br />
r<br />
FFAO 04<br />
FFA1 F1<br />
FFA2 F4<br />
get cos At<br />
multiply SD( C cos 6®<br />
get COS 9<br />
get sin Lt<br />
FFF9 2A635C<br />
FFPC 22655C<br />
FFFF C9<br />
tiTLOT<br />
PIOTD<br />
corn<br />
END<br />
multiply OOS t sin Af5<br />
add - SIN 0 cor. if/ + COS 0 sin A0<br />
got COS 0<br />
get cos At<br />
multiply COS t con At<br />
get SIK t<br />
get sin if<br />
multiply SDi I sin tt<br />
subtract OOS(frtA0) • OOS f cos Atf - SIK t sin AC<br />
set COS t<br />
delete<br />
sot SIK t<br />
delete<br />
get a<br />
get 00S 6<br />
add<br />
get OOS t<br />
add<br />
integer x - itr(a+ cos e + oos fl)<br />
- BJT(a+ (f-*m) c»j 9 + r to* t)<br />
mem-15<br />
get b<br />
GET SIN e<br />
add<br />
get SIK t<br />
add<br />
integer<br />
get *<br />
less-0<br />
y - H!T{b+ SIK 6 4 Sill t)<br />
- BJr(b+ {f-ta) sin 0 + r sin I)<br />
16<br />
Jump to NPJOT if x 175<br />
stk-data 22DC hexadecimal<br />
address of P10T x,y routine<br />
CSR call to PICT routine<br />
Jump tp PIJCTD<br />
delete y<br />
delete x or value returned by CSR<br />
get t<br />
const-1<br />
subtract<br />
set t<br />
groater-0<br />
if P1DT routine was executed<br />
Jump to COW if t > 0<br />
end-calc<br />
end-calc<br />
CALL 1F54<br />
return C (carry flag set)<br />
unless 'break' i.e. caps shift<br />
and space keys being pressed<br />
JR C,LOOT continue if no break<br />
ID HL.JC9C -XOSOT the address of the<br />
calculators normal memory<br />
LD (MJDO.HL<br />
ID flL, (STKBOT) address of stack bottom<br />
ID (STKT0P),HL delete the stack by overwriting<br />
the address of the stack top<br />
RET return to BASIC<br />
COMPUTING DECEMBER'JANUARY 1985 38
Change language