Completed fixing of transcription errors in Retread. Remaining differ…

…ences are on yaYUL
thomaspaulin · Dec 19, 2016 · 74ca19b · 74ca19b
1 parent 0a534d5
commit 74ca19b
Show file tree

Hide file tree

Showing 5 changed files with 13 additions and 11 deletions.
diff --git a/Retread44/AGC_BLK2_INSTRUCTION_CHECK.agc b/Retread44/AGC_BLK2_INSTRUCTION_CHECK.agc
@@ -145,7 +145,6 @@ TCCHK           TC              +2
                 TC              CCSCHK                          
                 TCF             +2
                 TC              ERRORS                          
-                CS              S+3
                 TC              Q
                 TC              ERRORS                          
 
@@ -548,7 +547,7 @@ STRTXTRA        EXTEND
                 TS              L                               # 37777
                 AD              A                               # OV37776
                 EXTEND
-                DCA             A
+                DCS             A
                 TS              KEEP1
                 TC              ERRORS
                 CA              KEEP1
@@ -1289,7 +1288,7 @@ RORCHK          CA              S+ZERO
                 TS              L
                 EXTEND
                 ROR             L                               # 00000, 00000
-                TS              -0CHK           -1
+                TC              -0CHK           -1
                 CA              L
                 TC              -0CHK           -1
                 CA              S-ZERO

diff --git a/Retread44/EXECUTIVE.agc b/Retread44/EXECUTIVE.agc
@@ -14,6 +14,7 @@
 ## Website:      www.ibiblio.org/apollo/index.html
 ## Mod history:  2016-12-13 MAS  Created from Aurora 12 version.
 ##               2016-12-17 MAS  Transcribed.
+##               2016-12-18 MAS  Typos.
 
 ## Page 107
 
@@ -403,7 +404,7 @@ CHECKNJ         EXTEND                  # SPECIAL NEWJOB TEST FOR SELF-CHECK,
                 TCF     NUDIRECT        # EXECUTION.
 
                 CAF     SELFBANK        # RETURN TO SELF-CHECK.
-                TS      BBANK
+                TS      FBANK
                 TC      SELFRET
 
 NUDIRECT        EXTEND                  # TURN THE GREEN LIGHT BACK ON.

diff --git a/Retread44/LIST-PROCESSING_INTERPRETER.agc b/Retread44/LIST-PROCESSING_INTERPRETER.agc
@@ -14,6 +14,7 @@
 ## Website:      www.ibiblio.org/apollo/index.html
 ## Mod history:  2016-12-13 MAS  Created from Aurora 12 version.
 ##               2016-12-17 MAS  Transcribed.
+##               2016-12-18 MAS  Typos.
 
 ## Page 17
 # SECTION 1  DISPATCHER
@@ -2179,7 +2180,7 @@ UNIT            TC              MPACVBUF                # SAVE THE ARGUMENT IN V
                 TC              SQRTSUB                 # GO TAKE THE NORMALIZED SQUARE ROOT.
 
                 CCS             MPAC                    # CHECK FOR UNIT OVERFLOW.
-                TCF             +5                      # MPAC IS NOT LESS THAN .5 UNLESS THE
+                TCF             +2                      # MPAC IS NOT LESS THAN .5 UNLESS THE
                 TCF             DVOVF                   # INPUT TO SQRTSUB WAS 0.
 
                 CS              FOURTEEN                # SEE IF THE INPUT WAS SO SMALL THE THE
@@ -2829,7 +2830,7 @@ XSU             TC              TAGSUB                  # ERASABLE SUBTRACT FROM
 
 TIX             TC              TAGSUB                  # BRANCH AND DECREMENT ON INDEX.
                 INDEX           INDEXLOC
-                CS              S1
+                CS              X1
                 INDEX           INDEXLOC
                 AD              X1
                 EXTEND                                  # NO OPERATION IF DECREMENTED INDEX IS

diff --git a/Retread44/PINBALL_GAME__BUTTONS_AND_LIGHTS.agc b/Retread44/PINBALL_GAME__BUTTONS_AND_LIGHTS.agc
@@ -530,6 +530,7 @@ ERROR           XCH             21/22REG                # RESTORE ORIGINAL C(DSP
                 TS              DSPLOCK                 # LIGHT RESET LEAVES DSPLOCK UNCHANGED.
                 CAF             BIT15                   # TURNS OFF  AUTO, HOLD, FREE, NO ATT,
                 TS              DSPTAB           +11D   # GIMBAL LOCK, TRACKER, PROG ALM.
+                CS              BIT10
                 EXTEND
                 WAND            CHAN13
                 CS              ERCON                   # TURN OFF UPLINK ACTIVITY,
@@ -1303,9 +1304,9 @@ DPOUTCOM        EXTEND
                 INDEX           A                       # MIXED         NORMAL
                 DCA             0                       # C(ESUBK)      C(E)
                 DXCH            MPAC                    # C((E SUBK)+1)      C(E+1)
-                TC              TPAGREE
                 TC              DMP
                 ADRES           SFTEMP1
+                TC              TPAGREE
                 TC              OVFIND
 
 DPOUTNOR        CA              NOUNADD                 # E
@@ -2778,7 +2779,7 @@ NNTYPTAB        OCT             00000                   # 00 NOT IN USE
                 OCT             04000                   # 26 3COMP  OCTAL ONLY
                 OCT             00140                   # 27 1COMP  WHOLE
                 OCT             04140                   # 30 3COMP  WHOLE
-                OCT             04000                   # 31 3COMP  OCTAL ONLY
+                OCT             02000                   # 31 3COMP  OCTAL ONLY
                 OCT             00252                   # 32 1COMP  TIME WEEKS
                 OCT             00252                   # 33 1COMP  TIME WEEKS
                 OCT             00350                   # 34 1COMP  POSITION
@@ -3307,7 +3308,7 @@ FREEDSP         XCH             Q
                 RELINT
                 TC              FREERET
 
-SHOTIME         DEC             1750
+SHOTIME         OCT             1750
 
 ## Page 207
                 SETLOC          ENDNVBSY        +1

diff --git a/Retread44/T4RUPT_PROGRAM.agc b/Retread44/T4RUPT_PROGRAM.agc
@@ -13,7 +13,7 @@
 ## Contact:      Ron Burkey <[email protected]>.
 ## Website:      www.ibiblio.org/apollo/index.html
 ## Mod history:  2016-12-13 MAS  Created from Aurora 12 version.
-##               2016-12-18 MAS  Transcribed.
+##               2016-12-18 MAS  Transcribed, then fixed typos.
 
 ## Page 128
 T4RUPT          TS              BANKRUPT
@@ -78,7 +78,7 @@ CDRVE           CCS             DSPTAB          +11D
 # DSPOUT PROGRAM. PUTS OUT DISPLAYS.
 
 DSPOUT          CCS             NOUT                    # ENTERED IN INTERRUPTED STATE AT END OF
-                TCF             +2                      #                         DSRUPT
+                TC              +2                      #                         DSRUPT
                 TC              LVDSRUPT
                 TS              NOUT
                 CS              ZERO