BOOTSTRAP FOR CLEAR ,008015,022026,030040/019,001L020100 ,047054,061068,072072)0810811022 1 CLEAR OR BOOTSTRAP ,008047/047046 /000H025B022100 4/061046,054061,068072,0010401040 2 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 ORG 81 0081 107 START LCA N,332 7 0081 L 344 332 3 108 W1 W 1 0088 2 3 109 CS 1 0089 / 3 110 CS 1 0090 / 3 111 W 1 0091 2 3 112 * 113 * NEWTON'S ALGORITHM: 114 * 115 * X = N; 116 * DO {XPREV = X; 117 * X = (X + N/X)/2;} 118 * WHILE (X != XPREV) 119 * 120 * X = UPPER HALF OF N 121 * 122 ZA ZERO,X 7 0092 ? 348 553 3 123 A N,X2 7 0099 A 344 453 3 124 LOOP A LOOP,ITERS 7 0106 A 106 347 3 125 ZA X,XPREV 7 0113 ? 553 450 3 126 * 127 * X = (N/X + X)/2 128 * 129 ZA ZERO,NXREM +DP LOW ORDER ZEROS, +LEN(N) + DP 7 0120 ? 348 658 4 130 A N,XHIGH THE NUMBER 7 0127 A 344 458 4 131 D XPREV,XHIGH +LEN(N) - DP + 1 + 2 7 0134 % 450 458 4 132 A XPREV,X2REM 7 0141 A 450 555 4 133 D W1,X2 -(LEN(N) + DP) + 2 7 0148 % 088 453 4 134 * 135 * PRINT X. 136 * 137 LCA EDIT,232 7 0155 L 342 232 5 138 MCE X,332 7 0162 E 553 332 5 139 MCS ITERS,225 7 0169 Z 347 225 5 140 W 1 0176 2 5 141 CS 1 0177 / 5 142 CS 1 0178 / 5 143 * 144 * IS X = XPREV? LOOP AGAIN IF NOT. 145 * 146 C X,XPREV 7 0179 C 553 450 5 147 BU LOOP MORE ITERATIONS NEEDED IF UNEQUAL 5 0186 B 106 / 5 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 FINIS H FINIS 4 0191 . 191 6 150 H 1 0195 . 6 151 * 152 * PAGE HEADING PRELOADED INTO PRINT AREA 153 * 154 ORG 217 0217 155 DCW @ITERATION@ 9 0225 7 156 ORG 312 0312 157 DCW @THE SQUARE ROOT OF @ 24 0335 8 158 * 159 EDIT DCW @: 0.@ THIS SHOULD LAND AT 336 7 0342 8 160 * 161 N DCW @ 2@ 2 0344 8 162 * 163 ITERS DCW 000 3 0347 8 164 ZERO DCW @0@ 1 0348 8 165 * 166 DA 1X102 0349 0450 167 XPREV 102 LEN = LEN(X) 0450 SBFLD 168 * 169 DA 1X208 0451 0658 170 X2 3 DECIMAL POSITION AFTER X/2 0453 SBFLD 171 XHIGH 8 DECIMAL POSITION AFTER N/X 0458 SBFLD 172 X 103 LEN = LEN(N) + DP + 1 0553 SBFLD 173 X2REM 105 REMAINDER OF X/2: LEN 2 0555 SBFLD 174 NXREM 208 REMAINDER OF N/X: LEN LEN(N)+DP+1 0658 SBFLD 175 END START / 081 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 EDIT 342 FINIS 191 ITERS 347 LOOP 106 N 344 NXREM 658 START 81 W1 88 X 553 X2 453 X2REM 555 XHIGH 458 XPREV 450 ZERO 348