Sunburst 37: Added a numerical workaround and a syntax fix.

3rdvision · Jun 17, 2017 · b85bebb · b85bebb
1 parent e272ef2
commit b85bebb
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 2 deletions.
diff --git a/Sunburst37/PREBURN_FOR_APS2.agc b/Sunburst37/PREBURN_FOR_APS2.agc
@@ -19,6 +19,7 @@
 ## Mod history: 2017-05-24 MAS  Created from Sunburst 120.
 ##              2017-06-11 HG   Transcribed
 ##              2017-06-15 HG   Fix interpretive operator STODL -> STORE
+##              2017-06-17 MAS  Split up an "E-4B9".
 
 ## Page 851
 #      PREAPS2 IS A PROGRAM WHICH INITIALIZES **ASCENT** FOR THE 2ND APS
@@ -98,7 +99,7 @@ PRAPS           VLOAD           SET
                 DXCH            Z
 COS27           2DEC            .89100652
 SIN27           2DEC            .45399050
-ENGNOM          2DEC            3.20928237      E-4B9   # AT*2(9)
+ENGNOM          2DEC            3.20928237      E-4 B9  # AT*2(9)
                 2DEC            .0330009301     B4      # (1/VE)*2(4)
 
                 2DEC            94420.4114      B-17    # TBUP*2(-17)

diff --git a/Sunburst37/SECOND_DPS_GUIDANCE.agc b/Sunburst37/SECOND_DPS_GUIDANCE.agc
@@ -19,6 +19,8 @@
 ## Mod history: 2017-05-24 MAS  Created from Sunburst 120.
 ##              2017-06-13 HG   Transcribed
 ##              2017-06-15 HG   Fix interpretive operand /AFC/ -> /ACF/
+##              2017-06-17 MAS  Added a workaround for yaYUL calculating a
+##                              fractional number off by one.
 
 ## Page 814
 
@@ -1552,7 +1554,10 @@ A1FS            2DEC*           +5.044035031    E-5  B+6*
                 2DEC*           +4.277783493    E-11 B+30*
 
 ## Page 847
-TTF/4NU2        DEC*            -3.375000000    E+3  B-15*
+## Workaround: the following line has been changed to OCT because yaYUL produces
+##             slightly different numerical results. The original was as follows:
+## TTF/4NU2        DEC*            -3.375000000    E+3  B-15*
+TTF/4NU2        OCT             74550
 
 A2FS            2DEC*           +1.331951587    E-4  B+6*