|
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 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 Data for cmonlist
0x0d200…0de00 Data for cmonhelp
0x0de00…0f000 Data for tctrace
0x0f000…10500 Data for tcmerge
0x10500…10800 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 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 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…14000 […elided…]
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 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 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 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 Data for cmonlist
0x0d200…0de00 Data for cmonhelp
0x0de00…0f000 Data for tctrace
0x0f000…10500 Data for tcmerge
0x10500…10800 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 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 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…14000 […elided…]
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 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 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 ┆