|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 86016 (0x15000)
Types: Rc489kSubCat
Names: »calgmon«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt.
└─⟦0364f57e3⟧
└─⟦this⟧ »calgmon«
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
└─⟦4334b4c0b⟧
└─⟦this⟧ »calgmon«
0x00000…00033 (0,) Rc489kSubCatEnt {f00=0x001cea, f01=0x0007e4, f02=0x0007e4, filename=»tmon «, entry_tail=0-4-0-16-1981-08-20T10:57-disc1-0x0-0x0-0x0-0x0}
0x00033…00066 Rc489kSubCatEnt {f00=0x0117eb, f01=0x0007e4, f02=0x0007ed, filename=»tcmon «, entry_tail=0-4-0-52-1981-01-28T12:10-disc1-0x0-0x0-0x0-0x0}
0x00066…00099 Rc489kSubCatEnt {f00=0x0453e0, f01=0x0007e4, f02=0x0007e4, filename=»cmonlist «, entry_tail=0-4-0-1-1981-01-28T12:05-disc1-0x0-0x0-0x0-0x0}
0x00099…000cc Rc489kSubCatEnt {f00=0x0468e3, f01=0x0007e4, f02=0x0007ed, filename=»cmonhelp «, entry_tail=0-4-0-4-1981-01-28T11:51-disc1-0x0-0x0-0x0-0x0}
0x000cc…000ff Rc489kSubCatEnt {f00=0x04a803, f01=0x0007e4, f02=0x0007ed, filename=»tctrace «, entry_tail=0-4-0-6-1981-01-28T11:51-disc1-0x0-0x0-0x0-0x0}
0x000ff…00132 Rc489kSubCatEnt {f00=0x05073b, f01=0x0007e4, f02=0x0007ed, filename=»tcmerge «, entry_tail=0-4-0-7-1981-01-28T11:51-disc1-0x0-0x0-0x0-0x0}
0x00132…00165 Rc489kSubCatEnt {f00=0x057392, f01=0x0007e4, f02=0x0007ed, filename=»cmonsave «, entry_tail=0-4-0-1-1981-01-28T11:49-disc1-0x0-0x0-0x0-0x0}
0x00165…00198 Rc489kSubCatEnt {f00=0x058702, f01=0x0007e4, f02=0x0007ed, filename=»cmonload «, entry_tail=0-4-0-1-1981-01-28T11:51-disc1-0x0-0x0-0x0-0x0}
0x00198…001a0 ff ff ff ff ff ff ff ff ┆ ┆
0x001a0…001c0 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
0x001c0…001e0 ff ff ff ff ff ff ff ff ff ff ff 00 00 06 80 0d c3 80 00 01 7f ff fd 63 68 65 63 6b 00 00 00 00 ┆ check ┆
0x001e0…00200 00 00 00 80 00 04 73 79 73 74 65 6d 00 00 00 00 00 00 80 01 d8 04 80 00 00 00 00 00 40 28 00 20 ┆ system @( ┆
0x00200…00220 00 0b ed c3 00 75 30 00 75 39 72 75 6e 63 68 6f 36 00 00 00 00 00 00 00 01 64 69 73 63 00 00 00 ┆ u0 u9runcho6 disc ┆
0x00220…00240 00 00 00 00 00 6e f6 4e 00 00 00 00 00 00 00 00 00 00 00 00 4b 7d c3 00 00 00 00 07 cf 64 69 73 ┆ n N Kå dis┆
0x00240…00260 61 30 33 00 00 00 00 00 00 00 00 01 64 69 73 63 32 00 00 00 00 00 00 00 71 1e b6 00 00 00 00 00 ┆a03 disc2 q ┆
0x00260…00280 00 00 00 00 00 00 00 29 0d c3 00 00 78 00 00 81 73 69 6d 70 31 36 31 35 00 00 00 00 00 01 ab 64 ┆ ) x simp1615 d┆
0x00280…002a0 69 73 63 33 00 00 00 00 00 00 00 7c f9 e8 00 00 00 00 00 00 00 00 00 00 00 00 16 4d c3 00 00 78 ┆isc3 ø M x┆
0x002a0…002c0 00 00 81 63 6e 63 68 00 00 00 00 00 00 00 00 00 00 7e 64 69 73 63 33 00 00 00 00 00 00 00 77 a8 ┆ cnch üdisc3 w ┆
0x002c0…002e0 7c 00 00 78 00 00 81 00 a0 00 00 fc 00 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ø x ┆
0x002e0…002fd ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
0x002fd…00300 0x000008
0x00300…03300 Data for tmon
0x03300…0cf00 Data for tcmon
0x0cf00…0d200 (23,) Data for cmonlist
0x0d200…0de00 Data for cmonhelp
0x0de00…0f000 Data for tctrace
0x0f000…10500 Data for tcmerge
0x10500…10800 (29,) Data for cmonsave
0x10800…10b00 Data for cmonload
0x10b00…10b20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 6c 6f 6e 67 20 77 6f 72 6b 31 ┆ ; long work1┆
0x10b20…10b40 2c 0a 20 20 20 20 20 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 64 36 3a ┆, 0 ; d6:┆
0x10b40…10b60 20 20 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 20 20 77 ┆ 0 ; w┆
0x10b60…10b80 6f 72 6b 32 3b 0a 20 20 20 20 20 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b ┆ork2; 0 ;┆
0x10b80…10ba0 0a 64 37 3a 20 20 20 31 30 32 34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 6c 6f ┆ d7: 1024 ; lo┆
0x10ba0…10bc0 6e 67 20 72 6f 75 6e 64 63 6f 6e 73 74 61 6e 74 3b 0a 0a 62 32 3a 20 20 20 77 61 20 20 77 30 20 ┆ng roundconstant; b2: wa w0 ┆
0x10bc0…10be0 20 20 20 20 34 20 20 20 20 20 20 20 3b 20 20 20 77 30 3a 3d 20 77 30 2b 77 32 3b 0a 20 20 20 20 ┆ 4 ; w0:= w0+w2; ┆
0x10be0…10c00 20 20 64 73 2e 20 77 30 20 20 20 20 20 64 31 2e 20 20 20 20 20 3b 20 20 20 73 61 76 65 20 77 33 ┆ ds. w0 d1. ; save w3┆
0x10c00…10c20 3b 20 73 61 76 65 20 77 30 3b 0a 20 20 20 20 20 20 72 73 2e 20 77 31 20 20 20 20 20 64 32 2e 20 ┆; save w0; rs. w1 d2. ┆
0x10c20…10c40 20 20 20 20 3b 20 20 20 73 61 76 65 20 6c 69 6e 6b 3b 0a 20 20 20 20 20 20 6c 64 20 20 77 31 20 ┆ ; save link; ld w1 ┆
0x10c40…10c60 20 20 20 2d 36 35 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 64 73 2e 20 77 31 20 20 20 20 20 64 ┆ -65 ; ds. w1 d┆
0x10c60…10c80 33 2e 20 20 20 20 20 3b 20 20 20 66 72 61 63 74 69 6f 6e 3a 3d 20 30 3b 20 0a 20 20 20 20 20 20 ┆3. ; fraction:= 0; ┆
0x10c80…10ca0 61 6c 20 20 77 31 20 20 20 20 2d 32 30 34 38 20 20 20 20 3b 0a 20 20 20 20 20 20 72 73 2e 20 77 ┆al w1 -2048 ; rs. w┆
0x10ca0…10cc0 31 20 20 20 20 20 64 34 2e 20 20 20 20 20 3b 20 20 20 65 78 70 6f 6e 65 6e 74 3a 3d 20 2d 32 30 ┆1 d4. ; exponent:= -20┆
0x10cc0…10ce0 34 38 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 61 32 2e 20 20 20 20 20 3b 20 20 ┆48; jl. a2. ; ┆
0x10ce0…10d00 20 67 6f 74 6f 20 73 74 61 72 74 3b 0a 0a 61 30 3a 20 20 20 64 73 2e 20 77 31 20 20 20 20 20 64 ┆ goto start; a0: ds. w1 d┆
0x10d00…10d20 33 2e 20 20 20 20 20 3b 20 20 20 73 61 76 65 20 66 72 61 63 74 69 6f 6e 3b 0a 20 20 20 20 20 20 ┆3. ; save fraction; ┆
0x10d20…10d40 72 73 2e 20 77 33 20 20 20 20 20 64 34 2e 20 20 20 20 20 3b 20 20 20 73 61 76 65 20 65 78 70 6f ┆rs. w3 d4. ; save expo┆
0x10d40…10d60 6e 65 6e 74 3b 0a 61 31 3a 20 20 20 72 6c 2e 20 77 33 20 20 20 20 20 64 31 2e 2d 32 20 20 20 3b ┆nent; a1: rl. w3 d1.-2 ;┆
0x10d60…10d80 0a 20 20 20 20 20 20 77 61 2e 20 77 33 20 20 20 20 20 62 33 2e 20 20 20 20 20 3b 0a 20 20 20 20 ┆ wa. w3 b3. ; ┆
0x10d80…10da0 20 20 72 73 2e 20 77 33 20 20 20 20 20 64 31 2e 2d 32 20 20 20 3b 0a 61 32 3a 20 20 20 72 6c 20 ┆ rs. w3 d1.-2 ; a2: rl ┆
0x10da0…10dc0 20 77 30 20 20 78 32 2d 32 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 72 6c 20 20 77 31 20 20 ┆ w0 x2-2 ; rl w1 ┆
0x10dc0…10de0 78 33 2d 32 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 73 65 20 20 77 30 20 20 20 20 20 30 20 ┆x3-2 ; se w0 0 ┆
0x10de0…10e00 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 73 6e 20 20 77 31 20 20 20 20 20 30 20 20 20 20 20 20 ┆ ; sn w1 0 ┆
0x10e00…10e20 (30,) 20 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 61 36 2e 20 20 20 20 20 3b 0a 20 20 ┆ ; jl. a6. ; ┆
0x10e20…10e40 20 20 20 20 77 6d 20 20 77 31 20 20 20 20 20 30 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 64 ┆ wm w1 0 ; d┆
0x10e40…10e60 73 2e 20 77 31 20 20 20 20 20 64 35 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 20 62 7a 20 20 77 31 ┆s. w1 d5. ; bz w1┆
0x10e60…10e80 20 20 78 32 2d 31 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 77 6d 20 20 77 31 20 20 78 33 2d ┆ x2-1 ; wm w1 x3-┆
0x10e80…10ea0 32 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 64 73 2e 20 77 31 20 20 20 20 20 64 36 2e 20 20 ┆2 ; ds. w1 d6. ┆
0x10ea0…10ec0 20 20 20 3b 0a 20 20 20 20 20 20 62 7a 20 20 77 31 20 20 78 33 2d 31 20 20 20 20 20 20 20 3b 0a ┆ ; bz w1 x3-1 ; ┆
0x10ec0…10ee0 20 20 20 20 20 20 77 6d 20 20 77 31 20 20 78 32 2d 32 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 ┆ wm w1 x2-2 ; ┆
0x10ee0…10f00 20 61 61 2e 20 77 31 20 20 20 20 20 64 36 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 20 61 64 20 20 ┆ aa. w1 d6. ; ad ┆
0x10f00…10f20 77 31 20 20 20 20 2d 31 32 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 61 61 2e 20 77 31 20 20 20 ┆w1 -12 ; aa. w1 ┆
0x10f20…10f40 20 20 64 35 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 20 62 6c 20 20 77 33 20 20 78 33 20 20 20 20 ┆ d5. ; bl w3 x3 ┆
0x10f40…10f60 20 20 20 20 20 3b 0a 20 20 20 20 20 20 62 61 20 20 77 33 20 20 78 32 20 20 20 20 20 20 20 20 20 ┆ ; ba w3 x2 ┆
0x10f60…10f80 3b 0a 20 20 20 20 20 20 61 6c 20 20 77 33 20 20 78 33 2b 31 20 20 20 20 20 20 20 3b 0a 20 20 20 ┆; al w3 x3+1 ; ┆
0x10f80…10fa0 20 20 20 73 68 2e 20 77 33 20 28 20 20 20 64 34 2e 29 20 20 20 20 3b 0a 20 20 20 20 20 20 6a 6c ┆ sh. w3 ( d4.) ; jl┆
0x10fa0…10fc0 2e 20 20 20 20 20 20 20 20 61 33 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 20 72 78 2e 20 77 30 20 ┆. a3. ; rx. w0 ┆
0x10fc0…10fe0 20 20 20 20 64 33 2e 2d 32 20 20 20 3b 0a 20 20 20 20 20 20 72 78 2e 20 77 31 20 20 20 20 20 64 ┆ d3.-2 ; rx. w1 d┆
0x10fe0…11000 33 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 20 72 78 2e 20 77 33 20 20 20 20 20 64 34 2e 20 20 20 ┆3. ; rx. w3 d4. ┆
0x11000…11020 20 20 3b 0a 61 33 3a 20 20 20 77 73 2e 20 77 33 20 20 20 20 20 64 34 2e 20 20 20 20 20 3b 0a 20 ┆ ; a3: ws. w3 d4. ; ┆
0x11020…11040 20 20 20 20 20 61 64 20 20 77 31 20 20 78 33 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 ┆ ad w1 x3 ; ┆
0x11040…11060 61 61 2e 20 77 31 20 20 20 20 20 64 33 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 20 6e 64 20 20 77 ┆aa. w1 d3. ; nd w┆
0x11060…11080 31 20 20 20 20 20 37 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 61 64 20 20 77 31 20 20 20 20 ┆1 7 ; ad w1 ┆
0x11080…110a0 2d 31 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 62 6c 20 20 77 33 20 20 20 20 20 37 20 20 20 ┆-1 ; bl w3 7 ┆
0x110a0…110c0 20 20 20 20 3b 0a 20 20 20 20 20 20 61 6c 20 20 77 33 20 20 78 33 2b 31 20 20 20 20 20 20 20 3b ┆ ; al w3 x3+1 ;┆
0x110c0…110e0 0a 20 20 20 20 20 20 77 61 2e 20 77 33 20 20 20 20 20 64 34 2e 20 20 20 20 20 3b 0a 20 20 20 20 ┆ wa. w3 d4. ; ┆
0x110e0…11100 20 20 73 6e 20 20 77 30 20 20 20 20 20 30 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 61 6c 20 ┆ sn w0 0 ; al ┆
0x11100…11120 20 77 33 20 20 20 20 2d 32 30 34 38 20 20 20 20 3b 0a 20 20 20 20 20 20 61 6c 20 20 77 32 20 20 ┆ w3 -2048 ; al w2 ┆
0x11120…11140 78 32 2b 34 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 73 65 2e 20 77 32 20 28 20 20 20 64 31 ┆x2+4 ; se. w2 ( d1┆
0x11140…11160 2e 29 20 20 20 20 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 61 30 2e 20 20 20 20 ┆.) ; jl. a0. ┆
0x11160…11180 20 3b 0a 61 34 3a 20 20 20 73 6e 20 20 77 30 20 20 20 20 20 30 20 20 20 20 20 20 20 3b 0a 20 20 ┆ ; a4: sn w0 0 ; ┆
0x11180…111a0 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 61 35 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 20 61 ┆ jl. a5. ; a┆
0x111a0…111c0 61 2e 20 77 31 20 20 20 20 20 64 37 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 20 6e 64 2e 20 77 31 ┆a. w1 d7. ; nd. w1┆
0x111c0…111e0 20 20 20 20 20 33 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 61 6c 20 20 77 33 20 20 78 33 20 ┆ 3 ; al w3 x3 ┆
0x111e0…11200 20 20 20 20 20 20 20 20 3b 0a 61 35 3a 20 20 20 68 6c 20 20 77 31 20 20 20 20 20 37 20 20 20 20 ┆ ; a5: hl w1 7 ┆
0x11200…11220 20 20 20 3b 0a 20 20 20 20 20 20 73 6c 20 20 77 33 20 20 20 20 2d 32 30 34 38 20 20 20 20 3b 0a ┆ ; sl w3 -2048 ; ┆
0x11220…11240 20 20 20 20 20 20 73 6c 2e 20 77 33 20 28 20 20 20 64 30 2e 29 20 20 20 20 3b 0a 20 20 20 20 20 ┆ sl. w3 ( d0.) ; ┆
0x11240…11260 20 66 64 2e 20 77 31 20 20 20 20 20 64 30 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 ┆ fd. w1 d0. ; jl. ┆
0x11260…11280 20 20 20 28 20 20 20 64 32 2e 29 20 20 20 20 3b 0a 0a 61 36 3a 20 20 20 61 6c 20 20 77 32 20 20 ┆ ( d2.) ; a6: al w2 ┆
0x11280…112a0 78 32 2b 34 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 73 65 2e 20 77 32 20 28 20 20 20 64 31 ┆x2+4 ; se. w2 ( d1┆
0x112a0…112c0 2e 29 20 20 20 20 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 61 31 2e 20 20 20 20 ┆.) ; jl. a1. ┆
0x112c0…112e0 20 3b 0a 20 20 20 20 20 20 64 6c 2e 20 77 31 20 20 20 20 20 64 33 2e 20 20 20 20 20 3b 0a 20 20 ┆ ; dl. w1 d3. ; ┆
0x112e0…11300 20 20 20 20 72 6c 2e 20 77 33 20 20 20 20 20 64 34 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 20 6a ┆ rl. w3 d4. ; j┆
0x11300…11320 6c 2e 20 20 20 20 20 20 20 20 61 34 2e 20 20 20 20 20 3b 0a 65 2e 0a 0a 62 33 3a 20 20 20 30 20 ┆l. a4. ; e. b3: 0 ┆
0x11320…11340 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 0a 62 2e 20 61 35 2c 20 64 36 2c 20 77 ┆ ; b. a5, d6, w┆
0x11340…11360 2e 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 64 30 3a 20 20 20 30 20 20 20 20 20 20 20 20 20 20 ┆. ; d0: 0 ┆
0x11360…11380 20 20 20 20 20 20 20 20 3b 0a 64 31 3a 20 20 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ; d1: 0 ┆
0x11380…113a0 20 20 20 3b 0a 64 32 3a 20 20 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a ┆ ; d2: 0 ; ┆
0x113a0…113c0 64 33 3a 20 20 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 64 34 3a 20 20 ┆d3: 0 ; d4: ┆
0x113c0…113e0 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 64 35 3a 20 20 20 30 20 20 20 ┆ 0 ; d5: 0 ┆
0x113e0…11400 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 64 36 3a 20 20 20 30 20 20 20 20 20 20 20 20 ┆ ; d6: 0 ┆
0x11400…11420 20 20 20 20 20 20 20 20 20 20 3b 0a 0a 65 31 3a 20 20 20 72 6c 2e 20 77 32 20 28 20 20 20 6a 31 ┆ ; e1: rl. w2 ( j1┆
0x11420…11440 33 2e 29 20 20 20 3b 6d 61 74 72 69 78 6d 75 6c 74 3a 0a 20 20 20 20 20 20 64 73 2e 20 77 33 20 ┆3.) ;matrixmult: ds. w3 ┆
0x11440…11460 28 20 20 20 6a 33 30 2e 29 20 20 20 3b 0a 20 20 20 20 20 20 61 6c 20 20 77 31 20 20 20 20 2d 34 ┆( j30.) ; al w1 -4┆
0x11460…11480 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 77 33 20 28 20 20 20 6a 33 2e 29 20 20 ┆ ; jl. w3 ( j3.) ┆
0x11480…114a0 20 20 3b 0a 20 20 20 20 20 20 61 6c 20 20 77 31 20 20 78 32 2b 36 20 20 20 20 20 20 20 3b 0a 20 ┆ ; al w1 x2+6 ; ┆
0x114a0…114c0 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 20 20 20 62 30 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 20 ┆ jl. w3 b0. ; ┆
0x114c0…114e0 61 6c 20 20 77 31 20 20 78 32 2b 31 30 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 77 ┆al w1 x2+10 ; jl. w┆
0x114e0…11500 33 20 20 20 20 20 62 30 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 20 77 6d 20 20 77 31 20 20 78 32 ┆3 b0. ; wm w1 x2┆
0x11500…11520 2b 36 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 72 73 20 20 77 31 20 20 78 32 2b 38 20 20 20 ┆+6 ; rs w1 x2+8 ┆
0x11520…11540 20 20 20 20 3b 0a 20 20 20 20 20 20 61 6c 20 20 77 30 20 20 78 32 2b 31 38 20 20 20 20 20 20 3b ┆ ; al w0 x2+18 ;┆
0x11540…11560 0a 20 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 20 20 20 62 31 2e 20 20 20 20 20 3b 0a 20 20 20 20 ┆ jl. w3 b1. ; ┆
0x11560…11580 20 20 61 6c 20 20 77 31 20 20 78 32 2b 31 34 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 6a 6c 2e ┆ al w1 x2+14 ; jl.┆
0x11580…115a0 20 77 33 20 20 20 20 20 62 30 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 20 77 6d 20 20 77 31 20 20 ┆ w3 b0. ; wm w1 ┆
0x115a0…115c0 78 32 2b 31 30 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 61 6c 20 20 77 30 20 20 78 32 2b 32 32 ┆x2+10 ; al w0 x2+22┆
0x115c0…115e0 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 20 20 20 62 31 2e 20 20 20 20 ┆ ; jl. w3 b1. ┆
0x115e0…11600 20 3b 0a 20 20 20 20 20 20 72 6c 20 20 77 31 20 20 78 32 2b 31 34 20 20 20 20 20 20 3b 0a 20 20 ┆ ; rl w1 x2+14 ; ┆
0x11600…11620 20 20 20 20 77 6d 20 20 77 31 20 20 78 32 2b 36 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 61 ┆ wm w1 x2+6 ; a┆
0x11620…11640 6c 20 20 77 30 20 20 78 32 2b 32 36 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 77 33 ┆l w0 x2+26 ; jl. w3┆
0x11640…11660 20 20 20 20 20 62 31 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 20 72 73 2e 20 77 32 20 28 20 20 20 ┆ b1. ; rs. w2 ( ┆
0x11660…11680 6a 31 33 2e 29 20 20 20 3b 0a 20 20 20 20 20 20 72 6c 20 20 77 30 20 20 78 32 2b 31 30 20 20 20 ┆j13.) ; rl w0 x2+10 ┆
0x11680…116a0 20 20 20 3b 0a 20 20 20 20 20 20 6c 73 20 20 77 30 20 20 20 20 20 32 20 20 20 20 20 20 20 3b 0a ┆ ; ls w0 2 ; ┆
0x116a0…116c0 20 20 20 20 20 20 72 6c 20 20 77 31 20 20 78 32 2b 32 36 20 20 20 20 20 20 3b 0a 20 20 20 20 20 ┆ rl w1 x2+26 ; ┆
0x116c0…116e0 20 64 73 2e 20 77 31 20 20 20 20 20 64 31 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 20 72 6c 20 20 ┆ ds. w1 d1. ; rl ┆
0x116e0…11700 77 30 20 20 78 32 2b 38 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 72 6c 20 20 77 31 20 20 78 ┆w0 x2+8 ; rl w1 x┆
0x11700…11720 (31,) 32 2b 31 34 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 6c 64 20 20 77 31 20 20 20 20 20 32 20 20 ┆2+14 ; ld w1 2 ┆
0x11720…11740 20 20 20 20 20 3b 0a 20 20 20 20 20 20 72 73 2e 20 77 31 20 20 20 20 20 62 33 2e 20 20 20 20 20 ┆ ; rs. w1 b3. ┆
0x11740…11760 3b 0a 20 20 20 20 20 20 61 6c 20 20 77 31 20 20 78 31 2d 34 20 20 20 20 20 20 20 3b 0a 20 20 20 ┆; al w1 x1-4 ; ┆
0x11760…11780 20 20 20 72 6c 20 20 77 33 20 20 78 32 2b 32 32 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 72 6c ┆ rl w3 x2+22 ; rl┆
0x11780…117a0 20 20 77 32 20 20 78 32 2b 31 38 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 61 61 20 20 77 31 20 ┆ w2 x2+18 ; aa w1 ┆
0x117a0…117c0 20 20 20 20 36 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 64 73 2e 20 77 31 20 20 20 20 20 64 ┆ 6 ; ds. w1 d┆
0x117c0…117e0 33 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 20 64 73 2e 20 77 33 20 20 20 20 20 64 35 2e 20 20 20 ┆3. ; ds. w3 d5. ┆
0x117e0…11800 20 20 3b 0a 20 20 20 20 20 20 72 73 2e 20 77 33 20 20 20 20 20 64 36 2e 20 20 20 20 20 3b 0a 20 ┆ ; rs. w3 d6. ; ┆
0x11800…11820 20 20 20 20 20 72 6c 2e 20 77 30 20 20 20 20 20 64 30 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 20 ┆ rl. w0 d0. ; ┆
0x11820…11840 6a 6c 2e 20 77 31 20 20 20 20 20 62 32 2e 20 20 20 20 20 3b 0a 0a 61 30 3a 20 20 20 64 73 2e 20 ┆jl. w1 b2. ; a0: ds. ┆
0x11840…11860 77 31 20 28 20 20 20 64 31 2e 29 20 20 20 20 3b 0a 20 20 20 20 20 20 72 6c 2e 20 77 33 20 20 20 ┆w1 ( d1.) ; rl. w3 ┆
0x11860…11880 20 20 64 35 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 20 73 65 2e 20 77 33 20 28 20 20 20 64 33 2e ┆ d5. ; se. w3 ( d3.┆
0x11880…118a0 29 20 20 20 20 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 61 32 2e 20 20 20 20 20 ┆) ; jl. a2. ┆
0x118a0…118c0 3b 0a 20 20 20 20 20 20 73 6c 2e 20 77 32 20 28 20 20 20 64 32 2e 29 20 20 20 20 3b 0a 20 20 20 ┆; sl. w2 ( d2.) ; ┆
0x118c0…118e0 20 20 20 6a 6c 2e 20 20 20 20 28 20 20 20 6a 38 2e 29 20 20 20 20 3b 0a 20 20 20 20 20 20 72 73 ┆ jl. ( j8.) ; rs┆
0x118e0…11900 2e 20 77 32 20 20 20 20 20 64 34 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 20 72 6c 2e 20 77 33 20 ┆. w2 d4. ; rl. w3 ┆
0x11900…11920 20 20 20 20 64 36 2e 20 20 20 20 20 3b 0a 61 31 3a 20 20 20 72 73 2e 20 77 33 20 20 20 20 20 64 ┆ d6. ; a1: rs. w3 d┆
0x11920…11940 35 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 20 64 6c 2e 20 77 31 20 20 20 20 20 64 31 2e 20 20 20 ┆5. ; dl. w1 d1. ┆
0x11940…11960 20 20 3b 0a 20 20 20 20 20 20 61 6c 20 20 77 31 20 20 78 31 2b 34 20 20 20 20 20 20 20 3b 0a 20 ┆ ; al w1 x1+4 ; ┆
0x11960…11980 20 20 20 20 20 72 73 2e 20 77 31 20 20 20 20 20 64 31 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 20 ┆ rs. w1 d1. ; ┆
0x11980…119a0 61 6c 2e 20 77 31 20 20 20 20 20 61 30 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 20 ┆al. w1 a0. ; jl. ┆
0x119a0…119c0 20 20 20 20 20 20 62 32 2e 20 20 20 20 20 3b 0a 0a 61 32 3a 20 20 20 61 6c 20 20 77 33 20 20 78 ┆ b2. ; a2: al w3 x┆
0x119c0…119e0 33 2b 34 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 72 6c 2e 20 77 32 20 20 20 20 20 64 34 2e ┆3+4 ; rl. w2 d4.┆
0x119e0…11a00 20 20 20 20 20 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 61 31 2e 20 20 20 20 20 ┆ ; jl. a1. ┆
0x11a00…11a20 3b 0a 65 2e 0a 0a 65 32 3a 20 20 20 72 6c 2e 20 77 32 20 28 20 20 20 6a 31 33 2e 29 20 20 20 3b ┆; e. e2: rl. w2 ( j13.) ;┆
0x11a20…11a40 70 72 69 6b 3a 0a 20 20 20 20 20 20 64 73 2e 20 77 33 20 28 20 20 20 6a 33 30 2e 29 20 20 20 3b ┆prik: ds. w3 ( j30.) ;┆
0x11a40…11a60 20 73 61 76 65 20 73 74 61 63 6b 72 65 66 3b 0a 20 20 20 20 20 20 61 6c 20 20 77 31 20 20 20 20 ┆ save stackref; al w1 ┆
0x11a60…11a80 2d 34 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 77 33 20 28 20 20 20 6a 33 2e 29 ┆-4 ; jl. w3 ( j3.)┆
0x11a80…11aa0 20 20 20 20 3b 20 72 65 73 65 72 76 65 20 34 20 62 79 74 65 73 3b 0a 20 20 20 20 20 20 61 6c 20 ┆ ; reserve 4 bytes; al ┆
0x11aa0…11ac0 20 77 31 20 20 78 32 2b 36 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 ┆ w1 x2+6 ; jl. w3 ┆
0x11ac0…11ae0 20 20 20 62 30 2e 20 20 20 20 20 3b 20 74 61 6b 65 20 6d 3b 0a 20 20 20 20 20 20 61 6c 20 20 77 ┆ b0. ; take m; al w┆
0x11ae0…11b00 30 20 20 78 32 2b 31 30 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 20 20 ┆0 x2+10 ; jl. w3 ┆
0x11b00…11b20 20 62 31 2e 20 20 20 20 20 3b 20 74 61 6b 65 20 41 20 61 6e 64 20 74 65 73 74 20 66 6f 72 20 6d ┆ b1. ; take A and test for m┆
0x11b20…11b40 20 65 6c 65 6d 65 6e 74 73 3b 0a 20 20 20 20 20 20 61 6c 20 20 77 30 20 20 78 32 2b 31 34 20 20 ┆ elements; al w0 x2+14 ┆
0x11b40…11b60 20 20 20 20 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 20 20 20 62 31 2e 20 20 20 20 20 3b ┆ ; jl. w3 b1. ;┆
0x11b60…11b80 20 74 61 6b 65 20 42 20 61 6e 64 20 74 65 73 74 20 66 6f 72 20 6d 20 65 6c 65 6d 65 6e 74 73 3b ┆ take B and test for m elements;┆
0x11b80…11ba0 0a 20 20 20 20 20 20 72 73 2e 20 77 32 20 28 20 20 20 6a 31 33 2e 29 20 20 20 3b 20 72 65 6c 65 ┆ rs. w2 ( j13.) ; rele┆
0x11ba0…11bc0 61 73 65 20 34 20 62 79 74 65 73 3b 0a 20 20 20 20 20 20 72 6c 20 20 77 33 20 20 78 32 2b 31 34 ┆ase 4 bytes; rl w3 x2+14┆
0x11bc0…11be0 20 20 20 20 20 20 3b 20 77 33 3a 3d 20 66 69 72 73 74 61 64 64 72 28 41 29 2b 32 3b 0a 20 20 20 ┆ ; w3:= firstaddr(A)+2; ┆
0x11be0…11c00 20 20 20 61 6c 20 20 77 30 20 20 20 20 20 34 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 72 73 ┆ al w0 4 ; rs┆
0x11c00…11c20 2e 20 77 30 20 20 20 20 20 62 33 2e 20 20 20 20 20 3b 20 62 33 3a 3d 20 31 2a 34 3b 0a 20 20 20 ┆. w0 b3. ; b3:= 1*4; ┆
0x11c20…11c40 20 20 20 72 6c 20 20 77 30 20 20 78 32 2b 36 20 20 20 20 20 20 20 3b 20 77 30 3a 3d 20 6d 0a 20 ┆ rl w0 x2+6 ; w0:= m ┆
0x11c40…11c60 20 20 20 20 20 6c 73 20 20 77 30 20 20 20 20 20 32 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 20 ┆ ls w0 2 ; ┆
0x11c60…11c80 2a 34 3b 0a 20 20 20 20 20 20 72 6c 20 20 77 32 20 20 78 32 2b 31 30 20 20 20 20 20 20 3b 20 77 ┆*4; rl w2 x2+10 ; w┆
0x11c80…11ca0 32 3a 3d 20 66 69 72 73 74 61 64 64 72 28 42 29 2b 32 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 77 31 ┆2:= firstaddr(B)+2; jl. w1┆
0x11ca0…11cc0 20 20 20 20 20 62 32 2e 20 20 20 20 20 3b 20 73 69 67 6d 61 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 ┆ b2. ; sigma; jl. ┆
0x11cc0…11ce0 20 20 20 28 20 20 20 6a 36 2e 29 20 20 20 20 3b 20 65 6e 64 20 72 65 67 69 73 74 65 72 20 65 78 ┆ ( j6.) ; end register ex┆
0x11ce0…11d00 70 72 65 73 73 69 6f 6e 3b 0a 0a 68 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆pression; h. ┆
0x11d00…11d20 20 20 20 20 3b 20 65 6e 64 0a 20 20 20 20 20 20 30 2c 72 2e 28 3a 35 30 34 2d 6b 3a 29 20 20 20 ┆ ; end 0,r.(:504-k:) ┆
0x11d20…11d40 20 20 20 3b 0a 77 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a ┆ ; w. ; ┆
0x11d40…11d60 20 20 20 20 20 20 3c 3a 6d 61 74 72 69 78 6d 75 6c 74 20 3c 30 3e 3a 3e 20 3b 0a 0a 65 2e 20 20 ┆ <:matrixmult <0>:> ; e. ┆
0x11d60…11d80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 0a 77 2e 20 20 20 20 20 20 ┆ ; w. ┆
0x11d80…11da0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 3b 6d 61 74 72 69 78 6d 75 6c 74 3a 0a ┆ ; ;matrixmult: ┆
0x11da0…11dc0 67 30 3a 20 20 20 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 ┆g0: 1 ; ┆
0x11dc0…11de0 20 30 2c 30 2c 30 2c 30 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 31 3c 32 33 ┆ 0,0,0,0 ; 1<23┆
0x11de0…11e00 2b 65 31 2d 65 33 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 31 3c 31 38 2b 32 36 3c 31 ┆+e1-e3 ; 1<18+26<1┆
0x11e00…11e20 32 2b 32 36 3c 36 2b 32 36 20 3b 20 20 70 72 6f 63 65 64 75 72 65 20 6d 61 74 72 69 78 6d 75 6c ┆2+26<6+26 ; procedure matrixmul┆
0x11e20…11e40 74 28 6c 2c 6d 2c 6e 2c 41 2c 42 2c 43 29 3b 0a 20 20 20 20 20 20 31 33 3c 31 38 2b 31 33 3c 31 ┆t(l,m,n,A,B,C); 13<18+13<1┆
0x11e40…11e60 32 2b 31 33 3c 36 20 20 20 3b 20 20 76 61 6c 75 65 20 6c 2c 6d 2c 6e 3b 20 69 6e 74 65 67 65 72 ┆2+13<6 ; value l,m,n; integer┆
0x11e60…11e80 20 6c 2c 6d 2c 6e 3b 20 61 72 72 61 79 20 41 2c 42 2c 43 3b 0a 20 20 20 20 20 20 34 3c 31 32 2b ┆ l,m,n; array A,B,C; 4<12+┆
0x11e80…11ea0 65 30 2d 65 33 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 31 3c 31 32 2b 30 20 20 20 20 ┆e0-e3 ; 1<12+0 ┆
0x11ea0…11ec0 20 20 20 20 20 20 20 20 20 3b 0a 0a 3b 70 72 69 6b 3a 0a 67 31 3a 20 20 20 31 3c 32 33 2b 34 20 ┆ ; ;prik: g1: 1<23+4 ┆
0x11ec0…11ee0 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 30 2c 30 2c 30 2c 30 20 20 20 20 20 ┆ ; 0,0,0,0 ┆
0x11ee0…11f00 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 31 3c 32 33 2b 65 32 2d 65 33 20 20 20 20 20 20 20 ┆ ; 1<23+e2-e3 ┆
0x11f00…11f20 20 20 3b 0a 20 20 20 20 20 20 34 3c 31 38 2b 32 36 3c 31 32 2b 32 36 3c 36 2b 31 33 20 3b 20 20 ┆ ; 4<18+26<12+26<6+13 ; ┆
0x11f20…11f40 72 65 61 6c 20 70 72 6f 63 65 64 75 72 65 20 70 72 69 6b 28 6d 2c 41 2c 42 29 3b 0a 20 20 20 20 ┆real procedure prik(m,A,B); ┆
0x11f40…11f60 20 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 76 61 6c 75 65 20 6d 3b ┆ 0 ; value m;┆
0x11f60…11f80 20 69 6e 74 65 67 65 72 20 6d 3b 20 61 72 72 61 79 20 41 2c 42 3b 0a 20 20 20 20 20 20 34 3c 31 ┆ integer m; array A,B; 4<1┆
0x11f80…11fa0 32 2b 65 30 2d 65 33 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 31 3c 31 32 2b 30 20 20 ┆2+e0-e3 ; 1<12+0 ┆
0x11fa0…11fc0 20 20 20 20 20 20 20 20 20 20 20 3b 0a 70 2e 20 20 20 20 3c 3a 69 6e 73 65 72 74 70 72 6f 63 78 ┆ ; p. <:insertprocx┆
0x11fc0…11fe0 3a 3e 20 20 20 20 3b 0a 65 2e 0a 19 00 20 20 3b 20 65 6e 64 20 72 65 67 69 73 74 65 72 20 65 78 ┆:> ; e. ; end register ex┆
0x11fe0…12000 70 72 65 73 73 69 6f 6e 3b 0a 0a 68 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆pression; h. ┆
0x12000…12020 (32,) 6d 65 73 73 61 67 65 20 66 66 74 69 70 6f 77 0a 0a 28 66 66 74 69 70 6f 77 3d 73 6c 61 6e 67 20 ┆message fftipow (fftipow=slang ┆
0x12020…12040 66 70 6e 61 6d 65 73 20 74 79 70 65 2e 79 65 73 20 69 6e 73 65 72 74 70 72 6f 63 20 65 6e 74 72 ┆fpnames type.yes insertproc entr┆
0x12040…12060 79 2e 6e 6f 0a 66 66 74 69 70 6f 77 29 0a 0a 3b 20 38 2d 31 30 2d 37 34 20 6f 6a 68 2f 72 6d 0a ┆y.no fftipow) ; 8-10-74 ojh/rm ┆
0x12060…12080 3b 20 70 6f 77 65 72 73 70 65 63 74 72 75 6d 20 6f 66 20 69 6e 74 65 67 65 72 20 64 61 74 61 0a ┆; powerspectrum of integer data ┆
0x12080…120a0 0a 62 2e 20 67 31 2c 65 33 20 77 2e 0a 0a 6b 3d 31 30 30 30 30 0a 0a 73 2e 20 67 36 2c 6a 34 30 ┆ b. g1,e3 w. k=10000 s. g6,j40┆
0x120a0…120c0 2c 61 33 30 2c 62 31 30 0a 68 2e 0a 67 30 3d 30 0a 65 32 3a 0a 67 31 3a 20 20 67 33 2c 67 32 0a ┆,a30,b10 h. g0=0 e2: g1: g3,g2 ┆
0x120c0…120e0 6a 31 33 3a 20 67 30 2b 31 33 2c 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 6c ┆j13: g0+13,0 ; l┆
0x120e0…12100 61 73 74 20 75 73 65 64 0a 6a 33 30 3a 20 67 30 2b 33 30 2c 30 20 20 20 20 20 20 20 20 20 20 20 ┆ast used j30: g0+30,0 ┆
0x12100…12120 20 20 20 20 20 20 3b 20 73 61 76 65 64 20 73 72 2c 77 33 0a 6a 38 3a 20 20 67 30 2b 38 2c 30 20 ┆ ; saved sr,w3 j8: g0+8,0 ┆
0x12120…12140 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 65 6e 64 20 61 64 64 72 65 73 73 20 65 ┆ ; end address e┆
0x12140…12160 78 70 72 0a 6a 34 3a 20 20 67 30 2b 34 2c 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆xpr j4: g0+4,0 ┆
0x12160…12180 20 3b 20 74 61 6b 65 20 65 78 70 72 0a 6a 31 38 3a 20 67 30 2b 31 38 2c 30 20 20 20 20 20 20 20 ┆ ; take expr j18: g0+18,0 ┆
0x12180…121a0 20 20 20 20 20 20 20 20 20 20 3b 20 7a 6f 6e 65 20 61 6c 61 72 6d 20 28 69 6e 64 65 78 29 0a 67 ┆ ; zone alarm (index) g┆
0x121a0…121c0 32 3d 6b 2d 32 2d 67 31 2c 20 67 33 3d 67 32 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 65 6e ┆2=k-2-g1, g3=g2 ; en┆
0x121c0…121e0 64 20 6f 66 20 61 62 73 20 77 6f 72 64 73 2c 70 6f 69 6e 74 73 0a 77 2e 0a 61 31 33 3a 20 65 30 ┆d of abs words,points w. a13: e0┆
0x121e0…12200 3a 20 20 20 20 20 67 30 0a 61 31 34 3a 20 20 20 20 20 20 20 20 20 30 0a 61 31 31 3a 20 20 20 35 ┆: g0 a14: 0 a11: 5┆
0x12200…12220 20 31 30 20 37 34 0a 61 31 32 3a 20 20 31 36 20 30 30 20 30 30 0a 65 31 3a 20 20 72 6c 2e 20 77 ┆ 10 74 a12: 16 00 00 e1: rl. w┆
0x12220…12240 32 20 28 6a 31 33 2e 29 0a 20 20 20 20 20 64 73 2e 20 77 33 20 28 6a 33 30 2e 29 0a 20 20 20 20 ┆2 (j13.) ds. w3 (j30.) ┆
0x12240…12260 20 64 6c 20 20 77 31 20 20 78 32 2b 38 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 74 61 6b 65 20 ┆ dl w1 x2+8 ; take ┆
0x12260…12280 6d 0a 20 20 20 20 20 73 6f 20 20 77 30 20 20 31 36 0a 20 20 20 20 20 6a 6c 2e 20 77 33 20 28 6a ┆m so w0 16 jl. w3 (j┆
0x12280…122a0 34 2e 29 0a 20 20 20 20 20 64 73 2e 20 77 33 20 28 6a 33 30 2e 29 0a 20 20 20 20 20 64 6c 20 20 ┆4.) ds. w3 (j30.) dl ┆
0x122a0…122c0 77 31 20 20 78 31 0a 20 20 20 20 20 72 6c 20 20 77 33 20 20 78 32 2b 36 0a 20 20 20 20 20 73 7a ┆w1 x1 rl w3 x2+6 sz┆
0x122c0…122e0 20 20 77 33 20 20 20 31 0a 20 20 20 20 20 63 66 20 20 77 31 20 20 20 30 20 20 20 20 20 20 20 20 ┆ w3 1 cf w1 0 ┆
0x122e0…12300 20 20 20 20 20 20 3b 20 77 31 3d 6d 0a 20 20 20 20 20 73 68 20 20 77 31 20 20 31 33 20 20 20 20 ┆ ; w1=m sh w1 13 ┆
0x12300…12320 20 20 20 20 20 20 20 20 20 20 3b 20 69 66 20 6d 3e 31 33 20 6f 72 0a 20 20 20 20 20 73 68 20 20 ┆ ; if m>13 or sh ┆
0x12320…12340 77 31 20 20 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 6d 3c 3d 30 20 74 68 65 6e 0a ┆w1 0 ; m<=0 then ┆
0x12340…12360 20 20 20 20 20 6a 6c 2e 20 77 33 20 28 6a 31 38 2e 29 20 20 20 20 20 20 20 20 20 20 20 3b 20 61 ┆ jl. w3 (j18.) ; a┆
0x12360…12380 6c 61 72 6d 20 69 6e 64 65 78 20 3c 6d 3e 0a 20 20 20 20 20 61 63 20 20 77 33 20 20 78 31 2d 32 ┆larm index <m> ac w3 x1-2┆
0x12380…123a0 34 0a 20 20 20 20 20 61 6c 20 20 77 30 20 20 2d 31 0a 20 20 20 20 20 6c 73 20 20 77 30 20 20 78 ┆4 al w0 -1 ls w0 x┆
0x123a0…123c0 33 0a 20 20 20 20 20 72 73 2e 20 77 30 20 20 61 33 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 3b ┆3 rs. w0 a3. ;┆
0x123c0…123e0 20 61 33 3a 20 6d 20 6f 6e 65 73 2c 20 32 34 2d 6d 20 7a 65 72 6f 65 73 0a 20 20 20 20 20 61 6c ┆ a3: m ones, 24-m zeroes al┆
0x123e0…12400 20 20 77 33 20 20 20 31 0a 20 20 20 20 20 61 73 20 20 77 33 20 20 78 31 0a 20 20 20 20 20 61 6c ┆ w3 1 as w3 x1 al┆
0x12400…12420 20 20 77 31 20 20 78 33 2b 31 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 31 3a 3d 32 2a 2a 6d ┆ w1 x3+1 ; w1:=2**m┆
0x12420…12440 2b 31 0a 20 20 20 20 20 72 6c 20 20 77 33 20 20 78 32 2b 31 32 20 20 20 20 20 20 20 20 20 20 20 ┆+1 rl w3 x2+12 ┆
0x12440…12460 3b 20 74 61 6b 65 20 61 72 72 61 79 0a 20 20 20 20 20 72 6c 20 20 77 30 20 20 78 33 0a 20 20 20 ┆; take array rl w0 x3 ┆
0x12460…12480 20 20 62 61 20 20 77 33 20 20 78 32 2b 31 30 0a 20 20 20 20 20 77 61 20 20 77 30 20 20 78 33 0a ┆ ba w3 x2+10 wa w0 x3 ┆
0x12480…124a0 20 20 20 20 20 77 61 2e 20 77 30 20 20 61 32 35 2e 0a 20 20 20 20 20 72 73 2e 20 77 30 20 20 61 ┆ wa. w0 a25. rs. w0 a┆
0x124a0…124c0 30 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 61 30 3a 3d 61 64 64 72 65 73 73 20 52 28 30 ┆0. ; a0:=address R(0┆
0x124c0…124e0 29 0a 20 20 20 20 20 62 61 2e 20 77 30 20 20 61 32 36 2e 0a 20 20 20 20 20 72 73 2e 20 77 30 20 ┆) ba. w0 a26. rs. w0 ┆
0x124e0…12500 20 61 31 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 61 31 3a 3d 61 64 64 72 65 73 73 20 52 ┆ a1. ; a1:=address R┆
0x12500…12520 28 31 29 0a 20 20 20 20 20 72 6c 20 20 77 30 20 20 78 33 2d 32 20 20 20 20 20 20 20 20 20 20 20 ┆(1) rl w0 x3-2 ┆
0x12520…12540 20 3b 20 69 6e 64 65 78 20 63 68 65 63 6b 0a 20 20 20 20 20 77 73 20 20 77 30 20 20 78 33 0a 20 ┆ ; index check ws w0 x3 ┆
0x12540…12560 20 20 20 20 61 73 20 20 77 30 20 20 2d 31 0a 20 20 20 20 20 73 68 20 20 77 30 20 20 78 31 20 20 ┆ as w0 -1 sh w0 x1 ┆
0x12560…12580 20 20 20 20 20 20 20 20 20 20 20 20 3b 69 66 20 6e 6f 74 20 32 2a 2a 6d 2b 31 20 65 6c 65 6d 65 ┆ ;if not 2**m+1 eleme┆
0x12580…125a0 6e 74 73 0a 20 20 20 20 20 6a 6c 2e 20 77 33 20 28 6a 31 38 2e 29 20 20 20 20 20 20 20 20 20 20 ┆nts jl. w3 (j18.) ┆
0x125a0…125c0 20 3b 20 61 6c 61 72 6d 20 69 6e 64 65 78 20 3c 32 2a 2a 6d 2b 31 3e 0a 20 20 20 20 20 61 6c 20 ┆ ; alarm index <2**m+1> al ┆
0x125c0…125e0 20 77 31 20 20 78 31 2d 32 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 31 3a 3d 32 2a 2a 6d 2d ┆ w1 x1-2 ; w1:=2**m-┆
0x125e0…12600 31 0a 20 20 20 20 20 72 73 2e 20 77 31 20 20 61 34 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 3b ┆1 rs. w1 a4. ;┆
0x12600…12620 20 61 34 3a 3d 32 2a 2a 6d 2d 31 0a 20 20 20 20 20 77 61 20 20 77 31 20 20 20 33 20 20 20 20 20 ┆ a4:=2**m-1 wa w1 3 ┆
0x12620…12640 20 20 20 20 20 20 20 20 20 3b 20 77 31 3a 3d 32 2a 28 32 2a 2a 6d 2d 31 29 0a 20 20 20 20 20 77 ┆ ; w1:=2*(2**m-1) w┆
0x12640…12660 61 2e 20 77 31 20 20 61 30 2e 0a 20 20 20 20 20 72 73 2e 20 77 31 20 20 61 32 2e 20 20 20 20 20 ┆a. w1 a0. rs. w1 a2. ┆
0x12660…12680 20 20 20 20 20 20 20 20 3b 20 61 32 3a 3d 61 64 64 72 20 52 28 32 2a 2a 6d 2d 31 29 0a 20 20 20 ┆ ; a2:=addr R(2**m-1) ┆
0x12680…126a0 20 20 61 6c 20 20 77 31 20 20 20 31 0a 62 37 3a 20 20 72 73 2e 20 77 31 20 20 61 35 2e 20 20 20 ┆ al w1 1 b7: rs. w1 a5. ┆
0x126a0…126c0 20 20 20 20 20 20 20 20 20 20 3b 20 61 35 3a 3d 6c 3a 3d 31 0a 20 20 20 20 20 72 6c 2e 20 77 33 ┆ ; a5:=l:=1 rl. w3┆
0x126c0…126e0 20 20 61 33 2e 0a 62 30 3a 20 20 6c 64 20 20 77 32 20 20 2d 31 0a 20 20 20 20 20 61 6c 20 20 77 ┆ a3. b0: ld w2 -1 al w┆
0x126e0…12700 30 20 20 78 32 0a 20 20 20 20 20 6c 64 20 20 77 30 20 20 20 31 0a 20 20 20 20 20 73 68 20 20 77 ┆0 x2 ld w0 1 sh w┆
0x12700…12720 33 20 20 2d 31 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 62 30 2e 0a 20 20 20 20 20 72 6c 2e 20 ┆3 -1 jl. b0. rl. ┆
0x12720…12740 77 32 20 20 61 35 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 33 3a 3d 62 69 74 72 65 76 ┆w2 a5. ; w3:=bitrev┆
0x12740…12760 65 72 73 65 28 6c 29 3b 20 77 32 3a 3d 6c 0a 20 20 20 20 20 73 6c 20 20 77 32 20 20 78 33 20 20 ┆erse(l); w2:=l sl w2 x3 ┆
0x12760…12780 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 66 20 6c 3e 3d 62 69 74 72 65 76 65 72 73 65 28 6c ┆ ; if l>=bitreverse(l┆
0x12780…127a0 29 20 74 68 65 6e 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 62 31 2e 20 20 20 20 20 20 20 20 20 ┆) then jl. b1. ┆
0x127a0…127c0 20 20 20 20 3b 20 6e 6f 20 65 78 63 68 61 6e 67 65 0a 20 20 20 20 20 6c 64 20 20 77 33 20 20 20 ┆ ; no exchange ld w3 ┆
0x127c0…127e0 31 0a 20 20 20 20 20 77 61 2e 20 77 32 20 20 61 30 2e 0a 20 20 20 20 20 77 61 2e 20 77 33 20 20 ┆1 wa. w2 a0. wa. w3 ┆
0x127e0…12800 61 30 2e 0a 20 20 20 20 20 72 6c 20 20 77 30 20 20 78 33 0a 20 20 20 20 20 72 78 20 20 77 30 20 ┆a0. rl w0 x3 rx w0 ┆
0x12800…12820 20 78 32 0a 20 20 20 20 20 72 73 20 20 77 30 20 20 78 33 0a 62 31 3a 20 20 72 6c 2e 20 77 31 20 ┆ x2 rs w0 x3 b1: rl. w1 ┆
0x12820…12840 20 61 35 2e 0a 20 20 20 20 20 61 6c 20 20 77 31 20 20 78 31 2b 31 0a 20 20 20 20 20 73 68 2e 20 ┆ a5. al w1 x1+1 sh. ┆
0x12840…12860 77 31 20 28 61 34 2e 29 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 62 37 2e 0a 20 20 20 20 20 61 ┆w1 (a4.) jl. b7. a┆
0x12860…12880 6c 2e 20 77 32 20 20 61 32 32 2e 0a 20 20 20 20 20 61 6c 2e 20 77 31 20 20 61 32 33 2e 0a 20 20 ┆l. w2 a22. al. w1 a23. ┆
0x12880…128a0 20 20 20 64 73 2e 20 77 32 20 20 61 32 30 2e 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 6e 69 ┆ ds. w2 a20. ; ini┆
0x128a0…128c0 74 20 73 32 76 20 61 64 64 72 2c 20 63 32 76 20 61 64 64 72 0a 20 20 20 20 20 61 6c 20 20 77 31 ┆t s2v addr, c2v addr al w1┆
0x128c0…128e0 20 20 20 31 0a 20 20 20 20 20 61 6c 20 20 77 32 20 20 20 32 0a 61 32 36 3d 6b 2d 31 0a 20 20 20 ┆ 1 al w2 2 a26=k-1 ┆
0x128e0…12900 20 20 64 73 2e 20 77 32 20 20 61 35 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 6e 69 74 ┆ ds. w2 a5. ; init┆
0x12900…12920 (33,) 20 70 2c 71 20 28 31 2c 31 2f 32 29 0a 20 20 20 20 20 61 6c 20 20 77 32 20 20 20 34 0a 20 20 20 ┆ p,q (1,1/2) al w2 4 ┆
0x12920…12940 20 20 61 6c 20 20 77 33 20 20 20 34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 6e 69 74 ┆ al w3 4 ; init┆
0x12940…12960 20 70 70 20 28 32 29 0a 62 36 3a 20 20 64 73 2e 20 77 33 20 20 61 33 2e 20 20 20 20 20 20 20 20 ┆ pp (2) b6: ds. w3 a3. ┆
0x12960…12980 20 20 20 20 20 3b 20 73 74 6f 72 65 20 70 70 0a 20 20 20 20 20 64 6c 2e 20 77 33 20 20 61 30 2e ┆ ; store pp dl. w3 a0.┆
0x12980…129a0 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 32 3a 3d 61 64 64 72 20 52 28 70 29 2c 77 33 3a ┆ ; w2:=addr R(p),w3:┆
0x129a0…129c0 3d 61 64 64 72 20 52 28 30 29 0a 62 35 3a 20 20 72 6c 20 20 77 31 20 20 78 33 20 20 20 20 20 20 ┆=addr R(0) b5: rl w1 x3 ┆
0x129c0…129e0 20 20 20 20 20 20 20 20 3b 20 77 31 3a 3d 52 28 69 29 0a 20 20 20 20 20 61 6c 20 20 77 30 20 20 ┆ ; w1:=R(i) al w0 ┆
0x129e0…12a00 78 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 30 3a 3d 52 28 69 29 0a 20 20 20 20 20 ┆x1 ; w0:=R(i) ┆
0x12a00…12a20 77 61 20 20 77 30 20 20 78 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 30 3a 3d 52 28 ┆wa w0 x2 ; w0:=R(┆
0x12a20…12a40 69 29 2b 52 28 69 2b 70 29 0a 20 20 20 20 20 77 73 20 20 77 31 20 20 78 32 20 20 20 20 20 20 20 ┆i)+R(i+p) ws w1 x2 ┆
0x12a40…12a60 20 20 20 20 20 20 20 3b 20 77 31 3a 3d 52 28 69 29 2d 52 28 69 2b 70 29 0a 20 20 20 20 20 72 73 ┆ ; w1:=R(i)-R(i+p) rs┆
0x12a60…12a80 20 20 77 30 20 20 78 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 52 28 69 29 3a 3d 77 30 ┆ w0 x3 ; R(i):=w0┆
0x12a80…12aa0 0a 20 20 20 20 20 72 73 20 20 77 31 20 20 78 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 ┆ rs w1 x2 ; ┆
0x12aa0…12ac0 52 28 69 2b 70 29 3a 3d 77 31 0a 20 20 20 20 20 61 61 2e 20 77 33 20 20 61 33 2e 20 20 20 20 20 ┆R(i+p):=w1 aa. w3 a3. ┆
0x12ac0…12ae0 20 20 20 20 20 20 20 20 3b 20 22 69 22 3a 3d 22 69 22 2b 70 70 2c 20 22 69 2b 70 22 3a 3d 22 69 ┆ ; "i":="i"+pp, "i+p":="i┆
0x12ae0…12b00 2b 70 22 2b 70 70 0a 20 20 20 20 20 73 68 2e 20 77 32 20 28 61 32 2e 29 20 20 20 20 20 20 20 20 ┆+p"+pp sh. w2 (a2.) ┆
0x12b00…12b20 20 20 20 20 3b 20 69 66 20 61 64 64 72 20 52 28 69 2b 70 29 3c 61 64 64 72 20 52 28 32 2a 2a 6d ┆ ; if addr R(i+p)<addr R(2**m┆
0x12b20…12b40 2d 31 29 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 62 35 2e 20 20 20 20 20 20 20 20 20 20 20 20 ┆-1) jl. b5. ┆
0x12b40…12b60 20 3b 20 74 68 65 6e 20 6e 65 78 74 20 73 74 65 70 0a 20 20 20 20 20 64 6c 2e 20 77 31 20 28 61 ┆ ; then next step dl. w1 (a┆
0x12b60…12b80 32 31 2e 29 0a 20 20 20 20 20 64 73 2e 20 77 31 20 20 61 31 38 2e 20 20 20 20 20 20 20 20 20 20 ┆21.) ds. w1 a18. ┆
0x12b80…12ba0 20 20 3b 20 61 31 37 20 61 31 38 3a 3d 63 32 76 0a 20 20 20 20 20 64 6c 2e 20 77 31 20 28 61 32 ┆ ; a17 a18:=c2v dl. w1 (a2┆
0x12ba0…12bc0 30 2e 29 0a 20 20 20 20 20 64 73 2e 20 77 31 20 20 61 31 36 2e 20 20 20 20 20 20 20 20 20 20 20 ┆0.) ds. w1 a16. ┆
0x12bc0…12be0 20 3b 20 61 31 35 20 61 31 36 3a 3d 73 32 76 0a 20 20 20 20 20 61 6c 20 20 77 32 20 20 20 32 20 ┆ ; a15 a16:=s2v al w2 2 ┆
0x12be0…12c00 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 6e 3a 3d 31 0a 62 33 3a 20 20 73 6c 2e 20 77 32 20 ┆ ; n:=1 b3: sl. w2 ┆
0x12c00…12c20 28 61 31 39 2e 29 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 66 20 6e 3d 71 20 74 68 65 6e 0a 20 ┆(a19.) ; if n=q then ┆
0x12c20…12c40 20 20 20 20 6a 6c 2e 20 20 20 20 20 62 34 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 74 68 ┆ jl. b4. ; th┆
0x12c40…12c60 65 6e 20 67 6f 74 6f 20 6e 65 78 74 20 6c 2d 73 74 65 70 0a 20 20 20 20 20 72 73 2e 20 77 32 20 ┆en goto next l-step rs. w2 ┆
0x12c60…12c80 20 61 34 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 73 74 6f 72 65 20 6e 0a 20 20 20 20 20 ┆ a4. ; store n ┆
0x12c80…12ca0 61 63 20 20 77 31 20 20 78 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 31 3a 3d 2d 6e ┆ac w1 x2 ; w1:=-n┆
0x12ca0…12cc0 0a 20 20 20 20 20 61 61 2e 20 77 32 20 20 61 30 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 ┆ aa. w2 a0. ; ┆
0x12cc0…12ce0 61 37 3a 3d 61 64 64 72 20 52 28 70 2b 6e 29 0a 20 20 20 20 20 64 73 2e 20 77 32 20 20 61 37 2e ┆a7:=addr R(p+n) ds. w2 a7.┆
0x12ce0…12d00 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 61 38 3a 3d 61 64 64 72 20 52 28 70 2d 6e 29 0a 20 ┆ ; a8:=addr R(p-n) ┆
0x12d00…12d20 20 20 20 20 77 61 2e 20 77 31 20 20 61 35 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 61 39 ┆ wa. w1 a5. ; a9┆
0x12d20…12d40 3a 3d 61 64 64 72 20 52 28 70 2b 6e 29 0a 20 20 20 20 20 77 61 2e 20 77 32 20 20 61 35 2e 20 20 ┆:=addr R(p+n) wa. w2 a5. ┆
0x12d40…12d60 20 20 20 20 20 20 20 20 20 20 20 3b 20 61 31 30 3a 3d 61 64 64 72 20 52 28 70 2b 70 2d 6e 29 0a ┆ ; a10:=addr R(p+p-n) ┆
0x12d60…12d80 62 32 3a 20 20 64 73 2e 20 77 32 20 20 61 39 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 73 ┆b2: ds. w2 a9. ; s┆
0x12d80…12da0 74 6f 72 65 20 61 64 64 72 20 52 28 69 2b 70 29 20 52 28 6a 2b 70 29 0a 20 20 20 20 20 72 6c 20 ┆tore addr R(i+p) R(j+p) rl ┆
0x12da0…12dc0 20 77 31 20 20 78 31 0a 20 20 20 20 20 63 69 20 20 77 31 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ w1 x1 ci w1 ┆
0x12dc0…12de0 20 20 20 20 20 3b 20 66 6c 6f 61 74 20 52 28 69 2b 70 29 0a 20 20 20 20 20 64 73 2e 20 77 31 20 ┆ ; float R(i+p) ds. w1 ┆
0x12de0…12e00 20 61 31 34 2e 0a 20 20 20 20 20 72 6c 20 20 77 33 20 20 78 32 0a 20 20 20 20 20 63 69 20 20 77 ┆ a14. rl w3 x2 ci w┆
0x12e00…12e20 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 66 6c 6f 61 74 20 52 28 6a 2b 70 ┆3 ; float R(j+p┆
0x12e20…12e40 29 0a 20 20 20 20 20 64 73 2e 20 77 33 20 20 61 31 32 2e 0a 20 20 20 20 20 66 6d 2e 20 77 33 20 ┆) ds. w3 a12. fm. w3 ┆
0x12e40…12e60 20 61 31 38 2e 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 32 77 33 3a 3d 52 28 69 2b 70 29 2a ┆ a18. ; w2w3:=R(i+p)*┆
0x12e60…12e80 63 0a 20 20 20 20 20 66 6d 2e 20 77 31 20 20 61 31 36 2e 20 20 20 20 20 20 20 20 20 20 20 20 3b ┆c fm. w1 a16. ;┆
0x12e80…12ea0 20 77 30 77 31 3a 3d 52 28 6a 2b 70 29 2a 73 0a 20 20 20 20 20 66 73 20 20 77 33 20 20 20 33 20 ┆ w0w1:=R(j+p)*s fs w3 3 ┆
0x12ea0…12ec0 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 32 77 33 3a 3d 72 65 3a 3d 52 28 69 2b 70 29 2a ┆ ; w2w3:=re:=R(i+p)*┆
0x12ec0…12ee0 63 2d 52 28 6a 2b 70 29 2a 73 0a 20 20 20 20 20 63 66 20 20 77 33 0a 20 20 20 20 20 64 6c 2e 20 ┆c-R(j+p)*s cf w3 dl. ┆
0x12ee0…12f00 77 31 20 20 61 31 34 2e 0a 20 20 20 20 20 72 73 2e 20 77 33 20 20 61 31 34 2e 20 20 20 20 20 20 ┆w1 a14. rs. w3 a14. ┆
0x12f00…12f20 20 20 20 20 20 20 3b 20 61 31 34 3a 3d 72 65 0a 20 20 20 20 20 66 6d 2e 20 77 31 20 20 61 31 38 ┆ ; a14:=re fm. w1 a18┆
0x12f20…12f40 2e 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 30 77 31 3a 3d 52 28 6a 2b 70 29 2a 63 0a 20 20 ┆. ; w0w1:=R(j+p)*c ┆
0x12f40…12f60 20 20 20 64 6c 2e 20 77 33 20 20 61 31 32 2e 0a 20 20 20 20 20 66 6d 2e 20 77 33 20 20 61 31 36 ┆ dl. w3 a12. fm. w3 a16┆
0x12f60…12f80 2e 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 32 77 33 3a 3d 52 28 69 2b 70 29 2a 73 0a 20 20 ┆. ; w2w3:=R(i+p)*s ┆
0x12f80…12fa0 20 20 20 66 61 20 20 77 33 20 20 20 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 32 77 ┆ fa w3 3 ; w2w┆
0x12fa0…12fc0 33 3a 3d 69 6d 3a 3d 52 28 69 2b 70 29 2a 73 2b 52 28 6a 2b 70 29 2a 63 0a 20 20 20 20 20 63 66 ┆3:=im:=R(i+p)*s+R(j+p)*c cf┆
0x12fc0…12fe0 20 20 77 33 0a 20 20 20 20 20 61 6c 20 20 77 30 20 20 78 33 0a 20 20 20 20 20 77 73 2e 20 77 30 ┆ w3 al w0 x3 ws. w0┆
0x12fe0…13000 20 28 61 38 2e 29 0a 20 20 20 20 20 77 61 2e 20 77 33 20 28 61 38 2e 29 0a 20 20 20 20 20 72 73 ┆ (a8.) wa. w3 (a8.) rs┆
0x13000…13020 2e 20 77 30 20 28 61 39 2e 29 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 52 28 69 2b 70 29 3a 3d ┆. w0 (a9.) ; R(i+p):=┆
0x13020…13040 2d 52 28 6a 29 2b 69 6d 0a 20 20 20 20 20 72 73 2e 20 77 33 20 28 61 31 30 2e 29 20 20 20 20 20 ┆-R(j)+im rs. w3 (a10.) ┆
0x13040…13060 20 20 20 20 20 20 3b 20 52 28 6a 2b 70 29 3a 3d 52 28 6a 29 2b 69 6d 0a 20 20 20 20 20 72 6c 2e ┆ ; R(j+p):=R(j)+im rl.┆
0x13060…13080 20 77 31 20 20 61 31 34 2e 0a 20 20 20 20 20 61 63 20 20 77 30 20 20 78 31 0a 20 20 20 20 20 77 ┆ w1 a14. ac w0 x1 w┆
0x13080…130a0 61 2e 20 77 30 20 28 61 37 2e 29 0a 20 20 20 20 20 77 61 2e 20 77 31 20 28 61 37 2e 29 0a 20 20 ┆a. w0 (a7.) wa. w1 (a7.) ┆
0x130a0…130c0 20 20 20 72 73 2e 20 77 30 20 28 61 38 2e 29 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 52 28 6a ┆ rs. w0 (a8.) ; R(j┆
0x130c0…130e0 29 3a 3d 52 28 69 29 2d 72 65 0a 20 20 20 20 20 72 73 2e 20 77 31 20 28 61 37 2e 29 20 20 20 20 ┆):=R(i)-re rs. w1 (a7.) ┆
0x130e0…13100 20 20 20 20 20 20 20 20 3b 20 52 28 69 29 3a 3d 52 28 69 29 2b 72 65 0a 20 20 20 20 20 64 6c 2e ┆ ; R(i):=R(i)+re dl.┆
0x13100…13120 20 77 32 20 20 61 37 2e 0a 20 20 20 20 20 61 61 2e 20 77 32 20 20 61 33 2e 0a 20 20 20 20 20 64 ┆ w2 a7. aa. w2 a3. d┆
0x13120…13140 73 2e 20 77 32 20 20 61 37 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 22 69 22 3a 3d 22 69 ┆s. w2 a7. ; "i":="i┆
0x13140…13160 22 2b 70 70 3b 20 22 6a 22 3a 3d 22 6a 22 2b 70 70 0a 20 20 20 20 20 64 6c 2e 20 77 32 20 20 61 ┆"+pp; "j":="j"+pp dl. w2 a┆
0x13160…13180 39 2e 0a 20 20 20 20 20 61 61 2e 20 77 32 20 20 61 33 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆9. aa. w2 a3. ┆
0x13180…131a0 3b 20 22 69 2b 70 22 3a 3d 22 69 2b 70 22 2b 70 70 3b 20 22 6a 2b 70 22 3a 3d 22 6a 2b 70 22 2b ┆; "i+p":="i+p"+pp; "j+p":="j+p"+┆
0x131a0…131c0 70 70 0a 20 20 20 20 20 73 68 2e 20 77 31 20 28 61 32 2e 29 20 20 20 20 20 20 20 20 20 20 20 20 ┆pp sh. w1 (a2.) ┆
0x131c0…131e0 3b 20 69 66 20 61 64 64 72 20 52 28 6a 2b 70 29 3c 3d 61 64 64 72 20 52 28 32 2a 2a 6d 2d 31 29 ┆; if addr R(j+p)<=addr R(2**m-1)┆
0x131e0…13200 20 74 68 65 6e 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 62 32 2e 20 20 20 20 20 20 20 20 20 20 ┆ then jl. b2. ┆
0x13200…13220 (34,) 20 20 20 3b 20 67 6f 74 6f 20 6e 65 78 74 20 73 74 65 70 0a 20 20 20 20 20 64 6c 2e 20 77 31 20 ┆ ; goto next step dl. w1 ┆
0x13220…13240 20 61 31 36 2e 0a 20 20 20 20 20 66 6d 2e 20 77 31 20 28 61 32 30 2e 29 20 20 20 20 20 20 20 20 ┆ a16. fm. w1 (a20.) ┆
0x13240…13260 20 20 20 3b 20 77 30 77 31 3a 3d 73 2a 73 32 76 0a 20 20 20 20 20 64 6c 2e 20 77 33 20 20 61 31 ┆ ; w0w1:=s*s2v dl. w3 a1┆
0x13260…13280 38 2e 0a 20 20 20 20 20 66 6d 2e 20 77 33 20 28 61 32 31 2e 29 20 20 20 20 20 20 20 20 20 20 20 ┆8. fm. w3 (a21.) ┆
0x13280…132a0 3b 20 77 32 77 33 3a 3d 63 2a 63 32 76 0a 20 20 20 20 20 66 73 20 20 77 33 20 20 20 33 0a 20 20 ┆; w2w3:=c*c2v fs w3 3 ┆
0x132a0…132c0 20 20 20 72 78 2e 20 77 33 20 20 61 31 38 2e 0a 20 20 20 20 20 72 78 2e 20 77 32 20 20 61 31 37 ┆ rx. w3 a18. rx. w2 a17┆
0x132c0…132e0 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 63 3a 3d 63 2a 63 32 76 2d 73 2a 73 32 76 0a 20 ┆. ; c:=c*c2v-s*s2v ┆
0x132e0…13300 20 20 20 20 66 6d 2e 20 77 33 20 28 61 32 30 2e 29 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 ┆ fm. w3 (a20.) ; w┆
0x13300…13320 32 77 33 3a 3d 63 2a 73 32 76 0a 20 20 20 20 20 64 6c 2e 20 77 31 20 20 61 31 36 2e 0a 20 20 20 ┆2w3:=c*s2v dl. w1 a16. ┆
0x13320…13340 20 20 66 6d 2e 20 77 31 20 28 61 32 31 2e 29 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 30 77 31 ┆ fm. w1 (a21.) ; w0w1┆
0x13340…13360 3a 3d 73 2a 63 32 76 0a 20 20 20 20 20 66 61 20 20 77 33 20 20 20 33 0a 20 20 20 20 20 64 73 2e ┆:=s*c2v fa w3 3 ds.┆
0x13360…13380 20 77 33 20 20 61 31 36 2e 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 73 3a 3d 63 2a 73 32 76 2b ┆ w3 a16. ; s:=c*s2v+┆
0x13380…133a0 73 2a 63 32 76 0a 20 20 20 20 20 72 6c 2e 20 77 32 20 20 61 34 2e 0a 20 20 20 20 20 61 6c 20 20 ┆s*c2v rl. w2 a4. al ┆
0x133a0…133c0 77 32 20 20 78 32 2b 32 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 62 33 2e 0a 62 34 3a 20 20 64 ┆w2 x2+2 jl. b3. b4: d┆
0x133c0…133e0 6c 2e 20 77 33 20 20 61 32 30 2e 0a 20 20 20 20 20 61 61 2e 20 77 33 20 20 61 32 35 2e 0a 20 20 ┆l. w3 a20. aa. w3 a25. ┆
0x133e0…13400 20 20 20 64 73 2e 20 77 33 20 20 61 32 30 2e 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 6e 65 77 ┆ ds. w3 a20. ; new┆
0x13400…13420 20 61 64 64 72 20 73 32 76 20 63 32 76 0a 20 20 20 20 20 72 6c 2e 20 77 31 20 20 61 35 2e 0a 20 ┆ addr s2v c2v rl. w1 a5. ┆
0x13420…13440 20 20 20 20 64 6c 2e 20 77 33 20 20 61 33 2e 0a 20 20 20 20 20 64 73 2e 20 77 32 20 20 61 35 2e ┆ dl. w3 a3. ds. w2 a5.┆
0x13440…13460 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 6e 65 77 20 70 2c 71 0a 20 20 20 20 20 61 64 20 20 ┆ ; new p,q ad ┆
0x13460…13480 77 33 20 20 20 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 6e 65 77 20 70 70 0a 20 20 20 ┆w3 1 ; new pp ┆
0x13480…134a0 20 20 77 61 2e 20 77 31 20 20 61 31 2e 0a 20 20 20 20 20 72 73 2e 20 77 31 20 20 61 31 2e 20 20 ┆ wa. w1 a1. rs. w1 a1. ┆
0x134a0…134c0 20 20 20 20 20 20 20 20 20 20 20 3b 20 6e 65 77 20 61 64 64 72 20 52 28 70 29 0a 20 20 20 20 20 ┆ ; new addr R(p) ┆
0x134c0…134e0 73 68 2e 20 77 31 20 28 61 32 2e 29 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 66 20 61 64 64 ┆sh. w1 (a2.) ; if add┆
0x134e0…13500 72 20 52 28 70 29 3c 3d 61 64 64 72 20 52 28 32 2a 2a 6d 2d 31 29 0a 20 20 20 20 20 6a 6c 2e 20 ┆r R(p)<=addr R(2**m-1) jl. ┆
0x13500…13520 20 20 20 20 62 36 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 74 68 65 6e 20 6e 65 78 74 20 ┆ b6. ; then next ┆
0x13520…13540 73 74 65 70 0a 20 20 20 20 20 61 6c 20 20 77 30 20 20 20 30 0a 20 20 20 20 20 72 6c 2e 20 77 32 ┆step al w0 0 rl. w2┆
0x13540…13560 20 20 61 30 2e 0a 20 20 20 20 20 77 61 2e 20 77 32 20 20 61 31 39 2e 0a 20 20 20 20 20 61 6c 20 ┆ a0. wa. w2 a19. al ┆
0x13560…13580 20 77 32 20 20 78 32 2d 32 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 32 3a 3d 61 64 64 72 ┆ w2 x2-2 ; w2:=addr┆
0x13580…135a0 20 52 28 32 2a 2a 28 6d 2d 31 29 2d 31 29 0a 20 20 20 20 20 61 6c 20 20 77 33 20 20 78 32 2b 36 ┆ R(2**(m-1)-1) al w3 x2+6┆
0x135a0…135c0 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 33 3a 3d 61 64 64 72 20 52 28 32 2a 2a 28 6d 2d ┆ ; w3:=addr R(2**(m-┆
0x135c0…135e0 31 29 2b 32 29 0a 62 39 3a 20 20 72 78 20 20 77 30 20 20 78 32 0a 20 20 20 20 20 72 78 20 20 77 ┆1)+2) b9: rx w0 x2 rx w┆
0x135e0…13600 30 20 20 78 33 0a 20 20 20 20 20 61 61 2e 20 77 33 20 20 61 32 35 2e 0a 20 20 20 20 20 73 6c 2e ┆0 x3 aa. w3 a25. sl.┆
0x13600…13620 20 77 32 20 28 61 30 2e 29 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 66 20 77 32 3e 61 64 ┆ w2 (a0.) ; if w2>ad┆
0x13620…13640 64 72 20 52 28 30 29 20 74 68 65 6e 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 62 39 2e 20 20 20 ┆dr R(0) then jl. b9. ┆
0x13640…13660 20 20 20 20 20 20 20 20 20 20 20 3b 20 6e 65 78 74 20 69 6e 74 65 72 63 68 61 6e 67 65 0a 20 20 ┆ ; next interchange ┆
0x13660…13680 20 20 20 61 6c 20 20 77 30 20 20 20 30 0a 20 20 20 20 20 72 73 20 20 77 30 20 20 78 32 20 20 20 ┆ al w0 0 rs w0 x2 ┆
0x13680…136a0 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 52 28 2d 31 29 3a 3d 30 0a 20 20 20 20 20 72 6c 2e 20 ┆ ; R(-1):=0 rl. ┆
0x136a0…136c0 77 33 20 20 61 30 2e 0a 62 38 3a 20 20 64 6c 20 20 77 32 20 20 78 33 0a 20 20 20 20 20 63 69 20 ┆w3 a0. b8: dl w2 x3 ci ┆
0x136c0…136e0 20 77 31 0a 20 20 20 20 20 66 6d 20 20 77 31 20 20 20 33 0a 20 20 20 20 20 64 73 2e 20 77 31 20 ┆ w1 fm w1 3 ds. w1 ┆
0x136e0…13700 20 61 31 32 2e 0a 20 20 20 20 20 63 69 20 20 77 32 0a 20 20 20 20 20 66 6d 20 20 77 32 20 20 20 ┆ a12. ci w2 fm w2 ┆
0x13700…13720 35 0a 20 20 20 20 20 66 61 2e 20 77 32 20 20 61 31 32 2e 0a 20 20 20 20 20 64 73 20 20 77 32 20 ┆5 fa. w2 a12. ds w2 ┆
0x13720…13740 20 78 33 0a 20 20 20 20 20 61 6c 20 20 77 33 20 20 78 33 2b 34 0a 20 20 20 20 20 73 68 2e 20 77 ┆ x3 al w3 x3+4 sh. w┆
0x13740…13760 33 20 28 61 31 2e 29 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 66 20 77 33 3c 3d 61 64 64 ┆3 (a1.) ; if w3<=add┆
0x13760…13780 72 20 52 28 32 2a 2a 6d 29 20 74 68 65 6e 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 62 38 2e 20 ┆r R(2**m) then jl. b8. ┆
0x13780…137a0 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 6e 65 78 74 20 63 6f 6e 76 65 72 74 0a 20 20 20 20 ┆ ; next convert ┆
0x137a0…137c0 20 6a 6c 2e 20 20 20 20 28 6a 38 2e 29 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 65 78 69 74 ┆ jl. (j8.) ; exit┆
0x137c0…137e0 0a 0a 61 31 3a 20 20 20 20 20 30 20 20 20 3b 20 61 64 64 72 20 52 28 70 29 0a 61 30 3a 20 20 20 ┆ a1: 0 ; addr R(p) a0: ┆
0x137e0…13800 20 20 30 20 20 20 3b 20 61 64 64 72 20 52 28 30 29 0a 61 32 3a 20 20 20 20 20 30 20 20 20 3b 20 ┆ 0 ; addr R(0) a2: 0 ; ┆
0x13800…13820 61 64 64 72 20 52 28 32 2a 2a 6d 2d 31 29 0a 61 36 3a 20 20 20 20 20 30 20 20 20 3b 20 70 70 0a ┆addr R(2**m-1) a6: 0 ; pp ┆
0x13820…13840 61 33 3a 20 20 20 20 20 30 20 20 20 3b 20 70 70 0a 61 34 3a 20 20 20 20 20 30 20 20 20 3b 20 6e ┆a3: 0 ; pp a4: 0 ; n┆
0x13840…13860 0a 61 31 39 3a 20 20 20 20 30 20 20 20 3b 20 71 0a 61 35 3a 20 20 20 20 20 30 20 20 20 3b 20 70 ┆ a19: 0 ; q a5: 0 ; p┆
0x13860…13880 0a 61 38 3a 20 20 20 20 20 30 20 20 20 3b 20 61 64 64 72 20 52 28 6a 29 0a 61 37 3a 20 20 20 20 ┆ a8: 0 ; addr R(j) a7: ┆
0x13880…138a0 20 30 20 20 20 3b 20 61 64 64 72 20 52 28 69 29 0a 61 31 30 3a 20 20 20 20 30 20 20 20 3b 20 61 ┆ 0 ; addr R(i) a10: 0 ; a┆
0x138a0…138c0 64 64 72 20 52 28 6a 2b 70 29 0a 61 39 3a 20 20 20 20 20 30 20 20 20 3b 20 61 64 64 72 20 52 28 ┆ddr R(j+p) a9: 0 ; addr R(┆
0x138c0…138e0 69 2b 70 29 0a 61 31 35 3a 20 20 20 20 30 0a 61 31 36 3a 20 20 20 20 30 20 20 20 3b 20 73 0a 61 ┆i+p) a15: 0 a16: 0 ; s a┆
0x138e0…13900 31 37 3a 20 20 20 20 30 0a 61 31 38 3a 20 20 20 20 30 20 20 20 3b 20 63 0a 61 32 31 3a 20 20 20 ┆17: 0 a18: 0 ; c a21: ┆
0x13900…13920 20 30 20 20 20 3b 20 61 64 64 72 20 63 32 76 0a 61 32 30 3a 20 20 20 20 30 20 20 20 3b 20 61 64 ┆ 0 ; addr c2v a20: 0 ; ad┆
0x13920…13940 64 72 20 73 32 76 0a 61 32 34 3a 20 20 20 2d 34 0a 61 32 35 3a 20 20 20 20 34 0a 66 2e 0a 20 20 ┆dr s2v a24: -4 a25: 4 f. ┆
0x13940…13960 20 20 20 20 30 2e 39 39 39 39 39 39 37 30 35 37 39 32 0a 20 20 20 20 20 20 30 2e 39 39 39 39 39 ┆ 0.999999705792 0.99999┆
0x13960…13980 38 38 32 33 34 35 36 0a 20 20 20 20 20 20 30 2e 39 39 39 39 39 35 32 39 33 37 36 30 0a 20 20 20 ┆8823456 0.999995293760 ┆
0x13980…139a0 20 20 20 30 2e 39 39 39 39 38 31 31 37 35 33 32 38 0a 20 20 20 20 20 20 30 2e 39 39 39 39 32 34 ┆ 0.999981175328 0.999924┆
0x139a0…139c0 37 30 31 38 35 36 0a 20 20 20 20 20 20 30 2e 39 39 39 36 39 38 38 31 38 37 32 30 0a 20 20 20 20 ┆701856 0.999698818720 ┆
0x139c0…139e0 20 20 30 2e 39 39 38 37 39 35 34 35 36 31 39 32 0a 20 20 20 20 20 20 30 2e 39 39 35 31 38 34 37 ┆ 0.998795456192 0.9951847┆
0x139e0…13a00 32 36 37 32 30 0a 61 32 32 3a 20 20 30 2e 39 38 30 37 38 35 32 38 30 34 31 36 0a 20 20 20 20 20 ┆26720 a22: 0.980785280416 ┆
0x13a00…13a20 20 30 2e 39 32 33 38 37 39 35 33 32 35 37 36 0a 20 20 20 20 20 20 30 2e 37 30 37 31 30 36 37 38 ┆ 0.923879532576 0.70710678┆
0x13a20…13a40 31 31 35 32 0a 20 20 20 20 20 20 30 2e 33 38 32 36 38 33 34 33 32 33 36 38 0a 61 32 33 3a 20 20 ┆1152 0.382683432368 a23: ┆
0x13a40…13a60 30 2e 31 39 35 30 39 30 33 32 32 30 30 38 0a 20 20 20 20 20 20 30 2e 39 38 30 31 37 31 34 30 33 ┆0.195090322008 0.980171403┆
0x13a60…13a80 32 39 36 27 2d 31 0a 20 20 20 20 20 20 30 2e 34 39 30 36 37 36 37 34 33 32 34 38 27 2d 31 0a 20 ┆296'-1 0.490676743248'-1 ┆
0x13a80…13aa0 20 20 20 20 20 30 2e 32 34 35 34 31 32 32 38 35 32 32 34 27 2d 31 0a 20 20 20 20 20 20 30 2e 31 ┆ 0.245412285224'-1 0.1┆
0x13aa0…13ac0 32 32 37 31 35 33 38 32 38 35 36 27 2d 31 0a 20 20 20 20 20 20 30 2e 36 31 33 35 38 38 34 36 34 ┆22715382856'-1 0.613588464┆
0x13ac0…13ae0 38 39 36 27 2d 32 0a 20 20 20 20 20 20 30 2e 33 30 36 37 39 35 36 37 36 32 38 38 27 2d 32 0a 20 ┆896'-2 0.306795676288'-2 ┆
0x13ae0…13b00 20 20 20 20 20 30 2e 31 35 33 33 39 38 30 31 38 36 32 34 27 2d 32 0a 20 20 20 20 20 20 30 2e 37 ┆ 0.153398018624'-2 0.7┆
0x13b00…13b20 (35,) 36 36 39 39 30 33 31 38 37 32 30 27 2d 33 0a 77 2e 0a 20 20 20 20 20 30 0a 20 20 20 20 20 30 0a ┆66990318720'-3 w. 0 0 ┆
0x13b20…13b40 3c 3a 66 66 74 69 70 6f 77 20 20 20 20 3c 30 3e 3a 3e 0a 65 2e 0a 0a 0a 67 30 3a 0a 67 31 3a 20 ┆<:fftipow <0>:> e. g0: g1: ┆
0x13b40…13b60 20 20 20 31 0a 20 20 20 20 20 20 20 30 2c 30 2c 30 2c 30 0a 20 20 20 20 20 20 20 31 3c 32 33 2b ┆ 1 0,0,0,0 1<23+┆
0x13b60…13b80 65 31 2d 65 32 0a 20 20 20 20 20 20 20 31 3c 31 38 2b 32 36 3c 31 32 2b 31 33 3c 36 2b 30 20 3b ┆e1-e2 1<18+26<12+13<6+0 ;┆
0x13b80…13ba0 20 70 72 6f 63 65 64 75 72 65 20 66 66 74 69 70 6f 77 28 6d 2c 52 29 3b 0a 20 20 20 20 20 20 20 ┆ procedure fftipow(m,R); ┆
0x13ba0…13bc0 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 76 61 6c 75 65 20 6d 3b 20 69 6e 74 ┆0 ; value m; int┆
0x13bc0…13be0 65 67 65 72 20 6d 3b 20 61 72 72 61 79 20 52 3b 0a 20 20 20 20 20 20 20 34 3c 31 32 2b 65 30 2d ┆eger m; array R; 4<12+e0-┆
0x13be0…13c00 65 32 0a 20 20 20 20 20 20 20 31 3c 31 32 2b 30 0a 6e 2e 0a 19 00 20 63 0a 61 32 31 3a 20 20 20 ┆e2 1<12+0 n. c a21: ┆
0x13c00…13c20 20 30 20 20 20 3b 20 61 64 64 72 20 63 32 76 0a 61 32 30 3a 20 20 20 20 30 20 20 20 3b 20 61 64 ┆ 0 ; addr c2v a20: 0 ; ad┆
0x13c20…13c40 64 72 20 73 32 76 0a 61 32 34 3a 20 20 20 2d 34 0a 61 32 35 3a 20 20 20 20 34 0a 66 2e 0a 20 20 ┆dr s2v a24: -4 a25: 4 f. ┆
0x13c40…13c60 20 20 20 20 30 2e 39 39 39 39 39 39 37 30 35 37 39 32 0a 20 20 20 20 20 20 30 2e 39 39 39 39 39 ┆ 0.999999705792 0.99999┆
0x13c60…13c80 38 38 32 33 34 35 36 0a 20 20 20 20 20 20 30 2e 39 39 39 39 39 35 32 39 33 37 36 30 0a 20 20 20 ┆8823456 0.999995293760 ┆
0x13c80…13ca0 20 20 20 30 2e 39 39 39 39 38 31 31 37 35 33 32 38 0a 20 20 20 20 20 20 30 2e 39 39 39 39 32 34 ┆ 0.999981175328 0.999924┆
0x13ca0…13cc0 37 30 31 38 35 36 0a 20 20 20 20 20 20 30 2e 39 39 39 36 39 38 38 31 38 37 32 30 0a 20 20 20 20 ┆701856 0.999698818720 ┆
0x13cc0…13ce0 20 20 30 2e 39 39 38 37 39 35 34 35 36 31 39 32 0a 20 20 20 20 20 20 30 2e 39 39 35 31 38 34 37 ┆ 0.998795456192 0.9951847┆
0x13ce0…13d00 32 36 37 32 30 0a 61 32 32 3a 20 20 30 2e 39 38 30 37 38 35 32 38 30 34 31 36 0a 20 20 20 20 20 ┆26720 a22: 0.980785280416 ┆
0x13d00…13d20 20 30 2e 39 32 33 38 37 39 35 33 32 35 37 36 0a 20 20 20 20 20 20 30 2e 37 30 37 31 30 36 37 38 ┆ 0.923879532576 0.70710678┆
0x13d20…13d40 31 31 35 32 0a 20 20 20 20 20 20 30 2e 33 38 32 36 38 33 34 33 32 33 36 38 0a 61 32 33 3a 20 20 ┆1152 0.382683432368 a23: ┆
0x13d40…13d60 30 2e 31 39 35 30 39 30 33 32 32 30 30 38 0a 20 20 20 20 20 20 30 2e 39 38 30 31 37 31 34 30 33 ┆0.195090322008 0.980171403┆
0x13d60…13d80 32 39 36 27 2d 31 0a 20 20 20 20 20 20 30 2e 34 39 30 36 37 36 37 34 33 32 34 38 27 2d 31 0a 20 ┆296'-1 0.490676743248'-1 ┆
0x13d80…13da0 20 20 20 20 20 30 2e 32 34 35 34 31 32 32 38 35 32 32 34 27 2d 31 0a 20 20 20 20 20 20 30 2e 31 ┆ 0.245412285224'-1 0.1┆
0x13da0…13dc0 32 32 37 31 35 33 38 32 38 35 36 27 2d 31 0a 20 20 20 20 20 20 30 2e 36 31 33 35 38 38 34 36 34 ┆22715382856'-1 0.613588464┆
0x13dc0…13de0 38 39 36 27 2d 32 0a 20 20 20 20 20 20 30 2e 33 30 36 37 39 35 36 37 36 32 38 38 27 2d 32 0a 20 ┆896'-2 0.306795676288'-2 ┆
0x13de0…13e00 20 20 20 20 20 30 2e 31 35 33 33 39 38 30 31 38 36 32 34 27 2d 32 0a 20 20 20 20 20 20 30 2e 37 ┆ 0.153398018624'-2 0.7┆
0x13e00…13e20 6d 65 73 73 61 67 65 20 66 66 74 69 72 0a 0a 28 66 66 74 69 72 3d 73 6c 61 6e 67 20 66 70 6e 61 ┆message fftir (fftir=slang fpna┆
0x13e20…13e40 6d 65 73 20 74 79 70 65 2e 79 65 73 20 69 6e 73 65 72 74 70 72 6f 63 20 65 6e 74 72 79 2e 6e 6f ┆mes type.yes insertproc entry.no┆
0x13e40…13e60 0a 66 66 74 69 72 29 0a 0a 3b 20 38 2d 31 30 2d 37 34 20 31 39 2d 32 2d 37 39 20 6f 6a 68 2f 72 ┆ fftir) ; 8-10-74 19-2-79 ojh/r┆
0x13e60…13e80 6d 0a 3b 20 66 6f 75 72 69 65 72 74 72 61 6e 73 66 6f 72 6d 20 6f 66 20 69 6e 74 65 67 65 72 20 ┆m ; fouriertransform of integer ┆
0x13e80…13ea0 64 61 74 61 0a 0a 62 2e 20 67 31 2c 65 33 20 77 2e 0a 0a 6b 3d 31 30 30 30 30 0a 0a 73 2e 20 67 ┆data b. g1,e3 w. k=10000 s. g┆
0x13ea0…13ec0 36 2c 6a 34 30 2c 61 33 30 2c 62 31 30 0a 68 2e 0a 67 30 3d 30 0a 65 32 3a 0a 67 31 3a 20 20 67 ┆6,j40,a30,b10 h. g0=0 e2: g1: g┆
0x13ec0…13ee0 33 2c 67 32 0a 6a 31 33 3a 20 67 30 2b 31 33 2c 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆3,g2 j13: g0+13,0 ┆
0x13ee0…13f00 20 20 3b 20 6c 61 73 74 20 75 73 65 64 0a 6a 33 30 3a 20 67 30 2b 33 30 2c 30 20 20 20 20 20 20 ┆ ; last used j30: g0+30,0 ┆
0x13f00…13f20 20 20 20 20 20 20 20 20 20 20 20 3b 20 73 61 76 65 64 20 73 72 2c 77 33 0a 6a 38 3a 20 20 67 30 ┆ ; saved sr,w3 j8: g0┆
0x13f20…13f40 2b 38 2c 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 65 6e 64 20 61 64 64 72 ┆+8,0 ; end addr┆
0x13f40…13f60 65 73 73 20 65 78 70 72 0a 6a 34 3a 20 20 67 30 2b 34 2c 30 20 20 20 20 20 20 20 20 20 20 20 20 ┆ess expr j4: g0+4,0 ┆
0x13f60…13f80 20 20 20 20 20 20 3b 20 74 61 6b 65 20 65 78 70 72 0a 6a 31 38 3a 20 67 30 2b 31 38 2c 30 20 20 ┆ ; take expr j18: g0+18,0 ┆
0x13f80…13fa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 7a 6f 6e 65 20 61 6c 61 72 6d 20 28 69 6e 64 ┆ ; zone alarm (ind┆
0x13fa0…13fc0 65 78 29 0a 6a 32 39 3a 20 67 30 2b 32 39 2c 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ex) j29: g0+29,0 ┆
0x13fc0…13fe0 20 3b 20 70 61 72 61 6d 20 61 6c 61 72 6d 0a 67 32 3d 6b 2d 32 2d 67 31 2c 20 67 33 3d 67 32 20 ┆ ; param alarm g2=k-2-g1, g3=g2 ┆
0x13fe0…14000 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 65 6e 64 20 6f 66 20 61 62 73 20 77 6f 72 64 73 2c 70 ┆ ; end of abs words,p┆
0x14000…14020 6f 69 6e 74 73 0a 77 2e 0a 61 31 33 3a 20 65 30 3a 20 20 20 20 20 67 30 0a 61 31 34 3a 20 20 20 ┆oints w. a13: e0: g0 a14: ┆
0x14020…14040 20 20 20 20 20 20 30 0a 61 31 31 3a 20 20 20 35 20 31 30 20 37 34 0a 61 31 32 3a 20 20 31 36 20 ┆ 0 a11: 5 10 74 a12: 16 ┆
0x14040…14060 30 30 20 30 30 0a 65 31 3a 20 20 72 6c 2e 20 77 32 20 28 6a 31 33 2e 29 0a 20 20 20 20 20 64 73 ┆00 00 e1: rl. w2 (j13.) ds┆
0x14060…14080 2e 20 77 33 20 28 6a 33 30 2e 29 0a 20 20 20 20 20 64 6c 20 20 77 31 20 20 78 32 2b 38 20 20 20 ┆. w3 (j30.) dl w1 x2+8 ┆
0x14080…140a0 20 20 20 20 20 20 20 20 20 3b 20 74 61 6b 65 20 6d 0a 20 20 20 20 20 73 6f 20 20 77 30 20 20 31 ┆ ; take m so w0 1┆
0x140a0…140c0 36 0a 20 20 20 20 20 6a 6c 2e 20 77 33 20 28 6a 34 2e 29 0a 20 20 20 20 20 64 73 2e 20 77 33 20 ┆6 jl. w3 (j4.) ds. w3 ┆
0x140c0…140e0 28 6a 33 30 2e 29 0a 20 20 20 20 20 64 6c 20 20 77 31 20 20 78 31 0a 20 20 20 20 20 72 6c 20 20 ┆(j30.) dl w1 x1 rl ┆
0x140e0…14100 77 33 20 20 78 32 2b 36 0a 20 20 20 20 20 73 7a 20 20 77 33 20 20 20 31 0a 20 20 20 20 20 63 66 ┆w3 x2+6 sz w3 1 cf┆
0x14100…14120 20 20 77 31 20 20 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 31 3d 6d 0a 20 20 20 ┆ w1 0 ; w1=m ┆
0x14120…14140 20 20 73 68 20 20 77 31 20 20 31 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 66 20 6d ┆ sh w1 13 ; if m┆
0x14140…14160 3e 31 33 20 6f 72 0a 20 20 20 20 20 73 68 20 20 77 31 20 20 20 31 20 20 20 20 20 20 20 20 20 20 ┆>13 or sh w1 1 ┆
0x14160…14180 20 20 20 20 3b 20 6d 3c 3d 31 20 74 68 65 6e 0a 20 20 20 20 20 6a 6c 2e 20 77 33 20 28 6a 31 38 ┆ ; m<=1 then jl. w3 (j18┆
0x14180…141a0 2e 29 20 20 20 20 20 20 20 20 20 20 20 3b 20 61 6c 61 72 6d 20 69 6e 64 65 78 20 3c 6d 3e 0a 20 ┆.) ; alarm index <m> ┆
0x141a0…141c0 20 20 20 20 61 63 20 20 77 33 20 20 78 31 2d 32 34 0a 20 20 20 20 20 61 6c 20 20 77 30 20 20 2d ┆ ac w3 x1-24 al w0 -┆
0x141c0…141e0 31 0a 20 20 20 20 20 6c 73 20 20 77 30 20 20 78 33 0a 20 20 20 20 20 72 73 2e 20 77 30 20 20 61 ┆1 ls w0 x3 rs. w0 a┆
0x141e0…14200 33 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 61 33 3a 20 6d 20 6f 6e 65 73 2c 20 32 34 2d ┆3. ; a3: m ones, 24-┆
0x14200…14220 6d 20 7a 65 72 6f 65 73 0a 20 20 20 20 20 61 6c 20 20 77 33 20 20 20 31 0a 20 20 20 20 20 61 73 ┆m zeroes al w3 1 as┆
0x14220…14240 20 20 77 33 20 20 78 31 0a 20 20 20 20 20 61 6c 20 20 77 31 20 20 78 33 2b 31 20 20 20 20 20 20 ┆ w3 x1 al w1 x3+1 ┆
0x14240…14260 20 20 20 20 20 20 3b 20 77 31 3a 3d 32 2a 2a 6d 2b 31 0a 20 20 20 20 20 62 7a 20 20 77 33 20 20 ┆ ; w1:=2**m+1 bz w3 ┆
0x14260…14280 78 32 2b 31 31 20 20 20 20 20 20 20 20 20 20 20 3b 20 63 68 65 63 6b 20 61 72 72 61 79 0a 20 20 ┆x2+11 ; check array ┆
0x14280…142a0 20 20 20 73 68 20 20 77 33 20 20 31 39 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 6e 74 ┆ sh w3 19 ; int┆
0x142a0…142c0 65 67 65 72 20 6f 72 20 72 65 61 6c 0a 20 20 20 20 20 73 68 20 20 77 33 20 20 31 37 0a 20 20 20 ┆eger or real sh w3 17 ┆
0x142c0…142e0 20 20 6a 6c 2e 20 77 33 20 28 6a 32 39 2e 29 0a 20 20 20 20 20 72 6c 20 20 77 33 20 20 78 32 2b ┆ jl. w3 (j29.) rl w3 x2+┆
0x142e0…14300 31 32 20 20 20 20 20 20 20 20 20 20 20 3b 20 74 61 6b 65 20 61 72 72 61 79 0a 20 20 20 20 20 72 ┆12 ; take array r┆
0x14300…14320 6c 20 20 77 30 20 20 78 33 0a 20 20 20 20 20 62 61 20 20 77 33 20 20 78 32 2b 31 30 0a 20 20 20 ┆l w0 x3 ba w3 x2+10 ┆
0x14320…14340 20 20 77 61 20 20 77 30 20 20 78 33 0a 20 20 20 20 20 77 61 2e 20 77 30 20 20 61 32 35 2e 0a 20 ┆ wa w0 x3 wa. w0 a25. ┆
0x14340…14360 20 20 20 20 72 73 2e 20 77 30 20 20 61 30 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 61 30 ┆ rs. w0 a0. ; a0┆
0x14360…14380 3a 3d 61 64 64 72 65 73 73 20 52 28 30 29 0a 20 20 20 20 20 62 61 2e 20 77 30 20 20 61 32 36 2e ┆:=address R(0) ba. w0 a26.┆
0x14380…143a0 0a 20 20 20 20 20 72 73 2e 20 77 30 20 20 61 31 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 ┆ rs. w0 a1. ; ┆
0x143a0…143c0 61 31 3a 3d 61 64 64 72 65 73 73 20 52 28 31 29 0a 20 20 20 20 20 72 6c 20 20 77 30 20 20 78 33 ┆a1:=address R(1) rl w0 x3┆
0x143c0…143e0 2d 32 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 6e 64 65 78 20 63 68 65 63 6b 0a 20 20 20 20 ┆-2 ; index check ┆
0x143e0…14400 20 77 73 20 20 77 30 20 20 78 33 0a 20 20 20 20 20 61 73 20 20 77 30 20 20 2d 31 0a 20 20 20 20 ┆ ws w0 x3 as w0 -1 ┆
0x14400…14420 (36,) 20 73 68 20 20 77 30 20 20 78 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 69 66 20 6e 6f 74 ┆ sh w0 x1 ;if not┆
0x14420…14440 20 32 2a 2a 6d 2b 31 20 65 6c 65 6d 65 6e 74 73 0a 20 20 20 20 20 6a 6c 2e 20 77 33 20 28 6a 31 ┆ 2**m+1 elements jl. w3 (j1┆
0x14440…14460 38 2e 29 20 20 20 20 20 20 20 20 20 20 20 3b 20 61 6c 61 72 6d 20 69 6e 64 65 78 20 3c 32 2a 2a ┆8.) ; alarm index <2**┆
0x14460…14480 6d 2b 31 3e 0a 20 20 20 20 20 61 6c 20 20 77 31 20 20 78 31 2d 32 20 20 20 20 20 20 20 20 20 20 ┆m+1> al w1 x1-2 ┆
0x14480…144a0 20 20 3b 20 77 31 3a 3d 32 2a 2a 6d 2d 31 0a 20 20 20 20 20 72 73 2e 20 77 31 20 20 61 34 2e 20 ┆ ; w1:=2**m-1 rs. w1 a4. ┆
0x144a0…144c0 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 61 34 3a 3d 32 2a 2a 6d 2d 31 0a 20 20 20 20 20 77 61 ┆ ; a4:=2**m-1 wa┆
0x144c0…144e0 20 20 77 31 20 20 20 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 31 3a 3d 32 2a 28 32 ┆ w1 3 ; w1:=2*(2┆
0x144e0…14500 2a 2a 6d 2d 31 29 0a 20 20 20 20 20 77 61 2e 20 77 31 20 20 61 30 2e 0a 20 20 20 20 20 72 73 2e ┆**m-1) wa. w1 a0. rs.┆
0x14500…14520 20 77 31 20 20 61 32 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 61 32 3a 3d 61 64 64 72 20 ┆ w1 a2. ; a2:=addr ┆
0x14520…14540 52 28 32 2a 2a 6d 2d 31 29 0a 20 20 20 20 20 61 6c 20 20 77 31 20 20 20 31 0a 62 37 3a 20 20 72 ┆R(2**m-1) al w1 1 b7: r┆
0x14540…14560 73 2e 20 77 31 20 20 61 35 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 61 35 3a 3d 6c 3a 3d ┆s. w1 a5. ; a5:=l:=┆
0x14560…14580 31 0a 20 20 20 20 20 72 6c 2e 20 77 33 20 20 61 33 2e 0a 62 30 3a 20 20 6c 64 20 20 77 32 20 20 ┆1 rl. w3 a3. b0: ld w2 ┆
0x14580…145a0 2d 31 0a 20 20 20 20 20 61 6c 20 20 77 30 20 20 78 32 0a 20 20 20 20 20 6c 64 20 20 77 30 20 20 ┆-1 al w0 x2 ld w0 ┆
0x145a0…145c0 20 31 0a 20 20 20 20 20 73 68 20 20 77 33 20 20 2d 31 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 ┆ 1 sh w3 -1 jl. ┆
0x145c0…145e0 62 30 2e 0a 20 20 20 20 20 72 6c 2e 20 77 32 20 20 61 35 2e 20 20 20 20 20 20 20 20 20 20 20 20 ┆b0. rl. w2 a5. ┆
0x145e0…14600 20 3b 20 77 33 3a 3d 62 69 74 72 65 76 65 72 73 65 28 6c 29 3b 20 77 32 3a 3d 6c 0a 20 20 20 20 ┆ ; w3:=bitreverse(l); w2:=l ┆
0x14600…14620 20 73 6c 20 20 77 32 20 20 78 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 66 20 6c 3e ┆ sl w2 x3 ; if l>┆
0x14620…14640 3d 62 69 74 72 65 76 65 72 73 65 28 6c 29 20 74 68 65 6e 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 ┆=bitreverse(l) then jl. ┆
0x14640…14660 20 62 31 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 6e 6f 20 65 78 63 68 61 6e 67 65 0a 20 ┆ b1. ; no exchange ┆
0x14660…14680 20 20 20 20 6c 64 20 20 77 33 20 20 20 31 0a 20 20 20 20 20 77 61 2e 20 77 32 20 20 61 30 2e 0a ┆ ld w3 1 wa. w2 a0. ┆
0x14680…146a0 20 20 20 20 20 77 61 2e 20 77 33 20 20 61 30 2e 0a 20 20 20 20 20 72 6c 20 20 77 30 20 20 78 33 ┆ wa. w3 a0. rl w0 x3┆
0x146a0…146c0 0a 20 20 20 20 20 72 78 20 20 77 30 20 20 78 32 0a 20 20 20 20 20 72 73 20 20 77 30 20 20 78 33 ┆ rx w0 x2 rs w0 x3┆
0x146c0…146e0 0a 62 31 3a 20 20 72 6c 2e 20 77 31 20 20 61 35 2e 0a 20 20 20 20 20 61 6c 20 20 77 31 20 20 78 ┆ b1: rl. w1 a5. al w1 x┆
0x146e0…14700 31 2b 31 0a 20 20 20 20 20 73 68 2e 20 77 31 20 28 61 34 2e 29 0a 20 20 20 20 20 6a 6c 2e 20 20 ┆1+1 sh. w1 (a4.) jl. ┆
0x14700…14720 20 20 20 62 37 2e 0a 20 20 20 20 20 61 6c 2e 20 77 32 20 20 61 32 32 2e 0a 20 20 20 20 20 61 6c ┆ b7. al. w2 a22. al┆
0x14720…14740 2e 20 77 31 20 20 61 32 33 2e 0a 20 20 20 20 20 64 73 2e 20 77 32 20 20 61 32 30 2e 20 20 20 20 ┆. w1 a23. ds. w2 a20. ┆
0x14740…14760 20 20 20 20 20 20 20 20 3b 20 69 6e 69 74 20 73 32 76 20 61 64 64 72 2c 20 63 32 76 20 61 64 64 ┆ ; init s2v addr, c2v add┆
0x14760…14780 72 0a 20 20 20 20 20 61 6c 20 20 77 31 20 20 20 31 0a 20 20 20 20 20 61 6c 20 20 77 32 20 20 20 ┆r al w1 1 al w2 ┆
0x14780…147a0 32 0a 61 32 36 3d 6b 2d 31 0a 20 20 20 20 20 64 73 2e 20 77 32 20 20 61 35 2e 20 20 20 20 20 20 ┆2 a26=k-1 ds. w2 a5. ┆
0x147a0…147c0 20 20 20 20 20 20 20 3b 20 69 6e 69 74 20 70 2c 71 20 28 31 2c 31 2f 32 29 0a 20 20 20 20 20 61 ┆ ; init p,q (1,1/2) a┆
0x147c0…147e0 6c 20 20 77 32 20 20 20 34 0a 20 20 20 20 20 61 6c 20 20 77 33 20 20 20 34 20 20 20 20 20 20 20 ┆l w2 4 al w3 4 ┆
0x147e0…14800 20 20 20 20 20 20 20 3b 20 69 6e 69 74 20 70 70 20 28 32 29 0a 62 36 3a 20 20 64 73 2e 20 77 33 ┆ ; init pp (2) b6: ds. w3┆
0x14800…14820 20 20 61 33 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 73 74 6f 72 65 20 70 70 0a 20 20 20 ┆ a3. ; store pp ┆
0x14820…14840 20 20 64 6c 2e 20 77 33 20 20 61 30 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 32 3a 3d ┆ dl. w3 a0. ; w2:=┆
0x14840…14860 61 64 64 72 20 52 28 70 29 2c 77 33 3a 3d 61 64 64 72 20 52 28 30 29 0a 62 35 3a 20 20 72 6c 20 ┆addr R(p),w3:=addr R(0) b5: rl ┆
0x14860…14880 20 77 31 20 20 78 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 31 3a 3d 52 28 69 29 0a ┆ w1 x3 ; w1:=R(i) ┆
0x14880…148a0 20 20 20 20 20 61 6c 20 20 77 30 20 20 78 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 ┆ al w0 x1 ; w┆
0x148a0…148c0 30 3a 3d 52 28 69 29 0a 20 20 20 20 20 77 61 20 20 77 30 20 20 78 32 20 20 20 20 20 20 20 20 20 ┆0:=R(i) wa w0 x2 ┆
0x148c0…148e0 20 20 20 20 20 3b 20 77 30 3a 3d 52 28 69 29 2b 52 28 69 2b 70 29 0a 20 20 20 20 20 77 73 20 20 ┆ ; w0:=R(i)+R(i+p) ws ┆
0x148e0…14900 77 31 20 20 78 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 31 3a 3d 52 28 69 29 2d 52 ┆w1 x2 ; w1:=R(i)-R┆
0x14900…14920 28 69 2b 70 29 0a 20 20 20 20 20 72 73 20 20 77 30 20 20 78 33 20 20 20 20 20 20 20 20 20 20 20 ┆(i+p) rs w0 x3 ┆
0x14920…14940 20 20 20 3b 20 52 28 69 29 3a 3d 77 30 0a 20 20 20 20 20 72 73 20 20 77 31 20 20 78 32 20 20 20 ┆ ; R(i):=w0 rs w1 x2 ┆
0x14940…14960 20 20 20 20 20 20 20 20 20 20 20 3b 20 52 28 69 2b 70 29 3a 3d 77 31 0a 20 20 20 20 20 61 61 2e ┆ ; R(i+p):=w1 aa.┆
0x14960…14980 20 77 33 20 20 61 33 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 22 69 22 3a 3d 22 69 22 2b ┆ w3 a3. ; "i":="i"+┆
0x14980…149a0 70 70 2c 20 22 69 2b 70 22 3a 3d 22 69 2b 70 22 2b 70 70 0a 20 20 20 20 20 73 68 2e 20 77 32 20 ┆pp, "i+p":="i+p"+pp sh. w2 ┆
0x149a0…149c0 28 61 32 2e 29 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 66 20 61 64 64 72 20 52 28 69 2b 70 ┆(a2.) ; if addr R(i+p┆
0x149c0…149e0 29 3c 61 64 64 72 20 52 28 32 2a 2a 6d 2d 31 29 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 62 35 ┆)<addr R(2**m-1) jl. b5┆
0x149e0…14a00 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 74 68 65 6e 20 6e 65 78 74 20 73 74 65 70 0a 20 ┆. ; then next step ┆
0x14a00…14a20 20 20 20 20 64 6c 2e 20 77 31 20 28 61 32 31 2e 29 0a 20 20 20 20 20 64 73 2e 20 77 31 20 20 61 ┆ dl. w1 (a21.) ds. w1 a┆
0x14a20…14a40 31 38 2e 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 61 31 37 20 61 31 38 3a 3d 63 32 76 0a 20 20 ┆18. ; a17 a18:=c2v ┆
0x14a40…14a60 20 20 20 64 6c 2e 20 77 31 20 28 61 32 30 2e 29 0a 20 20 20 20 20 64 73 2e 20 77 31 20 20 61 31 ┆ dl. w1 (a20.) ds. w1 a1┆
0x14a60…14a80 36 2e 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 61 31 35 20 61 31 36 3a 3d 73 32 76 0a 20 20 20 ┆6. ; a15 a16:=s2v ┆
0x14a80…14aa0 20 20 61 6c 20 20 77 32 20 20 20 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 6e 3a 3d 31 ┆ al w2 2 ; n:=1┆
0x14aa0…14ac0 0a 62 33 3a 20 20 73 6c 2e 20 77 32 20 28 61 31 39 2e 29 20 20 20 20 20 20 20 20 20 20 20 3b 20 ┆ b3: sl. w2 (a19.) ; ┆
0x14ac0…14ae0 69 66 20 6e 3d 71 20 74 68 65 6e 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 62 34 2e 20 20 20 20 ┆if n=q then jl. b4. ┆
0x14ae0…14b00 20 20 20 20 20 20 20 20 20 3b 20 74 68 65 6e 20 67 6f 74 6f 20 6e 65 78 74 20 6c 2d 73 74 65 70 ┆ ; then goto next l-step┆
0x14b00…14b20 0a 20 20 20 20 20 72 73 2e 20 77 32 20 20 61 34 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 ┆ rs. w2 a4. ; ┆
0x14b20…14b40 73 74 6f 72 65 20 6e 0a 20 20 20 20 20 61 63 20 20 77 31 20 20 78 32 20 20 20 20 20 20 20 20 20 ┆store n ac w1 x2 ┆
0x14b40…14b60 20 20 20 20 20 3b 20 77 31 3a 3d 2d 6e 0a 20 20 20 20 20 61 61 2e 20 77 32 20 20 61 30 2e 20 20 ┆ ; w1:=-n aa. w2 a0. ┆
0x14b60…14b80 20 20 20 20 20 20 20 20 20 20 20 3b 20 61 37 3a 3d 61 64 64 72 20 52 28 70 2b 6e 29 0a 20 20 20 ┆ ; a7:=addr R(p+n) ┆
0x14b80…14ba0 20 20 64 73 2e 20 77 32 20 20 61 37 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 61 38 3a 3d ┆ ds. w2 a7. ; a8:=┆
0x14ba0…14bc0 61 64 64 72 20 52 28 70 2d 6e 29 0a 20 20 20 20 20 77 61 2e 20 77 31 20 20 61 35 2e 20 20 20 20 ┆addr R(p-n) wa. w1 a5. ┆
0x14bc0…14be0 20 20 20 20 20 20 20 20 20 3b 20 61 39 3a 3d 61 64 64 72 20 52 28 70 2b 6e 29 0a 20 20 20 20 20 ┆ ; a9:=addr R(p+n) ┆
0x14be0…14c00 77 61 2e 20 77 32 20 20 61 35 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 61 31 30 3a 3d 61 ┆wa. w2 a5. ; a10:=a┆
0x14c00…14c20 64 64 72 20 52 28 70 2b 70 2d 6e 29 0a 62 32 3a 20 20 64 73 2e 20 77 32 20 20 61 39 2e 20 20 20 ┆ddr R(p+p-n) b2: ds. w2 a9. ┆
0x14c20…14c40 20 20 20 20 20 20 20 20 20 20 3b 20 73 74 6f 72 65 20 61 64 64 72 20 52 28 69 2b 70 29 20 52 28 ┆ ; store addr R(i+p) R(┆
0x14c40…14c60 6a 2b 70 29 0a 20 20 20 20 20 72 6c 20 20 77 31 20 20 78 31 0a 20 20 20 20 20 63 69 20 20 77 31 ┆j+p) rl w1 x1 ci w1┆
0x14c60…14c80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 66 6c 6f 61 74 20 52 28 69 2b 70 29 ┆ ; float R(i+p)┆
0x14c80…14ca0 0a 20 20 20 20 20 64 73 2e 20 77 31 20 20 61 31 34 2e 0a 20 20 20 20 20 72 6c 20 20 77 33 20 20 ┆ ds. w1 a14. rl w3 ┆
0x14ca0…14cc0 78 32 0a 20 20 20 20 20 63 69 20 20 77 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆x2 ci w3 ┆
0x14cc0…14ce0 3b 20 66 6c 6f 61 74 20 52 28 6a 2b 70 29 0a 20 20 20 20 20 64 73 2e 20 77 33 20 20 61 31 32 2e ┆; float R(j+p) ds. w3 a12.┆
0x14ce0…14d00 0a 20 20 20 20 20 66 6d 2e 20 77 33 20 20 61 31 38 2e 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 ┆ fm. w3 a18. ; ┆
0x14d00…14d20 (37,) 77 32 77 33 3a 3d 52 28 69 2b 70 29 2a 63 0a 20 20 20 20 20 66 6d 2e 20 77 31 20 20 61 31 36 2e ┆w2w3:=R(i+p)*c fm. w1 a16.┆
0x14d20…14d40 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 30 77 31 3a 3d 52 28 6a 2b 70 29 2a 73 0a 20 20 20 ┆ ; w0w1:=R(j+p)*s ┆
0x14d40…14d60 20 20 66 73 20 20 77 33 20 20 20 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 32 77 33 ┆ fs w3 3 ; w2w3┆
0x14d60…14d80 3a 3d 72 65 3a 3d 52 28 69 2b 70 29 2a 63 2d 52 28 6a 2b 70 29 2a 73 0a 20 20 20 20 20 63 66 20 ┆:=re:=R(i+p)*c-R(j+p)*s cf ┆
0x14d80…14da0 20 77 33 0a 20 20 20 20 20 64 6c 2e 20 77 31 20 20 61 31 34 2e 0a 20 20 20 20 20 72 73 2e 20 77 ┆ w3 dl. w1 a14. rs. w┆
0x14da0…14dc0 33 20 20 61 31 34 2e 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 61 31 34 3a 3d 72 65 0a 20 20 20 ┆3 a14. ; a14:=re ┆
0x14dc0…14de0 20 20 66 6d 2e 20 77 31 20 20 61 31 38 2e 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 30 77 31 ┆ fm. w1 a18. ; w0w1┆
0x14de0…14e00 3a 3d 52 28 6a 2b 70 29 2a 63 0a 20 20 20 20 20 64 6c 2e 20 77 33 20 20 61 31 32 2e 0a 20 20 20 ┆:=R(j+p)*c dl. w3 a12. ┆
0x14e00…14e20 20 20 66 6d 2e 20 77 33 20 20 61 31 36 2e 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 32 77 33 ┆ fm. w3 a16. ; w2w3┆
0x14e20…14e40 3a 3d 52 28 69 2b 70 29 2a 73 0a 20 20 20 20 20 66 61 20 20 77 33 20 20 20 33 20 20 20 20 20 20 ┆:=R(i+p)*s fa w3 3 ┆
0x14e40…14e60 20 20 20 20 20 20 20 20 3b 20 77 32 77 33 3a 3d 69 6d 3a 3d 52 28 69 2b 70 29 2a 73 2b 52 28 6a ┆ ; w2w3:=im:=R(i+p)*s+R(j┆
0x14e60…14e80 2b 70 29 2a 63 0a 20 20 20 20 20 63 66 20 20 77 33 0a 20 20 20 20 20 61 6c 20 20 77 30 20 20 78 ┆+p)*c cf w3 al w0 x┆
0x14e80…14ea0 33 0a 20 20 20 20 20 77 73 2e 20 77 30 20 28 61 38 2e 29 0a 20 20 20 20 20 77 61 2e 20 77 33 20 ┆3 ws. w0 (a8.) wa. w3 ┆
0x14ea0…14ec0 28 61 38 2e 29 0a 20 20 20 20 20 72 73 2e 20 77 30 20 28 61 39 2e 29 20 20 20 20 20 20 20 20 20 ┆(a8.) rs. w0 (a9.) ┆
0x14ec0…14ee0 20 20 20 3b 20 52 28 69 2b 70 29 3a 3d 2d 52 28 6a 29 2b 69 6d 0a 20 20 20 20 20 72 73 2e 20 77 ┆ ; R(i+p):=-R(j)+im rs. w┆
0x14ee0…14f00 33 20 28 61 31 30 2e 29 20 20 20 20 20 20 20 20 20 20 20 3b 20 52 28 6a 2b 70 29 3a 3d 52 28 6a ┆3 (a10.) ; R(j+p):=R(j┆
0x14f00…14f20 29 2b 69 6d 0a 20 20 20 20 20 72 6c 2e 20 77 31 20 20 61 31 34 2e 0a 20 20 20 20 20 61 63 20 20 ┆)+im rl. w1 a14. ac ┆
0x14f20…14f40 77 30 20 20 78 31 0a 20 20 20 20 20 77 61 2e 20 77 30 20 28 61 37 2e 29 0a 20 20 20 20 20 77 61 ┆w0 x1 wa. w0 (a7.) wa┆
0x14f40…14f60 2e 20 77 31 20 28 61 37 2e 29 0a 20 20 20 20 20 72 73 2e 20 77 30 20 28 61 38 2e 29 20 20 20 20 ┆. w1 (a7.) rs. w0 (a8.) ┆
0x14f60…14f80 20 20 20 20 20 20 20 20 3b 20 52 28 6a 29 3a 3d 52 28 69 29 2d 72 65 0a 20 20 20 20 20 72 73 2e ┆ ; R(j):=R(i)-re rs.┆
0x14f80…14fa0 20 77 31 20 28 61 37 2e 29 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 52 28 69 29 3a 3d 52 28 69 ┆ w1 (a7.) ; R(i):=R(i┆
0x14fa0…14fc0 29 2b 72 65 0a 20 20 20 20 20 64 6c 2e 20 77 32 20 20 61 37 2e 0a 20 20 20 20 20 61 61 2e 20 77 ┆)+re dl. w2 a7. aa. w┆
0x14fc0…14fe0 32 20 20 61 33 2e 0a 20 20 20 20 20 64 73 2e 20 77 32 20 20 61 37 2e 20 20 20 20 20 20 20 20 20 ┆2 a3. ds. w2 a7. ┆
0x14fe0…15000 20 20 20 20 3b 20 22 69 22 3a 3d 22 69 22 2b 70 70 3b 20 22 6a 22 3a 3d 22 6a 22 2b 70 70 0a 20 ┆ ; "i":="i"+pp; "j":="j"+pp ┆
0x00000…00033 (0,) Rc489kSubCatEnt {f00=0x001cea, f01=0x0007e4, f02=0x0007e4, filename=»tmon «, entry_tail=0-4-0-16-1981-08-20T10:57-disc1-0x0-0x0-0x0-0x0}
0x00033…00066 Rc489kSubCatEnt {f00=0x0117eb, f01=0x0007e4, f02=0x0007ed, filename=»tcmon «, entry_tail=0-4-0-52-1981-01-28T12:10-disc1-0x0-0x0-0x0-0x0}
0x00066…00099 Rc489kSubCatEnt {f00=0x0453e0, f01=0x0007e4, f02=0x0007e4, filename=»cmonlist «, entry_tail=0-4-0-1-1981-01-28T12:05-disc1-0x0-0x0-0x0-0x0}
0x00099…000cc Rc489kSubCatEnt {f00=0x0468e3, f01=0x0007e4, f02=0x0007ed, filename=»cmonhelp «, entry_tail=0-4-0-4-1981-01-28T11:51-disc1-0x0-0x0-0x0-0x0}
0x000cc…000ff Rc489kSubCatEnt {f00=0x04a803, f01=0x0007e4, f02=0x0007ed, filename=»tctrace «, entry_tail=0-4-0-6-1981-01-28T11:51-disc1-0x0-0x0-0x0-0x0}
0x000ff…00132 Rc489kSubCatEnt {f00=0x05073b, f01=0x0007e4, f02=0x0007ed, filename=»tcmerge «, entry_tail=0-4-0-7-1981-01-28T11:51-disc1-0x0-0x0-0x0-0x0}
0x00132…00165 Rc489kSubCatEnt {f00=0x057392, f01=0x0007e4, f02=0x0007ed, filename=»cmonsave «, entry_tail=0-4-0-1-1981-01-28T11:49-disc1-0x0-0x0-0x0-0x0}
0x00165…00198 Rc489kSubCatEnt {f00=0x058702, f01=0x0007e4, f02=0x0007ed, filename=»cmonload «, entry_tail=0-4-0-1-1981-01-28T11:51-disc1-0x0-0x0-0x0-0x0}
0x00198…001a0 ff ff ff ff ff ff ff ff ┆ ┆
0x001a0…001c0 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
0x001c0…001e0 ff ff ff ff ff ff ff ff ff ff ff 00 00 06 80 0d c3 80 00 01 7f ff fd 63 68 65 63 6b 00 00 00 00 ┆ check ┆
0x001e0…00200 00 00 00 80 00 04 73 79 73 74 65 6d 00 00 00 00 00 00 80 01 d8 04 80 00 00 00 00 00 40 28 00 20 ┆ system @( ┆
0x00200…00220 00 0b ed c3 00 75 30 00 75 39 72 75 6e 63 68 6f 36 00 00 00 00 00 00 00 01 64 69 73 63 00 00 00 ┆ u0 u9runcho6 disc ┆
0x00220…00240 00 00 00 00 00 6e f6 4e 00 00 00 00 00 00 00 00 00 00 00 00 4b 7d c3 00 00 00 00 07 cf 64 69 73 ┆ n N Kå dis┆
0x00240…00260 61 30 33 00 00 00 00 00 00 00 00 01 64 69 73 63 32 00 00 00 00 00 00 00 71 1e b6 00 00 00 00 00 ┆a03 disc2 q ┆
0x00260…00280 00 00 00 00 00 00 00 29 0d c3 00 00 78 00 00 81 73 69 6d 70 31 36 31 35 00 00 00 00 00 01 ab 64 ┆ ) x simp1615 d┆
0x00280…002a0 69 73 63 33 00 00 00 00 00 00 00 7c f9 e8 00 00 00 00 00 00 00 00 00 00 00 00 16 4d c3 00 00 78 ┆isc3 ø M x┆
0x002a0…002c0 00 00 81 63 6e 63 68 00 00 00 00 00 00 00 00 00 00 7e 64 69 73 63 33 00 00 00 00 00 00 00 77 a8 ┆ cnch üdisc3 w ┆
0x002c0…002e0 7c 00 00 78 00 00 81 00 a0 00 00 fc 00 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ø x ┆
0x002e0…002fd ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
0x002fd…00300 0x000008
0x00300…03300 Data for tmon
0x03300…0cf00 Data for tcmon
0x0cf00…0d200 (23,) Data for cmonlist
0x0d200…0de00 Data for cmonhelp
0x0de00…0f000 Data for tctrace
0x0f000…10500 Data for tcmerge
0x10500…10800 (29,) Data for cmonsave
0x10800…10b00 Data for cmonload
0x10b00…10b20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 6c 6f 6e 67 20 77 6f 72 6b 31 ┆ ; long work1┆
0x10b20…10b40 2c 0a 20 20 20 20 20 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 64 36 3a ┆, 0 ; d6:┆
0x10b40…10b60 20 20 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 20 20 77 ┆ 0 ; w┆
0x10b60…10b80 6f 72 6b 32 3b 0a 20 20 20 20 20 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b ┆ork2; 0 ;┆
0x10b80…10ba0 0a 64 37 3a 20 20 20 31 30 32 34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 6c 6f ┆ d7: 1024 ; lo┆
0x10ba0…10bc0 6e 67 20 72 6f 75 6e 64 63 6f 6e 73 74 61 6e 74 3b 0a 0a 62 32 3a 20 20 20 77 61 20 20 77 30 20 ┆ng roundconstant; b2: wa w0 ┆
0x10bc0…10be0 20 20 20 20 34 20 20 20 20 20 20 20 3b 20 20 20 77 30 3a 3d 20 77 30 2b 77 32 3b 0a 20 20 20 20 ┆ 4 ; w0:= w0+w2; ┆
0x10be0…10c00 20 20 64 73 2e 20 77 30 20 20 20 20 20 64 31 2e 20 20 20 20 20 3b 20 20 20 73 61 76 65 20 77 33 ┆ ds. w0 d1. ; save w3┆
0x10c00…10c20 3b 20 73 61 76 65 20 77 30 3b 0a 20 20 20 20 20 20 72 73 2e 20 77 31 20 20 20 20 20 64 32 2e 20 ┆; save w0; rs. w1 d2. ┆
0x10c20…10c40 20 20 20 20 3b 20 20 20 73 61 76 65 20 6c 69 6e 6b 3b 0a 20 20 20 20 20 20 6c 64 20 20 77 31 20 ┆ ; save link; ld w1 ┆
0x10c40…10c60 20 20 20 2d 36 35 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 64 73 2e 20 77 31 20 20 20 20 20 64 ┆ -65 ; ds. w1 d┆
0x10c60…10c80 33 2e 20 20 20 20 20 3b 20 20 20 66 72 61 63 74 69 6f 6e 3a 3d 20 30 3b 20 0a 20 20 20 20 20 20 ┆3. ; fraction:= 0; ┆
0x10c80…10ca0 61 6c 20 20 77 31 20 20 20 20 2d 32 30 34 38 20 20 20 20 3b 0a 20 20 20 20 20 20 72 73 2e 20 77 ┆al w1 -2048 ; rs. w┆
0x10ca0…10cc0 31 20 20 20 20 20 64 34 2e 20 20 20 20 20 3b 20 20 20 65 78 70 6f 6e 65 6e 74 3a 3d 20 2d 32 30 ┆1 d4. ; exponent:= -20┆
0x10cc0…10ce0 34 38 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 61 32 2e 20 20 20 20 20 3b 20 20 ┆48; jl. a2. ; ┆
0x10ce0…10d00 20 67 6f 74 6f 20 73 74 61 72 74 3b 0a 0a 61 30 3a 20 20 20 64 73 2e 20 77 31 20 20 20 20 20 64 ┆ goto start; a0: ds. w1 d┆
0x10d00…10d20 33 2e 20 20 20 20 20 3b 20 20 20 73 61 76 65 20 66 72 61 63 74 69 6f 6e 3b 0a 20 20 20 20 20 20 ┆3. ; save fraction; ┆
0x10d20…10d40 72 73 2e 20 77 33 20 20 20 20 20 64 34 2e 20 20 20 20 20 3b 20 20 20 73 61 76 65 20 65 78 70 6f ┆rs. w3 d4. ; save expo┆
0x10d40…10d60 6e 65 6e 74 3b 0a 61 31 3a 20 20 20 72 6c 2e 20 77 33 20 20 20 20 20 64 31 2e 2d 32 20 20 20 3b ┆nent; a1: rl. w3 d1.-2 ;┆
0x10d60…10d80 0a 20 20 20 20 20 20 77 61 2e 20 77 33 20 20 20 20 20 62 33 2e 20 20 20 20 20 3b 0a 20 20 20 20 ┆ wa. w3 b3. ; ┆
0x10d80…10da0 20 20 72 73 2e 20 77 33 20 20 20 20 20 64 31 2e 2d 32 20 20 20 3b 0a 61 32 3a 20 20 20 72 6c 20 ┆ rs. w3 d1.-2 ; a2: rl ┆
0x10da0…10dc0 20 77 30 20 20 78 32 2d 32 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 72 6c 20 20 77 31 20 20 ┆ w0 x2-2 ; rl w1 ┆
0x10dc0…10de0 78 33 2d 32 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 73 65 20 20 77 30 20 20 20 20 20 30 20 ┆x3-2 ; se w0 0 ┆
0x10de0…10e00 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 73 6e 20 20 77 31 20 20 20 20 20 30 20 20 20 20 20 20 ┆ ; sn w1 0 ┆
0x10e00…10e20 (30,) 20 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 61 36 2e 20 20 20 20 20 3b 0a 20 20 ┆ ; jl. a6. ; ┆
0x10e20…10e40 20 20 20 20 77 6d 20 20 77 31 20 20 20 20 20 30 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 64 ┆ wm w1 0 ; d┆
0x10e40…10e60 73 2e 20 77 31 20 20 20 20 20 64 35 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 20 62 7a 20 20 77 31 ┆s. w1 d5. ; bz w1┆
0x10e60…10e80 20 20 78 32 2d 31 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 77 6d 20 20 77 31 20 20 78 33 2d ┆ x2-1 ; wm w1 x3-┆
0x10e80…10ea0 32 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 64 73 2e 20 77 31 20 20 20 20 20 64 36 2e 20 20 ┆2 ; ds. w1 d6. ┆
0x10ea0…10ec0 20 20 20 3b 0a 20 20 20 20 20 20 62 7a 20 20 77 31 20 20 78 33 2d 31 20 20 20 20 20 20 20 3b 0a ┆ ; bz w1 x3-1 ; ┆
0x10ec0…10ee0 20 20 20 20 20 20 77 6d 20 20 77 31 20 20 78 32 2d 32 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 ┆ wm w1 x2-2 ; ┆
0x10ee0…10f00 20 61 61 2e 20 77 31 20 20 20 20 20 64 36 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 20 61 64 20 20 ┆ aa. w1 d6. ; ad ┆
0x10f00…10f20 77 31 20 20 20 20 2d 31 32 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 61 61 2e 20 77 31 20 20 20 ┆w1 -12 ; aa. w1 ┆
0x10f20…10f40 20 20 64 35 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 20 62 6c 20 20 77 33 20 20 78 33 20 20 20 20 ┆ d5. ; bl w3 x3 ┆
0x10f40…10f60 20 20 20 20 20 3b 0a 20 20 20 20 20 20 62 61 20 20 77 33 20 20 78 32 20 20 20 20 20 20 20 20 20 ┆ ; ba w3 x2 ┆
0x10f60…10f80 3b 0a 20 20 20 20 20 20 61 6c 20 20 77 33 20 20 78 33 2b 31 20 20 20 20 20 20 20 3b 0a 20 20 20 ┆; al w3 x3+1 ; ┆
0x10f80…10fa0 20 20 20 73 68 2e 20 77 33 20 28 20 20 20 64 34 2e 29 20 20 20 20 3b 0a 20 20 20 20 20 20 6a 6c ┆ sh. w3 ( d4.) ; jl┆
0x10fa0…10fc0 2e 20 20 20 20 20 20 20 20 61 33 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 20 72 78 2e 20 77 30 20 ┆. a3. ; rx. w0 ┆
0x10fc0…10fe0 20 20 20 20 64 33 2e 2d 32 20 20 20 3b 0a 20 20 20 20 20 20 72 78 2e 20 77 31 20 20 20 20 20 64 ┆ d3.-2 ; rx. w1 d┆
0x10fe0…11000 33 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 20 72 78 2e 20 77 33 20 20 20 20 20 64 34 2e 20 20 20 ┆3. ; rx. w3 d4. ┆
0x11000…11020 20 20 3b 0a 61 33 3a 20 20 20 77 73 2e 20 77 33 20 20 20 20 20 64 34 2e 20 20 20 20 20 3b 0a 20 ┆ ; a3: ws. w3 d4. ; ┆
0x11020…11040 20 20 20 20 20 61 64 20 20 77 31 20 20 78 33 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 ┆ ad w1 x3 ; ┆
0x11040…11060 61 61 2e 20 77 31 20 20 20 20 20 64 33 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 20 6e 64 20 20 77 ┆aa. w1 d3. ; nd w┆
0x11060…11080 31 20 20 20 20 20 37 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 61 64 20 20 77 31 20 20 20 20 ┆1 7 ; ad w1 ┆
0x11080…110a0 2d 31 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 62 6c 20 20 77 33 20 20 20 20 20 37 20 20 20 ┆-1 ; bl w3 7 ┆
0x110a0…110c0 20 20 20 20 3b 0a 20 20 20 20 20 20 61 6c 20 20 77 33 20 20 78 33 2b 31 20 20 20 20 20 20 20 3b ┆ ; al w3 x3+1 ;┆
0x110c0…110e0 0a 20 20 20 20 20 20 77 61 2e 20 77 33 20 20 20 20 20 64 34 2e 20 20 20 20 20 3b 0a 20 20 20 20 ┆ wa. w3 d4. ; ┆
0x110e0…11100 20 20 73 6e 20 20 77 30 20 20 20 20 20 30 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 61 6c 20 ┆ sn w0 0 ; al ┆
0x11100…11120 20 77 33 20 20 20 20 2d 32 30 34 38 20 20 20 20 3b 0a 20 20 20 20 20 20 61 6c 20 20 77 32 20 20 ┆ w3 -2048 ; al w2 ┆
0x11120…11140 78 32 2b 34 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 73 65 2e 20 77 32 20 28 20 20 20 64 31 ┆x2+4 ; se. w2 ( d1┆
0x11140…11160 2e 29 20 20 20 20 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 61 30 2e 20 20 20 20 ┆.) ; jl. a0. ┆
0x11160…11180 20 3b 0a 61 34 3a 20 20 20 73 6e 20 20 77 30 20 20 20 20 20 30 20 20 20 20 20 20 20 3b 0a 20 20 ┆ ; a4: sn w0 0 ; ┆
0x11180…111a0 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 61 35 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 20 61 ┆ jl. a5. ; a┆
0x111a0…111c0 61 2e 20 77 31 20 20 20 20 20 64 37 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 20 6e 64 2e 20 77 31 ┆a. w1 d7. ; nd. w1┆
0x111c0…111e0 20 20 20 20 20 33 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 61 6c 20 20 77 33 20 20 78 33 20 ┆ 3 ; al w3 x3 ┆
0x111e0…11200 20 20 20 20 20 20 20 20 3b 0a 61 35 3a 20 20 20 68 6c 20 20 77 31 20 20 20 20 20 37 20 20 20 20 ┆ ; a5: hl w1 7 ┆
0x11200…11220 20 20 20 3b 0a 20 20 20 20 20 20 73 6c 20 20 77 33 20 20 20 20 2d 32 30 34 38 20 20 20 20 3b 0a ┆ ; sl w3 -2048 ; ┆
0x11220…11240 20 20 20 20 20 20 73 6c 2e 20 77 33 20 28 20 20 20 64 30 2e 29 20 20 20 20 3b 0a 20 20 20 20 20 ┆ sl. w3 ( d0.) ; ┆
0x11240…11260 20 66 64 2e 20 77 31 20 20 20 20 20 64 30 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 ┆ fd. w1 d0. ; jl. ┆
0x11260…11280 20 20 20 28 20 20 20 64 32 2e 29 20 20 20 20 3b 0a 0a 61 36 3a 20 20 20 61 6c 20 20 77 32 20 20 ┆ ( d2.) ; a6: al w2 ┆
0x11280…112a0 78 32 2b 34 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 73 65 2e 20 77 32 20 28 20 20 20 64 31 ┆x2+4 ; se. w2 ( d1┆
0x112a0…112c0 2e 29 20 20 20 20 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 61 31 2e 20 20 20 20 ┆.) ; jl. a1. ┆
0x112c0…112e0 20 3b 0a 20 20 20 20 20 20 64 6c 2e 20 77 31 20 20 20 20 20 64 33 2e 20 20 20 20 20 3b 0a 20 20 ┆ ; dl. w1 d3. ; ┆
0x112e0…11300 20 20 20 20 72 6c 2e 20 77 33 20 20 20 20 20 64 34 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 20 6a ┆ rl. w3 d4. ; j┆
0x11300…11320 6c 2e 20 20 20 20 20 20 20 20 61 34 2e 20 20 20 20 20 3b 0a 65 2e 0a 0a 62 33 3a 20 20 20 30 20 ┆l. a4. ; e. b3: 0 ┆
0x11320…11340 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 0a 62 2e 20 61 35 2c 20 64 36 2c 20 77 ┆ ; b. a5, d6, w┆
0x11340…11360 2e 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 64 30 3a 20 20 20 30 20 20 20 20 20 20 20 20 20 20 ┆. ; d0: 0 ┆
0x11360…11380 20 20 20 20 20 20 20 20 3b 0a 64 31 3a 20 20 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ; d1: 0 ┆
0x11380…113a0 20 20 20 3b 0a 64 32 3a 20 20 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a ┆ ; d2: 0 ; ┆
0x113a0…113c0 64 33 3a 20 20 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 64 34 3a 20 20 ┆d3: 0 ; d4: ┆
0x113c0…113e0 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 64 35 3a 20 20 20 30 20 20 20 ┆ 0 ; d5: 0 ┆
0x113e0…11400 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 64 36 3a 20 20 20 30 20 20 20 20 20 20 20 20 ┆ ; d6: 0 ┆
0x11400…11420 20 20 20 20 20 20 20 20 20 20 3b 0a 0a 65 31 3a 20 20 20 72 6c 2e 20 77 32 20 28 20 20 20 6a 31 ┆ ; e1: rl. w2 ( j1┆
0x11420…11440 33 2e 29 20 20 20 3b 6d 61 74 72 69 78 6d 75 6c 74 3a 0a 20 20 20 20 20 20 64 73 2e 20 77 33 20 ┆3.) ;matrixmult: ds. w3 ┆
0x11440…11460 28 20 20 20 6a 33 30 2e 29 20 20 20 3b 0a 20 20 20 20 20 20 61 6c 20 20 77 31 20 20 20 20 2d 34 ┆( j30.) ; al w1 -4┆
0x11460…11480 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 77 33 20 28 20 20 20 6a 33 2e 29 20 20 ┆ ; jl. w3 ( j3.) ┆
0x11480…114a0 20 20 3b 0a 20 20 20 20 20 20 61 6c 20 20 77 31 20 20 78 32 2b 36 20 20 20 20 20 20 20 3b 0a 20 ┆ ; al w1 x2+6 ; ┆
0x114a0…114c0 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 20 20 20 62 30 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 20 ┆ jl. w3 b0. ; ┆
0x114c0…114e0 61 6c 20 20 77 31 20 20 78 32 2b 31 30 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 77 ┆al w1 x2+10 ; jl. w┆
0x114e0…11500 33 20 20 20 20 20 62 30 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 20 77 6d 20 20 77 31 20 20 78 32 ┆3 b0. ; wm w1 x2┆
0x11500…11520 2b 36 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 72 73 20 20 77 31 20 20 78 32 2b 38 20 20 20 ┆+6 ; rs w1 x2+8 ┆
0x11520…11540 20 20 20 20 3b 0a 20 20 20 20 20 20 61 6c 20 20 77 30 20 20 78 32 2b 31 38 20 20 20 20 20 20 3b ┆ ; al w0 x2+18 ;┆
0x11540…11560 0a 20 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 20 20 20 62 31 2e 20 20 20 20 20 3b 0a 20 20 20 20 ┆ jl. w3 b1. ; ┆
0x11560…11580 20 20 61 6c 20 20 77 31 20 20 78 32 2b 31 34 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 6a 6c 2e ┆ al w1 x2+14 ; jl.┆
0x11580…115a0 20 77 33 20 20 20 20 20 62 30 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 20 77 6d 20 20 77 31 20 20 ┆ w3 b0. ; wm w1 ┆
0x115a0…115c0 78 32 2b 31 30 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 61 6c 20 20 77 30 20 20 78 32 2b 32 32 ┆x2+10 ; al w0 x2+22┆
0x115c0…115e0 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 20 20 20 62 31 2e 20 20 20 20 ┆ ; jl. w3 b1. ┆
0x115e0…11600 20 3b 0a 20 20 20 20 20 20 72 6c 20 20 77 31 20 20 78 32 2b 31 34 20 20 20 20 20 20 3b 0a 20 20 ┆ ; rl w1 x2+14 ; ┆
0x11600…11620 20 20 20 20 77 6d 20 20 77 31 20 20 78 32 2b 36 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 61 ┆ wm w1 x2+6 ; a┆
0x11620…11640 6c 20 20 77 30 20 20 78 32 2b 32 36 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 77 33 ┆l w0 x2+26 ; jl. w3┆
0x11640…11660 20 20 20 20 20 62 31 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 20 72 73 2e 20 77 32 20 28 20 20 20 ┆ b1. ; rs. w2 ( ┆
0x11660…11680 6a 31 33 2e 29 20 20 20 3b 0a 20 20 20 20 20 20 72 6c 20 20 77 30 20 20 78 32 2b 31 30 20 20 20 ┆j13.) ; rl w0 x2+10 ┆
0x11680…116a0 20 20 20 3b 0a 20 20 20 20 20 20 6c 73 20 20 77 30 20 20 20 20 20 32 20 20 20 20 20 20 20 3b 0a ┆ ; ls w0 2 ; ┆
0x116a0…116c0 20 20 20 20 20 20 72 6c 20 20 77 31 20 20 78 32 2b 32 36 20 20 20 20 20 20 3b 0a 20 20 20 20 20 ┆ rl w1 x2+26 ; ┆
0x116c0…116e0 20 64 73 2e 20 77 31 20 20 20 20 20 64 31 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 20 72 6c 20 20 ┆ ds. w1 d1. ; rl ┆
0x116e0…11700 77 30 20 20 78 32 2b 38 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 72 6c 20 20 77 31 20 20 78 ┆w0 x2+8 ; rl w1 x┆
0x11700…11720 (31,) 32 2b 31 34 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 6c 64 20 20 77 31 20 20 20 20 20 32 20 20 ┆2+14 ; ld w1 2 ┆
0x11720…11740 20 20 20 20 20 3b 0a 20 20 20 20 20 20 72 73 2e 20 77 31 20 20 20 20 20 62 33 2e 20 20 20 20 20 ┆ ; rs. w1 b3. ┆
0x11740…11760 3b 0a 20 20 20 20 20 20 61 6c 20 20 77 31 20 20 78 31 2d 34 20 20 20 20 20 20 20 3b 0a 20 20 20 ┆; al w1 x1-4 ; ┆
0x11760…11780 20 20 20 72 6c 20 20 77 33 20 20 78 32 2b 32 32 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 72 6c ┆ rl w3 x2+22 ; rl┆
0x11780…117a0 20 20 77 32 20 20 78 32 2b 31 38 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 61 61 20 20 77 31 20 ┆ w2 x2+18 ; aa w1 ┆
0x117a0…117c0 20 20 20 20 36 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 64 73 2e 20 77 31 20 20 20 20 20 64 ┆ 6 ; ds. w1 d┆
0x117c0…117e0 33 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 20 64 73 2e 20 77 33 20 20 20 20 20 64 35 2e 20 20 20 ┆3. ; ds. w3 d5. ┆
0x117e0…11800 20 20 3b 0a 20 20 20 20 20 20 72 73 2e 20 77 33 20 20 20 20 20 64 36 2e 20 20 20 20 20 3b 0a 20 ┆ ; rs. w3 d6. ; ┆
0x11800…11820 20 20 20 20 20 72 6c 2e 20 77 30 20 20 20 20 20 64 30 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 20 ┆ rl. w0 d0. ; ┆
0x11820…11840 6a 6c 2e 20 77 31 20 20 20 20 20 62 32 2e 20 20 20 20 20 3b 0a 0a 61 30 3a 20 20 20 64 73 2e 20 ┆jl. w1 b2. ; a0: ds. ┆
0x11840…11860 77 31 20 28 20 20 20 64 31 2e 29 20 20 20 20 3b 0a 20 20 20 20 20 20 72 6c 2e 20 77 33 20 20 20 ┆w1 ( d1.) ; rl. w3 ┆
0x11860…11880 20 20 64 35 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 20 73 65 2e 20 77 33 20 28 20 20 20 64 33 2e ┆ d5. ; se. w3 ( d3.┆
0x11880…118a0 29 20 20 20 20 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 61 32 2e 20 20 20 20 20 ┆) ; jl. a2. ┆
0x118a0…118c0 3b 0a 20 20 20 20 20 20 73 6c 2e 20 77 32 20 28 20 20 20 64 32 2e 29 20 20 20 20 3b 0a 20 20 20 ┆; sl. w2 ( d2.) ; ┆
0x118c0…118e0 20 20 20 6a 6c 2e 20 20 20 20 28 20 20 20 6a 38 2e 29 20 20 20 20 3b 0a 20 20 20 20 20 20 72 73 ┆ jl. ( j8.) ; rs┆
0x118e0…11900 2e 20 77 32 20 20 20 20 20 64 34 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 20 72 6c 2e 20 77 33 20 ┆. w2 d4. ; rl. w3 ┆
0x11900…11920 20 20 20 20 64 36 2e 20 20 20 20 20 3b 0a 61 31 3a 20 20 20 72 73 2e 20 77 33 20 20 20 20 20 64 ┆ d6. ; a1: rs. w3 d┆
0x11920…11940 35 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 20 64 6c 2e 20 77 31 20 20 20 20 20 64 31 2e 20 20 20 ┆5. ; dl. w1 d1. ┆
0x11940…11960 20 20 3b 0a 20 20 20 20 20 20 61 6c 20 20 77 31 20 20 78 31 2b 34 20 20 20 20 20 20 20 3b 0a 20 ┆ ; al w1 x1+4 ; ┆
0x11960…11980 20 20 20 20 20 72 73 2e 20 77 31 20 20 20 20 20 64 31 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 20 ┆ rs. w1 d1. ; ┆
0x11980…119a0 61 6c 2e 20 77 31 20 20 20 20 20 61 30 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 20 ┆al. w1 a0. ; jl. ┆
0x119a0…119c0 20 20 20 20 20 20 62 32 2e 20 20 20 20 20 3b 0a 0a 61 32 3a 20 20 20 61 6c 20 20 77 33 20 20 78 ┆ b2. ; a2: al w3 x┆
0x119c0…119e0 33 2b 34 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 72 6c 2e 20 77 32 20 20 20 20 20 64 34 2e ┆3+4 ; rl. w2 d4.┆
0x119e0…11a00 20 20 20 20 20 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 61 31 2e 20 20 20 20 20 ┆ ; jl. a1. ┆
0x11a00…11a20 3b 0a 65 2e 0a 0a 65 32 3a 20 20 20 72 6c 2e 20 77 32 20 28 20 20 20 6a 31 33 2e 29 20 20 20 3b ┆; e. e2: rl. w2 ( j13.) ;┆
0x11a20…11a40 70 72 69 6b 3a 0a 20 20 20 20 20 20 64 73 2e 20 77 33 20 28 20 20 20 6a 33 30 2e 29 20 20 20 3b ┆prik: ds. w3 ( j30.) ;┆
0x11a40…11a60 20 73 61 76 65 20 73 74 61 63 6b 72 65 66 3b 0a 20 20 20 20 20 20 61 6c 20 20 77 31 20 20 20 20 ┆ save stackref; al w1 ┆
0x11a60…11a80 2d 34 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 77 33 20 28 20 20 20 6a 33 2e 29 ┆-4 ; jl. w3 ( j3.)┆
0x11a80…11aa0 20 20 20 20 3b 20 72 65 73 65 72 76 65 20 34 20 62 79 74 65 73 3b 0a 20 20 20 20 20 20 61 6c 20 ┆ ; reserve 4 bytes; al ┆
0x11aa0…11ac0 20 77 31 20 20 78 32 2b 36 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 ┆ w1 x2+6 ; jl. w3 ┆
0x11ac0…11ae0 20 20 20 62 30 2e 20 20 20 20 20 3b 20 74 61 6b 65 20 6d 3b 0a 20 20 20 20 20 20 61 6c 20 20 77 ┆ b0. ; take m; al w┆
0x11ae0…11b00 30 20 20 78 32 2b 31 30 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 20 20 ┆0 x2+10 ; jl. w3 ┆
0x11b00…11b20 20 62 31 2e 20 20 20 20 20 3b 20 74 61 6b 65 20 41 20 61 6e 64 20 74 65 73 74 20 66 6f 72 20 6d ┆ b1. ; take A and test for m┆
0x11b20…11b40 20 65 6c 65 6d 65 6e 74 73 3b 0a 20 20 20 20 20 20 61 6c 20 20 77 30 20 20 78 32 2b 31 34 20 20 ┆ elements; al w0 x2+14 ┆
0x11b40…11b60 20 20 20 20 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 20 20 20 62 31 2e 20 20 20 20 20 3b ┆ ; jl. w3 b1. ;┆
0x11b60…11b80 20 74 61 6b 65 20 42 20 61 6e 64 20 74 65 73 74 20 66 6f 72 20 6d 20 65 6c 65 6d 65 6e 74 73 3b ┆ take B and test for m elements;┆
0x11b80…11ba0 0a 20 20 20 20 20 20 72 73 2e 20 77 32 20 28 20 20 20 6a 31 33 2e 29 20 20 20 3b 20 72 65 6c 65 ┆ rs. w2 ( j13.) ; rele┆
0x11ba0…11bc0 61 73 65 20 34 20 62 79 74 65 73 3b 0a 20 20 20 20 20 20 72 6c 20 20 77 33 20 20 78 32 2b 31 34 ┆ase 4 bytes; rl w3 x2+14┆
0x11bc0…11be0 20 20 20 20 20 20 3b 20 77 33 3a 3d 20 66 69 72 73 74 61 64 64 72 28 41 29 2b 32 3b 0a 20 20 20 ┆ ; w3:= firstaddr(A)+2; ┆
0x11be0…11c00 20 20 20 61 6c 20 20 77 30 20 20 20 20 20 34 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 72 73 ┆ al w0 4 ; rs┆
0x11c00…11c20 2e 20 77 30 20 20 20 20 20 62 33 2e 20 20 20 20 20 3b 20 62 33 3a 3d 20 31 2a 34 3b 0a 20 20 20 ┆. w0 b3. ; b3:= 1*4; ┆
0x11c20…11c40 20 20 20 72 6c 20 20 77 30 20 20 78 32 2b 36 20 20 20 20 20 20 20 3b 20 77 30 3a 3d 20 6d 0a 20 ┆ rl w0 x2+6 ; w0:= m ┆
0x11c40…11c60 20 20 20 20 20 6c 73 20 20 77 30 20 20 20 20 20 32 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 20 ┆ ls w0 2 ; ┆
0x11c60…11c80 2a 34 3b 0a 20 20 20 20 20 20 72 6c 20 20 77 32 20 20 78 32 2b 31 30 20 20 20 20 20 20 3b 20 77 ┆*4; rl w2 x2+10 ; w┆
0x11c80…11ca0 32 3a 3d 20 66 69 72 73 74 61 64 64 72 28 42 29 2b 32 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 77 31 ┆2:= firstaddr(B)+2; jl. w1┆
0x11ca0…11cc0 20 20 20 20 20 62 32 2e 20 20 20 20 20 3b 20 73 69 67 6d 61 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 ┆ b2. ; sigma; jl. ┆
0x11cc0…11ce0 20 20 20 28 20 20 20 6a 36 2e 29 20 20 20 20 3b 20 65 6e 64 20 72 65 67 69 73 74 65 72 20 65 78 ┆ ( j6.) ; end register ex┆
0x11ce0…11d00 70 72 65 73 73 69 6f 6e 3b 0a 0a 68 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆pression; h. ┆
0x11d00…11d20 20 20 20 20 3b 20 65 6e 64 0a 20 20 20 20 20 20 30 2c 72 2e 28 3a 35 30 34 2d 6b 3a 29 20 20 20 ┆ ; end 0,r.(:504-k:) ┆
0x11d20…11d40 20 20 20 3b 0a 77 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a ┆ ; w. ; ┆
0x11d40…11d60 20 20 20 20 20 20 3c 3a 6d 61 74 72 69 78 6d 75 6c 74 20 3c 30 3e 3a 3e 20 3b 0a 0a 65 2e 20 20 ┆ <:matrixmult <0>:> ; e. ┆
0x11d60…11d80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 0a 77 2e 20 20 20 20 20 20 ┆ ; w. ┆
0x11d80…11da0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 3b 6d 61 74 72 69 78 6d 75 6c 74 3a 0a ┆ ; ;matrixmult: ┆
0x11da0…11dc0 67 30 3a 20 20 20 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 ┆g0: 1 ; ┆
0x11dc0…11de0 20 30 2c 30 2c 30 2c 30 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 31 3c 32 33 ┆ 0,0,0,0 ; 1<23┆
0x11de0…11e00 2b 65 31 2d 65 33 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 31 3c 31 38 2b 32 36 3c 31 ┆+e1-e3 ; 1<18+26<1┆
0x11e00…11e20 32 2b 32 36 3c 36 2b 32 36 20 3b 20 20 70 72 6f 63 65 64 75 72 65 20 6d 61 74 72 69 78 6d 75 6c ┆2+26<6+26 ; procedure matrixmul┆
0x11e20…11e40 74 28 6c 2c 6d 2c 6e 2c 41 2c 42 2c 43 29 3b 0a 20 20 20 20 20 20 31 33 3c 31 38 2b 31 33 3c 31 ┆t(l,m,n,A,B,C); 13<18+13<1┆
0x11e40…11e60 32 2b 31 33 3c 36 20 20 20 3b 20 20 76 61 6c 75 65 20 6c 2c 6d 2c 6e 3b 20 69 6e 74 65 67 65 72 ┆2+13<6 ; value l,m,n; integer┆
0x11e60…11e80 20 6c 2c 6d 2c 6e 3b 20 61 72 72 61 79 20 41 2c 42 2c 43 3b 0a 20 20 20 20 20 20 34 3c 31 32 2b ┆ l,m,n; array A,B,C; 4<12+┆
0x11e80…11ea0 65 30 2d 65 33 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 31 3c 31 32 2b 30 20 20 20 20 ┆e0-e3 ; 1<12+0 ┆
0x11ea0…11ec0 20 20 20 20 20 20 20 20 20 3b 0a 0a 3b 70 72 69 6b 3a 0a 67 31 3a 20 20 20 31 3c 32 33 2b 34 20 ┆ ; ;prik: g1: 1<23+4 ┆
0x11ec0…11ee0 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 30 2c 30 2c 30 2c 30 20 20 20 20 20 ┆ ; 0,0,0,0 ┆
0x11ee0…11f00 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 31 3c 32 33 2b 65 32 2d 65 33 20 20 20 20 20 20 20 ┆ ; 1<23+e2-e3 ┆
0x11f00…11f20 20 20 3b 0a 20 20 20 20 20 20 34 3c 31 38 2b 32 36 3c 31 32 2b 32 36 3c 36 2b 31 33 20 3b 20 20 ┆ ; 4<18+26<12+26<6+13 ; ┆
0x11f20…11f40 72 65 61 6c 20 70 72 6f 63 65 64 75 72 65 20 70 72 69 6b 28 6d 2c 41 2c 42 29 3b 0a 20 20 20 20 ┆real procedure prik(m,A,B); ┆
0x11f40…11f60 20 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 76 61 6c 75 65 20 6d 3b ┆ 0 ; value m;┆
0x11f60…11f80 20 69 6e 74 65 67 65 72 20 6d 3b 20 61 72 72 61 79 20 41 2c 42 3b 0a 20 20 20 20 20 20 34 3c 31 ┆ integer m; array A,B; 4<1┆
0x11f80…11fa0 32 2b 65 30 2d 65 33 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 31 3c 31 32 2b 30 20 20 ┆2+e0-e3 ; 1<12+0 ┆
0x11fa0…11fc0 20 20 20 20 20 20 20 20 20 20 20 3b 0a 70 2e 20 20 20 20 3c 3a 69 6e 73 65 72 74 70 72 6f 63 78 ┆ ; p. <:insertprocx┆
0x11fc0…11fe0 3a 3e 20 20 20 20 3b 0a 65 2e 0a 19 00 20 20 3b 20 65 6e 64 20 72 65 67 69 73 74 65 72 20 65 78 ┆:> ; e. ; end register ex┆
0x11fe0…12000 70 72 65 73 73 69 6f 6e 3b 0a 0a 68 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆pression; h. ┆
0x12000…12020 (32,) 6d 65 73 73 61 67 65 20 66 66 74 69 70 6f 77 0a 0a 28 66 66 74 69 70 6f 77 3d 73 6c 61 6e 67 20 ┆message fftipow (fftipow=slang ┆
0x12020…12040 66 70 6e 61 6d 65 73 20 74 79 70 65 2e 79 65 73 20 69 6e 73 65 72 74 70 72 6f 63 20 65 6e 74 72 ┆fpnames type.yes insertproc entr┆
0x12040…12060 79 2e 6e 6f 0a 66 66 74 69 70 6f 77 29 0a 0a 3b 20 38 2d 31 30 2d 37 34 20 6f 6a 68 2f 72 6d 0a ┆y.no fftipow) ; 8-10-74 ojh/rm ┆
0x12060…12080 3b 20 70 6f 77 65 72 73 70 65 63 74 72 75 6d 20 6f 66 20 69 6e 74 65 67 65 72 20 64 61 74 61 0a ┆; powerspectrum of integer data ┆
0x12080…120a0 0a 62 2e 20 67 31 2c 65 33 20 77 2e 0a 0a 6b 3d 31 30 30 30 30 0a 0a 73 2e 20 67 36 2c 6a 34 30 ┆ b. g1,e3 w. k=10000 s. g6,j40┆
0x120a0…120c0 2c 61 33 30 2c 62 31 30 0a 68 2e 0a 67 30 3d 30 0a 65 32 3a 0a 67 31 3a 20 20 67 33 2c 67 32 0a ┆,a30,b10 h. g0=0 e2: g1: g3,g2 ┆
0x120c0…120e0 6a 31 33 3a 20 67 30 2b 31 33 2c 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 6c ┆j13: g0+13,0 ; l┆
0x120e0…12100 61 73 74 20 75 73 65 64 0a 6a 33 30 3a 20 67 30 2b 33 30 2c 30 20 20 20 20 20 20 20 20 20 20 20 ┆ast used j30: g0+30,0 ┆
0x12100…12120 20 20 20 20 20 20 3b 20 73 61 76 65 64 20 73 72 2c 77 33 0a 6a 38 3a 20 20 67 30 2b 38 2c 30 20 ┆ ; saved sr,w3 j8: g0+8,0 ┆
0x12120…12140 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 65 6e 64 20 61 64 64 72 65 73 73 20 65 ┆ ; end address e┆
0x12140…12160 78 70 72 0a 6a 34 3a 20 20 67 30 2b 34 2c 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆xpr j4: g0+4,0 ┆
0x12160…12180 20 3b 20 74 61 6b 65 20 65 78 70 72 0a 6a 31 38 3a 20 67 30 2b 31 38 2c 30 20 20 20 20 20 20 20 ┆ ; take expr j18: g0+18,0 ┆
0x12180…121a0 20 20 20 20 20 20 20 20 20 20 3b 20 7a 6f 6e 65 20 61 6c 61 72 6d 20 28 69 6e 64 65 78 29 0a 67 ┆ ; zone alarm (index) g┆
0x121a0…121c0 32 3d 6b 2d 32 2d 67 31 2c 20 67 33 3d 67 32 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 65 6e ┆2=k-2-g1, g3=g2 ; en┆
0x121c0…121e0 64 20 6f 66 20 61 62 73 20 77 6f 72 64 73 2c 70 6f 69 6e 74 73 0a 77 2e 0a 61 31 33 3a 20 65 30 ┆d of abs words,points w. a13: e0┆
0x121e0…12200 3a 20 20 20 20 20 67 30 0a 61 31 34 3a 20 20 20 20 20 20 20 20 20 30 0a 61 31 31 3a 20 20 20 35 ┆: g0 a14: 0 a11: 5┆
0x12200…12220 20 31 30 20 37 34 0a 61 31 32 3a 20 20 31 36 20 30 30 20 30 30 0a 65 31 3a 20 20 72 6c 2e 20 77 ┆ 10 74 a12: 16 00 00 e1: rl. w┆
0x12220…12240 32 20 28 6a 31 33 2e 29 0a 20 20 20 20 20 64 73 2e 20 77 33 20 28 6a 33 30 2e 29 0a 20 20 20 20 ┆2 (j13.) ds. w3 (j30.) ┆
0x12240…12260 20 64 6c 20 20 77 31 20 20 78 32 2b 38 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 74 61 6b 65 20 ┆ dl w1 x2+8 ; take ┆
0x12260…12280 6d 0a 20 20 20 20 20 73 6f 20 20 77 30 20 20 31 36 0a 20 20 20 20 20 6a 6c 2e 20 77 33 20 28 6a ┆m so w0 16 jl. w3 (j┆
0x12280…122a0 34 2e 29 0a 20 20 20 20 20 64 73 2e 20 77 33 20 28 6a 33 30 2e 29 0a 20 20 20 20 20 64 6c 20 20 ┆4.) ds. w3 (j30.) dl ┆
0x122a0…122c0 77 31 20 20 78 31 0a 20 20 20 20 20 72 6c 20 20 77 33 20 20 78 32 2b 36 0a 20 20 20 20 20 73 7a ┆w1 x1 rl w3 x2+6 sz┆
0x122c0…122e0 20 20 77 33 20 20 20 31 0a 20 20 20 20 20 63 66 20 20 77 31 20 20 20 30 20 20 20 20 20 20 20 20 ┆ w3 1 cf w1 0 ┆
0x122e0…12300 20 20 20 20 20 20 3b 20 77 31 3d 6d 0a 20 20 20 20 20 73 68 20 20 77 31 20 20 31 33 20 20 20 20 ┆ ; w1=m sh w1 13 ┆
0x12300…12320 20 20 20 20 20 20 20 20 20 20 3b 20 69 66 20 6d 3e 31 33 20 6f 72 0a 20 20 20 20 20 73 68 20 20 ┆ ; if m>13 or sh ┆
0x12320…12340 77 31 20 20 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 6d 3c 3d 30 20 74 68 65 6e 0a ┆w1 0 ; m<=0 then ┆
0x12340…12360 20 20 20 20 20 6a 6c 2e 20 77 33 20 28 6a 31 38 2e 29 20 20 20 20 20 20 20 20 20 20 20 3b 20 61 ┆ jl. w3 (j18.) ; a┆
0x12360…12380 6c 61 72 6d 20 69 6e 64 65 78 20 3c 6d 3e 0a 20 20 20 20 20 61 63 20 20 77 33 20 20 78 31 2d 32 ┆larm index <m> ac w3 x1-2┆
0x12380…123a0 34 0a 20 20 20 20 20 61 6c 20 20 77 30 20 20 2d 31 0a 20 20 20 20 20 6c 73 20 20 77 30 20 20 78 ┆4 al w0 -1 ls w0 x┆
0x123a0…123c0 33 0a 20 20 20 20 20 72 73 2e 20 77 30 20 20 61 33 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 3b ┆3 rs. w0 a3. ;┆
0x123c0…123e0 20 61 33 3a 20 6d 20 6f 6e 65 73 2c 20 32 34 2d 6d 20 7a 65 72 6f 65 73 0a 20 20 20 20 20 61 6c ┆ a3: m ones, 24-m zeroes al┆
0x123e0…12400 20 20 77 33 20 20 20 31 0a 20 20 20 20 20 61 73 20 20 77 33 20 20 78 31 0a 20 20 20 20 20 61 6c ┆ w3 1 as w3 x1 al┆
0x12400…12420 20 20 77 31 20 20 78 33 2b 31 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 31 3a 3d 32 2a 2a 6d ┆ w1 x3+1 ; w1:=2**m┆
0x12420…12440 2b 31 0a 20 20 20 20 20 72 6c 20 20 77 33 20 20 78 32 2b 31 32 20 20 20 20 20 20 20 20 20 20 20 ┆+1 rl w3 x2+12 ┆
0x12440…12460 3b 20 74 61 6b 65 20 61 72 72 61 79 0a 20 20 20 20 20 72 6c 20 20 77 30 20 20 78 33 0a 20 20 20 ┆; take array rl w0 x3 ┆
0x12460…12480 20 20 62 61 20 20 77 33 20 20 78 32 2b 31 30 0a 20 20 20 20 20 77 61 20 20 77 30 20 20 78 33 0a ┆ ba w3 x2+10 wa w0 x3 ┆
0x12480…124a0 20 20 20 20 20 77 61 2e 20 77 30 20 20 61 32 35 2e 0a 20 20 20 20 20 72 73 2e 20 77 30 20 20 61 ┆ wa. w0 a25. rs. w0 a┆
0x124a0…124c0 30 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 61 30 3a 3d 61 64 64 72 65 73 73 20 52 28 30 ┆0. ; a0:=address R(0┆
0x124c0…124e0 29 0a 20 20 20 20 20 62 61 2e 20 77 30 20 20 61 32 36 2e 0a 20 20 20 20 20 72 73 2e 20 77 30 20 ┆) ba. w0 a26. rs. w0 ┆
0x124e0…12500 20 61 31 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 61 31 3a 3d 61 64 64 72 65 73 73 20 52 ┆ a1. ; a1:=address R┆
0x12500…12520 28 31 29 0a 20 20 20 20 20 72 6c 20 20 77 30 20 20 78 33 2d 32 20 20 20 20 20 20 20 20 20 20 20 ┆(1) rl w0 x3-2 ┆
0x12520…12540 20 3b 20 69 6e 64 65 78 20 63 68 65 63 6b 0a 20 20 20 20 20 77 73 20 20 77 30 20 20 78 33 0a 20 ┆ ; index check ws w0 x3 ┆
0x12540…12560 20 20 20 20 61 73 20 20 77 30 20 20 2d 31 0a 20 20 20 20 20 73 68 20 20 77 30 20 20 78 31 20 20 ┆ as w0 -1 sh w0 x1 ┆
0x12560…12580 20 20 20 20 20 20 20 20 20 20 20 20 3b 69 66 20 6e 6f 74 20 32 2a 2a 6d 2b 31 20 65 6c 65 6d 65 ┆ ;if not 2**m+1 eleme┆
0x12580…125a0 6e 74 73 0a 20 20 20 20 20 6a 6c 2e 20 77 33 20 28 6a 31 38 2e 29 20 20 20 20 20 20 20 20 20 20 ┆nts jl. w3 (j18.) ┆
0x125a0…125c0 20 3b 20 61 6c 61 72 6d 20 69 6e 64 65 78 20 3c 32 2a 2a 6d 2b 31 3e 0a 20 20 20 20 20 61 6c 20 ┆ ; alarm index <2**m+1> al ┆
0x125c0…125e0 20 77 31 20 20 78 31 2d 32 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 31 3a 3d 32 2a 2a 6d 2d ┆ w1 x1-2 ; w1:=2**m-┆
0x125e0…12600 31 0a 20 20 20 20 20 72 73 2e 20 77 31 20 20 61 34 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 3b ┆1 rs. w1 a4. ;┆
0x12600…12620 20 61 34 3a 3d 32 2a 2a 6d 2d 31 0a 20 20 20 20 20 77 61 20 20 77 31 20 20 20 33 20 20 20 20 20 ┆ a4:=2**m-1 wa w1 3 ┆
0x12620…12640 20 20 20 20 20 20 20 20 20 3b 20 77 31 3a 3d 32 2a 28 32 2a 2a 6d 2d 31 29 0a 20 20 20 20 20 77 ┆ ; w1:=2*(2**m-1) w┆
0x12640…12660 61 2e 20 77 31 20 20 61 30 2e 0a 20 20 20 20 20 72 73 2e 20 77 31 20 20 61 32 2e 20 20 20 20 20 ┆a. w1 a0. rs. w1 a2. ┆
0x12660…12680 20 20 20 20 20 20 20 20 3b 20 61 32 3a 3d 61 64 64 72 20 52 28 32 2a 2a 6d 2d 31 29 0a 20 20 20 ┆ ; a2:=addr R(2**m-1) ┆
0x12680…126a0 20 20 61 6c 20 20 77 31 20 20 20 31 0a 62 37 3a 20 20 72 73 2e 20 77 31 20 20 61 35 2e 20 20 20 ┆ al w1 1 b7: rs. w1 a5. ┆
0x126a0…126c0 20 20 20 20 20 20 20 20 20 20 3b 20 61 35 3a 3d 6c 3a 3d 31 0a 20 20 20 20 20 72 6c 2e 20 77 33 ┆ ; a5:=l:=1 rl. w3┆
0x126c0…126e0 20 20 61 33 2e 0a 62 30 3a 20 20 6c 64 20 20 77 32 20 20 2d 31 0a 20 20 20 20 20 61 6c 20 20 77 ┆ a3. b0: ld w2 -1 al w┆
0x126e0…12700 30 20 20 78 32 0a 20 20 20 20 20 6c 64 20 20 77 30 20 20 20 31 0a 20 20 20 20 20 73 68 20 20 77 ┆0 x2 ld w0 1 sh w┆
0x12700…12720 33 20 20 2d 31 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 62 30 2e 0a 20 20 20 20 20 72 6c 2e 20 ┆3 -1 jl. b0. rl. ┆
0x12720…12740 77 32 20 20 61 35 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 33 3a 3d 62 69 74 72 65 76 ┆w2 a5. ; w3:=bitrev┆
0x12740…12760 65 72 73 65 28 6c 29 3b 20 77 32 3a 3d 6c 0a 20 20 20 20 20 73 6c 20 20 77 32 20 20 78 33 20 20 ┆erse(l); w2:=l sl w2 x3 ┆
0x12760…12780 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 66 20 6c 3e 3d 62 69 74 72 65 76 65 72 73 65 28 6c ┆ ; if l>=bitreverse(l┆
0x12780…127a0 29 20 74 68 65 6e 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 62 31 2e 20 20 20 20 20 20 20 20 20 ┆) then jl. b1. ┆
0x127a0…127c0 20 20 20 20 3b 20 6e 6f 20 65 78 63 68 61 6e 67 65 0a 20 20 20 20 20 6c 64 20 20 77 33 20 20 20 ┆ ; no exchange ld w3 ┆
0x127c0…127e0 31 0a 20 20 20 20 20 77 61 2e 20 77 32 20 20 61 30 2e 0a 20 20 20 20 20 77 61 2e 20 77 33 20 20 ┆1 wa. w2 a0. wa. w3 ┆
0x127e0…12800 61 30 2e 0a 20 20 20 20 20 72 6c 20 20 77 30 20 20 78 33 0a 20 20 20 20 20 72 78 20 20 77 30 20 ┆a0. rl w0 x3 rx w0 ┆
0x12800…12820 20 78 32 0a 20 20 20 20 20 72 73 20 20 77 30 20 20 78 33 0a 62 31 3a 20 20 72 6c 2e 20 77 31 20 ┆ x2 rs w0 x3 b1: rl. w1 ┆
0x12820…12840 20 61 35 2e 0a 20 20 20 20 20 61 6c 20 20 77 31 20 20 78 31 2b 31 0a 20 20 20 20 20 73 68 2e 20 ┆ a5. al w1 x1+1 sh. ┆
0x12840…12860 77 31 20 28 61 34 2e 29 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 62 37 2e 0a 20 20 20 20 20 61 ┆w1 (a4.) jl. b7. a┆
0x12860…12880 6c 2e 20 77 32 20 20 61 32 32 2e 0a 20 20 20 20 20 61 6c 2e 20 77 31 20 20 61 32 33 2e 0a 20 20 ┆l. w2 a22. al. w1 a23. ┆
0x12880…128a0 20 20 20 64 73 2e 20 77 32 20 20 61 32 30 2e 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 6e 69 ┆ ds. w2 a20. ; ini┆
0x128a0…128c0 74 20 73 32 76 20 61 64 64 72 2c 20 63 32 76 20 61 64 64 72 0a 20 20 20 20 20 61 6c 20 20 77 31 ┆t s2v addr, c2v addr al w1┆
0x128c0…128e0 20 20 20 31 0a 20 20 20 20 20 61 6c 20 20 77 32 20 20 20 32 0a 61 32 36 3d 6b 2d 31 0a 20 20 20 ┆ 1 al w2 2 a26=k-1 ┆
0x128e0…12900 20 20 64 73 2e 20 77 32 20 20 61 35 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 6e 69 74 ┆ ds. w2 a5. ; init┆
0x12900…12920 (33,) 20 70 2c 71 20 28 31 2c 31 2f 32 29 0a 20 20 20 20 20 61 6c 20 20 77 32 20 20 20 34 0a 20 20 20 ┆ p,q (1,1/2) al w2 4 ┆
0x12920…12940 20 20 61 6c 20 20 77 33 20 20 20 34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 6e 69 74 ┆ al w3 4 ; init┆
0x12940…12960 20 70 70 20 28 32 29 0a 62 36 3a 20 20 64 73 2e 20 77 33 20 20 61 33 2e 20 20 20 20 20 20 20 20 ┆ pp (2) b6: ds. w3 a3. ┆
0x12960…12980 20 20 20 20 20 3b 20 73 74 6f 72 65 20 70 70 0a 20 20 20 20 20 64 6c 2e 20 77 33 20 20 61 30 2e ┆ ; store pp dl. w3 a0.┆
0x12980…129a0 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 32 3a 3d 61 64 64 72 20 52 28 70 29 2c 77 33 3a ┆ ; w2:=addr R(p),w3:┆
0x129a0…129c0 3d 61 64 64 72 20 52 28 30 29 0a 62 35 3a 20 20 72 6c 20 20 77 31 20 20 78 33 20 20 20 20 20 20 ┆=addr R(0) b5: rl w1 x3 ┆
0x129c0…129e0 20 20 20 20 20 20 20 20 3b 20 77 31 3a 3d 52 28 69 29 0a 20 20 20 20 20 61 6c 20 20 77 30 20 20 ┆ ; w1:=R(i) al w0 ┆
0x129e0…12a00 78 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 30 3a 3d 52 28 69 29 0a 20 20 20 20 20 ┆x1 ; w0:=R(i) ┆
0x12a00…12a20 77 61 20 20 77 30 20 20 78 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 30 3a 3d 52 28 ┆wa w0 x2 ; w0:=R(┆
0x12a20…12a40 69 29 2b 52 28 69 2b 70 29 0a 20 20 20 20 20 77 73 20 20 77 31 20 20 78 32 20 20 20 20 20 20 20 ┆i)+R(i+p) ws w1 x2 ┆
0x12a40…12a60 20 20 20 20 20 20 20 3b 20 77 31 3a 3d 52 28 69 29 2d 52 28 69 2b 70 29 0a 20 20 20 20 20 72 73 ┆ ; w1:=R(i)-R(i+p) rs┆
0x12a60…12a80 20 20 77 30 20 20 78 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 52 28 69 29 3a 3d 77 30 ┆ w0 x3 ; R(i):=w0┆
0x12a80…12aa0 0a 20 20 20 20 20 72 73 20 20 77 31 20 20 78 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 ┆ rs w1 x2 ; ┆
0x12aa0…12ac0 52 28 69 2b 70 29 3a 3d 77 31 0a 20 20 20 20 20 61 61 2e 20 77 33 20 20 61 33 2e 20 20 20 20 20 ┆R(i+p):=w1 aa. w3 a3. ┆
0x12ac0…12ae0 20 20 20 20 20 20 20 20 3b 20 22 69 22 3a 3d 22 69 22 2b 70 70 2c 20 22 69 2b 70 22 3a 3d 22 69 ┆ ; "i":="i"+pp, "i+p":="i┆
0x12ae0…12b00 2b 70 22 2b 70 70 0a 20 20 20 20 20 73 68 2e 20 77 32 20 28 61 32 2e 29 20 20 20 20 20 20 20 20 ┆+p"+pp sh. w2 (a2.) ┆
0x12b00…12b20 20 20 20 20 3b 20 69 66 20 61 64 64 72 20 52 28 69 2b 70 29 3c 61 64 64 72 20 52 28 32 2a 2a 6d ┆ ; if addr R(i+p)<addr R(2**m┆
0x12b20…12b40 2d 31 29 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 62 35 2e 20 20 20 20 20 20 20 20 20 20 20 20 ┆-1) jl. b5. ┆
0x12b40…12b60 20 3b 20 74 68 65 6e 20 6e 65 78 74 20 73 74 65 70 0a 20 20 20 20 20 64 6c 2e 20 77 31 20 28 61 ┆ ; then next step dl. w1 (a┆
0x12b60…12b80 32 31 2e 29 0a 20 20 20 20 20 64 73 2e 20 77 31 20 20 61 31 38 2e 20 20 20 20 20 20 20 20 20 20 ┆21.) ds. w1 a18. ┆
0x12b80…12ba0 20 20 3b 20 61 31 37 20 61 31 38 3a 3d 63 32 76 0a 20 20 20 20 20 64 6c 2e 20 77 31 20 28 61 32 ┆ ; a17 a18:=c2v dl. w1 (a2┆
0x12ba0…12bc0 30 2e 29 0a 20 20 20 20 20 64 73 2e 20 77 31 20 20 61 31 36 2e 20 20 20 20 20 20 20 20 20 20 20 ┆0.) ds. w1 a16. ┆
0x12bc0…12be0 20 3b 20 61 31 35 20 61 31 36 3a 3d 73 32 76 0a 20 20 20 20 20 61 6c 20 20 77 32 20 20 20 32 20 ┆ ; a15 a16:=s2v al w2 2 ┆
0x12be0…12c00 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 6e 3a 3d 31 0a 62 33 3a 20 20 73 6c 2e 20 77 32 20 ┆ ; n:=1 b3: sl. w2 ┆
0x12c00…12c20 28 61 31 39 2e 29 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 66 20 6e 3d 71 20 74 68 65 6e 0a 20 ┆(a19.) ; if n=q then ┆
0x12c20…12c40 20 20 20 20 6a 6c 2e 20 20 20 20 20 62 34 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 74 68 ┆ jl. b4. ; th┆
0x12c40…12c60 65 6e 20 67 6f 74 6f 20 6e 65 78 74 20 6c 2d 73 74 65 70 0a 20 20 20 20 20 72 73 2e 20 77 32 20 ┆en goto next l-step rs. w2 ┆
0x12c60…12c80 20 61 34 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 73 74 6f 72 65 20 6e 0a 20 20 20 20 20 ┆ a4. ; store n ┆
0x12c80…12ca0 61 63 20 20 77 31 20 20 78 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 31 3a 3d 2d 6e ┆ac w1 x2 ; w1:=-n┆
0x12ca0…12cc0 0a 20 20 20 20 20 61 61 2e 20 77 32 20 20 61 30 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 ┆ aa. w2 a0. ; ┆
0x12cc0…12ce0 61 37 3a 3d 61 64 64 72 20 52 28 70 2b 6e 29 0a 20 20 20 20 20 64 73 2e 20 77 32 20 20 61 37 2e ┆a7:=addr R(p+n) ds. w2 a7.┆
0x12ce0…12d00 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 61 38 3a 3d 61 64 64 72 20 52 28 70 2d 6e 29 0a 20 ┆ ; a8:=addr R(p-n) ┆
0x12d00…12d20 20 20 20 20 77 61 2e 20 77 31 20 20 61 35 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 61 39 ┆ wa. w1 a5. ; a9┆
0x12d20…12d40 3a 3d 61 64 64 72 20 52 28 70 2b 6e 29 0a 20 20 20 20 20 77 61 2e 20 77 32 20 20 61 35 2e 20 20 ┆:=addr R(p+n) wa. w2 a5. ┆
0x12d40…12d60 20 20 20 20 20 20 20 20 20 20 20 3b 20 61 31 30 3a 3d 61 64 64 72 20 52 28 70 2b 70 2d 6e 29 0a ┆ ; a10:=addr R(p+p-n) ┆
0x12d60…12d80 62 32 3a 20 20 64 73 2e 20 77 32 20 20 61 39 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 73 ┆b2: ds. w2 a9. ; s┆
0x12d80…12da0 74 6f 72 65 20 61 64 64 72 20 52 28 69 2b 70 29 20 52 28 6a 2b 70 29 0a 20 20 20 20 20 72 6c 20 ┆tore addr R(i+p) R(j+p) rl ┆
0x12da0…12dc0 20 77 31 20 20 78 31 0a 20 20 20 20 20 63 69 20 20 77 31 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ w1 x1 ci w1 ┆
0x12dc0…12de0 20 20 20 20 20 3b 20 66 6c 6f 61 74 20 52 28 69 2b 70 29 0a 20 20 20 20 20 64 73 2e 20 77 31 20 ┆ ; float R(i+p) ds. w1 ┆
0x12de0…12e00 20 61 31 34 2e 0a 20 20 20 20 20 72 6c 20 20 77 33 20 20 78 32 0a 20 20 20 20 20 63 69 20 20 77 ┆ a14. rl w3 x2 ci w┆
0x12e00…12e20 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 66 6c 6f 61 74 20 52 28 6a 2b 70 ┆3 ; float R(j+p┆
0x12e20…12e40 29 0a 20 20 20 20 20 64 73 2e 20 77 33 20 20 61 31 32 2e 0a 20 20 20 20 20 66 6d 2e 20 77 33 20 ┆) ds. w3 a12. fm. w3 ┆
0x12e40…12e60 20 61 31 38 2e 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 32 77 33 3a 3d 52 28 69 2b 70 29 2a ┆ a18. ; w2w3:=R(i+p)*┆
0x12e60…12e80 63 0a 20 20 20 20 20 66 6d 2e 20 77 31 20 20 61 31 36 2e 20 20 20 20 20 20 20 20 20 20 20 20 3b ┆c fm. w1 a16. ;┆
0x12e80…12ea0 20 77 30 77 31 3a 3d 52 28 6a 2b 70 29 2a 73 0a 20 20 20 20 20 66 73 20 20 77 33 20 20 20 33 20 ┆ w0w1:=R(j+p)*s fs w3 3 ┆
0x12ea0…12ec0 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 32 77 33 3a 3d 72 65 3a 3d 52 28 69 2b 70 29 2a ┆ ; w2w3:=re:=R(i+p)*┆
0x12ec0…12ee0 63 2d 52 28 6a 2b 70 29 2a 73 0a 20 20 20 20 20 63 66 20 20 77 33 0a 20 20 20 20 20 64 6c 2e 20 ┆c-R(j+p)*s cf w3 dl. ┆
0x12ee0…12f00 77 31 20 20 61 31 34 2e 0a 20 20 20 20 20 72 73 2e 20 77 33 20 20 61 31 34 2e 20 20 20 20 20 20 ┆w1 a14. rs. w3 a14. ┆
0x12f00…12f20 20 20 20 20 20 20 3b 20 61 31 34 3a 3d 72 65 0a 20 20 20 20 20 66 6d 2e 20 77 31 20 20 61 31 38 ┆ ; a14:=re fm. w1 a18┆
0x12f20…12f40 2e 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 30 77 31 3a 3d 52 28 6a 2b 70 29 2a 63 0a 20 20 ┆. ; w0w1:=R(j+p)*c ┆
0x12f40…12f60 20 20 20 64 6c 2e 20 77 33 20 20 61 31 32 2e 0a 20 20 20 20 20 66 6d 2e 20 77 33 20 20 61 31 36 ┆ dl. w3 a12. fm. w3 a16┆
0x12f60…12f80 2e 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 32 77 33 3a 3d 52 28 69 2b 70 29 2a 73 0a 20 20 ┆. ; w2w3:=R(i+p)*s ┆
0x12f80…12fa0 20 20 20 66 61 20 20 77 33 20 20 20 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 32 77 ┆ fa w3 3 ; w2w┆
0x12fa0…12fc0 33 3a 3d 69 6d 3a 3d 52 28 69 2b 70 29 2a 73 2b 52 28 6a 2b 70 29 2a 63 0a 20 20 20 20 20 63 66 ┆3:=im:=R(i+p)*s+R(j+p)*c cf┆
0x12fc0…12fe0 20 20 77 33 0a 20 20 20 20 20 61 6c 20 20 77 30 20 20 78 33 0a 20 20 20 20 20 77 73 2e 20 77 30 ┆ w3 al w0 x3 ws. w0┆
0x12fe0…13000 20 28 61 38 2e 29 0a 20 20 20 20 20 77 61 2e 20 77 33 20 28 61 38 2e 29 0a 20 20 20 20 20 72 73 ┆ (a8.) wa. w3 (a8.) rs┆
0x13000…13020 2e 20 77 30 20 28 61 39 2e 29 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 52 28 69 2b 70 29 3a 3d ┆. w0 (a9.) ; R(i+p):=┆
0x13020…13040 2d 52 28 6a 29 2b 69 6d 0a 20 20 20 20 20 72 73 2e 20 77 33 20 28 61 31 30 2e 29 20 20 20 20 20 ┆-R(j)+im rs. w3 (a10.) ┆
0x13040…13060 20 20 20 20 20 20 3b 20 52 28 6a 2b 70 29 3a 3d 52 28 6a 29 2b 69 6d 0a 20 20 20 20 20 72 6c 2e ┆ ; R(j+p):=R(j)+im rl.┆
0x13060…13080 20 77 31 20 20 61 31 34 2e 0a 20 20 20 20 20 61 63 20 20 77 30 20 20 78 31 0a 20 20 20 20 20 77 ┆ w1 a14. ac w0 x1 w┆
0x13080…130a0 61 2e 20 77 30 20 28 61 37 2e 29 0a 20 20 20 20 20 77 61 2e 20 77 31 20 28 61 37 2e 29 0a 20 20 ┆a. w0 (a7.) wa. w1 (a7.) ┆
0x130a0…130c0 20 20 20 72 73 2e 20 77 30 20 28 61 38 2e 29 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 52 28 6a ┆ rs. w0 (a8.) ; R(j┆
0x130c0…130e0 29 3a 3d 52 28 69 29 2d 72 65 0a 20 20 20 20 20 72 73 2e 20 77 31 20 28 61 37 2e 29 20 20 20 20 ┆):=R(i)-re rs. w1 (a7.) ┆
0x130e0…13100 20 20 20 20 20 20 20 20 3b 20 52 28 69 29 3a 3d 52 28 69 29 2b 72 65 0a 20 20 20 20 20 64 6c 2e ┆ ; R(i):=R(i)+re dl.┆
0x13100…13120 20 77 32 20 20 61 37 2e 0a 20 20 20 20 20 61 61 2e 20 77 32 20 20 61 33 2e 0a 20 20 20 20 20 64 ┆ w2 a7. aa. w2 a3. d┆
0x13120…13140 73 2e 20 77 32 20 20 61 37 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 22 69 22 3a 3d 22 69 ┆s. w2 a7. ; "i":="i┆
0x13140…13160 22 2b 70 70 3b 20 22 6a 22 3a 3d 22 6a 22 2b 70 70 0a 20 20 20 20 20 64 6c 2e 20 77 32 20 20 61 ┆"+pp; "j":="j"+pp dl. w2 a┆
0x13160…13180 39 2e 0a 20 20 20 20 20 61 61 2e 20 77 32 20 20 61 33 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆9. aa. w2 a3. ┆
0x13180…131a0 3b 20 22 69 2b 70 22 3a 3d 22 69 2b 70 22 2b 70 70 3b 20 22 6a 2b 70 22 3a 3d 22 6a 2b 70 22 2b ┆; "i+p":="i+p"+pp; "j+p":="j+p"+┆
0x131a0…131c0 70 70 0a 20 20 20 20 20 73 68 2e 20 77 31 20 28 61 32 2e 29 20 20 20 20 20 20 20 20 20 20 20 20 ┆pp sh. w1 (a2.) ┆
0x131c0…131e0 3b 20 69 66 20 61 64 64 72 20 52 28 6a 2b 70 29 3c 3d 61 64 64 72 20 52 28 32 2a 2a 6d 2d 31 29 ┆; if addr R(j+p)<=addr R(2**m-1)┆
0x131e0…13200 20 74 68 65 6e 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 62 32 2e 20 20 20 20 20 20 20 20 20 20 ┆ then jl. b2. ┆
0x13200…13220 (34,) 20 20 20 3b 20 67 6f 74 6f 20 6e 65 78 74 20 73 74 65 70 0a 20 20 20 20 20 64 6c 2e 20 77 31 20 ┆ ; goto next step dl. w1 ┆
0x13220…13240 20 61 31 36 2e 0a 20 20 20 20 20 66 6d 2e 20 77 31 20 28 61 32 30 2e 29 20 20 20 20 20 20 20 20 ┆ a16. fm. w1 (a20.) ┆
0x13240…13260 20 20 20 3b 20 77 30 77 31 3a 3d 73 2a 73 32 76 0a 20 20 20 20 20 64 6c 2e 20 77 33 20 20 61 31 ┆ ; w0w1:=s*s2v dl. w3 a1┆
0x13260…13280 38 2e 0a 20 20 20 20 20 66 6d 2e 20 77 33 20 28 61 32 31 2e 29 20 20 20 20 20 20 20 20 20 20 20 ┆8. fm. w3 (a21.) ┆
0x13280…132a0 3b 20 77 32 77 33 3a 3d 63 2a 63 32 76 0a 20 20 20 20 20 66 73 20 20 77 33 20 20 20 33 0a 20 20 ┆; w2w3:=c*c2v fs w3 3 ┆
0x132a0…132c0 20 20 20 72 78 2e 20 77 33 20 20 61 31 38 2e 0a 20 20 20 20 20 72 78 2e 20 77 32 20 20 61 31 37 ┆ rx. w3 a18. rx. w2 a17┆
0x132c0…132e0 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 63 3a 3d 63 2a 63 32 76 2d 73 2a 73 32 76 0a 20 ┆. ; c:=c*c2v-s*s2v ┆
0x132e0…13300 20 20 20 20 66 6d 2e 20 77 33 20 28 61 32 30 2e 29 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 ┆ fm. w3 (a20.) ; w┆
0x13300…13320 32 77 33 3a 3d 63 2a 73 32 76 0a 20 20 20 20 20 64 6c 2e 20 77 31 20 20 61 31 36 2e 0a 20 20 20 ┆2w3:=c*s2v dl. w1 a16. ┆
0x13320…13340 20 20 66 6d 2e 20 77 31 20 28 61 32 31 2e 29 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 30 77 31 ┆ fm. w1 (a21.) ; w0w1┆
0x13340…13360 3a 3d 73 2a 63 32 76 0a 20 20 20 20 20 66 61 20 20 77 33 20 20 20 33 0a 20 20 20 20 20 64 73 2e ┆:=s*c2v fa w3 3 ds.┆
0x13360…13380 20 77 33 20 20 61 31 36 2e 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 73 3a 3d 63 2a 73 32 76 2b ┆ w3 a16. ; s:=c*s2v+┆
0x13380…133a0 73 2a 63 32 76 0a 20 20 20 20 20 72 6c 2e 20 77 32 20 20 61 34 2e 0a 20 20 20 20 20 61 6c 20 20 ┆s*c2v rl. w2 a4. al ┆
0x133a0…133c0 77 32 20 20 78 32 2b 32 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 62 33 2e 0a 62 34 3a 20 20 64 ┆w2 x2+2 jl. b3. b4: d┆
0x133c0…133e0 6c 2e 20 77 33 20 20 61 32 30 2e 0a 20 20 20 20 20 61 61 2e 20 77 33 20 20 61 32 35 2e 0a 20 20 ┆l. w3 a20. aa. w3 a25. ┆
0x133e0…13400 20 20 20 64 73 2e 20 77 33 20 20 61 32 30 2e 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 6e 65 77 ┆ ds. w3 a20. ; new┆
0x13400…13420 20 61 64 64 72 20 73 32 76 20 63 32 76 0a 20 20 20 20 20 72 6c 2e 20 77 31 20 20 61 35 2e 0a 20 ┆ addr s2v c2v rl. w1 a5. ┆
0x13420…13440 20 20 20 20 64 6c 2e 20 77 33 20 20 61 33 2e 0a 20 20 20 20 20 64 73 2e 20 77 32 20 20 61 35 2e ┆ dl. w3 a3. ds. w2 a5.┆
0x13440…13460 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 6e 65 77 20 70 2c 71 0a 20 20 20 20 20 61 64 20 20 ┆ ; new p,q ad ┆
0x13460…13480 77 33 20 20 20 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 6e 65 77 20 70 70 0a 20 20 20 ┆w3 1 ; new pp ┆
0x13480…134a0 20 20 77 61 2e 20 77 31 20 20 61 31 2e 0a 20 20 20 20 20 72 73 2e 20 77 31 20 20 61 31 2e 20 20 ┆ wa. w1 a1. rs. w1 a1. ┆
0x134a0…134c0 20 20 20 20 20 20 20 20 20 20 20 3b 20 6e 65 77 20 61 64 64 72 20 52 28 70 29 0a 20 20 20 20 20 ┆ ; new addr R(p) ┆
0x134c0…134e0 73 68 2e 20 77 31 20 28 61 32 2e 29 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 66 20 61 64 64 ┆sh. w1 (a2.) ; if add┆
0x134e0…13500 72 20 52 28 70 29 3c 3d 61 64 64 72 20 52 28 32 2a 2a 6d 2d 31 29 0a 20 20 20 20 20 6a 6c 2e 20 ┆r R(p)<=addr R(2**m-1) jl. ┆
0x13500…13520 20 20 20 20 62 36 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 74 68 65 6e 20 6e 65 78 74 20 ┆ b6. ; then next ┆
0x13520…13540 73 74 65 70 0a 20 20 20 20 20 61 6c 20 20 77 30 20 20 20 30 0a 20 20 20 20 20 72 6c 2e 20 77 32 ┆step al w0 0 rl. w2┆
0x13540…13560 20 20 61 30 2e 0a 20 20 20 20 20 77 61 2e 20 77 32 20 20 61 31 39 2e 0a 20 20 20 20 20 61 6c 20 ┆ a0. wa. w2 a19. al ┆
0x13560…13580 20 77 32 20 20 78 32 2d 32 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 32 3a 3d 61 64 64 72 ┆ w2 x2-2 ; w2:=addr┆
0x13580…135a0 20 52 28 32 2a 2a 28 6d 2d 31 29 2d 31 29 0a 20 20 20 20 20 61 6c 20 20 77 33 20 20 78 32 2b 36 ┆ R(2**(m-1)-1) al w3 x2+6┆
0x135a0…135c0 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 33 3a 3d 61 64 64 72 20 52 28 32 2a 2a 28 6d 2d ┆ ; w3:=addr R(2**(m-┆
0x135c0…135e0 31 29 2b 32 29 0a 62 39 3a 20 20 72 78 20 20 77 30 20 20 78 32 0a 20 20 20 20 20 72 78 20 20 77 ┆1)+2) b9: rx w0 x2 rx w┆
0x135e0…13600 30 20 20 78 33 0a 20 20 20 20 20 61 61 2e 20 77 33 20 20 61 32 35 2e 0a 20 20 20 20 20 73 6c 2e ┆0 x3 aa. w3 a25. sl.┆
0x13600…13620 20 77 32 20 28 61 30 2e 29 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 66 20 77 32 3e 61 64 ┆ w2 (a0.) ; if w2>ad┆
0x13620…13640 64 72 20 52 28 30 29 20 74 68 65 6e 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 62 39 2e 20 20 20 ┆dr R(0) then jl. b9. ┆
0x13640…13660 20 20 20 20 20 20 20 20 20 20 20 3b 20 6e 65 78 74 20 69 6e 74 65 72 63 68 61 6e 67 65 0a 20 20 ┆ ; next interchange ┆
0x13660…13680 20 20 20 61 6c 20 20 77 30 20 20 20 30 0a 20 20 20 20 20 72 73 20 20 77 30 20 20 78 32 20 20 20 ┆ al w0 0 rs w0 x2 ┆
0x13680…136a0 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 52 28 2d 31 29 3a 3d 30 0a 20 20 20 20 20 72 6c 2e 20 ┆ ; R(-1):=0 rl. ┆
0x136a0…136c0 77 33 20 20 61 30 2e 0a 62 38 3a 20 20 64 6c 20 20 77 32 20 20 78 33 0a 20 20 20 20 20 63 69 20 ┆w3 a0. b8: dl w2 x3 ci ┆
0x136c0…136e0 20 77 31 0a 20 20 20 20 20 66 6d 20 20 77 31 20 20 20 33 0a 20 20 20 20 20 64 73 2e 20 77 31 20 ┆ w1 fm w1 3 ds. w1 ┆
0x136e0…13700 20 61 31 32 2e 0a 20 20 20 20 20 63 69 20 20 77 32 0a 20 20 20 20 20 66 6d 20 20 77 32 20 20 20 ┆ a12. ci w2 fm w2 ┆
0x13700…13720 35 0a 20 20 20 20 20 66 61 2e 20 77 32 20 20 61 31 32 2e 0a 20 20 20 20 20 64 73 20 20 77 32 20 ┆5 fa. w2 a12. ds w2 ┆
0x13720…13740 20 78 33 0a 20 20 20 20 20 61 6c 20 20 77 33 20 20 78 33 2b 34 0a 20 20 20 20 20 73 68 2e 20 77 ┆ x3 al w3 x3+4 sh. w┆
0x13740…13760 33 20 28 61 31 2e 29 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 66 20 77 33 3c 3d 61 64 64 ┆3 (a1.) ; if w3<=add┆
0x13760…13780 72 20 52 28 32 2a 2a 6d 29 20 74 68 65 6e 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 62 38 2e 20 ┆r R(2**m) then jl. b8. ┆
0x13780…137a0 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 6e 65 78 74 20 63 6f 6e 76 65 72 74 0a 20 20 20 20 ┆ ; next convert ┆
0x137a0…137c0 20 6a 6c 2e 20 20 20 20 28 6a 38 2e 29 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 65 78 69 74 ┆ jl. (j8.) ; exit┆
0x137c0…137e0 0a 0a 61 31 3a 20 20 20 20 20 30 20 20 20 3b 20 61 64 64 72 20 52 28 70 29 0a 61 30 3a 20 20 20 ┆ a1: 0 ; addr R(p) a0: ┆
0x137e0…13800 20 20 30 20 20 20 3b 20 61 64 64 72 20 52 28 30 29 0a 61 32 3a 20 20 20 20 20 30 20 20 20 3b 20 ┆ 0 ; addr R(0) a2: 0 ; ┆
0x13800…13820 61 64 64 72 20 52 28 32 2a 2a 6d 2d 31 29 0a 61 36 3a 20 20 20 20 20 30 20 20 20 3b 20 70 70 0a ┆addr R(2**m-1) a6: 0 ; pp ┆
0x13820…13840 61 33 3a 20 20 20 20 20 30 20 20 20 3b 20 70 70 0a 61 34 3a 20 20 20 20 20 30 20 20 20 3b 20 6e ┆a3: 0 ; pp a4: 0 ; n┆
0x13840…13860 0a 61 31 39 3a 20 20 20 20 30 20 20 20 3b 20 71 0a 61 35 3a 20 20 20 20 20 30 20 20 20 3b 20 70 ┆ a19: 0 ; q a5: 0 ; p┆
0x13860…13880 0a 61 38 3a 20 20 20 20 20 30 20 20 20 3b 20 61 64 64 72 20 52 28 6a 29 0a 61 37 3a 20 20 20 20 ┆ a8: 0 ; addr R(j) a7: ┆
0x13880…138a0 20 30 20 20 20 3b 20 61 64 64 72 20 52 28 69 29 0a 61 31 30 3a 20 20 20 20 30 20 20 20 3b 20 61 ┆ 0 ; addr R(i) a10: 0 ; a┆
0x138a0…138c0 64 64 72 20 52 28 6a 2b 70 29 0a 61 39 3a 20 20 20 20 20 30 20 20 20 3b 20 61 64 64 72 20 52 28 ┆ddr R(j+p) a9: 0 ; addr R(┆
0x138c0…138e0 69 2b 70 29 0a 61 31 35 3a 20 20 20 20 30 0a 61 31 36 3a 20 20 20 20 30 20 20 20 3b 20 73 0a 61 ┆i+p) a15: 0 a16: 0 ; s a┆
0x138e0…13900 31 37 3a 20 20 20 20 30 0a 61 31 38 3a 20 20 20 20 30 20 20 20 3b 20 63 0a 61 32 31 3a 20 20 20 ┆17: 0 a18: 0 ; c a21: ┆
0x13900…13920 20 30 20 20 20 3b 20 61 64 64 72 20 63 32 76 0a 61 32 30 3a 20 20 20 20 30 20 20 20 3b 20 61 64 ┆ 0 ; addr c2v a20: 0 ; ad┆
0x13920…13940 64 72 20 73 32 76 0a 61 32 34 3a 20 20 20 2d 34 0a 61 32 35 3a 20 20 20 20 34 0a 66 2e 0a 20 20 ┆dr s2v a24: -4 a25: 4 f. ┆
0x13940…13960 20 20 20 20 30 2e 39 39 39 39 39 39 37 30 35 37 39 32 0a 20 20 20 20 20 20 30 2e 39 39 39 39 39 ┆ 0.999999705792 0.99999┆
0x13960…13980 38 38 32 33 34 35 36 0a 20 20 20 20 20 20 30 2e 39 39 39 39 39 35 32 39 33 37 36 30 0a 20 20 20 ┆8823456 0.999995293760 ┆
0x13980…139a0 20 20 20 30 2e 39 39 39 39 38 31 31 37 35 33 32 38 0a 20 20 20 20 20 20 30 2e 39 39 39 39 32 34 ┆ 0.999981175328 0.999924┆
0x139a0…139c0 37 30 31 38 35 36 0a 20 20 20 20 20 20 30 2e 39 39 39 36 39 38 38 31 38 37 32 30 0a 20 20 20 20 ┆701856 0.999698818720 ┆
0x139c0…139e0 20 20 30 2e 39 39 38 37 39 35 34 35 36 31 39 32 0a 20 20 20 20 20 20 30 2e 39 39 35 31 38 34 37 ┆ 0.998795456192 0.9951847┆
0x139e0…13a00 32 36 37 32 30 0a 61 32 32 3a 20 20 30 2e 39 38 30 37 38 35 32 38 30 34 31 36 0a 20 20 20 20 20 ┆26720 a22: 0.980785280416 ┆
0x13a00…13a20 20 30 2e 39 32 33 38 37 39 35 33 32 35 37 36 0a 20 20 20 20 20 20 30 2e 37 30 37 31 30 36 37 38 ┆ 0.923879532576 0.70710678┆
0x13a20…13a40 31 31 35 32 0a 20 20 20 20 20 20 30 2e 33 38 32 36 38 33 34 33 32 33 36 38 0a 61 32 33 3a 20 20 ┆1152 0.382683432368 a23: ┆
0x13a40…13a60 30 2e 31 39 35 30 39 30 33 32 32 30 30 38 0a 20 20 20 20 20 20 30 2e 39 38 30 31 37 31 34 30 33 ┆0.195090322008 0.980171403┆
0x13a60…13a80 32 39 36 27 2d 31 0a 20 20 20 20 20 20 30 2e 34 39 30 36 37 36 37 34 33 32 34 38 27 2d 31 0a 20 ┆296'-1 0.490676743248'-1 ┆
0x13a80…13aa0 20 20 20 20 20 30 2e 32 34 35 34 31 32 32 38 35 32 32 34 27 2d 31 0a 20 20 20 20 20 20 30 2e 31 ┆ 0.245412285224'-1 0.1┆
0x13aa0…13ac0 32 32 37 31 35 33 38 32 38 35 36 27 2d 31 0a 20 20 20 20 20 20 30 2e 36 31 33 35 38 38 34 36 34 ┆22715382856'-1 0.613588464┆
0x13ac0…13ae0 38 39 36 27 2d 32 0a 20 20 20 20 20 20 30 2e 33 30 36 37 39 35 36 37 36 32 38 38 27 2d 32 0a 20 ┆896'-2 0.306795676288'-2 ┆
0x13ae0…13b00 20 20 20 20 20 30 2e 31 35 33 33 39 38 30 31 38 36 32 34 27 2d 32 0a 20 20 20 20 20 20 30 2e 37 ┆ 0.153398018624'-2 0.7┆
0x13b00…13b20 (35,) 36 36 39 39 30 33 31 38 37 32 30 27 2d 33 0a 77 2e 0a 20 20 20 20 20 30 0a 20 20 20 20 20 30 0a ┆66990318720'-3 w. 0 0 ┆
0x13b20…13b40 3c 3a 66 66 74 69 70 6f 77 20 20 20 20 3c 30 3e 3a 3e 0a 65 2e 0a 0a 0a 67 30 3a 0a 67 31 3a 20 ┆<:fftipow <0>:> e. g0: g1: ┆
0x13b40…13b60 20 20 20 31 0a 20 20 20 20 20 20 20 30 2c 30 2c 30 2c 30 0a 20 20 20 20 20 20 20 31 3c 32 33 2b ┆ 1 0,0,0,0 1<23+┆
0x13b60…13b80 65 31 2d 65 32 0a 20 20 20 20 20 20 20 31 3c 31 38 2b 32 36 3c 31 32 2b 31 33 3c 36 2b 30 20 3b ┆e1-e2 1<18+26<12+13<6+0 ;┆
0x13b80…13ba0 20 70 72 6f 63 65 64 75 72 65 20 66 66 74 69 70 6f 77 28 6d 2c 52 29 3b 0a 20 20 20 20 20 20 20 ┆ procedure fftipow(m,R); ┆
0x13ba0…13bc0 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 76 61 6c 75 65 20 6d 3b 20 69 6e 74 ┆0 ; value m; int┆
0x13bc0…13be0 65 67 65 72 20 6d 3b 20 61 72 72 61 79 20 52 3b 0a 20 20 20 20 20 20 20 34 3c 31 32 2b 65 30 2d ┆eger m; array R; 4<12+e0-┆
0x13be0…13c00 65 32 0a 20 20 20 20 20 20 20 31 3c 31 32 2b 30 0a 6e 2e 0a 19 00 20 63 0a 61 32 31 3a 20 20 20 ┆e2 1<12+0 n. c a21: ┆
0x13c00…13c20 20 30 20 20 20 3b 20 61 64 64 72 20 63 32 76 0a 61 32 30 3a 20 20 20 20 30 20 20 20 3b 20 61 64 ┆ 0 ; addr c2v a20: 0 ; ad┆
0x13c20…13c40 64 72 20 73 32 76 0a 61 32 34 3a 20 20 20 2d 34 0a 61 32 35 3a 20 20 20 20 34 0a 66 2e 0a 20 20 ┆dr s2v a24: -4 a25: 4 f. ┆
0x13c40…13c60 20 20 20 20 30 2e 39 39 39 39 39 39 37 30 35 37 39 32 0a 20 20 20 20 20 20 30 2e 39 39 39 39 39 ┆ 0.999999705792 0.99999┆
0x13c60…13c80 38 38 32 33 34 35 36 0a 20 20 20 20 20 20 30 2e 39 39 39 39 39 35 32 39 33 37 36 30 0a 20 20 20 ┆8823456 0.999995293760 ┆
0x13c80…13ca0 20 20 20 30 2e 39 39 39 39 38 31 31 37 35 33 32 38 0a 20 20 20 20 20 20 30 2e 39 39 39 39 32 34 ┆ 0.999981175328 0.999924┆
0x13ca0…13cc0 37 30 31 38 35 36 0a 20 20 20 20 20 20 30 2e 39 39 39 36 39 38 38 31 38 37 32 30 0a 20 20 20 20 ┆701856 0.999698818720 ┆
0x13cc0…13ce0 20 20 30 2e 39 39 38 37 39 35 34 35 36 31 39 32 0a 20 20 20 20 20 20 30 2e 39 39 35 31 38 34 37 ┆ 0.998795456192 0.9951847┆
0x13ce0…13d00 32 36 37 32 30 0a 61 32 32 3a 20 20 30 2e 39 38 30 37 38 35 32 38 30 34 31 36 0a 20 20 20 20 20 ┆26720 a22: 0.980785280416 ┆
0x13d00…13d20 20 30 2e 39 32 33 38 37 39 35 33 32 35 37 36 0a 20 20 20 20 20 20 30 2e 37 30 37 31 30 36 37 38 ┆ 0.923879532576 0.70710678┆
0x13d20…13d40 31 31 35 32 0a 20 20 20 20 20 20 30 2e 33 38 32 36 38 33 34 33 32 33 36 38 0a 61 32 33 3a 20 20 ┆1152 0.382683432368 a23: ┆
0x13d40…13d60 30 2e 31 39 35 30 39 30 33 32 32 30 30 38 0a 20 20 20 20 20 20 30 2e 39 38 30 31 37 31 34 30 33 ┆0.195090322008 0.980171403┆
0x13d60…13d80 32 39 36 27 2d 31 0a 20 20 20 20 20 20 30 2e 34 39 30 36 37 36 37 34 33 32 34 38 27 2d 31 0a 20 ┆296'-1 0.490676743248'-1 ┆
0x13d80…13da0 20 20 20 20 20 30 2e 32 34 35 34 31 32 32 38 35 32 32 34 27 2d 31 0a 20 20 20 20 20 20 30 2e 31 ┆ 0.245412285224'-1 0.1┆
0x13da0…13dc0 32 32 37 31 35 33 38 32 38 35 36 27 2d 31 0a 20 20 20 20 20 20 30 2e 36 31 33 35 38 38 34 36 34 ┆22715382856'-1 0.613588464┆
0x13dc0…13de0 38 39 36 27 2d 32 0a 20 20 20 20 20 20 30 2e 33 30 36 37 39 35 36 37 36 32 38 38 27 2d 32 0a 20 ┆896'-2 0.306795676288'-2 ┆
0x13de0…13e00 20 20 20 20 20 30 2e 31 35 33 33 39 38 30 31 38 36 32 34 27 2d 32 0a 20 20 20 20 20 20 30 2e 37 ┆ 0.153398018624'-2 0.7┆
0x13e00…13e20 6d 65 73 73 61 67 65 20 66 66 74 69 72 0a 0a 28 66 66 74 69 72 3d 73 6c 61 6e 67 20 66 70 6e 61 ┆message fftir (fftir=slang fpna┆
0x13e20…13e40 6d 65 73 20 74 79 70 65 2e 79 65 73 20 69 6e 73 65 72 74 70 72 6f 63 20 65 6e 74 72 79 2e 6e 6f ┆mes type.yes insertproc entry.no┆
0x13e40…13e60 0a 66 66 74 69 72 29 0a 0a 3b 20 38 2d 31 30 2d 37 34 20 31 39 2d 32 2d 37 39 20 6f 6a 68 2f 72 ┆ fftir) ; 8-10-74 19-2-79 ojh/r┆
0x13e60…13e80 6d 0a 3b 20 66 6f 75 72 69 65 72 74 72 61 6e 73 66 6f 72 6d 20 6f 66 20 69 6e 74 65 67 65 72 20 ┆m ; fouriertransform of integer ┆
0x13e80…13ea0 64 61 74 61 0a 0a 62 2e 20 67 31 2c 65 33 20 77 2e 0a 0a 6b 3d 31 30 30 30 30 0a 0a 73 2e 20 67 ┆data b. g1,e3 w. k=10000 s. g┆
0x13ea0…13ec0 36 2c 6a 34 30 2c 61 33 30 2c 62 31 30 0a 68 2e 0a 67 30 3d 30 0a 65 32 3a 0a 67 31 3a 20 20 67 ┆6,j40,a30,b10 h. g0=0 e2: g1: g┆
0x13ec0…13ee0 33 2c 67 32 0a 6a 31 33 3a 20 67 30 2b 31 33 2c 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆3,g2 j13: g0+13,0 ┆
0x13ee0…13f00 20 20 3b 20 6c 61 73 74 20 75 73 65 64 0a 6a 33 30 3a 20 67 30 2b 33 30 2c 30 20 20 20 20 20 20 ┆ ; last used j30: g0+30,0 ┆
0x13f00…13f20 20 20 20 20 20 20 20 20 20 20 20 3b 20 73 61 76 65 64 20 73 72 2c 77 33 0a 6a 38 3a 20 20 67 30 ┆ ; saved sr,w3 j8: g0┆
0x13f20…13f40 2b 38 2c 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 65 6e 64 20 61 64 64 72 ┆+8,0 ; end addr┆
0x13f40…13f60 65 73 73 20 65 78 70 72 0a 6a 34 3a 20 20 67 30 2b 34 2c 30 20 20 20 20 20 20 20 20 20 20 20 20 ┆ess expr j4: g0+4,0 ┆
0x13f60…13f80 20 20 20 20 20 20 3b 20 74 61 6b 65 20 65 78 70 72 0a 6a 31 38 3a 20 67 30 2b 31 38 2c 30 20 20 ┆ ; take expr j18: g0+18,0 ┆
0x13f80…13fa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 7a 6f 6e 65 20 61 6c 61 72 6d 20 28 69 6e 64 ┆ ; zone alarm (ind┆
0x13fa0…13fc0 65 78 29 0a 6a 32 39 3a 20 67 30 2b 32 39 2c 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ex) j29: g0+29,0 ┆
0x13fc0…13fe0 20 3b 20 70 61 72 61 6d 20 61 6c 61 72 6d 0a 67 32 3d 6b 2d 32 2d 67 31 2c 20 67 33 3d 67 32 20 ┆ ; param alarm g2=k-2-g1, g3=g2 ┆
0x13fe0…14000 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 65 6e 64 20 6f 66 20 61 62 73 20 77 6f 72 64 73 2c 70 ┆ ; end of abs words,p┆
0x14000…14020 6f 69 6e 74 73 0a 77 2e 0a 61 31 33 3a 20 65 30 3a 20 20 20 20 20 67 30 0a 61 31 34 3a 20 20 20 ┆oints w. a13: e0: g0 a14: ┆
0x14020…14040 20 20 20 20 20 20 30 0a 61 31 31 3a 20 20 20 35 20 31 30 20 37 34 0a 61 31 32 3a 20 20 31 36 20 ┆ 0 a11: 5 10 74 a12: 16 ┆
0x14040…14060 30 30 20 30 30 0a 65 31 3a 20 20 72 6c 2e 20 77 32 20 28 6a 31 33 2e 29 0a 20 20 20 20 20 64 73 ┆00 00 e1: rl. w2 (j13.) ds┆
0x14060…14080 2e 20 77 33 20 28 6a 33 30 2e 29 0a 20 20 20 20 20 64 6c 20 20 77 31 20 20 78 32 2b 38 20 20 20 ┆. w3 (j30.) dl w1 x2+8 ┆
0x14080…140a0 20 20 20 20 20 20 20 20 20 3b 20 74 61 6b 65 20 6d 0a 20 20 20 20 20 73 6f 20 20 77 30 20 20 31 ┆ ; take m so w0 1┆
0x140a0…140c0 36 0a 20 20 20 20 20 6a 6c 2e 20 77 33 20 28 6a 34 2e 29 0a 20 20 20 20 20 64 73 2e 20 77 33 20 ┆6 jl. w3 (j4.) ds. w3 ┆
0x140c0…140e0 28 6a 33 30 2e 29 0a 20 20 20 20 20 64 6c 20 20 77 31 20 20 78 31 0a 20 20 20 20 20 72 6c 20 20 ┆(j30.) dl w1 x1 rl ┆
0x140e0…14100 77 33 20 20 78 32 2b 36 0a 20 20 20 20 20 73 7a 20 20 77 33 20 20 20 31 0a 20 20 20 20 20 63 66 ┆w3 x2+6 sz w3 1 cf┆
0x14100…14120 20 20 77 31 20 20 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 31 3d 6d 0a 20 20 20 ┆ w1 0 ; w1=m ┆
0x14120…14140 20 20 73 68 20 20 77 31 20 20 31 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 66 20 6d ┆ sh w1 13 ; if m┆
0x14140…14160 3e 31 33 20 6f 72 0a 20 20 20 20 20 73 68 20 20 77 31 20 20 20 31 20 20 20 20 20 20 20 20 20 20 ┆>13 or sh w1 1 ┆
0x14160…14180 20 20 20 20 3b 20 6d 3c 3d 31 20 74 68 65 6e 0a 20 20 20 20 20 6a 6c 2e 20 77 33 20 28 6a 31 38 ┆ ; m<=1 then jl. w3 (j18┆
0x14180…141a0 2e 29 20 20 20 20 20 20 20 20 20 20 20 3b 20 61 6c 61 72 6d 20 69 6e 64 65 78 20 3c 6d 3e 0a 20 ┆.) ; alarm index <m> ┆
0x141a0…141c0 20 20 20 20 61 63 20 20 77 33 20 20 78 31 2d 32 34 0a 20 20 20 20 20 61 6c 20 20 77 30 20 20 2d ┆ ac w3 x1-24 al w0 -┆
0x141c0…141e0 31 0a 20 20 20 20 20 6c 73 20 20 77 30 20 20 78 33 0a 20 20 20 20 20 72 73 2e 20 77 30 20 20 61 ┆1 ls w0 x3 rs. w0 a┆
0x141e0…14200 33 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 61 33 3a 20 6d 20 6f 6e 65 73 2c 20 32 34 2d ┆3. ; a3: m ones, 24-┆
0x14200…14220 6d 20 7a 65 72 6f 65 73 0a 20 20 20 20 20 61 6c 20 20 77 33 20 20 20 31 0a 20 20 20 20 20 61 73 ┆m zeroes al w3 1 as┆
0x14220…14240 20 20 77 33 20 20 78 31 0a 20 20 20 20 20 61 6c 20 20 77 31 20 20 78 33 2b 31 20 20 20 20 20 20 ┆ w3 x1 al w1 x3+1 ┆
0x14240…14260 20 20 20 20 20 20 3b 20 77 31 3a 3d 32 2a 2a 6d 2b 31 0a 20 20 20 20 20 62 7a 20 20 77 33 20 20 ┆ ; w1:=2**m+1 bz w3 ┆
0x14260…14280 78 32 2b 31 31 20 20 20 20 20 20 20 20 20 20 20 3b 20 63 68 65 63 6b 20 61 72 72 61 79 0a 20 20 ┆x2+11 ; check array ┆
0x14280…142a0 20 20 20 73 68 20 20 77 33 20 20 31 39 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 6e 74 ┆ sh w3 19 ; int┆
0x142a0…142c0 65 67 65 72 20 6f 72 20 72 65 61 6c 0a 20 20 20 20 20 73 68 20 20 77 33 20 20 31 37 0a 20 20 20 ┆eger or real sh w3 17 ┆
0x142c0…142e0 20 20 6a 6c 2e 20 77 33 20 28 6a 32 39 2e 29 0a 20 20 20 20 20 72 6c 20 20 77 33 20 20 78 32 2b ┆ jl. w3 (j29.) rl w3 x2+┆
0x142e0…14300 31 32 20 20 20 20 20 20 20 20 20 20 20 3b 20 74 61 6b 65 20 61 72 72 61 79 0a 20 20 20 20 20 72 ┆12 ; take array r┆
0x14300…14320 6c 20 20 77 30 20 20 78 33 0a 20 20 20 20 20 62 61 20 20 77 33 20 20 78 32 2b 31 30 0a 20 20 20 ┆l w0 x3 ba w3 x2+10 ┆
0x14320…14340 20 20 77 61 20 20 77 30 20 20 78 33 0a 20 20 20 20 20 77 61 2e 20 77 30 20 20 61 32 35 2e 0a 20 ┆ wa w0 x3 wa. w0 a25. ┆
0x14340…14360 20 20 20 20 72 73 2e 20 77 30 20 20 61 30 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 61 30 ┆ rs. w0 a0. ; a0┆
0x14360…14380 3a 3d 61 64 64 72 65 73 73 20 52 28 30 29 0a 20 20 20 20 20 62 61 2e 20 77 30 20 20 61 32 36 2e ┆:=address R(0) ba. w0 a26.┆
0x14380…143a0 0a 20 20 20 20 20 72 73 2e 20 77 30 20 20 61 31 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 ┆ rs. w0 a1. ; ┆
0x143a0…143c0 61 31 3a 3d 61 64 64 72 65 73 73 20 52 28 31 29 0a 20 20 20 20 20 72 6c 20 20 77 30 20 20 78 33 ┆a1:=address R(1) rl w0 x3┆
0x143c0…143e0 2d 32 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 6e 64 65 78 20 63 68 65 63 6b 0a 20 20 20 20 ┆-2 ; index check ┆
0x143e0…14400 20 77 73 20 20 77 30 20 20 78 33 0a 20 20 20 20 20 61 73 20 20 77 30 20 20 2d 31 0a 20 20 20 20 ┆ ws w0 x3 as w0 -1 ┆
0x14400…14420 (36,) 20 73 68 20 20 77 30 20 20 78 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 69 66 20 6e 6f 74 ┆ sh w0 x1 ;if not┆
0x14420…14440 20 32 2a 2a 6d 2b 31 20 65 6c 65 6d 65 6e 74 73 0a 20 20 20 20 20 6a 6c 2e 20 77 33 20 28 6a 31 ┆ 2**m+1 elements jl. w3 (j1┆
0x14440…14460 38 2e 29 20 20 20 20 20 20 20 20 20 20 20 3b 20 61 6c 61 72 6d 20 69 6e 64 65 78 20 3c 32 2a 2a ┆8.) ; alarm index <2**┆
0x14460…14480 6d 2b 31 3e 0a 20 20 20 20 20 61 6c 20 20 77 31 20 20 78 31 2d 32 20 20 20 20 20 20 20 20 20 20 ┆m+1> al w1 x1-2 ┆
0x14480…144a0 20 20 3b 20 77 31 3a 3d 32 2a 2a 6d 2d 31 0a 20 20 20 20 20 72 73 2e 20 77 31 20 20 61 34 2e 20 ┆ ; w1:=2**m-1 rs. w1 a4. ┆
0x144a0…144c0 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 61 34 3a 3d 32 2a 2a 6d 2d 31 0a 20 20 20 20 20 77 61 ┆ ; a4:=2**m-1 wa┆
0x144c0…144e0 20 20 77 31 20 20 20 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 31 3a 3d 32 2a 28 32 ┆ w1 3 ; w1:=2*(2┆
0x144e0…14500 2a 2a 6d 2d 31 29 0a 20 20 20 20 20 77 61 2e 20 77 31 20 20 61 30 2e 0a 20 20 20 20 20 72 73 2e ┆**m-1) wa. w1 a0. rs.┆
0x14500…14520 20 77 31 20 20 61 32 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 61 32 3a 3d 61 64 64 72 20 ┆ w1 a2. ; a2:=addr ┆
0x14520…14540 52 28 32 2a 2a 6d 2d 31 29 0a 20 20 20 20 20 61 6c 20 20 77 31 20 20 20 31 0a 62 37 3a 20 20 72 ┆R(2**m-1) al w1 1 b7: r┆
0x14540…14560 73 2e 20 77 31 20 20 61 35 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 61 35 3a 3d 6c 3a 3d ┆s. w1 a5. ; a5:=l:=┆
0x14560…14580 31 0a 20 20 20 20 20 72 6c 2e 20 77 33 20 20 61 33 2e 0a 62 30 3a 20 20 6c 64 20 20 77 32 20 20 ┆1 rl. w3 a3. b0: ld w2 ┆
0x14580…145a0 2d 31 0a 20 20 20 20 20 61 6c 20 20 77 30 20 20 78 32 0a 20 20 20 20 20 6c 64 20 20 77 30 20 20 ┆-1 al w0 x2 ld w0 ┆
0x145a0…145c0 20 31 0a 20 20 20 20 20 73 68 20 20 77 33 20 20 2d 31 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 ┆ 1 sh w3 -1 jl. ┆
0x145c0…145e0 62 30 2e 0a 20 20 20 20 20 72 6c 2e 20 77 32 20 20 61 35 2e 20 20 20 20 20 20 20 20 20 20 20 20 ┆b0. rl. w2 a5. ┆
0x145e0…14600 20 3b 20 77 33 3a 3d 62 69 74 72 65 76 65 72 73 65 28 6c 29 3b 20 77 32 3a 3d 6c 0a 20 20 20 20 ┆ ; w3:=bitreverse(l); w2:=l ┆
0x14600…14620 20 73 6c 20 20 77 32 20 20 78 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 66 20 6c 3e ┆ sl w2 x3 ; if l>┆
0x14620…14640 3d 62 69 74 72 65 76 65 72 73 65 28 6c 29 20 74 68 65 6e 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 ┆=bitreverse(l) then jl. ┆
0x14640…14660 20 62 31 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 6e 6f 20 65 78 63 68 61 6e 67 65 0a 20 ┆ b1. ; no exchange ┆
0x14660…14680 20 20 20 20 6c 64 20 20 77 33 20 20 20 31 0a 20 20 20 20 20 77 61 2e 20 77 32 20 20 61 30 2e 0a ┆ ld w3 1 wa. w2 a0. ┆
0x14680…146a0 20 20 20 20 20 77 61 2e 20 77 33 20 20 61 30 2e 0a 20 20 20 20 20 72 6c 20 20 77 30 20 20 78 33 ┆ wa. w3 a0. rl w0 x3┆
0x146a0…146c0 0a 20 20 20 20 20 72 78 20 20 77 30 20 20 78 32 0a 20 20 20 20 20 72 73 20 20 77 30 20 20 78 33 ┆ rx w0 x2 rs w0 x3┆
0x146c0…146e0 0a 62 31 3a 20 20 72 6c 2e 20 77 31 20 20 61 35 2e 0a 20 20 20 20 20 61 6c 20 20 77 31 20 20 78 ┆ b1: rl. w1 a5. al w1 x┆
0x146e0…14700 31 2b 31 0a 20 20 20 20 20 73 68 2e 20 77 31 20 28 61 34 2e 29 0a 20 20 20 20 20 6a 6c 2e 20 20 ┆1+1 sh. w1 (a4.) jl. ┆
0x14700…14720 20 20 20 62 37 2e 0a 20 20 20 20 20 61 6c 2e 20 77 32 20 20 61 32 32 2e 0a 20 20 20 20 20 61 6c ┆ b7. al. w2 a22. al┆
0x14720…14740 2e 20 77 31 20 20 61 32 33 2e 0a 20 20 20 20 20 64 73 2e 20 77 32 20 20 61 32 30 2e 20 20 20 20 ┆. w1 a23. ds. w2 a20. ┆
0x14740…14760 20 20 20 20 20 20 20 20 3b 20 69 6e 69 74 20 73 32 76 20 61 64 64 72 2c 20 63 32 76 20 61 64 64 ┆ ; init s2v addr, c2v add┆
0x14760…14780 72 0a 20 20 20 20 20 61 6c 20 20 77 31 20 20 20 31 0a 20 20 20 20 20 61 6c 20 20 77 32 20 20 20 ┆r al w1 1 al w2 ┆
0x14780…147a0 32 0a 61 32 36 3d 6b 2d 31 0a 20 20 20 20 20 64 73 2e 20 77 32 20 20 61 35 2e 20 20 20 20 20 20 ┆2 a26=k-1 ds. w2 a5. ┆
0x147a0…147c0 20 20 20 20 20 20 20 3b 20 69 6e 69 74 20 70 2c 71 20 28 31 2c 31 2f 32 29 0a 20 20 20 20 20 61 ┆ ; init p,q (1,1/2) a┆
0x147c0…147e0 6c 20 20 77 32 20 20 20 34 0a 20 20 20 20 20 61 6c 20 20 77 33 20 20 20 34 20 20 20 20 20 20 20 ┆l w2 4 al w3 4 ┆
0x147e0…14800 20 20 20 20 20 20 20 3b 20 69 6e 69 74 20 70 70 20 28 32 29 0a 62 36 3a 20 20 64 73 2e 20 77 33 ┆ ; init pp (2) b6: ds. w3┆
0x14800…14820 20 20 61 33 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 73 74 6f 72 65 20 70 70 0a 20 20 20 ┆ a3. ; store pp ┆
0x14820…14840 20 20 64 6c 2e 20 77 33 20 20 61 30 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 32 3a 3d ┆ dl. w3 a0. ; w2:=┆
0x14840…14860 61 64 64 72 20 52 28 70 29 2c 77 33 3a 3d 61 64 64 72 20 52 28 30 29 0a 62 35 3a 20 20 72 6c 20 ┆addr R(p),w3:=addr R(0) b5: rl ┆
0x14860…14880 20 77 31 20 20 78 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 31 3a 3d 52 28 69 29 0a ┆ w1 x3 ; w1:=R(i) ┆
0x14880…148a0 20 20 20 20 20 61 6c 20 20 77 30 20 20 78 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 ┆ al w0 x1 ; w┆
0x148a0…148c0 30 3a 3d 52 28 69 29 0a 20 20 20 20 20 77 61 20 20 77 30 20 20 78 32 20 20 20 20 20 20 20 20 20 ┆0:=R(i) wa w0 x2 ┆
0x148c0…148e0 20 20 20 20 20 3b 20 77 30 3a 3d 52 28 69 29 2b 52 28 69 2b 70 29 0a 20 20 20 20 20 77 73 20 20 ┆ ; w0:=R(i)+R(i+p) ws ┆
0x148e0…14900 77 31 20 20 78 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 31 3a 3d 52 28 69 29 2d 52 ┆w1 x2 ; w1:=R(i)-R┆
0x14900…14920 28 69 2b 70 29 0a 20 20 20 20 20 72 73 20 20 77 30 20 20 78 33 20 20 20 20 20 20 20 20 20 20 20 ┆(i+p) rs w0 x3 ┆
0x14920…14940 20 20 20 3b 20 52 28 69 29 3a 3d 77 30 0a 20 20 20 20 20 72 73 20 20 77 31 20 20 78 32 20 20 20 ┆ ; R(i):=w0 rs w1 x2 ┆
0x14940…14960 20 20 20 20 20 20 20 20 20 20 20 3b 20 52 28 69 2b 70 29 3a 3d 77 31 0a 20 20 20 20 20 61 61 2e ┆ ; R(i+p):=w1 aa.┆
0x14960…14980 20 77 33 20 20 61 33 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 22 69 22 3a 3d 22 69 22 2b ┆ w3 a3. ; "i":="i"+┆
0x14980…149a0 70 70 2c 20 22 69 2b 70 22 3a 3d 22 69 2b 70 22 2b 70 70 0a 20 20 20 20 20 73 68 2e 20 77 32 20 ┆pp, "i+p":="i+p"+pp sh. w2 ┆
0x149a0…149c0 28 61 32 2e 29 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 66 20 61 64 64 72 20 52 28 69 2b 70 ┆(a2.) ; if addr R(i+p┆
0x149c0…149e0 29 3c 61 64 64 72 20 52 28 32 2a 2a 6d 2d 31 29 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 62 35 ┆)<addr R(2**m-1) jl. b5┆
0x149e0…14a00 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 74 68 65 6e 20 6e 65 78 74 20 73 74 65 70 0a 20 ┆. ; then next step ┆
0x14a00…14a20 20 20 20 20 64 6c 2e 20 77 31 20 28 61 32 31 2e 29 0a 20 20 20 20 20 64 73 2e 20 77 31 20 20 61 ┆ dl. w1 (a21.) ds. w1 a┆
0x14a20…14a40 31 38 2e 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 61 31 37 20 61 31 38 3a 3d 63 32 76 0a 20 20 ┆18. ; a17 a18:=c2v ┆
0x14a40…14a60 20 20 20 64 6c 2e 20 77 31 20 28 61 32 30 2e 29 0a 20 20 20 20 20 64 73 2e 20 77 31 20 20 61 31 ┆ dl. w1 (a20.) ds. w1 a1┆
0x14a60…14a80 36 2e 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 61 31 35 20 61 31 36 3a 3d 73 32 76 0a 20 20 20 ┆6. ; a15 a16:=s2v ┆
0x14a80…14aa0 20 20 61 6c 20 20 77 32 20 20 20 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 6e 3a 3d 31 ┆ al w2 2 ; n:=1┆
0x14aa0…14ac0 0a 62 33 3a 20 20 73 6c 2e 20 77 32 20 28 61 31 39 2e 29 20 20 20 20 20 20 20 20 20 20 20 3b 20 ┆ b3: sl. w2 (a19.) ; ┆
0x14ac0…14ae0 69 66 20 6e 3d 71 20 74 68 65 6e 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 62 34 2e 20 20 20 20 ┆if n=q then jl. b4. ┆
0x14ae0…14b00 20 20 20 20 20 20 20 20 20 3b 20 74 68 65 6e 20 67 6f 74 6f 20 6e 65 78 74 20 6c 2d 73 74 65 70 ┆ ; then goto next l-step┆
0x14b00…14b20 0a 20 20 20 20 20 72 73 2e 20 77 32 20 20 61 34 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 ┆ rs. w2 a4. ; ┆
0x14b20…14b40 73 74 6f 72 65 20 6e 0a 20 20 20 20 20 61 63 20 20 77 31 20 20 78 32 20 20 20 20 20 20 20 20 20 ┆store n ac w1 x2 ┆
0x14b40…14b60 20 20 20 20 20 3b 20 77 31 3a 3d 2d 6e 0a 20 20 20 20 20 61 61 2e 20 77 32 20 20 61 30 2e 20 20 ┆ ; w1:=-n aa. w2 a0. ┆
0x14b60…14b80 20 20 20 20 20 20 20 20 20 20 20 3b 20 61 37 3a 3d 61 64 64 72 20 52 28 70 2b 6e 29 0a 20 20 20 ┆ ; a7:=addr R(p+n) ┆
0x14b80…14ba0 20 20 64 73 2e 20 77 32 20 20 61 37 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 61 38 3a 3d ┆ ds. w2 a7. ; a8:=┆
0x14ba0…14bc0 61 64 64 72 20 52 28 70 2d 6e 29 0a 20 20 20 20 20 77 61 2e 20 77 31 20 20 61 35 2e 20 20 20 20 ┆addr R(p-n) wa. w1 a5. ┆
0x14bc0…14be0 20 20 20 20 20 20 20 20 20 3b 20 61 39 3a 3d 61 64 64 72 20 52 28 70 2b 6e 29 0a 20 20 20 20 20 ┆ ; a9:=addr R(p+n) ┆
0x14be0…14c00 77 61 2e 20 77 32 20 20 61 35 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 61 31 30 3a 3d 61 ┆wa. w2 a5. ; a10:=a┆
0x14c00…14c20 64 64 72 20 52 28 70 2b 70 2d 6e 29 0a 62 32 3a 20 20 64 73 2e 20 77 32 20 20 61 39 2e 20 20 20 ┆ddr R(p+p-n) b2: ds. w2 a9. ┆
0x14c20…14c40 20 20 20 20 20 20 20 20 20 20 3b 20 73 74 6f 72 65 20 61 64 64 72 20 52 28 69 2b 70 29 20 52 28 ┆ ; store addr R(i+p) R(┆
0x14c40…14c60 6a 2b 70 29 0a 20 20 20 20 20 72 6c 20 20 77 31 20 20 78 31 0a 20 20 20 20 20 63 69 20 20 77 31 ┆j+p) rl w1 x1 ci w1┆
0x14c60…14c80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 66 6c 6f 61 74 20 52 28 69 2b 70 29 ┆ ; float R(i+p)┆
0x14c80…14ca0 0a 20 20 20 20 20 64 73 2e 20 77 31 20 20 61 31 34 2e 0a 20 20 20 20 20 72 6c 20 20 77 33 20 20 ┆ ds. w1 a14. rl w3 ┆
0x14ca0…14cc0 78 32 0a 20 20 20 20 20 63 69 20 20 77 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆x2 ci w3 ┆
0x14cc0…14ce0 3b 20 66 6c 6f 61 74 20 52 28 6a 2b 70 29 0a 20 20 20 20 20 64 73 2e 20 77 33 20 20 61 31 32 2e ┆; float R(j+p) ds. w3 a12.┆
0x14ce0…14d00 0a 20 20 20 20 20 66 6d 2e 20 77 33 20 20 61 31 38 2e 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 ┆ fm. w3 a18. ; ┆
0x14d00…14d20 (37,) 77 32 77 33 3a 3d 52 28 69 2b 70 29 2a 63 0a 20 20 20 20 20 66 6d 2e 20 77 31 20 20 61 31 36 2e ┆w2w3:=R(i+p)*c fm. w1 a16.┆
0x14d20…14d40 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 30 77 31 3a 3d 52 28 6a 2b 70 29 2a 73 0a 20 20 20 ┆ ; w0w1:=R(j+p)*s ┆
0x14d40…14d60 20 20 66 73 20 20 77 33 20 20 20 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 32 77 33 ┆ fs w3 3 ; w2w3┆
0x14d60…14d80 3a 3d 72 65 3a 3d 52 28 69 2b 70 29 2a 63 2d 52 28 6a 2b 70 29 2a 73 0a 20 20 20 20 20 63 66 20 ┆:=re:=R(i+p)*c-R(j+p)*s cf ┆
0x14d80…14da0 20 77 33 0a 20 20 20 20 20 64 6c 2e 20 77 31 20 20 61 31 34 2e 0a 20 20 20 20 20 72 73 2e 20 77 ┆ w3 dl. w1 a14. rs. w┆
0x14da0…14dc0 33 20 20 61 31 34 2e 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 61 31 34 3a 3d 72 65 0a 20 20 20 ┆3 a14. ; a14:=re ┆
0x14dc0…14de0 20 20 66 6d 2e 20 77 31 20 20 61 31 38 2e 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 30 77 31 ┆ fm. w1 a18. ; w0w1┆
0x14de0…14e00 3a 3d 52 28 6a 2b 70 29 2a 63 0a 20 20 20 20 20 64 6c 2e 20 77 33 20 20 61 31 32 2e 0a 20 20 20 ┆:=R(j+p)*c dl. w3 a12. ┆
0x14e00…14e20 20 20 66 6d 2e 20 77 33 20 20 61 31 36 2e 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 32 77 33 ┆ fm. w3 a16. ; w2w3┆
0x14e20…14e40 3a 3d 52 28 69 2b 70 29 2a 73 0a 20 20 20 20 20 66 61 20 20 77 33 20 20 20 33 20 20 20 20 20 20 ┆:=R(i+p)*s fa w3 3 ┆
0x14e40…14e60 20 20 20 20 20 20 20 20 3b 20 77 32 77 33 3a 3d 69 6d 3a 3d 52 28 69 2b 70 29 2a 73 2b 52 28 6a ┆ ; w2w3:=im:=R(i+p)*s+R(j┆
0x14e60…14e80 2b 70 29 2a 63 0a 20 20 20 20 20 63 66 20 20 77 33 0a 20 20 20 20 20 61 6c 20 20 77 30 20 20 78 ┆+p)*c cf w3 al w0 x┆
0x14e80…14ea0 33 0a 20 20 20 20 20 77 73 2e 20 77 30 20 28 61 38 2e 29 0a 20 20 20 20 20 77 61 2e 20 77 33 20 ┆3 ws. w0 (a8.) wa. w3 ┆
0x14ea0…14ec0 28 61 38 2e 29 0a 20 20 20 20 20 72 73 2e 20 77 30 20 28 61 39 2e 29 20 20 20 20 20 20 20 20 20 ┆(a8.) rs. w0 (a9.) ┆
0x14ec0…14ee0 20 20 20 3b 20 52 28 69 2b 70 29 3a 3d 2d 52 28 6a 29 2b 69 6d 0a 20 20 20 20 20 72 73 2e 20 77 ┆ ; R(i+p):=-R(j)+im rs. w┆
0x14ee0…14f00 33 20 28 61 31 30 2e 29 20 20 20 20 20 20 20 20 20 20 20 3b 20 52 28 6a 2b 70 29 3a 3d 52 28 6a ┆3 (a10.) ; R(j+p):=R(j┆
0x14f00…14f20 29 2b 69 6d 0a 20 20 20 20 20 72 6c 2e 20 77 31 20 20 61 31 34 2e 0a 20 20 20 20 20 61 63 20 20 ┆)+im rl. w1 a14. ac ┆
0x14f20…14f40 77 30 20 20 78 31 0a 20 20 20 20 20 77 61 2e 20 77 30 20 28 61 37 2e 29 0a 20 20 20 20 20 77 61 ┆w0 x1 wa. w0 (a7.) wa┆
0x14f40…14f60 2e 20 77 31 20 28 61 37 2e 29 0a 20 20 20 20 20 72 73 2e 20 77 30 20 28 61 38 2e 29 20 20 20 20 ┆. w1 (a7.) rs. w0 (a8.) ┆
0x14f60…14f80 20 20 20 20 20 20 20 20 3b 20 52 28 6a 29 3a 3d 52 28 69 29 2d 72 65 0a 20 20 20 20 20 72 73 2e ┆ ; R(j):=R(i)-re rs.┆
0x14f80…14fa0 20 77 31 20 28 61 37 2e 29 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 52 28 69 29 3a 3d 52 28 69 ┆ w1 (a7.) ; R(i):=R(i┆
0x14fa0…14fc0 29 2b 72 65 0a 20 20 20 20 20 64 6c 2e 20 77 32 20 20 61 37 2e 0a 20 20 20 20 20 61 61 2e 20 77 ┆)+re dl. w2 a7. aa. w┆
0x14fc0…14fe0 32 20 20 61 33 2e 0a 20 20 20 20 20 64 73 2e 20 77 32 20 20 61 37 2e 20 20 20 20 20 20 20 20 20 ┆2 a3. ds. w2 a7. ┆
0x14fe0…15000 20 20 20 20 3b 20 22 69 22 3a 3d 22 69 22 2b 70 70 3b 20 22 6a 22 3a 3d 22 6a 22 2b 70 70 0a 20 ┆ ; "i":="i"+pp; "j":="j"+pp ┆