Skip to content

Commit

Permalink
Proofed comment text of Luminary INTERPRETER, using 5-way diff of
Browse files Browse the repository at this point in the history 
Luminary 69/99/116/131/210.  Lots of fixes, and lots of fixes propagated
to other AGC versions than just Luminary.  At the end of the process,
all of the Luminary INTERPRETERs happened to end up with identical
comments.
  • Loading branch information
@rburkey2005
rburkey2005 committed Mar 15, 2017
1 parent 0ec2bba commit 1e73926
Show file tree
Hide file tree
Showing 14 changed files with 68 additions and 40 deletions.
4 changes: 3 additions & 1 deletion Artemis072/INTERPRETER.agc
View file
Original file line number Diff line number Diff line change
Expand Up @@ -15,6 +15,8 @@
## 2011-05-07 JL Removed workarounds.
## 2017-02-05 RSB Proofed comment text by diff'ing vs Comanche 55
## and corrected errors found.
## 2017-03-15 RSB Comment-text fixes identified in 5-way
## side-by-side diff of Luminary 69/99/116/131/210.

## Page 1108

Expand Down Expand Up @@ -1856,7 +1858,7 @@ MPAC+ CS MPAC # CHECK FOR DIVISION OVERFLOW. IF THE
CS MPAC # CHECK MAGNITUDE OF SIGN-CORRECTED
AD BUF # OPERANDS.
CCS A
TCF DVNORM # DIVIDE OK - WILL NOT BECOME MAXOV CASE.
TCF DVNORM # DIVIDE OK - WILL NOT BECOME MAXDV CASE.
LBUF2 ADRES BUF2
TCF DVOVF # DIVISOR NOT LESS THAN DIVIDEND - OVF.

Expand Down
6 changes: 4 additions & 2 deletions Aurora12/LIST_PROCESSING_INTERPRETER.agc
View file
Original file line number Diff line number Diff line change
Expand Up @@ -18,6 +18,8 @@
## 2017-02-05 RSB Back-ported comment corrections
## identified while proofing Artemis 072.
## 2017-03-13 RSB Comment-text fixes noted in proofing Luminary 116.
## 2017-03-15 RSB Comment-text fixes identified in 5-way
## side-by-side diff of Luminary 69/99/116/131/210.

## This source code has been transcribed or otherwise adapted from
## digitized images of a hardcopy from the private collection of
Expand Down Expand Up @@ -1915,7 +1917,7 @@ MPAC+ CS MPAC # CHECK FOR DIVISION OVE
CS MPAC # CHECK MAGNITUDE OF SIGN-CORRECTED
AD BUF # OPERANDS.
CCS A
TCF DVNORM # DIVIDE OK - WILL NOT BECOME MAXOV CASE.
TCF DVNORM # DIVIDE OK - WILL NOT BECOME MAXDV CASE.
LBUF2 ADRES BUF2
TCF DVOVF # DIVISOR NOT LESS THAN DIVIDEND - OVF.

Expand Down Expand Up @@ -2490,7 +2492,7 @@ VSQSUB EXTEND # DOTS THE VECTOR IN MPA
## Page 108
# DOUBLE PRECISION SQUARE ROOT ROUTINE. TAKE THE SQUARE ROOT OF THE TRIPLE PRECISION (MPAC +2 USED ONLY
# IN NORMALIZATION) CONTENTS OF MPAC AND LEAVE THE NORMALIZED RESULT IN MPAC (C(MPAC) GREATER THAN OR EQUAL TO
# .5). THE RIGHT SHIFT COUNT (TC UNNORMALIZE) IS LEFT IN MPTEMP.
# .5). THE RIGHT SHIFT COUNT (TO UNNORMALIZE) IS LEFT IN MPTEMP.



Expand Down
6 changes: 4 additions & 2 deletions Borealis/LIST_PROCESSING_INTERPRETER.agc
View file
Original file line number Diff line number Diff line change
Expand Up @@ -14,6 +14,8 @@
## 2017-02-05 RSB Back-ported comment corrections
## identified while proofing Artemis 072.
## 2017-03-13 RSB Comment-text fixes noted in proofing Luminary 116.
## 2017-03-15 RSB Comment-text fixes identified in 5-way
## side-by-side diff of Luminary 69/99/116/131/210.

# SECTION 1 DISPATCHER
#
Expand Down Expand Up @@ -1835,7 +1837,7 @@ MPAC+ CS MPAC # CHECK FOR DIVISION OVE
CS MPAC # CHECK MAGNITUDE OF SIGN-CORRECTED
AD BUF # OPERANDS.
CCS A
TCF DVNORM # DIVIDE OK - WILL NOT BECOME MAXOV CASE.
TCF DVNORM # DIVIDE OK - WILL NOT BECOME MAXDV CASE.
LBUF2 ADRES BUF2
TCF DVOVF # DIVISOR NOT LESS THAN DIVIDEND - OVF.

Expand Down Expand Up @@ -2392,7 +2394,7 @@ VSQSUB EXTEND # DOTS THE VECTOR IN MPA

# DOUBLE PRECISION SQUARE ROOT ROUTINE. TAKE THE SQUARE ROOT OF THE TRIPLE PRECISION (MPAC +2 USED ONLY
# IN NORMALIZATION) CONTENTS OF MPAC AND LEAVE THE NORMALIZED RESULT IN MPAC (C(MPAC) GREATER THAN OR EQUAL TO
# .5). THE RIGHT SHIFT COUNT (TC UNNORMALIZE) IS LEFT IN MPTEMP.
# .5). THE RIGHT SHIFT COUNT (TO UNNORMALIZE) IS LEFT IN MPTEMP.



Expand Down
4 changes: 3 additions & 1 deletion Colossus237/INTERPRETER.agc
View file
Original file line number Diff line number Diff line change
Expand Up @@ -16,6 +16,8 @@
## against Colossus 249.
## 2017-02-05 RSB Back-ported comment corrections
## identified while proofing Artemis 072.
## 2017-03-15 RSB Comment-text fixes identified in 5-way
## side-by-side diff of Luminary 69/99/116/131/210.

## Page 1074
# SECTION 1 DISPATCHER
Expand Down Expand Up @@ -1892,7 +1894,7 @@ MPAC+ CS MPAC # CHECK FOR DIVISION OVERFLOW. IF THE
CS MPAC # CHECK MAGNITUDE OF SIGN-CORRECTED
AD BUF # OPERANDS.
CCS A
TCF DVNORM # DIVIDE OK - WILL NOT BECOME MAXOV CASE.
TCF DVNORM # DIVIDE OK - WILL NOT BECOME MAXDV CASE.
LBUF2 ADRES BUF2
TCF DVOVF # DIVISOR NOT LESS THAN DIVIDEND - OVF.

Expand Down
6 changes: 4 additions & 2 deletions Colossus249/INTERPRETER.agc
View file
Original file line number Diff line number Diff line change
Expand Up @@ -20,7 +20,9 @@
## and corrected errors found.
## 2017-02-05 RSB Back-ported comment corrections
## identified while proofing Artemis 072.
##
## 2017-03-15 RSB Comment-text fixes identified in 5-way
## side-by-side diff of Luminary 69/99/116/131/210.

## The contents of the "Colossus249" files, in general, are transcribed
## from a scanned copy of the program listing. Notations on this
## document read, in part:
Expand Down Expand Up @@ -1889,7 +1891,7 @@ MPAC+ CS MPAC # CHECK FOR DIVISION OVERFLOW. IF THE
CS MPAC # CHECK MAGNITUDE OF SIGN-CORRECTED
AD BUF # OPERANDS.
CCS A
TCF DVNORM # DIVIDE OK - WILL NOT BECOME MAXOV CASE.
TCF DVNORM # DIVIDE OK - WILL NOT BECOME MAXDV CASE.
LBUF2 ADRES BUF2
TCF DVOVF # DIVISOR NOT LESS THAN DIVIDEND - OVF.

Expand Down
4 changes: 3 additions & 1 deletion Comanche055/INTERPRETER.agc
View file
Original file line number Diff line number Diff line change
Expand Up @@ -22,6 +22,8 @@
## against Colossus 249.
## 2017-02-05 RSB Back-ported comment corrections
## identified while proofing Artemis 072.
## 2017-03-15 RSB Comment-text fixes identified in 5-way
## side-by-side diff of Luminary 69/99/116/131/210.

## This source code has been transcribed or otherwise adapted from digitized
## images of a hardcopy from the MIT Museum. The digitization was performed
Expand Down Expand Up @@ -1885,7 +1887,7 @@ MPAC+ CS MPAC # CHECK FOR DIVISION OVERFLOW. IF THE
CS MPAC # CHECK MAGNITUDE OF SIGN-CORRECTED
AD BUF # OPERANDS.
CCS A
TCF DVNORM # DIVIDE OK - WILL NOT BECOME MAXOV CASE.
TCF DVNORM # DIVIDE OK - WILL NOT BECOME MAXDV CASE.
LBUF2 ADRES BUF2
TCF DVOVF # DIVISOR NOT LESS THAN DIVIDEND - OVF.

Expand Down
8 changes: 5 additions & 3 deletions LUM99R2/INTERPRETER.agc
View file
Original file line number Diff line number Diff line change
Expand Up @@ -20,6 +20,8 @@
## identified while proofing Artemis 072.
## 2017-03-03 RSB Snapshot of Luminary 99 Rev 1.
## 2017-03-13 RSB Comment-text fixes noted in proofing Luminary 116.
## 2017-03-15 RSB Comment-text fixes identified in 5-way
## side-by-side diff of Luminary 69/99/116/131/210.

## Page 1002
# SECTION 1 DISPATCHER
Expand Down Expand Up @@ -1865,7 +1867,7 @@ MPAC+ CS MPAC # CHECK FOR DIVISION OVERFLOW. IF THE
CS MPAC # CHECK MAGNITUDE OF SIGN-CORRECTED
AD BUF # OPERANDS.
CCS A
TCF DVNORM # DIVIDE OK - WILL NOT BECOME MAXOV CASE.
TCF DVNORM # DIVIDE OK - WILL NOT BECOME MAXDV CASE.
LBUF2 ADRES BUF2
TCF DVOVF # DIVISOR NOT LESS THAN DIVIDEND - OVF.

Expand Down Expand Up @@ -2482,7 +2484,7 @@ VSQSUB EXTEND # DOTS THE VECTOR IN MPAC WITH ITSELF.
## Page 1079
# DOUBLE PRECISION SQUARE ROOT ROUTINE. TAKE THE SQUARE ROOT OF THE TRIPLE PRECISION (MPAC +2 USED ONLY
# IN NORMALIZATION) CONTENTS OF MPAC AND LEAVE THE NORMALIZED RESULT IN MPAC (C(MPAC) GREATER THAN OR EQUAL TO
# .5). THE RIGHT SHIFT COUNT (TC UNNORMALIZE) IS LEFT IN MPTEMP.
# .5). THE RIGHT SHIFT COUNT (TO UNNORMALIZE) IS LEFT IN MPTEMP.

SQRTSUB CAF ZERO # START BY ZEROING RIGHT SHIFT COUNT.
TS MPTEMP
Expand All @@ -2503,7 +2505,7 @@ SQRTSUB CAF ZERO # START BY ZEROING RIGHT SHIFT COUNT.
TCF +2
TCF ZEROANS # NEGATIVE BUT LESS THAN 10(-4) IN MAG.

XCH MPAC +1 # XERO - SHIFT LEFT 14 AGAIN.
XCH MPAC +1 # ZERO - SHIFT LEFT 14 AGAIN.
TS MPAC
CAF SEVEN # AUGMENT RIGHT SHIFT COUNTER.
ADS MPTEMP
Expand Down
4 changes: 3 additions & 1 deletion Luminary069/INTERPRETER.agc
View file
Original file line number Diff line number Diff line change
Expand Up @@ -23,6 +23,8 @@
## 2017-02-05 RSB Back-ported comment corrections
## identified while proofing Artemis 072.
## 2017-03-13 RSB Comment-text fixes noted in proofing Luminary 116.
## 2017-03-15 RSB Comment-text fixes identified in 5-way
## side-by-side diff of Luminary 69/99/116/131/210.

## Page 997
# SECTION 1 DISPATCHER
Expand Down Expand Up @@ -1895,7 +1897,7 @@ MPAC+ CS MPAC # CHECK FOR DIVISION OVERFLOW. IF THE
CS MPAC # CHECK MAGNITUDE OF SIGN-CORRECTED
AD BUF # OPERANDS.
CCS A
TCF DVNORM # DIVIDE OK - WILL NOT BECOME MAXOV CASE.
TCF DVNORM # DIVIDE OK - WILL NOT BECOME MAXDV CASE.
LBUF2 ADRES BUF2
TCF DVOVF # DIVISOR NOT LESS THAN DIVIDEND - OVF.

Expand Down
8 changes: 5 additions & 3 deletions Luminary099/INTERPRETER.agc
View file
Original file line number Diff line number Diff line change
Expand Up @@ -19,6 +19,8 @@
## 2017-02-05 RSB Back-ported comment corrections
## identified while proofing Artemis 072.
## 2017-03-13 RSB Comment-text fixes noted in proofing Luminary 116.
## 2017-03-15 RSB Comment-text fixes identified in 5-way
## side-by-side diff of Luminary 69/99/116/131/210.

## This source code has been transcribed or otherwise adapted from
## digitized images of a hardcopy from the MIT Museum. The digitization
Expand Down Expand Up @@ -1879,7 +1881,7 @@ MPAC+ CS MPAC # CHECK FOR DIVISION OVERFLOW. IF THE
CS MPAC # CHECK MAGNITUDE OF SIGN-CORRECTED
AD BUF # OPERANDS.
CCS A
TCF DVNORM # DIVIDE OK - WILL NOT BECOME MAXOV CASE.
TCF DVNORM # DIVIDE OK - WILL NOT BECOME MAXDV CASE.
LBUF2 ADRES BUF2
TCF DVOVF # DIVISOR NOT LESS THAN DIVIDEND - OVF.

Expand Down Expand Up @@ -2496,7 +2498,7 @@ VSQSUB EXTEND # DOTS THE VECTOR IN MPAC WITH ITSELF.
## Page 1079
# DOUBLE PRECISION SQUARE ROOT ROUTINE. TAKE THE SQUARE ROOT OF THE TRIPLE PRECISION (MPAC +2 USED ONLY
# IN NORMALIZATION) CONTENTS OF MPAC AND LEAVE THE NORMALIZED RESULT IN MPAC (C(MPAC) GREATER THAN OR EQUAL TO
# .5). THE RIGHT SHIFT COUNT (TC UNNORMALIZE) IS LEFT IN MPTEMP.
# .5). THE RIGHT SHIFT COUNT (TO UNNORMALIZE) IS LEFT IN MPTEMP.

SQRTSUB CAF ZERO # START BY ZEROING RIGHT SHIFT COUNT.
TS MPTEMP
Expand All @@ -2517,7 +2519,7 @@ SQRTSUB CAF ZERO # START BY ZEROING RIGHT SHIFT COUNT.
TCF +2
TCF ZEROANS # NEGATIVE BUT LESS THAN 10(-4) IN MAG.

XCH MPAC +1 # XERO - SHIFT LEFT 14 AGAIN.
XCH MPAC +1 # ZERO - SHIFT LEFT 14 AGAIN.
TS MPAC
CAF SEVEN # AUGMENT RIGHT SHIFT COUNTER.
ADS MPTEMP
Expand Down
8 changes: 5 additions & 3 deletions Luminary116/INTERPRETER.agc
View file
Original file line number Diff line number Diff line change
Expand Up @@ -19,6 +19,8 @@
## 2017-03-10 HG Transcribed
## 2017-03-13 RSB Proofed comment text via 3-way diff vs
## Luminary 99 and 131.
## 2017-03-15 RSB Comment-text fixes identified in 5-way
## side-by-side diff of Luminary 69/99/116/131/210.

## Page 994
# SECTION 1 DISPATCHER
Expand Down Expand Up @@ -1892,7 +1894,7 @@ MPAC+ CS MPAC # CHECK FOR DIVI
CS MPAC # CHECK MAGNITUDE OF SIGN-CORRECTED
AD BUF # OPERANDS.
CCS A
TCF DVNORM # DIVIDE OK - WILL NOT BECOME MAXOV CASE.
TCF DVNORM # DIVIDE OK - WILL NOT BECOME MAXDV CASE.
LBUF2 ADRES BUF2
TCF DVOVF # DIVISOR NOT LESS THAN DIVIDEND - OVF.

Expand Down Expand Up @@ -2505,7 +2507,7 @@ VSQSUB EXTEND # DOTS THE VECTO
## Page 1071
# DOUBLE PRECISION SQUARE ROOT ROUTINE. TAKE THE SQUARE ROOT OF THE TRIPLE PRECISION (MPAC +2 USED ONLY
# IN NORMALIZATION) CONTENTS OF MPAC AND LEAVE THE NORMALIZED RESULT IN MPAC (C(MPAC) GREATER THAN OR EQUAL TO
# .5). THE RIGHT SHIFT COUNT (TC UNNORMALIZE) IS LEFT IN MPTEMP.
# .5). THE RIGHT SHIFT COUNT (TO UNNORMALIZE) IS LEFT IN MPTEMP.


SQRTSUB CAF ZERO # START BY ZEROING RIGHT SHIFT COUNT.
Expand All @@ -2527,7 +2529,7 @@ SQRTSUB CAF ZERO # START BY ZEROI
TCF +2
TCF ZEROANS # NEGATIVE BUT LESS THAN 10(-4) IN MAG.

XCH MPAC +1 # XERO - SHIFT LEFT 14 AGAIN.
XCH MPAC +1 # ZERO - SHIFT LEFT 14 AGAIN.
TS MPAC
CAF SEVEN # AUGMENT RIGHT SHIFT COUNTER.
ADS MPTEMP
Expand Down
8 changes: 5 additions & 3 deletions Luminary131/INTERPRETER.agc
View file
Original file line number Diff line number Diff line change
Expand Up @@ -25,6 +25,8 @@
## 2017-02-26 RSB Proofed comment text using octopus/ProoferComments.
## 2017-03-01 RSB Fixed lingering typos.
## 2017-03-13 RSB Comment-text fixes noted in proofing Luminary 116.
## 2017-03-15 RSB Comment-text fixes identified in 5-way
## side-by-side diff of Luminary 69/99/116/131/210.

## Page 996
# SECTION 1 DISPATCHER
Expand Down Expand Up @@ -1869,7 +1871,7 @@ MPAC+ CS MPAC # CHECK FOR DIVISION OVERFLOW. IF THE
CS MPAC # CHECK MAGNITUDE OF SIGN-CORRECTED
AD BUF # OPERANDS.
CCS A
TCF DVNORM # DIVIDE OK - WILL NOT BECOME MAXOV CASE.
TCF DVNORM # DIVIDE OK - WILL NOT BECOME MAXDV CASE.
LBUF2 ADRES BUF2
TCF DVOVF # DIVISOR NOT LESS THAN DIVIDEND - OVF.

Expand Down Expand Up @@ -2485,7 +2487,7 @@ VSQSUB EXTEND # DOTS THE VECTOR IN MPAC WITH ITSELF.
## Page 1073
# DOUBLE PRECISION SQUARE ROOT ROUTINE. TAKE THE SQUARE ROOT OF THE TRIPLE PRECISION (MPAC +2 USED ONLY
# IN NORMALIZATION) CONTENTS OF MPAC AND LEAVE THE NORMALIZED RESULT IN MPAC (C(MPAC) GREATER THAN OR EQUAL TO
# .5). THE RIGHT SHIFT COUNT (TC UNNORMALIZE) IS LEFT IN MPTEMP.
# .5). THE RIGHT SHIFT COUNT (TO UNNORMALIZE) IS LEFT IN MPTEMP.

SQRTSUB CAF ZERO # START BY ZEROING RIGHT SHIFT COUNT.
TS MPTEMP
Expand All @@ -2506,7 +2508,7 @@ SQRTSUB CAF ZERO # START BY ZEROING RIGHT SHIFT COUNT.
TCF +2
TCF ZEROANS # NEGATIVE BUT LESS THAN 10(-4) IN MAG.

XCH MPAC +1 # XERO - SHIFT LEFT 14 AGAIN.
XCH MPAC +1 # ZERO - SHIFT LEFT 14 AGAIN.
TS MPAC
CAF SEVEN # AUGMENT RIGHT SHIFT COUNTER.
ADS MPTEMP
Expand Down
4 changes: 3 additions & 1 deletion Luminary210/INTERPRETER.agc
View file
Original file line number Diff line number Diff line change
Expand Up @@ -21,6 +21,8 @@
## 2017-01-28 RSB Back-ported some comment-text fixes made in Luminary 69.
## 2017-02-05 RSB Back-ported comment corrections
## identified while proofing Artemis 072.
## 2017-03-15 RSB Comment-text fixes identified in 5-way
## side-by-side diff of Luminary 69/99/116/131/210.

## Page 1000
# SECTION 1 DISPATCHER
Expand Down Expand Up @@ -2515,7 +2517,7 @@ VSQSUB EXTEND # DOTS THE VECTOR IN MPAC WITH ITSELF.
## Page 1077
# DOUBLE PRECISION SQUARE ROOT ROUTINE. TAKE THE SQUARE ROOT OF THE TRIPLE PRECISION (MPAC +2 USED ONLY
# IN NORMALIZATION) CONTENTS OF MPAC AND LEAVE THE NORMALIZED RESULT IN MPAC (C(MPAC) GREATER THAN OR EQUAL TO
# .5). THE RIGHT SHIFT COUNT (TC UNNORMALIZE) IS LEFT IN MPTEMP.
# .5). THE RIGHT SHIFT COUNT (TO UNNORMALIZE) IS LEFT IN MPTEMP.

SQRTSUB CAF ZERO # START BY ZEROING RIGHT SHIFT COUNT.
TS MPTEMP
Expand Down
4 changes: 3 additions & 1 deletion Retread44/LIST-PROCESSING_INTERPRETER.agc
View file
Original file line number Diff line number Diff line change
Expand Up @@ -19,6 +19,8 @@
## and fixed errors found.
## 2017-02-05 RSB Back-ported comment corrections
## identified while proofing Artemis 072.
## 2017-03-15 RSB Comment-text fixes identified in 5-way
## side-by-side diff of Luminary 69/99/116/131/210.

## Page 17
# SECTION 1 DISPATCHER
Expand Down Expand Up @@ -2440,7 +2442,7 @@ VSQSUB EXTEND # DOTS THE VECTOR IN MPA
## Page 90
# DOUBLE PRECISION SQUARE ROOT ROUTINE. TAKE THE SQUARE ROOT OF THE TRIPLE PRECISION (MPAC +2 USED ONLY
# IN NORMALIZATION) CONTENTS OF MPAC AND LEAVE THE NORMALIZED RESULT IN MPAC (C(MPAC) GREATER THAN OR EQUAL TO
# .5). THE RIGHT SHIFT COUNT (TC UNNORMALIZE) IS LEFT IN MPTEMP.
# .5). THE RIGHT SHIFT COUNT (TO UNNORMALIZE) IS LEFT IN MPTEMP.



Expand Down
34 changes: 18 additions & 16 deletions Sunburst120/INTERPRETER.agc
View file
Original file line number Diff line number Diff line change
@@ -1,19 +1,21 @@
### FILE="Main.annotation"
## Copyright: Public domain.
## Filename: INTERPRETER.agc
## Purpose: A module for revision 0 of BURST120 (Sunburst). It
## is part of the source code for the Lunar Module's
## (LM) Apollo Guidance Computer (AGC) for Apollo 5.
## Assembler: yaYUL
## Contact: Ron Burkey <info@sandroid.org>.
## Website: www.ibiblio.org/apollo/index.html
## Mod history: 2016-09-30 RSB Created draft version.
## 2016-10-14 MAS Began.
## 2016-10-14 MAS Completed transcription.
## 2016-10-31 RSB Typos.
## 2016-11-01 RSB More typos.
## 2016-12-06 RSB Comments proofed using octopus/ProoferComments,
## changes made.
## Copyright: Public domain.
## Filename: INTERPRETER.agc
## Purpose: A module for revision 0 of BURST120 (Sunburst). It
## is part of the source code for the Lunar Module's
## (LM) Apollo Guidance Computer (AGC) for Apollo 5.
## Assembler: yaYUL
## Contact: Ron Burkey <info@sandroid.org>.
## Website: www.ibiblio.org/apollo/index.html
## Mod history: 2016-09-30 RSB Created draft version.
## 2016-10-14 MAS Began.
## 2016-10-14 MAS Completed transcription.
## 2016-10-31 RSB Typos.
## 2016-11-01 RSB More typos.
## 2016-12-06 RSB Comments proofed using octopus/ProoferComments,
## changes made.
## 2017-03-15 RSB Comment-text fixes identified in 5-way
## side-by-side diff of Luminary 69/99/116/131/210.

## Page 953
# SECTION 1 DISPATCHER
Expand Down Expand Up @@ -2508,7 +2510,7 @@ VSQSUB EXTEND # DOTS THE VECTO
## Page 1029
# DOUBLE PRECISION SQUARE ROOT ROUTINE. TAKE THE SQUARE ROOT OF THE TRIPLE PRECISION (MPAC +2 USED ONLY
# IN NORMALIZATION) CONTENTS OF MPAC AND LEAVE THE NORMALIZED RESULT IN MPAC (C(MPAC) GREATER THAN OR EQUAL TO
# .5). THE RIGHT SHIFT COUNT (TC UNNORMALIZE) IS LEFT IN MPTEMP.
# .5). THE RIGHT SHIFT COUNT (TO UNNORMALIZE) IS LEFT IN MPTEMP.


SQRTSUB CAF ZERO # START BY ZEROING RIGHT SHIFT COUNT.
Expand Down

0 comments on commit 1e73926

Please sign in to comment.