CLEAR STORAGE 1 ,008015,022026,030037,044,049,053053N000000N00001026 1 CLEAR STORAGE 2 L068116,105106,110117B101/I9I#071029C029056B026/B001/0991,001/001117I0? 2 BOOTSTRAP ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 COMPUTE THE SQUARE ROOT OF 2 TO 100 DECIMAL PLACES PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB COMPUTE THE SQUARE ROOT OF 2 TO 100 DECIMAL PLACES 102 CTL 6611 103 * 104 * PRINT HEADER. 105 * 106 START CS 332 4 0333 / 332 4 107 CS 1 0337 / 4 108 MCW N,332 7 0338 M 480 332 4 109 MCW LABEL1 4 0345 M T15 4 110 W 1 0349 2 4 111 CS 332 4 0350 / 332 4 112 CS 1 0354 / 4 113 W 1 0355 2 5 114 * 115 * NEWTON'S ALGORITHM: 116 * 117 * X = XPREV; 118 * WHILE (X != XPREV) { 119 * XPREV = X; 120 * X = (X + N/X)/2; 121 * } 122 * 123 * X = UPPER HALF OF N 124 * 125 ZA N&100,X +DP 7 0356 ? 580 782 5 126 * 127 * IS X = XPREV? 128 * 129 LOOP C X,XPREV 7 0363 C 782 886 5 130 B DONE,S DONE IF YES 5 0370 B 451 S 5 131 A @1@,ITERS 7 0375 A T27 /94 5 132 * 133 * XPREV = X 134 * 135 ZA X,XPREV 7 0382 ? 782 886 5 136 * 137 * X = (N/X + X)/2 138 * 139 ZA N&200,TEMP&103 +2*DP, +LEN(N) + DP + 1 7 0389 ? 680 /91 6 140 D X,TEMP-97 +LEN(N) - DP + 1 7 0396 % 782 991 6 141 SW TEMP-102 -(LEN(N) + DP) 4 0403 , 986 6 142 A X,TEMP 7 0407 A 782 '88 6 143 ZA TEMP,X&2 +2 7 0414 ? '88 784 6 144 D @2@,X-100 -(LEN(N) + DP) + 2 7 0421 % T28 682 6 145 CW TEMP-102 -(LEN(N) + DP) 4 0428 ) 986 7 146 * 147 * PRINT X AND LOOP AGAIN. 1 COMPUTE THE SQUARE ROOT OF 2 TO 100 DECIMAL PLACES PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 * 149 LCA EDIT,332 7 0432 L S96 332 7 150 MCE X,332 7 0439 E 782 332 7 151 W 1 0446 2 7 152 B LOOP 4 0447 B 363 7 153 * 154 * PRINT NUMBER OF ITERATIONS. 155 * 156 DONE CS 332 4 0451 / 332 7 157 CS 1 0455 / 7 158 W 1 0456 2 8 159 CS 332 4 0457 / 332 8 160 CS 1 0461 / 8 161 MCW LABEL2,332 7 0462 M T26 332 8 162 MCW ITERS 4 0469 M /94 8 163 W 1 0473 2 8 164 FINIS H FINIS 4 0474 . 474 8 165 H 1 0478 . 9 166 * 167 N DCW 02 2 0480 9 168 DC #200 LEN = 2*DP 200 0680 15 169 * 170 X DCW #102 LEN = LEN(N) + DP 102 0782 18 171 DC #2 REMAINDER OF /2: LEN = 2 2 0784 18 172 * 173 XPREV DCW #102 LEN = LEN(X) 102 0886 21 174 * 175 TEMP DCW #202 LEN = LEN(N) + 2*DP 202 1088 27 176 DC #103 REMAINDER OF /X: LEN = LEN(X) + 1 103 1191 30 177 * 178 ITERS DCW 000 3 1194 30 179 * 180 DCW @0.@ 2 1196 30 181 EDIT DC #100 LEN = DP 100 1296 33 182 * 183 LABEL1 DCW @THE SQUARE ROOT OF @ 19 1315 34 184 LABEL2 DCW @ ITERATIONS@ 11 1326 34 DCW @1@ 1 1327 LIT 34 DCW @2@ 1 1328 LIT 34 185 END START / 333 080 1 COMPUTE THE SQUARE ROOT OF 2 TO 100 DECIMAL PLACES PAGE 3 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS DONE 451 EDIT 1296 FINIS 474 ITERS 1194 LABEL1 1315 LABEL2 1326 LOOP 363 N 480 START 333 TEMP 1088 X 782 XPREV 886