Revision 391bbc7b68686318ecd16acb71d520614176e602 authored by Mike Stewart on 02 October 2019, 05:15:17 UTC, committed by Mike Stewart on 02 October 2019, 05:15:17 UTC
1 parent 602413b
DUMMY_501_INITIALIZATION.agc
### FILE="Main.annotation"
## Copyright: Public domain.
## Filename: DUMMY_501_INITIALIZATION.agc
## Purpose: Part of the source code for Solarium build 55. This
## is for the Command Module's (CM) Apollo Guidance
## Computer (AGC), for Apollo 6.
## Assembler: yaYUL --block1
## Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
## Website: www.ibiblio.org/apollo/index.html
## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Solarium055/
## Mod history: 2009-09-14 JL Created.
## 2016-12-28 RSB Proofed comment text using octopus/ProoferComments,
## and fixed errors found.
## Page 697
BANK 33
BEGINNER TC BANKCALL # CHANGE IMUMODE AS REQUIRED.
CADRMODE CADR IMUREENT
BEGIN501 TC INTPRET
VMOVE 1
ITC
RN
CALCGRAV
EXIT 0
TC PHASCHNG # SETUP SOME PHASE INFO.
EXITLOC2 OCT 00105 # 5.1 MODE GOES WITH READACCS.
INHINT
CS TIME1
AD STARTDT1
TC WAITLIST
CADR READACCS
CS TIME1 # SPARE START ROUTINE
AD STARTDT2
TC WAITLIST
CADR START2
TC ENDOFJOB
## (JL) seems to be an arg missing. Is YUL assuming 0? Generates 07435.
BEGINSW TC BANKCALL # WAIT FOR MODE SWITCH IF NECESSARY.
CADR IMUSTALL
TC
TC ENDOFJOB
DEC 0 # HOLE FOR 2DEC PATCHING STARTDT1 -1
STARTDT1 DEC 200
STARTDT2 DEC 830
START2 CAF PRIO27
TC FINDVAC
CADR S4BSMSEP
TC TASKOVER
![swh spinner](/static/img/swh-spinner.gif)
Computing file changes ...