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 ORG 332-20 0312 104 * 105 DCW @THE SQUARE ROOT OF @ 19 0330 3 106 * 107 * PRINT HEADER. 108 * 109 START LCA N,332 7 0331 L 768 332 3 110 W1 W 1 0338 2 3 111 CS 1 0339 / 3 112 CS 1 0340 / 3 113 W 1 0341 2 3 114 * 115 * NEWTON'S ALGORITHM: 116 * 117 * X = N; 118 * DO {XPREV = X; 119 * X = (X + N/X)/2;} 120 * WHILE (X != XPREV) 121 * 122 * X = UPPER HALF OF N 123 * 124 ZA ZERO,X 7 0342 ? 784 657 3 125 A N,X2 7 0349 A 768 557 4 126 LOOP A LOOP,ITERS 7 0356 A 356 771 4 127 ZA X,XPREV 7 0363 ? 657 554 4 128 * 129 * X = (N/X + X)/2 130 * 131 ZA ZERO,NXREM +DP LOW ORDER ZEROS, +LEN(N) + DP 7 0370 ? 784 762 4 132 A N,XHIGH THE NUMBER 7 0377 A 768 562 4 133 D XPREV,XHIGH +LEN(N) - DP + 1 + 2 7 0384 % 554 562 5 134 A XPREV,X2REM 7 0391 A 554 659 5 135 D W1,X2 -(LEN(N) + DP) + 2 7 0398 % 338 557 5 136 * 137 * PRINT X. 138 * 139 LCA EDIT,232 7 0405 L 766 232 5 140 MCE X,332 7 0412 E 657 332 5 141 W 1 0419 2 5 142 CS 1 0420 / 5 143 CS 1 0421 / 6 144 * 145 * IS X = XPREV? LOOP AGAIN IF NOT. 146 * 147 C X,XPREV 7 0422 C 657 554 6 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 BU LOOP MORE ITERATIONS NEEDED IF UNEQUAL 5 0429 B 356 / 6 149 * 150 * PRINT NUMBER OF ITERATIONS. 151 * 152 DONE CS 332 4 0434 / 332 6 153 CS 1 0438 / 6 154 W 1 0439 2 6 155 MCS LABEL2,333 7 0440 Z 783 333 6 156 W 1 0447 2 7 157 FINIS H FINIS 4 0448 . 448 7 158 H 1 0452 . 7 159 * 160 DA 1X102 0453 0554 161 XPREV 102 LEN = LEN(X) 0554 SBFLD 162 * 163 DA 1X208 0555 0762 164 X2 3 DECIMAL POSITION AFTER X/2 0557 SBFLD 165 XHIGH 8 DECIMAL POSITION AFTER N/X 0562 SBFLD 166 X 103 LEN = LEN(N) + DP + 1 0657 SBFLD 167 X2REM 105 REMAINDER OF X/2: LEN 2 0659 SBFLD 168 NXREM 208 REMAINDER OF N/X: LEN LEN(N)+DP+1 0762 SBFLD 169 * 170 EDIT DCW @ 0.@ 4 0766 8 171 * 172 N DCW @ 2@ 2 0768 8 173 * 174 ITERS DCW 000 3 0771 8 175 LABEL2 DC @ ITERATIONS @ 12 0783 8 176 ZERO DCW @0@ 1 0784 8 177 END START / 331 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 434 EDIT 766 FINIS 448 ITERS 771 LABEL2 783 LOOP 356 N 768 NXREM 762 START 331 W1 338 X 657 X2 557 X2REM 659 XHIGH 562 XPREV 554 ZERO 784