Revision 49926c64aa2d4ea8cd64b4eaa626d22f43bfaeeb authored by Ron Burkey on 12 October 2018, 13:13:55 UTC, committed by Ron Burkey on 12 October 2018, 13:13:55 UTC
to comments in *.agc files that include the strings -SIMULATION or +SIMULATION. The former are automatically commented out if --simulation is used, while the latter are commented out is --simulation is *not* used. All of that was for the sole purpose of adding a -SIMULATION specifier to a single line in Validation.agc that proves inconvenient sometimes for simulations of the AGC electronics. There's a new target in the top-level Makefile (namely Validation-hardware-simulation) that isn't one of the default ones, but which when used, builds a separate rope (Validation/Validation-hardware-simulation.agc.bin) and html with that one inconvenient line in Validation.agc commented out. Overkill, I know.
1 parent 0a720cd
ASCENT_INERTIA_UPDATER.agc
### FILE="Main.annotation"
## Copyright: Public domain.
## Filename: ASCENT_INERTIA_UPDATER.agc
## Purpose: A section of Sunburst revision 37, or Shepatin revision 0.
## It is part of an early development version of the software
## for Apollo Guidance Computer (AGC) on the unmanned Lunar
## Module (LM) flight Apollo 5. Sunburst 37 was the program
## upon which Don Eyles's offline development program Shepatin
## was based; the listing herein transcribed was actually for
## the equivalent revision 0 of Shepatin.
## This file is intended to be a faithful transcription, except
## that the code format has been changed to conform to the
## requirements of the yaYUL assembler rather than the
## original YUL assembler.
## Reference: pp. 538-540
## Assembler: yaYUL
## Contact: Ron Burkey <info@sandroid.org>.
## Website: www.ibiblio.org/apollo/index.html
## Mod history: 2017-05-24 MAS Created from Sunburst 120.
## 2017-06-05 HG Transcribed
## 2017-06-22 RSB Proofed comment text with
## octopus/ProoferComments.
## Page 538
BANK 26
EBANK= DT
IXXTASK TC JACCESTP
TC ASCENGON
EXTEND
DIM IXX
CAF IXXTIME
TC WAITLIST
EBANK= DT
2CADR IXXTASK
TCF TASKOVER
IYYTASK TC JACCESTQ
TC ASCENGON
EXTEND
DIM IYY
CAF IYYTIME
TC WAITLIST
EBANK= DT
2CADR IYYTASK
TCF TASKOVER
IZZTASK TC JACCESTR
TC ASCENGON
EXTEND
DIM IZZ
CAF IZZTIME
TC WAITLIST
EBANK= DT
2CADR IZZTASK
TCF TASKOVER
IXXTIME DEC 200
IYYTIME DEC 1300
IZZTIME DEC 180
ASCENGON CAF BIT8
MASK DAPBOOLS
CCS A
TC Q
TCF TASKOVER
## Page 539
JACCESTP CAE IXX
ZL
EXTEND
DV 4JETTORK
DOUBLE
TS 1/2JTSP
CAF JETTORK
ZL
EXTEND
DV IXX
TS 1JACC
TC Q
JACCESTQ CAE IYY
ZL
EXTEND
DV JETTORK4
EXTEND # INCLUDE INVISIBLE FACTOR OF (1/2).
MP BIT14
TS 1/NET+4Q
TS 1/NET-4Q
DOUBLE
TS 1/NET+2Q
TS 1/NET-2Q
CAF JETTORK1
ZL
EXTEND
DV IYY
TS 1JACCQ
TC Q
JACCESTR CAE IZZ
ZL
EXTEND
DV JETTORK4
EXTEND # INCLUDE INVISIBLE FACTOR OF (1/2).
MP BIT14
TS 1/NET+4R
TS 1/NET-4R
DOUBLE
TS 1/NET+2R
TS 1/NET-2R
CAF JETTORK1
ZL
## Page 540
EXTEND
DV IZZ
TS 1JACCR
COMMONQR CAE 1/2JTSQ
AD 1/2JTSR
EXTEND
MP .707BK26
TS 1/2JETSU # TEMP
CAE 1/2JTSQ
EXTEND
MP 1/2JTSR
EXTEND
DV 1/2JETSU # TEMP
TS 1/NET+2U
TS 1/NET-2U
TS 1/NET+2V
TS 1/NET-2V
DOUBLE
TS 1/NET+1U
TS 1/NET-1U
TS 1/NET+1V
TS 1/NET-1V
TC Q
.707BK26 DEC 0.70711
JETTORK DEC 0.00243 # 500 FT LBS. SCALED AT PI*2(+16)
JETTORK1 DEC 0.00267 # 550 FT LBS. SCALED AT PI*2(+16)
0.35356 DEC 0.35356
Computing file changes ...